From add552d7ef0ad02e23c4aa93626b9a6f2c2d79b2 Mon Sep 17 00:00:00 2001 From: vyzo Date: Sun, 8 Dec 2024 22:28:14 +0200 Subject: [PATCH] Issue 1278: Implement move-file (#1281) Implements move-file in the runtime, so that we can move files across file system volumes, and uses it where appropriate in the stdlib. Closes #1278 --- src/bootstrap/gerbil/compiler/base~0.scm | 502 +- src/bootstrap/gerbil/compiler/base~1.scm | 550 +- src/bootstrap/gerbil/compiler/compile~0.scm | 15440 ++++----- src/bootstrap/gerbil/compiler/compile~1.scm | 1284 +- src/bootstrap/gerbil/compiler/driver~0.scm | 3246 +- src/bootstrap/gerbil/compiler/driver~1.scm | 56 +- src/bootstrap/gerbil/compiler/method~0.scm | 3018 +- src/bootstrap/gerbil/compiler/method~1.scm | 2950 +- .../gerbil/compiler/optimize-ann~0.scm | 18284 +++++------ .../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 | 10964 +++---- .../gerbil/compiler/optimize-spec~1.scm | 360 +- .../gerbil/compiler/optimize-top~0.scm | 25916 ++++++++-------- .../gerbil/compiler/optimize-top~1.scm | 914 +- .../gerbil/compiler/optimize-xform~0.scm | 1432 +- .../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 | 6566 ++-- src/bootstrap/gerbil/core.ssi | 10008 +++--- 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 | 15198 ++++----- src/bootstrap/gerbil/core/contract~9.scm | 18488 +++++------ .../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/macro-object~0.scm | 32 +- src/bootstrap/gerbil/core/macro-object~1.scm | 70 +- src/bootstrap/gerbil/core/match~1.scm | 11158 +++---- src/bootstrap/gerbil/core/match~2.scm | 74 +- src/bootstrap/gerbil/core/module-sugar~1.scm | 3778 +-- src/bootstrap/gerbil/core/mop~1.scm | 1374 +- src/bootstrap/gerbil/core/mop~2.scm | 388 +- src/bootstrap/gerbil/core/mop~3.scm | 4936 +-- 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 | 1826 +- 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~1.scm | 1164 +- src/bootstrap/gerbil/core/sugar~2.scm | 14936 ++++----- src/bootstrap/gerbil/core/sugar~3.scm | 1188 +- src/bootstrap/gerbil/expander/common~0.scm | 12 +- src/bootstrap/gerbil/expander/common~1.scm | 1210 +- src/bootstrap/gerbil/expander/compile~0.scm | 1264 +- src/bootstrap/gerbil/expander/core~0.scm | 3182 +- src/bootstrap/gerbil/expander/core~1.scm | 3520 +-- src/bootstrap/gerbil/expander/init~0.scm | 22 +- src/bootstrap/gerbil/expander/module.ssxi.ss | 6 +- src/bootstrap/gerbil/expander/module~0.scm | 4978 +-- src/bootstrap/gerbil/expander/module~1.scm | 832 +- src/bootstrap/gerbil/expander/root~0.scm | 748 +- src/bootstrap/gerbil/expander/stxcase~0.scm | 3024 +- 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 | 4690 +-- src/bootstrap/gerbil/runtime/c3~0.scm | 631 +- src/bootstrap/gerbil/runtime/control~0.scm | 402 +- src/bootstrap/gerbil/runtime/error.ssxi.ss | 4 +- src/bootstrap/gerbil/runtime/error~0.scm | 3242 +- src/bootstrap/gerbil/runtime/error~1.scm | 948 +- src/bootstrap/gerbil/runtime/eval~0.scm | 3026 +- 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 | 1198 +- 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 | 280 +- .../gerbil/runtime/mop-system-classes~0.scm | 488 +- .../gerbil/runtime/mop-system-classes~1.scm | 250 +- src/bootstrap/gerbil/runtime/mop.ssxi.ss | 16 +- src/bootstrap/gerbil/runtime/mop~0.scm | 5399 ++-- src/bootstrap/gerbil/runtime/mop~1.scm | 1490 +- src/bootstrap/gerbil/runtime/repl~0.scm | 36 +- src/bootstrap/gerbil/runtime/syntax~0.scm | 534 +- src/bootstrap/gerbil/runtime/syntax~1.scm | 1430 +- 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.ssi | 6 + src/bootstrap/gerbil/runtime/util.ssxi.ss | 118 + src/bootstrap/gerbil/runtime/util~0.scm | 3641 +-- src/bootstrap/gerbil/runtime/util~1.scm | 2354 +- src/bootstrap/gerbil/runtime~0.scm | 2 +- src/gerbil/core/runtime.ss | 1 + src/gerbil/runtime/util.ss | 34 + src/std/actor-v18/admin.ss | 4 +- src/std/actor-v18/registry.ss | 2 +- src/tools/gxtags.ss | 2 +- 106 files changed, 135038 insertions(+), 134667 deletions(-) diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index 5ce5f0498..3b46f0ec5 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 1713631267) + (define gerbil/compiler/base::timestamp 1733687560) (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 ((_%verbosity133737133739%_ + (let ((_%verbosity133896133898%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity133737133739%_ - (let* ((_%verbosity133742%_ _%verbosity133737133739%_) - (_%$e133744%_ (string->number _%verbosity133742%_))) - (if _%$e133744%_ _%$e133744%_ _%verbosity133742%_)) + (if _%verbosity133896133898%_ + (let* ((_%verbosity133901%_ _%verbosity133896133898%_) + (_%$e133903%_ (string->number _%verbosity133901%_))) + (if _%$e133903%_ _%$e133903%_ _%verbosity133901%_)) '#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 ((__tmp133799 (list)) (__tmp133798 (cons (cons 'struct: '#t) '()))) + (let ((__tmp133958 (list)) (__tmp133957 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp133799 + __tmp133958 '(gensyms bindings) - __tmp133798 + __tmp133957 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args133735%_ - (apply make-instance gxc#symbol-table::t _%$args133735%_))) + (lambda _%$args133894%_ + (apply make-instance gxc#symbol-table::t _%$args133894%_))) (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 (_%self133257133720%_) - (let* ((_%self133723%_ _%self133257133720%_) - (_%self133725%_ _%self133723%_)) - (if (let ((__tmp133800 + (lambda (_%self133416133879%_) + (let* ((_%self133882%_ _%self133416133879%_) + (_%self133884%_ _%self133882%_)) + (if (let ((__tmp133959 (let () (declare (not safe)) - (##structure-length _%self133725%_)))) + (##structure-length _%self133884%_)))) (declare (not safe)) - (##fx< '2 __tmp133800)) + (##fx< '2 __tmp133959)) (begin - (let ((__tmp133801 + (let ((__tmp133960 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133725%_ - __tmp133801 + _%self133884%_ + __tmp133960 '1 '#f '#f)) - (let ((__tmp133802 + (let ((__tmp133961 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133725%_ - __tmp133802 + _%self133884%_ + __tmp133961 '2 '#f '#f)) '#!void) - (let ((__tmp133803 + (let ((__tmp133962 (let () (declare (not safe)) - (##vector-length _%self133725%_)))) + (##vector-length _%self133884%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self133725%_ + _%self133884%_ '2 - __tmp133803)))))) + __tmp133962)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,134 +125,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message133589%_ _%stx133590%_ . _%details133591%_) - (let ((_%ctx133596%_ - (let ((_%$e133593%_ + (lambda (_%message133748%_ _%stx133749%_ . _%details133750%_) + (let ((_%ctx133755%_ + (let ((_%$e133752%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e133593%_ _%$e133593%_ 'compile)))) + (if _%$e133752%_ _%$e133752%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx133596%_ - _%message133589%_ - _%stx133590%_ - _%details133591%_)))) + _%ctx133755%_ + _%message133748%_ + _%stx133749%_ + _%details133750%_)))) (define gxc#verbose - (lambda _%args133586%_ + (lambda _%args133745%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp133804 + (let ((__tmp133963 (lambda () (let () (declare (not safe)) - (##apply displayln _%args133586%_))))) + (##apply displayln _%args133745%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp133804)) + (__with-lock gxc#__verbose-mutex __tmp133963)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id133568%_) - (let* ((_%str133570%_ - (if (symbol? _%id133568%_) + (lambda (_%id133727%_) + (let* ((_%str133729%_ + (if (symbol? _%id133727%_) (let () (declare (not safe)) - (##symbol->string _%id133568%_)) - _%id133568%_)) - (_%len133572%_ (string-length _%str133570%_)) - (_%res133574%_ - (let () (declare (not safe)) (##make-string _%len133572%_)))) - (let _%lp133577%_ ((_%i133579%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i133579%_ _%len133572%_)) - (let* ((_%char133581%_ (string-ref _%str133570%_ _%i133579%_)) - (_%xchar133583%_ + (##symbol->string _%id133727%_)) + _%id133727%_)) + (_%len133731%_ (string-length _%str133729%_)) + (_%res133733%_ + (let () (declare (not safe)) (##make-string _%len133731%_)))) + (let _%lp133736%_ ((_%i133738%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i133738%_ _%len133731%_)) + (let* ((_%char133740%_ (string-ref _%str133729%_ _%i133738%_)) + (_%xchar133742%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char133581%_)) + _%char133740%_)) '#\_ - _%char133581%_))) - (string-set! _%res133574%_ _%i133579%_ _%xchar133583%_) - (_%lp133577%_ - (let () (declare (not safe)) (##fx+ _%i133579%_ '1)))) - _%res133574%_))))) + _%char133740%_))) + (string-set! _%res133733%_ _%i133738%_ _%xchar133742%_) + (_%lp133736%_ + (let () (declare (not safe)) (##fx+ _%i133738%_ '1)))) + _%res133733%_))))) (define gxc#map* - (lambda (_%proc133510%_ _%maybe-improper-list133511%_) - (let _%recur133513%_ ((_%rest133515%_ _%maybe-improper-list133511%_)) - (let* ((_%rest133516133527%_ _%rest133515%_) - (_%E133520133531%_ + (lambda (_%proc133669%_ _%maybe-improper-list133670%_) + (let _%recur133672%_ ((_%rest133674%_ _%maybe-improper-list133670%_)) + (let* ((_%rest133675133686%_ _%rest133674%_) + (_%E133679133690%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest133516133527%_ + _%rest133675133686%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K133523133556%_ - (lambda (_%rest133553%_ _%hd133554%_) - (cons (_%proc133510%_ _%hd133554%_) - (_%recur133513%_ _%rest133553%_)))) - (_%K133522133547%_ (lambda () '())) - (_%K133521133537%_ - (lambda (_%tail133535%_) (_%proc133510%_ _%tail133535%_)))) - (let ((_%try-match133518133550%_ + (let ((_%K133682133715%_ + (lambda (_%rest133712%_ _%hd133713%_) + (cons (_%proc133669%_ _%hd133713%_) + (_%recur133672%_ _%rest133712%_)))) + (_%K133681133706%_ (lambda () '())) + (_%K133680133696%_ + (lambda (_%tail133694%_) (_%proc133669%_ _%tail133694%_)))) + (let ((_%try-match133677133709%_ (lambda () - (if (null? _%rest133516133527%_) - (_%K133522133547%_) - (let ((_%tail133540%_ _%rest133516133527%_)) + (if (null? _%rest133675133686%_) + (_%K133681133706%_) + (let ((_%tail133699%_ _%rest133675133686%_)) (declare (not safe)) - (_%proc133510%_ _%tail133540%_)))))) - (if (pair? _%rest133516133527%_) - (let ((_%tl133525133561%_ + (_%proc133669%_ _%tail133699%_)))))) + (if (pair? _%rest133675133686%_) + (let ((_%tl133684133720%_ (let () (declare (not safe)) - (##cdr _%rest133516133527%_))) - (_%hd133524133559%_ + (##cdr _%rest133675133686%_))) + (_%hd133683133718%_ (let () (declare (not safe)) - (##car _%rest133516133527%_)))) - (let ((_%hd133564%_ _%hd133524133559%_) - (_%rest133566%_ _%tl133525133561%_)) - (_%K133523133556%_ _%rest133566%_ _%hd133564%_))) - (_%try-match133518133550%_)))))))) + (##car _%rest133675133686%_)))) + (let ((_%hd133723%_ _%hd133683133718%_) + (_%rest133725%_ _%tl133684133720%_)) + (_%K133682133715%_ _%rest133725%_ _%hd133723%_))) + (_%try-match133677133709%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym133505%_) - (let ((_%$e133507%_ (not (gxc#gensym-reference? _%sym133505%_)))) - (if _%$e133507%_ - _%$e133507%_ - (memq _%sym133505%_ + (lambda (_%sym133664%_) + (let ((_%$e133666%_ (not (gxc#gensym-reference? _%sym133664%_)))) + (if _%$e133666%_ + _%$e133666%_ + (memq _%sym133664%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym133501%_) - (let ((_%str133503%_ (symbol->string _%sym133501%_))) + (lambda (_%sym133660%_) + (let ((_%str133662%_ (symbol->string _%sym133660%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str133503%_)) + (##string-prefix? '"_%" _%str133662%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str133503%_)) + (##string-suffix? '"%_" _%str133662%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id133472%_) - (let ((_%$e133474%_ + (lambda (_%id133631%_) + (let ((_%$e133633%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id133472%_ + _%id133631%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id133472%_)) + (gx#resolve-identifier__0 _%id133631%_)) '#f))) - (if _%$e133474%_ - ((lambda (_%bind133477%_) - (let ((_%eid133479%_ - (##structure-ref _%bind133477%_ '1 gx#binding::t '#f)) - (_%ht133480%_ + (if _%$e133633%_ + ((lambda (_%bind133636%_) + (let ((_%eid133638%_ + (##structure-ref _%bind133636%_ '1 gx#binding::t '#f)) + (_%ht133639%_ (##structure-ref (let () (declare (not safe)) @@ -262,155 +262,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid133479%_)) - _%eid133479%_ - (let ((_%$e133483%_ + (interned-symbol? _%eid133638%_)) + _%eid133638%_ + (let ((_%$e133642%_ (let () (declare (not safe)) - (hash-get _%ht133480%_ _%eid133479%_)))) - (if _%$e133483%_ - _%$e133483%_ + (hash-get _%ht133639%_ _%eid133638%_)))) + (if _%$e133642%_ + _%$e133642%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133477%_ + _%bind133636%_ 'gx#local-binding::t)) - (let ((_%gid133487%_ + (let ((_%gid133646%_ (gxc#generate-runtime-gensym-reference__0 - _%eid133479%_))) + _%eid133638%_))) (let () (declare (not safe)) (hash-put! - _%ht133480%_ - _%eid133479%_ - _%gid133487%_)) - _%gid133487%_) + _%ht133639%_ + _%eid133638%_ + _%gid133646%_)) + _%gid133646%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133477%_ + _%bind133636%_ 'gx#module-binding::t)) - (let ((_%gid133496%_ - (let ((_%$e133490%_ + (let ((_%gid133655%_ + (let ((_%$e133649%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind133477%_ + _%bind133636%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e133490%_ - ((lambda (_%ns133493%_) + (if _%$e133649%_ + ((lambda (_%ns133652%_) (let () (declare (not safe)) (make-symbol__1 - _%ns133493%_ + _%ns133652%_ '"#" - _%eid133479%_))) - _%$e133490%_) + _%eid133638%_))) + _%$e133649%_) (gxc#generate-runtime-gensym-reference__0 - _%eid133479%_))))) + _%eid133638%_))))) (let () (declare (not safe)) (hash-put! - _%ht133480%_ - _%eid133479%_ - _%gid133496%_)) - _%gid133496%_) + _%ht133639%_ + _%eid133638%_ + _%gid133655%_)) + _%gid133655%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id133472%_ - _%eid133479%_ - _%bind133477%_)))))))) - _%$e133474%_) - (if (let ((__tmp133805 + _%id133631%_ + _%eid133638%_ + _%bind133636%_)))))))) + _%$e133633%_) + (if (let ((__tmp133964 (let () (declare (not safe)) - (gx#stx-e _%id133472%_)))) + (gx#stx-e _%id133631%_)))) (declare (not safe)) - (interned-symbol? __tmp133805)) - (let () (declare (not safe)) (gx#stx-e _%id133472%_)) + (interned-symbol? __tmp133964)) + (let () (declare (not safe)) (gx#stx-e _%id133631%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id133472%_)))))) + _%id133631%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id133470%_) - (if (let () (declare (not safe)) (gx#identifier? _%id133470%_)) - (gxc#generate-runtime-binding-id _%id133470%_) + (lambda (_%id133629%_) + (if (let () (declare (not safe)) (gx#identifier? _%id133629%_)) + (gxc#generate-runtime-binding-id _%id133629%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top133457%_) - (if _%top133457%_ - (let ((_%ns133459%_ + (lambda (_%top133616%_) + (if _%top133616%_ + (let ((_%ns133618%_ (##structure-ref - (let ((__tmp133806 + (let ((__tmp133965 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp133806)) + (gx#core-context-top__1 __tmp133965)) '6 gx#module-context::t '#f)) - (_%phi133460%_ + (_%phi133619%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns133459%_ - (if (fxpositive? _%phi133460%_) - (let ((__tmp133808 (number->string _%phi133460%_)) - (__tmp133807 + (if _%ns133618%_ + (if (fxpositive? _%phi133619%_) + (let ((__tmp133967 (number->string _%phi133619%_)) + (__tmp133966 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns133459%_ + _%ns133618%_ '"[" - __tmp133808 + __tmp133967 '"]#_" - __tmp133807 + __tmp133966 '"_")) - (let ((__tmp133809 + (let ((__tmp133968 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns133459%_ '"#_" __tmp133809 '"_"))) - (if (fxpositive? _%phi133460%_) - (let ((__tmp133811 (number->string _%phi133460%_)) - (__tmp133810 + (make-symbol__1 _%ns133618%_ '"#_" __tmp133968 '"_"))) + (if (fxpositive? _%phi133619%_) + (let ((__tmp133970 (number->string _%phi133619%_)) + (__tmp133969 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp133811 + __tmp133970 '"]#_" - __tmp133810 + __tmp133969 '"_")) - (let ((__tmp133812 + (let ((__tmp133971 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp133812 '"_"))))) - (let ((__tmp133813 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp133971 '"_"))))) + (let ((__tmp133972 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp133813 '"_"))))) + (make-symbol__1 '"_" __tmp133972 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top133466%_ '#f)) - (gxc#generate-runtime-temporary__% _%top133466%_)))) + (let ((_%top133625%_ '#f)) + (gxc#generate-runtime-temporary__% _%top133625%_)))) (define gxc#generate-runtime-temporary - (lambda _g133815_ - (let ((_g133814_ (let () (declare (not safe)) (##length _g133815_)))) - (cond ((let () (declare (not safe)) (##fx= _g133814_ 0)) - (apply gxc#generate-runtime-temporary__0 _g133815_)) - ((let () (declare (not safe)) (##fx= _g133814_ 1)) - (apply gxc#generate-runtime-temporary__% _g133815_)) + (lambda _g133974_ + (let ((_g133973_ (let () (declare (not safe)) (##length _g133974_)))) + (cond ((let () (declare (not safe)) (##fx= _g133973_ 0)) + (apply gxc#generate-runtime-temporary__0 _g133974_)) + ((let () (declare (not safe)) (##fx= _g133973_ 1)) + (apply gxc#generate-runtime-temporary__% _g133974_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g133815_)))))) + _g133974_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym133435%_ _%quote?133436%_) - (let* ((_%ht133438%_ + (lambda (_%sym133594%_ _%quote?133595%_) + (let* ((_%ht133597%_ (##structure-ref (let () (declare (not safe)) @@ -418,66 +418,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e133440%_ + (_%$e133599%_ (let () (declare (not safe)) - (hash-get _%ht133438%_ _%sym133435%_)))) - (if _%$e133440%_ - _%$e133440%_ - (let ((_%g133444%_ - (if _%quote?133436%_ - (let ((__tmp133816 + (hash-get _%ht133597%_ _%sym133594%_)))) + (if _%$e133599%_ + _%$e133599%_ + (let ((_%g133603%_ + (if _%quote?133595%_ + (let ((__tmp133975 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym133435%_ + _%sym133594%_ '"__" - __tmp133816)) + __tmp133975)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym133435%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym133594%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht133438%_ _%sym133435%_ _%g133444%_)) - _%g133444%_))))) + (hash-put! _%ht133597%_ _%sym133594%_ _%g133603%_)) + _%g133603%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym133449%_) - (let ((_%quote?133451%_ '#f)) + (lambda (_%sym133608%_) + (let ((_%quote?133610%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym133449%_ - _%quote?133451%_)))) + _%sym133608%_ + _%quote?133610%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g133818_ - (let ((_g133817_ (let () (declare (not safe)) (##length _g133818_)))) - (cond ((let () (declare (not safe)) (##fx= _g133817_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g133818_)) - ((let () (declare (not safe)) (##fx= _g133817_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g133818_)) + (lambda _g133977_ + (let ((_g133976_ (let () (declare (not safe)) (##length _g133977_)))) + (cond ((let () (declare (not safe)) (##fx= _g133976_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g133977_)) + ((let () (declare (not safe)) (##fx= _g133976_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g133977_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g133818_)))))) + _g133977_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1133427%_ _%id2133428%_) - (letrec ((_%symbol-e133430%_ - (lambda (_%id133432%_) - (if (symbol? _%id133432%_) - _%id133432%_ - (gxc#generate-runtime-binding-id _%id133432%_))))) - (eq? (_%symbol-e133430%_ _%id1133427%_) - (_%symbol-e133430%_ _%id2133428%_))))) + (lambda (_%id1133586%_ _%id2133587%_) + (letrec ((_%symbol-e133589%_ + (lambda (_%id133591%_) + (if (symbol? _%id133591%_) + _%id133591%_ + (gxc#generate-runtime-binding-id _%id133591%_))))) + (eq? (_%symbol-e133589%_ _%id1133586%_) + (_%symbol-e133589%_ _%id2133587%_))))) (define gxc#identifier-symbol - (lambda (_%stx133425%_) + (lambda (_%stx133584%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx133425%_ + _%stx133584%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx133425%_) - (let () (declare (not safe)) (gx#stx-e _%stx133425%_))))) + (gxc#generate-runtime-binding-id _%stx133584%_) + (let () (declare (not safe)) (gx#stx-e _%stx133584%_))))) (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 (_%thunk133410%_ _%name133411%_) + (lambda (_%thunk133569%_ _%name133570%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job133413%_ - (gxc#make-compile-job _%thunk133410%_ _%name133411%_))) - (set! gxc#__compile-jobs (cons _%job133413%_ gxc#__compile-jobs))) + (let ((_%job133572%_ + (gxc#make-compile-job _%thunk133569%_ _%name133570%_))) + (set! gxc#__compile-jobs (cons _%job133572%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk133418%_) - (let ((_%name133420%_ + (lambda (_%thunk133577%_) + (let ((_%name133579%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk133418%_ _%name133420%_)))) + (gxc#add-compile-job!__% _%thunk133577%_ _%name133579%_)))) (define gxc#add-compile-job! - (lambda _g133820_ - (let ((_g133819_ (let () (declare (not safe)) (##length _g133820_)))) - (cond ((let () (declare (not safe)) (##fx= _g133819_ 1)) - (apply gxc#add-compile-job!__0 _g133820_)) - ((let () (declare (not safe)) (##fx= _g133819_ 2)) - (apply gxc#add-compile-job!__% _g133820_)) + (lambda _g133979_ + (let ((_g133978_ (let () (declare (not safe)) (##length _g133979_)))) + (cond ((let () (declare (not safe)) (##fx= _g133978_ 1)) + (apply gxc#add-compile-job!__0 _g133979_)) + ((let () (declare (not safe)) (##fx= _g133978_ 2)) + (apply gxc#add-compile-job!__% _g133979_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g133820_)))))) + _g133979_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result133407%_ (reverse! gxc#__compile-jobs))) + (let ((_%result133566%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result133407%_))) + _%result133566%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop133401%_ () - (let ((_%pending133404%_ (gxc#pending-compile-jobs))) - (if (null? _%pending133404%_) + (let _%loop133560%_ () + (let ((_%pending133563%_ (gxc#pending-compile-jobs))) + (if (null? _%pending133563%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending133404%_)) + (##for-each thread-start! _%pending133563%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending133404%_)))))))) + (##for-each gxc#join! _%pending133563%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk133390%_ _%name133391%_) + (lambda (_%thunk133549%_ _%name133550%_) (make-thread (lambda () - (let _%loop133394%_ () + (let _%loop133553%_ () (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 ((__tmp133821 + (let ((__tmp133980 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name133391%_))))) + _%name133550%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp133821)) - (let ((__tmp133823 (lambda () (_%thunk133390%_))) - (__tmp133822 + (__with-lock gxc#__verbose-mutex __tmp133980)) + (let ((__tmp133982 (lambda () (_%thunk133549%_))) + (__tmp133981 (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 __tmp133823 __tmp133822))) + (__with-unwind-protect __tmp133982 __tmp133981))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop133394%_))))) - _%name133391%_))) + (_%loop133553%_))))) + _%name133550%_))) (define gxc#join! - (lambda (_%thread133385%_) - (let ((__tmp133825 - (lambda (_%exn133387%_) + (lambda (_%thread133544%_) + (let ((__tmp133984 + (lambda (_%exn133546%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn133387%_)) - (let ((__tmp133826 + (uncaught-exception? _%exn133546%_)) + (let ((__tmp133985 (let () (declare (not safe)) - (uncaught-exception-reason _%exn133387%_)))) + (uncaught-exception-reason _%exn133546%_)))) (declare (not safe)) - (raise __tmp133826)) - (let () (declare (not safe)) (raise _%exn133387%_))))) - (__tmp133824 (lambda () (thread-join! _%thread133385%_)))) + (raise __tmp133985)) + (let () (declare (not safe)) (raise _%exn133546%_))))) + (__tmp133983 (lambda () (thread-join! _%thread133544%_)))) (declare (not safe)) - (__with-catch __tmp133825 __tmp133824)))))) + (__with-catch __tmp133984 __tmp133983)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index bb22262b2..b66162051 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]#_g133836_| + (define |gxc[1]#_g133995_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133838_| + (define |gxc[1]#_g133997_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133840_| + (define |gxc[1]#_g133999_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133842_| + (define |gxc[1]#_g134001_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133843_| + (define |gxc[1]#_g134002_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133845_| + (define |gxc[1]#_g134004_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133846_| + (define |gxc[1]#_g134005_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133848_| + (define |gxc[1]#_g134007_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133849_| + (define |gxc[1]#_g134008_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133851_| + (define |gxc[1]#_g134010_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133852_| + (define |gxc[1]#_g134011_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx132919%_) + (lambda (_%stx133078%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx132919%_ + _%stx133078%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx132922%_) - (let* ((_%g132925132949%_ - (lambda (_%g132926132945%_) + (lambda (_%stx133081%_) + (let* ((_%g133084133108%_ + (lambda (_%g133085133104%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132926132945%_)))) - (_%g132924133252%_ - (lambda (_%g132926132953%_) + _%g133085133104%_)))) + (_%g133083133411%_ + (lambda (_%g133085133112%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132926132953%_)) - (let ((_%e132929132956%_ + (gx#stx-pair? _%g133085133112%_)) + (let ((_%e133088133115%_ (let () (declare (not safe)) - (gx#syntax-e _%g132926132953%_)))) - (let ((_%hd132930132960%_ + (gx#syntax-e _%g133085133112%_)))) + (let ((_%hd133089133119%_ (let () (declare (not safe)) - (##car _%e132929132956%_))) - (_%tl132931132963%_ + (##car _%e133088133115%_))) + (_%tl133090133122%_ (let () (declare (not safe)) - (##cdr _%e132929132956%_)))) + (##cdr _%e133088133115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132931132963%_)) - (let ((_%e132932132966%_ + (gx#stx-pair? _%tl133090133122%_)) + (let ((_%e133091133125%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132931132963%_)))) - (let ((_%hd132933132970%_ + (gx#syntax-e _%tl133090133122%_)))) + (let ((_%hd133092133129%_ (let () (declare (not safe)) - (##car _%e132932132966%_))) - (_%tl132934132973%_ + (##car _%e133091133125%_))) + (_%tl133093133132%_ (let () (declare (not safe)) - (##cdr _%e132932132966%_)))) + (##cdr _%e133091133125%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132934132973%_)) - (let ((_g133827_ + (gx#stx-pair/null? _%tl133093133132%_)) + (let ((_g133986_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132934132973%_ + _%tl133093133132%_ '0)))) (begin - (let ((_g133828_ + (let ((_g133987_ (let () (declare (not safe)) - (if (##values? _g133827_) + (if (##values? _g133986_) (##vector-length - _g133827_) + _g133986_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133828_ 2))) + (##fx= _g133987_ 2))) (error "Context expects 2 values" - _g133828_))) - (let ((_%target132935132976%_ + _g133987_))) + (let ((_%target133094133135%_ (let () (declare (not safe)) - (##vector-ref _g133827_ 0))) - (_%tl132937132979%_ + (##vector-ref _g133986_ 0))) + (_%tl133096133138%_ (let () (declare (not safe)) (##vector-ref - _g133827_ + _g133986_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132937132979%_)) - (letrec ((_%loop132938132982%_ - (lambda (_%hd132936132986%_ + _%tl133096133138%_)) + (letrec ((_%loop133097133141%_ + (lambda (_%hd133095133145%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause132942132989%_) + _%clause133101133148%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132936132986%_)) - (let ((_%e132939132992%_ + (gx#stx-pair? _%hd133095133145%_)) + (let ((_%e133098133151%_ (let () (declare (not safe)) - (gx#syntax-e _%hd132936132986%_)))) - (let ((_%lp-hd132940132996%_ + (gx#syntax-e _%hd133095133145%_)))) + (let ((_%lp-hd133099133155%_ (let () (declare (not safe)) - (##car _%e132939132992%_))) - (_%lp-tl132941132999%_ + (##car _%e133098133151%_))) + (_%lp-tl133100133158%_ (let () (declare (not safe)) - (##cdr _%e132939132992%_)))) - (_%loop132938132982%_ - _%lp-tl132941132999%_ - (cons _%lp-hd132940132996%_ - _%clause132942132989%_)))) - (let ((_%clause132943133002%_ - (reverse _%clause132942132989%_))) - ((lambda (_%L133006%_ _%L133008%_) + (##cdr _%e133098133151%_)))) + (_%loop133097133141%_ + _%lp-tl133100133158%_ + (cons _%lp-hd133099133155%_ + _%clause133101133148%_)))) + (let ((_%clause133102133161%_ + (reverse _%clause133101133148%_))) + ((lambda (_%L133165%_ _%L133167%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L133008%_)) - (let* ((_%g133027133044%_ - (lambda (_%g133028133040%_) + (gx#identifier-list? _%L133167%_)) + (let* ((_%g133186133203%_ + (lambda (_%g133187133199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133028133040%_)))) - (_%g133026133105%_ - (lambda (_%g133028133048%_) + _%g133187133199%_)))) + (_%g133185133264%_ + (lambda (_%g133187133207%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g133028133048%_)) - (let ((_g133829_ + _%g133187133207%_)) + (let ((_g133988_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g133028133048%_ + _%g133187133207%_ '0)))) (begin - (let ((_g133830_ + (let ((_g133989_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133829_) - (##vector-length _g133829_) + _g133988_) + (##vector-length _g133988_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g133830_ 2))) - (error "Context expects 2 values" _g133830_))) + (##fx= _g133989_ 2))) + (error "Context expects 2 values" _g133989_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133030133051%_ + (let ((_%target133189133210%_ (let () (declare (not safe)) (##vector-ref - _g133829_ + _g133988_ 0))) - (_%tl133032133054%_ + (_%tl133191133213%_ (let () (declare (not safe)) (##vector-ref - _g133829_ + _g133988_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133032133054%_)) - (letrec ((_%loop133033133057%_ + _%tl133191133213%_)) + (letrec ((_%loop133192133216%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133031133061%_ _%clause133037133064%_) + (lambda (_%hd133190133220%_ _%clause133196133223%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133031133061%_)) - (let ((_%e133034133067%_ + (gx#stx-pair? _%hd133190133220%_)) + (let ((_%e133193133226%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133031133061%_)))) - (let ((_%lp-hd133035133071%_ + (gx#syntax-e _%hd133190133220%_)))) + (let ((_%lp-hd133194133230%_ (let () (declare (not safe)) - (##car _%e133034133067%_))) - (_%lp-tl133036133074%_ + (##car _%e133193133226%_))) + (_%lp-tl133195133233%_ (let () (declare (not safe)) - (##cdr _%e133034133067%_)))) - (_%loop133033133057%_ - _%lp-tl133036133074%_ - (cons _%lp-hd133035133071%_ - _%clause133037133064%_)))) - (let ((_%clause133038133077%_ - (reverse _%clause133037133064%_))) - ((lambda (_%L133081%_) + (##cdr _%e133193133226%_)))) + (_%loop133192133216%_ + _%lp-tl133195133233%_ + (cons _%lp-hd133194133230%_ + _%clause133196133223%_)))) + (let ((_%clause133197133236%_ + (reverse _%clause133196133223%_))) + ((lambda (_%L133240%_) (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 _%L133008%_ - (let ((__tmp133831 - (lambda (_%g133096133099%_ - _%g133097133102%_) - (cons _%g133096133099%_ - _%g133097133102%_)))) + (cons _%L133167%_ + (let ((__tmp133990 + (lambda (_%g133255133258%_ + _%g133256133261%_) + (cons _%g133255133258%_ + _%g133256133261%_)))) (declare (not safe)) - (__foldr1 __tmp133831 '() _%L133081%_))))) + (__foldr1 __tmp133990 '() _%L133240%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause133038133077%_)))))) - (_%loop133033133057%_ _%target133030133051%_ '())) - (_%g133027133044%_ _%g133028133048%_))))) + _%clause133197133236%_)))))) + (_%loop133192133216%_ _%target133189133210%_ '())) + (_%g133186133203%_ _%g133187133207%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133027133044%_ - _%g133028133048%_))))) - (_%g133026133105%_ - (let ((__tmp133834 - (lambda (_%clause133109%_) - (let* ((_%__stx133747133748%_ - _%clause133109%_) - (_%g133113133140%_ + (_%g133186133203%_ + _%g133187133207%_))))) + (_%g133185133264%_ + (let ((__tmp133993 + (lambda (_%clause133268%_) + (let* ((_%__stx133906133907%_ + _%clause133268%_) + (_%g133272133299%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx133747133748%_))))) - (let ((_%__kont133750133751%_ - (lambda (_%L133225%_ - _%L133227%_) - (cons _%L133227%_ + _%__stx133906133907%_))))) + (let ((_%__kont133909133910%_ + (lambda (_%L133384%_ + _%L133386%_) + (cons _%L133386%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133225%_ '())) + (cons _%L133384%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont133752133753%_ - (lambda (_%L133177%_ - _%L133179%_ - _%L133180%_) - (cons _%L133180%_ - (cons _%L133179%_ + (_%__kont133911133912%_ + (lambda (_%L133336%_ + _%L133338%_ + _%L133339%_) + (cons _%L133339%_ + (cons _%L133338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133177%_ '())) + (cons _%L133336%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx133747133748%_)) - (let ((_%e133117133205%_ + _%__stx133906133907%_)) + (let ((_%e133276133364%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx133747133748%_)))) - (let ((_%tl133119133212%_ + _%__stx133906133907%_)))) + (let ((_%tl133278133371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133117133205%_))) - (_%hd133118133209%_ - (let () (declare (not safe)) (##car _%e133117133205%_)))) + (##cdr _%e133276133364%_))) + (_%hd133277133368%_ + (let () (declare (not safe)) (##car _%e133276133364%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133119133212%_)) - (let ((_%e133120133215%_ + (gx#stx-pair? _%tl133278133371%_)) + (let ((_%e133279133374%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133119133212%_)))) - (let ((_%tl133122133222%_ + (gx#syntax-e _%tl133278133371%_)))) + (let ((_%tl133281133381%_ (let () (declare (not safe)) - (##cdr _%e133120133215%_))) - (_%hd133121133219%_ + (##cdr _%e133279133374%_))) + (_%hd133280133378%_ (let () (declare (not safe)) - (##car _%e133120133215%_)))) + (##car _%e133279133374%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133122133222%_)) - (_%__kont133750133751%_ - _%hd133121133219%_ - _%hd133118133209%_) + (gx#stx-null? _%tl133281133381%_)) + (_%__kont133909133910%_ + _%hd133280133378%_ + _%hd133277133368%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133122133222%_)) - (let ((_%e133132133167%_ + (gx#stx-pair? _%tl133281133381%_)) + (let ((_%e133291133326%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133122133222%_)))) - (let ((_%tl133134133174%_ + (gx#syntax-e _%tl133281133381%_)))) + (let ((_%tl133293133333%_ (let () (declare (not safe)) - (##cdr _%e133132133167%_))) - (_%hd133133133171%_ + (##cdr _%e133291133326%_))) + (_%hd133292133330%_ (let () (declare (not safe)) - (##car _%e133132133167%_)))) + (##car _%e133291133326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133134133174%_)) - (_%__kont133752133753%_ - _%hd133133133171%_ - _%hd133121133219%_ - _%hd133118133209%_) + (gx#stx-null? _%tl133293133333%_)) + (_%__kont133911133912%_ + _%hd133292133330%_ + _%hd133280133378%_ + _%hd133277133368%_) (let () (declare (not safe)) - (_%g133113133140%_))))) + (_%g133272133299%_))))) (let () (declare (not safe)) - (_%g133113133140%_)))))) - (let () (declare (not safe)) (_%g133113133140%_))))) + (_%g133272133299%_)))))) + (let () (declare (not safe)) (_%g133272133299%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133113133140%_))))))) - (__tmp133832 - (let ((__tmp133833 - (lambda (_%g133243133246%_ - _%g133244133249%_) - (cons _%g133243133246%_ - _%g133244133249%_)))) + (_%g133272133299%_))))))) + (__tmp133991 + (let ((__tmp133992 + (lambda (_%g133402133405%_ + _%g133403133408%_) + (cons _%g133402133405%_ + _%g133403133408%_)))) (declare (not safe)) (__foldr1 - __tmp133833 + __tmp133992 '() - _%L133006%_)))) + _%L133165%_)))) (declare (not safe)) - (gx#stx-map1 __tmp133834 __tmp133832)))) - (_%g132925132949%_ _%g132926132953%_))) - _%clause132943133002%_ - _%hd132933132970%_)))))) + (gx#stx-map1 __tmp133993 __tmp133991)))) + (_%g133084133108%_ _%g133085133112%_))) + _%clause133102133161%_ + _%hd133092133129%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop132938132982%_ - _%target132935132976%_ + (_%loop133097133141%_ + _%target133094133135%_ '())) - (_%g132925132949%_ - _%g132926132953%_))))) - (_%g132925132949%_ _%g132926132953%_)))) - (_%g132925132949%_ _%g132926132953%_)))) - (_%g132925132949%_ _%g132926132953%_))))) - (_%g132924133252%_ _%stx132922%_)))) + (_%g133084133108%_ + _%g133085133112%_))))) + (_%g133084133108%_ _%g133085133112%_)))) + (_%g133084133108%_ _%g133085133112%_)))) + (_%g133084133108%_ _%g133085133112%_))))) + (_%g133083133411%_ _%stx133081%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj133797 + (let ((__obj133956 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133797 + __obj133956 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj133956 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj133797 + __obj133956 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133797 + __obj133956 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133956 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133956 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133956 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133956 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 ':init! '11 '#f '#f)) - (let ((__tmp133835 |gxc[1]#_g133836_|)) + (##unchecked-structure-set! __obj133956 ':init! '11 '#f '#f)) + (let ((__tmp133994 |gxc[1]#_g133995_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133835 '12 '#f '#f)) - (let ((__tmp133837 |gxc[1]#_g133838_|)) + (##unchecked-structure-set! __obj133956 __tmp133994 '12 '#f '#f)) + (let ((__tmp133996 |gxc[1]#_g133997_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133837 '13 '#f '#f)) - (let ((__tmp133839 |gxc[1]#_g133840_|)) + (##unchecked-structure-set! __obj133956 __tmp133996 '13 '#f '#f)) + (let ((__tmp133998 |gxc[1]#_g133999_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133839 '14 '#f '#f)) - (let ((__tmp133841 - (cons (cons 'gensyms |gxc[1]#_g133842_|) - (cons (cons 'bindings |gxc[1]#_g133843_|) '())))) + (##unchecked-structure-set! __obj133956 __tmp133998 '14 '#f '#f)) + (let ((__tmp134000 + (cons (cons 'gensyms |gxc[1]#_g134001_|) + (cons (cons 'bindings |gxc[1]#_g134002_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133841 '15 '#f '#f)) - (let ((__tmp133844 - (cons (cons 'gensyms |gxc[1]#_g133845_|) - (cons (cons 'bindings |gxc[1]#_g133846_|) '())))) + (##unchecked-structure-set! __obj133956 __tmp134000 '15 '#f '#f)) + (let ((__tmp134003 + (cons (cons 'gensyms |gxc[1]#_g134004_|) + (cons (cons 'bindings |gxc[1]#_g134005_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133844 '16 '#f '#f)) - (let ((__tmp133847 - (cons (cons 'gensyms |gxc[1]#_g133848_|) - (cons (cons 'bindings |gxc[1]#_g133849_|) '())))) + (##unchecked-structure-set! __obj133956 __tmp134003 '16 '#f '#f)) + (let ((__tmp134006 + (cons (cons 'gensyms |gxc[1]#_g134007_|) + (cons (cons 'bindings |gxc[1]#_g134008_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133847 '17 '#f '#f)) - (let ((__tmp133850 - (cons (cons 'gensyms |gxc[1]#_g133851_|) - (cons (cons 'bindings |gxc[1]#_g133852_|) '())))) + (##unchecked-structure-set! __obj133956 __tmp134006 '17 '#f '#f)) + (let ((__tmp134009 + (cons (cons 'gensyms |gxc[1]#_g134010_|) + (cons (cons 'bindings |gxc[1]#_g134011_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133850 '18 '#f '#f)) + (##unchecked-structure-set! __obj133956 __tmp134009 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133956 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133956 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '20 '#f '#f)) - __obj133797)) + (##unchecked-structure-set! __obj133956 '() '20 '#f '#f)) + __obj133956)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx133259%_) - (let* ((_%g133263133277%_ - (lambda (_%g133264133273%_) + (lambda (_%$stx133418%_) + (let* ((_%g133422133436%_ + (lambda (_%g133423133432%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133264133273%_)))) - (_%g133262133318%_ - (lambda (_%g133264133281%_) + _%g133423133432%_)))) + (_%g133421133477%_ + (lambda (_%g133423133440%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133264133281%_)) - (let ((_%e133266133284%_ + (gx#stx-pair? _%g133423133440%_)) + (let ((_%e133425133443%_ (let () (declare (not safe)) - (gx#syntax-e _%g133264133281%_)))) - (let ((_%hd133267133288%_ + (gx#syntax-e _%g133423133440%_)))) + (let ((_%hd133426133447%_ (let () (declare (not safe)) - (##car _%e133266133284%_))) - (_%tl133268133291%_ + (##car _%e133425133443%_))) + (_%tl133427133450%_ (let () (declare (not safe)) - (##cdr _%e133266133284%_)))) + (##cdr _%e133425133443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133268133291%_)) - (let ((_%e133269133294%_ + (gx#stx-pair? _%tl133427133450%_)) + (let ((_%e133428133453%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133268133291%_)))) - (let ((_%hd133270133298%_ + (gx#syntax-e _%tl133427133450%_)))) + (let ((_%hd133429133457%_ (let () (declare (not safe)) - (##car _%e133269133294%_))) - (_%tl133271133301%_ + (##car _%e133428133453%_))) + (_%tl133430133460%_ (let () (declare (not safe)) - (##cdr _%e133269133294%_)))) + (##cdr _%e133428133453%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133271133301%_)) - ((lambda (_%L133304%_) + (gx#stx-null? _%tl133430133460%_)) + ((lambda (_%L133463%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +613,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L133304%_ '()))) + (cons '() (cons _%L133463%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133270133298%_) - (_%g133263133277%_ _%g133264133281%_)))) - (_%g133263133277%_ _%g133264133281%_)))) - (_%g133263133277%_ _%g133264133281%_))))) - (_%g133262133318%_ _%$stx133259%_)))) + _%hd133429133457%_) + (_%g133422133436%_ _%g133423133440%_)))) + (_%g133422133436%_ _%g133423133440%_)))) + (_%g133422133436%_ _%g133423133440%_))))) + (_%g133421133477%_ _%$stx133418%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx133322%_) - (let* ((_%g133326133340%_ - (lambda (_%g133327133336%_) + (lambda (_%$stx133481%_) + (let* ((_%g133485133499%_ + (lambda (_%g133486133495%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133327133336%_)))) - (_%g133325133381%_ - (lambda (_%g133327133344%_) + _%g133486133495%_)))) + (_%g133484133540%_ + (lambda (_%g133486133503%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133327133344%_)) - (let ((_%e133329133347%_ + (gx#stx-pair? _%g133486133503%_)) + (let ((_%e133488133506%_ (let () (declare (not safe)) - (gx#syntax-e _%g133327133344%_)))) - (let ((_%hd133330133351%_ + (gx#syntax-e _%g133486133503%_)))) + (let ((_%hd133489133510%_ (let () (declare (not safe)) - (##car _%e133329133347%_))) - (_%tl133331133354%_ + (##car _%e133488133506%_))) + (_%tl133490133513%_ (let () (declare (not safe)) - (##cdr _%e133329133347%_)))) + (##cdr _%e133488133506%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133331133354%_)) - (let ((_%e133332133357%_ + (gx#stx-pair? _%tl133490133513%_)) + (let ((_%e133491133516%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133331133354%_)))) - (let ((_%hd133333133361%_ + (gx#syntax-e _%tl133490133513%_)))) + (let ((_%hd133492133520%_ (let () (declare (not safe)) - (##car _%e133332133357%_))) - (_%tl133334133364%_ + (##car _%e133491133516%_))) + (_%tl133493133523%_ (let () (declare (not safe)) - (##cdr _%e133332133357%_)))) + (##cdr _%e133491133516%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133334133364%_)) - ((lambda (_%L133367%_) + (gx#stx-null? _%tl133493133523%_)) + ((lambda (_%L133526%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L133367%_ '()))) + (cons _%L133526%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd133333133361%_) - (_%g133326133340%_ _%g133327133344%_)))) - (_%g133326133340%_ _%g133327133344%_)))) - (_%g133326133340%_ _%g133327133344%_))))) - (_%g133325133381%_ _%$stx133322%_)))))) + _%hd133492133520%_) + (_%g133485133499%_ _%g133486133503%_)))) + (_%g133485133499%_ _%g133486133503%_)))) + (_%g133485133499%_ _%g133486133503%_))))) + (_%g133484133540%_ _%$stx133481%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index f8dc0adb2..aceb9720b 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 1713631267) + (define gerbil/compiler/compile::timestamp 1733687560) (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-e147469%_ - (lambda (_%id147471%_) + (letrec ((_%hash-e147628%_ + (lambda (_%id147630%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id147471%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id147630%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e147469%_ + _%hash-e147628%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp148856 (list gxc#::void::t)) - (__tmp148855 (cons (cons 'final: '#t) '()))) + (let ((__tmp149015 (list gxc#::void::t)) + (__tmp149014 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp148856 + __tmp149015 '() - __tmp148855 + __tmp149014 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args147465%_ - (apply make-instance gxc#::collect-bindings::t _%$args147465%_))) + (lambda _%$args147624%_ + (apply make-instance gxc#::collect-bindings::t _%$args147624%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp148857 + (let ((__tmp149016 (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 __tmp148857))) + (__make-promise __tmp149016))) (define gxc#apply-collect-bindings - (lambda (_%stx147457%_) + (lambda (_%stx147616%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self147460%_ - (let ((__obj148831 + (let* ((_%self147619%_ + (let ((__obj148990 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj148831)) - (__tmp148858 + __obj148990)) + (__tmp149017 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147460%_ _%stx147457%_))))) + (gxc#compile-e__1 _%self147619%_ _%stx147616%_))))) (declare (not safe)) (__call-with-parameters - __tmp148858 + __tmp149017 gxc#current-compile-method - _%self147460%_)))) + _%self147619%_)))) (define gxc#::lift-modules::t - (let ((__tmp148860 (list gxc#::void::t)) - (__tmp148859 (cons (cons 'final: '#t) '()))) + (let ((__tmp149019 (list gxc#::void::t)) + (__tmp149018 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp148860 + __tmp149019 '(modules) - __tmp148859 + __tmp149018 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args147454%_ - (apply make-instance gxc#::lift-modules::t _%$args147454%_))) + (lambda _%$args147613%_ + (apply make-instance gxc#::lift-modules::t _%$args147613%_))) (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 ((__tmp148861 + (let ((__tmp149020 (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 __tmp148861))) + (__make-promise __tmp149020))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords147428%_ _%modules147425147429%_ _%stx147431%_) - (let ((_%modules147434%_ - (if (eq? _%modules147425147429%_ absent-value) + (lambda (_%@@keywords147587%_ _%modules147584147588%_ _%stx147590%_) + (let ((_%modules147593%_ + (if (eq? _%modules147584147588%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules147425147429%_))) + _%modules147584147588%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self147436%_ - (let ((__obj148833 + (let* ((_%self147595%_ + (let ((__obj148992 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148833 - _%modules147434%_ + __obj148992 + _%modules147593%_ '1 '#f '#f)) - __obj148833)) - (__tmp148862 + __obj148992)) + (__tmp149021 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147436%_ _%stx147431%_))))) + (gxc#compile-e__1 _%self147595%_ _%stx147590%_))))) (declare (not safe)) (__call-with-parameters - __tmp148862 + __tmp149021 gxc#current-compile-method - _%self147436%_))))) + _%self147595%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords147443%_ . _%args147444%_) + (lambda (_%@@keywords147602%_ . _%args147603%_) (apply gxc#apply-lift-modules__% - _%@@keywords147443%_ + _%@@keywords147602%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147443%_ + _%@@keywords147602%_ 'modules: absent-value)) - _%args147444%_))) + _%args147603%_))) (define gxc#apply-lift-modules - (lambda _%args147426147450%_ + (lambda _%args147585147609%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args147426147450%_))) + _%args147585147609%_))) (define gxc#::find-runtime-code::t - (let ((__tmp148864 (list)) (__tmp148863 (cons (cons 'final: '#t) '()))) + (let ((__tmp149023 (list)) (__tmp149022 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp148864 + __tmp149023 '() - __tmp148863 + __tmp149022 '#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 _%$args147421%_ - (apply make-instance gxc#::find-runtime-code::t _%$args147421%_))) + (lambda _%$args147580%_ + (apply make-instance gxc#::find-runtime-code::t _%$args147580%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp148865 + (let ((__tmp149024 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp148865))) + (__make-promise __tmp149024))) (define gxc#apply-find-runtime-code - (lambda (_%stx147413%_) + (lambda (_%stx147572%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self147416%_ - (let ((__obj148835 + (let* ((_%self147575%_ + (let ((__obj148994 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj148835)) - (__tmp148866 + __obj148994)) + (__tmp149025 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147416%_ _%stx147413%_))))) + (gxc#compile-e__1 _%self147575%_ _%stx147572%_))))) (declare (not safe)) (__call-with-parameters - __tmp148866 + __tmp149025 gxc#current-compile-method - _%self147416%_)))) + _%self147575%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp148868 (list gxc#::false::t)) - (__tmp148867 (cons (cons 'final: '#t) '()))) + (let ((__tmp149027 (list gxc#::false::t)) + (__tmp149026 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp148868 + __tmp149027 '() - __tmp148867 + __tmp149026 '#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 _%$args147410%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args147410%_))) + (lambda _%$args147569%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args147569%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp148869 + (let ((__tmp149028 (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 __tmp148869))) + (__make-promise __tmp149028))) (define gxc#apply-find-lambda-expression - (lambda (_%stx147402%_) + (lambda (_%stx147561%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self147405%_ - (let ((__obj148837 + (let* ((_%self147564%_ + (let ((__obj148996 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj148837)) - (__tmp148870 + __obj148996)) + (__tmp149029 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147405%_ _%stx147402%_))))) + (gxc#compile-e__1 _%self147564%_ _%stx147561%_))))) (declare (not safe)) (__call-with-parameters - __tmp148870 + __tmp149029 gxc#current-compile-method - _%self147405%_)))) + _%self147564%_)))) (define gxc#::count-values::t - (let ((__tmp148872 (list gxc#::false-expression::t)) - (__tmp148871 (cons (cons 'final: '#t) '()))) + (let ((__tmp149031 (list gxc#::false-expression::t)) + (__tmp149030 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp148872 + __tmp149031 '() - __tmp148871 + __tmp149030 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args147399%_ - (apply make-instance gxc#::count-values::t _%$args147399%_))) + (lambda _%$args147558%_ + (apply make-instance gxc#::count-values::t _%$args147558%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp148873 + (let ((__tmp149032 (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 __tmp148873))) + (__make-promise __tmp149032))) (define gxc#apply-count-values - (lambda (_%stx147391%_) + (lambda (_%stx147550%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self147394%_ - (let ((__obj148839 + (let* ((_%self147553%_ + (let ((__obj148998 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj148839)) - (__tmp148874 + __obj148998)) + (__tmp149033 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147394%_ _%stx147391%_))))) + (gxc#compile-e__1 _%self147553%_ _%stx147550%_))))) (declare (not safe)) (__call-with-parameters - __tmp148874 + __tmp149033 gxc#current-compile-method - _%self147394%_)))) + _%self147553%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp148875 (list))) + (let ((__tmp149034 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp148875 + __tmp149034 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args147388%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args147388%_))) + (lambda _%$args147547%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args147547%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp148876 + (let ((__tmp149035 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp148876))) + (__make-promise __tmp149035))) (define gxc#::generate-loader::t - (let ((__tmp148878 (list gxc#::generate-runtime-empty::t)) - (__tmp148877 (cons (cons 'final: '#t) '()))) + (let ((__tmp149037 (list gxc#::generate-runtime-empty::t)) + (__tmp149036 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp148878 + __tmp149037 '() - __tmp148877 + __tmp149036 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args147384%_ - (apply make-instance gxc#::generate-loader::t _%$args147384%_))) + (lambda _%$args147543%_ + (apply make-instance gxc#::generate-loader::t _%$args147543%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp148879 + (let ((__tmp149038 (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 __tmp148879))) + (__make-promise __tmp149038))) (define gxc#apply-generate-loader - (lambda (_%stx147376%_) + (lambda (_%stx147535%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self147379%_ - (let ((__obj148842 + (let* ((_%self147538%_ + (let ((__obj149001 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj148842)) - (__tmp148880 + __obj149001)) + (__tmp149039 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147379%_ _%stx147376%_))))) + (gxc#compile-e__1 _%self147538%_ _%stx147535%_))))) (declare (not safe)) (__call-with-parameters - __tmp148880 + __tmp149039 gxc#current-compile-method - _%self147379%_)))) + _%self147538%_)))) (define gxc#::generate-runtime::t - (let ((__tmp148881 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp149040 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp148881 + __tmp149040 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args147373%_ - (apply make-instance gxc#::generate-runtime::t _%$args147373%_))) + (lambda _%$args147532%_ + (apply make-instance gxc#::generate-runtime::t _%$args147532%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp148882 + (let ((__tmp149041 (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 __tmp148882))) + (__make-promise __tmp149041))) (define gxc#apply-generate-runtime - (lambda (_%stx147365%_) + (lambda (_%stx147524%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self147368%_ - (let ((__obj148844 + (let* ((_%self147527%_ + (let ((__obj149003 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj148844)) - (__tmp148883 + __obj149003)) + (__tmp149042 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147368%_ _%stx147365%_))))) + (gxc#compile-e__1 _%self147527%_ _%stx147524%_))))) (declare (not safe)) (__call-with-parameters - __tmp148883 + __tmp149042 gxc#current-compile-method - _%self147368%_)))) + _%self147527%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp148885 (list gxc#::generate-runtime::t)) - (__tmp148884 (cons (cons 'final: '#t) '()))) + (let ((__tmp149044 (list gxc#::generate-runtime::t)) + (__tmp149043 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp148885 + __tmp149044 '() - __tmp148884 + __tmp149043 '#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 _%$args147362%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args147362%_))) + (lambda _%$args147521%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args147521%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp148886 + (let ((__tmp149045 (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 __tmp148886))) + (__make-promise __tmp149045))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx147354%_) + (lambda (_%stx147513%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self147357%_ - (let ((__obj148846 + (let* ((_%self147516%_ + (let ((__obj149005 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj148846)) - (__tmp148887 + __obj149005)) + (__tmp149046 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147357%_ _%stx147354%_))))) + (gxc#compile-e__1 _%self147516%_ _%stx147513%_))))) (declare (not safe)) (__call-with-parameters - __tmp148887 + __tmp149046 gxc#current-compile-method - _%self147357%_)))) + _%self147516%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp148888 (list))) + (let ((__tmp149047 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp148888 + __tmp149047 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args147351%_ + (lambda _%$args147510%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args147351%_))) + _%$args147510%_))) (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 ((__tmp148889 + (let ((__tmp149048 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp148889))) + (__make-promise __tmp149048))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords147325%_ _%table147322147326%_ _%stx147328%_) - (let ((_%table147331%_ - (if (eq? _%table147322147326%_ absent-value) + (lambda (_%@@keywords147484%_ _%table147481147485%_ _%stx147487%_) + (let ((_%table147490%_ + (if (eq? _%table147481147485%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table147322147326%_))) + _%table147481147485%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self147333%_ - (let ((__obj148848 + (let* ((_%self147492%_ + (let ((__obj149007 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148848 - _%table147331%_ + __obj149007 + _%table147490%_ '1 '#f '#f)) - __obj148848)) - (__tmp148890 + __obj149007)) + (__tmp149049 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147333%_ _%stx147328%_))))) + (gxc#compile-e__1 _%self147492%_ _%stx147487%_))))) (declare (not safe)) (__call-with-parameters - __tmp148890 + __tmp149049 gxc#current-compile-method - _%self147333%_))))) + _%self147492%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords147340%_ . _%args147341%_) + (lambda (_%@@keywords147499%_ . _%args147500%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords147340%_ + _%@@keywords147499%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147340%_ + _%@@keywords147499%_ 'table: absent-value)) - _%args147341%_))) + _%args147500%_))) (define gxc#apply-collect-expression-refs - (lambda _%args147323147347%_ + (lambda _%args147482147506%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args147323147347%_))) + _%args147482147506%_))) (define gxc#::generate-meta::t - (let ((__tmp148892 (list gxc#::void-expression::t)) - (__tmp148891 (cons (cons 'final: '#t) '()))) + (let ((__tmp149051 (list gxc#::void-expression::t)) + (__tmp149050 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp148892 + __tmp149051 '(state) - __tmp148891 + __tmp149050 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args147318%_ - (apply make-instance gxc#::generate-meta::t _%$args147318%_))) + (lambda _%$args147477%_ + (apply make-instance gxc#::generate-meta::t _%$args147477%_))) (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 ((__tmp148893 + (let ((__tmp149052 (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 __tmp148893))) + (__make-promise __tmp149052))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords147292%_ _%state147289147293%_ _%stx147295%_) - (let ((_%state147298%_ - (if (eq? _%state147289147293%_ absent-value) + (lambda (_%@@keywords147451%_ _%state147448147452%_ _%stx147454%_) + (let ((_%state147457%_ + (if (eq? _%state147448147452%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147289147293%_))) + _%state147448147452%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self147300%_ - (let ((__obj148850 + (let* ((_%self147459%_ + (let ((__obj149009 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148850 - _%state147298%_ + __obj149009 + _%state147457%_ '1 '#f '#f)) - __obj148850)) - (__tmp148894 + __obj149009)) + (__tmp149053 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147300%_ _%stx147295%_))))) + (gxc#compile-e__1 _%self147459%_ _%stx147454%_))))) (declare (not safe)) (__call-with-parameters - __tmp148894 + __tmp149053 gxc#current-compile-method - _%self147300%_))))) + _%self147459%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords147307%_ . _%args147308%_) + (lambda (_%@@keywords147466%_ . _%args147467%_) (apply gxc#apply-generate-meta__% - _%@@keywords147307%_ + _%@@keywords147466%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147307%_ + _%@@keywords147466%_ 'state: absent-value)) - _%args147308%_))) + _%args147467%_))) (define gxc#apply-generate-meta - (lambda _%args147290147314%_ + (lambda _%args147449147473%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args147290147314%_))) + _%args147449147473%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp148896 (list)) (__tmp148895 (cons (cons 'final: '#t) '()))) + (let ((__tmp149055 (list)) (__tmp149054 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp148896 + __tmp149055 '(state) - __tmp148895 + __tmp149054 '#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 _%$args147285%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args147285%_))) + (lambda _%$args147444%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args147444%_))) (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 ((__tmp148897 + (let ((__tmp149056 (lambda () (let () (declare (not safe)) @@ -1794,341 +1794,341 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp148897))) + (__make-promise __tmp149056))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords147259%_ _%state147256147260%_ _%stx147262%_) - (let ((_%state147265%_ - (if (eq? _%state147256147260%_ absent-value) + (lambda (_%@@keywords147418%_ _%state147415147419%_ _%stx147421%_) + (let ((_%state147424%_ + (if (eq? _%state147415147419%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147256147260%_))) + _%state147415147419%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self147267%_ - (let ((__obj148852 + (let* ((_%self147426%_ + (let ((__obj149011 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148852 - _%state147265%_ + __obj149011 + _%state147424%_ '1 '#f '#f)) - __obj148852)) - (__tmp148898 + __obj149011)) + (__tmp149057 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147267%_ _%stx147262%_))))) + (gxc#compile-e__1 _%self147426%_ _%stx147421%_))))) (declare (not safe)) (__call-with-parameters - __tmp148898 + __tmp149057 gxc#current-compile-method - _%self147267%_))))) + _%self147426%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords147274%_ . _%args147275%_) + (lambda (_%@@keywords147433%_ . _%args147434%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords147274%_ + _%@@keywords147433%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147274%_ + _%@@keywords147433%_ 'state: absent-value)) - _%args147275%_))) + _%args147434%_))) (define gxc#apply-generate-meta-phi - (lambda _%args147257147281%_ + (lambda _%args147416147440%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args147257147281%_))) + _%args147416147440%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self147185%_ _%stx147186%_) - (let* ((_%g147188147205%_ - (lambda (_%g147189147202%_) + (lambda (_%self147344%_ _%stx147345%_) + (let* ((_%g147347147364%_ + (lambda (_%g147348147361%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147189147202%_)))) - (_%g147187147252%_ - (lambda (_%g147189147208%_) + _%g147348147361%_)))) + (_%g147346147411%_ + (lambda (_%g147348147367%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147189147208%_)) - (let ((_%e147192147210%_ + (gx#stx-pair? _%g147348147367%_)) + (let ((_%e147351147369%_ (let () (declare (not safe)) - (gx#stx-e _%g147189147208%_)))) - (let ((_%hd147193147213%_ + (gx#stx-e _%g147348147367%_)))) + (let ((_%hd147352147372%_ (let () (declare (not safe)) - (##car _%e147192147210%_))) - (_%tl147194147215%_ + (##car _%e147351147369%_))) + (_%tl147353147374%_ (let () (declare (not safe)) - (##cdr _%e147192147210%_)))) + (##cdr _%e147351147369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147194147215%_)) - (let ((_%e147195147218%_ + (gx#stx-pair? _%tl147353147374%_)) + (let ((_%e147354147377%_ (let () (declare (not safe)) - (gx#stx-e _%tl147194147215%_)))) - (let ((_%hd147196147221%_ + (gx#stx-e _%tl147353147374%_)))) + (let ((_%hd147355147380%_ (let () (declare (not safe)) - (##car _%e147195147218%_))) - (_%tl147197147223%_ + (##car _%e147354147377%_))) + (_%tl147356147382%_ (let () (declare (not safe)) - (##cdr _%e147195147218%_)))) + (##cdr _%e147354147377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147197147223%_)) - (let ((_%e147198147226%_ + (gx#stx-pair? _%tl147356147382%_)) + (let ((_%e147357147385%_ (let () (declare (not safe)) - (gx#stx-e _%tl147197147223%_)))) - (let ((_%hd147199147229%_ + (gx#stx-e _%tl147356147382%_)))) + (let ((_%hd147358147388%_ (let () (declare (not safe)) - (##car _%e147198147226%_))) - (_%tl147200147231%_ + (##car _%e147357147385%_))) + (_%tl147359147390%_ (let () (declare (not safe)) - (##cdr _%e147198147226%_)))) + (##cdr _%e147357147385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147200147231%_)) - ((lambda (_%L147234%_ - _%L147235%_) - (let ((__tmp148899 - (lambda (_%bind147250%_) + _%tl147359147390%_)) + ((lambda (_%L147393%_ + _%L147394%_) + (let ((__tmp149058 + (lambda (_%bind147409%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind147250%_)) - (gxc#add-module-binding! _%bind147250%_ '#f) + (gx#identifier? _%bind147409%_)) + (gxc#add-module-binding! _%bind147409%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp148899 - _%L147235%_))) - _%hd147199147229%_ - _%hd147196147221%_) - (_%g147188147205%_ - _%g147189147208%_)))) - (_%g147188147205%_ _%g147189147208%_)))) - (_%g147188147205%_ _%g147189147208%_)))) - (_%g147188147205%_ _%g147189147208%_))))) - (_%g147187147252%_ _%stx147186%_)))) + __tmp149058 + _%L147394%_))) + _%hd147358147388%_ + _%hd147355147380%_) + (_%g147347147364%_ + _%g147348147367%_)))) + (_%g147347147364%_ _%g147348147367%_)))) + (_%g147347147364%_ _%g147348147367%_)))) + (_%g147347147364%_ _%g147348147367%_))))) + (_%g147346147411%_ _%stx147345%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self147117%_ _%stx147118%_) - (let* ((_%g147120147137%_ - (lambda (_%g147121147134%_) + (lambda (_%self147276%_ _%stx147277%_) + (let* ((_%g147279147296%_ + (lambda (_%g147280147293%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147121147134%_)))) - (_%g147119147182%_ - (lambda (_%g147121147140%_) + _%g147280147293%_)))) + (_%g147278147341%_ + (lambda (_%g147280147299%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147121147140%_)) - (let ((_%e147124147142%_ + (gx#stx-pair? _%g147280147299%_)) + (let ((_%e147283147301%_ (let () (declare (not safe)) - (gx#stx-e _%g147121147140%_)))) - (let ((_%hd147125147145%_ + (gx#stx-e _%g147280147299%_)))) + (let ((_%hd147284147304%_ (let () (declare (not safe)) - (##car _%e147124147142%_))) - (_%tl147126147147%_ + (##car _%e147283147301%_))) + (_%tl147285147306%_ (let () (declare (not safe)) - (##cdr _%e147124147142%_)))) + (##cdr _%e147283147301%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147126147147%_)) - (let ((_%e147127147150%_ + (gx#stx-pair? _%tl147285147306%_)) + (let ((_%e147286147309%_ (let () (declare (not safe)) - (gx#stx-e _%tl147126147147%_)))) - (let ((_%hd147128147153%_ + (gx#stx-e _%tl147285147306%_)))) + (let ((_%hd147287147312%_ (let () (declare (not safe)) - (##car _%e147127147150%_))) - (_%tl147129147155%_ + (##car _%e147286147309%_))) + (_%tl147288147314%_ (let () (declare (not safe)) - (##cdr _%e147127147150%_)))) + (##cdr _%e147286147309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147129147155%_)) - (let ((_%e147130147158%_ + (gx#stx-pair? _%tl147288147314%_)) + (let ((_%e147289147317%_ (let () (declare (not safe)) - (gx#stx-e _%tl147129147155%_)))) - (let ((_%hd147131147161%_ + (gx#stx-e _%tl147288147314%_)))) + (let ((_%hd147290147320%_ (let () (declare (not safe)) - (##car _%e147130147158%_))) - (_%tl147132147163%_ + (##car _%e147289147317%_))) + (_%tl147291147322%_ (let () (declare (not safe)) - (##cdr _%e147130147158%_)))) + (##cdr _%e147289147317%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147132147163%_)) - ((lambda (_%L147166%_ - _%L147167%_) + _%tl147291147322%_)) + ((lambda (_%L147325%_ + _%L147326%_) (gxc#add-module-binding! - _%L147167%_ + _%L147326%_ '#t)) - _%hd147131147161%_ - _%hd147128147153%_) - (_%g147120147137%_ - _%g147121147140%_)))) - (_%g147120147137%_ _%g147121147140%_)))) - (_%g147120147137%_ _%g147121147140%_)))) - (_%g147120147137%_ _%g147121147140%_))))) - (_%g147119147182%_ _%stx147118%_)))) + _%hd147290147320%_ + _%hd147287147312%_) + (_%g147279147296%_ + _%g147280147299%_)))) + (_%g147279147296%_ _%g147280147299%_)))) + (_%g147279147296%_ _%g147280147299%_)))) + (_%g147279147296%_ _%g147280147299%_))))) + (_%g147278147341%_ _%stx147277%_)))) (define gxc#lift-modules-module% - (lambda (_%self147059%_ _%stx147060%_) - (let* ((_%g147062147076%_ - (lambda (_%g147063147073%_) + (lambda (_%self147218%_ _%stx147219%_) + (let* ((_%g147221147235%_ + (lambda (_%g147222147232%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147063147073%_)))) - (_%g147061147114%_ - (lambda (_%g147063147079%_) + _%g147222147232%_)))) + (_%g147220147273%_ + (lambda (_%g147222147238%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147063147079%_)) - (let ((_%e147066147081%_ + (gx#stx-pair? _%g147222147238%_)) + (let ((_%e147225147240%_ (let () (declare (not safe)) - (gx#stx-e _%g147063147079%_)))) - (let ((_%hd147067147084%_ + (gx#stx-e _%g147222147238%_)))) + (let ((_%hd147226147243%_ (let () (declare (not safe)) - (##car _%e147066147081%_))) - (_%tl147068147086%_ + (##car _%e147225147240%_))) + (_%tl147227147245%_ (let () (declare (not safe)) - (##cdr _%e147066147081%_)))) + (##cdr _%e147225147240%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147068147086%_)) - (let ((_%e147069147089%_ + (gx#stx-pair? _%tl147227147245%_)) + (let ((_%e147228147248%_ (let () (declare (not safe)) - (gx#stx-e _%tl147068147086%_)))) - (let ((_%hd147070147092%_ + (gx#stx-e _%tl147227147245%_)))) + (let ((_%hd147229147251%_ (let () (declare (not safe)) - (##car _%e147069147089%_))) - (_%tl147071147094%_ + (##car _%e147228147248%_))) + (_%tl147230147253%_ (let () (declare (not safe)) - (##cdr _%e147069147089%_)))) - ((lambda (_%L147097%_ _%L147098%_) - (let ((_%ctx147111%_ + (##cdr _%e147228147248%_)))) + ((lambda (_%L147256%_ _%L147257%_) + (let ((_%ctx147270%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L147098%_)))) + _%L147257%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self147059%_ + _%self147218%_ 'modules)) - (cons _%ctx147111%_ + (cons _%ctx147270%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self147059%_ + _%self147218%_ 'modules))))) - (let ((__tmp148900 + (let ((__tmp149059 (lambda () - (let ((__tmp148901 + (let ((__tmp149060 (##structure-ref - _%ctx147111%_ + _%ctx147270%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self147059%_ - __tmp148901))))) + _%self147218%_ + __tmp149060))))) (declare (not safe)) (__call-with-parameters - __tmp148900 + __tmp149059 gx#current-expander-context - _%ctx147111%_)))) - _%tl147071147094%_ - _%hd147070147092%_))) - (_%g147062147076%_ _%g147063147079%_)))) - (_%g147062147076%_ _%g147063147079%_))))) - (_%g147061147114%_ _%stx147060%_)))) + _%ctx147270%_)))) + _%tl147230147253%_ + _%hd147229147251%_))) + (_%g147221147235%_ _%g147222147238%_)))) + (_%g147221147235%_ _%g147222147238%_))))) + (_%g147220147273%_ _%stx147219%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls147012147014%_ + (let ((_%decls147171147173%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls147012147014%_ - (let ((_%decls147017%_ _%decls147012147014%_)) - (let _%lp147019%_ ((_%rest147021%_ _%decls147017%_)) - (let* ((_%rest147022147030%_ _%rest147021%_) - (_%else147024147038%_ (lambda () '#f)) - (_%K147026147047%_ - (lambda (_%decls147041%_ _%decl147042%_) - (if (equal? _%decl147042%_ '(not safe)) + (if _%decls147171147173%_ + (let ((_%decls147176%_ _%decls147171147173%_)) + (let _%lp147178%_ ((_%rest147180%_ _%decls147176%_)) + (let* ((_%rest147181147189%_ _%rest147180%_) + (_%else147183147197%_ (lambda () '#f)) + (_%K147185147206%_ + (lambda (_%decls147200%_ _%decl147201%_) + (if (equal? _%decl147201%_ '(not safe)) '#t - (if (equal? _%decl147042%_ '(safe)) + (if (equal? _%decl147201%_ '(safe)) '#f - (_%lp147019%_ _%decls147041%_)))))) - (if (pair? _%rest147022147030%_) - (let ((_%hd147027147050%_ + (_%lp147178%_ _%decls147200%_)))))) + (if (pair? _%rest147181147189%_) + (let ((_%hd147186147209%_ (let () (declare (not safe)) - (##car _%rest147022147030%_))) - (_%tl147028147052%_ + (##car _%rest147181147189%_))) + (_%tl147187147211%_ (let () (declare (not safe)) - (##cdr _%rest147022147030%_)))) - (let* ((_%decl147055%_ _%hd147027147050%_) - (_%decls147057%_ _%tl147028147052%_)) - (_%K147026147047%_ - _%decls147057%_ - _%decl147055%_))) - (_%else147024147038%_))))) + (##cdr _%rest147181147189%_)))) + (let* ((_%decl147214%_ _%hd147186147209%_) + (_%decls147216%_ _%tl147187147211%_)) + (_%K147185147206%_ + _%decls147216%_ + _%decl147214%_))) + (_%else147183147197%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id147006%_ _%syntax?147007%_) - (let ((_%eid147009%_ + (lambda (_%id147165%_ _%syntax?147166%_) + (let ((_%eid147168%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id147006%_)) + (gx#resolve-identifier__0 _%id147165%_)) '1 gx#binding::t '#f)) - (_%ht147010%_ + (_%ht147169%_ (##structure-ref (let () (declare (not safe)) @@ -2136,778 +2136,778 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid147009%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid147168%_)) '#!void - (let ((__tmp148902 - (let ((__tmp148903 + (let ((__tmp149061 + (let ((__tmp149062 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid147009%_)))) + _%eid147168%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp148903 _%syntax?147007%_)))) + (gx#make-binding-id__1 __tmp149062 _%syntax?147166%_)))) (declare (not safe)) - (hash-put! _%ht147010%_ _%eid147009%_ __tmp148902)))))) + (hash-put! _%ht147169%_ _%eid147168%_ __tmp149061)))))) (define gxc#generate-runtime-identifier - (lambda (_%id147004%_) + (lambda (_%id147163%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id147004%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id147163%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key146959%_) - (if (let () (declare (not safe)) (interned-symbol? _%key146959%_)) - _%key146959%_ - (if (uninterned-symbol? _%key146959%_) + (lambda (_%key147118%_) + (if (let () (declare (not safe)) (interned-symbol? _%key147118%_)) + _%key147118%_ + (if (uninterned-symbol? _%key147118%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key146959%_)) - (let* ((_%key146963146970%_ _%key146959%_) - (_%E146965146974%_ + (gxc#generate-runtime-gensym-reference__0 _%key147118%_)) + (let* ((_%key147122147129%_ _%key147118%_) + (_%E147124147133%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key146963146970%_ + _%key147122147129%_ '([eid . mark]))) '#!void)) - (_%K146966146992%_ - (lambda (_%mark146977%_ _%eid146978%_) - (let ((_%$e146980%_ + (_%K147125147151%_ + (lambda (_%mark147136%_ _%eid147137%_) + (let ((_%$e147139%_ (##structure-ref - _%mark146977%_ + _%mark147136%_ '1 gx#expander-mark::t '#f))) - (if _%$e146980%_ - ((lambda (_%ht146983%_) - (let ((_%$e146985%_ + (if _%$e147139%_ + ((lambda (_%ht147142%_) + (let ((_%$e147144%_ (let () (declare (not safe)) (hash-get - _%ht146983%_ - _%eid146978%_)))) - (if _%$e146985%_ - ((lambda (_%id146988%_) + _%ht147142%_ + _%eid147137%_)))) + (if _%$e147144%_ + ((lambda (_%id147147%_) (if (let () (declare (not safe)) (interned-symbol? - _%id146988%_)) - _%id146988%_ + _%id147147%_)) + _%id147147%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id146988%_)))) - _%$e146985%_) + _%id147147%_)))) + _%$e147144%_) (gxc#generate-runtime-identifier-key - _%eid146978%_)))) - _%$e146980%_) + _%eid147137%_)))) + _%$e147139%_) (gxc#generate-runtime-identifier-key - _%eid146978%_)))))) - (if (pair? _%key146963146970%_) - (let ((_%hd146967146995%_ + _%eid147137%_)))))) + (if (pair? _%key147122147129%_) + (let ((_%hd147126147154%_ (let () (declare (not safe)) - (##car _%key146963146970%_))) - (_%tl146968146997%_ + (##car _%key147122147129%_))) + (_%tl147127147156%_ (let () (declare (not safe)) - (##cdr _%key146963146970%_)))) - (let* ((_%eid147000%_ _%hd146967146995%_) - (_%mark147002%_ _%tl146968146997%_)) - (_%K146966146992%_ _%mark147002%_ _%eid147000%_))) - (_%E146965146974%_))))))) + (##cdr _%key147122147129%_)))) + (let* ((_%eid147159%_ _%hd147126147154%_) + (_%mark147161%_ _%tl147127147156%_)) + (_%K147125147151%_ _%mark147161%_ _%eid147159%_))) + (_%E147124147133%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self146956%_ _%stx146957%_) '(begin))) + (lambda (_%self147115%_ _%stx147116%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self146803%_ _%stx146804%_) - (letrec ((_%simplify146806%_ - (lambda (_%body146854%_) - (let _%lp146856%_ ((_%rest146858%_ _%body146854%_) - (_%r146859%_ '())) - (let* ((_%rest146860146868%_ _%rest146858%_) - (_%else146862146876%_ - (lambda () (reverse _%r146859%_))) - (_%K146864146944%_ - (lambda (_%rest146879%_ _%hd146880%_) - (let* ((_%hd146881146897%_ _%hd146880%_) - (_%else146885146905%_ + (lambda (_%self146962%_ _%stx146963%_) + (letrec ((_%simplify146965%_ + (lambda (_%body147013%_) + (let _%lp147015%_ ((_%rest147017%_ _%body147013%_) + (_%r147018%_ '())) + (let* ((_%rest147019147027%_ _%rest147017%_) + (_%else147021147035%_ + (lambda () (reverse _%r147018%_))) + (_%K147023147103%_ + (lambda (_%rest147038%_ _%hd147039%_) + (let* ((_%hd147040147056%_ _%hd147039%_) + (_%else147044147064%_ (lambda () - (_%lp146856%_ - _%rest146879%_ - (cons _%hd146880%_ _%r146859%_))))) - (let ((_%K146893146934%_ - (lambda (_%exprs146932%_) - (_%lp146856%_ + (_%lp147015%_ + _%rest147038%_ + (cons _%hd147039%_ _%r147018%_))))) + (let ((_%K147052147093%_ + (lambda (_%exprs147091%_) + (_%lp147015%_ (let () (declare (not safe)) (__foldr1 cons - _%rest146879%_ - _%exprs146932%_)) - _%r146859%_))) - (_%K146888146918%_ + _%rest147038%_ + _%exprs147091%_)) + _%r147018%_))) + (_%K147047147077%_ (lambda () - (if (null? _%rest146879%_) - (_%lp146856%_ - _%rest146879%_ - (cons _%hd146880%_ - _%r146859%_)) - (_%lp146856%_ - _%rest146879%_ - _%r146859%_)))) - (_%K146887146910%_ + (if (null? _%rest147038%_) + (_%lp147015%_ + _%rest147038%_ + (cons _%hd147039%_ + _%r147018%_)) + (_%lp147015%_ + _%rest147038%_ + _%r147018%_)))) + (_%K147046147069%_ (lambda () - (if (null? _%rest146879%_) - (_%lp146856%_ - _%rest146879%_ - (cons _%hd146880%_ - _%r146859%_)) - (_%lp146856%_ - _%rest146879%_ - _%r146859%_))))) - (let ((_%try-match146884146913%_ + (if (null? _%rest147038%_) + (_%lp147015%_ + _%rest147038%_ + (cons _%hd147039%_ + _%r147018%_)) + (_%lp147015%_ + _%rest147038%_ + _%r147018%_))))) + (let ((_%try-match147043147072%_ (lambda () - (if (symbol? _%hd146881146897%_) - (_%K146887146910%_) - (_%else146885146905%_))))) - (if (pair? _%hd146881146897%_) - (let ((_%tl146895146939%_ + (if (symbol? _%hd147040147056%_) + (_%K147046147069%_) + (_%else147044147064%_))))) + (if (pair? _%hd147040147056%_) + (let ((_%tl147054147098%_ (let () (declare (not safe)) - (##cdr _%hd146881146897%_))) - (_%hd146894146937%_ + (##cdr _%hd147040147056%_))) + (_%hd147053147096%_ (let () (declare (not safe)) - (##car _%hd146881146897%_)))) + (##car _%hd147040147056%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146894146937%_ + (##eq? _%hd147053147096%_ 'begin)) - (let ((_%exprs146942%_ - _%tl146895146939%_)) - (_%K146893146934%_ - _%exprs146942%_)) + (let ((_%exprs147101%_ + _%tl147054147098%_)) + (_%K147052147093%_ + _%exprs147101%_)) (if (let () (declare (not safe)) - (##eq? _%hd146894146937%_ + (##eq? _%hd147053147096%_ 'quote)) - (if (pair? _%tl146895146939%_) - (let ((_%tl146892146926%_ + (if (pair? _%tl147054147098%_) + (let ((_%tl147051147085%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl146895146939%_)))) - (if (null? _%tl146892146926%_) - (_%K146888146918%_) - (_%try-match146884146913%_))) - (_%try-match146884146913%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match146884146913%_)))) - (_%try-match146884146913%_)))))))) - (if (pair? _%rest146860146868%_) - (let ((_%hd146865146947%_ + (##cdr _%tl147054147098%_)))) + (if (null? _%tl147051147085%_) + (_%K147047147077%_) + (_%try-match147043147072%_))) + (_%try-match147043147072%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match147043147072%_)))) + (_%try-match147043147072%_)))))))) + (if (pair? _%rest147019147027%_) + (let ((_%hd147024147106%_ (let () (declare (not safe)) - (##car _%rest146860146868%_))) - (_%tl146866146949%_ + (##car _%rest147019147027%_))) + (_%tl147025147108%_ (let () (declare (not safe)) - (##cdr _%rest146860146868%_)))) - (let* ((_%hd146952%_ _%hd146865146947%_) - (_%rest146954%_ _%tl146866146949%_)) - (_%K146864146944%_ - _%rest146954%_ - _%hd146952%_))) - (_%else146862146876%_))))))) - (let* ((_%g146808146818%_ - (lambda (_%g146809146815%_) + (##cdr _%rest147019147027%_)))) + (let* ((_%hd147111%_ _%hd147024147106%_) + (_%rest147113%_ _%tl147025147108%_)) + (_%K147023147103%_ + _%rest147113%_ + _%hd147111%_))) + (_%else147021147035%_))))))) + (let* ((_%g146967146977%_ + (lambda (_%g146968146974%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146809146815%_)))) - (_%g146807146851%_ - (lambda (_%g146809146821%_) + _%g146968146974%_)))) + (_%g146966147010%_ + (lambda (_%g146968146980%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146809146821%_)) - (let ((_%e146811146823%_ + (gx#stx-pair? _%g146968146980%_)) + (let ((_%e146970146982%_ (let () (declare (not safe)) - (gx#stx-e _%g146809146821%_)))) - (let ((_%hd146812146826%_ + (gx#stx-e _%g146968146980%_)))) + (let ((_%hd146971146985%_ (let () (declare (not safe)) - (##car _%e146811146823%_))) - (_%tl146813146828%_ + (##car _%e146970146982%_))) + (_%tl146972146987%_ (let () (declare (not safe)) - (##cdr _%e146811146823%_)))) - ((lambda (_%L146831%_) - (let* ((_%body146846%_ - (map (lambda (_%g146841146843%_) + (##cdr _%e146970146982%_)))) + ((lambda (_%L146990%_) + (let* ((_%body147005%_ + (map (lambda (_%g147000147002%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self146803%_ - _%g146841146843%_))) - _%L146831%_)) - (_%body146848%_ - (_%simplify146806%_ _%body146846%_))) - (if (let ((__tmp148904 - (length _%body146848%_))) + _%self146962%_ + _%g147000147002%_))) + _%L146990%_)) + (_%body147007%_ + (_%simplify146965%_ _%body147005%_))) + (if (let ((__tmp149063 + (length _%body147007%_))) (declare (not safe)) - (##fx= __tmp148904 '1)) - (car _%body146848%_) - (cons 'begin _%body146848%_)))) - _%tl146813146828%_))) - (_%g146808146818%_ _%g146809146821%_))))) - (_%g146807146851%_ _%stx146804%_))))) + (##fx= __tmp149063 '1)) + (car _%body147007%_) + (cons 'begin _%body147007%_)))) + _%tl146972146987%_))) + (_%g146967146977%_ _%g146968146980%_))))) + (_%g146966147010%_ _%stx146963%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self146764%_ _%stx146765%_) - (let* ((_%g146767146777%_ - (lambda (_%g146768146774%_) + (lambda (_%self146923%_ _%stx146924%_) + (let* ((_%g146926146936%_ + (lambda (_%g146927146933%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146768146774%_)))) - (_%g146766146800%_ - (lambda (_%g146768146780%_) + _%g146927146933%_)))) + (_%g146925146959%_ + (lambda (_%g146927146939%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146768146780%_)) - (let ((_%e146770146782%_ + (gx#stx-pair? _%g146927146939%_)) + (let ((_%e146929146941%_ (let () (declare (not safe)) - (gx#stx-e _%g146768146780%_)))) - (let ((_%hd146771146785%_ + (gx#stx-e _%g146927146939%_)))) + (let ((_%hd146930146944%_ (let () (declare (not safe)) - (##car _%e146770146782%_))) - (_%tl146772146787%_ + (##car _%e146929146941%_))) + (_%tl146931146946%_ (let () (declare (not safe)) - (##cdr _%e146770146782%_)))) - ((lambda (_%L146790%_) + (##cdr _%e146929146941%_)))) + ((lambda (_%L146949%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L146790%_)))) - _%tl146772146787%_))) - (_%g146767146777%_ _%g146768146780%_))))) - (_%g146766146800%_ _%stx146765%_)))) + (gx#syntax->datum _%L146949%_)))) + _%tl146931146946%_))) + (_%g146926146936%_ _%g146927146939%_))))) + (_%g146925146959%_ _%stx146924%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self146528%_ _%stx146529%_) - (let* ((_%__stx147494147495%_ _%stx146529%_) - (_%g146533146585%_ + (lambda (_%self146687%_ _%stx146688%_) + (let* ((_%__stx147653147654%_ _%stx146688%_) + (_%g146692146744%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147494147495%_))))) - (let ((_%__kont147496147497%_ - (lambda (_%L146746%_ _%L146747%_) + _%__stx147653147654%_))))) + (let ((_%__kont147655147656%_ + (lambda (_%L146905%_ _%L146906%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146528%_ _%L146746%_)))) - (_%__kont147498147499%_ - (lambda (_%L146694%_ _%L146695%_ _%L146696%_) - (if (let ((__tmp148905 + (gxc#compile-e__1 _%self146687%_ _%L146905%_)))) + (_%__kont147657147658%_ + (lambda (_%L146853%_ _%L146854%_ _%L146855%_) + (if (let ((__tmp149064 (let () (declare (not safe)) - (gx#stx-e _%L146696%_)))) + (gx#stx-e _%L146855%_)))) (declare (not safe)) - (##memq __tmp148905 '(@inline))) + (##memq __tmp149064 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146528%_ _%L146694%_))))) - (_%__kont147502147503%_ - (lambda (_%L146614%_ _%L146615%_) - (let ((_%decls146630%_ (map gx#syntax->datum _%L146615%_))) - (let ((__tmp148908 + (gxc#compile-e__1 _%self146687%_ _%L146853%_))))) + (_%__kont147661147662%_ + (lambda (_%L146773%_ _%L146774%_) + (let ((_%decls146789%_ (map gx#syntax->datum _%L146774%_))) + (let ((__tmp149067 (lambda () (cons 'begin - (cons (cons 'declare _%decls146630%_) + (cons (cons 'declare _%decls146789%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146528%_ - _%L146614%_)) + _%self146687%_ + _%L146773%_)) '()))))) - (__tmp148906 - (let ((__tmp148907 + (__tmp149065 + (let ((__tmp149066 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp148907 _%decls146630%_)))) + (__foldr1 cons __tmp149066 _%decls146789%_)))) (declare (not safe)) (__call-with-parameters - __tmp148908 + __tmp149067 gxc#current-compile-decls - __tmp148906)))))) - (let* ((_%__match147549147550%_ - (lambda (_%e146549146638%_ - _%hd146550146641%_ - _%tl146551146643%_ - _%e146552146646%_ - _%hd146553146649%_ - _%tl146554146651%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) - (letrec ((_%loop146561146667%_ - (lambda (_%hd146559146670%_ - _%param146565146672%_) + __tmp149065)))))) + (let* ((_%__match147708147709%_ + (lambda (_%e146708146797%_ + _%hd146709146800%_ + _%tl146710146802%_ + _%e146711146805%_ + _%hd146712146808%_ + _%tl146713146810%_ + _%e146714146813%_ + _%hd146715146816%_ + _%tl146716146818%_ + _%__splice147659147660%_ + _%target146717146821%_ + _%tl146719146823%_) + (letrec ((_%loop146720146826%_ + (lambda (_%hd146718146829%_ + _%param146724146831%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146559146670%_)) - (let ((_%e146562146675%_ + (gx#stx-pair? _%hd146718146829%_)) + (let ((_%e146721146834%_ (let () (declare (not safe)) - (gx#stx-e _%hd146559146670%_)))) - (let ((_%lp-tl146564146680%_ + (gx#stx-e _%hd146718146829%_)))) + (let ((_%lp-tl146723146839%_ (let () (declare (not safe)) - (##cdr _%e146562146675%_))) - (_%lp-hd146563146678%_ + (##cdr _%e146721146834%_))) + (_%lp-hd146722146837%_ (let () (declare (not safe)) - (##car _%e146562146675%_)))) - (_%loop146561146667%_ - _%lp-tl146564146680%_ - (cons _%lp-hd146563146678%_ - _%param146565146672%_)))) - (let ((_%param146566146683%_ - (reverse _%param146565146672%_))) + (##car _%e146721146834%_)))) + (_%loop146720146826%_ + _%lp-tl146723146839%_ + (cons _%lp-hd146722146837%_ + _%param146724146831%_)))) + (let ((_%param146725146842%_ + (reverse _%param146724146831%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146554146651%_)) - (let ((_%e146567146686%_ + _%tl146713146810%_)) + (let ((_%e146726146845%_ (let () (declare (not safe)) (gx#stx-e - _%tl146554146651%_)))) - (let ((_%tl146569146691%_ + _%tl146713146810%_)))) + (let ((_%tl146728146850%_ (let () (declare (not safe)) - (##cdr _%e146567146686%_))) - (_%hd146568146689%_ + (##cdr _%e146726146845%_))) + (_%hd146727146848%_ (let () (declare (not safe)) - (##car _%e146567146686%_)))) + (##car _%e146726146845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146569146691%_)) - (let ((_%L146694%_ - _%hd146568146689%_) - (_%L146695%_ - _%param146566146683%_) - (_%L146696%_ - _%hd146556146657%_)) + _%tl146728146850%_)) + (let ((_%L146853%_ + _%hd146727146848%_) + (_%L146854%_ + _%param146725146842%_) + (_%L146855%_ + _%hd146715146816%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L146696%_)) - (not (let ((__tmp148909 + (gx#identifier? _%L146855%_)) + (not (let ((__tmp149068 (let () (declare (not safe)) - (gx#stx-e _%L146696%_)))) + (gx#stx-e _%L146855%_)))) (declare (not safe)) - (##memq __tmp148909 gxc#gambit-annotations)))) - (_%__kont147498147499%_ _%L146694%_ _%L146695%_ _%L146696%_) - (_%__kont147502147503%_ - _%hd146568146689%_ - _%hd146553146649%_))) + (##memq __tmp149068 gxc#gambit-annotations)))) + (_%__kont147657147658%_ _%L146853%_ _%L146854%_ _%L146855%_) + (_%__kont147661147662%_ + _%hd146727146848%_ + _%hd146712146808%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146533146585%_))))) + (_%g146692146744%_))))) (let () (declare (not safe)) - (_%g146533146585%_)))))))) - (_%loop146561146667%_ _%target146558146662%_ '())))) - (_%__match147523147524%_ - (lambda (_%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146543146738%_ - _%hd146544146741%_ - _%tl146545146743%_) - (let ((_%L146746%_ _%hd146544146741%_) - (_%L146747%_ _%hd146541146733%_)) + (_%g146692146744%_)))))))) + (_%loop146720146826%_ _%target146717146821%_ '())))) + (_%__match147682147683%_ + (lambda (_%e146696146881%_ + _%hd146697146884%_ + _%tl146698146886%_ + _%e146699146889%_ + _%hd146700146892%_ + _%tl146701146894%_ + _%e146702146897%_ + _%hd146703146900%_ + _%tl146704146902%_) + (let ((_%L146905%_ _%hd146703146900%_) + (_%L146906%_ _%hd146700146892%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L146747%_)) - (_%__kont147496147497%_ _%L146746%_ _%L146747%_) + (gx#identifier? _%L146906%_)) + (_%__kont147655147656%_ _%L146905%_ _%L146906%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146541146733%_)) - (let ((_%e146555146654%_ + (gx#stx-pair? _%hd146700146892%_)) + (let ((_%e146714146813%_ (let () (declare (not safe)) - (gx#stx-e _%hd146541146733%_)))) - (let ((_%tl146557146659%_ + (gx#stx-e _%hd146700146892%_)))) + (let ((_%tl146716146818%_ (let () (declare (not safe)) - (##cdr _%e146555146654%_))) - (_%hd146556146657%_ + (##cdr _%e146714146813%_))) + (_%hd146715146816%_ (let () (declare (not safe)) - (##car _%e146555146654%_)))) + (##car _%e146714146813%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146557146659%_)) - (let ((_%__splice147500147501%_ + _%tl146716146818%_)) + (let ((_%__splice147659147660%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146557146659%_ + _%tl146716146818%_ '0)))) - (let ((_%tl146560146664%_ + (let ((_%tl146719146823%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice147659147660%_ '1))) - (_%target146558146662%_ + (_%target146717146821%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice147659147660%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146560146664%_)) - (_%__match147549147550%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) - (_%__kont147502147503%_ - _%hd146544146741%_ - _%hd146541146733%_)))) - (_%__kont147502147503%_ - _%hd146544146741%_ - _%hd146541146733%_)))) - (_%__kont147502147503%_ - _%hd146544146741%_ - _%hd146541146733%_))))))) + _%tl146719146823%_)) + (_%__match147708147709%_ + _%e146696146881%_ + _%hd146697146884%_ + _%tl146698146886%_ + _%e146699146889%_ + _%hd146700146892%_ + _%tl146701146894%_ + _%e146714146813%_ + _%hd146715146816%_ + _%tl146716146818%_ + _%__splice147659147660%_ + _%target146717146821%_ + _%tl146719146823%_) + (_%__kont147661147662%_ + _%hd146703146900%_ + _%hd146700146892%_)))) + (_%__kont147661147662%_ + _%hd146703146900%_ + _%hd146700146892%_)))) + (_%__kont147661147662%_ + _%hd146703146900%_ + _%hd146700146892%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147494147495%_)) - (let ((_%e146537146722%_ + (gx#stx-pair? _%__stx147653147654%_)) + (let ((_%e146696146881%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147494147495%_)))) - (let ((_%tl146539146727%_ + (gx#stx-e _%__stx147653147654%_)))) + (let ((_%tl146698146886%_ (let () (declare (not safe)) - (##cdr _%e146537146722%_))) - (_%hd146538146725%_ + (##cdr _%e146696146881%_))) + (_%hd146697146884%_ (let () (declare (not safe)) - (##car _%e146537146722%_)))) + (##car _%e146696146881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146539146727%_)) - (let ((_%e146540146730%_ + (gx#stx-pair? _%tl146698146886%_)) + (let ((_%e146699146889%_ (let () (declare (not safe)) - (gx#stx-e _%tl146539146727%_)))) - (let ((_%tl146542146735%_ + (gx#stx-e _%tl146698146886%_)))) + (let ((_%tl146701146894%_ (let () (declare (not safe)) - (##cdr _%e146540146730%_))) - (_%hd146541146733%_ + (##cdr _%e146699146889%_))) + (_%hd146700146892%_ (let () (declare (not safe)) - (##car _%e146540146730%_)))) + (##car _%e146699146889%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146542146735%_)) - (let ((_%e146543146738%_ + (gx#stx-pair? _%tl146701146894%_)) + (let ((_%e146702146897%_ (let () (declare (not safe)) - (gx#stx-e _%tl146542146735%_)))) - (let ((_%tl146545146743%_ + (gx#stx-e _%tl146701146894%_)))) + (let ((_%tl146704146902%_ (let () (declare (not safe)) - (##cdr _%e146543146738%_))) - (_%hd146544146741%_ + (##cdr _%e146702146897%_))) + (_%hd146703146900%_ (let () (declare (not safe)) - (##car _%e146543146738%_)))) + (##car _%e146702146897%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146545146743%_)) - (_%__match147523147524%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146543146738%_ - _%hd146544146741%_ - _%tl146545146743%_) + (gx#stx-null? _%tl146704146902%_)) + (_%__match147682147683%_ + _%e146696146881%_ + _%hd146697146884%_ + _%tl146698146886%_ + _%e146699146889%_ + _%hd146700146892%_ + _%tl146701146894%_ + _%e146702146897%_ + _%hd146703146900%_ + _%tl146704146902%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd146541146733%_)) - (let ((_%e146555146654%_ + _%hd146700146892%_)) + (let ((_%e146714146813%_ (let () (declare (not safe)) (gx#stx-e - _%hd146541146733%_)))) - (let ((_%tl146557146659%_ + _%hd146700146892%_)))) + (let ((_%tl146716146818%_ (let () (declare (not safe)) - (##cdr _%e146555146654%_))) - (_%hd146556146657%_ + (##cdr _%e146714146813%_))) + (_%hd146715146816%_ (let () (declare (not safe)) - (##car _%e146555146654%_)))) + (##car _%e146714146813%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146557146659%_)) - (let ((_%__splice147500147501%_ + _%tl146716146818%_)) + (let ((_%__splice147659147660%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl146557146659%_ '0)))) - (let ((_%tl146560146664%_ + (gx#syntax-split-splice _%tl146716146818%_ '0)))) + (let ((_%tl146719146823%_ (let () (declare (not safe)) - (##vector-ref _%__splice147500147501%_ '1))) - (_%target146558146662%_ + (##vector-ref _%__splice147659147660%_ '1))) + (_%target146717146821%_ (let () (declare (not safe)) - (##vector-ref _%__splice147500147501%_ '0)))) + (##vector-ref _%__splice147659147660%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146560146664%_)) - (_%__match147549147550%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) - (let () (declare (not safe)) (_%g146533146585%_))))) - (let () (declare (not safe)) (_%g146533146585%_))))) + (gx#stx-null? _%tl146719146823%_)) + (_%__match147708147709%_ + _%e146696146881%_ + _%hd146697146884%_ + _%tl146698146886%_ + _%e146699146889%_ + _%hd146700146892%_ + _%tl146701146894%_ + _%e146714146813%_ + _%hd146715146816%_ + _%tl146716146818%_ + _%__splice147659147660%_ + _%target146717146821%_ + _%tl146719146823%_) + (let () (declare (not safe)) (_%g146692146744%_))))) + (let () (declare (not safe)) (_%g146692146744%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146533146585%_)))))) + (_%g146692146744%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146541146733%_)) - (let ((_%e146555146654%_ + (gx#stx-pair? _%hd146700146892%_)) + (let ((_%e146714146813%_ (let () (declare (not safe)) - (gx#stx-e _%hd146541146733%_)))) - (let ((_%tl146557146659%_ + (gx#stx-e _%hd146700146892%_)))) + (let ((_%tl146716146818%_ (let () (declare (not safe)) - (##cdr _%e146555146654%_))) - (_%hd146556146657%_ + (##cdr _%e146714146813%_))) + (_%hd146715146816%_ (let () (declare (not safe)) - (##car _%e146555146654%_)))) + (##car _%e146714146813%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146557146659%_)) - (let ((_%__splice147500147501%_ + _%tl146716146818%_)) + (let ((_%__splice147659147660%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146557146659%_ + _%tl146716146818%_ '0)))) - (let ((_%tl146560146664%_ + (let ((_%tl146719146823%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice147659147660%_ '1))) - (_%target146558146662%_ + (_%target146717146821%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice147659147660%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146560146664%_)) - (_%__match147549147550%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) + _%tl146719146823%_)) + (_%__match147708147709%_ + _%e146696146881%_ + _%hd146697146884%_ + _%tl146698146886%_ + _%e146699146889%_ + _%hd146700146892%_ + _%tl146701146894%_ + _%e146714146813%_ + _%hd146715146816%_ + _%tl146716146818%_ + _%__splice147659147660%_ + _%target146717146821%_ + _%tl146719146823%_) (let () (declare (not safe)) - (_%g146533146585%_))))) + (_%g146692146744%_))))) (let () (declare (not safe)) - (_%g146533146585%_))))) + (_%g146692146744%_))))) (let () (declare (not safe)) - (_%g146533146585%_)))))) - (let () (declare (not safe)) (_%g146533146585%_))))) - (let () (declare (not safe)) (_%g146533146585%_)))))))) + (_%g146692146744%_)))))) + (let () (declare (not safe)) (_%g146692146744%_))))) + (let () (declare (not safe)) (_%g146692146744%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self146487%_ _%stx146488%_) - (let* ((_%g146490146500%_ - (lambda (_%g146491146497%_) + (lambda (_%self146646%_ _%stx146647%_) + (let* ((_%g146649146659%_ + (lambda (_%g146650146656%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146491146497%_)))) - (_%g146489146525%_ - (lambda (_%g146491146503%_) + _%g146650146656%_)))) + (_%g146648146684%_ + (lambda (_%g146650146662%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146491146503%_)) - (let ((_%e146493146505%_ + (gx#stx-pair? _%g146650146662%_)) + (let ((_%e146652146664%_ (let () (declare (not safe)) - (gx#stx-e _%g146491146503%_)))) - (let ((_%hd146494146508%_ + (gx#stx-e _%g146650146662%_)))) + (let ((_%hd146653146667%_ (let () (declare (not safe)) - (##car _%e146493146505%_))) - (_%tl146495146510%_ + (##car _%e146652146664%_))) + (_%tl146654146669%_ (let () (declare (not safe)) - (##cdr _%e146493146505%_)))) - ((lambda (_%L146513%_) - (let ((_%decls146523%_ - (map gx#syntax->datum _%L146513%_))) - (let ((__tmp148910 - (let ((__tmp148911 + (##cdr _%e146652146664%_)))) + ((lambda (_%L146672%_) + (let ((_%decls146682%_ + (map gx#syntax->datum _%L146672%_))) + (let ((__tmp149069 + (let ((__tmp149070 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp148911 - _%decls146523%_)))) + __tmp149070 + _%decls146682%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp148910)) - (cons 'declare _%decls146523%_))) - _%tl146495146510%_))) - (_%g146490146500%_ _%g146491146503%_))))) - (_%g146489146525%_ _%stx146488%_)))) + (gxc#current-compile-decls __tmp149069)) + (cons 'declare _%decls146682%_))) + _%tl146654146669%_))) + (_%g146649146659%_ _%g146650146662%_))))) + (_%g146648146684%_ _%stx146647%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self146233%_ _%stx146234%_) - (let* ((_%g146236146253%_ - (lambda (_%g146237146250%_) + (lambda (_%self146392%_ _%stx146393%_) + (let* ((_%g146395146412%_ + (lambda (_%g146396146409%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146237146250%_)))) - (_%g146235146484%_ - (lambda (_%g146237146256%_) + _%g146396146409%_)))) + (_%g146394146643%_ + (lambda (_%g146396146415%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146237146256%_)) - (let ((_%e146240146258%_ + (gx#stx-pair? _%g146396146415%_)) + (let ((_%e146399146417%_ (let () (declare (not safe)) - (gx#stx-e _%g146237146256%_)))) - (let ((_%hd146241146261%_ + (gx#stx-e _%g146396146415%_)))) + (let ((_%hd146400146420%_ (let () (declare (not safe)) - (##car _%e146240146258%_))) - (_%tl146242146263%_ + (##car _%e146399146417%_))) + (_%tl146401146422%_ (let () (declare (not safe)) - (##cdr _%e146240146258%_)))) + (##cdr _%e146399146417%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146242146263%_)) - (let ((_%e146243146266%_ + (gx#stx-pair? _%tl146401146422%_)) + (let ((_%e146402146425%_ (let () (declare (not safe)) - (gx#stx-e _%tl146242146263%_)))) - (let ((_%hd146244146269%_ + (gx#stx-e _%tl146401146422%_)))) + (let ((_%hd146403146428%_ (let () (declare (not safe)) - (##car _%e146243146266%_))) - (_%tl146245146271%_ + (##car _%e146402146425%_))) + (_%tl146404146430%_ (let () (declare (not safe)) - (##cdr _%e146243146266%_)))) + (##cdr _%e146402146425%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146245146271%_)) - (let ((_%e146246146274%_ + (gx#stx-pair? _%tl146404146430%_)) + (let ((_%e146405146433%_ (let () (declare (not safe)) - (gx#stx-e _%tl146245146271%_)))) - (let ((_%hd146247146277%_ + (gx#stx-e _%tl146404146430%_)))) + (let ((_%hd146406146436%_ (let () (declare (not safe)) - (##car _%e146246146274%_))) - (_%tl146248146279%_ + (##car _%e146405146433%_))) + (_%tl146407146438%_ (let () (declare (not safe)) - (##cdr _%e146246146274%_)))) + (##cdr _%e146405146433%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146248146279%_)) - ((lambda (_%L146282%_ - _%L146283%_) - (let* ((_%__stx147602147603%_ - _%L146283%_) - (_%g146300146314%_ + _%tl146407146438%_)) + ((lambda (_%L146441%_ + _%L146442%_) + (let* ((_%__stx147761147762%_ + _%L146442%_) + (_%g146459146473%_ (lambda () (let () (declare @@ -2915,304 +2915,304 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147602147603%_))))) - (let ((_%__kont147604147605%_ + _%__stx147761147762%_))))) + (let ((_%__kont147763147764%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self146233%_ - _%L146282%_)))) - (_%__kont147606147607%_ - (lambda (_%L146446%_) - (let ((_%eid146455%_ + _%self146392%_ + _%L146441%_)))) + (_%__kont147765147766%_ + (lambda (_%L146605%_) + (let ((_%eid146614%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146446%_)))) - (let ((_%lambda-expr146456146458%_ - (gxc#apply-find-lambda-expression _%L146282%_))) - (if _%lambda-expr146456146458%_ - (let* ((_%lambda-expr146461%_ - _%lambda-expr146456146458%_) - (__tmp148912 + (gxc#generate-runtime-binding-id _%L146605%_)))) + (let ((_%lambda-expr146615146617%_ + (gxc#apply-find-lambda-expression _%L146441%_))) + (if _%lambda-expr146615146617%_ + (let* ((_%lambda-expr146620%_ + _%lambda-expr146615146617%_) + (__tmp149071 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp148912 - _%lambda-expr146461%_ - _%eid146455%_)) + __tmp149071 + _%lambda-expr146620%_ + _%eid146614%_)) '#f)) (cons 'define - (cons _%eid146455%_ + (cons _%eid146614%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146233%_ - _%L146282%_)) + _%self146392%_ + _%L146441%_)) '())))))) - (_%__kont147608147609%_ + (_%__kont147767147768%_ (lambda () - (let* ((_%tmp146321%_ + (let* ((_%tmp146480%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body146430%_ - (let _%lp146323%_ ((_%rest146325%_ _%L146283%_) - (_%k146326%_ '0) - (_%r146327%_ '())) - (let* ((_%__stx147572147573%_ _%rest146325%_) - (_%g146332146349%_ + (_%body146589%_ + (let _%lp146482%_ ((_%rest146484%_ _%L146442%_) + (_%k146485%_ '0) + (_%r146486%_ '())) + (let* ((_%__stx147731147732%_ _%rest146484%_) + (_%g146491146508%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147572147573%_))))) - (let ((_%__kont147574147575%_ - (lambda (_%L146417%_) - (_%lp146323%_ - _%L146417%_ + _%__stx147731147732%_))))) + (let ((_%__kont147733147734%_ + (lambda (_%L146576%_) + (_%lp146482%_ + _%L146576%_ (let () (declare (not safe)) - (##fx+ _%k146326%_ '1)) - _%r146327%_))) - (_%__kont147576147577%_ - (lambda (_%L146390%_ _%L146391%_) - (_%lp146323%_ - _%L146390%_ + (##fx+ _%k146485%_ '1)) + _%r146486%_))) + (_%__kont147735147736%_ + (lambda (_%L146549%_ _%L146550%_) + (_%lp146482%_ + _%L146549%_ (let () (declare (not safe)) - (##fx+ _%k146326%_ '1)) + (##fx+ _%k146485%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L146391%_)) + _%L146550%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp146321%_ - _%k146326%_ - _%L146390%_) + _%tmp146480%_ + _%k146485%_ + _%L146549%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r146327%_)))) - (_%__kont147578147579%_ - (lambda (_%L146361%_) - (let ((__tmp148913 + _%r146486%_)))) + (_%__kont147737147738%_ + (lambda (_%L146520%_) + (let ((__tmp149072 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146361%_)) + (gxc#generate-runtime-binding-id _%L146520%_)) (cons (gxc#generate-runtime-values->list - _%tmp146321%_ - _%k146326%_) + _%tmp146480%_ + _%k146485%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp148913 - _%r146327%_)))) - (_%__kont147580147581%_ - (lambda () (reverse _%r146327%_)))) - (let ((_%g146330146377%_ + __tmp149072 + _%r146486%_)))) + (_%__kont147739147740%_ + (lambda () (reverse _%r146486%_)))) + (let ((_%g146489146536%_ (lambda () - (let ((_%L146361%_ - _%__stx147572147573%_)) + (let ((_%L146520%_ + _%__stx147731147732%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L146361%_)) - (_%__kont147578147579%_ - _%L146361%_) - (_%__kont147580147581%_)))))) + _%L146520%_)) + (_%__kont147737147738%_ + _%L146520%_) + (_%__kont147739147740%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147572147573%_)) - (let ((_%e146335146406%_ + (gx#stx-pair? _%__stx147731147732%_)) + (let ((_%e146494146565%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147572147573%_)))) - (let ((_%tl146337146411%_ + _%__stx147731147732%_)))) + (let ((_%tl146496146570%_ (let () (declare (not safe)) - (##cdr _%e146335146406%_))) - (_%hd146336146409%_ + (##cdr _%e146494146565%_))) + (_%hd146495146568%_ (let () (declare (not safe)) - (##car _%e146335146406%_)))) + (##car _%e146494146565%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd146336146409%_)) - (let ((_%e146338146414%_ + _%hd146495146568%_)) + (let ((_%e146497146573%_ (let () (declare (not safe)) (gx#stx-e - _%hd146336146409%_)))) - (if (equal? _%e146338146414%_ + _%hd146495146568%_)))) + (if (equal? _%e146497146573%_ '#f) - (_%__kont147574147575%_ - _%tl146337146411%_) - (_%__kont147576147577%_ - _%tl146337146411%_ - _%hd146336146409%_))) - (_%__kont147576147577%_ - _%tl146337146411%_ - _%hd146336146409%_)))) + (_%__kont147733147734%_ + _%tl146496146570%_) + (_%__kont147735147736%_ + _%tl146496146570%_ + _%hd146495146568%_))) + (_%__kont147735147736%_ + _%tl146496146570%_ + _%hd146495146568%_)))) (let () (declare (not safe)) - (_%g146330146377%_))))))))) + (_%g146489146536%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp146321%_ + (cons _%tmp146480%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146233%_ - _%L146282%_)) + _%self146392%_ + _%L146441%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp146321%_ - _%L146283%_ - _%L146282%_) - _%body146430%_))))))) + _%tmp146480%_ + _%L146442%_ + _%L146441%_) + _%body146589%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147602147603%_)) - (let ((_%e146302146468%_ + _%__stx147761147762%_)) + (let ((_%e146461146627%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx147602147603%_)))) - (let ((_%tl146304146473%_ + (gx#stx-e _%__stx147761147762%_)))) + (let ((_%tl146463146632%_ (let () (declare (not safe)) - (##cdr _%e146302146468%_))) - (_%hd146303146471%_ + (##cdr _%e146461146627%_))) + (_%hd146462146630%_ (let () (declare (not safe)) - (##car _%e146302146468%_)))) + (##car _%e146461146627%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd146303146471%_)) - (let ((_%e146305146476%_ + (gx#stx-datum? _%hd146462146630%_)) + (let ((_%e146464146635%_ (let () (declare (not safe)) - (gx#stx-e _%hd146303146471%_)))) - (if (equal? _%e146305146476%_ '#f) + (gx#stx-e _%hd146462146630%_)))) + (if (equal? _%e146464146635%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146304146473%_)) - (_%__kont147604147605%_) - (_%__kont147608147609%_)) + (gx#stx-null? _%tl146463146632%_)) + (_%__kont147763147764%_) + (_%__kont147767147768%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146304146473%_)) - (_%__kont147606147607%_ _%hd146303146471%_) - (_%__kont147608147609%_)))) + (gx#stx-null? _%tl146463146632%_)) + (_%__kont147765147766%_ _%hd146462146630%_) + (_%__kont147767147768%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146304146473%_)) - (_%__kont147606147607%_ _%hd146303146471%_) - (_%__kont147608147609%_))))) - (_%__kont147608147609%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd146247146277%_ - _%hd146244146269%_) - (_%g146236146253%_ - _%g146237146256%_)))) - (_%g146236146253%_ _%g146237146256%_)))) - (_%g146236146253%_ _%g146237146256%_)))) - (_%g146236146253%_ _%g146237146256%_))))) - (_%g146235146484%_ _%stx146234%_)))) + (gx#stx-null? _%tl146463146632%_)) + (_%__kont147765147766%_ _%hd146462146630%_) + (_%__kont147767147768%_))))) + (_%__kont147767147768%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd146406146436%_ + _%hd146403146428%_) + (_%g146395146412%_ + _%g146396146415%_)))) + (_%g146395146412%_ _%g146396146415%_)))) + (_%g146395146412%_ _%g146396146415%_)))) + (_%g146395146412%_ _%g146396146415%_))))) + (_%g146394146643%_ _%stx146393%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals146208%_ _%hd146209%_ _%expr146210%_) - (let ((_%$e146212%_ (gxc#apply-count-values _%expr146210%_))) - (if _%$e146212%_ - ((lambda (_%count146215%_) - (let ((_%len146217%_ + (lambda (_%vals146367%_ _%hd146368%_ _%expr146369%_) + (let ((_%$e146371%_ (gxc#apply-count-values _%expr146369%_))) + (if _%$e146371%_ + ((lambda (_%count146374%_) + (let ((_%len146376%_ (let () (declare (not safe)) - (gx#stx-length _%hd146209%_))) - (_%cmp146218%_ + (gx#stx-length _%hd146368%_))) + (_%cmp146377%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd146368%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len146217%_ '0)) - (_%cmp146218%_ _%count146215%_ _%len146217%_)) + (##fx= _%len146376%_ '0)) + (_%cmp146377%_ _%count146374%_ _%len146376%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr146210%_ - _%hd146209%_))))) - _%$e146212%_) - (let* ((_%len146224%_ + _%expr146369%_ + _%hd146368%_))))) + _%$e146371%_) + (let* ((_%len146383%_ (let () (declare (not safe)) - (gx#stx-length _%hd146209%_))) - (_%cmp146226%_ + (gx#stx-length _%hd146368%_))) + (_%cmp146385%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd146368%_)) '##fx= '##fx>=)) - (_%errmsg146228%_ - (let ((__tmp148915 + (_%errmsg146387%_ + (let ((__tmp149074 (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd146368%_)) '"Context expects " '"Context expects at least ")) - (__tmp148914 (number->string _%len146224%_))) + (__tmp149073 (number->string _%len146383%_))) (declare (not safe)) - (##string-append __tmp148915 __tmp148914 '" values"))) - (_%count146230%_ + (##string-append __tmp149074 __tmp149073 '" values"))) + (_%count146389%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd146368%_)) '#f - (let () (declare (not safe)) (##fx= _%len146224%_ '0))) + (let () (declare (not safe)) (##fx= _%len146383%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count146230%_ + (cons (cons (cons _%count146389%_ (cons (gxc#generate-runtime-values-count - _%vals146208%_) + _%vals146367%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp146226%_ - (cons _%count146230%_ - (cons _%len146224%_ '()))) + (cons _%cmp146385%_ + (cons _%count146389%_ + (cons _%len146383%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp146226%_ - (cons _%count146230%_ - (cons _%len146224%_ + (cons (cons _%cmp146385%_ + (cons _%count146389%_ + (cons _%len146383%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3220,82 +3220,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg146228%_ + (cons _%errmsg146387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count146230%_ '()))) + (cons _%count146389%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var146203%_) - (letrec ((_%generate-inline146205%_ + (lambda (_%var146362%_) + (letrec ((_%generate-inline146364%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var146203%_ '())) + (cons (cons '##values? (cons _%var146362%_ '())) (cons (cons '##vector-length - (cons _%var146203%_ '())) + (cons _%var146362%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146205%_) + (_%generate-inline146364%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146205%_) '())))))))) + (cons (_%generate-inline146364%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var146196%_ _%i146197%_ _%rest146198%_) - (letrec ((_%generate-inline146200%_ + (lambda (_%var146355%_ _%i146356%_ _%rest146357%_) + (letrec ((_%generate-inline146359%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i146197%_ '0)) + (##fx= _%i146356%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest146198%_)))) + (gx#stx-pair? _%rest146357%_)))) (cons 'if - (cons (cons '##values? (cons _%var146196%_ '())) + (cons (cons '##values? (cons _%var146355%_ '())) (cons (cons '##vector-ref - (cons _%var146196%_ + (cons _%var146355%_ (cons '0 '()))) - (cons _%var146196%_ '())))) + (cons _%var146355%_ '())))) (cons '##vector-ref - (cons _%var146196%_ (cons _%i146197%_ '()))))))) + (cons _%var146355%_ (cons _%i146356%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146200%_) + (_%generate-inline146359%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146200%_) '())))))))) + (cons (_%generate-inline146359%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var146190%_ _%i146191%_) - (if (let () (declare (not safe)) (##fx= _%i146191%_ '0)) + (lambda (_%var146349%_ _%i146350%_) + (if (let () (declare (not safe)) (##fx= _%i146350%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146190%_ '())) + (cons (cons '##values? (cons _%var146349%_ '())) (cons (cons '##vector->list - (cons _%var146190%_ '())) - (cons (cons 'list (cons _%var146190%_ '())) + (cons _%var146349%_ '())) + (cons (cons 'list (cons _%var146349%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146190%_ + (cons _%var146349%_ '())) (cons (cons '##vector->list - (cons _%var146190%_ + (cons _%var146349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var146190%_ '())) '())))) + (cons (cons 'list (cons _%var146349%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i146191%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i146350%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146190%_ '())) + (cons (cons '##values? (cons _%var146349%_ '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var146190%_ + (cons _%var146349%_ '())) '())) (cons ''() '())))) @@ -3304,8267 +3304,8267 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146190%_ + (cons _%var146349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var146190%_ '())) + (cons _%var146349%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##vector->list (cons _%var146190%_ '())) - (cons _%i146191%_ '()))) + (cons (cons '##vector->list (cons _%var146349%_ '())) + (cons _%i146350%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail (cons (cons '##vector->list - (cons _%var146190%_ + (cons _%var146349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i146191%_ '()))) + (cons _%i146350%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self146122%_ _%stx146123%_) - (let* ((_%g146125146142%_ - (lambda (_%g146126146139%_) + (lambda (_%self146281%_ _%stx146282%_) + (let* ((_%g146284146301%_ + (lambda (_%g146285146298%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146126146139%_)))) - (_%g146124146187%_ - (lambda (_%g146126146145%_) + _%g146285146298%_)))) + (_%g146283146346%_ + (lambda (_%g146285146304%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146126146145%_)) - (let ((_%e146129146147%_ + (gx#stx-pair? _%g146285146304%_)) + (let ((_%e146288146306%_ (let () (declare (not safe)) - (gx#stx-e _%g146126146145%_)))) - (let ((_%hd146130146150%_ + (gx#stx-e _%g146285146304%_)))) + (let ((_%hd146289146309%_ (let () (declare (not safe)) - (##car _%e146129146147%_))) - (_%tl146131146152%_ + (##car _%e146288146306%_))) + (_%tl146290146311%_ (let () (declare (not safe)) - (##cdr _%e146129146147%_)))) + (##cdr _%e146288146306%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146131146152%_)) - (let ((_%e146132146155%_ + (gx#stx-pair? _%tl146290146311%_)) + (let ((_%e146291146314%_ (let () (declare (not safe)) - (gx#stx-e _%tl146131146152%_)))) - (let ((_%hd146133146158%_ + (gx#stx-e _%tl146290146311%_)))) + (let ((_%hd146292146317%_ (let () (declare (not safe)) - (##car _%e146132146155%_))) - (_%tl146134146160%_ + (##car _%e146291146314%_))) + (_%tl146293146319%_ (let () (declare (not safe)) - (##cdr _%e146132146155%_)))) + (##cdr _%e146291146314%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146134146160%_)) - (let ((_%e146135146163%_ + (gx#stx-pair? _%tl146293146319%_)) + (let ((_%e146294146322%_ (let () (declare (not safe)) - (gx#stx-e _%tl146134146160%_)))) - (let ((_%hd146136146166%_ + (gx#stx-e _%tl146293146319%_)))) + (let ((_%hd146295146325%_ (let () (declare (not safe)) - (##car _%e146135146163%_))) - (_%tl146137146168%_ + (##car _%e146294146322%_))) + (_%tl146296146327%_ (let () (declare (not safe)) - (##cdr _%e146135146163%_)))) + (##cdr _%e146294146322%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146137146168%_)) - ((lambda (_%L146171%_ - _%L146172%_) + _%tl146296146327%_)) + ((lambda (_%L146330%_ + _%L146331%_) (gxc#generate-runtime-lambda-form - _%self146122%_ - _%L146172%_ - _%L146171%_)) - _%hd146136146166%_ - _%hd146133146158%_) - (_%g146125146142%_ - _%g146126146145%_)))) - (_%g146125146142%_ _%g146126146145%_)))) - (_%g146125146142%_ _%g146126146145%_)))) - (_%g146125146142%_ _%g146126146145%_))))) - (_%g146124146187%_ _%stx146123%_)))) + _%self146281%_ + _%L146331%_ + _%L146330%_)) + _%hd146295146325%_ + _%hd146292146317%_) + (_%g146284146301%_ + _%g146285146304%_)))) + (_%g146284146301%_ _%g146285146304%_)))) + (_%g146284146301%_ _%g146285146304%_)))) + (_%g146284146301%_ _%g146285146304%_))))) + (_%g146283146346%_ _%stx146282%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self146081%_ _%hd146082%_ _%body146083%_) - (let* ((_%hd146085%_ (gxc#generate-runtime-lambda-head _%hd146082%_)) - (_%body146087%_ + (lambda (_%self146240%_ _%hd146241%_ _%body146242%_) + (let* ((_%hd146244%_ (gxc#generate-runtime-lambda-head _%hd146241%_)) + (_%body146246%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self146081%_ _%body146083%_))) - (_%body146119%_ - (let* ((_%body146088146096%_ _%body146087%_) - (_%else146090146104%_ - (lambda () (cons _%body146087%_ '()))) - (_%K146092146109%_ - (lambda (_%exprs146107%_) _%exprs146107%_))) - (if (pair? _%body146088146096%_) - (let ((_%hd146093146112%_ + (gxc#compile-e__1 _%self146240%_ _%body146242%_))) + (_%body146278%_ + (let* ((_%body146247146255%_ _%body146246%_) + (_%else146249146263%_ + (lambda () (cons _%body146246%_ '()))) + (_%K146251146268%_ + (lambda (_%exprs146266%_) _%exprs146266%_))) + (if (pair? _%body146247146255%_) + (let ((_%hd146252146271%_ (let () (declare (not safe)) - (##car _%body146088146096%_))) - (_%tl146094146114%_ + (##car _%body146247146255%_))) + (_%tl146253146273%_ (let () (declare (not safe)) - (##cdr _%body146088146096%_)))) + (##cdr _%body146247146255%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146093146112%_ 'begin)) - (let ((_%exprs146117%_ _%tl146094146114%_)) - (_%K146092146109%_ _%exprs146117%_)) - (_%else146090146104%_))) - (_%else146090146104%_))))) - (cons 'lambda (cons _%hd146085%_ _%body146119%_))))) + (##eq? _%hd146252146271%_ 'begin)) + (let ((_%exprs146276%_ _%tl146253146273%_)) + (_%K146251146268%_ _%exprs146276%_)) + (_%else146249146263%_))) + (_%else146249146263%_))))) + (cons 'lambda (cons _%hd146244%_ _%body146278%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd146079%_) + (lambda (_%hd146238%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146079%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146238%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self144618%_ _%stx144619%_) - (letrec ((_%dispatch-case?144621%_ - (lambda (_%hd145309%_ _%body145310%_) - (let* ((_%form145312%_ - (cons _%hd145309%_ (cons _%body145310%_ '()))) - (_%__stx147634147635%_ _%form145312%_) - (_%g145317145474%_ + (lambda (_%self144777%_ _%stx144778%_) + (letrec ((_%dispatch-case?144780%_ + (lambda (_%hd145468%_ _%body145469%_) + (let* ((_%form145471%_ + (cons _%hd145468%_ (cons _%body145469%_ '()))) + (_%__stx147793147794%_ _%form145471%_) + (_%g145476145633%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147634147635%_))))) - (let ((_%__kont147636147637%_ - (lambda (_%L145999%_ _%L146000%_ _%L146001%_) + _%__stx147793147794%_))))) + (let ((_%__kont147795147796%_ + (lambda (_%L146158%_ _%L146159%_ _%L146160%_) '#t)) - (_%__kont147642147643%_ - (lambda (_%L145787%_ - _%L145788%_ - _%L145789%_ - _%L145790%_ - _%L145791%_ - _%L145792%_) + (_%__kont147801147802%_ + (lambda (_%L145946%_ + _%L145947%_ + _%L145948%_ + _%L145949%_ + _%L145950%_ + _%L145951%_) '#t)) - (_%__kont147648147649%_ - (lambda (_%L145582%_ - _%L145583%_ - _%L145584%_ - _%L145585%_) + (_%__kont147807147808%_ + (lambda (_%L145741%_ + _%L145742%_ + _%L145743%_ + _%L145744%_) '#t)) - (_%__kont147650147651%_ (lambda () '#f))) - (let* ((_%__match147775147776%_ - (lambda (_%e145434145486%_ - _%hd145435145489%_ - _%tl145436145491%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_ - _%e145461145558%_ - _%hd145462145561%_ - _%tl145463145563%_ - _%e145464145566%_ - _%hd145465145569%_ - _%tl145466145571%_ - _%e145467145574%_ - _%hd145468145577%_ - _%tl145469145579%_) - (let ((_%L145582%_ _%hd145468145577%_) - (_%L145583%_ _%hd145459145553%_) - (_%L145584%_ _%hd145450145529%_) - (_%L145585%_ _%hd145435145489%_)) + (_%__kont147809147810%_ (lambda () '#f))) + (let* ((_%__match147934147935%_ + (lambda (_%e145593145645%_ + _%hd145594145648%_ + _%tl145595145650%_ + _%e145596145653%_ + _%hd145597145656%_ + _%tl145598145658%_ + _%e145599145661%_ + _%hd145600145664%_ + _%tl145601145666%_ + _%e145602145669%_ + _%hd145603145672%_ + _%tl145604145674%_ + _%e145605145677%_ + _%hd145606145680%_ + _%tl145607145682%_ + _%e145608145685%_ + _%hd145609145688%_ + _%tl145610145690%_ + _%e145611145693%_ + _%hd145612145696%_ + _%tl145613145698%_ + _%e145614145701%_ + _%hd145615145704%_ + _%tl145616145706%_ + _%e145617145709%_ + _%hd145618145712%_ + _%tl145619145714%_ + _%e145620145717%_ + _%hd145621145720%_ + _%tl145622145722%_ + _%e145623145725%_ + _%hd145624145728%_ + _%tl145625145730%_ + _%e145626145733%_ + _%hd145627145736%_ + _%tl145628145738%_) + (let ((_%L145741%_ _%hd145627145736%_) + (_%L145742%_ _%hd145618145712%_) + (_%L145743%_ _%hd145609145688%_) + (_%L145744%_ _%hd145594145648%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L145585%_)) + (gx#identifier? _%L145744%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145584%_ + _%L145743%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145585%_ - _%L145582%_)) + _%L145744%_ + _%L145741%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L145583%_ - _%L145585%_)))) - (_%__kont147648147649%_ - _%L145582%_ - _%L145583%_ - _%L145584%_ - _%L145585%_) - (_%__kont147650147651%_))))) - (_%__match147747147748%_ - (lambda (_%e145434145486%_ - _%hd145435145489%_ - _%tl145436145491%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_) + _%L145742%_ + _%L145744%_)))) + (_%__kont147807147808%_ + _%L145741%_ + _%L145742%_ + _%L145743%_ + _%L145744%_) + (_%__kont147809147810%_))))) + (_%__match147906147907%_ + (lambda (_%e145593145645%_ + _%hd145594145648%_ + _%tl145595145650%_ + _%e145596145653%_ + _%hd145597145656%_ + _%tl145598145658%_ + _%e145599145661%_ + _%hd145600145664%_ + _%tl145601145666%_ + _%e145602145669%_ + _%hd145603145672%_ + _%tl145604145674%_ + _%e145605145677%_ + _%hd145606145680%_ + _%tl145607145682%_ + _%e145608145685%_ + _%hd145609145688%_ + _%tl145610145690%_ + _%e145611145693%_ + _%hd145612145696%_ + _%tl145613145698%_ + _%e145614145701%_ + _%hd145615145704%_ + _%tl145616145706%_ + _%e145617145709%_ + _%hd145618145712%_ + _%tl145619145714%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145454145539%_)) - (let ((_%e145461145558%_ + (gx#stx-pair? _%tl145613145698%_)) + (let ((_%e145620145717%_ (let () (declare (not safe)) - (gx#stx-e _%tl145454145539%_)))) - (let ((_%tl145463145563%_ + (gx#stx-e _%tl145613145698%_)))) + (let ((_%tl145622145722%_ (let () (declare (not safe)) - (##cdr _%e145461145558%_))) - (_%hd145462145561%_ + (##cdr _%e145620145717%_))) + (_%hd145621145720%_ (let () (declare (not safe)) - (##car _%e145461145558%_)))) + (##car _%e145620145717%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145462145561%_)) - (let ((_%e145464145566%_ + _%hd145621145720%_)) + (let ((_%e145623145725%_ (let () (declare (not safe)) (gx#stx-e - _%hd145462145561%_)))) - (let ((_%tl145466145571%_ + _%hd145621145720%_)))) + (let ((_%tl145625145730%_ (let () (declare (not safe)) - (##cdr _%e145464145566%_))) - (_%hd145465145569%_ + (##cdr _%e145623145725%_))) + (_%hd145624145728%_ (let () (declare (not safe)) - (##car _%e145464145566%_)))) + (##car _%e145623145725%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145465145569%_)) + _%hd145624145728%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145465145569%_)) + _%hd145624145728%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145466145571%_)) - (let ((_%e145467145574%_ + (gx#stx-pair? _%tl145625145730%_)) + (let ((_%e145626145733%_ (let () (declare (not safe)) - (gx#stx-e _%tl145466145571%_)))) - (let ((_%tl145469145579%_ + (gx#stx-e _%tl145625145730%_)))) + (let ((_%tl145628145738%_ (let () (declare (not safe)) - (##cdr _%e145467145574%_))) - (_%hd145468145577%_ + (##cdr _%e145626145733%_))) + (_%hd145627145736%_ (let () (declare (not safe)) - (##car _%e145467145574%_)))) + (##car _%e145626145733%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145469145579%_)) + (gx#stx-null? _%tl145628145738%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145463145563%_)) + (gx#stx-null? _%tl145622145722%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145439145499%_)) - (_%__match147775147776%_ - _%e145434145486%_ - _%hd145435145489%_ - _%tl145436145491%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_ - _%e145461145558%_ - _%hd145462145561%_ - _%tl145463145563%_ - _%e145464145566%_ - _%hd145465145569%_ - _%tl145466145571%_ - _%e145467145574%_ - _%hd145468145577%_ - _%tl145469145579%_) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__match147677147678%_ - (lambda (_%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%__splice147644147645%_ - _%target145373145635%_ - _%tl145375145637%_) - (letrec ((_%loop145376145640%_ - (lambda (_%hd145374145643%_ - _%arg145380145645%_) + (gx#stx-null? _%tl145598145658%_)) + (_%__match147934147935%_ + _%e145593145645%_ + _%hd145594145648%_ + _%tl145595145650%_ + _%e145596145653%_ + _%hd145597145656%_ + _%tl145598145658%_ + _%e145599145661%_ + _%hd145600145664%_ + _%tl145601145666%_ + _%e145602145669%_ + _%hd145603145672%_ + _%tl145604145674%_ + _%e145605145677%_ + _%hd145606145680%_ + _%tl145607145682%_ + _%e145608145685%_ + _%hd145609145688%_ + _%tl145610145690%_ + _%e145611145693%_ + _%hd145612145696%_ + _%tl145613145698%_ + _%e145614145701%_ + _%hd145615145704%_ + _%tl145616145706%_ + _%e145617145709%_ + _%hd145618145712%_ + _%tl145619145714%_ + _%e145620145717%_ + _%hd145621145720%_ + _%tl145622145722%_ + _%e145623145725%_ + _%hd145624145728%_ + _%tl145625145730%_ + _%e145626145733%_ + _%hd145627145736%_ + _%tl145628145738%_) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)))) + (_%__match147836147837%_ + (lambda (_%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%__splice147803147804%_ + _%target145532145794%_ + _%tl145534145796%_) + (letrec ((_%loop145535145799%_ + (lambda (_%hd145533145802%_ + _%arg145539145804%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145374145643%_)) - (let ((_%e145377145648%_ + _%hd145533145802%_)) + (let ((_%e145536145807%_ (let () (declare (not safe)) (gx#stx-e - _%hd145374145643%_)))) - (let ((_%lp-tl145379145653%_ + _%hd145533145802%_)))) + (let ((_%lp-tl145538145812%_ (let () (declare (not safe)) - (##cdr _%e145377145648%_))) - (_%lp-hd145378145651%_ + (##cdr _%e145536145807%_))) + (_%lp-hd145537145810%_ (let () (declare (not safe)) - (##car _%e145377145648%_)))) - (_%loop145376145640%_ - _%lp-tl145379145653%_ - (cons _%lp-hd145378145651%_ - _%arg145380145645%_)))) - (let ((_%arg145381145656%_ - (reverse _%arg145380145645%_))) + (##car _%e145536145807%_)))) + (_%loop145535145799%_ + _%lp-tl145538145812%_ + (cons _%lp-hd145537145810%_ + _%arg145539145804%_)))) + (let ((_%arg145540145815%_ + (reverse _%arg145539145804%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145372145632%_)) - (let ((_%e145382145659%_ + _%tl145531145791%_)) + (let ((_%e145541145818%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145372145632%_)))) - (let ((_%tl145384145664%_ + (gx#stx-e _%tl145531145791%_)))) + (let ((_%tl145543145823%_ (let () (declare (not safe)) - (##cdr _%e145382145659%_))) - (_%hd145383145662%_ + (##cdr _%e145541145818%_))) + (_%hd145542145821%_ (let () (declare (not safe)) - (##car _%e145382145659%_)))) + (##car _%e145541145818%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145383145662%_)) - (let ((_%e145385145667%_ + (gx#stx-pair? _%hd145542145821%_)) + (let ((_%e145544145826%_ (let () (declare (not safe)) - (gx#stx-e _%hd145383145662%_)))) - (let ((_%tl145387145672%_ + (gx#stx-e _%hd145542145821%_)))) + (let ((_%tl145546145831%_ (let () (declare (not safe)) - (##cdr _%e145385145667%_))) - (_%hd145386145670%_ + (##cdr _%e145544145826%_))) + (_%hd145545145829%_ (let () (declare (not safe)) - (##car _%e145385145667%_)))) + (##car _%e145544145826%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145386145670%_)) + (gx#identifier? _%hd145545145829%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145386145670%_)) + (gx#stx-eq? '%#call _%hd145545145829%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145387145672%_)) - (let ((_%e145388145675%_ + (gx#stx-pair? _%tl145546145831%_)) + (let ((_%e145547145834%_ (let () (declare (not safe)) (gx#stx-e - _%tl145387145672%_)))) - (let ((_%tl145390145680%_ + _%tl145546145831%_)))) + (let ((_%tl145549145839%_ (let () (declare (not safe)) - (##cdr _%e145388145675%_))) - (_%hd145389145678%_ + (##cdr _%e145547145834%_))) + (_%hd145548145837%_ (let () (declare (not safe)) - (##car _%e145388145675%_)))) + (##car _%e145547145834%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145389145678%_)) - (let ((_%e145391145683%_ + _%hd145548145837%_)) + (let ((_%e145550145842%_ (let () (declare (not safe)) (gx#stx-e - _%hd145389145678%_)))) - (let ((_%tl145393145688%_ + _%hd145548145837%_)))) + (let ((_%tl145552145847%_ (let () (declare (not safe)) - (##cdr _%e145391145683%_))) - (_%hd145392145686%_ + (##cdr _%e145550145842%_))) + (_%hd145551145845%_ (let () (declare (not safe)) - (##car _%e145391145683%_)))) + (##car _%e145550145842%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145392145686%_)) + _%hd145551145845%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145392145686%_)) + _%hd145551145845%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145393145688%_)) - (let ((_%e145394145691%_ + (gx#stx-pair? _%tl145552145847%_)) + (let ((_%e145553145850%_ (let () (declare (not safe)) - (gx#stx-e _%tl145393145688%_)))) - (let ((_%tl145396145696%_ + (gx#stx-e _%tl145552145847%_)))) + (let ((_%tl145555145855%_ (let () (declare (not safe)) - (##cdr _%e145394145691%_))) - (_%hd145395145694%_ + (##cdr _%e145553145850%_))) + (_%hd145554145853%_ (let () (declare (not safe)) - (##car _%e145394145691%_)))) + (##car _%e145553145850%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145396145696%_)) + (gx#stx-null? _%tl145555145855%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145390145680%_)) - (let ((_%e145397145699%_ + (gx#stx-pair? _%tl145549145839%_)) + (let ((_%e145556145858%_ (let () (declare (not safe)) - (gx#stx-e _%tl145390145680%_)))) - (let ((_%tl145399145704%_ + (gx#stx-e _%tl145549145839%_)))) + (let ((_%tl145558145863%_ (let () (declare (not safe)) - (##cdr _%e145397145699%_))) - (_%hd145398145702%_ + (##cdr _%e145556145858%_))) + (_%hd145557145861%_ (let () (declare (not safe)) - (##car _%e145397145699%_)))) + (##car _%e145556145858%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145398145702%_)) - (let ((_%e145400145707%_ + _%hd145557145861%_)) + (let ((_%e145559145866%_ (let () (declare (not safe)) (gx#stx-e - _%hd145398145702%_)))) - (let ((_%tl145402145712%_ + _%hd145557145861%_)))) + (let ((_%tl145561145871%_ (let () (declare (not safe)) - (##cdr _%e145400145707%_))) - (_%hd145401145710%_ + (##cdr _%e145559145866%_))) + (_%hd145560145869%_ (let () (declare (not safe)) - (##car _%e145400145707%_)))) + (##car _%e145559145866%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145401145710%_)) + _%hd145560145869%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145401145710%_)) + _%hd145560145869%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145402145712%_)) - (let ((_%e145403145715%_ + _%tl145561145871%_)) + (let ((_%e145562145874%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145402145712%_)))) - (let ((_%tl145405145720%_ + (gx#stx-e _%tl145561145871%_)))) + (let ((_%tl145564145879%_ (let () (declare (not safe)) - (##cdr _%e145403145715%_))) - (_%hd145404145718%_ + (##cdr _%e145562145874%_))) + (_%hd145563145877%_ (let () (declare (not safe)) - (##car _%e145403145715%_)))) + (##car _%e145562145874%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145405145720%_)) + (gx#stx-null? _%tl145564145879%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145399145704%_)) - (if (let ((__tmp148916 + (gx#stx-pair/null? _%tl145558145863%_)) + (if (let ((__tmp149075 (let () (declare (not safe)) (gx#stx-length - _%tl145399145704%_)))) + _%tl145558145863%_)))) (declare (not safe)) - (##fx>= __tmp148916 '1)) - (let ((_%__splice147646147647%_ + (##fx>= __tmp149075 '1)) + (let ((_%__splice147805147806%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145399145704%_ + _%tl145558145863%_ '1)))) - (let ((_%tl145408145725%_ + (let ((_%tl145567145884%_ (let () (declare (not safe)) (##vector-ref - _%__splice147646147647%_ + _%__splice147805147806%_ '1))) - (_%target145406145723%_ + (_%target145565145882%_ (let () (declare (not safe)) (##vector-ref - _%__splice147646147647%_ + _%__splice147805147806%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145408145725%_)) - (let ((_%e145415145728%_ + _%tl145567145884%_)) + (let ((_%e145574145887%_ (let () (declare (not safe)) (gx#stx-e - _%tl145408145725%_)))) - (let ((_%tl145417145733%_ + _%tl145567145884%_)))) + (let ((_%tl145576145892%_ (let () (declare (not safe)) - (##cdr _%e145415145728%_))) - (_%hd145416145731%_ + (##cdr _%e145574145887%_))) + (_%hd145575145890%_ (let () (declare (not safe)) - (##car _%e145415145728%_)))) + (##car _%e145574145887%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145416145731%_)) - (let ((_%e145418145736%_ + _%hd145575145890%_)) + (let ((_%e145577145895%_ (let () (declare (not safe)) (gx#stx-e - _%hd145416145731%_)))) - (let ((_%tl145420145741%_ + _%hd145575145890%_)))) + (let ((_%tl145579145900%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e145418145736%_))) - (_%hd145419145739%_ - (let () (declare (not safe)) (##car _%e145418145736%_)))) + (##cdr _%e145577145895%_))) + (_%hd145578145898%_ + (let () (declare (not safe)) (##car _%e145577145895%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145419145739%_)) + (gx#identifier? _%hd145578145898%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145419145739%_)) + (gx#stx-eq? '%#ref _%hd145578145898%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145420145741%_)) - (let ((_%e145421145744%_ + (gx#stx-pair? _%tl145579145900%_)) + (let ((_%e145580145903%_ (let () (declare (not safe)) - (gx#stx-e _%tl145420145741%_)))) - (let ((_%tl145423145749%_ + (gx#stx-e _%tl145579145900%_)))) + (let ((_%tl145582145908%_ (let () (declare (not safe)) - (##cdr _%e145421145744%_))) - (_%hd145422145747%_ + (##cdr _%e145580145903%_))) + (_%hd145581145906%_ (let () (declare (not safe)) - (##car _%e145421145744%_)))) + (##car _%e145580145903%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145423145749%_)) + (gx#stx-null? _%tl145582145908%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145417145733%_)) - (letrec ((_%loop145409145752%_ - (lambda (_%hd145407145755%_ - _%xarg145413145757%_) + (gx#stx-null? _%tl145576145892%_)) + (letrec ((_%loop145568145911%_ + (lambda (_%hd145566145914%_ + _%xarg145572145916%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145407145755%_)) - (let ((_%e145410145760%_ + _%hd145566145914%_)) + (let ((_%e145569145919%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145407145755%_)))) - (let ((_%lp-tl145412145765%_ + (gx#stx-e _%hd145566145914%_)))) + (let ((_%lp-tl145571145924%_ (let () (declare (not safe)) - (##cdr _%e145410145760%_))) - (_%lp-hd145411145763%_ + (##cdr _%e145569145919%_))) + (_%lp-hd145570145922%_ (let () (declare (not safe)) - (##car _%e145410145760%_)))) + (##car _%e145569145919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145411145763%_)) - (let ((_%e145424145768%_ + (gx#stx-pair? _%lp-hd145570145922%_)) + (let ((_%e145583145927%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145411145763%_)))) - (let ((_%tl145426145773%_ + (gx#stx-e _%lp-hd145570145922%_)))) + (let ((_%tl145585145932%_ (let () (declare (not safe)) - (##cdr _%e145424145768%_))) - (_%hd145425145771%_ + (##cdr _%e145583145927%_))) + (_%hd145584145930%_ (let () (declare (not safe)) - (##car _%e145424145768%_)))) + (##car _%e145583145927%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145425145771%_)) + (gx#identifier? _%hd145584145930%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145425145771%_)) + (gx#stx-eq? '%#ref _%hd145584145930%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145426145773%_)) - (let ((_%e145427145776%_ + (gx#stx-pair? _%tl145585145932%_)) + (let ((_%e145586145935%_ (let () (declare (not safe)) (gx#stx-e - _%tl145426145773%_)))) - (let ((_%tl145429145781%_ + _%tl145585145932%_)))) + (let ((_%tl145588145940%_ (let () (declare (not safe)) - (##cdr _%e145427145776%_))) - (_%hd145428145779%_ + (##cdr _%e145586145935%_))) + (_%hd145587145938%_ (let () (declare (not safe)) - (##car _%e145427145776%_)))) + (##car _%e145586145935%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145429145781%_)) - (_%loop145409145752%_ - _%lp-tl145412145765%_ - (cons _%hd145428145779%_ - _%xarg145413145757%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (let ((_%xarg145414145784%_ (reverse _%xarg145413145757%_))) + _%tl145588145940%_)) + (_%loop145568145911%_ + _%lp-tl145571145924%_ + (cons _%hd145587145938%_ + _%xarg145572145916%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) + (let ((_%xarg145573145943%_ (reverse _%xarg145572145916%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145384145664%_)) - (let ((_%L145787%_ _%hd145422145747%_) - (_%L145788%_ _%xarg145414145784%_) - (_%L145789%_ _%hd145404145718%_) - (_%L145790%_ _%hd145395145694%_) - (_%L145791%_ _%tl145375145637%_) - (_%L145792%_ _%arg145381145656%_)) - (if (and (let ((__tmp148917 - (let ((__tmp148918 - (lambda (_%g145835145838%_ - _%g145836145840%_) - (cons _%g145835145838%_ - _%g145836145840%_)))) + (gx#stx-null? _%tl145543145823%_)) + (let ((_%L145946%_ _%hd145581145906%_) + (_%L145947%_ _%xarg145573145943%_) + (_%L145948%_ _%hd145563145877%_) + (_%L145949%_ _%hd145554145853%_) + (_%L145950%_ _%tl145534145796%_) + (_%L145951%_ _%arg145540145815%_)) + (if (and (let ((__tmp149076 + (let ((__tmp149077 + (lambda (_%g145994145997%_ + _%g145995145999%_) + (cons _%g145994145997%_ + _%g145995145999%_)))) (declare (not safe)) (__foldr1 - __tmp148918 + __tmp149077 '() - _%L145792%_)))) + _%L145951%_)))) (declare (not safe)) - (gx#identifier-list? __tmp148917)) + (gx#identifier-list? __tmp149076)) (let () (declare (not safe)) - (gx#identifier? _%L145791%_)) + (gx#identifier? _%L145950%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145790%_ + _%L145949%_ 'apply)) - (let ((__tmp148921 - (length (let ((__tmp148922 - (lambda (_%g145842145845%_ - _%g145843145847%_) - (cons _%g145842145845%_ - _%g145843145847%_)))) + (let ((__tmp149080 + (length (let ((__tmp149081 + (lambda (_%g146001146004%_ + _%g146002146006%_) + (cons _%g146001146004%_ + _%g146002146006%_)))) (declare (not safe)) (__foldr1 - __tmp148922 + __tmp149081 '() - _%L145792%_)))) - (__tmp148919 - (length (let ((__tmp148920 - (lambda (_%g145849145852%_ - _%g145850145854%_) - (cons _%g145849145852%_ - _%g145850145854%_)))) + _%L145951%_)))) + (__tmp149078 + (length (let ((__tmp149079 + (lambda (_%g146008146011%_ + _%g146009146013%_) + (cons _%g146008146011%_ + _%g146009146013%_)))) (declare (not safe)) (__foldr1 - __tmp148920 + __tmp149079 '() - _%L145788%_))))) + _%L145947%_))))) (declare (not safe)) - (##fx= __tmp148921 __tmp148919)) - (let ((__tmp148925 - (let ((__tmp148926 - (lambda (_%g145856145859%_ - _%g145857145861%_) - (cons _%g145856145859%_ - _%g145857145861%_)))) + (##fx= __tmp149080 __tmp149078)) + (let ((__tmp149084 + (let ((__tmp149085 + (lambda (_%g146015146018%_ + _%g146016146020%_) + (cons _%g146015146018%_ + _%g146016146020%_)))) (declare (not safe)) (__foldr1 - __tmp148926 + __tmp149085 '() - _%L145792%_))) - (__tmp148923 - (let ((__tmp148924 - (lambda (_%g145863145866%_ - _%g145864145868%_) - (cons _%g145863145866%_ - _%g145864145868%_)))) + _%L145951%_))) + (__tmp149082 + (let ((__tmp149083 + (lambda (_%g146022146025%_ + _%g146023146027%_) + (cons _%g146022146025%_ + _%g146023146027%_)))) (declare (not safe)) (__foldr1 - __tmp148924 + __tmp149083 '() - _%L145788%_)))) + _%L145947%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp148925 - __tmp148923)) + __tmp149084 + __tmp149082)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145791%_ - _%L145787%_)) - (not (let ((__tmp148930 - (lambda (_%g145870145872%_) + _%L145950%_ + _%L145946%_)) + (not (let ((__tmp149089 + (lambda (_%g146029146031%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g145870145872%_ - _%L145789%_)))) - (__tmp148927 - (let ((__tmp148929 - (lambda (_%g145874145877%_ - _%g145875145879%_) - (cons _%g145874145877%_ - _%g145875145879%_))) - (__tmp148928 - (cons _%L145791%_ '()))) + _%g146029146031%_ + _%L145948%_)))) + (__tmp149086 + (let ((__tmp149088 + (lambda (_%g146033146036%_ + _%g146034146038%_) + (cons _%g146033146036%_ + _%g146034146038%_))) + (__tmp149087 + (cons _%L145950%_ '()))) (declare (not safe)) (__foldr1 - __tmp148929 - __tmp148928 - _%L145792%_)))) + __tmp149088 + __tmp149087 + _%L145951%_)))) (declare (not safe)) - (__find __tmp148930 __tmp148927)))) - (_%__kont147642147643%_ - _%L145787%_ - _%L145788%_ - _%L145789%_ - _%L145790%_ - _%L145791%_ - _%L145792%_) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145409145752%_ - _%target145406145723%_ + (__find __tmp149089 __tmp149086)))) + (_%__kont147801147802%_ + _%L145946%_ + _%L145947%_ + _%L145948%_ + _%L145949%_ + _%L145950%_ + _%L145951%_) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_))) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145568145911%_ + _%target145565145882%_ '())) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145376145640%_ - _%target145373145635%_ + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)))) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__match147906147907%_ + _%e145529145786%_ + _%hd145530145789%_ + _%tl145531145791%_ + _%e145541145818%_ + _%hd145542145821%_ + _%tl145543145823%_ + _%e145544145826%_ + _%hd145545145829%_ + _%tl145546145831%_ + _%e145547145834%_ + _%hd145548145837%_ + _%tl145549145839%_ + _%e145550145842%_ + _%hd145551145845%_ + _%tl145552145847%_ + _%e145553145850%_ + _%hd145554145853%_ + _%tl145555145855%_ + _%e145556145858%_ + _%hd145557145861%_ + _%tl145558145863%_ + _%e145559145866%_ + _%hd145560145869%_ + _%tl145561145871%_ + _%e145562145874%_ + _%hd145563145877%_ + _%tl145564145879%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145535145799%_ + _%target145532145794%_ '())))) - (_%__match147665147666%_ - (lambda (_%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_) - (letrec ((_%loop145328145900%_ - (lambda (_%hd145326145903%_ - _%arg145332145905%_) + (_%__match147824147825%_ + (lambda (_%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_) + (letrec ((_%loop145487146059%_ + (lambda (_%hd145485146062%_ + _%arg145491146064%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145326145903%_)) - (let ((_%e145329145908%_ + _%hd145485146062%_)) + (let ((_%e145488146067%_ (let () (declare (not safe)) (gx#stx-e - _%hd145326145903%_)))) - (let ((_%lp-tl145331145913%_ + _%hd145485146062%_)))) + (let ((_%lp-tl145490146072%_ (let () (declare (not safe)) - (##cdr _%e145329145908%_))) - (_%lp-hd145330145911%_ + (##cdr _%e145488146067%_))) + (_%lp-hd145489146070%_ (let () (declare (not safe)) - (##car _%e145329145908%_)))) - (_%loop145328145900%_ - _%lp-tl145331145913%_ - (cons _%lp-hd145330145911%_ - _%arg145332145905%_)))) - (let ((_%arg145333145916%_ - (reverse _%arg145332145905%_))) + (##car _%e145488146067%_)))) + (_%loop145487146059%_ + _%lp-tl145490146072%_ + (cons _%lp-hd145489146070%_ + _%arg145491146064%_)))) + (let ((_%arg145492146075%_ + (reverse _%arg145491146064%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145324145892%_)) - (let ((_%e145334145919%_ + _%tl145483146051%_)) + (let ((_%e145493146078%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145324145892%_)))) - (let ((_%tl145336145924%_ + (gx#stx-e _%tl145483146051%_)))) + (let ((_%tl145495146083%_ (let () (declare (not safe)) - (##cdr _%e145334145919%_))) - (_%hd145335145922%_ + (##cdr _%e145493146078%_))) + (_%hd145494146081%_ (let () (declare (not safe)) - (##car _%e145334145919%_)))) + (##car _%e145493146078%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145335145922%_)) - (let ((_%e145337145927%_ + (gx#stx-pair? _%hd145494146081%_)) + (let ((_%e145496146086%_ (let () (declare (not safe)) - (gx#stx-e _%hd145335145922%_)))) - (let ((_%tl145339145932%_ + (gx#stx-e _%hd145494146081%_)))) + (let ((_%tl145498146091%_ (let () (declare (not safe)) - (##cdr _%e145337145927%_))) - (_%hd145338145930%_ + (##cdr _%e145496146086%_))) + (_%hd145497146089%_ (let () (declare (not safe)) - (##car _%e145337145927%_)))) + (##car _%e145496146086%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145338145930%_)) + (gx#identifier? _%hd145497146089%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145338145930%_)) + (gx#stx-eq? '%#call _%hd145497146089%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145339145932%_)) - (let ((_%e145340145935%_ + (gx#stx-pair? _%tl145498146091%_)) + (let ((_%e145499146094%_ (let () (declare (not safe)) (gx#stx-e - _%tl145339145932%_)))) - (let ((_%tl145342145940%_ + _%tl145498146091%_)))) + (let ((_%tl145501146099%_ (let () (declare (not safe)) - (##cdr _%e145340145935%_))) - (_%hd145341145938%_ + (##cdr _%e145499146094%_))) + (_%hd145500146097%_ (let () (declare (not safe)) - (##car _%e145340145935%_)))) + (##car _%e145499146094%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145341145938%_)) - (let ((_%e145343145943%_ + _%hd145500146097%_)) + (let ((_%e145502146102%_ (let () (declare (not safe)) (gx#stx-e - _%hd145341145938%_)))) - (let ((_%tl145345145948%_ + _%hd145500146097%_)))) + (let ((_%tl145504146107%_ (let () (declare (not safe)) - (##cdr _%e145343145943%_))) - (_%hd145344145946%_ + (##cdr _%e145502146102%_))) + (_%hd145503146105%_ (let () (declare (not safe)) - (##car _%e145343145943%_)))) + (##car _%e145502146102%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145344145946%_)) + _%hd145503146105%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145344145946%_)) + _%hd145503146105%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145345145948%_)) - (let ((_%e145346145951%_ + (gx#stx-pair? _%tl145504146107%_)) + (let ((_%e145505146110%_ (let () (declare (not safe)) - (gx#stx-e _%tl145345145948%_)))) - (let ((_%tl145348145956%_ + (gx#stx-e _%tl145504146107%_)))) + (let ((_%tl145507146115%_ (let () (declare (not safe)) - (##cdr _%e145346145951%_))) - (_%hd145347145954%_ + (##cdr _%e145505146110%_))) + (_%hd145506146113%_ (let () (declare (not safe)) - (##car _%e145346145951%_)))) + (##car _%e145505146110%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145348145956%_)) + (gx#stx-null? _%tl145507146115%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145342145940%_)) - (let ((_%__splice147640147641%_ + (gx#stx-pair/null? _%tl145501146099%_)) + (let ((_%__splice147799147800%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145342145940%_ + _%tl145501146099%_ '0)))) - (let ((_%tl145351145961%_ + (let ((_%tl145510146120%_ (let () (declare (not safe)) (##vector-ref - _%__splice147640147641%_ + _%__splice147799147800%_ '1))) - (_%target145349145959%_ + (_%target145508146118%_ (let () (declare (not safe)) (##vector-ref - _%__splice147640147641%_ + _%__splice147799147800%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145351145961%_)) - (letrec ((_%loop145352145964%_ - (lambda (_%hd145350145967%_ - _%xarg145356145969%_) + _%tl145510146120%_)) + (letrec ((_%loop145511146123%_ + (lambda (_%hd145509146126%_ + _%xarg145515146128%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145350145967%_)) - (let ((_%e145353145972%_ + _%hd145509146126%_)) + (let ((_%e145512146131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145350145967%_)))) - (let ((_%lp-tl145355145977%_ + (gx#stx-e _%hd145509146126%_)))) + (let ((_%lp-tl145514146136%_ (let () (declare (not safe)) - (##cdr _%e145353145972%_))) - (_%lp-hd145354145975%_ + (##cdr _%e145512146131%_))) + (_%lp-hd145513146134%_ (let () (declare (not safe)) - (##car _%e145353145972%_)))) + (##car _%e145512146131%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145354145975%_)) - (let ((_%e145358145980%_ + (gx#stx-pair? _%lp-hd145513146134%_)) + (let ((_%e145517146139%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145354145975%_)))) - (let ((_%tl145360145985%_ + (gx#stx-e _%lp-hd145513146134%_)))) + (let ((_%tl145519146144%_ (let () (declare (not safe)) - (##cdr _%e145358145980%_))) - (_%hd145359145983%_ + (##cdr _%e145517146139%_))) + (_%hd145518146142%_ (let () (declare (not safe)) - (##car _%e145358145980%_)))) + (##car _%e145517146139%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145359145983%_)) + (gx#identifier? _%hd145518146142%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145359145983%_)) + _%hd145518146142%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145360145985%_)) - (let ((_%e145361145988%_ + _%tl145519146144%_)) + (let ((_%e145520146147%_ (let () (declare (not safe)) (gx#stx-e - _%tl145360145985%_)))) - (let ((_%tl145363145993%_ + _%tl145519146144%_)))) + (let ((_%tl145522146152%_ (let () (declare (not safe)) - (##cdr _%e145361145988%_))) - (_%hd145362145991%_ + (##cdr _%e145520146147%_))) + (_%hd145521146150%_ (let () (declare (not safe)) - (##car _%e145361145988%_)))) + (##car _%e145520146147%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145363145993%_)) - (_%loop145352145964%_ - _%lp-tl145355145977%_ - (cons _%hd145362145991%_ - _%xarg145356145969%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (let ((_%xarg145357145996%_ - (reverse _%xarg145356145969%_))) + _%tl145522146152%_)) + (_%loop145511146123%_ + _%lp-tl145514146136%_ + (cons _%hd145521146150%_ + _%xarg145515146128%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (let ((_%xarg145516146155%_ + (reverse _%xarg145515146128%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145336145924%_)) - (let ((_%L145999%_ _%xarg145357145996%_) - (_%L146000%_ _%hd145347145954%_) - (_%L146001%_ _%arg145333145916%_)) - (if (and (let ((__tmp148931 - (let ((__tmp148932 - (lambda (_%g146029146032%_ - _%g146030146034%_) - (cons _%g146029146032%_ - _%g146030146034%_)))) + (gx#stx-null? _%tl145495146083%_)) + (let ((_%L146158%_ _%xarg145516146155%_) + (_%L146159%_ _%hd145506146113%_) + (_%L146160%_ _%arg145492146075%_)) + (if (and (let ((__tmp149090 + (let ((__tmp149091 + (lambda (_%g146188146191%_ + _%g146189146193%_) + (cons _%g146188146191%_ + _%g146189146193%_)))) (declare (not safe)) (__foldr1 - __tmp148932 + __tmp149091 '() - _%L146001%_)))) + _%L146160%_)))) (declare (not safe)) - (gx#identifier-list? __tmp148931)) - (let ((__tmp148935 - (length (let ((__tmp148936 - (lambda (_%g146036146039%_ + (gx#identifier-list? __tmp149090)) + (let ((__tmp149094 + (length (let ((__tmp149095 + (lambda (_%g146195146198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146037146041%_) - (cons _%g146036146039%_ _%g146037146041%_)))) + _%g146196146200%_) + (cons _%g146195146198%_ _%g146196146200%_)))) (declare (not safe)) - (__foldr1 __tmp148936 '() _%L146001%_)))) + (__foldr1 __tmp149095 '() _%L146160%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp148933 - (length (let ((__tmp148934 - (lambda (_%g146043146046%_ + (__tmp149092 + (length (let ((__tmp149093 + (lambda (_%g146202146205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146044146048%_) - (cons _%g146043146046%_ _%g146044146048%_)))) + _%g146203146207%_) + (cons _%g146202146205%_ _%g146203146207%_)))) (declare (not safe)) - (__foldr1 __tmp148934 '() _%L145999%_))))) + (__foldr1 __tmp149093 '() _%L146158%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp148935 __tmp148933)) - (let ((__tmp148939 - (let ((__tmp148940 - (lambda (_%g146050146053%_ - _%g146051146055%_) - (cons _%g146050146053%_ - _%g146051146055%_)))) + (##fx= __tmp149094 __tmp149092)) + (let ((__tmp149098 + (let ((__tmp149099 + (lambda (_%g146209146212%_ + _%g146210146214%_) + (cons _%g146209146212%_ + _%g146210146214%_)))) (declare (not safe)) (__foldr1 - __tmp148940 + __tmp149099 '() - _%L146001%_))) - (__tmp148937 - (let ((__tmp148938 - (lambda (_%g146057146060%_ - _%g146058146062%_) - (cons _%g146057146060%_ - _%g146058146062%_)))) + _%L146160%_))) + (__tmp149096 + (let ((__tmp149097 + (lambda (_%g146216146219%_ + _%g146217146221%_) + (cons _%g146216146219%_ + _%g146217146221%_)))) (declare (not safe)) (__foldr1 - __tmp148938 + __tmp149097 '() - _%L145999%_)))) + _%L146158%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp148939 - __tmp148937)) - (not (let ((__tmp148943 - (lambda (_%g146064146066%_) + __tmp149098 + __tmp149096)) + (not (let ((__tmp149102 + (lambda (_%g146223146225%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146064146066%_ - _%L146000%_)))) - (__tmp148941 - (let ((__tmp148942 - (lambda (_%g146068146071%_ + _%g146223146225%_ + _%L146159%_)))) + (__tmp149100 + (let ((__tmp149101 + (lambda (_%g146227146230%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146069146073%_) - (cons _%g146068146071%_ _%g146069146073%_)))) + _%g146228146232%_) + (cons _%g146227146230%_ _%g146228146232%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp148942 + __tmp149101 '() - _%L146001%_)))) + _%L146160%_)))) (declare (not safe)) - (__find __tmp148943 __tmp148941)))) - (_%__kont147636147637%_ - _%L145999%_ - _%L146000%_ - _%L146001%_) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145352145964%_ - _%target145349145959%_ + (__find __tmp149102 __tmp149100)))) + (_%__kont147795147796%_ + _%L146158%_ + _%L146159%_ + _%L146160%_) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145511146123%_ + _%target145508146118%_ '())) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145328145900%_ - _%target145325145895%_ + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145487146059%_ + _%target145484146054%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147634147635%_)) - (let ((_%e145322145887%_ + (gx#stx-pair? _%__stx147793147794%_)) + (let ((_%e145481146046%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147634147635%_)))) - (let ((_%tl145324145892%_ + (gx#stx-e _%__stx147793147794%_)))) + (let ((_%tl145483146051%_ (let () (declare (not safe)) - (##cdr _%e145322145887%_))) - (_%hd145323145890%_ + (##cdr _%e145481146046%_))) + (_%hd145482146049%_ (let () (declare (not safe)) - (##car _%e145322145887%_)))) + (##car _%e145481146046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145323145890%_)) - (let ((_%__splice147638147639%_ + (gx#stx-pair/null? _%hd145482146049%_)) + (let ((_%__splice147797147798%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145323145890%_ + _%hd145482146049%_ '0)))) - (let ((_%tl145327145897%_ + (let ((_%tl145486146056%_ (let () (declare (not safe)) (##vector-ref - _%__splice147638147639%_ + _%__splice147797147798%_ '1))) - (_%target145325145895%_ + (_%target145484146054%_ (let () (declare (not safe)) (##vector-ref - _%__splice147638147639%_ + _%__splice147797147798%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145327145897%_)) - (_%__match147665147666%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) + _%tl145486146056%_)) + (_%__match147824147825%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_) + (_%__match147836147837%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%__splice147797147798%_ + _%target145484146054%_ + _%tl145486146056%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145324145892%_)) - (let ((_%e145437145494%_ + (gx#stx-pair? _%tl145483146051%_)) + (let ((_%e145596145653%_ (let () (declare (not safe)) (gx#stx-e - _%tl145324145892%_)))) - (let ((_%tl145439145499%_ + _%tl145483146051%_)))) + (let ((_%tl145598145658%_ (let () (declare (not safe)) - (##cdr _%e145437145494%_))) - (_%hd145438145497%_ + (##cdr _%e145596145653%_))) + (_%hd145597145656%_ (let () (declare (not safe)) - (##car _%e145437145494%_)))) + (##car _%e145596145653%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145438145497%_)) - (let ((_%e145440145502%_ + _%hd145597145656%_)) + (let ((_%e145599145661%_ (let () (declare (not safe)) (gx#stx-e - _%hd145438145497%_)))) - (let ((_%tl145442145507%_ + _%hd145597145656%_)))) + (let ((_%tl145601145666%_ (let () (declare (not safe)) - (##cdr _%e145440145502%_))) - (_%hd145441145505%_ + (##cdr _%e145599145661%_))) + (_%hd145600145664%_ (let () (declare (not safe)) - (##car _%e145440145502%_)))) + (##car _%e145599145661%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145441145505%_)) + _%hd145600145664%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145441145505%_)) + (gx#stx-eq? '%#call _%hd145600145664%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145442145507%_)) - (let ((_%e145443145510%_ + (gx#stx-pair? _%tl145601145666%_)) + (let ((_%e145602145669%_ (let () (declare (not safe)) - (gx#stx-e _%tl145442145507%_)))) - (let ((_%tl145445145515%_ + (gx#stx-e _%tl145601145666%_)))) + (let ((_%tl145604145674%_ (let () (declare (not safe)) - (##cdr _%e145443145510%_))) - (_%hd145444145513%_ + (##cdr _%e145602145669%_))) + (_%hd145603145672%_ (let () (declare (not safe)) - (##car _%e145443145510%_)))) + (##car _%e145602145669%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145444145513%_)) - (let ((_%e145446145518%_ + (gx#stx-pair? _%hd145603145672%_)) + (let ((_%e145605145677%_ (let () (declare (not safe)) - (gx#stx-e _%hd145444145513%_)))) - (let ((_%tl145448145523%_ + (gx#stx-e _%hd145603145672%_)))) + (let ((_%tl145607145682%_ (let () (declare (not safe)) - (##cdr _%e145446145518%_))) - (_%hd145447145521%_ + (##cdr _%e145605145677%_))) + (_%hd145606145680%_ (let () (declare (not safe)) - (##car _%e145446145518%_)))) + (##car _%e145605145677%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145447145521%_)) + _%hd145606145680%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145447145521%_)) + _%hd145606145680%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145448145523%_)) - (let ((_%e145449145526%_ + _%tl145607145682%_)) + (let ((_%e145608145685%_ (let () (declare (not safe)) (gx#stx-e - _%tl145448145523%_)))) - (let ((_%tl145451145531%_ + _%tl145607145682%_)))) + (let ((_%tl145610145690%_ (let () (declare (not safe)) - (##cdr _%e145449145526%_))) - (_%hd145450145529%_ + (##cdr _%e145608145685%_))) + (_%hd145609145688%_ (let () (declare (not safe)) - (##car _%e145449145526%_)))) + (##car _%e145608145685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145451145531%_)) + _%tl145610145690%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145445145515%_)) - (let ((_%e145452145534%_ + (gx#stx-pair? _%tl145604145674%_)) + (let ((_%e145611145693%_ (let () (declare (not safe)) - (gx#stx-e _%tl145445145515%_)))) - (let ((_%tl145454145539%_ + (gx#stx-e _%tl145604145674%_)))) + (let ((_%tl145613145698%_ (let () (declare (not safe)) - (##cdr _%e145452145534%_))) - (_%hd145453145537%_ + (##cdr _%e145611145693%_))) + (_%hd145612145696%_ (let () (declare (not safe)) - (##car _%e145452145534%_)))) + (##car _%e145611145693%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145453145537%_)) - (let ((_%e145455145542%_ + (gx#stx-pair? _%hd145612145696%_)) + (let ((_%e145614145701%_ (let () (declare (not safe)) - (gx#stx-e _%hd145453145537%_)))) - (let ((_%tl145457145547%_ + (gx#stx-e _%hd145612145696%_)))) + (let ((_%tl145616145706%_ (let () (declare (not safe)) - (##cdr _%e145455145542%_))) - (_%hd145456145545%_ + (##cdr _%e145614145701%_))) + (_%hd145615145704%_ (let () (declare (not safe)) - (##car _%e145455145542%_)))) + (##car _%e145614145701%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145456145545%_)) + (gx#identifier? _%hd145615145704%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145456145545%_)) + _%hd145615145704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145457145547%_)) - (let ((_%e145458145550%_ + _%tl145616145706%_)) + (let ((_%e145617145709%_ (let () (declare (not safe)) (gx#stx-e - _%tl145457145547%_)))) - (let ((_%tl145460145555%_ + _%tl145616145706%_)))) + (let ((_%tl145619145714%_ (let () (declare (not safe)) - (##cdr _%e145458145550%_))) - (_%hd145459145553%_ + (##cdr _%e145617145709%_))) + (_%hd145618145712%_ (let () (declare (not safe)) - (##car _%e145458145550%_)))) + (##car _%e145617145709%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145460145555%_)) + _%tl145619145714%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145454145539%_)) - (let ((_%e145461145558%_ + _%tl145613145698%_)) + (let ((_%e145620145717%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145454145539%_)))) - (let ((_%tl145463145563%_ + (gx#stx-e _%tl145613145698%_)))) + (let ((_%tl145622145722%_ (let () (declare (not safe)) - (##cdr _%e145461145558%_))) - (_%hd145462145561%_ + (##cdr _%e145620145717%_))) + (_%hd145621145720%_ (let () (declare (not safe)) - (##car _%e145461145558%_)))) + (##car _%e145620145717%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145462145561%_)) - (let ((_%e145464145566%_ + (gx#stx-pair? _%hd145621145720%_)) + (let ((_%e145623145725%_ (let () (declare (not safe)) - (gx#stx-e _%hd145462145561%_)))) - (let ((_%tl145466145571%_ + (gx#stx-e _%hd145621145720%_)))) + (let ((_%tl145625145730%_ (let () (declare (not safe)) - (##cdr _%e145464145566%_))) - (_%hd145465145569%_ + (##cdr _%e145623145725%_))) + (_%hd145624145728%_ (let () (declare (not safe)) - (##car _%e145464145566%_)))) + (##car _%e145623145725%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145465145569%_)) + (gx#identifier? _%hd145624145728%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145465145569%_)) + (gx#stx-eq? '%#ref _%hd145624145728%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145466145571%_)) - (let ((_%e145467145574%_ + (gx#stx-pair? _%tl145625145730%_)) + (let ((_%e145626145733%_ (let () (declare (not safe)) (gx#stx-e - _%tl145466145571%_)))) - (let ((_%tl145469145579%_ + _%tl145625145730%_)))) + (let ((_%tl145628145738%_ (let () (declare (not safe)) - (##cdr _%e145467145574%_))) - (_%hd145468145577%_ + (##cdr _%e145626145733%_))) + (_%hd145627145736%_ (let () (declare (not safe)) - (##car _%e145467145574%_)))) + (##car _%e145626145733%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145469145579%_)) + _%tl145628145738%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145463145563%_)) + _%tl145622145722%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145439145499%_)) - (_%__match147775147776%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_ - _%e145461145558%_ - _%hd145462145561%_ - _%tl145463145563%_ - _%e145464145566%_ - _%hd145465145569%_ - _%tl145466145571%_ - _%e145467145574%_ - _%hd145468145577%_ - _%tl145469145579%_) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_))))) - (_%__kont147650147651%_))))))) - (_%dispatch-case-e144622%_ - (lambda (_%hd144773%_ _%body144774%_) - (let* ((_%form144776%_ - (cons _%hd144773%_ (cons _%body144774%_ '()))) - (_%__stx147778147779%_ _%form144776%_) - (_%g144780144904%_ + _%tl145598145658%_)) + (_%__match147934147935%_ + _%e145481146046%_ + _%hd145482146049%_ + _%tl145483146051%_ + _%e145596145653%_ + _%hd145597145656%_ + _%tl145598145658%_ + _%e145599145661%_ + _%hd145600145664%_ + _%tl145601145666%_ + _%e145602145669%_ + _%hd145603145672%_ + _%tl145604145674%_ + _%e145605145677%_ + _%hd145606145680%_ + _%tl145607145682%_ + _%e145608145685%_ + _%hd145609145688%_ + _%tl145610145690%_ + _%e145611145693%_ + _%hd145612145696%_ + _%tl145613145698%_ + _%e145614145701%_ + _%hd145615145704%_ + _%tl145616145706%_ + _%e145617145709%_ + _%hd145618145712%_ + _%tl145619145714%_ + _%e145620145717%_ + _%hd145621145720%_ + _%tl145622145722%_ + _%e145623145725%_ + _%hd145624145728%_ + _%tl145625145730%_ + _%e145626145733%_ + _%hd145627145736%_ + _%tl145628145738%_) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)))) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)) + (_%__kont147809147810%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147809147810%_)))) + (_%__kont147809147810%_))))) + (_%__kont147809147810%_))))))) + (_%dispatch-case-e144781%_ + (lambda (_%hd144932%_ _%body144933%_) + (let* ((_%form144935%_ + (cons _%hd144932%_ (cons _%body144933%_ '()))) + (_%__stx147937147938%_ _%form144935%_) + (_%g144939145063%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147778147779%_))))) - (let ((_%__kont147780147781%_ - (lambda (_%L145275%_ _%L145276%_ _%L145277%_) - (let ((__tmp148944 + _%__stx147937147938%_))))) + (let ((_%__kont147939147940%_ + (lambda (_%L145434%_ _%L145435%_ _%L145436%_) + (let ((__tmp149103 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145276%_ '())))) + (cons _%L145435%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144618%_ - __tmp148944)))) - (_%__kont147786147787%_ - (lambda (_%L145123%_ - _%L145124%_ - _%L145125%_ - _%L145126%_) - (let ((__tmp148945 + _%self144777%_ + __tmp149103)))) + (_%__kont147945147946%_ + (lambda (_%L145282%_ + _%L145283%_ + _%L145284%_ + _%L145285%_) + (let ((__tmp149104 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145123%_ '())))) + (cons _%L145282%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144618%_ - __tmp148945)))) - (_%__kont147790147791%_ - (lambda (_%L144989%_ _%L144990%_ _%L144991%_) - (let ((__tmp148946 + _%self144777%_ + __tmp149104)))) + (_%__kont147949147950%_ + (lambda (_%L145148%_ _%L145149%_ _%L145150%_) + (let ((__tmp149105 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L144989%_ '())))) + (cons _%L145148%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144618%_ - __tmp148946))))) - (let* ((_%__match147887147888%_ - (lambda (_%e144870144909%_ - _%hd144871144912%_ - _%tl144872144914%_ - _%e144873144917%_ - _%hd144874144920%_ - _%tl144875144922%_ - _%e144876144925%_ - _%hd144877144928%_ - _%tl144878144930%_ - _%e144879144933%_ - _%hd144880144936%_ - _%tl144881144938%_ - _%e144882144941%_ - _%hd144883144944%_ - _%tl144884144946%_ - _%e144885144949%_ - _%hd144886144952%_ - _%tl144887144954%_ - _%e144888144957%_ - _%hd144889144960%_ - _%tl144890144962%_ - _%e144891144965%_ - _%hd144892144968%_ - _%tl144893144970%_ - _%e144894144973%_ - _%hd144895144976%_ - _%tl144896144978%_) + _%self144777%_ + __tmp149105))))) + (let* ((_%__match148046148047%_ + (lambda (_%e145029145068%_ + _%hd145030145071%_ + _%tl145031145073%_ + _%e145032145076%_ + _%hd145033145079%_ + _%tl145034145081%_ + _%e145035145084%_ + _%hd145036145087%_ + _%tl145037145089%_ + _%e145038145092%_ + _%hd145039145095%_ + _%tl145040145097%_ + _%e145041145100%_ + _%hd145042145103%_ + _%tl145043145105%_ + _%e145044145108%_ + _%hd145045145111%_ + _%tl145046145113%_ + _%e145047145116%_ + _%hd145048145119%_ + _%tl145049145121%_ + _%e145050145124%_ + _%hd145051145127%_ + _%tl145052145129%_ + _%e145053145132%_ + _%hd145054145135%_ + _%tl145055145137%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144890144962%_)) - (let ((_%e144897144981%_ + (gx#stx-pair? _%tl145049145121%_)) + (let ((_%e145056145140%_ (let () (declare (not safe)) - (gx#stx-e _%tl144890144962%_)))) - (let ((_%tl144899144986%_ + (gx#stx-e _%tl145049145121%_)))) + (let ((_%tl145058145145%_ (let () (declare (not safe)) - (##cdr _%e144897144981%_))) - (_%hd144898144984%_ + (##cdr _%e145056145140%_))) + (_%hd145057145143%_ (let () (declare (not safe)) - (##car _%e144897144981%_)))) + (##car _%e145056145140%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144899144986%_)) + _%tl145058145145%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144875144922%_)) - (_%__kont147790147791%_ - _%hd144895144976%_ - _%hd144886144952%_ - _%hd144871144912%_) + _%tl145034145081%_)) + (_%__kont147949147950%_ + _%hd145054145135%_ + _%hd145045145111%_ + _%hd145030145071%_) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (_%__match147817147818%_ - (lambda (_%e144831145027%_ - _%hd144832145030%_ - _%tl144833145032%_ - _%__splice147788147789%_ - _%target144834145035%_ - _%tl144836145037%_) - (letrec ((_%loop144837145040%_ - (lambda (_%hd144835145043%_ - _%arg144841145045%_) + (_%g144939145063%_))))) + (_%__match147976147977%_ + (lambda (_%e144990145186%_ + _%hd144991145189%_ + _%tl144992145191%_ + _%__splice147947147948%_ + _%target144993145194%_ + _%tl144995145196%_) + (letrec ((_%loop144996145199%_ + (lambda (_%hd144994145202%_ + _%arg145000145204%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144835145043%_)) - (let ((_%e144838145048%_ + _%hd144994145202%_)) + (let ((_%e144997145207%_ (let () (declare (not safe)) (gx#stx-e - _%hd144835145043%_)))) - (let ((_%lp-tl144840145053%_ + _%hd144994145202%_)))) + (let ((_%lp-tl144999145212%_ (let () (declare (not safe)) - (##cdr _%e144838145048%_))) - (_%lp-hd144839145051%_ + (##cdr _%e144997145207%_))) + (_%lp-hd144998145210%_ (let () (declare (not safe)) - (##car _%e144838145048%_)))) - (_%loop144837145040%_ - _%lp-tl144840145053%_ - (cons _%lp-hd144839145051%_ - _%arg144841145045%_)))) - (let ((_%arg144842145056%_ - (reverse _%arg144841145045%_))) + (##car _%e144997145207%_)))) + (_%loop144996145199%_ + _%lp-tl144999145212%_ + (cons _%lp-hd144998145210%_ + _%arg145000145204%_)))) + (let ((_%arg145001145215%_ + (reverse _%arg145000145204%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144833145032%_)) - (let ((_%e144843145059%_ + _%tl144992145191%_)) + (let ((_%e145002145218%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144833145032%_)))) - (let ((_%tl144845145064%_ + (gx#stx-e _%tl144992145191%_)))) + (let ((_%tl145004145223%_ (let () (declare (not safe)) - (##cdr _%e144843145059%_))) - (_%hd144844145062%_ + (##cdr _%e145002145218%_))) + (_%hd145003145221%_ (let () (declare (not safe)) - (##car _%e144843145059%_)))) + (##car _%e145002145218%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144844145062%_)) - (let ((_%e144846145067%_ + (gx#stx-pair? _%hd145003145221%_)) + (let ((_%e145005145226%_ (let () (declare (not safe)) - (gx#stx-e _%hd144844145062%_)))) - (let ((_%tl144848145072%_ + (gx#stx-e _%hd145003145221%_)))) + (let ((_%tl145007145231%_ (let () (declare (not safe)) - (##cdr _%e144846145067%_))) - (_%hd144847145070%_ + (##cdr _%e145005145226%_))) + (_%hd145006145229%_ (let () (declare (not safe)) - (##car _%e144846145067%_)))) + (##car _%e145005145226%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144847145070%_)) + (gx#identifier? _%hd145006145229%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144847145070%_)) + (gx#stx-eq? '%#call _%hd145006145229%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144848145072%_)) - (let ((_%e144849145075%_ + (gx#stx-pair? _%tl145007145231%_)) + (let ((_%e145008145234%_ (let () (declare (not safe)) (gx#stx-e - _%tl144848145072%_)))) - (let ((_%tl144851145080%_ + _%tl145007145231%_)))) + (let ((_%tl145010145239%_ (let () (declare (not safe)) - (##cdr _%e144849145075%_))) - (_%hd144850145078%_ + (##cdr _%e145008145234%_))) + (_%hd145009145237%_ (let () (declare (not safe)) - (##car _%e144849145075%_)))) + (##car _%e145008145234%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144850145078%_)) - (let ((_%e144852145083%_ + _%hd145009145237%_)) + (let ((_%e145011145242%_ (let () (declare (not safe)) (gx#stx-e - _%hd144850145078%_)))) - (let ((_%tl144854145088%_ + _%hd145009145237%_)))) + (let ((_%tl145013145247%_ (let () (declare (not safe)) - (##cdr _%e144852145083%_))) - (_%hd144853145086%_ + (##cdr _%e145011145242%_))) + (_%hd145012145245%_ (let () (declare (not safe)) - (##car _%e144852145083%_)))) + (##car _%e145011145242%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144853145086%_)) + _%hd145012145245%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144853145086%_)) + _%hd145012145245%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144854145088%_)) - (let ((_%e144855145091%_ + (gx#stx-pair? _%tl145013145247%_)) + (let ((_%e145014145250%_ (let () (declare (not safe)) - (gx#stx-e _%tl144854145088%_)))) - (let ((_%tl144857145096%_ + (gx#stx-e _%tl145013145247%_)))) + (let ((_%tl145016145255%_ (let () (declare (not safe)) - (##cdr _%e144855145091%_))) - (_%hd144856145094%_ + (##cdr _%e145014145250%_))) + (_%hd145015145253%_ (let () (declare (not safe)) - (##car _%e144855145091%_)))) + (##car _%e145014145250%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144857145096%_)) + (gx#stx-null? _%tl145016145255%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144851145080%_)) - (let ((_%e144858145099%_ + (gx#stx-pair? _%tl145010145239%_)) + (let ((_%e145017145258%_ (let () (declare (not safe)) - (gx#stx-e _%tl144851145080%_)))) - (let ((_%tl144860145104%_ + (gx#stx-e _%tl145010145239%_)))) + (let ((_%tl145019145263%_ (let () (declare (not safe)) - (##cdr _%e144858145099%_))) - (_%hd144859145102%_ + (##cdr _%e145017145258%_))) + (_%hd145018145261%_ (let () (declare (not safe)) - (##car _%e144858145099%_)))) + (##car _%e145017145258%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144859145102%_)) - (let ((_%e144861145107%_ + _%hd145018145261%_)) + (let ((_%e145020145266%_ (let () (declare (not safe)) (gx#stx-e - _%hd144859145102%_)))) - (let ((_%tl144863145112%_ + _%hd145018145261%_)))) + (let ((_%tl145022145271%_ (let () (declare (not safe)) - (##cdr _%e144861145107%_))) - (_%hd144862145110%_ + (##cdr _%e145020145266%_))) + (_%hd145021145269%_ (let () (declare (not safe)) - (##car _%e144861145107%_)))) + (##car _%e145020145266%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144862145110%_)) + _%hd145021145269%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144862145110%_)) + _%hd145021145269%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144863145112%_)) - (let ((_%e144864145115%_ + _%tl145022145271%_)) + (let ((_%e145023145274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144863145112%_)))) - (let ((_%tl144866145120%_ + (gx#stx-e _%tl145022145271%_)))) + (let ((_%tl145025145279%_ (let () (declare (not safe)) - (##cdr _%e144864145115%_))) - (_%hd144865145118%_ + (##cdr _%e145023145274%_))) + (_%hd145024145277%_ (let () (declare (not safe)) - (##car _%e144864145115%_)))) + (##car _%e145023145274%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144866145120%_)) + (gx#stx-null? _%tl145025145279%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144845145064%_)) - (_%__kont147786147787%_ - _%hd144865145118%_ - _%hd144856145094%_ - _%tl144836145037%_ - _%arg144842145056%_) - (_%__match147887147888%_ - _%e144831145027%_ - _%hd144832145030%_ - _%tl144833145032%_ - _%e144843145059%_ - _%hd144844145062%_ - _%tl144845145064%_ - _%e144846145067%_ - _%hd144847145070%_ - _%tl144848145072%_ - _%e144849145075%_ - _%hd144850145078%_ - _%tl144851145080%_ - _%e144852145083%_ - _%hd144853145086%_ - _%tl144854145088%_ - _%e144855145091%_ - _%hd144856145094%_ - _%tl144857145096%_ - _%e144858145099%_ - _%hd144859145102%_ - _%tl144860145104%_ - _%e144861145107%_ - _%hd144862145110%_ - _%tl144863145112%_ - _%e144864145115%_ - _%hd144865145118%_ - _%tl144866145120%_)) + (gx#stx-null? _%tl145004145223%_)) + (_%__kont147945147946%_ + _%hd145024145277%_ + _%hd145015145253%_ + _%tl144995145196%_ + _%arg145001145215%_) + (_%__match148046148047%_ + _%e144990145186%_ + _%hd144991145189%_ + _%tl144992145191%_ + _%e145002145218%_ + _%hd145003145221%_ + _%tl145004145223%_ + _%e145005145226%_ + _%hd145006145229%_ + _%tl145007145231%_ + _%e145008145234%_ + _%hd145009145237%_ + _%tl145010145239%_ + _%e145011145242%_ + _%hd145012145245%_ + _%tl145013145247%_ + _%e145014145250%_ + _%hd145015145253%_ + _%tl145016145255%_ + _%e145017145258%_ + _%hd145018145261%_ + _%tl145019145263%_ + _%e145020145266%_ + _%hd145021145269%_ + _%tl145022145271%_ + _%e145023145274%_ + _%hd145024145277%_ + _%tl145025145279%_)) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))) + (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_)))))))) + (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144837145040%_ - _%target144834145035%_ + (_%loop144996145199%_ + _%target144993145194%_ '())))) - (_%__match147805147806%_ - (lambda (_%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_) - (letrec ((_%loop144791145176%_ - (lambda (_%hd144789145179%_ - _%arg144795145181%_) + (_%__match147964147965%_ + (lambda (_%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_) + (letrec ((_%loop144950145335%_ + (lambda (_%hd144948145338%_ + _%arg144954145340%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144789145179%_)) - (let ((_%e144792145184%_ + _%hd144948145338%_)) + (let ((_%e144951145343%_ (let () (declare (not safe)) (gx#stx-e - _%hd144789145179%_)))) - (let ((_%lp-tl144794145189%_ + _%hd144948145338%_)))) + (let ((_%lp-tl144953145348%_ (let () (declare (not safe)) - (##cdr _%e144792145184%_))) - (_%lp-hd144793145187%_ + (##cdr _%e144951145343%_))) + (_%lp-hd144952145346%_ (let () (declare (not safe)) - (##car _%e144792145184%_)))) - (_%loop144791145176%_ - _%lp-tl144794145189%_ - (cons _%lp-hd144793145187%_ - _%arg144795145181%_)))) - (let ((_%arg144796145192%_ - (reverse _%arg144795145181%_))) + (##car _%e144951145343%_)))) + (_%loop144950145335%_ + _%lp-tl144953145348%_ + (cons _%lp-hd144952145346%_ + _%arg144954145340%_)))) + (let ((_%arg144955145351%_ + (reverse _%arg144954145340%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144787145168%_)) - (let ((_%e144797145195%_ + _%tl144946145327%_)) + (let ((_%e144956145354%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144787145168%_)))) - (let ((_%tl144799145200%_ + (gx#stx-e _%tl144946145327%_)))) + (let ((_%tl144958145359%_ (let () (declare (not safe)) - (##cdr _%e144797145195%_))) - (_%hd144798145198%_ + (##cdr _%e144956145354%_))) + (_%hd144957145357%_ (let () (declare (not safe)) - (##car _%e144797145195%_)))) + (##car _%e144956145354%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144798145198%_)) - (let ((_%e144800145203%_ + (gx#stx-pair? _%hd144957145357%_)) + (let ((_%e144959145362%_ (let () (declare (not safe)) - (gx#stx-e _%hd144798145198%_)))) - (let ((_%tl144802145208%_ + (gx#stx-e _%hd144957145357%_)))) + (let ((_%tl144961145367%_ (let () (declare (not safe)) - (##cdr _%e144800145203%_))) - (_%hd144801145206%_ + (##cdr _%e144959145362%_))) + (_%hd144960145365%_ (let () (declare (not safe)) - (##car _%e144800145203%_)))) + (##car _%e144959145362%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144801145206%_)) + (gx#identifier? _%hd144960145365%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144801145206%_)) + (gx#stx-eq? '%#call _%hd144960145365%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144802145208%_)) - (let ((_%e144803145211%_ + (gx#stx-pair? _%tl144961145367%_)) + (let ((_%e144962145370%_ (let () (declare (not safe)) (gx#stx-e - _%tl144802145208%_)))) - (let ((_%tl144805145216%_ + _%tl144961145367%_)))) + (let ((_%tl144964145375%_ (let () (declare (not safe)) - (##cdr _%e144803145211%_))) - (_%hd144804145214%_ + (##cdr _%e144962145370%_))) + (_%hd144963145373%_ (let () (declare (not safe)) - (##car _%e144803145211%_)))) + (##car _%e144962145370%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144804145214%_)) - (let ((_%e144806145219%_ + _%hd144963145373%_)) + (let ((_%e144965145378%_ (let () (declare (not safe)) (gx#stx-e - _%hd144804145214%_)))) - (let ((_%tl144808145224%_ + _%hd144963145373%_)))) + (let ((_%tl144967145383%_ (let () (declare (not safe)) - (##cdr _%e144806145219%_))) - (_%hd144807145222%_ + (##cdr _%e144965145378%_))) + (_%hd144966145381%_ (let () (declare (not safe)) - (##car _%e144806145219%_)))) + (##car _%e144965145378%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144807145222%_)) + _%hd144966145381%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144807145222%_)) + _%hd144966145381%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144808145224%_)) - (let ((_%e144809145227%_ + (gx#stx-pair? _%tl144967145383%_)) + (let ((_%e144968145386%_ (let () (declare (not safe)) - (gx#stx-e _%tl144808145224%_)))) - (let ((_%tl144811145232%_ + (gx#stx-e _%tl144967145383%_)))) + (let ((_%tl144970145391%_ (let () (declare (not safe)) - (##cdr _%e144809145227%_))) - (_%hd144810145230%_ + (##cdr _%e144968145386%_))) + (_%hd144969145389%_ (let () (declare (not safe)) - (##car _%e144809145227%_)))) + (##car _%e144968145386%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144811145232%_)) + (gx#stx-null? _%tl144970145391%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144805145216%_)) - (let ((_%__splice147784147785%_ + (gx#stx-pair/null? _%tl144964145375%_)) + (let ((_%__splice147943147944%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144805145216%_ + _%tl144964145375%_ '0)))) - (let ((_%tl144814145237%_ + (let ((_%tl144973145396%_ (let () (declare (not safe)) (##vector-ref - _%__splice147784147785%_ + _%__splice147943147944%_ '1))) - (_%target144812145235%_ + (_%target144971145394%_ (let () (declare (not safe)) (##vector-ref - _%__splice147784147785%_ + _%__splice147943147944%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144814145237%_)) - (letrec ((_%loop144815145240%_ - (lambda (_%hd144813145243%_ - _%xarg144819145245%_) + _%tl144973145396%_)) + (letrec ((_%loop144974145399%_ + (lambda (_%hd144972145402%_ + _%xarg144978145404%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144813145243%_)) - (let ((_%e144816145248%_ + _%hd144972145402%_)) + (let ((_%e144975145407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144813145243%_)))) - (let ((_%lp-tl144818145253%_ + (gx#stx-e _%hd144972145402%_)))) + (let ((_%lp-tl144977145412%_ (let () (declare (not safe)) - (##cdr _%e144816145248%_))) - (_%lp-hd144817145251%_ + (##cdr _%e144975145407%_))) + (_%lp-hd144976145410%_ (let () (declare (not safe)) - (##car _%e144816145248%_)))) + (##car _%e144975145407%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144817145251%_)) - (let ((_%e144821145256%_ + (gx#stx-pair? _%lp-hd144976145410%_)) + (let ((_%e144980145415%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144817145251%_)))) - (let ((_%tl144823145261%_ + (gx#stx-e _%lp-hd144976145410%_)))) + (let ((_%tl144982145420%_ (let () (declare (not safe)) - (##cdr _%e144821145256%_))) - (_%hd144822145259%_ + (##cdr _%e144980145415%_))) + (_%hd144981145418%_ (let () (declare (not safe)) - (##car _%e144821145256%_)))) + (##car _%e144980145415%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144822145259%_)) + (gx#identifier? _%hd144981145418%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144822145259%_)) + _%hd144981145418%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144823145261%_)) - (let ((_%e144824145264%_ + _%tl144982145420%_)) + (let ((_%e144983145423%_ (let () (declare (not safe)) (gx#stx-e - _%tl144823145261%_)))) - (let ((_%tl144826145269%_ + _%tl144982145420%_)))) + (let ((_%tl144985145428%_ (let () (declare (not safe)) - (##cdr _%e144824145264%_))) - (_%hd144825145267%_ + (##cdr _%e144983145423%_))) + (_%hd144984145426%_ (let () (declare (not safe)) - (##car _%e144824145264%_)))) + (##car _%e144983145423%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144826145269%_)) - (_%loop144815145240%_ - _%lp-tl144818145253%_ - (cons _%hd144825145267%_ - _%xarg144819145245%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (let ((_%xarg144820145272%_ - (reverse _%xarg144819145245%_))) + _%tl144985145428%_)) + (_%loop144974145399%_ + _%lp-tl144977145412%_ + (cons _%hd144984145426%_ + _%xarg144978145404%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (let ((_%xarg144979145431%_ + (reverse _%xarg144978145404%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144799145200%_)) - (_%__kont147780147781%_ - _%xarg144820145272%_ - _%hd144810145230%_ - _%arg144796145192%_) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144815145240%_ - _%target144812145235%_ + (gx#stx-null? _%tl144958145359%_)) + (_%__kont147939147940%_ + _%xarg144979145431%_ + _%hd144969145389%_ + _%arg144955145351%_) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144974145399%_ + _%target144971145394%_ '())) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144791145176%_ - _%target144788145171%_ + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144950145335%_ + _%target144947145330%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147778147779%_)) - (let ((_%e144785145163%_ + (gx#stx-pair? _%__stx147937147938%_)) + (let ((_%e144944145322%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147778147779%_)))) - (let ((_%tl144787145168%_ + (gx#stx-e _%__stx147937147938%_)))) + (let ((_%tl144946145327%_ (let () (declare (not safe)) - (##cdr _%e144785145163%_))) - (_%hd144786145166%_ + (##cdr _%e144944145322%_))) + (_%hd144945145325%_ (let () (declare (not safe)) - (##car _%e144785145163%_)))) + (##car _%e144944145322%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144786145166%_)) - (let ((_%__splice147782147783%_ + (gx#stx-pair/null? _%hd144945145325%_)) + (let ((_%__splice147941147942%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144786145166%_ + _%hd144945145325%_ '0)))) - (let ((_%tl144790145173%_ + (let ((_%tl144949145332%_ (let () (declare (not safe)) (##vector-ref - _%__splice147782147783%_ + _%__splice147941147942%_ '1))) - (_%target144788145171%_ + (_%target144947145330%_ (let () (declare (not safe)) (##vector-ref - _%__splice147782147783%_ + _%__splice147941147942%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144790145173%_)) - (_%__match147805147806%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) + _%tl144949145332%_)) + (_%__match147964147965%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_) + (_%__match147976147977%_ + _%e144944145322%_ + _%hd144945145325%_ + _%tl144946145327%_ + _%__splice147941147942%_ + _%target144947145330%_ + _%tl144949145332%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144787145168%_)) - (let ((_%e144873144917%_ + (gx#stx-pair? _%tl144946145327%_)) + (let ((_%e145032145076%_ (let () (declare (not safe)) (gx#stx-e - _%tl144787145168%_)))) - (let ((_%tl144875144922%_ + _%tl144946145327%_)))) + (let ((_%tl145034145081%_ (let () (declare (not safe)) - (##cdr _%e144873144917%_))) - (_%hd144874144920%_ + (##cdr _%e145032145076%_))) + (_%hd145033145079%_ (let () (declare (not safe)) - (##car _%e144873144917%_)))) + (##car _%e145032145076%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144874144920%_)) - (let ((_%e144876144925%_ + _%hd145033145079%_)) + (let ((_%e145035145084%_ (let () (declare (not safe)) (gx#stx-e - _%hd144874144920%_)))) - (let ((_%tl144878144930%_ + _%hd145033145079%_)))) + (let ((_%tl145037145089%_ (let () (declare (not safe)) - (##cdr _%e144876144925%_))) - (_%hd144877144928%_ + (##cdr _%e145035145084%_))) + (_%hd145036145087%_ (let () (declare (not safe)) - (##car _%e144876144925%_)))) + (##car _%e145035145084%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144877144928%_)) + _%hd145036145087%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd144877144928%_)) + (gx#stx-eq? '%#call _%hd145036145087%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144878144930%_)) - (let ((_%e144879144933%_ + (gx#stx-pair? _%tl145037145089%_)) + (let ((_%e145038145092%_ (let () (declare (not safe)) - (gx#stx-e _%tl144878144930%_)))) - (let ((_%tl144881144938%_ + (gx#stx-e _%tl145037145089%_)))) + (let ((_%tl145040145097%_ (let () (declare (not safe)) - (##cdr _%e144879144933%_))) - (_%hd144880144936%_ + (##cdr _%e145038145092%_))) + (_%hd145039145095%_ (let () (declare (not safe)) - (##car _%e144879144933%_)))) + (##car _%e145038145092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144880144936%_)) - (let ((_%e144882144941%_ + (gx#stx-pair? _%hd145039145095%_)) + (let ((_%e145041145100%_ (let () (declare (not safe)) - (gx#stx-e _%hd144880144936%_)))) - (let ((_%tl144884144946%_ + (gx#stx-e _%hd145039145095%_)))) + (let ((_%tl145043145105%_ (let () (declare (not safe)) - (##cdr _%e144882144941%_))) - (_%hd144883144944%_ + (##cdr _%e145041145100%_))) + (_%hd145042145103%_ (let () (declare (not safe)) - (##car _%e144882144941%_)))) + (##car _%e145041145100%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144883144944%_)) + _%hd145042145103%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144883144944%_)) + _%hd145042145103%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144884144946%_)) - (let ((_%e144885144949%_ + _%tl145043145105%_)) + (let ((_%e145044145108%_ (let () (declare (not safe)) (gx#stx-e - _%tl144884144946%_)))) - (let ((_%tl144887144954%_ + _%tl145043145105%_)))) + (let ((_%tl145046145113%_ (let () (declare (not safe)) - (##cdr _%e144885144949%_))) - (_%hd144886144952%_ + (##cdr _%e145044145108%_))) + (_%hd145045145111%_ (let () (declare (not safe)) - (##car _%e144885144949%_)))) + (##car _%e145044145108%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144887144954%_)) + _%tl145046145113%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144881144938%_)) - (let ((_%e144888144957%_ + (gx#stx-pair? _%tl145040145097%_)) + (let ((_%e145047145116%_ (let () (declare (not safe)) - (gx#stx-e _%tl144881144938%_)))) - (let ((_%tl144890144962%_ + (gx#stx-e _%tl145040145097%_)))) + (let ((_%tl145049145121%_ (let () (declare (not safe)) - (##cdr _%e144888144957%_))) - (_%hd144889144960%_ + (##cdr _%e145047145116%_))) + (_%hd145048145119%_ (let () (declare (not safe)) - (##car _%e144888144957%_)))) + (##car _%e145047145116%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144889144960%_)) - (let ((_%e144891144965%_ + (gx#stx-pair? _%hd145048145119%_)) + (let ((_%e145050145124%_ (let () (declare (not safe)) - (gx#stx-e _%hd144889144960%_)))) - (let ((_%tl144893144970%_ + (gx#stx-e _%hd145048145119%_)))) + (let ((_%tl145052145129%_ (let () (declare (not safe)) - (##cdr _%e144891144965%_))) - (_%hd144892144968%_ + (##cdr _%e145050145124%_))) + (_%hd145051145127%_ (let () (declare (not safe)) - (##car _%e144891144965%_)))) + (##car _%e145050145124%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144892144968%_)) + (gx#identifier? _%hd145051145127%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144892144968%_)) + _%hd145051145127%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144893144970%_)) - (let ((_%e144894144973%_ + _%tl145052145129%_)) + (let ((_%e145053145132%_ (let () (declare (not safe)) (gx#stx-e - _%tl144893144970%_)))) - (let ((_%tl144896144978%_ + _%tl145052145129%_)))) + (let ((_%tl145055145137%_ (let () (declare (not safe)) - (##cdr _%e144894144973%_))) - (_%hd144895144976%_ + (##cdr _%e145053145132%_))) + (_%hd145054145135%_ (let () (declare (not safe)) - (##car _%e144894144973%_)))) + (##car _%e145053145132%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144896144978%_)) + _%tl145055145137%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144890144962%_)) - (let ((_%e144897144981%_ + _%tl145049145121%_)) + (let ((_%e145056145140%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144890144962%_)))) - (let ((_%tl144899144986%_ + (gx#stx-e _%tl145049145121%_)))) + (let ((_%tl145058145145%_ (let () (declare (not safe)) - (##cdr _%e144897144981%_))) - (_%hd144898144984%_ + (##cdr _%e145056145140%_))) + (_%hd145057145143%_ (let () (declare (not safe)) - (##car _%e144897144981%_)))) + (##car _%e145056145140%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144899144986%_)) + (gx#stx-null? _%tl145058145145%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144875144922%_)) - (_%__kont147790147791%_ - _%hd144895144976%_ - _%hd144886144952%_ - _%hd144786145166%_) + (gx#stx-null? _%tl145034145081%_)) + (_%__kont147949147950%_ + _%hd145054145135%_ + _%hd145045145111%_ + _%hd144945145325%_) (let () (declare (not safe)) - (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g144939145063%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g144939145063%_))))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))) + (let () (declare (not safe)) (_%g144939145063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g144939145063%_))))) (let () (declare (not safe)) - (_%g144780144904%_)))))) + (_%g144939145063%_)))))) (let () (declare (not safe)) - (_%g144780144904%_)))))))) - (_%generate1144623%_ - (lambda (_%args144758%_ - _%arglen144759%_ - _%hd144760%_ - _%body144761%_) - (let* ((_%len144763%_ + (_%g144939145063%_)))))))) + (_%generate1144782%_ + (lambda (_%args144917%_ + _%arglen144918%_ + _%hd144919%_ + _%body144920%_) + (let* ((_%len144922%_ (let () (declare (not safe)) - (gx#stx-length _%hd144760%_))) - (_%condition144768%_ + (gx#stx-length _%hd144919%_))) + (_%condition144927%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd144760%_)) + (gx#stx-list? _%hd144919%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen144759%_ - (cons _%len144763%_ '()))) + (cons _%arglen144918%_ + (cons _%len144922%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144759%_ (cons _%len144763%_ '()))) + (cons _%arglen144918%_ (cons _%len144922%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len144763%_ '0) + (if (> _%len144922%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen144759%_ - (cons _%len144763%_ '()))) + (cons _%arglen144918%_ + (cons _%len144922%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144759%_ (cons _%len144763%_ '()))) + (cons _%arglen144918%_ (cons _%len144922%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch144770%_ - (if (_%dispatch-case?144621%_ - _%hd144760%_ - _%body144761%_) - (_%dispatch-case-e144622%_ - _%hd144760%_ - _%body144761%_) + (_%dispatch144929%_ + (if (_%dispatch-case?144780%_ + _%hd144919%_ + _%body144920%_) + (_%dispatch-case-e144781%_ + _%hd144919%_ + _%body144920%_) (gxc#generate-runtime-lambda-form - _%self144618%_ - _%hd144760%_ - _%body144761%_)))) - (cons _%condition144768%_ + _%self144777%_ + _%hd144919%_ + _%body144920%_)))) + (cons _%condition144927%_ (cons (cons 'apply - (cons _%dispatch144770%_ - (cons _%args144758%_ '()))) + (cons _%dispatch144929%_ + (cons _%args144917%_ '()))) '())))))) - (let* ((_%g144625144653%_ - (lambda (_%g144626144650%_) + (let* ((_%g144784144812%_ + (lambda (_%g144785144809%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144626144650%_)))) - (_%g144624144755%_ - (lambda (_%g144626144656%_) + _%g144785144809%_)))) + (_%g144783144914%_ + (lambda (_%g144785144815%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144626144656%_)) - (let ((_%e144629144658%_ + (gx#stx-pair? _%g144785144815%_)) + (let ((_%e144788144817%_ (let () (declare (not safe)) - (gx#stx-e _%g144626144656%_)))) - (let ((_%hd144630144661%_ + (gx#stx-e _%g144785144815%_)))) + (let ((_%hd144789144820%_ (let () (declare (not safe)) - (##car _%e144629144658%_))) - (_%tl144631144663%_ + (##car _%e144788144817%_))) + (_%tl144790144822%_ (let () (declare (not safe)) - (##cdr _%e144629144658%_)))) + (##cdr _%e144788144817%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144631144663%_)) - (let ((_g148947_ + (gx#stx-pair/null? _%tl144790144822%_)) + (let ((_g149106_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144631144663%_ + _%tl144790144822%_ '0)))) (begin - (let ((_g148948_ + (let ((_g149107_ (let () (declare (not safe)) - (if (##values? _g148947_) - (##vector-length _g148947_) + (if (##values? _g149106_) + (##vector-length _g149106_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g148948_ 2))) + (##fx= _g149107_ 2))) (error "Context expects 2 values" - _g148948_))) - (let ((_%target144632144666%_ + _g149107_))) + (let ((_%target144791144825%_ (let () (declare (not safe)) - (##vector-ref _g148947_ 0))) - (_%tl144634144668%_ + (##vector-ref _g149106_ 0))) + (_%tl144793144827%_ (let () (declare (not safe)) - (##vector-ref _g148947_ 1)))) + (##vector-ref _g149106_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144634144668%_)) - (letrec ((_%loop144635144671%_ - (lambda (_%hd144633144674%_ - _%body144639144676%_ - _%hd144640144678%_) + (gx#stx-null? _%tl144793144827%_)) + (letrec ((_%loop144794144830%_ + (lambda (_%hd144792144833%_ + _%body144798144835%_ + _%hd144799144837%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144633144674%_)) - (let ((_%e144636144681%_ + _%hd144792144833%_)) + (let ((_%e144795144840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144633144674%_)))) - (let ((_%lp-hd144637144684%_ + (gx#stx-e _%hd144792144833%_)))) + (let ((_%lp-hd144796144843%_ (let () (declare (not safe)) - (##car _%e144636144681%_))) - (_%lp-tl144638144686%_ + (##car _%e144795144840%_))) + (_%lp-tl144797144845%_ (let () (declare (not safe)) - (##cdr _%e144636144681%_)))) + (##cdr _%e144795144840%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144637144684%_)) - (let ((_%e144643144689%_ + (gx#stx-pair? _%lp-hd144796144843%_)) + (let ((_%e144802144848%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144637144684%_)))) - (let ((_%hd144644144692%_ + (gx#stx-e _%lp-hd144796144843%_)))) + (let ((_%hd144803144851%_ (let () (declare (not safe)) - (##car _%e144643144689%_))) - (_%tl144645144694%_ + (##car _%e144802144848%_))) + (_%tl144804144853%_ (let () (declare (not safe)) - (##cdr _%e144643144689%_)))) + (##cdr _%e144802144848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144645144694%_)) - (let ((_%e144646144697%_ + (gx#stx-pair? _%tl144804144853%_)) + (let ((_%e144805144856%_ (let () (declare (not safe)) - (gx#stx-e _%tl144645144694%_)))) - (let ((_%hd144647144700%_ + (gx#stx-e _%tl144804144853%_)))) + (let ((_%hd144806144859%_ (let () (declare (not safe)) - (##car _%e144646144697%_))) - (_%tl144648144702%_ + (##car _%e144805144856%_))) + (_%tl144807144861%_ (let () (declare (not safe)) - (##cdr _%e144646144697%_)))) + (##cdr _%e144805144856%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144648144702%_)) - (_%loop144635144671%_ - _%lp-tl144638144686%_ - (cons _%hd144647144700%_ - _%body144639144676%_) - (cons _%hd144644144692%_ - _%hd144640144678%_)) - (_%g144625144653%_ - _%g144626144656%_)))) - (_%g144625144653%_ _%g144626144656%_)))) - (_%g144625144653%_ _%g144626144656%_)))) - (let ((_%body144641144705%_ (reverse _%body144639144676%_)) - (_%hd144642144707%_ (reverse _%hd144640144678%_))) - ((lambda (_%L144710%_ _%L144711%_) - (let ((_%args144730%_ + (gx#stx-null? _%tl144807144861%_)) + (_%loop144794144830%_ + _%lp-tl144797144845%_ + (cons _%hd144806144859%_ + _%body144798144835%_) + (cons _%hd144803144851%_ + _%hd144799144837%_)) + (_%g144784144812%_ + _%g144785144815%_)))) + (_%g144784144812%_ _%g144785144815%_)))) + (_%g144784144812%_ _%g144785144815%_)))) + (let ((_%body144800144864%_ (reverse _%body144798144835%_)) + (_%hd144801144866%_ (reverse _%hd144799144837%_))) + ((lambda (_%L144869%_ _%L144870%_) + (let ((_%args144889%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen144731%_ + (_%arglen144890%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name144732%_ - (let ((_%$e144727%_ - (let ((__tmp148949 + (_%name144891%_ + (let ((_%$e144886%_ + (let ((__tmp149108 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp148949 _%stx144619%_)))) - (if _%$e144727%_ - _%$e144727%_ + (hash-get __tmp149108 _%stx144778%_)))) + (if _%$e144886%_ + _%$e144886%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args144730%_ + (cons _%args144889%_ (cons (cons 'let - (cons (cons (cons _%arglen144731%_ + (cons (cons (cons _%arglen144890%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args144730%_ '())) + (cons '##length (cons _%args144889%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args144730%_ '())) + (cons _%args144889%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp148953 + (let ((__tmp149112 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name144732%_ - (cons _%args144730%_ + (cons _%name144891%_ + (cons _%args144889%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp148950 - (map (lambda (_%g144733144736%_ - _%g144734144738%_) - (_%generate1144623%_ - _%args144730%_ - _%arglen144731%_ - _%g144733144736%_ - _%g144734144738%_)) - (let ((__tmp148951 - (lambda (_%g144740144743%_ - _%g144741144745%_) - (cons _%g144740144743%_ - _%g144741144745%_)))) + (__tmp149109 + (map (lambda (_%g144892144895%_ + _%g144893144897%_) + (_%generate1144782%_ + _%args144889%_ + _%arglen144890%_ + _%g144892144895%_ + _%g144893144897%_)) + (let ((__tmp149110 + (lambda (_%g144899144902%_ + _%g144900144904%_) + (cons _%g144899144902%_ + _%g144900144904%_)))) (declare (not safe)) (__foldr1 - __tmp148951 + __tmp149110 '() - _%L144711%_)) - (let ((__tmp148952 - (lambda (_%g144747144750%_ - _%g144748144752%_) - (cons _%g144747144750%_ - _%g144748144752%_)))) + _%L144870%_)) + (let ((__tmp149111 + (lambda (_%g144906144909%_ + _%g144907144911%_) + (cons _%g144906144909%_ + _%g144907144911%_)))) (declare (not safe)) (__foldr1 - __tmp148952 + __tmp149111 '() - _%L144710%_))))) + _%L144869%_))))) (declare (not safe)) - (__foldr1 cons __tmp148953 __tmp148950))) + (__foldr1 cons __tmp149112 __tmp149109))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body144641144705%_ - _%hd144642144707%_)))))) + _%body144800144864%_ + _%hd144801144866%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144635144671%_ - _%target144632144666%_ + (_%loop144794144830%_ + _%target144791144825%_ '() '())) - (_%g144625144653%_ - _%g144626144656%_))))) - (_%g144625144653%_ _%g144626144656%_)))) - (_%g144625144653%_ _%g144626144656%_))))) - (_%g144624144755%_ _%stx144619%_))))) + (_%g144784144812%_ + _%g144785144815%_))))) + (_%g144784144812%_ _%g144785144815%_)))) + (_%g144784144812%_ _%g144785144815%_))))) + (_%g144783144914%_ _%stx144778%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self143855%_ _%stx143856%_ _%compiled-body?143857%_) - (letrec ((_%generate-simple143859%_ - (lambda (_%hd144603%_ _%body144604%_) - (_%coalesce-boolean143860%_ - (_%simplify-let143861%_ + (lambda (_%self144014%_ _%stx144015%_ _%compiled-body?144016%_) + (letrec ((_%generate-simple144018%_ + (lambda (_%hd144762%_ _%body144763%_) + (_%coalesce-boolean144019%_ + (_%simplify-let144020%_ (gxc#generate-runtime-simple-let - _%self143855%_ + _%self144014%_ 'let - _%hd144603%_ - _%body144604%_ - _%compiled-body?143857%_))))) - (_%coalesce-boolean143860%_ - (lambda (_%code144464%_) + _%hd144762%_ + _%body144763%_ + _%compiled-body?144016%_))))) + (_%coalesce-boolean144019%_ + (lambda (_%code144623%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code144465144491%_ _%code144464%_) - (_%else144467144499%_ - (lambda () _%code144464%_)) - (_%K144469144536%_ - (lambda (_%expr2144502%_ - _%expr1144503%_ - _%id144504%_) - (let* ((_%expr2144505144513%_ - _%expr2144502%_) - (_%else144507144521%_ + (let* ((_%code144624144650%_ _%code144623%_) + (_%else144626144658%_ + (lambda () _%code144623%_)) + (_%K144628144695%_ + (lambda (_%expr2144661%_ + _%expr1144662%_ + _%id144663%_) + (let* ((_%expr2144664144672%_ + _%expr2144661%_) + (_%else144666144680%_ (lambda () (cons 'or - (cons _%expr1144503%_ - (cons _%expr2144502%_ + (cons _%expr1144662%_ + (cons _%expr2144661%_ '()))))) - (_%K144509144526%_ - (lambda (_%exprs144524%_) + (_%K144668144685%_ + (lambda (_%exprs144683%_) (cons 'or - (cons _%expr1144503%_ - _%exprs144524%_))))) - (if (pair? _%expr2144505144513%_) - (let ((_%hd144510144529%_ + (cons _%expr1144662%_ + _%exprs144683%_))))) + (if (pair? _%expr2144664144672%_) + (let ((_%hd144669144688%_ (let () (declare (not safe)) - (##car _%expr2144505144513%_))) - (_%tl144511144531%_ + (##car _%expr2144664144672%_))) + (_%tl144670144690%_ (let () (declare (not safe)) - (##cdr _%expr2144505144513%_)))) + (##cdr _%expr2144664144672%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144510144529%_ 'or)) - (let ((_%exprs144534%_ - _%tl144511144531%_)) - (_%K144509144526%_ - _%exprs144534%_)) - (_%else144507144521%_))) - (_%else144507144521%_)))))) - (if (pair? _%code144465144491%_) - (let ((_%hd144470144539%_ + (##eq? _%hd144669144688%_ 'or)) + (let ((_%exprs144693%_ + _%tl144670144690%_)) + (_%K144668144685%_ + _%exprs144693%_)) + (_%else144666144680%_))) + (_%else144666144680%_)))))) + (if (pair? _%code144624144650%_) + (let ((_%hd144629144698%_ (let () (declare (not safe)) - (##car _%code144465144491%_))) - (_%tl144471144541%_ + (##car _%code144624144650%_))) + (_%tl144630144700%_ (let () (declare (not safe)) - (##cdr _%code144465144491%_)))) + (##cdr _%code144624144650%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144470144539%_ 'let)) - (if (pair? _%tl144471144541%_) - (let ((_%hd144472144544%_ + (##eq? _%hd144629144698%_ 'let)) + (if (pair? _%tl144630144700%_) + (let ((_%hd144631144703%_ (let () (declare (not safe)) - (##car _%tl144471144541%_))) - (_%tl144473144546%_ + (##car _%tl144630144700%_))) + (_%tl144632144705%_ (let () (declare (not safe)) - (##cdr _%tl144471144541%_)))) - (if (pair? _%hd144472144544%_) - (let ((_%hd144484144549%_ + (##cdr _%tl144630144700%_)))) + (if (pair? _%hd144631144703%_) + (let ((_%hd144643144708%_ (let () (declare (not safe)) - (##car _%hd144472144544%_))) - (_%tl144485144551%_ + (##car _%hd144631144703%_))) + (_%tl144644144710%_ (let () (declare (not safe)) - (##cdr _%hd144472144544%_)))) - (if (pair? _%hd144484144549%_) - (let ((_%hd144486144554%_ + (##cdr _%hd144631144703%_)))) + (if (pair? _%hd144643144708%_) + (let ((_%hd144645144713%_ (let () (declare (not safe)) - (##car _%hd144484144549%_))) - (_%tl144487144556%_ + (##car _%hd144643144708%_))) + (_%tl144646144715%_ (let () (declare (not safe)) - (##cdr _%hd144484144549%_)))) - (let ((_%id144559%_ - _%hd144486144554%_)) - (if (pair? _%tl144487144556%_) - (let ((_%hd144488144561%_ + (##cdr _%hd144643144708%_)))) + (let ((_%id144718%_ + _%hd144645144713%_)) + (if (pair? _%tl144646144715%_) + (let ((_%hd144647144720%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl144487144556%_))) - (_%tl144489144563%_ + (##car _%tl144646144715%_))) + (_%tl144648144722%_ (let () (declare (not safe)) - (##cdr _%tl144487144556%_)))) - (let ((_%expr1144566%_ _%hd144488144561%_)) - (if (null? _%tl144489144563%_) - (if (null? _%tl144485144551%_) - (if (pair? _%tl144473144546%_) - (let ((_%hd144474144568%_ + (##cdr _%tl144646144715%_)))) + (let ((_%expr1144725%_ _%hd144647144720%_)) + (if (null? _%tl144648144722%_) + (if (null? _%tl144644144710%_) + (if (pair? _%tl144632144705%_) + (let ((_%hd144633144727%_ (let () (declare (not safe)) - (##car _%tl144473144546%_))) - (_%tl144475144570%_ + (##car _%tl144632144705%_))) + (_%tl144634144729%_ (let () (declare (not safe)) - (##cdr _%tl144473144546%_)))) - (if (pair? _%hd144474144568%_) - (let ((_%hd144476144573%_ + (##cdr _%tl144632144705%_)))) + (if (pair? _%hd144633144727%_) + (let ((_%hd144635144732%_ (let () (declare (not safe)) - (##car _%hd144474144568%_))) - (_%tl144477144575%_ + (##car _%hd144633144727%_))) + (_%tl144636144734%_ (let () (declare (not safe)) - (##cdr _%hd144474144568%_)))) + (##cdr _%hd144633144727%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144476144573%_ + (##eq? _%hd144635144732%_ 'if)) - (if (pair? _%tl144477144575%_) - (let ((_%hd144478144578%_ + (if (pair? _%tl144636144734%_) + (let ((_%hd144637144737%_ (let () (declare (not safe)) - (##car _%tl144477144575%_))) - (_%tl144479144580%_ + (##car _%tl144636144734%_))) + (_%tl144638144739%_ (let () (declare (not safe)) - (##cdr _%tl144477144575%_)))) - (if ((lambda (_%g144582144584%_) - (eq? _%g144582144584%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id144559%_)) - _%hd144478144578%_) - (if (pair? _%tl144479144580%_) - (let ((_%hd144480144587%_ + (##cdr _%tl144636144734%_)))) + (if ((lambda (_%g144741144743%_) + (eq? _%g144741144743%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id144718%_)) + _%hd144637144737%_) + (if (pair? _%tl144638144739%_) + (let ((_%hd144639144746%_ (let () (declare (not safe)) - (##car _%tl144479144580%_))) - (_%tl144481144589%_ + (##car _%tl144638144739%_))) + (_%tl144640144748%_ (let () (declare (not safe)) - (##cdr _%tl144479144580%_)))) - (if ((lambda (_%g144591144593%_) - (eq? _%g144591144593%_ _%id144559%_)) - _%hd144480144587%_) - (if (pair? _%tl144481144589%_) - (let ((_%hd144482144596%_ + (##cdr _%tl144638144739%_)))) + (if ((lambda (_%g144750144752%_) + (eq? _%g144750144752%_ _%id144718%_)) + _%hd144639144746%_) + (if (pair? _%tl144640144748%_) + (let ((_%hd144641144755%_ (let () (declare (not safe)) - (##car _%tl144481144589%_))) - (_%tl144483144598%_ + (##car _%tl144640144748%_))) + (_%tl144642144757%_ (let () (declare (not safe)) - (##cdr _%tl144481144589%_)))) - (let ((_%expr2144601%_ _%hd144482144596%_)) - (if (null? _%tl144483144598%_) - (if (null? _%tl144475144570%_) - (_%K144469144536%_ - _%expr2144601%_ - _%expr1144566%_ - _%id144559%_) - (_%else144467144499%_)) - (_%else144467144499%_)))) - (_%else144467144499%_)) - (_%else144467144499%_))) - (_%else144467144499%_)) - (_%else144467144499%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144467144499%_)) - (_%else144467144499%_))) - (_%else144467144499%_))) - (_%else144467144499%_)) - (_%else144467144499%_)) - (_%else144467144499%_)))) - (_%else144467144499%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144467144499%_))) - (_%else144467144499%_))) - (_%else144467144499%_)) - (_%else144467144499%_))) - (_%else144467144499%_))) - _%code144464%_))) - (_%simplify-let143861%_ - (lambda (_%code144163%_) - (let* ((_%code144164144236%_ _%code144163%_) - (_%else144169144244%_ (lambda () _%code144163%_))) - (let ((_%K144228144444%_ - (lambda (_%expr144442%_) _%expr144442%_)) - (_%K144211144390%_ - (lambda (_%body144386%_ - _%expr144387%_ - _%id144388%_) + (##cdr _%tl144640144748%_)))) + (let ((_%expr2144760%_ _%hd144641144755%_)) + (if (null? _%tl144642144757%_) + (if (null? _%tl144634144729%_) + (_%K144628144695%_ + _%expr2144760%_ + _%expr1144725%_ + _%id144718%_) + (_%else144626144658%_)) + (_%else144626144658%_)))) + (_%else144626144658%_)) + (_%else144626144658%_))) + (_%else144626144658%_)) + (_%else144626144658%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144626144658%_)) + (_%else144626144658%_))) + (_%else144626144658%_))) + (_%else144626144658%_)) + (_%else144626144658%_)) + (_%else144626144658%_)))) + (_%else144626144658%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144626144658%_))) + (_%else144626144658%_))) + (_%else144626144658%_)) + (_%else144626144658%_))) + (_%else144626144658%_))) + _%code144623%_))) + (_%simplify-let144020%_ + (lambda (_%code144322%_) + (let* ((_%code144323144395%_ _%code144322%_) + (_%else144328144403%_ (lambda () _%code144322%_))) + (let ((_%K144387144603%_ + (lambda (_%expr144601%_) _%expr144601%_)) + (_%K144370144549%_ + (lambda (_%body144545%_ + _%expr144546%_ + _%id144547%_) (cons 'let - (cons (cons (cons _%id144388%_ - (cons _%expr144387%_ + (cons (cons (cons _%id144547%_ + (cons _%expr144546%_ '())) '()) - _%body144386%_)))) - (_%K144188144314%_ - (lambda (_%body144308%_ - _%expr2144309%_ - _%id2144310%_ - _%expr1144311%_ - _%id1144312%_) + _%body144545%_)))) + (_%K144347144473%_ + (lambda (_%body144467%_ + _%expr2144468%_ + _%id2144469%_ + _%expr1144470%_ + _%id1144471%_) (cons 'let* - (cons (cons (cons _%id1144312%_ - (cons _%expr1144311%_ + (cons (cons (cons _%id1144471%_ + (cons _%expr1144470%_ '())) - (cons (cons _%id2144310%_ - (cons _%expr2144309%_ + (cons (cons _%id2144469%_ + (cons _%expr2144468%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body144308%_)))) - (_%K144171144253%_ - (lambda (_%body144248%_ - _%bind144249%_ - _%expr1144250%_ - _%id1144251%_) + _%body144467%_)))) + (_%K144330144412%_ + (lambda (_%body144407%_ + _%bind144408%_ + _%expr1144409%_ + _%id1144410%_) (cons 'let* - (cons (cons (cons _%id1144251%_ - (cons _%expr1144250%_ + (cons (cons (cons _%id1144410%_ + (cons _%expr1144409%_ '())) - _%bind144249%_) - _%body144248%_))))) - (if (pair? _%code144164144236%_) - (let ((_%tl144230144449%_ + _%bind144408%_) + _%body144407%_))))) + (if (pair? _%code144323144395%_) + (let ((_%tl144389144608%_ (let () (declare (not safe)) - (##cdr _%code144164144236%_))) - (_%hd144229144447%_ + (##cdr _%code144323144395%_))) + (_%hd144388144606%_ (let () (declare (not safe)) - (##car _%code144164144236%_)))) + (##car _%code144323144395%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144229144447%_ 'let)) - (if (pair? _%tl144230144449%_) - (let ((_%tl144232144454%_ + (##eq? _%hd144388144606%_ 'let)) + (if (pair? _%tl144389144608%_) + (let ((_%tl144391144613%_ (let () (declare (not safe)) - (##cdr _%tl144230144449%_))) - (_%hd144231144452%_ + (##cdr _%tl144389144608%_))) + (_%hd144390144611%_ (let () (declare (not safe)) - (##car _%tl144230144449%_)))) - (if (null? _%hd144231144452%_) - (if (pair? _%tl144232144454%_) - (let ((_%tl144234144459%_ + (##car _%tl144389144608%_)))) + (if (null? _%hd144390144611%_) + (if (pair? _%tl144391144613%_) + (let ((_%tl144393144618%_ (let () (declare (not safe)) - (##cdr _%tl144232144454%_))) - (_%hd144233144457%_ + (##cdr _%tl144391144613%_))) + (_%hd144392144616%_ (let () (declare (not safe)) - (##car _%tl144232144454%_)))) - (if (null? _%tl144234144459%_) - (let ((_%expr144462%_ - _%hd144233144457%_)) - (_%K144228144444%_ - _%expr144462%_)) - (_%else144169144244%_))) - (_%else144169144244%_)) - (if (pair? _%hd144231144452%_) - (let ((_%tl144223144405%_ + (##car _%tl144391144613%_)))) + (if (null? _%tl144393144618%_) + (let ((_%expr144621%_ + _%hd144392144616%_)) + (_%K144387144603%_ + _%expr144621%_)) + (_%else144328144403%_))) + (_%else144328144403%_)) + (if (pair? _%hd144390144611%_) + (let ((_%tl144382144564%_ (let () (declare (not safe)) - (##cdr _%hd144231144452%_))) - (_%hd144222144403%_ + (##cdr _%hd144390144611%_))) + (_%hd144381144562%_ (let () (declare (not safe)) - (##car _%hd144231144452%_)))) - (if (pair? _%hd144222144403%_) - (let ((_%tl144225144410%_ + (##car _%hd144390144611%_)))) + (if (pair? _%hd144381144562%_) + (let ((_%tl144384144569%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd144222144403%_))) - (_%hd144224144408%_ - (let () (declare (not safe)) (##car _%hd144222144403%_)))) - (if (pair? _%tl144225144410%_) - (let ((_%tl144227144417%_ + (##cdr _%hd144381144562%_))) + (_%hd144383144567%_ + (let () (declare (not safe)) (##car _%hd144381144562%_)))) + (if (pair? _%tl144384144569%_) + (let ((_%tl144386144576%_ (let () (declare (not safe)) - (##cdr _%tl144225144410%_))) - (_%hd144226144415%_ + (##cdr _%tl144384144569%_))) + (_%hd144385144574%_ (let () (declare (not safe)) - (##car _%tl144225144410%_)))) - (if (null? _%tl144227144417%_) - (if (null? _%tl144223144405%_) - (if (pair? _%tl144232144454%_) - (let ((_%tl144217144424%_ + (##car _%tl144384144569%_)))) + (if (null? _%tl144386144576%_) + (if (null? _%tl144382144564%_) + (if (pair? _%tl144391144613%_) + (let ((_%tl144376144583%_ (let () (declare (not safe)) - (##cdr _%tl144232144454%_))) - (_%hd144216144422%_ + (##cdr _%tl144391144613%_))) + (_%hd144375144581%_ (let () (declare (not safe)) - (##car _%tl144232144454%_)))) - (if (pair? _%hd144216144422%_) - (let ((_%tl144219144429%_ + (##car _%tl144391144613%_)))) + (if (pair? _%hd144375144581%_) + (let ((_%tl144378144588%_ (let () (declare (not safe)) - (##cdr _%hd144216144422%_))) - (_%hd144218144427%_ + (##cdr _%hd144375144581%_))) + (_%hd144377144586%_ (let () (declare (not safe)) - (##car _%hd144216144422%_)))) + (##car _%hd144375144581%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144218144427%_ + (##eq? _%hd144377144586%_ 'let)) - (if (pair? _%tl144219144429%_) - (let ((_%tl144221144434%_ + (if (pair? _%tl144378144588%_) + (let ((_%tl144380144593%_ (let () (declare (not safe)) - (##cdr _%tl144219144429%_))) - (_%hd144220144432%_ + (##cdr _%tl144378144588%_))) + (_%hd144379144591%_ (let () (declare (not safe)) - (##car _%tl144219144429%_)))) - (if (null? _%hd144220144432%_) - (if (null? _%tl144217144424%_) - (let ((_%id144413%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd144224144408%_) - (_%expr144420%_ _%hd144226144415%_) - (_%body144437%_ _%tl144221144434%_)) - (_%K144211144390%_ - _%body144437%_ - _%expr144420%_ - _%id144413%_)) - (_%else144169144244%_)) - (if (pair? _%hd144220144432%_) - (let ((_%tl144200144363%_ + (##car _%tl144378144588%_)))) + (if (null? _%hd144379144591%_) + (if (null? _%tl144376144583%_) + (let ((_%id144572%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd144383144567%_) + (_%expr144579%_ _%hd144385144574%_) + (_%body144596%_ _%tl144380144593%_)) + (_%K144370144549%_ + _%body144596%_ + _%expr144579%_ + _%id144572%_)) + (_%else144328144403%_)) + (if (pair? _%hd144379144591%_) + (let ((_%tl144359144522%_ (let () (declare (not safe)) - (##cdr _%hd144220144432%_))) - (_%hd144199144361%_ + (##cdr _%hd144379144591%_))) + (_%hd144358144520%_ (let () (declare (not safe)) - (##car _%hd144220144432%_)))) - (if (pair? _%hd144199144361%_) - (let ((_%tl144202144368%_ + (##car _%hd144379144591%_)))) + (if (pair? _%hd144358144520%_) + (let ((_%tl144361144527%_ (let () (declare (not safe)) - (##cdr _%hd144199144361%_))) - (_%hd144201144366%_ + (##cdr _%hd144358144520%_))) + (_%hd144360144525%_ (let () (declare (not safe)) - (##car _%hd144199144361%_)))) - (if (pair? _%tl144202144368%_) - (let ((_%tl144204144375%_ + (##car _%hd144358144520%_)))) + (if (pair? _%tl144361144527%_) + (let ((_%tl144363144534%_ (let () (declare (not safe)) - (##cdr _%tl144202144368%_))) - (_%hd144203144373%_ + (##cdr _%tl144361144527%_))) + (_%hd144362144532%_ (let () (declare (not safe)) - (##car _%tl144202144368%_)))) - (if (null? _%tl144204144375%_) - (if (null? _%tl144200144363%_) - (if (null? _%tl144217144424%_) - (let ((_%id1144337%_ - _%hd144224144408%_) - (_%expr1144344%_ - _%hd144226144415%_) - (_%id2144371%_ - _%hd144201144366%_) - (_%expr2144378%_ - _%hd144203144373%_) - (_%body144380%_ - _%tl144221144434%_)) - (_%K144188144314%_ - _%body144380%_ - _%expr2144378%_ - _%id2144371%_ - _%expr1144344%_ - _%id1144337%_)) - (_%else144169144244%_)) - (_%else144169144244%_)) - (_%else144169144244%_))) - (_%else144169144244%_))) - (_%else144169144244%_))) - (_%else144169144244%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144169144244%_)) + (##car _%tl144361144527%_)))) + (if (null? _%tl144363144534%_) + (if (null? _%tl144359144522%_) + (if (null? _%tl144376144583%_) + (let ((_%id1144496%_ + _%hd144383144567%_) + (_%expr1144503%_ + _%hd144385144574%_) + (_%id2144530%_ + _%hd144360144525%_) + (_%expr2144537%_ + _%hd144362144532%_) + (_%body144539%_ + _%tl144380144593%_)) + (_%K144347144473%_ + _%body144539%_ + _%expr2144537%_ + _%id2144530%_ + _%expr1144503%_ + _%id1144496%_)) + (_%else144328144403%_)) + (_%else144328144403%_)) + (_%else144328144403%_))) + (_%else144328144403%_))) + (_%else144328144403%_))) + (_%else144328144403%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144328144403%_)) (if (let () (declare (not safe)) - (##eq? _%hd144218144427%_ + (##eq? _%hd144377144586%_ 'let*)) - (if (pair? _%tl144219144429%_) - (let ((_%tl144181144297%_ + (if (pair? _%tl144378144588%_) + (let ((_%tl144340144456%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl144219144429%_))) - (_%hd144180144295%_ - (let () (declare (not safe)) (##car _%tl144219144429%_)))) - (if (null? _%tl144217144424%_) - (let ((_%id1144276%_ _%hd144224144408%_) - (_%expr1144283%_ _%hd144226144415%_) - (_%bind144300%_ _%hd144180144295%_) - (_%body144302%_ _%tl144181144297%_)) - (_%K144171144253%_ - _%body144302%_ - _%bind144300%_ - _%expr1144283%_ - _%id1144276%_)) - (_%else144169144244%_))) - (_%else144169144244%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144169144244%_)))) - (_%else144169144244%_))) - (_%else144169144244%_)) - (_%else144169144244%_)) - (_%else144169144244%_))) - (_%else144169144244%_))) - (_%else144169144244%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144169144244%_)))) - (_%else144169144244%_)) - (_%else144169144244%_))) - (_%else144169144244%_)))))) - (_%generate-values143862%_ - (lambda (_%hd143976%_ _%body143977%_) - (let _%lp143979%_ ((_%rest143981%_ _%hd143976%_) - (_%bind143982%_ '()) - (_%check143983%_ '()) - (_%post143984%_ '())) - (let* ((_%__stx148107148108%_ _%rest143981%_) - (_%g143987143998%_ + (##cdr _%tl144378144588%_))) + (_%hd144339144454%_ + (let () (declare (not safe)) (##car _%tl144378144588%_)))) + (if (null? _%tl144376144583%_) + (let ((_%id1144435%_ _%hd144383144567%_) + (_%expr1144442%_ _%hd144385144574%_) + (_%bind144459%_ _%hd144339144454%_) + (_%body144461%_ _%tl144340144456%_)) + (_%K144330144412%_ + _%body144461%_ + _%bind144459%_ + _%expr1144442%_ + _%id1144435%_)) + (_%else144328144403%_))) + (_%else144328144403%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144328144403%_)))) + (_%else144328144403%_))) + (_%else144328144403%_)) + (_%else144328144403%_)) + (_%else144328144403%_))) + (_%else144328144403%_))) + (_%else144328144403%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144328144403%_)))) + (_%else144328144403%_)) + (_%else144328144403%_))) + (_%else144328144403%_)))))) + (_%generate-values144021%_ + (lambda (_%hd144135%_ _%body144136%_) + (let _%lp144138%_ ((_%rest144140%_ _%hd144135%_) + (_%bind144141%_ '()) + (_%check144142%_ '()) + (_%post144143%_ '())) + (let* ((_%__stx148266148267%_ _%rest144140%_) + (_%g144146144157%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148107148108%_))))) - (let ((_%__kont148109148110%_ - (lambda (_%L144025%_ _%L144026%_) - (let* ((_%__stx148063148064%_ _%L144026%_) - (_%g144041144066%_ + _%__stx148266148267%_))))) + (let ((_%__kont148268148269%_ + (lambda (_%L144184%_ _%L144185%_) + (let* ((_%__stx148222148223%_ _%L144185%_) + (_%g144200144225%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148063148064%_))))) - (let ((_%__kont148065148066%_ - (lambda (_%L144139%_ _%L144140%_) - (let ((_%eid144154%_ + _%__stx148222148223%_))))) + (let ((_%__kont148224148225%_ + (lambda (_%L144298%_ _%L144299%_) + (let ((_%eid144313%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L144140%_))) - (_%expr144155%_ + _%L144299%_))) + (_%expr144314%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143855%_ - _%L144139%_)))) - (_%lp143979%_ - _%L144025%_ - (cons (cons _%eid144154%_ - (cons _%expr144155%_ + _%self144014%_ + _%L144298%_)))) + (_%lp144138%_ + _%L144184%_ + (cons (cons _%eid144313%_ + (cons _%expr144314%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143982%_) - _%check143983%_ - _%post143984%_)))) - (_%__kont148067148068%_ - (lambda (_%L144087%_ _%L144088%_) - (let* ((_%vals144101%_ + _%bind144141%_) + _%check144142%_ + _%post144143%_)))) + (_%__kont148226148227%_ + (lambda (_%L144246%_ _%L144247%_) + (let* ((_%vals144260%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values144103%_ + (_%check-values144262%_ (gxc#generate-runtime-check-values - _%vals144101%_ - _%L144088%_ - _%L144087%_)) - (_%refs144105%_ + _%vals144260%_ + _%L144247%_ + _%L144246%_)) + (_%refs144264%_ (gxc#generate-runtime-let-values-bind - _%vals144101%_ - _%L144088%_)) - (_%expr144107%_ + _%vals144260%_ + _%L144247%_)) + (_%expr144266%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143855%_ - _%L144087%_)))) - (_%lp143979%_ - _%L144025%_ - (cons (cons _%vals144101%_ - (cons _%expr144107%_ + _%self144014%_ + _%L144246%_)))) + (_%lp144138%_ + _%L144184%_ + (cons (cons _%vals144260%_ + (cons _%expr144266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143982%_) - (cons _%check-values144103%_ - _%check143983%_) - (cons _%refs144105%_ - _%post143984%_)))))) + _%bind144141%_) + (cons _%check-values144262%_ + _%check144142%_) + (cons _%refs144264%_ + _%post144143%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148063148064%_)) - (let ((_%e144045144115%_ + _%__stx148222148223%_)) + (let ((_%e144204144274%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148063148064%_)))) - (let ((_%tl144047144120%_ + _%__stx148222148223%_)))) + (let ((_%tl144206144279%_ (let () (declare (not safe)) - (##cdr _%e144045144115%_))) - (_%hd144046144118%_ + (##cdr _%e144204144274%_))) + (_%hd144205144277%_ (let () (declare (not safe)) - (##car _%e144045144115%_)))) + (##car _%e144204144274%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144046144118%_)) - (let ((_%e144048144123%_ + _%hd144205144277%_)) + (let ((_%e144207144282%_ (let () (declare (not safe)) (gx#stx-e - _%hd144046144118%_)))) - (let ((_%tl144050144128%_ + _%hd144205144277%_)))) + (let ((_%tl144209144287%_ (let () (declare (not safe)) - (##cdr _%e144048144123%_))) - (_%hd144049144126%_ + (##cdr _%e144207144282%_))) + (_%hd144208144285%_ (let () (declare (not safe)) - (##car _%e144048144123%_)))) + (##car _%e144207144282%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144050144128%_)) + _%tl144209144287%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144047144120%_)) - (let ((_%e144051144131%_ + (gx#stx-pair? _%tl144206144279%_)) + (let ((_%e144210144290%_ (let () (declare (not safe)) - (gx#stx-e _%tl144047144120%_)))) - (let ((_%tl144053144136%_ + (gx#stx-e _%tl144206144279%_)))) + (let ((_%tl144212144295%_ (let () (declare (not safe)) - (##cdr _%e144051144131%_))) - (_%hd144052144134%_ + (##cdr _%e144210144290%_))) + (_%hd144211144293%_ (let () (declare (not safe)) - (##car _%e144051144131%_)))) + (##car _%e144210144290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144053144136%_)) - (_%__kont148065148066%_ - _%hd144052144134%_ - _%hd144049144126%_) + (gx#stx-null? _%tl144212144295%_)) + (_%__kont148224148225%_ + _%hd144211144293%_ + _%hd144208144285%_) (let () (declare (not safe)) - (_%g144041144066%_))))) - (let () (declare (not safe)) (_%g144041144066%_))) + (_%g144200144225%_))))) + (let () (declare (not safe)) (_%g144200144225%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144047144120%_)) - (let ((_%e144059144079%_ + (gx#stx-pair? _%tl144206144279%_)) + (let ((_%e144218144238%_ (let () (declare (not safe)) - (gx#stx-e _%tl144047144120%_)))) - (let ((_%tl144061144084%_ + (gx#stx-e _%tl144206144279%_)))) + (let ((_%tl144220144243%_ (let () (declare (not safe)) - (##cdr _%e144059144079%_))) - (_%hd144060144082%_ + (##cdr _%e144218144238%_))) + (_%hd144219144241%_ (let () (declare (not safe)) - (##car _%e144059144079%_)))) + (##car _%e144218144238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144061144084%_)) - (_%__kont148067148068%_ - _%hd144060144082%_ - _%hd144046144118%_) + (gx#stx-null? _%tl144220144243%_)) + (_%__kont148226148227%_ + _%hd144219144241%_ + _%hd144205144277%_) (let () (declare (not safe)) - (_%g144041144066%_))))) - (let () (declare (not safe)) (_%g144041144066%_)))))) + (_%g144200144225%_))))) + (let () (declare (not safe)) (_%g144200144225%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144047144120%_)) - (let ((_%e144059144079%_ + _%tl144206144279%_)) + (let ((_%e144218144238%_ (let () (declare (not safe)) (gx#stx-e - _%tl144047144120%_)))) - (let ((_%tl144061144084%_ + _%tl144206144279%_)))) + (let ((_%tl144220144243%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144059144079%_))) - (_%hd144060144082%_ - (let () (declare (not safe)) (##car _%e144059144079%_)))) + (##cdr _%e144218144238%_))) + (_%hd144219144241%_ + (let () (declare (not safe)) (##car _%e144218144238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144061144084%_)) - (_%__kont148067148068%_ - _%hd144060144082%_ - _%hd144046144118%_) - (let () (declare (not safe)) (_%g144041144066%_))))) + (gx#stx-null? _%tl144220144243%_)) + (_%__kont148226148227%_ + _%hd144219144241%_ + _%hd144205144277%_) + (let () (declare (not safe)) (_%g144200144225%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144041144066%_)))))) + (_%g144200144225%_)))))) (let () (declare (not safe)) - (_%g144041144066%_))))))) - (_%__kont148111148112%_ + (_%g144200144225%_))))))) + (_%__kont148270148271%_ (lambda () - (let* ((_%body144005%_ - (if _%compiled-body?143857%_ - _%body143977%_ + (let* ((_%body144164%_ + (if _%compiled-body?144016%_ + _%body144136%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143855%_ - _%body143977%_)))) - (_%body144007%_ - (_%generate-values-post143863%_ - _%post143984%_ - _%body144005%_)) - (_%body144009%_ - (_%generate-values-check143864%_ - _%check143983%_ - _%body144007%_))) + _%self144014%_ + _%body144136%_)))) + (_%body144166%_ + (_%generate-values-post144022%_ + _%post144143%_ + _%body144164%_)) + (_%body144168%_ + (_%generate-values-check144023%_ + _%check144142%_ + _%body144166%_))) (cons 'let - (cons (reverse _%bind143982%_) - (cons _%body144009%_ '()))))))) + (cons (reverse _%bind144141%_) + (cons _%body144168%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148107148108%_)) - (let ((_%e143991144017%_ + (gx#stx-pair? _%__stx148266148267%_)) + (let ((_%e144150144176%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148107148108%_)))) - (let ((_%tl143993144022%_ + (gx#stx-e _%__stx148266148267%_)))) + (let ((_%tl144152144181%_ (let () (declare (not safe)) - (##cdr _%e143991144017%_))) - (_%hd143992144020%_ + (##cdr _%e144150144176%_))) + (_%hd144151144179%_ (let () (declare (not safe)) - (##car _%e143991144017%_)))) - (_%__kont148109148110%_ - _%tl143993144022%_ - _%hd143992144020%_))) - (_%__kont148111148112%_))))))) - (_%generate-values-post143863%_ - (lambda (_%post143935%_ _%body143936%_) - (let _%lp143938%_ ((_%rest143940%_ _%post143935%_) - (_%body143941%_ _%body143936%_)) - (let* ((_%rest143942143950%_ _%rest143940%_) - (_%else143944143958%_ (lambda () _%body143941%_)) - (_%K143946143964%_ - (lambda (_%rest143961%_ _%bind143962%_) - (_%lp143938%_ - _%rest143961%_ + (##car _%e144150144176%_)))) + (_%__kont148268148269%_ + _%tl144152144181%_ + _%hd144151144179%_))) + (_%__kont148270148271%_))))))) + (_%generate-values-post144022%_ + (lambda (_%post144094%_ _%body144095%_) + (let _%lp144097%_ ((_%rest144099%_ _%post144094%_) + (_%body144100%_ _%body144095%_)) + (let* ((_%rest144101144109%_ _%rest144099%_) + (_%else144103144117%_ (lambda () _%body144100%_)) + (_%K144105144123%_ + (lambda (_%rest144120%_ _%bind144121%_) + (_%lp144097%_ + _%rest144120%_ (cons 'let - (cons _%bind143962%_ - (cons _%body143941%_ '()))))))) - (if (pair? _%rest143942143950%_) - (let ((_%hd143947143967%_ + (cons _%bind144121%_ + (cons _%body144100%_ '()))))))) + (if (pair? _%rest144101144109%_) + (let ((_%hd144106144126%_ (let () (declare (not safe)) - (##car _%rest143942143950%_))) - (_%tl143948143969%_ + (##car _%rest144101144109%_))) + (_%tl144107144128%_ (let () (declare (not safe)) - (##cdr _%rest143942143950%_)))) - (let* ((_%bind143972%_ _%hd143947143967%_) - (_%rest143974%_ _%tl143948143969%_)) - (_%K143946143964%_ - _%rest143974%_ - _%bind143972%_))) - (_%else143944143958%_)))))) - (_%generate-values-check143864%_ - (lambda (_%check143932%_ _%body143933%_) + (##cdr _%rest144101144109%_)))) + (let* ((_%bind144131%_ _%hd144106144126%_) + (_%rest144133%_ _%tl144107144128%_)) + (_%K144105144123%_ + _%rest144133%_ + _%bind144131%_))) + (_%else144103144117%_)))))) + (_%generate-values-check144023%_ + (lambda (_%check144091%_ _%body144092%_) (cons 'begin - (let ((__tmp148955 (cons _%body143933%_ '())) - (__tmp148954 (reverse _%check143932%_))) + (let ((__tmp149114 (cons _%body144092%_ '())) + (__tmp149113 (reverse _%check144091%_))) (declare (not safe)) - (__foldr1 cons __tmp148955 __tmp148954)))))) - (let* ((_%g143866143883%_ - (lambda (_%g143867143880%_) + (__foldr1 cons __tmp149114 __tmp149113)))))) + (let* ((_%g144025144042%_ + (lambda (_%g144026144039%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143867143880%_)))) - (_%g143865143929%_ - (lambda (_%g143867143886%_) + _%g144026144039%_)))) + (_%g144024144088%_ + (lambda (_%g144026144045%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143867143886%_)) - (let ((_%e143870143888%_ + (gx#stx-pair? _%g144026144045%_)) + (let ((_%e144029144047%_ (let () (declare (not safe)) - (gx#stx-e _%g143867143886%_)))) - (let ((_%hd143871143891%_ + (gx#stx-e _%g144026144045%_)))) + (let ((_%hd144030144050%_ (let () (declare (not safe)) - (##car _%e143870143888%_))) - (_%tl143872143893%_ + (##car _%e144029144047%_))) + (_%tl144031144052%_ (let () (declare (not safe)) - (##cdr _%e143870143888%_)))) + (##cdr _%e144029144047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143872143893%_)) - (let ((_%e143873143896%_ + (gx#stx-pair? _%tl144031144052%_)) + (let ((_%e144032144055%_ (let () (declare (not safe)) - (gx#stx-e _%tl143872143893%_)))) - (let ((_%hd143874143899%_ + (gx#stx-e _%tl144031144052%_)))) + (let ((_%hd144033144058%_ (let () (declare (not safe)) - (##car _%e143873143896%_))) - (_%tl143875143901%_ + (##car _%e144032144055%_))) + (_%tl144034144060%_ (let () (declare (not safe)) - (##cdr _%e143873143896%_)))) + (##cdr _%e144032144055%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143875143901%_)) - (let ((_%e143876143904%_ + (gx#stx-pair? _%tl144034144060%_)) + (let ((_%e144035144063%_ (let () (declare (not safe)) (gx#stx-e - _%tl143875143901%_)))) - (let ((_%hd143877143907%_ + _%tl144034144060%_)))) + (let ((_%hd144036144066%_ (let () (declare (not safe)) - (##car _%e143876143904%_))) - (_%tl143878143909%_ + (##car _%e144035144063%_))) + (_%tl144037144068%_ (let () (declare (not safe)) - (##cdr _%e143876143904%_)))) + (##cdr _%e144035144063%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143878143909%_)) - ((lambda (_%L143912%_ - _%L143913%_) + _%tl144037144068%_)) + ((lambda (_%L144071%_ + _%L144072%_) (if (gxc#generate-runtime-simple-let? - _%L143913%_) - (_%generate-simple143859%_ - _%L143913%_ - _%L143912%_) - (_%generate-values143862%_ - _%L143913%_ - _%L143912%_))) - _%hd143877143907%_ - _%hd143874143899%_) - (_%g143866143883%_ - _%g143867143886%_)))) - (_%g143866143883%_ - _%g143867143886%_)))) - (_%g143866143883%_ _%g143867143886%_)))) - (_%g143866143883%_ _%g143867143886%_))))) - (_%g143865143929%_ _%stx143856%_))))) + _%L144072%_) + (_%generate-simple144018%_ + _%L144072%_ + _%L144071%_) + (_%generate-values144021%_ + _%L144072%_ + _%L144071%_))) + _%hd144036144066%_ + _%hd144033144058%_) + (_%g144025144042%_ + _%g144026144045%_)))) + (_%g144025144042%_ + _%g144026144045%_)))) + (_%g144025144042%_ _%g144026144045%_)))) + (_%g144025144042%_ _%g144026144045%_))))) + (_%g144024144088%_ _%stx144015%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self144609%_ _%stx144610%_) - (let ((_%compiled-body?144612%_ '#f)) + (lambda (_%self144768%_ _%stx144769%_) + (let ((_%compiled-body?144771%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self144609%_ - _%stx144610%_ - _%compiled-body?144612%_)))) + _%self144768%_ + _%stx144769%_ + _%compiled-body?144771%_)))) (define gxc#generate-runtime-let-values% - (lambda _g148957_ - (let ((_g148956_ (let () (declare (not safe)) (##length _g148957_)))) - (cond ((let () (declare (not safe)) (##fx= _g148956_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g148957_)) - ((let () (declare (not safe)) (##fx= _g148956_ 3)) - (apply gxc#generate-runtime-let-values%__% _g148957_)) + (lambda _g149116_ + (let ((_g149115_ (let () (declare (not safe)) (##length _g149116_)))) + (cond ((let () (declare (not safe)) (##fx= _g149115_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g149116_)) + ((let () (declare (not safe)) (##fx= _g149115_ 3)) + (apply gxc#generate-runtime-let-values%__% _g149116_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g148957_)))))) + _g149116_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals143749%_ _%hd143750%_) - (let _%lp143752%_ ((_%rest143754%_ _%hd143750%_) - (_%k143755%_ '0) - (_%r143756%_ '())) - (let* ((_%__stx148121148122%_ _%rest143754%_) - (_%g143761143778%_ + (lambda (_%vals143908%_ _%hd143909%_) + (let _%lp143911%_ ((_%rest143913%_ _%hd143909%_) + (_%k143914%_ '0) + (_%r143915%_ '())) + (let* ((_%__stx148280148281%_ _%rest143913%_) + (_%g143920143937%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148121148122%_))))) - (let ((_%__kont148123148124%_ - (lambda (_%L143841%_) - (_%lp143752%_ - _%L143841%_ - (let () (declare (not safe)) (##fx+ _%k143755%_ '1)) - _%r143756%_))) - (_%__kont148125148126%_ - (lambda (_%L143814%_ _%L143815%_) - (_%lp143752%_ - _%L143814%_ - (let () (declare (not safe)) (##fx+ _%k143755%_ '1)) + _%__stx148280148281%_))))) + (let ((_%__kont148282148283%_ + (lambda (_%L144000%_) + (_%lp143911%_ + _%L144000%_ + (let () (declare (not safe)) (##fx+ _%k143914%_ '1)) + _%r143915%_))) + (_%__kont148284148285%_ + (lambda (_%L143973%_ _%L143974%_) + (_%lp143911%_ + _%L143973%_ + (let () (declare (not safe)) (##fx+ _%k143914%_ '1)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143815%_)) + _%L143974%_)) (cons (gxc#generate-runtime-values-ref - _%vals143749%_ - _%k143755%_ - _%L143814%_) + _%vals143908%_ + _%k143914%_ + _%L143973%_) '())) - _%r143756%_)))) - (_%__kont148127148128%_ - (lambda (_%L143790%_) - (let ((__tmp148958 + _%r143915%_)))) + (_%__kont148286148287%_ + (lambda (_%L143949%_) + (let ((__tmp149117 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143790%_)) + _%L143949%_)) (cons (gxc#generate-runtime-values->list - _%vals143749%_ - _%k143755%_) + _%vals143908%_ + _%k143914%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp148958 _%r143756%_)))) - (_%__kont148129148130%_ (lambda () (reverse _%r143756%_)))) - (let ((_%g143759143801%_ + (__foldl1 cons __tmp149117 _%r143915%_)))) + (_%__kont148288148289%_ (lambda () (reverse _%r143915%_)))) + (let ((_%g143918143960%_ (lambda () - (let ((_%L143790%_ _%__stx148121148122%_)) + (let ((_%L143949%_ _%__stx148280148281%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L143790%_)) - (_%__kont148127148128%_ _%L143790%_) - (_%__kont148129148130%_)))))) + (gx#identifier? _%L143949%_)) + (_%__kont148286148287%_ _%L143949%_) + (_%__kont148288148289%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148121148122%_)) - (let ((_%e143764143830%_ + (gx#stx-pair? _%__stx148280148281%_)) + (let ((_%e143923143989%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148121148122%_)))) - (let ((_%tl143766143835%_ + (gx#stx-e _%__stx148280148281%_)))) + (let ((_%tl143925143994%_ (let () (declare (not safe)) - (##cdr _%e143764143830%_))) - (_%hd143765143833%_ + (##cdr _%e143923143989%_))) + (_%hd143924143992%_ (let () (declare (not safe)) - (##car _%e143764143830%_)))) + (##car _%e143923143989%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd143765143833%_)) - (let ((_%e143767143838%_ + (gx#stx-datum? _%hd143924143992%_)) + (let ((_%e143926143997%_ (let () (declare (not safe)) - (gx#stx-e _%hd143765143833%_)))) - (if (equal? _%e143767143838%_ '#f) - (_%__kont148123148124%_ _%tl143766143835%_) - (_%__kont148125148126%_ - _%tl143766143835%_ - _%hd143765143833%_))) - (_%__kont148125148126%_ - _%tl143766143835%_ - _%hd143765143833%_)))) - (let () (declare (not safe)) (_%g143759143801%_))))))))) + (gx#stx-e _%hd143924143992%_)))) + (if (equal? _%e143926143997%_ '#f) + (_%__kont148282148283%_ _%tl143925143994%_) + (_%__kont148284148285%_ + _%tl143925143994%_ + _%hd143924143992%_))) + (_%__kont148284148285%_ + _%tl143925143994%_ + _%hd143924143992%_)))) + (let () (declare (not safe)) (_%g143918143960%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self143428%_ _%stx143429%_ _%compiled-body?143430%_) - (letrec ((_%generate-simple143432%_ - (lambda (_%hd143734%_ _%body143735%_) + (lambda (_%self143587%_ _%stx143588%_ _%compiled-body?143589%_) + (letrec ((_%generate-simple143591%_ + (lambda (_%hd143893%_ _%body143894%_) (gxc#generate-runtime-simple-let - _%self143428%_ + _%self143587%_ 'letrec - _%hd143734%_ - _%body143735%_ - _%compiled-body?143430%_))) - (_%generate-values143433%_ - (lambda (_%hd143513%_ _%body143514%_) - (let _%lp143516%_ ((_%rest143518%_ _%hd143513%_) - (_%bind143519%_ '()) - (_%check143520%_ '()) - (_%post143521%_ '())) - (let* ((_%__stx148195148196%_ _%rest143518%_) - (_%g143524143535%_ + _%hd143893%_ + _%body143894%_ + _%compiled-body?143589%_))) + (_%generate-values143592%_ + (lambda (_%hd143672%_ _%body143673%_) + (let _%lp143675%_ ((_%rest143677%_ _%hd143672%_) + (_%bind143678%_ '()) + (_%check143679%_ '()) + (_%post143680%_ '())) + (let* ((_%__stx148354148355%_ _%rest143677%_) + (_%g143683143694%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148195148196%_))))) - (let ((_%__kont148197148198%_ - (lambda (_%L143562%_ _%L143563%_) - (let* ((_%__stx148151148152%_ _%L143563%_) - (_%g143578143603%_ + _%__stx148354148355%_))))) + (let ((_%__kont148356148357%_ + (lambda (_%L143721%_ _%L143722%_) + (let* ((_%__stx148310148311%_ _%L143722%_) + (_%g143737143762%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148151148152%_))))) - (let ((_%__kont148153148154%_ - (lambda (_%L143710%_ _%L143711%_) - (let ((_%eid143725%_ + _%__stx148310148311%_))))) + (let ((_%__kont148312148313%_ + (lambda (_%L143869%_ _%L143870%_) + (let ((_%eid143884%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143711%_))) - (_%expr143726%_ + _%L143870%_))) + (_%expr143885%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143428%_ - _%L143710%_)))) - (_%lp143516%_ - _%L143562%_ - (cons (cons _%eid143725%_ - (cons _%expr143726%_ + _%self143587%_ + _%L143869%_)))) + (_%lp143675%_ + _%L143721%_ + (cons (cons _%eid143884%_ + (cons _%expr143885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143519%_) - _%check143520%_ - _%post143521%_)))) - (_%__kont148155148156%_ - (lambda (_%L143624%_ _%L143625%_) - (let* ((_%vals143638%_ + _%bind143678%_) + _%check143679%_ + _%post143680%_)))) + (_%__kont148314148315%_ + (lambda (_%L143783%_ _%L143784%_) + (let* ((_%vals143797%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143640%_ + (_%check-values143799%_ (gxc#generate-runtime-check-values - _%vals143638%_ - _%L143625%_ - _%L143624%_)) - (_%refs143642%_ + _%vals143797%_ + _%L143784%_ + _%L143783%_)) + (_%refs143801%_ (gxc#generate-runtime-let-values-bind - _%vals143638%_ - _%L143625%_)) - (_%expr143644%_ + _%vals143797%_ + _%L143784%_)) + (_%expr143803%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143428%_ - _%L143624%_)))) - (_%lp143516%_ - _%L143562%_ - (let ((__tmp148960 - (cons (cons _%vals143638%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr143644%_ '())) - _%bind143519%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp148959 - (map (lambda (_%e143646143648%_) - (let* ((_%g143650143659%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e143646143648%_) - (_%E143652143663%_ + _%self143587%_ + _%L143783%_)))) + (_%lp143675%_ + _%L143721%_ + (let ((__tmp149119 + (cons (cons _%vals143797%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr143803%_ '())) + _%bind143678%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp149118 + (map (lambda (_%e143805143807%_) + (let* ((_%g143809143818%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e143805143807%_) + (_%E143811143822%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g143650143659%_ + _%g143809143818%_ '([eid _]))) '#!void)) - (_%K143653143668%_ - (lambda (_%eid143666%_) - (cons _%eid143666%_ (cons '#!void '()))))) - (if (pair? _%g143650143659%_) - (let ((_%hd143654143671%_ + (_%K143812143827%_ + (lambda (_%eid143825%_) + (cons _%eid143825%_ (cons '#!void '()))))) + (if (pair? _%g143809143818%_) + (let ((_%hd143813143830%_ (let () (declare (not safe)) - (##car _%g143650143659%_))) - (_%tl143655143673%_ + (##car _%g143809143818%_))) + (_%tl143814143832%_ (let () (declare (not safe)) - (##cdr _%g143650143659%_)))) - (let ((_%eid143676%_ _%hd143654143671%_)) - (if (pair? _%tl143655143673%_) - (let ((_%tl143657143678%_ + (##cdr _%g143809143818%_)))) + (let ((_%eid143835%_ _%hd143813143830%_)) + (if (pair? _%tl143814143832%_) + (let ((_%tl143816143837%_ (let () (declare (not safe)) - (##cdr _%tl143655143673%_)))) - (if (null? _%tl143657143678%_) - (_%K143653143668%_ _%eid143676%_) - (_%E143652143663%_))) - (_%E143652143663%_)))) - (_%E143652143663%_)))) - _%refs143642%_))) + (##cdr _%tl143814143832%_)))) + (if (null? _%tl143816143837%_) + (_%K143812143827%_ _%eid143835%_) + (_%E143811143822%_))) + (_%E143811143822%_)))) + (_%E143811143822%_)))) + _%refs143801%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp148960 - __tmp148959)) - (cons _%check-values143640%_ - _%check143520%_) + __tmp149119 + __tmp149118)) + (cons _%check-values143799%_ + _%check143679%_) (let () (declare (not safe)) (__foldl1 cons - _%refs143642%_ - _%post143521%_))))))) + _%refs143801%_ + _%post143680%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148151148152%_)) - (let ((_%e143582143686%_ + _%__stx148310148311%_)) + (let ((_%e143741143845%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148151148152%_)))) - (let ((_%tl143584143691%_ + _%__stx148310148311%_)))) + (let ((_%tl143743143850%_ (let () (declare (not safe)) - (##cdr _%e143582143686%_))) - (_%hd143583143689%_ + (##cdr _%e143741143845%_))) + (_%hd143742143848%_ (let () (declare (not safe)) - (##car _%e143582143686%_)))) + (##car _%e143741143845%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143583143689%_)) - (let ((_%e143585143694%_ + _%hd143742143848%_)) + (let ((_%e143744143853%_ (let () (declare (not safe)) (gx#stx-e - _%hd143583143689%_)))) - (let ((_%tl143587143699%_ + _%hd143742143848%_)))) + (let ((_%tl143746143858%_ (let () (declare (not safe)) - (##cdr _%e143585143694%_))) - (_%hd143586143697%_ + (##cdr _%e143744143853%_))) + (_%hd143745143856%_ (let () (declare (not safe)) - (##car _%e143585143694%_)))) + (##car _%e143744143853%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143587143699%_)) + _%tl143746143858%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143584143691%_)) - (let ((_%e143588143702%_ + (gx#stx-pair? _%tl143743143850%_)) + (let ((_%e143747143861%_ (let () (declare (not safe)) - (gx#stx-e _%tl143584143691%_)))) - (let ((_%tl143590143707%_ + (gx#stx-e _%tl143743143850%_)))) + (let ((_%tl143749143866%_ (let () (declare (not safe)) - (##cdr _%e143588143702%_))) - (_%hd143589143705%_ + (##cdr _%e143747143861%_))) + (_%hd143748143864%_ (let () (declare (not safe)) - (##car _%e143588143702%_)))) + (##car _%e143747143861%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143590143707%_)) - (_%__kont148153148154%_ - _%hd143589143705%_ - _%hd143586143697%_) + (gx#stx-null? _%tl143749143866%_)) + (_%__kont148312148313%_ + _%hd143748143864%_ + _%hd143745143856%_) (let () (declare (not safe)) - (_%g143578143603%_))))) - (let () (declare (not safe)) (_%g143578143603%_))) + (_%g143737143762%_))))) + (let () (declare (not safe)) (_%g143737143762%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143584143691%_)) - (let ((_%e143596143616%_ + (gx#stx-pair? _%tl143743143850%_)) + (let ((_%e143755143775%_ (let () (declare (not safe)) - (gx#stx-e _%tl143584143691%_)))) - (let ((_%tl143598143621%_ + (gx#stx-e _%tl143743143850%_)))) + (let ((_%tl143757143780%_ (let () (declare (not safe)) - (##cdr _%e143596143616%_))) - (_%hd143597143619%_ + (##cdr _%e143755143775%_))) + (_%hd143756143778%_ (let () (declare (not safe)) - (##car _%e143596143616%_)))) + (##car _%e143755143775%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143598143621%_)) - (_%__kont148155148156%_ - _%hd143597143619%_ - _%hd143583143689%_) + (gx#stx-null? _%tl143757143780%_)) + (_%__kont148314148315%_ + _%hd143756143778%_ + _%hd143742143848%_) (let () (declare (not safe)) - (_%g143578143603%_))))) - (let () (declare (not safe)) (_%g143578143603%_)))))) + (_%g143737143762%_))))) + (let () (declare (not safe)) (_%g143737143762%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143584143691%_)) - (let ((_%e143596143616%_ + _%tl143743143850%_)) + (let ((_%e143755143775%_ (let () (declare (not safe)) (gx#stx-e - _%tl143584143691%_)))) - (let ((_%tl143598143621%_ + _%tl143743143850%_)))) + (let ((_%tl143757143780%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143596143616%_))) - (_%hd143597143619%_ - (let () (declare (not safe)) (##car _%e143596143616%_)))) + (##cdr _%e143755143775%_))) + (_%hd143756143778%_ + (let () (declare (not safe)) (##car _%e143755143775%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143598143621%_)) - (_%__kont148155148156%_ - _%hd143597143619%_ - _%hd143583143689%_) - (let () (declare (not safe)) (_%g143578143603%_))))) + (gx#stx-null? _%tl143757143780%_)) + (_%__kont148314148315%_ + _%hd143756143778%_ + _%hd143742143848%_) + (let () (declare (not safe)) (_%g143737143762%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143578143603%_)))))) + (_%g143737143762%_)))))) (let () (declare (not safe)) - (_%g143578143603%_))))))) - (_%__kont148199148200%_ + (_%g143737143762%_))))))) + (_%__kont148358148359%_ (lambda () - (let* ((_%body143542%_ - (if _%compiled-body?143430%_ - _%body143514%_ + (let* ((_%body143701%_ + (if _%compiled-body?143589%_ + _%body143673%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143428%_ - _%body143514%_)))) - (_%body143544%_ - (_%generate-values-post143435%_ - _%post143521%_ - _%body143542%_)) - (_%body143546%_ - (_%generate-values-check143434%_ - _%check143520%_ - _%body143544%_))) + _%self143587%_ + _%body143673%_)))) + (_%body143703%_ + (_%generate-values-post143594%_ + _%post143680%_ + _%body143701%_)) + (_%body143705%_ + (_%generate-values-check143593%_ + _%check143679%_ + _%body143703%_))) (cons 'letrec - (cons (reverse _%bind143519%_) - (cons _%body143546%_ '()))))))) + (cons (reverse _%bind143678%_) + (cons _%body143705%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148195148196%_)) - (let ((_%e143528143554%_ + (gx#stx-pair? _%__stx148354148355%_)) + (let ((_%e143687143713%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148195148196%_)))) - (let ((_%tl143530143559%_ + (gx#stx-e _%__stx148354148355%_)))) + (let ((_%tl143689143718%_ (let () (declare (not safe)) - (##cdr _%e143528143554%_))) - (_%hd143529143557%_ + (##cdr _%e143687143713%_))) + (_%hd143688143716%_ (let () (declare (not safe)) - (##car _%e143528143554%_)))) - (_%__kont148197148198%_ - _%tl143530143559%_ - _%hd143529143557%_))) - (_%__kont148199148200%_))))))) - (_%generate-values-check143434%_ - (lambda (_%check143510%_ _%body143511%_) + (##car _%e143687143713%_)))) + (_%__kont148356148357%_ + _%tl143689143718%_ + _%hd143688143716%_))) + (_%__kont148358148359%_))))))) + (_%generate-values-check143593%_ + (lambda (_%check143669%_ _%body143670%_) (cons 'begin - (let ((__tmp148962 (cons _%body143511%_ '())) - (__tmp148961 (reverse _%check143510%_))) + (let ((__tmp149121 (cons _%body143670%_ '())) + (__tmp149120 (reverse _%check143669%_))) (declare (not safe)) - (__foldr1 cons __tmp148962 __tmp148961))))) - (_%generate-values-post143435%_ - (lambda (_%post143503%_ _%body143504%_) + (__foldr1 cons __tmp149121 __tmp149120))))) + (_%generate-values-post143594%_ + (lambda (_%post143662%_ _%body143663%_) (cons 'begin - (let ((__tmp148966 (cons _%body143504%_ '())) - (__tmp148963 - (let ((__tmp148965 - (lambda (_%g143505143507%_) - (cons 'set! _%g143505143507%_))) - (__tmp148964 (reverse _%post143503%_))) + (let ((__tmp149125 (cons _%body143663%_ '())) + (__tmp149122 + (let ((__tmp149124 + (lambda (_%g143664143666%_) + (cons 'set! _%g143664143666%_))) + (__tmp149123 (reverse _%post143662%_))) (declare (not safe)) - (##map __tmp148965 __tmp148964)))) + (##map __tmp149124 __tmp149123)))) (declare (not safe)) - (__foldr1 cons __tmp148966 __tmp148963)))))) - (let* ((_%g143437143454%_ - (lambda (_%g143438143451%_) + (__foldr1 cons __tmp149125 __tmp149122)))))) + (let* ((_%g143596143613%_ + (lambda (_%g143597143610%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143438143451%_)))) - (_%g143436143500%_ - (lambda (_%g143438143457%_) + _%g143597143610%_)))) + (_%g143595143659%_ + (lambda (_%g143597143616%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143438143457%_)) - (let ((_%e143441143459%_ + (gx#stx-pair? _%g143597143616%_)) + (let ((_%e143600143618%_ (let () (declare (not safe)) - (gx#stx-e _%g143438143457%_)))) - (let ((_%hd143442143462%_ + (gx#stx-e _%g143597143616%_)))) + (let ((_%hd143601143621%_ (let () (declare (not safe)) - (##car _%e143441143459%_))) - (_%tl143443143464%_ + (##car _%e143600143618%_))) + (_%tl143602143623%_ (let () (declare (not safe)) - (##cdr _%e143441143459%_)))) + (##cdr _%e143600143618%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143443143464%_)) - (let ((_%e143444143467%_ + (gx#stx-pair? _%tl143602143623%_)) + (let ((_%e143603143626%_ (let () (declare (not safe)) - (gx#stx-e _%tl143443143464%_)))) - (let ((_%hd143445143470%_ + (gx#stx-e _%tl143602143623%_)))) + (let ((_%hd143604143629%_ (let () (declare (not safe)) - (##car _%e143444143467%_))) - (_%tl143446143472%_ + (##car _%e143603143626%_))) + (_%tl143605143631%_ (let () (declare (not safe)) - (##cdr _%e143444143467%_)))) + (##cdr _%e143603143626%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143446143472%_)) - (let ((_%e143447143475%_ + (gx#stx-pair? _%tl143605143631%_)) + (let ((_%e143606143634%_ (let () (declare (not safe)) (gx#stx-e - _%tl143446143472%_)))) - (let ((_%hd143448143478%_ + _%tl143605143631%_)))) + (let ((_%hd143607143637%_ (let () (declare (not safe)) - (##car _%e143447143475%_))) - (_%tl143449143480%_ + (##car _%e143606143634%_))) + (_%tl143608143639%_ (let () (declare (not safe)) - (##cdr _%e143447143475%_)))) + (##cdr _%e143606143634%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143449143480%_)) - ((lambda (_%L143483%_ - _%L143484%_) + _%tl143608143639%_)) + ((lambda (_%L143642%_ + _%L143643%_) (if (gxc#generate-runtime-simple-let? - _%L143484%_) - (_%generate-simple143432%_ - _%L143484%_ - _%L143483%_) - (_%generate-values143433%_ - _%L143484%_ - _%L143483%_))) - _%hd143448143478%_ - _%hd143445143470%_) - (_%g143437143454%_ - _%g143438143457%_)))) - (_%g143437143454%_ - _%g143438143457%_)))) - (_%g143437143454%_ _%g143438143457%_)))) - (_%g143437143454%_ _%g143438143457%_))))) - (_%g143436143500%_ _%stx143429%_))))) + _%L143643%_) + (_%generate-simple143591%_ + _%L143643%_ + _%L143642%_) + (_%generate-values143592%_ + _%L143643%_ + _%L143642%_))) + _%hd143607143637%_ + _%hd143604143629%_) + (_%g143596143613%_ + _%g143597143616%_)))) + (_%g143596143613%_ + _%g143597143616%_)))) + (_%g143596143613%_ _%g143597143616%_)))) + (_%g143596143613%_ _%g143597143616%_))))) + (_%g143595143659%_ _%stx143588%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self143740%_ _%stx143741%_) - (let ((_%compiled-body?143743%_ '#f)) + (lambda (_%self143899%_ _%stx143900%_) + (let ((_%compiled-body?143902%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self143740%_ - _%stx143741%_ - _%compiled-body?143743%_)))) + _%self143899%_ + _%stx143900%_ + _%compiled-body?143902%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g148968_ - (let ((_g148967_ (let () (declare (not safe)) (##length _g148968_)))) - (cond ((let () (declare (not safe)) (##fx= _g148967_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g148968_)) - ((let () (declare (not safe)) (##fx= _g148967_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g148968_)) + (lambda _g149127_ + (let ((_g149126_ (let () (declare (not safe)) (##length _g149127_)))) + (cond ((let () (declare (not safe)) (##fx= _g149126_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g149127_)) + ((let () (declare (not safe)) (##fx= _g149126_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g149127_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g148968_)))))) + _g149127_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self143009%_ _%stx143010%_) - (letrec ((_%generate-values143012%_ - (lambda (_%hd143255%_ _%body143256%_) - (let _%lp143258%_ ((_%rest143260%_ _%hd143255%_) - (_%bind143261%_ '())) - (let* ((_%rest143262143270%_ _%rest143260%_) - (_%else143264143281%_ + (lambda (_%self143168%_ _%stx143169%_) + (letrec ((_%generate-values143171%_ + (lambda (_%hd143414%_ _%body143415%_) + (let _%lp143417%_ ((_%rest143419%_ _%hd143414%_) + (_%bind143420%_ '())) + (let* ((_%rest143421143429%_ _%rest143419%_) + (_%else143423143440%_ (lambda () - (let ((_%bind143278%_ (reverse _%bind143261%_)) - (_%body143279%_ + (let ((_%bind143437%_ (reverse _%bind143420%_)) + (_%body143438%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%body143256%_)))) + _%self143168%_ + _%body143415%_)))) (cons 'letrec* - (cons _%bind143278%_ - (cons _%body143279%_ '())))))) - (_%K143266143415%_ - (lambda (_%rest143284%_ _%hd-bind143285%_) - (let* ((_%__stx148209148210%_ - _%hd-bind143285%_) - (_%g143288143313%_ + (cons _%bind143437%_ + (cons _%body143438%_ '())))))) + (_%K143425143574%_ + (lambda (_%rest143443%_ _%hd-bind143444%_) + (let* ((_%__stx148368148369%_ + _%hd-bind143444%_) + (_%g143447143472%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148209148210%_))))) - (let ((_%__kont148211148212%_ - (lambda (_%L143394%_ _%L143395%_) - (let ((_%eid143409%_ + _%__stx148368148369%_))))) + (let ((_%__kont148370148371%_ + (lambda (_%L143553%_ _%L143554%_) + (let ((_%eid143568%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143395%_))) - (_%expr143410%_ + _%L143554%_))) + (_%expr143569%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143394%_)))) - (_%lp143258%_ - _%rest143284%_ - (cons (cons _%eid143409%_ - (cons _%expr143410%_ + _%self143168%_ + _%L143553%_)))) + (_%lp143417%_ + _%rest143443%_ + (cons (cons _%eid143568%_ + (cons _%expr143569%_ '())) - _%bind143261%_))))) - (_%__kont148213148214%_ - (lambda (_%L143334%_ _%L143335%_) - (let* ((_%vals143354%_ + _%bind143420%_))))) + (_%__kont148372148373%_ + (lambda (_%L143493%_ _%L143494%_) + (let* ((_%vals143513%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp143356%_ + (_%tmp143515%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143358%_ + (_%check-values143517%_ (gxc#generate-runtime-check-values - _%tmp143356%_ - _%L143335%_ - _%L143334%_)) - (_%refs143360%_ + _%tmp143515%_ + _%L143494%_ + _%L143493%_)) + (_%refs143519%_ (gxc#generate-runtime-let-values-bind - _%vals143354%_ - _%L143335%_)) - (_%expr143362%_ + _%vals143513%_ + _%L143494%_)) + (_%expr143521%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143334%_)))) - (_%lp143258%_ - _%rest143284%_ - (let ((__tmp148969 - (cons (cons _%vals143354%_ + _%self143168%_ + _%L143493%_)))) + (_%lp143417%_ + _%rest143443%_ + (let ((__tmp149128 + (cons (cons _%vals143513%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp143356%_ - (cons _%expr143362%_ + (cons (cons (cons _%tmp143515%_ + (cons _%expr143521%_ '())) '()) - (cons _%check-values143358%_ - (cons _%tmp143356%_ '())))) + (cons _%check-values143517%_ + (cons _%tmp143515%_ '())))) '())) - _%bind143261%_))) + _%bind143420%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp148969 - _%refs143360%_))))))) + __tmp149128 + _%refs143519%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148209148210%_)) - (let ((_%e143292143370%_ + (gx#stx-pair? _%__stx148368148369%_)) + (let ((_%e143451143529%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148209148210%_)))) - (let ((_%tl143294143375%_ + _%__stx148368148369%_)))) + (let ((_%tl143453143534%_ (let () (declare (not safe)) - (##cdr _%e143292143370%_))) - (_%hd143293143373%_ + (##cdr _%e143451143529%_))) + (_%hd143452143532%_ (let () (declare (not safe)) - (##car _%e143292143370%_)))) + (##car _%e143451143529%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143293143373%_)) - (let ((_%e143295143378%_ + _%hd143452143532%_)) + (let ((_%e143454143537%_ (let () (declare (not safe)) (gx#stx-e - _%hd143293143373%_)))) - (let ((_%tl143297143383%_ + _%hd143452143532%_)))) + (let ((_%tl143456143542%_ (let () (declare (not safe)) - (##cdr _%e143295143378%_))) - (_%hd143296143381%_ + (##cdr _%e143454143537%_))) + (_%hd143455143540%_ (let () (declare (not safe)) - (##car _%e143295143378%_)))) + (##car _%e143454143537%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143297143383%_)) + _%tl143456143542%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143294143375%_)) - (let ((_%e143298143386%_ + _%tl143453143534%_)) + (let ((_%e143457143545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143294143375%_)))) - (let ((_%tl143300143391%_ + (gx#stx-e _%tl143453143534%_)))) + (let ((_%tl143459143550%_ (let () (declare (not safe)) - (##cdr _%e143298143386%_))) - (_%hd143299143389%_ + (##cdr _%e143457143545%_))) + (_%hd143458143548%_ (let () (declare (not safe)) - (##car _%e143298143386%_)))) + (##car _%e143457143545%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143300143391%_)) - (_%__kont148211148212%_ - _%hd143299143389%_ - _%hd143296143381%_) + (gx#stx-null? _%tl143459143550%_)) + (_%__kont148370148371%_ + _%hd143458143548%_ + _%hd143455143540%_) (let () (declare (not safe)) - (_%g143288143313%_))))) - (let () (declare (not safe)) (_%g143288143313%_))) + (_%g143447143472%_))))) + (let () (declare (not safe)) (_%g143447143472%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143294143375%_)) - (let ((_%e143306143326%_ + (gx#stx-pair? _%tl143453143534%_)) + (let ((_%e143465143485%_ (let () (declare (not safe)) - (gx#stx-e _%tl143294143375%_)))) - (let ((_%tl143308143331%_ + (gx#stx-e _%tl143453143534%_)))) + (let ((_%tl143467143490%_ (let () (declare (not safe)) - (##cdr _%e143306143326%_))) - (_%hd143307143329%_ + (##cdr _%e143465143485%_))) + (_%hd143466143488%_ (let () (declare (not safe)) - (##car _%e143306143326%_)))) + (##car _%e143465143485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143308143331%_)) - (_%__kont148213148214%_ - _%hd143307143329%_ - _%hd143293143373%_) + (gx#stx-null? _%tl143467143490%_)) + (_%__kont148372148373%_ + _%hd143466143488%_ + _%hd143452143532%_) (let () (declare (not safe)) - (_%g143288143313%_))))) - (let () (declare (not safe)) (_%g143288143313%_)))))) + (_%g143447143472%_))))) + (let () (declare (not safe)) (_%g143447143472%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143294143375%_)) - (let ((_%e143306143326%_ + _%tl143453143534%_)) + (let ((_%e143465143485%_ (let () (declare (not safe)) (gx#stx-e - _%tl143294143375%_)))) - (let ((_%tl143308143331%_ + _%tl143453143534%_)))) + (let ((_%tl143467143490%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143306143326%_))) - (_%hd143307143329%_ - (let () (declare (not safe)) (##car _%e143306143326%_)))) + (##cdr _%e143465143485%_))) + (_%hd143466143488%_ + (let () (declare (not safe)) (##car _%e143465143485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143308143331%_)) - (_%__kont148213148214%_ - _%hd143307143329%_ - _%hd143293143373%_) - (let () (declare (not safe)) (_%g143288143313%_))))) + (gx#stx-null? _%tl143467143490%_)) + (_%__kont148372148373%_ + _%hd143466143488%_ + _%hd143452143532%_) + (let () (declare (not safe)) (_%g143447143472%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143288143313%_)))))) + (_%g143447143472%_)))))) (let () (declare (not safe)) - (_%g143288143313%_)))))))) - (if (pair? _%rest143262143270%_) - (let ((_%hd143267143418%_ + (_%g143447143472%_)))))))) + (if (pair? _%rest143421143429%_) + (let ((_%hd143426143577%_ (let () (declare (not safe)) - (##car _%rest143262143270%_))) - (_%tl143268143420%_ + (##car _%rest143421143429%_))) + (_%tl143427143579%_ (let () (declare (not safe)) - (##cdr _%rest143262143270%_)))) - (let* ((_%hd-bind143423%_ _%hd143267143418%_) - (_%rest143425%_ _%tl143268143420%_)) - (_%K143266143415%_ - _%rest143425%_ - _%hd-bind143423%_))) - (_%else143264143281%_)))))) - (_%generate-letrec?143013%_ - (lambda (_%hd143145%_) - (let _%lp143147%_ ((_%rest143149%_ _%hd143145%_)) - (let* ((_%rest143150143158%_ _%rest143149%_) - (_%else143152143166%_ (lambda () '#t)) - (_%K143154143243%_ - (lambda (_%rest143169%_ _%hd-bind143170%_) - (let* ((_%g143172143189%_ - (lambda (_%g143173143186%_) + (##cdr _%rest143421143429%_)))) + (let* ((_%hd-bind143582%_ _%hd143426143577%_) + (_%rest143584%_ _%tl143427143579%_)) + (_%K143425143574%_ + _%rest143584%_ + _%hd-bind143582%_))) + (_%else143423143440%_)))))) + (_%generate-letrec?143172%_ + (lambda (_%hd143304%_) + (let _%lp143306%_ ((_%rest143308%_ _%hd143304%_)) + (let* ((_%rest143309143317%_ _%rest143308%_) + (_%else143311143325%_ (lambda () '#t)) + (_%K143313143402%_ + (lambda (_%rest143328%_ _%hd-bind143329%_) + (let* ((_%g143331143348%_ + (lambda (_%g143332143345%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143173143186%_)))) - (_%g143171143240%_ - (lambda (_%g143173143192%_) + _%g143332143345%_)))) + (_%g143330143399%_ + (lambda (_%g143332143351%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g143173143192%_)) - (let ((_%e143176143194%_ + _%g143332143351%_)) + (let ((_%e143335143353%_ (let () (declare (not safe)) (gx#stx-e - _%g143173143192%_)))) - (let ((_%hd143177143197%_ + _%g143332143351%_)))) + (let ((_%hd143336143356%_ (let () (declare (not safe)) - (##car _%e143176143194%_))) - (_%tl143178143199%_ + (##car _%e143335143353%_))) + (_%tl143337143358%_ (let () (declare (not safe)) - (##cdr _%e143176143194%_)))) + (##cdr _%e143335143353%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143177143197%_)) - (let ((_%e143179143202%_ + _%hd143336143356%_)) + (let ((_%e143338143361%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd143177143197%_)))) - (let ((_%hd143180143205%_ - (let () (declare (not safe)) (##car _%e143179143202%_))) - (_%tl143181143207%_ + (gx#stx-e _%hd143336143356%_)))) + (let ((_%hd143339143364%_ + (let () (declare (not safe)) (##car _%e143338143361%_))) + (_%tl143340143366%_ (let () (declare (not safe)) - (##cdr _%e143179143202%_)))) + (##cdr _%e143338143361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143181143207%_)) + (gx#stx-null? _%tl143340143366%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143178143199%_)) - (let ((_%e143182143210%_ + (gx#stx-pair? _%tl143337143358%_)) + (let ((_%e143341143369%_ (let () (declare (not safe)) - (gx#stx-e _%tl143178143199%_)))) - (let ((_%hd143183143213%_ + (gx#stx-e _%tl143337143358%_)))) + (let ((_%hd143342143372%_ (let () (declare (not safe)) - (##car _%e143182143210%_))) - (_%tl143184143215%_ + (##car _%e143341143369%_))) + (_%tl143343143374%_ (let () (declare (not safe)) - (##cdr _%e143182143210%_)))) + (##cdr _%e143341143369%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143184143215%_)) - ((lambda (_%L143218%_ _%L143219%_) - (if (_%is-lambda-expr?143014%_ - _%L143218%_) - (_%lp143147%_ _%rest143169%_) + (gx#stx-null? _%tl143343143374%_)) + ((lambda (_%L143377%_ _%L143378%_) + (if (_%is-lambda-expr?143173%_ + _%L143377%_) + (_%lp143306%_ _%rest143328%_) '#f)) - _%hd143183143213%_ - _%hd143180143205%_) - (_%g143172143189%_ _%g143173143192%_)))) - (_%g143172143189%_ _%g143173143192%_)) - (_%g143172143189%_ _%g143173143192%_)))) - (_%g143172143189%_ _%g143173143192%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143172143189%_ - _%g143173143192%_))))) - (_%g143171143240%_ _%hd-bind143170%_))))) - (if (pair? _%rest143150143158%_) - (let ((_%hd143155143246%_ + _%hd143342143372%_ + _%hd143339143364%_) + (_%g143331143348%_ _%g143332143351%_)))) + (_%g143331143348%_ _%g143332143351%_)) + (_%g143331143348%_ _%g143332143351%_)))) + (_%g143331143348%_ _%g143332143351%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g143331143348%_ + _%g143332143351%_))))) + (_%g143330143399%_ _%hd-bind143329%_))))) + (if (pair? _%rest143309143317%_) + (let ((_%hd143314143405%_ (let () (declare (not safe)) - (##car _%rest143150143158%_))) - (_%tl143156143248%_ + (##car _%rest143309143317%_))) + (_%tl143315143407%_ (let () (declare (not safe)) - (##cdr _%rest143150143158%_)))) - (let* ((_%hd-bind143251%_ _%hd143155143246%_) - (_%rest143253%_ _%tl143156143248%_)) - (_%K143154143243%_ - _%rest143253%_ - _%hd-bind143251%_))) - (_%else143152143166%_)))))) - (_%is-lambda-expr?143014%_ - (lambda (_%expr143082%_) - (let* ((_%__stx148253148254%_ _%expr143082%_) - (_%g143085143099%_ + (##cdr _%rest143309143317%_)))) + (let* ((_%hd-bind143410%_ _%hd143314143405%_) + (_%rest143412%_ _%tl143315143407%_)) + (_%K143313143402%_ + _%rest143412%_ + _%hd-bind143410%_))) + (_%else143311143325%_)))))) + (_%is-lambda-expr?143173%_ + (lambda (_%expr143241%_) + (let* ((_%__stx148412148413%_ _%expr143241%_) + (_%g143244143258%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148253148254%_))))) - (let ((_%__kont148255148256%_ - (lambda (_%L143127%_ _%L143128%_) '#t)) - (_%__kont148257148258%_ (lambda () '#f))) + _%__stx148412148413%_))))) + (let ((_%__kont148414148415%_ + (lambda (_%L143286%_ _%L143287%_) '#t)) + (_%__kont148416148417%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148253148254%_)) - (let ((_%e143089143111%_ + (gx#stx-pair? _%__stx148412148413%_)) + (let ((_%e143248143270%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148253148254%_)))) - (let ((_%tl143091143116%_ + (gx#stx-e _%__stx148412148413%_)))) + (let ((_%tl143250143275%_ (let () (declare (not safe)) - (##cdr _%e143089143111%_))) - (_%hd143090143114%_ + (##cdr _%e143248143270%_))) + (_%hd143249143273%_ (let () (declare (not safe)) - (##car _%e143089143111%_)))) + (##car _%e143248143270%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143090143114%_)) + (gx#identifier? _%hd143249143273%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd143090143114%_)) + _%hd143249143273%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143091143116%_)) - (let ((_%e143092143119%_ + _%tl143250143275%_)) + (let ((_%e143251143278%_ (let () (declare (not safe)) (gx#stx-e - _%tl143091143116%_)))) - (let ((_%tl143094143124%_ + _%tl143250143275%_)))) + (let ((_%tl143253143283%_ (let () (declare (not safe)) - (##cdr _%e143092143119%_))) - (_%hd143093143122%_ + (##cdr _%e143251143278%_))) + (_%hd143252143281%_ (let () (declare (not safe)) - (##car _%e143092143119%_)))) - (_%__kont148255148256%_ - _%tl143094143124%_ - _%hd143093143122%_))) - (_%__kont148257148258%_)) - (_%__kont148257148258%_)) - (_%__kont148257148258%_)))) - (_%__kont148257148258%_))))))) - (let* ((_%g143016143033%_ - (lambda (_%g143017143030%_) + (##car _%e143251143278%_)))) + (_%__kont148414148415%_ + _%tl143253143283%_ + _%hd143252143281%_))) + (_%__kont148416148417%_)) + (_%__kont148416148417%_)) + (_%__kont148416148417%_)))) + (_%__kont148416148417%_))))))) + (let* ((_%g143175143192%_ + (lambda (_%g143176143189%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143017143030%_)))) - (_%g143015143079%_ - (lambda (_%g143017143036%_) + _%g143176143189%_)))) + (_%g143174143238%_ + (lambda (_%g143176143195%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143017143036%_)) - (let ((_%e143020143038%_ + (gx#stx-pair? _%g143176143195%_)) + (let ((_%e143179143197%_ (let () (declare (not safe)) - (gx#stx-e _%g143017143036%_)))) - (let ((_%hd143021143041%_ + (gx#stx-e _%g143176143195%_)))) + (let ((_%hd143180143200%_ (let () (declare (not safe)) - (##car _%e143020143038%_))) - (_%tl143022143043%_ + (##car _%e143179143197%_))) + (_%tl143181143202%_ (let () (declare (not safe)) - (##cdr _%e143020143038%_)))) + (##cdr _%e143179143197%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143022143043%_)) - (let ((_%e143023143046%_ + (gx#stx-pair? _%tl143181143202%_)) + (let ((_%e143182143205%_ (let () (declare (not safe)) - (gx#stx-e _%tl143022143043%_)))) - (let ((_%hd143024143049%_ + (gx#stx-e _%tl143181143202%_)))) + (let ((_%hd143183143208%_ (let () (declare (not safe)) - (##car _%e143023143046%_))) - (_%tl143025143051%_ + (##car _%e143182143205%_))) + (_%tl143184143210%_ (let () (declare (not safe)) - (##cdr _%e143023143046%_)))) + (##cdr _%e143182143205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143025143051%_)) - (let ((_%e143026143054%_ + (gx#stx-pair? _%tl143184143210%_)) + (let ((_%e143185143213%_ (let () (declare (not safe)) (gx#stx-e - _%tl143025143051%_)))) - (let ((_%hd143027143057%_ + _%tl143184143210%_)))) + (let ((_%hd143186143216%_ (let () (declare (not safe)) - (##car _%e143026143054%_))) - (_%tl143028143059%_ + (##car _%e143185143213%_))) + (_%tl143187143218%_ (let () (declare (not safe)) - (##cdr _%e143026143054%_)))) + (##cdr _%e143185143213%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143028143059%_)) - ((lambda (_%L143062%_ - _%L143063%_) + _%tl143187143218%_)) + ((lambda (_%L143221%_ + _%L143222%_) (if (gxc#generate-runtime-simple-let? - _%L143063%_) - (if (_%generate-letrec?143013%_ - _%L143063%_) + _%L143222%_) + (if (_%generate-letrec?143172%_ + _%L143222%_) (gxc#generate-runtime-simple-let - _%self143009%_ + _%self143168%_ 'letrec - _%L143063%_ - _%L143062%_ + _%L143222%_ + _%L143221%_ '#f) (gxc#generate-runtime-simple-let - _%self143009%_ + _%self143168%_ 'letrec* - _%L143063%_ - _%L143062%_ + _%L143222%_ + _%L143221%_ '#f)) - (_%generate-values143012%_ - _%L143063%_ - _%L143062%_))) - _%hd143027143057%_ - _%hd143024143049%_) - (_%g143016143033%_ - _%g143017143036%_)))) - (_%g143016143033%_ - _%g143017143036%_)))) - (_%g143016143033%_ _%g143017143036%_)))) - (_%g143016143033%_ _%g143017143036%_))))) - (_%g143015143079%_ _%stx143010%_))))) + (_%generate-values143171%_ + _%L143222%_ + _%L143221%_))) + _%hd143186143216%_ + _%hd143183143208%_) + (_%g143175143192%_ + _%g143176143195%_)))) + (_%g143175143192%_ + _%g143176143195%_)))) + (_%g143175143192%_ _%g143176143195%_)))) + (_%g143175143192%_ _%g143176143195%_))))) + (_%g143174143238%_ _%stx143169%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd142946%_) - (let _%lp142948%_ ((_%rest142950%_ _%hd142946%_)) - (let* ((_%rest142951142967%_ _%rest142950%_) - (_%else142954142975%_ (lambda () '#f))) - (let ((_%K142957142988%_ - (lambda (_%rest142986%_) (_%lp142948%_ _%rest142986%_))) - (_%K142956142980%_ (lambda () '#t))) - (let ((_%try-match142953142983%_ + (lambda (_%hd143105%_) + (let _%lp143107%_ ((_%rest143109%_ _%hd143105%_)) + (let* ((_%rest143110143126%_ _%rest143109%_) + (_%else143113143134%_ (lambda () '#f))) + (let ((_%K143116143147%_ + (lambda (_%rest143145%_) (_%lp143107%_ _%rest143145%_))) + (_%K143115143139%_ (lambda () '#t))) + (let ((_%try-match143112143142%_ (lambda () - (if (null? _%rest142951142967%_) - (_%K142956142980%_) - (_%else142954142975%_))))) - (if (pair? _%rest142951142967%_) - (let ((_%tl142959142993%_ + (if (null? _%rest143110143126%_) + (_%K143115143139%_) + (_%else143113143134%_))))) + (if (pair? _%rest143110143126%_) + (let ((_%tl143118143152%_ (let () (declare (not safe)) - (##cdr _%rest142951142967%_))) - (_%hd142958142991%_ + (##cdr _%rest143110143126%_))) + (_%hd143117143150%_ (let () (declare (not safe)) - (##car _%rest142951142967%_)))) - (if (pair? _%hd142958142991%_) - (let ((_%tl142961142998%_ + (##car _%rest143110143126%_)))) + (if (pair? _%hd143117143150%_) + (let ((_%tl143120143157%_ (let () (declare (not safe)) - (##cdr _%hd142958142991%_))) - (_%hd142960142996%_ + (##cdr _%hd143117143150%_))) + (_%hd143119143155%_ (let () (declare (not safe)) - (##car _%hd142958142991%_)))) - (if (pair? _%hd142960142996%_) - (let ((_%tl142965143001%_ + (##car _%hd143117143150%_)))) + (if (pair? _%hd143119143155%_) + (let ((_%tl143124143160%_ (let () (declare (not safe)) - (##cdr _%hd142960142996%_)))) - (if (null? _%tl142965143001%_) - (if (pair? _%tl142961142998%_) - (let ((_%tl142963143004%_ + (##cdr _%hd143119143155%_)))) + (if (null? _%tl143124143160%_) + (if (pair? _%tl143120143157%_) + (let ((_%tl143122143163%_ (let () (declare (not safe)) - (##cdr _%tl142961142998%_)))) - (if (null? _%tl142963143004%_) - (let ((_%rest143007%_ - _%tl142959142993%_)) - (_%lp142948%_ - _%rest143007%_)) - (_%else142954142975%_))) - (_%else142954142975%_)) - (_%else142954142975%_))) - (_%else142954142975%_))) - (_%else142954142975%_))) - (_%try-match142953142983%_)))))))) + (##cdr _%tl143120143157%_)))) + (if (null? _%tl143122143163%_) + (let ((_%rest143166%_ + _%tl143118143152%_)) + (_%lp143107%_ + _%rest143166%_)) + (_%else143113143134%_))) + (_%else143113143134%_)) + (_%else143113143134%_))) + (_%else143113143134%_))) + (_%else143113143134%_))) + (_%try-match143112143142%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self142857%_ - _%form142858%_ - _%hd142859%_ - _%body142860%_ - _%compiled-body?142861%_) - (letrec ((_%generate1142863%_ - (lambda (_%bind142902%_) - (let* ((_%bind142903142914%_ _%bind142902%_) - (_%E142905142918%_ + (lambda (_%self143016%_ + _%form143017%_ + _%hd143018%_ + _%body143019%_ + _%compiled-body?143020%_) + (letrec ((_%generate1143022%_ + (lambda (_%bind143061%_) + (let* ((_%bind143062143073%_ _%bind143061%_) + (_%E143064143077%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind142903142914%_ + _%bind143062143073%_ '([[id] expr]))) '#!void)) - (_%K142906142924%_ - (lambda (_%expr142921%_ _%id142922%_) + (_%K143065143083%_ + (lambda (_%expr143080%_ _%id143081%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id142922%_)) + _%id143081%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142857%_ - _%expr142921%_)) + _%self143016%_ + _%expr143080%_)) '()))))) - (if (pair? _%bind142903142914%_) - (let ((_%hd142907142927%_ + (if (pair? _%bind143062143073%_) + (let ((_%hd143066143086%_ (let () (declare (not safe)) - (##car _%bind142903142914%_))) - (_%tl142908142929%_ + (##car _%bind143062143073%_))) + (_%tl143067143088%_ (let () (declare (not safe)) - (##cdr _%bind142903142914%_)))) - (if (pair? _%hd142907142927%_) - (let ((_%hd142911142932%_ + (##cdr _%bind143062143073%_)))) + (if (pair? _%hd143066143086%_) + (let ((_%hd143070143091%_ (let () (declare (not safe)) - (##car _%hd142907142927%_))) - (_%tl142912142934%_ + (##car _%hd143066143086%_))) + (_%tl143071143093%_ (let () (declare (not safe)) - (##cdr _%hd142907142927%_)))) - (let ((_%id142937%_ _%hd142911142932%_)) - (if (null? _%tl142912142934%_) - (if (pair? _%tl142908142929%_) - (let ((_%hd142909142939%_ + (##cdr _%hd143066143086%_)))) + (let ((_%id143096%_ _%hd143070143091%_)) + (if (null? _%tl143071143093%_) + (if (pair? _%tl143067143088%_) + (let ((_%hd143068143098%_ (let () (declare (not safe)) - (##car _%tl142908142929%_))) - (_%tl142910142941%_ + (##car _%tl143067143088%_))) + (_%tl143069143100%_ (let () (declare (not safe)) - (##cdr _%tl142908142929%_)))) - (let ((_%expr142944%_ - _%hd142909142939%_)) - (if (null? _%tl142910142941%_) - (_%K142906142924%_ - _%expr142944%_ - _%id142937%_) - (_%E142905142918%_)))) - (_%E142905142918%_)) - (_%E142905142918%_)))) - (_%E142905142918%_))) - (_%E142905142918%_)))))) - (let* ((_%bind142865%_ (map _%generate1142863%_ _%hd142859%_)) - (_%body142867%_ - (if _%compiled-body?142861%_ - _%body142860%_ + (##cdr _%tl143067143088%_)))) + (let ((_%expr143103%_ + _%hd143068143098%_)) + (if (null? _%tl143069143100%_) + (_%K143065143083%_ + _%expr143103%_ + _%id143096%_) + (_%E143064143077%_)))) + (_%E143064143077%_)) + (_%E143064143077%_)))) + (_%E143064143077%_))) + (_%E143064143077%_)))))) + (let* ((_%bind143024%_ (map _%generate1143022%_ _%hd143018%_)) + (_%body143026%_ + (if _%compiled-body?143020%_ + _%body143019%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self142857%_ _%body142860%_)))) - (_%body142899%_ - (let* ((_%body142868142876%_ _%body142867%_) - (_%else142870142884%_ - (lambda () (cons _%body142867%_ '()))) - (_%K142872142889%_ - (lambda (_%exprs142887%_) _%exprs142887%_))) - (if (pair? _%body142868142876%_) - (let ((_%hd142873142892%_ + (gxc#compile-e__1 _%self143016%_ _%body143019%_)))) + (_%body143058%_ + (let* ((_%body143027143035%_ _%body143026%_) + (_%else143029143043%_ + (lambda () (cons _%body143026%_ '()))) + (_%K143031143048%_ + (lambda (_%exprs143046%_) _%exprs143046%_))) + (if (pair? _%body143027143035%_) + (let ((_%hd143032143051%_ (let () (declare (not safe)) - (##car _%body142868142876%_))) - (_%tl142874142894%_ + (##car _%body143027143035%_))) + (_%tl143033143053%_ (let () (declare (not safe)) - (##cdr _%body142868142876%_)))) + (##cdr _%body143027143035%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142873142892%_ 'begin)) - (let ((_%exprs142897%_ _%tl142874142894%_)) - (_%K142872142889%_ _%exprs142897%_)) - (_%else142870142884%_))) - (_%else142870142884%_))))) - (cons _%form142858%_ (cons _%bind142865%_ _%body142899%_)))))) + (##eq? _%hd143032143051%_ 'begin)) + (let ((_%exprs143056%_ _%tl143033143053%_)) + (_%K143031143048%_ _%exprs143056%_)) + (_%else143029143043%_))) + (_%else143029143043%_))))) + (cons _%form143017%_ (cons _%bind143024%_ _%body143058%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self142757%_ _%stx142758%_) - (letrec ((_%generate1142760%_ - (lambda (_%datum142812%_) - (if (or (null? _%datum142812%_) + (lambda (_%self142916%_ _%stx142917%_) + (letrec ((_%generate1142919%_ + (lambda (_%datum142971%_) + (if (or (null? _%datum142971%_) (let () (declare (not safe)) - (interned-symbol? _%datum142812%_)) + (interned-symbol? _%datum142971%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum142812%_)) - (eof-object? _%datum142812%_)) - _%datum142812%_ - (if (uninterned-symbol? _%datum142812%_) + (gx#self-quoting? _%datum142971%_)) + (eof-object? _%datum142971%_)) + _%datum142971%_ + (if (uninterned-symbol? _%datum142971%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum142812%_ + _%datum142971%_ '#t)) - (if (pair? _%datum142812%_) - (cons (_%generate1142760%_ + (if (pair? _%datum142971%_) + (cons (_%generate1142919%_ (let () (declare (not safe)) - (##car _%datum142812%_))) - (_%generate1142760%_ + (##car _%datum142971%_))) + (_%generate1142919%_ (let () (declare (not safe)) - (##cdr _%datum142812%_)))) - (if (box? _%datum142812%_) - (box (_%generate1142760%_ - (unbox _%datum142812%_))) - (if (vector? _%datum142812%_) + (##cdr _%datum142971%_)))) + (if (box? _%datum142971%_) + (box (_%generate1142919%_ + (unbox _%datum142971%_))) + (if (vector? _%datum142971%_) (vector-map - _%generate1142760%_ - _%datum142812%_) - (if (or (s8vector? _%datum142812%_) - (u8vector? _%datum142812%_) - (s16vector? _%datum142812%_) - (u16vector? _%datum142812%_) - (s32vector? _%datum142812%_) - (u32vector? _%datum142812%_) - (s64vector? _%datum142812%_) - (u64vector? _%datum142812%_) - (f32vector? _%datum142812%_) - (f64vector? _%datum142812%_)) - _%datum142812%_ + _%generate1142919%_ + _%datum142971%_) + (if (or (s8vector? _%datum142971%_) + (u8vector? _%datum142971%_) + (s16vector? _%datum142971%_) + (u16vector? _%datum142971%_) + (s32vector? _%datum142971%_) + (u32vector? _%datum142971%_) + (s64vector? _%datum142971%_) + (u64vector? _%datum142971%_) + (f32vector? _%datum142971%_) + (f64vector? _%datum142971%_)) + _%datum142971%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx142758%_))))))))))) - (let* ((_%g142762142775%_ - (lambda (_%g142763142772%_) + _%stx142917%_))))))))))) + (let* ((_%g142921142934%_ + (lambda (_%g142922142931%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142763142772%_)))) - (_%g142761142809%_ - (lambda (_%g142763142778%_) + _%g142922142931%_)))) + (_%g142920142968%_ + (lambda (_%g142922142937%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142763142778%_)) - (let ((_%e142765142780%_ + (gx#stx-pair? _%g142922142937%_)) + (let ((_%e142924142939%_ (let () (declare (not safe)) - (gx#stx-e _%g142763142778%_)))) - (let ((_%hd142766142783%_ + (gx#stx-e _%g142922142937%_)))) + (let ((_%hd142925142942%_ (let () (declare (not safe)) - (##car _%e142765142780%_))) - (_%tl142767142785%_ + (##car _%e142924142939%_))) + (_%tl142926142944%_ (let () (declare (not safe)) - (##cdr _%e142765142780%_)))) + (##cdr _%e142924142939%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142767142785%_)) - (let ((_%e142768142788%_ + (gx#stx-pair? _%tl142926142944%_)) + (let ((_%e142927142947%_ (let () (declare (not safe)) - (gx#stx-e _%tl142767142785%_)))) - (let ((_%hd142769142791%_ + (gx#stx-e _%tl142926142944%_)))) + (let ((_%hd142928142950%_ (let () (declare (not safe)) - (##car _%e142768142788%_))) - (_%tl142770142793%_ + (##car _%e142927142947%_))) + (_%tl142929142952%_ (let () (declare (not safe)) - (##cdr _%e142768142788%_)))) + (##cdr _%e142927142947%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142770142793%_)) - ((lambda (_%L142796%_) + (gx#stx-null? _%tl142929142952%_)) + ((lambda (_%L142955%_) (cons 'quote - (cons (_%generate1142760%_ + (cons (_%generate1142919%_ (let () (declare (not safe)) (gx#stx-e - _%L142796%_))) + _%L142955%_))) '()))) - _%hd142769142791%_) - (_%g142762142775%_ - _%g142763142778%_)))) - (_%g142762142775%_ _%g142763142778%_)))) - (_%g142762142775%_ _%g142763142778%_))))) - (_%g142761142809%_ _%stx142758%_))))) + _%hd142928142950%_) + (_%g142921142934%_ + _%g142922142937%_)))) + (_%g142921142934%_ _%g142922142937%_)))) + (_%g142921142934%_ _%g142922142937%_))))) + (_%g142920142968%_ _%stx142917%_))))) (define gxc#generate-runtime-call% - (lambda (_%self142198%_ _%stx142199%_) - (letrec ((_%compile-call142201%_ - (lambda (_%rator142490%_ _%rands142491%_) - (let ((_%rator142497%_ + (lambda (_%self142357%_ _%stx142358%_) + (letrec ((_%compile-call142360%_ + (lambda (_%rator142649%_ _%rands142650%_) + (let ((_%rator142656%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142198%_ - _%rator142490%_))) - (_%rands142498%_ - (map (lambda (_%g142492142494%_) + _%self142357%_ + _%rator142649%_))) + (_%rands142657%_ + (map (lambda (_%g142651142653%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self142198%_ - _%g142492142494%_))) - _%rands142491%_))) - (let* ((_%__stx148300148301%_ _%rator142497%_) - (_%g142501142553%_ + _%self142357%_ + _%g142651142653%_))) + _%rands142650%_))) + (let* ((_%__stx148459148460%_ _%rator142656%_) + (_%g142660142712%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148300148301%_))))) - (let ((_%__kont148302148303%_ - (lambda (_%L142677%_ - _%L142678%_ - _%L142679%_ - _%L142680%_) - (if (let ((__tmp148972 + _%__stx148459148460%_))))) + (let ((_%__kont148461148462%_ + (lambda (_%L142836%_ + _%L142837%_ + _%L142838%_ + _%L142839%_) + (if (let ((__tmp149131 (let () (declare (not safe)) - (##length _%rands142498%_))) - (__tmp148970 - (length (let ((__tmp148971 - (lambda (_%g142716142719%_ + (##length _%rands142657%_))) + (__tmp149129 + (length (let ((__tmp149130 + (lambda (_%g142875142878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142717142721%_) - (cons _%g142716142719%_ _%g142717142721%_)))) + _%g142876142880%_) + (cons _%g142875142878%_ _%g142876142880%_)))) (declare (not safe)) - (__foldr1 __tmp148971 '() _%L142679%_))))) + (__foldr1 __tmp149130 '() _%L142838%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp148972 __tmp148970)) - (let* ((_%id142724%_ _%L142680%_) - (_%args142733%_ - (let ((__tmp148973 - (lambda (_%g142725142728%_ - _%g142726142730%_) - (cons _%g142725142728%_ - _%g142726142730%_)))) + (##fx= __tmp149131 __tmp149129)) + (let* ((_%id142883%_ _%L142839%_) + (_%args142892%_ + (let ((__tmp149132 + (lambda (_%g142884142887%_ + _%g142885142889%_) + (cons _%g142884142887%_ + _%g142885142889%_)))) (declare (not safe)) (__foldr1 - __tmp148973 + __tmp149132 '() - _%L142679%_))) - (_%body142742%_ - (let ((__tmp148974 - (lambda (_%g142734142737%_ - _%g142735142739%_) - (cons _%g142734142737%_ - _%g142735142739%_)))) + _%L142838%_))) + (_%body142901%_ + (let ((__tmp149133 + (lambda (_%g142893142896%_ + _%g142894142898%_) + (cons _%g142893142896%_ + _%g142894142898%_)))) (declare (not safe)) (__foldr1 - __tmp148974 + __tmp149133 '() - _%L142678%_))) - (_%init142744%_ + _%L142837%_))) + (_%init142903%_ (map list - _%args142733%_ - _%rands142498%_))) + _%args142892%_ + _%rands142657%_))) (cons 'let - (cons _%id142724%_ - (cons _%init142744%_ - _%body142742%_)))) - (let ((__tmp148975 - (let ((__tmp148976 - (lambda (_%g142746142749%_ - _%g142747142751%_) - (cons _%g142746142749%_ - _%g142747142751%_)))) + (cons _%id142883%_ + (cons _%init142903%_ + _%body142901%_)))) + (let ((__tmp149134 + (let ((__tmp149135 + (lambda (_%g142905142908%_ + _%g142906142910%_) + (cons _%g142905142908%_ + _%g142906142910%_)))) (declare (not safe)) (__foldr1 - __tmp148976 + __tmp149135 '() - _%L142679%_)))) + _%L142838%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx142199%_ - __tmp148975 - _%rands142498%_))))) - (_%__kont148308148309%_ + _%stx142358%_ + __tmp149134 + _%rands142657%_))))) + (_%__kont148467148468%_ (lambda () - (cons _%rator142497%_ _%rands142498%_)))) - (let ((_%__match148367148368%_ - (lambda (_%e142507142565%_ - _%hd142508142568%_ - _%tl142509142570%_ - _%e142510142573%_ - _%hd142511142576%_ - _%tl142512142578%_ - _%e142513142581%_ - _%hd142514142584%_ - _%tl142515142586%_ - _%e142516142589%_ - _%hd142517142592%_ - _%tl142518142594%_ - _%e142519142597%_ - _%hd142520142600%_ - _%tl142521142602%_ - _%e142522142605%_ - _%hd142523142608%_ - _%tl142524142610%_ - _%e142525142613%_ - _%hd142526142616%_ - _%tl142527142618%_ - _%__splice148304148305%_ - _%target142528142621%_ - _%tl142530142623%_) - (letrec ((_%loop142531142626%_ - (lambda (_%hd142529142629%_ - _%arg142535142631%_) + (cons _%rator142656%_ _%rands142657%_)))) + (let ((_%__match148526148527%_ + (lambda (_%e142666142724%_ + _%hd142667142727%_ + _%tl142668142729%_ + _%e142669142732%_ + _%hd142670142735%_ + _%tl142671142737%_ + _%e142672142740%_ + _%hd142673142743%_ + _%tl142674142745%_ + _%e142675142748%_ + _%hd142676142751%_ + _%tl142677142753%_ + _%e142678142756%_ + _%hd142679142759%_ + _%tl142680142761%_ + _%e142681142764%_ + _%hd142682142767%_ + _%tl142683142769%_ + _%e142684142772%_ + _%hd142685142775%_ + _%tl142686142777%_ + _%__splice148463148464%_ + _%target142687142780%_ + _%tl142689142782%_) + (letrec ((_%loop142690142785%_ + (lambda (_%hd142688142788%_ + _%arg142694142790%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142529142629%_)) - (let ((_%e142532142634%_ + _%hd142688142788%_)) + (let ((_%e142691142793%_ (let () (declare (not safe)) (gx#stx-e - _%hd142529142629%_)))) - (let ((_%lp-tl142534142639%_ + _%hd142688142788%_)))) + (let ((_%lp-tl142693142798%_ (let () (declare (not safe)) - (##cdr _%e142532142634%_))) - (_%lp-hd142533142637%_ + (##cdr _%e142691142793%_))) + (_%lp-hd142692142796%_ (let () (declare (not safe)) - (##car _%e142532142634%_)))) - (_%loop142531142626%_ - _%lp-tl142534142639%_ - (cons _%lp-hd142533142637%_ - _%arg142535142631%_)))) - (let ((_%arg142536142642%_ - (reverse _%arg142535142631%_))) + (##car _%e142691142793%_)))) + (_%loop142690142785%_ + _%lp-tl142693142798%_ + (cons _%lp-hd142692142796%_ + _%arg142694142790%_)))) + (let ((_%arg142695142801%_ + (reverse _%arg142694142790%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142527142618%_)) - (let ((_%__splice148306148307%_ + _%tl142686142777%_)) + (let ((_%__splice148465148466%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl142527142618%_ '0)))) - (let ((_%tl142539142647%_ + (gx#syntax-split-splice _%tl142686142777%_ '0)))) + (let ((_%tl142698142806%_ (let () (declare (not safe)) - (##vector-ref _%__splice148306148307%_ '1))) - (_%target142537142645%_ + (##vector-ref _%__splice148465148466%_ '1))) + (_%target142696142804%_ (let () (declare (not safe)) - (##vector-ref _%__splice148306148307%_ '0)))) + (##vector-ref _%__splice148465148466%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142539142647%_)) - (letrec ((_%loop142540142650%_ - (lambda (_%hd142538142653%_ - _%body142544142655%_) + (gx#stx-null? _%tl142698142806%_)) + (letrec ((_%loop142699142809%_ + (lambda (_%hd142697142812%_ + _%body142703142814%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142538142653%_)) - (let ((_%e142541142658%_ + (gx#stx-pair? _%hd142697142812%_)) + (let ((_%e142700142817%_ (let () (declare (not safe)) (gx#stx-e - _%hd142538142653%_)))) - (let ((_%lp-tl142543142663%_ + _%hd142697142812%_)))) + (let ((_%lp-tl142702142822%_ (let () (declare (not safe)) - (##cdr _%e142541142658%_))) - (_%lp-hd142542142661%_ + (##cdr _%e142700142817%_))) + (_%lp-hd142701142820%_ (let () (declare (not safe)) - (##car _%e142541142658%_)))) - (_%loop142540142650%_ - _%lp-tl142543142663%_ - (cons _%lp-hd142542142661%_ - _%body142544142655%_)))) - (let ((_%body142545142666%_ - (reverse _%body142544142655%_))) + (##car _%e142700142817%_)))) + (_%loop142699142809%_ + _%lp-tl142702142822%_ + (cons _%lp-hd142701142820%_ + _%body142703142814%_)))) + (let ((_%body142704142825%_ + (reverse _%body142703142814%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142521142602%_)) + _%tl142680142761%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142515142586%_)) + _%tl142674142745%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142512142578%_)) - (let ((_%e142546142669%_ + _%tl142671142737%_)) + (let ((_%e142705142828%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl142512142578%_)))) - (let ((_%tl142548142674%_ + (gx#stx-e _%tl142671142737%_)))) + (let ((_%tl142707142833%_ (let () (declare (not safe)) - (##cdr _%e142546142669%_))) - (_%hd142547142672%_ + (##cdr _%e142705142828%_))) + (_%hd142706142831%_ (let () (declare (not safe)) - (##car _%e142546142669%_)))) + (##car _%e142705142828%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142548142674%_)) - (let ((_%L142677%_ _%hd142547142672%_) - (_%L142678%_ _%body142545142666%_) - (_%L142679%_ _%arg142536142642%_) - (_%L142680%_ _%hd142517142592%_)) - (if (eq? _%L142680%_ _%L142677%_) - (_%__kont148302148303%_ - _%L142677%_ - _%L142678%_ - _%L142679%_ - _%L142680%_) - (_%__kont148308148309%_))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148308148309%_)) - (_%__kont148308148309%_))))))) - (_%loop142540142650%_ _%target142537142645%_ '())) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142531142626%_ - _%target142528142621%_ + (gx#stx-null? _%tl142707142833%_)) + (let ((_%L142836%_ _%hd142706142831%_) + (_%L142837%_ _%body142704142825%_) + (_%L142838%_ _%arg142695142801%_) + (_%L142839%_ _%hd142676142751%_)) + (if (eq? _%L142839%_ _%L142836%_) + (_%__kont148461148462%_ + _%L142836%_ + _%L142837%_ + _%L142838%_ + _%L142839%_) + (_%__kont148467148468%_))) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148467148468%_)) + (_%__kont148467148468%_))))))) + (_%loop142699142809%_ _%target142696142804%_ '())) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142690142785%_ + _%target142687142780%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148300148301%_)) - (let ((_%e142507142565%_ + (gx#stx-pair? _%__stx148459148460%_)) + (let ((_%e142666142724%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148300148301%_)))) - (let ((_%tl142509142570%_ + (gx#stx-e _%__stx148459148460%_)))) + (let ((_%tl142668142729%_ (let () (declare (not safe)) - (##cdr _%e142507142565%_))) - (_%hd142508142568%_ + (##cdr _%e142666142724%_))) + (_%hd142667142727%_ (let () (declare (not safe)) - (##car _%e142507142565%_)))) + (##car _%e142666142724%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142508142568%_)) + (gx#identifier? _%hd142667142727%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd142508142568%_)) + _%hd142667142727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142509142570%_)) - (let ((_%e142510142573%_ + _%tl142668142729%_)) + (let ((_%e142669142732%_ (let () (declare (not safe)) (gx#stx-e - _%tl142509142570%_)))) - (let ((_%tl142512142578%_ + _%tl142668142729%_)))) + (let ((_%tl142671142737%_ (let () (declare (not safe)) - (##cdr _%e142510142573%_))) - (_%hd142511142576%_ + (##cdr _%e142669142732%_))) + (_%hd142670142735%_ (let () (declare (not safe)) - (##car _%e142510142573%_)))) + (##car _%e142669142732%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142511142576%_)) - (let ((_%e142513142581%_ + _%hd142670142735%_)) + (let ((_%e142672142740%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd142511142576%_)))) - (let ((_%tl142515142586%_ + (gx#stx-e _%hd142670142735%_)))) + (let ((_%tl142674142745%_ (let () (declare (not safe)) - (##cdr _%e142513142581%_))) - (_%hd142514142584%_ + (##cdr _%e142672142740%_))) + (_%hd142673142743%_ (let () (declare (not safe)) - (##car _%e142513142581%_)))) + (##car _%e142672142740%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142514142584%_)) - (let ((_%e142516142589%_ + (gx#stx-pair? _%hd142673142743%_)) + (let ((_%e142675142748%_ (let () (declare (not safe)) - (gx#stx-e _%hd142514142584%_)))) - (let ((_%tl142518142594%_ + (gx#stx-e _%hd142673142743%_)))) + (let ((_%tl142677142753%_ (let () (declare (not safe)) - (##cdr _%e142516142589%_))) - (_%hd142517142592%_ + (##cdr _%e142675142748%_))) + (_%hd142676142751%_ (let () (declare (not safe)) - (##car _%e142516142589%_)))) + (##car _%e142675142748%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142518142594%_)) - (let ((_%e142519142597%_ + (gx#stx-pair? _%tl142677142753%_)) + (let ((_%e142678142756%_ (let () (declare (not safe)) - (gx#stx-e _%tl142518142594%_)))) - (let ((_%tl142521142602%_ + (gx#stx-e _%tl142677142753%_)))) + (let ((_%tl142680142761%_ (let () (declare (not safe)) - (##cdr _%e142519142597%_))) - (_%hd142520142600%_ + (##cdr _%e142678142756%_))) + (_%hd142679142759%_ (let () (declare (not safe)) - (##car _%e142519142597%_)))) + (##car _%e142678142756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142520142600%_)) - (let ((_%e142522142605%_ + (gx#stx-pair? _%hd142679142759%_)) + (let ((_%e142681142764%_ (let () (declare (not safe)) (gx#stx-e - _%hd142520142600%_)))) - (let ((_%tl142524142610%_ + _%hd142679142759%_)))) + (let ((_%tl142683142769%_ (let () (declare (not safe)) - (##cdr _%e142522142605%_))) - (_%hd142523142608%_ + (##cdr _%e142681142764%_))) + (_%hd142682142767%_ (let () (declare (not safe)) - (##car _%e142522142605%_)))) + (##car _%e142681142764%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142523142608%_)) + _%hd142682142767%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd142523142608%_)) + _%hd142682142767%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142524142610%_)) - (let ((_%e142525142613%_ + _%tl142683142769%_)) + (let ((_%e142684142772%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142524142610%_)))) - (let ((_%tl142527142618%_ + (gx#stx-e _%tl142683142769%_)))) + (let ((_%tl142686142777%_ (let () (declare (not safe)) - (##cdr _%e142525142613%_))) - (_%hd142526142616%_ + (##cdr _%e142684142772%_))) + (_%hd142685142775%_ (let () (declare (not safe)) - (##car _%e142525142613%_)))) + (##car _%e142684142772%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd142526142616%_)) - (let ((_%__splice148304148305%_ + (gx#stx-pair/null? _%hd142685142775%_)) + (let ((_%__splice148463148464%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd142526142616%_ + _%hd142685142775%_ '0)))) - (let ((_%tl142530142623%_ + (let ((_%tl142689142782%_ (let () (declare (not safe)) - (##vector-ref _%__splice148304148305%_ '1))) - (_%target142528142621%_ + (##vector-ref _%__splice148463148464%_ '1))) + (_%target142687142780%_ (let () (declare (not safe)) (##vector-ref - _%__splice148304148305%_ + _%__splice148463148464%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142530142623%_)) - (_%__match148367148368%_ - _%e142507142565%_ - _%hd142508142568%_ - _%tl142509142570%_ - _%e142510142573%_ - _%hd142511142576%_ - _%tl142512142578%_ - _%e142513142581%_ - _%hd142514142584%_ - _%tl142515142586%_ - _%e142516142589%_ - _%hd142517142592%_ - _%tl142518142594%_ - _%e142519142597%_ - _%hd142520142600%_ - _%tl142521142602%_ - _%e142522142605%_ - _%hd142523142608%_ - _%tl142524142610%_ - _%e142525142613%_ - _%hd142526142616%_ - _%tl142527142618%_ - _%__splice148304148305%_ - _%target142528142621%_ - _%tl142530142623%_) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148308148309%_)) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148308148309%_)) - (_%__kont148308148309%_)) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_))))))))) - (let* ((_%g142203142226%_ - (lambda (_%g142204142223%_) + (gx#stx-null? _%tl142689142782%_)) + (_%__match148526148527%_ + _%e142666142724%_ + _%hd142667142727%_ + _%tl142668142729%_ + _%e142669142732%_ + _%hd142670142735%_ + _%tl142671142737%_ + _%e142672142740%_ + _%hd142673142743%_ + _%tl142674142745%_ + _%e142675142748%_ + _%hd142676142751%_ + _%tl142677142753%_ + _%e142678142756%_ + _%hd142679142759%_ + _%tl142680142761%_ + _%e142681142764%_ + _%hd142682142767%_ + _%tl142683142769%_ + _%e142684142772%_ + _%hd142685142775%_ + _%tl142686142777%_ + _%__splice148463148464%_ + _%target142687142780%_ + _%tl142689142782%_) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148467148468%_)) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148467148468%_)) + (_%__kont148467148468%_)) + (_%__kont148467148468%_)))) + (_%__kont148467148468%_))))))))) + (let* ((_%g142362142385%_ + (lambda (_%g142363142382%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142204142223%_)))) - (_%g142202142487%_ - (lambda (_%g142204142229%_) + _%g142363142382%_)))) + (_%g142361142646%_ + (lambda (_%g142363142388%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142204142229%_)) - (let ((_%e142207142231%_ + (gx#stx-pair? _%g142363142388%_)) + (let ((_%e142366142390%_ (let () (declare (not safe)) - (gx#stx-e _%g142204142229%_)))) - (let ((_%hd142208142234%_ + (gx#stx-e _%g142363142388%_)))) + (let ((_%hd142367142393%_ (let () (declare (not safe)) - (##car _%e142207142231%_))) - (_%tl142209142236%_ + (##car _%e142366142390%_))) + (_%tl142368142395%_ (let () (declare (not safe)) - (##cdr _%e142207142231%_)))) + (##cdr _%e142366142390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142209142236%_)) - (let ((_%e142210142239%_ + (gx#stx-pair? _%tl142368142395%_)) + (let ((_%e142369142398%_ (let () (declare (not safe)) - (gx#stx-e _%tl142209142236%_)))) - (let ((_%hd142211142242%_ + (gx#stx-e _%tl142368142395%_)))) + (let ((_%hd142370142401%_ (let () (declare (not safe)) - (##car _%e142210142239%_))) - (_%tl142212142244%_ + (##car _%e142369142398%_))) + (_%tl142371142403%_ (let () (declare (not safe)) - (##cdr _%e142210142239%_)))) + (##cdr _%e142369142398%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142212142244%_)) - (let ((_g148977_ + _%tl142371142403%_)) + (let ((_g149136_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142212142244%_ + _%tl142371142403%_ '0)))) (begin - (let ((_g148978_ + (let ((_g149137_ (let () (declare (not safe)) - (if (##values? _g148977_) + (if (##values? _g149136_) (##vector-length - _g148977_) + _g149136_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g148978_ 2))) + (##fx= _g149137_ 2))) (error "Context expects 2 values" - _g148978_))) - (let ((_%target142213142247%_ + _g149137_))) + (let ((_%target142372142406%_ (let () (declare (not safe)) (##vector-ref - _g148977_ + _g149136_ 0))) - (_%tl142215142249%_ + (_%tl142374142408%_ (let () (declare (not safe)) (##vector-ref - _g148977_ + _g149136_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142215142249%_)) - (letrec ((_%loop142216142252%_ - (lambda (_%hd142214142255%_ + _%tl142374142408%_)) + (letrec ((_%loop142375142411%_ + (lambda (_%hd142373142414%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand142220142257%_) + _%rand142379142416%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142214142255%_)) - (let ((_%e142217142260%_ + (gx#stx-pair? _%hd142373142414%_)) + (let ((_%e142376142419%_ (let () (declare (not safe)) - (gx#stx-e _%hd142214142255%_)))) - (let ((_%lp-hd142218142263%_ + (gx#stx-e _%hd142373142414%_)))) + (let ((_%lp-hd142377142422%_ (let () (declare (not safe)) - (##car _%e142217142260%_))) - (_%lp-tl142219142265%_ + (##car _%e142376142419%_))) + (_%lp-tl142378142424%_ (let () (declare (not safe)) - (##cdr _%e142217142260%_)))) - (_%loop142216142252%_ - _%lp-tl142219142265%_ - (cons _%lp-hd142218142263%_ - _%rand142220142257%_)))) - (let ((_%rand142221142268%_ - (reverse _%rand142220142257%_))) - ((lambda (_%L142271%_ _%L142272%_) + (##cdr _%e142376142419%_)))) + (_%loop142375142411%_ + _%lp-tl142378142424%_ + (cons _%lp-hd142377142422%_ + _%rand142379142416%_)))) + (let ((_%rand142380142427%_ + (reverse _%rand142379142416%_))) + ((lambda (_%L142430%_ _%L142431%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call142201%_ - _%L142272%_ - (let ((__tmp148979 - (lambda (_%g142289142292%_ - _%g142290142294%_) - (cons _%g142289142292%_ - _%g142290142294%_)))) + (_%compile-call142360%_ + _%L142431%_ + (let ((__tmp149138 + (lambda (_%g142448142451%_ + _%g142449142453%_) + (cons _%g142448142451%_ + _%g142449142453%_)))) (declare (not safe)) - (__foldr1 __tmp148979 '() _%L142271%_))) - (let* ((_%__stx148416148417%_ _%L142272%_) - (_%g142298142310%_ + (__foldr1 __tmp149138 '() _%L142430%_))) + (let* ((_%__stx148575148576%_ _%L142431%_) + (_%g142457142469%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148416148417%_))))) - (let ((_%__kont148418148419%_ + _%__stx148575148576%_))))) + (let ((_%__kont148577148578%_ (lambda () - (let ((_%f142347%_ + (let ((_%f142506%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142198%_ - _%L142272%_)))) - (if (and (let ((__tmp148980 + _%self142357%_ + _%L142431%_)))) + (if (and (let ((__tmp149139 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f142347%_))) + _%f142506%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp148980)) + (##string-prefix? '"##" __tmp149139)) (not (let () (declare (not safe)) - (##memq _%f142347%_ gxc#checked-primitives)))) + (##memq _%f142506%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp142349%_ ((_%rest142352%_ + (let _%lp142508%_ ((_%rest142511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp148982 - (lambda (_%g142469142472%_ - _%g142470142474%_) - (cons _%g142469142472%_ - _%g142470142474%_)))) + (reverse (let ((__tmp149141 + (lambda (_%g142628142631%_ + _%g142629142633%_) + (cons _%g142628142631%_ + _%g142629142633%_)))) (declare (not safe)) (__foldr1 - __tmp148982 + __tmp149141 '() - _%L142271%_)))) - (_%bind142354%_ '()) - (_%args142355%_ '())) - (let* ((_%rest142356142364%_ _%rest142352%_) - (_%else142358142372%_ + _%L142430%_)))) + (_%bind142513%_ '()) + (_%args142514%_ '())) + (let* ((_%rest142515142523%_ _%rest142511%_) + (_%else142517142531%_ (lambda () (cons 'let - (cons _%bind142354%_ + (cons _%bind142513%_ (cons '(declare (not safe)) - (cons (cons _%f142347%_ - _%args142355%_) + (cons (cons _%f142506%_ + _%args142514%_) '())))))) - (_%K142360142458%_ - (lambda (_%rest142375%_ _%e142376%_) - (let* ((_%__stx148370148371%_ _%e142376%_) - (_%g142381142399%_ + (_%K142519142617%_ + (lambda (_%rest142534%_ _%e142535%_) + (let* ((_%__stx148529148530%_ _%e142535%_) + (_%g142540142558%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148370148371%_))))) - (let ((_%__kont148372148373%_ + _%__stx148529148530%_))))) + (let ((_%__kont148531148532%_ (lambda () - (_%lp142349%_ - _%rest142375%_ - _%bind142354%_ + (_%lp142508%_ + _%rest142534%_ + _%bind142513%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142376%_)) - _%args142355%_)))) - (_%__kont148374148375%_ + (gxc#compile-e__0 _%e142535%_)) + _%args142514%_)))) + (_%__kont148533148534%_ (lambda () - (_%lp142349%_ - _%rest142375%_ - _%bind142354%_ + (_%lp142508%_ + _%rest142534%_ + _%bind142513%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142376%_)) - _%args142355%_)))) - (_%__kont148376148377%_ + (gxc#compile-e__0 _%e142535%_)) + _%args142514%_)))) + (_%__kont148535148536%_ (lambda () - (let ((_%tmp142406%_ - (let ((__tmp148981 + (let ((_%tmp142565%_ + (let ((__tmp149140 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148981)))) - (_%lp142349%_ - _%rest142375%_ - (cons (cons _%tmp142406%_ + (make-symbol__0 __tmp149140)))) + (_%lp142508%_ + _%rest142534%_ + (cons (cons _%tmp142565%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142376%_)) + _%e142535%_)) '())) - _%bind142354%_) - (cons _%tmp142406%_ _%args142355%_)))))) + _%bind142513%_) + (cons _%tmp142565%_ _%args142514%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148370148371%_)) - (let ((_%e142383142437%_ + (gx#stx-pair? _%__stx148529148530%_)) + (let ((_%e142542142596%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148370148371%_)))) - (let ((_%tl142385142442%_ + (gx#stx-e _%__stx148529148530%_)))) + (let ((_%tl142544142601%_ (let () (declare (not safe)) - (##cdr _%e142383142437%_))) - (_%hd142384142440%_ + (##cdr _%e142542142596%_))) + (_%hd142543142599%_ (let () (declare (not safe)) - (##car _%e142383142437%_)))) + (##car _%e142542142596%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142384142440%_)) + (gx#identifier? _%hd142543142599%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142384142440%_)) + _%hd142543142599%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142385142442%_)) - (let ((_%e142386142445%_ + _%tl142544142601%_)) + (let ((_%e142545142604%_ (let () (declare (not safe)) (gx#stx-e - _%tl142385142442%_)))) - (let ((_%tl142388142450%_ + _%tl142544142601%_)))) + (let ((_%tl142547142609%_ (let () (declare (not safe)) - (##cdr _%e142386142445%_))) - (_%hd142387142448%_ + (##cdr _%e142545142604%_))) + (_%hd142546142607%_ (let () (declare (not safe)) - (##car _%e142386142445%_)))) + (##car _%e142545142604%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142388142450%_)) - (_%__kont148372148373%_) - (_%__kont148376148377%_)))) - (_%__kont148376148377%_)) + _%tl142547142609%_)) + (_%__kont148531148532%_) + (_%__kont148535148536%_)))) + (_%__kont148535148536%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd142384142440%_)) + _%hd142543142599%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142385142442%_)) - (let ((_%e142392142422%_ + _%tl142544142601%_)) + (let ((_%e142551142581%_ (let () (declare (not safe)) (gx#stx-e - _%tl142385142442%_)))) - (let ((_%tl142394142427%_ + _%tl142544142601%_)))) + (let ((_%tl142553142586%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142392142422%_))) - (_%hd142393142425%_ - (let () (declare (not safe)) (##car _%e142392142422%_)))) + (##cdr _%e142551142581%_))) + (_%hd142552142584%_ + (let () (declare (not safe)) (##car _%e142551142581%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142394142427%_)) - (_%__kont148374148375%_) - (_%__kont148376148377%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148376148377%_)) - (_%__kont148376148377%_))) - (_%__kont148376148377%_)))) - (_%__kont148376148377%_))))))) - (if (pair? _%rest142356142364%_) - (let ((_%hd142361142461%_ + (gx#stx-null? _%tl142553142586%_)) + (_%__kont148533148534%_) + (_%__kont148535148536%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148535148536%_)) + (_%__kont148535148536%_))) + (_%__kont148535148536%_)))) + (_%__kont148535148536%_))))))) + (if (pair? _%rest142515142523%_) + (let ((_%hd142520142620%_ (let () (declare (not safe)) - (##car _%rest142356142364%_))) - (_%tl142362142463%_ + (##car _%rest142515142523%_))) + (_%tl142521142622%_ (let () (declare (not safe)) - (##cdr _%rest142356142364%_)))) - (let* ((_%e142466%_ _%hd142361142461%_) - (_%rest142468%_ _%tl142362142463%_)) - (_%K142360142458%_ _%rest142468%_ _%e142466%_))) - (_%else142358142372%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call142201%_ - _%L142272%_ - (let ((__tmp148983 - (lambda (_%g142476142479%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142477142481%_) - (cons _%g142476142479%_ _%g142477142481%_)))) + (##cdr _%rest142515142523%_)))) + (let* ((_%e142625%_ _%hd142520142620%_) + (_%rest142627%_ _%tl142521142622%_)) + (_%K142519142617%_ _%rest142627%_ _%e142625%_))) + (_%else142517142531%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call142360%_ + _%L142431%_ + (let ((__tmp149142 + (lambda (_%g142635142638%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142636142640%_) + (cons _%g142635142638%_ _%g142636142640%_)))) (declare (not safe)) - (__foldr1 __tmp148983 '() _%L142271%_))))))) + (__foldr1 __tmp149142 '() _%L142430%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148420148421%_ + (_%__kont148579148580%_ (lambda () - (_%compile-call142201%_ - _%L142272%_ - (let ((__tmp148984 - (lambda (_%g142316142319%_ - _%g142317142321%_) - (cons _%g142316142319%_ - _%g142317142321%_)))) + (_%compile-call142360%_ + _%L142431%_ + (let ((__tmp149143 + (lambda (_%g142475142478%_ + _%g142476142480%_) + (cons _%g142475142478%_ + _%g142476142480%_)))) (declare (not safe)) (__foldr1 - __tmp148984 + __tmp149143 '() - _%L142271%_)))))) + _%L142430%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148416148417%_)) - (let ((_%e142300142329%_ + _%__stx148575148576%_)) + (let ((_%e142459142488%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148416148417%_)))) - (let ((_%tl142302142334%_ + _%__stx148575148576%_)))) + (let ((_%tl142461142493%_ (let () (declare (not safe)) - (##cdr _%e142300142329%_))) - (_%hd142301142332%_ + (##cdr _%e142459142488%_))) + (_%hd142460142491%_ (let () (declare (not safe)) - (##car _%e142300142329%_)))) + (##car _%e142459142488%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142301142332%_)) + _%hd142460142491%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142301142332%_)) + _%hd142460142491%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142302142334%_)) - (let ((_%e142303142337%_ + _%tl142461142493%_)) + (let ((_%e142462142496%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142302142334%_)))) - (let ((_%tl142305142342%_ + (gx#stx-e _%tl142461142493%_)))) + (let ((_%tl142464142501%_ (let () (declare (not safe)) - (##cdr _%e142303142337%_))) - (_%hd142304142340%_ + (##cdr _%e142462142496%_))) + (_%hd142463142499%_ (let () (declare (not safe)) - (##car _%e142303142337%_)))) + (##car _%e142462142496%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142305142342%_)) - (_%__kont148418148419%_) - (_%__kont148420148421%_)))) - (_%__kont148420148421%_)) - (_%__kont148420148421%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148420148421%_)))) - (_%__kont148420148421%_)))))) - _%rand142221142268%_ - _%hd142211142242%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142216142252%_ - _%target142213142247%_ + (gx#stx-null? _%tl142464142501%_)) + (_%__kont148577148578%_) + (_%__kont148579148580%_)))) + (_%__kont148579148580%_)) + (_%__kont148579148580%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148579148580%_)))) + (_%__kont148579148580%_)))))) + _%rand142380142427%_ + _%hd142370142401%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142375142411%_ + _%target142372142406%_ '())) - (_%g142203142226%_ - _%g142204142229%_))))) - (_%g142203142226%_ - _%g142204142229%_)))) - (_%g142203142226%_ _%g142204142229%_)))) - (_%g142203142226%_ _%g142204142229%_))))) - (_%g142202142487%_ _%stx142199%_))))) + (_%g142362142385%_ + _%g142363142388%_))))) + (_%g142362142385%_ + _%g142363142388%_)))) + (_%g142362142385%_ _%g142363142388%_)))) + (_%g142362142385%_ _%g142363142388%_))))) + (_%g142361142646%_ _%stx142358%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self141941%_ _%stx141942%_) - (let* ((_%__stx148488148489%_ _%stx141942%_) - (_%g141945141974%_ + (lambda (_%self142100%_ _%stx142101%_) + (let* ((_%__stx148647148648%_ _%stx142101%_) + (_%g142104142133%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148488148489%_))))) - (let ((_%__kont148490148491%_ - (lambda (_%L142042%_ _%L142043%_) + _%__stx148647148648%_))))) + (let ((_%__kont148649148650%_ + (lambda (_%L142201%_ _%L142202%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self141941%_ - _%stx141942%_) - (let ((_%f142065%_ - (let ((__tmp148985 + _%self142100%_ + _%stx142101%_) + (let ((_%f142224%_ + (let ((__tmp149144 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L142043%_ '())))) + (cons _%L142202%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self141941%_ - __tmp148985)))) - (let _%lp142067%_ ((_%rest142070%_ - (reverse (let ((__tmp148987 - (lambda (_%g142187142190%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142188142192%_) - (cons _%g142187142190%_ _%g142188142192%_)))) + _%self142100%_ + __tmp149144)))) + (let _%lp142226%_ ((_%rest142229%_ + (reverse (let ((__tmp149146 + (lambda (_%g142346142349%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142347142351%_) + (cons _%g142346142349%_ _%g142347142351%_)))) (declare (not safe)) - (__foldr1 __tmp148987 '() _%L142042%_)))) + (__foldr1 __tmp149146 '() _%L142201%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind142072%_ '()) - (_%args142073%_ '())) - (let* ((_%rest142074142082%_ _%rest142070%_) - (_%else142076142090%_ + (_%bind142231%_ '()) + (_%args142232%_ '())) + (let* ((_%rest142233142241%_ _%rest142229%_) + (_%else142235142249%_ (lambda () (cons 'let - (cons _%bind142072%_ + (cons _%bind142231%_ (cons '(declare (not safe)) - (cons (cons _%f142065%_ + (cons (cons _%f142224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args142073%_) + _%args142232%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K142078142176%_ - (lambda (_%rest142093%_ _%e142094%_) - (let* ((_%__stx148442148443%_ _%e142094%_) - (_%g142099142117%_ + (_%K142237142335%_ + (lambda (_%rest142252%_ _%e142253%_) + (let* ((_%__stx148601148602%_ _%e142253%_) + (_%g142258142276%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148442148443%_))))) - (let ((_%__kont148444148445%_ + _%__stx148601148602%_))))) + (let ((_%__kont148603148604%_ (lambda () - (_%lp142067%_ - _%rest142093%_ - _%bind142072%_ + (_%lp142226%_ + _%rest142252%_ + _%bind142231%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142094%_)) - _%args142073%_)))) - (_%__kont148446148447%_ + _%e142253%_)) + _%args142232%_)))) + (_%__kont148605148606%_ (lambda () - (_%lp142067%_ - _%rest142093%_ - _%bind142072%_ + (_%lp142226%_ + _%rest142252%_ + _%bind142231%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142094%_)) - _%args142073%_)))) - (_%__kont148448148449%_ + _%e142253%_)) + _%args142232%_)))) + (_%__kont148607148608%_ (lambda () - (let ((_%tmp142124%_ - (let ((__tmp148986 + (let ((_%tmp142283%_ + (let ((__tmp149145 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148986)))) + (make-symbol__0 __tmp149145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp142067%_ - _%rest142093%_ - (cons (cons _%tmp142124%_ + (_%lp142226%_ + _%rest142252%_ + (cons (cons _%tmp142283%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e142094%_)) + (gxc#compile-e__0 _%e142253%_)) '())) - _%bind142072%_) + _%bind142231%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp142124%_ - _%args142073%_)))))) + (cons _%tmp142283%_ + _%args142232%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148442148443%_)) - (let ((_%e142101142155%_ + _%__stx148601148602%_)) + (let ((_%e142260142314%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148442148443%_)))) - (let ((_%tl142103142160%_ + _%__stx148601148602%_)))) + (let ((_%tl142262142319%_ (let () (declare (not safe)) - (##cdr _%e142101142155%_))) - (_%hd142102142158%_ + (##cdr _%e142260142314%_))) + (_%hd142261142317%_ (let () (declare (not safe)) - (##car _%e142101142155%_)))) + (##car _%e142260142314%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142102142158%_)) + _%hd142261142317%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142102142158%_)) + _%hd142261142317%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142103142160%_)) - (let ((_%e142104142163%_ + (gx#stx-pair? _%tl142262142319%_)) + (let ((_%e142263142322%_ (let () (declare (not safe)) - (gx#stx-e _%tl142103142160%_)))) - (let ((_%tl142106142168%_ + (gx#stx-e _%tl142262142319%_)))) + (let ((_%tl142265142327%_ (let () (declare (not safe)) - (##cdr _%e142104142163%_))) - (_%hd142105142166%_ + (##cdr _%e142263142322%_))) + (_%hd142264142325%_ (let () (declare (not safe)) - (##car _%e142104142163%_)))) + (##car _%e142263142322%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142106142168%_)) - (_%__kont148444148445%_) - (_%__kont148448148449%_)))) - (_%__kont148448148449%_)) + (gx#stx-null? _%tl142265142327%_)) + (_%__kont148603148604%_) + (_%__kont148607148608%_)))) + (_%__kont148607148608%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd142102142158%_)) + (gx#stx-eq? '%#quote _%hd142261142317%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142103142160%_)) - (let ((_%e142110142140%_ + (gx#stx-pair? _%tl142262142319%_)) + (let ((_%e142269142299%_ (let () (declare (not safe)) - (gx#stx-e _%tl142103142160%_)))) - (let ((_%tl142112142145%_ + (gx#stx-e _%tl142262142319%_)))) + (let ((_%tl142271142304%_ (let () (declare (not safe)) - (##cdr _%e142110142140%_))) - (_%hd142111142143%_ + (##cdr _%e142269142299%_))) + (_%hd142270142302%_ (let () (declare (not safe)) - (##car _%e142110142140%_)))) + (##car _%e142269142299%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142112142145%_)) - (_%__kont148446148447%_) - (_%__kont148448148449%_)))) - (_%__kont148448148449%_)) - (_%__kont148448148449%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148448148449%_)))) - (_%__kont148448148449%_))))))) - (if (pair? _%rest142074142082%_) - (let ((_%hd142079142179%_ + (gx#stx-null? _%tl142271142304%_)) + (_%__kont148605148606%_) + (_%__kont148607148608%_)))) + (_%__kont148607148608%_)) + (_%__kont148607148608%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148607148608%_)))) + (_%__kont148607148608%_))))))) + (if (pair? _%rest142233142241%_) + (let ((_%hd142238142338%_ (let () (declare (not safe)) - (##car _%rest142074142082%_))) - (_%tl142080142181%_ + (##car _%rest142233142241%_))) + (_%tl142239142340%_ (let () (declare (not safe)) - (##cdr _%rest142074142082%_)))) - (let* ((_%e142184%_ _%hd142079142179%_) - (_%rest142186%_ _%tl142080142181%_)) - (_%K142078142176%_ - _%rest142186%_ - _%e142184%_))) - (_%else142076142090%_)))))))) - (_%__kont148494148495%_ + (##cdr _%rest142233142241%_)))) + (let* ((_%e142343%_ _%hd142238142338%_) + (_%rest142345%_ _%tl142239142340%_)) + (_%K142237142335%_ + _%rest142345%_ + _%e142343%_))) + (_%else142235142249%_)))))))) + (_%__kont148653148654%_ (lambda () - (gxc#generate-runtime-call% _%self141941%_ _%stx141942%_)))) - (let ((_%__match148533148534%_ - (lambda (_%e141949141986%_ - _%hd141950141989%_ - _%tl141951141991%_ - _%e141952141994%_ - _%hd141953141997%_ - _%tl141954141999%_ - _%e141955142002%_ - _%hd141956142005%_ - _%tl141957142007%_ - _%e141958142010%_ - _%hd141959142013%_ - _%tl141960142015%_ - _%__splice148492148493%_ - _%target141961142018%_ - _%tl141963142020%_) - (letrec ((_%loop141964142023%_ - (lambda (_%hd141962142026%_ - _%rand141968142028%_) + (gxc#generate-runtime-call% _%self142100%_ _%stx142101%_)))) + (let ((_%__match148692148693%_ + (lambda (_%e142108142145%_ + _%hd142109142148%_ + _%tl142110142150%_ + _%e142111142153%_ + _%hd142112142156%_ + _%tl142113142158%_ + _%e142114142161%_ + _%hd142115142164%_ + _%tl142116142166%_ + _%e142117142169%_ + _%hd142118142172%_ + _%tl142119142174%_ + _%__splice148651148652%_ + _%target142120142177%_ + _%tl142122142179%_) + (letrec ((_%loop142123142182%_ + (lambda (_%hd142121142185%_ + _%rand142127142187%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141962142026%_)) - (let ((_%e141965142031%_ + (gx#stx-pair? _%hd142121142185%_)) + (let ((_%e142124142190%_ (let () (declare (not safe)) - (gx#stx-e _%hd141962142026%_)))) - (let ((_%lp-tl141967142036%_ + (gx#stx-e _%hd142121142185%_)))) + (let ((_%lp-tl142126142195%_ (let () (declare (not safe)) - (##cdr _%e141965142031%_))) - (_%lp-hd141966142034%_ + (##cdr _%e142124142190%_))) + (_%lp-hd142125142193%_ (let () (declare (not safe)) - (##car _%e141965142031%_)))) - (_%loop141964142023%_ - _%lp-tl141967142036%_ - (cons _%lp-hd141966142034%_ - _%rand141968142028%_)))) - (let ((_%rand141969142039%_ - (reverse _%rand141968142028%_))) - (_%__kont148490148491%_ - _%rand141969142039%_ - _%hd141959142013%_)))))) - (_%loop141964142023%_ _%target141961142018%_ '()))))) + (##car _%e142124142190%_)))) + (_%loop142123142182%_ + _%lp-tl142126142195%_ + (cons _%lp-hd142125142193%_ + _%rand142127142187%_)))) + (let ((_%rand142128142198%_ + (reverse _%rand142127142187%_))) + (_%__kont148649148650%_ + _%rand142128142198%_ + _%hd142118142172%_)))))) + (_%loop142123142182%_ _%target142120142177%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148488148489%_)) - (let ((_%e141949141986%_ + (gx#stx-pair? _%__stx148647148648%_)) + (let ((_%e142108142145%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148488148489%_)))) - (let ((_%tl141951141991%_ + (gx#stx-e _%__stx148647148648%_)))) + (let ((_%tl142110142150%_ (let () (declare (not safe)) - (##cdr _%e141949141986%_))) - (_%hd141950141989%_ + (##cdr _%e142108142145%_))) + (_%hd142109142148%_ (let () (declare (not safe)) - (##car _%e141949141986%_)))) + (##car _%e142108142145%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141951141991%_)) - (let ((_%e141952141994%_ + (gx#stx-pair? _%tl142110142150%_)) + (let ((_%e142111142153%_ (let () (declare (not safe)) - (gx#stx-e _%tl141951141991%_)))) - (let ((_%tl141954141999%_ + (gx#stx-e _%tl142110142150%_)))) + (let ((_%tl142113142158%_ (let () (declare (not safe)) - (##cdr _%e141952141994%_))) - (_%hd141953141997%_ + (##cdr _%e142111142153%_))) + (_%hd142112142156%_ (let () (declare (not safe)) - (##car _%e141952141994%_)))) + (##car _%e142111142153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141953141997%_)) - (let ((_%e141955142002%_ + (gx#stx-pair? _%hd142112142156%_)) + (let ((_%e142114142161%_ (let () (declare (not safe)) - (gx#stx-e _%hd141953141997%_)))) - (let ((_%tl141957142007%_ + (gx#stx-e _%hd142112142156%_)))) + (let ((_%tl142116142166%_ (let () (declare (not safe)) - (##cdr _%e141955142002%_))) - (_%hd141956142005%_ + (##cdr _%e142114142161%_))) + (_%hd142115142164%_ (let () (declare (not safe)) - (##car _%e141955142002%_)))) + (##car _%e142114142161%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141956142005%_)) + _%hd142115142164%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141956142005%_)) + _%hd142115142164%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141957142007%_)) - (let ((_%e141958142010%_ + _%tl142116142166%_)) + (let ((_%e142117142169%_ (let () (declare (not safe)) (gx#stx-e - _%tl141957142007%_)))) - (let ((_%tl141960142015%_ + _%tl142116142166%_)))) + (let ((_%tl142119142174%_ (let () (declare (not safe)) - (##cdr _%e141958142010%_))) - (_%hd141959142013%_ + (##cdr _%e142117142169%_))) + (_%hd142118142172%_ (let () (declare (not safe)) - (##car _%e141958142010%_)))) + (##car _%e142117142169%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141960142015%_)) + _%tl142119142174%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl141954141999%_)) - (let ((_%__splice148492148493%_ + (gx#stx-pair/null? _%tl142113142158%_)) + (let ((_%__splice148651148652%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl141954141999%_ + _%tl142113142158%_ '0)))) - (let ((_%tl141963142020%_ + (let ((_%tl142122142179%_ (let () (declare (not safe)) - (##vector-ref _%__splice148492148493%_ '1))) - (_%target141961142018%_ + (##vector-ref _%__splice148651148652%_ '1))) + (_%target142120142177%_ (let () (declare (not safe)) - (##vector-ref _%__splice148492148493%_ '0)))) + (##vector-ref _%__splice148651148652%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141963142020%_)) - (_%__match148533148534%_ - _%e141949141986%_ - _%hd141950141989%_ - _%tl141951141991%_ - _%e141952141994%_ - _%hd141953141997%_ - _%tl141954141999%_ - _%e141955142002%_ - _%hd141956142005%_ - _%tl141957142007%_ - _%e141958142010%_ - _%hd141959142013%_ - _%tl141960142015%_ - _%__splice148492148493%_ - _%target141961142018%_ - _%tl141963142020%_) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_)) - (_%__kont148494148495%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148494148495%_)) - (_%__kont148494148495%_)) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_))))))) + (gx#stx-null? _%tl142122142179%_)) + (_%__match148692148693%_ + _%e142108142145%_ + _%hd142109142148%_ + _%tl142110142150%_ + _%e142111142153%_ + _%hd142112142156%_ + _%tl142113142158%_ + _%e142114142161%_ + _%hd142115142164%_ + _%tl142116142166%_ + _%e142117142169%_ + _%hd142118142172%_ + _%tl142119142174%_ + _%__splice148651148652%_ + _%target142120142177%_ + _%tl142122142179%_) + (_%__kont148653148654%_)))) + (_%__kont148653148654%_)) + (_%__kont148653148654%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148653148654%_)) + (_%__kont148653148654%_)) + (_%__kont148653148654%_)))) + (_%__kont148653148654%_)))) + (_%__kont148653148654%_)))) + (_%__kont148653148654%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self141753%_ _%stx141754%_) - (letrec ((_%simplify141756%_ - (lambda (_%code141841%_) - (let* ((_%code141842141860%_ _%code141841%_) - (_%else141844141868%_ (lambda () _%code141841%_)) - (_%K141846141904%_ - (lambda (_%expr141871%_ _%test141872%_) - (let* ((_%expr141873141881%_ _%expr141871%_) - (_%else141875141889%_ + (lambda (_%self141912%_ _%stx141913%_) + (letrec ((_%simplify141915%_ + (lambda (_%code142000%_) + (let* ((_%code142001142019%_ _%code142000%_) + (_%else142003142027%_ (lambda () _%code142000%_)) + (_%K142005142063%_ + (lambda (_%expr142030%_ _%test142031%_) + (let* ((_%expr142032142040%_ _%expr142030%_) + (_%else142034142048%_ (lambda () (cons 'and - (cons _%test141872%_ - (cons _%expr141871%_ + (cons _%test142031%_ + (cons _%expr142030%_ '()))))) - (_%K141877141894%_ - (lambda (_%exprs141892%_) + (_%K142036142053%_ + (lambda (_%exprs142051%_) (cons 'and - (cons _%test141872%_ - _%exprs141892%_))))) - (if (pair? _%expr141873141881%_) - (let ((_%hd141878141897%_ + (cons _%test142031%_ + _%exprs142051%_))))) + (if (pair? _%expr142032142040%_) + (let ((_%hd142037142056%_ (let () (declare (not safe)) - (##car _%expr141873141881%_))) - (_%tl141879141899%_ + (##car _%expr142032142040%_))) + (_%tl142038142058%_ (let () (declare (not safe)) - (##cdr _%expr141873141881%_)))) + (##cdr _%expr142032142040%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141878141897%_ 'and)) - (let ((_%exprs141902%_ - _%tl141879141899%_)) - (_%K141877141894%_ - _%exprs141902%_)) - (_%else141875141889%_))) - (_%else141875141889%_)))))) - (if (pair? _%code141842141860%_) - (let ((_%hd141847141907%_ + (##eq? _%hd142037142056%_ 'and)) + (let ((_%exprs142061%_ + _%tl142038142058%_)) + (_%K142036142053%_ + _%exprs142061%_)) + (_%else142034142048%_))) + (_%else142034142048%_)))))) + (if (pair? _%code142001142019%_) + (let ((_%hd142006142066%_ (let () (declare (not safe)) - (##car _%code141842141860%_))) - (_%tl141848141909%_ + (##car _%code142001142019%_))) + (_%tl142007142068%_ (let () (declare (not safe)) - (##cdr _%code141842141860%_)))) + (##cdr _%code142001142019%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141847141907%_ 'if)) - (if (pair? _%tl141848141909%_) - (let ((_%hd141849141912%_ + (##eq? _%hd142006142066%_ 'if)) + (if (pair? _%tl142007142068%_) + (let ((_%hd142008142071%_ (let () (declare (not safe)) - (##car _%tl141848141909%_))) - (_%tl141850141914%_ + (##car _%tl142007142068%_))) + (_%tl142009142073%_ (let () (declare (not safe)) - (##cdr _%tl141848141909%_)))) - (let ((_%test141917%_ - _%hd141849141912%_)) - (if (pair? _%tl141850141914%_) - (let ((_%hd141851141919%_ + (##cdr _%tl142007142068%_)))) + (let ((_%test142076%_ + _%hd142008142071%_)) + (if (pair? _%tl142009142073%_) + (let ((_%hd142010142078%_ (let () (declare (not safe)) - (##car _%tl141850141914%_))) - (_%tl141852141921%_ + (##car _%tl142009142073%_))) + (_%tl142011142080%_ (let () (declare (not safe)) - (##cdr _%tl141850141914%_)))) - (let ((_%expr141924%_ - _%hd141851141919%_)) - (if (pair? _%tl141852141921%_) - (let ((_%hd141853141926%_ + (##cdr _%tl142009142073%_)))) + (let ((_%expr142083%_ + _%hd142010142078%_)) + (if (pair? _%tl142011142080%_) + (let ((_%hd142012142085%_ (let () (declare (not safe)) - (##car _%tl141852141921%_))) - (_%tl141854141928%_ + (##car _%tl142011142080%_))) + (_%tl142013142087%_ (let () (declare (not safe)) - (##cdr _%tl141852141921%_)))) - (if (pair? _%hd141853141926%_) - (let ((_%hd141855141931%_ + (##cdr _%tl142011142080%_)))) + (if (pair? _%hd142012142085%_) + (let ((_%hd142014142090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd141853141926%_))) - (_%tl141856141933%_ + (##car _%hd142012142085%_))) + (_%tl142015142092%_ (let () (declare (not safe)) - (##cdr _%hd141853141926%_)))) + (##cdr _%hd142012142085%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141855141931%_ 'quote)) - (if (pair? _%tl141856141933%_) - (let ((_%hd141857141936%_ + (##eq? _%hd142014142090%_ 'quote)) + (if (pair? _%tl142015142092%_) + (let ((_%hd142016142095%_ (let () (declare (not safe)) - (##car _%tl141856141933%_))) - (_%tl141858141938%_ + (##car _%tl142015142092%_))) + (_%tl142017142097%_ (let () (declare (not safe)) - (##cdr _%tl141856141933%_)))) + (##cdr _%tl142015142092%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141857141936%_ '#f)) - (if (null? _%tl141858141938%_) - (if (null? _%tl141854141928%_) - (_%K141846141904%_ - _%expr141924%_ - _%test141917%_) - (_%else141844141868%_)) - (_%else141844141868%_)) - (_%else141844141868%_))) - (_%else141844141868%_)) - (_%else141844141868%_))) - (_%else141844141868%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else141844141868%_)))) - (_%else141844141868%_)))) - (_%else141844141868%_)) - (_%else141844141868%_))) - (_%else141844141868%_)))))) - (let* ((_%g141758141779%_ - (lambda (_%g141759141776%_) + (##eq? _%hd142016142095%_ '#f)) + (if (null? _%tl142017142097%_) + (if (null? _%tl142013142087%_) + (_%K142005142063%_ + _%expr142083%_ + _%test142076%_) + (_%else142003142027%_)) + (_%else142003142027%_)) + (_%else142003142027%_))) + (_%else142003142027%_)) + (_%else142003142027%_))) + (_%else142003142027%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else142003142027%_)))) + (_%else142003142027%_)))) + (_%else142003142027%_)) + (_%else142003142027%_))) + (_%else142003142027%_)))))) + (let* ((_%g141917141938%_ + (lambda (_%g141918141935%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141759141776%_)))) - (_%g141757141838%_ - (lambda (_%g141759141782%_) + _%g141918141935%_)))) + (_%g141916141997%_ + (lambda (_%g141918141941%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141759141782%_)) - (let ((_%e141763141784%_ + (gx#stx-pair? _%g141918141941%_)) + (let ((_%e141922141943%_ (let () (declare (not safe)) - (gx#stx-e _%g141759141782%_)))) - (let ((_%hd141764141787%_ + (gx#stx-e _%g141918141941%_)))) + (let ((_%hd141923141946%_ (let () (declare (not safe)) - (##car _%e141763141784%_))) - (_%tl141765141789%_ + (##car _%e141922141943%_))) + (_%tl141924141948%_ (let () (declare (not safe)) - (##cdr _%e141763141784%_)))) + (##cdr _%e141922141943%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141765141789%_)) - (let ((_%e141766141792%_ + (gx#stx-pair? _%tl141924141948%_)) + (let ((_%e141925141951%_ (let () (declare (not safe)) - (gx#stx-e _%tl141765141789%_)))) - (let ((_%hd141767141795%_ + (gx#stx-e _%tl141924141948%_)))) + (let ((_%hd141926141954%_ (let () (declare (not safe)) - (##car _%e141766141792%_))) - (_%tl141768141797%_ + (##car _%e141925141951%_))) + (_%tl141927141956%_ (let () (declare (not safe)) - (##cdr _%e141766141792%_)))) + (##cdr _%e141925141951%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141768141797%_)) - (let ((_%e141769141800%_ + (gx#stx-pair? _%tl141927141956%_)) + (let ((_%e141928141959%_ (let () (declare (not safe)) (gx#stx-e - _%tl141768141797%_)))) - (let ((_%hd141770141803%_ + _%tl141927141956%_)))) + (let ((_%hd141929141962%_ (let () (declare (not safe)) - (##car _%e141769141800%_))) - (_%tl141771141805%_ + (##car _%e141928141959%_))) + (_%tl141930141964%_ (let () (declare (not safe)) - (##cdr _%e141769141800%_)))) + (##cdr _%e141928141959%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141771141805%_)) - (let ((_%e141772141808%_ + _%tl141930141964%_)) + (let ((_%e141931141967%_ (let () (declare (not safe)) (gx#stx-e - _%tl141771141805%_)))) - (let ((_%hd141773141811%_ + _%tl141930141964%_)))) + (let ((_%hd141932141970%_ (let () (declare (not safe)) - (##car _%e141772141808%_))) - (_%tl141774141813%_ + (##car _%e141931141967%_))) + (_%tl141933141972%_ (let () (declare (not safe)) - (##cdr _%e141772141808%_)))) + (##cdr _%e141931141967%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141774141813%_)) - ((lambda (_%L141816%_ + _%tl141933141972%_)) + ((lambda (_%L141975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L141817%_ - _%L141818%_) + _%L141976%_ + _%L141977%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify141756%_ + (_%simplify141915%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141818%_)) + _%self141912%_ + _%L141977%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141817%_)) + _%self141912%_ + _%L141976%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141816%_)) + _%self141912%_ + _%L141975%_)) '()))))) (cons 'if - (cons (let ((__tmp148988 + (cons (let ((__tmp149147 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141818%_))))) + _%self141912%_ + _%L141977%_))))) (declare (not safe)) (__call-with-parameters - __tmp148988 + __tmp149147 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141817%_)) + _%self141912%_ + _%L141976%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141816%_)) + _%self141912%_ + _%L141975%_)) '())))))) - _%hd141773141811%_ - _%hd141770141803%_ - _%hd141767141795%_) - (_%g141758141779%_ _%g141759141782%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141758141779%_ - _%g141759141782%_)))) - (_%g141758141779%_ - _%g141759141782%_)))) - (_%g141758141779%_ _%g141759141782%_)))) - (_%g141758141779%_ _%g141759141782%_))))) - (_%g141757141838%_ _%stx141754%_))))) + _%hd141932141970%_ + _%hd141929141962%_ + _%hd141926141954%_) + (_%g141917141938%_ _%g141918141941%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141917141938%_ + _%g141918141941%_)))) + (_%g141917141938%_ + _%g141918141941%_)))) + (_%g141917141938%_ _%g141918141941%_)))) + (_%g141917141938%_ _%g141918141941%_))))) + (_%g141916141997%_ _%stx141913%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self141701%_ _%stx141702%_) - (let* ((_%g141704141717%_ - (lambda (_%g141705141714%_) + (lambda (_%self141860%_ _%stx141861%_) + (let* ((_%g141863141876%_ + (lambda (_%g141864141873%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141705141714%_)))) - (_%g141703141750%_ - (lambda (_%g141705141720%_) + _%g141864141873%_)))) + (_%g141862141909%_ + (lambda (_%g141864141879%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141705141720%_)) - (let ((_%e141707141722%_ + (gx#stx-pair? _%g141864141879%_)) + (let ((_%e141866141881%_ (let () (declare (not safe)) - (gx#stx-e _%g141705141720%_)))) - (let ((_%hd141708141725%_ + (gx#stx-e _%g141864141879%_)))) + (let ((_%hd141867141884%_ (let () (declare (not safe)) - (##car _%e141707141722%_))) - (_%tl141709141727%_ + (##car _%e141866141881%_))) + (_%tl141868141886%_ (let () (declare (not safe)) - (##cdr _%e141707141722%_)))) + (##cdr _%e141866141881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141709141727%_)) - (let ((_%e141710141730%_ + (gx#stx-pair? _%tl141868141886%_)) + (let ((_%e141869141889%_ (let () (declare (not safe)) - (gx#stx-e _%tl141709141727%_)))) - (let ((_%hd141711141733%_ + (gx#stx-e _%tl141868141886%_)))) + (let ((_%hd141870141892%_ (let () (declare (not safe)) - (##car _%e141710141730%_))) - (_%tl141712141735%_ + (##car _%e141869141889%_))) + (_%tl141871141894%_ (let () (declare (not safe)) - (##cdr _%e141710141730%_)))) + (##cdr _%e141869141889%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141712141735%_)) - ((lambda (_%L141738%_) + (gx#stx-null? _%tl141871141894%_)) + ((lambda (_%L141897%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L141738%_))) - _%hd141711141733%_) - (_%g141704141717%_ _%g141705141720%_)))) - (_%g141704141717%_ _%g141705141720%_)))) - (_%g141704141717%_ _%g141705141720%_))))) - (_%g141703141750%_ _%stx141702%_)))) + _%L141897%_))) + _%hd141870141892%_) + (_%g141863141876%_ _%g141864141879%_)))) + (_%g141863141876%_ _%g141864141879%_)))) + (_%g141863141876%_ _%g141864141879%_))))) + (_%g141862141909%_ _%stx141861%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self141633%_ _%stx141634%_) - (let* ((_%g141636141653%_ - (lambda (_%g141637141650%_) + (lambda (_%self141792%_ _%stx141793%_) + (let* ((_%g141795141812%_ + (lambda (_%g141796141809%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141637141650%_)))) - (_%g141635141698%_ - (lambda (_%g141637141656%_) + _%g141796141809%_)))) + (_%g141794141857%_ + (lambda (_%g141796141815%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141637141656%_)) - (let ((_%e141640141658%_ + (gx#stx-pair? _%g141796141815%_)) + (let ((_%e141799141817%_ (let () (declare (not safe)) - (gx#stx-e _%g141637141656%_)))) - (let ((_%hd141641141661%_ + (gx#stx-e _%g141796141815%_)))) + (let ((_%hd141800141820%_ (let () (declare (not safe)) - (##car _%e141640141658%_))) - (_%tl141642141663%_ + (##car _%e141799141817%_))) + (_%tl141801141822%_ (let () (declare (not safe)) - (##cdr _%e141640141658%_)))) + (##cdr _%e141799141817%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141642141663%_)) - (let ((_%e141643141666%_ + (gx#stx-pair? _%tl141801141822%_)) + (let ((_%e141802141825%_ (let () (declare (not safe)) - (gx#stx-e _%tl141642141663%_)))) - (let ((_%hd141644141669%_ + (gx#stx-e _%tl141801141822%_)))) + (let ((_%hd141803141828%_ (let () (declare (not safe)) - (##car _%e141643141666%_))) - (_%tl141645141671%_ + (##car _%e141802141825%_))) + (_%tl141804141830%_ (let () (declare (not safe)) - (##cdr _%e141643141666%_)))) + (##cdr _%e141802141825%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141645141671%_)) - (let ((_%e141646141674%_ + (gx#stx-pair? _%tl141804141830%_)) + (let ((_%e141805141833%_ (let () (declare (not safe)) - (gx#stx-e _%tl141645141671%_)))) - (let ((_%hd141647141677%_ + (gx#stx-e _%tl141804141830%_)))) + (let ((_%hd141806141836%_ (let () (declare (not safe)) - (##car _%e141646141674%_))) - (_%tl141648141679%_ + (##car _%e141805141833%_))) + (_%tl141807141838%_ (let () (declare (not safe)) - (##cdr _%e141646141674%_)))) + (##cdr _%e141805141833%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141648141679%_)) - ((lambda (_%L141682%_ - _%L141683%_) + _%tl141807141838%_)) + ((lambda (_%L141841%_ + _%L141842%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L141683%_)) + (gxc#generate-runtime-binding-id _%L141842%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141633%_ _%L141682%_)) + (gxc#compile-e__1 _%self141792%_ _%L141841%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141647141677%_ - _%hd141644141669%_) - (_%g141636141653%_ - _%g141637141656%_)))) - (_%g141636141653%_ _%g141637141656%_)))) - (_%g141636141653%_ _%g141637141656%_)))) - (_%g141636141653%_ _%g141637141656%_))))) - (_%g141635141698%_ _%stx141634%_)))) + _%hd141806141836%_ + _%hd141803141828%_) + (_%g141795141812%_ + _%g141796141815%_)))) + (_%g141795141812%_ _%g141796141815%_)))) + (_%g141795141812%_ _%g141796141815%_)))) + (_%g141795141812%_ _%g141796141815%_))))) + (_%g141794141857%_ _%stx141793%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self141444%_ _%stx141445%_) - (let* ((_%g141447141464%_ - (lambda (_%g141448141461%_) + (lambda (_%self141603%_ _%stx141604%_) + (let* ((_%g141606141623%_ + (lambda (_%g141607141620%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141448141461%_)))) - (_%g141446141630%_ - (lambda (_%g141448141467%_) + _%g141607141620%_)))) + (_%g141605141789%_ + (lambda (_%g141607141626%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141448141467%_)) - (let ((_%e141451141469%_ + (gx#stx-pair? _%g141607141626%_)) + (let ((_%e141610141628%_ (let () (declare (not safe)) - (gx#stx-e _%g141448141467%_)))) - (let ((_%hd141452141472%_ + (gx#stx-e _%g141607141626%_)))) + (let ((_%hd141611141631%_ (let () (declare (not safe)) - (##car _%e141451141469%_))) - (_%tl141453141474%_ + (##car _%e141610141628%_))) + (_%tl141612141633%_ (let () (declare (not safe)) - (##cdr _%e141451141469%_)))) + (##cdr _%e141610141628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141453141474%_)) - (let ((_%e141454141477%_ + (gx#stx-pair? _%tl141612141633%_)) + (let ((_%e141613141636%_ (let () (declare (not safe)) - (gx#stx-e _%tl141453141474%_)))) - (let ((_%hd141455141480%_ + (gx#stx-e _%tl141612141633%_)))) + (let ((_%hd141614141639%_ (let () (declare (not safe)) - (##car _%e141454141477%_))) - (_%tl141456141482%_ + (##car _%e141613141636%_))) + (_%tl141615141641%_ (let () (declare (not safe)) - (##cdr _%e141454141477%_)))) + (##cdr _%e141613141636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141456141482%_)) - (let ((_%e141457141485%_ + (gx#stx-pair? _%tl141615141641%_)) + (let ((_%e141616141644%_ (let () (declare (not safe)) - (gx#stx-e _%tl141456141482%_)))) - (let ((_%hd141458141488%_ + (gx#stx-e _%tl141615141641%_)))) + (let ((_%hd141617141647%_ (let () (declare (not safe)) - (##car _%e141457141485%_))) - (_%tl141459141490%_ + (##car _%e141616141644%_))) + (_%tl141618141649%_ (let () (declare (not safe)) - (##cdr _%e141457141485%_)))) + (##cdr _%e141616141644%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141459141490%_)) - ((lambda (_%L141493%_ - _%L141494%_) + _%tl141618141649%_)) + ((lambda (_%L141652%_ + _%L141653%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141444%_ _%L141493%_)) + (gxc#compile-e__1 _%self141603%_ _%L141652%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141444%_ _%L141494%_)) + (gxc#compile-e__1 _%self141603%_ _%L141653%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141509%_ ((_%rest141512%_ + (let _%lp141668%_ ((_%rest141671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141494%_ (cons _%L141493%_ '()))) - (_%bind141514%_ '()) - (_%args141515%_ '())) - (let* ((_%rest141516141524%_ _%rest141512%_) - (_%else141518141532%_ + (cons _%L141653%_ (cons _%L141652%_ '()))) + (_%bind141673%_ '()) + (_%args141674%_ '())) + (let* ((_%rest141675141683%_ _%rest141671%_) + (_%else141677141691%_ (lambda () (cons 'let - (cons _%bind141514%_ + (cons _%bind141673%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args141515%_) + _%args141674%_) '())))))) - (_%K141520141618%_ - (lambda (_%rest141535%_ _%e141536%_) - (let* ((_%__stx148536148537%_ _%e141536%_) - (_%g141541141559%_ + (_%K141679141777%_ + (lambda (_%rest141694%_ _%e141695%_) + (let* ((_%__stx148695148696%_ _%e141695%_) + (_%g141700141718%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148536148537%_))))) - (let ((_%__kont148538148539%_ + _%__stx148695148696%_))))) + (let ((_%__kont148697148698%_ (lambda () - (_%lp141509%_ - _%rest141535%_ - _%bind141514%_ + (_%lp141668%_ + _%rest141694%_ + _%bind141673%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141536%_)) - _%args141515%_)))) - (_%__kont148540148541%_ + (gxc#compile-e__0 _%e141695%_)) + _%args141674%_)))) + (_%__kont148699148700%_ (lambda () - (_%lp141509%_ - _%rest141535%_ - _%bind141514%_ + (_%lp141668%_ + _%rest141694%_ + _%bind141673%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141536%_)) - _%args141515%_)))) - (_%__kont148542148543%_ + (gxc#compile-e__0 _%e141695%_)) + _%args141674%_)))) + (_%__kont148701148702%_ (lambda () - (let ((_%tmp141566%_ - (let ((__tmp148989 + (let ((_%tmp141725%_ + (let ((__tmp149148 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148989)))) - (_%lp141509%_ - _%rest141535%_ - (cons (cons _%tmp141566%_ + (make-symbol__0 __tmp149148)))) + (_%lp141668%_ + _%rest141694%_ + (cons (cons _%tmp141725%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141536%_)) + _%e141695%_)) '())) - _%bind141514%_) - (cons _%tmp141566%_ _%args141515%_)))))) + _%bind141673%_) + (cons _%tmp141725%_ _%args141674%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148536148537%_)) - (let ((_%e141543141597%_ + (gx#stx-pair? _%__stx148695148696%_)) + (let ((_%e141702141756%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148536148537%_)))) - (let ((_%tl141545141602%_ + (gx#stx-e _%__stx148695148696%_)))) + (let ((_%tl141704141761%_ (let () (declare (not safe)) - (##cdr _%e141543141597%_))) - (_%hd141544141600%_ + (##cdr _%e141702141756%_))) + (_%hd141703141759%_ (let () (declare (not safe)) - (##car _%e141543141597%_)))) + (##car _%e141702141756%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141544141600%_)) + (gx#identifier? _%hd141703141759%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141544141600%_)) + _%hd141703141759%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141545141602%_)) - (let ((_%e141546141605%_ + _%tl141704141761%_)) + (let ((_%e141705141764%_ (let () (declare (not safe)) (gx#stx-e - _%tl141545141602%_)))) - (let ((_%tl141548141610%_ + _%tl141704141761%_)))) + (let ((_%tl141707141769%_ (let () (declare (not safe)) - (##cdr _%e141546141605%_))) - (_%hd141547141608%_ + (##cdr _%e141705141764%_))) + (_%hd141706141767%_ (let () (declare (not safe)) - (##car _%e141546141605%_)))) + (##car _%e141705141764%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141548141610%_)) - (_%__kont148538148539%_) - (_%__kont148542148543%_)))) - (_%__kont148542148543%_)) + _%tl141707141769%_)) + (_%__kont148697148698%_) + (_%__kont148701148702%_)))) + (_%__kont148701148702%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141544141600%_)) + _%hd141703141759%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141545141602%_)) - (let ((_%e141552141582%_ + _%tl141704141761%_)) + (let ((_%e141711141741%_ (let () (declare (not safe)) (gx#stx-e - _%tl141545141602%_)))) - (let ((_%tl141554141587%_ + _%tl141704141761%_)))) + (let ((_%tl141713141746%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141552141582%_))) - (_%hd141553141585%_ - (let () (declare (not safe)) (##car _%e141552141582%_)))) + (##cdr _%e141711141741%_))) + (_%hd141712141744%_ + (let () (declare (not safe)) (##car _%e141711141741%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141554141587%_)) - (_%__kont148540148541%_) - (_%__kont148542148543%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148542148543%_)) - (_%__kont148542148543%_))) - (_%__kont148542148543%_)))) - (_%__kont148542148543%_))))))) - (if (pair? _%rest141516141524%_) - (let ((_%hd141521141621%_ + (gx#stx-null? _%tl141713141746%_)) + (_%__kont148699148700%_) + (_%__kont148701148702%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148701148702%_)) + (_%__kont148701148702%_))) + (_%__kont148701148702%_)))) + (_%__kont148701148702%_))))))) + (if (pair? _%rest141675141683%_) + (let ((_%hd141680141780%_ (let () (declare (not safe)) - (##car _%rest141516141524%_))) - (_%tl141522141623%_ + (##car _%rest141675141683%_))) + (_%tl141681141782%_ (let () (declare (not safe)) - (##cdr _%rest141516141524%_)))) - (let* ((_%e141626%_ _%hd141521141621%_) - (_%rest141628%_ _%tl141522141623%_)) - (_%K141520141618%_ _%rest141628%_ _%e141626%_))) - (_%else141518141532%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141458141488%_ - _%hd141455141480%_) - (_%g141447141464%_ - _%g141448141467%_)))) - (_%g141447141464%_ _%g141448141467%_)))) - (_%g141447141464%_ _%g141448141467%_)))) - (_%g141447141464%_ _%g141448141467%_))))) - (_%g141446141630%_ _%stx141445%_)))) + (##cdr _%rest141675141683%_)))) + (let* ((_%e141785%_ _%hd141680141780%_) + (_%rest141787%_ _%tl141681141782%_)) + (_%K141679141777%_ _%rest141787%_ _%e141785%_))) + (_%else141677141691%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141617141647%_ + _%hd141614141639%_) + (_%g141606141623%_ + _%g141607141626%_)))) + (_%g141606141623%_ _%g141607141626%_)))) + (_%g141606141623%_ _%g141607141626%_)))) + (_%g141606141623%_ _%g141607141626%_))))) + (_%g141605141789%_ _%stx141604%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self141255%_ _%stx141256%_) - (let* ((_%g141258141275%_ - (lambda (_%g141259141272%_) + (lambda (_%self141414%_ _%stx141415%_) + (let* ((_%g141417141434%_ + (lambda (_%g141418141431%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141259141272%_)))) - (_%g141257141441%_ - (lambda (_%g141259141278%_) + _%g141418141431%_)))) + (_%g141416141600%_ + (lambda (_%g141418141437%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141259141278%_)) - (let ((_%e141262141280%_ + (gx#stx-pair? _%g141418141437%_)) + (let ((_%e141421141439%_ (let () (declare (not safe)) - (gx#stx-e _%g141259141278%_)))) - (let ((_%hd141263141283%_ + (gx#stx-e _%g141418141437%_)))) + (let ((_%hd141422141442%_ (let () (declare (not safe)) - (##car _%e141262141280%_))) - (_%tl141264141285%_ + (##car _%e141421141439%_))) + (_%tl141423141444%_ (let () (declare (not safe)) - (##cdr _%e141262141280%_)))) + (##cdr _%e141421141439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141264141285%_)) - (let ((_%e141265141288%_ + (gx#stx-pair? _%tl141423141444%_)) + (let ((_%e141424141447%_ (let () (declare (not safe)) - (gx#stx-e _%tl141264141285%_)))) - (let ((_%hd141266141291%_ + (gx#stx-e _%tl141423141444%_)))) + (let ((_%hd141425141450%_ (let () (declare (not safe)) - (##car _%e141265141288%_))) - (_%tl141267141293%_ + (##car _%e141424141447%_))) + (_%tl141426141452%_ (let () (declare (not safe)) - (##cdr _%e141265141288%_)))) + (##cdr _%e141424141447%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141267141293%_)) - (let ((_%e141268141296%_ + (gx#stx-pair? _%tl141426141452%_)) + (let ((_%e141427141455%_ (let () (declare (not safe)) - (gx#stx-e _%tl141267141293%_)))) - (let ((_%hd141269141299%_ + (gx#stx-e _%tl141426141452%_)))) + (let ((_%hd141428141458%_ (let () (declare (not safe)) - (##car _%e141268141296%_))) - (_%tl141270141301%_ + (##car _%e141427141455%_))) + (_%tl141429141460%_ (let () (declare (not safe)) - (##cdr _%e141268141296%_)))) + (##cdr _%e141427141455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141270141301%_)) - ((lambda (_%L141304%_ - _%L141305%_) + _%tl141429141460%_)) + ((lambda (_%L141463%_ + _%L141464%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141255%_ _%L141304%_)) + (gxc#compile-e__1 _%self141414%_ _%L141463%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141255%_ _%L141305%_)) + (gxc#compile-e__1 _%self141414%_ _%L141464%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141320%_ ((_%rest141323%_ + (let _%lp141479%_ ((_%rest141482%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141305%_ (cons _%L141304%_ '()))) - (_%bind141325%_ '()) - (_%args141326%_ '())) - (let* ((_%rest141327141335%_ _%rest141323%_) - (_%else141329141343%_ + (cons _%L141464%_ (cons _%L141463%_ '()))) + (_%bind141484%_ '()) + (_%args141485%_ '())) + (let* ((_%rest141486141494%_ _%rest141482%_) + (_%else141488141502%_ (lambda () (cons 'let - (cons _%bind141325%_ + (cons _%bind141484%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args141326%_) + _%args141485%_) '())))))) - (_%K141331141429%_ - (lambda (_%rest141346%_ _%e141347%_) - (let* ((_%__stx148582148583%_ _%e141347%_) - (_%g141352141370%_ + (_%K141490141588%_ + (lambda (_%rest141505%_ _%e141506%_) + (let* ((_%__stx148741148742%_ _%e141506%_) + (_%g141511141529%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148582148583%_))))) - (let ((_%__kont148584148585%_ + _%__stx148741148742%_))))) + (let ((_%__kont148743148744%_ (lambda () - (_%lp141320%_ - _%rest141346%_ - _%bind141325%_ + (_%lp141479%_ + _%rest141505%_ + _%bind141484%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141347%_)) - _%args141326%_)))) - (_%__kont148586148587%_ + (gxc#compile-e__0 _%e141506%_)) + _%args141485%_)))) + (_%__kont148745148746%_ (lambda () - (_%lp141320%_ - _%rest141346%_ - _%bind141325%_ + (_%lp141479%_ + _%rest141505%_ + _%bind141484%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141347%_)) - _%args141326%_)))) - (_%__kont148588148589%_ + (gxc#compile-e__0 _%e141506%_)) + _%args141485%_)))) + (_%__kont148747148748%_ (lambda () - (let ((_%tmp141377%_ - (let ((__tmp148990 + (let ((_%tmp141536%_ + (let ((__tmp149149 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148990)))) - (_%lp141320%_ - _%rest141346%_ - (cons (cons _%tmp141377%_ + (make-symbol__0 __tmp149149)))) + (_%lp141479%_ + _%rest141505%_ + (cons (cons _%tmp141536%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141347%_)) + _%e141506%_)) '())) - _%bind141325%_) - (cons _%tmp141377%_ _%args141326%_)))))) + _%bind141484%_) + (cons _%tmp141536%_ _%args141485%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148582148583%_)) - (let ((_%e141354141408%_ + (gx#stx-pair? _%__stx148741148742%_)) + (let ((_%e141513141567%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148582148583%_)))) - (let ((_%tl141356141413%_ + (gx#stx-e _%__stx148741148742%_)))) + (let ((_%tl141515141572%_ (let () (declare (not safe)) - (##cdr _%e141354141408%_))) - (_%hd141355141411%_ + (##cdr _%e141513141567%_))) + (_%hd141514141570%_ (let () (declare (not safe)) - (##car _%e141354141408%_)))) + (##car _%e141513141567%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141355141411%_)) + (gx#identifier? _%hd141514141570%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141355141411%_)) + _%hd141514141570%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141356141413%_)) - (let ((_%e141357141416%_ + _%tl141515141572%_)) + (let ((_%e141516141575%_ (let () (declare (not safe)) (gx#stx-e - _%tl141356141413%_)))) - (let ((_%tl141359141421%_ + _%tl141515141572%_)))) + (let ((_%tl141518141580%_ (let () (declare (not safe)) - (##cdr _%e141357141416%_))) - (_%hd141358141419%_ + (##cdr _%e141516141575%_))) + (_%hd141517141578%_ (let () (declare (not safe)) - (##car _%e141357141416%_)))) + (##car _%e141516141575%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141359141421%_)) - (_%__kont148584148585%_) - (_%__kont148588148589%_)))) - (_%__kont148588148589%_)) + _%tl141518141580%_)) + (_%__kont148743148744%_) + (_%__kont148747148748%_)))) + (_%__kont148747148748%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141355141411%_)) + _%hd141514141570%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141356141413%_)) - (let ((_%e141363141393%_ + _%tl141515141572%_)) + (let ((_%e141522141552%_ (let () (declare (not safe)) (gx#stx-e - _%tl141356141413%_)))) - (let ((_%tl141365141398%_ + _%tl141515141572%_)))) + (let ((_%tl141524141557%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141363141393%_))) - (_%hd141364141396%_ - (let () (declare (not safe)) (##car _%e141363141393%_)))) + (##cdr _%e141522141552%_))) + (_%hd141523141555%_ + (let () (declare (not safe)) (##car _%e141522141552%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141365141398%_)) - (_%__kont148586148587%_) - (_%__kont148588148589%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148588148589%_)) - (_%__kont148588148589%_))) - (_%__kont148588148589%_)))) - (_%__kont148588148589%_))))))) - (if (pair? _%rest141327141335%_) - (let ((_%hd141332141432%_ + (gx#stx-null? _%tl141524141557%_)) + (_%__kont148745148746%_) + (_%__kont148747148748%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148747148748%_)) + (_%__kont148747148748%_))) + (_%__kont148747148748%_)))) + (_%__kont148747148748%_))))))) + (if (pair? _%rest141486141494%_) + (let ((_%hd141491141591%_ (let () (declare (not safe)) - (##car _%rest141327141335%_))) - (_%tl141333141434%_ + (##car _%rest141486141494%_))) + (_%tl141492141593%_ (let () (declare (not safe)) - (##cdr _%rest141327141335%_)))) - (let* ((_%e141437%_ _%hd141332141432%_) - (_%rest141439%_ _%tl141333141434%_)) - (_%K141331141429%_ _%rest141439%_ _%e141437%_))) - (_%else141329141343%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141269141299%_ - _%hd141266141291%_) - (_%g141258141275%_ - _%g141259141278%_)))) - (_%g141258141275%_ _%g141259141278%_)))) - (_%g141258141275%_ _%g141259141278%_)))) - (_%g141258141275%_ _%g141259141278%_))))) - (_%g141257141441%_ _%stx141256%_)))) + (##cdr _%rest141486141494%_)))) + (let* ((_%e141596%_ _%hd141491141591%_) + (_%rest141598%_ _%tl141492141593%_)) + (_%K141490141588%_ _%rest141598%_ _%e141596%_))) + (_%else141488141502%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141428141458%_ + _%hd141425141450%_) + (_%g141417141434%_ + _%g141418141437%_)))) + (_%g141417141434%_ _%g141418141437%_)))) + (_%g141417141434%_ _%g141418141437%_)))) + (_%g141417141434%_ _%g141418141437%_))))) + (_%g141416141600%_ _%stx141415%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self141171%_ _%stx141172%_) - (let* ((_%g141174141195%_ - (lambda (_%g141175141192%_) + (lambda (_%self141330%_ _%stx141331%_) + (let* ((_%g141333141354%_ + (lambda (_%g141334141351%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141175141192%_)))) - (_%g141173141252%_ - (lambda (_%g141175141198%_) + _%g141334141351%_)))) + (_%g141332141411%_ + (lambda (_%g141334141357%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141175141198%_)) - (let ((_%e141179141200%_ + (gx#stx-pair? _%g141334141357%_)) + (let ((_%e141338141359%_ (let () (declare (not safe)) - (gx#stx-e _%g141175141198%_)))) - (let ((_%hd141180141203%_ + (gx#stx-e _%g141334141357%_)))) + (let ((_%hd141339141362%_ (let () (declare (not safe)) - (##car _%e141179141200%_))) - (_%tl141181141205%_ + (##car _%e141338141359%_))) + (_%tl141340141364%_ (let () (declare (not safe)) - (##cdr _%e141179141200%_)))) + (##cdr _%e141338141359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141181141205%_)) - (let ((_%e141182141208%_ + (gx#stx-pair? _%tl141340141364%_)) + (let ((_%e141341141367%_ (let () (declare (not safe)) - (gx#stx-e _%tl141181141205%_)))) - (let ((_%hd141183141211%_ + (gx#stx-e _%tl141340141364%_)))) + (let ((_%hd141342141370%_ (let () (declare (not safe)) - (##car _%e141182141208%_))) - (_%tl141184141213%_ + (##car _%e141341141367%_))) + (_%tl141343141372%_ (let () (declare (not safe)) - (##cdr _%e141182141208%_)))) + (##cdr _%e141341141367%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141184141213%_)) - (let ((_%e141185141216%_ + (gx#stx-pair? _%tl141343141372%_)) + (let ((_%e141344141375%_ (let () (declare (not safe)) - (gx#stx-e _%tl141184141213%_)))) - (let ((_%hd141186141219%_ + (gx#stx-e _%tl141343141372%_)))) + (let ((_%hd141345141378%_ (let () (declare (not safe)) - (##car _%e141185141216%_))) - (_%tl141187141221%_ + (##car _%e141344141375%_))) + (_%tl141346141380%_ (let () (declare (not safe)) - (##cdr _%e141185141216%_)))) + (##cdr _%e141344141375%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141187141221%_)) - (let ((_%e141188141224%_ + _%tl141346141380%_)) + (let ((_%e141347141383%_ (let () (declare (not safe)) (gx#stx-e - _%tl141187141221%_)))) - (let ((_%hd141189141227%_ + _%tl141346141380%_)))) + (let ((_%hd141348141386%_ (let () (declare (not safe)) - (##car _%e141188141224%_))) - (_%tl141190141229%_ + (##car _%e141347141383%_))) + (_%tl141349141388%_ (let () (declare (not safe)) - (##cdr _%e141188141224%_)))) + (##cdr _%e141347141383%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141190141229%_)) - ((lambda (_%L141232%_ - _%L141233%_ - _%L141234%_) + _%tl141349141388%_)) + ((lambda (_%L141391%_ + _%L141392%_ + _%L141393%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141171%_ _%L141232%_)) + (gxc#compile-e__1 _%self141330%_ _%L141391%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141171%_ - _%L141233%_)) + _%self141330%_ + _%L141392%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141171%_ - _%L141234%_)) + _%self141330%_ + _%L141393%_)) (cons ''#f '())))))) - _%hd141189141227%_ - _%hd141186141219%_ - _%hd141183141211%_) - (_%g141174141195%_ _%g141175141198%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141174141195%_ - _%g141175141198%_)))) - (_%g141174141195%_ _%g141175141198%_)))) - (_%g141174141195%_ _%g141175141198%_)))) - (_%g141174141195%_ _%g141175141198%_))))) - (_%g141173141252%_ _%stx141172%_)))) + _%hd141348141386%_ + _%hd141345141378%_ + _%hd141342141370%_) + (_%g141333141354%_ _%g141334141357%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141333141354%_ + _%g141334141357%_)))) + (_%g141333141354%_ _%g141334141357%_)))) + (_%g141333141354%_ _%g141334141357%_)))) + (_%g141333141354%_ _%g141334141357%_))))) + (_%g141332141411%_ _%stx141331%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self141071%_ _%stx141072%_) - (let* ((_%g141074141099%_ - (lambda (_%g141075141096%_) + (lambda (_%self141230%_ _%stx141231%_) + (let* ((_%g141233141258%_ + (lambda (_%g141234141255%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141075141096%_)))) - (_%g141073141168%_ - (lambda (_%g141075141102%_) + _%g141234141255%_)))) + (_%g141232141327%_ + (lambda (_%g141234141261%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141075141102%_)) - (let ((_%e141080141104%_ + (gx#stx-pair? _%g141234141261%_)) + (let ((_%e141239141263%_ (let () (declare (not safe)) - (gx#stx-e _%g141075141102%_)))) - (let ((_%hd141081141107%_ + (gx#stx-e _%g141234141261%_)))) + (let ((_%hd141240141266%_ (let () (declare (not safe)) - (##car _%e141080141104%_))) - (_%tl141082141109%_ + (##car _%e141239141263%_))) + (_%tl141241141268%_ (let () (declare (not safe)) - (##cdr _%e141080141104%_)))) + (##cdr _%e141239141263%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141082141109%_)) - (let ((_%e141083141112%_ + (gx#stx-pair? _%tl141241141268%_)) + (let ((_%e141242141271%_ (let () (declare (not safe)) - (gx#stx-e _%tl141082141109%_)))) - (let ((_%hd141084141115%_ + (gx#stx-e _%tl141241141268%_)))) + (let ((_%hd141243141274%_ (let () (declare (not safe)) - (##car _%e141083141112%_))) - (_%tl141085141117%_ + (##car _%e141242141271%_))) + (_%tl141244141276%_ (let () (declare (not safe)) - (##cdr _%e141083141112%_)))) + (##cdr _%e141242141271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141085141117%_)) - (let ((_%e141086141120%_ + (gx#stx-pair? _%tl141244141276%_)) + (let ((_%e141245141279%_ (let () (declare (not safe)) - (gx#stx-e _%tl141085141117%_)))) - (let ((_%hd141087141123%_ + (gx#stx-e _%tl141244141276%_)))) + (let ((_%hd141246141282%_ (let () (declare (not safe)) - (##car _%e141086141120%_))) - (_%tl141088141125%_ + (##car _%e141245141279%_))) + (_%tl141247141284%_ (let () (declare (not safe)) - (##cdr _%e141086141120%_)))) + (##cdr _%e141245141279%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141088141125%_)) - (let ((_%e141089141128%_ + _%tl141247141284%_)) + (let ((_%e141248141287%_ (let () (declare (not safe)) (gx#stx-e - _%tl141088141125%_)))) - (let ((_%hd141090141131%_ + _%tl141247141284%_)))) + (let ((_%hd141249141290%_ (let () (declare (not safe)) - (##car _%e141089141128%_))) - (_%tl141091141133%_ + (##car _%e141248141287%_))) + (_%tl141250141292%_ (let () (declare (not safe)) - (##cdr _%e141089141128%_)))) + (##cdr _%e141248141287%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141091141133%_)) - (let ((_%e141092141136%_ + _%tl141250141292%_)) + (let ((_%e141251141295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141091141133%_)))) - (let ((_%hd141093141139%_ - (let () (declare (not safe)) (##car _%e141092141136%_))) - (_%tl141094141141%_ + (gx#stx-e _%tl141250141292%_)))) + (let ((_%hd141252141298%_ + (let () (declare (not safe)) (##car _%e141251141295%_))) + (_%tl141253141300%_ (let () (declare (not safe)) - (##cdr _%e141092141136%_)))) + (##cdr _%e141251141295%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141094141141%_)) - ((lambda (_%L141144%_ - _%L141145%_ - _%L141146%_ - _%L141147%_) + (gx#stx-null? _%tl141253141300%_)) + ((lambda (_%L141303%_ + _%L141304%_ + _%L141305%_ + _%L141306%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141145%_)) + _%self141230%_ + _%L141304%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141144%_)) + _%self141230%_ + _%L141303%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141146%_)) + _%self141230%_ + _%L141305%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141147%_)) + _%self141230%_ + _%L141306%_)) (cons ''#f '()))))))) - _%hd141093141139%_ - _%hd141090141131%_ - _%hd141087141123%_ - _%hd141084141115%_) - (_%g141074141099%_ _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141074141099%_ - _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_))))) - (_%g141073141168%_ _%stx141072%_)))) + _%hd141252141298%_ + _%hd141249141290%_ + _%hd141246141282%_ + _%hd141243141274%_) + (_%g141233141258%_ _%g141234141261%_)))) + (_%g141233141258%_ _%g141234141261%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141233141258%_ + _%g141234141261%_)))) + (_%g141233141258%_ _%g141234141261%_)))) + (_%g141233141258%_ _%g141234141261%_)))) + (_%g141233141258%_ _%g141234141261%_))))) + (_%g141232141327%_ _%stx141231%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self140987%_ _%stx140988%_) - (let* ((_%g140990141011%_ - (lambda (_%g140991141008%_) + (lambda (_%self141146%_ _%stx141147%_) + (let* ((_%g141149141170%_ + (lambda (_%g141150141167%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140991141008%_)))) - (_%g140989141068%_ - (lambda (_%g140991141014%_) + _%g141150141167%_)))) + (_%g141148141227%_ + (lambda (_%g141150141173%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140991141014%_)) - (let ((_%e140995141016%_ + (gx#stx-pair? _%g141150141173%_)) + (let ((_%e141154141175%_ (let () (declare (not safe)) - (gx#stx-e _%g140991141014%_)))) - (let ((_%hd140996141019%_ + (gx#stx-e _%g141150141173%_)))) + (let ((_%hd141155141178%_ (let () (declare (not safe)) - (##car _%e140995141016%_))) - (_%tl140997141021%_ + (##car _%e141154141175%_))) + (_%tl141156141180%_ (let () (declare (not safe)) - (##cdr _%e140995141016%_)))) + (##cdr _%e141154141175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140997141021%_)) - (let ((_%e140998141024%_ + (gx#stx-pair? _%tl141156141180%_)) + (let ((_%e141157141183%_ (let () (declare (not safe)) - (gx#stx-e _%tl140997141021%_)))) - (let ((_%hd140999141027%_ + (gx#stx-e _%tl141156141180%_)))) + (let ((_%hd141158141186%_ (let () (declare (not safe)) - (##car _%e140998141024%_))) - (_%tl141000141029%_ + (##car _%e141157141183%_))) + (_%tl141159141188%_ (let () (declare (not safe)) - (##cdr _%e140998141024%_)))) + (##cdr _%e141157141183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141000141029%_)) - (let ((_%e141001141032%_ + (gx#stx-pair? _%tl141159141188%_)) + (let ((_%e141160141191%_ (let () (declare (not safe)) - (gx#stx-e _%tl141000141029%_)))) - (let ((_%hd141002141035%_ + (gx#stx-e _%tl141159141188%_)))) + (let ((_%hd141161141194%_ (let () (declare (not safe)) - (##car _%e141001141032%_))) - (_%tl141003141037%_ + (##car _%e141160141191%_))) + (_%tl141162141196%_ (let () (declare (not safe)) - (##cdr _%e141001141032%_)))) + (##cdr _%e141160141191%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141003141037%_)) - (let ((_%e141004141040%_ + _%tl141162141196%_)) + (let ((_%e141163141199%_ (let () (declare (not safe)) (gx#stx-e - _%tl141003141037%_)))) - (let ((_%hd141005141043%_ + _%tl141162141196%_)))) + (let ((_%hd141164141202%_ (let () (declare (not safe)) - (##car _%e141004141040%_))) - (_%tl141006141045%_ + (##car _%e141163141199%_))) + (_%tl141165141204%_ (let () (declare (not safe)) - (##cdr _%e141004141040%_)))) + (##cdr _%e141163141199%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141006141045%_)) - ((lambda (_%L141048%_ - _%L141049%_ - _%L141050%_) + _%tl141165141204%_)) + ((lambda (_%L141207%_ + _%L141208%_ + _%L141209%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self140987%_ _%L141048%_)) + (gxc#compile-e__1 _%self141146%_ _%L141207%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140987%_ - _%L141049%_)) + _%self141146%_ + _%L141208%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140987%_ - _%L141050%_)) + _%self141146%_ + _%L141209%_)) (cons ''#f '())))))) - _%hd141005141043%_ - _%hd141002141035%_ - _%hd140999141027%_) - (_%g140990141011%_ _%g140991141014%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140990141011%_ - _%g140991141014%_)))) - (_%g140990141011%_ _%g140991141014%_)))) - (_%g140990141011%_ _%g140991141014%_)))) - (_%g140990141011%_ _%g140991141014%_))))) - (_%g140989141068%_ _%stx140988%_)))) + _%hd141164141202%_ + _%hd141161141194%_ + _%hd141158141186%_) + (_%g141149141170%_ _%g141150141173%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141149141170%_ + _%g141150141173%_)))) + (_%g141149141170%_ _%g141150141173%_)))) + (_%g141149141170%_ _%g141150141173%_)))) + (_%g141149141170%_ _%g141150141173%_))))) + (_%g141148141227%_ _%stx141147%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self140887%_ _%stx140888%_) - (let* ((_%g140890140915%_ - (lambda (_%g140891140912%_) + (lambda (_%self141046%_ _%stx141047%_) + (let* ((_%g141049141074%_ + (lambda (_%g141050141071%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140891140912%_)))) - (_%g140889140984%_ - (lambda (_%g140891140918%_) + _%g141050141071%_)))) + (_%g141048141143%_ + (lambda (_%g141050141077%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140891140918%_)) - (let ((_%e140896140920%_ + (gx#stx-pair? _%g141050141077%_)) + (let ((_%e141055141079%_ (let () (declare (not safe)) - (gx#stx-e _%g140891140918%_)))) - (let ((_%hd140897140923%_ + (gx#stx-e _%g141050141077%_)))) + (let ((_%hd141056141082%_ (let () (declare (not safe)) - (##car _%e140896140920%_))) - (_%tl140898140925%_ + (##car _%e141055141079%_))) + (_%tl141057141084%_ (let () (declare (not safe)) - (##cdr _%e140896140920%_)))) + (##cdr _%e141055141079%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140898140925%_)) - (let ((_%e140899140928%_ + (gx#stx-pair? _%tl141057141084%_)) + (let ((_%e141058141087%_ (let () (declare (not safe)) - (gx#stx-e _%tl140898140925%_)))) - (let ((_%hd140900140931%_ + (gx#stx-e _%tl141057141084%_)))) + (let ((_%hd141059141090%_ (let () (declare (not safe)) - (##car _%e140899140928%_))) - (_%tl140901140933%_ + (##car _%e141058141087%_))) + (_%tl141060141092%_ (let () (declare (not safe)) - (##cdr _%e140899140928%_)))) + (##cdr _%e141058141087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140901140933%_)) - (let ((_%e140902140936%_ + (gx#stx-pair? _%tl141060141092%_)) + (let ((_%e141061141095%_ (let () (declare (not safe)) - (gx#stx-e _%tl140901140933%_)))) - (let ((_%hd140903140939%_ + (gx#stx-e _%tl141060141092%_)))) + (let ((_%hd141062141098%_ (let () (declare (not safe)) - (##car _%e140902140936%_))) - (_%tl140904140941%_ + (##car _%e141061141095%_))) + (_%tl141063141100%_ (let () (declare (not safe)) - (##cdr _%e140902140936%_)))) + (##cdr _%e141061141095%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140904140941%_)) - (let ((_%e140905140944%_ + _%tl141063141100%_)) + (let ((_%e141064141103%_ (let () (declare (not safe)) (gx#stx-e - _%tl140904140941%_)))) - (let ((_%hd140906140947%_ + _%tl141063141100%_)))) + (let ((_%hd141065141106%_ (let () (declare (not safe)) - (##car _%e140905140944%_))) - (_%tl140907140949%_ + (##car _%e141064141103%_))) + (_%tl141066141108%_ (let () (declare (not safe)) - (##cdr _%e140905140944%_)))) + (##cdr _%e141064141103%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140907140949%_)) - (let ((_%e140908140952%_ + _%tl141066141108%_)) + (let ((_%e141067141111%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140907140949%_)))) - (let ((_%hd140909140955%_ - (let () (declare (not safe)) (##car _%e140908140952%_))) - (_%tl140910140957%_ + (gx#stx-e _%tl141066141108%_)))) + (let ((_%hd141068141114%_ + (let () (declare (not safe)) (##car _%e141067141111%_))) + (_%tl141069141116%_ (let () (declare (not safe)) - (##cdr _%e140908140952%_)))) + (##cdr _%e141067141111%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140910140957%_)) - ((lambda (_%L140960%_ - _%L140961%_ - _%L140962%_ - _%L140963%_) + (gx#stx-null? _%tl141069141116%_)) + ((lambda (_%L141119%_ + _%L141120%_ + _%L141121%_ + _%L141122%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140961%_)) + _%self141046%_ + _%L141120%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140960%_)) + _%self141046%_ + _%L141119%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140962%_)) + _%self141046%_ + _%L141121%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140963%_)) + _%self141046%_ + _%L141122%_)) (cons ''#f '()))))))) - _%hd140909140955%_ - _%hd140906140947%_ - _%hd140903140939%_ - _%hd140900140931%_) - (_%g140890140915%_ _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140890140915%_ - _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_))))) - (_%g140889140984%_ _%stx140888%_)))) + _%hd141068141114%_ + _%hd141065141106%_ + _%hd141062141098%_ + _%hd141059141090%_) + (_%g141049141074%_ _%g141050141077%_)))) + (_%g141049141074%_ _%g141050141077%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141049141074%_ + _%g141050141077%_)))) + (_%g141049141074%_ _%g141050141077%_)))) + (_%g141049141074%_ _%g141050141077%_)))) + (_%g141049141074%_ _%g141050141077%_))))) + (_%g141048141143%_ _%stx141047%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self140682%_ _%stx140683%_) - (let* ((_%g140685140706%_ - (lambda (_%g140686140703%_) + (lambda (_%self140841%_ _%stx140842%_) + (let* ((_%g140844140865%_ + (lambda (_%g140845140862%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140686140703%_)))) - (_%g140684140884%_ - (lambda (_%g140686140709%_) + _%g140845140862%_)))) + (_%g140843141043%_ + (lambda (_%g140845140868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140686140709%_)) - (let ((_%e140690140711%_ + (gx#stx-pair? _%g140845140868%_)) + (let ((_%e140849140870%_ (let () (declare (not safe)) - (gx#stx-e _%g140686140709%_)))) - (let ((_%hd140691140714%_ + (gx#stx-e _%g140845140868%_)))) + (let ((_%hd140850140873%_ (let () (declare (not safe)) - (##car _%e140690140711%_))) - (_%tl140692140716%_ + (##car _%e140849140870%_))) + (_%tl140851140875%_ (let () (declare (not safe)) - (##cdr _%e140690140711%_)))) + (##cdr _%e140849140870%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140692140716%_)) - (let ((_%e140693140719%_ + (gx#stx-pair? _%tl140851140875%_)) + (let ((_%e140852140878%_ (let () (declare (not safe)) - (gx#stx-e _%tl140692140716%_)))) - (let ((_%hd140694140722%_ + (gx#stx-e _%tl140851140875%_)))) + (let ((_%hd140853140881%_ (let () (declare (not safe)) - (##car _%e140693140719%_))) - (_%tl140695140724%_ + (##car _%e140852140878%_))) + (_%tl140854140883%_ (let () (declare (not safe)) - (##cdr _%e140693140719%_)))) + (##cdr _%e140852140878%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140695140724%_)) - (let ((_%e140696140727%_ + (gx#stx-pair? _%tl140854140883%_)) + (let ((_%e140855140886%_ (let () (declare (not safe)) - (gx#stx-e _%tl140695140724%_)))) - (let ((_%hd140697140730%_ + (gx#stx-e _%tl140854140883%_)))) + (let ((_%hd140856140889%_ (let () (declare (not safe)) - (##car _%e140696140727%_))) - (_%tl140698140732%_ + (##car _%e140855140886%_))) + (_%tl140857140891%_ (let () (declare (not safe)) - (##cdr _%e140696140727%_)))) + (##cdr _%e140855140886%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140698140732%_)) - (let ((_%e140699140735%_ + _%tl140857140891%_)) + (let ((_%e140858140894%_ (let () (declare (not safe)) (gx#stx-e - _%tl140698140732%_)))) - (let ((_%hd140700140738%_ + _%tl140857140891%_)))) + (let ((_%hd140859140897%_ (let () (declare (not safe)) - (##car _%e140699140735%_))) - (_%tl140701140740%_ + (##car _%e140858140894%_))) + (_%tl140860140899%_ (let () (declare (not safe)) - (##cdr _%e140699140735%_)))) + (##cdr _%e140858140894%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140701140740%_)) - ((lambda (_%L140743%_ - _%L140744%_ - _%L140745%_) + _%tl140860140899%_)) + ((lambda (_%L140902%_ + _%L140903%_ + _%L140904%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140682%_ - _%L140743%_)) + _%self140841%_ + _%L140902%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140682%_ - _%L140744%_)) + _%self140841%_ + _%L140903%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp140763%_ ((_%rest140766%_ - (cons _%L140744%_ - (cons _%L140743%_ '()))) - (_%bind140768%_ '()) - (_%args140769%_ '())) - (let* ((_%rest140770140778%_ _%rest140766%_) - (_%else140772140786%_ + (let _%lp140922%_ ((_%rest140925%_ + (cons _%L140903%_ + (cons _%L140902%_ '()))) + (_%bind140927%_ '()) + (_%args140928%_ '())) + (let* ((_%rest140929140937%_ _%rest140925%_) + (_%else140931140945%_ (lambda () (cons 'let - (cons _%bind140768%_ + (cons _%bind140927%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp148991 + (let ((__tmp149150 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp148991 _%args140769%_))) + (__foldr1 cons __tmp149150 _%args140928%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140774140872%_ - (lambda (_%rest140789%_ _%e140790%_) - (let* ((_%__stx148628148629%_ _%e140790%_) - (_%g140795140813%_ + (_%K140933141031%_ + (lambda (_%rest140948%_ _%e140949%_) + (let* ((_%__stx148787148788%_ _%e140949%_) + (_%g140954140972%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148628148629%_))))) - (let ((_%__kont148630148631%_ + _%__stx148787148788%_))))) + (let ((_%__kont148789148790%_ (lambda () - (_%lp140763%_ - _%rest140789%_ - _%bind140768%_ + (_%lp140922%_ + _%rest140948%_ + _%bind140927%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140790%_)) - _%args140769%_)))) - (_%__kont148632148633%_ + _%e140949%_)) + _%args140928%_)))) + (_%__kont148791148792%_ (lambda () - (_%lp140763%_ - _%rest140789%_ - _%bind140768%_ + (_%lp140922%_ + _%rest140948%_ + _%bind140927%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140790%_)) - _%args140769%_)))) - (_%__kont148634148635%_ + _%e140949%_)) + _%args140928%_)))) + (_%__kont148793148794%_ (lambda () - (let ((_%tmp140820%_ - (let ((__tmp148992 + (let ((_%tmp140979%_ + (let ((__tmp149151 (let () (declare (not safe)) @@ -11572,1578 +11572,1578 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp148992)))) - (_%lp140763%_ - _%rest140789%_ - (cons (cons _%tmp140820%_ + __tmp149151)))) + (_%lp140922%_ + _%rest140948%_ + (cons (cons _%tmp140979%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e140790%_)) + (gxc#compile-e__0 _%e140949%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind140768%_) - (cons _%tmp140820%_ - _%args140769%_)))))) + _%bind140927%_) + (cons _%tmp140979%_ + _%args140928%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148628148629%_)) - (let ((_%e140797140851%_ + _%__stx148787148788%_)) + (let ((_%e140956141010%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148628148629%_)))) - (let ((_%tl140799140856%_ + _%__stx148787148788%_)))) + (let ((_%tl140958141015%_ (let () (declare (not safe)) - (##cdr _%e140797140851%_))) - (_%hd140798140854%_ + (##cdr _%e140956141010%_))) + (_%hd140957141013%_ (let () (declare (not safe)) - (##car _%e140797140851%_)))) + (##car _%e140956141010%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140798140854%_)) + _%hd140957141013%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140798140854%_)) + _%hd140957141013%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140799140856%_)) - (let ((_%e140800140859%_ + _%tl140958141015%_)) + (let ((_%e140959141018%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl140799140856%_)))) - (let ((_%tl140802140864%_ + (gx#stx-e _%tl140958141015%_)))) + (let ((_%tl140961141023%_ (let () (declare (not safe)) - (##cdr _%e140800140859%_))) - (_%hd140801140862%_ + (##cdr _%e140959141018%_))) + (_%hd140960141021%_ (let () (declare (not safe)) - (##car _%e140800140859%_)))) + (##car _%e140959141018%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140802140864%_)) - (_%__kont148630148631%_) - (_%__kont148634148635%_)))) - (_%__kont148634148635%_)) + (gx#stx-null? _%tl140961141023%_)) + (_%__kont148789148790%_) + (_%__kont148793148794%_)))) + (_%__kont148793148794%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140798140854%_)) + _%hd140957141013%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140799140856%_)) - (let ((_%e140806140836%_ + (gx#stx-pair? _%tl140958141015%_)) + (let ((_%e140965140995%_ (let () (declare (not safe)) - (gx#stx-e _%tl140799140856%_)))) - (let ((_%tl140808140841%_ + (gx#stx-e _%tl140958141015%_)))) + (let ((_%tl140967141000%_ (let () (declare (not safe)) - (##cdr _%e140806140836%_))) - (_%hd140807140839%_ + (##cdr _%e140965140995%_))) + (_%hd140966140998%_ (let () (declare (not safe)) - (##car _%e140806140836%_)))) + (##car _%e140965140995%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140808140841%_)) - (_%__kont148632148633%_) - (_%__kont148634148635%_)))) - (_%__kont148634148635%_)) - (_%__kont148634148635%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148634148635%_)))) - (_%__kont148634148635%_))))))) - (if (pair? _%rest140770140778%_) - (let ((_%hd140775140875%_ + (gx#stx-null? _%tl140967141000%_)) + (_%__kont148791148792%_) + (_%__kont148793148794%_)))) + (_%__kont148793148794%_)) + (_%__kont148793148794%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148793148794%_)))) + (_%__kont148793148794%_))))))) + (if (pair? _%rest140929140937%_) + (let ((_%hd140934141034%_ (let () (declare (not safe)) - (##car _%rest140770140778%_))) - (_%tl140776140877%_ + (##car _%rest140929140937%_))) + (_%tl140935141036%_ (let () (declare (not safe)) - (##cdr _%rest140770140778%_)))) - (let* ((_%e140880%_ _%hd140775140875%_) - (_%rest140882%_ _%tl140776140877%_)) - (_%K140774140872%_ - _%rest140882%_ - _%e140880%_))) - (_%else140772140786%_)))))) - _%hd140700140738%_ - _%hd140697140730%_ - _%hd140694140722%_) - (_%g140685140706%_ _%g140686140709%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140685140706%_ - _%g140686140709%_)))) - (_%g140685140706%_ _%g140686140709%_)))) - (_%g140685140706%_ _%g140686140709%_)))) - (_%g140685140706%_ _%g140686140709%_))))) - (_%g140684140884%_ _%stx140683%_)))) + (##cdr _%rest140929140937%_)))) + (let* ((_%e141039%_ _%hd140934141034%_) + (_%rest141041%_ _%tl140935141036%_)) + (_%K140933141031%_ + _%rest141041%_ + _%e141039%_))) + (_%else140931140945%_)))))) + _%hd140859140897%_ + _%hd140856140889%_ + _%hd140853140881%_) + (_%g140844140865%_ _%g140845140868%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140844140865%_ + _%g140845140868%_)))) + (_%g140844140865%_ _%g140845140868%_)))) + (_%g140844140865%_ _%g140845140868%_)))) + (_%g140844140865%_ _%g140845140868%_))))) + (_%g140843141043%_ _%stx140842%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self140461%_ _%stx140462%_) - (let* ((_%g140464140489%_ - (lambda (_%g140465140486%_) + (lambda (_%self140620%_ _%stx140621%_) + (let* ((_%g140623140648%_ + (lambda (_%g140624140645%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140465140486%_)))) - (_%g140463140679%_ - (lambda (_%g140465140492%_) + _%g140624140645%_)))) + (_%g140622140838%_ + (lambda (_%g140624140651%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140465140492%_)) - (let ((_%e140470140494%_ + (gx#stx-pair? _%g140624140651%_)) + (let ((_%e140629140653%_ (let () (declare (not safe)) - (gx#stx-e _%g140465140492%_)))) - (let ((_%hd140471140497%_ + (gx#stx-e _%g140624140651%_)))) + (let ((_%hd140630140656%_ (let () (declare (not safe)) - (##car _%e140470140494%_))) - (_%tl140472140499%_ + (##car _%e140629140653%_))) + (_%tl140631140658%_ (let () (declare (not safe)) - (##cdr _%e140470140494%_)))) + (##cdr _%e140629140653%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140472140499%_)) - (let ((_%e140473140502%_ + (gx#stx-pair? _%tl140631140658%_)) + (let ((_%e140632140661%_ (let () (declare (not safe)) - (gx#stx-e _%tl140472140499%_)))) - (let ((_%hd140474140505%_ + (gx#stx-e _%tl140631140658%_)))) + (let ((_%hd140633140664%_ (let () (declare (not safe)) - (##car _%e140473140502%_))) - (_%tl140475140507%_ + (##car _%e140632140661%_))) + (_%tl140634140666%_ (let () (declare (not safe)) - (##cdr _%e140473140502%_)))) + (##cdr _%e140632140661%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140475140507%_)) - (let ((_%e140476140510%_ + (gx#stx-pair? _%tl140634140666%_)) + (let ((_%e140635140669%_ (let () (declare (not safe)) - (gx#stx-e _%tl140475140507%_)))) - (let ((_%hd140477140513%_ + (gx#stx-e _%tl140634140666%_)))) + (let ((_%hd140636140672%_ (let () (declare (not safe)) - (##car _%e140476140510%_))) - (_%tl140478140515%_ + (##car _%e140635140669%_))) + (_%tl140637140674%_ (let () (declare (not safe)) - (##cdr _%e140476140510%_)))) + (##cdr _%e140635140669%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140478140515%_)) - (let ((_%e140479140518%_ + _%tl140637140674%_)) + (let ((_%e140638140677%_ (let () (declare (not safe)) (gx#stx-e - _%tl140478140515%_)))) - (let ((_%hd140480140521%_ + _%tl140637140674%_)))) + (let ((_%hd140639140680%_ (let () (declare (not safe)) - (##car _%e140479140518%_))) - (_%tl140481140523%_ + (##car _%e140638140677%_))) + (_%tl140640140682%_ (let () (declare (not safe)) - (##cdr _%e140479140518%_)))) + (##cdr _%e140638140677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140481140523%_)) - (let ((_%e140482140526%_ + _%tl140640140682%_)) + (let ((_%e140641140685%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140481140523%_)))) - (let ((_%hd140483140529%_ - (let () (declare (not safe)) (##car _%e140482140526%_))) - (_%tl140484140531%_ + (gx#stx-e _%tl140640140682%_)))) + (let ((_%hd140642140688%_ + (let () (declare (not safe)) (##car _%e140641140685%_))) + (_%tl140643140690%_ (let () (declare (not safe)) - (##cdr _%e140482140526%_)))) + (##cdr _%e140641140685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140484140531%_)) - ((lambda (_%L140534%_ - _%L140535%_ - _%L140536%_ - _%L140537%_) + (gx#stx-null? _%tl140643140690%_)) + ((lambda (_%L140693%_ + _%L140694%_ + _%L140695%_ + _%L140696%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140461%_ - _%L140535%_)) + _%self140620%_ + _%L140694%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140461%_ - _%L140534%_)) + _%self140620%_ + _%L140693%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140461%_ - _%L140536%_)) + _%self140620%_ + _%L140695%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp140558%_ ((_%rest140561%_ - (cons _%L140536%_ - (cons _%L140534%_ - (cons _%L140535%_ + (let _%lp140717%_ ((_%rest140720%_ + (cons _%L140695%_ + (cons _%L140693%_ + (cons _%L140694%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140563%_ '()) - (_%args140564%_ '())) - (let* ((_%rest140565140573%_ _%rest140561%_) - (_%else140567140581%_ + (_%bind140722%_ '()) + (_%args140723%_ '())) + (let* ((_%rest140724140732%_ _%rest140720%_) + (_%else140726140740%_ (lambda () (cons 'let - (cons _%bind140563%_ + (cons _%bind140722%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp148993 (cons ''#f (cons ''#f '())))) + (let ((__tmp149152 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp148993 _%args140564%_))) + (__foldr1 cons __tmp149152 _%args140723%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140569140667%_ - (lambda (_%rest140584%_ _%e140585%_) - (let* ((_%__stx148674148675%_ - _%e140585%_) - (_%g140590140608%_ + (_%K140728140826%_ + (lambda (_%rest140743%_ _%e140744%_) + (let* ((_%__stx148833148834%_ + _%e140744%_) + (_%g140749140767%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148674148675%_))))) - (let ((_%__kont148676148677%_ + _%__stx148833148834%_))))) + (let ((_%__kont148835148836%_ (lambda () - (_%lp140558%_ - _%rest140584%_ - _%bind140563%_ + (_%lp140717%_ + _%rest140743%_ + _%bind140722%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140585%_)) - _%args140564%_)))) - (_%__kont148678148679%_ + _%e140744%_)) + _%args140723%_)))) + (_%__kont148837148838%_ (lambda () - (_%lp140558%_ - _%rest140584%_ - _%bind140563%_ + (_%lp140717%_ + _%rest140743%_ + _%bind140722%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140585%_)) - _%args140564%_)))) - (_%__kont148680148681%_ + _%e140744%_)) + _%args140723%_)))) + (_%__kont148839148840%_ (lambda () - (let ((_%tmp140615%_ - (let ((__tmp148994 + (let ((_%tmp140774%_ + (let ((__tmp149153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148994)))) - (_%lp140558%_ - _%rest140584%_ - (cons (cons _%tmp140615%_ + (make-symbol__0 __tmp149153)))) + (_%lp140717%_ + _%rest140743%_ + (cons (cons _%tmp140774%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140585%_)) + (gxc#compile-e__0 _%e140744%_)) '())) - _%bind140563%_) - (cons _%tmp140615%_ _%args140564%_)))))) + _%bind140722%_) + (cons _%tmp140774%_ _%args140723%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148674148675%_)) - (let ((_%e140592140646%_ + _%__stx148833148834%_)) + (let ((_%e140751140805%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148674148675%_)))) - (let ((_%tl140594140651%_ + _%__stx148833148834%_)))) + (let ((_%tl140753140810%_ (let () (declare (not safe)) - (##cdr _%e140592140646%_))) - (_%hd140593140649%_ + (##cdr _%e140751140805%_))) + (_%hd140752140808%_ (let () (declare (not safe)) - (##car _%e140592140646%_)))) + (##car _%e140751140805%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140593140649%_)) + _%hd140752140808%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd140593140649%_)) + (gx#stx-eq? '%#ref _%hd140752140808%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140594140651%_)) - (let ((_%e140595140654%_ + (gx#stx-pair? _%tl140753140810%_)) + (let ((_%e140754140813%_ (let () (declare (not safe)) - (gx#stx-e _%tl140594140651%_)))) - (let ((_%tl140597140659%_ + (gx#stx-e _%tl140753140810%_)))) + (let ((_%tl140756140818%_ (let () (declare (not safe)) - (##cdr _%e140595140654%_))) - (_%hd140596140657%_ + (##cdr _%e140754140813%_))) + (_%hd140755140816%_ (let () (declare (not safe)) - (##car _%e140595140654%_)))) + (##car _%e140754140813%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140597140659%_)) - (_%__kont148676148677%_) - (_%__kont148680148681%_)))) - (_%__kont148680148681%_)) + (gx#stx-null? _%tl140756140818%_)) + (_%__kont148835148836%_) + (_%__kont148839148840%_)))) + (_%__kont148839148840%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140593140649%_)) + (gx#stx-eq? '%#quote _%hd140752140808%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140594140651%_)) - (let ((_%e140601140631%_ + (gx#stx-pair? _%tl140753140810%_)) + (let ((_%e140760140790%_ (let () (declare (not safe)) - (gx#stx-e _%tl140594140651%_)))) - (let ((_%tl140603140636%_ + (gx#stx-e _%tl140753140810%_)))) + (let ((_%tl140762140795%_ (let () (declare (not safe)) - (##cdr _%e140601140631%_))) - (_%hd140602140634%_ + (##cdr _%e140760140790%_))) + (_%hd140761140793%_ (let () (declare (not safe)) - (##car _%e140601140631%_)))) + (##car _%e140760140790%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140603140636%_)) - (_%__kont148678148679%_) - (_%__kont148680148681%_)))) - (_%__kont148680148681%_)) - (_%__kont148680148681%_))) - (_%__kont148680148681%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148680148681%_))))))) - (if (pair? _%rest140565140573%_) - (let ((_%hd140570140670%_ + (gx#stx-null? _%tl140762140795%_)) + (_%__kont148837148838%_) + (_%__kont148839148840%_)))) + (_%__kont148839148840%_)) + (_%__kont148839148840%_))) + (_%__kont148839148840%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148839148840%_))))))) + (if (pair? _%rest140724140732%_) + (let ((_%hd140729140829%_ (let () (declare (not safe)) - (##car _%rest140565140573%_))) - (_%tl140571140672%_ + (##car _%rest140724140732%_))) + (_%tl140730140831%_ (let () (declare (not safe)) - (##cdr _%rest140565140573%_)))) - (let* ((_%e140675%_ _%hd140570140670%_) - (_%rest140677%_ - _%tl140571140672%_)) - (_%K140569140667%_ - _%rest140677%_ - _%e140675%_))) - (_%else140567140581%_)))))) - _%hd140483140529%_ - _%hd140480140521%_ - _%hd140477140513%_ - _%hd140474140505%_) - (_%g140464140489%_ _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140464140489%_ - _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_))))) - (_%g140463140679%_ _%stx140462%_)))) + (##cdr _%rest140724140732%_)))) + (let* ((_%e140834%_ _%hd140729140829%_) + (_%rest140836%_ + _%tl140730140831%_)) + (_%K140728140826%_ + _%rest140836%_ + _%e140834%_))) + (_%else140726140740%_)))))) + _%hd140642140688%_ + _%hd140639140680%_ + _%hd140636140672%_ + _%hd140633140664%_) + (_%g140623140648%_ _%g140624140651%_)))) + (_%g140623140648%_ _%g140624140651%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140623140648%_ + _%g140624140651%_)))) + (_%g140623140648%_ _%g140624140651%_)))) + (_%g140623140648%_ _%g140624140651%_)))) + (_%g140623140648%_ _%g140624140651%_))))) + (_%g140622140838%_ _%stx140621%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self140300%_ _%stx140301%_) - (letrec ((_%import-set-template140303%_ - (lambda (_%in140406%_ _%phi140407%_) - (let ((_%iphi140409%_ - (fx+ _%phi140407%_ + (lambda (_%self140459%_ _%stx140460%_) + (letrec ((_%import-set-template140462%_ + (lambda (_%in140565%_ _%phi140566%_) + (let ((_%iphi140568%_ + (fx+ _%phi140566%_ (##direct-structure-ref - _%in140406%_ + _%in140565%_ '2 gx#import-set::t '#f))) - (_%imports140410%_ + (_%imports140569%_ (##structure-ref (##direct-structure-ref - _%in140406%_ + _%in140565%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp140412%_ ((_%rest140414%_ _%imports140410%_) - (_%r140415%_ '())) - (let* ((_%rest140416140424%_ _%rest140414%_) - (_%else140418140432%_ (lambda () _%r140415%_)) - (_%K140420140449%_ - (lambda (_%rest140435%_ _%in140436%_) + (let _%lp140571%_ ((_%rest140573%_ _%imports140569%_) + (_%r140574%_ '())) + (let* ((_%rest140575140583%_ _%rest140573%_) + (_%else140577140591%_ (lambda () _%r140574%_)) + (_%K140579140608%_ + (lambda (_%rest140594%_ _%in140595%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140436%_ + _%in140595%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi140409%_)) - (_%lp140412%_ - _%rest140435%_ - (cons _%in140436%_ _%r140415%_)) - (_%lp140412%_ - _%rest140435%_ - _%r140415%_)) + (##fxzero? _%iphi140568%_)) + (_%lp140571%_ + _%rest140594%_ + (cons _%in140595%_ _%r140574%_)) + (_%lp140571%_ + _%rest140594%_ + _%r140574%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140436%_ + _%in140595%_ 'gx#module-import::t)) - (let ((_%iphi140440%_ - (fx+ _%phi140407%_ + (let ((_%iphi140599%_ + (fx+ _%phi140566%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in140595%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi140440%_)) - (_%lp140412%_ - _%rest140435%_ + (##fxzero? _%iphi140599%_)) + (_%lp140571%_ + _%rest140594%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in140595%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r140415%_)) - (_%lp140412%_ - _%rest140435%_ - _%r140415%_))) + _%r140574%_)) + (_%lp140571%_ + _%rest140594%_ + _%r140574%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140436%_ + _%in140595%_ 'gx#import-set::t)) - (let ((_%xphi140443%_ - (fx+ _%iphi140409%_ + (let ((_%xphi140602%_ + (fx+ _%iphi140568%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in140595%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi140443%_)) - (_%lp140412%_ - _%rest140435%_ + _%xphi140602%_)) + (_%lp140571%_ + _%rest140594%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in140595%_ '1 '#f '#f)) - _%r140415%_)) + _%r140574%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi140443%_)) - (_%lp140412%_ - _%rest140435%_ - (let ((__tmp148995 - (_%import-set-template140303%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in140436%_ - _%iphi140409%_))) + _%xphi140602%_)) + (_%lp140571%_ + _%rest140594%_ + (let ((__tmp149154 + (_%import-set-template140462%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in140595%_ + _%iphi140568%_))) (declare (not safe)) - (__foldl1 cons _%r140415%_ __tmp148995))) - (_%lp140412%_ _%rest140435%_ _%r140415%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140412%_ - _%rest140435%_ - _%r140415%_))))))) - (if (pair? _%rest140416140424%_) - (let ((_%hd140421140452%_ + (__foldl1 cons _%r140574%_ __tmp149154))) + (_%lp140571%_ _%rest140594%_ _%r140574%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp140571%_ + _%rest140594%_ + _%r140574%_))))))) + (if (pair? _%rest140575140583%_) + (let ((_%hd140580140611%_ (let () (declare (not safe)) - (##car _%rest140416140424%_))) - (_%tl140422140454%_ + (##car _%rest140575140583%_))) + (_%tl140581140613%_ (let () (declare (not safe)) - (##cdr _%rest140416140424%_)))) - (let* ((_%in140457%_ _%hd140421140452%_) - (_%rest140459%_ _%tl140422140454%_)) - (_%K140420140449%_ - _%rest140459%_ - _%in140457%_))) - (_%else140418140432%_)))))))) - (let* ((_%g140305140315%_ - (lambda (_%g140306140312%_) + (##cdr _%rest140575140583%_)))) + (let* ((_%in140616%_ _%hd140580140611%_) + (_%rest140618%_ _%tl140581140613%_)) + (_%K140579140608%_ + _%rest140618%_ + _%in140616%_))) + (_%else140577140591%_)))))))) + (let* ((_%g140464140474%_ + (lambda (_%g140465140471%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140306140312%_)))) - (_%g140304140403%_ - (lambda (_%g140306140318%_) + _%g140465140471%_)))) + (_%g140463140562%_ + (lambda (_%g140465140477%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140306140318%_)) - (let ((_%e140308140320%_ + (gx#stx-pair? _%g140465140477%_)) + (let ((_%e140467140479%_ (let () (declare (not safe)) - (gx#stx-e _%g140306140318%_)))) - (let ((_%hd140309140323%_ + (gx#stx-e _%g140465140477%_)))) + (let ((_%hd140468140482%_ (let () (declare (not safe)) - (##car _%e140308140320%_))) - (_%tl140310140325%_ + (##car _%e140467140479%_))) + (_%tl140469140484%_ (let () (declare (not safe)) - (##cdr _%e140308140320%_)))) - ((lambda (_%L140328%_) - (let ((_%ht140339%_ + (##cdr _%e140467140479%_)))) + ((lambda (_%L140487%_) + (let ((_%ht140498%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp140341%_ ((_%rest140343%_ - _%L140328%_) - (_%loads140344%_ '())) - (letrec ((_%K140346%_ - (lambda (_%ctx140396%_ - _%rest140397%_) - (let ((_%id140399%_ + (let _%lp140500%_ ((_%rest140502%_ + _%L140487%_) + (_%loads140503%_ '())) + (letrec ((_%K140505%_ + (lambda (_%ctx140555%_ + _%rest140556%_) + (let ((_%id140558%_ (##structure-ref - _%ctx140396%_ + _%ctx140555%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht140339%_ - _%id140399%_)) - (_%lp140341%_ - _%rest140397%_ - _%loads140344%_) - (let ((_%rt140401%_ + _%ht140498%_ + _%id140558%_)) + (_%lp140500%_ + _%rest140556%_ + _%loads140503%_) + (let ((_%rt140560%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id140399%_)))) + _%id140558%_)))) (let () (declare (not safe)) (__hash-put! - _%ht140339%_ - _%id140399%_ - _%rt140401%_)) - (_%lp140341%_ - _%rest140397%_ - (cons _%rt140401%_ - _%loads140344%_)))))))) - (let* ((_%rest140347140355%_ - _%rest140343%_) - (_%else140349140367%_ + _%ht140498%_ + _%id140558%_ + _%rt140560%_)) + (_%lp140500%_ + _%rest140556%_ + (cons _%rt140560%_ + _%loads140503%_)))))))) + (let* ((_%rest140506140514%_ + _%rest140502%_) + (_%else140508140526%_ (lambda () (cons 'begin - (let ((__tmp148997 - (lambda (_%g140362140364%_) + (let ((__tmp149156 + (lambda (_%g140521140523%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g140362140364%_))) - (__tmp148996 (reverse _%loads140344%_))) + _%g140521140523%_))) + (__tmp149155 (reverse _%loads140503%_))) (declare (not safe)) - (##map __tmp148997 __tmp148996))))) + (##map __tmp149156 __tmp149155))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140351140384%_ - (lambda (_%rest140370%_ - _%in140371%_) + (_%K140510140543%_ + (lambda (_%rest140529%_ + _%in140530%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140371%_ + _%in140530%_ 'gx#module-context::t)) - (_%K140346%_ - _%in140371%_ - _%rest140370%_) + (_%K140505%_ + _%in140530%_ + _%rest140529%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140371%_ + _%in140530%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in140371%_ + _%in140530%_ '3 '#f '#f))) - (_%K140346%_ + (_%K140505%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in140371%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in140530%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest140370%_) - (_%lp140341%_ _%rest140370%_ _%loads140344%_)) + _%rest140529%_) + (_%lp140500%_ _%rest140529%_ _%loads140503%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140371%_ + _%in140530%_ 'gx#import-set::t)) - (let ((_%phi140376%_ + (let ((_%phi140535%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140371%_ + _%in140530%_ '2 '#f '#f)))) - (if (fxzero? _%phi140376%_) - (_%K140346%_ + (if (fxzero? _%phi140535%_) + (_%K140505%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140371%_ + _%in140530%_ '1 '#f '#f)) - _%rest140370%_) - (if (fxpositive? _%phi140376%_) - (let ((_%deps140380%_ - (_%import-set-template140303%_ - _%in140371%_ + _%rest140529%_) + (if (fxpositive? _%phi140535%_) + (let ((_%deps140539%_ + (_%import-set-template140462%_ + _%in140530%_ '0))) - (_%lp140341%_ + (_%lp140500%_ (let () (declare (not safe)) (__foldl1 cons - _%rest140370%_ - _%deps140380%_)) - _%loads140344%_)) - (_%lp140341%_ _%rest140370%_ _%loads140344%_)))) + _%rest140529%_ + _%deps140539%_)) + _%loads140503%_)) + (_%lp140500%_ _%rest140529%_ _%loads140503%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx140301%_ - _%in140371%_)))))))) + _%stx140460%_ + _%in140530%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest140347140355%_) - (let ((_%hd140352140387%_ + (if (pair? _%rest140506140514%_) + (let ((_%hd140511140546%_ (let () (declare (not safe)) - (##car _%rest140347140355%_))) - (_%tl140353140389%_ + (##car _%rest140506140514%_))) + (_%tl140512140548%_ (let () (declare (not safe)) - (##cdr _%rest140347140355%_)))) - (let* ((_%in140392%_ - _%hd140352140387%_) - (_%rest140394%_ - _%tl140353140389%_)) - (_%K140351140384%_ - _%rest140394%_ - _%in140392%_))) - (_%else140349140367%_))))))) - _%tl140310140325%_))) - (_%g140305140315%_ _%g140306140318%_))))) - (_%g140304140403%_ _%stx140301%_))))) + (##cdr _%rest140506140514%_)))) + (let* ((_%in140551%_ + _%hd140511140546%_) + (_%rest140553%_ + _%tl140512140548%_)) + (_%K140510140543%_ + _%rest140553%_ + _%in140551%_))) + (_%else140508140526%_))))))) + _%tl140469140484%_))) + (_%g140464140474%_ _%g140465140477%_))))) + (_%g140463140562%_ _%stx140460%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self140113%_ _%stx140114%_) - (letrec ((_%add-lift!140116%_ - (lambda (_%expr140298%_) + (lambda (_%self140272%_ _%stx140273%_) + (letrec ((_%add-lift!140275%_ + (lambda (_%expr140457%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr140298%_ + (cons _%expr140457%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote140117%_ - (lambda (_%id140295%_ _%marks140296%_) + (_%generate-syntax-quote140276%_ + (lambda (_%id140454%_ _%marks140455%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id140295%_ '())) + (cons (cons 'quote (cons _%id140454%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks140296%_ + (cons _%marks140455%_ '())))))))) - (_%generate-simple140118%_ - (lambda (_%stxq140290%_) - (let ((_%gid140292%_ + (_%generate-simple140277%_ + (lambda (_%stxq140449%_) + (let ((_%gid140451%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140293%_ - (gxc#generate-runtime-identifier _%stxq140290%_))) - (_%add-lift!140116%_ + (_%qid140452%_ + (gxc#generate-runtime-identifier _%stxq140449%_))) + (_%add-lift!140275%_ (cons 'define - (cons _%gid140292%_ - (cons (_%generate-syntax-quote140117%_ - _%qid140293%_ + (cons _%gid140451%_ + (cons (_%generate-syntax-quote140276%_ + _%qid140452%_ ''()) '())))) - (let ((__tmp148998 + (let ((__tmp149157 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp148998 _%stxq140290%_ _%gid140292%_)) - _%gid140292%_))) - (_%generate-serialized140119%_ - (lambda (_%stxq140280%_ _%marks140281%_) - (let* ((_%mark-refs140283%_ - (map _%generate-mark140120%_ _%marks140281%_)) - (_%gid140285%_ + (hash-put! __tmp149157 _%stxq140449%_ _%gid140451%_)) + _%gid140451%_))) + (_%generate-serialized140278%_ + (lambda (_%stxq140439%_ _%marks140440%_) + (let* ((_%mark-refs140442%_ + (map _%generate-mark140279%_ _%marks140440%_)) + (_%gid140444%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140287%_ - (gxc#generate-runtime-identifier _%stxq140280%_))) - (_%add-lift!140116%_ + (_%qid140446%_ + (gxc#generate-runtime-identifier _%stxq140439%_))) + (_%add-lift!140275%_ (cons 'define - (cons _%gid140285%_ - (cons (_%generate-syntax-quote140117%_ - _%qid140287%_ - (cons 'list _%mark-refs140283%_)) + (cons _%gid140444%_ + (cons (_%generate-syntax-quote140276%_ + _%qid140446%_ + (cons 'list _%mark-refs140442%_)) '())))) - (let ((__tmp148999 + (let ((__tmp149158 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp148999 _%stxq140280%_ _%gid140285%_)) - _%gid140285%_))) - (_%generate-mark140120%_ - (lambda (_%mark140265%_) - (let ((_%$e140267%_ - (let ((__tmp149000 + (hash-put! __tmp149158 _%stxq140439%_ _%gid140444%_)) + _%gid140444%_))) + (_%generate-mark140279%_ + (lambda (_%mark140424%_) + (let ((_%$e140426%_ + (let ((__tmp149159 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp149000 _%mark140265%_)))) - (if _%$e140267%_ - _%$e140267%_ - (let* ((_%gid140271%_ + (hash-get __tmp149159 _%mark140424%_)))) + (if _%$e140426%_ + _%$e140426%_ + (let* ((_%gid140430%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr140273%_ - (_%serialize-mark140121%_ _%mark140265%_)) - (_%ctx140275%_ - (let ((__tmp149001 + (_%repr140432%_ + (_%serialize-mark140280%_ _%mark140424%_)) + (_%ctx140434%_ + (let ((__tmp149160 (##structure-ref - _%mark140265%_ + _%mark140424%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp149001))) - (_%ctx-ref140277%_ - (if (eq? _%ctx140275%_ + (gx#core-context-top__1 __tmp149160))) + (_%ctx-ref140436%_ + (if (eq? _%ctx140434%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref140122%_ - _%ctx140275%_) + (cons (_%context-ref140281%_ + _%ctx140434%_) '())) '()))))) - (let ((__tmp149002 + (let ((__tmp149161 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp149002 - _%mark140265%_ - _%gid140271%_)) - (_%add-lift!140116%_ + __tmp149161 + _%mark140424%_ + _%gid140430%_)) + (_%add-lift!140275%_ (cons 'define - (cons _%gid140271%_ + (cons _%gid140430%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr140273%_ '())) - (cons _%ctx-ref140277%_ '()))) + (cons _%repr140432%_ '())) + (cons _%ctx-ref140436%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid140271%_))))) - (_%serialize-mark140121%_ - (lambda (_%mark140212%_) - (letrec ((_%quote-e140214%_ - (lambda (_%sym140263%_) + _%gid140430%_))))) + (_%serialize-mark140280%_ + (lambda (_%mark140371%_) + (letrec ((_%quote-e140373%_ + (lambda (_%sym140422%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym140263%_)) - _%sym140263%_ + (interned-symbol? _%sym140422%_)) + _%sym140422%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym140263%_)))))) - (let* ((_%mark140215140224%_ _%mark140212%_) - (_%E140217140228%_ + _%sym140422%_)))))) + (let* ((_%mark140374140383%_ _%mark140371%_) + (_%E140376140387%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark140215140224%_ + _%mark140374140383%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K140218140240%_ - (lambda (_%trace140231%_ - _%phi140232%_ - _%ctx140233%_ - _%subst140234%_) - (let ((_%subs140236%_ - (if _%subst140234%_ + (_%K140377140399%_ + (lambda (_%trace140390%_ + _%phi140391%_ + _%ctx140392%_ + _%subst140393%_) + (let ((_%subs140395%_ + (if _%subst140393%_ (let () (declare (not safe)) - (hash->list _%subst140234%_)) + (hash->list _%subst140393%_)) '()))) - (cons _%phi140232%_ - (map (lambda (_%pair140238%_) - (cons (_%quote-e140214%_ - (car _%pair140238%_)) - (_%quote-e140214%_ - (cdr _%pair140238%_)))) - _%subs140236%_)))))) + (cons _%phi140391%_ + (map (lambda (_%pair140397%_) + (cons (_%quote-e140373%_ + (car _%pair140397%_)) + (_%quote-e140373%_ + (cdr _%pair140397%_)))) + _%subs140395%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark140215140224%_ + _%mark140374140383%_ 'gx#expander-mark::t)) - (let* ((_%e140219140243%_ + (let* ((_%e140378140402%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark140374140383%_ '1 '#f '#f))) - (_%subst140246%_ _%e140219140243%_) - (_%e140220140248%_ + (_%subst140405%_ _%e140378140402%_) + (_%e140379140407%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark140374140383%_ '2 '#f '#f))) - (_%ctx140251%_ _%e140220140248%_) - (_%e140221140253%_ + (_%ctx140410%_ _%e140379140407%_) + (_%e140380140412%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark140374140383%_ '3 '#f '#f))) - (_%phi140256%_ _%e140221140253%_) - (_%e140222140258%_ + (_%phi140415%_ _%e140380140412%_) + (_%e140381140417%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark140374140383%_ '4 '#f '#f))) - (_%trace140261%_ _%e140222140258%_)) - (_%K140218140240%_ - _%trace140261%_ - _%phi140256%_ - _%ctx140251%_ - _%subst140246%_)) - (_%E140217140228%_)))))) - (_%context-ref140122%_ - (lambda (_%ctx140199%_) - (if (let ((__tmp149003 + (_%trace140420%_ _%e140381140417%_)) + (_%K140377140399%_ + _%trace140420%_ + _%phi140415%_ + _%ctx140410%_ + _%subst140405%_)) + (_%E140376140387%_)))))) + (_%context-ref140281%_ + (lambda (_%ctx140358%_) + (if (let ((__tmp149162 (##structure-ref - _%ctx140199%_ + _%ctx140358%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp149003 + __tmp149162 'gx#module-context::t)) - (let ((_%ctx-ref140201%_ - (_%context-ref-nested140124%_ _%ctx140199%_)) - (_%ctx-origin140202%_ - (_%context-ref-origin140123%_ _%ctx140199%_)) - (_%origin140203%_ - (_%context-ref-origin140123%_ + (let ((_%ctx-ref140360%_ + (_%context-ref-nested140283%_ _%ctx140358%_)) + (_%ctx-origin140361%_ + (_%context-ref-origin140282%_ _%ctx140358%_)) + (_%origin140362%_ + (_%context-ref-origin140282%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin140203%_ _%ctx-origin140202%_) - (let ((_%ref140205%_ - (_%context-ref-nested140124%_ + (if (eq? _%origin140362%_ _%ctx-origin140361%_) + (let ((_%ref140364%_ + (_%context-ref-nested140283%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp140207%_ ((_%ref140209%_ - (cdr _%ref140205%_)) - (_%ctx-ref140210%_ - (cdr _%ctx-ref140201%_))) - (if (and (pair? _%ref140209%_) + (let _%lp140366%_ ((_%ref140368%_ + (cdr _%ref140364%_)) + (_%ctx-ref140369%_ + (cdr _%ctx-ref140360%_))) + (if (and (pair? _%ref140368%_) (eq? (let () (declare (not safe)) - (##car _%ref140209%_)) - (car _%ctx-ref140210%_))) - (_%lp140207%_ - (cdr _%ref140209%_) - (cdr _%ctx-ref140210%_)) - (cons '#f _%ctx-ref140210%_)))) - _%ctx-ref140201%_)) - (let ((__tmp149004 + (##car _%ref140368%_)) + (car _%ctx-ref140369%_))) + (_%lp140366%_ + (cdr _%ref140368%_) + (cdr _%ctx-ref140369%_)) + (cons '#f _%ctx-ref140369%_)))) + _%ctx-ref140360%_)) + (let ((__tmp149163 (##structure-ref - _%ctx140199%_ + _%ctx140358%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149004))))) - (_%context-ref-origin140123%_ - (lambda (_%ctx140191%_) - (let _%lp140193%_ ((_%ctx140195%_ _%ctx140191%_)) - (let ((_%super140197%_ + (make-symbol__1 '":" __tmp149163))))) + (_%context-ref-origin140282%_ + (lambda (_%ctx140350%_) + (let _%lp140352%_ ((_%ctx140354%_ _%ctx140350%_)) + (let ((_%super140356%_ (##structure-ref - _%ctx140195%_ + _%ctx140354%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140197%_ + _%super140356%_ 'gx#module-context::t)) - (_%lp140193%_ _%super140197%_) - _%ctx140195%_))))) - (_%context-ref-nested140124%_ - (lambda (_%ctx140182%_) - (let _%lp140184%_ ((_%ctx140186%_ _%ctx140182%_) - (_%r140187%_ '())) - (let ((_%super140189%_ + (_%lp140352%_ _%super140356%_) + _%ctx140354%_))))) + (_%context-ref-nested140283%_ + (lambda (_%ctx140341%_) + (let _%lp140343%_ ((_%ctx140345%_ _%ctx140341%_) + (_%r140346%_ '())) + (let ((_%super140348%_ (##structure-ref - _%ctx140186%_ + _%ctx140345%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140189%_ + _%super140348%_ 'gx#module-context::t)) - (_%lp140184%_ - _%super140189%_ + (_%lp140343%_ + _%super140348%_ (cons (car (##structure-ref - _%ctx140186%_ + _%ctx140345%_ '7 gx#module-context::t '#f)) - _%r140187%_)) - (cons (let ((__tmp149005 + _%r140346%_)) + (cons (let ((__tmp149164 (##structure-ref - _%ctx140186%_ + _%ctx140345%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149005)) - _%r140187%_))))))) - (let* ((_%g140126140139%_ - (lambda (_%g140127140136%_) + (make-symbol__1 '":" __tmp149164)) + _%r140346%_))))))) + (let* ((_%g140285140298%_ + (lambda (_%g140286140295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140127140136%_)))) - (_%g140125140179%_ - (lambda (_%g140127140142%_) + _%g140286140295%_)))) + (_%g140284140338%_ + (lambda (_%g140286140301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140127140142%_)) - (let ((_%e140129140144%_ + (gx#stx-pair? _%g140286140301%_)) + (let ((_%e140288140303%_ (let () (declare (not safe)) - (gx#stx-e _%g140127140142%_)))) - (let ((_%hd140130140147%_ + (gx#stx-e _%g140286140301%_)))) + (let ((_%hd140289140306%_ (let () (declare (not safe)) - (##car _%e140129140144%_))) - (_%tl140131140149%_ + (##car _%e140288140303%_))) + (_%tl140290140308%_ (let () (declare (not safe)) - (##cdr _%e140129140144%_)))) + (##cdr _%e140288140303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140131140149%_)) - (let ((_%e140132140152%_ + (gx#stx-pair? _%tl140290140308%_)) + (let ((_%e140291140311%_ (let () (declare (not safe)) - (gx#stx-e _%tl140131140149%_)))) - (let ((_%hd140133140155%_ + (gx#stx-e _%tl140290140308%_)))) + (let ((_%hd140292140314%_ (let () (declare (not safe)) - (##car _%e140132140152%_))) - (_%tl140134140157%_ + (##car _%e140291140311%_))) + (_%tl140293140316%_ (let () (declare (not safe)) - (##cdr _%e140132140152%_)))) + (##cdr _%e140291140311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140134140157%_)) - ((lambda (_%L140160%_) + (gx#stx-null? _%tl140293140316%_)) + ((lambda (_%L140319%_) (if (let () (declare (not safe)) - (gx#identifier? _%L140160%_)) - (let ((_%$e140173%_ - (let ((__tmp149006 + (gx#identifier? _%L140319%_)) + (let ((_%$e140332%_ + (let ((__tmp149165 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp149006 _%L140160%_)))) + (hash-get __tmp149165 _%L140319%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e140173%_ - _%$e140173%_ - (let ((_%marks140177%_ + (if _%$e140332%_ + _%$e140332%_ + (let ((_%marks140336%_ (##direct-structure-ref - _%L140160%_ + _%L140319%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks140177%_) - (_%generate-simple140118%_ - _%L140160%_) - (_%generate-serialized140119%_ - _%L140160%_ - _%marks140177%_))))) + (if (null? _%marks140336%_) + (_%generate-simple140277%_ + _%L140319%_) + (_%generate-serialized140278%_ + _%L140319%_ + _%marks140336%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L140160%_)))) - _%hd140133140155%_) - (_%g140126140139%_ - _%g140127140142%_)))) - (_%g140126140139%_ _%g140127140142%_)))) - (_%g140126140139%_ _%g140127140142%_))))) - (_%g140125140179%_ _%stx140114%_))))) + _%L140319%_)))) + _%hd140292140314%_) + (_%g140285140298%_ + _%g140286140301%_)))) + (_%g140285140298%_ _%g140286140301%_)))) + (_%g140285140298%_ _%g140286140301%_))))) + (_%g140284140338%_ _%stx140273%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self140045%_ _%stx140046%_) - (let* ((_%g140048140065%_ - (lambda (_%g140049140062%_) + (lambda (_%self140204%_ _%stx140205%_) + (let* ((_%g140207140224%_ + (lambda (_%g140208140221%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140049140062%_)))) - (_%g140047140110%_ - (lambda (_%g140049140068%_) + _%g140208140221%_)))) + (_%g140206140269%_ + (lambda (_%g140208140227%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140049140068%_)) - (let ((_%e140052140070%_ + (gx#stx-pair? _%g140208140227%_)) + (let ((_%e140211140229%_ (let () (declare (not safe)) - (gx#stx-e _%g140049140068%_)))) - (let ((_%hd140053140073%_ + (gx#stx-e _%g140208140227%_)))) + (let ((_%hd140212140232%_ (let () (declare (not safe)) - (##car _%e140052140070%_))) - (_%tl140054140075%_ + (##car _%e140211140229%_))) + (_%tl140213140234%_ (let () (declare (not safe)) - (##cdr _%e140052140070%_)))) + (##cdr _%e140211140229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140054140075%_)) - (let ((_%e140055140078%_ + (gx#stx-pair? _%tl140213140234%_)) + (let ((_%e140214140237%_ (let () (declare (not safe)) - (gx#stx-e _%tl140054140075%_)))) - (let ((_%hd140056140081%_ + (gx#stx-e _%tl140213140234%_)))) + (let ((_%hd140215140240%_ (let () (declare (not safe)) - (##car _%e140055140078%_))) - (_%tl140057140083%_ + (##car _%e140214140237%_))) + (_%tl140216140242%_ (let () (declare (not safe)) - (##cdr _%e140055140078%_)))) + (##cdr _%e140214140237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140057140083%_)) - (let ((_%e140058140086%_ + (gx#stx-pair? _%tl140216140242%_)) + (let ((_%e140217140245%_ (let () (declare (not safe)) - (gx#stx-e _%tl140057140083%_)))) - (let ((_%hd140059140089%_ + (gx#stx-e _%tl140216140242%_)))) + (let ((_%hd140218140248%_ (let () (declare (not safe)) - (##car _%e140058140086%_))) - (_%tl140060140091%_ + (##car _%e140217140245%_))) + (_%tl140219140250%_ (let () (declare (not safe)) - (##cdr _%e140058140086%_)))) + (##cdr _%e140217140245%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140060140091%_)) - ((lambda (_%L140094%_ - _%L140095%_) + _%tl140219140250%_)) + ((lambda (_%L140253%_ + _%L140254%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L140095%_)) + (gx#stx-e _%L140254%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140045%_ _%L140094%_)) + (gxc#compile-e__1 _%self140204%_ _%L140253%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140059140089%_ - _%hd140056140081%_) - (_%g140048140065%_ - _%g140049140068%_)))) - (_%g140048140065%_ _%g140049140068%_)))) - (_%g140048140065%_ _%g140049140068%_)))) - (_%g140048140065%_ _%g140049140068%_))))) - (_%g140047140110%_ _%stx140046%_)))) + _%hd140218140248%_ + _%hd140215140240%_) + (_%g140207140224%_ + _%g140208140227%_)))) + (_%g140207140224%_ _%g140208140227%_)))) + (_%g140207140224%_ _%g140208140227%_)))) + (_%g140207140224%_ _%g140208140227%_))))) + (_%g140206140269%_ _%stx140205%_)))) (define gxc#generate-meta-begin% - (lambda (_%self139994%_ _%stx139995%_) - (let* ((_%g139997140007%_ - (lambda (_%g139998140004%_) + (lambda (_%self140153%_ _%stx140154%_) + (let* ((_%g140156140166%_ + (lambda (_%g140157140163%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139998140004%_)))) - (_%g139996140042%_ - (lambda (_%g139998140010%_) + _%g140157140163%_)))) + (_%g140155140201%_ + (lambda (_%g140157140169%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139998140010%_)) - (let ((_%e140000140012%_ + (gx#stx-pair? _%g140157140169%_)) + (let ((_%e140159140171%_ (let () (declare (not safe)) - (gx#stx-e _%g139998140010%_)))) - (let ((_%hd140001140015%_ + (gx#stx-e _%g140157140169%_)))) + (let ((_%hd140160140174%_ (let () (declare (not safe)) - (##car _%e140000140012%_))) - (_%tl140002140017%_ + (##car _%e140159140171%_))) + (_%tl140161140176%_ (let () (declare (not safe)) - (##cdr _%e140000140012%_)))) - ((lambda (_%L140020%_) - (let* ((_%c-body140034%_ - (map (lambda (_%g140029140031%_) + (##cdr _%e140159140171%_)))) + ((lambda (_%L140179%_) + (let* ((_%c-body140193%_ + (map (lambda (_%g140188140190%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self139994%_ - _%g140029140031%_))) - _%L140020%_)) - (_%c-body140039%_ - (let ((__tmp149007 - (lambda (_%$obj140036%_) - (not (eq? _%$obj140036%_ + _%self140153%_ + _%g140188140190%_))) + _%L140179%_)) + (_%c-body140198%_ + (let ((__tmp149166 + (lambda (_%$obj140195%_) + (not (eq? _%$obj140195%_ '#!void))))) (declare (not safe)) (##filter - __tmp149007 - _%c-body140034%_)))) - (cons '%#begin _%c-body140039%_))) - _%tl140002140017%_))) - (_%g139997140007%_ _%g139998140010%_))))) - (_%g139996140042%_ _%stx139995%_)))) + __tmp149166 + _%c-body140193%_)))) + (cons '%#begin _%c-body140198%_))) + _%tl140161140176%_))) + (_%g140156140166%_ _%g140157140169%_))))) + (_%g140155140201%_ _%stx140154%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self139899%_ _%stx139900%_) - (let* ((_%g139902139912%_ - (lambda (_%g139903139909%_) + (lambda (_%self140058%_ _%stx140059%_) + (let* ((_%g140061140071%_ + (lambda (_%g140062140068%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139903139909%_)))) - (_%g139901139991%_ - (lambda (_%g139903139915%_) + _%g140062140068%_)))) + (_%g140060140150%_ + (lambda (_%g140062140074%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139903139915%_)) - (let ((_%e139905139917%_ + (gx#stx-pair? _%g140062140074%_)) + (let ((_%e140064140076%_ (let () (declare (not safe)) - (gx#stx-e _%g139903139915%_)))) - (let ((_%hd139906139920%_ + (gx#stx-e _%g140062140074%_)))) + (let ((_%hd140065140079%_ (let () (declare (not safe)) - (##car _%e139905139917%_))) - (_%tl139907139922%_ + (##car _%e140064140076%_))) + (_%tl140066140081%_ (let () (declare (not safe)) - (##cdr _%e139905139917%_)))) - ((lambda (_%L139925%_) - (let* ((_%phi139935%_ - (let ((__tmp149008 + (##cdr _%e140064140076%_)))) + ((lambda (_%L140084%_) + (let* ((_%phi140094%_ + (let ((__tmp149167 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149008 '1))) - (_%block139937%_ + (##fx+ __tmp149167 '1))) + (_%block140096%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139899%_ 'state)) - _%phi139935%_)) - (_%compiled139940%_ - (let ((__tmp149009 + (slot-ref__0 _%self140058%_ 'state)) + _%phi140094%_)) + (_%compiled140099%_ + (let ((__tmp149168 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self139899%_ + _%self140058%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L139925%_))))) + _%L140084%_))))) (declare (not safe)) (__call-with-parameters - __tmp149009 + __tmp149168 gx#current-expander-phi - _%phi139935%_))) - (_%g139943139953%_ - (lambda (_%g139944139950%_) + _%phi140094%_))) + (_%g140102140112%_ + (lambda (_%g140103140109%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139944139950%_)))) - (_%g139942139988%_ - (lambda (_%g139944139956%_) + _%g140103140109%_)))) + (_%g140101140147%_ + (lambda (_%g140103140115%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139944139956%_)) - (let ((_%e139946139958%_ + (gx#stx-pair? _%g140103140115%_)) + (let ((_%e140105140117%_ (let () (declare (not safe)) (gx#stx-e - _%g139944139956%_)))) - (let ((_%hd139947139961%_ + _%g140103140115%_)))) + (let ((_%hd140106140120%_ (let () (declare (not safe)) - (##car _%e139946139958%_))) - (_%tl139948139963%_ + (##car _%e140105140117%_))) + (_%tl140107140122%_ (let () (declare (not safe)) - (##cdr _%e139946139958%_)))) + (##cdr _%e140105140117%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139947139961%_)) + _%hd140106140120%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd139947139961%_)) - ((lambda (_%L139966%_) - (let ((_%c-body139983%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj139980%_) - (not (eq? _%$obj139980%_ '#!void))) - _%L139966%_))) - (if _%block139937%_ + _%hd140106140120%_)) + ((lambda (_%L140125%_) + (let ((_%c-body140142%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj140139%_) + (not (eq? _%$obj140139%_ '#!void))) + _%L140125%_))) + (if _%block140096%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block139937%_ + (cons _%block140096%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body139983%_)) - (if (null? _%c-body139983%_) + _%c-body140142%_)) + (if (null? _%c-body140142%_) '#!void - (cons '%#begin-syntax _%c-body139983%_))))) - _%tl139948139963%_) - (_%g139943139953%_ _%g139944139956%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139943139953%_ - _%g139944139956%_)))) - (_%g139943139953%_ - _%g139944139956%_))))) - (_%g139942139988%_ _%compiled139940%_))) - _%tl139907139922%_))) - (_%g139902139912%_ _%g139903139915%_))))) - (_%g139901139991%_ _%stx139900%_)))) + (cons '%#begin-syntax _%c-body140142%_))))) + _%tl140107140122%_) + (_%g140102140112%_ _%g140103140115%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140102140112%_ + _%g140103140115%_)))) + (_%g140102140112%_ + _%g140103140115%_))))) + (_%g140101140147%_ _%compiled140099%_))) + _%tl140066140081%_))) + (_%g140061140071%_ _%g140062140074%_))))) + (_%g140060140150%_ _%stx140059%_)))) (define gxc#generate-meta-module% - (lambda (_%self139830%_ _%stx139831%_) + (lambda (_%self139989%_ _%stx139990%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139830%_ 'state))) - (let* ((_%g139833139847%_ - (lambda (_%g139834139844%_) + (let () (declare (not safe)) (slot-ref__0 _%self139989%_ 'state))) + (let* ((_%g139992140006%_ + (lambda (_%g139993140003%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139834139844%_)))) - (_%g139832139896%_ - (lambda (_%g139834139850%_) + _%g139993140003%_)))) + (_%g139991140055%_ + (lambda (_%g139993140009%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139834139850%_)) - (let ((_%e139837139852%_ + (gx#stx-pair? _%g139993140009%_)) + (let ((_%e139996140011%_ (let () (declare (not safe)) - (gx#stx-e _%g139834139850%_)))) - (let ((_%hd139838139855%_ + (gx#stx-e _%g139993140009%_)))) + (let ((_%hd139997140014%_ (let () (declare (not safe)) - (##car _%e139837139852%_))) - (_%tl139839139857%_ + (##car _%e139996140011%_))) + (_%tl139998140016%_ (let () (declare (not safe)) - (##cdr _%e139837139852%_)))) + (##cdr _%e139996140011%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139839139857%_)) - (let ((_%e139840139860%_ + (gx#stx-pair? _%tl139998140016%_)) + (let ((_%e139999140019%_ (let () (declare (not safe)) - (gx#stx-e _%tl139839139857%_)))) - (let ((_%hd139841139863%_ + (gx#stx-e _%tl139998140016%_)))) + (let ((_%hd140000140022%_ (let () (declare (not safe)) - (##car _%e139840139860%_))) - (_%tl139842139865%_ + (##car _%e139999140019%_))) + (_%tl140001140024%_ (let () (declare (not safe)) - (##cdr _%e139840139860%_)))) - ((lambda (_%L139868%_ _%L139869%_) - (let ((_%key139882%_ + (##cdr _%e139999140019%_)))) + ((lambda (_%L140027%_ _%L140028%_) + (let ((_%key140041%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L139869%_)))) + _%L140028%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key139882%_)) + (interned-symbol? _%key140041%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx139831%_ - _%L139869%_ - _%key139882%_))) - (let* ((_%ctx139884%_ + _%stx139990%_ + _%L140028%_ + _%key140041%_))) + (let* ((_%ctx140043%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L139869%_))) - (_%code139887%_ - (let ((__tmp149010 + _%L140028%_))) + (_%code140046%_ + (let ((__tmp149169 (lambda () - (let ((__tmp149011 + (let ((__tmp149170 (##structure-ref - _%ctx139884%_ + _%ctx140043%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self139830%_ - __tmp149011))))) + _%self139989%_ + __tmp149170))))) (declare (not safe)) (__call-with-parameters - __tmp149010 + __tmp149169 gx#current-expander-context - _%ctx139884%_))) - (_%rt139889%_ - (let ((__tmp149012 + _%ctx140043%_))) + (_%rt140048%_ + (let ((__tmp149171 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp149012 - _%ctx139884%_))) - (_%loader139891%_ - (if _%rt139889%_ + __tmp149171 + _%ctx140043%_))) + (_%loader140050%_ + (if _%rt140048%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt139889%_ '())) + (cons (cons '%#quote (cons _%rt140048%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid139893%_ + (_%modid140052%_ (let () (declare (not safe)) - (gx#stx-e _%L139869%_)))) + (gx#stx-e _%L140028%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self139830%_ + _%self139989%_ 'state))) (cons '%#module - (cons _%modid139893%_ - (cons _%code139887%_ - _%loader139891%_)))))) - _%tl139842139865%_ - _%hd139841139863%_))) - (_%g139833139847%_ _%g139834139850%_)))) - (_%g139833139847%_ _%g139834139850%_))))) - (_%g139832139896%_ _%stx139831%_)))) + (cons _%modid140052%_ + (cons _%code140046%_ + _%loader140050%_)))))) + _%tl140001140024%_ + _%hd140000140022%_))) + (_%g139992140006%_ _%g139993140009%_)))) + (_%g139992140006%_ _%g139993140009%_))))) + (_%g139991140055%_ _%stx139990%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx139817%_ _%context-chain139818%_) - (let _%lp139820%_ ((_%ctx139822%_ _%ctx139817%_) (_%path139823%_ '())) - (let ((_%super139825%_ - (##structure-ref _%ctx139822%_ '3 gx#phi-context::t '#f))) - (if (memq _%super139825%_ _%context-chain139818%_) + (lambda (_%ctx139976%_ _%context-chain139977%_) + (let _%lp139979%_ ((_%ctx139981%_ _%ctx139976%_) (_%path139982%_ '())) + (let ((_%super139984%_ + (##structure-ref _%ctx139981%_ '3 gx#phi-context::t '#f))) + (if (memq _%super139984%_ _%context-chain139977%_) (cons '#f (cons (car (##structure-ref - _%ctx139822%_ + _%ctx139981%_ '7 gx#module-context::t '#f)) - _%path139823%_)) + _%path139982%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super139825%_ + _%super139984%_ 'gx#module-context::t)) - (_%lp139820%_ - _%super139825%_ + (_%lp139979%_ + _%super139984%_ (cons (car (##structure-ref - _%ctx139822%_ + _%ctx139981%_ '7 gx#module-context::t '#f)) - _%path139823%_)) - (cons (let ((__tmp149013 + _%path139982%_)) + (cons (let ((__tmp149172 (##structure-ref - _%ctx139822%_ + _%ctx139981%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149013)) - _%path139823%_))))))) + (make-symbol__1 '":" __tmp149172)) + _%path139982%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp139810%_ ((_%ctx139812%_ + (let _%lp139969%_ ((_%ctx139971%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r139813%_ '())) + (_%r139972%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx139812%_ 'gx#module-context::t)) - (_%lp139810%_ + (##structure-instance-of? _%ctx139971%_ 'gx#module-context::t)) + (_%lp139969%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx139812%_ '3 '#f '#f)) - (cons _%ctx139812%_ _%r139813%_)) - _%r139813%_)))) + (##unchecked-structure-ref _%ctx139971%_ '3 '#f '#f)) + (cons _%ctx139971%_ _%r139972%_)) + _%r139972%_)))) (define gxc#generate-meta-import% - (lambda (_%self139573%_ _%stx139574%_) - (letrec* ((_%context-chain139576%_ (gxc#current-context-chain)) - (_%make-import-spec139577%_ - (lambda (_%in139746%_) - (let* ((_%in139747139759%_ _%in139746%_) - (_%E139749139763%_ + (lambda (_%self139732%_ _%stx139733%_) + (letrec* ((_%context-chain139735%_ (gxc#current-context-chain)) + (_%make-import-spec139736%_ + (lambda (_%in139905%_) + (let* ((_%in139906139918%_ _%in139905%_) + (_%E139908139922%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in139747139759%_ + _%in139906139918%_ '((module-import (module-export src-ctx @@ -13153,390 +13153,390 @@ name phi)))) '#!void)) - (_%K139750139773%_ - (lambda (_%phi139766%_ - _%name139767%_ - _%src-name139768%_ - _%src-phi139769%_ - _%src-key139770%_ - _%src-ctx139771%_) - (cons _%phi139766%_ + (_%K139909139932%_ + (lambda (_%phi139925%_ + _%name139926%_ + _%src-name139927%_ + _%src-phi139928%_ + _%src-key139929%_ + _%src-ctx139930%_) + (cons _%phi139925%_ (cons (gxc#generate-runtime-identifier-key - _%name139767%_) - (cons _%src-phi139769%_ + _%name139926%_) + (cons _%src-phi139928%_ (cons (gxc#generate-runtime-identifier-key - _%src-name139768%_) + _%src-name139927%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139747139759%_ + _%in139906139918%_ 'gx#module-import::t)) - (let ((_%e139751139776%_ + (let ((_%e139910139935%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139747139759%_ + _%in139906139918%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139751139776%_ + _%e139910139935%_ 'gx#module-export::t)) - (let* ((_%e139754139779%_ + (let* ((_%e139913139938%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e139910139935%_ '1 '#f '#f))) - (_%src-ctx139782%_ _%e139754139779%_) - (_%e139755139784%_ + (_%src-ctx139941%_ _%e139913139938%_) + (_%e139914139943%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e139910139935%_ '2 '#f '#f))) - (_%src-key139787%_ _%e139755139784%_) - (_%e139756139789%_ + (_%src-key139946%_ _%e139914139943%_) + (_%e139915139948%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e139910139935%_ '3 '#f '#f))) - (_%src-phi139792%_ _%e139756139789%_) - (_%e139757139794%_ + (_%src-phi139951%_ _%e139915139948%_) + (_%e139916139953%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e139910139935%_ '4 '#f '#f))) - (_%src-name139797%_ _%e139757139794%_) - (_%e139752139799%_ + (_%src-name139956%_ _%e139916139953%_) + (_%e139911139958%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139747139759%_ + _%in139906139918%_ '2 '#f '#f))) - (_%name139802%_ _%e139752139799%_) - (_%e139753139804%_ + (_%name139961%_ _%e139911139958%_) + (_%e139912139963%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139747139759%_ + _%in139906139918%_ '3 '#f '#f))) - (_%phi139807%_ _%e139753139804%_)) - (_%K139750139773%_ - _%phi139807%_ - _%name139802%_ - _%src-name139797%_ - _%src-phi139792%_ - _%src-key139787%_ - _%src-ctx139782%_)) - (_%E139749139763%_))) - (_%E139749139763%_))))) - (_%make-import-path139578%_ - (lambda (_%ctx139744%_) + (_%phi139966%_ _%e139912139963%_)) + (_%K139909139932%_ + _%phi139966%_ + _%name139961%_ + _%src-name139956%_ + _%src-phi139951%_ + _%src-key139946%_ + _%src-ctx139941%_)) + (_%E139908139922%_))) + (_%E139908139922%_))))) + (_%make-import-path139737%_ + (lambda (_%ctx139903%_) (gxc#generate-meta-import-path - _%ctx139744%_ - _%context-chain139576%_))) - (_%make-import-spec-in139579%_ - (lambda (_%ctx139741%_ _%in139742%_) + _%ctx139903%_ + _%context-chain139735%_))) + (_%make-import-spec-in139738%_ + (lambda (_%ctx139900%_ _%in139901%_) (cons 'spec: - (cons (_%make-import-path139578%_ _%ctx139741%_) - (reverse _%in139742%_)))))) + (cons (_%make-import-path139737%_ _%ctx139900%_) + (reverse _%in139901%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139573%_ 'state))) - (let* ((_%g139581139591%_ - (lambda (_%g139582139588%_) + (let () (declare (not safe)) (slot-ref__0 _%self139732%_ 'state))) + (let* ((_%g139740139750%_ + (lambda (_%g139741139747%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139582139588%_)))) - (_%g139580139738%_ - (lambda (_%g139582139594%_) + _%g139741139747%_)))) + (_%g139739139897%_ + (lambda (_%g139741139753%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139582139594%_)) - (let ((_%e139584139596%_ + (gx#stx-pair? _%g139741139753%_)) + (let ((_%e139743139755%_ (let () (declare (not safe)) - (gx#stx-e _%g139582139594%_)))) - (let ((_%hd139585139599%_ + (gx#stx-e _%g139741139753%_)))) + (let ((_%hd139744139758%_ (let () (declare (not safe)) - (##car _%e139584139596%_))) - (_%tl139586139601%_ + (##car _%e139743139755%_))) + (_%tl139745139760%_ (let () (declare (not safe)) - (##cdr _%e139584139596%_)))) - ((lambda (_%L139604%_) - (let _%lp139615%_ ((_%rest139617%_ _%L139604%_) - (_%current-src139618%_ '#f) - (_%current-in139619%_ '()) - (_%r139620%_ '())) - (let* ((_%rest139621139629%_ _%rest139617%_) - (_%else139623139639%_ + (##cdr _%e139743139755%_)))) + ((lambda (_%L139763%_) + (let _%lp139774%_ ((_%rest139776%_ _%L139763%_) + (_%current-src139777%_ '#f) + (_%current-in139778%_ '()) + (_%r139779%_ '())) + (let* ((_%rest139780139788%_ _%rest139776%_) + (_%else139782139798%_ (lambda () - (let ((_%r139637%_ - (if _%current-src139618%_ - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_) - _%r139620%_))) + (let ((_%r139796%_ + (if _%current-src139777%_ + (cons (_%make-import-spec-in139738%_ + _%current-src139777%_ + _%current-in139778%_) + _%r139779%_) + _%r139779%_))) (cons '%#import - (reverse _%r139637%_))))) - (_%K139625139726%_ - (lambda (_%rest139642%_ _%in139643%_) + (reverse _%r139796%_))))) + (_%K139784139885%_ + (lambda (_%rest139801%_ _%in139802%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139643%_ + _%in139802%_ 'gx#module-import::t)) - (let* ((_%in139645139652%_ - _%in139643%_) - (_%E139647139656%_ + (let* ((_%in139804139811%_ + _%in139802%_) + (_%E139806139815%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139645139652%_ + _%in139804139811%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K139648139664%_ - (lambda (_%src-ctx139659%_) - (if (eq? _%current-src139618%_ _%src-ctx139659%_) - (_%lp139615%_ - _%rest139642%_ - _%current-src139618%_ - (cons (_%make-import-spec139577%_ _%in139643%_) - _%current-in139619%_) - _%r139620%_) - (if _%current-src139618%_ - (_%lp139615%_ - _%rest139642%_ - _%src-ctx139659%_ - (cons (_%make-import-spec139577%_ _%in139643%_) '()) - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_)) - (_%lp139615%_ - _%rest139642%_ - _%src-ctx139659%_ - (cons (_%make-import-spec139577%_ _%in139643%_) '()) - _%r139620%_))))) - (_%e139649139667%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in139645139652%_ '1 '#f '#f)))) + (_%K139807139823%_ + (lambda (_%src-ctx139818%_) + (if (eq? _%current-src139777%_ _%src-ctx139818%_) + (_%lp139774%_ + _%rest139801%_ + _%current-src139777%_ + (cons (_%make-import-spec139736%_ _%in139802%_) + _%current-in139778%_) + _%r139779%_) + (if _%current-src139777%_ + (_%lp139774%_ + _%rest139801%_ + _%src-ctx139818%_ + (cons (_%make-import-spec139736%_ _%in139802%_) '()) + (cons (_%make-import-spec-in139738%_ + _%current-src139777%_ + _%current-in139778%_) + _%r139779%_)) + (_%lp139774%_ + _%rest139801%_ + _%src-ctx139818%_ + (cons (_%make-import-spec139736%_ _%in139802%_) '()) + _%r139779%_))))) + (_%e139808139826%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%in139804139811%_ '1 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139649139667%_ + _%e139808139826%_ 'gx#module-export::t)) - (let* ((_%e139650139670%_ + (let* ((_%e139809139829%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e139649139667%_ + _%e139808139826%_ '1 '#f '#f))) - (_%src-ctx139673%_ _%e139650139670%_)) - (_%K139648139664%_ _%src-ctx139673%_)) + (_%src-ctx139832%_ _%e139809139829%_)) + (_%K139807139823%_ _%src-ctx139832%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E139647139656%_))) + (_%E139806139815%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139643%_ + _%in139802%_ 'gx#import-set::t)) - (let* ((_%phi139676%_ + (let* ((_%phi139835%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139643%_ + _%in139802%_ '2 '#f '#f))) - (_%src139678%_ + (_%src139837%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139643%_ + _%in139802%_ '1 '#f '#f))) - (_%src-in139718%_ - (let* ((_%g139679139688%_ + (_%src-in139877%_ + (let* ((_%g139838139847%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path139578%_ _%src139678%_)) - (_%E139682139692%_ + (_%make-import-path139737%_ _%src139837%_)) + (_%E139841139851%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139679139688%_ + _%g139838139847%_ '([path]) '(path))) '#!void))) - (let ((_%K139684139708%_ - (lambda (_%path139706%_) _%path139706%_)) - (_%K139683139698%_ - (lambda (_%path139696%_) - (cons 'in: _%path139696%_)))) - (if (pair? _%g139679139688%_) - (let ((_%tl139686139713%_ + (let ((_%K139843139867%_ + (lambda (_%path139865%_) _%path139865%_)) + (_%K139842139857%_ + (lambda (_%path139855%_) + (cons 'in: _%path139855%_)))) + (if (pair? _%g139838139847%_) + (let ((_%tl139845139872%_ (let () (declare (not safe)) - (##cdr _%g139679139688%_))) - (_%hd139685139711%_ + (##cdr _%g139838139847%_))) + (_%hd139844139870%_ (let () (declare (not safe)) - (##car _%g139679139688%_)))) - (if (null? _%tl139686139713%_) - (let ((_%path139716%_ _%hd139685139711%_)) - (_%K139684139708%_ _%path139716%_)) - (let ((_%path139701%_ _%g139679139688%_)) - (_%K139683139698%_ _%path139701%_)))) - (let ((_%path139701%_ _%g139679139688%_)) - (_%K139683139698%_ _%path139701%_)))))) - (_%r139720%_ - (if _%current-src139618%_ - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_) - _%r139620%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139615%_ - _%rest139642%_ + (##car _%g139838139847%_)))) + (if (null? _%tl139845139872%_) + (let ((_%path139875%_ _%hd139844139870%_)) + (_%K139843139867%_ _%path139875%_)) + (let ((_%path139860%_ _%g139838139847%_)) + (_%K139842139857%_ _%path139860%_)))) + (let ((_%path139860%_ _%g139838139847%_)) + (_%K139842139857%_ _%path139860%_)))))) + (_%r139879%_ + (if _%current-src139777%_ + (cons (_%make-import-spec-in139738%_ + _%current-src139777%_ + _%current-in139778%_) + _%r139779%_) + _%r139779%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp139774%_ + _%rest139801%_ '#f '() - (cons (if (fxzero? _%phi139676%_) - _%src-in139718%_ + (cons (if (fxzero? _%phi139835%_) + _%src-in139877%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139676%_ - (cons _%src-in139718%_ '())))) - _%r139720%_))) + (cons _%phi139835%_ + (cons _%src-in139877%_ '())))) + _%r139879%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in139643%_ + _%in139802%_ 'gx#module-context::t)) - (let ((_%r139724%_ - (if _%current-src139618%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_) - _%r139620%_))) - (_%lp139615%_ - _%rest139642%_ + (let ((_%r139883%_ + (if _%current-src139777%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in139738%_ + _%current-src139777%_ + _%current-in139778%_) + _%r139779%_) + _%r139779%_))) + (_%lp139774%_ + _%rest139801%_ '#f '() (cons (cons 'runtime: - (_%make-import-path139578%_ _%in139643%_)) - _%r139724%_))) + (_%make-import-path139737%_ _%in139802%_)) + _%r139883%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest139621139629%_) - (let ((_%hd139626139729%_ + (if (pair? _%rest139780139788%_) + (let ((_%hd139785139888%_ (let () (declare (not safe)) - (##car _%rest139621139629%_))) - (_%tl139627139731%_ + (##car _%rest139780139788%_))) + (_%tl139786139890%_ (let () (declare (not safe)) - (##cdr _%rest139621139629%_)))) - (let* ((_%in139734%_ - _%hd139626139729%_) - (_%rest139736%_ - _%tl139627139731%_)) - (_%K139625139726%_ - _%rest139736%_ - _%in139734%_))) - (_%else139623139639%_))))) - _%tl139586139601%_))) - (_%g139581139591%_ _%g139582139594%_))))) - (_%g139580139738%_ _%stx139574%_))))) + (##cdr _%rest139780139788%_)))) + (let* ((_%in139893%_ + _%hd139785139888%_) + (_%rest139895%_ + _%tl139786139890%_)) + (_%K139784139885%_ + _%rest139895%_ + _%in139893%_))) + (_%else139782139798%_))))) + _%tl139745139760%_))) + (_%g139740139750%_ _%g139741139753%_))))) + (_%g139739139897%_ _%stx139733%_))))) (define gxc#generate-meta-export% - (lambda (_%self139383%_ _%stx139384%_) - (letrec* ((_%context-chain139386%_ (gxc#current-context-chain)) - (_%make-import-path139387%_ - (lambda (_%ctx139571%_) + (lambda (_%self139542%_ _%stx139543%_) + (letrec* ((_%context-chain139545%_ (gxc#current-context-chain)) + (_%make-import-path139546%_ + (lambda (_%ctx139730%_) (gxc#generate-meta-import-path - _%ctx139571%_ - _%context-chain139386%_)))) - (let* ((_%g139389139399%_ - (lambda (_%g139390139396%_) + _%ctx139730%_ + _%context-chain139545%_)))) + (let* ((_%g139548139558%_ + (lambda (_%g139549139555%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139390139396%_)))) - (_%g139388139568%_ - (lambda (_%g139390139402%_) + _%g139549139555%_)))) + (_%g139547139727%_ + (lambda (_%g139549139561%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139390139402%_)) - (let ((_%e139392139404%_ + (gx#stx-pair? _%g139549139561%_)) + (let ((_%e139551139563%_ (let () (declare (not safe)) - (gx#stx-e _%g139390139402%_)))) - (let ((_%hd139393139407%_ + (gx#stx-e _%g139549139561%_)))) + (let ((_%hd139552139566%_ (let () (declare (not safe)) - (##car _%e139392139404%_))) - (_%tl139394139409%_ + (##car _%e139551139563%_))) + (_%tl139553139568%_ (let () (declare (not safe)) - (##cdr _%e139392139404%_)))) - ((lambda (_%L139412%_) - (let _%lp139423%_ ((_%rest139425%_ _%L139412%_) - (_%r139426%_ '())) - (let* ((_%rest139427139435%_ _%rest139425%_) - (_%else139429139443%_ + (##cdr _%e139551139563%_)))) + ((lambda (_%L139571%_) + (let _%lp139582%_ ((_%rest139584%_ _%L139571%_) + (_%r139585%_ '())) + (let* ((_%rest139586139594%_ _%rest139584%_) + (_%else139588139602%_ (lambda () (cons '%#export - (reverse _%r139426%_)))) - (_%K139431139556%_ - (lambda (_%rest139446%_ _%out139447%_) - (let* ((_%out139448139461%_ - _%out139447%_) - (_%E139451139465%_ + (reverse _%r139585%_)))) + (_%K139590139715%_ + (lambda (_%rest139605%_ _%out139606%_) + (let* ((_%out139607139620%_ + _%out139606%_) + (_%E139610139624%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out139448139461%_ + _%out139607139620%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13546,491 +13546,491 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K139455139535%_ - (lambda (_%name139531%_ - _%phi139532%_ - _%key139533%_) - (_%lp139423%_ - _%rest139446%_ + (let ((_%K139614139694%_ + (lambda (_%name139690%_ + _%phi139691%_ + _%key139692%_) + (_%lp139582%_ + _%rest139605%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139532%_ + (cons _%phi139691%_ (cons (gxc#generate-runtime-identifier-key - _%key139533%_) + _%key139692%_) (cons (gxc#generate-runtime-identifier-key - _%name139531%_) + _%name139690%_) '())))) - _%r139426%_)))) + _%r139585%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139452139515%_ - (lambda (_%phi139469%_ - _%src139470%_) - (let* ((_%out139510%_ - (if _%src139470%_ + (_%K139611139674%_ + (lambda (_%phi139628%_ + _%src139629%_) + (let* ((_%out139669%_ + (if _%src139629%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g139471139480%_ - (_%make-import-path139387%_ - _%src139470%_)) - (_%E139474139484%_ + (cons (let* ((_%g139630139639%_ + (_%make-import-path139546%_ + _%src139629%_)) + (_%E139633139643%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139471139480%_ + _%g139630139639%_ '([path]) '(path))) '#!void))) - (let ((_%K139476139500%_ - (lambda (_%path139498%_) - _%path139498%_)) - (_%K139475139490%_ - (lambda (_%path139488%_) - (cons 'in: _%path139488%_)))) - (if (pair? _%g139471139480%_) - (let ((_%tl139478139505%_ + (let ((_%K139635139659%_ + (lambda (_%path139657%_) + _%path139657%_)) + (_%K139634139649%_ + (lambda (_%path139647%_) + (cons 'in: _%path139647%_)))) + (if (pair? _%g139630139639%_) + (let ((_%tl139637139664%_ (let () (declare (not safe)) - (##cdr _%g139471139480%_))) - (_%hd139477139503%_ + (##cdr _%g139630139639%_))) + (_%hd139636139662%_ (let () (declare (not safe)) - (##car _%g139471139480%_)))) - (if (null? _%tl139478139505%_) - (let ((_%path139508%_ - _%hd139477139503%_)) - (_%K139476139500%_ - _%path139508%_)) - (let ((_%path139493%_ - _%g139471139480%_)) - (_%K139475139490%_ - _%path139493%_)))) - (let ((_%path139493%_ - _%g139471139480%_)) - (_%K139475139490%_ - _%path139493%_))))) + (##car _%g139630139639%_)))) + (if (null? _%tl139637139664%_) + (let ((_%path139667%_ + _%hd139636139662%_)) + (_%K139635139659%_ + _%path139667%_)) + (let ((_%path139652%_ + _%g139630139639%_)) + (_%K139634139649%_ + _%path139652%_)))) + (let ((_%path139652%_ + _%g139630139639%_)) + (_%K139634139649%_ + _%path139652%_))))) '())) '#t)) - (_%out139512%_ - (if (fxzero? _%phi139469%_) - _%out139510%_ + (_%out139671%_ + (if (fxzero? _%phi139628%_) + _%out139669%_ (cons 'phi: - (cons _%phi139469%_ - (cons _%out139510%_ '())))))) - (_%lp139423%_ - _%rest139446%_ - (cons _%out139512%_ _%r139426%_)))))) + (cons _%phi139628%_ + (cons _%out139669%_ '())))))) + (_%lp139582%_ + _%rest139605%_ + (cons _%out139671%_ _%r139585%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match139450139528%_ + (let ((_%try-match139609139687%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139448139461%_ + _%out139607139620%_ 'gx#export-set::t)) - (let* ((_%e139453139518%_ + (let* ((_%e139612139677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out139607139620%_ '1 '#f '#f))) - (_%e139454139523%_ + (_%e139613139682%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out139607139620%_ '2 '#f '#f)))) - (let ((_%src139521%_ _%e139453139518%_) - (_%phi139526%_ _%e139454139523%_)) - (_%K139452139515%_ _%phi139526%_ _%src139521%_))) - (_%E139451139465%_))))) + (let ((_%src139680%_ _%e139612139677%_) + (_%phi139685%_ _%e139613139682%_)) + (_%K139611139674%_ _%phi139685%_ _%src139680%_))) + (_%E139610139624%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139448139461%_ + _%out139607139620%_ 'gx#module-export::t)) - (let* ((_%e139456139538%_ + (let* ((_%e139615139697%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out139607139620%_ '1 '#f '#f))) - (_%e139457139541%_ + (_%e139616139700%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out139607139620%_ '2 '#f '#f))) - (_%e139458139546%_ + (_%e139617139705%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out139607139620%_ '3 '#f '#f))) - (_%e139459139551%_ + (_%e139618139710%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out139607139620%_ '4 '#f '#f)))) - (let ((_%key139544%_ _%e139457139541%_) - (_%phi139549%_ _%e139458139546%_) - (_%name139554%_ _%e139459139551%_)) - (_%K139455139535%_ - _%name139554%_ - _%phi139549%_ - _%key139544%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match139450139528%_)))))))) - (if (pair? _%rest139427139435%_) - (let ((_%hd139432139559%_ + (let ((_%key139703%_ _%e139616139700%_) + (_%phi139708%_ _%e139617139705%_) + (_%name139713%_ _%e139618139710%_)) + (_%K139614139694%_ + _%name139713%_ + _%phi139708%_ + _%key139703%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match139609139687%_)))))))) + (if (pair? _%rest139586139594%_) + (let ((_%hd139591139718%_ (let () (declare (not safe)) - (##car _%rest139427139435%_))) - (_%tl139433139561%_ + (##car _%rest139586139594%_))) + (_%tl139592139720%_ (let () (declare (not safe)) - (##cdr _%rest139427139435%_)))) - (let* ((_%out139564%_ - _%hd139432139559%_) - (_%rest139566%_ - _%tl139433139561%_)) - (_%K139431139556%_ - _%rest139566%_ - _%out139564%_))) - (_%else139429139443%_))))) - _%tl139394139409%_))) - (_%g139389139399%_ _%g139390139402%_))))) - (_%g139388139568%_ _%stx139384%_))))) + (##cdr _%rest139586139594%_)))) + (let* ((_%out139723%_ + _%hd139591139718%_) + (_%rest139725%_ + _%tl139592139720%_)) + (_%K139590139715%_ + _%rest139725%_ + _%out139723%_))) + (_%else139588139602%_))))) + _%tl139553139568%_))) + (_%g139548139558%_ _%g139549139561%_))))) + (_%g139547139727%_ _%stx139543%_))))) (define gxc#generate-meta-provide% - (lambda (_%self139344%_ _%stx139345%_) + (lambda (_%self139503%_ _%stx139504%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139344%_ 'state))) - (let* ((_%g139347139357%_ - (lambda (_%g139348139354%_) + (let () (declare (not safe)) (slot-ref__0 _%self139503%_ 'state))) + (let* ((_%g139506139516%_ + (lambda (_%g139507139513%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139348139354%_)))) - (_%g139346139380%_ - (lambda (_%g139348139360%_) + _%g139507139513%_)))) + (_%g139505139539%_ + (lambda (_%g139507139519%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139348139360%_)) - (let ((_%e139350139362%_ + (gx#stx-pair? _%g139507139519%_)) + (let ((_%e139509139521%_ (let () (declare (not safe)) - (gx#stx-e _%g139348139360%_)))) - (let ((_%hd139351139365%_ + (gx#stx-e _%g139507139519%_)))) + (let ((_%hd139510139524%_ (let () (declare (not safe)) - (##car _%e139350139362%_))) - (_%tl139352139367%_ + (##car _%e139509139521%_))) + (_%tl139511139526%_ (let () (declare (not safe)) - (##cdr _%e139350139362%_)))) - ((lambda (_%L139370%_) + (##cdr _%e139509139521%_)))) + ((lambda (_%L139529%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L139370%_))) - _%tl139352139367%_))) - (_%g139347139357%_ _%g139348139360%_))))) - (_%g139346139380%_ _%stx139345%_)))) + _%L139529%_))) + _%tl139511139526%_))) + (_%g139506139516%_ _%g139507139519%_))))) + (_%g139505139539%_ _%stx139504%_)))) (define gxc#generate-meta-extern% - (lambda (_%self139215%_ _%stx139216%_) - (letrec ((_%generate1139218%_ - (lambda (_%id139339%_ _%eid139340%_) - (let ((_%eid139342%_ + (lambda (_%self139374%_ _%stx139375%_) + (letrec ((_%generate1139377%_ + (lambda (_%id139498%_ _%eid139499%_) + (let ((_%eid139501%_ (let () (declare (not safe)) - (gx#stx-e _%eid139340%_)))) + (gx#stx-e _%eid139499%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid139342%_)) + (interned-symbol? _%eid139501%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx139216%_ - _%eid139342%_))) - (cons (gxc#generate-runtime-identifier _%id139339%_) - (cons _%eid139342%_ '())))))) - (let* ((_%g139220139248%_ - (lambda (_%g139221139245%_) + _%stx139375%_ + _%eid139501%_))) + (cons (gxc#generate-runtime-identifier _%id139498%_) + (cons _%eid139501%_ '())))))) + (let* ((_%g139379139407%_ + (lambda (_%g139380139404%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139221139245%_)))) - (_%g139219139336%_ - (lambda (_%g139221139251%_) + _%g139380139404%_)))) + (_%g139378139495%_ + (lambda (_%g139380139410%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139221139251%_)) - (let ((_%e139224139253%_ + (gx#stx-pair? _%g139380139410%_)) + (let ((_%e139383139412%_ (let () (declare (not safe)) - (gx#stx-e _%g139221139251%_)))) - (let ((_%hd139225139256%_ + (gx#stx-e _%g139380139410%_)))) + (let ((_%hd139384139415%_ (let () (declare (not safe)) - (##car _%e139224139253%_))) - (_%tl139226139258%_ + (##car _%e139383139412%_))) + (_%tl139385139417%_ (let () (declare (not safe)) - (##cdr _%e139224139253%_)))) + (##cdr _%e139383139412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl139226139258%_)) - (let ((_g149014_ + (gx#stx-pair/null? _%tl139385139417%_)) + (let ((_g149173_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl139226139258%_ + _%tl139385139417%_ '0)))) (begin - (let ((_g149015_ + (let ((_g149174_ (let () (declare (not safe)) - (if (##values? _g149014_) - (##vector-length _g149014_) + (if (##values? _g149173_) + (##vector-length _g149173_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149015_ 2))) + (##fx= _g149174_ 2))) (error "Context expects 2 values" - _g149015_))) - (let ((_%target139227139261%_ + _g149174_))) + (let ((_%target139386139420%_ (let () (declare (not safe)) - (##vector-ref _g149014_ 0))) - (_%tl139229139263%_ + (##vector-ref _g149173_ 0))) + (_%tl139388139422%_ (let () (declare (not safe)) - (##vector-ref _g149014_ 1)))) + (##vector-ref _g149173_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139229139263%_)) - (letrec ((_%loop139230139266%_ - (lambda (_%hd139228139269%_ - _%eid139234139271%_ - _%id139235139273%_) + (gx#stx-null? _%tl139388139422%_)) + (letrec ((_%loop139389139425%_ + (lambda (_%hd139387139428%_ + _%eid139393139430%_ + _%id139394139432%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139228139269%_)) - (let ((_%e139231139276%_ + _%hd139387139428%_)) + (let ((_%e139390139435%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd139228139269%_)))) - (let ((_%lp-hd139232139279%_ + (gx#stx-e _%hd139387139428%_)))) + (let ((_%lp-hd139391139438%_ (let () (declare (not safe)) - (##car _%e139231139276%_))) - (_%lp-tl139233139281%_ + (##car _%e139390139435%_))) + (_%lp-tl139392139440%_ (let () (declare (not safe)) - (##cdr _%e139231139276%_)))) + (##cdr _%e139390139435%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd139232139279%_)) - (let ((_%e139238139284%_ + (gx#stx-pair? _%lp-hd139391139438%_)) + (let ((_%e139397139443%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd139232139279%_)))) - (let ((_%hd139239139287%_ + (gx#stx-e _%lp-hd139391139438%_)))) + (let ((_%hd139398139446%_ (let () (declare (not safe)) - (##car _%e139238139284%_))) - (_%tl139240139289%_ + (##car _%e139397139443%_))) + (_%tl139399139448%_ (let () (declare (not safe)) - (##cdr _%e139238139284%_)))) + (##cdr _%e139397139443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139240139289%_)) - (let ((_%e139241139292%_ + (gx#stx-pair? _%tl139399139448%_)) + (let ((_%e139400139451%_ (let () (declare (not safe)) - (gx#stx-e _%tl139240139289%_)))) - (let ((_%hd139242139295%_ + (gx#stx-e _%tl139399139448%_)))) + (let ((_%hd139401139454%_ (let () (declare (not safe)) - (##car _%e139241139292%_))) - (_%tl139243139297%_ + (##car _%e139400139451%_))) + (_%tl139402139456%_ (let () (declare (not safe)) - (##cdr _%e139241139292%_)))) + (##cdr _%e139400139451%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139243139297%_)) - (_%loop139230139266%_ - _%lp-tl139233139281%_ - (cons _%hd139242139295%_ - _%eid139234139271%_) - (cons _%hd139239139287%_ - _%id139235139273%_)) - (_%g139220139248%_ - _%g139221139251%_)))) - (_%g139220139248%_ _%g139221139251%_)))) - (_%g139220139248%_ _%g139221139251%_)))) - (let ((_%eid139236139300%_ (reverse _%eid139234139271%_)) - (_%id139237139302%_ (reverse _%id139235139273%_))) - ((lambda (_%L139305%_ _%L139306%_) + (gx#stx-null? _%tl139402139456%_)) + (_%loop139389139425%_ + _%lp-tl139392139440%_ + (cons _%hd139401139454%_ + _%eid139393139430%_) + (cons _%hd139398139446%_ + _%id139394139432%_)) + (_%g139379139407%_ + _%g139380139410%_)))) + (_%g139379139407%_ _%g139380139410%_)))) + (_%g139379139407%_ _%g139380139410%_)))) + (let ((_%eid139395139459%_ (reverse _%eid139393139430%_)) + (_%id139396139461%_ (reverse _%id139394139432%_))) + ((lambda (_%L139464%_ _%L139465%_) (cons '%#extern - (map _%generate1139218%_ - (let ((__tmp149016 - (lambda (_%g139321139324%_ - _%g139322139326%_) - (cons _%g139321139324%_ - _%g139322139326%_)))) + (map _%generate1139377%_ + (let ((__tmp149175 + (lambda (_%g139480139483%_ + _%g139481139485%_) + (cons _%g139480139483%_ + _%g139481139485%_)))) (declare (not safe)) - (__foldr1 __tmp149016 '() _%L139306%_)) - (let ((__tmp149017 - (lambda (_%g139328139331%_ - _%g139329139333%_) - (cons _%g139328139331%_ - _%g139329139333%_)))) + (__foldr1 __tmp149175 '() _%L139465%_)) + (let ((__tmp149176 + (lambda (_%g139487139490%_ + _%g139488139492%_) + (cons _%g139487139490%_ + _%g139488139492%_)))) (declare (not safe)) - (__foldr1 __tmp149017 '() _%L139305%_))))) - _%eid139236139300%_ - _%id139237139302%_)))))) + (__foldr1 __tmp149176 '() _%L139464%_))))) + _%eid139395139459%_ + _%id139396139461%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop139230139266%_ - _%target139227139261%_ + (_%loop139389139425%_ + _%target139386139420%_ '() '())) - (_%g139220139248%_ - _%g139221139251%_))))) - (_%g139220139248%_ _%g139221139251%_)))) - (_%g139220139248%_ _%g139221139251%_))))) - (_%g139219139336%_ _%stx139216%_))))) + (_%g139379139407%_ + _%g139380139410%_))))) + (_%g139379139407%_ _%g139380139410%_)))) + (_%g139379139407%_ _%g139380139410%_))))) + (_%g139378139495%_ _%stx139375%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self139005%_ _%stx139006%_) - (letrec ((_%generate1139008%_ - (lambda (_%id139210%_) - (let ((_%eid139212%_ + (lambda (_%self139164%_ _%stx139165%_) + (letrec ((_%generate1139167%_ + (lambda (_%id139369%_) + (let ((_%eid139371%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id139210%_))) - (_%ident139213%_ - (gxc#generate-runtime-identifier _%id139210%_))) + (gxc#generate-runtime-binding-id _%id139369%_))) + (_%ident139372%_ + (gxc#generate-runtime-identifier _%id139369%_))) (cons '%#define-runtime - (cons _%ident139213%_ (cons _%eid139212%_ '())))))) - (_%generate*139009%_ - (lambda (_%all139178%_) - (let* ((_%all139179139187%_ _%all139178%_) - (_%else139181139195%_ - (lambda () (cons '%#begin _%all139178%_))) - (_%K139183139200%_ - (lambda (_%one139198%_) _%one139198%_))) - (if (pair? _%all139179139187%_) - (let ((_%hd139184139203%_ + (cons _%ident139372%_ (cons _%eid139371%_ '())))))) + (_%generate*139168%_ + (lambda (_%all139337%_) + (let* ((_%all139338139346%_ _%all139337%_) + (_%else139340139354%_ + (lambda () (cons '%#begin _%all139337%_))) + (_%K139342139359%_ + (lambda (_%one139357%_) _%one139357%_))) + (if (pair? _%all139338139346%_) + (let ((_%hd139343139362%_ (let () (declare (not safe)) - (##car _%all139179139187%_))) - (_%tl139185139205%_ + (##car _%all139338139346%_))) + (_%tl139344139364%_ (let () (declare (not safe)) - (##cdr _%all139179139187%_)))) - (let ((_%one139208%_ _%hd139184139203%_)) - (if (null? _%tl139185139205%_) - (_%K139183139200%_ _%one139208%_) - (_%else139181139195%_)))) - (_%else139181139195%_)))))) - (let* ((_%g139011139028%_ - (lambda (_%g139012139025%_) + (##cdr _%all139338139346%_)))) + (let ((_%one139367%_ _%hd139343139362%_)) + (if (null? _%tl139344139364%_) + (_%K139342139359%_ _%one139367%_) + (_%else139340139354%_)))) + (_%else139340139354%_)))))) + (let* ((_%g139170139187%_ + (lambda (_%g139171139184%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139012139025%_)))) - (_%g139010139175%_ - (lambda (_%g139012139031%_) + _%g139171139184%_)))) + (_%g139169139334%_ + (lambda (_%g139171139190%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139012139031%_)) - (let ((_%e139015139033%_ + (gx#stx-pair? _%g139171139190%_)) + (let ((_%e139174139192%_ (let () (declare (not safe)) - (gx#stx-e _%g139012139031%_)))) - (let ((_%hd139016139036%_ + (gx#stx-e _%g139171139190%_)))) + (let ((_%hd139175139195%_ (let () (declare (not safe)) - (##car _%e139015139033%_))) - (_%tl139017139038%_ + (##car _%e139174139192%_))) + (_%tl139176139197%_ (let () (declare (not safe)) - (##cdr _%e139015139033%_)))) + (##cdr _%e139174139192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139017139038%_)) - (let ((_%e139018139041%_ + (gx#stx-pair? _%tl139176139197%_)) + (let ((_%e139177139200%_ (let () (declare (not safe)) - (gx#stx-e _%tl139017139038%_)))) - (let ((_%hd139019139044%_ + (gx#stx-e _%tl139176139197%_)))) + (let ((_%hd139178139203%_ (let () (declare (not safe)) - (##car _%e139018139041%_))) - (_%tl139020139046%_ + (##car _%e139177139200%_))) + (_%tl139179139205%_ (let () (declare (not safe)) - (##cdr _%e139018139041%_)))) + (##cdr _%e139177139200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139020139046%_)) - (let ((_%e139021139049%_ + (gx#stx-pair? _%tl139179139205%_)) + (let ((_%e139180139208%_ (let () (declare (not safe)) (gx#stx-e - _%tl139020139046%_)))) - (let ((_%hd139022139052%_ + _%tl139179139205%_)))) + (let ((_%hd139181139211%_ (let () (declare (not safe)) - (##car _%e139021139049%_))) - (_%tl139023139054%_ + (##car _%e139180139208%_))) + (_%tl139182139213%_ (let () (declare (not safe)) - (##cdr _%e139021139049%_)))) + (##cdr _%e139180139208%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139023139054%_)) - ((lambda (_%L139057%_ - _%L139058%_) - (let _%lp139074%_ ((_%rest139076%_ + _%tl139182139213%_)) + ((lambda (_%L139216%_ + _%L139217%_) + (let _%lp139233%_ ((_%rest139235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139058%_) - (_%r139077%_ '())) + _%L139217%_) + (_%r139236%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx148753148754%_ - _%rest139076%_) - (_%g139082139099%_ + (let* ((_%__stx148912148913%_ + _%rest139235%_) + (_%g139241139258%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14038,160 +14038,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148753148754%_))))) - (let ((_%__kont148755148756%_ - (lambda (_%L139162%_) - (_%lp139074%_ _%L139162%_ _%r139077%_))) - (_%__kont148757148758%_ - (lambda (_%L139135%_ _%L139136%_) - (_%lp139074%_ - _%L139135%_ - (cons (_%generate1139008%_ _%L139136%_) - _%r139077%_)))) - (_%__kont148759148760%_ - (lambda (_%L139111%_) - (_%generate*139009%_ - (let ((__tmp149018 - (cons (_%generate1139008%_ _%L139111%_) '()))) + _%__stx148912148913%_))))) + (let ((_%__kont148914148915%_ + (lambda (_%L139321%_) + (_%lp139233%_ _%L139321%_ _%r139236%_))) + (_%__kont148916148917%_ + (lambda (_%L139294%_ _%L139295%_) + (_%lp139233%_ + _%L139294%_ + (cons (_%generate1139167%_ _%L139295%_) + _%r139236%_)))) + (_%__kont148918148919%_ + (lambda (_%L139270%_) + (_%generate*139168%_ + (let ((__tmp149177 + (cons (_%generate1139167%_ _%L139270%_) '()))) (declare (not safe)) - (__foldl1 cons __tmp149018 _%r139077%_))))) - (_%__kont148761148762%_ - (lambda () (_%generate*139009%_ (reverse _%r139077%_))))) - (let ((_%g139080139122%_ + (__foldl1 cons __tmp149177 _%r139236%_))))) + (_%__kont148920148921%_ + (lambda () (_%generate*139168%_ (reverse _%r139236%_))))) + (let ((_%g139239139281%_ (lambda () - (let ((_%L139111%_ _%__stx148753148754%_)) + (let ((_%L139270%_ _%__stx148912148913%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L139111%_)) - (_%__kont148759148760%_ _%L139111%_) - (_%__kont148761148762%_)))))) + (gx#identifier? _%L139270%_)) + (_%__kont148918148919%_ _%L139270%_) + (_%__kont148920148921%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148753148754%_)) - (let ((_%e139085139151%_ + (gx#stx-pair? _%__stx148912148913%_)) + (let ((_%e139244139310%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148753148754%_)))) - (let ((_%tl139087139156%_ + (gx#stx-e _%__stx148912148913%_)))) + (let ((_%tl139246139315%_ (let () (declare (not safe)) - (##cdr _%e139085139151%_))) - (_%hd139086139154%_ + (##cdr _%e139244139310%_))) + (_%hd139245139313%_ (let () (declare (not safe)) - (##car _%e139085139151%_)))) + (##car _%e139244139310%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd139086139154%_)) - (let ((_%e139088139159%_ + (gx#stx-datum? _%hd139245139313%_)) + (let ((_%e139247139318%_ (let () (declare (not safe)) - (gx#stx-e _%hd139086139154%_)))) - (if (equal? _%e139088139159%_ '#f) - (_%__kont148755148756%_ - _%tl139087139156%_) - (_%__kont148757148758%_ - _%tl139087139156%_ - _%hd139086139154%_))) - (_%__kont148757148758%_ - _%tl139087139156%_ - _%hd139086139154%_)))) - (let () (declare (not safe)) (_%g139080139122%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139022139052%_ - _%hd139019139044%_) - (_%g139011139028%_ - _%g139012139031%_)))) - (_%g139011139028%_ - _%g139012139031%_)))) - (_%g139011139028%_ _%g139012139031%_)))) - (_%g139011139028%_ _%g139012139031%_))))) - (_%g139010139175%_ _%stx139006%_))))) + (gx#stx-e _%hd139245139313%_)))) + (if (equal? _%e139247139318%_ '#f) + (_%__kont148914148915%_ + _%tl139246139315%_) + (_%__kont148916148917%_ + _%tl139246139315%_ + _%hd139245139313%_))) + (_%__kont148916148917%_ + _%tl139246139315%_ + _%hd139245139313%_)))) + (let () (declare (not safe)) (_%g139239139281%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd139181139211%_ + _%hd139178139203%_) + (_%g139170139187%_ + _%g139171139190%_)))) + (_%g139170139187%_ + _%g139171139190%_)))) + (_%g139170139187%_ _%g139171139190%_)))) + (_%g139170139187%_ _%g139171139190%_))))) + (_%g139169139334%_ _%stx139165%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self138902%_ _%stx138903%_) - (let* ((_%g138905138922%_ - (lambda (_%g138906138919%_) + (lambda (_%self139061%_ _%stx139062%_) + (let* ((_%g139064139081%_ + (lambda (_%g139065139078%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138906138919%_)))) - (_%g138904139002%_ - (lambda (_%g138906138925%_) + _%g139065139078%_)))) + (_%g139063139161%_ + (lambda (_%g139065139084%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138906138925%_)) - (let ((_%e138909138927%_ + (gx#stx-pair? _%g139065139084%_)) + (let ((_%e139068139086%_ (let () (declare (not safe)) - (gx#stx-e _%g138906138925%_)))) - (let ((_%hd138910138930%_ + (gx#stx-e _%g139065139084%_)))) + (let ((_%hd139069139089%_ (let () (declare (not safe)) - (##car _%e138909138927%_))) - (_%tl138911138932%_ + (##car _%e139068139086%_))) + (_%tl139070139091%_ (let () (declare (not safe)) - (##cdr _%e138909138927%_)))) + (##cdr _%e139068139086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138911138932%_)) - (let ((_%e138912138935%_ + (gx#stx-pair? _%tl139070139091%_)) + (let ((_%e139071139094%_ (let () (declare (not safe)) - (gx#stx-e _%tl138911138932%_)))) - (let ((_%hd138913138938%_ + (gx#stx-e _%tl139070139091%_)))) + (let ((_%hd139072139097%_ (let () (declare (not safe)) - (##car _%e138912138935%_))) - (_%tl138914138940%_ + (##car _%e139071139094%_))) + (_%tl139073139099%_ (let () (declare (not safe)) - (##cdr _%e138912138935%_)))) + (##cdr _%e139071139094%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138914138940%_)) - (let ((_%e138915138943%_ + (gx#stx-pair? _%tl139073139099%_)) + (let ((_%e139074139102%_ (let () (declare (not safe)) - (gx#stx-e _%tl138914138940%_)))) - (let ((_%hd138916138946%_ + (gx#stx-e _%tl139073139099%_)))) + (let ((_%hd139075139105%_ (let () (declare (not safe)) - (##car _%e138915138943%_))) - (_%tl138917138948%_ + (##car _%e139074139102%_))) + (_%tl139076139107%_ (let () (declare (not safe)) - (##cdr _%e138915138943%_)))) + (##cdr _%e139074139102%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138917138948%_)) - ((lambda (_%L138951%_ - _%L138952%_) - (let* ((_%eid138967%_ + _%tl139076139107%_)) + ((lambda (_%L139110%_ + _%L139111%_) + (let* ((_%eid139126%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L138952%_))) - (_%phi138969%_ - (let ((__tmp149019 + _%L139111%_))) + (_%phi139128%_ + (let ((__tmp149178 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149019 '1))) - (_%block138971%_ + (##fx+ __tmp149178 '1))) + (_%block139130%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self138902%_ 'state)) - _%phi138969%_))) + (slot-ref__0 _%self139061%_ 'state)) + _%phi139128%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g138974138981%_ - (lambda (_%g138975138978%_) + (let* ((_%g139133139140%_ + (lambda (_%g139134139137%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14199,24 +14199,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138975138978%_)))) - (_%g138973138999%_ - (lambda (_%g138975138984%_) - ((lambda (_%L138986%_) + _%g139134139137%_)))) + (_%g139132139158%_ + (lambda (_%g139134139143%_) + ((lambda (_%L139145%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self138902%_ 'state)) - _%phi138969%_ + (slot-ref__0 _%self139061%_ 'state)) + _%phi139128%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L138986%_ (cons _%L138951%_ '()))))) - _%g138975138984%_)))) + (cons _%L139145%_ (cons _%L139110%_ '()))))) + _%g139134139143%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138973138999%_ - _%eid138967%_)) - (if _%block138971%_ + (_%g139132139158%_ + _%eid139126%_)) + (if _%block139130%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14225,7 +14225,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block138971%_ + (cons _%block139130%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14233,129 +14233,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L138952%_) - (cons _%eid138967%_ '()))) + _%L139111%_) + (cons _%eid139126%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L138952%_) - (cons _%eid138967%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138916138946%_ - _%hd138913138938%_) - (_%g138905138922%_ - _%g138906138925%_)))) - (_%g138905138922%_ _%g138906138925%_)))) - (_%g138905138922%_ _%g138906138925%_)))) - (_%g138905138922%_ _%g138906138925%_))))) - (_%g138904139002%_ _%stx138903%_)))) + (cons (gxc#generate-runtime-identifier _%L139111%_) + (cons _%eid139126%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd139075139105%_ + _%hd139072139097%_) + (_%g139064139081%_ + _%g139065139084%_)))) + (_%g139064139081%_ _%g139065139084%_)))) + (_%g139064139081%_ _%g139065139084%_)))) + (_%g139064139081%_ _%g139065139084%_))))) + (_%g139063139161%_ _%stx139062%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self138834%_ _%stx138835%_) - (let* ((_%g138837138854%_ - (lambda (_%g138838138851%_) + (lambda (_%self138993%_ _%stx138994%_) + (let* ((_%g138996139013%_ + (lambda (_%g138997139010%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138838138851%_)))) - (_%g138836138899%_ - (lambda (_%g138838138857%_) + _%g138997139010%_)))) + (_%g138995139058%_ + (lambda (_%g138997139016%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138838138857%_)) - (let ((_%e138841138859%_ + (gx#stx-pair? _%g138997139016%_)) + (let ((_%e139000139018%_ (let () (declare (not safe)) - (gx#stx-e _%g138838138857%_)))) - (let ((_%hd138842138862%_ + (gx#stx-e _%g138997139016%_)))) + (let ((_%hd139001139021%_ (let () (declare (not safe)) - (##car _%e138841138859%_))) - (_%tl138843138864%_ + (##car _%e139000139018%_))) + (_%tl139002139023%_ (let () (declare (not safe)) - (##cdr _%e138841138859%_)))) + (##cdr _%e139000139018%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138843138864%_)) - (let ((_%e138844138867%_ + (gx#stx-pair? _%tl139002139023%_)) + (let ((_%e139003139026%_ (let () (declare (not safe)) - (gx#stx-e _%tl138843138864%_)))) - (let ((_%hd138845138870%_ + (gx#stx-e _%tl139002139023%_)))) + (let ((_%hd139004139029%_ (let () (declare (not safe)) - (##car _%e138844138867%_))) - (_%tl138846138872%_ + (##car _%e139003139026%_))) + (_%tl139005139031%_ (let () (declare (not safe)) - (##cdr _%e138844138867%_)))) + (##cdr _%e139003139026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138846138872%_)) - (let ((_%e138847138875%_ + (gx#stx-pair? _%tl139005139031%_)) + (let ((_%e139006139034%_ (let () (declare (not safe)) - (gx#stx-e _%tl138846138872%_)))) - (let ((_%hd138848138878%_ + (gx#stx-e _%tl139005139031%_)))) + (let ((_%hd139007139037%_ (let () (declare (not safe)) - (##car _%e138847138875%_))) - (_%tl138849138880%_ + (##car _%e139006139034%_))) + (_%tl139008139039%_ (let () (declare (not safe)) - (##cdr _%e138847138875%_)))) + (##cdr _%e139006139034%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138849138880%_)) - ((lambda (_%L138883%_ - _%L138884%_) + _%tl139008139039%_)) + ((lambda (_%L139042%_ + _%L139043%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L138884%_) + _%L139043%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L138883%_) + _%L139042%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138848138878%_ - _%hd138845138870%_) - (_%g138837138854%_ - _%g138838138857%_)))) - (_%g138837138854%_ _%g138838138857%_)))) - (_%g138837138854%_ _%g138838138857%_)))) - (_%g138837138854%_ _%g138838138857%_))))) - (_%g138836138899%_ _%stx138835%_)))) + _%hd139007139037%_ + _%hd139004139029%_) + (_%g138996139013%_ + _%g138997139016%_)))) + (_%g138996139013%_ _%g138997139016%_)))) + (_%g138996139013%_ _%g138997139016%_)))) + (_%g138996139013%_ _%g138997139016%_))))) + (_%g138995139058%_ _%stx138994%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self138831%_ _%stx138832%_) + (lambda (_%self138990%_ _%stx138991%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138831%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self138990%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx138832%_) - (gxc#generate-meta-define-values% _%self138831%_ _%stx138832%_))) + _%stx138991%_) + (gxc#generate-meta-define-values% _%self138990%_ _%stx138991%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self138828%_ _%stx138829%_) + (lambda (_%self138987%_ _%stx138988%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138828%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self138987%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx138829%_) + _%stx138988%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp149021 (list)) (__tmp149020 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149180 (list)) (__tmp149179 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp149021 + __tmp149180 '(src n open blocks) - __tmp149020 + __tmp149179 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args138825%_ - (apply make-instance gxc#meta-state::t _%$args138825%_))) + (lambda _%$args138984%_ + (apply make-instance gxc#meta-state::t _%$args138984%_))) (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 (_%self138170138809%_ _%ctx138811%_) - (let* ((_%self138813%_ _%self138170138809%_) - (_%self138815%_ _%self138813%_)) - (if (let ((__tmp149022 + (lambda (_%self138329138968%_ _%ctx138970%_) + (let* ((_%self138972%_ _%self138329138968%_) + (_%self138974%_ _%self138972%_)) + (if (let ((__tmp149181 (let () (declare (not safe)) - (##structure-length _%self138815%_)))) + (##structure-length _%self138974%_)))) (declare (not safe)) - (##fx< '4 __tmp149022)) + (##fx< '4 __tmp149181)) (begin - (let ((__tmp149023 - (let ((__tmp149024 + (let ((__tmp149182 + (let ((__tmp149183 (##structure-ref - _%ctx138811%_ + _%ctx138970%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp149024)))) + (gxc#module-id->path-string __tmp149183)))) (declare (not safe)) (##unchecked-structure-set! - _%self138815%_ - __tmp149023 + _%self138974%_ + __tmp149182 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self138815%_ '1 '2 '#f '#f)) - (let ((__tmp149025 + (##unchecked-structure-set! _%self138974%_ '1 '2 '#f '#f)) + (let ((__tmp149184 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self138815%_ - __tmp149025 + _%self138974%_ + __tmp149184 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self138815%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self138974%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp149026 + (let ((__tmp149185 (let () (declare (not safe)) - (##vector-length _%self138815%_)))) + (##vector-length _%self138974%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self138815%_ + _%self138974%_ '4 - __tmp149026)))))) + __tmp149185)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp149028 (list)) (__tmp149027 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149187 (list)) (__tmp149186 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp149028 + __tmp149187 '(ctx phi n code) - __tmp149027 + __tmp149186 '#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 _%$args138684%_ - (apply make-instance gxc#meta-state-block::t _%$args138684%_))) + (lambda _%$args138843%_ + (apply make-instance gxc#meta-state-block::t _%$args138843%_))) (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 (_%state138643%_ _%phi138644%_) - (let* ((_%state138645138653%_ _%state138643%_) - (_%E138647138657%_ + (lambda (_%state138802%_ _%phi138803%_) + (let* ((_%state138804138812%_ _%state138802%_) + (_%E138806138816%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state138645138653%_ + _%state138804138812%_ '((meta-state src n open)))) '#!void)) - (_%K138648138666%_ - (lambda (_%open138660%_ _%n138661%_ _%src138662%_) + (_%K138807138825%_ + (lambda (_%open138819%_ _%n138820%_ _%src138821%_) (if (let () (declare (not safe)) - (hash-get _%open138660%_ _%phi138644%_)) + (hash-get _%open138819%_ _%phi138803%_)) '#f - (let ((_%block-ref138664%_ - (let ((__tmp149029 (number->string _%n138661%_))) + (let ((_%block-ref138823%_ + (let ((__tmp149188 (number->string _%n138820%_))) (declare (not safe)) (##string-append - _%src138662%_ + _%src138821%_ '"~" - __tmp149029)))) + __tmp149188)))) (##structure-set! - _%state138643%_ - (let () (declare (not safe)) (##fx+ _%n138661%_ '1)) + _%state138802%_ + (let () (declare (not safe)) (##fx+ _%n138820%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp149030 - (let ((__tmp149031 + (let ((__tmp149189 + (let ((__tmp149190 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp149031 - _%phi138644%_ - _%n138661%_ + __tmp149190 + _%phi138803%_ + _%n138820%_ '())))) (declare (not safe)) - (hash-put! _%open138660%_ _%phi138644%_ __tmp149030)) - _%block-ref138664%_))))) + (hash-put! _%open138819%_ _%phi138803%_ __tmp149189)) + _%block-ref138823%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state138645138653%_ + _%state138804138812%_ 'gxc#meta-state::t)) - (let* ((_%e138649138669%_ + (let* ((_%e138808138828%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138645138653%_ + _%state138804138812%_ '1 '#f '#f))) - (_%src138672%_ _%e138649138669%_) - (_%e138650138674%_ + (_%src138831%_ _%e138808138828%_) + (_%e138809138833%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138645138653%_ + _%state138804138812%_ '2 '#f '#f))) - (_%n138677%_ _%e138650138674%_) - (_%e138651138679%_ + (_%n138836%_ _%e138809138833%_) + (_%e138810138838%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138645138653%_ + _%state138804138812%_ '3 '#f '#f))) - (_%open138682%_ _%e138651138679%_)) - (_%K138648138666%_ _%open138682%_ _%n138677%_ _%src138672%_)) - (_%E138647138657%_))))) + (_%open138841%_ _%e138810138838%_)) + (_%K138807138825%_ _%open138841%_ _%n138836%_ _%src138831%_)) + (_%E138806138816%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state138637%_ _%phi138638%_ _%stx138639%_) - (let ((_%block138641%_ - (let ((__tmp149032 + (lambda (_%state138796%_ _%phi138797%_ _%stx138798%_) + (let ((_%block138800%_ + (let ((__tmp149191 (##structure-ref - _%state138637%_ + _%state138796%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp149032 _%phi138638%_)))) + (hash-get __tmp149191 _%phi138797%_)))) (##structure-set! - _%block138641%_ - (cons _%stx138639%_ + _%block138800%_ + (cons _%stx138798%_ (##structure-ref - _%block138641%_ + _%block138800%_ '4 gxc#meta-state-block::t '#f)) @@ -14658,264 +14658,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state138631%_) + (lambda (_%state138790%_) (##structure-set! - _%state138631%_ - (let ((__tmp149035 - (lambda (_%_138633%_ _%block138634%_ _%r138635%_) - (cons _%block138634%_ _%r138635%_))) - (__tmp149034 - (##structure-ref _%state138631%_ '4 gxc#meta-state::t '#f)) - (__tmp149033 - (##structure-ref _%state138631%_ '3 gxc#meta-state::t '#f))) + _%state138790%_ + (let ((__tmp149194 + (lambda (_%_138792%_ _%block138793%_ _%r138794%_) + (cons _%block138793%_ _%r138794%_))) + (__tmp149193 + (##structure-ref _%state138790%_ '4 gxc#meta-state::t '#f)) + (__tmp149192 + (##structure-ref _%state138790%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp149035 __tmp149034 __tmp149033)) + (hash-fold __tmp149194 __tmp149193 __tmp149192)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state138631%_ + _%state138790%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state138583%_) - (gxc#meta-state-end-phi! _%state138583%_) - (let ((__tmp149037 - (lambda (_%block138585%_ _%r138586%_) - (let* ((_%block138587138596%_ _%block138585%_) - (_%E138589138600%_ + (lambda (_%state138742%_) + (gxc#meta-state-end-phi! _%state138742%_) + (let ((__tmp149196 + (lambda (_%block138744%_ _%r138745%_) + (let* ((_%block138746138755%_ _%block138744%_) + (_%E138748138759%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block138587138596%_ + _%block138746138755%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K138590138608%_ - (lambda (_%code138603%_ - _%n138604%_ - _%phi138605%_ - _%ctx138606%_) - (if (null? _%code138603%_) - _%r138586%_ - (cons (cons _%ctx138606%_ - (cons _%phi138605%_ - (cons _%n138604%_ + (_%K138749138767%_ + (lambda (_%code138762%_ + _%n138763%_ + _%phi138764%_ + _%ctx138765%_) + (if (null? _%code138762%_) + _%r138745%_ + (cons (cons _%ctx138765%_ + (cons _%phi138764%_ + (cons _%n138763%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code138603%_)) + (reverse _%code138762%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r138586%_))))) + _%r138745%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block138587138596%_ + _%block138746138755%_ 'gxc#meta-state-block::t)) - (let* ((_%e138591138611%_ + (let* ((_%e138750138770%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block138746138755%_ '1 '#f '#f))) - (_%ctx138614%_ _%e138591138611%_) - (_%e138592138616%_ + (_%ctx138773%_ _%e138750138770%_) + (_%e138751138775%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block138746138755%_ '2 '#f '#f))) - (_%phi138619%_ _%e138592138616%_) - (_%e138593138621%_ + (_%phi138778%_ _%e138751138775%_) + (_%e138752138780%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block138746138755%_ '3 '#f '#f))) - (_%n138624%_ _%e138593138621%_) - (_%e138594138626%_ + (_%n138783%_ _%e138752138780%_) + (_%e138753138785%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block138746138755%_ '4 '#f '#f))) - (_%code138629%_ _%e138594138626%_)) - (_%K138590138608%_ - _%code138629%_ - _%n138624%_ - _%phi138619%_ - _%ctx138614%_)) - (_%E138589138600%_))))) - (__tmp149036 - (##structure-ref _%state138583%_ '4 gxc#meta-state::t '#f))) + (_%code138788%_ _%e138753138785%_)) + (_%K138749138767%_ + _%code138788%_ + _%n138783%_ + _%phi138778%_ + _%ctx138773%_)) + (_%E138748138759%_))))) + (__tmp149195 + (##structure-ref _%state138742%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp149037 '() __tmp149036)))) + (__foldl1 __tmp149196 '() __tmp149195)))) (define gxc#collect-expression-refs - (lambda (_%stx138579%_) - (let ((_%ht138581%_ + (lambda (_%stx138738%_) + (let ((_%ht138740%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht138581%_ _%stx138579%_) - _%ht138581%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht138740%_ _%stx138738%_) + _%ht138740%_))) (define gxc#collect-refs-ref% - (lambda (_%self138522%_ _%stx138523%_) - (let* ((_%g138525138538%_ - (lambda (_%g138526138535%_) + (lambda (_%self138681%_ _%stx138682%_) + (let* ((_%g138684138697%_ + (lambda (_%g138685138694%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138526138535%_)))) - (_%g138524138576%_ - (lambda (_%g138526138541%_) + _%g138685138694%_)))) + (_%g138683138735%_ + (lambda (_%g138685138700%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138526138541%_)) - (let ((_%e138528138543%_ + (gx#stx-pair? _%g138685138700%_)) + (let ((_%e138687138702%_ (let () (declare (not safe)) - (gx#stx-e _%g138526138541%_)))) - (let ((_%hd138529138546%_ + (gx#stx-e _%g138685138700%_)))) + (let ((_%hd138688138705%_ (let () (declare (not safe)) - (##car _%e138528138543%_))) - (_%tl138530138548%_ + (##car _%e138687138702%_))) + (_%tl138689138707%_ (let () (declare (not safe)) - (##cdr _%e138528138543%_)))) + (##cdr _%e138687138702%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138530138548%_)) - (let ((_%e138531138551%_ + (gx#stx-pair? _%tl138689138707%_)) + (let ((_%e138690138710%_ (let () (declare (not safe)) - (gx#stx-e _%tl138530138548%_)))) - (let ((_%hd138532138554%_ + (gx#stx-e _%tl138689138707%_)))) + (let ((_%hd138691138713%_ (let () (declare (not safe)) - (##car _%e138531138551%_))) - (_%tl138533138556%_ + (##car _%e138690138710%_))) + (_%tl138692138715%_ (let () (declare (not safe)) - (##cdr _%e138531138551%_)))) + (##cdr _%e138690138710%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138533138556%_)) - ((lambda (_%L138559%_) - (let* ((_%bind138571%_ + (gx#stx-null? _%tl138692138715%_)) + ((lambda (_%L138718%_) + (let* ((_%bind138730%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138559%_))) - (_%eid138573%_ - (if _%bind138571%_ + _%L138718%_))) + (_%eid138732%_ + (if _%bind138730%_ (##structure-ref - _%bind138571%_ + _%bind138730%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L138559%_)))) - (__tmp149038 + _%L138718%_)))) + (__tmp149197 (let () (declare (not safe)) (slot-ref__0 - _%self138522%_ + _%self138681%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149038 - _%eid138573%_ - _%eid138573%_))) - _%hd138532138554%_) - (_%g138525138538%_ _%g138526138541%_)))) - (_%g138525138538%_ _%g138526138541%_)))) - (_%g138525138538%_ _%g138526138541%_))))) - (_%g138524138576%_ _%stx138523%_)))) + __tmp149197 + _%eid138732%_ + _%eid138732%_))) + _%hd138691138713%_) + (_%g138684138697%_ _%g138685138700%_)))) + (_%g138684138697%_ _%g138685138700%_)))) + (_%g138684138697%_ _%g138685138700%_))))) + (_%g138683138735%_ _%stx138682%_)))) (define gxc#collect-refs-setq% - (lambda (_%self138449%_ _%stx138450%_) - (let* ((_%g138452138469%_ - (lambda (_%g138453138466%_) + (lambda (_%self138608%_ _%stx138609%_) + (let* ((_%g138611138628%_ + (lambda (_%g138612138625%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138453138466%_)))) - (_%g138451138519%_ - (lambda (_%g138453138472%_) + _%g138612138625%_)))) + (_%g138610138678%_ + (lambda (_%g138612138631%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138453138472%_)) - (let ((_%e138456138474%_ + (gx#stx-pair? _%g138612138631%_)) + (let ((_%e138615138633%_ (let () (declare (not safe)) - (gx#stx-e _%g138453138472%_)))) - (let ((_%hd138457138477%_ + (gx#stx-e _%g138612138631%_)))) + (let ((_%hd138616138636%_ (let () (declare (not safe)) - (##car _%e138456138474%_))) - (_%tl138458138479%_ + (##car _%e138615138633%_))) + (_%tl138617138638%_ (let () (declare (not safe)) - (##cdr _%e138456138474%_)))) + (##cdr _%e138615138633%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138458138479%_)) - (let ((_%e138459138482%_ + (gx#stx-pair? _%tl138617138638%_)) + (let ((_%e138618138641%_ (let () (declare (not safe)) - (gx#stx-e _%tl138458138479%_)))) - (let ((_%hd138460138485%_ + (gx#stx-e _%tl138617138638%_)))) + (let ((_%hd138619138644%_ (let () (declare (not safe)) - (##car _%e138459138482%_))) - (_%tl138461138487%_ + (##car _%e138618138641%_))) + (_%tl138620138646%_ (let () (declare (not safe)) - (##cdr _%e138459138482%_)))) + (##cdr _%e138618138641%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138461138487%_)) - (let ((_%e138462138490%_ + (gx#stx-pair? _%tl138620138646%_)) + (let ((_%e138621138649%_ (let () (declare (not safe)) - (gx#stx-e _%tl138461138487%_)))) - (let ((_%hd138463138493%_ + (gx#stx-e _%tl138620138646%_)))) + (let ((_%hd138622138652%_ (let () (declare (not safe)) - (##car _%e138462138490%_))) - (_%tl138464138495%_ + (##car _%e138621138649%_))) + (_%tl138623138654%_ (let () (declare (not safe)) - (##cdr _%e138462138490%_)))) + (##cdr _%e138621138649%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138464138495%_)) - ((lambda (_%L138498%_ - _%L138499%_) - (let* ((_%bind138514%_ + _%tl138623138654%_)) + ((lambda (_%L138657%_ + _%L138658%_) + (let* ((_%bind138673%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138499%_))) - (_%eid138516%_ - (if _%bind138514%_ + _%L138658%_))) + (_%eid138675%_ + (if _%bind138673%_ (##structure-ref - _%bind138514%_ + _%bind138673%_ '1 gx#binding::t '#f) @@ -14923,382 +14923,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138499%_))))) + (gx#stx-e _%L138658%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp149039 + (let ((__tmp149198 (let () (declare (not safe)) (slot-ref__0 - _%self138449%_ + _%self138608%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149039 - _%eid138516%_ - _%eid138516%_)) + __tmp149198 + _%eid138675%_ + _%eid138675%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138449%_ - _%L138498%_)))) - _%hd138463138493%_ - _%hd138460138485%_) - (_%g138452138469%_ - _%g138453138472%_)))) - (_%g138452138469%_ _%g138453138472%_)))) - (_%g138452138469%_ _%g138453138472%_)))) - (_%g138452138469%_ _%g138453138472%_))))) - (_%g138451138519%_ _%stx138450%_)))) + _%self138608%_ + _%L138657%_)))) + _%hd138622138652%_ + _%hd138619138644%_) + (_%g138611138628%_ + _%g138612138631%_)))) + (_%g138611138628%_ _%g138612138631%_)))) + (_%g138611138628%_ _%g138612138631%_)))) + (_%g138611138628%_ _%g138612138631%_))))) + (_%g138610138678%_ _%stx138609%_)))) (define gxc#find-runtime-begin% - (lambda (_%self138406%_ _%stx138407%_) - (let* ((_%g138409138419%_ - (lambda (_%g138410138416%_) + (lambda (_%self138565%_ _%stx138566%_) + (let* ((_%g138568138578%_ + (lambda (_%g138569138575%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138410138416%_)))) - (_%g138408138446%_ - (lambda (_%g138410138422%_) + _%g138569138575%_)))) + (_%g138567138605%_ + (lambda (_%g138569138581%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138410138422%_)) - (let ((_%e138412138424%_ + (gx#stx-pair? _%g138569138581%_)) + (let ((_%e138571138583%_ (let () (declare (not safe)) - (gx#stx-e _%g138410138422%_)))) - (let ((_%hd138413138427%_ + (gx#stx-e _%g138569138581%_)))) + (let ((_%hd138572138586%_ (let () (declare (not safe)) - (##car _%e138412138424%_))) - (_%tl138414138429%_ + (##car _%e138571138583%_))) + (_%tl138573138588%_ (let () (declare (not safe)) - (##cdr _%e138412138424%_)))) - ((lambda (_%L138432%_) - (let ((__tmp149040 - (lambda (_%g138441138443%_) + (##cdr _%e138571138583%_)))) + ((lambda (_%L138591%_) + (let ((__tmp149199 + (lambda (_%g138600138602%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138406%_ - _%g138441138443%_))))) + _%self138565%_ + _%g138600138602%_))))) (declare (not safe)) - (__ormap1 __tmp149040 _%L138432%_))) - _%tl138414138429%_))) - (_%g138409138419%_ _%g138410138422%_))))) - (_%g138408138446%_ _%stx138407%_)))) + (__ormap1 __tmp149199 _%L138591%_))) + _%tl138573138588%_))) + (_%g138568138578%_ _%g138569138581%_))))) + (_%g138567138605%_ _%stx138566%_)))) (define gxc#count-values-single% - (lambda (_%self138403%_ _%stx138404%_) '1)) + (lambda (_%self138562%_ _%stx138563%_) '1)) (define gxc#count-values-call% - (lambda (_%self138269%_ _%stx138270%_) - (let* ((_%__stx148783148784%_ _%stx138270%_) - (_%g138273138302%_ + (lambda (_%self138428%_ _%stx138429%_) + (let* ((_%__stx148942148943%_ _%stx138429%_) + (_%g138432138461%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148783148784%_))))) - (let ((_%__kont148785148786%_ - (lambda (_%L138370%_ _%L138371%_) - (length (let ((__tmp149041 - (lambda (_%g138392138395%_ _%g138393138397%_) - (cons _%g138392138395%_ - _%g138393138397%_)))) + _%__stx148942148943%_))))) + (let ((_%__kont148944148945%_ + (lambda (_%L138529%_ _%L138530%_) + (length (let ((__tmp149200 + (lambda (_%g138551138554%_ _%g138552138556%_) + (cons _%g138551138554%_ + _%g138552138556%_)))) (declare (not safe)) - (__foldr1 __tmp149041 '() _%L138370%_))))) - (_%__kont148789148790%_ (lambda () '#f))) - (let ((_%__match148828148829%_ - (lambda (_%e138277138314%_ - _%hd138278138317%_ - _%tl138279138319%_ - _%e138280138322%_ - _%hd138281138325%_ - _%tl138282138327%_ - _%e138283138330%_ - _%hd138284138333%_ - _%tl138285138335%_ - _%e138286138338%_ - _%hd138287138341%_ - _%tl138288138343%_ - _%__splice148787148788%_ - _%target138289138346%_ - _%tl138291138348%_) - (letrec ((_%loop138292138351%_ - (lambda (_%hd138290138354%_ - _%rand138296138356%_) + (__foldr1 __tmp149200 '() _%L138529%_))))) + (_%__kont148948148949%_ (lambda () '#f))) + (let ((_%__match148987148988%_ + (lambda (_%e138436138473%_ + _%hd138437138476%_ + _%tl138438138478%_ + _%e138439138481%_ + _%hd138440138484%_ + _%tl138441138486%_ + _%e138442138489%_ + _%hd138443138492%_ + _%tl138444138494%_ + _%e138445138497%_ + _%hd138446138500%_ + _%tl138447138502%_ + _%__splice148946148947%_ + _%target138448138505%_ + _%tl138450138507%_) + (letrec ((_%loop138451138510%_ + (lambda (_%hd138449138513%_ + _%rand138455138515%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138290138354%_)) - (let ((_%e138293138359%_ + (gx#stx-pair? _%hd138449138513%_)) + (let ((_%e138452138518%_ (let () (declare (not safe)) - (gx#stx-e _%hd138290138354%_)))) - (let ((_%lp-tl138295138364%_ + (gx#stx-e _%hd138449138513%_)))) + (let ((_%lp-tl138454138523%_ (let () (declare (not safe)) - (##cdr _%e138293138359%_))) - (_%lp-hd138294138362%_ + (##cdr _%e138452138518%_))) + (_%lp-hd138453138521%_ (let () (declare (not safe)) - (##car _%e138293138359%_)))) - (_%loop138292138351%_ - _%lp-tl138295138364%_ - (cons _%lp-hd138294138362%_ - _%rand138296138356%_)))) - (let ((_%rand138297138367%_ - (reverse _%rand138296138356%_))) - (let ((_%L138370%_ _%rand138297138367%_) - (_%L138371%_ _%hd138287138341%_)) + (##car _%e138452138518%_)))) + (_%loop138451138510%_ + _%lp-tl138454138523%_ + (cons _%lp-hd138453138521%_ + _%rand138455138515%_)))) + (let ((_%rand138456138526%_ + (reverse _%rand138455138515%_))) + (let ((_%L138529%_ _%rand138456138526%_) + (_%L138530%_ _%hd138446138500%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L138371%_ + _%L138530%_ 'values)) - (_%__kont148785148786%_ - _%L138370%_ - _%L138371%_) - (_%__kont148789148790%_)))))))) - (_%loop138292138351%_ _%target138289138346%_ '()))))) + (_%__kont148944148945%_ + _%L138529%_ + _%L138530%_) + (_%__kont148948148949%_)))))))) + (_%loop138451138510%_ _%target138448138505%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148783148784%_)) - (let ((_%e138277138314%_ + (gx#stx-pair? _%__stx148942148943%_)) + (let ((_%e138436138473%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148783148784%_)))) - (let ((_%tl138279138319%_ + (gx#stx-e _%__stx148942148943%_)))) + (let ((_%tl138438138478%_ (let () (declare (not safe)) - (##cdr _%e138277138314%_))) - (_%hd138278138317%_ + (##cdr _%e138436138473%_))) + (_%hd138437138476%_ (let () (declare (not safe)) - (##car _%e138277138314%_)))) + (##car _%e138436138473%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138279138319%_)) - (let ((_%e138280138322%_ + (gx#stx-pair? _%tl138438138478%_)) + (let ((_%e138439138481%_ (let () (declare (not safe)) - (gx#stx-e _%tl138279138319%_)))) - (let ((_%tl138282138327%_ + (gx#stx-e _%tl138438138478%_)))) + (let ((_%tl138441138486%_ (let () (declare (not safe)) - (##cdr _%e138280138322%_))) - (_%hd138281138325%_ + (##cdr _%e138439138481%_))) + (_%hd138440138484%_ (let () (declare (not safe)) - (##car _%e138280138322%_)))) + (##car _%e138439138481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138281138325%_)) - (let ((_%e138283138330%_ + (gx#stx-pair? _%hd138440138484%_)) + (let ((_%e138442138489%_ (let () (declare (not safe)) - (gx#stx-e _%hd138281138325%_)))) - (let ((_%tl138285138335%_ + (gx#stx-e _%hd138440138484%_)))) + (let ((_%tl138444138494%_ (let () (declare (not safe)) - (##cdr _%e138283138330%_))) - (_%hd138284138333%_ + (##cdr _%e138442138489%_))) + (_%hd138443138492%_ (let () (declare (not safe)) - (##car _%e138283138330%_)))) + (##car _%e138442138489%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138284138333%_)) + _%hd138443138492%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138284138333%_)) + _%hd138443138492%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138285138335%_)) - (let ((_%e138286138338%_ + _%tl138444138494%_)) + (let ((_%e138445138497%_ (let () (declare (not safe)) (gx#stx-e - _%tl138285138335%_)))) - (let ((_%tl138288138343%_ + _%tl138444138494%_)))) + (let ((_%tl138447138502%_ (let () (declare (not safe)) - (##cdr _%e138286138338%_))) - (_%hd138287138341%_ + (##cdr _%e138445138497%_))) + (_%hd138446138500%_ (let () (declare (not safe)) - (##car _%e138286138338%_)))) + (##car _%e138445138497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138288138343%_)) + _%tl138447138502%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl138282138327%_)) - (let ((_%__splice148787148788%_ + (gx#stx-pair/null? _%tl138441138486%_)) + (let ((_%__splice148946148947%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138282138327%_ + _%tl138441138486%_ '0)))) - (let ((_%tl138291138348%_ + (let ((_%tl138450138507%_ (let () (declare (not safe)) - (##vector-ref _%__splice148787148788%_ '1))) - (_%target138289138346%_ + (##vector-ref _%__splice148946148947%_ '1))) + (_%target138448138505%_ (let () (declare (not safe)) - (##vector-ref _%__splice148787148788%_ '0)))) + (##vector-ref _%__splice148946148947%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138291138348%_)) - (_%__match148828148829%_ - _%e138277138314%_ - _%hd138278138317%_ - _%tl138279138319%_ - _%e138280138322%_ - _%hd138281138325%_ - _%tl138282138327%_ - _%e138283138330%_ - _%hd138284138333%_ - _%tl138285138335%_ - _%e138286138338%_ - _%hd138287138341%_ - _%tl138288138343%_ - _%__splice148787148788%_ - _%target138289138346%_ - _%tl138291138348%_) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_)) - (_%__kont148789148790%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148789148790%_)) - (_%__kont148789148790%_)) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_))))))) + (gx#stx-null? _%tl138450138507%_)) + (_%__match148987148988%_ + _%e138436138473%_ + _%hd138437138476%_ + _%tl138438138478%_ + _%e138439138481%_ + _%hd138440138484%_ + _%tl138441138486%_ + _%e138442138489%_ + _%hd138443138492%_ + _%tl138444138494%_ + _%e138445138497%_ + _%hd138446138500%_ + _%tl138447138502%_ + _%__splice148946148947%_ + _%target138448138505%_ + _%tl138450138507%_) + (_%__kont148948148949%_)))) + (_%__kont148948148949%_)) + (_%__kont148948148949%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148948148949%_)) + (_%__kont148948148949%_)) + (_%__kont148948148949%_)))) + (_%__kont148948148949%_)))) + (_%__kont148948148949%_)))) + (_%__kont148948148949%_))))))) (define gxc#count-values-if% - (lambda (_%self138172%_ _%stx138173%_) - (let* ((_%g138175138196%_ - (lambda (_%g138176138193%_) + (lambda (_%self138331%_ _%stx138332%_) + (let* ((_%g138334138355%_ + (lambda (_%g138335138352%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138176138193%_)))) - (_%g138174138266%_ - (lambda (_%g138176138199%_) + _%g138335138352%_)))) + (_%g138333138425%_ + (lambda (_%g138335138358%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138176138199%_)) - (let ((_%e138180138201%_ + (gx#stx-pair? _%g138335138358%_)) + (let ((_%e138339138360%_ (let () (declare (not safe)) - (gx#stx-e _%g138176138199%_)))) - (let ((_%hd138181138204%_ + (gx#stx-e _%g138335138358%_)))) + (let ((_%hd138340138363%_ (let () (declare (not safe)) - (##car _%e138180138201%_))) - (_%tl138182138206%_ + (##car _%e138339138360%_))) + (_%tl138341138365%_ (let () (declare (not safe)) - (##cdr _%e138180138201%_)))) + (##cdr _%e138339138360%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138182138206%_)) - (let ((_%e138183138209%_ + (gx#stx-pair? _%tl138341138365%_)) + (let ((_%e138342138368%_ (let () (declare (not safe)) - (gx#stx-e _%tl138182138206%_)))) - (let ((_%hd138184138212%_ + (gx#stx-e _%tl138341138365%_)))) + (let ((_%hd138343138371%_ (let () (declare (not safe)) - (##car _%e138183138209%_))) - (_%tl138185138214%_ + (##car _%e138342138368%_))) + (_%tl138344138373%_ (let () (declare (not safe)) - (##cdr _%e138183138209%_)))) + (##cdr _%e138342138368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138185138214%_)) - (let ((_%e138186138217%_ + (gx#stx-pair? _%tl138344138373%_)) + (let ((_%e138345138376%_ (let () (declare (not safe)) - (gx#stx-e _%tl138185138214%_)))) - (let ((_%hd138187138220%_ + (gx#stx-e _%tl138344138373%_)))) + (let ((_%hd138346138379%_ (let () (declare (not safe)) - (##car _%e138186138217%_))) - (_%tl138188138222%_ + (##car _%e138345138376%_))) + (_%tl138347138381%_ (let () (declare (not safe)) - (##cdr _%e138186138217%_)))) + (##cdr _%e138345138376%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138188138222%_)) - (let ((_%e138189138225%_ + _%tl138347138381%_)) + (let ((_%e138348138384%_ (let () (declare (not safe)) (gx#stx-e - _%tl138188138222%_)))) - (let ((_%hd138190138228%_ + _%tl138347138381%_)))) + (let ((_%hd138349138387%_ (let () (declare (not safe)) - (##car _%e138189138225%_))) - (_%tl138191138230%_ + (##car _%e138348138384%_))) + (_%tl138350138389%_ (let () (declare (not safe)) - (##cdr _%e138189138225%_)))) + (##cdr _%e138348138384%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138191138230%_)) - ((lambda (_%L138233%_ - _%L138234%_ - _%L138235%_) - (let ((_%c1138252138254%_ + _%tl138350138389%_)) + ((lambda (_%L138392%_ + _%L138393%_ + _%L138394%_) + (let ((_%c1138411138413%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138172%_ _%L138234%_)))) - (if _%c1138252138254%_ - (let* ((_%c1138257%_ _%c1138252138254%_) - (_%c2138258138260%_ + (gxc#compile-e__1 _%self138331%_ _%L138393%_)))) + (if _%c1138411138413%_ + (let* ((_%c1138416%_ _%c1138411138413%_) + (_%c2138417138419%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138172%_ - _%L138233%_)))) - (if _%c2138258138260%_ - (let ((_%c2138263%_ _%c2138258138260%_)) - (if (fx= _%c1138257%_ _%c2138263%_) - _%c1138257%_ + _%self138331%_ + _%L138392%_)))) + (if _%c2138417138419%_ + (let ((_%c2138422%_ _%c2138417138419%_)) + (if (fx= _%c1138416%_ _%c2138422%_) + _%c1138416%_ '#f)) '#f)) '#f))) - _%hd138190138228%_ - _%hd138187138220%_ - _%hd138184138212%_) - (_%g138175138196%_ _%g138176138199%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138175138196%_ - _%g138176138199%_)))) - (_%g138175138196%_ _%g138176138199%_)))) - (_%g138175138196%_ _%g138176138199%_)))) - (_%g138175138196%_ _%g138176138199%_))))) - (_%g138174138266%_ _%stx138173%_)))))) + _%hd138349138387%_ + _%hd138346138379%_ + _%hd138343138371%_) + (_%g138334138355%_ _%g138335138358%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g138334138355%_ + _%g138335138358%_)))) + (_%g138334138355%_ _%g138335138358%_)))) + (_%g138334138355%_ _%g138335138358%_)))) + (_%g138334138355%_ _%g138335138358%_))))) + (_%g138333138425%_ _%stx138332%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 333b508a4..874625c96 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]#_g149043_| + (define |gxc[1]#_g149202_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149045_| + (define |gxc[1]#_g149204_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149047_| + (define |gxc[1]#_g149206_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149049_| + (define |gxc[1]#_g149208_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149052_| + (define |gxc[1]#_g149211_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149054_| + (define |gxc[1]#_g149213_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149056_| + (define |gxc[1]#_g149215_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149058_| + (define |gxc[1]#_g149217_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149060_| + (define |gxc[1]#_g149219_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149062_| + (define |gxc[1]#_g149221_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149064_| + (define |gxc[1]#_g149223_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149066_| + (define |gxc[1]#_g149225_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149068_| + (define |gxc[1]#_g149227_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149070_| + (define |gxc[1]#_g149229_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149072_| + (define |gxc[1]#_g149231_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149074_| + (define |gxc[1]#_g149233_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149076_| + (define |gxc[1]#_g149235_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149078_| + (define |gxc[1]#_g149237_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149080_| + (define |gxc[1]#_g149239_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149082_| + (define |gxc[1]#_g149241_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149084_| + (define |gxc[1]#_g149243_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149086_| + (define |gxc[1]#_g149245_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149088_| + (define |gxc[1]#_g149247_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149090_| + (define |gxc[1]#_g149249_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149092_| + (define |gxc[1]#_g149251_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149094_| + (define |gxc[1]#_g149253_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149096_| + (define |gxc[1]#_g149255_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149098_| + (define |gxc[1]#_g149257_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149100_| + (define |gxc[1]#_g149259_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149103_| + (define |gxc[1]#_g149262_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149105_| + (define |gxc[1]#_g149264_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149107_| + (define |gxc[1]#_g149266_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149109_| + (define |gxc[1]#_g149268_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149111_| + (define |gxc[1]#_g149270_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149113_| + (define |gxc[1]#_g149272_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149115_| + (define |gxc[1]#_g149274_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149117_| + (define |gxc[1]#_g149276_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149119_| + (define |gxc[1]#_g149278_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149121_| + (define |gxc[1]#_g149280_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149123_| + (define |gxc[1]#_g149282_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149125_| + (define |gxc[1]#_g149284_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149127_| + (define |gxc[1]#_g149286_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149129_| + (define |gxc[1]#_g149288_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149131_| + (define |gxc[1]#_g149290_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149133_| + (define |gxc[1]#_g149292_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149135_| + (define |gxc[1]#_g149294_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149137_| + (define |gxc[1]#_g149296_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149139_| + (define |gxc[1]#_g149298_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149141_| + (define |gxc[1]#_g149300_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149143_| + (define |gxc[1]#_g149302_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149145_| + (define |gxc[1]#_g149304_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149147_| + (define |gxc[1]#_g149306_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149149_| + (define |gxc[1]#_g149308_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149151_| + (define |gxc[1]#_g149310_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149153_| + (define |gxc[1]#_g149312_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149155_| + (define |gxc[1]#_g149314_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149157_| + (define |gxc[1]#_g149316_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149159_| + (define |gxc[1]#_g149318_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149164_| + (define |gxc[1]#_g149323_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149166_| + (define |gxc[1]#_g149325_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149168_| + (define |gxc[1]#_g149327_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149170_| + (define |gxc[1]#_g149329_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149171_| + (define |gxc[1]#_g149330_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149172_| + (define |gxc[1]#_g149331_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149173_| + (define |gxc[1]#_g149332_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149175_| + (define |gxc[1]#_g149334_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149176_| + (define |gxc[1]#_g149335_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149177_| + (define |gxc[1]#_g149336_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149178_| + (define |gxc[1]#_g149337_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149180_| + (define |gxc[1]#_g149339_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149181_| + (define |gxc[1]#_g149340_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149182_| + (define |gxc[1]#_g149341_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149183_| + (define |gxc[1]#_g149342_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149185_| + (define |gxc[1]#_g149344_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149186_| + (define |gxc[1]#_g149345_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149187_| + (define |gxc[1]#_g149346_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149188_| + (define |gxc[1]#_g149347_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149190_| + (define |gxc[1]#_g149349_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149192_| + (define |gxc[1]#_g149351_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149194_| + (define |gxc[1]#_g149353_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149196_| + (define |gxc[1]#_g149355_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149197_| + (define |gxc[1]#_g149356_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149198_| + (define |gxc[1]#_g149357_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149199_| + (define |gxc[1]#_g149358_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149201_| + (define |gxc[1]#_g149360_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149202_| + (define |gxc[1]#_g149361_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149203_| + (define |gxc[1]#_g149362_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149204_| + (define |gxc[1]#_g149363_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149206_| + (define |gxc[1]#_g149365_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149207_| + (define |gxc[1]#_g149366_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149208_| + (define |gxc[1]#_g149367_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149209_| + (define |gxc[1]#_g149368_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149211_| + (define |gxc[1]#_g149370_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149212_| + (define |gxc[1]#_g149371_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149213_| + (define |gxc[1]#_g149372_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149214_| + (define |gxc[1]#_g149373_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj148830 + (let ((__obj148989 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148830 + __obj148989 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148830 + __obj148989 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '6 '#f '#f)) - (let ((__tmp149042 (cons |gxc[1]#_g149043_| '()))) + (##unchecked-structure-set! __obj148989 '() '6 '#f '#f)) + (let ((__tmp149201 (cons |gxc[1]#_g149202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149042 '3 '#f '#f)) + (##unchecked-structure-set! __obj148989 __tmp149201 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148989 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148989 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148989 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#f '11 '#f '#f)) - (let ((__tmp149044 |gxc[1]#_g149045_|)) + (##unchecked-structure-set! __obj148989 '#f '11 '#f '#f)) + (let ((__tmp149203 |gxc[1]#_g149204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149044 '12 '#f '#f)) - (let ((__tmp149046 |gxc[1]#_g149047_|)) + (##unchecked-structure-set! __obj148989 __tmp149203 '12 '#f '#f)) + (let ((__tmp149205 |gxc[1]#_g149206_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149046 '13 '#f '#f)) - (let ((__tmp149048 |gxc[1]#_g149049_|)) + (##unchecked-structure-set! __obj148989 __tmp149205 '13 '#f '#f)) + (let ((__tmp149207 |gxc[1]#_g149208_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149048 '14 '#f '#f)) + (##unchecked-structure-set! __obj148989 __tmp149207 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148989 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '20 '#f '#f)) - __obj148830)) + (##unchecked-structure-set! __obj148989 '() '20 '#f '#f)) + __obj148989)) (define |gxc[:0:]#::lift-modules| - (let ((__obj148832 + (let ((__obj148991 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148832 + __obj148991 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj148991 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj148991 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '(modules) '6 '#f '#f)) - (let ((__tmp149050 (cons |gxc[1]#_g149043_| '()))) + (##unchecked-structure-set! __obj148991 '(modules) '6 '#f '#f)) + (let ((__tmp149209 (cons |gxc[1]#_g149202_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149050 '3 '#f '#f)) + (##unchecked-structure-set! __obj148991 __tmp149209 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148991 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148991 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148991 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#f '11 '#f '#f)) - (let ((__tmp149051 |gxc[1]#_g149052_|)) + (##unchecked-structure-set! __obj148991 '#f '11 '#f '#f)) + (let ((__tmp149210 |gxc[1]#_g149211_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149051 '12 '#f '#f)) - (let ((__tmp149053 |gxc[1]#_g149054_|)) + (##unchecked-structure-set! __obj148991 __tmp149210 '12 '#f '#f)) + (let ((__tmp149212 |gxc[1]#_g149213_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149053 '13 '#f '#f)) - (let ((__tmp149055 |gxc[1]#_g149056_|)) + (##unchecked-structure-set! __obj148991 __tmp149212 '13 '#f '#f)) + (let ((__tmp149214 |gxc[1]#_g149215_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149055 '14 '#f '#f)) - (let ((__tmp149057 (cons (cons 'modules |gxc[1]#_g149058_|) '()))) + (##unchecked-structure-set! __obj148991 __tmp149214 '14 '#f '#f)) + (let ((__tmp149216 (cons (cons 'modules |gxc[1]#_g149217_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149057 '15 '#f '#f)) - (let ((__tmp149059 (cons (cons 'modules |gxc[1]#_g149060_|) '()))) + (##unchecked-structure-set! __obj148991 __tmp149216 '15 '#f '#f)) + (let ((__tmp149218 (cons (cons 'modules |gxc[1]#_g149219_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149059 '16 '#f '#f)) - (let ((__tmp149061 (cons (cons 'modules |gxc[1]#_g149062_|) '()))) + (##unchecked-structure-set! __obj148991 __tmp149218 '16 '#f '#f)) + (let ((__tmp149220 (cons (cons 'modules |gxc[1]#_g149221_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149061 '17 '#f '#f)) - (let ((__tmp149063 (cons (cons 'modules |gxc[1]#_g149064_|) '()))) + (##unchecked-structure-set! __obj148991 __tmp149220 '17 '#f '#f)) + (let ((__tmp149222 (cons (cons 'modules |gxc[1]#_g149223_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149063 '18 '#f '#f)) + (##unchecked-structure-set! __obj148991 __tmp149222 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148991 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148991 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '() '20 '#f '#f)) - __obj148832)) + (##unchecked-structure-set! __obj148991 '() '20 '#f '#f)) + __obj148991)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj148834 + (let ((__obj148993 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148834 + __obj148993 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148834 + __obj148993 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148993 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148993 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148993 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#f '11 '#f '#f)) - (let ((__tmp149065 |gxc[1]#_g149066_|)) + (##unchecked-structure-set! __obj148993 '#f '11 '#f '#f)) + (let ((__tmp149224 |gxc[1]#_g149225_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148834 __tmp149065 '12 '#f '#f)) - (let ((__tmp149067 |gxc[1]#_g149068_|)) + (##unchecked-structure-set! __obj148993 __tmp149224 '12 '#f '#f)) + (let ((__tmp149226 |gxc[1]#_g149227_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148834 __tmp149067 '13 '#f '#f)) - (let ((__tmp149069 |gxc[1]#_g149070_|)) + (##unchecked-structure-set! __obj148993 __tmp149226 '13 '#f '#f)) + (let ((__tmp149228 |gxc[1]#_g149229_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148834 __tmp149069 '14 '#f '#f)) + (##unchecked-structure-set! __obj148993 __tmp149228 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148993 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '20 '#f '#f)) - __obj148834)) + (##unchecked-structure-set! __obj148993 '() '20 '#f '#f)) + __obj148993)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj148836 + (let ((__obj148995 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148836 + __obj148995 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148836 + __obj148995 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '6 '#f '#f)) - (let ((__tmp149071 (cons |gxc[1]#_g149072_| '()))) + (##unchecked-structure-set! __obj148995 '() '6 '#f '#f)) + (let ((__tmp149230 (cons |gxc[1]#_g149231_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149071 '3 '#f '#f)) + (##unchecked-structure-set! __obj148995 __tmp149230 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148995 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148995 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148995 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#f '11 '#f '#f)) - (let ((__tmp149073 |gxc[1]#_g149074_|)) + (##unchecked-structure-set! __obj148995 '#f '11 '#f '#f)) + (let ((__tmp149232 |gxc[1]#_g149233_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149073 '12 '#f '#f)) - (let ((__tmp149075 |gxc[1]#_g149076_|)) + (##unchecked-structure-set! __obj148995 __tmp149232 '12 '#f '#f)) + (let ((__tmp149234 |gxc[1]#_g149235_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149075 '13 '#f '#f)) - (let ((__tmp149077 |gxc[1]#_g149078_|)) + (##unchecked-structure-set! __obj148995 __tmp149234 '13 '#f '#f)) + (let ((__tmp149236 |gxc[1]#_g149237_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149077 '14 '#f '#f)) + (##unchecked-structure-set! __obj148995 __tmp149236 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148995 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '20 '#f '#f)) - __obj148836)) + (##unchecked-structure-set! __obj148995 '() '20 '#f '#f)) + __obj148995)) (define |gxc[:0:]#::count-values| - (let ((__obj148838 + (let ((__obj148997 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148838 + __obj148997 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj148997 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '6 '#f '#f)) - (let ((__tmp149079 (cons |gxc[1]#_g149080_| '()))) + (##unchecked-structure-set! __obj148997 '() '6 '#f '#f)) + (let ((__tmp149238 (cons |gxc[1]#_g149239_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149079 '3 '#f '#f)) + (##unchecked-structure-set! __obj148997 __tmp149238 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148997 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj148997 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148997 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#f '11 '#f '#f)) - (let ((__tmp149081 |gxc[1]#_g149082_|)) + (##unchecked-structure-set! __obj148997 '#f '11 '#f '#f)) + (let ((__tmp149240 |gxc[1]#_g149241_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149081 '12 '#f '#f)) - (let ((__tmp149083 |gxc[1]#_g149084_|)) + (##unchecked-structure-set! __obj148997 __tmp149240 '12 '#f '#f)) + (let ((__tmp149242 |gxc[1]#_g149243_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149083 '13 '#f '#f)) - (let ((__tmp149085 |gxc[1]#_g149086_|)) + (##unchecked-structure-set! __obj148997 __tmp149242 '13 '#f '#f)) + (let ((__tmp149244 |gxc[1]#_g149245_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149085 '14 '#f '#f)) + (##unchecked-structure-set! __obj148997 __tmp149244 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148997 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '20 '#f '#f)) - __obj148838)) + (##unchecked-structure-set! __obj148997 '() '20 '#f '#f)) + __obj148997)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj148840 + (let ((__obj148999 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148840 + __obj148999 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148840 + __obj148999 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj148999 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj148999 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj148999 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '11 '#f '#f)) - (let ((__tmp149087 |gxc[1]#_g149088_|)) + (##unchecked-structure-set! __obj148999 '#f '11 '#f '#f)) + (let ((__tmp149246 |gxc[1]#_g149247_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148840 __tmp149087 '12 '#f '#f)) - (let ((__tmp149089 |gxc[1]#_g149090_|)) + (##unchecked-structure-set! __obj148999 __tmp149246 '12 '#f '#f)) + (let ((__tmp149248 |gxc[1]#_g149249_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148840 __tmp149089 '13 '#f '#f)) - (let ((__tmp149091 |gxc[1]#_g149092_|)) + (##unchecked-structure-set! __obj148999 __tmp149248 '13 '#f '#f)) + (let ((__tmp149250 |gxc[1]#_g149251_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148840 __tmp149091 '14 '#f '#f)) + (##unchecked-structure-set! __obj148999 __tmp149250 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj148999 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '20 '#f '#f)) - __obj148840)) + (##unchecked-structure-set! __obj148999 '() '20 '#f '#f)) + __obj148999)) (define |gxc[:0:]#::generate-loader| - (let ((__obj148841 + (let ((__obj149000 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148841 + __obj149000 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148841 + __obj149000 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '6 '#f '#f)) - (let ((__tmp149093 (cons |gxc[1]#_g149094_| '()))) + (##unchecked-structure-set! __obj149000 '() '6 '#f '#f)) + (let ((__tmp149252 (cons |gxc[1]#_g149253_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149093 '3 '#f '#f)) + (##unchecked-structure-set! __obj149000 __tmp149252 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149000 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149000 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149000 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#f '11 '#f '#f)) - (let ((__tmp149095 |gxc[1]#_g149096_|)) + (##unchecked-structure-set! __obj149000 '#f '11 '#f '#f)) + (let ((__tmp149254 |gxc[1]#_g149255_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149095 '12 '#f '#f)) - (let ((__tmp149097 |gxc[1]#_g149098_|)) + (##unchecked-structure-set! __obj149000 __tmp149254 '12 '#f '#f)) + (let ((__tmp149256 |gxc[1]#_g149257_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149097 '13 '#f '#f)) - (let ((__tmp149099 |gxc[1]#_g149100_|)) + (##unchecked-structure-set! __obj149000 __tmp149256 '13 '#f '#f)) + (let ((__tmp149258 |gxc[1]#_g149259_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149099 '14 '#f '#f)) + (##unchecked-structure-set! __obj149000 __tmp149258 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149000 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '20 '#f '#f)) - __obj148841)) + (##unchecked-structure-set! __obj149000 '() '20 '#f '#f)) + __obj149000)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj148843 + (let ((__obj149002 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148843 + __obj149002 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148843 + __obj149002 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '6 '#f '#f)) - (let ((__tmp149101 (cons |gxc[1]#_g149094_| '()))) + (##unchecked-structure-set! __obj149002 '() '6 '#f '#f)) + (let ((__tmp149260 (cons |gxc[1]#_g149253_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149101 '3 '#f '#f)) + (##unchecked-structure-set! __obj149002 __tmp149260 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149002 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149002 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149002 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '11 '#f '#f)) - (let ((__tmp149102 |gxc[1]#_g149103_|)) + (##unchecked-structure-set! __obj149002 '#f '11 '#f '#f)) + (let ((__tmp149261 |gxc[1]#_g149262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149102 '12 '#f '#f)) - (let ((__tmp149104 |gxc[1]#_g149105_|)) + (##unchecked-structure-set! __obj149002 __tmp149261 '12 '#f '#f)) + (let ((__tmp149263 |gxc[1]#_g149264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149104 '13 '#f '#f)) - (let ((__tmp149106 |gxc[1]#_g149107_|)) + (##unchecked-structure-set! __obj149002 __tmp149263 '13 '#f '#f)) + (let ((__tmp149265 |gxc[1]#_g149266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149106 '14 '#f '#f)) + (##unchecked-structure-set! __obj149002 __tmp149265 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149002 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '20 '#f '#f)) - __obj148843)) + (##unchecked-structure-set! __obj149002 '() '20 '#f '#f)) + __obj149002)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj148845 + (let ((__obj149004 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148845 + __obj149004 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148845 + __obj149004 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '6 '#f '#f)) - (let ((__tmp149108 (cons |gxc[1]#_g149109_| '()))) + (##unchecked-structure-set! __obj149004 '() '6 '#f '#f)) + (let ((__tmp149267 (cons |gxc[1]#_g149268_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149108 '3 '#f '#f)) + (##unchecked-structure-set! __obj149004 __tmp149267 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149004 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149004 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149004 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#f '11 '#f '#f)) - (let ((__tmp149110 |gxc[1]#_g149111_|)) + (##unchecked-structure-set! __obj149004 '#f '11 '#f '#f)) + (let ((__tmp149269 |gxc[1]#_g149270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149110 '12 '#f '#f)) - (let ((__tmp149112 |gxc[1]#_g149113_|)) + (##unchecked-structure-set! __obj149004 __tmp149269 '12 '#f '#f)) + (let ((__tmp149271 |gxc[1]#_g149272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149112 '13 '#f '#f)) - (let ((__tmp149114 |gxc[1]#_g149115_|)) + (##unchecked-structure-set! __obj149004 __tmp149271 '13 '#f '#f)) + (let ((__tmp149273 |gxc[1]#_g149274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149114 '14 '#f '#f)) + (##unchecked-structure-set! __obj149004 __tmp149273 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149004 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '20 '#f '#f)) - __obj148845)) + (##unchecked-structure-set! __obj149004 '() '20 '#f '#f)) + __obj149004)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj148847 + (let ((__obj149006 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148847 + __obj149006 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148847 + __obj149006 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj149006 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj149006 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149006 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149006 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149006 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149006 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '11 '#f '#f)) - (let ((__tmp149116 |gxc[1]#_g149117_|)) + (##unchecked-structure-set! __obj149006 '#f '11 '#f '#f)) + (let ((__tmp149275 |gxc[1]#_g149276_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149116 '12 '#f '#f)) - (let ((__tmp149118 |gxc[1]#_g149119_|)) + (##unchecked-structure-set! __obj149006 __tmp149275 '12 '#f '#f)) + (let ((__tmp149277 |gxc[1]#_g149278_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149118 '13 '#f '#f)) - (let ((__tmp149120 |gxc[1]#_g149121_|)) + (##unchecked-structure-set! __obj149006 __tmp149277 '13 '#f '#f)) + (let ((__tmp149279 |gxc[1]#_g149280_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149120 '14 '#f '#f)) - (let ((__tmp149122 (cons (cons 'table |gxc[1]#_g149123_|) '()))) + (##unchecked-structure-set! __obj149006 __tmp149279 '14 '#f '#f)) + (let ((__tmp149281 (cons (cons 'table |gxc[1]#_g149282_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149122 '15 '#f '#f)) - (let ((__tmp149124 (cons (cons 'table |gxc[1]#_g149125_|) '()))) + (##unchecked-structure-set! __obj149006 __tmp149281 '15 '#f '#f)) + (let ((__tmp149283 (cons (cons 'table |gxc[1]#_g149284_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149124 '16 '#f '#f)) - (let ((__tmp149126 (cons (cons 'table |gxc[1]#_g149127_|) '()))) + (##unchecked-structure-set! __obj149006 __tmp149283 '16 '#f '#f)) + (let ((__tmp149285 (cons (cons 'table |gxc[1]#_g149286_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149126 '17 '#f '#f)) - (let ((__tmp149128 (cons (cons 'table |gxc[1]#_g149129_|) '()))) + (##unchecked-structure-set! __obj149006 __tmp149285 '17 '#f '#f)) + (let ((__tmp149287 (cons (cons 'table |gxc[1]#_g149288_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149128 '18 '#f '#f)) + (##unchecked-structure-set! __obj149006 __tmp149287 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149006 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149006 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '20 '#f '#f)) - __obj148847)) + (##unchecked-structure-set! __obj149006 '() '20 '#f '#f)) + __obj149006)) (define |gxc[:0:]#::generate-meta| - (let ((__obj148849 + (let ((__obj149008 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148849 + __obj149008 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj149008 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj149008 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '(state) '6 '#f '#f)) - (let ((__tmp149130 (cons |gxc[1]#_g149131_| '()))) + (##unchecked-structure-set! __obj149008 '(state) '6 '#f '#f)) + (let ((__tmp149289 (cons |gxc[1]#_g149290_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149130 '3 '#f '#f)) + (##unchecked-structure-set! __obj149008 __tmp149289 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149008 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149008 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149008 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#f '11 '#f '#f)) - (let ((__tmp149132 |gxc[1]#_g149133_|)) + (##unchecked-structure-set! __obj149008 '#f '11 '#f '#f)) + (let ((__tmp149291 |gxc[1]#_g149292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149132 '12 '#f '#f)) - (let ((__tmp149134 |gxc[1]#_g149135_|)) + (##unchecked-structure-set! __obj149008 __tmp149291 '12 '#f '#f)) + (let ((__tmp149293 |gxc[1]#_g149294_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149134 '13 '#f '#f)) - (let ((__tmp149136 |gxc[1]#_g149137_|)) + (##unchecked-structure-set! __obj149008 __tmp149293 '13 '#f '#f)) + (let ((__tmp149295 |gxc[1]#_g149296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149136 '14 '#f '#f)) - (let ((__tmp149138 (cons (cons 'state |gxc[1]#_g149139_|) '()))) + (##unchecked-structure-set! __obj149008 __tmp149295 '14 '#f '#f)) + (let ((__tmp149297 (cons (cons 'state |gxc[1]#_g149298_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149138 '15 '#f '#f)) - (let ((__tmp149140 (cons (cons 'state |gxc[1]#_g149141_|) '()))) + (##unchecked-structure-set! __obj149008 __tmp149297 '15 '#f '#f)) + (let ((__tmp149299 (cons (cons 'state |gxc[1]#_g149300_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149140 '16 '#f '#f)) - (let ((__tmp149142 (cons (cons 'state |gxc[1]#_g149143_|) '()))) + (##unchecked-structure-set! __obj149008 __tmp149299 '16 '#f '#f)) + (let ((__tmp149301 (cons (cons 'state |gxc[1]#_g149302_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149142 '17 '#f '#f)) - (let ((__tmp149144 (cons (cons 'state |gxc[1]#_g149145_|) '()))) + (##unchecked-structure-set! __obj149008 __tmp149301 '17 '#f '#f)) + (let ((__tmp149303 (cons (cons 'state |gxc[1]#_g149304_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149144 '18 '#f '#f)) + (##unchecked-structure-set! __obj149008 __tmp149303 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149008 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149008 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '() '20 '#f '#f)) - __obj148849)) + (##unchecked-structure-set! __obj149008 '() '20 '#f '#f)) + __obj149008)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj148851 + (let ((__obj149010 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148851 + __obj149010 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148851 + __obj149010 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj149010 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj149010 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149010 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149010 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149010 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149010 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#f '11 '#f '#f)) - (let ((__tmp149146 |gxc[1]#_g149147_|)) + (##unchecked-structure-set! __obj149010 '#f '11 '#f '#f)) + (let ((__tmp149305 |gxc[1]#_g149306_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149146 '12 '#f '#f)) - (let ((__tmp149148 |gxc[1]#_g149149_|)) + (##unchecked-structure-set! __obj149010 __tmp149305 '12 '#f '#f)) + (let ((__tmp149307 |gxc[1]#_g149308_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149148 '13 '#f '#f)) - (let ((__tmp149150 |gxc[1]#_g149151_|)) + (##unchecked-structure-set! __obj149010 __tmp149307 '13 '#f '#f)) + (let ((__tmp149309 |gxc[1]#_g149310_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149150 '14 '#f '#f)) - (let ((__tmp149152 (cons (cons 'state |gxc[1]#_g149153_|) '()))) + (##unchecked-structure-set! __obj149010 __tmp149309 '14 '#f '#f)) + (let ((__tmp149311 (cons (cons 'state |gxc[1]#_g149312_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149152 '15 '#f '#f)) - (let ((__tmp149154 (cons (cons 'state |gxc[1]#_g149155_|) '()))) + (##unchecked-structure-set! __obj149010 __tmp149311 '15 '#f '#f)) + (let ((__tmp149313 (cons (cons 'state |gxc[1]#_g149314_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149154 '16 '#f '#f)) - (let ((__tmp149156 (cons (cons 'state |gxc[1]#_g149157_|) '()))) + (##unchecked-structure-set! __obj149010 __tmp149313 '16 '#f '#f)) + (let ((__tmp149315 (cons (cons 'state |gxc[1]#_g149316_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149156 '17 '#f '#f)) - (let ((__tmp149158 (cons (cons 'state |gxc[1]#_g149159_|) '()))) + (##unchecked-structure-set! __obj149010 __tmp149315 '17 '#f '#f)) + (let ((__tmp149317 (cons (cons 'state |gxc[1]#_g149318_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149158 '18 '#f '#f)) + (##unchecked-structure-set! __obj149010 __tmp149317 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149010 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149010 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '20 '#f '#f)) - __obj148851)) + (##unchecked-structure-set! __obj149010 '() '20 '#f '#f)) + __obj149010)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx137920%_) - (let* ((_%g137924137959%_ - (lambda (_%g137925137955%_) + (lambda (_%$stx138079%_) + (let* ((_%g138083138118%_ + (lambda (_%g138084138114%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137925137955%_)))) - (_%g137923138085%_ - (lambda (_%g137925137963%_) + _%g138084138114%_)))) + (_%g138082138244%_ + (lambda (_%g138084138122%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137925137963%_)) - (let ((_%e137930137966%_ + (gx#stx-pair? _%g138084138122%_)) + (let ((_%e138089138125%_ (let () (declare (not safe)) - (gx#syntax-e _%g137925137963%_)))) - (let ((_%hd137931137970%_ + (gx#syntax-e _%g138084138122%_)))) + (let ((_%hd138090138129%_ (let () (declare (not safe)) - (##car _%e137930137966%_))) - (_%tl137932137973%_ + (##car _%e138089138125%_))) + (_%tl138091138132%_ (let () (declare (not safe)) - (##cdr _%e137930137966%_)))) + (##cdr _%e138089138125%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137932137973%_)) - (let ((_%e137933137976%_ + (gx#stx-pair? _%tl138091138132%_)) + (let ((_%e138092138135%_ (let () (declare (not safe)) - (gx#syntax-e _%tl137932137973%_)))) - (let ((_%hd137934137980%_ + (gx#syntax-e _%tl138091138132%_)))) + (let ((_%hd138093138139%_ (let () (declare (not safe)) - (##car _%e137933137976%_))) - (_%tl137935137983%_ + (##car _%e138092138135%_))) + (_%tl138094138142%_ (let () (declare (not safe)) - (##cdr _%e137933137976%_)))) + (##cdr _%e138092138135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd137934137980%_)) - (let ((_%e137936137986%_ + (gx#stx-pair? _%hd138093138139%_)) + (let ((_%e138095138145%_ (let () (declare (not safe)) (gx#syntax-e - _%hd137934137980%_)))) - (let ((_%hd137937137990%_ + _%hd138093138139%_)))) + (let ((_%hd138096138149%_ (let () (declare (not safe)) - (##car _%e137936137986%_))) - (_%tl137938137993%_ + (##car _%e138095138145%_))) + (_%tl138097138152%_ (let () (declare (not safe)) - (##cdr _%e137936137986%_)))) + (##cdr _%e138095138145%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137938137993%_)) - (let ((_%e137939137996%_ + _%tl138097138152%_)) + (let ((_%e138098138155%_ (let () (declare (not safe)) (gx#syntax-e - _%tl137938137993%_)))) - (let ((_%hd137940138000%_ + _%tl138097138152%_)))) + (let ((_%hd138099138159%_ (let () (declare (not safe)) - (##car _%e137939137996%_))) - (_%tl137941138003%_ + (##car _%e138098138155%_))) + (_%tl138100138162%_ (let () (declare (not safe)) - (##cdr _%e137939137996%_)))) + (##cdr _%e138098138155%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137941138003%_)) - (let ((_%e137942138006%_ + _%tl138100138162%_)) + (let ((_%e138101138165%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl137941138003%_)))) - (let ((_%hd137943138010%_ - (let () (declare (not safe)) (##car _%e137942138006%_))) - (_%tl137944138013%_ + (gx#syntax-e _%tl138100138162%_)))) + (let ((_%hd138102138169%_ + (let () (declare (not safe)) (##car _%e138101138165%_))) + (_%tl138103138172%_ (let () (declare (not safe)) - (##cdr _%e137942138006%_)))) + (##cdr _%e138101138165%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137944138013%_)) + (gx#stx-null? _%tl138103138172%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl137935137983%_)) - (let ((_g149160_ + (gx#stx-pair/null? _%tl138094138142%_)) + (let ((_g149319_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137935137983%_ + _%tl138094138142%_ '0)))) (begin - (let ((_g149161_ + (let ((_g149320_ (let () (declare (not safe)) - (if (##values? _g149160_) - (##vector-length _g149160_) + (if (##values? _g149319_) + (##vector-length _g149319_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149161_ 2))) + (##fx= _g149320_ 2))) (error "Context expects 2 values" - _g149161_))) - (let ((_%target137945138016%_ + _g149320_))) + (let ((_%target138104138175%_ (let () (declare (not safe)) - (##vector-ref _g149160_ 0))) - (_%tl137947138019%_ + (##vector-ref _g149319_ 0))) + (_%tl138106138178%_ (let () (declare (not safe)) - (##vector-ref _g149160_ 1)))) + (##vector-ref _g149319_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137947138019%_)) - (letrec ((_%loop137948138022%_ - (lambda (_%hd137946138026%_ - _%body137952138029%_) + (gx#stx-null? _%tl138106138178%_)) + (letrec ((_%loop138107138181%_ + (lambda (_%hd138105138185%_ + _%body138111138188%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd137946138026%_)) - (let ((_%e137949138032%_ + _%hd138105138185%_)) + (let ((_%e138108138191%_ (let () (declare (not safe)) (gx#syntax-e - _%hd137946138026%_)))) - (let ((_%lp-hd137950138036%_ + _%hd138105138185%_)))) + (let ((_%lp-hd138109138195%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e137949138032%_))) - (_%lp-tl137951138039%_ - (let () (declare (not safe)) (##cdr _%e137949138032%_)))) - (_%loop137948138022%_ - _%lp-tl137951138039%_ - (cons _%lp-hd137950138036%_ _%body137952138029%_)))) + (##car _%e138108138191%_))) + (_%lp-tl138110138198%_ + (let () (declare (not safe)) (##cdr _%e138108138191%_)))) + (_%loop138107138181%_ + _%lp-tl138110138198%_ + (cons _%lp-hd138109138195%_ _%body138111138188%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body137953138042%_ - (reverse _%body137952138029%_))) - ((lambda (_%L138046%_ - _%L138048%_ - _%L138049%_ - _%L138050%_) + (let ((_%body138112138201%_ + (reverse _%body138111138188%_))) + ((lambda (_%L138205%_ + _%L138207%_ + _%L138208%_ + _%L138209%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138048%_ '())) - (cons (cons _%L138050%_ + (cons _%L138207%_ '())) + (cons (cons _%L138209%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L138049%_ + (cons (cons _%L138208%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138050%_ + (cons _%L138209%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138049%_ '()))) + (cons _%L138208%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138050%_ + (cons _%L138209%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138049%_ '()))) + (cons _%L138208%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L138050%_ '()))) + (cons _%L138209%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L138049%_ '()))) + (cons _%L138208%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp149162 - (lambda (_%g138076138079%_ - _%g138077138082%_) - (cons _%g138076138079%_ - _%g138077138082%_)))) + (let ((__tmp149321 + (lambda (_%g138235138238%_ + _%g138236138241%_) + (cons _%g138235138238%_ + _%g138236138241%_)))) (declare (not safe)) - (__foldr1 __tmp149162 '() _%L138046%_))) + (__foldr1 __tmp149321 '() _%L138205%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body137953138042%_ - _%hd137943138010%_ - _%hd137940138000%_ - _%hd137937137990%_)))))) + _%body138112138201%_ + _%hd138102138169%_ + _%hd138099138159%_ + _%hd138096138149%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137948138022%_ - _%target137945138016%_ + (_%loop138107138181%_ + _%target138104138175%_ '())) - (_%g137924137959%_ _%g137925137963%_))))) - (_%g137924137959%_ _%g137925137963%_)) - (_%g137924137959%_ _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_)))) + (_%g138083138118%_ _%g138084138122%_))))) + (_%g138083138118%_ _%g138084138122%_)) + (_%g138083138118%_ _%g138084138122%_)))) + (_%g138083138118%_ _%g138084138122%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g137924137959%_ - _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_))))) - (_%g137923138085%_ _%$stx137920%_)))) + (_%g138083138118%_ + _%g138084138122%_)))) + (_%g138083138118%_ _%g138084138122%_)))) + (_%g138083138118%_ _%g138084138122%_)))) + (_%g138083138118%_ _%g138084138122%_))))) + (_%g138082138244%_ _%$stx138079%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx138090%_) - (let* ((_%g138094138112%_ - (lambda (_%g138095138108%_) + (lambda (_%$stx138249%_) + (let* ((_%g138253138271%_ + (lambda (_%g138254138267%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138095138108%_)))) - (_%g138093138167%_ - (lambda (_%g138095138116%_) + _%g138254138267%_)))) + (_%g138252138326%_ + (lambda (_%g138254138275%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138095138116%_)) - (let ((_%e138098138119%_ + (gx#stx-pair? _%g138254138275%_)) + (let ((_%e138257138278%_ (let () (declare (not safe)) - (gx#syntax-e _%g138095138116%_)))) - (let ((_%hd138099138123%_ + (gx#syntax-e _%g138254138275%_)))) + (let ((_%hd138258138282%_ (let () (declare (not safe)) - (##car _%e138098138119%_))) - (_%tl138100138126%_ + (##car _%e138257138278%_))) + (_%tl138259138285%_ (let () (declare (not safe)) - (##cdr _%e138098138119%_)))) + (##cdr _%e138257138278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138100138126%_)) - (let ((_%e138101138129%_ + (gx#stx-pair? _%tl138259138285%_)) + (let ((_%e138260138288%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138100138126%_)))) - (let ((_%hd138102138133%_ + (gx#syntax-e _%tl138259138285%_)))) + (let ((_%hd138261138292%_ (let () (declare (not safe)) - (##car _%e138101138129%_))) - (_%tl138103138136%_ + (##car _%e138260138288%_))) + (_%tl138262138295%_ (let () (declare (not safe)) - (##cdr _%e138101138129%_)))) + (##cdr _%e138260138288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138103138136%_)) - (let ((_%e138104138139%_ + (gx#stx-pair? _%tl138262138295%_)) + (let ((_%e138263138298%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138103138136%_)))) - (let ((_%hd138105138143%_ + _%tl138262138295%_)))) + (let ((_%hd138264138302%_ (let () (declare (not safe)) - (##car _%e138104138139%_))) - (_%tl138106138146%_ + (##car _%e138263138298%_))) + (_%tl138265138305%_ (let () (declare (not safe)) - (##cdr _%e138104138139%_)))) + (##cdr _%e138263138298%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138106138146%_)) - ((lambda (_%L138149%_ - _%L138151%_) + _%tl138265138305%_)) + ((lambda (_%L138308%_ + _%L138310%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L138151%_ '())) + (cons _%L138310%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L138151%_ - (cons _%L138149%_ + (cons _%L138310%_ + (cons _%L138308%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138105138143%_ - _%hd138102138133%_) - (_%g138094138112%_ - _%g138095138116%_)))) - (_%g138094138112%_ _%g138095138116%_)))) - (_%g138094138112%_ _%g138095138116%_)))) - (_%g138094138112%_ _%g138095138116%_))))) - (_%g138093138167%_ _%$stx138090%_)))) + _%hd138264138302%_ + _%hd138261138292%_) + (_%g138253138271%_ + _%g138254138275%_)))) + (_%g138253138271%_ _%g138254138275%_)))) + (_%g138253138271%_ _%g138254138275%_)))) + (_%g138253138271%_ _%g138254138275%_))))) + (_%g138252138326%_ _%$stx138249%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj148853 + (let ((__obj149012 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148853 + __obj149012 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj149012 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148853 + __obj149012 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148853 + __obj149012 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149012 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj149012 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149012 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149012 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 ':init! '11 '#f '#f)) - (let ((__tmp149163 |gxc[1]#_g149164_|)) + (##unchecked-structure-set! __obj149012 ':init! '11 '#f '#f)) + (let ((__tmp149322 |gxc[1]#_g149323_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149163 '12 '#f '#f)) - (let ((__tmp149165 |gxc[1]#_g149166_|)) + (##unchecked-structure-set! __obj149012 __tmp149322 '12 '#f '#f)) + (let ((__tmp149324 |gxc[1]#_g149325_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149165 '13 '#f '#f)) - (let ((__tmp149167 |gxc[1]#_g149168_|)) + (##unchecked-structure-set! __obj149012 __tmp149324 '13 '#f '#f)) + (let ((__tmp149326 |gxc[1]#_g149327_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149167 '14 '#f '#f)) - (let ((__tmp149169 - (cons (cons 'src |gxc[1]#_g149170_|) - (cons (cons 'n |gxc[1]#_g149171_|) - (cons (cons 'open |gxc[1]#_g149172_|) - (cons (cons 'blocks |gxc[1]#_g149173_|) + (##unchecked-structure-set! __obj149012 __tmp149326 '14 '#f '#f)) + (let ((__tmp149328 + (cons (cons 'src |gxc[1]#_g149329_|) + (cons (cons 'n |gxc[1]#_g149330_|) + (cons (cons 'open |gxc[1]#_g149331_|) + (cons (cons 'blocks |gxc[1]#_g149332_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149169 '15 '#f '#f)) - (let ((__tmp149174 - (cons (cons 'src |gxc[1]#_g149175_|) - (cons (cons 'n |gxc[1]#_g149176_|) - (cons (cons 'open |gxc[1]#_g149177_|) - (cons (cons 'blocks |gxc[1]#_g149178_|) + (##unchecked-structure-set! __obj149012 __tmp149328 '15 '#f '#f)) + (let ((__tmp149333 + (cons (cons 'src |gxc[1]#_g149334_|) + (cons (cons 'n |gxc[1]#_g149335_|) + (cons (cons 'open |gxc[1]#_g149336_|) + (cons (cons 'blocks |gxc[1]#_g149337_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149174 '16 '#f '#f)) - (let ((__tmp149179 - (cons (cons 'src |gxc[1]#_g149180_|) - (cons (cons 'n |gxc[1]#_g149181_|) - (cons (cons 'open |gxc[1]#_g149182_|) - (cons (cons 'blocks |gxc[1]#_g149183_|) + (##unchecked-structure-set! __obj149012 __tmp149333 '16 '#f '#f)) + (let ((__tmp149338 + (cons (cons 'src |gxc[1]#_g149339_|) + (cons (cons 'n |gxc[1]#_g149340_|) + (cons (cons 'open |gxc[1]#_g149341_|) + (cons (cons 'blocks |gxc[1]#_g149342_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149179 '17 '#f '#f)) - (let ((__tmp149184 - (cons (cons 'src |gxc[1]#_g149185_|) - (cons (cons 'n |gxc[1]#_g149186_|) - (cons (cons 'open |gxc[1]#_g149187_|) - (cons (cons 'blocks |gxc[1]#_g149188_|) + (##unchecked-structure-set! __obj149012 __tmp149338 '17 '#f '#f)) + (let ((__tmp149343 + (cons (cons 'src |gxc[1]#_g149344_|) + (cons (cons 'n |gxc[1]#_g149345_|) + (cons (cons 'open |gxc[1]#_g149346_|) + (cons (cons 'blocks |gxc[1]#_g149347_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149184 '18 '#f '#f)) + (##unchecked-structure-set! __obj149012 __tmp149343 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149012 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149012 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '20 '#f '#f)) - __obj148853)) + (##unchecked-structure-set! __obj149012 '() '20 '#f '#f)) + __obj149012)) (define |gxc[:0:]#meta-state-block| - (let ((__obj148854 + (let ((__obj149013 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj149013 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj149013 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj149013 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj149013 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149013 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj149013 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149013 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149013 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#f '11 '#f '#f)) - (let ((__tmp149189 |gxc[1]#_g149190_|)) + (##unchecked-structure-set! __obj149013 '#f '11 '#f '#f)) + (let ((__tmp149348 |gxc[1]#_g149349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149189 '12 '#f '#f)) - (let ((__tmp149191 |gxc[1]#_g149192_|)) + (##unchecked-structure-set! __obj149013 __tmp149348 '12 '#f '#f)) + (let ((__tmp149350 |gxc[1]#_g149351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149191 '13 '#f '#f)) - (let ((__tmp149193 |gxc[1]#_g149194_|)) + (##unchecked-structure-set! __obj149013 __tmp149350 '13 '#f '#f)) + (let ((__tmp149352 |gxc[1]#_g149353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149193 '14 '#f '#f)) - (let ((__tmp149195 - (cons (cons 'ctx |gxc[1]#_g149196_|) - (cons (cons 'phi |gxc[1]#_g149197_|) - (cons (cons 'n |gxc[1]#_g149198_|) - (cons (cons 'code |gxc[1]#_g149199_|) + (##unchecked-structure-set! __obj149013 __tmp149352 '14 '#f '#f)) + (let ((__tmp149354 + (cons (cons 'ctx |gxc[1]#_g149355_|) + (cons (cons 'phi |gxc[1]#_g149356_|) + (cons (cons 'n |gxc[1]#_g149357_|) + (cons (cons 'code |gxc[1]#_g149358_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149195 '15 '#f '#f)) - (let ((__tmp149200 - (cons (cons 'ctx |gxc[1]#_g149201_|) - (cons (cons 'phi |gxc[1]#_g149202_|) - (cons (cons 'n |gxc[1]#_g149203_|) - (cons (cons 'code |gxc[1]#_g149204_|) + (##unchecked-structure-set! __obj149013 __tmp149354 '15 '#f '#f)) + (let ((__tmp149359 + (cons (cons 'ctx |gxc[1]#_g149360_|) + (cons (cons 'phi |gxc[1]#_g149361_|) + (cons (cons 'n |gxc[1]#_g149362_|) + (cons (cons 'code |gxc[1]#_g149363_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149200 '16 '#f '#f)) - (let ((__tmp149205 - (cons (cons 'ctx |gxc[1]#_g149206_|) - (cons (cons 'phi |gxc[1]#_g149207_|) - (cons (cons 'n |gxc[1]#_g149208_|) - (cons (cons 'code |gxc[1]#_g149209_|) + (##unchecked-structure-set! __obj149013 __tmp149359 '16 '#f '#f)) + (let ((__tmp149364 + (cons (cons 'ctx |gxc[1]#_g149365_|) + (cons (cons 'phi |gxc[1]#_g149366_|) + (cons (cons 'n |gxc[1]#_g149367_|) + (cons (cons 'code |gxc[1]#_g149368_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149205 '17 '#f '#f)) - (let ((__tmp149210 - (cons (cons 'ctx |gxc[1]#_g149211_|) - (cons (cons 'phi |gxc[1]#_g149212_|) - (cons (cons 'n |gxc[1]#_g149213_|) - (cons (cons 'code |gxc[1]#_g149214_|) + (##unchecked-structure-set! __obj149013 __tmp149364 '17 '#f '#f)) + (let ((__tmp149369 + (cons (cons 'ctx |gxc[1]#_g149370_|) + (cons (cons 'phi |gxc[1]#_g149371_|) + (cons (cons 'n |gxc[1]#_g149372_|) + (cons (cons 'code |gxc[1]#_g149373_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149210 '18 '#f '#f)) + (##unchecked-structure-set! __obj149013 __tmp149369 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149013 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149013 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '20 '#f '#f)) - __obj148854)))) + (##unchecked-structure-set! __obj149013 '() '20 '#f '#f)) + __obj149013)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 9bf2568d2..040c0cfcf 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 1713631273) + (define gerbil/compiler/driver::timestamp 1733687567) (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 ((__tmp202348 (current-time))) + (floor (let ((__tmp202507 (current-time))) (declare (not safe)) - (##time->seconds __tmp202348)))))) + (##time->seconds __tmp202507)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp202349 (current-time))) + (let ((__tmp202508 (current-time))) (declare (not safe)) - (##time->seconds __tmp202349)))) + (##time->seconds __tmp202508)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path202205%_ _%fun202206%_) + (lambda (_%path202364%_ _%fun202365%_) (with-output-to-file - (cons 'path: (cons _%path202205%_ gxc#scheme-file-settings)) - _%fun202206%_))) + (cons 'path: (cons _%path202364%_ gxc#scheme-file-settings)) + _%fun202365%_))) (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-libdir202200%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir202200%_))) + (lambda (_%gerbil-libdir202359%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir202359%_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -78,251 +78,251 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir202198%_) (delete-file-or-directory _%dir202198%_ '#t))) + (lambda (_%dir202357%_) (delete-file-or-directory _%dir202357%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath202171%_ _%opts202172%_) - (if (string? _%srcpath202171%_) + (lambda (_%srcpath202330%_ _%opts202331%_) + (if (string? _%srcpath202330%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202171%_))) - (let ((_%outdir202174%_ + _%srcpath202330%_))) + (let ((_%outdir202333%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts202172%_))) - (_%invoke-gsc?202175%_ + (pgetq__0 'output-dir: _%opts202331%_))) + (_%invoke-gsc?202334%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202172%_))) - (_%gsc-options202176%_ + (pgetq__0 'invoke-gsc: _%opts202331%_))) + (_%gsc-options202335%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202172%_))) - (_%keep-scm?202177%_ + (pgetq__0 'gsc-options: _%opts202331%_))) + (_%keep-scm?202336%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202172%_))) - (_%verbosity202178%_ + (pgetq__0 'keep-scm: _%opts202331%_))) + (_%verbosity202337%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts202172%_))) - (_%optimize202179%_ + (pgetq__0 'verbose: _%opts202331%_))) + (_%optimize202338%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts202172%_))) - (_%debug202180%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202172%_))) - (_%gen-ssxi202181%_ + (pgetq__0 'optimize: _%opts202331%_))) + (_%debug202339%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts202331%_))) + (_%gen-ssxi202340%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts202172%_))) - (_%parallel?202182%_ + (pgetq__0 'generate-ssxi: _%opts202331%_))) + (_%parallel?202341%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts202172%_)))) - (if _%outdir202174%_ - (let ((__tmp202350 + (pgetq__0 'parallel: _%opts202331%_)))) + (if _%outdir202333%_ + (let ((__tmp202509 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202174%_))))) + (create-directory*__0 _%outdir202333%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202350)) + (__with-lock gxc#+driver-mutex+ __tmp202509)) '#!void) - (if _%optimize202179%_ - (let ((__tmp202351 + (if _%optimize202338%_ + (let ((__tmp202510 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202351)) + (__with-lock gxc#+driver-mutex+ __tmp202510)) '#!void) - (let ((__tmp202354 + (let ((__tmp202513 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath202171%_)) + (gxc#verbose '"compile " _%srcpath202330%_)) (gxc#compile-top-module - (let ((__tmp202355 + (let ((__tmp202514 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202171%_))))) + (gx#import-module__0 _%srcpath202330%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202355))))) - (__tmp202353 (gxc#compile-timestamp)) - (__tmp202352 - (cons 'compile-module (cons _%srcpath202171%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202514))))) + (__tmp202512 (gxc#compile-timestamp)) + (__tmp202511 + (cons 'compile-module (cons _%srcpath202330%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202354 + __tmp202513 gxc#current-compile-output-dir - _%outdir202174%_ + _%outdir202333%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202175%_ + _%invoke-gsc?202334%_ gxc#current-compile-gsc-options - _%gsc-options202176%_ + _%gsc-options202335%_ gxc#current-compile-keep-scm - _%keep-scm?202177%_ + _%keep-scm?202336%_ gxc#current-compile-verbose - _%verbosity202178%_ + _%verbosity202337%_ gxc#current-compile-optimize - _%optimize202179%_ + _%optimize202338%_ gxc#current-compile-debug - _%debug202180%_ + _%debug202339%_ gxc#current-compile-generate-ssxi - _%gen-ssxi202181%_ + _%gen-ssxi202340%_ gxc#current-compile-timestamp - __tmp202353 + __tmp202512 gxc#current-compile-context - __tmp202352 + __tmp202511 gxc#current-compile-parallel - _%parallel?202182%_ + _%parallel?202341%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath202191%_) - (let ((_%opts202193%_ '())) - (gxc#compile-module__% _%srcpath202191%_ _%opts202193%_)))) + (lambda (_%srcpath202350%_) + (let ((_%opts202352%_ '())) + (gxc#compile-module__% _%srcpath202350%_ _%opts202352%_)))) (define gxc#compile-module - (lambda _g202357_ - (let ((_g202356_ (let () (declare (not safe)) (##length _g202357_)))) - (cond ((let () (declare (not safe)) (##fx= _g202356_ 1)) - (apply gxc#compile-module__0 _g202357_)) - ((let () (declare (not safe)) (##fx= _g202356_ 2)) - (apply gxc#compile-module__% _g202357_)) + (lambda _g202516_ + (let ((_g202515_ (let () (declare (not safe)) (##length _g202516_)))) + (cond ((let () (declare (not safe)) (##fx= _g202515_ 1)) + (apply gxc#compile-module__0 _g202516_)) + ((let () (declare (not safe)) (##fx= _g202515_ 2)) + (apply gxc#compile-module__% _g202516_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g202357_)))))) + _g202516_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath202146%_ _%opts202147%_) - (if (string? _%srcpath202146%_) + (lambda (_%srcpath202305%_ _%opts202306%_) + (if (string? _%srcpath202305%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202146%_))) - (let ((_%outdir202149%_ + _%srcpath202305%_))) + (let ((_%outdir202308%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts202147%_))) - (_%invoke-gsc?202150%_ + (pgetq__0 'output-dir: _%opts202306%_))) + (_%invoke-gsc?202309%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202147%_))) - (_%gsc-options202151%_ + (pgetq__0 'invoke-gsc: _%opts202306%_))) + (_%gsc-options202310%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202147%_))) - (_%keep-scm?202152%_ + (pgetq__0 'gsc-options: _%opts202306%_))) + (_%keep-scm?202311%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202147%_))) - (_%verbosity202153%_ + (pgetq__0 'keep-scm: _%opts202306%_))) + (_%verbosity202312%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts202147%_))) - (_%debug202154%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202147%_))) - (_%parallel?202155%_ + (pgetq__0 'verbose: _%opts202306%_))) + (_%debug202313%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts202306%_))) + (_%parallel?202314%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts202147%_)))) - (if _%outdir202149%_ - (let ((__tmp202358 + (pgetq__0 'parallel: _%opts202306%_)))) + (if _%outdir202308%_ + (let ((__tmp202517 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202149%_))))) + (create-directory*__0 _%outdir202308%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202358)) + (__with-lock gxc#+driver-mutex+ __tmp202517)) '#!void) - (let ((__tmp202361 + (let ((__tmp202520 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath202146%_)) + (gxc#verbose '"compile exe " _%srcpath202305%_)) (gxc#compile-executable-module - (let ((__tmp202362 + (let ((__tmp202521 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202146%_))))) + (gx#import-module__0 _%srcpath202305%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202362)) - _%opts202147%_))) - (__tmp202360 (gxc#compile-timestamp)) - (__tmp202359 (cons 'compile-exe (cons _%srcpath202146%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202521)) + _%opts202306%_))) + (__tmp202519 (gxc#compile-timestamp)) + (__tmp202518 (cons 'compile-exe (cons _%srcpath202305%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202361 + __tmp202520 gxc#current-compile-output-dir - _%outdir202149%_ + _%outdir202308%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202150%_ + _%invoke-gsc?202309%_ gxc#current-compile-gsc-options - _%gsc-options202151%_ + _%gsc-options202310%_ gxc#current-compile-keep-scm - _%keep-scm?202152%_ + _%keep-scm?202311%_ gxc#current-compile-verbose - _%verbosity202153%_ + _%verbosity202312%_ gxc#current-compile-debug - _%debug202154%_ + _%debug202313%_ gxc#current-compile-timestamp - __tmp202360 + __tmp202519 gxc#current-compile-context - __tmp202359 + __tmp202518 gxc#current-compile-parallel - _%parallel?202155%_ + _%parallel?202314%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath202163%_) - (let ((_%opts202165%_ '())) - (gxc#compile-exe__% _%srcpath202163%_ _%opts202165%_)))) + (lambda (_%srcpath202322%_) + (let ((_%opts202324%_ '())) + (gxc#compile-exe__% _%srcpath202322%_ _%opts202324%_)))) (define gxc#compile-exe - (lambda _g202364_ - (let ((_g202363_ (let () (declare (not safe)) (##length _g202364_)))) - (cond ((let () (declare (not safe)) (##fx= _g202363_ 1)) - (apply gxc#compile-exe__0 _g202364_)) - ((let () (declare (not safe)) (##fx= _g202363_ 2)) - (apply gxc#compile-exe__% _g202364_)) + (lambda _g202523_ + (let ((_g202522_ (let () (declare (not safe)) (##length _g202523_)))) + (cond ((let () (declare (not safe)) (##fx= _g202522_ 1)) + (apply gxc#compile-exe__0 _g202523_)) + ((let () (declare (not safe)) (##fx= _g202522_ 2)) + (apply gxc#compile-exe__% _g202523_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g202364_)))))) + _g202523_)))))) (define gxc#compile-executable-module - (lambda (_%ctx202142%_ _%opts202143%_) + (lambda (_%ctx202301%_ _%opts202302%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts202143%_)) + (pgetq__0 'full-program-optimization: _%opts202302%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx202142%_ - _%opts202143%_) + _%ctx202301%_ + _%opts202302%_) (gxc#compile-executable-module/separate - _%ctx202142%_ - _%opts202143%_)))) + _%ctx202301%_ + _%opts202302%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx201932%_ _%opts201933%_) - (letrec ((_%generate-stub201935%_ - (lambda (_%builtin-modules202138%_) - (let ((_%mod-main202140%_ - (gxc#find-runtime-symbol _%ctx201932%_ 'main))) - (let ((__tmp202365 + (lambda (_%ctx202091%_ _%opts202092%_) + (letrec ((_%generate-stub202094%_ + (lambda (_%builtin-modules202297%_) + (let ((_%mod-main202299%_ + (gxc#find-runtime-symbol _%ctx202091%_ 'main))) + (let ((__tmp202524 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules202138%_ + (cons _%builtin-modules202297%_ '())) '()))))) (declare (not safe)) - (##write __tmp202365)) - (let ((__tmp202366 + (##write __tmp202524)) + (let ((__tmp202525 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -332,7 +332,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main202140%_ + (cons _%mod-main202299%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -370,325 +370,325 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp202366)) + (##write __tmp202525)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts201936%_ - (lambda (_%gerbil-libdir202136%_) - (let ((__tmp202367 + (_%get-libgerbil-ld-opts202095%_ + (lambda (_%gerbil-libdir202295%_) + (let ((__tmp202526 (path-expand '"libgerbil.ldd" - _%gerbil-libdir202136%_))) + _%gerbil-libdir202295%_))) (declare (not safe)) - (##call-with-input-file __tmp202367 read)))) - (_%replace-extension201937%_ - (lambda (_%path202133%_ _%ext202134%_) + (##call-with-input-file __tmp202526 read)))) + (_%replace-extension202096%_ + (lambda (_%path202292%_ _%ext202293%_) (string-append - (path-strip-extension _%path202133%_) - _%ext202134%_))) - (_%userlib-module?201938%_ - (lambda (_%ctx202131%_) - (if (_%exclude-module?201940%_ _%ctx202131%_) + (path-strip-extension _%path202292%_) + _%ext202293%_))) + (_%userlib-module?202097%_ + (lambda (_%ctx202290%_) + (if (_%exclude-module?202099%_ _%ctx202290%_) '#f - (not (_%libgerbil-module?201939%_ _%ctx202131%_))))) - (_%libgerbil-module?201939%_ - (lambda (_%ctx202124%_) - (let ((_%id-str202126%_ + (not (_%libgerbil-module?202098%_ _%ctx202290%_))))) + (_%libgerbil-module?202098%_ + (lambda (_%ctx202283%_) + (let ((_%id-str202285%_ (symbol->string (##structure-ref - _%ctx202124%_ + _%ctx202283%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?201940%_ _%id-str202126%_) + (if (_%exclude-module?202099%_ _%id-str202285%_) '#f - (let ((_%$e202128%_ + (let ((_%$e202287%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str202126%_)))) - (if _%$e202128%_ - _%$e202128%_ + _%id-str202285%_)))) + (if _%$e202287%_ + _%$e202287%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str202126%_)))))))) - (_%exclude-module?201940%_ - (lambda (_%ctx-or-str202120%_) - (let ((_%str202122%_ - (if (string? _%ctx-or-str202120%_) - _%ctx-or-str202120%_ + _%id-str202285%_)))))))) + (_%exclude-module?202099%_ + (lambda (_%ctx-or-str202279%_) + (let ((_%str202281%_ + (if (string? _%ctx-or-str202279%_) + _%ctx-or-str202279%_ (symbol->string (##structure-ref - _%ctx-or-str202120%_ + _%ctx-or-str202279%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str202122%_)))) - (_%not-file-empty?201941%_ - (lambda (_%path202118%_) - (not (gxc#file-empty? _%path202118%_)))) - (_%fold-libgerbil-runtime-scm201942%_ - (lambda (_%gerbil-staticdir202111%_ _%libgerbil-scm202112%_) - (let ((_%gerbil-runtime-scm202116%_ - (let ((__tmp202368 - (lambda (_%rtm202114%_) + (##string-prefix? '"gerbil/core" _%str202281%_)))) + (_%not-file-empty?202100%_ + (lambda (_%path202277%_) + (not (gxc#file-empty? _%path202277%_)))) + (_%fold-libgerbil-runtime-scm202101%_ + (lambda (_%gerbil-staticdir202270%_ _%libgerbil-scm202271%_) + (let ((_%gerbil-runtime-scm202275%_ + (let ((__tmp202527 + (lambda (_%rtm202273%_) (path-expand - (let ((__tmp202369 - (let ((__tmp202370 + (let ((__tmp202528 + (let ((__tmp202529 (let () (declare (not safe)) (string-split - _%rtm202114%_ + _%rtm202273%_ '#\/)))) (declare (not safe)) (string-join - __tmp202370 + __tmp202529 '"__")))) (declare (not safe)) - (##string-append __tmp202369 '".scm")) - _%gerbil-staticdir202111%_)))) + (##string-append __tmp202528 '".scm")) + _%gerbil-staticdir202270%_)))) (declare (not safe)) - (##map __tmp202368 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates201943%_ - (append _%gerbil-runtime-scm202116%_ - _%libgerbil-scm202112%_))))) - (_%remove-duplicates201943%_ - (lambda (_%strlst202071%_) - (let _%loop202073%_ ((_%rest202075%_ _%strlst202071%_) - (_%result202076%_ '())) - (let* ((_%rest202077202085%_ _%rest202075%_) - (_%else202079202093%_ - (lambda () (reverse! _%result202076%_))) - (_%K202081202099%_ - (lambda (_%rest202096%_ _%path202097%_) - (if (member _%path202097%_ _%result202076%_) - (_%loop202073%_ - _%rest202096%_ - _%result202076%_) - (_%loop202073%_ - _%rest202096%_ - (cons _%path202097%_ - _%result202076%_)))))) - (if (pair? _%rest202077202085%_) - (let ((_%hd202082202102%_ + (##map __tmp202527 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates202102%_ + (append _%gerbil-runtime-scm202275%_ + _%libgerbil-scm202271%_))))) + (_%remove-duplicates202102%_ + (lambda (_%strlst202230%_) + (let _%loop202232%_ ((_%rest202234%_ _%strlst202230%_) + (_%result202235%_ '())) + (let* ((_%rest202236202244%_ _%rest202234%_) + (_%else202238202252%_ + (lambda () (reverse! _%result202235%_))) + (_%K202240202258%_ + (lambda (_%rest202255%_ _%path202256%_) + (if (member _%path202256%_ _%result202235%_) + (_%loop202232%_ + _%rest202255%_ + _%result202235%_) + (_%loop202232%_ + _%rest202255%_ + (cons _%path202256%_ + _%result202235%_)))))) + (if (pair? _%rest202236202244%_) + (let ((_%hd202241202261%_ (let () (declare (not safe)) - (##car _%rest202077202085%_))) - (_%tl202083202104%_ + (##car _%rest202236202244%_))) + (_%tl202242202263%_ (let () (declare (not safe)) - (##cdr _%rest202077202085%_)))) - (let* ((_%path202107%_ _%hd202082202102%_) - (_%rest202109%_ _%tl202083202104%_)) - (_%K202081202099%_ - _%rest202109%_ - _%path202107%_))) - (_%else202079202093%_)))))) - (_%compile-stub201944%_ - (lambda (_%output-scm201951%_ _%output-bin201952%_) - (let* ((_%gerbil-home201954%_ - (let ((__tmp202371 + (##cdr _%rest202236202244%_)))) + (let* ((_%path202266%_ _%hd202241202261%_) + (_%rest202268%_ _%tl202242202263%_)) + (_%K202240202258%_ + _%rest202268%_ + _%path202266%_))) + (_%else202238202252%_)))))) + (_%compile-stub202103%_ + (lambda (_%output-scm202110%_ _%output-bin202111%_) + (let* ((_%gerbil-home202113%_ + (let ((__tmp202530 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202371))) - (_%gerbil-libdir201956%_ - (path-expand '"lib" _%gerbil-home201954%_)) - (_%gerbil-staticdir201958%_ - (path-expand '"static" _%gerbil-libdir201956%_)) - (_%deps201960%_ - (gxc#find-runtime-module-deps _%ctx201932%_)) - (_%libgerbil-deps201962%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202530))) + (_%gerbil-libdir202115%_ + (path-expand '"lib" _%gerbil-home202113%_)) + (_%gerbil-staticdir202117%_ + (path-expand '"static" _%gerbil-libdir202115%_)) + (_%deps202119%_ + (gxc#find-runtime-module-deps _%ctx202091%_)) + (_%libgerbil-deps202121%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?201939%_ - _%deps201960%_))) - (_%libgerbil-scm201964%_ + _%libgerbil-module?202098%_ + _%deps202119%_))) + (_%libgerbil-scm202123%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps201962%_))) - (_%libgerbil-scm201966%_ - (_%fold-libgerbil-runtime-scm201942%_ - _%gerbil-staticdir201958%_ - _%libgerbil-scm201964%_)) - (_%libgerbil-c201972%_ - (map (lambda (_%g201967201969%_) - (_%replace-extension201937%_ - _%g201967201969%_ + _%libgerbil-deps202121%_))) + (_%libgerbil-scm202125%_ + (_%fold-libgerbil-runtime-scm202101%_ + _%gerbil-staticdir202117%_ + _%libgerbil-scm202123%_)) + (_%libgerbil-c202131%_ + (map (lambda (_%g202126202128%_) + (_%replace-extension202096%_ + _%g202126202128%_ '".c")) - _%libgerbil-scm201966%_)) - (_%libgerbil-o201978%_ - (map (lambda (_%g201973201975%_) - (_%replace-extension201937%_ - _%g201973201975%_ + _%libgerbil-scm202125%_)) + (_%libgerbil-o202137%_ + (map (lambda (_%g202132202134%_) + (_%replace-extension202096%_ + _%g202132202134%_ '".o")) - _%libgerbil-scm201966%_)) - (_%src-deps201980%_ + _%libgerbil-scm202125%_)) + (_%src-deps202139%_ (let () (declare (not safe)) (##filter - _%userlib-module?201938%_ - _%deps201960%_))) - (_%src-deps-scm201982%_ + _%userlib-module?202097%_ + _%deps202119%_))) + (_%src-deps-scm202141%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps201980%_))) - (_%src-deps-scm201984%_ + _%src-deps202139%_))) + (_%src-deps-scm202143%_ (let () (declare (not safe)) (##filter - _%not-file-empty?201941%_ - _%src-deps-scm201982%_))) - (_%src-deps-scm201986%_ + _%not-file-empty?202100%_ + _%src-deps-scm202141%_))) + (_%src-deps-scm202145%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm201984%_))) - (_%src-deps-c201992%_ - (let ((__tmp202372 - (lambda (_%g201987201989%_) - (_%replace-extension201937%_ - _%g201987201989%_ + (##map path-expand _%src-deps-scm202143%_))) + (_%src-deps-c202151%_ + (let ((__tmp202531 + (lambda (_%g202146202148%_) + (_%replace-extension202096%_ + _%g202146202148%_ '".c")))) (declare (not safe)) - (##map __tmp202372 _%src-deps-scm201986%_))) - (_%src-deps-o201998%_ - (let ((__tmp202373 - (lambda (_%g201993201995%_) - (_%replace-extension201937%_ - _%g201993201995%_ + (##map __tmp202531 _%src-deps-scm202145%_))) + (_%src-deps-o202157%_ + (let ((__tmp202532 + (lambda (_%g202152202154%_) + (_%replace-extension202096%_ + _%g202152202154%_ '".o")))) (declare (not safe)) - (##map __tmp202373 _%src-deps-scm201986%_))) - (_%src-bin-scm202000%_ - (gxc#find-static-module-file _%ctx201932%_)) - (_%src-bin-scm202002%_ - (path-expand _%src-bin-scm202000%_)) - (_%src-bin-c202004%_ - (_%replace-extension201937%_ - _%src-bin-scm202002%_ + (##map __tmp202532 _%src-deps-scm202145%_))) + (_%src-bin-scm202159%_ + (gxc#find-static-module-file _%ctx202091%_)) + (_%src-bin-scm202161%_ + (path-expand _%src-bin-scm202159%_)) + (_%src-bin-c202163%_ + (_%replace-extension202096%_ + _%src-bin-scm202161%_ '".c")) - (_%src-bin-o202006%_ - (_%replace-extension201937%_ - _%src-bin-scm202002%_ + (_%src-bin-o202165%_ + (_%replace-extension202096%_ + _%src-bin-scm202161%_ '".o")) - (_%output-bin202008%_ - (path-expand _%output-bin201952%_)) - (_%output-scm202010%_ - (path-expand _%output-scm201951%_)) - (_%output-c202012%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output-bin202167%_ + (path-expand _%output-bin202111%_)) + (_%output-scm202169%_ + (path-expand _%output-scm202110%_)) + (_%output-c202171%_ + (_%replace-extension202096%_ + _%output-scm202169%_ '".c")) - (_%output-o202014%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output-o202173%_ + (_%replace-extension202096%_ + _%output-scm202169%_ '".o")) - (_%output_-c202016%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output_-c202175%_ + (_%replace-extension202096%_ + _%output-scm202169%_ '"_.c")) - (_%output_-o202018%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output_-o202177%_ + (_%replace-extension202096%_ + _%output-scm202169%_ '"_.o")) - (_%gsc-link-opts202020%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202022%_ + (_%gsc-link-opts202179%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts202181%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts202024%_ + (_%gsc-static-opts202183%_ (gxc#gsc-static-include-options - _%gerbil-staticdir201958%_)) - (_%output-ld-opts202026%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts202028%_ - (_%get-libgerbil-ld-opts201936%_ - _%gerbil-libdir201956%_)) - (_%rpath202030%_ - (gxc#gerbil-rpath _%gerbil-libdir201956%_)) - (_%builtin-modules202034%_ - (_%remove-duplicates201943%_ - (let ((__tmp202374 - (let ((__tmp202376 - (lambda (_%mod202032%_) + _%gerbil-staticdir202117%_)) + (_%output-ld-opts202185%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts202187%_ + (_%get-libgerbil-ld-opts202095%_ + _%gerbil-libdir202115%_)) + (_%rpath202189%_ + (gxc#gerbil-rpath _%gerbil-libdir202115%_)) + (_%builtin-modules202193%_ + (_%remove-duplicates202102%_ + (let ((__tmp202533 + (let ((__tmp202535 + (lambda (_%mod202191%_) (symbol->string (##structure-ref - _%mod202032%_ + _%mod202191%_ '1 gx#expander-context::t '#f)))) - (__tmp202375 - (cons _%ctx201932%_ - _%deps201960%_))) + (__tmp202534 + (cons _%ctx202091%_ + _%deps202119%_))) (declare (not safe)) - (##map __tmp202376 __tmp202375)))) + (##map __tmp202535 __tmp202534)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp202374))))) - (letrec ((_%compile-obj202037%_ - (lambda (_%scm-path202044%_ _%c-path202045%_) - (let* ((_%o-path202047%_ - (_%replace-extension201937%_ - _%c-path202045%_ + __tmp202533))))) + (letrec ((_%compile-obj202196%_ + (lambda (_%scm-path202203%_ _%c-path202204%_) + (let* ((_%o-path202206%_ + (_%replace-extension202096%_ + _%c-path202204%_ '".o")) - (_%lock202049%_ + (_%lock202208%_ (let () (declare (not safe)) (##string-append - _%o-path202047%_ + _%o-path202206%_ '".lock"))) - (_%locked202051%_ '#f) - (_%unlock202054%_ + (_%locked202210%_ '#f) + (_%unlock202213%_ (lambda () - (close-port _%locked202051%_) + (close-port _%locked202210%_) (let () (declare (not safe)) (##delete-file - _%lock202049%_))))) - (let _%retry202057%_ () + _%lock202208%_))))) + (let _%retry202216%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock202049%_)) + (##file-exists? _%lock202208%_)) (begin (thread-sleep! '.01) - (_%retry202057%_)) + (_%retry202216%_)) (begin - (set! _%locked202051%_ - (let ((__tmp202377 + (set! _%locked202210%_ + (let ((__tmp202536 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock202049%_ + (cons _%lock202208%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp202377))) - (if _%locked202051%_ + __tmp202536))) + (if _%locked202210%_ '#!void - (_%retry202057%_))))) - (let ((__tmp202379 + (_%retry202216%_))))) + (let ((__tmp202538 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path202047%_))) - (not _%scm-path202044%_) + _%o-path202206%_))) + (not _%scm-path202203%_) (let () (declare (not safe)) (file-newer? - _%scm-path202044%_ - _%o-path202047%_))) - (let ((_%gsc-cc-opts202068%_ + _%scm-path202203%_ + _%o-path202206%_))) + (let ((_%gsc-cc-opts202227%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -698,41 +698,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202380 + (let ((__tmp202539 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202381 (cons _%c-path202045%_ '()))) + (let ((__tmp202540 (cons _%c-path202204%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202381 - _%gsc-static-opts202024%_)))) + __tmp202540 + _%gsc-static-opts202183%_)))) (declare (not safe)) - (__foldr1 cons __tmp202380 _%gsc-cc-opts202068%_))))) + (__foldr1 cons __tmp202539 _%gsc-cc-opts202227%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp202378 - (lambda () (_%unlock202054%_)))) + (__tmp202537 + (lambda () (_%unlock202213%_)))) (declare (not safe)) (__with-unwind-protect - __tmp202379 - __tmp202378)))))) - (let ((__tmp202382 + __tmp202538 + __tmp202537)))))) + (let ((__tmp202541 (lambda () - (let ((__tmp202383 - (path-directory _%output-bin202008%_))) + (let ((__tmp202542 + (path-directory _%output-bin202167%_))) (declare (not safe)) - (create-directory*__0 __tmp202383))))) + (create-directory*__0 __tmp202542))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202382)) + (__with-lock gxc#+driver-mutex+ __tmp202541)) (gxc#with-output-to-scheme-file - _%output-scm202010%_ + _%output-scm202169%_ (lambda () - (_%generate-stub201935%_ - _%builtin-modules202034%_))) + (_%generate-stub202094%_ + _%builtin-modules202193%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202042%_ + (let ((_%compile-it202201%_ (lambda () (gxc#invoke__% '#f @@ -740,46 +740,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp202384 - (let ((__tmp202385 - (let ((__tmp202386 + (let ((__tmp202543 + (let ((__tmp202544 + (let ((__tmp202545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm202002%_ - (cons _%output-scm202010%_ '())))) + (cons _%src-bin-scm202161%_ + (cons _%output-scm202169%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp202386 _%src-deps-scm201986%_)))) + (__foldr1 cons __tmp202545 _%src-deps-scm202145%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202385 - _%libgerbil-c201972%_)))) + __tmp202544 + _%libgerbil-c202131%_)))) (declare (not safe)) (__foldr1 cons - __tmp202384 - _%gsc-link-opts202020%_)))) + __tmp202543 + _%gsc-link-opts202179%_)))) (for-each - _%compile-obj202037%_ - (let ((__tmp202387 - (cons _%src-bin-scm202002%_ - (cons _%output-scm202010%_ + _%compile-obj202196%_ + (let ((__tmp202546 + (cons _%src-bin-scm202161%_ + (cons _%output-scm202169%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp202387 - _%src-deps-scm201986%_)) - (let ((__tmp202388 - (cons _%src-bin-c202004%_ - (cons _%output-c202012%_ - (cons _%output_-c202016%_ + __tmp202546 + _%src-deps-scm202145%_)) + (let ((__tmp202547 + (cons _%src-bin-c202163%_ + (cons _%output-c202171%_ + (cons _%output_-c202175%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp202388 - _%src-deps-c201992%_))) + __tmp202547 + _%src-deps-c202151%_))) (gxc#invoke__% '#f absent-value @@ -787,71 +787,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin202008%_ - (let ((__tmp202389 - (cons _%src-bin-o202006%_ + (cons _%output-bin202167%_ + (let ((__tmp202548 + (cons _%src-bin-o202165%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o202014%_ - (cons _%output_-o202018%_ - (let ((__tmp202390 - (let ((__tmp202391 - (let ((__tmp202393 + (cons _%output-o202173%_ + (cons _%output_-o202177%_ + (let ((__tmp202549 + (let ((__tmp202550 + (let ((__tmp202552 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir201956%_ + (cons _%gerbil-libdir202115%_ (cons '"-lgambit" - _%libgerbil-ld-opts202028%_)))) - (__tmp202392 + _%libgerbil-ld-opts202187%_)))) + (__tmp202551 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202030%_ '()) + (cons _%rpath202189%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202393 __tmp202392)))) + (__foldr1 cons __tmp202552 __tmp202551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202391 - _%output-ld-opts202026%_)))) + __tmp202550 + _%output-ld-opts202185%_)))) (declare (not safe)) (__foldr1 cons - __tmp202390 - _%libgerbil-o201978%_))))))) + __tmp202549 + _%libgerbil-o202137%_))))))) (declare (not safe)) - (__foldr1 cons __tmp202389 _%src-deps-o201998%_)))))) + (__foldr1 cons __tmp202548 _%src-deps-o202157%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp202394 - (cons _%output-c202012%_ - (cons _%output_-c202016%_ - (cons _%output-o202014%_ - (cons _%output_-o202018%_ + (let ((__tmp202553 + (cons _%output-c202171%_ + (cons _%output_-c202175%_ + (cons _%output-o202173%_ + (cons _%output_-o202177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp202394))))) + (##for-each delete-file __tmp202553))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202042%_)) - (_%compile-it202042%_))) + _%compile-it202201%_)) + (_%compile-it202201%_))) '#!void)))))) - (let* ((_%output-bin201946%_ - (gxc#compile-exe-output-file _%ctx201932%_ _%opts201933%_)) - (_%output-scm201948%_ + (let* ((_%output-bin202105%_ + (gxc#compile-exe-output-file _%ctx202091%_ _%opts202092%_)) + (_%output-scm202107%_ (let () (declare (not safe)) - (##string-append _%output-bin201946%_ '"__exe.scm")))) - (_%compile-stub201944%_ - _%output-scm201948%_ - _%output-bin201946%_))))) + (##string-append _%output-bin202105%_ '"__exe.scm")))) + (_%compile-stub202103%_ + _%output-scm202107%_ + _%output-bin202105%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx201754%_ _%opts201755%_) - (letrec ((_%reset-declare201757%_ + (lambda (_%ctx201913%_ _%opts201914%_) + (letrec ((_%reset-declare201916%_ (lambda () '(declare (gambit-scheme) @@ -873,36 +873,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub201758%_ - (lambda (_%deps201923%_) - (let ((_%mod-main201925%_ - (gxc#find-runtime-symbol _%ctx201754%_ 'main)) - (_%reset-decl201926%_ (_%reset-declare201757%_)) - (_%user-decl201927%_ (_%user-declare201759%_))) + (_%generate-stub201917%_ + (lambda (_%deps202082%_) + (let ((_%mod-main202084%_ + (gxc#find-runtime-symbol _%ctx201913%_ 'main)) + (_%reset-decl202085%_ (_%reset-declare201916%_)) + (_%user-decl202086%_ (_%user-declare201918%_))) (for-each - (lambda (_%dep201929%_) + (lambda (_%dep202088%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl201926%_)) + (##write _%reset-decl202085%_)) (newline) - (if _%user-decl201927%_ + (if _%user-decl202086%_ (begin (let () (declare (not safe)) - (##write _%user-decl201927%_)) + (##write _%user-decl202086%_)) (newline)) '#!void) - (let ((__tmp202395 - (cons 'include (cons _%dep201929%_ '())))) + (let ((__tmp202554 + (cons 'include (cons _%dep202088%_ '())))) (declare (not safe)) - (##write __tmp202395)) + (##write __tmp202554)) (newline)) - _%deps201923%_) - (let ((__tmp202396 + _%deps202082%_) + (let ((__tmp202555 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -912,236 +912,236 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main201925%_ + (cons _%mod-main202084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp202396)) + (##write __tmp202555)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare201759%_ + (_%user-declare201918%_ (lambda () - (let* ((_%gsc-opts201828%_ + (let* ((_%gsc-opts201987%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts201755%_))) - (_%gsc-prelude201830%_ - (if _%gsc-opts201828%_ - (member '"-prelude" _%gsc-opts201828%_) + (pgetq__0 'gsc-options: _%opts201914%_))) + (_%gsc-prelude201989%_ + (if _%gsc-opts201987%_ + (member '"-prelude" _%gsc-opts201987%_) '#f)) - (_%gsc-prelude201832%_ - (if _%gsc-prelude201830%_ + (_%gsc-prelude201991%_ + (if _%gsc-prelude201989%_ (read (open-input-string - (cadr _%gsc-prelude201830%_))) + (cadr _%gsc-prelude201989%_))) '#f))) - (let _%lp201835%_ ((_%rest201837%_ - (cons _%gsc-prelude201832%_ '())) - (_%user-decls201838%_ '())) - (let* ((_%rest201839201847%_ _%rest201837%_) - (_%else201841201855%_ + (let _%lp201994%_ ((_%rest201996%_ + (cons _%gsc-prelude201991%_ '())) + (_%user-decls201997%_ '())) + (let* ((_%rest201998202006%_ _%rest201996%_) + (_%else202000202014%_ (lambda () - (if (null? _%user-decls201838%_) + (if (null? _%user-decls201997%_) '#f (cons 'declare - (reverse _%user-decls201838%_))))) - (_%K201843201911%_ - (lambda (_%rest201858%_ _%expr201859%_) - (let* ((_%expr201860201872%_ _%expr201859%_) - (_%else201863201880%_ + (reverse _%user-decls201997%_))))) + (_%K202002202070%_ + (lambda (_%rest202017%_ _%expr202018%_) + (let* ((_%expr202019202031%_ _%expr202018%_) + (_%else202022202039%_ (lambda () - (_%lp201835%_ - _%rest201858%_ - _%user-decls201838%_)))) - (let ((_%K201868201901%_ - (lambda (_%decls201899%_) - (_%lp201835%_ - _%rest201858%_ + (_%lp201994%_ + _%rest202017%_ + _%user-decls201997%_)))) + (let ((_%K202027202060%_ + (lambda (_%decls202058%_) + (_%lp201994%_ + _%rest202017%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls201838%_ - _%decls201899%_))))) - (_%K201865201886%_ - (lambda (_%exprs201884%_) - (_%lp201835%_ - (append _%exprs201884%_ - _%rest201858%_) - _%user-decls201838%_)))) - (if (pair? _%expr201860201872%_) - (let ((_%tl201870201906%_ + _%user-decls201997%_ + _%decls202058%_))))) + (_%K202024202045%_ + (lambda (_%exprs202043%_) + (_%lp201994%_ + (append _%exprs202043%_ + _%rest202017%_) + _%user-decls201997%_)))) + (if (pair? _%expr202019202031%_) + (let ((_%tl202029202065%_ (let () (declare (not safe)) - (##cdr _%expr201860201872%_))) - (_%hd201869201904%_ + (##cdr _%expr202019202031%_))) + (_%hd202028202063%_ (let () (declare (not safe)) - (##car _%expr201860201872%_)))) + (##car _%expr202019202031%_)))) (if (let () (declare (not safe)) - (##eq? _%hd201869201904%_ + (##eq? _%hd202028202063%_ 'declare)) - (let ((_%decls201909%_ - _%tl201870201906%_)) - (_%K201868201901%_ - _%decls201909%_)) + (let ((_%decls202068%_ + _%tl202029202065%_)) + (_%K202027202060%_ + _%decls202068%_)) (if (let () (declare (not safe)) - (##eq? _%hd201869201904%_ + (##eq? _%hd202028202063%_ 'begin)) - (let ((_%exprs201894%_ - _%tl201870201906%_)) - (_%K201865201886%_ - _%exprs201894%_)) - (_%else201863201880%_)))) - (_%else201863201880%_))))))) - (if (pair? _%rest201839201847%_) - (let ((_%hd201844201914%_ + (let ((_%exprs202053%_ + _%tl202029202065%_)) + (_%K202024202045%_ + _%exprs202053%_)) + (_%else202022202039%_)))) + (_%else202022202039%_))))))) + (if (pair? _%rest201998202006%_) + (let ((_%hd202003202073%_ (let () (declare (not safe)) - (##car _%rest201839201847%_))) - (_%tl201845201916%_ + (##car _%rest201998202006%_))) + (_%tl202004202075%_ (let () (declare (not safe)) - (##cdr _%rest201839201847%_)))) - (let* ((_%expr201919%_ _%hd201844201914%_) - (_%rest201921%_ _%tl201845201916%_)) - (_%K201843201911%_ - _%rest201921%_ - _%expr201919%_))) - (_%else201841201855%_))))))) - (_%compile-stub201760%_ - (lambda (_%output-scm201767%_ _%output-bin201768%_) - (let* ((_%gerbil-home201770%_ - (let ((__tmp202397 + (##cdr _%rest201998202006%_)))) + (let* ((_%expr202078%_ _%hd202003202073%_) + (_%rest202080%_ _%tl202004202075%_)) + (_%K202002202070%_ + _%rest202080%_ + _%expr202078%_))) + (_%else202000202014%_))))))) + (_%compile-stub201919%_ + (lambda (_%output-scm201926%_ _%output-bin201927%_) + (let* ((_%gerbil-home201929%_ + (let ((__tmp202556 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202397))) - (_%gerbil-libdir201772%_ - (path-expand '"lib" _%gerbil-home201770%_)) - (_%runtime201774%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202556))) + (_%gerbil-libdir201931%_ + (path-expand '"lib" _%gerbil-home201929%_)) + (_%runtime201933%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp201776%_ + (_%gambit-sharp201935%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home201770%_)) - (_%include-gambit-sharp201778%_ + _%gerbil-home201929%_)) + (_%include-gambit-sharp201937%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp201776%_ + _%gambit-sharp201935%_ '"\")"))) - (_%bin-scm201780%_ - (gxc#find-static-module-file _%ctx201754%_)) - (_%deps201782%_ - (gxc#find-runtime-module-deps _%ctx201754%_)) - (_%deps201784%_ + (_%bin-scm201939%_ + (gxc#find-static-module-file _%ctx201913%_)) + (_%deps201941%_ + (gxc#find-runtime-module-deps _%ctx201913%_)) + (_%deps201943%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps201782%_))) - (_%deps201789%_ - (let ((__tmp202398 - (lambda (_%$obj201786%_) - (not (gxc#file-empty? _%$obj201786%_))))) + _%deps201941%_))) + (_%deps201948%_ + (let ((__tmp202557 + (lambda (_%$obj201945%_) + (not (gxc#file-empty? _%$obj201945%_))))) (declare (not safe)) - (##filter __tmp202398 _%deps201784%_))) - (_%deps201793%_ - (let ((__tmp202399 - (lambda (_%f201791%_) + (##filter __tmp202557 _%deps201943%_))) + (_%deps201952%_ + (let ((__tmp202558 + (lambda (_%f201950%_) (not (let () (declare (not safe)) (##member - _%f201791%_ - _%runtime201774%_)))))) + _%f201950%_ + _%runtime201933%_)))))) (declare (not safe)) - (##filter __tmp202399 _%deps201789%_))) - (_%output-base201795%_ - (let ((__tmp202400 + (##filter __tmp202558 _%deps201948%_))) + (_%output-base201954%_ + (let ((__tmp202559 (path-strip-extension - _%output-scm201767%_))) + _%output-scm201926%_))) (declare (not safe)) - (##string-append __tmp202400))) - (_%output-c201797%_ + (##string-append __tmp202559))) + (_%output-c201956%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '".c"))) - (_%output-o201799%_ + (##string-append _%output-base201954%_ '".c"))) + (_%output-o201958%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '".o"))) - (_%output-c_201801%_ + (##string-append _%output-base201954%_ '".o"))) + (_%output-c_201960%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '"_.c"))) - (_%output-o_201803%_ + (##string-append _%output-base201954%_ '"_.c"))) + (_%output-o_201962%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '"_.o"))) - (_%gsc-link-opts201805%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts201807%_ + (##string-append _%output-base201954%_ '"_.o"))) + (_%gsc-link-opts201964%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts201966%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts201809%_ + (_%gsc-static-opts201968%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir201772%_))) - (_%output-ld-opts201811%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros201813%_ + (path-expand '"static" _%gerbil-libdir201931%_))) + (_%output-ld-opts201970%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros201972%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp201778%_ + (cons _%include-gambit-sharp201937%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp201778%_ + (cons _%include-gambit-sharp201937%_ '())))) - (_%gsc-link-opts201815%_ + (_%gsc-link-opts201974%_ (let () (declare (not safe)) (##append - _%gsc-link-opts201805%_ - _%gsc-gx-macros201813%_))) - (_%rpath201817%_ - (gxc#gerbil-rpath _%gerbil-libdir201772%_)) - (_%default-ld-options201819%_ + _%gsc-link-opts201964%_ + _%gsc-gx-macros201972%_))) + (_%rpath201976%_ + (gxc#gerbil-rpath _%gerbil-libdir201931%_)) + (_%default-ld-options201978%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp202401 + (let ((__tmp202560 (lambda () - (let ((__tmp202402 - (path-directory _%output-bin201768%_))) + (let ((__tmp202561 + (path-directory _%output-bin201927%_))) (declare (not safe)) - (create-directory*__0 __tmp202402))))) + (create-directory*__0 __tmp202561))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202401)) + (__with-lock gxc#+driver-mutex+ __tmp202560)) (gxc#with-output-to-scheme-file - _%output-scm201767%_ + _%output-scm201926%_ (lambda () - (_%generate-stub201758%_ - (let ((__tmp202403 - (let ((__tmp202404 - (cons _%bin-scm201780%_ '()))) + (_%generate-stub201917%_ + (let ((__tmp202562 + (let ((__tmp202563 + (cons _%bin-scm201939%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202404 - _%deps201793%_)))) + __tmp202563 + _%deps201952%_)))) (declare (not safe)) - (__foldr1 cons __tmp202403 _%runtime201774%_))))) + (__foldr1 cons __tmp202562 _%runtime201933%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201825%_ + (let ((_%compile-it201984%_ (lambda () (gxc#invoke__% '#f @@ -1150,13 +1150,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_201801%_ - (let ((__tmp202405 - (cons _%output-scm201767%_ + (cons _%output-c_201960%_ + (let ((__tmp202564 + (cons _%output-scm201926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp202405 _%gsc-link-opts201815%_)))))) + (__foldr1 cons __tmp202564 _%gsc-link-opts201974%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1164,23 +1164,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202406 - (let ((__tmp202407 - (cons _%output-c201797%_ - (cons _%output-c_201801%_ + (let ((__tmp202565 + (let ((__tmp202566 + (cons _%output-c201956%_ + (cons _%output-c_201960%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202407 - _%gsc-static-opts201809%_)))) + __tmp202566 + _%gsc-static-opts201968%_)))) (declare (not safe)) (__foldr1 cons - __tmp202406 - _%gsc-cc-opts201807%_)))) + __tmp202565 + _%gsc-cc-opts201966%_)))) (gxc#invoke__% '#f absent-value @@ -1188,27 +1188,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin201768%_ - (cons _%output-o201799%_ - (cons _%output-o_201803%_ + (cons _%output-bin201927%_ + (cons _%output-o201958%_ + (cons _%output-o_201962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202408 - (let ((__tmp202410 + (let ((__tmp202567 + (let ((__tmp202569 (cons '"-L" - (cons _%gerbil-libdir201772%_ + (cons _%gerbil-libdir201931%_ (cons '"-lgambit" - _%default-ld-options201819%_)))) - (__tmp202409 + _%default-ld-options201978%_)))) + (__tmp202568 (if (gxc#gerbil-enable-shared?) - (cons _%rpath201817%_ '()) + (cons _%rpath201976%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202410 __tmp202409)))) + (__foldr1 cons __tmp202569 __tmp202568)))) (declare (not safe)) (__foldr1 cons - __tmp202408 - _%output-ld-opts201811%_))))))))))) + __tmp202567 + _%output-ld-opts201970%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1216,626 +1216,626 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it201825%_)) - (_%compile-it201825%_))) + _%compile-it201984%_)) + (_%compile-it201984%_))) '#!void))))) - (let* ((_%output-bin201762%_ - (gxc#compile-exe-output-file _%ctx201754%_ _%opts201755%_)) - (_%output-scm201764%_ + (let* ((_%output-bin201921%_ + (gxc#compile-exe-output-file _%ctx201913%_ _%opts201914%_)) + (_%output-scm201923%_ (let () (declare (not safe)) - (##string-append _%output-bin201762%_ '"__exe.scm")))) - (_%compile-stub201760%_ - _%output-scm201764%_ - _%output-bin201762%_))))) + (##string-append _%output-bin201921%_ '"__exe.scm")))) + (_%compile-stub201919%_ + _%output-scm201923%_ + _%output-bin201921%_))))) (define gxc#find-export-binding - (lambda (_%ctx201703%_ _%id201704%_) - (let ((_%$e201750%_ - (let ((__tmp202412 - (lambda (_%e201705201707%_) - (let* ((_%g201709201719%_ _%e201705201707%_) - (_%else201711201727%_ (lambda () '#f)) - (_%K201713201731%_ (lambda () '#t))) + (lambda (_%ctx201862%_ _%id201863%_) + (let ((_%$e201909%_ + (let ((__tmp202571 + (lambda (_%e201864201866%_) + (let* ((_%g201868201878%_ _%e201864201866%_) + (_%else201870201886%_ (lambda () '#f)) + (_%K201872201890%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g201709201719%_ + _%g201868201878%_ 'gx#module-export::t)) - (let* ((_%e201714201734%_ + (let* ((_%e201873201893%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g201868201878%_ '1 '#f '#f))) - (_%e201715201737%_ + (_%e201874201896%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g201868201878%_ '2 '#f '#f))) - (_%e201716201740%_ + (_%e201875201899%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g201868201878%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e201716201740%_ '0)) - (let ((_%e201717201743%_ + (##eq? _%e201875201899%_ '0)) + (let ((_%e201876201902%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g201868201878%_ '4 '#f '#f)))) - (if ((lambda (_%g201745201747%_) - (eq? _%g201745201747%_ - _%id201704%_)) - _%e201717201743%_) - (_%K201713201731%_) - (_%else201711201727%_))) - (_%else201711201727%_))) - (_%else201711201727%_))))) - (__tmp202411 + (if ((lambda (_%g201904201906%_) + (eq? _%g201904201906%_ + _%id201863%_)) + _%e201876201902%_) + (_%K201872201890%_) + (_%else201870201886%_))) + (_%else201870201886%_))) + (_%else201870201886%_))))) + (__tmp202570 (##structure-ref - _%ctx201703%_ + _%ctx201862%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp202412 __tmp202411)))) - (if _%$e201750%_ + (__find __tmp202571 __tmp202570)))) + (if _%$e201909%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e201750%_)) + (gx#core-resolve-module-export _%$e201909%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx201694%_ _%id201695%_) - (let ((_%$e201697%_ - (gxc#find-export-binding _%ctx201694%_ _%id201695%_))) - (if _%$e201697%_ - ((lambda (_%bind201700%_) + (lambda (_%ctx201853%_ _%id201854%_) + (let ((_%$e201856%_ + (gxc#find-export-binding _%ctx201853%_ _%id201854%_))) + (if _%$e201856%_ + ((lambda (_%bind201859%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind201700%_ + _%bind201859%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id201695%_))) - (##structure-ref _%bind201700%_ '1 gx#binding::t '#f)) - _%$e201697%_) - (let ((__tmp202413 + _%id201854%_))) + (##structure-ref _%bind201859%_ '1 gx#binding::t '#f)) + _%$e201856%_) + (let ((__tmp202572 (##structure-ref - _%ctx201694%_ + _%ctx201853%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp202413 - _%id201695%_)))))) + __tmp202572 + _%id201854%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx201560%_) - (letrec* ((_%ht201562%_ + (lambda (_%ctx201719%_) + (letrec* ((_%ht201721%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template201563%_ - (lambda (_%in201639%_ _%phi201640%_) - (let ((_%iphi201642%_ - (fx+ _%phi201640%_ + (_%import-set-template201722%_ + (lambda (_%in201798%_ _%phi201799%_) + (let ((_%iphi201801%_ + (fx+ _%phi201799%_ (##direct-structure-ref - _%in201639%_ + _%in201798%_ '2 gx#import-set::t '#f))) - (_%imports201643%_ + (_%imports201802%_ (##structure-ref (##direct-structure-ref - _%in201639%_ + _%in201798%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp201645%_ ((_%rest201647%_ _%imports201643%_) - (_%r201648%_ '())) - (let* ((_%rest201649201657%_ _%rest201647%_) - (_%else201651201665%_ (lambda () _%r201648%_)) - (_%K201653201682%_ - (lambda (_%rest201668%_ _%in201669%_) + (let _%lp201804%_ ((_%rest201806%_ _%imports201802%_) + (_%r201807%_ '())) + (let* ((_%rest201808201816%_ _%rest201806%_) + (_%else201810201824%_ (lambda () _%r201807%_)) + (_%K201812201841%_ + (lambda (_%rest201827%_ _%in201828%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in201669%_ + _%in201828%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi201642%_)) - (_%lp201645%_ - _%rest201668%_ - (cons _%in201669%_ _%r201648%_)) - (_%lp201645%_ - _%rest201668%_ - _%r201648%_)) + (##fxzero? _%iphi201801%_)) + (_%lp201804%_ + _%rest201827%_ + (cons _%in201828%_ _%r201807%_)) + (_%lp201804%_ + _%rest201827%_ + _%r201807%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201669%_ + _%in201828%_ 'gx#module-import::t)) - (let ((_%iphi201673%_ - (fx+ _%phi201640%_ + (let ((_%iphi201832%_ + (fx+ _%phi201799%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in201828%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi201673%_)) - (_%lp201645%_ - _%rest201668%_ + (##fxzero? _%iphi201832%_)) + (_%lp201804%_ + _%rest201827%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in201828%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r201648%_)) - (_%lp201645%_ - _%rest201668%_ - _%r201648%_))) + _%r201807%_)) + (_%lp201804%_ + _%rest201827%_ + _%r201807%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201669%_ + _%in201828%_ 'gx#import-set::t)) - (let ((_%xphi201676%_ - (fx+ _%iphi201642%_ + (let ((_%xphi201835%_ + (fx+ _%iphi201801%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in201828%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi201676%_)) - (_%lp201645%_ - _%rest201668%_ + _%xphi201835%_)) + (_%lp201804%_ + _%rest201827%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in201828%_ '1 '#f '#f)) - _%r201648%_)) + _%r201807%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi201676%_)) - (_%lp201645%_ - _%rest201668%_ - (let ((__tmp202414 + _%xphi201835%_)) + (_%lp201804%_ + _%rest201827%_ + (let ((__tmp202573 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template201563%_ - _%in201669%_ - _%iphi201642%_))) + (_%import-set-template201722%_ + _%in201828%_ + _%iphi201801%_))) (declare (not safe)) - (__foldl1 cons _%r201648%_ __tmp202414))) - (_%lp201645%_ _%rest201668%_ _%r201648%_)))) + (__foldl1 cons _%r201807%_ __tmp202573))) + (_%lp201804%_ _%rest201827%_ _%r201807%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp201645%_ - _%rest201668%_ - _%r201648%_))))))) - (if (pair? _%rest201649201657%_) - (let ((_%hd201654201685%_ + (_%lp201804%_ + _%rest201827%_ + _%r201807%_))))))) + (if (pair? _%rest201808201816%_) + (let ((_%hd201813201844%_ (let () (declare (not safe)) - (##car _%rest201649201657%_))) - (_%tl201655201687%_ + (##car _%rest201808201816%_))) + (_%tl201814201846%_ (let () (declare (not safe)) - (##cdr _%rest201649201657%_)))) - (let* ((_%in201690%_ _%hd201654201685%_) - (_%rest201692%_ _%tl201655201687%_)) - (_%K201653201682%_ - _%rest201692%_ - _%in201690%_))) - (_%else201651201665%_))))))) - (_%find-deps201564%_ - (lambda (_%rest201572%_ _%deps201573%_) - (let* ((_%rest201574201582%_ _%rest201572%_) - (_%else201576201590%_ (lambda () _%deps201573%_)) - (_%K201578201627%_ - (lambda (_%rest201593%_ _%hd201594%_) + (##cdr _%rest201808201816%_)))) + (let* ((_%in201849%_ _%hd201813201844%_) + (_%rest201851%_ _%tl201814201846%_)) + (_%K201812201841%_ + _%rest201851%_ + _%in201849%_))) + (_%else201810201824%_))))))) + (_%find-deps201723%_ + (lambda (_%rest201731%_ _%deps201732%_) + (let* ((_%rest201733201741%_ _%rest201731%_) + (_%else201735201749%_ (lambda () _%deps201732%_)) + (_%K201737201786%_ + (lambda (_%rest201752%_ _%hd201753%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201594%_ + _%hd201753%_ 'gx#module-context::t)) - (let ((_%id201597%_ + (let ((_%id201756%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '1 '#f '#f))) - (_%imports201598%_ + (_%imports201757%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201562%_ - _%id201597%_)) - (_%find-deps201564%_ - _%rest201593%_ - _%deps201573%_) - (let ((_%$e201601%_ + _%ht201721%_ + _%id201756%_)) + (_%find-deps201723%_ + _%rest201752%_ + _%deps201732%_) + (let ((_%$e201760%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd201594%_)))) - (if _%$e201601%_ - ((lambda (_%pre201604%_) - (let ((_%xdeps201606%_ - (_%find-deps201564%_ - (cons _%pre201604%_ - _%imports201598%_) - _%deps201573%_))) + _%hd201753%_)))) + (if _%$e201760%_ + ((lambda (_%pre201763%_) + (let ((_%xdeps201765%_ + (_%find-deps201723%_ + (cons _%pre201763%_ + _%imports201757%_) + _%deps201732%_))) (let () (declare (not safe)) (__hash-put! - _%ht201562%_ - _%id201597%_ - _%hd201594%_)) - (_%find-deps201564%_ - _%rest201593%_ - (cons _%hd201594%_ - _%xdeps201606%_)))) - _%$e201601%_) - (let ((_%xdeps201609%_ - (_%find-deps201564%_ - _%imports201598%_ - _%deps201573%_))) + _%ht201721%_ + _%id201756%_ + _%hd201753%_)) + (_%find-deps201723%_ + _%rest201752%_ + (cons _%hd201753%_ + _%xdeps201765%_)))) + _%$e201760%_) + (let ((_%xdeps201768%_ + (_%find-deps201723%_ + _%imports201757%_ + _%deps201732%_))) (let () (declare (not safe)) (__hash-put! - _%ht201562%_ - _%id201597%_ - _%hd201594%_)) - (_%find-deps201564%_ - _%rest201593%_ - (cons _%hd201594%_ - _%xdeps201609%_))))))) + _%ht201721%_ + _%id201756%_ + _%hd201753%_)) + (_%find-deps201723%_ + _%rest201752%_ + (cons _%hd201753%_ + _%xdeps201768%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201594%_ + _%hd201753%_ 'gx#prelude-context::t)) - (let ((_%id201612%_ + (let ((_%id201771%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201562%_ - _%id201612%_)) - (_%find-deps201564%_ - _%rest201593%_ - _%deps201573%_) - (let ((_%xdeps201616%_ - (_%find-deps201564%_ + _%ht201721%_ + _%id201771%_)) + (_%find-deps201723%_ + _%rest201752%_ + _%deps201732%_) + (let ((_%xdeps201775%_ + (_%find-deps201723%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '7 '#f '#f)) - _%deps201573%_))) + _%deps201732%_))) (if (let () (declare (not safe)) (__hash-get - _%ht201562%_ - _%id201612%_)) - (_%find-deps201564%_ - _%rest201593%_ - _%xdeps201616%_) + _%ht201721%_ + _%id201771%_)) + (_%find-deps201723%_ + _%rest201752%_ + _%xdeps201775%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht201562%_ - _%id201612%_ - _%hd201594%_)) - (_%find-deps201564%_ - _%rest201593%_ - (cons _%hd201594%_ - _%xdeps201616%_))))))) + _%ht201721%_ + _%id201771%_ + _%hd201753%_)) + (_%find-deps201723%_ + _%rest201752%_ + (cons _%hd201753%_ + _%xdeps201775%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201594%_ + _%hd201753%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '3 '#f '#f))) - (_%find-deps201564%_ + (_%find-deps201723%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '1 '#f '#f)) - _%rest201593%_) - _%deps201573%_) - (_%find-deps201564%_ - _%rest201593%_ - _%deps201573%_)) + _%rest201752%_) + _%deps201732%_) + (_%find-deps201723%_ + _%rest201752%_ + _%deps201732%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201594%_ + _%hd201753%_ 'gx#module-export::t)) - (_%find-deps201564%_ + (_%find-deps201723%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd201753%_ '1 '#f '#f)) - _%rest201593%_) - _%deps201573%_) + _%rest201752%_) + _%deps201732%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201594%_ + _%hd201753%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd201594%_ '2 '#f '#f))) - (_%find-deps201564%_ + (##unchecked-structure-ref _%hd201753%_ '2 '#f '#f))) + (_%find-deps201723%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201594%_ '1 '#f '#f)) - _%rest201593%_) - _%deps201573%_) + (##unchecked-structure-ref _%hd201753%_ '1 '#f '#f)) + _%rest201752%_) + _%deps201732%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201594%_ '2 '#f '#f))) - (let ((_%xdeps201623%_ - (_%import-set-template201563%_ _%hd201594%_ '0))) - (_%find-deps201564%_ + (##unchecked-structure-ref _%hd201753%_ '2 '#f '#f))) + (let ((_%xdeps201782%_ + (_%import-set-template201722%_ _%hd201753%_ '0))) + (_%find-deps201723%_ (let () (declare (not safe)) - (__foldl1 cons _%rest201593%_ _%xdeps201623%_)) - _%deps201573%_)) - (_%find-deps201564%_ _%rest201593%_ _%deps201573%_))) + (__foldl1 cons _%rest201752%_ _%xdeps201782%_)) + _%deps201732%_)) + (_%find-deps201723%_ _%rest201752%_ _%deps201732%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd201594%_)))))))))) - (if (pair? _%rest201574201582%_) - (let ((_%hd201579201630%_ + _%hd201753%_)))))))))) + (if (pair? _%rest201733201741%_) + (let ((_%hd201738201789%_ (let () (declare (not safe)) - (##car _%rest201574201582%_))) - (_%tl201580201632%_ + (##car _%rest201733201741%_))) + (_%tl201739201791%_ (let () (declare (not safe)) - (##cdr _%rest201574201582%_)))) - (let* ((_%hd201635%_ _%hd201579201630%_) - (_%rest201637%_ _%tl201580201632%_)) - (_%K201578201627%_ - _%rest201637%_ - _%hd201635%_))) - (_%else201576201590%_)))))) - (let ((__tmp202415 + (##cdr _%rest201733201741%_)))) + (let* ((_%hd201794%_ _%hd201738201789%_) + (_%rest201796%_ _%tl201739201791%_)) + (_%K201737201786%_ + _%rest201796%_ + _%hd201794%_))) + (_%else201735201749%_)))))) + (let ((__tmp202574 (filter gx#expander-context-id - (_%find-deps201564%_ - (let ((_%$e201566%_ + (_%find-deps201723%_ + (let ((_%$e201725%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx201560%_)))) - (if _%$e201566%_ - ((lambda (_%pre201569%_) - (cons _%pre201569%_ + _%ctx201719%_)))) + (if _%$e201725%_ + ((lambda (_%pre201728%_) + (cons _%pre201728%_ (##structure-ref - _%ctx201560%_ + _%ctx201719%_ '8 gx#module-context::t '#f))) - _%$e201566%_) + _%$e201725%_) (##structure-ref - _%ctx201560%_ + _%ctx201719%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp202415))))) + (##reverse __tmp202574))))) (define gxc#find-static-module-file - (lambda (_%ctx201490%_) - (let* ((_%context-id201492%_ + (lambda (_%ctx201649%_) + (let* ((_%context-id201651%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx201490%_ + _%ctx201649%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx201490%_ '1 '#f '#f)) - (string->symbol _%ctx201490%_))) - (_%scm201494%_ - (let ((__tmp202416 - (gxc#static-module-name _%context-id201492%_))) + (##unchecked-structure-ref _%ctx201649%_ '1 '#f '#f)) + (string->symbol _%ctx201649%_))) + (_%scm201653%_ + (let ((__tmp202575 + (gxc#static-module-name _%context-id201651%_))) (declare (not safe)) - (##string-append __tmp202416 '".scm"))) - (_%dirs201496%_ (let () (declare (not safe)) (load-path))) - (_%dirs201502%_ - (let ((_%user-libpath201498%_ + (##string-append __tmp202575 '".scm"))) + (_%dirs201655%_ (let () (declare (not safe)) (load-path))) + (_%dirs201661%_ + (let ((_%user-libpath201657%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath201498%_ - (let ((_%user-libpath201500%_ - (path-expand '"lib" _%user-libpath201498%_))) + (if _%user-libpath201657%_ + (let ((_%user-libpath201659%_ + (path-expand '"lib" _%user-libpath201657%_))) (if (let () (declare (not safe)) - (##member _%user-libpath201500%_ _%dirs201496%_)) - _%dirs201496%_ - (cons _%user-libpath201500%_ _%dirs201496%_))) - _%dirs201496%_))) - (_%dirs201512%_ - (let ((_%$e201504%_ + (##member _%user-libpath201659%_ _%dirs201655%_)) + _%dirs201655%_ + (cons _%user-libpath201659%_ _%dirs201655%_))) + _%dirs201655%_))) + (_%dirs201671%_ + (let ((_%$e201663%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201504%_ - ((lambda (_%g201506201508%_) - (cons _%g201506201508%_ _%dirs201502%_)) - _%$e201504%_) - _%dirs201502%_))) - (_%dirs201518%_ - (let ((__tmp202417 - (lambda (_%g201513201515%_) - (path-expand '"static" _%g201513201515%_)))) + (if _%$e201663%_ + ((lambda (_%g201665201667%_) + (cons _%g201665201667%_ _%dirs201661%_)) + _%$e201663%_) + _%dirs201661%_))) + (_%dirs201677%_ + (let ((__tmp202576 + (lambda (_%g201672201674%_) + (path-expand '"static" _%g201672201674%_)))) (declare (not safe)) - (##map __tmp202417 _%dirs201512%_)))) - (let _%lp201521%_ ((_%rest201523%_ _%dirs201518%_)) - (let* ((_%rest201524201532%_ _%rest201523%_) - (_%else201526201540%_ + (##map __tmp202576 _%dirs201671%_)))) + (let _%lp201680%_ ((_%rest201682%_ _%dirs201677%_)) + (let* ((_%rest201683201691%_ _%rest201682%_) + (_%else201685201699%_ (lambda () - (let ((__tmp202418 + (let ((__tmp202577 (##structure-ref - _%ctx201490%_ + _%ctx201649%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp202418 - _%scm201494%_)))) - (_%K201528201548%_ - (lambda (_%rest201543%_ _%dir201544%_) - (let ((_%path201546%_ - (path-expand _%scm201494%_ _%dir201544%_))) + __tmp202577 + _%scm201653%_)))) + (_%K201687201707%_ + (lambda (_%rest201702%_ _%dir201703%_) + (let ((_%path201705%_ + (path-expand _%scm201653%_ _%dir201703%_))) (if (let () (declare (not safe)) - (##file-exists? _%path201546%_)) - _%path201546%_ - (_%lp201521%_ _%rest201543%_)))))) - (if (pair? _%rest201524201532%_) - (let ((_%hd201529201551%_ + (##file-exists? _%path201705%_)) + _%path201705%_ + (_%lp201680%_ _%rest201702%_)))))) + (if (pair? _%rest201683201691%_) + (let ((_%hd201688201710%_ (let () (declare (not safe)) - (##car _%rest201524201532%_))) - (_%tl201530201553%_ + (##car _%rest201683201691%_))) + (_%tl201689201712%_ (let () (declare (not safe)) - (##cdr _%rest201524201532%_)))) - (let* ((_%dir201556%_ _%hd201529201551%_) - (_%rest201558%_ _%tl201530201553%_)) - (_%K201528201548%_ _%rest201558%_ _%dir201556%_))) - (_%else201526201540%_))))))) + (##cdr _%rest201683201691%_)))) + (let* ((_%dir201715%_ _%hd201688201710%_) + (_%rest201717%_ _%tl201689201712%_)) + (_%K201687201707%_ _%rest201717%_ _%dir201715%_))) + (_%else201685201699%_))))))) (define gxc#file-empty? - (lambda (_%path201488%_) - (zero? (let ((__tmp202419 (file-info _%path201488%_ '#t))) + (lambda (_%path201647%_) + (zero? (let ((__tmp202578 (file-info _%path201647%_ '#t))) (declare (not safe)) - (##file-info-size __tmp202419))))) + (##file-info-size __tmp202578))))) (define gxc#compile-top-module - (lambda (_%ctx201484%_) - (let ((__tmp202423 + (lambda (_%ctx201643%_) + (let ((__tmp202582 (lambda () - (let ((__tmp202424 + (let ((__tmp202583 (##structure-ref - _%ctx201484%_ + _%ctx201643%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp202424)) + (gxc#verbose '"compile " __tmp202583)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp202425 + (let ((__tmp202584 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx201484%_))))) + (gxc#optimize! _%ctx201643%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202425)) + (__with-lock gxc#+driver-mutex+ __tmp202584)) '#!void) - (gxc#collect-bindings _%ctx201484%_) - (gxc#compile-runtime-code _%ctx201484%_) - (gxc#compile-meta-code _%ctx201484%_) + (gxc#collect-bindings _%ctx201643%_) + (gxc#compile-runtime-code _%ctx201643%_) + (gxc#compile-meta-code _%ctx201643%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx201484%_) + (gxc#compile-ssxi-code _%ctx201643%_) '#!void))) - (__tmp202422 - (let ((__obj202346 + (__tmp202581 + (let ((__obj202505 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj202346)) - __obj202346)) - (__tmp202421 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202420 + (gxc#symbol-table:::init! __obj202505)) + __obj202505)) + (__tmp202580 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp202579 (let () (declare (not safe)) (make-hash-table__% @@ -1850,137 +1850,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp202423 + __tmp202582 gx#current-expander-context - _%ctx201484%_ + _%ctx201643%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp202422 + __tmp202581 gxc#current-compile-runtime-sections - __tmp202421 + __tmp202580 gxc#current-compile-runtime-names - __tmp202420)))) + __tmp202579)))) (define gxc#collect-bindings - (lambda (_%ctx201482%_) - (let ((__tmp202426 - (##structure-ref _%ctx201482%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201641%_) + (let ((__tmp202585 + (##structure-ref _%ctx201641%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp202426)))) + (gxc#apply-collect-bindings __tmp202585)))) (define gxc#compile-runtime-code - (lambda (_%ctx201430%_) - (letrec ((_%compile1201432%_ - (lambda (_%ctx201471%_) - (let* ((_%code201473%_ + (lambda (_%ctx201589%_) + (letrec ((_%compile1201591%_ + (lambda (_%ctx201630%_) + (let* ((_%code201632%_ (##structure-ref - _%ctx201471%_ + _%ctx201630%_ '11 gx#module-context::t '#f)) - (_%rtm201477%_ - (let ((_%idstr201475%_ - (let ((__tmp202427 + (_%rtm201636%_ + (let ((_%idstr201634%_ + (let ((__tmp202586 (##structure-ref - _%ctx201471%_ + _%ctx201630%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp202427)))) + __tmp202586)))) (declare (not safe)) - (##string-append _%idstr201475%_ '"~0"))) - (_%rtc?201479%_ + (##string-append _%idstr201634%_ '"~0"))) + (_%rtc?201638%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code201473%_)))) - (if _%rtc?201479%_ - (let ((__tmp202428 + (gxc#apply-find-runtime-code _%code201632%_)))) + (if _%rtc?201638%_ + (let ((__tmp202587 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp202428 - _%ctx201471%_ - _%rtm201477%_)) + __tmp202587 + _%ctx201630%_ + _%rtm201636%_)) '#!void) - (_%generate-runtime-code201434%_ - _%ctx201471%_ - _%code201473%_ - (if _%rtc?201479%_ _%rtm201477%_ '#f))))) - (_%context-timestamp201433%_ - (lambda (_%ctx201469%_) - (let ((__tmp202429 - (let ((__tmp202430 + (_%generate-runtime-code201593%_ + _%ctx201630%_ + _%code201632%_ + (if _%rtc?201638%_ _%rtm201636%_ '#f))))) + (_%context-timestamp201592%_ + (lambda (_%ctx201628%_) + (let ((__tmp202588 + (let ((__tmp202589 (symbol->string (##structure-ref - _%ctx201469%_ + _%ctx201628%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp202430 '"::timestamp")))) + (##string-append __tmp202589 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp202429)))) - (_%generate-runtime-code201434%_ - (lambda (_%ctx201441%_ _%code201442%_ _%rtm201443%_) - (let* ((_%runtime-code?201445%_ (if _%rtm201443%_ '#t '#f)) - (_%lifts201447%_ (box '())) - (_%runtime-code201450%_ - (if _%runtime-code?201445%_ - (let ((__tmp202433 + (##string->symbol __tmp202588)))) + (_%generate-runtime-code201593%_ + (lambda (_%ctx201600%_ _%code201601%_ _%rtm201602%_) + (let* ((_%runtime-code?201604%_ (if _%rtm201602%_ '#t '#f)) + (_%lifts201606%_ (box '())) + (_%runtime-code201609%_ + (if _%runtime-code?201604%_ + (let ((__tmp202592 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code201442%_)))) - (__tmp202432 + _%code201601%_)))) + (__tmp202591 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202431 + (__tmp202590 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202433 + __tmp202592 gx#current-expander-context - _%ctx201441%_ + _%ctx201600%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts201447%_ + _%lifts201606%_ gxc#current-compile-marks - __tmp202432 + __tmp202591 gxc#current-compile-identifiers - __tmp202431)) + __tmp202590)) '#f)) - (_%runtime-code201452%_ - (if _%runtime-code?201445%_ - (if (null? (unbox _%lifts201447%_)) - _%runtime-code201450%_ + (_%runtime-code201611%_ + (if _%runtime-code?201604%_ + (if (null? (unbox _%lifts201606%_)) + _%runtime-code201609%_ (cons 'begin - (let ((__tmp202435 - (cons _%runtime-code201450%_ + (let ((__tmp202594 + (cons _%runtime-code201609%_ '())) - (__tmp202434 - (reverse (unbox _%lifts201447%_)))) + (__tmp202593 + (reverse (unbox _%lifts201606%_)))) (declare (not safe)) (__foldr1 cons - __tmp202435 - __tmp202434)))) + __tmp202594 + __tmp202593)))) '#f)) - (_%runtime-code201454%_ - (if _%runtime-code?201445%_ + (_%runtime-code201613%_ + (if _%runtime-code?201604%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp201433%_ - _%ctx201441%_) + (cons (_%context-timestamp201592%_ + _%ctx201600%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1988,779 +1988,779 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code201452%_ '()))) + (cons _%runtime-code201611%_ '()))) '#f)) - (_%loader-code201457%_ - (let ((__tmp202436 + (_%loader-code201616%_ + (let ((__tmp202595 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code201442%_))))) + _%code201601%_))))) (declare (not safe)) (__call-with-parameters - __tmp202436 + __tmp202595 gx#current-expander-context - _%ctx201441%_))) - (_%loader-code201459%_ + _%ctx201600%_))) + (_%loader-code201618%_ (cons 'begin - (cons _%loader-code201457%_ - (cons (if _%runtime-code?201445%_ + (cons _%loader-code201616%_ + (cons (if _%runtime-code?201604%_ (cons 'load-module - (cons _%rtm201443%_ + (cons _%rtm201602%_ '())) '(begin)) '())))) - (_%scm0201461%_ - (gxc#compile-output-file _%ctx201441%_ '0 '".scm")) - (_%scmrt201463%_ + (_%scm0201620%_ + (gxc#compile-output-file _%ctx201600%_ '0 '".scm")) + (_%scmrt201622%_ (gxc#compile-output-file - _%ctx201441%_ + _%ctx201600%_ '#f '".scm")) - (_%scms201465%_ - (gxc#compile-static-output-file _%ctx201441%_))) - (if _%runtime-code?201445%_ + (_%scms201624%_ + (gxc#compile-static-output-file _%ctx201600%_))) + (if _%runtime-code?201604%_ (gxc#compile-scm-file__0 - _%scm0201461%_ - _%runtime-code201454%_) + _%scm0201620%_ + _%runtime-code201613%_) '#!void) - (let ((__tmp202437 + (let ((__tmp202596 (lambda () (gxc#compile-scm-file__0 - _%scmrt201463%_ - _%loader-code201459%_)))) + _%scmrt201622%_ + _%loader-code201618%_)))) (declare (not safe)) (__call-with-parameters - __tmp202437 + __tmp202596 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms201465%_)) + (##file-exists? _%scms201624%_)) (let () (declare (not safe)) - (##delete-file _%scms201465%_)) + (##delete-file _%scms201624%_)) '#!void) - (if _%runtime-code?201445%_ + (if _%runtime-code?201604%_ (let () (declare (not safe)) - (##copy-file _%scm0201461%_ _%scms201465%_)) + (##copy-file _%scm0201620%_ _%scms201624%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms201465%_ void))))))) - (let* ((_%all-modules201436%_ - (cons _%ctx201430%_ (gxc#lift-nested-modules _%ctx201430%_))) - (__tmp202438 - (lambda (_%ctx201438%_) - (let ((__tmp202439 - (lambda () (_%compile1201432%_ _%ctx201438%_)))) + (##call-with-output-file _%scms201624%_ void))))))) + (let* ((_%all-modules201595%_ + (cons _%ctx201589%_ (gxc#lift-nested-modules _%ctx201589%_))) + (__tmp202597 + (lambda (_%ctx201597%_) + (let ((__tmp202598 + (lambda () (_%compile1201591%_ _%ctx201597%_)))) (declare (not safe)) (__call-with-parameters - __tmp202439 + __tmp202598 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp202438 _%all-modules201436%_))))) + (##for-each __tmp202597 _%all-modules201595%_))))) (define gxc#compile-meta-code - (lambda (_%ctx201330%_) - (letrec ((_%compile-ssi201332%_ - (lambda (_%code201398%_) - (let* ((_%path201400%_ + (lambda (_%ctx201489%_) + (letrec ((_%compile-ssi201491%_ + (lambda (_%code201557%_) + (let* ((_%path201559%_ (gxc#compile-output-file - _%ctx201330%_ + _%ctx201489%_ '#f '".ssi")) - (_%prelude201412%_ - (let* ((_%super201402%_ + (_%prelude201571%_ + (let* ((_%super201561%_ (##structure-ref - _%ctx201330%_ + _%ctx201489%_ '3 gx#phi-context::t '#f)) - (_%$e201404%_ + (_%$e201563%_ (##structure-ref - _%super201402%_ + _%super201561%_ '1 gx#expander-context::t '#f))) - (if _%$e201404%_ - ((lambda (_%g201406201408%_) + (if _%$e201563%_ + ((lambda (_%g201565201567%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g201406201408%_))) - _%$e201404%_) + _%g201565201567%_))) + _%$e201563%_) ':))) - (_%ns201414%_ + (_%ns201573%_ (##structure-ref - _%ctx201330%_ + _%ctx201489%_ '6 gx#module-context::t '#f)) - (_%idstr201416%_ + (_%idstr201575%_ (symbol->string (##structure-ref - _%ctx201330%_ + _%ctx201489%_ '1 gx#expander-context::t '#f))) - (_%pkg201424%_ - (let ((_%$e201418%_ + (_%pkg201583%_ + (let ((_%$e201577%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201416%_ '#\/)))) - (if _%$e201418%_ - ((lambda (_%x201421%_) - (let ((__tmp202440 + (string-rindex__0 _%idstr201575%_ '#\/)))) + (if _%$e201577%_ + ((lambda (_%x201580%_) + (let ((__tmp202599 (substring - _%idstr201416%_ + _%idstr201575%_ '0 - _%x201421%_))) + _%x201580%_))) (declare (not safe)) - (##string->symbol __tmp202440))) - _%$e201418%_) + (##string->symbol __tmp202599))) + _%$e201577%_) '#f))) - (_%rt201426%_ - (let ((__tmp202441 + (_%rt201585%_ + (let ((__tmp202600 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp202441 _%ctx201330%_)))) + (hash-get __tmp202600 _%ctx201489%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201400%_)) + (gxc#verbose '"compile " _%path201559%_)) (gxc#with-output-to-scheme-file - _%path201400%_ + _%path201559%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude201412%_)) - (if _%pkg201424%_ + (displayln '"prelude:" '" " _%prelude201571%_)) + (if _%pkg201583%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg201424%_)) + (displayln '"package:" '" " _%pkg201583%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns201414%_)) + (displayln '"namespace:" '" " _%ns201573%_)) (newline) - (pretty-print _%code201398%_) - (if _%rt201426%_ + (pretty-print _%code201557%_) + (if _%rt201585%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt201426%_ '())) + (cons _%rt201585%_ '())) '())))) '#!void)))))) - (_%compile-phi201333%_ - (lambda (_%part201338%_) - (let* ((_%part201339201352%_ _%part201338%_) - (_%E201341201356%_ + (_%compile-phi201492%_ + (lambda (_%part201497%_) + (let* ((_%part201498201511%_ _%part201497%_) + (_%E201500201515%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part201339201352%_ + _%part201498201511%_ '([phi-ctx phi n code]))) '#!void)) - (_%K201342201367%_ - (lambda (_%code201359%_ - _%n201360%_ - _%phi201361%_ - _%phi-ctx201362%_) - (let ((_%code201365%_ - (let ((__tmp202442 + (_%K201501201526%_ + (lambda (_%code201518%_ + _%n201519%_ + _%phi201520%_ + _%phi-ctx201521%_) + (let ((_%code201524%_ + (let ((__tmp202601 (lambda () (gxc#generate-runtime-phi - _%code201359%_)))) + _%code201518%_)))) (declare (not safe)) (__call-with-parameters - __tmp202442 + __tmp202601 gx#current-expander-context - _%phi-ctx201362%_ + _%phi-ctx201521%_ gx#current-expander-phi - _%phi201361%_)))) + _%phi201520%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx201330%_ - _%n201360%_ + _%ctx201489%_ + _%n201519%_ '".scm") - _%code201365%_ + _%code201524%_ '#t))))) - (if (pair? _%part201339201352%_) - (let ((_%hd201343201370%_ + (if (pair? _%part201498201511%_) + (let ((_%hd201502201529%_ (let () (declare (not safe)) - (##car _%part201339201352%_))) - (_%tl201344201372%_ + (##car _%part201498201511%_))) + (_%tl201503201531%_ (let () (declare (not safe)) - (##cdr _%part201339201352%_)))) - (let ((_%phi-ctx201375%_ _%hd201343201370%_)) - (if (pair? _%tl201344201372%_) - (let ((_%hd201345201377%_ + (##cdr _%part201498201511%_)))) + (let ((_%phi-ctx201534%_ _%hd201502201529%_)) + (if (pair? _%tl201503201531%_) + (let ((_%hd201504201536%_ (let () (declare (not safe)) - (##car _%tl201344201372%_))) - (_%tl201346201379%_ + (##car _%tl201503201531%_))) + (_%tl201505201538%_ (let () (declare (not safe)) - (##cdr _%tl201344201372%_)))) - (let ((_%phi201382%_ _%hd201345201377%_)) - (if (pair? _%tl201346201379%_) - (let ((_%hd201347201384%_ + (##cdr _%tl201503201531%_)))) + (let ((_%phi201541%_ _%hd201504201536%_)) + (if (pair? _%tl201505201538%_) + (let ((_%hd201506201543%_ (let () (declare (not safe)) - (##car _%tl201346201379%_))) - (_%tl201348201386%_ + (##car _%tl201505201538%_))) + (_%tl201507201545%_ (let () (declare (not safe)) - (##cdr _%tl201346201379%_)))) - (let ((_%n201389%_ - _%hd201347201384%_)) - (if (pair? _%tl201348201386%_) - (let ((_%hd201349201391%_ + (##cdr _%tl201505201538%_)))) + (let ((_%n201548%_ + _%hd201506201543%_)) + (if (pair? _%tl201507201545%_) + (let ((_%hd201508201550%_ (let () (declare (not safe)) - (##car _%tl201348201386%_))) - (_%tl201350201393%_ + (##car _%tl201507201545%_))) + (_%tl201509201552%_ (let () (declare (not safe)) - (##cdr _%tl201348201386%_)))) - (let ((_%code201396%_ - _%hd201349201391%_)) - (if (null? _%tl201350201393%_) - (_%K201342201367%_ - _%code201396%_ - _%n201389%_ - _%phi201382%_ - _%phi-ctx201375%_) - (_%E201341201356%_)))) - (_%E201341201356%_)))) - (_%E201341201356%_)))) - (_%E201341201356%_)))) - (_%E201341201356%_)))))) - (let ((_g202443_ (gxc#generate-meta-code _%ctx201330%_))) + (##cdr _%tl201507201545%_)))) + (let ((_%code201555%_ + _%hd201508201550%_)) + (if (null? _%tl201509201552%_) + (_%K201501201526%_ + _%code201555%_ + _%n201548%_ + _%phi201541%_ + _%phi-ctx201534%_) + (_%E201500201515%_)))) + (_%E201500201515%_)))) + (_%E201500201515%_)))) + (_%E201500201515%_)))) + (_%E201500201515%_)))))) + (let ((_g202602_ (gxc#generate-meta-code _%ctx201489%_))) (begin - (let ((_g202444_ + (let ((_g202603_ (let () (declare (not safe)) - (if (##values? _g202443_) - (##vector-length _g202443_) + (if (##values? _g202602_) + (##vector-length _g202602_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g202444_ 2))) - (error "Context expects 2 values" _g202444_))) - (let ((_%ssi-code201335%_ - (let () (declare (not safe)) (##vector-ref _g202443_ 0))) - (_%phi-code201336%_ - (let () (declare (not safe)) (##vector-ref _g202443_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g202603_ 2))) + (error "Context expects 2 values" _g202603_))) + (let ((_%ssi-code201494%_ + (let () (declare (not safe)) (##vector-ref _g202602_ 0))) + (_%phi-code201495%_ + (let () (declare (not safe)) (##vector-ref _g202602_ 1)))) (begin - (_%compile-ssi201332%_ _%ssi-code201335%_) - (for-each _%compile-phi201333%_ _%phi-code201336%_)))))))) + (_%compile-ssi201491%_ _%ssi-code201494%_) + (for-each _%compile-phi201492%_ _%phi-code201495%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx201312%_) - (let* ((_%path201314%_ - (gxc#compile-output-file _%ctx201312%_ '#f '".ssxi.ss")) - (_%code201316%_ - (let ((__tmp202445 + (lambda (_%ctx201471%_) + (let* ((_%path201473%_ + (gxc#compile-output-file _%ctx201471%_ '#f '".ssxi.ss")) + (_%code201475%_ + (let ((__tmp202604 (##structure-ref - _%ctx201312%_ + _%ctx201471%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp202445))) - (_%idstr201318%_ + (gxc#apply-generate-ssxi __tmp202604))) + (_%idstr201477%_ (symbol->string (##structure-ref - _%ctx201312%_ + _%ctx201471%_ '1 gx#expander-context::t '#f))) - (_%pkg201326%_ - (let ((_%$e201320%_ + (_%pkg201485%_ + (let ((_%$e201479%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201318%_ '#\/)))) - (if _%$e201320%_ - ((lambda (_%x201323%_) - (let ((__tmp202446 - (substring _%idstr201318%_ '0 _%x201323%_))) + (string-rindex__0 _%idstr201477%_ '#\/)))) + (if _%$e201479%_ + ((lambda (_%x201482%_) + (let ((__tmp202605 + (substring _%idstr201477%_ '0 _%x201482%_))) (declare (not safe)) - (##string->symbol __tmp202446))) - _%$e201320%_) + (##string->symbol __tmp202605))) + _%$e201479%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201314%_)) + (gxc#verbose '"compile " _%path201473%_)) (gxc#with-output-to-scheme-file - _%path201314%_ + _%path201473%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg201326%_ + (if _%pkg201485%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg201326%_)) + (displayln '"package: " _%pkg201485%_)) '#!void) (newline) - (pretty-print _%code201316%_)))))) + (pretty-print _%code201475%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx201305%_) - (let* ((_%state201307%_ - (let ((__obj202347 + (lambda (_%ctx201464%_) + (let* ((_%state201466%_ + (let ((__obj202506 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj202347 _%ctx201305%_)) - __obj202347)) - (_%ssi-code201309%_ - (let ((__tmp202447 + (gxc#meta-state:::init! __obj202506 _%ctx201464%_)) + __obj202506)) + (_%ssi-code201468%_ + (let ((__tmp202606 (##structure-ref - _%ctx201305%_ + _%ctx201464%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state201307%_ - __tmp202447)))) - (values _%ssi-code201309%_ + _%state201466%_ + __tmp202606)))) + (values _%ssi-code201468%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state201307%_)))))) + (gxc#meta-state-end! _%state201466%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx201298%_) - (let ((_%lifts201300%_ (box '()))) - (let ((__tmp202450 + (lambda (_%stx201457%_) + (let ((_%lifts201459%_ (box '()))) + (let ((__tmp202609 (lambda () - (let ((_%code201303%_ + (let ((_%code201462%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx201298%_)))) - (if (null? (unbox _%lifts201300%_)) - _%code201303%_ + (gxc#apply-generate-runtime-phi _%stx201457%_)))) + (if (null? (unbox _%lifts201459%_)) + _%code201462%_ (cons 'begin - (let ((__tmp202452 (cons _%code201303%_ '())) - (__tmp202451 - (reverse (unbox _%lifts201300%_)))) + (let ((__tmp202611 (cons _%code201462%_ '())) + (__tmp202610 + (reverse (unbox _%lifts201459%_)))) (declare (not safe)) - (__foldr1 cons __tmp202452 __tmp202451))))))) - (__tmp202449 + (__foldr1 cons __tmp202611 __tmp202610))))))) + (__tmp202608 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202448 + (__tmp202607 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202450 + __tmp202609 gxc#current-compile-lift - _%lifts201300%_ + _%lifts201459%_ gxc#current-compile-marks - __tmp202449 + __tmp202608 gxc#current-compile-identifiers - __tmp202448))))) + __tmp202607))))) (define gxc#lift-nested-modules - (lambda (_%ctx201294%_) - (let ((_%modules201296%_ (box '()))) - (let ((__tmp202453 - (##structure-ref _%ctx201294%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201453%_) + (let ((_%modules201455%_ (box '()))) + (let ((__tmp202612 + (##structure-ref _%ctx201453%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules201296%_ __tmp202453)) - (reverse (unbox _%modules201296%_))))) + (gxc#apply-lift-modules__% '#f _%modules201455%_ __tmp202612)) + (reverse (unbox _%modules201455%_))))) (define gxc#compile-scm-file__% - (lambda (_%path201274%_ _%code201275%_ _%phi?201276%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path201274%_)) + (lambda (_%path201433%_ _%code201434%_ _%phi?201435%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path201433%_)) (gxc#with-output-to-scheme-file - _%path201274%_ + _%path201433%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp202454 - (if _%phi?201276%_ + (let ((__tmp202613 + (if _%phi?201435%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp202454))))))) - (pretty-print _%code201275%_))) + (__foldr1 cons '() __tmp202613))))))) + (pretty-print _%code201434%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201280%_ + (let ((_%compile-it201439%_ (lambda () - (gxc#gsc-compile-file _%path201274%_ _%phi?201276%_)))) + (gxc#gsc-compile-file _%path201433%_ _%phi?201435%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp202455 - (cons 'compile-file (cons _%path201274%_ '())))) + (let ((__tmp202614 + (cons 'compile-file (cons _%path201433%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it201280%_ __tmp202455)) - (_%compile-it201280%_))) + (gxc#add-compile-job!__% _%compile-it201439%_ __tmp202614)) + (_%compile-it201439%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path201285%_ _%code201286%_) - (let ((_%phi?201288%_ '#f)) + (lambda (_%path201444%_ _%code201445%_) + (let ((_%phi?201447%_ '#f)) (gxc#compile-scm-file__% - _%path201285%_ - _%code201286%_ - _%phi?201288%_)))) + _%path201444%_ + _%code201445%_ + _%phi?201447%_)))) (define gxc#compile-scm-file - (lambda _g202457_ - (let ((_g202456_ (let () (declare (not safe)) (##length _g202457_)))) - (cond ((let () (declare (not safe)) (##fx= _g202456_ 2)) - (apply gxc#compile-scm-file__0 _g202457_)) - ((let () (declare (not safe)) (##fx= _g202456_ 3)) - (apply gxc#compile-scm-file__% _g202457_)) + (lambda _g202616_ + (let ((_g202615_ (let () (declare (not safe)) (##length _g202616_)))) + (cond ((let () (declare (not safe)) (##fx= _g202615_ 2)) + (apply gxc#compile-scm-file__0 _g202616_)) + ((let () (declare (not safe)) (##fx= _g202615_ 3)) + (apply gxc#compile-scm-file__% _g202616_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g202457_)))))) + _g202616_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?201175%_) - (let _%lp201177%_ ((_%rest201179%_ + (lambda (_%phi?201334%_) + (let _%lp201336%_ ((_%rest201338%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201180%_ '())) - (let* ((_%rest201181201201%_ _%rest201179%_) - (_%else201185201209%_ + (_%opts201339%_ '())) + (let* ((_%rest201340201360%_ _%rest201338%_) + (_%else201344201368%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts201180%_))) - (reverse _%opts201180%_))))) - (let ((_%K201195201252%_ - (lambda (_%rest201250%_) - (_%lp201177%_ _%rest201250%_ _%opts201180%_))) - (_%K201190201234%_ - (lambda (_%rest201232%_) - (_%lp201177%_ _%rest201232%_ _%opts201180%_))) - (_%K201187201216%_ - (lambda (_%rest201213%_ _%opt201214%_) - (_%lp201177%_ - _%rest201213%_ - (cons _%opt201214%_ _%opts201180%_))))) - (if (pair? _%rest201181201201%_) - (let ((_%tl201197201257%_ + (cons '"-track-scheme" (reverse _%opts201339%_))) + (reverse _%opts201339%_))))) + (let ((_%K201354201411%_ + (lambda (_%rest201409%_) + (_%lp201336%_ _%rest201409%_ _%opts201339%_))) + (_%K201349201393%_ + (lambda (_%rest201391%_) + (_%lp201336%_ _%rest201391%_ _%opts201339%_))) + (_%K201346201375%_ + (lambda (_%rest201372%_ _%opt201373%_) + (_%lp201336%_ + _%rest201372%_ + (cons _%opt201373%_ _%opts201339%_))))) + (if (pair? _%rest201340201360%_) + (let ((_%tl201356201416%_ (let () (declare (not safe)) - (##cdr _%rest201181201201%_))) - (_%hd201196201255%_ + (##cdr _%rest201340201360%_))) + (_%hd201355201414%_ (let () (declare (not safe)) - (##car _%rest201181201201%_)))) - (if (equal? _%hd201196201255%_ '"-cc-options") - (if (pair? _%tl201197201257%_) - (let* ((_%tl201199201260%_ + (##car _%rest201340201360%_)))) + (if (equal? _%hd201355201414%_ '"-cc-options") + (if (pair? _%tl201356201416%_) + (let* ((_%tl201358201419%_ (let () (declare (not safe)) - (##cdr _%tl201197201257%_))) - (_%rest201263%_ _%tl201199201260%_)) - (_%K201195201252%_ _%rest201263%_)) - (let ((_%opt201224%_ _%hd201196201255%_) - (_%rest201226%_ _%tl201197201257%_)) - (_%K201187201216%_ - _%rest201226%_ - _%opt201224%_))) - (if (equal? _%hd201196201255%_ '"-ld-options") - (if (pair? _%tl201197201257%_) - (let* ((_%tl201194201242%_ + (##cdr _%tl201356201416%_))) + (_%rest201422%_ _%tl201358201419%_)) + (_%K201354201411%_ _%rest201422%_)) + (let ((_%opt201383%_ _%hd201355201414%_) + (_%rest201385%_ _%tl201356201416%_)) + (_%K201346201375%_ + _%rest201385%_ + _%opt201383%_))) + (if (equal? _%hd201355201414%_ '"-ld-options") + (if (pair? _%tl201356201416%_) + (let* ((_%tl201353201401%_ (let () (declare (not safe)) - (##cdr _%tl201197201257%_))) - (_%rest201245%_ _%tl201194201242%_)) - (_%K201190201234%_ _%rest201245%_)) - (let ((_%opt201224%_ _%hd201196201255%_) - (_%rest201226%_ _%tl201197201257%_)) - (_%K201187201216%_ - _%rest201226%_ - _%opt201224%_))) - (let ((_%opt201224%_ _%hd201196201255%_) - (_%rest201226%_ _%tl201197201257%_)) - (_%K201187201216%_ - _%rest201226%_ - _%opt201224%_))))) - (_%else201185201209%_))))))) + (##cdr _%tl201356201416%_))) + (_%rest201404%_ _%tl201353201401%_)) + (_%K201349201393%_ _%rest201404%_)) + (let ((_%opt201383%_ _%hd201355201414%_) + (_%rest201385%_ _%tl201356201416%_)) + (_%K201346201375%_ + _%rest201385%_ + _%opt201383%_))) + (let ((_%opt201383%_ _%hd201355201414%_) + (_%rest201385%_ _%tl201356201416%_)) + (_%K201346201375%_ + _%rest201385%_ + _%opt201383%_))))) + (_%else201344201368%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?201269%_ '#f)) (gxc#gsc-link-options__% _%phi?201269%_)))) + (let ((_%phi?201428%_ '#f)) (gxc#gsc-link-options__% _%phi?201428%_)))) (define gxc#gsc-link-options - (lambda _g202459_ - (let ((_g202458_ (let () (declare (not safe)) (##length _g202459_)))) - (cond ((let () (declare (not safe)) (##fx= _g202458_ 0)) - (apply gxc#gsc-link-options__0 _g202459_)) - ((let () (declare (not safe)) (##fx= _g202458_ 1)) - (apply gxc#gsc-link-options__% _g202459_)) + (lambda _g202618_ + (let ((_g202617_ (let () (declare (not safe)) (##length _g202618_)))) + (cond ((let () (declare (not safe)) (##fx= _g202617_ 0)) + (apply gxc#gsc-link-options__0 _g202618_)) + ((let () (declare (not safe)) (##fx= _g202617_ 1)) + (apply gxc#gsc-link-options__% _g202618_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g202459_)))))) + _g202618_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords201024%_ _%static?201020201025%_ _%phi?201027%_) - (let ((_%static?201029%_ - (if (eq? _%static?201020201025%_ absent-value) + (lambda (_%@@keywords201183%_ _%static?201179201184%_ _%phi?201186%_) + (let ((_%static?201188%_ + (if (eq? _%static?201179201184%_ absent-value) '#f - _%static?201020201025%_))) - (if _%phi?201027%_ + _%static?201179201184%_))) + (if _%phi?201186%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp201031%_ ((_%rest201033%_ + (let _%lp201190%_ ((_%rest201192%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201034%_ '())) - (let* ((_%rest201035201061%_ _%rest201033%_) - (_%else201040201069%_ + (_%opts201193%_ '())) + (let* ((_%rest201194201220%_ _%rest201192%_) + (_%else201199201228%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts201034%_))) - (reverse! _%opts201034%_))))) - (let ((_%K201055201132%_ - (lambda (_%rest201129%_ _%opt201130%_) - (if _%static?201029%_ - (_%lp201031%_ - _%rest201129%_ - (cons _%opt201130%_ - (cons '"-cc-options" _%opts201034%_))) - (_%lp201031%_ _%rest201129%_ _%opts201034%_)))) - (_%K201050201109%_ - (lambda (_%rest201106%_ _%opt201107%_) - (_%lp201031%_ - _%rest201106%_ - (cons _%opt201107%_ - (cons '"-cc-options" _%opts201034%_))))) - (_%K201045201089%_ - (lambda (_%rest201087%_) - (_%lp201031%_ _%rest201087%_ _%opts201034%_))) - (_%K201042201075%_ - (lambda (_%rest201073%_) - (_%lp201031%_ _%rest201073%_ _%opts201034%_)))) - (if (pair? _%rest201035201061%_) - (let ((_%tl201057201137%_ + (cons '"-g" (reverse! _%opts201193%_))) + (reverse! _%opts201193%_))))) + (let ((_%K201214201291%_ + (lambda (_%rest201288%_ _%opt201289%_) + (if _%static?201188%_ + (_%lp201190%_ + _%rest201288%_ + (cons _%opt201289%_ + (cons '"-cc-options" _%opts201193%_))) + (_%lp201190%_ _%rest201288%_ _%opts201193%_)))) + (_%K201209201268%_ + (lambda (_%rest201265%_ _%opt201266%_) + (_%lp201190%_ + _%rest201265%_ + (cons _%opt201266%_ + (cons '"-cc-options" _%opts201193%_))))) + (_%K201204201248%_ + (lambda (_%rest201246%_) + (_%lp201190%_ _%rest201246%_ _%opts201193%_))) + (_%K201201201234%_ + (lambda (_%rest201232%_) + (_%lp201190%_ _%rest201232%_ _%opts201193%_)))) + (if (pair? _%rest201194201220%_) + (let ((_%tl201216201296%_ (let () (declare (not safe)) - (##cdr _%rest201035201061%_))) - (_%hd201056201135%_ + (##cdr _%rest201194201220%_))) + (_%hd201215201294%_ (let () (declare (not safe)) - (##car _%rest201035201061%_)))) - (if (equal? _%hd201056201135%_ '"-cc-options") - (if (pair? _%tl201057201137%_) - (let ((_%tl201059201142%_ + (##car _%rest201194201220%_)))) + (if (equal? _%hd201215201294%_ '"-cc-options") + (if (pair? _%tl201216201296%_) + (let ((_%tl201218201301%_ (let () (declare (not safe)) - (##cdr _%tl201057201137%_))) - (_%hd201058201140%_ + (##cdr _%tl201216201296%_))) + (_%hd201217201299%_ (let () (declare (not safe)) - (##car _%tl201057201137%_)))) - (if (equal? _%hd201058201140%_ '"-Bstatic") - (let ((_%opt201145%_ - _%hd201058201140%_) - (_%rest201147%_ - _%tl201059201142%_)) - (_%K201055201132%_ - _%rest201147%_ - _%opt201145%_)) - (let ((_%opt201122%_ - _%hd201058201140%_) - (_%rest201124%_ - _%tl201059201142%_)) - (_%K201050201109%_ - _%rest201124%_ - _%opt201122%_)))) - (let ((_%rest201081%_ _%tl201057201137%_)) - (_%K201042201075%_ _%rest201081%_))) - (if (equal? _%hd201056201135%_ '"-ld-options") - (if (pair? _%tl201057201137%_) - (let* ((_%tl201049201097%_ + (##car _%tl201216201296%_)))) + (if (equal? _%hd201217201299%_ '"-Bstatic") + (let ((_%opt201304%_ + _%hd201217201299%_) + (_%rest201306%_ + _%tl201218201301%_)) + (_%K201214201291%_ + _%rest201306%_ + _%opt201304%_)) + (let ((_%opt201281%_ + _%hd201217201299%_) + (_%rest201283%_ + _%tl201218201301%_)) + (_%K201209201268%_ + _%rest201283%_ + _%opt201281%_)))) + (let ((_%rest201240%_ _%tl201216201296%_)) + (_%K201201201234%_ _%rest201240%_))) + (if (equal? _%hd201215201294%_ '"-ld-options") + (if (pair? _%tl201216201296%_) + (let* ((_%tl201208201256%_ (let () (declare (not safe)) - (##cdr _%tl201057201137%_))) - (_%rest201100%_ - _%tl201049201097%_)) - (_%K201045201089%_ _%rest201100%_)) - (let ((_%rest201081%_ - _%tl201057201137%_)) - (_%K201042201075%_ _%rest201081%_))) - (let ((_%rest201081%_ _%tl201057201137%_)) - (_%K201042201075%_ _%rest201081%_))))) - (_%else201040201069%_))))))))) + (##cdr _%tl201216201296%_))) + (_%rest201259%_ + _%tl201208201256%_)) + (_%K201204201248%_ _%rest201259%_)) + (let ((_%rest201240%_ + _%tl201216201296%_)) + (_%K201201201234%_ _%rest201240%_))) + (let ((_%rest201240%_ _%tl201216201296%_)) + (_%K201201201234%_ _%rest201240%_))))) + (_%else201199201228%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords201152%_ _%static?201020201153%_) - (let ((_%phi?201155%_ '#f)) + (lambda (_%@@keywords201311%_ _%static?201179201312%_) + (let ((_%phi?201314%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords201152%_ - _%static?201020201153%_ - _%phi?201155%_)))) + _%@@keywords201311%_ + _%static?201179201312%_ + _%phi?201314%_)))) (define gxc#gsc-cc-options__% - (lambda _g202461_ - (let ((_g202460_ (let () (declare (not safe)) (##length _g202461_)))) - (cond ((let () (declare (not safe)) (##fx= _g202460_ 2)) - (apply gxc#gsc-cc-options__%__0 _g202461_)) - ((let () (declare (not safe)) (##fx= _g202460_ 3)) - (apply gxc#gsc-cc-options__%__% _g202461_)) + (lambda _g202620_ + (let ((_g202619_ (let () (declare (not safe)) (##length _g202620_)))) + (cond ((let () (declare (not safe)) (##fx= _g202619_ 2)) + (apply gxc#gsc-cc-options__%__0 _g202620_)) + ((let () (declare (not safe)) (##fx= _g202619_ 3)) + (apply gxc#gsc-cc-options__%__% _g202620_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g202461_)))))) + _g202620_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords201164%_ . _%args201165%_) + (lambda (_%@@keywords201323%_ . _%args201324%_) (apply gxc#gsc-cc-options__% - _%@@keywords201164%_ + _%@@keywords201323%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201164%_ + _%@@keywords201323%_ 'static: absent-value)) - _%args201165%_))) + _%args201324%_))) (define gxc#gsc-cc-options - (lambda _%args201021201171%_ + (lambda _%args201180201330%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args201021201171%_))) + _%args201180201330%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords200869%_ _%static?200865200870%_ _%phi?200872%_) - (let ((_%static?200874%_ - (if (eq? _%static?200865200870%_ absent-value) + (lambda (_%@@keywords201028%_ _%static?201024201029%_ _%phi?201031%_) + (let ((_%static?201033%_ + (if (eq? _%static?201024201029%_ absent-value) '#f - _%static?200865200870%_))) - (if _%phi?200872%_ + _%static?201024201029%_))) + (if _%phi?201031%_ '() - (let _%lp200876%_ ((_%rest200878%_ + (let _%lp201035%_ ((_%rest201037%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200879%_ '())) - (let* ((_%rest200880200906%_ _%rest200878%_) - (_%else200885200914%_ - (lambda () (reverse! _%opts200879%_)))) - (let ((_%K200900200977%_ - (lambda (_%rest200974%_ _%opt200975%_) - (if _%static?200874%_ - (_%lp200876%_ - _%rest200974%_ - (cons _%opt200975%_ - (cons '"-ld-options" _%opts200879%_))) - (_%lp200876%_ _%rest200974%_ _%opts200879%_)))) - (_%K200895200954%_ - (lambda (_%rest200951%_ _%opt200952%_) - (_%lp200876%_ - _%rest200951%_ - (cons _%opt200952%_ - (cons '"-ld-options" _%opts200879%_))))) - (_%K200890200934%_ - (lambda (_%rest200932%_) - (_%lp200876%_ _%rest200932%_ _%opts200879%_))) - (_%K200887200920%_ - (lambda (_%rest200918%_) - (_%lp200876%_ _%rest200918%_ _%opts200879%_)))) - (if (pair? _%rest200880200906%_) - (let ((_%tl200902200982%_ + (_%opts201038%_ '())) + (let* ((_%rest201039201065%_ _%rest201037%_) + (_%else201044201073%_ + (lambda () (reverse! _%opts201038%_)))) + (let ((_%K201059201136%_ + (lambda (_%rest201133%_ _%opt201134%_) + (if _%static?201033%_ + (_%lp201035%_ + _%rest201133%_ + (cons _%opt201134%_ + (cons '"-ld-options" _%opts201038%_))) + (_%lp201035%_ _%rest201133%_ _%opts201038%_)))) + (_%K201054201113%_ + (lambda (_%rest201110%_ _%opt201111%_) + (_%lp201035%_ + _%rest201110%_ + (cons _%opt201111%_ + (cons '"-ld-options" _%opts201038%_))))) + (_%K201049201093%_ + (lambda (_%rest201091%_) + (_%lp201035%_ _%rest201091%_ _%opts201038%_))) + (_%K201046201079%_ + (lambda (_%rest201077%_) + (_%lp201035%_ _%rest201077%_ _%opts201038%_)))) + (if (pair? _%rest201039201065%_) + (let ((_%tl201061201141%_ (let () (declare (not safe)) - (##cdr _%rest200880200906%_))) - (_%hd200901200980%_ + (##cdr _%rest201039201065%_))) + (_%hd201060201139%_ (let () (declare (not safe)) - (##car _%rest200880200906%_)))) - (if (equal? _%hd200901200980%_ '"-ld-options") - (if (pair? _%tl200902200982%_) - (let ((_%tl200904200987%_ + (##car _%rest201039201065%_)))) + (if (equal? _%hd201060201139%_ '"-ld-options") + (if (pair? _%tl201061201141%_) + (let ((_%tl201063201146%_ (let () (declare (not safe)) - (##cdr _%tl200902200982%_))) - (_%hd200903200985%_ + (##cdr _%tl201061201141%_))) + (_%hd201062201144%_ (let () (declare (not safe)) - (##car _%tl200902200982%_)))) - (if (equal? _%hd200903200985%_ '"-static") - (let ((_%opt200990%_ - _%hd200903200985%_) - (_%rest200992%_ - _%tl200904200987%_)) - (_%K200900200977%_ - _%rest200992%_ - _%opt200990%_)) - (let ((_%opt200967%_ - _%hd200903200985%_) - (_%rest200969%_ - _%tl200904200987%_)) - (_%K200895200954%_ - _%rest200969%_ - _%opt200967%_)))) - (let ((_%rest200926%_ _%tl200902200982%_)) - (_%K200887200920%_ _%rest200926%_))) - (if (equal? _%hd200901200980%_ '"-cc-options") - (if (pair? _%tl200902200982%_) - (let* ((_%tl200894200942%_ + (##car _%tl201061201141%_)))) + (if (equal? _%hd201062201144%_ '"-static") + (let ((_%opt201149%_ + _%hd201062201144%_) + (_%rest201151%_ + _%tl201063201146%_)) + (_%K201059201136%_ + _%rest201151%_ + _%opt201149%_)) + (let ((_%opt201126%_ + _%hd201062201144%_) + (_%rest201128%_ + _%tl201063201146%_)) + (_%K201054201113%_ + _%rest201128%_ + _%opt201126%_)))) + (let ((_%rest201085%_ _%tl201061201141%_)) + (_%K201046201079%_ _%rest201085%_))) + (if (equal? _%hd201060201139%_ '"-cc-options") + (if (pair? _%tl201061201141%_) + (let* ((_%tl201053201101%_ (let () (declare (not safe)) - (##cdr _%tl200902200982%_))) - (_%rest200945%_ - _%tl200894200942%_)) - (_%K200890200934%_ _%rest200945%_)) - (let ((_%rest200926%_ - _%tl200902200982%_)) - (_%K200887200920%_ _%rest200926%_))) - (let ((_%rest200926%_ _%tl200902200982%_)) - (_%K200887200920%_ _%rest200926%_))))) - (_%else200885200914%_))))))))) + (##cdr _%tl201061201141%_))) + (_%rest201104%_ + _%tl201053201101%_)) + (_%K201049201093%_ _%rest201104%_)) + (let ((_%rest201085%_ + _%tl201061201141%_)) + (_%K201046201079%_ _%rest201085%_))) + (let ((_%rest201085%_ _%tl201061201141%_)) + (_%K201046201079%_ _%rest201085%_))))) + (_%else201044201073%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords200997%_ _%static?200865200998%_) - (let ((_%phi?201000%_ '#f)) + (lambda (_%@@keywords201156%_ _%static?201024201157%_) + (let ((_%phi?201159%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords200997%_ - _%static?200865200998%_ - _%phi?201000%_)))) + _%@@keywords201156%_ + _%static?201024201157%_ + _%phi?201159%_)))) (define gxc#gsc-ld-options__% - (lambda _g202463_ - (let ((_g202462_ (let () (declare (not safe)) (##length _g202463_)))) - (cond ((let () (declare (not safe)) (##fx= _g202462_ 2)) - (apply gxc#gsc-ld-options__%__0 _g202463_)) - ((let () (declare (not safe)) (##fx= _g202462_ 3)) - (apply gxc#gsc-ld-options__%__% _g202463_)) + (lambda _g202622_ + (let ((_g202621_ (let () (declare (not safe)) (##length _g202622_)))) + (cond ((let () (declare (not safe)) (##fx= _g202621_ 2)) + (apply gxc#gsc-ld-options__%__0 _g202622_)) + ((let () (declare (not safe)) (##fx= _g202621_ 3)) + (apply gxc#gsc-ld-options__%__% _g202622_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g202463_)))))) + _g202622_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords201009%_ . _%args201010%_) + (lambda (_%@@keywords201168%_ . _%args201169%_) (apply gxc#gsc-ld-options__% - _%@@keywords201009%_ + _%@@keywords201168%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201009%_ + _%@@keywords201168%_ 'static: absent-value)) - _%args201010%_))) + _%args201169%_))) (define gxc#gsc-ld-options - (lambda _%args200866201016%_ + (lambda _%args201025201175%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args200866201016%_))) + _%args201025201175%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir200860%_) - (let ((_%user-staticdir200862%_ + (lambda (_%staticdir201019%_) + (let ((_%user-staticdir201021%_ (path-expand (path-expand '"lib/static" @@ -2768,337 +2768,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir200860%_ + _%staticdir201019%_ '" -I " - _%user-staticdir200862%_) + _%user-staticdir201021%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp200772%_ ((_%rest200774%_ + (let _%lp200931%_ ((_%rest200933%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200775%_ '())) - (let* ((_%rest200776200796%_ _%rest200774%_) - (_%else200780200804%_ (lambda () _%opts200775%_))) - (let ((_%K200790200847%_ - (lambda (_%rest200845%_) - (_%lp200772%_ _%rest200845%_ _%opts200775%_))) - (_%K200785200825%_ - (lambda (_%rest200822%_ _%opt200823%_) - (_%lp200772%_ - _%rest200822%_ - (let ((__tmp202464 - (let ((__tmp202465 + (_%opts200934%_ '())) + (let* ((_%rest200935200955%_ _%rest200933%_) + (_%else200939200963%_ (lambda () _%opts200934%_))) + (let ((_%K200949201006%_ + (lambda (_%rest201004%_) + (_%lp200931%_ _%rest201004%_ _%opts200934%_))) + (_%K200944200984%_ + (lambda (_%rest200981%_ _%opt200982%_) + (_%lp200931%_ + _%rest200981%_ + (let ((__tmp202623 + (let ((__tmp202624 (let () (declare (not safe)) - (string-split _%opt200823%_ '#\space)))) + (string-split _%opt200982%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp202465)))) + (##filter gxc#not-string-empty? __tmp202624)))) (declare (not safe)) - (##append _%opts200775%_ __tmp202464))))) - (_%K200782200810%_ - (lambda (_%rest200808%_) - (_%lp200772%_ _%rest200808%_ _%opts200775%_)))) - (if (pair? _%rest200776200796%_) - (let ((_%tl200792200852%_ + (##append _%opts200934%_ __tmp202623))))) + (_%K200941200969%_ + (lambda (_%rest200967%_) + (_%lp200931%_ _%rest200967%_ _%opts200934%_)))) + (if (pair? _%rest200935200955%_) + (let ((_%tl200951201011%_ (let () (declare (not safe)) - (##cdr _%rest200776200796%_))) - (_%hd200791200850%_ + (##cdr _%rest200935200955%_))) + (_%hd200950201009%_ (let () (declare (not safe)) - (##car _%rest200776200796%_)))) - (if (equal? _%hd200791200850%_ '"-cc-options") - (if (pair? _%tl200792200852%_) - (let* ((_%tl200794200855%_ + (##car _%rest200935200955%_)))) + (if (equal? _%hd200950201009%_ '"-cc-options") + (if (pair? _%tl200951201011%_) + (let* ((_%tl200953201014%_ (let () (declare (not safe)) - (##cdr _%tl200792200852%_))) - (_%rest200858%_ _%tl200794200855%_)) - (_%K200790200847%_ _%rest200858%_)) - (let ((_%rest200816%_ _%tl200792200852%_)) - (_%K200782200810%_ _%rest200816%_))) - (if (equal? _%hd200791200850%_ '"-ld-options") - (if (pair? _%tl200792200852%_) - (let ((_%tl200789200835%_ + (##cdr _%tl200951201011%_))) + (_%rest201017%_ _%tl200953201014%_)) + (_%K200949201006%_ _%rest201017%_)) + (let ((_%rest200975%_ _%tl200951201011%_)) + (_%K200941200969%_ _%rest200975%_))) + (if (equal? _%hd200950201009%_ '"-ld-options") + (if (pair? _%tl200951201011%_) + (let ((_%tl200948200994%_ (let () (declare (not safe)) - (##cdr _%tl200792200852%_))) - (_%hd200788200833%_ + (##cdr _%tl200951201011%_))) + (_%hd200947200992%_ (let () (declare (not safe)) - (##car _%tl200792200852%_)))) - (let ((_%opt200838%_ _%hd200788200833%_) - (_%rest200840%_ _%tl200789200835%_)) - (_%K200785200825%_ - _%rest200840%_ - _%opt200838%_))) - (let ((_%rest200816%_ _%tl200792200852%_)) - (_%K200782200810%_ _%rest200816%_))) - (let ((_%rest200816%_ _%tl200792200852%_)) - (_%K200782200810%_ _%rest200816%_))))) - (_%else200780200804%_))))))) + (##car _%tl200951201011%_)))) + (let ((_%opt200997%_ _%hd200947200992%_) + (_%rest200999%_ _%tl200948200994%_)) + (_%K200944200984%_ + _%rest200999%_ + _%opt200997%_))) + (let ((_%rest200975%_ _%tl200951201011%_)) + (_%K200941200969%_ _%rest200975%_))) + (let ((_%rest200975%_ _%tl200951201011%_)) + (_%K200941200969%_ _%rest200975%_))))) + (_%else200939200963%_))))))) (define gxc#not-string-empty? - (lambda (_%str200769%_) - (not (let () (declare (not safe)) (string-empty? _%str200769%_))))) + (lambda (_%str200928%_) + (not (let () (declare (not safe)) (string-empty? _%str200928%_))))) (define gxc#gsc-compile-file - (lambda (_%path200762%_ _%phi?200763%_) - (let ((_%gsc-link-opts200765%_ - (gxc#gsc-link-options__% _%phi?200763%_)) - (_%gsc-cc-opts200766%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?200763%_)) - (_%gsc-ld-opts200767%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?200763%_))) + (lambda (_%path200921%_ _%phi?200922%_) + (let ((_%gsc-link-opts200924%_ + (gxc#gsc-link-options__% _%phi?200922%_)) + (_%gsc-cc-opts200925%_ + (gxc#gsc-cc-options__%__% '#f absent-value _%phi?200922%_)) + (_%gsc-ld-opts200926%_ + (gxc#gsc-ld-options__%__% '#f absent-value _%phi?200922%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp202466 - (let ((__tmp202467 - (let ((__tmp202468 (cons _%path200762%_ '()))) + (let ((__tmp202625 + (let ((__tmp202626 + (let ((__tmp202627 (cons _%path200921%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202468 - _%gsc-link-opts200765%_)))) + __tmp202627 + _%gsc-link-opts200924%_)))) (declare (not safe)) - (__foldr1 cons __tmp202467 _%gsc-ld-opts200767%_)))) + (__foldr1 cons __tmp202626 _%gsc-ld-opts200926%_)))) (declare (not safe)) - (__foldr1 cons __tmp202466 _%gsc-cc-opts200766%_)))))) + (__foldr1 cons __tmp202625 _%gsc-cc-opts200925%_)))))) (define gxc#compile-output-file - (lambda (_%ctx200728%_ _%n200729%_ _%ext200730%_) - (letrec ((_%module-relative-path200732%_ - (lambda (_%ctx200760%_) + (lambda (_%ctx200887%_ _%n200888%_ _%ext200889%_) + (letrec ((_%module-relative-path200891%_ + (lambda (_%ctx200919%_) (path-strip-directory - (let ((__tmp202469 + (let ((__tmp202628 (##structure-ref - _%ctx200760%_ + _%ctx200919%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202469))))) - (_%module-source-directory200733%_ - (lambda (_%ctx200756%_) + (gxc#module-id->path-string __tmp202628))))) + (_%module-source-directory200892%_ + (lambda (_%ctx200915%_) (path-directory - (let ((_%mpath200758%_ + (let ((_%mpath200917%_ (##structure-ref - _%ctx200756%_ + _%ctx200915%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath200758%_) - _%mpath200758%_ - (last _%mpath200758%_)))))) - (_%section-string200734%_ - (lambda (_%n200750%_) - (if (number? _%n200750%_) + (if (string? _%mpath200917%_) + _%mpath200917%_ + (last _%mpath200917%_)))))) + (_%section-string200893%_ + (lambda (_%n200909%_) + (if (number? _%n200909%_) (let () (declare (not safe)) - (##number->string _%n200750%_)) - (if (symbol? _%n200750%_) + (##number->string _%n200909%_)) + (if (symbol? _%n200909%_) (let () (declare (not safe)) - (##symbol->string _%n200750%_)) - (if (string? _%n200750%_) - _%n200750%_ + (##symbol->string _%n200909%_)) + (if (string? _%n200909%_) + _%n200909%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n200750%_))))))) - (_%file-name200735%_ - (lambda (_%path200748%_) - (if _%n200729%_ + _%n200909%_))))))) + (_%file-name200894%_ + (lambda (_%path200907%_) + (if _%n200888%_ (string-append - _%path200748%_ + _%path200907%_ '"~" - (_%section-string200734%_ _%n200729%_) - _%ext200730%_) - (string-append _%path200748%_ _%ext200730%_)))) - (_%file-path200736%_ + (_%section-string200893%_ _%n200888%_) + _%ext200889%_) + (string-append _%path200907%_ _%ext200889%_)))) + (_%file-path200895%_ (lambda () - (let ((_%$e200742%_ + (let ((_%$e200901%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200742%_ - ((lambda (_%outdir200745%_) + (if _%$e200901%_ + ((lambda (_%outdir200904%_) (path-expand - (_%file-name200735%_ - (let ((__tmp202470 + (_%file-name200894%_ + (let ((__tmp202629 (##structure-ref - _%ctx200728%_ + _%ctx200887%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202470))) - _%outdir200745%_)) - _%$e200742%_) + (gxc#module-id->path-string __tmp202629))) + _%outdir200904%_)) + _%$e200901%_) (path-expand - (_%file-name200735%_ - (_%module-relative-path200732%_ _%ctx200728%_)) - (_%module-source-directory200733%_ - _%ctx200728%_))))))) - (let ((_%path200738%_ (_%file-path200736%_))) - (let ((__tmp202471 + (_%file-name200894%_ + (_%module-relative-path200891%_ _%ctx200887%_)) + (_%module-source-directory200892%_ + _%ctx200887%_))))))) + (let ((_%path200897%_ (_%file-path200895%_))) + (let ((__tmp202630 (lambda () - (let ((__tmp202472 (path-directory _%path200738%_))) + (let ((__tmp202631 (path-directory _%path200897%_))) (declare (not safe)) - (create-directory*__0 __tmp202472))))) + (create-directory*__0 __tmp202631))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202471)) - _%path200738%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202630)) + _%path200897%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx200709%_) - (letrec ((_%file-name200711%_ - (lambda (_%id200726%_) - (let ((__tmp202473 (gxc#static-module-name _%id200726%_))) + (lambda (_%ctx200868%_) + (letrec ((_%file-name200870%_ + (lambda (_%id200885%_) + (let ((__tmp202632 (gxc#static-module-name _%id200885%_))) (declare (not safe)) - (##string-append __tmp202473 '".scm")))) - (_%file-path200712%_ + (##string-append __tmp202632 '".scm")))) + (_%file-path200871%_ (lambda () - (let* ((_%file200718%_ - (_%file-name200711%_ + (let* ((_%file200877%_ + (_%file-name200870%_ (##structure-ref - _%ctx200709%_ + _%ctx200868%_ '1 gx#expander-context::t '#f))) - (_%$e200720%_ + (_%$e200879%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200720%_ - ((lambda (_%outdir200723%_) + (if _%$e200879%_ + ((lambda (_%outdir200882%_) (path-expand - _%file200718%_ - (path-expand '"static" _%outdir200723%_))) - _%$e200720%_) - (path-expand _%file200718%_ '"static")))))) - (let ((_%path200714%_ (_%file-path200712%_))) - (let ((__tmp202474 + _%file200877%_ + (path-expand '"static" _%outdir200882%_))) + _%$e200879%_) + (path-expand _%file200877%_ '"static")))))) + (let ((_%path200873%_ (_%file-path200871%_))) + (let ((__tmp202633 (lambda () - (let ((__tmp202475 (path-directory _%path200714%_))) + (let ((__tmp202634 (path-directory _%path200873%_))) (declare (not safe)) - (create-directory*__0 __tmp202475))))) + (create-directory*__0 __tmp202634))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202474)) - _%path200714%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202633)) + _%path200873%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx200702%_ _%opts200703%_) - (let ((_%$e200705%_ + (lambda (_%ctx200861%_ _%opts200862%_) + (let ((_%$e200864%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts200703%_)))) - (if _%$e200705%_ - _%$e200705%_ + (pgetq__0 'output-file: _%opts200862%_)))) + (if _%$e200864%_ + _%$e200864%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx200702%_ + _%ctx200861%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr200692%_) - (if (string? _%idstr200692%_) - (let* ((_%str200695%_ + (lambda (_%idstr200851%_) + (if (string? _%idstr200851%_) + (let* ((_%str200854%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr200692%_))) - (_%strs200697%_ + (gxc#module-id->path-string _%idstr200851%_))) + (_%strs200856%_ (let () (declare (not safe)) - (string-split _%str200695%_ '#\/)))) + (string-split _%str200854%_ '#\/)))) (declare (not safe)) - (string-join _%strs200697%_ '"__")) - (if (symbol? _%idstr200692%_) + (string-join _%strs200856%_ '"__")) + (if (symbol? _%idstr200851%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr200692%_))) + (##symbol->string _%idstr200851%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr200692%_)))))) + (error '"Bad module id" _%idstr200851%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp202476 - (let ((__tmp202477 (configure-command-string))) + (let ((__tmp202635 + (let ((__tmp202636 (configure-command-string))) (declare (not safe)) - (__string-split __tmp202477 '#\')))) + (__string-split __tmp202636 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp202476)))) + (##member '"--enable-shared" __tmp202635)))) (define gxc#invoke__% - (lambda (_%@@keywords200656%_ - _%stdout-redirection200652200657%_ - _%stderr-redirection200653200659%_ - _%program200661%_ - _%args200662%_) - (let* ((_%stdout-redirection200664%_ - (if (eq? _%stdout-redirection200652200657%_ absent-value) + (lambda (_%@@keywords200815%_ + _%stdout-redirection200811200816%_ + _%stderr-redirection200812200818%_ + _%program200820%_ + _%args200821%_) + (let* ((_%stdout-redirection200823%_ + (if (eq? _%stdout-redirection200811200816%_ absent-value) '#f - _%stdout-redirection200652200657%_)) - (_%stderr-redirection200666%_ - (if (eq? _%stderr-redirection200653200659%_ absent-value) + _%stdout-redirection200811200816%_)) + (_%stderr-redirection200825%_ + (if (eq? _%stderr-redirection200812200818%_ absent-value) '#f - _%stderr-redirection200653200659%_))) - (let ((__tmp202478 (cons _%program200661%_ _%args200662%_))) + _%stderr-redirection200812200818%_))) + (let ((__tmp202637 (cons _%program200820%_ _%args200821%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp202478)) - (let* ((_%proc200668%_ + (gxc#verbose '"invoke " __tmp202637)) + (let* ((_%proc200827%_ (open-process (cons 'path: - (cons _%program200661%_ + (cons _%program200820%_ (cons 'arguments: - (cons _%args200662%_ + (cons _%args200821%_ (cons 'stdout-redirection: - (cons _%stdout-redirection200664%_ + (cons _%stdout-redirection200823%_ (cons 'stderr-redirection: - (cons _%stderr-redirection200666%_ + (cons _%stderr-redirection200825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output200673%_ - (if (or _%stdout-redirection200664%_ - _%stderr-redirection200666%_) - (read-line _%proc200668%_ '#f) + (_%output200832%_ + (if (or _%stdout-redirection200823%_ + _%stderr-redirection200825%_) + (read-line _%proc200827%_ '#f) '#f)) - (_%status200676%_ (process-status _%proc200668%_))) - (let () (declare (not safe)) (##close-port _%proc200668%_)) - (if (zero? _%status200676%_) + (_%status200835%_ (process-status _%proc200827%_))) + (let () (declare (not safe)) (##close-port _%proc200827%_)) + (if (zero? _%status200835%_) '#!void (begin - (display _%output200673%_) - (let ((__tmp202479 (cons _%program200661%_ _%args200662%_))) + (display _%output200832%_) + (let ((__tmp202638 (cons _%program200820%_ _%args200821%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp202479 - _%status200676%_)))))))) + __tmp202638 + _%status200835%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords200681%_ . _%args200682%_) + (lambda (_%@@keywords200840%_ . _%args200841%_) (apply gxc#invoke__% - _%@@keywords200681%_ + _%@@keywords200840%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200681%_ + _%@@keywords200840%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200681%_ + _%@@keywords200840%_ 'stderr-redirection: absent-value)) - _%args200682%_))) + _%args200841%_))) (define gxc#invoke - (lambda _%args200654200688%_ + (lambda _%args200813200847%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args200654200688%_))))) + _%args200813200847%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index b138d8f5f..724b1a9de 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 (_%$stx200587%_) - (let* ((_%g200591200605%_ - (lambda (_%g200592200601%_) + (lambda (_%$stx200746%_) + (let* ((_%g200750200764%_ + (lambda (_%g200751200760%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200592200601%_)))) - (_%g200590200647%_ - (lambda (_%g200592200609%_) + _%g200751200760%_)))) + (_%g200749200806%_ + (lambda (_%g200751200768%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200592200609%_)) - (let ((_%e200594200612%_ + (gx#stx-pair? _%g200751200768%_)) + (let ((_%e200753200771%_ (let () (declare (not safe)) - (gx#syntax-e _%g200592200609%_)))) - (let ((_%hd200595200616%_ + (gx#syntax-e _%g200751200768%_)))) + (let ((_%hd200754200775%_ (let () (declare (not safe)) - (##car _%e200594200612%_))) - (_%tl200596200619%_ + (##car _%e200753200771%_))) + (_%tl200755200778%_ (let () (declare (not safe)) - (##cdr _%e200594200612%_)))) + (##cdr _%e200753200771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200596200619%_)) - (let ((_%e200597200622%_ + (gx#stx-pair? _%tl200755200778%_)) + (let ((_%e200756200781%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200596200619%_)))) - (let ((_%hd200598200626%_ + (gx#syntax-e _%tl200755200778%_)))) + (let ((_%hd200757200785%_ (let () (declare (not safe)) - (##car _%e200597200622%_))) - (_%tl200599200629%_ + (##car _%e200756200781%_))) + (_%tl200758200788%_ (let () (declare (not safe)) - (##cdr _%e200597200622%_)))) + (##cdr _%e200756200781%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200599200629%_)) - ((lambda (_%L200632%_) + (gx#stx-null? _%tl200758200788%_)) + ((lambda (_%L200791%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L200632%_ '()))) + (cons '() (cons _%L200791%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200598200626%_) - (_%g200591200605%_ _%g200592200609%_)))) - (_%g200591200605%_ _%g200592200609%_)))) - (_%g200591200605%_ _%g200592200609%_))))) - (_%g200590200647%_ _%$stx200587%_)))) + _%hd200757200785%_) + (_%g200750200764%_ _%g200751200768%_)))) + (_%g200750200764%_ _%g200751200768%_)))) + (_%g200750200764%_ _%g200751200768%_))))) + (_%g200749200806%_ _%$stx200746%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index 01577f4bc..ad04155c7 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 1713631267) + (define gerbil/compiler/method::timestamp 1733687560) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx137535%_) - (let* ((_%self137537%_ + (lambda (_%stx137694%_) + (let* ((_%self137696%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e137539%_ - (let ((__tmp137735 (gxc#stx-car-e _%stx137535%_))) + (_%$e137698%_ + (let ((__tmp137894 (gxc#stx-car-e _%stx137694%_))) (declare (not safe)) - (method-ref _%self137537%_ __tmp137735)))) - (if _%$e137539%_ - ((lambda (_%method137542%_) - (declare (not safe)) - (_%method137542%_ _%self137537%_ _%stx137535%_)) - _%$e137539%_) - (let ((__tmp137737 (gxc#stx-car-e _%stx137535%_)) - (__tmp137736 + (method-ref _%self137696%_ __tmp137894)))) + (if _%$e137698%_ + ((lambda (_%method137701%_) + (declare (not safe)) + (_%method137701%_ _%self137696%_ _%stx137694%_)) + _%$e137698%_) + (let ((__tmp137896 (gxc#stx-car-e _%stx137694%_)) + (__tmp137895 (let () (declare (not safe)) - (gx#syntax->datum _%stx137535%_)))) + (gx#syntax->datum _%stx137694%_)))) (declare (not safe)) (error '"missing method" - _%self137537%_ - __tmp137737 - __tmp137736)))))) + _%self137696%_ + __tmp137896 + __tmp137895)))))) (define gxc#compile-e__1 - (lambda (_%self137546%_ _%stx137547%_) - (let ((_%$e137549%_ - (let ((__tmp137738 (gxc#stx-car-e _%stx137547%_))) - (declare (not safe)) - (method-ref _%self137546%_ __tmp137738)))) - (if _%$e137549%_ - ((lambda (_%method137552%_) - (declare (not safe)) - (_%method137552%_ _%self137546%_ _%stx137547%_)) - _%$e137549%_) - (let ((__tmp137740 (gxc#stx-car-e _%stx137547%_)) - (__tmp137739 + (lambda (_%self137705%_ _%stx137706%_) + (let ((_%$e137708%_ + (let ((__tmp137897 (gxc#stx-car-e _%stx137706%_))) + (declare (not safe)) + (method-ref _%self137705%_ __tmp137897)))) + (if _%$e137708%_ + ((lambda (_%method137711%_) + (declare (not safe)) + (_%method137711%_ _%self137705%_ _%stx137706%_)) + _%$e137708%_) + (let ((__tmp137899 (gxc#stx-car-e _%stx137706%_)) + (__tmp137898 (let () (declare (not safe)) - (gx#syntax->datum _%stx137547%_)))) + (gx#syntax->datum _%stx137706%_)))) (declare (not safe)) (error '"missing method" - _%self137546%_ - __tmp137740 - __tmp137739)))))) + _%self137705%_ + __tmp137899 + __tmp137898)))))) (define gxc#compile-e - (lambda _g137742_ - (let ((_g137741_ (let () (declare (not safe)) (##length _g137742_)))) - (cond ((let () (declare (not safe)) (##fx= _g137741_ 1)) - (apply gxc#compile-e__0 _g137742_)) - ((let () (declare (not safe)) (##fx= _g137741_ 2)) - (apply gxc#compile-e__1 _g137742_)) + (lambda _g137901_ + (let ((_g137900_ (let () (declare (not safe)) (##length _g137901_)))) + (cond ((let () (declare (not safe)) (##fx= _g137900_ 1)) + (apply gxc#compile-e__0 _g137901_)) + ((let () (declare (not safe)) (##fx= _g137900_ 2)) + (apply gxc#compile-e__1 _g137901_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g137742_)))))) + _g137901_)))))) (define gxc#stx-car-e - (lambda (_%stx137533%_) - (let ((__tmp137743 - (car (let () (declare (not safe)) (gx#stx-e _%stx137533%_))))) + (lambda (_%stx137692%_) + (let ((__tmp137902 + (car (let () (declare (not safe)) (gx#stx-e _%stx137692%_))))) (declare (not safe)) - (gx#stx-e __tmp137743)))) - (define gxc#void-method (lambda (_%self137530%_ _%stx137531%_) '#!void)) - (define gxc#false-method (lambda (_%self137527%_ _%stx137528%_) '#f)) - (define gxc#true-method (lambda (_%self137524%_ _%stx137525%_) '#t)) + (gx#stx-e __tmp137902)))) + (define gxc#void-method (lambda (_%self137689%_ _%stx137690%_) '#!void)) + (define gxc#false-method (lambda (_%self137686%_ _%stx137687%_) '#f)) + (define gxc#true-method (lambda (_%self137683%_ _%stx137684%_) '#t)) (define gxc#identity-method - (lambda (_%self137521%_ _%stx137522%_) _%stx137522%_)) + (lambda (_%self137680%_ _%stx137681%_) _%stx137681%_)) (define gxc#::void-expression::t - (let ((__tmp137744 (list))) + (let ((__tmp137903 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp137744 + __tmp137903 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args137518%_ - (apply make-instance gxc#::void-expression::t _%$args137518%_))) + (lambda _%$args137677%_ + (apply make-instance gxc#::void-expression::t _%$args137677%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp137745 + (let ((__tmp137904 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137745))) + (__make-promise __tmp137904))) (define gxc#::void-special-form::t - (let ((__tmp137746 (list))) + (let ((__tmp137905 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp137746 + __tmp137905 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args137514%_ - (apply make-instance gxc#::void-special-form::t _%$args137514%_))) + (lambda _%$args137673%_ + (apply make-instance gxc#::void-special-form::t _%$args137673%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp137747 + (let ((__tmp137906 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137747))) + (__make-promise __tmp137906))) (define gxc#::void::t - (let ((__tmp137748 + (let ((__tmp137907 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp137748 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp137907 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args137510%_ - (apply make-instance gxc#::void::t _%$args137510%_))) + (lambda _%$args137669%_ + (apply make-instance gxc#::void::t _%$args137669%_))) (define gxc#::void-bind-methods! - (let ((__tmp137749 + (let ((__tmp137908 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137749))) + (__make-promise __tmp137908))) (define gxc#::false-expression::t - (let ((__tmp137750 (list))) + (let ((__tmp137909 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp137750 + __tmp137909 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args137506%_ - (apply make-instance gxc#::false-expression::t _%$args137506%_))) + (lambda _%$args137665%_ + (apply make-instance gxc#::false-expression::t _%$args137665%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp137751 + (let ((__tmp137910 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137751))) + (__make-promise __tmp137910))) (define gxc#::false-special-form::t - (let ((__tmp137752 (list))) + (let ((__tmp137911 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp137752 + __tmp137911 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args137502%_ - (apply make-instance gxc#::false-special-form::t _%$args137502%_))) + (lambda _%$args137661%_ + (apply make-instance gxc#::false-special-form::t _%$args137661%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp137753 + (let ((__tmp137912 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137753))) + (__make-promise __tmp137912))) (define gxc#::false::t - (let ((__tmp137754 + (let ((__tmp137913 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp137754 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp137913 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args137498%_ - (apply make-instance gxc#::false::t _%$args137498%_))) + (lambda _%$args137657%_ + (apply make-instance gxc#::false::t _%$args137657%_))) (define gxc#::false-bind-methods! - (let ((__tmp137755 + (let ((__tmp137914 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137755))) + (__make-promise __tmp137914))) (define gxc#::identity-expression::t - (let ((__tmp137756 (list))) + (let ((__tmp137915 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp137756 + __tmp137915 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args137494%_ - (apply make-instance gxc#::identity-expression::t _%$args137494%_))) + (lambda _%$args137653%_ + (apply make-instance gxc#::identity-expression::t _%$args137653%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp137757 + (let ((__tmp137916 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137757))) + (__make-promise __tmp137916))) (define gxc#::identity-special-form::t - (let ((__tmp137758 (list))) + (let ((__tmp137917 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp137758 + __tmp137917 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args137490%_ - (apply make-instance gxc#::identity-special-form::t _%$args137490%_))) + (lambda _%$args137649%_ + (apply make-instance gxc#::identity-special-form::t _%$args137649%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp137759 + (let ((__tmp137918 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137759))) + (__make-promise __tmp137918))) (define gxc#::identity::t - (let ((__tmp137760 + (let ((__tmp137919 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp137760 + __tmp137919 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args137486%_ - (apply make-instance gxc#::identity::t _%$args137486%_))) + (lambda _%$args137645%_ + (apply make-instance gxc#::identity::t _%$args137645%_))) (define gxc#::identity-bind-methods! - (let ((__tmp137761 + (let ((__tmp137920 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137761))) + (__make-promise __tmp137920))) (define gxc#::basic-xform-expression::t - (let ((__tmp137762 (list))) + (let ((__tmp137921 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp137762 + __tmp137921 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args137482%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args137482%_))) + (lambda _%$args137641%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args137641%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp137763 + (let ((__tmp137922 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp137763))) + (__make-promise __tmp137922))) (define gxc#::basic-xform::t - (let ((__tmp137764 + (let ((__tmp137923 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp137764 + __tmp137923 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args137478%_ - (apply make-instance gxc#::basic-xform::t _%$args137478%_))) + (lambda _%$args137637%_ + (apply make-instance gxc#::basic-xform::t _%$args137637%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp137765 + (let ((__tmp137924 (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 __tmp137765))) + (__make-promise __tmp137924))) (define gxc#apply-begin% - (lambda (_%self137434%_ _%stx137435%_) - (let* ((_%g137437137447%_ - (lambda (_%g137438137444%_) + (lambda (_%self137593%_ _%stx137594%_) + (let* ((_%g137596137606%_ + (lambda (_%g137597137603%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137438137444%_)))) - (_%g137436137474%_ - (lambda (_%g137438137450%_) + _%g137597137603%_)))) + (_%g137595137633%_ + (lambda (_%g137597137609%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137438137450%_)) - (let ((_%e137440137452%_ + (gx#stx-pair? _%g137597137609%_)) + (let ((_%e137599137611%_ (let () (declare (not safe)) - (gx#stx-e _%g137438137450%_)))) - (let ((_%hd137441137455%_ + (gx#stx-e _%g137597137609%_)))) + (let ((_%hd137600137614%_ (let () (declare (not safe)) - (##car _%e137440137452%_))) - (_%tl137442137457%_ + (##car _%e137599137611%_))) + (_%tl137601137616%_ (let () (declare (not safe)) - (##cdr _%e137440137452%_)))) - ((lambda (_%L137460%_) + (##cdr _%e137599137611%_)))) + ((lambda (_%L137619%_) (for-each - (lambda (_%g137469137471%_) + (lambda (_%g137628137630%_) (gxc#compile-e__1 - _%self137434%_ - _%g137469137471%_)) + _%self137593%_ + _%g137628137630%_)) (let () (declare (not safe)) - (gx#stx-e _%L137460%_)))) - _%tl137442137457%_))) - (_%g137437137447%_ _%g137438137450%_))))) - (_%g137436137474%_ _%stx137435%_)))) + (gx#stx-e _%L137619%_)))) + _%tl137601137616%_))) + (_%g137596137606%_ _%g137597137609%_))))) + (_%g137595137633%_ _%stx137594%_)))) (define gxc#apply-last-begin% - (lambda (_%self137395%_ _%stx137396%_) - (let* ((_%g137398137408%_ - (lambda (_%g137399137405%_) + (lambda (_%self137554%_ _%stx137555%_) + (let* ((_%g137557137567%_ + (lambda (_%g137558137564%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137399137405%_)))) - (_%g137397137431%_ - (lambda (_%g137399137411%_) + _%g137558137564%_)))) + (_%g137556137590%_ + (lambda (_%g137558137570%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137399137411%_)) - (let ((_%e137401137413%_ + (gx#stx-pair? _%g137558137570%_)) + (let ((_%e137560137572%_ (let () (declare (not safe)) - (gx#stx-e _%g137399137411%_)))) - (let ((_%hd137402137416%_ + (gx#stx-e _%g137558137570%_)))) + (let ((_%hd137561137575%_ (let () (declare (not safe)) - (##car _%e137401137413%_))) - (_%tl137403137418%_ + (##car _%e137560137572%_))) + (_%tl137562137577%_ (let () (declare (not safe)) - (##cdr _%e137401137413%_)))) - ((lambda (_%L137421%_) + (##cdr _%e137560137572%_)))) + ((lambda (_%L137580%_) (gxc#compile-e__1 - _%self137395%_ - (last _%L137421%_))) - _%tl137403137418%_))) - (_%g137398137408%_ _%g137399137411%_))))) - (_%g137397137431%_ _%stx137396%_)))) + _%self137554%_ + (last _%L137580%_))) + _%tl137562137577%_))) + (_%g137557137567%_ _%g137558137570%_))))) + (_%g137556137590%_ _%stx137555%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self137391%_ _%stx137392%_) - (let ((__tmp137768 - (lambda () (gxc#apply-begin% _%self137391%_ _%stx137392%_))) - (__tmp137766 - (let ((__tmp137767 + (lambda (_%self137550%_ _%stx137551%_) + (let ((__tmp137927 + (lambda () (gxc#apply-begin% _%self137550%_ _%stx137551%_))) + (__tmp137925 + (let ((__tmp137926 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137767 '1)))) + (##fx+ __tmp137926 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137768 + __tmp137927 gx#current-expander-phi - __tmp137766)))) + __tmp137925)))) (define gxc#apply-module% - (lambda (_%self137330%_ _%stx137331%_) - (let* ((_%g137333137347%_ - (lambda (_%g137334137344%_) + (lambda (_%self137489%_ _%stx137490%_) + (let* ((_%g137492137506%_ + (lambda (_%g137493137503%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137334137344%_)))) - (_%g137332137388%_ - (lambda (_%g137334137350%_) + _%g137493137503%_)))) + (_%g137491137547%_ + (lambda (_%g137493137509%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137334137350%_)) - (let ((_%e137337137352%_ + (gx#stx-pair? _%g137493137509%_)) + (let ((_%e137496137511%_ (let () (declare (not safe)) - (gx#stx-e _%g137334137350%_)))) - (let ((_%hd137338137355%_ + (gx#stx-e _%g137493137509%_)))) + (let ((_%hd137497137514%_ (let () (declare (not safe)) - (##car _%e137337137352%_))) - (_%tl137339137357%_ + (##car _%e137496137511%_))) + (_%tl137498137516%_ (let () (declare (not safe)) - (##cdr _%e137337137352%_)))) + (##cdr _%e137496137511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137339137357%_)) - (let ((_%e137340137360%_ + (gx#stx-pair? _%tl137498137516%_)) + (let ((_%e137499137519%_ (let () (declare (not safe)) - (gx#stx-e _%tl137339137357%_)))) - (let ((_%hd137341137363%_ + (gx#stx-e _%tl137498137516%_)))) + (let ((_%hd137500137522%_ (let () (declare (not safe)) - (##car _%e137340137360%_))) - (_%tl137342137365%_ + (##car _%e137499137519%_))) + (_%tl137501137524%_ (let () (declare (not safe)) - (##cdr _%e137340137360%_)))) - ((lambda (_%L137368%_ _%L137369%_) - (let* ((_%ctx137382%_ + (##cdr _%e137499137519%_)))) + ((lambda (_%L137527%_ _%L137528%_) + (let* ((_%ctx137541%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L137369%_))) - (_%ctx-stx137384%_ + _%L137528%_))) + (_%ctx-stx137543%_ (##structure-ref - _%ctx137382%_ + _%ctx137541%_ '11 gx#module-context::t '#f)) - (__tmp137769 + (__tmp137928 (lambda () (gxc#compile-e__1 - _%self137330%_ - _%ctx-stx137384%_)))) + _%self137489%_ + _%ctx-stx137543%_)))) (declare (not safe)) (__call-with-parameters - __tmp137769 + __tmp137928 gx#current-expander-context - _%ctx137382%_))) - _%tl137342137365%_ - _%hd137341137363%_))) - (_%g137333137347%_ _%g137334137350%_)))) - (_%g137333137347%_ _%g137334137350%_))))) - (_%g137332137388%_ _%stx137331%_)))) + _%ctx137541%_))) + _%tl137501137524%_ + _%hd137500137522%_))) + (_%g137492137506%_ _%g137493137509%_)))) + (_%g137492137506%_ _%g137493137509%_))))) + (_%g137491137547%_ _%stx137490%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self137262%_ _%stx137263%_) - (let* ((_%g137265137282%_ - (lambda (_%g137266137279%_) + (lambda (_%self137421%_ _%stx137422%_) + (let* ((_%g137424137441%_ + (lambda (_%g137425137438%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137266137279%_)))) - (_%g137264137327%_ - (lambda (_%g137266137285%_) + _%g137425137438%_)))) + (_%g137423137486%_ + (lambda (_%g137425137444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137266137285%_)) - (let ((_%e137269137287%_ + (gx#stx-pair? _%g137425137444%_)) + (let ((_%e137428137446%_ (let () (declare (not safe)) - (gx#stx-e _%g137266137285%_)))) - (let ((_%hd137270137290%_ + (gx#stx-e _%g137425137444%_)))) + (let ((_%hd137429137449%_ (let () (declare (not safe)) - (##car _%e137269137287%_))) - (_%tl137271137292%_ + (##car _%e137428137446%_))) + (_%tl137430137451%_ (let () (declare (not safe)) - (##cdr _%e137269137287%_)))) + (##cdr _%e137428137446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137271137292%_)) - (let ((_%e137272137295%_ + (gx#stx-pair? _%tl137430137451%_)) + (let ((_%e137431137454%_ (let () (declare (not safe)) - (gx#stx-e _%tl137271137292%_)))) - (let ((_%hd137273137298%_ + (gx#stx-e _%tl137430137451%_)))) + (let ((_%hd137432137457%_ (let () (declare (not safe)) - (##car _%e137272137295%_))) - (_%tl137274137300%_ + (##car _%e137431137454%_))) + (_%tl137433137459%_ (let () (declare (not safe)) - (##cdr _%e137272137295%_)))) + (##cdr _%e137431137454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137274137300%_)) - (let ((_%e137275137303%_ + (gx#stx-pair? _%tl137433137459%_)) + (let ((_%e137434137462%_ (let () (declare (not safe)) - (gx#stx-e _%tl137274137300%_)))) - (let ((_%hd137276137306%_ + (gx#stx-e _%tl137433137459%_)))) + (let ((_%hd137435137465%_ (let () (declare (not safe)) - (##car _%e137275137303%_))) - (_%tl137277137308%_ + (##car _%e137434137462%_))) + (_%tl137436137467%_ (let () (declare (not safe)) - (##cdr _%e137275137303%_)))) + (##cdr _%e137434137462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137277137308%_)) - ((lambda (_%L137311%_ - _%L137312%_) + _%tl137436137467%_)) + ((lambda (_%L137470%_ + _%L137471%_) (gxc#compile-e__1 - _%self137262%_ - _%L137311%_)) - _%hd137276137306%_ - _%hd137273137298%_) - (_%g137265137282%_ - _%g137266137285%_)))) - (_%g137265137282%_ _%g137266137285%_)))) - (_%g137265137282%_ _%g137266137285%_)))) - (_%g137265137282%_ _%g137266137285%_))))) - (_%g137264137327%_ _%stx137263%_)))) + _%self137421%_ + _%L137470%_)) + _%hd137435137465%_ + _%hd137432137457%_) + (_%g137424137441%_ + _%g137425137444%_)))) + (_%g137424137441%_ _%g137425137444%_)))) + (_%g137424137441%_ _%g137425137444%_)))) + (_%g137424137441%_ _%g137425137444%_))))) + (_%g137423137486%_ _%stx137422%_)))) (define gxc#apply-define-values% - (lambda (_%self137194%_ _%stx137195%_) - (let* ((_%g137197137214%_ - (lambda (_%g137198137211%_) + (lambda (_%self137353%_ _%stx137354%_) + (let* ((_%g137356137373%_ + (lambda (_%g137357137370%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137198137211%_)))) - (_%g137196137259%_ - (lambda (_%g137198137217%_) + _%g137357137370%_)))) + (_%g137355137418%_ + (lambda (_%g137357137376%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137198137217%_)) - (let ((_%e137201137219%_ + (gx#stx-pair? _%g137357137376%_)) + (let ((_%e137360137378%_ (let () (declare (not safe)) - (gx#stx-e _%g137198137217%_)))) - (let ((_%hd137202137222%_ + (gx#stx-e _%g137357137376%_)))) + (let ((_%hd137361137381%_ (let () (declare (not safe)) - (##car _%e137201137219%_))) - (_%tl137203137224%_ + (##car _%e137360137378%_))) + (_%tl137362137383%_ (let () (declare (not safe)) - (##cdr _%e137201137219%_)))) + (##cdr _%e137360137378%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137203137224%_)) - (let ((_%e137204137227%_ + (gx#stx-pair? _%tl137362137383%_)) + (let ((_%e137363137386%_ (let () (declare (not safe)) - (gx#stx-e _%tl137203137224%_)))) - (let ((_%hd137205137230%_ + (gx#stx-e _%tl137362137383%_)))) + (let ((_%hd137364137389%_ (let () (declare (not safe)) - (##car _%e137204137227%_))) - (_%tl137206137232%_ + (##car _%e137363137386%_))) + (_%tl137365137391%_ (let () (declare (not safe)) - (##cdr _%e137204137227%_)))) + (##cdr _%e137363137386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137206137232%_)) - (let ((_%e137207137235%_ + (gx#stx-pair? _%tl137365137391%_)) + (let ((_%e137366137394%_ (let () (declare (not safe)) - (gx#stx-e _%tl137206137232%_)))) - (let ((_%hd137208137238%_ + (gx#stx-e _%tl137365137391%_)))) + (let ((_%hd137367137397%_ (let () (declare (not safe)) - (##car _%e137207137235%_))) - (_%tl137209137240%_ + (##car _%e137366137394%_))) + (_%tl137368137399%_ (let () (declare (not safe)) - (##cdr _%e137207137235%_)))) + (##cdr _%e137366137394%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137209137240%_)) - ((lambda (_%L137243%_ - _%L137244%_) + _%tl137368137399%_)) + ((lambda (_%L137402%_ + _%L137403%_) (gxc#compile-e__1 - _%self137194%_ - _%L137243%_)) - _%hd137208137238%_ - _%hd137205137230%_) - (_%g137197137214%_ - _%g137198137217%_)))) - (_%g137197137214%_ _%g137198137217%_)))) - (_%g137197137214%_ _%g137198137217%_)))) - (_%g137197137214%_ _%g137198137217%_))))) - (_%g137196137259%_ _%stx137195%_)))) + _%self137353%_ + _%L137402%_)) + _%hd137367137397%_ + _%hd137364137389%_) + (_%g137356137373%_ + _%g137357137376%_)))) + (_%g137356137373%_ _%g137357137376%_)))) + (_%g137356137373%_ _%g137357137376%_)))) + (_%g137356137373%_ _%g137357137376%_))))) + (_%g137355137418%_ _%stx137354%_)))) (define gxc#apply-define-syntax% - (lambda (_%self137125%_ _%stx137126%_) - (let* ((_%g137128137145%_ - (lambda (_%g137129137142%_) + (lambda (_%self137284%_ _%stx137285%_) + (let* ((_%g137287137304%_ + (lambda (_%g137288137301%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137129137142%_)))) - (_%g137127137191%_ - (lambda (_%g137129137148%_) + _%g137288137301%_)))) + (_%g137286137350%_ + (lambda (_%g137288137307%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137129137148%_)) - (let ((_%e137132137150%_ + (gx#stx-pair? _%g137288137307%_)) + (let ((_%e137291137309%_ (let () (declare (not safe)) - (gx#stx-e _%g137129137148%_)))) - (let ((_%hd137133137153%_ + (gx#stx-e _%g137288137307%_)))) + (let ((_%hd137292137312%_ (let () (declare (not safe)) - (##car _%e137132137150%_))) - (_%tl137134137155%_ + (##car _%e137291137309%_))) + (_%tl137293137314%_ (let () (declare (not safe)) - (##cdr _%e137132137150%_)))) + (##cdr _%e137291137309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137134137155%_)) - (let ((_%e137135137158%_ + (gx#stx-pair? _%tl137293137314%_)) + (let ((_%e137294137317%_ (let () (declare (not safe)) - (gx#stx-e _%tl137134137155%_)))) - (let ((_%hd137136137161%_ + (gx#stx-e _%tl137293137314%_)))) + (let ((_%hd137295137320%_ (let () (declare (not safe)) - (##car _%e137135137158%_))) - (_%tl137137137163%_ + (##car _%e137294137317%_))) + (_%tl137296137322%_ (let () (declare (not safe)) - (##cdr _%e137135137158%_)))) + (##cdr _%e137294137317%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137137137163%_)) - (let ((_%e137138137166%_ + (gx#stx-pair? _%tl137296137322%_)) + (let ((_%e137297137325%_ (let () (declare (not safe)) - (gx#stx-e _%tl137137137163%_)))) - (let ((_%hd137139137169%_ + (gx#stx-e _%tl137296137322%_)))) + (let ((_%hd137298137328%_ (let () (declare (not safe)) - (##car _%e137138137166%_))) - (_%tl137140137171%_ + (##car _%e137297137325%_))) + (_%tl137299137330%_ (let () (declare (not safe)) - (##cdr _%e137138137166%_)))) + (##cdr _%e137297137325%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137140137171%_)) - ((lambda (_%L137174%_ - _%L137175%_) - (let ((__tmp137772 + _%tl137299137330%_)) + ((lambda (_%L137333%_ + _%L137334%_) + (let ((__tmp137931 (lambda () (gxc#compile-e__1 - _%self137125%_ - _%L137174%_))) - (__tmp137770 - (let ((__tmp137771 + _%self137284%_ + _%L137333%_))) + (__tmp137929 + (let ((__tmp137930 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137771 '1)))) + (##fx+ __tmp137930 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137772 + __tmp137931 gx#current-expander-phi - __tmp137770))) - _%hd137139137169%_ - _%hd137136137161%_) - (_%g137128137145%_ - _%g137129137148%_)))) - (_%g137128137145%_ _%g137129137148%_)))) - (_%g137128137145%_ _%g137129137148%_)))) - (_%g137128137145%_ _%g137129137148%_))))) - (_%g137127137191%_ _%stx137126%_)))) + __tmp137929))) + _%hd137298137328%_ + _%hd137295137320%_) + (_%g137287137304%_ + _%g137288137307%_)))) + (_%g137287137304%_ _%g137288137307%_)))) + (_%g137287137304%_ _%g137288137307%_)))) + (_%g137287137304%_ _%g137288137307%_))))) + (_%g137286137350%_ _%stx137285%_)))) (define gxc#apply-body-lambda% - (lambda (_%self137057%_ _%stx137058%_) - (let* ((_%g137060137077%_ - (lambda (_%g137061137074%_) + (lambda (_%self137216%_ _%stx137217%_) + (let* ((_%g137219137236%_ + (lambda (_%g137220137233%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137061137074%_)))) - (_%g137059137122%_ - (lambda (_%g137061137080%_) + _%g137220137233%_)))) + (_%g137218137281%_ + (lambda (_%g137220137239%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137061137080%_)) - (let ((_%e137064137082%_ + (gx#stx-pair? _%g137220137239%_)) + (let ((_%e137223137241%_ (let () (declare (not safe)) - (gx#stx-e _%g137061137080%_)))) - (let ((_%hd137065137085%_ + (gx#stx-e _%g137220137239%_)))) + (let ((_%hd137224137244%_ (let () (declare (not safe)) - (##car _%e137064137082%_))) - (_%tl137066137087%_ + (##car _%e137223137241%_))) + (_%tl137225137246%_ (let () (declare (not safe)) - (##cdr _%e137064137082%_)))) + (##cdr _%e137223137241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137066137087%_)) - (let ((_%e137067137090%_ + (gx#stx-pair? _%tl137225137246%_)) + (let ((_%e137226137249%_ (let () (declare (not safe)) - (gx#stx-e _%tl137066137087%_)))) - (let ((_%hd137068137093%_ + (gx#stx-e _%tl137225137246%_)))) + (let ((_%hd137227137252%_ (let () (declare (not safe)) - (##car _%e137067137090%_))) - (_%tl137069137095%_ + (##car _%e137226137249%_))) + (_%tl137228137254%_ (let () (declare (not safe)) - (##cdr _%e137067137090%_)))) + (##cdr _%e137226137249%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137069137095%_)) - (let ((_%e137070137098%_ + (gx#stx-pair? _%tl137228137254%_)) + (let ((_%e137229137257%_ (let () (declare (not safe)) - (gx#stx-e _%tl137069137095%_)))) - (let ((_%hd137071137101%_ + (gx#stx-e _%tl137228137254%_)))) + (let ((_%hd137230137260%_ (let () (declare (not safe)) - (##car _%e137070137098%_))) - (_%tl137072137103%_ + (##car _%e137229137257%_))) + (_%tl137231137262%_ (let () (declare (not safe)) - (##cdr _%e137070137098%_)))) + (##cdr _%e137229137257%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137072137103%_)) - ((lambda (_%L137106%_ - _%L137107%_) + _%tl137231137262%_)) + ((lambda (_%L137265%_ + _%L137266%_) (gxc#compile-e__1 - _%self137057%_ - _%L137106%_)) - _%hd137071137101%_ - _%hd137068137093%_) - (_%g137060137077%_ - _%g137061137080%_)))) - (_%g137060137077%_ _%g137061137080%_)))) - (_%g137060137077%_ _%g137061137080%_)))) - (_%g137060137077%_ _%g137061137080%_))))) - (_%g137059137122%_ _%stx137058%_)))) + _%self137216%_ + _%L137265%_)) + _%hd137230137260%_ + _%hd137227137252%_) + (_%g137219137236%_ + _%g137220137239%_)))) + (_%g137219137236%_ _%g137220137239%_)))) + (_%g137219137236%_ _%g137220137239%_)))) + (_%g137219137236%_ _%g137220137239%_))))) + (_%g137218137281%_ _%stx137217%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self136939%_ _%stx136940%_) - (let* ((_%g136942136970%_ - (lambda (_%g136943136967%_) + (lambda (_%self137098%_ _%stx137099%_) + (let* ((_%g137101137129%_ + (lambda (_%g137102137126%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136943136967%_)))) - (_%g136941137054%_ - (lambda (_%g136943136973%_) + _%g137102137126%_)))) + (_%g137100137213%_ + (lambda (_%g137102137132%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136943136973%_)) - (let ((_%e136946136975%_ + (gx#stx-pair? _%g137102137132%_)) + (let ((_%e137105137134%_ (let () (declare (not safe)) - (gx#stx-e _%g136943136973%_)))) - (let ((_%hd136947136978%_ + (gx#stx-e _%g137102137132%_)))) + (let ((_%hd137106137137%_ (let () (declare (not safe)) - (##car _%e136946136975%_))) - (_%tl136948136980%_ + (##car _%e137105137134%_))) + (_%tl137107137139%_ (let () (declare (not safe)) - (##cdr _%e136946136975%_)))) + (##cdr _%e137105137134%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136948136980%_)) - (let ((_g137773_ + (gx#stx-pair/null? _%tl137107137139%_)) + (let ((_g137932_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136948136980%_ + _%tl137107137139%_ '0)))) (begin - (let ((_g137774_ + (let ((_g137933_ (let () (declare (not safe)) - (if (##values? _g137773_) - (##vector-length _g137773_) + (if (##values? _g137932_) + (##vector-length _g137932_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137774_ 2))) + (##fx= _g137933_ 2))) (error "Context expects 2 values" - _g137774_))) - (let ((_%target136949136983%_ + _g137933_))) + (let ((_%target137108137142%_ (let () (declare (not safe)) - (##vector-ref _g137773_ 0))) - (_%tl136951136985%_ + (##vector-ref _g137932_ 0))) + (_%tl137110137144%_ (let () (declare (not safe)) - (##vector-ref _g137773_ 1)))) + (##vector-ref _g137932_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136951136985%_)) - (letrec ((_%loop136952136988%_ - (lambda (_%hd136950136991%_ - _%body136956136993%_ - _%hd136957136995%_) + (gx#stx-null? _%tl137110137144%_)) + (letrec ((_%loop137111137147%_ + (lambda (_%hd137109137150%_ + _%body137115137152%_ + _%hd137116137154%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136950136991%_)) - (let ((_%e136953136998%_ + _%hd137109137150%_)) + (let ((_%e137112137157%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136950136991%_)))) - (let ((_%lp-hd136954137001%_ + (gx#stx-e _%hd137109137150%_)))) + (let ((_%lp-hd137113137160%_ (let () (declare (not safe)) - (##car _%e136953136998%_))) - (_%lp-tl136955137003%_ + (##car _%e137112137157%_))) + (_%lp-tl137114137162%_ (let () (declare (not safe)) - (##cdr _%e136953136998%_)))) + (##cdr _%e137112137157%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136954137001%_)) - (let ((_%e136960137006%_ + (gx#stx-pair? _%lp-hd137113137160%_)) + (let ((_%e137119137165%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136954137001%_)))) - (let ((_%hd136961137009%_ + (gx#stx-e _%lp-hd137113137160%_)))) + (let ((_%hd137120137168%_ (let () (declare (not safe)) - (##car _%e136960137006%_))) - (_%tl136962137011%_ + (##car _%e137119137165%_))) + (_%tl137121137170%_ (let () (declare (not safe)) - (##cdr _%e136960137006%_)))) + (##cdr _%e137119137165%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136962137011%_)) - (let ((_%e136963137014%_ + (gx#stx-pair? _%tl137121137170%_)) + (let ((_%e137122137173%_ (let () (declare (not safe)) - (gx#stx-e _%tl136962137011%_)))) - (let ((_%hd136964137017%_ + (gx#stx-e _%tl137121137170%_)))) + (let ((_%hd137123137176%_ (let () (declare (not safe)) - (##car _%e136963137014%_))) - (_%tl136965137019%_ + (##car _%e137122137173%_))) + (_%tl137124137178%_ (let () (declare (not safe)) - (##cdr _%e136963137014%_)))) + (##cdr _%e137122137173%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136965137019%_)) - (_%loop136952136988%_ - _%lp-tl136955137003%_ - (cons _%hd136964137017%_ - _%body136956136993%_) - (cons _%hd136961137009%_ - _%hd136957136995%_)) - (_%g136942136970%_ - _%g136943136973%_)))) - (_%g136942136970%_ _%g136943136973%_)))) - (_%g136942136970%_ _%g136943136973%_)))) - (let ((_%body136958137022%_ (reverse _%body136956136993%_)) - (_%hd136959137024%_ (reverse _%hd136957136995%_))) - ((lambda (_%L137027%_ _%L137028%_) + (gx#stx-null? _%tl137124137178%_)) + (_%loop137111137147%_ + _%lp-tl137114137162%_ + (cons _%hd137123137176%_ + _%body137115137152%_) + (cons _%hd137120137168%_ + _%hd137116137154%_)) + (_%g137101137129%_ + _%g137102137132%_)))) + (_%g137101137129%_ _%g137102137132%_)))) + (_%g137101137129%_ _%g137102137132%_)))) + (let ((_%body137117137181%_ (reverse _%body137115137152%_)) + (_%hd137118137183%_ (reverse _%hd137116137154%_))) + ((lambda (_%L137186%_ _%L137187%_) (for-each - (lambda (_%g137042137044%_) - (gxc#compile-e__1 _%self136939%_ _%g137042137044%_)) - (let ((__tmp137775 - (lambda (_%g137046137049%_ _%g137047137051%_) - (cons _%g137046137049%_ _%g137047137051%_)))) + (lambda (_%g137201137203%_) + (gxc#compile-e__1 _%self137098%_ _%g137201137203%_)) + (let ((__tmp137934 + (lambda (_%g137205137208%_ _%g137206137210%_) + (cons _%g137205137208%_ _%g137206137210%_)))) (declare (not safe)) - (__foldr1 __tmp137775 '() _%L137027%_)))) - _%body136958137022%_ - _%hd136959137024%_)))))) + (__foldr1 __tmp137934 '() _%L137186%_)))) + _%body137117137181%_ + _%hd137118137183%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136952136988%_ - _%target136949136983%_ + (_%loop137111137147%_ + _%target137108137142%_ '() '())) - (_%g136942136970%_ - _%g136943136973%_))))) - (_%g136942136970%_ _%g136943136973%_)))) - (_%g136942136970%_ _%g136943136973%_))))) - (_%g136941137054%_ _%stx136940%_)))) + (_%g137101137129%_ + _%g137102137132%_))))) + (_%g137101137129%_ _%g137102137132%_)))) + (_%g137101137129%_ _%g137102137132%_))))) + (_%g137100137213%_ _%stx137099%_)))) (define gxc#apply-body-let-values% - (lambda (_%self136792%_ _%stx136793%_) - (let* ((_%g136795136830%_ - (lambda (_%g136796136827%_) + (lambda (_%self136951%_ _%stx136952%_) + (let* ((_%g136954136989%_ + (lambda (_%g136955136986%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136796136827%_)))) - (_%g136794136936%_ - (lambda (_%g136796136833%_) + _%g136955136986%_)))) + (_%g136953137095%_ + (lambda (_%g136955136992%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136796136833%_)) - (let ((_%e136800136835%_ + (gx#stx-pair? _%g136955136992%_)) + (let ((_%e136959136994%_ (let () (declare (not safe)) - (gx#stx-e _%g136796136833%_)))) - (let ((_%hd136801136838%_ + (gx#stx-e _%g136955136992%_)))) + (let ((_%hd136960136997%_ (let () (declare (not safe)) - (##car _%e136800136835%_))) - (_%tl136802136840%_ + (##car _%e136959136994%_))) + (_%tl136961136999%_ (let () (declare (not safe)) - (##cdr _%e136800136835%_)))) + (##cdr _%e136959136994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136802136840%_)) - (let ((_%e136803136843%_ + (gx#stx-pair? _%tl136961136999%_)) + (let ((_%e136962137002%_ (let () (declare (not safe)) - (gx#stx-e _%tl136802136840%_)))) - (let ((_%hd136804136846%_ + (gx#stx-e _%tl136961136999%_)))) + (let ((_%hd136963137005%_ (let () (declare (not safe)) - (##car _%e136803136843%_))) - (_%tl136805136848%_ + (##car _%e136962137002%_))) + (_%tl136964137007%_ (let () (declare (not safe)) - (##cdr _%e136803136843%_)))) + (##cdr _%e136962137002%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd136804136846%_)) - (let ((_g137776_ + (gx#stx-pair/null? _%hd136963137005%_)) + (let ((_g137935_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd136804136846%_ + _%hd136963137005%_ '0)))) (begin - (let ((_g137777_ + (let ((_g137936_ (let () (declare (not safe)) - (if (##values? _g137776_) + (if (##values? _g137935_) (##vector-length - _g137776_) + _g137935_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137777_ 2))) + (##fx= _g137936_ 2))) (error "Context expects 2 values" - _g137777_))) - (let ((_%target136806136851%_ + _g137936_))) + (let ((_%target136965137010%_ (let () (declare (not safe)) - (##vector-ref _g137776_ 0))) - (_%tl136808136853%_ + (##vector-ref _g137935_ 0))) + (_%tl136967137012%_ (let () (declare (not safe)) (##vector-ref - _g137776_ + _g137935_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136808136853%_)) - (letrec ((_%loop136809136856%_ - (lambda (_%hd136807136859%_ + _%tl136967137012%_)) + (letrec ((_%loop136968137015%_ + (lambda (_%hd136966137018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136813136861%_ - _%hd136814136863%_) + _%expr136972137020%_ + _%hd136973137022%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136807136859%_)) - (let ((_%e136810136866%_ + (gx#stx-pair? _%hd136966137018%_)) + (let ((_%e136969137025%_ (let () (declare (not safe)) - (gx#stx-e _%hd136807136859%_)))) - (let ((_%lp-hd136811136869%_ + (gx#stx-e _%hd136966137018%_)))) + (let ((_%lp-hd136970137028%_ (let () (declare (not safe)) - (##car _%e136810136866%_))) - (_%lp-tl136812136871%_ + (##car _%e136969137025%_))) + (_%lp-tl136971137030%_ (let () (declare (not safe)) - (##cdr _%e136810136866%_)))) + (##cdr _%e136969137025%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136811136869%_)) - (let ((_%e136820136874%_ + (gx#stx-pair? _%lp-hd136970137028%_)) + (let ((_%e136979137033%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136811136869%_)))) - (let ((_%hd136821136877%_ + (gx#stx-e _%lp-hd136970137028%_)))) + (let ((_%hd136980137036%_ (let () (declare (not safe)) - (##car _%e136820136874%_))) - (_%tl136822136879%_ + (##car _%e136979137033%_))) + (_%tl136981137038%_ (let () (declare (not safe)) - (##cdr _%e136820136874%_)))) + (##cdr _%e136979137033%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136822136879%_)) - (let ((_%e136823136882%_ + (gx#stx-pair? _%tl136981137038%_)) + (let ((_%e136982137041%_ (let () (declare (not safe)) (gx#stx-e - _%tl136822136879%_)))) - (let ((_%hd136824136885%_ + _%tl136981137038%_)))) + (let ((_%hd136983137044%_ (let () (declare (not safe)) - (##car _%e136823136882%_))) - (_%tl136825136887%_ + (##car _%e136982137041%_))) + (_%tl136984137046%_ (let () (declare (not safe)) - (##cdr _%e136823136882%_)))) + (##cdr _%e136982137041%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136825136887%_)) - (_%loop136809136856%_ - _%lp-tl136812136871%_ - (cons _%hd136824136885%_ - _%expr136813136861%_) - (cons _%hd136821136877%_ - _%hd136814136863%_)) - (_%g136795136830%_ - _%g136796136833%_)))) - (_%g136795136830%_ - _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_)))) - (let ((_%expr136815136890%_ - (reverse _%expr136813136861%_)) - (_%hd136816136892%_ - (reverse _%hd136814136863%_))) + _%tl136984137046%_)) + (_%loop136968137015%_ + _%lp-tl136971137030%_ + (cons _%hd136983137044%_ + _%expr136972137020%_) + (cons _%hd136980137036%_ + _%hd136973137022%_)) + (_%g136954136989%_ + _%g136955136992%_)))) + (_%g136954136989%_ + _%g136955136992%_)))) + (_%g136954136989%_ _%g136955136992%_)))) + (let ((_%expr136974137049%_ + (reverse _%expr136972137020%_)) + (_%hd136975137051%_ + (reverse _%hd136973137022%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136805136848%_)) - (let ((_%e136817136895%_ + (gx#stx-pair? _%tl136964137007%_)) + (let ((_%e136976137054%_ (let () (declare (not safe)) - (gx#stx-e _%tl136805136848%_)))) - (let ((_%hd136818136898%_ + (gx#stx-e _%tl136964137007%_)))) + (let ((_%hd136977137057%_ (let () (declare (not safe)) - (##car _%e136817136895%_))) - (_%tl136819136900%_ + (##car _%e136976137054%_))) + (_%tl136978137059%_ (let () (declare (not safe)) - (##cdr _%e136817136895%_)))) + (##cdr _%e136976137054%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136819136900%_)) - ((lambda (_%L136903%_ - _%L136904%_ - _%L136905%_) + (gx#stx-null? _%tl136978137059%_)) + ((lambda (_%L137062%_ + _%L137063%_ + _%L137064%_) (for-each - (lambda (_%g136924136926%_) + (lambda (_%g137083137085%_) (gxc#compile-e__1 - _%self136792%_ - _%g136924136926%_)) - (let ((__tmp137779 - (lambda (_%g136928136931%_ - _%g136929136933%_) - (cons _%g136928136931%_ - _%g136929136933%_))) - (__tmp137778 - (cons _%L136903%_ '()))) + _%self136951%_ + _%g137083137085%_)) + (let ((__tmp137938 + (lambda (_%g137087137090%_ + _%g137088137092%_) + (cons _%g137087137090%_ + _%g137088137092%_))) + (__tmp137937 + (cons _%L137062%_ '()))) (declare (not safe)) (__foldr1 - __tmp137779 - __tmp137778 - _%L136904%_)))) - _%hd136818136898%_ - _%expr136815136890%_ - _%hd136816136892%_) - (_%g136795136830%_ _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_))))))) + __tmp137938 + __tmp137937 + _%L137063%_)))) + _%hd136977137057%_ + _%expr136974137049%_ + _%hd136975137051%_) + (_%g136954136989%_ _%g136955136992%_)))) + (_%g136954136989%_ _%g136955136992%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136809136856%_ - _%target136806136851%_ + (_%loop136968137015%_ + _%target136965137010%_ '() '())) - (_%g136795136830%_ - _%g136796136833%_))))) - (_%g136795136830%_ _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_))))) - (_%g136794136936%_ _%stx136793%_)))) + (_%g136954136989%_ + _%g136955136992%_))))) + (_%g136954136989%_ _%g136955136992%_)))) + (_%g136954136989%_ _%g136955136992%_)))) + (_%g136954136989%_ _%g136955136992%_))))) + (_%g136953137095%_ _%stx136952%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self136737%_ _%stx136738%_) - (let* ((_%g136740136754%_ - (lambda (_%g136741136751%_) + (lambda (_%self136896%_ _%stx136897%_) + (let* ((_%g136899136913%_ + (lambda (_%g136900136910%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136741136751%_)))) - (_%g136739136789%_ - (lambda (_%g136741136757%_) + _%g136900136910%_)))) + (_%g136898136948%_ + (lambda (_%g136900136916%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136741136757%_)) - (let ((_%e136744136759%_ + (gx#stx-pair? _%g136900136916%_)) + (let ((_%e136903136918%_ (let () (declare (not safe)) - (gx#stx-e _%g136741136757%_)))) - (let ((_%hd136745136762%_ + (gx#stx-e _%g136900136916%_)))) + (let ((_%hd136904136921%_ (let () (declare (not safe)) - (##car _%e136744136759%_))) - (_%tl136746136764%_ + (##car _%e136903136918%_))) + (_%tl136905136923%_ (let () (declare (not safe)) - (##cdr _%e136744136759%_)))) + (##cdr _%e136903136918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136746136764%_)) - (let ((_%e136747136767%_ + (gx#stx-pair? _%tl136905136923%_)) + (let ((_%e136906136926%_ (let () (declare (not safe)) - (gx#stx-e _%tl136746136764%_)))) - (let ((_%hd136748136770%_ + (gx#stx-e _%tl136905136923%_)))) + (let ((_%hd136907136929%_ (let () (declare (not safe)) - (##car _%e136747136767%_))) - (_%tl136749136772%_ + (##car _%e136906136926%_))) + (_%tl136908136931%_ (let () (declare (not safe)) - (##cdr _%e136747136767%_)))) - ((lambda (_%L136775%_ _%L136776%_) + (##cdr _%e136906136926%_)))) + ((lambda (_%L136934%_ _%L136935%_) (gxc#compile-e__1 - _%self136737%_ - (last _%L136775%_))) - _%tl136749136772%_ - _%hd136748136770%_))) - (_%g136740136754%_ _%g136741136757%_)))) - (_%g136740136754%_ _%g136741136757%_))))) - (_%g136739136789%_ _%stx136738%_)))) + _%self136896%_ + (last _%L136934%_))) + _%tl136908136931%_ + _%hd136907136929%_))) + (_%g136899136913%_ _%g136900136916%_)))) + (_%g136899136913%_ _%g136900136916%_))))) + (_%g136898136948%_ _%stx136897%_)))) (define gxc#apply-body-setq% - (lambda (_%self136669%_ _%stx136670%_) - (let* ((_%g136672136689%_ - (lambda (_%g136673136686%_) + (lambda (_%self136828%_ _%stx136829%_) + (let* ((_%g136831136848%_ + (lambda (_%g136832136845%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136673136686%_)))) - (_%g136671136734%_ - (lambda (_%g136673136692%_) + _%g136832136845%_)))) + (_%g136830136893%_ + (lambda (_%g136832136851%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136673136692%_)) - (let ((_%e136676136694%_ + (gx#stx-pair? _%g136832136851%_)) + (let ((_%e136835136853%_ (let () (declare (not safe)) - (gx#stx-e _%g136673136692%_)))) - (let ((_%hd136677136697%_ + (gx#stx-e _%g136832136851%_)))) + (let ((_%hd136836136856%_ (let () (declare (not safe)) - (##car _%e136676136694%_))) - (_%tl136678136699%_ + (##car _%e136835136853%_))) + (_%tl136837136858%_ (let () (declare (not safe)) - (##cdr _%e136676136694%_)))) + (##cdr _%e136835136853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136678136699%_)) - (let ((_%e136679136702%_ + (gx#stx-pair? _%tl136837136858%_)) + (let ((_%e136838136861%_ (let () (declare (not safe)) - (gx#stx-e _%tl136678136699%_)))) - (let ((_%hd136680136705%_ + (gx#stx-e _%tl136837136858%_)))) + (let ((_%hd136839136864%_ (let () (declare (not safe)) - (##car _%e136679136702%_))) - (_%tl136681136707%_ + (##car _%e136838136861%_))) + (_%tl136840136866%_ (let () (declare (not safe)) - (##cdr _%e136679136702%_)))) + (##cdr _%e136838136861%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136681136707%_)) - (let ((_%e136682136710%_ + (gx#stx-pair? _%tl136840136866%_)) + (let ((_%e136841136869%_ (let () (declare (not safe)) - (gx#stx-e _%tl136681136707%_)))) - (let ((_%hd136683136713%_ + (gx#stx-e _%tl136840136866%_)))) + (let ((_%hd136842136872%_ (let () (declare (not safe)) - (##car _%e136682136710%_))) - (_%tl136684136715%_ + (##car _%e136841136869%_))) + (_%tl136843136874%_ (let () (declare (not safe)) - (##cdr _%e136682136710%_)))) + (##cdr _%e136841136869%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136684136715%_)) - ((lambda (_%L136718%_ - _%L136719%_) + _%tl136843136874%_)) + ((lambda (_%L136877%_ + _%L136878%_) (gxc#compile-e__1 - _%self136669%_ - _%L136718%_)) - _%hd136683136713%_ - _%hd136680136705%_) - (_%g136672136689%_ - _%g136673136692%_)))) - (_%g136672136689%_ _%g136673136692%_)))) - (_%g136672136689%_ _%g136673136692%_)))) - (_%g136672136689%_ _%g136673136692%_))))) - (_%g136671136734%_ _%stx136670%_)))) + _%self136828%_ + _%L136877%_)) + _%hd136842136872%_ + _%hd136839136864%_) + (_%g136831136848%_ + _%g136832136851%_)))) + (_%g136831136848%_ _%g136832136851%_)))) + (_%g136831136848%_ _%g136832136851%_)))) + (_%g136831136848%_ _%g136832136851%_))))) + (_%g136830136893%_ _%stx136829%_)))) (define gxc#apply-operands - (lambda (_%self136582%_ _%stx136583%_) - (let* ((_%g136585136604%_ - (lambda (_%g136586136601%_) + (lambda (_%self136741%_ _%stx136742%_) + (let* ((_%g136744136763%_ + (lambda (_%g136745136760%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136586136601%_)))) - (_%g136584136666%_ - (lambda (_%g136586136607%_) + _%g136745136760%_)))) + (_%g136743136825%_ + (lambda (_%g136745136766%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136586136607%_)) - (let ((_%e136588136609%_ + (gx#stx-pair? _%g136745136766%_)) + (let ((_%e136747136768%_ (let () (declare (not safe)) - (gx#stx-e _%g136586136607%_)))) - (let ((_%hd136589136612%_ + (gx#stx-e _%g136745136766%_)))) + (let ((_%hd136748136771%_ (let () (declare (not safe)) - (##car _%e136588136609%_))) - (_%tl136590136614%_ + (##car _%e136747136768%_))) + (_%tl136749136773%_ (let () (declare (not safe)) - (##cdr _%e136588136609%_)))) + (##cdr _%e136747136768%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136590136614%_)) - (let ((_g137780_ + (gx#stx-pair/null? _%tl136749136773%_)) + (let ((_g137939_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136590136614%_ + _%tl136749136773%_ '0)))) (begin - (let ((_g137781_ + (let ((_g137940_ (let () (declare (not safe)) - (if (##values? _g137780_) - (##vector-length _g137780_) + (if (##values? _g137939_) + (##vector-length _g137939_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137781_ 2))) + (##fx= _g137940_ 2))) (error "Context expects 2 values" - _g137781_))) - (let ((_%target136591136617%_ + _g137940_))) + (let ((_%target136750136776%_ (let () (declare (not safe)) - (##vector-ref _g137780_ 0))) - (_%tl136593136619%_ + (##vector-ref _g137939_ 0))) + (_%tl136752136778%_ (let () (declare (not safe)) - (##vector-ref _g137780_ 1)))) + (##vector-ref _g137939_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136593136619%_)) - (letrec ((_%loop136594136622%_ - (lambda (_%hd136592136625%_ - _%rands136598136627%_) + (gx#stx-null? _%tl136752136778%_)) + (letrec ((_%loop136753136781%_ + (lambda (_%hd136751136784%_ + _%rands136757136786%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136592136625%_)) - (let ((_%e136595136630%_ + _%hd136751136784%_)) + (let ((_%e136754136789%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136592136625%_)))) - (let ((_%lp-hd136596136633%_ + (gx#stx-e _%hd136751136784%_)))) + (let ((_%lp-hd136755136792%_ (let () (declare (not safe)) - (##car _%e136595136630%_))) - (_%lp-tl136597136635%_ + (##car _%e136754136789%_))) + (_%lp-tl136756136794%_ (let () (declare (not safe)) - (##cdr _%e136595136630%_)))) - (_%loop136594136622%_ - _%lp-tl136597136635%_ - (cons _%lp-hd136596136633%_ _%rands136598136627%_)))) - (let ((_%rands136599136638%_ (reverse _%rands136598136627%_))) - ((lambda (_%L136641%_) + (##cdr _%e136754136789%_)))) + (_%loop136753136781%_ + _%lp-tl136756136794%_ + (cons _%lp-hd136755136792%_ _%rands136757136786%_)))) + (let ((_%rands136758136797%_ (reverse _%rands136757136786%_))) + ((lambda (_%L136800%_) (for-each - (lambda (_%g136654136656%_) - (gxc#compile-e__1 _%self136582%_ _%g136654136656%_)) - (let ((__tmp137782 - (lambda (_%g136658136661%_ _%g136659136663%_) - (cons _%g136658136661%_ _%g136659136663%_)))) + (lambda (_%g136813136815%_) + (gxc#compile-e__1 _%self136741%_ _%g136813136815%_)) + (let ((__tmp137941 + (lambda (_%g136817136820%_ _%g136818136822%_) + (cons _%g136817136820%_ _%g136818136822%_)))) (declare (not safe)) - (__foldr1 __tmp137782 '() _%L136641%_)))) - _%rands136599136638%_)))))) + (__foldr1 __tmp137941 '() _%L136800%_)))) + _%rands136758136797%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136594136622%_ - _%target136591136617%_ + (_%loop136753136781%_ + _%target136750136776%_ '())) - (_%g136585136604%_ - _%g136586136607%_))))) - (_%g136585136604%_ _%g136586136607%_)))) - (_%g136585136604%_ _%g136586136607%_))))) - (_%g136584136666%_ _%stx136583%_)))) + (_%g136744136763%_ + _%g136745136766%_))))) + (_%g136744136763%_ _%g136745136766%_)))) + (_%g136744136763%_ _%g136745136766%_))))) + (_%g136743136825%_ _%stx136742%_)))) (define gxc#xform-wrap-source - (lambda (_%stx136579%_ _%src-stx136580%_) - (let ((__tmp137783 + (lambda (_%stx136738%_ _%src-stx136739%_) + (let ((__tmp137942 (let () (declare (not safe)) - (gx#stx-source _%src-stx136580%_)))) + (gx#stx-source _%src-stx136739%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx136579%_ __tmp137783)))) + (gx#stx-wrap-source _%stx136738%_ __tmp137942)))) (define gxc#xform-wrap-apply - (lambda (_%stx136575%_ _%src-stx136576%_ _%ctx136577%_) + (lambda (_%stx136734%_ _%src-stx136735%_ _%ctx136736%_) (gxc#compile-e__1 - _%ctx136577%_ - (gxc#xform-wrap-source _%stx136575%_ _%src-stx136576%_)))) + _%ctx136736%_ + (gxc#xform-wrap-source _%stx136734%_ _%src-stx136735%_)))) (define gxc#xform-begin% - (lambda (_%self136530%_ _%stx136531%_) - (let* ((_%g136533136543%_ - (lambda (_%g136534136540%_) + (lambda (_%self136689%_ _%stx136690%_) + (let* ((_%g136692136702%_ + (lambda (_%g136693136699%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136534136540%_)))) - (_%g136532136572%_ - (lambda (_%g136534136546%_) + _%g136693136699%_)))) + (_%g136691136731%_ + (lambda (_%g136693136705%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136534136546%_)) - (let ((_%e136536136548%_ + (gx#stx-pair? _%g136693136705%_)) + (let ((_%e136695136707%_ (let () (declare (not safe)) - (gx#stx-e _%g136534136546%_)))) - (let ((_%hd136537136551%_ + (gx#stx-e _%g136693136705%_)))) + (let ((_%hd136696136710%_ (let () (declare (not safe)) - (##car _%e136536136548%_))) - (_%tl136538136553%_ + (##car _%e136695136707%_))) + (_%tl136697136712%_ (let () (declare (not safe)) - (##cdr _%e136536136548%_)))) - ((lambda (_%L136556%_) - (let ((_%forms136570%_ - (map (lambda (_%g136565136567%_) + (##cdr _%e136695136707%_)))) + ((lambda (_%L136715%_) + (let ((_%forms136729%_ + (map (lambda (_%g136724136726%_) (gxc#compile-e__1 - _%self136530%_ - _%g136565136567%_)) - _%L136556%_))) + _%self136689%_ + _%g136724136726%_)) + _%L136715%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms136570%_) - _%stx136531%_))) - _%tl136538136553%_))) - (_%g136533136543%_ _%g136534136546%_))))) - (_%g136532136572%_ _%stx136531%_)))) + (cons '%#begin _%forms136729%_) + _%stx136690%_))) + _%tl136697136712%_))) + (_%g136692136702%_ _%g136693136705%_))))) + (_%g136691136731%_ _%stx136690%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self136484%_ _%stx136485%_) - (let* ((_%g136487136497%_ - (lambda (_%g136488136494%_) + (lambda (_%self136643%_ _%stx136644%_) + (let* ((_%g136646136656%_ + (lambda (_%g136647136653%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136488136494%_)))) - (_%g136486136527%_ - (lambda (_%g136488136500%_) + _%g136647136653%_)))) + (_%g136645136686%_ + (lambda (_%g136647136659%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136488136500%_)) - (let ((_%e136490136502%_ + (gx#stx-pair? _%g136647136659%_)) + (let ((_%e136649136661%_ (let () (declare (not safe)) - (gx#stx-e _%g136488136500%_)))) - (let ((_%hd136491136505%_ + (gx#stx-e _%g136647136659%_)))) + (let ((_%hd136650136664%_ (let () (declare (not safe)) - (##car _%e136490136502%_))) - (_%tl136492136507%_ + (##car _%e136649136661%_))) + (_%tl136651136666%_ (let () (declare (not safe)) - (##cdr _%e136490136502%_)))) - ((lambda (_%L136510%_) - (let ((__tmp137786 + (##cdr _%e136649136661%_)))) + ((lambda (_%L136669%_) + (let ((__tmp137945 (lambda () - (let ((_%forms136525%_ - (map (lambda (_%g136520136522%_) + (let ((_%forms136684%_ + (map (lambda (_%g136679136681%_) (gxc#compile-e__1 - _%self136484%_ - _%g136520136522%_)) - _%L136510%_))) + _%self136643%_ + _%g136679136681%_)) + _%L136669%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms136525%_) - _%stx136485%_)))) - (__tmp137784 - (let ((__tmp137785 + (cons '%#begin-syntax _%forms136684%_) + _%stx136644%_)))) + (__tmp137943 + (let ((__tmp137944 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137785 '1)))) + (##fx+ __tmp137944 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137786 + __tmp137945 gx#current-expander-phi - __tmp137784))) - _%tl136492136507%_))) - (_%g136487136497%_ _%g136488136500%_))))) - (_%g136486136527%_ _%stx136485%_)))) + __tmp137943))) + _%tl136651136666%_))) + (_%g136646136656%_ _%g136647136659%_))))) + (_%g136645136686%_ _%stx136644%_)))) (define gxc#xform-module% - (lambda (_%self136421%_ _%stx136422%_) - (let* ((_%g136424136438%_ - (lambda (_%g136425136435%_) + (lambda (_%self136580%_ _%stx136581%_) + (let* ((_%g136583136597%_ + (lambda (_%g136584136594%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136425136435%_)))) - (_%g136423136481%_ - (lambda (_%g136425136441%_) + _%g136584136594%_)))) + (_%g136582136640%_ + (lambda (_%g136584136600%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136425136441%_)) - (let ((_%e136428136443%_ + (gx#stx-pair? _%g136584136600%_)) + (let ((_%e136587136602%_ (let () (declare (not safe)) - (gx#stx-e _%g136425136441%_)))) - (let ((_%hd136429136446%_ + (gx#stx-e _%g136584136600%_)))) + (let ((_%hd136588136605%_ (let () (declare (not safe)) - (##car _%e136428136443%_))) - (_%tl136430136448%_ + (##car _%e136587136602%_))) + (_%tl136589136607%_ (let () (declare (not safe)) - (##cdr _%e136428136443%_)))) + (##cdr _%e136587136602%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136430136448%_)) - (let ((_%e136431136451%_ + (gx#stx-pair? _%tl136589136607%_)) + (let ((_%e136590136610%_ (let () (declare (not safe)) - (gx#stx-e _%tl136430136448%_)))) - (let ((_%hd136432136454%_ + (gx#stx-e _%tl136589136607%_)))) + (let ((_%hd136591136613%_ (let () (declare (not safe)) - (##car _%e136431136451%_))) - (_%tl136433136456%_ + (##car _%e136590136610%_))) + (_%tl136592136615%_ (let () (declare (not safe)) - (##cdr _%e136431136451%_)))) - ((lambda (_%L136459%_ _%L136460%_) - (let* ((_%ctx136473%_ + (##cdr _%e136590136610%_)))) + ((lambda (_%L136618%_ _%L136619%_) + (let* ((_%ctx136632%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136460%_))) - (_%code136475%_ + _%L136619%_))) + (_%code136634%_ (##structure-ref - _%ctx136473%_ + _%ctx136632%_ '11 gx#module-context::t '#f)) - (_%code136478%_ - (let ((__tmp137787 + (_%code136637%_ + (let ((__tmp137946 (lambda () (gxc#compile-e__1 - _%self136421%_ - _%code136475%_)))) + _%self136580%_ + _%code136634%_)))) (declare (not safe)) (__call-with-parameters - __tmp137787 + __tmp137946 gx#current-expander-context - _%ctx136473%_)))) + _%ctx136632%_)))) (##structure-set! - _%ctx136473%_ - _%code136478%_ + _%ctx136632%_ + _%code136637%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L136460%_ - (cons _%code136478%_ '()))) - _%stx136422%_))) - _%tl136433136456%_ - _%hd136432136454%_))) - (_%g136424136438%_ _%g136425136441%_)))) - (_%g136424136438%_ _%g136425136441%_))))) - (_%g136423136481%_ _%stx136422%_)))) + (cons _%L136619%_ + (cons _%code136637%_ '()))) + _%stx136581%_))) + _%tl136592136615%_ + _%hd136591136613%_))) + (_%g136583136597%_ _%g136584136600%_)))) + (_%g136583136597%_ _%g136584136600%_))))) + (_%g136582136640%_ _%stx136581%_)))) (define gxc#xform-define-values% - (lambda (_%self136351%_ _%stx136352%_) - (let* ((_%g136354136371%_ - (lambda (_%g136355136368%_) + (lambda (_%self136510%_ _%stx136511%_) + (let* ((_%g136513136530%_ + (lambda (_%g136514136527%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136355136368%_)))) - (_%g136353136418%_ - (lambda (_%g136355136374%_) + _%g136514136527%_)))) + (_%g136512136577%_ + (lambda (_%g136514136533%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136355136374%_)) - (let ((_%e136358136376%_ + (gx#stx-pair? _%g136514136533%_)) + (let ((_%e136517136535%_ (let () (declare (not safe)) - (gx#stx-e _%g136355136374%_)))) - (let ((_%hd136359136379%_ + (gx#stx-e _%g136514136533%_)))) + (let ((_%hd136518136538%_ (let () (declare (not safe)) - (##car _%e136358136376%_))) - (_%tl136360136381%_ + (##car _%e136517136535%_))) + (_%tl136519136540%_ (let () (declare (not safe)) - (##cdr _%e136358136376%_)))) + (##cdr _%e136517136535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136360136381%_)) - (let ((_%e136361136384%_ + (gx#stx-pair? _%tl136519136540%_)) + (let ((_%e136520136543%_ (let () (declare (not safe)) - (gx#stx-e _%tl136360136381%_)))) - (let ((_%hd136362136387%_ + (gx#stx-e _%tl136519136540%_)))) + (let ((_%hd136521136546%_ (let () (declare (not safe)) - (##car _%e136361136384%_))) - (_%tl136363136389%_ + (##car _%e136520136543%_))) + (_%tl136522136548%_ (let () (declare (not safe)) - (##cdr _%e136361136384%_)))) + (##cdr _%e136520136543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136363136389%_)) - (let ((_%e136364136392%_ + (gx#stx-pair? _%tl136522136548%_)) + (let ((_%e136523136551%_ (let () (declare (not safe)) - (gx#stx-e _%tl136363136389%_)))) - (let ((_%hd136365136395%_ + (gx#stx-e _%tl136522136548%_)))) + (let ((_%hd136524136554%_ (let () (declare (not safe)) - (##car _%e136364136392%_))) - (_%tl136366136397%_ + (##car _%e136523136551%_))) + (_%tl136525136556%_ (let () (declare (not safe)) - (##cdr _%e136364136392%_)))) + (##cdr _%e136523136551%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136366136397%_)) - ((lambda (_%L136400%_ - _%L136401%_) - (let ((_%expr136416%_ + _%tl136525136556%_)) + ((lambda (_%L136559%_ + _%L136560%_) + (let ((_%expr136575%_ (gxc#compile-e__1 - _%self136351%_ - _%L136400%_))) + _%self136510%_ + _%L136559%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L136401%_ - (cons _%expr136416%_ + (cons _%L136560%_ + (cons _%expr136575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136352%_))) - _%hd136365136395%_ - _%hd136362136387%_) - (_%g136354136371%_ - _%g136355136374%_)))) - (_%g136354136371%_ _%g136355136374%_)))) - (_%g136354136371%_ _%g136355136374%_)))) - (_%g136354136371%_ _%g136355136374%_))))) - (_%g136353136418%_ _%stx136352%_)))) + _%stx136511%_))) + _%hd136524136554%_ + _%hd136521136546%_) + (_%g136513136530%_ + _%g136514136533%_)))) + (_%g136513136530%_ _%g136514136533%_)))) + (_%g136513136530%_ _%g136514136533%_)))) + (_%g136513136530%_ _%g136514136533%_))))) + (_%g136512136577%_ _%stx136511%_)))) (define gxc#xform-define-syntax% - (lambda (_%self136280%_ _%stx136281%_) - (let* ((_%g136283136300%_ - (lambda (_%g136284136297%_) + (lambda (_%self136439%_ _%stx136440%_) + (let* ((_%g136442136459%_ + (lambda (_%g136443136456%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136284136297%_)))) - (_%g136282136348%_ - (lambda (_%g136284136303%_) + _%g136443136456%_)))) + (_%g136441136507%_ + (lambda (_%g136443136462%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136284136303%_)) - (let ((_%e136287136305%_ + (gx#stx-pair? _%g136443136462%_)) + (let ((_%e136446136464%_ (let () (declare (not safe)) - (gx#stx-e _%g136284136303%_)))) - (let ((_%hd136288136308%_ + (gx#stx-e _%g136443136462%_)))) + (let ((_%hd136447136467%_ (let () (declare (not safe)) - (##car _%e136287136305%_))) - (_%tl136289136310%_ + (##car _%e136446136464%_))) + (_%tl136448136469%_ (let () (declare (not safe)) - (##cdr _%e136287136305%_)))) + (##cdr _%e136446136464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136289136310%_)) - (let ((_%e136290136313%_ + (gx#stx-pair? _%tl136448136469%_)) + (let ((_%e136449136472%_ (let () (declare (not safe)) - (gx#stx-e _%tl136289136310%_)))) - (let ((_%hd136291136316%_ + (gx#stx-e _%tl136448136469%_)))) + (let ((_%hd136450136475%_ (let () (declare (not safe)) - (##car _%e136290136313%_))) - (_%tl136292136318%_ + (##car _%e136449136472%_))) + (_%tl136451136477%_ (let () (declare (not safe)) - (##cdr _%e136290136313%_)))) + (##cdr _%e136449136472%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136292136318%_)) - (let ((_%e136293136321%_ + (gx#stx-pair? _%tl136451136477%_)) + (let ((_%e136452136480%_ (let () (declare (not safe)) - (gx#stx-e _%tl136292136318%_)))) - (let ((_%hd136294136324%_ + (gx#stx-e _%tl136451136477%_)))) + (let ((_%hd136453136483%_ (let () (declare (not safe)) - (##car _%e136293136321%_))) - (_%tl136295136326%_ + (##car _%e136452136480%_))) + (_%tl136454136485%_ (let () (declare (not safe)) - (##cdr _%e136293136321%_)))) + (##cdr _%e136452136480%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136295136326%_)) - ((lambda (_%L136329%_ - _%L136330%_) - (let ((__tmp137790 + _%tl136454136485%_)) + ((lambda (_%L136488%_ + _%L136489%_) + (let ((__tmp137949 (lambda () - (let ((_%expr136346%_ + (let ((_%expr136505%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self136280%_ _%L136329%_))) + (gxc#compile-e__1 _%self136439%_ _%L136488%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L136330%_ (cons _%expr136346%_ '()))) - _%stx136281%_)))) - (__tmp137788 - (let ((__tmp137789 + (cons _%L136489%_ (cons _%expr136505%_ '()))) + _%stx136440%_)))) + (__tmp137947 + (let ((__tmp137948 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137789 '1)))) + (##fx+ __tmp137948 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137790 + __tmp137949 gx#current-expander-phi - __tmp137788))) - _%hd136294136324%_ - _%hd136291136316%_) - (_%g136283136300%_ - _%g136284136303%_)))) - (_%g136283136300%_ _%g136284136303%_)))) - (_%g136283136300%_ _%g136284136303%_)))) - (_%g136283136300%_ _%g136284136303%_))))) - (_%g136282136348%_ _%stx136281%_)))) + __tmp137947))) + _%hd136453136483%_ + _%hd136450136475%_) + (_%g136442136459%_ + _%g136443136462%_)))) + (_%g136442136459%_ _%g136443136462%_)))) + (_%g136442136459%_ _%g136443136462%_)))) + (_%g136442136459%_ _%g136443136462%_))))) + (_%g136441136507%_ _%stx136440%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self136210%_ _%stx136211%_) - (let* ((_%g136213136230%_ - (lambda (_%g136214136227%_) + (lambda (_%self136369%_ _%stx136370%_) + (let* ((_%g136372136389%_ + (lambda (_%g136373136386%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136214136227%_)))) - (_%g136212136277%_ - (lambda (_%g136214136233%_) + _%g136373136386%_)))) + (_%g136371136436%_ + (lambda (_%g136373136392%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136214136233%_)) - (let ((_%e136217136235%_ + (gx#stx-pair? _%g136373136392%_)) + (let ((_%e136376136394%_ (let () (declare (not safe)) - (gx#stx-e _%g136214136233%_)))) - (let ((_%hd136218136238%_ + (gx#stx-e _%g136373136392%_)))) + (let ((_%hd136377136397%_ (let () (declare (not safe)) - (##car _%e136217136235%_))) - (_%tl136219136240%_ + (##car _%e136376136394%_))) + (_%tl136378136399%_ (let () (declare (not safe)) - (##cdr _%e136217136235%_)))) + (##cdr _%e136376136394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136219136240%_)) - (let ((_%e136220136243%_ + (gx#stx-pair? _%tl136378136399%_)) + (let ((_%e136379136402%_ (let () (declare (not safe)) - (gx#stx-e _%tl136219136240%_)))) - (let ((_%hd136221136246%_ + (gx#stx-e _%tl136378136399%_)))) + (let ((_%hd136380136405%_ (let () (declare (not safe)) - (##car _%e136220136243%_))) - (_%tl136222136248%_ + (##car _%e136379136402%_))) + (_%tl136381136407%_ (let () (declare (not safe)) - (##cdr _%e136220136243%_)))) + (##cdr _%e136379136402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136222136248%_)) - (let ((_%e136223136251%_ + (gx#stx-pair? _%tl136381136407%_)) + (let ((_%e136382136410%_ (let () (declare (not safe)) - (gx#stx-e _%tl136222136248%_)))) - (let ((_%hd136224136254%_ + (gx#stx-e _%tl136381136407%_)))) + (let ((_%hd136383136413%_ (let () (declare (not safe)) - (##car _%e136223136251%_))) - (_%tl136225136256%_ + (##car _%e136382136410%_))) + (_%tl136384136415%_ (let () (declare (not safe)) - (##cdr _%e136223136251%_)))) + (##cdr _%e136382136410%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136225136256%_)) - ((lambda (_%L136259%_ - _%L136260%_) - (let ((_%expr136275%_ + _%tl136384136415%_)) + ((lambda (_%L136418%_ + _%L136419%_) + (let ((_%expr136434%_ (gxc#compile-e__1 - _%self136210%_ - _%L136259%_))) + _%self136369%_ + _%L136418%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L136260%_ - (cons _%expr136275%_ + (cons _%L136419%_ + (cons _%expr136434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136211%_))) - _%hd136224136254%_ - _%hd136221136246%_) - (_%g136213136230%_ - _%g136214136233%_)))) - (_%g136213136230%_ _%g136214136233%_)))) - (_%g136213136230%_ _%g136214136233%_)))) - (_%g136213136230%_ _%g136214136233%_))))) - (_%g136212136277%_ _%stx136211%_)))) + _%stx136370%_))) + _%hd136383136413%_ + _%hd136380136405%_) + (_%g136372136389%_ + _%g136373136392%_)))) + (_%g136372136389%_ _%g136373136392%_)))) + (_%g136372136389%_ _%g136373136392%_)))) + (_%g136372136389%_ _%g136373136392%_))))) + (_%g136371136436%_ _%stx136370%_)))) (define gxc#xform-lambda% - (lambda (_%self136148%_ _%stx136149%_) - (let* ((_%g136151136165%_ - (lambda (_%g136152136162%_) + (lambda (_%self136307%_ _%stx136308%_) + (let* ((_%g136310136324%_ + (lambda (_%g136311136321%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136152136162%_)))) - (_%g136150136207%_ - (lambda (_%g136152136168%_) + _%g136311136321%_)))) + (_%g136309136366%_ + (lambda (_%g136311136327%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136152136168%_)) - (let ((_%e136155136170%_ + (gx#stx-pair? _%g136311136327%_)) + (let ((_%e136314136329%_ (let () (declare (not safe)) - (gx#stx-e _%g136152136168%_)))) - (let ((_%hd136156136173%_ + (gx#stx-e _%g136311136327%_)))) + (let ((_%hd136315136332%_ (let () (declare (not safe)) - (##car _%e136155136170%_))) - (_%tl136157136175%_ + (##car _%e136314136329%_))) + (_%tl136316136334%_ (let () (declare (not safe)) - (##cdr _%e136155136170%_)))) + (##cdr _%e136314136329%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136157136175%_)) - (let ((_%e136158136178%_ + (gx#stx-pair? _%tl136316136334%_)) + (let ((_%e136317136337%_ (let () (declare (not safe)) - (gx#stx-e _%tl136157136175%_)))) - (let ((_%hd136159136181%_ + (gx#stx-e _%tl136316136334%_)))) + (let ((_%hd136318136340%_ (let () (declare (not safe)) - (##car _%e136158136178%_))) - (_%tl136160136183%_ + (##car _%e136317136337%_))) + (_%tl136319136342%_ (let () (declare (not safe)) - (##cdr _%e136158136178%_)))) - ((lambda (_%L136186%_ _%L136187%_) - (let ((__tmp137792 + (##cdr _%e136317136337%_)))) + ((lambda (_%L136345%_ _%L136346%_) + (let ((__tmp137951 (lambda () - (let ((_%body136205%_ - (map (lambda (_%g136200136202%_) + (let ((_%body136364%_ + (map (lambda (_%g136359136361%_) (gxc#compile-e__1 - _%self136148%_ - _%g136200136202%_)) - _%L136186%_))) + _%self136307%_ + _%g136359136361%_)) + _%L136345%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L136187%_ - _%body136205%_)) - _%stx136149%_)))) - (__tmp137791 + (cons _%L136346%_ + _%body136364%_)) + _%stx136308%_)))) + (__tmp137950 (gxc#xform-let-locals - _%L136187%_))) + _%L136346%_))) (declare (not safe)) (__call-with-parameters - __tmp137792 + __tmp137951 gxc#current-compile-local-env - __tmp137791))) - _%tl136160136183%_ - _%hd136159136181%_))) - (_%g136151136165%_ _%g136152136168%_)))) - (_%g136151136165%_ _%g136152136168%_))))) - (_%g136150136207%_ _%stx136149%_)))) + __tmp137950))) + _%tl136319136342%_ + _%hd136318136340%_))) + (_%g136310136324%_ _%g136311136327%_)))) + (_%g136310136324%_ _%g136311136327%_))))) + (_%g136309136366%_ _%stx136308%_)))) (define gxc#xform-case-lambda% - (lambda (_%self136056%_ _%stx136057%_) - (letrec ((_%clause-e136059%_ - (lambda (_%clause136100%_) - (let* ((_%g136102136113%_ - (lambda (_%g136103136110%_) + (lambda (_%self136215%_ _%stx136216%_) + (letrec ((_%clause-e136218%_ + (lambda (_%clause136259%_) + (let* ((_%g136261136272%_ + (lambda (_%g136262136269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136103136110%_)))) - (_%g136101136145%_ - (lambda (_%g136103136116%_) + _%g136262136269%_)))) + (_%g136260136304%_ + (lambda (_%g136262136275%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136103136116%_)) - (let ((_%e136106136118%_ + (gx#stx-pair? _%g136262136275%_)) + (let ((_%e136265136277%_ (let () (declare (not safe)) - (gx#stx-e _%g136103136116%_)))) - (let ((_%hd136107136121%_ + (gx#stx-e _%g136262136275%_)))) + (let ((_%hd136266136280%_ (let () (declare (not safe)) - (##car _%e136106136118%_))) - (_%tl136108136123%_ + (##car _%e136265136277%_))) + (_%tl136267136282%_ (let () (declare (not safe)) - (##cdr _%e136106136118%_)))) - ((lambda (_%L136126%_ _%L136127%_) - (let ((__tmp137794 + (##cdr _%e136265136277%_)))) + ((lambda (_%L136285%_ _%L136286%_) + (let ((__tmp137953 (lambda () - (let ((_%body136143%_ - (map (lambda (_%g136138136140%_) + (let ((_%body136302%_ + (map (lambda (_%g136297136299%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self136056%_ - _%g136138136140%_)) - _%L136126%_))) + _%self136215%_ + _%g136297136299%_)) + _%L136285%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136127%_ - _%body136143%_)))) - (__tmp137793 + (cons _%L136286%_ + _%body136302%_)))) + (__tmp137952 (gxc#xform-let-locals - _%L136127%_))) + _%L136286%_))) (declare (not safe)) (__call-with-parameters - __tmp137794 + __tmp137953 gxc#current-compile-local-env - __tmp137793))) - _%tl136108136123%_ - _%hd136107136121%_))) - (_%g136102136113%_ _%g136103136116%_))))) - (_%g136101136145%_ _%clause136100%_))))) - (let* ((_%g136061136071%_ - (lambda (_%g136062136068%_) + __tmp137952))) + _%tl136267136282%_ + _%hd136266136280%_))) + (_%g136261136272%_ _%g136262136275%_))))) + (_%g136260136304%_ _%clause136259%_))))) + (let* ((_%g136220136230%_ + (lambda (_%g136221136227%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136062136068%_)))) - (_%g136060136097%_ - (lambda (_%g136062136074%_) + _%g136221136227%_)))) + (_%g136219136256%_ + (lambda (_%g136221136233%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136062136074%_)) - (let ((_%e136064136076%_ + (gx#stx-pair? _%g136221136233%_)) + (let ((_%e136223136235%_ (let () (declare (not safe)) - (gx#stx-e _%g136062136074%_)))) - (let ((_%hd136065136079%_ + (gx#stx-e _%g136221136233%_)))) + (let ((_%hd136224136238%_ (let () (declare (not safe)) - (##car _%e136064136076%_))) - (_%tl136066136081%_ + (##car _%e136223136235%_))) + (_%tl136225136240%_ (let () (declare (not safe)) - (##cdr _%e136064136076%_)))) - ((lambda (_%L136084%_) - (let ((_%clauses136095%_ - (map _%clause-e136059%_ _%L136084%_))) + (##cdr _%e136223136235%_)))) + ((lambda (_%L136243%_) + (let ((_%clauses136254%_ + (map _%clause-e136218%_ _%L136243%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses136095%_) - _%stx136057%_))) - _%tl136066136081%_))) - (_%g136061136071%_ _%g136062136074%_))))) - (_%g136060136097%_ _%stx136057%_))))) + (cons '%#case-lambda _%clauses136254%_) + _%stx136216%_))) + _%tl136225136240%_))) + (_%g136220136230%_ _%g136221136233%_))))) + (_%g136219136256%_ _%stx136216%_))))) (define gxc#xform-let-values% - (lambda (_%self135810%_ _%stx135811%_) - (let* ((_%g135813135846%_ - (lambda (_%g135814135843%_) + (lambda (_%self135969%_ _%stx135970%_) + (let* ((_%g135972136005%_ + (lambda (_%g135973136002%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135814135843%_)))) - (_%g135812136053%_ - (lambda (_%g135814135849%_) + _%g135973136002%_)))) + (_%g135971136212%_ + (lambda (_%g135973136008%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135814135849%_)) - (let ((_%e135819135851%_ + (gx#stx-pair? _%g135973136008%_)) + (let ((_%e135978136010%_ (let () (declare (not safe)) - (gx#stx-e _%g135814135849%_)))) - (let ((_%hd135820135854%_ + (gx#stx-e _%g135973136008%_)))) + (let ((_%hd135979136013%_ (let () (declare (not safe)) - (##car _%e135819135851%_))) - (_%tl135821135856%_ + (##car _%e135978136010%_))) + (_%tl135980136015%_ (let () (declare (not safe)) - (##cdr _%e135819135851%_)))) + (##cdr _%e135978136010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135821135856%_)) - (let ((_%e135822135859%_ + (gx#stx-pair? _%tl135980136015%_)) + (let ((_%e135981136018%_ (let () (declare (not safe)) - (gx#stx-e _%tl135821135856%_)))) - (let ((_%hd135823135862%_ + (gx#stx-e _%tl135980136015%_)))) + (let ((_%hd135982136021%_ (let () (declare (not safe)) - (##car _%e135822135859%_))) - (_%tl135824135864%_ + (##car _%e135981136018%_))) + (_%tl135983136023%_ (let () (declare (not safe)) - (##cdr _%e135822135859%_)))) + (##cdr _%e135981136018%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135823135862%_)) - (let ((_g137795_ + (gx#stx-pair/null? _%hd135982136021%_)) + (let ((_g137954_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135823135862%_ + _%hd135982136021%_ '0)))) (begin - (let ((_g137796_ + (let ((_g137955_ (let () (declare (not safe)) - (if (##values? _g137795_) + (if (##values? _g137954_) (##vector-length - _g137795_) + _g137954_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137796_ 2))) + (##fx= _g137955_ 2))) (error "Context expects 2 values" - _g137796_))) - (let ((_%target135825135867%_ + _g137955_))) + (let ((_%target135984136026%_ (let () (declare (not safe)) - (##vector-ref _g137795_ 0))) - (_%tl135827135869%_ + (##vector-ref _g137954_ 0))) + (_%tl135986136028%_ (let () (declare (not safe)) (##vector-ref - _g137795_ + _g137954_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135827135869%_)) - (letrec ((_%loop135828135872%_ - (lambda (_%hd135826135875%_ + _%tl135986136028%_)) + (letrec ((_%loop135987136031%_ + (lambda (_%hd135985136034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135832135877%_ - _%hd135833135879%_) + _%expr135991136036%_ + _%hd135992136038%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135826135875%_)) - (let ((_%e135829135882%_ + (gx#stx-pair? _%hd135985136034%_)) + (let ((_%e135988136041%_ (let () (declare (not safe)) - (gx#stx-e _%hd135826135875%_)))) - (let ((_%lp-hd135830135885%_ + (gx#stx-e _%hd135985136034%_)))) + (let ((_%lp-hd135989136044%_ (let () (declare (not safe)) - (##car _%e135829135882%_))) - (_%lp-tl135831135887%_ + (##car _%e135988136041%_))) + (_%lp-tl135990136046%_ (let () (declare (not safe)) - (##cdr _%e135829135882%_)))) + (##cdr _%e135988136041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135830135885%_)) - (let ((_%e135836135890%_ + (gx#stx-pair? _%lp-hd135989136044%_)) + (let ((_%e135995136049%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135830135885%_)))) - (let ((_%hd135837135893%_ + (gx#stx-e _%lp-hd135989136044%_)))) + (let ((_%hd135996136052%_ (let () (declare (not safe)) - (##car _%e135836135890%_))) - (_%tl135838135895%_ + (##car _%e135995136049%_))) + (_%tl135997136054%_ (let () (declare (not safe)) - (##cdr _%e135836135890%_)))) + (##cdr _%e135995136049%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135838135895%_)) - (let ((_%e135839135898%_ + (gx#stx-pair? _%tl135997136054%_)) + (let ((_%e135998136057%_ (let () (declare (not safe)) (gx#stx-e - _%tl135838135895%_)))) - (let ((_%hd135840135901%_ + _%tl135997136054%_)))) + (let ((_%hd135999136060%_ (let () (declare (not safe)) - (##car _%e135839135898%_))) - (_%tl135841135903%_ + (##car _%e135998136057%_))) + (_%tl136000136062%_ (let () (declare (not safe)) - (##cdr _%e135839135898%_)))) + (##cdr _%e135998136057%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135841135903%_)) - (_%loop135828135872%_ - _%lp-tl135831135887%_ - (cons _%hd135840135901%_ - _%expr135832135877%_) - (cons _%hd135837135893%_ - _%hd135833135879%_)) - (_%g135813135846%_ - _%g135814135849%_)))) - (_%g135813135846%_ - _%g135814135849%_)))) - (_%g135813135846%_ _%g135814135849%_)))) - (let ((_%expr135834135906%_ - (reverse _%expr135832135877%_)) - (_%hd135835135908%_ - (reverse _%hd135833135879%_))) - ((lambda (_%L135911%_ - _%L135912%_ - _%L135913%_ - _%L135914%_) - (let* ((_%g135933135949%_ - (lambda (_%g135934135946%_) + _%tl136000136062%_)) + (_%loop135987136031%_ + _%lp-tl135990136046%_ + (cons _%hd135999136060%_ + _%expr135991136036%_) + (cons _%hd135996136052%_ + _%hd135992136038%_)) + (_%g135972136005%_ + _%g135973136008%_)))) + (_%g135972136005%_ + _%g135973136008%_)))) + (_%g135972136005%_ _%g135973136008%_)))) + (let ((_%expr135993136065%_ + (reverse _%expr135991136036%_)) + (_%hd135994136067%_ + (reverse _%hd135992136038%_))) + ((lambda (_%L136070%_ + _%L136071%_ + _%L136072%_ + _%L136073%_) + (let* ((_%g136092136108%_ + (lambda (_%g136093136105%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135934135946%_)))) - (_%g135932136039%_ - (lambda (_%g135934135952%_) + _%g136093136105%_)))) + (_%g136091136198%_ + (lambda (_%g136093136111%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135934135952%_)) - (let ((_g137797_ + _%g136093136111%_)) + (let ((_g137956_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135934135952%_ + _%g136093136111%_ '0)))) (begin - (let ((_g137798_ + (let ((_g137957_ (let () (declare (not safe)) (if (##values? - _g137797_) + _g137956_) (##vector-length - _g137797_) + _g137956_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137798_ + (##fx= _g137957_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g137798_))) - (let ((_%target135936135954%_ + _g137957_))) + (let ((_%target136095136113%_ (let () (declare (not safe)) (##vector-ref - _g137797_ + _g137956_ 0))) - (_%tl135938135956%_ + (_%tl136097136115%_ (let () (declare (not safe)) (##vector-ref - _g137797_ + _g137956_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135938135956%_)) - (letrec ((_%loop135939135959%_ - (lambda (_%hd135937135962%_ + _%tl136097136115%_)) + (letrec ((_%loop136098136118%_ + (lambda (_%hd136096136121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135943135964%_) + _%expr136102136123%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135937135962%_)) - (let ((_%e135940135967%_ + (gx#stx-pair? _%hd136096136121%_)) + (let ((_%e136099136126%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135937135962%_)))) - (let ((_%lp-hd135941135970%_ + (gx#syntax-e _%hd136096136121%_)))) + (let ((_%lp-hd136100136129%_ (let () (declare (not safe)) - (##car _%e135940135967%_))) - (_%lp-tl135942135972%_ + (##car _%e136099136126%_))) + (_%lp-tl136101136131%_ (let () (declare (not safe)) - (##cdr _%e135940135967%_)))) - (_%loop135939135959%_ - _%lp-tl135942135972%_ - (cons _%lp-hd135941135970%_ - _%expr135943135964%_)))) - (let ((_%expr135944135975%_ - (reverse _%expr135943135964%_))) - ((lambda (_%L135978%_) - (let ((__tmp137801 + (##cdr _%e136099136126%_)))) + (_%loop136098136118%_ + _%lp-tl136101136131%_ + (cons _%lp-hd136100136129%_ + _%expr136102136123%_)))) + (let ((_%expr136103136134%_ + (reverse _%expr136102136123%_))) + ((lambda (_%L136137%_) + (let ((__tmp137960 (lambda () - (let* ((_%g135992135999%_ - (lambda (_%g135993135996%_) + (let* ((_%g136151136158%_ + (lambda (_%g136152136155%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135993135996%_)))) - (_%g135991136025%_ - (lambda (_%g135993136002%_) - ((lambda (_%L136004%_) + _%g136152136155%_)))) + (_%g136150136184%_ + (lambda (_%g136152136161%_) + ((lambda (_%L136163%_) (gxc#xform-wrap-source - (cons _%L135914%_ + (cons _%L136073%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135978%_ - _%L135913%_)) - (let ((__tmp137802 - (lambda (_%g136014136018%_ - _%g136015136020%_ - _%g136016136022%_) - (cons (cons _%g136015136020%_ - (cons _%g136014136018%_ + _%L136137%_ + _%L136072%_)) + (let ((__tmp137961 + (lambda (_%g136173136177%_ + _%g136174136179%_ + _%g136175136181%_) + (cons (cons _%g136174136179%_ + (cons _%g136173136177%_ '())) - _%g136016136022%_)))) + _%g136175136181%_)))) (declare (not safe)) (__foldr2 - __tmp137802 + __tmp137961 '() - _%L135978%_ - _%L135913%_))) - _%L136004%_)) - _%stx135811%_)) - _%g135993136002%_)))) + _%L136137%_ + _%L136072%_))) + _%L136163%_)) + _%stx135970%_)) + _%g136152136161%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135991136025%_ - (map (lambda (_%g136027136029%_) + (_%g136150136184%_ + (map (lambda (_%g136186136188%_) (gxc#compile-e__1 - _%self135810%_ - _%g136027136029%_)) - _%L135911%_))))) - (__tmp137799 + _%self135969%_ + _%g136186136188%_)) + _%L136070%_))))) + (__tmp137958 (gxc#xform-let-locals - (let ((__tmp137800 - (lambda (_%g136031136034%_ - _%g136032136036%_) - (cons _%g136031136034%_ - _%g136032136036%_)))) + (let ((__tmp137959 + (lambda (_%g136190136193%_ + _%g136191136195%_) + (cons _%g136190136193%_ + _%g136191136195%_)))) (declare (not safe)) (__foldr1 - __tmp137800 + __tmp137959 '() - _%L135913%_))))) + _%L136072%_))))) (declare (not safe)) (__call-with-parameters - __tmp137801 + __tmp137960 gxc#current-compile-local-env - __tmp137799))) - _%expr135944135975%_)))))) - (_%loop135939135959%_ _%target135936135954%_ '())) + __tmp137958))) + _%expr136103136134%_)))))) + (_%loop136098136118%_ _%target136095136113%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135933135949%_ - _%g135934135952%_))))) - (_%g135933135949%_ - _%g135934135952%_))))) - (_%g135932136039%_ - (map (lambda (_%g136041136043%_) + (_%g136092136108%_ + _%g136093136111%_))))) + (_%g136092136108%_ + _%g136093136111%_))))) + (_%g136091136198%_ + (map (lambda (_%g136200136202%_) (gxc#compile-e__1 - _%self135810%_ - _%g136041136043%_)) - (let ((__tmp137803 - (lambda (_%g136045136048%_ - _%g136046136050%_) - (cons _%g136045136048%_ - _%g136046136050%_)))) + _%self135969%_ + _%g136200136202%_)) + (let ((__tmp137962 + (lambda (_%g136204136207%_ + _%g136205136209%_) + (cons _%g136204136207%_ + _%g136205136209%_)))) (declare (not safe)) (__foldr1 - __tmp137803 + __tmp137962 '() - _%L135912%_)))))) - _%tl135824135864%_ - _%expr135834135906%_ - _%hd135835135908%_ - _%hd135820135854%_)))))) + _%L136071%_)))))) + _%tl135983136023%_ + _%expr135993136065%_ + _%hd135994136067%_ + _%hd135979136013%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135828135872%_ - _%target135825135867%_ + (_%loop135987136031%_ + _%target135984136026%_ '() '())) - (_%g135813135846%_ - _%g135814135849%_))))) - (_%g135813135846%_ _%g135814135849%_)))) - (_%g135813135846%_ _%g135814135849%_)))) - (_%g135813135846%_ _%g135814135849%_))))) - (_%g135812136053%_ _%stx135811%_)))) + (_%g135972136005%_ + _%g135973136008%_))))) + (_%g135972136005%_ _%g135973136008%_)))) + (_%g135972136005%_ _%g135973136008%_)))) + (_%g135972136005%_ _%g135973136008%_))))) + (_%g135971136212%_ _%stx135970%_)))) (define gxc#xform-letrec-values% - (lambda (_%self135564%_ _%stx135565%_) - (let* ((_%g135567135600%_ - (lambda (_%g135568135597%_) + (lambda (_%self135723%_ _%stx135724%_) + (let* ((_%g135726135759%_ + (lambda (_%g135727135756%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135568135597%_)))) - (_%g135566135807%_ - (lambda (_%g135568135603%_) + _%g135727135756%_)))) + (_%g135725135966%_ + (lambda (_%g135727135762%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135568135603%_)) - (let ((_%e135573135605%_ + (gx#stx-pair? _%g135727135762%_)) + (let ((_%e135732135764%_ (let () (declare (not safe)) - (gx#stx-e _%g135568135603%_)))) - (let ((_%hd135574135608%_ + (gx#stx-e _%g135727135762%_)))) + (let ((_%hd135733135767%_ (let () (declare (not safe)) - (##car _%e135573135605%_))) - (_%tl135575135610%_ + (##car _%e135732135764%_))) + (_%tl135734135769%_ (let () (declare (not safe)) - (##cdr _%e135573135605%_)))) + (##cdr _%e135732135764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135575135610%_)) - (let ((_%e135576135613%_ + (gx#stx-pair? _%tl135734135769%_)) + (let ((_%e135735135772%_ (let () (declare (not safe)) - (gx#stx-e _%tl135575135610%_)))) - (let ((_%hd135577135616%_ + (gx#stx-e _%tl135734135769%_)))) + (let ((_%hd135736135775%_ (let () (declare (not safe)) - (##car _%e135576135613%_))) - (_%tl135578135618%_ + (##car _%e135735135772%_))) + (_%tl135737135777%_ (let () (declare (not safe)) - (##cdr _%e135576135613%_)))) + (##cdr _%e135735135772%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135577135616%_)) - (let ((_g137804_ + (gx#stx-pair/null? _%hd135736135775%_)) + (let ((_g137963_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135577135616%_ + _%hd135736135775%_ '0)))) (begin - (let ((_g137805_ + (let ((_g137964_ (let () (declare (not safe)) - (if (##values? _g137804_) + (if (##values? _g137963_) (##vector-length - _g137804_) + _g137963_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137805_ 2))) + (##fx= _g137964_ 2))) (error "Context expects 2 values" - _g137805_))) - (let ((_%target135579135621%_ + _g137964_))) + (let ((_%target135738135780%_ (let () (declare (not safe)) - (##vector-ref _g137804_ 0))) - (_%tl135581135623%_ + (##vector-ref _g137963_ 0))) + (_%tl135740135782%_ (let () (declare (not safe)) (##vector-ref - _g137804_ + _g137963_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135581135623%_)) - (letrec ((_%loop135582135626%_ - (lambda (_%hd135580135629%_ + _%tl135740135782%_)) + (letrec ((_%loop135741135785%_ + (lambda (_%hd135739135788%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135586135631%_ - _%hd135587135633%_) + _%expr135745135790%_ + _%hd135746135792%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135580135629%_)) - (let ((_%e135583135636%_ + (gx#stx-pair? _%hd135739135788%_)) + (let ((_%e135742135795%_ (let () (declare (not safe)) - (gx#stx-e _%hd135580135629%_)))) - (let ((_%lp-hd135584135639%_ + (gx#stx-e _%hd135739135788%_)))) + (let ((_%lp-hd135743135798%_ (let () (declare (not safe)) - (##car _%e135583135636%_))) - (_%lp-tl135585135641%_ + (##car _%e135742135795%_))) + (_%lp-tl135744135800%_ (let () (declare (not safe)) - (##cdr _%e135583135636%_)))) + (##cdr _%e135742135795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135584135639%_)) - (let ((_%e135590135644%_ + (gx#stx-pair? _%lp-hd135743135798%_)) + (let ((_%e135749135803%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135584135639%_)))) - (let ((_%hd135591135647%_ + (gx#stx-e _%lp-hd135743135798%_)))) + (let ((_%hd135750135806%_ (let () (declare (not safe)) - (##car _%e135590135644%_))) - (_%tl135592135649%_ + (##car _%e135749135803%_))) + (_%tl135751135808%_ (let () (declare (not safe)) - (##cdr _%e135590135644%_)))) + (##cdr _%e135749135803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135592135649%_)) - (let ((_%e135593135652%_ + (gx#stx-pair? _%tl135751135808%_)) + (let ((_%e135752135811%_ (let () (declare (not safe)) (gx#stx-e - _%tl135592135649%_)))) - (let ((_%hd135594135655%_ + _%tl135751135808%_)))) + (let ((_%hd135753135814%_ (let () (declare (not safe)) - (##car _%e135593135652%_))) - (_%tl135595135657%_ + (##car _%e135752135811%_))) + (_%tl135754135816%_ (let () (declare (not safe)) - (##cdr _%e135593135652%_)))) + (##cdr _%e135752135811%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135595135657%_)) - (_%loop135582135626%_ - _%lp-tl135585135641%_ - (cons _%hd135594135655%_ - _%expr135586135631%_) - (cons _%hd135591135647%_ - _%hd135587135633%_)) - (_%g135567135600%_ - _%g135568135603%_)))) - (_%g135567135600%_ - _%g135568135603%_)))) - (_%g135567135600%_ _%g135568135603%_)))) - (let ((_%expr135588135660%_ - (reverse _%expr135586135631%_)) - (_%hd135589135662%_ - (reverse _%hd135587135633%_))) - ((lambda (_%L135665%_ - _%L135666%_ - _%L135667%_ - _%L135668%_) - (let ((__tmp137808 + _%tl135754135816%_)) + (_%loop135741135785%_ + _%lp-tl135744135800%_ + (cons _%hd135753135814%_ + _%expr135745135790%_) + (cons _%hd135750135806%_ + _%hd135746135792%_)) + (_%g135726135759%_ + _%g135727135762%_)))) + (_%g135726135759%_ + _%g135727135762%_)))) + (_%g135726135759%_ _%g135727135762%_)))) + (let ((_%expr135747135819%_ + (reverse _%expr135745135790%_)) + (_%hd135748135821%_ + (reverse _%hd135746135792%_))) + ((lambda (_%L135824%_ + _%L135825%_ + _%L135826%_ + _%L135827%_) + (let ((__tmp137967 (lambda () - (let* ((_%g135688135704%_ - (lambda (_%g135689135701%_) + (let* ((_%g135847135863%_ + (lambda (_%g135848135860%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135689135701%_)))) - (_%g135687135786%_ - (lambda (_%g135689135707%_) + _%g135848135860%_)))) + (_%g135846135945%_ + (lambda (_%g135848135866%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135689135707%_)) - (let ((_g137809_ + _%g135848135866%_)) + (let ((_g137968_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135689135707%_ + _%g135848135866%_ '0)))) (begin - (let ((_g137810_ + (let ((_g137969_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g137809_) - (##vector-length _g137809_) + (if (##values? _g137968_) + (##vector-length _g137968_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137810_ 2))) - (error "Context expects 2 values" _g137810_))) - (let ((_%target135691135709%_ + (if (not (let () (declare (not safe)) (##fx= _g137969_ 2))) + (error "Context expects 2 values" _g137969_))) + (let ((_%target135850135868%_ (let () (declare (not safe)) - (##vector-ref _g137809_ 0))) - (_%tl135693135711%_ + (##vector-ref _g137968_ 0))) + (_%tl135852135870%_ (let () (declare (not safe)) - (##vector-ref _g137809_ 1)))) + (##vector-ref _g137968_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135693135711%_)) - (letrec ((_%loop135694135714%_ - (lambda (_%hd135692135717%_ - _%expr135698135719%_) + (gx#stx-null? _%tl135852135870%_)) + (letrec ((_%loop135853135873%_ + (lambda (_%hd135851135876%_ + _%expr135857135878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135692135717%_)) - (let ((_%e135695135722%_ + (gx#stx-pair? _%hd135851135876%_)) + (let ((_%e135854135881%_ (let () (declare (not safe)) (gx#syntax-e - _%hd135692135717%_)))) - (let ((_%lp-hd135696135725%_ + _%hd135851135876%_)))) + (let ((_%lp-hd135855135884%_ (let () (declare (not safe)) - (##car _%e135695135722%_))) - (_%lp-tl135697135727%_ + (##car _%e135854135881%_))) + (_%lp-tl135856135886%_ (let () (declare (not safe)) - (##cdr _%e135695135722%_)))) - (_%loop135694135714%_ - _%lp-tl135697135727%_ - (cons _%lp-hd135696135725%_ - _%expr135698135719%_)))) - (let ((_%expr135699135730%_ - (reverse _%expr135698135719%_))) - ((lambda (_%L135733%_) - (let* ((_%g135747135754%_ - (lambda (_%g135748135751%_) + (##cdr _%e135854135881%_)))) + (_%loop135853135873%_ + _%lp-tl135856135886%_ + (cons _%lp-hd135855135884%_ + _%expr135857135878%_)))) + (let ((_%expr135858135889%_ + (reverse _%expr135857135878%_))) + ((lambda (_%L135892%_) + (let* ((_%g135906135913%_ + (lambda (_%g135907135910%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135748135751%_)))) - (_%g135746135779%_ - (lambda (_%g135748135757%_) - ((lambda (_%L135759%_) + _%g135907135910%_)))) + (_%g135905135938%_ + (lambda (_%g135907135916%_) + ((lambda (_%L135918%_) (gxc#xform-wrap-source - (cons _%L135668%_ + (cons _%L135827%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135733%_ - _%L135667%_)) - (let ((__tmp137811 - (lambda (_%g135768135772%_ - _%g135769135774%_ - _%g135770135776%_) - (cons (cons _%g135769135774%_ - (cons _%g135768135772%_ + _%L135892%_ + _%L135826%_)) + (let ((__tmp137970 + (lambda (_%g135927135931%_ + _%g135928135933%_ + _%g135929135935%_) + (cons (cons _%g135928135933%_ + (cons _%g135927135931%_ '())) - _%g135770135776%_)))) + _%g135929135935%_)))) (declare (not safe)) (__foldr2 - __tmp137811 + __tmp137970 '() - _%L135733%_ - _%L135667%_))) - _%L135759%_)) - _%stx135565%_)) - _%g135748135757%_)))) + _%L135892%_ + _%L135826%_))) + _%L135918%_)) + _%stx135724%_)) + _%g135907135916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135746135779%_ - (map (lambda (_%g135781135783%_) + (_%g135905135938%_ + (map (lambda (_%g135940135942%_) (gxc#compile-e__1 - _%self135564%_ - _%g135781135783%_)) - _%L135665%_)))) - _%expr135699135730%_)))))) - (_%loop135694135714%_ _%target135691135709%_ '())) - (_%g135688135704%_ _%g135689135707%_))))) + _%self135723%_ + _%g135940135942%_)) + _%L135824%_)))) + _%expr135858135889%_)))))) + (_%loop135853135873%_ _%target135850135868%_ '())) + (_%g135847135863%_ _%g135848135866%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135688135704%_ - _%g135689135707%_))))) - (_%g135687135786%_ - (map (lambda (_%g135788135790%_) + (_%g135847135863%_ + _%g135848135866%_))))) + (_%g135846135945%_ + (map (lambda (_%g135947135949%_) (gxc#compile-e__1 - _%self135564%_ - _%g135788135790%_)) - (let ((__tmp137812 - (lambda (_%g135792135795%_ - _%g135793135797%_) - (cons _%g135792135795%_ - _%g135793135797%_)))) + _%self135723%_ + _%g135947135949%_)) + (let ((__tmp137971 + (lambda (_%g135951135954%_ + _%g135952135956%_) + (cons _%g135951135954%_ + _%g135952135956%_)))) (declare (not safe)) (__foldr1 - __tmp137812 + __tmp137971 '() - _%L135666%_))))))) - (__tmp137806 + _%L135825%_))))))) + (__tmp137965 (gxc#xform-let-locals - (let ((__tmp137807 - (lambda (_%g135799135802%_ - _%g135800135804%_) - (cons _%g135799135802%_ - _%g135800135804%_)))) + (let ((__tmp137966 + (lambda (_%g135958135961%_ + _%g135959135963%_) + (cons _%g135958135961%_ + _%g135959135963%_)))) (declare (not safe)) (__foldr1 - __tmp137807 + __tmp137966 '() - _%L135667%_))))) + _%L135826%_))))) (declare (not safe)) (__call-with-parameters - __tmp137808 + __tmp137967 gxc#current-compile-local-env - __tmp137806))) - _%tl135578135618%_ - _%expr135588135660%_ - _%hd135589135662%_ - _%hd135574135608%_)))))) + __tmp137965))) + _%tl135737135777%_ + _%expr135747135819%_ + _%hd135748135821%_ + _%hd135733135767%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135582135626%_ - _%target135579135621%_ + (_%loop135741135785%_ + _%target135738135780%_ '() '())) - (_%g135567135600%_ - _%g135568135603%_))))) - (_%g135567135600%_ _%g135568135603%_)))) - (_%g135567135600%_ _%g135568135603%_)))) - (_%g135567135600%_ _%g135568135603%_))))) - (_%g135566135807%_ _%stx135565%_)))) + (_%g135726135759%_ + _%g135727135762%_))))) + (_%g135726135759%_ _%g135727135762%_)))) + (_%g135726135759%_ _%g135727135762%_)))) + (_%g135726135759%_ _%g135727135762%_))))) + (_%g135725135966%_ _%stx135724%_)))) (define gxc#xform-let-locals - (lambda (_%bindings135431%_) - (letrec ((_%flatten135433%_ - (lambda (_%maybe-lst135491%_) + (lambda (_%bindings135590%_) + (letrec ((_%flatten135592%_ + (lambda (_%maybe-lst135650%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst135491%_)) - (cons _%maybe-lst135491%_ '()) - (let _%loop135493%_ ((_%rest135495%_ - _%maybe-lst135491%_) - (_%result135496%_ '())) - (let* ((_%__stx137700137701%_ _%rest135495%_) - (_%g135500135512%_ + (gx#identifier? _%maybe-lst135650%_)) + (cons _%maybe-lst135650%_ '()) + (let _%loop135652%_ ((_%rest135654%_ + _%maybe-lst135650%_) + (_%result135655%_ '())) + (let* ((_%__stx137859137860%_ _%rest135654%_) + (_%g135659135671%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137700137701%_))))) - (let ((_%__kont137702137703%_ - (lambda (_%L135550%_ _%L135551%_) - (_%loop135493%_ - _%L135550%_ - (let ((__tmp137813 - (_%flatten135433%_ _%L135551%_))) + _%__stx137859137860%_))))) + (let ((_%__kont137861137862%_ + (lambda (_%L135709%_ _%L135710%_) + (_%loop135652%_ + _%L135709%_ + (let ((__tmp137972 + (_%flatten135592%_ _%L135710%_))) (declare (not safe)) (__foldl1 cons - _%result135496%_ - __tmp137813))))) - (_%__kont137704137705%_ - (lambda (_%L135524%_) - (cons _%L135524%_ _%result135496%_))) - (_%__kont137706137707%_ - (lambda () _%result135496%_))) - (let ((_%g135498135537%_ + _%result135655%_ + __tmp137972))))) + (_%__kont137863137864%_ + (lambda (_%L135683%_) + (cons _%L135683%_ _%result135655%_))) + (_%__kont137865137866%_ + (lambda () _%result135655%_))) + (let ((_%g135657135696%_ (lambda () - (let ((_%L135524%_ - _%__stx137700137701%_)) + (let ((_%L135683%_ + _%__stx137859137860%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135524%_)) - (_%__kont137704137705%_ - _%L135524%_) - (_%__kont137706137707%_)))))) + (gx#identifier? _%L135683%_)) + (_%__kont137863137864%_ + _%L135683%_) + (_%__kont137865137866%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137700137701%_)) - (let ((_%e135504135542%_ + (gx#stx-pair? _%__stx137859137860%_)) + (let ((_%e135663135701%_ (let () (declare (not safe)) (gx#stx-e - _%__stx137700137701%_)))) - (let ((_%tl135506135547%_ + _%__stx137859137860%_)))) + (let ((_%tl135665135706%_ (let () (declare (not safe)) - (##cdr _%e135504135542%_))) - (_%hd135505135545%_ + (##cdr _%e135663135701%_))) + (_%hd135664135704%_ (let () (declare (not safe)) - (##car _%e135504135542%_)))) - (_%__kont137702137703%_ - _%tl135506135547%_ - _%hd135505135545%_))) + (##car _%e135663135701%_)))) + (_%__kont137861137862%_ + _%tl135665135706%_ + _%hd135664135704%_))) (let () (declare (not safe)) - (_%g135498135537%_))))))))))) - (let _%loop135435%_ ((_%rest135437%_ - (_%flatten135433%_ _%bindings135431%_)) - (_%locals135438%_ + (_%g135657135696%_))))))))))) + (let _%loop135594%_ ((_%rest135596%_ + (_%flatten135592%_ _%bindings135590%_)) + (_%locals135597%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest135439135450%_ _%rest135437%_) - (_%E135443135454%_ + (let* ((_%rest135598135609%_ _%rest135596%_) + (_%E135602135613%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest135439135450%_ + _%rest135598135609%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K135446135479%_ - (lambda (_%rest135476%_ _%id135477%_) - (_%loop135435%_ - _%rest135476%_ + (let ((_%K135605135638%_ + (lambda (_%rest135635%_ _%id135636%_) + (_%loop135594%_ + _%rest135635%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135477%_)) - _%locals135438%_)))) - (_%K135445135468%_ - (lambda (_%id135466%_) + (gxc#identifier-symbol _%id135636%_)) + _%locals135597%_)))) + (_%K135604135627%_ + (lambda (_%id135625%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135466%_)) - _%locals135438%_))) - (_%K135444135459%_ (lambda () _%locals135438%_))) - (let ((_%try-match135441135473%_ + (gxc#identifier-symbol _%id135625%_)) + _%locals135597%_))) + (_%K135603135618%_ (lambda () _%locals135597%_))) + (let ((_%try-match135600135632%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest135439135450%_)) - (let ((_%id135471%_ _%rest135439135450%_)) - (_%K135445135468%_ _%id135471%_)) - (_%K135444135459%_))))) - (if (pair? _%rest135439135450%_) - (let ((_%tl135448135484%_ + (gx#identifier? _%rest135598135609%_)) + (let ((_%id135630%_ _%rest135598135609%_)) + (_%K135604135627%_ _%id135630%_)) + (_%K135603135618%_))))) + (if (pair? _%rest135598135609%_) + (let ((_%tl135607135643%_ (let () (declare (not safe)) - (##cdr _%rest135439135450%_))) - (_%hd135447135482%_ + (##cdr _%rest135598135609%_))) + (_%hd135606135641%_ (let () (declare (not safe)) - (##car _%rest135439135450%_)))) + (##car _%rest135598135609%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd135447135482%_)) - (let ((_%id135487%_ _%hd135447135482%_) - (_%rest135489%_ _%tl135448135484%_)) - (_%K135446135479%_ _%rest135489%_ _%id135487%_)) - (_%K135444135459%_))) - (_%try-match135441135473%_))))))))) + (gx#identifier? _%hd135606135641%_)) + (let ((_%id135646%_ _%hd135606135641%_) + (_%rest135648%_ _%tl135607135643%_)) + (_%K135605135638%_ _%rest135648%_ _%id135646%_)) + (_%K135603135618%_))) + (_%try-match135600135632%_))))))))) (define gxc#xform-operands - (lambda (_%self135383%_ _%stx135384%_) - (let* ((_%g135386135397%_ - (lambda (_%g135387135394%_) + (lambda (_%self135542%_ _%stx135543%_) + (let* ((_%g135545135556%_ + (lambda (_%g135546135553%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135387135394%_)))) - (_%g135385135428%_ - (lambda (_%g135387135400%_) + _%g135546135553%_)))) + (_%g135544135587%_ + (lambda (_%g135546135559%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135387135400%_)) - (let ((_%e135390135402%_ + (gx#stx-pair? _%g135546135559%_)) + (let ((_%e135549135561%_ (let () (declare (not safe)) - (gx#stx-e _%g135387135400%_)))) - (let ((_%hd135391135405%_ + (gx#stx-e _%g135546135559%_)))) + (let ((_%hd135550135564%_ (let () (declare (not safe)) - (##car _%e135390135402%_))) - (_%tl135392135407%_ + (##car _%e135549135561%_))) + (_%tl135551135566%_ (let () (declare (not safe)) - (##cdr _%e135390135402%_)))) - ((lambda (_%L135410%_ _%L135411%_) - (let ((_%rands135426%_ - (map (lambda (_%g135421135423%_) + (##cdr _%e135549135561%_)))) + ((lambda (_%L135569%_ _%L135570%_) + (let ((_%rands135585%_ + (map (lambda (_%g135580135582%_) (gxc#compile-e__1 - _%self135383%_ - _%g135421135423%_)) - _%L135410%_))) + _%self135542%_ + _%g135580135582%_)) + _%L135569%_))) (gxc#xform-wrap-source - (cons _%L135411%_ _%rands135426%_) - _%stx135384%_))) - _%tl135392135407%_ - _%hd135391135405%_))) - (_%g135386135397%_ _%g135387135400%_))))) - (_%g135385135428%_ _%stx135384%_)))) + (cons _%L135570%_ _%rands135585%_) + _%stx135543%_))) + _%tl135551135566%_ + _%hd135550135564%_))) + (_%g135545135556%_ _%g135546135559%_))))) + (_%g135544135587%_ _%stx135543%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self135313%_ _%stx135314%_) - (let* ((_%g135316135333%_ - (lambda (_%g135317135330%_) + (lambda (_%self135472%_ _%stx135473%_) + (let* ((_%g135475135492%_ + (lambda (_%g135476135489%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135317135330%_)))) - (_%g135315135380%_ - (lambda (_%g135317135336%_) + _%g135476135489%_)))) + (_%g135474135539%_ + (lambda (_%g135476135495%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135317135336%_)) - (let ((_%e135320135338%_ + (gx#stx-pair? _%g135476135495%_)) + (let ((_%e135479135497%_ (let () (declare (not safe)) - (gx#stx-e _%g135317135336%_)))) - (let ((_%hd135321135341%_ + (gx#stx-e _%g135476135495%_)))) + (let ((_%hd135480135500%_ (let () (declare (not safe)) - (##car _%e135320135338%_))) - (_%tl135322135343%_ + (##car _%e135479135497%_))) + (_%tl135481135502%_ (let () (declare (not safe)) - (##cdr _%e135320135338%_)))) + (##cdr _%e135479135497%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135322135343%_)) - (let ((_%e135323135346%_ + (gx#stx-pair? _%tl135481135502%_)) + (let ((_%e135482135505%_ (let () (declare (not safe)) - (gx#stx-e _%tl135322135343%_)))) - (let ((_%hd135324135349%_ + (gx#stx-e _%tl135481135502%_)))) + (let ((_%hd135483135508%_ (let () (declare (not safe)) - (##car _%e135323135346%_))) - (_%tl135325135351%_ + (##car _%e135482135505%_))) + (_%tl135484135510%_ (let () (declare (not safe)) - (##cdr _%e135323135346%_)))) + (##cdr _%e135482135505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135325135351%_)) - (let ((_%e135326135354%_ + (gx#stx-pair? _%tl135484135510%_)) + (let ((_%e135485135513%_ (let () (declare (not safe)) - (gx#stx-e _%tl135325135351%_)))) - (let ((_%hd135327135357%_ + (gx#stx-e _%tl135484135510%_)))) + (let ((_%hd135486135516%_ (let () (declare (not safe)) - (##car _%e135326135354%_))) - (_%tl135328135359%_ + (##car _%e135485135513%_))) + (_%tl135487135518%_ (let () (declare (not safe)) - (##cdr _%e135326135354%_)))) + (##cdr _%e135485135513%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135328135359%_)) - ((lambda (_%L135362%_ - _%L135363%_) - (let ((_%expr135378%_ + _%tl135487135518%_)) + ((lambda (_%L135521%_ + _%L135522%_) + (let ((_%expr135537%_ (gxc#compile-e__1 - _%self135313%_ - _%L135362%_))) + _%self135472%_ + _%L135521%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L135363%_ - (cons _%expr135378%_ + (cons _%L135522%_ + (cons _%expr135537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135314%_))) - _%hd135327135357%_ - _%hd135324135349%_) - (_%g135316135333%_ - _%g135317135336%_)))) - (_%g135316135333%_ _%g135317135336%_)))) - (_%g135316135333%_ _%g135317135336%_)))) - (_%g135316135333%_ _%g135317135336%_))))) - (_%g135315135380%_ _%stx135314%_)))))) + _%stx135473%_))) + _%hd135486135516%_ + _%hd135483135508%_) + (_%g135475135492%_ + _%g135476135495%_)))) + (_%g135475135492%_ _%g135476135495%_)))) + (_%g135475135492%_ _%g135476135495%_)))) + (_%g135475135492%_ _%g135476135495%_))))) + (_%g135474135539%_ _%stx135473%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index d24f873d8..bd0c444de 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]#_g137841_| + (define |gxc[1]#_g138000_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137843_| + (define |gxc[1]#_g138002_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137845_| + (define |gxc[1]#_g138004_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137847_| + (define |gxc[1]#_g138006_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137849_| + (define |gxc[1]#_g138008_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137851_| + (define |gxc[1]#_g138010_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137853_| + (define |gxc[1]#_g138012_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137854_| + (define |gxc[1]#_g138013_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137856_| + (define |gxc[1]#_g138015_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137858_| + (define |gxc[1]#_g138017_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137860_| + (define |gxc[1]#_g138019_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137862_| + (define |gxc[1]#_g138021_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137864_| + (define |gxc[1]#_g138023_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137866_| + (define |gxc[1]#_g138025_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137868_| + (define |gxc[1]#_g138027_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137870_| + (define |gxc[1]#_g138029_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137872_| + (define |gxc[1]#_g138031_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137874_| + (define |gxc[1]#_g138033_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137875_| + (define |gxc[1]#_g138034_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137877_| + (define |gxc[1]#_g138036_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137879_| + (define |gxc[1]#_g138038_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137881_| + (define |gxc[1]#_g138040_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137883_| + (define |gxc[1]#_g138042_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137885_| + (define |gxc[1]#_g138044_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137887_| + (define |gxc[1]#_g138046_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137889_| + (define |gxc[1]#_g138048_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137891_| + (define |gxc[1]#_g138050_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137893_| + (define |gxc[1]#_g138052_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137895_| + (define |gxc[1]#_g138054_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137896_| + (define |gxc[1]#_g138055_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137898_| + (define |gxc[1]#_g138057_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137900_| + (define |gxc[1]#_g138059_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137902_| + (define |gxc[1]#_g138061_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137904_| + (define |gxc[1]#_g138063_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137906_| + (define |gxc[1]#_g138065_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137908_| + (define |gxc[1]#_g138067_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137910_| + (define |gxc[1]#_g138069_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137911_| + (define |gxc[1]#_g138070_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137913_| + (define |gxc[1]#_g138072_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137915_| + (define |gxc[1]#_g138074_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137917_| + (define |gxc[1]#_g138076_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx133855%_) - (let* ((_%__stx137556137557%_ _%stx133855%_) - (_%g133861134055%_ + (lambda (_%stx134014%_) + (let* ((_%__stx137715137716%_ _%stx134014%_) + (_%g134020134214%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137556137557%_))))) - (let ((_%__kont137559137560%_ - (lambda (_%L135275%_ _%L135277%_ _%L135278%_ _%L135279%_) + _%__stx137715137716%_))))) + (let ((_%__kont137718137719%_ + (lambda (_%L135434%_ _%L135436%_ _%L135437%_ _%L135438%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L135279%_ - (cons (cons _%L135278%_ '()) - (cons _%L135277%_ _%L135275%_)))))) - (_%__kont137561137562%_ - (lambda (_%L135029%_ - _%L135031%_ - _%L135032%_ - _%L135033%_ - _%L135034%_) - (let* ((_%g135065135093%_ - (lambda (_%g135066135089%_) + (cons _%L135438%_ + (cons (cons _%L135437%_ '()) + (cons _%L135436%_ _%L135434%_)))))) + (_%__kont137720137721%_ + (lambda (_%L135188%_ + _%L135190%_ + _%L135191%_ + _%L135192%_ + _%L135193%_) + (let* ((_%g135224135252%_ + (lambda (_%g135225135248%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135066135089%_)))) - (_%g135064135213%_ - (lambda (_%g135066135097%_) + _%g135225135248%_)))) + (_%g135223135372%_ + (lambda (_%g135225135256%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135066135097%_)) - (let ((_%e135070135100%_ + (gx#stx-pair? _%g135225135256%_)) + (let ((_%e135229135259%_ (let () (declare (not safe)) - (gx#syntax-e _%g135066135097%_)))) - (let ((_%hd135071135104%_ + (gx#syntax-e _%g135225135256%_)))) + (let ((_%hd135230135263%_ (let () (declare (not safe)) - (##car _%e135070135100%_))) - (_%tl135072135107%_ + (##car _%e135229135259%_))) + (_%tl135231135266%_ (let () (declare (not safe)) - (##cdr _%e135070135100%_)))) + (##cdr _%e135229135259%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135072135107%_)) - (let ((_%e135073135110%_ + (gx#stx-pair? _%tl135231135266%_)) + (let ((_%e135232135269%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135072135107%_)))) - (let ((_%hd135074135114%_ + _%tl135231135266%_)))) + (let ((_%hd135233135273%_ (let () (declare (not safe)) - (##car _%e135073135110%_))) - (_%tl135075135117%_ + (##car _%e135232135269%_))) + (_%tl135234135276%_ (let () (declare (not safe)) - (##cdr _%e135073135110%_)))) + (##cdr _%e135232135269%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd135074135114%_)) - (let ((_g137814_ + _%hd135233135273%_)) + (let ((_g137973_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135074135114%_ + _%hd135233135273%_ '0)))) (begin - (let ((_g137815_ + (let ((_g137974_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137814_) - (##vector-length _g137814_) + _g137973_) + (##vector-length _g137973_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137815_ 2))) - (error "Context expects 2 values" _g137815_))) + (if (not (let () (declare (not safe)) (##fx= _g137974_ 2))) + (error "Context expects 2 values" _g137974_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target135076135120%_ + (let ((_%target135235135279%_ (let () (declare (not safe)) (##vector-ref - _g137814_ + _g137973_ 0))) - (_%tl135078135123%_ + (_%tl135237135282%_ (let () (declare (not safe)) (##vector-ref - _g137814_ + _g137973_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135078135123%_)) - (letrec ((_%loop135079135126%_ + _%tl135237135282%_)) + (letrec ((_%loop135238135285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd135077135130%_ - _%super-bind-methods!135083135133%_) + (lambda (_%hd135236135289%_ + _%super-bind-methods!135242135292%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135077135130%_)) - (let ((_%e135080135136%_ + (gx#stx-pair? _%hd135236135289%_)) + (let ((_%e135239135295%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135077135130%_)))) - (let ((_%lp-hd135081135140%_ + (gx#syntax-e _%hd135236135289%_)))) + (let ((_%lp-hd135240135299%_ (let () (declare (not safe)) - (##car _%e135080135136%_))) - (_%lp-tl135082135143%_ + (##car _%e135239135295%_))) + (_%lp-tl135241135302%_ (let () (declare (not safe)) - (##cdr _%e135080135136%_)))) - (_%loop135079135126%_ - _%lp-tl135082135143%_ - (cons _%lp-hd135081135140%_ - _%super-bind-methods!135083135133%_)))) - (let ((_%super-bind-methods!135084135146%_ - (reverse _%super-bind-methods!135083135133%_))) + (##cdr _%e135239135295%_)))) + (_%loop135238135285%_ + _%lp-tl135241135302%_ + (cons _%lp-hd135240135299%_ + _%super-bind-methods!135242135292%_)))) + (let ((_%super-bind-methods!135243135305%_ + (reverse _%super-bind-methods!135242135292%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135075135117%_)) - (let ((_%e135085135150%_ + (gx#stx-pair? _%tl135234135276%_)) + (let ((_%e135244135309%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135075135117%_)))) - (let ((_%hd135086135154%_ + _%tl135234135276%_)))) + (let ((_%hd135245135313%_ (let () (declare (not safe)) - (##car _%e135085135150%_))) - (_%tl135087135157%_ + (##car _%e135244135309%_))) + (_%tl135246135316%_ (let () (declare (not safe)) - (##cdr _%e135085135150%_)))) + (##cdr _%e135244135309%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135087135157%_)) - ((lambda (_%L135160%_ - _%L135162%_ - _%L135163%_) + _%tl135246135316%_)) + ((lambda (_%L135319%_ + _%L135321%_ + _%L135322%_) (cons (let () (declare (not safe)) @@ -454,22 +454,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L135034%_ - (let ((__tmp137816 - (lambda (_%g135190135193%_ - _%g135191135196%_) - (cons _%g135190135193%_ - _%g135191135196%_)))) + (cons (cons _%L135193%_ + (let ((__tmp137975 + (lambda (_%g135349135352%_ + _%g135350135355%_) + (cons _%g135349135352%_ + _%g135350135355%_)))) (declare (not safe)) (__foldr1 - __tmp137816 + __tmp137975 '() - _%L135033%_))) - (cons _%L135032%_ '()))) + _%L135192%_))) + (cons _%L135191%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L135163%_ + (cons _%L135322%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -479,234 +479,234 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137819 - (lambda (_%g135185135199%_ _%g135186135202%_) + (let ((__tmp137978 + (lambda (_%g135344135358%_ _%g135345135361%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135185135199%_ '())) - _%g135186135202%_))) - (__tmp137817 + (cons _%g135344135358%_ '())) + _%g135345135361%_))) + (__tmp137976 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135029%_ - _%L135031%_)) - (let ((__tmp137818 - (lambda (_%g135187135205%_ - _%g135188135208%_ - _%g135189135210%_) + _%L135188%_ + _%L135190%_)) + (let ((__tmp137977 + (lambda (_%g135346135364%_ + _%g135347135367%_ + _%g135348135369%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L135160%_ + (cons _%L135319%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135188135208%_ '())) - (cons _%g135187135205%_ '())))) + (cons _%g135347135367%_ '())) + (cons _%g135346135364%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135189135210%_)))) + _%g135348135369%_)))) (declare (not safe)) (__foldr2 - __tmp137818 + __tmp137977 '() - _%L135029%_ - _%L135031%_))))) + _%L135188%_ + _%L135190%_))))) (declare (not safe)) - (__foldr1 __tmp137819 __tmp137817 _%L135162%_))) + (__foldr1 __tmp137978 __tmp137976 _%L135321%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135086135154%_ - _%super-bind-methods!135084135146%_ - _%hd135071135104%_) - (_%g135065135093%_ - _%g135066135097%_)))) - (_%g135065135093%_ - _%g135066135097%_))))))) - (_%loop135079135126%_ _%target135076135120%_ '())) - (_%g135065135093%_ _%g135066135097%_))))) + _%hd135245135313%_ + _%super-bind-methods!135243135305%_ + _%hd135230135263%_) + (_%g135224135252%_ + _%g135225135256%_)))) + (_%g135224135252%_ + _%g135225135256%_))))))) + (_%loop135238135285%_ _%target135235135279%_ '())) + (_%g135224135252%_ _%g135225135256%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135065135093%_ - _%g135066135097%_)))) - (_%g135065135093%_ - _%g135066135097%_)))) - (_%g135065135093%_ _%g135066135097%_))))) - (_%g135064135213%_ + (_%g135224135252%_ + _%g135225135256%_)))) + (_%g135224135252%_ + _%g135225135256%_)))) + (_%g135224135252%_ _%g135225135256%_))))) + (_%g135223135372%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L135034%_ - _%L135034%_ + _%L135193%_ + _%L135193%_ '"-bind-methods!")) - (map (lambda (_%super135217%_) + (map (lambda (_%super135376%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135217%_ - _%super135217%_ + _%super135376%_ + _%super135376%_ '"-bind-methods!"))) - (let ((__tmp137820 - (lambda (_%g135219135222%_ - _%g135220135225%_) - (cons _%g135219135222%_ - _%g135220135225%_)))) + (let ((__tmp137979 + (lambda (_%g135378135381%_ + _%g135379135384%_) + (cons _%g135378135381%_ + _%g135379135384%_)))) (declare (not safe)) - (__foldr1 __tmp137820 '() _%L135033%_))) + (__foldr1 __tmp137979 '() _%L135192%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L135034%_ - _%L135034%_ + _%L135193%_ + _%L135193%_ '"::t"))))))) - (_%__kont137567137568%_ - (lambda (_%L134660%_ - _%L134662%_ - _%L134663%_ - _%L134664%_ - _%L134665%_ - _%L134666%_ - _%L134667%_) - (let* ((_%g134705134733%_ - (lambda (_%g134706134729%_) + (_%__kont137726137727%_ + (lambda (_%L134819%_ + _%L134821%_ + _%L134822%_ + _%L134823%_ + _%L134824%_ + _%L134825%_ + _%L134826%_) + (let* ((_%g134864134892%_ + (lambda (_%g134865134888%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134706134729%_)))) - (_%g134704134869%_ - (lambda (_%g134706134737%_) + _%g134865134888%_)))) + (_%g134863135028%_ + (lambda (_%g134865134896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134706134737%_)) - (let ((_%e134710134740%_ + (gx#stx-pair? _%g134865134896%_)) + (let ((_%e134869134899%_ (let () (declare (not safe)) - (gx#syntax-e _%g134706134737%_)))) - (let ((_%hd134711134744%_ + (gx#syntax-e _%g134865134896%_)))) + (let ((_%hd134870134903%_ (let () (declare (not safe)) - (##car _%e134710134740%_))) - (_%tl134712134747%_ + (##car _%e134869134899%_))) + (_%tl134871134906%_ (let () (declare (not safe)) - (##cdr _%e134710134740%_)))) + (##cdr _%e134869134899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134712134747%_)) - (let ((_%e134713134750%_ + (gx#stx-pair? _%tl134871134906%_)) + (let ((_%e134872134909%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134712134747%_)))) - (let ((_%hd134714134754%_ + _%tl134871134906%_)))) + (let ((_%hd134873134913%_ (let () (declare (not safe)) - (##car _%e134713134750%_))) - (_%tl134715134757%_ + (##car _%e134872134909%_))) + (_%tl134874134916%_ (let () (declare (not safe)) - (##cdr _%e134713134750%_)))) + (##cdr _%e134872134909%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134714134754%_)) - (let ((_g137821_ + _%hd134873134913%_)) + (let ((_g137980_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134714134754%_ + _%hd134873134913%_ '0)))) (begin - (let ((_g137822_ + (let ((_g137981_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137821_) - (##vector-length _g137821_) + _g137980_) + (##vector-length _g137980_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137822_ 2))) - (error "Context expects 2 values" _g137822_))) + (if (not (let () (declare (not safe)) (##fx= _g137981_ 2))) + (error "Context expects 2 values" _g137981_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134716134760%_ + (let ((_%target134875134919%_ (let () (declare (not safe)) (##vector-ref - _g137821_ + _g137980_ 0))) - (_%tl134718134763%_ + (_%tl134877134922%_ (let () (declare (not safe)) (##vector-ref - _g137821_ + _g137980_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134718134763%_)) - (letrec ((_%loop134719134766%_ + _%tl134877134922%_)) + (letrec ((_%loop134878134925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134717134770%_ - _%super-bind-methods!134723134773%_) + (lambda (_%hd134876134929%_ + _%super-bind-methods!134882134932%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134717134770%_)) - (let ((_%e134720134776%_ + (gx#stx-pair? _%hd134876134929%_)) + (let ((_%e134879134935%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134717134770%_)))) - (let ((_%lp-hd134721134780%_ + (gx#syntax-e _%hd134876134929%_)))) + (let ((_%lp-hd134880134939%_ (let () (declare (not safe)) - (##car _%e134720134776%_))) - (_%lp-tl134722134783%_ + (##car _%e134879134935%_))) + (_%lp-tl134881134942%_ (let () (declare (not safe)) - (##cdr _%e134720134776%_)))) - (_%loop134719134766%_ - _%lp-tl134722134783%_ - (cons _%lp-hd134721134780%_ - _%super-bind-methods!134723134773%_)))) - (let ((_%super-bind-methods!134724134786%_ - (reverse _%super-bind-methods!134723134773%_))) + (##cdr _%e134879134935%_)))) + (_%loop134878134925%_ + _%lp-tl134881134942%_ + (cons _%lp-hd134880134939%_ + _%super-bind-methods!134882134932%_)))) + (let ((_%super-bind-methods!134883134945%_ + (reverse _%super-bind-methods!134882134932%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134715134757%_)) - (let ((_%e134725134790%_ + (gx#stx-pair? _%tl134874134916%_)) + (let ((_%e134884134949%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134715134757%_)))) - (let ((_%hd134726134794%_ + _%tl134874134916%_)))) + (let ((_%hd134885134953%_ (let () (declare (not safe)) - (##car _%e134725134790%_))) - (_%tl134727134797%_ + (##car _%e134884134949%_))) + (_%tl134886134956%_ (let () (declare (not safe)) - (##cdr _%e134725134790%_)))) + (##cdr _%e134884134949%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134727134797%_)) - ((lambda (_%L134800%_ - _%L134802%_ - _%L134803%_) + _%tl134886134956%_)) + ((lambda (_%L134959%_ + _%L134961%_ + _%L134962%_) (cons (let () (declare (not safe)) @@ -717,22 +717,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134665%_ - (let ((__tmp137823 - (lambda (_%g134834134837%_ - _%g134835134840%_) - (cons _%g134834134837%_ - _%g134835134840%_)))) + (cons (cons _%L134824%_ + (let ((__tmp137982 + (lambda (_%g134993134996%_ + _%g134994134999%_) + (cons _%g134993134996%_ + _%g134994134999%_)))) (declare (not safe)) (__foldr1 - __tmp137823 + __tmp137982 '() - _%L134664%_))) - (cons _%L134663%_ '()))) + _%L134823%_))) + (cons _%L134822%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134803%_ + (cons _%L134962%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -742,67 +742,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137826 - (lambda (_%g134829134843%_ _%g134830134846%_) + (let ((__tmp137985 + (lambda (_%g134988135002%_ _%g134989135005%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134829134843%_ '())) - _%g134830134846%_))) - (__tmp137824 + (cons _%g134988135002%_ '())) + _%g134989135005%_))) + (__tmp137983 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134660%_ - _%L134662%_)) - (let ((__tmp137825 - (lambda (_%g134831134849%_ - _%g134832134852%_ - _%g134833134854%_) + _%L134819%_ + _%L134821%_)) + (let ((__tmp137984 + (lambda (_%g134990135008%_ + _%g134991135011%_ + _%g134992135013%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134800%_ + (cons _%L134959%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134832134852%_ '())) - (cons _%g134831134849%_ '())))) + (cons _%g134991135011%_ '())) + (cons _%g134990135008%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134833134854%_)))) + _%g134992135013%_)))) (declare (not safe)) (__foldr2 - __tmp137825 + __tmp137984 '() - _%L134660%_ - _%L134662%_))))) + _%L134819%_ + _%L134821%_))))) (declare (not safe)) - (__foldr1 __tmp137826 __tmp137824 _%L134802%_))) + (__foldr1 __tmp137985 __tmp137983 _%L134961%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134667%_ + (cons (cons _%L134826%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp137827 + (let ((__tmp137986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134827134857%_ _%g134828134860%_) - (cons _%g134827134857%_ _%g134828134860%_)))) + (lambda (_%g134986135016%_ _%g134987135019%_) + (cons _%g134986135016%_ _%g134987135019%_)))) (declare (not safe)) - (__foldr1 __tmp137827 '() _%L134666%_)))) + (__foldr1 __tmp137986 '() _%L134825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134803%_ + (cons _%L134962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134665%_ - (let ((__tmp137828 - (lambda (_%g134825134863%_ + (cons (cons _%L134824%_ + (let ((__tmp137987 + (lambda (_%g134984135022%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134826134866%_) - (cons _%g134825134863%_ _%g134826134866%_)))) + _%g134985135025%_) + (cons _%g134984135022%_ _%g134985135025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp137828 + __tmp137987 '() - _%L134666%_))) + _%L134825%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134726134794%_ - _%super-bind-methods!134724134786%_ - _%hd134711134744%_) - (_%g134705134733%_ - _%g134706134737%_)))) - (_%g134705134733%_ - _%g134706134737%_))))))) - (_%loop134719134766%_ _%target134716134760%_ '())) - (_%g134705134733%_ _%g134706134737%_))))) + _%hd134885134953%_ + _%super-bind-methods!134883134945%_ + _%hd134870134903%_) + (_%g134864134892%_ + _%g134865134896%_)))) + (_%g134864134892%_ + _%g134865134896%_))))))) + (_%loop134878134925%_ _%target134875134919%_ '())) + (_%g134864134892%_ _%g134865134896%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134705134733%_ - _%g134706134737%_)))) - (_%g134705134733%_ - _%g134706134737%_)))) - (_%g134705134733%_ _%g134706134737%_))))) - (_%g134704134869%_ + (_%g134864134892%_ + _%g134865134896%_)))) + (_%g134864134892%_ + _%g134865134896%_)))) + (_%g134864134892%_ _%g134865134896%_))))) + (_%g134863135028%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134665%_ - _%L134665%_ + _%L134824%_ + _%L134824%_ '"-bind-methods!")) - (map (lambda (_%super134873%_) + (map (lambda (_%super135032%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134873%_ - _%super134873%_ + _%super135032%_ + _%super135032%_ '"-bind-methods!"))) - (let ((__tmp137829 - (lambda (_%g134875134878%_ - _%g134876134881%_) - (cons _%g134875134878%_ - _%g134876134881%_)))) + (let ((__tmp137988 + (lambda (_%g135034135037%_ + _%g135035135040%_) + (cons _%g135034135037%_ + _%g135035135040%_)))) (declare (not safe)) - (__foldr1 __tmp137829 '() _%L134664%_))) + (__foldr1 __tmp137988 '() _%L134823%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134665%_ - _%L134665%_ + _%L134824%_ + _%L134824%_ '"::t"))))))) - (_%__kont137575137576%_ - (lambda (_%L134250%_ - _%L134252%_ - _%L134253%_ - _%L134254%_ - _%L134255%_ - _%L134256%_ - _%L134257%_) - (let* ((_%g134300134328%_ - (lambda (_%g134301134324%_) + (_%__kont137734137735%_ + (lambda (_%L134409%_ + _%L134411%_ + _%L134412%_ + _%L134413%_ + _%L134414%_ + _%L134415%_ + _%L134416%_) + (let* ((_%g134459134487%_ + (lambda (_%g134460134483%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134301134324%_)))) - (_%g134299134464%_ - (lambda (_%g134301134332%_) + _%g134460134483%_)))) + (_%g134458134623%_ + (lambda (_%g134460134491%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134301134332%_)) - (let ((_%e134305134335%_ + (gx#stx-pair? _%g134460134491%_)) + (let ((_%e134464134494%_ (let () (declare (not safe)) - (gx#syntax-e _%g134301134332%_)))) - (let ((_%hd134306134339%_ + (gx#syntax-e _%g134460134491%_)))) + (let ((_%hd134465134498%_ (let () (declare (not safe)) - (##car _%e134305134335%_))) - (_%tl134307134342%_ + (##car _%e134464134494%_))) + (_%tl134466134501%_ (let () (declare (not safe)) - (##cdr _%e134305134335%_)))) + (##cdr _%e134464134494%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134307134342%_)) - (let ((_%e134308134345%_ + (gx#stx-pair? _%tl134466134501%_)) + (let ((_%e134467134504%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134307134342%_)))) - (let ((_%hd134309134349%_ + _%tl134466134501%_)))) + (let ((_%hd134468134508%_ (let () (declare (not safe)) - (##car _%e134308134345%_))) - (_%tl134310134352%_ + (##car _%e134467134504%_))) + (_%tl134469134511%_ (let () (declare (not safe)) - (##cdr _%e134308134345%_)))) + (##cdr _%e134467134504%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134309134349%_)) - (let ((_g137830_ + _%hd134468134508%_)) + (let ((_g137989_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134309134349%_ + _%hd134468134508%_ '0)))) (begin - (let ((_g137831_ + (let ((_g137990_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137830_) - (##vector-length _g137830_) + _g137989_) + (##vector-length _g137989_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137831_ 2))) - (error "Context expects 2 values" _g137831_))) + (if (not (let () (declare (not safe)) (##fx= _g137990_ 2))) + (error "Context expects 2 values" _g137990_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134311134355%_ + (let ((_%target134470134514%_ (let () (declare (not safe)) (##vector-ref - _g137830_ + _g137989_ 0))) - (_%tl134313134358%_ + (_%tl134472134517%_ (let () (declare (not safe)) (##vector-ref - _g137830_ + _g137989_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134313134358%_)) - (letrec ((_%loop134314134361%_ + _%tl134472134517%_)) + (letrec ((_%loop134473134520%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134312134365%_ - _%super-bind-methods!134318134368%_) + (lambda (_%hd134471134524%_ + _%super-bind-methods!134477134527%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134312134365%_)) - (let ((_%e134315134371%_ + (gx#stx-pair? _%hd134471134524%_)) + (let ((_%e134474134530%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134312134365%_)))) - (let ((_%lp-hd134316134375%_ + (gx#syntax-e _%hd134471134524%_)))) + (let ((_%lp-hd134475134534%_ (let () (declare (not safe)) - (##car _%e134315134371%_))) - (_%lp-tl134317134378%_ + (##car _%e134474134530%_))) + (_%lp-tl134476134537%_ (let () (declare (not safe)) - (##cdr _%e134315134371%_)))) - (_%loop134314134361%_ - _%lp-tl134317134378%_ - (cons _%lp-hd134316134375%_ - _%super-bind-methods!134318134368%_)))) - (let ((_%super-bind-methods!134319134381%_ - (reverse _%super-bind-methods!134318134368%_))) + (##cdr _%e134474134530%_)))) + (_%loop134473134520%_ + _%lp-tl134476134537%_ + (cons _%lp-hd134475134534%_ + _%super-bind-methods!134477134527%_)))) + (let ((_%super-bind-methods!134478134540%_ + (reverse _%super-bind-methods!134477134527%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134310134352%_)) - (let ((_%e134320134385%_ + (gx#stx-pair? _%tl134469134511%_)) + (let ((_%e134479134544%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134310134352%_)))) - (let ((_%hd134321134389%_ + _%tl134469134511%_)))) + (let ((_%hd134480134548%_ (let () (declare (not safe)) - (##car _%e134320134385%_))) - (_%tl134322134392%_ + (##car _%e134479134544%_))) + (_%tl134481134551%_ (let () (declare (not safe)) - (##cdr _%e134320134385%_)))) + (##cdr _%e134479134544%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134322134392%_)) - ((lambda (_%L134395%_ - _%L134397%_ - _%L134398%_) + _%tl134481134551%_)) + ((lambda (_%L134554%_ + _%L134556%_ + _%L134557%_) (cons (let () (declare (not safe)) @@ -1058,23 +1058,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134255%_ - (let ((__tmp137832 - (lambda (_%g134429134432%_ - _%g134430134435%_) - (cons _%g134429134432%_ - _%g134430134435%_)))) + (cons (cons _%L134414%_ + (let ((__tmp137991 + (lambda (_%g134588134591%_ + _%g134589134594%_) + (cons _%g134588134591%_ + _%g134589134594%_)))) (declare (not safe)) (__foldr1 - __tmp137832 + __tmp137991 '() - _%L134254%_))) - (cons _%L134253%_ + _%L134413%_))) + (cons _%L134412%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134398%_ + (cons _%L134557%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1084,75 +1084,75 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137836 - (lambda (_%g134424134438%_ _%g134425134441%_) + (let ((__tmp137995 + (lambda (_%g134583134597%_ _%g134584134600%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134424134438%_ '())) - _%g134425134441%_))) - (__tmp137833 + (cons _%g134583134597%_ '())) + _%g134584134600%_))) + (__tmp137992 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134250%_ - _%L134252%_)) - (let ((__tmp137835 - (lambda (_%g134426134444%_ - _%g134427134447%_ - _%g134428134449%_) + _%L134409%_ + _%L134411%_)) + (let ((__tmp137994 + (lambda (_%g134585134603%_ + _%g134586134606%_ + _%g134587134608%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134395%_ + (cons _%L134554%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134427134447%_ '())) - (cons _%g134426134444%_ '())))) + (cons _%g134586134606%_ '())) + (cons _%g134585134603%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134428134449%_))) - (__tmp137834 + _%g134587134608%_))) + (__tmp137993 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L134395%_ '())) + (cons _%L134554%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp137835 - __tmp137834 - _%L134250%_ - _%L134252%_))))) + __tmp137994 + __tmp137993 + _%L134409%_ + _%L134411%_))))) (declare (not safe)) - (__foldr1 __tmp137836 __tmp137833 _%L134397%_))) + (__foldr1 __tmp137995 __tmp137992 _%L134556%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134257%_ + (cons (cons _%L134416%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp137837 + (let ((__tmp137996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134422134452%_ _%g134423134455%_) - (cons _%g134422134452%_ _%g134423134455%_)))) + (lambda (_%g134581134611%_ _%g134582134614%_) + (cons _%g134581134611%_ _%g134582134614%_)))) (declare (not safe)) - (__foldr1 __tmp137837 '() _%L134256%_)))) + (__foldr1 __tmp137996 '() _%L134415%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134398%_ + (cons _%L134557%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134255%_ - (let ((__tmp137838 - (lambda (_%g134420134458%_ + (cons (cons _%L134414%_ + (let ((__tmp137997 + (lambda (_%g134579134617%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134421134461%_) - (cons _%g134420134458%_ _%g134421134461%_)))) + _%g134580134620%_) + (cons _%g134579134617%_ _%g134580134620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp137838 + __tmp137997 '() - _%L134256%_))) + _%L134415%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134321134389%_ - _%super-bind-methods!134319134381%_ - _%hd134306134339%_) - (_%g134300134328%_ - _%g134301134332%_)))) - (_%g134300134328%_ - _%g134301134332%_))))))) - (_%loop134314134361%_ _%target134311134355%_ '())) - (_%g134300134328%_ _%g134301134332%_))))) + _%hd134480134548%_ + _%super-bind-methods!134478134540%_ + _%hd134465134498%_) + (_%g134459134487%_ + _%g134460134491%_)))) + (_%g134459134487%_ + _%g134460134491%_))))))) + (_%loop134473134520%_ _%target134470134514%_ '())) + (_%g134459134487%_ _%g134460134491%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134300134328%_ - _%g134301134332%_)))) - (_%g134300134328%_ - _%g134301134332%_)))) - (_%g134300134328%_ _%g134301134332%_))))) - (_%g134299134464%_ + (_%g134459134487%_ + _%g134460134491%_)))) + (_%g134459134487%_ + _%g134460134491%_)))) + (_%g134459134487%_ _%g134460134491%_))))) + (_%g134458134623%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134255%_ - _%L134255%_ + _%L134414%_ + _%L134414%_ '"-bind-methods!")) - (map (lambda (_%super134468%_) + (map (lambda (_%super134627%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134468%_ - _%super134468%_ + _%super134627%_ + _%super134627%_ '"-bind-methods!"))) - (let ((__tmp137839 - (lambda (_%g134470134473%_ - _%g134471134476%_) - (cons _%g134470134473%_ - _%g134471134476%_)))) + (let ((__tmp137998 + (lambda (_%g134629134632%_ + _%g134630134635%_) + (cons _%g134629134632%_ + _%g134630134635%_)))) (declare (not safe)) - (__foldr1 __tmp137839 '() _%L134254%_))) + (__foldr1 __tmp137998 '() _%L134413%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134255%_ - _%L134255%_ + _%L134414%_ + _%L134414%_ '"::t")))))))) - (let* ((_%__match137697137698%_ - (lambda (_%e133993134062%_ - _%hd133994134066%_ - _%tl133995134069%_ - _%e133996134072%_ - _%hd133997134076%_ - _%tl133998134079%_ - _%e133999134082%_ - _%hd134000134086%_ - _%tl134001134089%_ - _%__splice137577137578%_ - _%target134002134092%_ - _%tl134004134095%_) - (letrec ((_%loop134005134098%_ - (lambda (_%hd134003134102%_ - _%arg134009134105%_) + (let* ((_%__match137856137857%_ + (lambda (_%e134152134221%_ + _%hd134153134225%_ + _%tl134154134228%_ + _%e134155134231%_ + _%hd134156134235%_ + _%tl134157134238%_ + _%e134158134241%_ + _%hd134159134245%_ + _%tl134160134248%_ + _%__splice137736137737%_ + _%target134161134251%_ + _%tl134163134254%_) + (letrec ((_%loop134164134257%_ + (lambda (_%hd134162134261%_ + _%arg134168134264%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134003134102%_)) - (let ((_%e134006134108%_ + (gx#stx-pair? _%hd134162134261%_)) + (let ((_%e134165134267%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134003134102%_)))) - (let ((_%lp-tl134008134115%_ + _%hd134162134261%_)))) + (let ((_%lp-tl134167134274%_ (let () (declare (not safe)) - (##cdr _%e134006134108%_))) - (_%lp-hd134007134112%_ + (##cdr _%e134165134267%_))) + (_%lp-hd134166134271%_ (let () (declare (not safe)) - (##car _%e134006134108%_)))) - (_%loop134005134098%_ - _%lp-tl134008134115%_ - (cons _%lp-hd134007134112%_ - _%arg134009134105%_)))) - (let ((_%arg134010134118%_ - (reverse _%arg134009134105%_))) + (##car _%e134165134267%_)))) + (_%loop134164134257%_ + _%lp-tl134167134274%_ + (cons _%lp-hd134166134271%_ + _%arg134168134264%_)))) + (let ((_%arg134169134277%_ + (reverse _%arg134168134264%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133998134079%_)) - (let ((_%e134011134122%_ + _%tl134157134238%_)) + (let ((_%e134170134281%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133998134079%_)))) - (let ((_%tl134013134129%_ + _%tl134157134238%_)))) + (let ((_%tl134172134288%_ (let () (declare (not safe)) - (##cdr _%e134011134122%_))) - (_%hd134012134126%_ + (##cdr _%e134170134281%_))) + (_%hd134171134285%_ (let () (declare (not safe)) - (##car _%e134011134122%_)))) + (##car _%e134170134281%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134012134126%_)) - (let ((_%e134014134132%_ + _%hd134171134285%_)) + (let ((_%e134173134291%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134012134126%_)))) - (let ((_%tl134016134139%_ + _%hd134171134285%_)))) + (let ((_%tl134175134298%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134014134132%_))) - (_%hd134015134136%_ - (let () (declare (not safe)) (##car _%e134014134132%_)))) + (##cdr _%e134173134291%_))) + (_%hd134174134295%_ + (let () (declare (not safe)) (##car _%e134173134291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134016134139%_)) - (let ((_%__splice137579137580%_ + (gx#stx-pair/null? _%tl134175134298%_)) + (let ((_%__splice137738137739%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134016134139%_ '0)))) - (let ((_%tl134019134145%_ + (gx#syntax-split-splice _%tl134175134298%_ '0)))) + (let ((_%tl134178134304%_ (let () (declare (not safe)) - (##vector-ref _%__splice137579137580%_ '1))) - (_%target134017134142%_ + (##vector-ref _%__splice137738137739%_ '1))) + (_%target134176134301%_ (let () (declare (not safe)) - (##vector-ref _%__splice137579137580%_ '0)))) + (##vector-ref _%__splice137738137739%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134019134145%_)) - (letrec ((_%loop134020134148%_ - (lambda (_%hd134018134152%_ - _%super134024134155%_) + (gx#stx-null? _%tl134178134304%_)) + (letrec ((_%loop134179134307%_ + (lambda (_%hd134177134311%_ + _%super134183134314%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134018134152%_)) - (let ((_%e134021134158%_ + _%hd134177134311%_)) + (let ((_%e134180134317%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134018134152%_)))) - (let ((_%lp-tl134023134165%_ + _%hd134177134311%_)))) + (let ((_%lp-tl134182134324%_ (let () (declare (not safe)) - (##cdr _%e134021134158%_))) - (_%lp-hd134022134162%_ + (##cdr _%e134180134317%_))) + (_%lp-hd134181134321%_ (let () (declare (not safe)) - (##car _%e134021134158%_)))) - (_%loop134020134148%_ - _%lp-tl134023134165%_ - (cons _%lp-hd134022134162%_ - _%super134024134155%_)))) - (let ((_%super134025134168%_ - (reverse _%super134024134155%_))) + (##car _%e134180134317%_)))) + (_%loop134179134307%_ + _%lp-tl134182134324%_ + (cons _%lp-hd134181134321%_ + _%super134183134314%_)))) + (let ((_%super134184134327%_ + (reverse _%super134183134314%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134013134129%_)) - (let ((_%e134026134172%_ + _%tl134172134288%_)) + (let ((_%e134185134331%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134013134129%_)))) - (let ((_%tl134028134179%_ + _%tl134172134288%_)))) + (let ((_%tl134187134338%_ (let () (declare (not safe)) - (##cdr _%e134026134172%_))) - (_%hd134027134176%_ + (##cdr _%e134185134331%_))) + (_%hd134186134335%_ (let () (declare (not safe)) - (##car _%e134026134172%_)))) + (##car _%e134185134331%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134028134179%_)) - (let ((_%e134029134182%_ + _%tl134187134338%_)) + (let ((_%e134188134341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134028134179%_)))) - (let ((_%tl134031134189%_ + (gx#syntax-e _%tl134187134338%_)))) + (let ((_%tl134190134348%_ (let () (declare (not safe)) - (##cdr _%e134029134182%_))) - (_%hd134030134186%_ + (##cdr _%e134188134341%_))) + (_%hd134189134345%_ (let () (declare (not safe)) - (##car _%e134029134182%_)))) + (##car _%e134188134341%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134030134186%_)) - (let ((_%e134032134192%_ + (gx#stx-datum? _%hd134189134345%_)) + (let ((_%e134191134351%_ (let () (declare (not safe)) - (gx#stx-e _%hd134030134186%_)))) - (if (equal? _%e134032134192%_ 'final:) + (gx#stx-e _%hd134189134345%_)))) + (if (equal? _%e134191134351%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134031134189%_)) - (let ((_%__splice137581137582%_ + (gx#stx-pair/null? _%tl134190134348%_)) + (let ((_%__splice137740137741%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134031134189%_ + _%tl134190134348%_ '0)))) - (let ((_%tl134035134199%_ + (let ((_%tl134194134358%_ (let () (declare (not safe)) (##vector-ref - _%__splice137581137582%_ + _%__splice137740137741%_ '1))) - (_%target134033134196%_ + (_%target134192134355%_ (let () (declare (not safe)) (##vector-ref - _%__splice137581137582%_ + _%__splice137740137741%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134035134199%_)) - (letrec ((_%loop134036134202%_ - (lambda (_%hd134034134206%_ - _%implementation134040134209%_ - _%method134041134211%_) + _%tl134194134358%_)) + (letrec ((_%loop134195134361%_ + (lambda (_%hd134193134365%_ + _%implementation134199134368%_ + _%method134200134370%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134034134206%_)) - (let ((_%e134037134214%_ + _%hd134193134365%_)) + (let ((_%e134196134373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd134034134206%_)))) - (let ((_%lp-tl134039134221%_ + (gx#syntax-e _%hd134193134365%_)))) + (let ((_%lp-tl134198134380%_ (let () (declare (not safe)) - (##cdr _%e134037134214%_))) - (_%lp-hd134038134218%_ + (##cdr _%e134196134373%_))) + (_%lp-hd134197134377%_ (let () (declare (not safe)) - (##car _%e134037134214%_)))) + (##car _%e134196134373%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134038134218%_)) - (let ((_%e134044134224%_ + (gx#stx-pair? _%lp-hd134197134377%_)) + (let ((_%e134203134383%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd134038134218%_)))) - (let ((_%tl134046134231%_ + (gx#syntax-e _%lp-hd134197134377%_)))) + (let ((_%tl134205134390%_ (let () (declare (not safe)) - (##cdr _%e134044134224%_))) - (_%hd134045134228%_ + (##cdr _%e134203134383%_))) + (_%hd134204134387%_ (let () (declare (not safe)) - (##car _%e134044134224%_)))) + (##car _%e134203134383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134046134231%_)) - (let ((_%e134047134234%_ + (gx#stx-pair? _%tl134205134390%_)) + (let ((_%e134206134393%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134046134231%_)))) - (let ((_%tl134049134241%_ + _%tl134205134390%_)))) + (let ((_%tl134208134400%_ (let () (declare (not safe)) - (##cdr _%e134047134234%_))) - (_%hd134048134238%_ + (##cdr _%e134206134393%_))) + (_%hd134207134397%_ (let () (declare (not safe)) - (##car _%e134047134234%_)))) + (##car _%e134206134393%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134049134241%_)) - (_%loop134036134202%_ - _%lp-tl134039134221%_ - (cons _%hd134048134238%_ - _%implementation134040134209%_) - (cons _%hd134045134228%_ - _%method134041134211%_)) + _%tl134208134400%_)) + (_%loop134195134361%_ + _%lp-tl134198134380%_ + (cons _%hd134207134397%_ + _%implementation134199134368%_) + (cons _%hd134204134387%_ + _%method134200134370%_)) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let ((_%method134043134247%_ - (reverse _%method134041134211%_)) - (_%implementation134042134244%_ - (reverse _%implementation134040134209%_))) - (_%__kont137575137576%_ - _%implementation134042134244%_ - _%method134043134247%_ - _%hd134027134176%_ - _%super134025134168%_ - _%hd134015134136%_ - _%arg134010134118%_ - _%hd134000134086%_)))))) + (_%g134020134214%_))))) + (let ((_%method134202134406%_ + (reverse _%method134200134370%_)) + (_%implementation134201134403%_ + (reverse _%implementation134199134368%_))) + (_%__kont137734137735%_ + _%implementation134201134403%_ + _%method134202134406%_ + _%hd134186134335%_ + _%super134184134327%_ + _%hd134174134295%_ + _%arg134169134277%_ + _%hd134159134245%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134036134202%_ - _%target134033134196%_ + (_%loop134195134361%_ + _%target134192134355%_ '() '())) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))) + (_%g134020134214%_))) (let () (declare (not safe)) - (_%g133861134055%_)))) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) + (_%g134020134214%_)))) + (let () (declare (not safe)) (_%g134020134214%_))))) + (let () (declare (not safe)) (_%g134020134214%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_)))))))) - (_%loop134020134148%_ - _%target134017134142%_ + (_%g134020134214%_)))))))) + (_%loop134179134307%_ + _%target134176134301%_ '())) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) + (_%g134020134214%_))))) + (let () (declare (not safe)) (_%g134020134214%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_)))))))) - (_%loop134005134098%_ _%target134002134092%_ '())))) - (_%__match137671137672%_ - (lambda (_%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) - (letrec ((_%loop133945134522%_ - (lambda (_%hd133943134526%_ - _%arg133949134529%_) + (_%g134020134214%_)))))))) + (_%loop134164134257%_ _%target134161134251%_ '())))) + (_%__match137830137831%_ + (lambda (_%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_) + (letrec ((_%loop134104134681%_ + (lambda (_%hd134102134685%_ + _%arg134108134688%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133943134526%_)) - (let ((_%e133946134532%_ + (gx#stx-pair? _%hd134102134685%_)) + (let ((_%e134105134691%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133943134526%_)))) - (let ((_%lp-tl133948134539%_ + _%hd134102134685%_)))) + (let ((_%lp-tl134107134698%_ (let () (declare (not safe)) - (##cdr _%e133946134532%_))) - (_%lp-hd133947134536%_ + (##cdr _%e134105134691%_))) + (_%lp-hd134106134695%_ (let () (declare (not safe)) - (##car _%e133946134532%_)))) - (_%loop133945134522%_ - _%lp-tl133948134539%_ - (cons _%lp-hd133947134536%_ - _%arg133949134529%_)))) - (let ((_%arg133950134542%_ - (reverse _%arg133949134529%_))) + (##car _%e134105134691%_)))) + (_%loop134104134681%_ + _%lp-tl134107134698%_ + (cons _%lp-hd134106134695%_ + _%arg134108134688%_)))) + (let ((_%arg134109134701%_ + (reverse _%arg134108134688%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133938134503%_)) - (let ((_%e133951134546%_ + _%tl134097134662%_)) + (let ((_%e134110134705%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133938134503%_)))) - (let ((_%tl133953134553%_ + _%tl134097134662%_)))) + (let ((_%tl134112134712%_ (let () (declare (not safe)) - (##cdr _%e133951134546%_))) - (_%hd133952134550%_ + (##cdr _%e134110134705%_))) + (_%hd134111134709%_ (let () (declare (not safe)) - (##car _%e133951134546%_)))) + (##car _%e134110134705%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133952134550%_)) - (let ((_%e133954134556%_ + _%hd134111134709%_)) + (let ((_%e134113134715%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133952134550%_)))) - (let ((_%tl133956134563%_ + _%hd134111134709%_)))) + (let ((_%tl134115134722%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133954134556%_))) - (_%hd133955134560%_ - (let () (declare (not safe)) (##car _%e133954134556%_)))) + (##cdr _%e134113134715%_))) + (_%hd134114134719%_ + (let () (declare (not safe)) (##car _%e134113134715%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133956134563%_)) - (let ((_%__splice137571137572%_ + (gx#stx-pair/null? _%tl134115134722%_)) + (let ((_%__splice137730137731%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl133956134563%_ '0)))) - (let ((_%tl133959134569%_ + (gx#syntax-split-splice _%tl134115134722%_ '0)))) + (let ((_%tl134118134728%_ (let () (declare (not safe)) - (##vector-ref _%__splice137571137572%_ '1))) - (_%target133957134566%_ + (##vector-ref _%__splice137730137731%_ '1))) + (_%target134116134725%_ (let () (declare (not safe)) - (##vector-ref _%__splice137571137572%_ '0)))) + (##vector-ref _%__splice137730137731%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133959134569%_)) - (letrec ((_%loop133960134572%_ - (lambda (_%hd133958134576%_ - _%super133964134579%_) + (gx#stx-null? _%tl134118134728%_)) + (letrec ((_%loop134119134731%_ + (lambda (_%hd134117134735%_ + _%super134123134738%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133958134576%_)) - (let ((_%e133961134582%_ + _%hd134117134735%_)) + (let ((_%e134120134741%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133958134576%_)))) - (let ((_%lp-tl133963134589%_ + _%hd134117134735%_)))) + (let ((_%lp-tl134122134748%_ (let () (declare (not safe)) - (##cdr _%e133961134582%_))) - (_%lp-hd133962134586%_ + (##cdr _%e134120134741%_))) + (_%lp-hd134121134745%_ (let () (declare (not safe)) - (##car _%e133961134582%_)))) - (_%loop133960134572%_ - _%lp-tl133963134589%_ - (cons _%lp-hd133962134586%_ - _%super133964134579%_)))) - (let ((_%super133965134592%_ - (reverse _%super133964134579%_))) + (##car _%e134120134741%_)))) + (_%loop134119134731%_ + _%lp-tl134122134748%_ + (cons _%lp-hd134121134745%_ + _%super134123134738%_)))) + (let ((_%super134124134751%_ + (reverse _%super134123134738%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133953134553%_)) - (let ((_%e133966134596%_ + _%tl134112134712%_)) + (let ((_%e134125134755%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133953134553%_)))) - (let ((_%tl133968134603%_ + _%tl134112134712%_)))) + (let ((_%tl134127134762%_ (let () (declare (not safe)) - (##cdr _%e133966134596%_))) - (_%hd133967134600%_ + (##cdr _%e134125134755%_))) + (_%hd134126134759%_ (let () (declare (not safe)) - (##car _%e133966134596%_)))) + (##car _%e134125134755%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133968134603%_)) - (let ((_%__splice137573137574%_ + _%tl134127134762%_)) + (let ((_%__splice137732137733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl133968134603%_ '0)))) - (let ((_%tl133971134609%_ + (gx#syntax-split-splice _%tl134127134762%_ '0)))) + (let ((_%tl134130134768%_ (let () (declare (not safe)) - (##vector-ref _%__splice137573137574%_ '1))) - (_%target133969134606%_ + (##vector-ref _%__splice137732137733%_ '1))) + (_%target134128134765%_ (let () (declare (not safe)) - (##vector-ref _%__splice137573137574%_ '0)))) + (##vector-ref _%__splice137732137733%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133971134609%_)) - (letrec ((_%loop133972134612%_ - (lambda (_%hd133970134616%_ - _%implementation133976134619%_ - _%method133977134621%_) + (gx#stx-null? _%tl134130134768%_)) + (letrec ((_%loop134131134771%_ + (lambda (_%hd134129134775%_ + _%implementation134135134778%_ + _%method134136134780%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133970134616%_)) - (let ((_%e133973134624%_ + (gx#stx-pair? _%hd134129134775%_)) + (let ((_%e134132134783%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133970134616%_)))) - (let ((_%lp-tl133975134631%_ + _%hd134129134775%_)))) + (let ((_%lp-tl134134134790%_ (let () (declare (not safe)) - (##cdr _%e133973134624%_))) - (_%lp-hd133974134628%_ + (##cdr _%e134132134783%_))) + (_%lp-hd134133134787%_ (let () (declare (not safe)) - (##car _%e133973134624%_)))) + (##car _%e134132134783%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd133974134628%_)) - (let ((_%e133980134634%_ + _%lp-hd134133134787%_)) + (let ((_%e134139134793%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd133974134628%_)))) - (let ((_%tl133982134641%_ + _%lp-hd134133134787%_)))) + (let ((_%tl134141134800%_ (let () (declare (not safe)) - (##cdr _%e133980134634%_))) - (_%hd133981134638%_ + (##cdr _%e134139134793%_))) + (_%hd134140134797%_ (let () (declare (not safe)) - (##car _%e133980134634%_)))) + (##car _%e134139134793%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133982134641%_)) - (let ((_%e133983134644%_ + _%tl134141134800%_)) + (let ((_%e134142134803%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl133982134641%_)))) - (let ((_%tl133985134651%_ + (gx#syntax-e _%tl134141134800%_)))) + (let ((_%tl134144134810%_ (let () (declare (not safe)) - (##cdr _%e133983134644%_))) - (_%hd133984134648%_ + (##cdr _%e134142134803%_))) + (_%hd134143134807%_ (let () (declare (not safe)) - (##car _%e133983134644%_)))) + (##car _%e134142134803%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133985134651%_)) - (_%loop133972134612%_ - _%lp-tl133975134631%_ - (cons _%hd133984134648%_ - _%implementation133976134619%_) - (cons _%hd133981134638%_ _%method133977134621%_)) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) + (gx#stx-null? _%tl134144134810%_)) + (_%loop134131134771%_ + _%lp-tl134134134790%_ + (cons _%hd134143134807%_ + _%implementation134135134778%_) + (cons _%hd134140134797%_ _%method134136134780%_)) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (let ((_%method133979134657%_ - (reverse _%method133977134621%_)) - (_%implementation133978134654%_ - (reverse _%implementation133976134619%_))) - (_%__kont137567137568%_ - _%implementation133978134654%_ - _%method133979134657%_ - _%hd133967134600%_ - _%super133965134592%_ - _%hd133955134560%_ - _%arg133950134542%_ - _%hd133940134510%_)))))) - (_%loop133972134612%_ - _%target133969134606%_ + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) + (let ((_%method134138134816%_ + (reverse _%method134136134780%_)) + (_%implementation134137134813%_ + (reverse _%implementation134135134778%_))) + (_%__kont137726137727%_ + _%implementation134137134813%_ + _%method134138134816%_ + _%hd134126134759%_ + _%super134124134751%_ + _%hd134114134719%_ + _%arg134109134701%_ + _%hd134099134669%_)))))) + (_%loop134131134771%_ + _%target134128134765%_ '() '())) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_))))))) - (_%loop133960134572%_ - _%target133957134566%_ + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_))))))) + (_%loop134119134731%_ + _%target134116134725%_ '())) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_))))))) - (_%loop133945134522%_ _%target133942134516%_ '())))) - (_%__match137645137646%_ - (lambda (_%e133884134891%_ - _%hd133885134895%_ - _%tl133886134898%_ - _%e133887134901%_ - _%hd133888134905%_ - _%tl133889134908%_ - _%e133890134911%_ - _%e133891134915%_ - _%hd133892134919%_ - _%tl133893134922%_ - _%e133894134925%_ - _%hd133895134929%_ - _%tl133896134932%_ - _%__splice137563137564%_ - _%target133897134935%_ - _%tl133899134938%_) - (letrec ((_%loop133900134941%_ - (lambda (_%hd133898134945%_ - _%super133904134948%_) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_)))) + (_%__match137856137857%_ + _%e134092134645%_ + _%hd134093134649%_ + _%tl134094134652%_ + _%e134095134655%_ + _%hd134096134659%_ + _%tl134097134662%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_))))))) + (_%loop134104134681%_ _%target134101134675%_ '())))) + (_%__match137804137805%_ + (lambda (_%e134043135050%_ + _%hd134044135054%_ + _%tl134045135057%_ + _%e134046135060%_ + _%hd134047135064%_ + _%tl134048135067%_ + _%e134049135070%_ + _%e134050135074%_ + _%hd134051135078%_ + _%tl134052135081%_ + _%e134053135084%_ + _%hd134054135088%_ + _%tl134055135091%_ + _%__splice137722137723%_ + _%target134056135094%_ + _%tl134058135097%_) + (letrec ((_%loop134059135100%_ + (lambda (_%hd134057135104%_ + _%super134063135107%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133898134945%_)) - (let ((_%e133901134951%_ + (gx#stx-pair? _%hd134057135104%_)) + (let ((_%e134060135110%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133898134945%_)))) - (let ((_%lp-tl133903134958%_ + _%hd134057135104%_)))) + (let ((_%lp-tl134062135117%_ (let () (declare (not safe)) - (##cdr _%e133901134951%_))) - (_%lp-hd133902134955%_ + (##cdr _%e134060135110%_))) + (_%lp-hd134061135114%_ (let () (declare (not safe)) - (##car _%e133901134951%_)))) - (_%loop133900134941%_ - _%lp-tl133903134958%_ - (cons _%lp-hd133902134955%_ - _%super133904134948%_)))) - (let ((_%super133905134961%_ - (reverse _%super133904134948%_))) + (##car _%e134060135110%_)))) + (_%loop134059135100%_ + _%lp-tl134062135117%_ + (cons _%lp-hd134061135114%_ + _%super134063135107%_)))) + (let ((_%super134064135120%_ + (reverse _%super134063135107%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133893134922%_)) - (let ((_%e133906134965%_ + _%tl134052135081%_)) + (let ((_%e134065135124%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133893134922%_)))) - (let ((_%tl133908134972%_ + _%tl134052135081%_)))) + (let ((_%tl134067135131%_ (let () (declare (not safe)) - (##cdr _%e133906134965%_))) - (_%hd133907134969%_ + (##cdr _%e134065135124%_))) + (_%hd134066135128%_ (let () (declare (not safe)) - (##car _%e133906134965%_)))) + (##car _%e134065135124%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133908134972%_)) - (let ((_%__splice137565137566%_ + _%tl134067135131%_)) + (let ((_%__splice137724137725%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133908134972%_ + _%tl134067135131%_ '0)))) - (let ((_%tl133911134978%_ + (let ((_%tl134070135137%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice137565137566%_ '1))) - (_%target133909134975%_ + (##vector-ref _%__splice137724137725%_ '1))) + (_%target134068135134%_ (let () (declare (not safe)) - (##vector-ref _%__splice137565137566%_ '0)))) + (##vector-ref _%__splice137724137725%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133911134978%_)) - (letrec ((_%loop133912134981%_ - (lambda (_%hd133910134985%_ - _%implementation133916134988%_ - _%method133917134990%_) + (gx#stx-null? _%tl134070135137%_)) + (letrec ((_%loop134071135140%_ + (lambda (_%hd134069135144%_ + _%implementation134075135147%_ + _%method134076135149%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133910134985%_)) - (let ((_%e133913134993%_ + (gx#stx-pair? _%hd134069135144%_)) + (let ((_%e134072135152%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133910134985%_)))) - (let ((_%lp-tl133915135000%_ + _%hd134069135144%_)))) + (let ((_%lp-tl134074135159%_ (let () (declare (not safe)) - (##cdr _%e133913134993%_))) - (_%lp-hd133914134997%_ + (##cdr _%e134072135152%_))) + (_%lp-hd134073135156%_ (let () (declare (not safe)) - (##car _%e133913134993%_)))) + (##car _%e134072135152%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd133914134997%_)) - (let ((_%e133920135003%_ + _%lp-hd134073135156%_)) + (let ((_%e134079135162%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd133914134997%_)))) - (let ((_%tl133922135010%_ + _%lp-hd134073135156%_)))) + (let ((_%tl134081135169%_ (let () (declare (not safe)) - (##cdr _%e133920135003%_))) - (_%hd133921135007%_ + (##cdr _%e134079135162%_))) + (_%hd134080135166%_ (let () (declare (not safe)) - (##car _%e133920135003%_)))) + (##car _%e134079135162%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133922135010%_)) - (let ((_%e133923135013%_ + _%tl134081135169%_)) + (let ((_%e134082135172%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133922135010%_)))) - (let ((_%tl133925135020%_ + _%tl134081135169%_)))) + (let ((_%tl134084135179%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133923135013%_))) - (_%hd133924135017%_ - (let () (declare (not safe)) (##car _%e133923135013%_)))) + (##cdr _%e134082135172%_))) + (_%hd134083135176%_ + (let () (declare (not safe)) (##car _%e134082135172%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133925135020%_)) - (_%loop133912134981%_ - _%lp-tl133915135000%_ - (cons _%hd133924135017%_ _%implementation133916134988%_) - (cons _%hd133921135007%_ _%method133917134990%_)) - (let () (declare (not safe)) (_%g133861134055%_))))) + (gx#stx-null? _%tl134084135179%_)) + (_%loop134071135140%_ + _%lp-tl134074135159%_ + (cons _%hd134083135176%_ _%implementation134075135147%_) + (cons _%hd134080135166%_ _%method134076135149%_)) + (let () (declare (not safe)) (_%g134020134214%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let ((_%method133919135026%_ - (reverse _%method133917134990%_)) - (_%implementation133918135023%_ - (reverse _%implementation133916134988%_))) - (_%__kont137561137562%_ - _%implementation133918135023%_ - _%method133919135026%_ - _%hd133907134969%_ - _%super133905134961%_ - _%hd133895134929%_)))))) - (_%loop133912134981%_ _%target133909134975%_ '() '())) - (let () (declare (not safe)) (_%g133861134055%_))))) + (_%g134020134214%_))))) + (let ((_%method134078135185%_ + (reverse _%method134076135149%_)) + (_%implementation134077135182%_ + (reverse _%implementation134075135147%_))) + (_%__kont137720137721%_ + _%implementation134077135182%_ + _%method134078135185%_ + _%hd134066135128%_ + _%super134064135120%_ + _%hd134054135088%_)))))) + (_%loop134071135140%_ _%target134068135134%_ '() '())) + (let () (declare (not safe)) (_%g134020134214%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_)))))))) - (_%loop133900134941%_ _%target133897134935%_ '())))) - (_%__match137607137608%_ - (lambda (_%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133876135265%_ - _%hd133877135269%_ - _%tl133878135272%_) - (let ((_%L135275%_ _%tl133878135272%_) - (_%L135277%_ _%hd133877135269%_) - (_%L135278%_ _%hd133874135259%_) - (_%L135279%_ _%hd133871135249%_)) + (_%g134020134214%_)))))))) + (_%loop134059135100%_ _%target134056135094%_ '())))) + (_%__match137766137767%_ + (lambda (_%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134032135414%_ + _%hd134033135418%_ + _%tl134034135421%_ + _%e134035135424%_ + _%hd134036135428%_ + _%tl134037135431%_) + (let ((_%L135434%_ _%tl134037135431%_) + (_%L135436%_ _%hd134036135428%_) + (_%L135437%_ _%hd134033135418%_) + (_%L135438%_ _%hd134030135408%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135278%_)) - (_%__kont137559137560%_ - _%L135275%_ - _%L135277%_ - _%L135278%_ - _%L135279%_) + (gx#identifier? _%L135437%_)) + (_%__kont137718137719%_ + _%L135434%_ + _%L135436%_ + _%L135437%_ + _%L135438%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd133871135249%_)) - (let ((_%e133890134911%_ + (gx#stx-datum? _%hd134030135408%_)) + (let ((_%e134049135070%_ (let () (declare (not safe)) - (gx#stx-e _%hd133871135249%_)))) - (if (equal? _%e133890134911%_ '#f) + (gx#stx-e _%hd134030135408%_)))) + (if (equal? _%e134049135070%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133874135259%_)) - (let ((_%e133894134925%_ + (gx#stx-pair? _%hd134033135418%_)) + (let ((_%e134053135084%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133874135259%_)))) - (let ((_%tl133896134932%_ + _%hd134033135418%_)))) + (let ((_%tl134055135091%_ (let () (declare (not safe)) - (##cdr _%e133894134925%_))) - (_%hd133895134929%_ + (##cdr _%e134053135084%_))) + (_%hd134054135088%_ (let () (declare (not safe)) - (##car _%e133894134925%_)))) + (##car _%e134053135084%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133896134932%_)) - (let ((_%__splice137563137564%_ + _%tl134055135091%_)) + (let ((_%__splice137722137723%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133896134932%_ + _%tl134055135091%_ '0)))) - (let ((_%tl133899134938%_ + (let ((_%tl134058135097%_ (let () (declare (not safe)) (##vector-ref - _%__splice137563137564%_ + _%__splice137722137723%_ '1))) - (_%target133897134935%_ + (_%target134056135094%_ (let () (declare (not safe)) (##vector-ref - _%__splice137563137564%_ + _%__splice137722137723%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133899134938%_)) - (_%__match137645137646%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133890134911%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133894134925%_ - _%hd133895134929%_ - _%tl133896134932%_ - _%__splice137563137564%_ - _%target133897134935%_ - _%tl133899134938%_) + _%tl134058135097%_)) + (_%__match137804137805%_ + _%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134049135070%_ + _%e134032135414%_ + _%hd134033135418%_ + _%tl134034135421%_ + _%e134053135084%_ + _%hd134054135088%_ + _%tl134055135091%_ + _%__splice137722137723%_ + _%target134056135094%_ + _%tl134058135097%_) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))) + (_%g134020134214%_))) (let () (declare (not safe)) - (_%g133861134055%_)))) + (_%g134020134214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133871135249%_)) - (let ((_%e133939134506%_ + (gx#stx-pair? _%hd134030135408%_)) + (let ((_%e134098134665%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133871135249%_)))) - (let ((_%tl133941134513%_ + _%hd134030135408%_)))) + (let ((_%tl134100134672%_ (let () (declare (not safe)) - (##cdr _%e133939134506%_))) - (_%hd133940134510%_ + (##cdr _%e134098134665%_))) + (_%hd134099134669%_ (let () (declare (not safe)) - (##car _%e133939134506%_)))) + (##car _%e134098134665%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133941134513%_)) - (let ((_%__splice137569137570%_ + _%tl134100134672%_)) + (let ((_%__splice137728137729%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133941134513%_ + _%tl134100134672%_ '0)))) - (let ((_%tl133944134519%_ + (let ((_%tl134103134678%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice137728137729%_ '1))) - (_%target133942134516%_ + (_%target134101134675%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice137728137729%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133944134519%_)) - (_%__match137671137672%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) + _%tl134103134678%_)) + (_%__match137830137831%_ + _%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))))))) + (_%g134020134214%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137556137557%_)) - (let ((_%e133867135235%_ + (gx#stx-pair? _%__stx137715137716%_)) + (let ((_%e134026135394%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx137556137557%_)))) - (let ((_%tl133869135242%_ + (gx#syntax-e _%__stx137715137716%_)))) + (let ((_%tl134028135401%_ (let () (declare (not safe)) - (##cdr _%e133867135235%_))) - (_%hd133868135239%_ + (##cdr _%e134026135394%_))) + (_%hd134027135398%_ (let () (declare (not safe)) - (##car _%e133867135235%_)))) + (##car _%e134026135394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133869135242%_)) - (let ((_%e133870135245%_ + (gx#stx-pair? _%tl134028135401%_)) + (let ((_%e134029135404%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133869135242%_)))) - (let ((_%tl133872135252%_ + (gx#syntax-e _%tl134028135401%_)))) + (let ((_%tl134031135411%_ (let () (declare (not safe)) - (##cdr _%e133870135245%_))) - (_%hd133871135249%_ + (##cdr _%e134029135404%_))) + (_%hd134030135408%_ (let () (declare (not safe)) - (##car _%e133870135245%_)))) + (##car _%e134029135404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133872135252%_)) - (let ((_%e133873135255%_ + (gx#stx-pair? _%tl134031135411%_)) + (let ((_%e134032135414%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133872135252%_)))) - (let ((_%tl133875135262%_ + (gx#syntax-e _%tl134031135411%_)))) + (let ((_%tl134034135421%_ (let () (declare (not safe)) - (##cdr _%e133873135255%_))) - (_%hd133874135259%_ + (##cdr _%e134032135414%_))) + (_%hd134033135418%_ (let () (declare (not safe)) - (##car _%e133873135255%_)))) + (##car _%e134032135414%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133875135262%_)) - (let ((_%e133876135265%_ + (gx#stx-pair? _%tl134034135421%_)) + (let ((_%e134035135424%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133875135262%_)))) - (let ((_%tl133878135272%_ + _%tl134034135421%_)))) + (let ((_%tl134037135431%_ (let () (declare (not safe)) - (##cdr _%e133876135265%_))) - (_%hd133877135269%_ + (##cdr _%e134035135424%_))) + (_%hd134036135428%_ (let () (declare (not safe)) - (##car _%e133876135265%_)))) - (_%__match137607137608%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133876135265%_ - _%hd133877135269%_ - _%tl133878135272%_))) + (##car _%e134035135424%_)))) + (_%__match137766137767%_ + _%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134032135414%_ + _%hd134033135418%_ + _%tl134034135421%_ + _%e134035135424%_ + _%hd134036135428%_ + _%tl134037135431%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd133871135249%_)) - (let ((_%e133890134911%_ + _%hd134030135408%_)) + (let ((_%e134049135070%_ (let () (declare (not safe)) (gx#stx-e - _%hd133871135249%_)))) - (if (equal? _%e133890134911%_ + _%hd134030135408%_)))) + (if (equal? _%e134049135070%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133874135259%_)) - (let ((_%e133894134925%_ + _%hd134033135418%_)) + (let ((_%e134053135084%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd133874135259%_)))) - (let ((_%tl133896134932%_ + (gx#syntax-e _%hd134033135418%_)))) + (let ((_%tl134055135091%_ (let () (declare (not safe)) - (##cdr _%e133894134925%_))) - (_%hd133895134929%_ + (##cdr _%e134053135084%_))) + (_%hd134054135088%_ (let () (declare (not safe)) - (##car _%e133894134925%_)))) + (##car _%e134053135084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133896134932%_)) - (let ((_%__splice137563137564%_ + (gx#stx-pair/null? _%tl134055135091%_)) + (let ((_%__splice137722137723%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133896134932%_ + _%tl134055135091%_ '0)))) - (let ((_%tl133899134938%_ + (let ((_%tl134058135097%_ (let () (declare (not safe)) - (##vector-ref _%__splice137563137564%_ '1))) - (_%target133897134935%_ + (##vector-ref _%__splice137722137723%_ '1))) + (_%target134056135094%_ (let () (declare (not safe)) (##vector-ref - _%__splice137563137564%_ + _%__splice137722137723%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133899134938%_)) - (_%__match137645137646%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133890134911%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133894134925%_ - _%hd133895134929%_ - _%tl133896134932%_ - _%__splice137563137564%_ - _%target133897134935%_ - _%tl133899134938%_) + (gx#stx-null? _%tl134058135097%_)) + (_%__match137804137805%_ + _%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134049135070%_ + _%e134032135414%_ + _%hd134033135418%_ + _%tl134034135421%_ + _%e134053135084%_ + _%hd134054135088%_ + _%tl134055135091%_ + _%__splice137722137723%_ + _%target134056135094%_ + _%tl134058135097%_) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))) + (_%g134020134214%_))))) + (let () (declare (not safe)) (_%g134020134214%_))))) + (let () (declare (not safe)) (_%g134020134214%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_)))) + (_%g134020134214%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133871135249%_)) - (let ((_%e133939134506%_ + _%hd134030135408%_)) + (let ((_%e134098134665%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133871135249%_)))) - (let ((_%tl133941134513%_ + _%hd134030135408%_)))) + (let ((_%tl134100134672%_ (let () (declare (not safe)) - (##cdr _%e133939134506%_))) - (_%hd133940134510%_ + (##cdr _%e134098134665%_))) + (_%hd134099134669%_ (let () (declare (not safe)) - (##car _%e133939134506%_)))) + (##car _%e134098134665%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133941134513%_)) - (let ((_%__splice137569137570%_ + _%tl134100134672%_)) + (let ((_%__splice137728137729%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl133941134513%_ '0)))) - (let ((_%tl133944134519%_ + (gx#syntax-split-splice _%tl134100134672%_ '0)))) + (let ((_%tl134103134678%_ (let () (declare (not safe)) - (##vector-ref _%__splice137569137570%_ '1))) - (_%target133942134516%_ + (##vector-ref _%__splice137728137729%_ '1))) + (_%target134101134675%_ (let () (declare (not safe)) - (##vector-ref _%__splice137569137570%_ '0)))) + (##vector-ref _%__splice137728137729%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133944134519%_)) - (_%__match137671137672%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) + (gx#stx-null? _%tl134103134678%_)) + (_%__match137830137831%_ + _%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_) + (let () (declare (not safe)) (_%g134020134214%_))))) + (let () (declare (not safe)) (_%g134020134214%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))))) + (_%g134020134214%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd133871135249%_)) - (let ((_%e133890134911%_ + (gx#stx-datum? _%hd134030135408%_)) + (let ((_%e134049135070%_ (let () (declare (not safe)) - (gx#stx-e _%hd133871135249%_)))) + (gx#stx-e _%hd134030135408%_)))) (declare (not safe)) - (_%g133861134055%_)) + (_%g134020134214%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133871135249%_)) - (let ((_%e133939134506%_ + (gx#stx-pair? _%hd134030135408%_)) + (let ((_%e134098134665%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133871135249%_)))) - (let ((_%tl133941134513%_ + _%hd134030135408%_)))) + (let ((_%tl134100134672%_ (let () (declare (not safe)) - (##cdr _%e133939134506%_))) - (_%hd133940134510%_ + (##cdr _%e134098134665%_))) + (_%hd134099134669%_ (let () (declare (not safe)) - (##car _%e133939134506%_)))) + (##car _%e134098134665%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133941134513%_)) - (let ((_%__splice137569137570%_ + _%tl134100134672%_)) + (let ((_%__splice137728137729%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133941134513%_ + _%tl134100134672%_ '0)))) - (let ((_%tl133944134519%_ + (let ((_%tl134103134678%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice137728137729%_ '1))) - (_%target133942134516%_ + (_%target134101134675%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice137728137729%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133944134519%_)) - (_%__match137671137672%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) + _%tl134103134678%_)) + (_%__match137830137831%_ + _%e134026135394%_ + _%hd134027135398%_ + _%tl134028135401%_ + _%e134029135404%_ + _%hd134030135408%_ + _%tl134031135411%_ + _%e134098134665%_ + _%hd134099134669%_ + _%tl134100134672%_ + _%__splice137728137729%_ + _%target134101134675%_ + _%tl134103134678%_) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g134020134214%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))))) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_)))))))) + (_%g134020134214%_))))))) + (let () (declare (not safe)) (_%g134020134214%_))))) + (let () (declare (not safe)) (_%g134020134214%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj137724 + (let ((__obj137883 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137724 + __obj137883 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137724 + __obj137883 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137883 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137883 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137883 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '11 '#f '#f)) - (let ((__tmp137840 |gxc[1]#_g137841_|)) + (##unchecked-structure-set! __obj137883 '#f '11 '#f '#f)) + (let ((__tmp137999 |gxc[1]#_g138000_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137724 __tmp137840 '12 '#f '#f)) - (let ((__tmp137842 |gxc[1]#_g137843_|)) + (##unchecked-structure-set! __obj137883 __tmp137999 '12 '#f '#f)) + (let ((__tmp138001 |gxc[1]#_g138002_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137724 __tmp137842 '13 '#f '#f)) - (let ((__tmp137844 |gxc[1]#_g137845_|)) + (##unchecked-structure-set! __obj137883 __tmp138001 '13 '#f '#f)) + (let ((__tmp138003 |gxc[1]#_g138004_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137724 __tmp137844 '14 '#f '#f)) + (##unchecked-structure-set! __obj137883 __tmp138003 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137883 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '20 '#f '#f)) - __obj137724)) + (##unchecked-structure-set! __obj137883 '() '20 '#f '#f)) + __obj137883)) (define |gxc[:0:]#::void-special-form| - (let ((__obj137725 + (let ((__obj137884 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137725 + __obj137884 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137725 + __obj137884 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137884 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137884 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137884 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '11 '#f '#f)) - (let ((__tmp137846 |gxc[1]#_g137847_|)) + (##unchecked-structure-set! __obj137884 '#f '11 '#f '#f)) + (let ((__tmp138005 |gxc[1]#_g138006_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137725 __tmp137846 '12 '#f '#f)) - (let ((__tmp137848 |gxc[1]#_g137849_|)) + (##unchecked-structure-set! __obj137884 __tmp138005 '12 '#f '#f)) + (let ((__tmp138007 |gxc[1]#_g138008_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137725 __tmp137848 '13 '#f '#f)) - (let ((__tmp137850 |gxc[1]#_g137851_|)) + (##unchecked-structure-set! __obj137884 __tmp138007 '13 '#f '#f)) + (let ((__tmp138009 |gxc[1]#_g138010_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137725 __tmp137850 '14 '#f '#f)) + (##unchecked-structure-set! __obj137884 __tmp138009 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137884 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '20 '#f '#f)) - __obj137725)) + (##unchecked-structure-set! __obj137884 '() '20 '#f '#f)) + __obj137884)) (define |gxc[:0:]#::void| - (let ((__obj137726 + (let ((__obj137885 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj137885 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj137885 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '6 '#f '#f)) - (let ((__tmp137852 - (cons |gxc[1]#_g137853_| (cons |gxc[1]#_g137854_| '())))) + (##unchecked-structure-set! __obj137885 '() '6 '#f '#f)) + (let ((__tmp138011 + (cons |gxc[1]#_g138012_| (cons |gxc[1]#_g138013_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137852 '3 '#f '#f)) + (##unchecked-structure-set! __obj137885 __tmp138011 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137885 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137885 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137885 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '11 '#f '#f)) - (let ((__tmp137855 |gxc[1]#_g137856_|)) + (##unchecked-structure-set! __obj137885 '#f '11 '#f '#f)) + (let ((__tmp138014 |gxc[1]#_g138015_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137855 '12 '#f '#f)) - (let ((__tmp137857 |gxc[1]#_g137858_|)) + (##unchecked-structure-set! __obj137885 __tmp138014 '12 '#f '#f)) + (let ((__tmp138016 |gxc[1]#_g138017_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137857 '13 '#f '#f)) - (let ((__tmp137859 |gxc[1]#_g137860_|)) + (##unchecked-structure-set! __obj137885 __tmp138016 '13 '#f '#f)) + (let ((__tmp138018 |gxc[1]#_g138019_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137859 '14 '#f '#f)) + (##unchecked-structure-set! __obj137885 __tmp138018 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137885 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '20 '#f '#f)) - __obj137726)) + (##unchecked-structure-set! __obj137885 '() '20 '#f '#f)) + __obj137885)) (define |gxc[:0:]#::false-expression| - (let ((__obj137727 + (let ((__obj137886 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137727 + __obj137886 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137727 + __obj137886 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137886 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137886 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137886 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '11 '#f '#f)) - (let ((__tmp137861 |gxc[1]#_g137862_|)) + (##unchecked-structure-set! __obj137886 '#f '11 '#f '#f)) + (let ((__tmp138020 |gxc[1]#_g138021_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137727 __tmp137861 '12 '#f '#f)) - (let ((__tmp137863 |gxc[1]#_g137864_|)) + (##unchecked-structure-set! __obj137886 __tmp138020 '12 '#f '#f)) + (let ((__tmp138022 |gxc[1]#_g138023_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137727 __tmp137863 '13 '#f '#f)) - (let ((__tmp137865 |gxc[1]#_g137866_|)) + (##unchecked-structure-set! __obj137886 __tmp138022 '13 '#f '#f)) + (let ((__tmp138024 |gxc[1]#_g138025_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137727 __tmp137865 '14 '#f '#f)) + (##unchecked-structure-set! __obj137886 __tmp138024 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137886 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '20 '#f '#f)) - __obj137727)) + (##unchecked-structure-set! __obj137886 '() '20 '#f '#f)) + __obj137886)) (define |gxc[:0:]#::false-special-form| - (let ((__obj137728 + (let ((__obj137887 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137728 + __obj137887 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137728 + __obj137887 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137887 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137887 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137887 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '11 '#f '#f)) - (let ((__tmp137867 |gxc[1]#_g137868_|)) + (##unchecked-structure-set! __obj137887 '#f '11 '#f '#f)) + (let ((__tmp138026 |gxc[1]#_g138027_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137728 __tmp137867 '12 '#f '#f)) - (let ((__tmp137869 |gxc[1]#_g137870_|)) + (##unchecked-structure-set! __obj137887 __tmp138026 '12 '#f '#f)) + (let ((__tmp138028 |gxc[1]#_g138029_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137728 __tmp137869 '13 '#f '#f)) - (let ((__tmp137871 |gxc[1]#_g137872_|)) + (##unchecked-structure-set! __obj137887 __tmp138028 '13 '#f '#f)) + (let ((__tmp138030 |gxc[1]#_g138031_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137728 __tmp137871 '14 '#f '#f)) + (##unchecked-structure-set! __obj137887 __tmp138030 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137887 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '20 '#f '#f)) - __obj137728)) + (##unchecked-structure-set! __obj137887 '() '20 '#f '#f)) + __obj137887)) (define |gxc[:0:]#::false| - (let ((__obj137729 + (let ((__obj137888 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj137888 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj137888 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '6 '#f '#f)) - (let ((__tmp137873 - (cons |gxc[1]#_g137874_| (cons |gxc[1]#_g137875_| '())))) + (##unchecked-structure-set! __obj137888 '() '6 '#f '#f)) + (let ((__tmp138032 + (cons |gxc[1]#_g138033_| (cons |gxc[1]#_g138034_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137873 '3 '#f '#f)) + (##unchecked-structure-set! __obj137888 __tmp138032 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137888 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137888 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137888 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '11 '#f '#f)) - (let ((__tmp137876 |gxc[1]#_g137877_|)) + (##unchecked-structure-set! __obj137888 '#f '11 '#f '#f)) + (let ((__tmp138035 |gxc[1]#_g138036_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137876 '12 '#f '#f)) - (let ((__tmp137878 |gxc[1]#_g137879_|)) + (##unchecked-structure-set! __obj137888 __tmp138035 '12 '#f '#f)) + (let ((__tmp138037 |gxc[1]#_g138038_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137878 '13 '#f '#f)) - (let ((__tmp137880 |gxc[1]#_g137881_|)) + (##unchecked-structure-set! __obj137888 __tmp138037 '13 '#f '#f)) + (let ((__tmp138039 |gxc[1]#_g138040_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137880 '14 '#f '#f)) + (##unchecked-structure-set! __obj137888 __tmp138039 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137888 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '20 '#f '#f)) - __obj137729)) + (##unchecked-structure-set! __obj137888 '() '20 '#f '#f)) + __obj137888)) (define |gxc[:0:]#::identity-expression| - (let ((__obj137730 + (let ((__obj137889 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137730 + __obj137889 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137730 + __obj137889 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137889 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137889 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137889 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '11 '#f '#f)) - (let ((__tmp137882 |gxc[1]#_g137883_|)) + (##unchecked-structure-set! __obj137889 '#f '11 '#f '#f)) + (let ((__tmp138041 |gxc[1]#_g138042_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137730 __tmp137882 '12 '#f '#f)) - (let ((__tmp137884 |gxc[1]#_g137885_|)) + (##unchecked-structure-set! __obj137889 __tmp138041 '12 '#f '#f)) + (let ((__tmp138043 |gxc[1]#_g138044_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137730 __tmp137884 '13 '#f '#f)) - (let ((__tmp137886 |gxc[1]#_g137887_|)) + (##unchecked-structure-set! __obj137889 __tmp138043 '13 '#f '#f)) + (let ((__tmp138045 |gxc[1]#_g138046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137730 __tmp137886 '14 '#f '#f)) + (##unchecked-structure-set! __obj137889 __tmp138045 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137889 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '20 '#f '#f)) - __obj137730)) + (##unchecked-structure-set! __obj137889 '() '20 '#f '#f)) + __obj137889)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj137731 + (let ((__obj137890 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137731 + __obj137890 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137731 + __obj137890 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137890 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137890 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137890 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '11 '#f '#f)) - (let ((__tmp137888 |gxc[1]#_g137889_|)) + (##unchecked-structure-set! __obj137890 '#f '11 '#f '#f)) + (let ((__tmp138047 |gxc[1]#_g138048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137731 __tmp137888 '12 '#f '#f)) - (let ((__tmp137890 |gxc[1]#_g137891_|)) + (##unchecked-structure-set! __obj137890 __tmp138047 '12 '#f '#f)) + (let ((__tmp138049 |gxc[1]#_g138050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137731 __tmp137890 '13 '#f '#f)) - (let ((__tmp137892 |gxc[1]#_g137893_|)) + (##unchecked-structure-set! __obj137890 __tmp138049 '13 '#f '#f)) + (let ((__tmp138051 |gxc[1]#_g138052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137731 __tmp137892 '14 '#f '#f)) + (##unchecked-structure-set! __obj137890 __tmp138051 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137890 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '20 '#f '#f)) - __obj137731)) + (##unchecked-structure-set! __obj137890 '() '20 '#f '#f)) + __obj137890)) (define |gxc[:0:]#::identity| - (let ((__obj137732 + (let ((__obj137891 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137732 + __obj137891 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj137891 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '6 '#f '#f)) - (let ((__tmp137894 - (cons |gxc[1]#_g137895_| (cons |gxc[1]#_g137896_| '())))) + (##unchecked-structure-set! __obj137891 '() '6 '#f '#f)) + (let ((__tmp138053 + (cons |gxc[1]#_g138054_| (cons |gxc[1]#_g138055_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137894 '3 '#f '#f)) + (##unchecked-structure-set! __obj137891 __tmp138053 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137891 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137891 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137891 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '11 '#f '#f)) - (let ((__tmp137897 |gxc[1]#_g137898_|)) + (##unchecked-structure-set! __obj137891 '#f '11 '#f '#f)) + (let ((__tmp138056 |gxc[1]#_g138057_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137897 '12 '#f '#f)) - (let ((__tmp137899 |gxc[1]#_g137900_|)) + (##unchecked-structure-set! __obj137891 __tmp138056 '12 '#f '#f)) + (let ((__tmp138058 |gxc[1]#_g138059_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137899 '13 '#f '#f)) - (let ((__tmp137901 |gxc[1]#_g137902_|)) + (##unchecked-structure-set! __obj137891 __tmp138058 '13 '#f '#f)) + (let ((__tmp138060 |gxc[1]#_g138061_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137901 '14 '#f '#f)) + (##unchecked-structure-set! __obj137891 __tmp138060 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137891 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '20 '#f '#f)) - __obj137732)) + (##unchecked-structure-set! __obj137891 '() '20 '#f '#f)) + __obj137891)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj137733 + (let ((__obj137892 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137733 + __obj137892 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137733 + __obj137892 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137892 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137892 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137892 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '11 '#f '#f)) - (let ((__tmp137903 |gxc[1]#_g137904_|)) + (##unchecked-structure-set! __obj137892 '#f '11 '#f '#f)) + (let ((__tmp138062 |gxc[1]#_g138063_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137733 __tmp137903 '12 '#f '#f)) - (let ((__tmp137905 |gxc[1]#_g137906_|)) + (##unchecked-structure-set! __obj137892 __tmp138062 '12 '#f '#f)) + (let ((__tmp138064 |gxc[1]#_g138065_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137733 __tmp137905 '13 '#f '#f)) - (let ((__tmp137907 |gxc[1]#_g137908_|)) + (##unchecked-structure-set! __obj137892 __tmp138064 '13 '#f '#f)) + (let ((__tmp138066 |gxc[1]#_g138067_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137733 __tmp137907 '14 '#f '#f)) + (##unchecked-structure-set! __obj137892 __tmp138066 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137892 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '20 '#f '#f)) - __obj137733)) + (##unchecked-structure-set! __obj137892 '() '20 '#f '#f)) + __obj137892)) (define |gxc[:0:]#::basic-xform| - (let ((__obj137734 + (let ((__obj137893 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137734 + __obj137893 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj137893 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '6 '#f '#f)) - (let ((__tmp137909 - (cons |gxc[1]#_g137910_| (cons |gxc[1]#_g137911_| '())))) + (##unchecked-structure-set! __obj137893 '() '6 '#f '#f)) + (let ((__tmp138068 + (cons |gxc[1]#_g138069_| (cons |gxc[1]#_g138070_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137909 '3 '#f '#f)) + (##unchecked-structure-set! __obj137893 __tmp138068 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137893 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137893 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137893 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '11 '#f '#f)) - (let ((__tmp137912 |gxc[1]#_g137913_|)) + (##unchecked-structure-set! __obj137893 '#f '11 '#f '#f)) + (let ((__tmp138071 |gxc[1]#_g138072_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137912 '12 '#f '#f)) - (let ((__tmp137914 |gxc[1]#_g137915_|)) + (##unchecked-structure-set! __obj137893 __tmp138071 '12 '#f '#f)) + (let ((__tmp138073 |gxc[1]#_g138074_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137914 '13 '#f '#f)) - (let ((__tmp137916 |gxc[1]#_g137917_|)) + (##unchecked-structure-set! __obj137893 __tmp138073 '13 '#f '#f)) + (let ((__tmp138075 |gxc[1]#_g138076_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137916 '14 '#f '#f)) + (##unchecked-structure-set! __obj137893 __tmp138075 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137893 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '20 '#f '#f)) - __obj137734)))) + (##unchecked-structure-set! __obj137893 '() '20 '#f '#f)) + __obj137893)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index ae7b91ef4..9fb639ef9 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 1713631271) + (define gerbil/compiler/optimize-ann::timestamp 1733687564) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp192243 (list gxc#::basic-xform::t)) - (__tmp192242 (cons (cons 'final: '#t) '()))) + (let ((__tmp192402 (list gxc#::basic-xform::t)) + (__tmp192401 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp192243 + __tmp192402 '() - __tmp192242 + __tmp192401 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args189128%_ - (apply make-instance gxc#::optimize-annotated::t _%$args189128%_))) + (lambda _%$args189287%_ + (apply make-instance gxc#::optimize-annotated::t _%$args189287%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp192244 + (let ((__tmp192403 (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 __tmp192244))) + (__make-promise __tmp192403))) (define gxc#apply-optimize-annotated - (lambda (_%stx189120%_) + (lambda (_%stx189279%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self189123%_ - (let ((__obj192234 + (let* ((_%self189282%_ + (let ((__obj192393 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj192234)) - (__tmp192245 + __obj192393)) + (__tmp192404 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189123%_ _%stx189120%_))))) + (gxc#compile-e__1 _%self189282%_ _%stx189279%_))))) (declare (not safe)) (__call-with-parameters - __tmp192245 + __tmp192404 gxc#current-compile-method - _%self189123%_)))) + _%self189282%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp192247 (list gxc#::generate-runtime::t)) - (__tmp192246 (cons (cons 'final: '#t) '()))) + (let ((__tmp192406 (list gxc#::generate-runtime::t)) + (__tmp192405 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp192247 + __tmp192406 '() - __tmp192246 + __tmp192405 '#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 _%$args189117%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args189117%_))) + (lambda _%$args189276%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args189276%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp192248 + (let ((__tmp192407 (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 __tmp192248))) + (__make-promise __tmp192407))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx189109%_) + (lambda (_%stx189268%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self189112%_ - (let ((__obj192236 + (let* ((_%self189271%_ + (let ((__obj192395 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj192236)) - (__tmp192249 + __obj192395)) + (__tmp192408 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189112%_ _%stx189109%_))))) + (gxc#compile-e__1 _%self189271%_ _%stx189268%_))))) (declare (not safe)) (__call-with-parameters - __tmp192249 + __tmp192408 gxc#current-compile-method - _%self189112%_)))) + _%self189271%_)))) (define gxc#::push-match-vars::t - (let ((__tmp192251 (list)) (__tmp192250 (cons (cons 'final: '#t) '()))) + (let ((__tmp192410 (list)) (__tmp192409 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp192251 + __tmp192410 '(vars K) - __tmp192250 + __tmp192409 '#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 _%$args189106%_ - (apply make-instance gxc#::push-match-vars::t _%$args189106%_))) + (lambda _%$args189265%_ + (apply make-instance gxc#::push-match-vars::t _%$args189265%_))) (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 ((__tmp192252 + (let ((__tmp192411 (lambda () (let () (declare (not safe)) @@ -199,1646 +199,1646 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp192252))) + (__make-promise __tmp192411))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords189076%_ - _%vars189072189077%_ - _%K189073189079%_ - _%stx189081%_) - (let* ((_%vars189084%_ - (if (eq? _%vars189072189077%_ absent-value) + (lambda (_%@@keywords189235%_ + _%vars189231189236%_ + _%K189232189238%_ + _%stx189240%_) + (let* ((_%vars189243%_ + (if (eq? _%vars189231189236%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars189072189077%_)) - (_%K189086%_ - (if (eq? _%K189073189079%_ absent-value) + _%vars189231189236%_)) + (_%K189245%_ + (if (eq? _%K189232189238%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K189073189079%_))) + _%K189232189238%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self189088%_ - (let ((__obj192238 + (let* ((_%self189247%_ + (let ((__obj192397 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192238 - _%vars189084%_ + __obj192397 + _%vars189243%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192238 - _%K189086%_ + __obj192397 + _%K189245%_ '2 '#f '#f)) - __obj192238)) - (__tmp192253 + __obj192397)) + (__tmp192412 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189088%_ _%stx189081%_))))) + (gxc#compile-e__1 _%self189247%_ _%stx189240%_))))) (declare (not safe)) (__call-with-parameters - __tmp192253 + __tmp192412 gxc#current-compile-method - _%self189088%_))))) + _%self189247%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords189095%_ . _%args189096%_) + (lambda (_%@@keywords189254%_ . _%args189255%_) (apply gxc#apply-push-match-vars__% - _%@@keywords189095%_ + _%@@keywords189254%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189095%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords189254%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189095%_ 'K: absent-value)) - _%args189096%_))) + (symbolic-table-ref _%@@keywords189254%_ 'K: absent-value)) + _%args189255%_))) (define gxc#apply-push-match-vars - (lambda _%args189074189102%_ + (lambda _%args189233189261%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args189074189102%_))) + _%args189233189261%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self188988%_ _%stx188989%_) - (let* ((_%__stx189144189145%_ _%stx188989%_) - (_%g188992189009%_ + (lambda (_%self189147%_ _%stx189148%_) + (let* ((_%__stx189303189304%_ _%stx189148%_) + (_%g189151189168%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189144189145%_))))) - (let ((_%__kont189146189147%_ - (lambda (_%L189045%_ _%L189046%_) - (let ((_%ann189062%_ + _%__stx189303189304%_))))) + (let ((_%__kont189305189306%_ + (lambda (_%L189204%_ _%L189205%_) + (let ((_%ann189221%_ (let () (declare (not safe)) - (gx#stx-e _%L189046%_)))) - (let ((__tmp192255 + (gx#stx-e _%L189205%_)))) + (let ((__tmp192414 (lambda () - (let ((_%$e189065%_ _%ann189062%_)) - (if (eq? '@match _%$e189065%_) + (let ((_%$e189224%_ _%ann189221%_)) + (if (eq? '@match _%$e189224%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L189045%_)) - (if (eq? '@syntax-case _%$e189065%_) + (gxc#optimize-match _%L189204%_)) + (if (eq? '@syntax-case _%$e189224%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L189045%_)) + _%L189204%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L189045%_))))))) - (__tmp192254 - (cons _%ann189062%_ + (gxc#compile-e__0 _%L189204%_))))))) + (__tmp192413 + (cons _%ann189221%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp192255 + __tmp192414 gxc#current-annotation-optimizer - __tmp192254))))) - (_%__kont189148189149%_ + __tmp192413))))) + (_%__kont189307189308%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self188988%_ - _%stx188989%_))))) - (let ((_%__match189169189170%_ - (lambda (_%e188996189021%_ - _%hd188997189024%_ - _%tl188998189026%_ - _%e188999189029%_ - _%hd189000189032%_ - _%tl189001189034%_ - _%e189002189037%_ - _%hd189003189040%_ - _%tl189004189042%_) - (let ((_%L189045%_ _%hd189003189040%_) - (_%L189046%_ _%hd189000189032%_)) + _%self189147%_ + _%stx189148%_))))) + (let ((_%__match189328189329%_ + (lambda (_%e189155189180%_ + _%hd189156189183%_ + _%tl189157189185%_ + _%e189158189188%_ + _%hd189159189191%_ + _%tl189160189193%_ + _%e189161189196%_ + _%hd189162189199%_ + _%tl189163189201%_) + (let ((_%L189204%_ _%hd189162189199%_) + (_%L189205%_ _%hd189159189191%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L189046%_)) - (_%__kont189146189147%_ _%L189045%_ _%L189046%_) - (_%__kont189148189149%_)))))) + (gx#identifier? _%L189205%_)) + (_%__kont189305189306%_ _%L189204%_ _%L189205%_) + (_%__kont189307189308%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189144189145%_)) - (let ((_%e188996189021%_ + (gx#stx-pair? _%__stx189303189304%_)) + (let ((_%e189155189180%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189144189145%_)))) - (let ((_%tl188998189026%_ + (gx#stx-e _%__stx189303189304%_)))) + (let ((_%tl189157189185%_ (let () (declare (not safe)) - (##cdr _%e188996189021%_))) - (_%hd188997189024%_ + (##cdr _%e189155189180%_))) + (_%hd189156189183%_ (let () (declare (not safe)) - (##car _%e188996189021%_)))) + (##car _%e189155189180%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188998189026%_)) - (let ((_%e188999189029%_ + (gx#stx-pair? _%tl189157189185%_)) + (let ((_%e189158189188%_ (let () (declare (not safe)) - (gx#stx-e _%tl188998189026%_)))) - (let ((_%tl189001189034%_ + (gx#stx-e _%tl189157189185%_)))) + (let ((_%tl189160189193%_ (let () (declare (not safe)) - (##cdr _%e188999189029%_))) - (_%hd189000189032%_ + (##cdr _%e189158189188%_))) + (_%hd189159189191%_ (let () (declare (not safe)) - (##car _%e188999189029%_)))) + (##car _%e189158189188%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189001189034%_)) - (let ((_%e189002189037%_ + (gx#stx-pair? _%tl189160189193%_)) + (let ((_%e189161189196%_ (let () (declare (not safe)) - (gx#stx-e _%tl189001189034%_)))) - (let ((_%tl189004189042%_ + (gx#stx-e _%tl189160189193%_)))) + (let ((_%tl189163189201%_ (let () (declare (not safe)) - (##cdr _%e189002189037%_))) - (_%hd189003189040%_ + (##cdr _%e189161189196%_))) + (_%hd189162189199%_ (let () (declare (not safe)) - (##car _%e189002189037%_)))) + (##car _%e189161189196%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189004189042%_)) - (_%__match189169189170%_ - _%e188996189021%_ - _%hd188997189024%_ - _%tl188998189026%_ - _%e188999189029%_ - _%hd189000189032%_ - _%tl189001189034%_ - _%e189002189037%_ - _%hd189003189040%_ - _%tl189004189042%_) - (_%__kont189148189149%_)))) - (_%__kont189148189149%_)))) - (_%__kont189148189149%_)))) - (_%__kont189148189149%_))))))) + (gx#stx-null? _%tl189163189201%_)) + (_%__match189328189329%_ + _%e189155189180%_ + _%hd189156189183%_ + _%tl189157189185%_ + _%e189158189188%_ + _%hd189159189191%_ + _%tl189160189193%_ + _%e189161189196%_ + _%hd189162189199%_ + _%tl189163189201%_) + (_%__kont189307189308%_)))) + (_%__kont189307189308%_)))) + (_%__kont189307189308%_)))) + (_%__kont189307189308%_))))))) (define gxc#optimize-match - (lambda (_%stx188287%_) - (let* ((_%g188289188319%_ - (lambda (_%g188290188316%_) + (lambda (_%stx188446%_) + (let* ((_%g188448188478%_ + (lambda (_%g188449188475%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188290188316%_)))) - (_%g188288188985%_ - (lambda (_%g188290188322%_) + _%g188449188475%_)))) + (_%g188447189144%_ + (lambda (_%g188449188481%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188290188322%_)) - (let ((_%e188294188324%_ + (gx#stx-pair? _%g188449188481%_)) + (let ((_%e188453188483%_ (let () (declare (not safe)) - (gx#stx-e _%g188290188322%_)))) - (let ((_%hd188295188327%_ + (gx#stx-e _%g188449188481%_)))) + (let ((_%hd188454188486%_ (let () (declare (not safe)) - (##car _%e188294188324%_))) - (_%tl188296188329%_ + (##car _%e188453188483%_))) + (_%tl188455188488%_ (let () (declare (not safe)) - (##cdr _%e188294188324%_)))) + (##cdr _%e188453188483%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188295188327%_)) + (gx#identifier? _%hd188454188486%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188295188327%_)) + _%hd188454188486%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188296188329%_)) - (let ((_%e188297188332%_ + (gx#stx-pair? _%tl188455188488%_)) + (let ((_%e188456188491%_ (let () (declare (not safe)) - (gx#stx-e _%tl188296188329%_)))) - (let ((_%hd188298188335%_ + (gx#stx-e _%tl188455188488%_)))) + (let ((_%hd188457188494%_ (let () (declare (not safe)) - (##car _%e188297188332%_))) - (_%tl188299188337%_ + (##car _%e188456188491%_))) + (_%tl188458188496%_ (let () (declare (not safe)) - (##cdr _%e188297188332%_)))) + (##cdr _%e188456188491%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188298188335%_)) - (let ((_%e188300188340%_ + _%hd188457188494%_)) + (let ((_%e188459188499%_ (let () (declare (not safe)) (gx#stx-e - _%hd188298188335%_)))) - (let ((_%hd188301188343%_ + _%hd188457188494%_)))) + (let ((_%hd188460188502%_ (let () (declare (not safe)) - (##car _%e188300188340%_))) - (_%tl188302188345%_ + (##car _%e188459188499%_))) + (_%tl188461188504%_ (let () (declare (not safe)) - (##cdr _%e188300188340%_)))) + (##cdr _%e188459188499%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188301188343%_)) - (let ((_%e188303188348%_ + _%hd188460188502%_)) + (let ((_%e188462188507%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd188301188343%_)))) - (let ((_%hd188304188351%_ - (let () (declare (not safe)) (##car _%e188303188348%_))) - (_%tl188305188353%_ + (gx#stx-e _%hd188460188502%_)))) + (let ((_%hd188463188510%_ + (let () (declare (not safe)) (##car _%e188462188507%_))) + (_%tl188464188512%_ (let () (declare (not safe)) - (##cdr _%e188303188348%_)))) + (##cdr _%e188462188507%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188304188351%_)) - (let ((_%e188306188356%_ + (gx#stx-pair? _%hd188463188510%_)) + (let ((_%e188465188515%_ (let () (declare (not safe)) - (gx#stx-e _%hd188304188351%_)))) - (let ((_%hd188307188359%_ + (gx#stx-e _%hd188463188510%_)))) + (let ((_%hd188466188518%_ (let () (declare (not safe)) - (##car _%e188306188356%_))) - (_%tl188308188361%_ + (##car _%e188465188515%_))) + (_%tl188467188520%_ (let () (declare (not safe)) - (##cdr _%e188306188356%_)))) + (##cdr _%e188465188515%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188308188361%_)) + (gx#stx-null? _%tl188467188520%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188305188353%_)) - (let ((_%e188309188364%_ + (gx#stx-pair? _%tl188464188512%_)) + (let ((_%e188468188523%_ (let () (declare (not safe)) - (gx#stx-e _%tl188305188353%_)))) - (let ((_%hd188310188367%_ + (gx#stx-e _%tl188464188512%_)))) + (let ((_%hd188469188526%_ (let () (declare (not safe)) - (##car _%e188309188364%_))) - (_%tl188311188369%_ + (##car _%e188468188523%_))) + (_%tl188470188528%_ (let () (declare (not safe)) - (##cdr _%e188309188364%_)))) + (##cdr _%e188468188523%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188311188369%_)) + (gx#stx-null? _%tl188470188528%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188302188345%_)) + _%tl188461188504%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188299188337%_)) - (let ((_%e188312188372%_ + _%tl188458188496%_)) + (let ((_%e188471188531%_ (let () (declare (not safe)) (gx#stx-e - _%tl188299188337%_)))) - (let ((_%hd188313188375%_ + _%tl188458188496%_)))) + (let ((_%hd188472188534%_ (let () (declare (not safe)) - (##car _%e188312188372%_))) - (_%tl188314188377%_ + (##car _%e188471188531%_))) + (_%tl188473188536%_ (let () (declare (not safe)) - (##cdr _%e188312188372%_)))) + (##cdr _%e188471188531%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188314188377%_)) - ((lambda (_%L188380%_ + _%tl188473188536%_)) + ((lambda (_%L188539%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L188381%_ - _%L188382%_) - (let _%lp188406%_ ((_%body188408%_ _%L188380%_) - (_%negation188409%_ - (cons _%L188382%_ _%L188381%_)) - (_%clauses188410%_ '()) - (_%konts188411%_ '())) - (let* ((_%__stx189352189353%_ _%body188408%_) - (_%g188414188454%_ + _%L188540%_ + _%L188541%_) + (let _%lp188565%_ ((_%body188567%_ _%L188539%_) + (_%negation188568%_ + (cons _%L188541%_ _%L188540%_)) + (_%clauses188569%_ '()) + (_%konts188570%_ '())) + (let* ((_%__stx189511189512%_ _%body188567%_) + (_%g188573188613%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189352189353%_))))) - (let ((_%__kont189354189355%_ - (lambda (_%L188784%_) - (let* ((_%__stx189288189289%_ _%L188784%_) - (_%g188798188828%_ + _%__stx189511189512%_))))) + (let ((_%__kont189513189514%_ + (lambda (_%L188943%_) + (let* ((_%__stx189447189448%_ _%L188943%_) + (_%g188957188987%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189288189289%_))))) - (let ((_%__kont189290189291%_ - (lambda (_%L188924%_ - _%L188925%_ - _%L188926%_) - (if (null? _%clauses188410%_) - (let* ((_%negation188950188957%_ - _%negation188409%_) - (_%E188952188961%_ + _%__stx189447189448%_))))) + (let ((_%__kont189449189450%_ + (lambda (_%L189083%_ + _%L189084%_ + _%L189085%_) + (if (null? _%clauses188569%_) + (let* ((_%negation189109189116%_ + _%negation188568%_) + (_%E189111189120%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation188950188957%_ + _%negation189109189116%_ '([E . negate]))) '#!void)) - (_%K188953188967%_ - (lambda (_%negate188964%_ _%E188965%_) - (let ((__tmp192256 + (_%K189112189126%_ + (lambda (_%negate189123%_ _%E189124%_) + (let ((__tmp192415 (cons '%#let-values - (cons (cons (cons (cons _%E188965%_ '()) - (cons _%negate188964%_ '())) + (cons (cons (cons (cons _%E189124%_ '()) + (cons _%negate189123%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L188926%_ + (cons (cons (cons (cons _%L189085%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L188925%_)) + (gxc#compile-e__0 _%L189084%_)) '())) '()) - (cons _%L188924%_ '()))) + (cons _%L189083%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192256 _%stx188287%_))))) + (gxc#xform-wrap-source __tmp192415 _%stx188446%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation188950188957%_) - (let ((_%hd188954188970%_ + (if (pair? _%negation189109189116%_) + (let ((_%hd189113189129%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation188950188957%_))) - (_%tl188955188972%_ + (##car _%negation189109189116%_))) + (_%tl189114189131%_ (let () (declare (not safe)) - (##cdr _%negation188950188957%_)))) - (let* ((_%E188975%_ _%hd188954188970%_) - (_%negate188977%_ _%tl188955188972%_)) - (_%K188953188967%_ _%negate188977%_ _%E188975%_))) - (_%E188952188961%_))) + (##cdr _%negation189109189116%_)))) + (let* ((_%E189134%_ _%hd189113189129%_) + (_%negate189136%_ _%tl189114189131%_)) + (_%K189112189126%_ _%negate189136%_ _%E189134%_))) + (_%E189111189120%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx188287%_ - _%negation188409%_ + _%stx188446%_ + _%negation188568%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L188924%_ '())))) - _%clauses188410%_) + (cons '() (cons _%L189083%_ '())))) + _%clauses188569%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L188926%_ + (cons (cons _%L189085%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L188925%_))) - _%konts188411%_))))) + (gxc#compile-e__0 _%L189084%_))) + _%konts188570%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189292189293%_ + (_%__kont189451189452%_ (lambda () - (let* ((_%negation188834188841%_ - _%negation188409%_) - (_%E188836188845%_ + (let* ((_%negation188993189000%_ + _%negation188568%_) + (_%E188995189004%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188834188841%_ + _%negation188993189000%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K188837188851%_ - (lambda (_%negate188848%_ - _%E188849%_) - (let ((__tmp192257 + (_%K188996189010%_ + (lambda (_%negate189007%_ + _%E189008%_) + (let ((__tmp192416 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E188849%_ '()) - (cons _%negate188848%_ '())) + (cons (cons (cons (cons _%E189008%_ '()) + (cons _%negate189007%_ '())) '()) - (cons _%L188784%_ '()))))) + (cons _%L188943%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192257 _%stx188287%_))))) + (gxc#xform-wrap-source __tmp192416 _%stx188446%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation188834188841%_) - (let ((_%hd188838188854%_ + (if (pair? _%negation188993189000%_) + (let ((_%hd188997189013%_ (let () (declare (not safe)) - (##car _%negation188834188841%_))) - (_%tl188839188856%_ + (##car _%negation188993189000%_))) + (_%tl188998189015%_ (let () (declare (not safe)) - (##cdr _%negation188834188841%_)))) - (let* ((_%E188859%_ - _%hd188838188854%_) - (_%negate188861%_ - _%tl188839188856%_)) - (_%K188837188851%_ - _%negate188861%_ - _%E188859%_))) - (_%E188836188845%_)))))) - (let ((_%g188797188863%_ + (##cdr _%negation188993189000%_)))) + (let* ((_%E189018%_ + _%hd188997189013%_) + (_%negate189020%_ + _%tl188998189015%_)) + (_%K188996189010%_ + _%negate189020%_ + _%E189018%_))) + (_%E188995189004%_)))))) + (let ((_%g188956189022%_ (lambda () - (if (null? _%clauses188410%_) - (_%__kont189292189293%_) + (if (null? _%clauses188569%_) + (_%__kont189451189452%_) (let () (declare (not safe)) - (_%g188798188828%_)))))) + (_%g188957188987%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189288189289%_)) - (let ((_%e188803188868%_ + _%__stx189447189448%_)) + (let ((_%e188962189027%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189288189289%_)))) - (let ((_%tl188805188873%_ + _%__stx189447189448%_)))) + (let ((_%tl188964189032%_ (let () (declare (not safe)) - (##cdr _%e188803188868%_))) - (_%hd188804188871%_ + (##cdr _%e188962189027%_))) + (_%hd188963189030%_ (let () (declare (not safe)) - (##car _%e188803188868%_)))) + (##car _%e188962189027%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188804188871%_)) + _%hd188963189030%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188804188871%_)) + _%hd188963189030%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188805188873%_)) - (let ((_%e188806188876%_ + _%tl188964189032%_)) + (let ((_%e188965189035%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188805188873%_)))) - (let ((_%tl188808188881%_ + (gx#stx-e _%tl188964189032%_)))) + (let ((_%tl188967189040%_ (let () (declare (not safe)) - (##cdr _%e188806188876%_))) - (_%hd188807188879%_ + (##cdr _%e188965189035%_))) + (_%hd188966189038%_ (let () (declare (not safe)) - (##car _%e188806188876%_)))) + (##car _%e188965189035%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188807188879%_)) - (let ((_%e188809188884%_ + (gx#stx-pair? _%hd188966189038%_)) + (let ((_%e188968189043%_ (let () (declare (not safe)) - (gx#stx-e _%hd188807188879%_)))) - (let ((_%tl188811188889%_ + (gx#stx-e _%hd188966189038%_)))) + (let ((_%tl188970189048%_ (let () (declare (not safe)) - (##cdr _%e188809188884%_))) - (_%hd188810188887%_ + (##cdr _%e188968189043%_))) + (_%hd188969189046%_ (let () (declare (not safe)) - (##car _%e188809188884%_)))) + (##car _%e188968189043%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188810188887%_)) - (let ((_%e188812188892%_ + (gx#stx-pair? _%hd188969189046%_)) + (let ((_%e188971189051%_ (let () (declare (not safe)) - (gx#stx-e _%hd188810188887%_)))) - (let ((_%tl188814188897%_ + (gx#stx-e _%hd188969189046%_)))) + (let ((_%tl188973189056%_ (let () (declare (not safe)) - (##cdr _%e188812188892%_))) - (_%hd188813188895%_ + (##cdr _%e188971189051%_))) + (_%hd188972189054%_ (let () (declare (not safe)) - (##car _%e188812188892%_)))) + (##car _%e188971189051%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188813188895%_)) - (let ((_%e188815188900%_ + _%hd188972189054%_)) + (let ((_%e188974189059%_ (let () (declare (not safe)) (gx#stx-e - _%hd188813188895%_)))) - (let ((_%tl188817188905%_ + _%hd188972189054%_)))) + (let ((_%tl188976189064%_ (let () (declare (not safe)) - (##cdr _%e188815188900%_))) - (_%hd188816188903%_ + (##cdr _%e188974189059%_))) + (_%hd188975189062%_ (let () (declare (not safe)) - (##car _%e188815188900%_)))) + (##car _%e188974189059%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188817188905%_)) + _%tl188976189064%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188814188897%_)) - (let ((_%e188818188908%_ + _%tl188973189056%_)) + (let ((_%e188977189067%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl188814188897%_)))) - (let ((_%tl188820188913%_ + (gx#stx-e _%tl188973189056%_)))) + (let ((_%tl188979189072%_ (let () (declare (not safe)) - (##cdr _%e188818188908%_))) - (_%hd188819188911%_ + (##cdr _%e188977189067%_))) + (_%hd188978189070%_ (let () (declare (not safe)) - (##car _%e188818188908%_)))) + (##car _%e188977189067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188820188913%_)) + (gx#stx-null? _%tl188979189072%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188811188889%_)) + (gx#stx-null? _%tl188970189048%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188808188881%_)) - (let ((_%e188821188916%_ + (gx#stx-pair? _%tl188967189040%_)) + (let ((_%e188980189075%_ (let () (declare (not safe)) - (gx#stx-e _%tl188808188881%_)))) - (let ((_%tl188823188921%_ + (gx#stx-e _%tl188967189040%_)))) + (let ((_%tl188982189080%_ (let () (declare (not safe)) - (##cdr _%e188821188916%_))) - (_%hd188822188919%_ + (##cdr _%e188980189075%_))) + (_%hd188981189078%_ (let () (declare (not safe)) - (##car _%e188821188916%_)))) + (##car _%e188980189075%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188823188921%_)) - (_%__kont189290189291%_ - _%hd188822188919%_ - _%hd188819188911%_ - _%hd188816188903%_) + (gx#stx-null? _%tl188982189080%_)) + (_%__kont189449189450%_ + _%hd188981189078%_ + _%hd188978189070%_ + _%hd188975189062%_) (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g188956189022%_))))) (let () (declare (not safe)) - (_%g188797188863%_))) - (let () (declare (not safe)) (_%g188797188863%_))) - (let () (declare (not safe)) (_%g188797188863%_))))) - (let () (declare (not safe)) (_%g188797188863%_))) + (_%g188956189022%_))) + (let () (declare (not safe)) (_%g188956189022%_))) + (let () (declare (not safe)) (_%g188956189022%_))))) + (let () (declare (not safe)) (_%g188956189022%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g188956189022%_))))) (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g188956189022%_))))) (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g188956189022%_))))) (let () (declare (not safe)) - (_%g188797188863%_))))) - (let () (declare (not safe)) (_%g188797188863%_))) - (let () (declare (not safe)) (_%g188797188863%_))) + (_%g188956189022%_))))) + (let () (declare (not safe)) (_%g188956189022%_))) + (let () (declare (not safe)) (_%g188956189022%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g188956189022%_))))) (let () (declare (not safe)) - (_%g188797188863%_)))))))) - (_%__kont189356189357%_ - (lambda (_%L188515%_ _%L188516%_ _%L188517%_) - (let* ((_%__stx189172189173%_ _%L188516%_) - (_%g188544188593%_ + (_%g188956189022%_)))))))) + (_%__kont189515189516%_ + (lambda (_%L188674%_ _%L188675%_ _%L188676%_) + (let* ((_%__stx189331189332%_ _%L188675%_) + (_%g188703188752%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189172189173%_))))) - (let ((_%__kont189174189175%_ - (lambda (_%L188721%_ - _%L188722%_ - _%L188723%_) - (_%lp188406%_ - _%L188515%_ - _%negation188409%_ - (cons (cons _%L188517%_ + _%__stx189331189332%_))))) + (let ((_%__kont189333189334%_ + (lambda (_%L188880%_ + _%L188881%_ + _%L188882%_) + (_%lp188565%_ + _%L188674%_ + _%negation188568%_ + (cons (cons _%L188676%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L188721%_ '())))) + (cons '() (cons _%L188880%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses188410%_) - (cons (cons _%L188723%_ + _%clauses188569%_) + (cons (cons _%L188882%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188722%_))) - _%konts188411%_)))) - (_%__kont189176189177%_ - (lambda (_%L188622%_) - (_%lp188406%_ - _%L188515%_ - (cons _%L188517%_ + _%L188881%_))) + _%konts188570%_)))) + (_%__kont189335189336%_ + (lambda (_%L188781%_) + (_%lp188565%_ + _%L188674%_ + (cons _%L188676%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188622%_))) - _%clauses188410%_ - _%konts188411%_)))) + _%L188781%_))) + _%clauses188569%_ + _%konts188570%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189172189173%_)) - (let ((_%e188549188641%_ + _%__stx189331189332%_)) + (let ((_%e188708188800%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189172189173%_)))) - (let ((_%tl188551188646%_ + _%__stx189331189332%_)))) + (let ((_%tl188710188805%_ (let () (declare (not safe)) - (##cdr _%e188549188641%_))) - (_%hd188550188644%_ + (##cdr _%e188708188800%_))) + (_%hd188709188803%_ (let () (declare (not safe)) - (##car _%e188549188641%_)))) + (##car _%e188708188800%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188550188644%_)) + _%hd188709188803%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188550188644%_)) + _%hd188709188803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188551188646%_)) - (let ((_%e188552188649%_ + _%tl188710188805%_)) + (let ((_%e188711188808%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188551188646%_)))) - (let ((_%tl188554188654%_ + (gx#stx-e _%tl188710188805%_)))) + (let ((_%tl188713188813%_ (let () (declare (not safe)) - (##cdr _%e188552188649%_))) - (_%hd188553188652%_ + (##cdr _%e188711188808%_))) + (_%hd188712188811%_ (let () (declare (not safe)) - (##car _%e188552188649%_)))) + (##car _%e188711188808%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd188553188652%_)) + (gx#stx-null? _%hd188712188811%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188554188654%_)) - (let ((_%e188555188657%_ + (gx#stx-pair? _%tl188713188813%_)) + (let ((_%e188714188816%_ (let () (declare (not safe)) - (gx#stx-e _%tl188554188654%_)))) - (let ((_%tl188557188662%_ + (gx#stx-e _%tl188713188813%_)))) + (let ((_%tl188716188821%_ (let () (declare (not safe)) - (##cdr _%e188555188657%_))) - (_%hd188556188660%_ + (##cdr _%e188714188816%_))) + (_%hd188715188819%_ (let () (declare (not safe)) - (##car _%e188555188657%_)))) + (##car _%e188714188816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188556188660%_)) - (let ((_%e188558188665%_ + (gx#stx-pair? _%hd188715188819%_)) + (let ((_%e188717188824%_ (let () (declare (not safe)) - (gx#stx-e _%hd188556188660%_)))) - (let ((_%tl188560188670%_ + (gx#stx-e _%hd188715188819%_)))) + (let ((_%tl188719188829%_ (let () (declare (not safe)) - (##cdr _%e188558188665%_))) - (_%hd188559188668%_ + (##cdr _%e188717188824%_))) + (_%hd188718188827%_ (let () (declare (not safe)) - (##car _%e188558188665%_)))) + (##car _%e188717188824%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188559188668%_)) + _%hd188718188827%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188559188668%_)) + _%hd188718188827%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188560188670%_)) - (let ((_%e188561188673%_ + _%tl188719188829%_)) + (let ((_%e188720188832%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188560188670%_)))) - (let ((_%tl188563188678%_ - (let () (declare (not safe)) (##cdr _%e188561188673%_))) - (_%hd188562188676%_ + (gx#stx-e _%tl188719188829%_)))) + (let ((_%tl188722188837%_ + (let () (declare (not safe)) (##cdr _%e188720188832%_))) + (_%hd188721188835%_ (let () (declare (not safe)) - (##car _%e188561188673%_)))) + (##car _%e188720188832%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188562188676%_)) - (let ((_%e188564188681%_ + (gx#stx-pair? _%hd188721188835%_)) + (let ((_%e188723188840%_ (let () (declare (not safe)) - (gx#stx-e _%hd188562188676%_)))) - (let ((_%tl188566188686%_ + (gx#stx-e _%hd188721188835%_)))) + (let ((_%tl188725188845%_ (let () (declare (not safe)) - (##cdr _%e188564188681%_))) - (_%hd188565188684%_ + (##cdr _%e188723188840%_))) + (_%hd188724188843%_ (let () (declare (not safe)) - (##car _%e188564188681%_)))) + (##car _%e188723188840%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188565188684%_)) - (let ((_%e188567188689%_ + (gx#stx-pair? _%hd188724188843%_)) + (let ((_%e188726188848%_ (let () (declare (not safe)) - (gx#stx-e _%hd188565188684%_)))) - (let ((_%tl188569188694%_ + (gx#stx-e _%hd188724188843%_)))) + (let ((_%tl188728188853%_ (let () (declare (not safe)) - (##cdr _%e188567188689%_))) - (_%hd188568188692%_ + (##cdr _%e188726188848%_))) + (_%hd188727188851%_ (let () (declare (not safe)) - (##car _%e188567188689%_)))) + (##car _%e188726188848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188568188692%_)) - (let ((_%e188570188697%_ + (gx#stx-pair? _%hd188727188851%_)) + (let ((_%e188729188856%_ (let () (declare (not safe)) - (gx#stx-e _%hd188568188692%_)))) - (let ((_%tl188572188702%_ + (gx#stx-e _%hd188727188851%_)))) + (let ((_%tl188731188861%_ (let () (declare (not safe)) - (##cdr _%e188570188697%_))) - (_%hd188571188700%_ + (##cdr _%e188729188856%_))) + (_%hd188730188859%_ (let () (declare (not safe)) - (##car _%e188570188697%_)))) + (##car _%e188729188856%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188572188702%_)) + _%tl188731188861%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188569188694%_)) - (let ((_%e188573188705%_ + _%tl188728188853%_)) + (let ((_%e188732188864%_ (let () (declare (not safe)) (gx#stx-e - _%tl188569188694%_)))) - (let ((_%tl188575188710%_ + _%tl188728188853%_)))) + (let ((_%tl188734188869%_ (let () (declare (not safe)) - (##cdr _%e188573188705%_))) - (_%hd188574188708%_ + (##cdr _%e188732188864%_))) + (_%hd188733188867%_ (let () (declare (not safe)) - (##car _%e188573188705%_)))) + (##car _%e188732188864%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188575188710%_)) + _%tl188734188869%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188566188686%_)) + (gx#stx-null? _%tl188725188845%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188563188678%_)) - (let ((_%e188576188713%_ + (gx#stx-pair? _%tl188722188837%_)) + (let ((_%e188735188872%_ (let () (declare (not safe)) - (gx#stx-e _%tl188563188678%_)))) - (let ((_%tl188578188718%_ + (gx#stx-e _%tl188722188837%_)))) + (let ((_%tl188737188877%_ (let () (declare (not safe)) - (##cdr _%e188576188713%_))) - (_%hd188577188716%_ + (##cdr _%e188735188872%_))) + (_%hd188736188875%_ (let () (declare (not safe)) - (##car _%e188576188713%_)))) + (##car _%e188735188872%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188578188718%_)) + (gx#stx-null? _%tl188737188877%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188557188662%_)) - (_%__kont189174189175%_ - _%hd188577188716%_ - _%hd188574188708%_ - _%hd188571188700%_) + (gx#stx-null? _%tl188716188821%_)) + (_%__kont189333189334%_ + _%hd188736188875%_ + _%hd188733188867%_ + _%hd188730188859%_) (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g188703188752%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_))))) + (_%g188703188752%_))))) + (let () (declare (not safe)) (_%g188703188752%_))) + (let () (declare (not safe)) (_%g188703188752%_))) + (let () (declare (not safe)) (_%g188703188752%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g188703188752%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g188703188752%_))))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g188703188752%_))))) (let () (declare (not safe)) - (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) + (_%g188703188752%_))))) + (let () (declare (not safe)) (_%g188703188752%_))))) + (let () (declare (not safe)) (_%g188703188752%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g188703188752%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g188703188752%_))))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g188703188752%_))))) (let () (declare (not safe)) - (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) + (_%g188703188752%_))) + (let () (declare (not safe)) (_%g188703188752%_))))) + (let () (declare (not safe)) (_%g188703188752%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd188550188644%_)) + (gx#stx-eq? '%#begin-annotation _%hd188709188803%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188551188646%_)) - (let ((_%e188583188606%_ + (gx#stx-pair? _%tl188710188805%_)) + (let ((_%e188742188765%_ (let () (declare (not safe)) - (gx#stx-e _%tl188551188646%_)))) - (let ((_%tl188585188611%_ + (gx#stx-e _%tl188710188805%_)))) + (let ((_%tl188744188770%_ (let () (declare (not safe)) - (##cdr _%e188583188606%_))) - (_%hd188584188609%_ + (##cdr _%e188742188765%_))) + (_%hd188743188768%_ (let () (declare (not safe)) - (##car _%e188583188606%_)))) + (##car _%e188742188765%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188584188609%_)) + (gx#identifier? _%hd188743188768%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd188584188609%_)) + _%hd188743188768%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188585188611%_)) - (let ((_%e188586188614%_ + (gx#stx-pair? _%tl188744188770%_)) + (let ((_%e188745188773%_ (let () (declare (not safe)) - (gx#stx-e _%tl188585188611%_)))) - (let ((_%tl188588188619%_ + (gx#stx-e _%tl188744188770%_)))) + (let ((_%tl188747188778%_ (let () (declare (not safe)) - (##cdr _%e188586188614%_))) - (_%hd188587188617%_ + (##cdr _%e188745188773%_))) + (_%hd188746188776%_ (let () (declare (not safe)) - (##car _%e188586188614%_)))) + (##car _%e188745188773%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188588188619%_)) - (_%__kont189176189177%_ - _%hd188587188617%_) + _%tl188747188778%_)) + (_%__kont189335189336%_ + _%hd188746188776%_) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g188703188752%_))))) (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g188703188752%_))) (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g188703188752%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_)))) + (_%g188703188752%_))))) + (let () (declare (not safe)) (_%g188703188752%_))) + (let () (declare (not safe)) (_%g188703188752%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g188703188752%_))))) (let () (declare (not safe)) - (_%g188544188593%_)))))))) + (_%g188703188752%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189352189353%_)) - (let ((_%e188417188760%_ + (gx#stx-pair? _%__stx189511189512%_)) + (let ((_%e188576188919%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189352189353%_)))) - (let ((_%tl188419188765%_ + (gx#stx-e _%__stx189511189512%_)))) + (let ((_%tl188578188924%_ (let () (declare (not safe)) - (##cdr _%e188417188760%_))) - (_%hd188418188763%_ + (##cdr _%e188576188919%_))) + (_%hd188577188922%_ (let () (declare (not safe)) - (##car _%e188417188760%_)))) + (##car _%e188576188919%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188418188763%_)) + (gx#identifier? _%hd188577188922%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd188418188763%_)) + _%hd188577188922%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188419188765%_)) - (let ((_%e188420188768%_ + _%tl188578188924%_)) + (let ((_%e188579188927%_ (let () (declare (not safe)) (gx#stx-e - _%tl188419188765%_)))) - (let ((_%tl188422188773%_ + _%tl188578188924%_)))) + (let ((_%tl188581188932%_ (let () (declare (not safe)) - (##cdr _%e188420188768%_))) - (_%hd188421188771%_ + (##cdr _%e188579188927%_))) + (_%hd188580188930%_ (let () (declare (not safe)) - (##car _%e188420188768%_)))) + (##car _%e188579188927%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188421188771%_)) + _%hd188580188930%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd188421188771%_)) + _%hd188580188930%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188422188773%_)) - (let ((_%e188423188776%_ + (gx#stx-pair? _%tl188581188932%_)) + (let ((_%e188582188935%_ (let () (declare (not safe)) - (gx#stx-e _%tl188422188773%_)))) - (let ((_%tl188425188781%_ + (gx#stx-e _%tl188581188932%_)))) + (let ((_%tl188584188940%_ (let () (declare (not safe)) - (##cdr _%e188423188776%_))) - (_%hd188424188779%_ + (##cdr _%e188582188935%_))) + (_%hd188583188938%_ (let () (declare (not safe)) - (##car _%e188423188776%_)))) + (##car _%e188582188935%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188425188781%_)) - (_%__kont189354189355%_ _%hd188424188779%_) + (gx#stx-null? _%tl188584188940%_)) + (_%__kont189513189514%_ _%hd188583188938%_) (let () (declare (not safe)) - (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))))) + (_%g188573188613%_))))) + (let () (declare (not safe)) (_%g188573188613%_))) + (let () (declare (not safe)) (_%g188573188613%_))) + (let () (declare (not safe)) (_%g188573188613%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188414188454%_))) + (_%g188573188613%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188418188763%_)) + _%hd188577188922%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188419188765%_)) - (let ((_%e188432188467%_ + _%tl188578188924%_)) + (let ((_%e188591188626%_ (let () (declare (not safe)) (gx#stx-e - _%tl188419188765%_)))) - (let ((_%tl188434188472%_ + _%tl188578188924%_)))) + (let ((_%tl188593188631%_ (let () (declare (not safe)) - (##cdr _%e188432188467%_))) - (_%hd188433188470%_ + (##cdr _%e188591188626%_))) + (_%hd188592188629%_ (let () (declare (not safe)) - (##car _%e188432188467%_)))) + (##car _%e188591188626%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188433188470%_)) - (let ((_%e188435188475%_ + _%hd188592188629%_)) + (let ((_%e188594188634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188433188470%_)))) - (let ((_%tl188437188480%_ + (gx#stx-e _%hd188592188629%_)))) + (let ((_%tl188596188639%_ (let () (declare (not safe)) - (##cdr _%e188435188475%_))) - (_%hd188436188478%_ + (##cdr _%e188594188634%_))) + (_%hd188595188637%_ (let () (declare (not safe)) - (##car _%e188435188475%_)))) + (##car _%e188594188634%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188436188478%_)) - (let ((_%e188438188483%_ + (gx#stx-pair? _%hd188595188637%_)) + (let ((_%e188597188642%_ (let () (declare (not safe)) - (gx#stx-e _%hd188436188478%_)))) - (let ((_%tl188440188488%_ + (gx#stx-e _%hd188595188637%_)))) + (let ((_%tl188599188647%_ (let () (declare (not safe)) - (##cdr _%e188438188483%_))) - (_%hd188439188486%_ + (##cdr _%e188597188642%_))) + (_%hd188598188645%_ (let () (declare (not safe)) - (##car _%e188438188483%_)))) + (##car _%e188597188642%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188439188486%_)) - (let ((_%e188441188491%_ + (gx#stx-pair? _%hd188598188645%_)) + (let ((_%e188600188650%_ (let () (declare (not safe)) - (gx#stx-e _%hd188439188486%_)))) - (let ((_%tl188443188496%_ + (gx#stx-e _%hd188598188645%_)))) + (let ((_%tl188602188655%_ (let () (declare (not safe)) - (##cdr _%e188441188491%_))) - (_%hd188442188494%_ + (##cdr _%e188600188650%_))) + (_%hd188601188653%_ (let () (declare (not safe)) - (##car _%e188441188491%_)))) + (##car _%e188600188650%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188443188496%_)) + (gx#stx-null? _%tl188602188655%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188440188488%_)) - (let ((_%e188444188499%_ + _%tl188599188647%_)) + (let ((_%e188603188658%_ (let () (declare (not safe)) (gx#stx-e - _%tl188440188488%_)))) - (let ((_%tl188446188504%_ + _%tl188599188647%_)))) + (let ((_%tl188605188663%_ (let () (declare (not safe)) - (##cdr _%e188444188499%_))) - (_%hd188445188502%_ + (##cdr _%e188603188658%_))) + (_%hd188604188661%_ (let () (declare (not safe)) - (##car _%e188444188499%_)))) + (##car _%e188603188658%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188446188504%_)) + _%tl188605188663%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188437188480%_)) + _%tl188596188639%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188434188472%_)) - (let ((_%e188447188507%_ + (gx#stx-pair? _%tl188593188631%_)) + (let ((_%e188606188666%_ (let () (declare (not safe)) - (gx#stx-e _%tl188434188472%_)))) - (let ((_%tl188449188512%_ + (gx#stx-e _%tl188593188631%_)))) + (let ((_%tl188608188671%_ (let () (declare (not safe)) - (##cdr _%e188447188507%_))) - (_%hd188448188510%_ + (##cdr _%e188606188666%_))) + (_%hd188607188669%_ (let () (declare (not safe)) - (##car _%e188447188507%_)))) + (##car _%e188606188666%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188449188512%_)) - (_%__kont189356189357%_ - _%hd188448188510%_ - _%hd188445188502%_ - _%hd188442188494%_) + (gx#stx-null? _%tl188608188671%_)) + (_%__kont189515189516%_ + _%hd188607188669%_ + _%hd188604188661%_ + _%hd188601188653%_) (let () (declare (not safe)) - (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))))) + (_%g188573188613%_))))) + (let () (declare (not safe)) (_%g188573188613%_))) + (let () (declare (not safe)) (_%g188573188613%_))) + (let () (declare (not safe)) (_%g188573188613%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188414188454%_))) + (_%g188573188613%_))) (let () (declare (not safe)) - (_%g188414188454%_))))) + (_%g188573188613%_))))) (let () (declare (not safe)) - (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))))) + (_%g188573188613%_))))) + (let () (declare (not safe)) (_%g188573188613%_))))) + (let () (declare (not safe)) (_%g188573188613%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188414188454%_))) + (_%g188573188613%_))) (let () (declare (not safe)) - (_%g188414188454%_)))) + (_%g188573188613%_)))) (let () (declare (not safe)) - (_%g188414188454%_))))) + (_%g188573188613%_))))) (let () (declare (not safe)) - (_%g188414188454%_))))))) - _%hd188313188375%_ - _%hd188310188367%_ - _%hd188307188359%_) - (_%g188289188319%_ _%g188290188322%_)))) + (_%g188573188613%_))))))) + _%hd188472188534%_ + _%hd188469188526%_ + _%hd188466188518%_) + (_%g188448188478%_ _%g188449188481%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188289188319%_ - _%g188290188322%_)) - (_%g188289188319%_ - _%g188290188322%_)) - (_%g188289188319%_ - _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)) - (_%g188289188319%_ _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)))) + (_%g188448188478%_ + _%g188449188481%_)) + (_%g188448188478%_ + _%g188449188481%_)) + (_%g188448188478%_ + _%g188449188481%_)))) + (_%g188448188478%_ _%g188449188481%_)) + (_%g188448188478%_ _%g188449188481%_)))) + (_%g188448188478%_ _%g188449188481%_)))) + (_%g188448188478%_ _%g188449188481%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188289188319%_ - _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)) - (_%g188289188319%_ _%g188290188322%_)) - (_%g188289188319%_ _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_))))) - (_%g188288188985%_ _%stx188287%_)))) + (_%g188448188478%_ + _%g188449188481%_)))) + (_%g188448188478%_ _%g188449188481%_)) + (_%g188448188478%_ _%g188449188481%_)) + (_%g188448188478%_ _%g188449188481%_)))) + (_%g188448188478%_ _%g188449188481%_))))) + (_%g188447189144%_ _%stx188446%_)))) (define gxc#optimize-match-body - (lambda (_%stx187993%_ - _%negation187994%_ - _%clauses187995%_ - _%konts187996%_) - (letrec ((_%push-variables187998%_ - (lambda (_%clause188245%_ _%kont188246%_) - (let ((_%clause188247188257%_ _%clause188245%_) - (_%kont188248188259%_ _%kont188246%_)) - (let* ((_%E188250188263%_ + (lambda (_%stx188152%_ + _%negation188153%_ + _%clauses188154%_ + _%konts188155%_) + (letrec ((_%push-variables188157%_ + (lambda (_%clause188404%_ _%kont188405%_) + (let ((_%clause188406188416%_ _%clause188404%_) + (_%kont188407188418%_ _%kont188405%_)) + (let* ((_%E188409188422%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause188247188257%_ - _%kont188248188259%_ + _%clause188406188416%_ + _%kont188407188418%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K188251188270%_ - (lambda (_%clause-lambda188266%_ - _%clause-name188267%_ - _%K188268%_) - (cons _%clause-name188267%_ + (_%K188410188429%_ + (lambda (_%clause-lambda188425%_ + _%clause-name188426%_ + _%K188427%_) + (cons _%clause-name188426%_ (gxc#apply-push-match-vars__% '#f '() - _%K188268%_ - _%clause-lambda188266%_))))) - (if (pair? _%clause188247188257%_) - (let ((_%hd188254188273%_ + _%K188427%_ + _%clause-lambda188425%_))))) + (if (pair? _%clause188406188416%_) + (let ((_%hd188413188432%_ (let () (declare (not safe)) - (##car _%clause188247188257%_))) - (_%tl188255188275%_ + (##car _%clause188406188416%_))) + (_%tl188414188434%_ (let () (declare (not safe)) - (##cdr _%clause188247188257%_)))) - (let* ((_%clause-name188278%_ _%hd188254188273%_) - (_%clause-lambda188280%_ - _%tl188255188275%_)) - (if (pair? _%kont188248188259%_) - (let* ((_%hd188252188282%_ + (##cdr _%clause188406188416%_)))) + (let* ((_%clause-name188437%_ _%hd188413188432%_) + (_%clause-lambda188439%_ + _%tl188414188434%_)) + (if (pair? _%kont188407188418%_) + (let* ((_%hd188411188441%_ (let () (declare (not safe)) - (##car _%kont188248188259%_))) - (_%K188285%_ _%hd188252188282%_)) - (_%K188251188270%_ - _%clause-lambda188280%_ - _%clause-name188278%_ - _%K188285%_)) - (_%E188250188263%_)))) - (_%E188250188263%_)))))) - (_%start-match187999%_ - (lambda (_%kont188179%_) - (let* ((_%g188181188197%_ - (lambda (_%g188182188194%_) + (##car _%kont188407188418%_))) + (_%K188444%_ _%hd188411188441%_)) + (_%K188410188429%_ + _%clause-lambda188439%_ + _%clause-name188437%_ + _%K188444%_)) + (_%E188409188422%_)))) + (_%E188409188422%_)))))) + (_%start-match188158%_ + (lambda (_%kont188338%_) + (let* ((_%g188340188356%_ + (lambda (_%g188341188353%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188182188194%_)))) - (_%g188180188242%_ - (lambda (_%g188182188200%_) + _%g188341188353%_)))) + (_%g188339188401%_ + (lambda (_%g188341188359%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188182188200%_)) - (let ((_%e188184188202%_ + (gx#stx-pair? _%g188341188359%_)) + (let ((_%e188343188361%_ (let () (declare (not safe)) - (gx#stx-e _%g188182188200%_)))) - (let ((_%hd188185188205%_ + (gx#stx-e _%g188341188359%_)))) + (let ((_%hd188344188364%_ (let () (declare (not safe)) - (##car _%e188184188202%_))) - (_%tl188186188207%_ + (##car _%e188343188361%_))) + (_%tl188345188366%_ (let () (declare (not safe)) - (##cdr _%e188184188202%_)))) + (##cdr _%e188343188361%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188185188205%_)) + _%hd188344188364%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188185188205%_)) + _%hd188344188364%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188186188207%_)) - (let ((_%e188187188210%_ + _%tl188345188366%_)) + (let ((_%e188346188369%_ (let () (declare (not safe)) (gx#stx-e - _%tl188186188207%_)))) - (let ((_%hd188188188213%_ + _%tl188345188366%_)))) + (let ((_%hd188347188372%_ (let () (declare (not safe)) - (##car _%e188187188210%_))) - (_%tl188189188215%_ + (##car _%e188346188369%_))) + (_%tl188348188374%_ (let () (declare (not safe)) - (##cdr _%e188187188210%_)))) + (##cdr _%e188346188369%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd188188188213%_)) + _%hd188347188372%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl188189188215%_)) - (let ((_%e188190188218%_ + (gx#stx-pair? _%tl188348188374%_)) + (let ((_%e188349188377%_ (let () (declare (not safe)) - (gx#stx-e _%tl188189188215%_)))) - (let ((_%hd188191188221%_ + (gx#stx-e _%tl188348188374%_)))) + (let ((_%hd188350188380%_ (let () (declare (not safe)) - (##car _%e188190188218%_))) - (_%tl188192188223%_ + (##car _%e188349188377%_))) + (_%tl188351188382%_ (let () (declare (not safe)) - (##cdr _%e188190188218%_)))) + (##cdr _%e188349188377%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188192188223%_)) - ((lambda (_%L188226%_) _%L188226%_) - _%hd188191188221%_) - (_%g188181188197%_ _%g188182188200%_)))) - (_%g188181188197%_ _%g188182188200%_)) - (_%g188181188197%_ _%g188182188200%_)))) + (gx#stx-null? _%tl188351188382%_)) + ((lambda (_%L188385%_) _%L188385%_) + _%hd188350188380%_) + (_%g188340188356%_ _%g188341188359%_)))) + (_%g188340188356%_ _%g188341188359%_)) + (_%g188340188356%_ _%g188341188359%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188181188197%_ - _%g188182188200%_)) - (_%g188181188197%_ - _%g188182188200%_)) - (_%g188181188197%_ - _%g188182188200%_)))) - (_%g188181188197%_ _%g188182188200%_))))) - (_%g188180188242%_ _%kont188179%_)))) - (_%match-body188000%_ - (lambda (_%blocks188076%_) - (let* ((_%blocks188077188086%_ _%blocks188076%_) - (_%E188079188090%_ + (_%g188340188356%_ + _%g188341188359%_)) + (_%g188340188356%_ + _%g188341188359%_)) + (_%g188340188356%_ + _%g188341188359%_)))) + (_%g188340188356%_ _%g188341188359%_))))) + (_%g188339188401%_ _%kont188338%_)))) + (_%match-body188159%_ + (lambda (_%blocks188235%_) + (let* ((_%blocks188236188245%_ _%blocks188235%_) + (_%E188238188249%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks188077188086%_ + _%blocks188236188245%_ '([[#f . start] . rest]))) '#!void)) - (_%K188080188162%_ - (lambda (_%rest188093%_ _%start188094%_) - (let _%lp188096%_ ((_%rest188098%_ - _%rest188093%_) - (_%body188099%_ - (_%start-match187999%_ - _%start188094%_))) - (let* ((_%rest188100188108%_ _%rest188098%_) - (_%else188102188116%_ - (lambda () _%body188099%_)) - (_%K188104188150%_ - (lambda (_%rest188119%_ - _%block188120%_) - (let* ((_%block188121188128%_ - _%block188120%_) - (_%E188123188132%_ + (_%K188239188321%_ + (lambda (_%rest188252%_ _%start188253%_) + (let _%lp188255%_ ((_%rest188257%_ + _%rest188252%_) + (_%body188258%_ + (_%start-match188158%_ + _%start188253%_))) + (let* ((_%rest188259188267%_ _%rest188257%_) + (_%else188261188275%_ + (lambda () _%body188258%_)) + (_%K188263188309%_ + (lambda (_%rest188278%_ + _%block188279%_) + (let* ((_%block188280188287%_ + _%block188279%_) + (_%E188282188291%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block188121188128%_ + _%block188280188287%_ '([K . kont]))) '#!void)) - (_%K188124188138%_ - (lambda (_%kont188135%_ - _%K188136%_) - (_%lp188096%_ - _%rest188119%_ + (_%K188283188297%_ + (lambda (_%kont188294%_ + _%K188295%_) + (_%lp188255%_ + _%rest188278%_ (cons '%#let-values - (cons (cons (cons (cons _%K188136%_ + (cons (cons (cons (cons _%K188295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont188135%_ '())) + (cons _%kont188294%_ '())) '()) - (cons _%body188099%_ '()))))))) + (cons _%body188258%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%block188121188128%_) - (let ((_%hd188125188141%_ + (if (pair? _%block188280188287%_) + (let ((_%hd188284188300%_ (let () (declare (not safe)) - (##car _%block188121188128%_))) - (_%tl188126188143%_ + (##car _%block188280188287%_))) + (_%tl188285188302%_ (let () (declare (not safe)) - (##cdr _%block188121188128%_)))) - (let* ((_%K188146%_ - _%hd188125188141%_) - (_%kont188148%_ - _%tl188126188143%_)) - (_%K188124188138%_ - _%kont188148%_ - _%K188146%_))) - (_%E188123188132%_)))))) - (if (pair? _%rest188100188108%_) - (let ((_%hd188105188153%_ + (##cdr _%block188280188287%_)))) + (let* ((_%K188305%_ + _%hd188284188300%_) + (_%kont188307%_ + _%tl188285188302%_)) + (_%K188283188297%_ + _%kont188307%_ + _%K188305%_))) + (_%E188282188291%_)))))) + (if (pair? _%rest188259188267%_) + (let ((_%hd188264188312%_ (let () (declare (not safe)) - (##car _%rest188100188108%_))) - (_%tl188106188155%_ + (##car _%rest188259188267%_))) + (_%tl188265188314%_ (let () (declare (not safe)) - (##cdr _%rest188100188108%_)))) - (let* ((_%block188158%_ - _%hd188105188153%_) - (_%rest188160%_ - _%tl188106188155%_)) - (_%K188104188150%_ - _%rest188160%_ - _%block188158%_))) - (_%else188102188116%_))))))) - (if (pair? _%blocks188077188086%_) - (let ((_%hd188081188165%_ + (##cdr _%rest188259188267%_)))) + (let* ((_%block188317%_ + _%hd188264188312%_) + (_%rest188319%_ + _%tl188265188314%_)) + (_%K188263188309%_ + _%rest188319%_ + _%block188317%_))) + (_%else188261188275%_))))))) + (if (pair? _%blocks188236188245%_) + (let ((_%hd188240188324%_ (let () (declare (not safe)) - (##car _%blocks188077188086%_))) - (_%tl188082188167%_ + (##car _%blocks188236188245%_))) + (_%tl188241188326%_ (let () (declare (not safe)) - (##cdr _%blocks188077188086%_)))) - (if (pair? _%hd188081188165%_) - (let ((_%hd188083188170%_ + (##cdr _%blocks188236188245%_)))) + (if (pair? _%hd188240188324%_) + (let ((_%hd188242188329%_ (let () (declare (not safe)) - (##car _%hd188081188165%_))) - (_%tl188084188172%_ + (##car _%hd188240188324%_))) + (_%tl188243188331%_ (let () (declare (not safe)) - (##cdr _%hd188081188165%_)))) + (##cdr _%hd188240188324%_)))) (if (let () (declare (not safe)) - (##eq? _%hd188083188170%_ '#f)) - (let* ((_%start188175%_ - _%tl188084188172%_) - (_%rest188177%_ - _%tl188082188167%_)) - (_%K188080188162%_ - _%rest188177%_ - _%start188175%_)) - (_%E188079188090%_))) - (_%E188079188090%_))) - (_%E188079188090%_)))))) - (let ((__tmp192259 + (##eq? _%hd188242188329%_ '#f)) + (let* ((_%start188334%_ + _%tl188243188331%_) + (_%rest188336%_ + _%tl188241188326%_)) + (_%K188239188321%_ + _%rest188336%_ + _%start188334%_)) + (_%E188238188249%_))) + (_%E188238188249%_))) + (_%E188238188249%_)))))) + (let ((__tmp192418 (lambda () - (let* ((_%clauses188003%_ - (map _%push-variables187998%_ - _%clauses187995%_ - _%konts187996%_)) - (_%blocks188005%_ - (gxc#optimize-match-basic-blocks _%clauses188003%_)) - (_%blocks188007%_ + (let* ((_%clauses188162%_ + (map _%push-variables188157%_ + _%clauses188154%_ + _%konts188155%_)) + (_%blocks188164%_ + (gxc#optimize-match-basic-blocks _%clauses188162%_)) + (_%blocks188166%_ (gxc#optimize-match-fold-basic-blocks - _%blocks188005%_)) - (_%body188009%_ - (_%match-body188000%_ _%blocks188007%_)) - (_%bind188043%_ - (map (lambda (_%e188010188012%_) - (let* ((_%g188014188021%_ _%e188010188012%_) - (_%E188016188025%_ + _%blocks188164%_)) + (_%body188168%_ + (_%match-body188159%_ _%blocks188166%_)) + (_%bind188202%_ + (map (lambda (_%e188169188171%_) + (let* ((_%g188173188180%_ _%e188169188171%_) + (_%E188175188184%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g188014188021%_ + _%g188173188180%_ '([K . kont]))) '#!void)) - (_%K188017188031%_ - (lambda (_%kont188028%_ _%K188029%_) - (cons (cons _%K188029%_ '()) - (cons _%kont188028%_ '()))))) - (if (pair? _%g188014188021%_) - (let ((_%hd188018188034%_ + (_%K188176188190%_ + (lambda (_%kont188187%_ _%K188188%_) + (cons (cons _%K188188%_ '()) + (cons _%kont188187%_ '()))))) + (if (pair? _%g188173188180%_) + (let ((_%hd188177188193%_ (let () (declare (not safe)) - (##car _%g188014188021%_))) - (_%tl188019188036%_ + (##car _%g188173188180%_))) + (_%tl188178188195%_ (let () (declare (not safe)) - (##cdr _%g188014188021%_)))) - (let* ((_%K188039%_ - _%hd188018188034%_) - (_%kont188041%_ - _%tl188019188036%_)) - (_%K188017188031%_ - _%kont188041%_ - _%K188039%_))) - (_%E188016188025%_)))) - _%konts187996%_)) - (_%negate188073%_ - (let* ((_%negation188044188051%_ _%negation187994%_) - (_%E188046188055%_ + (##cdr _%g188173188180%_)))) + (let* ((_%K188198%_ + _%hd188177188193%_) + (_%kont188200%_ + _%tl188178188195%_)) + (_%K188176188190%_ + _%kont188200%_ + _%K188198%_))) + (_%E188175188184%_)))) + _%konts188155%_)) + (_%negate188232%_ + (let* ((_%negation188203188210%_ _%negation188153%_) + (_%E188205188214%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188044188051%_ + _%negation188203188210%_ '([K . kont]))) '#!void)) - (_%K188047188061%_ - (lambda (_%kont188058%_ _%K188059%_) - (cons (cons _%K188059%_ '()) - (cons _%kont188058%_ '()))))) - (if (pair? _%negation188044188051%_) - (let ((_%hd188048188064%_ + (_%K188206188220%_ + (lambda (_%kont188217%_ _%K188218%_) + (cons (cons _%K188218%_ '()) + (cons _%kont188217%_ '()))))) + (if (pair? _%negation188203188210%_) + (let ((_%hd188207188223%_ (let () (declare (not safe)) - (##car _%negation188044188051%_))) - (_%tl188049188066%_ + (##car _%negation188203188210%_))) + (_%tl188208188225%_ (let () (declare (not safe)) - (##cdr _%negation188044188051%_)))) - (let* ((_%K188069%_ _%hd188048188064%_) - (_%kont188071%_ _%tl188049188066%_)) - (_%K188047188061%_ - _%kont188071%_ - _%K188069%_))) - (_%E188046188055%_)))) - (__tmp192260 + (##cdr _%negation188203188210%_)))) + (let* ((_%K188228%_ _%hd188207188223%_) + (_%kont188230%_ _%tl188208188225%_)) + (_%K188206188220%_ + _%kont188230%_ + _%K188228%_))) + (_%E188205188214%_)))) + (__tmp192419 (cons '%#let-values - (cons (cons _%negate188073%_ '()) + (cons (cons _%negate188232%_ '()) (cons (cons '%#let-values - (cons _%bind188043%_ - (cons _%body188009%_ + (cons _%bind188202%_ + (cons _%body188168%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192260 _%stx187993%_)))) - (__tmp192258 - (let ((__obj192239 + (gxc#xform-wrap-source __tmp192419 _%stx188152%_)))) + (__tmp192417 + (let ((__obj192398 (let () (declare (not safe)) (##structure @@ -1850,1889 +1850,1889 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192239)) - __obj192239))) + (gx#local-context:::init!__0 __obj192398)) + __obj192398))) (declare (not safe)) (__call-with-parameters - __tmp192259 + __tmp192418 gx#current-expander-context - __tmp192258))))) + __tmp192417))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses187953%_) - (let _%lp187955%_ ((_%rest187957%_ _%clauses187953%_) - (_%blocks187958%_ '())) - (let* ((_%rest187959187967%_ _%rest187957%_) - (_%else187961187975%_ (lambda () (reverse _%blocks187958%_))) - (_%K187963187981%_ - (lambda (_%rest187978%_ _%clause187979%_) - (_%lp187955%_ - _%rest187978%_ + (lambda (_%clauses188112%_) + (let _%lp188114%_ ((_%rest188116%_ _%clauses188112%_) + (_%blocks188117%_ '())) + (let* ((_%rest188118188126%_ _%rest188116%_) + (_%else188120188134%_ (lambda () (reverse _%blocks188117%_))) + (_%K188122188140%_ + (lambda (_%rest188137%_ _%clause188138%_) + (_%lp188114%_ + _%rest188137%_ (gxc#optimize-match-lift-basic-blocks - _%clause187979%_ - _%blocks187958%_))))) - (if (pair? _%rest187959187967%_) - (let ((_%hd187964187984%_ + _%clause188138%_ + _%blocks188117%_))))) + (if (pair? _%rest188118188126%_) + (let ((_%hd188123188143%_ (let () (declare (not safe)) - (##car _%rest187959187967%_))) - (_%tl187965187986%_ + (##car _%rest188118188126%_))) + (_%tl188124188145%_ (let () (declare (not safe)) - (##cdr _%rest187959187967%_)))) - (let* ((_%clause187989%_ _%hd187964187984%_) - (_%rest187991%_ _%tl187965187986%_)) - (_%K187963187981%_ _%rest187991%_ _%clause187989%_))) - (_%else187961187975%_)))))) + (##cdr _%rest188118188126%_)))) + (let* ((_%clause188148%_ _%hd188123188143%_) + (_%rest188150%_ _%tl188124188145%_)) + (_%K188122188140%_ _%rest188150%_ _%clause188148%_))) + (_%else188120188134%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause187296%_ _%blocks187297%_) - (letrec ((_%bind->args187299%_ - (lambda (_%bind187948%_) - (let ((__tmp192261 - (lambda (_%b187950%_ _%r187951%_) - (cons (cons '%#ref (cons (car _%b187950%_) '())) - _%r187951%_)))) + (lambda (_%clause187455%_ _%blocks187456%_) + (letrec ((_%bind->args187458%_ + (lambda (_%bind188107%_) + (let ((__tmp192420 + (lambda (_%b188109%_ _%r188110%_) + (cons (cons '%#ref (cons (car _%b188109%_) '())) + _%r188110%_)))) (declare (not safe)) - (__foldl1 __tmp192261 '() _%bind187948%_)))) - (_%create-block187300%_ - (lambda (_%body187896%_ - _%let-bind187897%_ - _%bind187898%_ - _%assert187899%_) - (let* ((_%id187901%_ - (let ((__tmp192262 + (__foldl1 __tmp192420 '() _%bind188107%_)))) + (_%create-block187459%_ + (lambda (_%body188055%_ + _%let-bind188056%_ + _%bind188057%_ + _%assert188058%_) + (let* ((_%id188060%_ + (let ((__tmp192421 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp192262))) - (_%id187903%_ + (make-symbol__0 __tmp192421))) + (_%id188062%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id187901%_))) - (_%_187905%_ + (gx#core-quote-syntax__0 _%id188060%_))) + (_%_188064%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id187903%_))) - (_%block187907%_ - (cons _%id187903%_ - (cons _%body187896%_ - (cons _%bind187898%_ - (cons _%assert187899%_ '()))))) - (_%continue187909%_ + (gx#core-bind-runtime!__0 _%id188062%_))) + (_%block188066%_ + (cons _%id188062%_ + (cons _%body188055%_ + (cons _%bind188057%_ + (cons _%assert188058%_ '()))))) + (_%continue188068%_ (cons '%#call - (cons (cons '%#ref (cons _%id187903%_ '())) - (_%bind->args187299%_ - _%bind187898%_)))) - (_%continue187945%_ - (if (null? _%let-bind187897%_) - _%continue187909%_ - (let ((_%locals187943%_ - (map (lambda (_%e187910187912%_) - (let* ((_%g187914187921%_ - _%e187910187912%_) - (_%E187916187925%_ + (cons (cons '%#ref (cons _%id188062%_ '())) + (_%bind->args187458%_ + _%bind188057%_)))) + (_%continue188104%_ + (if (null? _%let-bind188056%_) + _%continue188068%_ + (let ((_%locals188102%_ + (map (lambda (_%e188069188071%_) + (let* ((_%g188073188080%_ + _%e188069188071%_) + (_%E188075188084%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g187914187921%_ + _%g188073188080%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K187917187931%_ - (lambda (_%expr187928%_ - _%id187929%_) - (cons (cons _%id187929%_ + (_%K188076188090%_ + (lambda (_%expr188087%_ + _%id188088%_) + (cons (cons _%id188088%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr187928%_ '()))))) + (cons _%expr188087%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g187914187921%_) - (let ((_%hd187918187934%_ + (if (pair? _%g188073188080%_) + (let ((_%hd188077188093%_ (let () (declare (not safe)) - (##car _%g187914187921%_))) - (_%tl187919187936%_ + (##car _%g188073188080%_))) + (_%tl188078188095%_ (let () (declare (not safe)) - (##cdr _%g187914187921%_)))) - (let* ((_%id187939%_ - _%hd187918187934%_) - (_%expr187941%_ - _%tl187919187936%_)) - (_%K187917187931%_ - _%expr187941%_ - _%id187939%_))) - (_%E187916187925%_)))) - _%let-bind187897%_))) + (##cdr _%g188073188080%_)))) + (let* ((_%id188098%_ + _%hd188077188093%_) + (_%expr188100%_ + _%tl188078188095%_)) + (_%K188076188090%_ + _%expr188100%_ + _%id188098%_))) + (_%E188075188084%_)))) + _%let-bind188056%_))) (cons '%#let-values - (cons _%locals187943%_ - (cons _%continue187909%_ + (cons _%locals188102%_ + (cons _%continue188068%_ '()))))))) - (values _%continue187945%_ _%block187907%_)))) - (_%basic-block187301%_ - (lambda (_%body187482%_ _%bind187483%_ _%assert187484%_) - (let* ((_%__stx189460189461%_ _%body187482%_) - (_%g187489187573%_ + (values _%continue188104%_ _%block188066%_)))) + (_%basic-block187460%_ + (lambda (_%body187641%_ _%bind187642%_ _%assert187643%_) + (let* ((_%__stx189619189620%_ _%body187641%_) + (_%g187648187732%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189460189461%_))))) - (let ((_%__kont189462189463%_ - (lambda (_%L187832%_ _%L187833%_ _%L187834%_) - (let ((_g192263_ - (_%create-block187300%_ - _%L187833%_ + _%__stx189619189620%_))))) + (let ((_%__kont189621189622%_ + (lambda (_%L187991%_ _%L187992%_ _%L187993%_) + (let ((_g192422_ + (_%create-block187459%_ + _%L187992%_ '() - _%bind187483%_ - (cons (cons _%L187834%_ '#t) - _%assert187484%_)))) + _%bind187642%_ + (cons (cons _%L187993%_ '#t) + _%assert187643%_)))) (begin - (let ((_g192264_ + (let ((_g192423_ (let () (declare (not safe)) - (if (##values? _g192263_) - (##vector-length _g192263_) + (if (##values? _g192422_) + (##vector-length _g192422_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192264_ 2))) + (##fx= _g192423_ 2))) (error "Context expects 2 values" - _g192264_))) - (let ((_%k-continue187852%_ + _g192423_))) + (let ((_%k-continue188011%_ (let () (declare (not safe)) - (##vector-ref _g192263_ 0))) - (_%k-block187853%_ + (##vector-ref _g192422_ 0))) + (_%k-block188012%_ (let () (declare (not safe)) - (##vector-ref _g192263_ 1)))) - (let* ((_%__stx189442189443%_ _%L187832%_) - (_%g187856187865%_ + (##vector-ref _g192422_ 1)))) + (let* ((_%__stx189601189602%_ _%L187991%_) + (_%g188015188024%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189442189443%_))))) - (let ((_%__kont189444189445%_ + _%__stx189601189602%_))))) + (let ((_%__kont189603189604%_ (lambda () (values (cons '%#if - (cons _%L187834%_ + (cons _%L187993%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue187852%_ - (cons _%L187832%_ '())))) - (cons _%k-block187853%_ '())))) + (cons _%k-continue188011%_ + (cons _%L187991%_ '())))) + (cons _%k-block188012%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189446189447%_ + (_%__kont189605189606%_ (lambda () - (let ((_g192265_ - (_%create-block187300%_ - _%L187832%_ + (let ((_g192424_ + (_%create-block187459%_ + _%L187991%_ '() - _%bind187483%_ - (cons (cons _%L187834%_ + _%bind187642%_ + (cons (cons _%L187993%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert187484%_)))) + _%assert187643%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g192266_ + (let ((_g192425_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g192265_) - (##vector-length _g192265_) + _g192424_) + (##vector-length _g192424_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g192266_ 2))) - (error "Context expects 2 values" _g192266_))) + (if (not (let () (declare (not safe)) (##fx= _g192425_ 2))) + (error "Context expects 2 values" _g192425_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue187872%_ + (let ((_%e-continue188031%_ (let () (declare (not safe)) (##vector-ref - _g192265_ + _g192424_ 0))) - (_%e-block187873%_ + (_%e-block188032%_ (let () (declare (not safe)) (##vector-ref - _g192265_ + _g192424_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L187834%_ - (cons _%k-continue187852%_ - (cons _%e-continue187872%_ '())))) - (cons _%k-block187853%_ - (cons _%e-block187873%_ '()))))))))) + (cons _%L187993%_ + (cons _%k-continue188011%_ + (cons _%e-continue188031%_ '())))) + (cons _%k-block188012%_ + (cons _%e-block188032%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189442189443%_)) - (let ((_%e187858187880%_ + _%__stx189601189602%_)) + (let ((_%e188017188039%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189442189443%_)))) - (let ((_%tl187860187885%_ + _%__stx189601189602%_)))) + (let ((_%tl188019188044%_ (let () (declare (not safe)) - (##cdr _%e187858187880%_))) - (_%hd187859187883%_ + (##cdr _%e188017188039%_))) + (_%hd188018188042%_ (let () (declare (not safe)) - (##car _%e187858187880%_)))) + (##car _%e188017188039%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187859187883%_)) + _%hd188018188042%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd187859187883%_)) - (_%__kont189444189445%_) - (_%__kont189446189447%_)) - (_%__kont189446189447%_)))) - (_%__kont189446189447%_))))))))) - (_%__kont189464189465%_ - (lambda () (values _%body187482%_ '()))) - (_%__kont189468189469%_ - (lambda (_%L187661%_ _%L187662%_ _%L187663%_) - (let* ((_%let-bind187698%_ + _%hd188018188042%_)) + (_%__kont189603189604%_) + (_%__kont189605189606%_)) + (_%__kont189605189606%_)))) + (_%__kont189605189606%_))))))))) + (_%__kont189623189624%_ + (lambda () (values _%body187641%_ '()))) + (_%__kont189627189628%_ + (lambda (_%L187820%_ _%L187821%_ _%L187822%_) + (let* ((_%let-bind187857%_ (map cons - (let ((__tmp192267 - (lambda (_%g187683187686%_ - _%g187684187688%_) - (cons _%g187683187686%_ - _%g187684187688%_)))) + (let ((__tmp192426 + (lambda (_%g187842187845%_ + _%g187843187847%_) + (cons _%g187842187845%_ + _%g187843187847%_)))) (declare (not safe)) (__foldr1 - __tmp192267 + __tmp192426 '() - _%L187663%_)) - (let ((__tmp192268 - (lambda (_%g187690187693%_ - _%g187691187695%_) - (cons _%g187690187693%_ - _%g187691187695%_)))) + _%L187822%_)) + (let ((__tmp192427 + (lambda (_%g187849187852%_ + _%g187850187854%_) + (cons _%g187849187852%_ + _%g187850187854%_)))) (declare (not safe)) (__foldr1 - __tmp192268 + __tmp192427 '() - _%L187662%_)))) - (_g192269_ - (_%create-block187300%_ - _%L187661%_ - _%let-bind187698%_ + _%L187821%_)))) + (_g192428_ + (_%create-block187459%_ + _%L187820%_ + _%let-bind187857%_ (let () (declare (not safe)) (__foldl1 cons - _%bind187483%_ - _%let-bind187698%_)) - _%assert187484%_))) + _%bind187642%_ + _%let-bind187857%_)) + _%assert187643%_))) (begin - (let ((_g192270_ + (let ((_g192429_ (let () (declare (not safe)) - (if (##values? _g192269_) - (##vector-length _g192269_) + (if (##values? _g192428_) + (##vector-length _g192428_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192270_ 2))) + (##fx= _g192429_ 2))) (error "Context expects 2 values" - _g192270_))) - (let ((_%continue187700%_ + _g192429_))) + (let ((_%continue187859%_ (let () (declare (not safe)) - (##vector-ref _g192269_ 0))) - (_%block187701%_ + (##vector-ref _g192428_ 0))) + (_%block187860%_ (let () (declare (not safe)) - (##vector-ref _g192269_ 1)))) - (values _%continue187700%_ - (cons _%block187701%_ '()))))))) - (_%__kont189472189473%_ - (lambda () (values _%body187482%_ '())))) - (let* ((_%__match189551189552%_ - (lambda (_%e187540187585%_ - _%hd187541187588%_ - _%tl187542187590%_ - _%e187543187593%_ - _%hd187544187596%_ - _%tl187545187598%_ - _%__splice189470189471%_ - _%target187546187601%_ - _%tl187548187603%_) - (letrec ((_%loop187549187606%_ - (lambda (_%hd187547187609%_ - _%expr187553187611%_ - _%id187554187613%_) + (##vector-ref _g192428_ 1)))) + (values _%continue187859%_ + (cons _%block187860%_ '()))))))) + (_%__kont189631189632%_ + (lambda () (values _%body187641%_ '())))) + (let* ((_%__match189710189711%_ + (lambda (_%e187699187744%_ + _%hd187700187747%_ + _%tl187701187749%_ + _%e187702187752%_ + _%hd187703187755%_ + _%tl187704187757%_ + _%__splice189629189630%_ + _%target187705187760%_ + _%tl187707187762%_) + (letrec ((_%loop187708187765%_ + (lambda (_%hd187706187768%_ + _%expr187712187770%_ + _%id187713187772%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187547187609%_)) - (let ((_%e187550187616%_ + _%hd187706187768%_)) + (let ((_%e187709187775%_ (let () (declare (not safe)) (gx#stx-e - _%hd187547187609%_)))) - (let ((_%lp-tl187552187621%_ + _%hd187706187768%_)))) + (let ((_%lp-tl187711187780%_ (let () (declare (not safe)) - (##cdr _%e187550187616%_))) - (_%lp-hd187551187619%_ + (##cdr _%e187709187775%_))) + (_%lp-hd187710187778%_ (let () (declare (not safe)) - (##car _%e187550187616%_)))) + (##car _%e187709187775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187551187619%_)) - (let ((_%e187560187624%_ + _%lp-hd187710187778%_)) + (let ((_%e187719187783%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187551187619%_)))) - (let ((_%tl187562187629%_ + (gx#stx-e _%lp-hd187710187778%_)))) + (let ((_%tl187721187788%_ (let () (declare (not safe)) - (##cdr _%e187560187624%_))) - (_%hd187561187627%_ + (##cdr _%e187719187783%_))) + (_%hd187720187786%_ (let () (declare (not safe)) - (##car _%e187560187624%_)))) + (##car _%e187719187783%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187561187627%_)) - (let ((_%e187563187632%_ + (gx#stx-pair? _%hd187720187786%_)) + (let ((_%e187722187791%_ (let () (declare (not safe)) - (gx#stx-e _%hd187561187627%_)))) - (let ((_%tl187565187637%_ + (gx#stx-e _%hd187720187786%_)))) + (let ((_%tl187724187796%_ (let () (declare (not safe)) - (##cdr _%e187563187632%_))) - (_%hd187564187635%_ + (##cdr _%e187722187791%_))) + (_%hd187723187794%_ (let () (declare (not safe)) - (##car _%e187563187632%_)))) + (##car _%e187722187791%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187565187637%_)) + (gx#stx-null? _%tl187724187796%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187562187629%_)) - (let ((_%e187566187640%_ + (gx#stx-pair? _%tl187721187788%_)) + (let ((_%e187725187799%_ (let () (declare (not safe)) - (gx#stx-e _%tl187562187629%_)))) - (let ((_%tl187568187645%_ + (gx#stx-e _%tl187721187788%_)))) + (let ((_%tl187727187804%_ (let () (declare (not safe)) - (##cdr _%e187566187640%_))) - (_%hd187567187643%_ + (##cdr _%e187725187799%_))) + (_%hd187726187802%_ (let () (declare (not safe)) - (##car _%e187566187640%_)))) + (##car _%e187725187799%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187568187645%_)) - (_%loop187549187606%_ - _%lp-tl187552187621%_ - (cons _%hd187567187643%_ - _%expr187553187611%_) - (cons _%hd187564187635%_ - _%id187554187613%_)) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) + _%tl187727187804%_)) + (_%loop187708187765%_ + _%lp-tl187711187780%_ + (cons _%hd187726187802%_ + _%expr187712187770%_) + (cons _%hd187723187794%_ + _%id187713187772%_)) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_)) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id187556187650%_ - (reverse _%id187554187613%_)) - (_%expr187555187648%_ - (reverse _%expr187553187611%_))) + (let ((_%id187715187809%_ + (reverse _%id187713187772%_)) + (_%expr187714187807%_ + (reverse _%expr187712187770%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187545187598%_)) - (let ((_%e187557187653%_ + _%tl187704187757%_)) + (let ((_%e187716187812%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187545187598%_)))) - (let ((_%tl187559187658%_ + (gx#stx-e _%tl187704187757%_)))) + (let ((_%tl187718187817%_ (let () (declare (not safe)) - (##cdr _%e187557187653%_))) - (_%hd187558187656%_ + (##cdr _%e187716187812%_))) + (_%hd187717187815%_ (let () (declare (not safe)) - (##car _%e187557187653%_)))) + (##car _%e187716187812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187559187658%_)) - (_%__kont189468189469%_ - _%hd187558187656%_ - _%expr187555187648%_ - _%id187556187650%_) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_))))))) + (gx#stx-null? _%tl187718187817%_)) + (_%__kont189627189628%_ + _%hd187717187815%_ + _%expr187714187807%_ + _%id187715187809%_) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187549187606%_ - _%target187546187601%_ + (_%loop187708187765%_ + _%target187705187760%_ '() '())))) - (_%__match189527189528%_ - (lambda (_%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_) - (letrec ((_%loop187515187730%_ - (lambda (_%hd187513187733%_) + (_%__match189686189687%_ + (lambda (_%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_) + (letrec ((_%loop187674187889%_ + (lambda (_%hd187672187892%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187513187733%_)) - (let ((_%e187516187736%_ + _%hd187672187892%_)) + (let ((_%e187675187895%_ (let () (declare (not safe)) (gx#stx-e - _%hd187513187733%_)))) - (let ((_%lp-tl187518187741%_ + _%hd187672187892%_)))) + (let ((_%lp-tl187677187900%_ (let () (declare (not safe)) - (##cdr _%e187516187736%_))) - (_%lp-hd187517187739%_ + (##cdr _%e187675187895%_))) + (_%lp-hd187676187898%_ (let () (declare (not safe)) - (##car _%e187516187736%_)))) + (##car _%e187675187895%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187517187739%_)) - (let ((_%e187522187744%_ + _%lp-hd187676187898%_)) + (let ((_%e187681187903%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187517187739%_)))) - (let ((_%tl187524187749%_ + (gx#stx-e _%lp-hd187676187898%_)))) + (let ((_%tl187683187908%_ (let () (declare (not safe)) - (##cdr _%e187522187744%_))) - (_%hd187523187747%_ + (##cdr _%e187681187903%_))) + (_%hd187682187906%_ (let () (declare (not safe)) - (##car _%e187522187744%_)))) + (##car _%e187681187903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187523187747%_)) - (let ((_%e187525187752%_ + (gx#stx-pair? _%hd187682187906%_)) + (let ((_%e187684187911%_ (let () (declare (not safe)) - (gx#stx-e _%hd187523187747%_)))) - (let ((_%tl187527187757%_ + (gx#stx-e _%hd187682187906%_)))) + (let ((_%tl187686187916%_ (let () (declare (not safe)) - (##cdr _%e187525187752%_))) - (_%hd187526187755%_ + (##cdr _%e187684187911%_))) + (_%hd187685187914%_ (let () (declare (not safe)) - (##car _%e187525187752%_)))) + (##car _%e187684187911%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187527187757%_)) + (gx#stx-null? _%tl187686187916%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187524187749%_)) - (let ((_%e187528187760%_ + (gx#stx-pair? _%tl187683187908%_)) + (let ((_%e187687187919%_ (let () (declare (not safe)) - (gx#stx-e _%tl187524187749%_)))) - (let ((_%tl187530187765%_ + (gx#stx-e _%tl187683187908%_)))) + (let ((_%tl187689187924%_ (let () (declare (not safe)) - (##cdr _%e187528187760%_))) - (_%hd187529187763%_ + (##cdr _%e187687187919%_))) + (_%hd187688187922%_ (let () (declare (not safe)) - (##car _%e187528187760%_)))) + (##car _%e187687187919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187529187763%_)) - (let ((_%e187531187768%_ + _%hd187688187922%_)) + (let ((_%e187690187927%_ (let () (declare (not safe)) (gx#stx-e - _%hd187529187763%_)))) - (let ((_%tl187533187773%_ + _%hd187688187922%_)))) + (let ((_%tl187692187932%_ (let () (declare (not safe)) - (##cdr _%e187531187768%_))) - (_%hd187532187771%_ + (##cdr _%e187690187927%_))) + (_%hd187691187930%_ (let () (declare (not safe)) - (##car _%e187531187768%_)))) + (##car _%e187690187927%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187532187771%_)) + _%hd187691187930%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd187532187771%_)) + _%hd187691187930%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187533187773%_)) - (let ((_%e187534187776%_ + (gx#stx-pair? _%tl187692187932%_)) + (let ((_%e187693187935%_ (let () (declare (not safe)) - (gx#stx-e _%tl187533187773%_)))) - (let ((_%tl187536187781%_ + (gx#stx-e _%tl187692187932%_)))) + (let ((_%tl187695187940%_ (let () (declare (not safe)) - (##cdr _%e187534187776%_))) - (_%hd187535187779%_ + (##cdr _%e187693187935%_))) + (_%hd187694187938%_ (let () (declare (not safe)) - (##car _%e187534187776%_)))) + (##car _%e187693187935%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187536187781%_)) + (gx#stx-null? _%tl187695187940%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187530187765%_)) - (_%loop187515187730%_ _%lp-tl187518187741%_) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) + (gx#stx-null? _%tl187689187924%_)) + (_%loop187674187889%_ _%lp-tl187677187900%_) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187511187722%_)) - (let ((_%e187519187785%_ + _%tl187670187881%_)) + (let ((_%e187678187944%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187511187722%_)))) - (let ((_%tl187521187790%_ - (let () (declare (not safe)) (##cdr _%e187519187785%_))) - (_%hd187520187788%_ + (gx#stx-e _%tl187670187881%_)))) + (let ((_%tl187680187949%_ + (let () (declare (not safe)) (##cdr _%e187678187944%_))) + (_%hd187679187947%_ (let () (declare (not safe)) - (##car _%e187519187785%_)))) + (##car _%e187678187944%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187521187790%_)) - (_%__kont189464189465%_) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))))) + (gx#stx-null? _%tl187680187949%_)) + (_%__kont189623189624%_) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))) + (_%__match189710189711%_ + _%e187665187868%_ + _%hd187666187871%_ + _%tl187667187873%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187515187730%_ - _%target187512187725%_))))) + (_%loop187674187889%_ + _%target187671187884%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189460189461%_)) - (let ((_%e187494187800%_ + (gx#stx-pair? _%__stx189619189620%_)) + (let ((_%e187653187959%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189460189461%_)))) - (let ((_%tl187496187805%_ + (gx#stx-e _%__stx189619189620%_)))) + (let ((_%tl187655187964%_ (let () (declare (not safe)) - (##cdr _%e187494187800%_))) - (_%hd187495187803%_ + (##cdr _%e187653187959%_))) + (_%hd187654187962%_ (let () (declare (not safe)) - (##car _%e187494187800%_)))) + (##car _%e187653187959%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187495187803%_)) + (gx#identifier? _%hd187654187962%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd187495187803%_)) + _%hd187654187962%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187496187805%_)) - (let ((_%e187497187808%_ + _%tl187655187964%_)) + (let ((_%e187656187967%_ (let () (declare (not safe)) (gx#stx-e - _%tl187496187805%_)))) - (let ((_%tl187499187813%_ + _%tl187655187964%_)))) + (let ((_%tl187658187972%_ (let () (declare (not safe)) - (##cdr _%e187497187808%_))) - (_%hd187498187811%_ + (##cdr _%e187656187967%_))) + (_%hd187657187970%_ (let () (declare (not safe)) - (##car _%e187497187808%_)))) + (##car _%e187656187967%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187499187813%_)) - (let ((_%e187500187816%_ + _%tl187658187972%_)) + (let ((_%e187659187975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187499187813%_)))) - (let ((_%tl187502187821%_ - (let () (declare (not safe)) (##cdr _%e187500187816%_))) - (_%hd187501187819%_ + (gx#stx-e _%tl187658187972%_)))) + (let ((_%tl187661187980%_ + (let () (declare (not safe)) (##cdr _%e187659187975%_))) + (_%hd187660187978%_ (let () (declare (not safe)) - (##car _%e187500187816%_)))) + (##car _%e187659187975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187502187821%_)) - (let ((_%e187503187824%_ + (gx#stx-pair? _%tl187661187980%_)) + (let ((_%e187662187983%_ (let () (declare (not safe)) - (gx#stx-e _%tl187502187821%_)))) - (let ((_%tl187505187829%_ + (gx#stx-e _%tl187661187980%_)))) + (let ((_%tl187664187988%_ (let () (declare (not safe)) - (##cdr _%e187503187824%_))) - (_%hd187504187827%_ + (##cdr _%e187662187983%_))) + (_%hd187663187986%_ (let () (declare (not safe)) - (##car _%e187503187824%_)))) + (##car _%e187662187983%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187505187829%_)) - (_%__kont189462189463%_ - _%hd187504187827%_ - _%hd187501187819%_ - _%hd187498187811%_) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) + (gx#stx-null? _%tl187664187988%_)) + (_%__kont189621189622%_ + _%hd187663187986%_ + _%hd187660187978%_ + _%hd187657187970%_) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189472189473%_)) + (_%__kont189631189632%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187495187803%_)) + _%hd187654187962%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187496187805%_)) - (let ((_%e187509187717%_ + _%tl187655187964%_)) + (let ((_%e187668187876%_ (let () (declare (not safe)) (gx#stx-e - _%tl187496187805%_)))) - (let ((_%tl187511187722%_ + _%tl187655187964%_)))) + (let ((_%tl187670187881%_ (let () (declare (not safe)) - (##cdr _%e187509187717%_))) - (_%hd187510187720%_ + (##cdr _%e187668187876%_))) + (_%hd187669187879%_ (let () (declare (not safe)) - (##car _%e187509187717%_)))) + (##car _%e187668187876%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd187510187720%_)) - (let ((_%__splice189466189467%_ + _%hd187669187879%_)) + (let ((_%__splice189625189626%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd187510187720%_ '0)))) - (let ((_%tl187514187727%_ + (gx#syntax-split-splice _%hd187669187879%_ '0)))) + (let ((_%tl187673187886%_ (let () (declare (not safe)) - (##vector-ref _%__splice189466189467%_ '1))) - (_%target187512187725%_ + (##vector-ref _%__splice189625189626%_ '1))) + (_%target187671187884%_ (let () (declare (not safe)) - (##vector-ref _%__splice189466189467%_ '0)))) + (##vector-ref _%__splice189625189626%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187514187727%_)) - (_%__match189527189528%_ - _%e187494187800%_ - _%hd187495187803%_ - _%tl187496187805%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) + (gx#stx-null? _%tl187673187886%_)) + (_%__match189686189687%_ + _%e187653187959%_ + _%hd187654187962%_ + _%tl187655187964%_ + _%e187668187876%_ + _%hd187669187879%_ + _%tl187670187881%_ + _%__splice189625189626%_ + _%target187671187884%_ + _%tl187673187886%_) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189472189473%_)) - (_%__kont189472189473%_))) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_))))))) - (_%fold-blocks187302%_ - (lambda (_%rest187401%_ _%blocks187402%_) - (let* ((_%rest187403187420%_ _%rest187401%_) - (_%E187406187424%_ + (_%__kont189631189632%_)) + (_%__kont189631189632%_))) + (_%__kont189631189632%_)))) + (_%__kont189631189632%_))))))) + (_%fold-blocks187461%_ + (lambda (_%rest187560%_ _%blocks187561%_) + (let* ((_%rest187562187579%_ _%rest187560%_) + (_%E187565187583%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest187403187420%_ + _%rest187562187579%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K187408187444%_ - (lambda (_%rest187435%_ - _%assert187436%_ - _%bind187437%_ - _%body187438%_ - _%name187439%_) - (let ((_g192271_ - (_%basic-block187301%_ - _%body187438%_ - _%bind187437%_ - _%assert187436%_))) + (let ((_%K187567187603%_ + (lambda (_%rest187594%_ + _%assert187595%_ + _%bind187596%_ + _%body187597%_ + _%name187598%_) + (let ((_g192430_ + (_%basic-block187460%_ + _%body187597%_ + _%bind187596%_ + _%assert187595%_))) (begin - (let ((_g192272_ + (let ((_g192431_ (let () (declare (not safe)) - (if (##values? _g192271_) - (##vector-length _g192271_) + (if (##values? _g192430_) + (##vector-length _g192430_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192272_ 2))) + (##fx= _g192431_ 2))) (error "Context expects 2 values" - _g192272_))) - (let ((_%body187441%_ + _g192431_))) + (let ((_%body187600%_ (let () (declare (not safe)) - (##vector-ref _g192271_ 0))) - (_%body-blocks187442%_ + (##vector-ref _g192430_ 0))) + (_%body-blocks187601%_ (let () (declare (not safe)) - (##vector-ref _g192271_ 1)))) - (_%fold-blocks187302%_ + (##vector-ref _g192430_ 1)))) + (_%fold-blocks187461%_ (let () (declare (not safe)) (__foldl1 cons - _%rest187435%_ - _%body-blocks187442%_)) - (cons (cons _%name187439%_ + _%rest187594%_ + _%body-blocks187601%_)) + (cons (cons _%name187598%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp192273 (map car _%bind187437%_))) + (cons (let ((__tmp192432 (map car _%bind187596%_))) (declare (not safe)) - (##reverse __tmp192273)) - (cons _%body187441%_ '()))) - (cons _%assert187436%_ (cons _%bind187437%_ '()))))) + (##reverse __tmp192432)) + (cons _%body187600%_ '()))) + (cons _%assert187595%_ (cons _%bind187596%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187402%_))))))) - (_%K187407187429%_ (lambda () _%blocks187402%_))) - (let ((_%try-match187405187432%_ + _%blocks187561%_))))))) + (_%K187566187588%_ (lambda () _%blocks187561%_))) + (let ((_%try-match187564187591%_ (lambda () - (if (null? _%rest187403187420%_) - (_%K187407187429%_) - (_%E187406187424%_))))) - (if (pair? _%rest187403187420%_) - (let ((_%tl187410187449%_ + (if (null? _%rest187562187579%_) + (_%K187566187588%_) + (_%E187565187583%_))))) + (if (pair? _%rest187562187579%_) + (let ((_%tl187569187608%_ (let () (declare (not safe)) - (##cdr _%rest187403187420%_))) - (_%hd187409187447%_ + (##cdr _%rest187562187579%_))) + (_%hd187568187606%_ (let () (declare (not safe)) - (##car _%rest187403187420%_)))) - (if (pair? _%hd187409187447%_) - (let ((_%tl187412187454%_ + (##car _%rest187562187579%_)))) + (if (pair? _%hd187568187606%_) + (let ((_%tl187571187613%_ (let () (declare (not safe)) - (##cdr _%hd187409187447%_))) - (_%hd187411187452%_ + (##cdr _%hd187568187606%_))) + (_%hd187570187611%_ (let () (declare (not safe)) - (##car _%hd187409187447%_)))) - (if (pair? _%tl187412187454%_) - (let ((_%tl187414187461%_ + (##car _%hd187568187606%_)))) + (if (pair? _%tl187571187613%_) + (let ((_%tl187573187620%_ (let () (declare (not safe)) - (##cdr _%tl187412187454%_))) - (_%hd187413187459%_ + (##cdr _%tl187571187613%_))) + (_%hd187572187618%_ (let () (declare (not safe)) - (##car _%tl187412187454%_)))) - (if (pair? _%tl187414187461%_) - (let ((_%tl187416187468%_ + (##car _%tl187571187613%_)))) + (if (pair? _%tl187573187620%_) + (let ((_%tl187575187627%_ (let () (declare (not safe)) - (##cdr _%tl187414187461%_))) - (_%hd187415187466%_ + (##cdr _%tl187573187620%_))) + (_%hd187574187625%_ (let () (declare (not safe)) - (##car _%tl187414187461%_)))) - (if (pair? _%tl187416187468%_) - (let ((_%tl187418187475%_ + (##car _%tl187573187620%_)))) + (if (pair? _%tl187575187627%_) + (let ((_%tl187577187634%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl187416187468%_))) - (_%hd187417187473%_ - (let () (declare (not safe)) (##car _%tl187416187468%_)))) - (if (null? _%tl187418187475%_) - (let ((_%name187457%_ _%hd187411187452%_) - (_%body187464%_ _%hd187413187459%_) - (_%bind187471%_ _%hd187415187466%_) - (_%assert187478%_ _%hd187417187473%_) - (_%rest187480%_ _%tl187410187449%_)) - (_%K187408187444%_ - _%rest187480%_ - _%assert187478%_ - _%bind187471%_ - _%body187464%_ - _%name187457%_)) - (_%E187406187424%_))) - (_%E187406187424%_))) + (##cdr _%tl187575187627%_))) + (_%hd187576187632%_ + (let () (declare (not safe)) (##car _%tl187575187627%_)))) + (if (null? _%tl187577187634%_) + (let ((_%name187616%_ _%hd187570187611%_) + (_%body187623%_ _%hd187572187618%_) + (_%bind187630%_ _%hd187574187625%_) + (_%assert187637%_ _%hd187576187632%_) + (_%rest187639%_ _%tl187569187608%_)) + (_%K187567187603%_ + _%rest187639%_ + _%assert187637%_ + _%bind187630%_ + _%body187623%_ + _%name187616%_)) + (_%E187565187583%_))) + (_%E187565187583%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E187406187424%_))) - (_%E187406187424%_))) - (_%E187406187424%_))) - (_%try-match187405187432%_)))))))) - (let* ((_%clause187303187310%_ _%clause187296%_) - (_%E187305187314%_ + (_%E187565187583%_))) + (_%E187565187583%_))) + (_%E187565187583%_))) + (_%try-match187564187591%_)))))))) + (let* ((_%clause187462187469%_ _%clause187455%_) + (_%E187464187473%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187303187310%_ + _%clause187462187469%_ '([name . body]))) '#!void)) - (_%K187306187389%_ - (lambda (_%body187317%_ _%name187318%_) - (let* ((_%g187320187336%_ - (lambda (_%g187321187333%_) + (_%K187465187548%_ + (lambda (_%body187476%_ _%name187477%_) + (let* ((_%g187479187495%_ + (lambda (_%g187480187492%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187321187333%_)))) - (_%g187319187386%_ - (lambda (_%g187321187339%_) + _%g187480187492%_)))) + (_%g187478187545%_ + (lambda (_%g187480187498%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187321187339%_)) - (let ((_%e187323187341%_ + (gx#stx-pair? _%g187480187498%_)) + (let ((_%e187482187500%_ (let () (declare (not safe)) - (gx#stx-e _%g187321187339%_)))) - (let ((_%hd187324187344%_ + (gx#stx-e _%g187480187498%_)))) + (let ((_%hd187483187503%_ (let () (declare (not safe)) - (##car _%e187323187341%_))) - (_%tl187325187346%_ + (##car _%e187482187500%_))) + (_%tl187484187505%_ (let () (declare (not safe)) - (##cdr _%e187323187341%_)))) + (##cdr _%e187482187500%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187324187344%_)) + _%hd187483187503%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187324187344%_)) + _%hd187483187503%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187325187346%_)) - (let ((_%e187326187349%_ + _%tl187484187505%_)) + (let ((_%e187485187508%_ (let () (declare (not safe)) (gx#stx-e - _%tl187325187346%_)))) - (let ((_%hd187327187352%_ + _%tl187484187505%_)))) + (let ((_%hd187486187511%_ (let () (declare (not safe)) - (##car _%e187326187349%_))) - (_%tl187328187354%_ + (##car _%e187485187508%_))) + (_%tl187487187513%_ (let () (declare (not safe)) - (##cdr _%e187326187349%_)))) + (##cdr _%e187485187508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd187327187352%_)) + _%hd187486187511%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187328187354%_)) - (let ((_%e187329187357%_ + (gx#stx-pair? _%tl187487187513%_)) + (let ((_%e187488187516%_ (let () (declare (not safe)) - (gx#stx-e _%tl187328187354%_)))) - (let ((_%hd187330187360%_ + (gx#stx-e _%tl187487187513%_)))) + (let ((_%hd187489187519%_ (let () (declare (not safe)) - (##car _%e187329187357%_))) - (_%tl187331187362%_ + (##car _%e187488187516%_))) + (_%tl187490187521%_ (let () (declare (not safe)) - (##cdr _%e187329187357%_)))) + (##cdr _%e187488187516%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187331187362%_)) - ((lambda (_%L187365%_) - (let ((_g192274_ - (_%basic-block187301%_ - _%L187365%_ + (gx#stx-null? _%tl187490187521%_)) + ((lambda (_%L187524%_) + (let ((_g192433_ + (_%basic-block187460%_ + _%L187524%_ '() '()))) (begin - (let ((_g192275_ + (let ((_g192434_ (let () (declare (not safe)) - (if (##values? _g192274_) - (##vector-length _g192274_) + (if (##values? _g192433_) + (##vector-length _g192433_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192275_ 2))) + (##fx= _g192434_ 2))) (error "Context expects 2 values" - _g192275_))) - (let ((_%body187383%_ + _g192434_))) + (let ((_%body187542%_ (let () (declare (not safe)) - (##vector-ref _g192274_ 0))) - (_%body-blocks187384%_ + (##vector-ref _g192433_ 0))) + (_%body-blocks187543%_ (let () (declare (not safe)) - (##vector-ref _g192274_ 1)))) - (_%fold-blocks187302%_ - _%body-blocks187384%_ - (cons (cons _%name187318%_ + (##vector-ref _g192433_ 1)))) + (_%fold-blocks187461%_ + _%body-blocks187543%_ + (cons (cons _%name187477%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187383%_ '()))) + (cons '() (cons _%body187542%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187297%_)))))) - _%hd187330187360%_) - (_%g187320187336%_ _%g187321187339%_)))) - (_%g187320187336%_ _%g187321187339%_)) - (_%g187320187336%_ _%g187321187339%_)))) + _%blocks187456%_)))))) + _%hd187489187519%_) + (_%g187479187495%_ _%g187480187498%_)))) + (_%g187479187495%_ _%g187480187498%_)) + (_%g187479187495%_ _%g187480187498%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187320187336%_ - _%g187321187339%_)) - (_%g187320187336%_ - _%g187321187339%_)) - (_%g187320187336%_ - _%g187321187339%_)))) - (_%g187320187336%_ _%g187321187339%_))))) - (_%g187319187386%_ _%body187317%_))))) - (if (pair? _%clause187303187310%_) - (let ((_%hd187307187392%_ + (_%g187479187495%_ + _%g187480187498%_)) + (_%g187479187495%_ + _%g187480187498%_)) + (_%g187479187495%_ + _%g187480187498%_)))) + (_%g187479187495%_ _%g187480187498%_))))) + (_%g187478187545%_ _%body187476%_))))) + (if (pair? _%clause187462187469%_) + (let ((_%hd187466187551%_ (let () (declare (not safe)) - (##car _%clause187303187310%_))) - (_%tl187308187394%_ + (##car _%clause187462187469%_))) + (_%tl187467187553%_ (let () (declare (not safe)) - (##cdr _%clause187303187310%_)))) - (let* ((_%name187397%_ _%hd187307187392%_) - (_%body187399%_ _%tl187308187394%_)) - (_%K187306187389%_ _%body187399%_ _%name187397%_))) - (_%E187305187314%_)))))) + (##cdr _%clause187462187469%_)))) + (let* ((_%name187556%_ _%hd187466187551%_) + (_%body187558%_ _%tl187467187553%_)) + (_%K187465187548%_ _%body187558%_ _%name187556%_))) + (_%E187464187473%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks186902%_) - (let _%lp186904%_ ((_%rest186906%_ _%blocks186902%_) - (_%blocks186907%_ '())) - (let* ((_%rest186908186916%_ _%rest186906%_) - (_%else186910186965%_ + (lambda (_%blocks187061%_) + (let _%lp187063%_ ((_%rest187065%_ _%blocks187061%_) + (_%blocks187066%_ '())) + (let* ((_%rest187067187075%_ _%rest187065%_) + (_%else187069187124%_ (lambda () - (let ((__tmp192276 - (lambda (_%block186924%_ _%r186925%_) - (let* ((_%block186926186937%_ _%block186924%_) - (_%E186928186941%_ + (let ((__tmp192435 + (lambda (_%block187083%_ _%r187084%_) + (let* ((_%block187085187096%_ _%block187083%_) + (_%E187087187100%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block186926186937%_ + _%block187085187096%_ '([name _ kont . _]))) '#!void)) - (_%K186929186947%_ - (lambda (_%kont186944%_ _%name186945%_) - (cons (cons _%name186945%_ - _%kont186944%_) - _%r186925%_)))) - (if (pair? _%block186926186937%_) - (let ((_%hd186930186950%_ + (_%K187088187106%_ + (lambda (_%kont187103%_ _%name187104%_) + (cons (cons _%name187104%_ + _%kont187103%_) + _%r187084%_)))) + (if (pair? _%block187085187096%_) + (let ((_%hd187089187109%_ (let () (declare (not safe)) - (##car _%block186926186937%_))) - (_%tl186931186952%_ + (##car _%block187085187096%_))) + (_%tl187090187111%_ (let () (declare (not safe)) - (##cdr _%block186926186937%_)))) - (let ((_%name186955%_ _%hd186930186950%_)) - (if (pair? _%tl186931186952%_) - (let ((_%tl186933186957%_ + (##cdr _%block187085187096%_)))) + (let ((_%name187114%_ _%hd187089187109%_)) + (if (pair? _%tl187090187111%_) + (let ((_%tl187092187116%_ (let () (declare (not safe)) - (##cdr _%tl186931186952%_)))) - (if (pair? _%tl186933186957%_) - (let* ((_%hd186934186960%_ + (##cdr _%tl187090187111%_)))) + (if (pair? _%tl187092187116%_) + (let* ((_%hd187093187119%_ (let () (declare (not safe)) - (##car _%tl186933186957%_))) - (_%kont186963%_ - _%hd186934186960%_)) - (_%K186929186947%_ - _%kont186963%_ - _%name186955%_)) - (_%E186928186941%_))) - (_%E186928186941%_)))) - (_%E186928186941%_)))))) + (##car _%tl187092187116%_))) + (_%kont187122%_ + _%hd187093187119%_)) + (_%K187088187106%_ + _%kont187122%_ + _%name187114%_)) + (_%E187087187100%_))) + (_%E187087187100%_)))) + (_%E187087187100%_)))))) (declare (not safe)) - (__foldl1 __tmp192276 '() _%blocks186907%_)))) - (_%K186912187284%_ - (lambda (_%rest186968%_ _%block186969%_) - (let* ((_%block186970186995%_ _%block186969%_) - (_%E186973186999%_ + (__foldl1 __tmp192435 '() _%blocks187066%_)))) + (_%K187071187443%_ + (lambda (_%rest187127%_ _%block187128%_) + (let* ((_%block187129187154%_ _%block187128%_) + (_%E187132187158%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block186970186995%_ + _%block187129187154%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K186985187255%_ - (lambda (_%assert187177%_ - _%kont187178%_ - _%name187179%_) - (let* ((_%g187181187197%_ - (lambda (_%g187182187194%_) + (let ((_%K187144187414%_ + (lambda (_%assert187336%_ + _%kont187337%_ + _%name187338%_) + (let* ((_%g187340187356%_ + (lambda (_%g187341187353%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187182187194%_)))) - (_%g187180187252%_ - (lambda (_%g187182187200%_) + _%g187341187353%_)))) + (_%g187339187411%_ + (lambda (_%g187341187359%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187182187200%_)) - (let ((_%e187184187202%_ + _%g187341187359%_)) + (let ((_%e187343187361%_ (let () (declare (not safe)) (gx#stx-e - _%g187182187200%_)))) - (let ((_%hd187185187205%_ + _%g187341187359%_)))) + (let ((_%hd187344187364%_ (let () (declare (not safe)) - (##car _%e187184187202%_))) - (_%tl187186187207%_ + (##car _%e187343187361%_))) + (_%tl187345187366%_ (let () (declare (not safe)) - (##cdr _%e187184187202%_)))) + (##cdr _%e187343187361%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187185187205%_)) + _%hd187344187364%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187185187205%_)) + _%hd187344187364%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187186187207%_)) - (let ((_%e187187187210%_ + (gx#stx-pair? _%tl187345187366%_)) + (let ((_%e187346187369%_ (let () (declare (not safe)) - (gx#stx-e _%tl187186187207%_)))) - (let ((_%hd187188187213%_ + (gx#stx-e _%tl187345187366%_)))) + (let ((_%hd187347187372%_ (let () (declare (not safe)) - (##car _%e187187187210%_))) - (_%tl187189187215%_ + (##car _%e187346187369%_))) + (_%tl187348187374%_ (let () (declare (not safe)) - (##cdr _%e187187187210%_)))) + (##cdr _%e187346187369%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187188187213%_)) + (gx#stx-null? _%hd187347187372%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187189187215%_)) - (let ((_%e187190187218%_ + (gx#stx-pair? _%tl187348187374%_)) + (let ((_%e187349187377%_ (let () (declare (not safe)) - (gx#stx-e _%tl187189187215%_)))) - (let ((_%hd187191187221%_ + (gx#stx-e _%tl187348187374%_)))) + (let ((_%hd187350187380%_ (let () (declare (not safe)) - (##car _%e187190187218%_))) - (_%tl187192187223%_ + (##car _%e187349187377%_))) + (_%tl187351187382%_ (let () (declare (not safe)) - (##cdr _%e187190187218%_)))) + (##cdr _%e187349187377%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187192187223%_)) - ((lambda (_%L187226%_) - (let* ((_%body187241%_ + (gx#stx-null? _%tl187351187382%_)) + ((lambda (_%L187385%_) + (let* ((_%body187400%_ (gxc#optimize-match-block - _%L187226%_ - _%assert187177%_ + _%L187385%_ + _%assert187336%_ '() - _%rest186968%_)) - (_%block187243%_ - (cons _%name187179%_ + _%rest187127%_)) + (_%block187402%_ + (cons _%name187338%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187241%_ '()))) - (cons _%assert187177%_ '()))))) + (cons '() (cons _%body187400%_ '()))) + (cons _%assert187336%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187245%_ - (cons _%block187243%_ - _%blocks186907%_)) - (_%rest187247%_ + (_%blocks187404%_ + (cons _%block187402%_ + _%blocks187066%_)) + (_%rest187406%_ (gxc#optimize-match-prune-blocks - _%rest186968%_ - _%blocks187245%_)) - (_%rest187249%_ + _%rest187127%_ + _%blocks187404%_)) + (_%rest187408%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187247%_ - _%blocks187245%_))) - (_%lp186904%_ - _%rest187249%_ - _%blocks187245%_))) - _%hd187191187221%_) - (_%g187181187197%_ - _%g187182187200%_)))) - (_%g187181187197%_ _%g187182187200%_)) - (_%g187181187197%_ _%g187182187200%_)))) - (_%g187181187197%_ _%g187182187200%_)) - (_%g187181187197%_ _%g187182187200%_)) + _%rest187406%_ + _%blocks187404%_))) + (_%lp187063%_ + _%rest187408%_ + _%blocks187404%_))) + _%hd187350187380%_) + (_%g187340187356%_ + _%g187341187359%_)))) + (_%g187340187356%_ _%g187341187359%_)) + (_%g187340187356%_ _%g187341187359%_)))) + (_%g187340187356%_ _%g187341187359%_)) + (_%g187340187356%_ _%g187341187359%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187181187197%_ - _%g187182187200%_)))) - (_%g187181187197%_ - _%g187182187200%_))))) - (_%g187180187252%_ _%kont187178%_)))) - (_%K186974187138%_ - (lambda (_%bind187003%_ - _%assert187004%_ - _%kont187005%_ - _%name187006%_) - (let* ((_%g187008187034%_ - (lambda (_%g187009187031%_) + (_%g187340187356%_ + _%g187341187359%_)))) + (_%g187340187356%_ + _%g187341187359%_))))) + (_%g187339187411%_ _%kont187337%_)))) + (_%K187133187297%_ + (lambda (_%bind187162%_ + _%assert187163%_ + _%kont187164%_ + _%name187165%_) + (let* ((_%g187167187193%_ + (lambda (_%g187168187190%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187009187031%_)))) - (_%g187007187135%_ - (lambda (_%g187009187037%_) + _%g187168187190%_)))) + (_%g187166187294%_ + (lambda (_%g187168187196%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187009187037%_)) - (let ((_%e187012187039%_ + _%g187168187196%_)) + (let ((_%e187171187198%_ (let () (declare (not safe)) (gx#stx-e - _%g187009187037%_)))) - (let ((_%hd187013187042%_ + _%g187168187196%_)))) + (let ((_%hd187172187201%_ (let () (declare (not safe)) - (##car _%e187012187039%_))) - (_%tl187014187044%_ + (##car _%e187171187198%_))) + (_%tl187173187203%_ (let () (declare (not safe)) - (##cdr _%e187012187039%_)))) + (##cdr _%e187171187198%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187013187042%_)) + _%hd187172187201%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187013187042%_)) + _%hd187172187201%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187014187044%_)) - (let ((_%e187015187047%_ + (gx#stx-pair? _%tl187173187203%_)) + (let ((_%e187174187206%_ (let () (declare (not safe)) - (gx#stx-e _%tl187014187044%_)))) - (let ((_%hd187016187050%_ + (gx#stx-e _%tl187173187203%_)))) + (let ((_%hd187175187209%_ (let () (declare (not safe)) - (##car _%e187015187047%_))) - (_%tl187017187052%_ + (##car _%e187174187206%_))) + (_%tl187176187211%_ (let () (declare (not safe)) - (##cdr _%e187015187047%_)))) + (##cdr _%e187174187206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd187016187050%_)) - (let ((_g192277_ + (gx#stx-pair/null? _%hd187175187209%_)) + (let ((_g192436_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd187016187050%_ + _%hd187175187209%_ '0)))) (begin - (let ((_g192278_ + (let ((_g192437_ (let () (declare (not safe)) - (if (##values? _g192277_) - (##vector-length _g192277_) + (if (##values? _g192436_) + (##vector-length _g192436_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192278_ 2))) + (##fx= _g192437_ 2))) (error "Context expects 2 values" - _g192278_))) - (let ((_%target187018187055%_ + _g192437_))) + (let ((_%target187177187214%_ (let () (declare (not safe)) - (##vector-ref _g192277_ 0))) - (_%tl187020187057%_ + (##vector-ref _g192436_ 0))) + (_%tl187179187216%_ (let () (declare (not safe)) - (##vector-ref _g192277_ 1)))) + (##vector-ref _g192436_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187020187057%_)) - (letrec ((_%loop187021187060%_ - (lambda (_%hd187019187063%_ - _%id187025187065%_) + (gx#stx-null? _%tl187179187216%_)) + (letrec ((_%loop187180187219%_ + (lambda (_%hd187178187222%_ + _%id187184187224%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187019187063%_)) - (let ((_%e187022187068%_ + _%hd187178187222%_)) + (let ((_%e187181187227%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd187019187063%_)))) - (let ((_%lp-hd187023187071%_ + (gx#stx-e _%hd187178187222%_)))) + (let ((_%lp-hd187182187230%_ (let () (declare (not safe)) - (##car _%e187022187068%_))) - (_%lp-tl187024187073%_ + (##car _%e187181187227%_))) + (_%lp-tl187183187232%_ (let () (declare (not safe)) - (##cdr _%e187022187068%_)))) - (_%loop187021187060%_ - _%lp-tl187024187073%_ - (cons _%lp-hd187023187071%_ _%id187025187065%_)))) - (let ((_%id187026187076%_ (reverse _%id187025187065%_))) + (##cdr _%e187181187227%_)))) + (_%loop187180187219%_ + _%lp-tl187183187232%_ + (cons _%lp-hd187182187230%_ _%id187184187224%_)))) + (let ((_%id187185187235%_ (reverse _%id187184187224%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187017187052%_)) - (let ((_%e187027187079%_ + (gx#stx-pair? _%tl187176187211%_)) + (let ((_%e187186187238%_ (let () (declare (not safe)) - (gx#stx-e _%tl187017187052%_)))) - (let ((_%hd187028187082%_ + (gx#stx-e _%tl187176187211%_)))) + (let ((_%hd187187187241%_ (let () (declare (not safe)) - (##car _%e187027187079%_))) - (_%tl187029187084%_ + (##car _%e187186187238%_))) + (_%tl187188187243%_ (let () (declare (not safe)) - (##cdr _%e187027187079%_)))) + (##cdr _%e187186187238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187029187084%_)) - ((lambda (_%L187087%_ _%L187088%_) - (let* ((_%body187117%_ + (gx#stx-null? _%tl187188187243%_)) + ((lambda (_%L187246%_ _%L187247%_) + (let* ((_%body187276%_ (gxc#optimize-match-block - _%L187087%_ - _%assert187004%_ - _%bind187003%_ - _%rest186968%_)) - (_%block187126%_ - (cons _%name187006%_ + _%L187246%_ + _%assert187163%_ + _%bind187162%_ + _%rest187127%_)) + (_%block187285%_ + (cons _%name187165%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp192279 + (cons (let ((__tmp192438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g187118187121%_ - _%g187119187123%_) - (cons _%g187118187121%_ - _%g187119187123%_)))) + (lambda (_%g187277187280%_ + _%g187278187282%_) + (cons _%g187277187280%_ + _%g187278187282%_)))) (declare (not safe)) - (__foldr1 __tmp192279 '() _%L187088%_)) - (cons _%body187117%_ '()))) - (cons _%assert187004%_ (cons _%bind187003%_ '())))))) + (__foldr1 __tmp192438 '() _%L187247%_)) + (cons _%body187276%_ '()))) + (cons _%assert187163%_ (cons _%bind187162%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187128%_ - (cons _%block187126%_ - _%blocks186907%_)) - (_%rest187130%_ + (_%blocks187287%_ + (cons _%block187285%_ + _%blocks187066%_)) + (_%rest187289%_ (gxc#optimize-match-prune-blocks - _%rest186968%_ - _%blocks187128%_)) - (_%rest187132%_ + _%rest187127%_ + _%blocks187287%_)) + (_%rest187291%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187130%_ - _%blocks187128%_))) - (_%lp186904%_ - _%rest187132%_ - _%blocks187128%_))) - _%hd187028187082%_ - _%id187026187076%_) - (_%g187008187034%_ _%g187009187037%_)))) - (_%g187008187034%_ _%g187009187037%_))))))) + _%rest187289%_ + _%blocks187287%_))) + (_%lp187063%_ + _%rest187291%_ + _%blocks187287%_))) + _%hd187187187241%_ + _%id187185187235%_) + (_%g187167187193%_ _%g187168187196%_)))) + (_%g187167187193%_ _%g187168187196%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187021187060%_ - _%target187018187055%_ + (_%loop187180187219%_ + _%target187177187214%_ '())) - (_%g187008187034%_ - _%g187009187037%_))))) - (_%g187008187034%_ _%g187009187037%_)))) - (_%g187008187034%_ _%g187009187037%_)) - (_%g187008187034%_ _%g187009187037%_)) + (_%g187167187193%_ + _%g187168187196%_))))) + (_%g187167187193%_ _%g187168187196%_)))) + (_%g187167187193%_ _%g187168187196%_)) + (_%g187167187193%_ _%g187168187196%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187008187034%_ - _%g187009187037%_)))) - (_%g187008187034%_ - _%g187009187037%_))))) - (_%g187007187135%_ _%kont187005%_))))) - (let* ((_%__match189637189638%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_ - _%hd186983187167%_ - _%tl186984187169%_) - (let ((_%name187146%_ _%hd186975187141%_) - (_%kont187158%_ _%hd186979187153%_) - (_%assert187165%_ _%hd186981187160%_) - (_%bind187172%_ _%hd186983187167%_)) - (_%E186973186999%_)))) - (_%__match189631189632%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_) - (let ((_%name187146%_ _%hd186975187141%_) - (_%kont187158%_ _%hd186979187153%_) - (_%assert187165%_ _%hd186981187160%_)) - (_%E186973186999%_)))) - (_%__match189625189626%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_ - _%hd186979187153%_ - _%tl186980187155%_) - (let ((_%name187146%_ _%hd186975187141%_) - (_%kont187158%_ _%hd186979187153%_)) - (_%E186973186999%_)))) - (_%__match189619189620%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_) - (let ((_%name187146%_ _%hd186975187141%_)) - (_%E186973186999%_)))) - (_%__match189615189616%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_) - (let ((_%name187146%_ _%hd186975187141%_)) - (_%E186973186999%_)))) - (_%__match189609189610%_ - (lambda (_%hd186975187141%_ _%tl186976187143%_) - (let ((_%name187146%_ _%hd186975187141%_)) - (_%E186973186999%_))))) - (if (pair? _%block186970186995%_) - (let ((_%tl186987187260%_ + (_%g187167187193%_ + _%g187168187196%_)))) + (_%g187167187193%_ + _%g187168187196%_))))) + (_%g187166187294%_ _%kont187164%_))))) + (let* ((_%__match189796189797%_ + (lambda (_%hd187134187300%_ + _%tl187135187302%_ + _%hd187136187307%_ + _%tl187137187309%_ + _%hd187138187312%_ + _%tl187139187314%_ + _%hd187140187319%_ + _%tl187141187321%_ + _%hd187142187326%_ + _%tl187143187328%_) + (let ((_%name187305%_ _%hd187134187300%_) + (_%kont187317%_ _%hd187138187312%_) + (_%assert187324%_ _%hd187140187319%_) + (_%bind187331%_ _%hd187142187326%_)) + (_%E187132187158%_)))) + (_%__match189790189791%_ + (lambda (_%hd187134187300%_ + _%tl187135187302%_ + _%hd187136187307%_ + _%tl187137187309%_ + _%hd187138187312%_ + _%tl187139187314%_ + _%hd187140187319%_ + _%tl187141187321%_) + (let ((_%name187305%_ _%hd187134187300%_) + (_%kont187317%_ _%hd187138187312%_) + (_%assert187324%_ _%hd187140187319%_)) + (_%E187132187158%_)))) + (_%__match189784189785%_ + (lambda (_%hd187134187300%_ + _%tl187135187302%_ + _%hd187136187307%_ + _%tl187137187309%_ + _%hd187138187312%_ + _%tl187139187314%_) + (let ((_%name187305%_ _%hd187134187300%_) + (_%kont187317%_ _%hd187138187312%_)) + (_%E187132187158%_)))) + (_%__match189778189779%_ + (lambda (_%hd187134187300%_ + _%tl187135187302%_ + _%hd187136187307%_ + _%tl187137187309%_) + (let ((_%name187305%_ _%hd187134187300%_)) + (_%E187132187158%_)))) + (_%__match189774189775%_ + (lambda (_%hd187134187300%_ + _%tl187135187302%_ + _%hd187136187307%_ + _%tl187137187309%_) + (let ((_%name187305%_ _%hd187134187300%_)) + (_%E187132187158%_)))) + (_%__match189768189769%_ + (lambda (_%hd187134187300%_ _%tl187135187302%_) + (let ((_%name187305%_ _%hd187134187300%_)) + (_%E187132187158%_))))) + (if (pair? _%block187129187154%_) + (let ((_%tl187146187419%_ (let () (declare (not safe)) - (##cdr _%block186970186995%_))) - (_%hd186986187258%_ + (##cdr _%block187129187154%_))) + (_%hd187145187417%_ (let () (declare (not safe)) - (##car _%block186970186995%_)))) - (if (pair? _%tl186987187260%_) - (let ((_%tl186989187267%_ + (##car _%block187129187154%_)))) + (if (pair? _%tl187146187419%_) + (let ((_%tl187148187426%_ (let () (declare (not safe)) - (##cdr _%tl186987187260%_))) - (_%hd186988187265%_ + (##cdr _%tl187146187419%_))) + (_%hd187147187424%_ (let () (declare (not safe)) - (##car _%tl186987187260%_)))) + (##car _%tl187146187419%_)))) (if (let () (declare (not safe)) - (##eq? _%hd186988187265%_ + (##eq? _%hd187147187424%_ 'restart:)) - (if (pair? _%tl186989187267%_) - (let ((_%tl186991187272%_ + (if (pair? _%tl187148187426%_) + (let ((_%tl187150187431%_ (let () (declare (not safe)) - (##cdr _%tl186989187267%_))) - (_%hd186990187270%_ + (##cdr _%tl187148187426%_))) + (_%hd187149187429%_ (let () (declare (not safe)) - (##car _%tl186989187267%_)))) - (if (pair? _%tl186991187272%_) - (let ((_%tl186993187279%_ + (##car _%tl187148187426%_)))) + (if (pair? _%tl187150187431%_) + (let ((_%tl187152187438%_ (let () (declare (not safe)) - (##cdr _%tl186991187272%_))) - (_%hd186992187277%_ + (##cdr _%tl187150187431%_))) + (_%hd187151187436%_ (let () (declare (not safe)) - (##car _%tl186991187272%_)))) - (if (null? _%tl186993187279%_) - (let ((_%name187263%_ + (##car _%tl187150187431%_)))) + (if (null? _%tl187152187438%_) + (let ((_%name187422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd186986187258%_) - (_%kont187275%_ _%hd186990187270%_) - (_%assert187282%_ _%hd186992187277%_)) - (_%K186985187255%_ - _%assert187282%_ - _%kont187275%_ - _%name187263%_)) - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_))) + _%hd187145187417%_) + (_%kont187434%_ _%hd187149187429%_) + (_%assert187441%_ _%hd187151187436%_)) + (_%K187144187414%_ + _%assert187441%_ + _%kont187434%_ + _%name187422%_)) + (_%__match189774189775%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_))) - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_)) + (_%__match189774189775%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_))) + (_%__match189774189775%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_)) (if (let () (declare (not safe)) - (##eq? _%hd186988187265%_ + (##eq? _%hd187147187424%_ 'continue:)) - (if (pair? _%tl186989187267%_) - (let ((_%tl186980187155%_ + (if (pair? _%tl187148187426%_) + (let ((_%tl187139187314%_ (let () (declare (not safe)) - (##cdr _%tl186989187267%_))) - (_%hd186979187153%_ + (##cdr _%tl187148187426%_))) + (_%hd187138187312%_ (let () (declare (not safe)) - (##car _%tl186989187267%_)))) - (if (pair? _%tl186980187155%_) - (let ((_%tl186982187162%_ + (##car _%tl187148187426%_)))) + (if (pair? _%tl187139187314%_) + (let ((_%tl187141187321%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl186980187155%_))) - (_%hd186981187160%_ + (##cdr _%tl187139187314%_))) + (_%hd187140187319%_ (let () (declare (not safe)) - (##car _%tl186980187155%_)))) - (if (pair? _%tl186982187162%_) - (let ((_%tl186984187169%_ + (##car _%tl187139187314%_)))) + (if (pair? _%tl187141187321%_) + (let ((_%tl187143187328%_ (let () (declare (not safe)) - (##cdr _%tl186982187162%_))) - (_%hd186983187167%_ + (##cdr _%tl187141187321%_))) + (_%hd187142187326%_ (let () (declare (not safe)) - (##car _%tl186982187162%_)))) - (if (null? _%tl186984187169%_) - (let ((_%name187146%_ _%hd186986187258%_) - (_%kont187158%_ _%hd186979187153%_) - (_%assert187165%_ _%hd186981187160%_) - (_%bind187172%_ _%hd186983187167%_)) - (_%K186974187138%_ - _%bind187172%_ - _%assert187165%_ - _%kont187158%_ - _%name187146%_)) - (_%__match189637189638%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_ - _%hd186983187167%_ - _%tl186984187169%_))) - (_%__match189631189632%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_))) - (_%__match189625189626%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_ - _%hd186979187153%_ - _%tl186980187155%_))) + (##car _%tl187141187321%_)))) + (if (null? _%tl187143187328%_) + (let ((_%name187305%_ _%hd187145187417%_) + (_%kont187317%_ _%hd187138187312%_) + (_%assert187324%_ _%hd187140187319%_) + (_%bind187331%_ _%hd187142187326%_)) + (_%K187133187297%_ + _%bind187331%_ + _%assert187324%_ + _%kont187317%_ + _%name187305%_)) + (_%__match189796189797%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_ + _%hd187138187312%_ + _%tl187139187314%_ + _%hd187140187319%_ + _%tl187141187321%_ + _%hd187142187326%_ + _%tl187143187328%_))) + (_%__match189790189791%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_ + _%hd187138187312%_ + _%tl187139187314%_ + _%hd187140187319%_ + _%tl187141187321%_))) + (_%__match189784189785%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_ + _%hd187138187312%_ + _%tl187139187314%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189619189620%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_)) - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_)))) - (_%__match189609189610%_ - _%hd186986187258%_ - _%tl186987187260%_))) - (_%E186973186999%_)))))))) - (if (pair? _%rest186908186916%_) - (let ((_%hd186913187287%_ + (_%__match189778189779%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_)) + (_%__match189774189775%_ + _%hd187145187417%_ + _%tl187146187419%_ + _%hd187147187424%_ + _%tl187148187426%_)))) + (_%__match189768189769%_ + _%hd187145187417%_ + _%tl187146187419%_))) + (_%E187132187158%_)))))))) + (if (pair? _%rest187067187075%_) + (let ((_%hd187072187446%_ (let () (declare (not safe)) - (##car _%rest186908186916%_))) - (_%tl186914187289%_ + (##car _%rest187067187075%_))) + (_%tl187073187448%_ (let () (declare (not safe)) - (##cdr _%rest186908186916%_)))) - (let* ((_%block187292%_ _%hd186913187287%_) - (_%rest187294%_ _%tl186914187289%_)) - (_%K186912187284%_ _%rest187294%_ _%block187292%_))) - (_%else186910186965%_)))))) + (##cdr _%rest187067187075%_)))) + (let* ((_%block187451%_ _%hd187072187446%_) + (_%rest187453%_ _%tl187073187448%_)) + (_%K187071187443%_ _%rest187453%_ _%block187451%_))) + (_%else187069187124%_)))))) (define gxc#optimize-match-block - (lambda (_%body181525%_ _%assert181526%_ _%bind181527%_ _%blocks181528%_) - (letrec* ((_%env-assert181763%_ '()) - (_%env-type181764%_ '()) - (_%env-bind181765%_ '()) - (_%in-splice?181766%_ '#f) - (_%do-assert181767%_ - (lambda (_%assert186825%_ _%K186826%_) - (if (pair? _%assert186825%_) - (let _%lp186828%_ ((_%rest186830%_ _%assert186825%_) - (_%env-assert186831%_ - _%env-assert181763%_) - (_%env-type186832%_ - _%env-type181764%_)) - (let* ((_%rest186833186841%_ _%rest186830%_) - (_%else186835186849%_ + (lambda (_%body181684%_ _%assert181685%_ _%bind181686%_ _%blocks181687%_) + (letrec* ((_%env-assert181922%_ '()) + (_%env-type181923%_ '()) + (_%env-bind181924%_ '()) + (_%in-splice?181925%_ '#f) + (_%do-assert181926%_ + (lambda (_%assert186984%_ _%K186985%_) + (if (pair? _%assert186984%_) + (let _%lp186987%_ ((_%rest186989%_ _%assert186984%_) + (_%env-assert186990%_ + _%env-assert181922%_) + (_%env-type186991%_ + _%env-type181923%_)) + (let* ((_%rest186992187000%_ _%rest186989%_) + (_%else186994187008%_ (lambda () - (_%do-assert!181773%_ - _%env-assert186831%_ - _%env-type186832%_ - _%K186826%_))) - (_%K186837186890%_ - (lambda (_%rest186852%_ _%assert186853%_) - (let* ((_%assert186854186861%_ - _%assert186853%_) - (_%E186856186865%_ + (_%do-assert!181932%_ + _%env-assert186990%_ + _%env-type186991%_ + _%K186985%_))) + (_%K186996187049%_ + (lambda (_%rest187011%_ _%assert187012%_) + (let* ((_%assert187013187020%_ + _%assert187012%_) + (_%E187015187024%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert186854186861%_ + _%assert187013187020%_ '([expr . val]))) '#!void)) - (_%K186857186878%_ - (lambda (_%val186868%_ - _%expr186869%_) - (let* ((_%sexpr186871%_ + (_%K187016187037%_ + (lambda (_%val187027%_ + _%expr187028%_) + (let* ((_%sexpr187030%_ (gxc#apply-generate-runtime-repr - _%expr186869%_)) - (_%env-assert186873%_ - (cons (cons _%sexpr186871%_ + _%expr187028%_)) + (_%env-assert187032%_ + (cons (cons _%sexpr187030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val186868%_) - _%env-assert186831%_)) - (_%env-type186875%_ - (_%fold-assert-type181769%_ - _%expr186869%_ - _%val186868%_ - _%env-type186832%_))) + _%val187027%_) + _%env-assert186990%_)) + (_%env-type187034%_ + (_%fold-assert-type181928%_ + _%expr187028%_ + _%val187027%_ + _%env-type186991%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp186828%_ - _%rest186852%_ - _%env-assert186873%_ - _%env-type186875%_))))) - (if (pair? _%assert186854186861%_) - (let ((_%hd186858186881%_ + (_%lp186987%_ + _%rest187011%_ + _%env-assert187032%_ + _%env-type187034%_))))) + (if (pair? _%assert187013187020%_) + (let ((_%hd187017187040%_ (let () (declare (not safe)) - (##car _%assert186854186861%_))) - (_%tl186859186883%_ + (##car _%assert187013187020%_))) + (_%tl187018187042%_ (let () (declare (not safe)) - (##cdr _%assert186854186861%_)))) - (let* ((_%expr186886%_ - _%hd186858186881%_) - (_%val186888%_ - _%tl186859186883%_)) - (_%K186857186878%_ - _%val186888%_ - _%expr186886%_))) - (_%E186856186865%_)))))) - (if (pair? _%rest186833186841%_) - (let ((_%hd186838186893%_ + (##cdr _%assert187013187020%_)))) + (let* ((_%expr187045%_ + _%hd187017187040%_) + (_%val187047%_ + _%tl187018187042%_)) + (_%K187016187037%_ + _%val187047%_ + _%expr187045%_))) + (_%E187015187024%_)))))) + (if (pair? _%rest186992187000%_) + (let ((_%hd186997187052%_ (let () (declare (not safe)) - (##car _%rest186833186841%_))) - (_%tl186839186895%_ + (##car _%rest186992187000%_))) + (_%tl186998187054%_ (let () (declare (not safe)) - (##cdr _%rest186833186841%_)))) - (let* ((_%assert186898%_ _%hd186838186893%_) - (_%rest186900%_ _%tl186839186895%_)) - (_%K186837186890%_ - _%rest186900%_ - _%assert186898%_))) - (_%else186835186849%_)))) - (_%K186826%_)))) - (_%predicate-type181768%_ - (lambda (_%id186770%_) - (let* ((_%sym186772%_ + (##cdr _%rest186992187000%_)))) + (let* ((_%assert187057%_ _%hd186997187052%_) + (_%rest187059%_ _%tl186998187054%_)) + (_%K186996187049%_ + _%rest187059%_ + _%assert187057%_))) + (_%else186994187008%_)))) + (_%K186985%_)))) + (_%predicate-type181927%_ + (lambda (_%id186929%_) + (let* ((_%sym186931%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id186770%_))) - (_%$e186774%_ _%sym186772%_)) - (let ((_%default186776186807%_ + (gxc#identifier-symbol _%id186929%_))) + (_%$e186933%_ _%sym186931%_)) + (let ((_%default186935186966%_ (lambda () - (let* ((_%g186779186786%_ + (let* ((_%g186938186945%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym186772%_))) - (_%else186781186794%_ (lambda () '#f)) - (_%K186783186799%_ - (lambda (_%t186797%_) - (let ((__tmp192280 + _%sym186931%_))) + (_%else186940186953%_ (lambda () '#f)) + (_%K186942186958%_ + (lambda (_%t186956%_) + (let ((__tmp192439 (cons 'predicate-type - (cons _%id186770%_ + (cons _%id186929%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp192280 - _%t186797%_))))) + __tmp192439 + _%t186956%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g186779186786%_ + _%g186938186945%_ 'gxc#!predicate::t)) - (let* ((_%e186784186802%_ + (let* ((_%e186943186961%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g186779186786%_ + _%g186938186945%_ '1 '#f '#f))) - (_%t186805%_ _%e186784186802%_)) - (_%K186783186799%_ _%t186805%_)) - (_%else186781186794%_))))) - (_%table186777186809%_ + (_%t186964%_ _%e186943186961%_)) + (_%K186942186958%_ _%t186964%_)) + (_%else186940186953%_))))) + (_%table186936186968%_ '#(#f (##box? . 3) #f @@ -3796,48 +3796,48 @@ #f #f #f))) - (if (symbol? _%$e186774%_) - (let* ((_%h186812%_ + (if (symbol? _%$e186933%_) + (let* ((_%h186971%_ (let () (declare (not safe)) - (##symbol-hash _%$e186774%_))) - (_%ix186815%_ + (##symbol-hash _%$e186933%_))) + (_%ix186974%_ (let () (declare (not safe)) - (##fxmodulo _%h186812%_ '63))) - (_%q186818%_ + (##fxmodulo _%h186971%_ '63))) + (_%q186977%_ (let () (declare (not safe)) (##vector-ref - _%table186777186809%_ - _%ix186815%_)))) - (if _%q186818%_ + _%table186936186968%_ + _%ix186974%_)))) + (if _%q186977%_ (if (eq? (let () (declare (not safe)) - (##car _%q186818%_)) - _%$e186774%_) - (let ((_%x186822%_ + (##car _%q186977%_)) + _%$e186933%_) + (let ((_%x186981%_ (let () (declare (not safe)) - (##cdr _%q186818%_)))) + (##cdr _%q186977%_)))) (if (let () (declare (not safe)) - (##fx< _%x186822%_ '5)) + (##fx< _%x186981%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x186822%_ '2)) + (##fx< _%x186981%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '0)) + (##fx= _%x186981%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '2)) + (##fx= _%x186981%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x186822%_ + (##fx= _%x186981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3845,356 +3845,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x186822%_ '7)) + (##fx< _%x186981%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '5)) + (##fx= _%x186981%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '7)) + (##fx= _%x186981%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x186822%_ + (##fx= _%x186981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default186776186807%_)) - (_%default186776186807%_))) - (_%default186776186807%_)))))) - (_%fold-assert-type181769%_ - (lambda (_%expr185716%_ _%val185717%_ _%env185718%_) - (let* ((_%__stx189734189735%_ _%expr185716%_) - (_%g185726185905%_ + (_%default186935186966%_)) + (_%default186935186966%_))) + (_%default186935186966%_)))))) + (_%fold-assert-type181928%_ + (lambda (_%expr185875%_ _%val185876%_ _%env185877%_) + (let* ((_%__stx189893189894%_ _%expr185875%_) + (_%g185885186064%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189734189735%_))))) - (let ((_%__kont189736189737%_ - (lambda (_%L186738%_ _%L186739%_) - (let ((_%$e186761%_ - (_%predicate-type181768%_ _%L186739%_))) - (if _%$e186761%_ - ((lambda (_%t186764%_) - (cons (cons _%L186738%_ - (cons _%t186764%_ - (cons _%val185717%_ + _%__stx189893189894%_))))) + (let ((_%__kont189895189896%_ + (lambda (_%L186897%_ _%L186898%_) + (let ((_%$e186920%_ + (_%predicate-type181927%_ _%L186898%_))) + (if _%$e186920%_ + ((lambda (_%t186923%_) + (cons (cons _%L186897%_ + (cons _%t186923%_ + (cons _%val185876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185718%_)) - _%$e186761%_) - _%env185718%_)))) - (_%__kont189738189739%_ - (lambda (_%L186427%_ _%L186428%_ _%L186429%_) - (let ((_%$e186454%_ + _%env185877%_)) + _%$e186920%_) + _%env185877%_)))) + (_%__kont189897189898%_ + (lambda (_%L186586%_ _%L186587%_ _%L186588%_) + (let ((_%$e186613%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186429%_)))) - (if (or (eq? '##fx= _%$e186454%_) - (eq? 'fx= _%$e186454%_)) - (let* ((_%__stx189640189641%_ - _%L186428%_) - (_%g186461186490%_ + (gxc#identifier-symbol _%L186588%_)))) + (if (or (eq? '##fx= _%$e186613%_) + (eq? 'fx= _%$e186613%_)) + (let* ((_%__stx189799189800%_ + _%L186587%_) + (_%g186620186649%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189640189641%_))))) - (let ((_%__kont189642189643%_ - (lambda (_%L186558%_ - _%L186559%_) - (let ((_%$e186584%_ - (_%countf-symbol181770%_ - _%L186559%_))) - (if _%$e186584%_ - ((lambda (_%sym186587%_) - (cons (cons _%L186558%_ + _%__stx189799189800%_))))) + (let ((_%__kont189801189802%_ + (lambda (_%L186717%_ + _%L186718%_) + (let ((_%$e186743%_ + (_%countf-symbol181929%_ + _%L186718%_))) + (if _%$e186743%_ + ((lambda (_%sym186746%_) + (cons (cons _%L186717%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186587%_ + (cons _%sym186746%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186427%_)) - (cons _%val185717%_ '())))) - _%env185718%_)) - _%$e186584%_) - _%env185718%_)))) + (gx#stx-e _%L186586%_)) + (cons _%val185876%_ '())))) + _%env185877%_)) + _%$e186743%_) + _%env185877%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189644189645%_ - (lambda () _%env185718%_))) + (_%__kont189803189804%_ + (lambda () _%env185877%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189640189641%_)) - (let ((_%e186465186502%_ + _%__stx189799189800%_)) + (let ((_%e186624186661%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189640189641%_)))) - (let ((_%tl186467186507%_ + _%__stx189799189800%_)))) + (let ((_%tl186626186666%_ (let () (declare (not safe)) - (##cdr _%e186465186502%_))) - (_%hd186466186505%_ + (##cdr _%e186624186661%_))) + (_%hd186625186664%_ (let () (declare (not safe)) - (##car _%e186465186502%_)))) + (##car _%e186624186661%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186466186505%_)) + _%hd186625186664%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186466186505%_)) + _%hd186625186664%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186467186507%_)) - (let ((_%e186468186510%_ + (gx#stx-pair? _%tl186626186666%_)) + (let ((_%e186627186669%_ (let () (declare (not safe)) - (gx#stx-e _%tl186467186507%_)))) - (let ((_%tl186470186515%_ + (gx#stx-e _%tl186626186666%_)))) + (let ((_%tl186629186674%_ (let () (declare (not safe)) - (##cdr _%e186468186510%_))) - (_%hd186469186513%_ + (##cdr _%e186627186669%_))) + (_%hd186628186672%_ (let () (declare (not safe)) - (##car _%e186468186510%_)))) + (##car _%e186627186669%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186469186513%_)) - (let ((_%e186471186518%_ + (gx#stx-pair? _%hd186628186672%_)) + (let ((_%e186630186677%_ (let () (declare (not safe)) - (gx#stx-e _%hd186469186513%_)))) - (let ((_%tl186473186523%_ + (gx#stx-e _%hd186628186672%_)))) + (let ((_%tl186632186682%_ (let () (declare (not safe)) - (##cdr _%e186471186518%_))) - (_%hd186472186521%_ + (##cdr _%e186630186677%_))) + (_%hd186631186680%_ (let () (declare (not safe)) - (##car _%e186471186518%_)))) + (##car _%e186630186677%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186472186521%_)) + (gx#identifier? _%hd186631186680%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186472186521%_)) + _%hd186631186680%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186473186523%_)) - (let ((_%e186474186526%_ + _%tl186632186682%_)) + (let ((_%e186633186685%_ (let () (declare (not safe)) (gx#stx-e - _%tl186473186523%_)))) - (let ((_%tl186476186531%_ + _%tl186632186682%_)))) + (let ((_%tl186635186690%_ (let () (declare (not safe)) - (##cdr _%e186474186526%_))) - (_%hd186475186529%_ + (##cdr _%e186633186685%_))) + (_%hd186634186688%_ (let () (declare (not safe)) - (##car _%e186474186526%_)))) + (##car _%e186633186685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186476186531%_)) + _%tl186635186690%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186470186515%_)) - (let ((_%e186477186534%_ + _%tl186629186674%_)) + (let ((_%e186636186693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl186470186515%_)))) - (let ((_%tl186479186539%_ + (gx#stx-e _%tl186629186674%_)))) + (let ((_%tl186638186698%_ (let () (declare (not safe)) - (##cdr _%e186477186534%_))) - (_%hd186478186537%_ + (##cdr _%e186636186693%_))) + (_%hd186637186696%_ (let () (declare (not safe)) - (##car _%e186477186534%_)))) + (##car _%e186636186693%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186478186537%_)) - (let ((_%e186480186542%_ + (gx#stx-pair? _%hd186637186696%_)) + (let ((_%e186639186701%_ (let () (declare (not safe)) - (gx#stx-e _%hd186478186537%_)))) - (let ((_%tl186482186547%_ + (gx#stx-e _%hd186637186696%_)))) + (let ((_%tl186641186706%_ (let () (declare (not safe)) - (##cdr _%e186480186542%_))) - (_%hd186481186545%_ + (##cdr _%e186639186701%_))) + (_%hd186640186704%_ (let () (declare (not safe)) - (##car _%e186480186542%_)))) + (##car _%e186639186701%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186481186545%_)) + (gx#identifier? _%hd186640186704%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186481186545%_)) + (gx#stx-eq? '%#ref _%hd186640186704%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186482186547%_)) - (let ((_%e186483186550%_ + (gx#stx-pair? _%tl186641186706%_)) + (let ((_%e186642186709%_ (let () (declare (not safe)) (gx#stx-e - _%tl186482186547%_)))) - (let ((_%tl186485186555%_ + _%tl186641186706%_)))) + (let ((_%tl186644186714%_ (let () (declare (not safe)) - (##cdr _%e186483186550%_))) - (_%hd186484186553%_ + (##cdr _%e186642186709%_))) + (_%hd186643186712%_ (let () (declare (not safe)) - (##car _%e186483186550%_)))) + (##car _%e186642186709%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186485186555%_)) + _%tl186644186714%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186479186539%_)) - (_%__kont189642189643%_ - _%hd186484186553%_ - _%hd186475186529%_) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) + _%tl186638186698%_)) + (_%__kont189801189802%_ + _%hd186643186712%_ + _%hd186634186688%_) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)))) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)))) + (_%__kont189803189804%_)))) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189644189645%_)) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)))) + (_%__kont189803189804%_)))) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)) + (_%__kont189803189804%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189644189645%_)))) - (if (or (eq? '##eq? _%$e186454%_) - (eq? 'eq? _%$e186454%_) - (eq? '##eqv? _%$e186454%_) - (eq? 'eqv? _%$e186454%_) - (eq? '##equal? _%$e186454%_) - (eq? 'equal? _%$e186454%_) + (_%__kont189803189804%_)))) + (if (or (eq? '##eq? _%$e186613%_) + (eq? 'eq? _%$e186613%_) + (eq? '##eqv? _%$e186613%_) + (eq? 'eqv? _%$e186613%_) + (eq? '##equal? _%$e186613%_) + (eq? 'equal? _%$e186613%_) (eq? 'gx#free-identifier=? - _%$e186454%_) - (eq? 'gx#stx-eq? _%$e186454%_)) - ((lambda (_%sym186614%_) - (let* ((_%sym186616%_ - (_%eqf-symbol181771%_ - _%sym186614%_)) - (_%__stx189708189709%_ - _%L186428%_) - (_%g186619186632%_ + _%$e186613%_) + (eq? 'gx#stx-eq? _%$e186613%_)) + ((lambda (_%sym186773%_) + (let* ((_%sym186775%_ + (_%eqf-symbol181930%_ + _%sym186773%_)) + (_%__stx189867189868%_ + _%L186587%_) + (_%g186778186791%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189708189709%_))))) - (let ((_%__kont189710189711%_ - (lambda (_%L186660%_) - (cons (cons _%L186660%_ + _%__stx189867189868%_))))) + (let ((_%__kont189869189870%_ + (lambda (_%L186819%_) + (cons (cons _%L186819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186616%_ + (cons _%sym186775%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186427%_)) - (cons _%val185717%_ '())))) - _%env185718%_))) + (gx#stx-e _%L186586%_)) + (cons _%val185876%_ '())))) + _%env185877%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189712189713%_ + (_%__kont189871189872%_ (lambda () - _%env185718%_))) + _%env185877%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189708189709%_)) - (let ((_%e186622186644%_ + _%__stx189867189868%_)) + (let ((_%e186781186803%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189708189709%_)))) - (let ((_%tl186624186649%_ + _%__stx189867189868%_)))) + (let ((_%tl186783186808%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186622186644%_))) - (_%hd186623186647%_ - (let () (declare (not safe)) (##car _%e186622186644%_)))) + (##cdr _%e186781186803%_))) + (_%hd186782186806%_ + (let () (declare (not safe)) (##car _%e186781186803%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186623186647%_)) + (gx#identifier? _%hd186782186806%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186623186647%_)) + (gx#stx-eq? '%#ref _%hd186782186806%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186624186649%_)) - (let ((_%e186625186652%_ + (gx#stx-pair? _%tl186783186808%_)) + (let ((_%e186784186811%_ (let () (declare (not safe)) - (gx#stx-e _%tl186624186649%_)))) - (let ((_%tl186627186657%_ + (gx#stx-e _%tl186783186808%_)))) + (let ((_%tl186786186816%_ (let () (declare (not safe)) - (##cdr _%e186625186652%_))) - (_%hd186626186655%_ + (##cdr _%e186784186811%_))) + (_%hd186785186814%_ (let () (declare (not safe)) - (##car _%e186625186652%_)))) + (##car _%e186784186811%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186627186657%_)) - (_%__kont189710189711%_ - _%hd186626186655%_) - (_%__kont189712189713%_)))) - (_%__kont189712189713%_)) - (_%__kont189712189713%_)) - (_%__kont189712189713%_)))) + (gx#stx-null? _%tl186786186816%_)) + (_%__kont189869189870%_ + _%hd186785186814%_) + (_%__kont189871189872%_)))) + (_%__kont189871189872%_)) + (_%__kont189871189872%_)) + (_%__kont189871189872%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189712189713%_))))) - _%$e186454%_) - _%env185718%_))))) - (_%__kont189740189741%_ - (lambda (_%L186331%_ _%L186332%_ _%L186333%_) - (_%fold-assert-type181769%_ + (_%__kont189871189872%_))))) + _%$e186613%_) + _%env185877%_))))) + (_%__kont189899189900%_ + (lambda (_%L186490%_ _%L186491%_ _%L186492%_) + (_%fold-assert-type181928%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4203,42 +4203,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186333%_ '())) - (cons _%L186331%_ + (cons _%L186492%_ '())) + (cons _%L186490%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L186332%_ '())) + (cons _%L186491%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185717%_ - _%env185718%_))) - (_%__kont189742189743%_ - (lambda (_%L186221%_ _%L186222%_ _%L186223%_) - (let ((_%$e186252%_ + _%val185876%_ + _%env185877%_))) + (_%__kont189901189902%_ + (lambda (_%L186380%_ _%L186381%_ _%L186382%_) + (let ((_%$e186411%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186223%_)))) + (gxc#identifier-symbol _%L186382%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e186252%_) - (eq? 'gx#stx-eq? _%$e186252%_)) - ((lambda (_%sym186258%_) - (let ((_%sym186260%_ - (_%eqf-symbol181771%_ - _%sym186258%_))) - (cons (cons _%L186222%_ - (cons _%sym186260%_ - (cons _%L186221%_ + _%$e186411%_) + (eq? 'gx#stx-eq? _%$e186411%_)) + ((lambda (_%sym186417%_) + (let ((_%sym186419%_ + (_%eqf-symbol181930%_ + _%sym186417%_))) + (cons (cons _%L186381%_ + (cons _%sym186419%_ + (cons _%L186380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val185717%_ '())))) + (cons _%val185876%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185718%_))) - _%$e186252%_) - _%env185718%_)))) - (_%__kont189744189745%_ - (lambda (_%L186105%_ _%L186106%_ _%L186107%_) - (_%fold-assert-type181769%_ + _%env185877%_))) + _%$e186411%_) + _%env185877%_)))) + (_%__kont189903189904%_ + (lambda (_%L186264%_ _%L186265%_ _%L186266%_) + (_%fold-assert-type181928%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4247,4397 +4247,4397 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186107%_ '())) + (cons _%L186266%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186105%_ + (cons _%L186264%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L186106%_ '())) + (cons _%L186265%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185717%_ - _%env185718%_))) - (_%__kont189746189747%_ - (lambda (_%L185989%_ _%L185990%_ _%L185991%_) - (_%fold-assert-type181769%_ + _%val185876%_ + _%env185877%_))) + (_%__kont189905189906%_ + (lambda (_%L186148%_ _%L186149%_ _%L186150%_) + (_%fold-assert-type181928%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L185991%_ - _%L185989%_ - _%L185990%_)) - _%val185717%_ - _%env185718%_))) - (_%__kont189748189749%_ - (lambda () _%env185718%_))) + _%L186150%_ + _%L186148%_ + _%L186149%_)) + _%val185876%_ + _%env185877%_))) + (_%__kont189907189908%_ + (lambda () _%env185877%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189734189735%_)) - (let ((_%e185730186682%_ + (gx#stx-pair? _%__stx189893189894%_)) + (let ((_%e185889186841%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189734189735%_)))) - (let ((_%tl185732186687%_ + (gx#stx-e _%__stx189893189894%_)))) + (let ((_%tl185891186846%_ (let () (declare (not safe)) - (##cdr _%e185730186682%_))) - (_%hd185731186685%_ + (##cdr _%e185889186841%_))) + (_%hd185890186844%_ (let () (declare (not safe)) - (##car _%e185730186682%_)))) + (##car _%e185889186841%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185731186685%_)) + (gx#identifier? _%hd185890186844%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185731186685%_)) + _%hd185890186844%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185732186687%_)) - (let ((_%e185733186690%_ + _%tl185891186846%_)) + (let ((_%e185892186849%_ (let () (declare (not safe)) (gx#stx-e - _%tl185732186687%_)))) - (let ((_%tl185735186695%_ + _%tl185891186846%_)))) + (let ((_%tl185894186854%_ (let () (declare (not safe)) - (##cdr _%e185733186690%_))) - (_%hd185734186693%_ + (##cdr _%e185892186849%_))) + (_%hd185893186852%_ (let () (declare (not safe)) - (##car _%e185733186690%_)))) + (##car _%e185892186849%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185734186693%_)) - (let ((_%e185736186698%_ + _%hd185893186852%_)) + (let ((_%e185895186857%_ (let () (declare (not safe)) (gx#stx-e - _%hd185734186693%_)))) - (let ((_%tl185738186703%_ + _%hd185893186852%_)))) + (let ((_%tl185897186862%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185736186698%_))) - (_%hd185737186701%_ - (let () (declare (not safe)) (##car _%e185736186698%_)))) + (##cdr _%e185895186857%_))) + (_%hd185896186860%_ + (let () (declare (not safe)) (##car _%e185895186857%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185737186701%_)) + (gx#identifier? _%hd185896186860%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185737186701%_)) + (gx#stx-eq? '%#ref _%hd185896186860%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185738186703%_)) - (let ((_%e185739186706%_ + (gx#stx-pair? _%tl185897186862%_)) + (let ((_%e185898186865%_ (let () (declare (not safe)) - (gx#stx-e _%tl185738186703%_)))) - (let ((_%tl185741186711%_ + (gx#stx-e _%tl185897186862%_)))) + (let ((_%tl185900186870%_ (let () (declare (not safe)) - (##cdr _%e185739186706%_))) - (_%hd185740186709%_ + (##cdr _%e185898186865%_))) + (_%hd185899186868%_ (let () (declare (not safe)) - (##car _%e185739186706%_)))) + (##car _%e185898186865%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185741186711%_)) + (gx#stx-null? _%tl185900186870%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185735186695%_)) - (let ((_%e185742186714%_ + (gx#stx-pair? _%tl185894186854%_)) + (let ((_%e185901186873%_ (let () (declare (not safe)) (gx#stx-e - _%tl185735186695%_)))) - (let ((_%tl185744186719%_ + _%tl185894186854%_)))) + (let ((_%tl185903186878%_ (let () (declare (not safe)) - (##cdr _%e185742186714%_))) - (_%hd185743186717%_ + (##cdr _%e185901186873%_))) + (_%hd185902186876%_ (let () (declare (not safe)) - (##car _%e185742186714%_)))) + (##car _%e185901186873%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185743186717%_)) - (let ((_%e185745186722%_ + _%hd185902186876%_)) + (let ((_%e185904186881%_ (let () (declare (not safe)) (gx#stx-e - _%hd185743186717%_)))) - (let ((_%tl185747186727%_ + _%hd185902186876%_)))) + (let ((_%tl185906186886%_ (let () (declare (not safe)) - (##cdr _%e185745186722%_))) - (_%hd185746186725%_ + (##cdr _%e185904186881%_))) + (_%hd185905186884%_ (let () (declare (not safe)) - (##car _%e185745186722%_)))) + (##car _%e185904186881%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd185746186725%_)) + (gx#stx-eq? '%#ref _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185748186730%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e185907186889%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185750186735%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl185909186894%_ (let () (declare (not safe)) - (##cdr _%e185748186730%_))) - (_%hd185749186733%_ + (##cdr _%e185907186889%_))) + (_%hd185908186892%_ (let () (declare (not safe)) - (##car _%e185748186730%_)))) + (##car _%e185907186889%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185750186735%_)) + (gx#stx-null? _%tl185909186894%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185744186719%_)) - (_%__kont189736189737%_ - _%hd185749186733%_ - _%hd185740186709%_) + (gx#stx-null? _%tl185903186878%_)) + (_%__kont189895189896%_ + _%hd185908186892%_ + _%hd185899186868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl185903186878%_)) + (let ((_%e185928186562%_ (let () (declare (not safe)) (gx#stx-e - _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + _%tl185903186878%_)))) + (let ((_%tl185930186567%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e185928186562%_))) + (_%hd185929186565%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e185928186562%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185770186406%_)) - (let ((_%e185772186411%_ + _%hd185929186565%_)) + (let ((_%e185931186570%_ (let () (declare (not safe)) (gx#stx-e - _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + _%hd185929186565%_)))) + (let ((_%tl185933186575%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e185931186570%_))) + (_%hd185932186573%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e185931186570%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd185773186414%_)) + (gx#stx-eq? '%#quote _%hd185932186573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185775186419%_ + (gx#stx-pair? _%tl185933186575%_)) + (let ((_%e185934186578%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + (gx#stx-e _%tl185933186575%_)))) + (let ((_%tl185936186583%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e185934186578%_))) + (_%hd185935186581%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e185934186578%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185777186424%_)) + (gx#stx-null? _%tl185936186583%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189897189898%_ + _%hd185935186581%_ + _%hd185902186876%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185773186414%_)) + (gx#stx-eq? '%#quote-syntax _%hd185932186573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185835186213%_ + (gx#stx-pair? _%tl185933186575%_)) + (let ((_%e185994186372%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185837186218%_ + (gx#stx-e _%tl185933186575%_)))) + (let ((_%tl185996186377%_ (let () (declare (not safe)) - (##cdr _%e185835186213%_))) - (_%hd185836186216%_ + (##cdr _%e185994186372%_))) + (_%hd185995186375%_ (let () (declare (not safe)) - (##car _%e185835186213%_)))) + (##car _%e185994186372%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185837186218%_)) + (gx#stx-null? _%tl185996186377%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189742189743%_ - _%hd185836186216%_ - _%hd185749186733%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189901189902%_ + _%hd185995186375%_ + _%hd185908186892%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl185903186878%_)) + (let ((_%e185928186562%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl185903186878%_)))) + (let ((_%tl185930186567%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e185928186562%_))) + (_%hd185929186565%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e185928186562%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185770186406%_)) - (let ((_%e185772186411%_ + _%hd185929186565%_)) + (let ((_%e185931186570%_ (let () (declare (not safe)) (gx#stx-e - _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + _%hd185929186565%_)))) + (let ((_%tl185933186575%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e185931186570%_))) + (_%hd185932186573%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e185931186570%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185775186419%_ + (gx#stx-pair? _%tl185933186575%_)) + (let ((_%e185934186578%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + (gx#stx-e _%tl185933186575%_)))) + (let ((_%tl185936186583%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e185934186578%_))) + (_%hd185935186581%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e185934186578%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185777186424%_)) + (gx#stx-null? _%tl185936186583%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189897189898%_ + _%hd185935186581%_ + _%hd185902186876%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl185903186878%_)) + (let ((_%e185928186562%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl185903186878%_)))) + (let ((_%tl185930186567%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e185928186562%_))) + (_%hd185929186565%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e185928186562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd185929186565%_)) + (let ((_%e185931186570%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd185929186565%_)))) + (let ((_%tl185933186575%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e185931186570%_))) + (_%hd185932186573%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e185931186570%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185774186416%_)) - (let ((_%e185775186419%_ + _%tl185933186575%_)) + (let ((_%e185934186578%_ (let () (declare (not safe)) (gx#stx-e - _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + _%tl185933186575%_)))) + (let ((_%tl185936186583%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ - (let () (declare (not safe)) (##car _%e185775186419%_)))) + (##cdr _%e185934186578%_))) + (_%hd185935186581%_ + (let () (declare (not safe)) (##car _%e185934186578%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185777186424%_)) + (gx#stx-null? _%tl185936186583%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189897189898%_ + _%hd185935186581%_ + _%hd185902186876%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl185903186878%_)) + (let ((_%e185928186562%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl185903186878%_)))) + (let ((_%tl185930186567%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e185928186562%_))) + (_%hd185929186565%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e185928186562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd185929186565%_)) + (let ((_%e185931186570%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd185929186565%_)))) + (let ((_%tl185933186575%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e185931186570%_))) + (_%hd185932186573%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e185931186570%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185773186414%_)) + (gx#identifier? _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185774186416%_)) - (let ((_%e185775186419%_ + _%tl185933186575%_)) + (let ((_%e185934186578%_ (let () (declare (not safe)) (gx#stx-e - _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + _%tl185933186575%_)))) + (let ((_%tl185936186583%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e185934186578%_))) + (_%hd185935186581%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e185934186578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185777186424%_)) + _%tl185936186583%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189897189898%_ + _%hd185935186581%_ + _%hd185902186876%_ + _%hd185899186868%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185746186725%_)) + (gx#stx-eq? '%#quote _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) + (##car _%e185958186474%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185746186725%_)) + (gx#stx-eq? '%#quote-syntax _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (##car _%e186018186232%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185746186725%_)) + (gx#stx-eq? '%#quote _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e185958186474%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185801186320%_)) + (gx#stx-null? _%tl185960186479%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189899189900%_ + _%hd185929186565%_ + _%hd185959186477%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185746186725%_)) + (gx#stx-eq? '%#quote-syntax _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))))) + (##car _%e186018186232%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185799186315%_ + _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e185958186474%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185801186320%_)) + (gx#stx-null? _%tl185960186479%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189899189900%_ + _%hd185929186565%_ + _%hd185959186477%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (##car _%e186018186232%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185799186315%_ + _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ - (let () (declare (not safe)) (##car _%e185799186315%_)))) + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ + (let () (declare (not safe)) (##car _%e185958186474%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185801186320%_)) + (gx#stx-null? _%tl185960186479%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189899189900%_ + _%hd185929186565%_ + _%hd185959186477%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185859186073%_ + _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) + (##car _%e186018186232%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185861186078%_)) + (gx#stx-null? _%tl186020186237%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185773186414%_)) + (gx#stx-eq? '%#ref _%hd185932186573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185868186097%_ + (gx#stx-pair? _%tl185933186575%_)) + (let ((_%e186027186256%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185870186102%_ + (gx#stx-e _%tl185933186575%_)))) + (let ((_%tl186029186261%_ (let () (declare (not safe)) - (##cdr _%e185868186097%_))) - (_%hd185869186100%_ + (##cdr _%e186027186256%_))) + (_%hd186028186259%_ (let () (declare (not safe)) - (##car _%e185868186097%_)))) + (##car _%e186027186256%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185870186102%_)) + (gx#stx-null? _%tl186029186261%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189744189745%_ - _%hd185869186100%_ - _%hd185860186076%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + _%tl185930186567%_)) + (_%__kont189903189904%_ + _%hd186028186259%_ + _%hd186019186235%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) + (_%__kont189907189908%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185799186315%_ + _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e185958186474%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185801186320%_)) + _%tl185960186479%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl185930186567%_)) + (_%__kont189899189900%_ + _%hd185929186565%_ + _%hd185959186477%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185859186073%_ + _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ - (let () (declare (not safe)) (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ + (let () (declare (not safe)) (##car _%e186018186232%_)))) + (_%__kont189907189908%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e185958186474%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185801186320%_)) + _%tl185960186479%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + _%tl185930186567%_)) + (_%__kont189899189900%_ + _%hd185929186565%_ + _%hd185959186477%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185859186073%_ + _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))))) + (##car _%e186018186232%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185746186725%_)) + (gx#stx-eq? '%#quote _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e185958186474%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl185960186479%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e185958186474%_))) + (_%hd185959186477%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) + (##car _%e185958186474%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd185905186884%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl185906186886%_)) + (let ((_%e186018186232%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl185906186886%_)))) + (let ((_%tl186020186237%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e186018186232%_))) + (_%hd186019186235%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_))))) + (##car _%e186018186232%_)))) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl185903186878%_)) + (let ((_%e185928186562%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl185903186878%_)))) + (let ((_%tl185930186567%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e185928186562%_))) + (_%hd185929186565%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e185928186562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd185929186565%_)) + (let ((_%e185931186570%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd185929186565%_)))) + (let ((_%tl185933186575%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e185931186570%_))) + (_%hd185932186573%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e185931186570%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185773186414%_)) + (gx#identifier? _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd185932186573%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185774186416%_)) - (let ((_%e185775186419%_ + _%tl185933186575%_)) + (let ((_%e185934186578%_ (let () (declare (not safe)) (gx#stx-e - _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + _%tl185933186575%_)))) + (let ((_%tl185936186583%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e185934186578%_))) + (_%hd185935186581%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e185934186578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185777186424%_)) + _%tl185936186583%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))))) + _%tl185930186567%_)) + (_%__kont189897189898%_ + _%hd185935186581%_ + _%hd185902186876%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185744186719%_)) - (let ((_%e185769186403%_ + _%tl185903186878%_)) + (let ((_%e185928186562%_ (let () (declare (not safe)) (gx#stx-e - _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + _%tl185903186878%_)))) + (let ((_%tl185930186567%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ - (let () (declare (not safe)) (##car _%e185769186403%_)))) + (##cdr _%e185928186562%_))) + (_%hd185929186565%_ + (let () (declare (not safe)) (##car _%e185928186562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd185929186565%_)) + (let ((_%e185931186570%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd185929186565%_)))) + (let ((_%tl185933186575%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e185931186570%_))) + (_%hd185932186573%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e185931186570%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185773186414%_)) + (gx#identifier? _%hd185932186573%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185773186414%_)) + (gx#stx-eq? '%#quote _%hd185932186573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185775186419%_ + (gx#stx-pair? _%tl185933186575%_)) + (let ((_%e185934186578%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + (gx#stx-e _%tl185933186575%_)))) + (let ((_%tl185936186583%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e185934186578%_))) + (_%hd185935186581%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e185934186578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185777186424%_)) + _%tl185936186583%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) + _%tl185930186567%_)) + (_%__kont189897189898%_ + _%hd185935186581%_ + _%hd185902186876%_ + _%hd185899186868%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_))))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (_%__kont189907189908%_))))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185737186701%_)) + (gx#stx-eq? '%#lambda _%hd185896186860%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185738186703%_)) - (let ((_%e185883185941%_ + (gx#stx-pair? _%tl185897186862%_)) + (let ((_%e186042186100%_ (let () (declare (not safe)) - (gx#stx-e _%tl185738186703%_)))) - (let ((_%tl185885185946%_ + (gx#stx-e _%tl185897186862%_)))) + (let ((_%tl186044186105%_ (let () (declare (not safe)) - (##cdr _%e185883185941%_))) - (_%hd185884185944%_ + (##cdr _%e186042186100%_))) + (_%hd186043186103%_ (let () (declare (not safe)) - (##car _%e185883185941%_)))) + (##car _%e186042186100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185884185944%_)) - (let ((_%e185886185949%_ + (gx#stx-pair? _%hd186043186103%_)) + (let ((_%e186045186108%_ (let () (declare (not safe)) (gx#stx-e - _%hd185884185944%_)))) - (let ((_%tl185888185954%_ + _%hd186043186103%_)))) + (let ((_%tl186047186113%_ (let () (declare (not safe)) - (##cdr _%e185886185949%_))) - (_%hd185887185952%_ + (##cdr _%e186045186108%_))) + (_%hd186046186111%_ (let () (declare (not safe)) - (##car _%e185886185949%_)))) + (##car _%e186045186108%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185888185954%_)) + _%tl186047186113%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185885185946%_)) - (let ((_%e185889185957%_ + _%tl186044186105%_)) + (let ((_%e186048186116%_ (let () (declare (not safe)) (gx#stx-e - _%tl185885185946%_)))) - (let ((_%tl185891185962%_ + _%tl186044186105%_)))) + (let ((_%tl186050186121%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185889185957%_))) - (_%hd185890185960%_ - (let () (declare (not safe)) (##car _%e185889185957%_)))) + (##cdr _%e186048186116%_))) + (_%hd186049186119%_ + (let () (declare (not safe)) (##car _%e186048186116%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185891185962%_)) + (gx#stx-null? _%tl186050186121%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185735186695%_)) - (let ((_%e185892185965%_ + (gx#stx-pair? _%tl185894186854%_)) + (let ((_%e186051186124%_ (let () (declare (not safe)) - (gx#stx-e _%tl185735186695%_)))) - (let ((_%tl185894185970%_ + (gx#stx-e _%tl185894186854%_)))) + (let ((_%tl186053186129%_ (let () (declare (not safe)) - (##cdr _%e185892185965%_))) - (_%hd185893185968%_ + (##cdr _%e186051186124%_))) + (_%hd186052186127%_ (let () (declare (not safe)) - (##car _%e185892185965%_)))) + (##car _%e186051186124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185893185968%_)) - (let ((_%e185895185973%_ + (gx#stx-pair? _%hd186052186127%_)) + (let ((_%e186054186132%_ (let () (declare (not safe)) - (gx#stx-e _%hd185893185968%_)))) - (let ((_%tl185897185978%_ + (gx#stx-e _%hd186052186127%_)))) + (let ((_%tl186056186137%_ (let () (declare (not safe)) - (##cdr _%e185895185973%_))) - (_%hd185896185976%_ + (##cdr _%e186054186132%_))) + (_%hd186055186135%_ (let () (declare (not safe)) - (##car _%e185895185973%_)))) + (##car _%e186054186132%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185896185976%_)) + (gx#identifier? _%hd186055186135%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185896185976%_)) + _%hd186055186135%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185897185978%_)) - (let ((_%e185898185981%_ + _%tl186056186137%_)) + (let ((_%e186057186140%_ (let () (declare (not safe)) (gx#stx-e - _%tl185897185978%_)))) - (let ((_%tl185900185986%_ + _%tl186056186137%_)))) + (let ((_%tl186059186145%_ (let () (declare (not safe)) - (##cdr _%e185898185981%_))) - (_%hd185899185984%_ + (##cdr _%e186057186140%_))) + (_%hd186058186143%_ (let () (declare (not safe)) - (##car _%e185898185981%_)))) + (##car _%e186057186140%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185900185986%_)) + _%tl186059186145%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185894185970%_)) - (_%__kont189746189747%_ - _%hd185899185984%_ - _%hd185890185960%_ - _%hd185887185952%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl186053186129%_)) + (_%__kont189905189906%_ + _%hd186058186143%_ + _%hd186049186119%_ + _%hd186046186111%_) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_))) + (_%__kont189907189908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))))) - (_%countf-symbol181770%_ - (lambda (_%id185708%_) - (let ((_%$e185710%_ + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)) + (_%__kont189907189908%_)))) + (_%__kont189907189908%_)))))) + (_%countf-symbol181929%_ + (lambda (_%id185867%_) + (let ((_%$e185869%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id185708%_)))) - (if (or (eq? '##vector-length _%$e185710%_) - (eq? 'vector-length _%$e185710%_)) + (gxc#identifier-symbol _%id185867%_)))) + (if (or (eq? '##vector-length _%$e185869%_) + (eq? 'vector-length _%$e185869%_)) 'vector-length - (if (eq? 'values-count _%$e185710%_) + (if (eq? 'values-count _%$e185869%_) 'values-count '#f))))) - (_%eqf-symbol181771%_ - (lambda (_%sym185694%_) - (let ((_%$e185696%_ _%sym185694%_)) - (if (or (eq? '##eq? _%$e185696%_) - (eq? 'eq? _%$e185696%_)) + (_%eqf-symbol181930%_ + (lambda (_%sym185853%_) + (let ((_%$e185855%_ _%sym185853%_)) + (if (or (eq? '##eq? _%$e185855%_) + (eq? 'eq? _%$e185855%_)) 'eq? - (if (or (eq? '##eqv? _%$e185696%_) - (eq? 'eqv? _%$e185696%_)) + (if (or (eq? '##eqv? _%$e185855%_) + (eq? 'eqv? _%$e185855%_)) 'eqv? - (if (or (eq? '##equal? _%$e185696%_) - (eq? 'equal? _%$e185696%_)) + (if (or (eq? '##equal? _%$e185855%_) + (eq? 'equal? _%$e185855%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e185696%_) + (if (eq? 'gx#free-identifier=? _%$e185855%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e185696%_) + (if (eq? 'gx#stx-eq? _%$e185855%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?181772%_ - (lambda (_%sym185677%_) - (let ((_%$e185679%_ _%sym185677%_)) - (if (or (eq? 'eq? _%$e185679%_) - (eq? 'eqv? _%$e185679%_) - (eq? 'equal? _%$e185679%_) - (eq? 'free-identifier=? _%$e185679%_) - (eq? 'stx-eq? _%$e185679%_)) + (_%eqf-symbol?181931%_ + (lambda (_%sym185836%_) + (let ((_%$e185838%_ _%sym185836%_)) + (if (or (eq? 'eq? _%$e185838%_) + (eq? 'eqv? _%$e185838%_) + (eq? 'equal? _%$e185838%_) + (eq? 'free-identifier=? _%$e185838%_) + (eq? 'stx-eq? _%$e185838%_)) '#t '#f)))) - (_%do-assert!181773%_ - (lambda (_%assert185668%_ _%type185669%_ _%K185670%_) - (let ((_%unwind-assert185672%_ _%env-assert181763%_) - (_%unwind-type185673%_ _%env-type181764%_)) - (set! _%env-assert181763%_ _%assert185668%_) - (set! _%env-type181764%_ _%type185669%_) - (let ((_%val185675%_ (_%K185670%_))) - (set! _%env-assert181763%_ _%unwind-assert185672%_) - (set! _%env-type181764%_ _%unwind-type185673%_) - _%val185675%_)))) - (_%do-bind181774%_ - (lambda (_%bind185665%_ _%K185666%_) - (if (pair? _%bind185665%_) - (_%do-bind!181776%_ - (_%fold-bind-env181775%_ - _%bind185665%_ - _%env-bind181765%_) - _%K185666%_) - (_%K185666%_)))) - (_%fold-bind-env181775%_ - (lambda (_%bind185594%_ _%env185595%_) - (let _%lp185597%_ ((_%rest185599%_ _%bind185594%_) - (_%env185600%_ _%env185595%_)) - (let* ((_%rest185601185609%_ _%rest185599%_) - (_%else185603185617%_ (lambda () _%env185600%_)) - (_%K185605185653%_ - (lambda (_%rest185620%_ _%bind185621%_) - (let* ((_%bind185622185629%_ _%bind185621%_) - (_%E185624185633%_ + (_%do-assert!181932%_ + (lambda (_%assert185827%_ _%type185828%_ _%K185829%_) + (let ((_%unwind-assert185831%_ _%env-assert181922%_) + (_%unwind-type185832%_ _%env-type181923%_)) + (set! _%env-assert181922%_ _%assert185827%_) + (set! _%env-type181923%_ _%type185828%_) + (let ((_%val185834%_ (_%K185829%_))) + (set! _%env-assert181922%_ _%unwind-assert185831%_) + (set! _%env-type181923%_ _%unwind-type185832%_) + _%val185834%_)))) + (_%do-bind181933%_ + (lambda (_%bind185824%_ _%K185825%_) + (if (pair? _%bind185824%_) + (_%do-bind!181935%_ + (_%fold-bind-env181934%_ + _%bind185824%_ + _%env-bind181924%_) + _%K185825%_) + (_%K185825%_)))) + (_%fold-bind-env181934%_ + (lambda (_%bind185753%_ _%env185754%_) + (let _%lp185756%_ ((_%rest185758%_ _%bind185753%_) + (_%env185759%_ _%env185754%_)) + (let* ((_%rest185760185768%_ _%rest185758%_) + (_%else185762185776%_ (lambda () _%env185759%_)) + (_%K185764185812%_ + (lambda (_%rest185779%_ _%bind185780%_) + (let* ((_%bind185781185788%_ _%bind185780%_) + (_%E185783185792%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind185622185629%_ + _%bind185781185788%_ '([id . expr]))) '#!void)) - (_%K185625185641%_ - (lambda (_%expr185636%_ _%id185637%_) - (let ((_%sexpr185639%_ + (_%K185784185800%_ + (lambda (_%expr185795%_ _%id185796%_) + (let ((_%sexpr185798%_ (gxc#apply-generate-runtime-repr - _%expr185636%_))) - (_%lp185597%_ - _%rest185620%_ - (cons (cons _%sexpr185639%_ - _%id185637%_) - _%env185600%_)))))) - (if (pair? _%bind185622185629%_) - (let ((_%hd185626185644%_ + _%expr185795%_))) + (_%lp185756%_ + _%rest185779%_ + (cons (cons _%sexpr185798%_ + _%id185796%_) + _%env185759%_)))))) + (if (pair? _%bind185781185788%_) + (let ((_%hd185785185803%_ (let () (declare (not safe)) - (##car _%bind185622185629%_))) - (_%tl185627185646%_ + (##car _%bind185781185788%_))) + (_%tl185786185805%_ (let () (declare (not safe)) - (##cdr _%bind185622185629%_)))) - (let* ((_%id185649%_ - _%hd185626185644%_) - (_%expr185651%_ - _%tl185627185646%_)) - (_%K185625185641%_ - _%expr185651%_ - _%id185649%_))) - (_%E185624185633%_)))))) - (if (pair? _%rest185601185609%_) - (let ((_%hd185606185656%_ + (##cdr _%bind185781185788%_)))) + (let* ((_%id185808%_ + _%hd185785185803%_) + (_%expr185810%_ + _%tl185786185805%_)) + (_%K185784185800%_ + _%expr185810%_ + _%id185808%_))) + (_%E185783185792%_)))))) + (if (pair? _%rest185760185768%_) + (let ((_%hd185765185815%_ (let () (declare (not safe)) - (##car _%rest185601185609%_))) - (_%tl185607185658%_ + (##car _%rest185760185768%_))) + (_%tl185766185817%_ (let () (declare (not safe)) - (##cdr _%rest185601185609%_)))) - (let* ((_%bind185661%_ _%hd185606185656%_) - (_%rest185663%_ _%tl185607185658%_)) - (_%K185605185653%_ - _%rest185663%_ - _%bind185661%_))) - (_%else185603185617%_)))))) - (_%do-bind!181776%_ - (lambda (_%env185587%_ _%K185588%_) - (let ((_%unwind185590%_ _%env-bind181765%_)) - (set! _%env-bind181765%_ _%env185587%_) - (let ((_%val185592%_ (_%K185588%_))) - (set! _%env-bind181765%_ _%unwind185590%_) - _%val185592%_)))) - (_%do-splice!181777%_ - (lambda (_%K185581%_) - (let ((_%unwind185583%_ _%in-splice?181766%_)) - (set! _%in-splice?181766%_ '#t) - (let ((_%val185585%_ (_%K185581%_))) - (set! _%in-splice?181766%_ _%unwind185583%_) - _%val185585%_)))) - (_%optimize-e181778%_ - (lambda (_%expr184777%_) - (let* ((_%__stx190186190187%_ _%expr184777%_) - (_%g184784184957%_ + (##cdr _%rest185760185768%_)))) + (let* ((_%bind185820%_ _%hd185765185815%_) + (_%rest185822%_ _%tl185766185817%_)) + (_%K185764185812%_ + _%rest185822%_ + _%bind185820%_))) + (_%else185762185776%_)))))) + (_%do-bind!181935%_ + (lambda (_%env185746%_ _%K185747%_) + (let ((_%unwind185749%_ _%env-bind181924%_)) + (set! _%env-bind181924%_ _%env185746%_) + (let ((_%val185751%_ (_%K185747%_))) + (set! _%env-bind181924%_ _%unwind185749%_) + _%val185751%_)))) + (_%do-splice!181936%_ + (lambda (_%K185740%_) + (let ((_%unwind185742%_ _%in-splice?181925%_)) + (set! _%in-splice?181925%_ '#t) + (let ((_%val185744%_ (_%K185740%_))) + (set! _%in-splice?181925%_ _%unwind185742%_) + _%val185744%_)))) + (_%optimize-e181937%_ + (lambda (_%expr184936%_) + (let* ((_%__stx190345190346%_ _%expr184936%_) + (_%g184943185116%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190186190187%_))))) - (let ((_%__kont190188190189%_ - (lambda (_%L185553%_ _%L185554%_ _%L185555%_) - (let ((_%$e185572%_ - (_%assert-e181781%_ _%L185555%_))) - (if (eq? '#t _%$e185572%_) - (_%optimize-e181778%_ _%L185554%_) - (if (eq? '#f _%$e185572%_) - (_%optimize-e181778%_ _%L185553%_) - (let ((_%K185575%_ - (_%optimize-t__0__189133189134%_ - _%L185554%_ - _%L185555%_)) - (_%E185576%_ - (_%optimize-f__189135189136%_ - _%L185553%_ - _%L185555%_))) + _%__stx190345190346%_))))) + (let ((_%__kont190347190348%_ + (lambda (_%L185712%_ _%L185713%_ _%L185714%_) + (let ((_%$e185731%_ + (_%assert-e181940%_ _%L185714%_))) + (if (eq? '#t _%$e185731%_) + (_%optimize-e181937%_ _%L185713%_) + (if (eq? '#f _%$e185731%_) + (_%optimize-e181937%_ _%L185712%_) + (let ((_%K185734%_ + (_%optimize-t__0__189292189293%_ + _%L185713%_ + _%L185714%_)) + (_%E185735%_ + (_%optimize-f__189294189295%_ + _%L185712%_ + _%L185714%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K185575%_) + _%K185734%_) (gxc#apply-generate-runtime-repr - _%E185576%_)) - _%K185575%_ + _%E185735%_)) + _%K185734%_ (cons '%#if - (cons _%L185555%_ - (cons _%K185575%_ + (cons _%L185714%_ + (cons _%K185734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E185576%_ '()))))))))))) + (cons _%E185735%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190190190191%_ - (lambda (_%L185482%_ _%L185483%_) - (let ((_%$e185503%_ - (_%lookup-block181786%_ _%L185483%_))) - (if _%$e185503%_ - ((lambda (_%block185506%_) - (if (_%nonlinear-block?181788%_ - _%block185506%_) - _%expr184777%_ - (_%optimize-e181778%_ - (_%inline-block181787%_ - _%block185506%_ - (let ((__tmp192281 - (lambda (_%g185507185510%_ - _%g185508185512%_) - (cons _%g185507185510%_ - _%g185508185512%_)))) + (_%__kont190349190350%_ + (lambda (_%L185641%_ _%L185642%_) + (let ((_%$e185662%_ + (_%lookup-block181945%_ _%L185642%_))) + (if _%$e185662%_ + ((lambda (_%block185665%_) + (if (_%nonlinear-block?181947%_ + _%block185665%_) + _%expr184936%_ + (_%optimize-e181937%_ + (_%inline-block181946%_ + _%block185665%_ + (let ((__tmp192440 + (lambda (_%g185666185669%_ + _%g185667185671%_) + (cons _%g185666185669%_ + _%g185667185671%_)))) (declare (not safe)) (__foldr1 - __tmp192281 + __tmp192440 '() - _%L185482%_)))))) - _%$e185503%_) - _%expr184777%_)))) - (_%__kont190194190195%_ - (lambda (_%L185372%_ _%L185373%_ _%L185374%_) - (let ((_%body185393%_ - (_%optimize-e181778%_ _%L185372%_))) + _%L185641%_)))))) + _%$e185662%_) + _%expr184936%_)))) + (_%__kont190353190354%_ + (lambda (_%L185531%_ _%L185532%_ _%L185533%_) + (let ((_%body185552%_ + (_%optimize-e181937%_ _%L185531%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L185373%_ - _%L185374%_)) - (let ((__tmp192282 - (lambda (_%g185394185398%_ - _%g185395185400%_ - _%g185396185402%_) - (cons (cons (cons _%g185395185400%_ + _%L185532%_ + _%L185533%_)) + (let ((__tmp192441 + (lambda (_%g185553185557%_ + _%g185554185559%_ + _%g185555185561%_) + (cons (cons (cons _%g185554185559%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g185394185398%_ '())) + (cons _%g185553185557%_ '())) '())) - _%g185396185402%_)))) + _%g185555185561%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192282 + __tmp192441 '() - _%L185373%_ - _%L185374%_))) - (cons _%body185393%_ '())))))) - (_%__kont190198190199%_ - (lambda (_%L185240%_ _%L185241%_ _%L185242%_) - (_%bind-e__0__189141189142%_ + _%L185532%_ + _%L185533%_))) + (cons _%body185552%_ '())))))) + (_%__kont190357190358%_ + (lambda (_%L185399%_ _%L185400%_ _%L185401%_) + (_%bind-e__0__189300189301%_ (map cons - (let ((__tmp192283 - (lambda (_%g185260185263%_ - _%g185261185265%_) - (cons _%g185260185263%_ - _%g185261185265%_)))) + (let ((__tmp192442 + (lambda (_%g185419185422%_ + _%g185420185424%_) + (cons _%g185419185422%_ + _%g185420185424%_)))) (declare (not safe)) - (__foldr1 __tmp192283 '() _%L185242%_)) - (let ((__tmp192284 - (lambda (_%g185267185270%_ - _%g185268185272%_) - (cons _%g185267185270%_ - _%g185268185272%_)))) + (__foldr1 __tmp192442 '() _%L185401%_)) + (let ((__tmp192443 + (lambda (_%g185426185429%_ + _%g185427185431%_) + (cons _%g185426185429%_ + _%g185427185431%_)))) (declare (not safe)) (__foldr1 - __tmp192284 + __tmp192443 '() - _%L185241%_))) - _%L185240%_))) - (_%__kont190202190203%_ - (lambda (_%L185097%_ - _%L185098%_ - _%L185099%_ - _%L185100%_ - _%L185101%_) - (_%do-splice!181777%_ + _%L185400%_))) + _%L185399%_))) + (_%__kont190361190362%_ + (lambda (_%L185256%_ + _%L185257%_ + _%L185258%_ + _%L185259%_ + _%L185260%_) + (_%do-splice!181936%_ (lambda () - (let ((_%expr185143%_ - (_%optimize-e181778%_ _%L185099%_))) + (let ((_%expr185302%_ + (_%optimize-e181937%_ _%L185258%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L185101%_ + (cons (cons (cons (cons _%L185260%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192285 - (lambda (_%g185144185147%_ - _%g185145185149%_) - (cons _%g185144185147%_ - _%g185145185149%_)))) + (cons (let ((__tmp192444 + (lambda (_%g185303185306%_ + _%g185304185308%_) + (cons _%g185303185306%_ + _%g185304185308%_)))) (declare (not safe)) (__foldr1 - __tmp192285 + __tmp192444 '() - _%L185100%_)) - (cons _%expr185143%_ '()))) + _%L185259%_)) + (cons _%expr185302%_ '()))) '())) - (let ((__tmp192286 - (lambda (_%g185151185154%_ _%g185152185156%_) - (cons _%g185151185154%_ _%g185152185156%_)))) + (let ((__tmp192445 + (lambda (_%g185310185313%_ _%g185311185315%_) + (cons _%g185310185313%_ _%g185311185315%_)))) (declare (not safe)) - (__foldr1 __tmp192286 '() _%L185098%_))) + (__foldr1 __tmp192445 '() _%L185257%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L185097%_ '())))))))) - (_%__kont190208190209%_ - (lambda () _%expr184777%_))) - (let* ((_%__match190395190396%_ - (lambda (_%e184905184969%_ - _%hd184906184972%_ - _%tl184907184974%_ - _%e184908184977%_ - _%hd184909184980%_ - _%tl184910184982%_ - _%e184911184985%_ - _%hd184912184988%_ - _%tl184913184990%_ - _%e184914184993%_ - _%hd184915184996%_ - _%tl184916184998%_ - _%e184917185001%_ - _%hd184918185004%_ - _%tl184919185006%_ - _%e184920185009%_ - _%hd184921185012%_ - _%tl184922185014%_ - _%e184923185017%_ - _%hd184924185020%_ - _%tl184925185022%_ - _%e184926185025%_ - _%hd184927185028%_ - _%tl184928185030%_ - _%__splice190204190205%_ - _%target184929185033%_ - _%tl184931185035%_) - (letrec ((_%loop184932185038%_ - (lambda (_%hd184930185041%_ - _%id184936185043%_) + (cons _%L185256%_ '())))))))) + (_%__kont190367190368%_ + (lambda () _%expr184936%_))) + (let* ((_%__match190554190555%_ + (lambda (_%e185064185128%_ + _%hd185065185131%_ + _%tl185066185133%_ + _%e185067185136%_ + _%hd185068185139%_ + _%tl185069185141%_ + _%e185070185144%_ + _%hd185071185147%_ + _%tl185072185149%_ + _%e185073185152%_ + _%hd185074185155%_ + _%tl185075185157%_ + _%e185076185160%_ + _%hd185077185163%_ + _%tl185078185165%_ + _%e185079185168%_ + _%hd185080185171%_ + _%tl185081185173%_ + _%e185082185176%_ + _%hd185083185179%_ + _%tl185084185181%_ + _%e185085185184%_ + _%hd185086185187%_ + _%tl185087185189%_ + _%__splice190363190364%_ + _%target185088185192%_ + _%tl185090185194%_) + (letrec ((_%loop185091185197%_ + (lambda (_%hd185089185200%_ + _%id185095185202%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184930185041%_)) - (let ((_%e184933185046%_ + _%hd185089185200%_)) + (let ((_%e185092185205%_ (let () (declare (not safe)) (gx#stx-e - _%hd184930185041%_)))) - (let ((_%lp-tl184935185051%_ + _%hd185089185200%_)))) + (let ((_%lp-tl185094185210%_ (let () (declare (not safe)) - (##cdr _%e184933185046%_))) - (_%lp-hd184934185049%_ + (##cdr _%e185092185205%_))) + (_%lp-hd185093185208%_ (let () (declare (not safe)) - (##car _%e184933185046%_)))) - (_%loop184932185038%_ - _%lp-tl184935185051%_ - (cons _%lp-hd184934185049%_ - _%id184936185043%_)))) - (let ((_%id184937185054%_ - (reverse _%id184936185043%_))) + (##car _%e185092185205%_)))) + (_%loop185091185197%_ + _%lp-tl185094185210%_ + (cons _%lp-hd185093185208%_ + _%id185095185202%_)))) + (let ((_%id185096185213%_ + (reverse _%id185095185202%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184928185030%_)) - (let ((_%e184938185057%_ + _%tl185087185189%_)) + (let ((_%e185097185216%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184928185030%_)))) - (let ((_%tl184940185062%_ + (gx#stx-e _%tl185087185189%_)))) + (let ((_%tl185099185221%_ (let () (declare (not safe)) - (##cdr _%e184938185057%_))) - (_%hd184939185060%_ + (##cdr _%e185097185216%_))) + (_%hd185098185219%_ (let () (declare (not safe)) - (##car _%e184938185057%_)))) + (##car _%e185097185216%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184940185062%_)) + (gx#stx-null? _%tl185099185221%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184922185014%_)) + (gx#stx-null? _%tl185081185173%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184913184990%_)) - (let ((_%__splice190206190207%_ + (gx#stx-pair/null? _%tl185072185149%_)) + (let ((_%__splice190365190366%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184913184990%_ + _%tl185072185149%_ '0)))) - (let ((_%tl184943185067%_ + (let ((_%tl185102185226%_ (let () (declare (not safe)) (##vector-ref - _%__splice190206190207%_ + _%__splice190365190366%_ '1))) - (_%target184941185065%_ + (_%target185100185224%_ (let () (declare (not safe)) (##vector-ref - _%__splice190206190207%_ + _%__splice190365190366%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184943185067%_)) - (letrec ((_%loop184944185070%_ - (lambda (_%hd184942185073%_ - _%bind184948185075%_) + (gx#stx-null? _%tl185102185226%_)) + (letrec ((_%loop185103185229%_ + (lambda (_%hd185101185232%_ + _%bind185107185234%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184942185073%_)) - (let ((_%e184945185078%_ + _%hd185101185232%_)) + (let ((_%e185104185237%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd184942185073%_)))) - (let ((_%lp-tl184947185083%_ + (gx#stx-e _%hd185101185232%_)))) + (let ((_%lp-tl185106185242%_ (let () (declare (not safe)) - (##cdr _%e184945185078%_))) - (_%lp-hd184946185081%_ + (##cdr _%e185104185237%_))) + (_%lp-hd185105185240%_ (let () (declare (not safe)) - (##car _%e184945185078%_)))) - (_%loop184944185070%_ - _%lp-tl184947185083%_ - (cons _%lp-hd184946185081%_ _%bind184948185075%_)))) - (let ((_%bind184949185086%_ (reverse _%bind184948185075%_))) + (##car _%e185104185237%_)))) + (_%loop185103185229%_ + _%lp-tl185106185242%_ + (cons _%lp-hd185105185240%_ _%bind185107185234%_)))) + (let ((_%bind185108185245%_ (reverse _%bind185107185234%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184910184982%_)) - (let ((_%e184950185089%_ + (gx#stx-pair? _%tl185069185141%_)) + (let ((_%e185109185248%_ (let () (declare (not safe)) - (gx#stx-e _%tl184910184982%_)))) - (let ((_%tl184952185094%_ + (gx#stx-e _%tl185069185141%_)))) + (let ((_%tl185111185253%_ (let () (declare (not safe)) - (##cdr _%e184950185089%_))) - (_%hd184951185092%_ + (##cdr _%e185109185248%_))) + (_%hd185110185251%_ (let () (declare (not safe)) - (##car _%e184950185089%_)))) + (##car _%e185109185248%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184952185094%_)) - (_%__kont190202190203%_ - _%hd184951185092%_ - _%bind184949185086%_ - _%hd184939185060%_ - _%id184937185054%_ - _%hd184918185004%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) + (gx#stx-null? _%tl185111185253%_)) + (_%__kont190361190362%_ + _%hd185110185251%_ + _%bind185108185245%_ + _%hd185098185219%_ + _%id185096185213%_ + _%hd185077185163%_) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184944185070%_ - _%target184941185065%_ + (_%loop185103185229%_ + _%target185100185224%_ '())) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184932185038%_ - _%target184929185033%_ + (_%loop185091185197%_ + _%target185088185192%_ '())))) - (_%__match190329190330%_ - (lambda (_%e184871185164%_ - _%hd184872185167%_ - _%tl184873185169%_ - _%e184874185172%_ - _%hd184875185175%_ - _%tl184876185177%_ - _%__splice190200190201%_ - _%target184877185180%_ - _%tl184879185182%_) - (letrec ((_%loop184880185185%_ - (lambda (_%hd184878185188%_ - _%expr184884185190%_ - _%id184885185192%_) + (_%__match190488190489%_ + (lambda (_%e185030185323%_ + _%hd185031185326%_ + _%tl185032185328%_ + _%e185033185331%_ + _%hd185034185334%_ + _%tl185035185336%_ + _%__splice190359190360%_ + _%target185036185339%_ + _%tl185038185341%_) + (letrec ((_%loop185039185344%_ + (lambda (_%hd185037185347%_ + _%expr185043185349%_ + _%id185044185351%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184878185188%_)) - (let ((_%e184881185195%_ + _%hd185037185347%_)) + (let ((_%e185040185354%_ (let () (declare (not safe)) (gx#stx-e - _%hd184878185188%_)))) - (let ((_%lp-tl184883185200%_ + _%hd185037185347%_)))) + (let ((_%lp-tl185042185359%_ (let () (declare (not safe)) - (##cdr _%e184881185195%_))) - (_%lp-hd184882185198%_ + (##cdr _%e185040185354%_))) + (_%lp-hd185041185357%_ (let () (declare (not safe)) - (##car _%e184881185195%_)))) + (##car _%e185040185354%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184882185198%_)) - (let ((_%e184891185203%_ + _%lp-hd185041185357%_)) + (let ((_%e185050185362%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184882185198%_)))) - (let ((_%tl184893185208%_ + (gx#stx-e _%lp-hd185041185357%_)))) + (let ((_%tl185052185367%_ (let () (declare (not safe)) - (##cdr _%e184891185203%_))) - (_%hd184892185206%_ + (##cdr _%e185050185362%_))) + (_%hd185051185365%_ (let () (declare (not safe)) - (##car _%e184891185203%_)))) + (##car _%e185050185362%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184892185206%_)) - (let ((_%e184894185211%_ + (gx#stx-pair? _%hd185051185365%_)) + (let ((_%e185053185370%_ (let () (declare (not safe)) - (gx#stx-e _%hd184892185206%_)))) - (let ((_%tl184896185216%_ + (gx#stx-e _%hd185051185365%_)))) + (let ((_%tl185055185375%_ (let () (declare (not safe)) - (##cdr _%e184894185211%_))) - (_%hd184895185214%_ + (##cdr _%e185053185370%_))) + (_%hd185054185373%_ (let () (declare (not safe)) - (##car _%e184894185211%_)))) + (##car _%e185053185370%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184896185216%_)) + (gx#stx-null? _%tl185055185375%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184893185208%_)) - (let ((_%e184897185219%_ + (gx#stx-pair? _%tl185052185367%_)) + (let ((_%e185056185378%_ (let () (declare (not safe)) (gx#stx-e - _%tl184893185208%_)))) - (let ((_%tl184899185224%_ + _%tl185052185367%_)))) + (let ((_%tl185058185383%_ (let () (declare (not safe)) - (##cdr _%e184897185219%_))) - (_%hd184898185222%_ + (##cdr _%e185056185378%_))) + (_%hd185057185381%_ (let () (declare (not safe)) - (##car _%e184897185219%_)))) + (##car _%e185056185378%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184899185224%_)) - (_%loop184880185185%_ - _%lp-tl184883185200%_ - (cons _%hd184898185222%_ - _%expr184884185190%_) - (cons _%hd184895185214%_ - _%id184885185192%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + _%tl185058185383%_)) + (_%loop185039185344%_ + _%lp-tl185042185359%_ + (cons _%hd185057185381%_ + _%expr185043185349%_) + (cons _%hd185054185373%_ + _%id185044185351%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184887185229%_ - (reverse _%id184885185192%_)) - (_%expr184886185227%_ - (reverse _%expr184884185190%_))) + (let ((_%id185046185388%_ + (reverse _%id185044185351%_)) + (_%expr185045185386%_ + (reverse _%expr185043185349%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184876185177%_)) - (let ((_%e184888185232%_ + _%tl185035185336%_)) + (let ((_%e185047185391%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184876185177%_)))) - (let ((_%tl184890185237%_ + (gx#stx-e _%tl185035185336%_)))) + (let ((_%tl185049185396%_ (let () (declare (not safe)) - (##cdr _%e184888185232%_))) - (_%hd184889185235%_ + (##cdr _%e185047185391%_))) + (_%hd185048185394%_ (let () (declare (not safe)) - (##car _%e184888185232%_)))) + (##car _%e185047185391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184890185237%_)) - (_%__kont190198190199%_ - _%hd184889185235%_ - _%expr184886185227%_ - _%id184887185229%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) + (gx#stx-null? _%tl185049185396%_)) + (_%__kont190357190358%_ + _%hd185048185394%_ + _%expr185045185386%_ + _%id185046185388%_) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184880185185%_ - _%target184877185180%_ + (_%loop185039185344%_ + _%target185036185339%_ '() '())))) - (_%__match190305190306%_ - (lambda (_%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_) - (letrec ((_%loop184842185301%_ - (lambda (_%hd184840185304%_ - _%xid184846185306%_ - _%id184847185308%_) + (_%__match190464190465%_ + (lambda (_%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_) + (letrec ((_%loop185001185460%_ + (lambda (_%hd184999185463%_ + _%xid185005185465%_ + _%id185006185467%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184840185304%_)) - (let ((_%e184843185311%_ + _%hd184999185463%_)) + (let ((_%e185002185470%_ (let () (declare (not safe)) (gx#stx-e - _%hd184840185304%_)))) - (let ((_%lp-tl184845185316%_ + _%hd184999185463%_)))) + (let ((_%lp-tl185004185475%_ (let () (declare (not safe)) - (##cdr _%e184843185311%_))) - (_%lp-hd184844185314%_ + (##cdr _%e185002185470%_))) + (_%lp-hd185003185473%_ (let () (declare (not safe)) - (##car _%e184843185311%_)))) + (##car _%e185002185470%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184844185314%_)) - (let ((_%e184853185319%_ + _%lp-hd185003185473%_)) + (let ((_%e185012185478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184844185314%_)))) - (let ((_%tl184855185324%_ + (gx#stx-e _%lp-hd185003185473%_)))) + (let ((_%tl185014185483%_ (let () (declare (not safe)) - (##cdr _%e184853185319%_))) - (_%hd184854185322%_ + (##cdr _%e185012185478%_))) + (_%hd185013185481%_ (let () (declare (not safe)) - (##car _%e184853185319%_)))) + (##car _%e185012185478%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184854185322%_)) - (let ((_%e184856185327%_ + (gx#stx-pair? _%hd185013185481%_)) + (let ((_%e185015185486%_ (let () (declare (not safe)) - (gx#stx-e _%hd184854185322%_)))) - (let ((_%tl184858185332%_ + (gx#stx-e _%hd185013185481%_)))) + (let ((_%tl185017185491%_ (let () (declare (not safe)) - (##cdr _%e184856185327%_))) - (_%hd184857185330%_ + (##cdr _%e185015185486%_))) + (_%hd185016185489%_ (let () (declare (not safe)) - (##car _%e184856185327%_)))) + (##car _%e185015185486%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184858185332%_)) + (gx#stx-null? _%tl185017185491%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184855185324%_)) - (let ((_%e184859185335%_ + (gx#stx-pair? _%tl185014185483%_)) + (let ((_%e185018185494%_ (let () (declare (not safe)) (gx#stx-e - _%tl184855185324%_)))) - (let ((_%tl184861185340%_ + _%tl185014185483%_)))) + (let ((_%tl185020185499%_ (let () (declare (not safe)) - (##cdr _%e184859185335%_))) - (_%hd184860185338%_ + (##cdr _%e185018185494%_))) + (_%hd185019185497%_ (let () (declare (not safe)) - (##car _%e184859185335%_)))) + (##car _%e185018185494%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184860185338%_)) - (let ((_%e184862185343%_ + _%hd185019185497%_)) + (let ((_%e185021185502%_ (let () (declare (not safe)) (gx#stx-e - _%hd184860185338%_)))) - (let ((_%tl184864185348%_ + _%hd185019185497%_)))) + (let ((_%tl185023185507%_ (let () (declare (not safe)) - (##cdr _%e184862185343%_))) - (_%hd184863185346%_ + (##cdr _%e185021185502%_))) + (_%hd185022185505%_ (let () (declare (not safe)) - (##car _%e184862185343%_)))) + (##car _%e185021185502%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184863185346%_)) + _%hd185022185505%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184863185346%_)) + _%hd185022185505%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl184864185348%_)) - (let ((_%e184865185351%_ + (gx#stx-pair? _%tl185023185507%_)) + (let ((_%e185024185510%_ (let () (declare (not safe)) - (gx#stx-e _%tl184864185348%_)))) - (let ((_%tl184867185356%_ + (gx#stx-e _%tl185023185507%_)))) + (let ((_%tl185026185515%_ (let () (declare (not safe)) - (##cdr _%e184865185351%_))) - (_%hd184866185354%_ + (##cdr _%e185024185510%_))) + (_%hd185025185513%_ (let () (declare (not safe)) - (##car _%e184865185351%_)))) + (##car _%e185024185510%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184867185356%_)) + (gx#stx-null? _%tl185026185515%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184861185340%_)) - (_%loop184842185301%_ - _%lp-tl184845185316%_ - (cons _%hd184866185354%_ - _%xid184846185306%_) - (cons _%hd184857185330%_ - _%id184847185308%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) + (gx#stx-null? _%tl185020185499%_)) + (_%loop185001185460%_ + _%lp-tl185004185475%_ + (cons _%hd185025185513%_ + _%xid185005185465%_) + (cons _%hd185016185489%_ + _%id185006185467%_)) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184849185361%_ - (reverse _%id184847185308%_)) - (_%xid184848185359%_ - (reverse _%xid184846185306%_))) + (let ((_%id185008185520%_ + (reverse _%id185006185467%_)) + (_%xid185007185518%_ + (reverse _%xid185005185465%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184838185293%_)) - (let ((_%e184850185364%_ + _%tl184997185452%_)) + (let ((_%e185009185523%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184838185293%_)))) - (let ((_%tl184852185369%_ + (gx#stx-e _%tl184997185452%_)))) + (let ((_%tl185011185528%_ (let () (declare (not safe)) - (##cdr _%e184850185364%_))) - (_%hd184851185367%_ + (##cdr _%e185009185523%_))) + (_%hd185010185526%_ (let () (declare (not safe)) - (##car _%e184850185364%_)))) + (##car _%e185009185523%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184852185369%_)) - (_%__kont190194190195%_ - _%hd184851185367%_ - _%xid184848185359%_ - _%id184849185361%_) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_))))))) + (gx#stx-null? _%tl185011185528%_)) + (_%__kont190353190354%_ + _%hd185010185526%_ + _%xid185007185518%_ + _%id185008185520%_) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_)))) + (_%__match190488190489%_ + _%e184992185439%_ + _%hd184993185442%_ + _%tl184994185444%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184842185301%_ - _%target184839185296%_ + (_%loop185001185460%_ + _%target184998185455%_ '() '())))) - (_%__match190281190282%_ - (lambda (_%e184803185410%_ - _%hd184804185413%_ - _%tl184805185415%_ - _%e184806185418%_ - _%hd184807185421%_ - _%tl184808185423%_ - _%e184809185426%_ - _%hd184810185429%_ - _%tl184811185431%_ - _%e184812185434%_ - _%hd184813185437%_ - _%tl184814185439%_ - _%__splice190192190193%_ - _%target184815185442%_ - _%tl184817185444%_) - (letrec ((_%loop184818185447%_ - (lambda (_%hd184816185450%_ - _%id184822185452%_) + (_%__match190440190441%_ + (lambda (_%e184962185569%_ + _%hd184963185572%_ + _%tl184964185574%_ + _%e184965185577%_ + _%hd184966185580%_ + _%tl184967185582%_ + _%e184968185585%_ + _%hd184969185588%_ + _%tl184970185590%_ + _%e184971185593%_ + _%hd184972185596%_ + _%tl184973185598%_ + _%__splice190351190352%_ + _%target184974185601%_ + _%tl184976185603%_) + (letrec ((_%loop184977185606%_ + (lambda (_%hd184975185609%_ + _%id184981185611%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184816185450%_)) - (let ((_%e184819185455%_ + _%hd184975185609%_)) + (let ((_%e184978185614%_ (let () (declare (not safe)) (gx#stx-e - _%hd184816185450%_)))) - (let ((_%lp-tl184821185460%_ + _%hd184975185609%_)))) + (let ((_%lp-tl184980185619%_ (let () (declare (not safe)) - (##cdr _%e184819185455%_))) - (_%lp-hd184820185458%_ + (##cdr _%e184978185614%_))) + (_%lp-hd184979185617%_ (let () (declare (not safe)) - (##car _%e184819185455%_)))) + (##car _%e184978185614%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184820185458%_)) - (let ((_%e184824185463%_ + _%lp-hd184979185617%_)) + (let ((_%e184983185622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184820185458%_)))) - (let ((_%tl184826185468%_ + (gx#stx-e _%lp-hd184979185617%_)))) + (let ((_%tl184985185627%_ (let () (declare (not safe)) - (##cdr _%e184824185463%_))) - (_%hd184825185466%_ + (##cdr _%e184983185622%_))) + (_%hd184984185625%_ (let () (declare (not safe)) - (##car _%e184824185463%_)))) + (##car _%e184983185622%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184825185466%_)) + (gx#identifier? _%hd184984185625%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184825185466%_)) + (gx#stx-eq? '%#ref _%hd184984185625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184826185468%_)) - (let ((_%e184827185471%_ + (gx#stx-pair? _%tl184985185627%_)) + (let ((_%e184986185630%_ (let () (declare (not safe)) - (gx#stx-e _%tl184826185468%_)))) - (let ((_%tl184829185476%_ + (gx#stx-e _%tl184985185627%_)))) + (let ((_%tl184988185635%_ (let () (declare (not safe)) - (##cdr _%e184827185471%_))) - (_%hd184828185474%_ + (##cdr _%e184986185630%_))) + (_%hd184987185633%_ (let () (declare (not safe)) - (##car _%e184827185471%_)))) + (##car _%e184986185630%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184829185476%_)) - (_%loop184818185447%_ - _%lp-tl184821185460%_ - (cons _%hd184828185474%_ - _%id184822185452%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + (gx#stx-null? _%tl184988185635%_)) + (_%loop184977185606%_ + _%lp-tl184980185619%_ + (cons _%hd184987185633%_ + _%id184981185611%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184823185479%_ - (reverse _%id184822185452%_))) - (_%__kont190190190191%_ - _%id184823185479%_ - _%hd184813185437%_)))))) - (_%loop184818185447%_ - _%target184815185442%_ + (let ((_%id184982185638%_ + (reverse _%id184981185611%_))) + (_%__kont190349190350%_ + _%id184982185638%_ + _%hd184972185596%_)))))) + (_%loop184977185606%_ + _%target184974185601%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190186190187%_)) - (let ((_%e184789185521%_ + (gx#stx-pair? _%__stx190345190346%_)) + (let ((_%e184948185680%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190186190187%_)))) - (let ((_%tl184791185526%_ + (gx#stx-e _%__stx190345190346%_)))) + (let ((_%tl184950185685%_ (let () (declare (not safe)) - (##cdr _%e184789185521%_))) - (_%hd184790185524%_ + (##cdr _%e184948185680%_))) + (_%hd184949185683%_ (let () (declare (not safe)) - (##car _%e184789185521%_)))) + (##car _%e184948185680%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184790185524%_)) + (gx#identifier? _%hd184949185683%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184790185524%_)) + _%hd184949185683%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184792185529%_ + _%tl184950185685%_)) + (let ((_%e184951185688%_ (let () (declare (not safe)) (gx#stx-e - _%tl184791185526%_)))) - (let ((_%tl184794185534%_ + _%tl184950185685%_)))) + (let ((_%tl184953185693%_ (let () (declare (not safe)) - (##cdr _%e184792185529%_))) - (_%hd184793185532%_ + (##cdr _%e184951185688%_))) + (_%hd184952185691%_ (let () (declare (not safe)) - (##car _%e184792185529%_)))) + (##car _%e184951185688%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184794185534%_)) - (let ((_%e184795185537%_ + _%tl184953185693%_)) + (let ((_%e184954185696%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184794185534%_)))) - (let ((_%tl184797185542%_ + (gx#stx-e _%tl184953185693%_)))) + (let ((_%tl184956185701%_ (let () (declare (not safe)) - (##cdr _%e184795185537%_))) - (_%hd184796185540%_ + (##cdr _%e184954185696%_))) + (_%hd184955185699%_ (let () (declare (not safe)) - (##car _%e184795185537%_)))) + (##car _%e184954185696%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184797185542%_)) - (let ((_%e184798185545%_ + (gx#stx-pair? _%tl184956185701%_)) + (let ((_%e184957185704%_ (let () (declare (not safe)) - (gx#stx-e _%tl184797185542%_)))) - (let ((_%tl184800185550%_ + (gx#stx-e _%tl184956185701%_)))) + (let ((_%tl184959185709%_ (let () (declare (not safe)) - (##cdr _%e184798185545%_))) - (_%hd184799185548%_ + (##cdr _%e184957185704%_))) + (_%hd184958185707%_ (let () (declare (not safe)) - (##car _%e184798185545%_)))) + (##car _%e184957185704%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184800185550%_)) - (_%__kont190188190189%_ - _%hd184799185548%_ - _%hd184796185540%_ - _%hd184793185532%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + (gx#stx-null? _%tl184959185709%_)) + (_%__kont190347190348%_ + _%hd184958185707%_ + _%hd184955185699%_ + _%hd184952185691%_) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)) + (_%__kont190367190368%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184790185524%_)) + _%hd184949185683%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184806185418%_ + _%tl184950185685%_)) + (let ((_%e184965185577%_ (let () (declare (not safe)) (gx#stx-e - _%tl184791185526%_)))) - (let ((_%tl184808185423%_ + _%tl184950185685%_)))) + (let ((_%tl184967185582%_ (let () (declare (not safe)) - (##cdr _%e184806185418%_))) - (_%hd184807185421%_ + (##cdr _%e184965185577%_))) + (_%hd184966185580%_ (let () (declare (not safe)) - (##car _%e184806185418%_)))) + (##car _%e184965185577%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184807185421%_)) - (let ((_%e184809185426%_ + _%hd184966185580%_)) + (let ((_%e184968185585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184807185421%_)))) - (let ((_%tl184811185431%_ + (gx#stx-e _%hd184966185580%_)))) + (let ((_%tl184970185590%_ (let () (declare (not safe)) - (##cdr _%e184809185426%_))) - (_%hd184810185429%_ + (##cdr _%e184968185585%_))) + (_%hd184969185588%_ (let () (declare (not safe)) - (##car _%e184809185426%_)))) + (##car _%e184968185585%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184810185429%_)) + (gx#identifier? _%hd184969185588%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184810185429%_)) + (gx#stx-eq? '%#ref _%hd184969185588%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184811185431%_)) - (let ((_%e184812185434%_ + (gx#stx-pair? _%tl184970185590%_)) + (let ((_%e184971185593%_ (let () (declare (not safe)) - (gx#stx-e _%tl184811185431%_)))) - (let ((_%tl184814185439%_ + (gx#stx-e _%tl184970185590%_)))) + (let ((_%tl184973185598%_ (let () (declare (not safe)) - (##cdr _%e184812185434%_))) - (_%hd184813185437%_ + (##cdr _%e184971185593%_))) + (_%hd184972185596%_ (let () (declare (not safe)) - (##car _%e184812185434%_)))) + (##car _%e184971185593%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184814185439%_)) + (gx#stx-null? _%tl184973185598%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl184808185423%_)) - (let ((_%__splice190192190193%_ + _%tl184967185582%_)) + (let ((_%__splice190351190352%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184808185423%_ + _%tl184967185582%_ '0)))) - (let ((_%tl184817185444%_ + (let ((_%tl184976185603%_ (let () (declare (not safe)) (##vector-ref - _%__splice190192190193%_ + _%__splice190351190352%_ '1))) - (_%target184815185442%_ + (_%target184974185601%_ (let () (declare (not safe)) (##vector-ref - _%__splice190192190193%_ + _%__splice190351190352%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184817185444%_)) - (_%__match190281190282%_ - _%e184789185521%_ - _%hd184790185524%_ - _%tl184791185526%_ - _%e184806185418%_ - _%hd184807185421%_ - _%tl184808185423%_ - _%e184809185426%_ - _%hd184810185429%_ - _%tl184811185431%_ - _%e184812185434%_ - _%hd184813185437%_ - _%tl184814185439%_ - _%__splice190192190193%_ - _%target184815185442%_ - _%tl184817185444%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + _%tl184976185603%_)) + (_%__match190440190441%_ + _%e184948185680%_ + _%hd184949185683%_ + _%tl184950185685%_ + _%e184965185577%_ + _%hd184966185580%_ + _%tl184967185582%_ + _%e184968185585%_ + _%hd184969185588%_ + _%tl184970185590%_ + _%e184971185593%_ + _%hd184972185596%_ + _%tl184973185598%_ + _%__splice190351190352%_ + _%target184974185601%_ + _%tl184976185603%_) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)) + (_%__kont190367190368%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184790185524%_)) + _%hd184949185683%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184836185288%_ + _%tl184950185685%_)) + (let ((_%e184995185447%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184791185526%_)))) - (let ((_%tl184838185293%_ + (gx#stx-e _%tl184950185685%_)))) + (let ((_%tl184997185452%_ (let () (declare (not safe)) - (##cdr _%e184836185288%_))) - (_%hd184837185291%_ + (##cdr _%e184995185447%_))) + (_%hd184996185450%_ (let () (declare (not safe)) - (##car _%e184836185288%_)))) + (##car _%e184995185447%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd184837185291%_)) - (let ((_%__splice190196190197%_ + (gx#stx-pair/null? _%hd184996185450%_)) + (let ((_%__splice190355190356%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184837185291%_ + _%hd184996185450%_ '0)))) - (let ((_%tl184841185298%_ + (let ((_%tl185000185457%_ (let () (declare (not safe)) - (##vector-ref _%__splice190196190197%_ '1))) - (_%target184839185296%_ + (##vector-ref _%__splice190355190356%_ '1))) + (_%target184998185455%_ (let () (declare (not safe)) - (##vector-ref _%__splice190196190197%_ '0)))) + (##vector-ref _%__splice190355190356%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184841185298%_)) - (_%__match190305190306%_ - _%e184789185521%_ - _%hd184790185524%_ - _%tl184791185526%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) + (gx#stx-null? _%tl185000185457%_)) + (_%__match190464190465%_ + _%e184948185680%_ + _%hd184949185683%_ + _%tl184950185685%_ + _%e184995185447%_ + _%hd184996185450%_ + _%tl184997185452%_ + _%__splice190355190356%_ + _%target184998185455%_ + _%tl185000185457%_) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd184790185524%_)) + _%hd184949185683%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184908184977%_ + _%tl184950185685%_)) + (let ((_%e185067185136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184791185526%_)))) - (let ((_%tl184910184982%_ + (gx#stx-e _%tl184950185685%_)))) + (let ((_%tl185069185141%_ (let () (declare (not safe)) - (##cdr _%e184908184977%_))) - (_%hd184909184980%_ + (##cdr _%e185067185136%_))) + (_%hd185068185139%_ (let () (declare (not safe)) - (##car _%e184908184977%_)))) + (##car _%e185067185136%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184909184980%_)) - (let ((_%e184911184985%_ + (gx#stx-pair? _%hd185068185139%_)) + (let ((_%e185070185144%_ (let () (declare (not safe)) - (gx#stx-e _%hd184909184980%_)))) - (let ((_%tl184913184990%_ + (gx#stx-e _%hd185068185139%_)))) + (let ((_%tl185072185149%_ (let () (declare (not safe)) - (##cdr _%e184911184985%_))) - (_%hd184912184988%_ + (##cdr _%e185070185144%_))) + (_%hd185071185147%_ (let () (declare (not safe)) - (##car _%e184911184985%_)))) + (##car _%e185070185144%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184912184988%_)) - (let ((_%e184914184993%_ + (gx#stx-pair? _%hd185071185147%_)) + (let ((_%e185073185152%_ (let () (declare (not safe)) - (gx#stx-e _%hd184912184988%_)))) - (let ((_%tl184916184998%_ + (gx#stx-e _%hd185071185147%_)))) + (let ((_%tl185075185157%_ (let () (declare (not safe)) - (##cdr _%e184914184993%_))) - (_%hd184915184996%_ + (##cdr _%e185073185152%_))) + (_%hd185074185155%_ (let () (declare (not safe)) - (##car _%e184914184993%_)))) + (##car _%e185073185152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184915184996%_)) - (let ((_%e184917185001%_ + (gx#stx-pair? _%hd185074185155%_)) + (let ((_%e185076185160%_ (let () (declare (not safe)) (gx#stx-e - _%hd184915184996%_)))) - (let ((_%tl184919185006%_ + _%hd185074185155%_)))) + (let ((_%tl185078185165%_ (let () (declare (not safe)) - (##cdr _%e184917185001%_))) - (_%hd184918185004%_ + (##cdr _%e185076185160%_))) + (_%hd185077185163%_ (let () (declare (not safe)) - (##car _%e184917185001%_)))) + (##car _%e185076185160%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184919185006%_)) + _%tl185078185165%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184916184998%_)) - (let ((_%e184920185009%_ + _%tl185075185157%_)) + (let ((_%e185079185168%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184916184998%_)))) - (let ((_%tl184922185014%_ + (gx#stx-e _%tl185075185157%_)))) + (let ((_%tl185081185173%_ (let () (declare (not safe)) - (##cdr _%e184920185009%_))) - (_%hd184921185012%_ + (##cdr _%e185079185168%_))) + (_%hd185080185171%_ (let () (declare (not safe)) - (##car _%e184920185009%_)))) + (##car _%e185079185168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184921185012%_)) - (let ((_%e184923185017%_ + (gx#stx-pair? _%hd185080185171%_)) + (let ((_%e185082185176%_ (let () (declare (not safe)) - (gx#stx-e _%hd184921185012%_)))) - (let ((_%tl184925185022%_ + (gx#stx-e _%hd185080185171%_)))) + (let ((_%tl185084185181%_ (let () (declare (not safe)) - (##cdr _%e184923185017%_))) - (_%hd184924185020%_ + (##cdr _%e185082185176%_))) + (_%hd185083185179%_ (let () (declare (not safe)) - (##car _%e184923185017%_)))) + (##car _%e185082185176%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184924185020%_)) + (gx#identifier? _%hd185083185179%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd184924185020%_)) + (gx#stx-eq? '%#lambda _%hd185083185179%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184925185022%_)) - (let ((_%e184926185025%_ + (gx#stx-pair? _%tl185084185181%_)) + (let ((_%e185085185184%_ (let () (declare (not safe)) (gx#stx-e - _%tl184925185022%_)))) - (let ((_%tl184928185030%_ + _%tl185084185181%_)))) + (let ((_%tl185087185189%_ (let () (declare (not safe)) - (##cdr _%e184926185025%_))) - (_%hd184927185028%_ + (##cdr _%e185085185184%_))) + (_%hd185086185187%_ (let () (declare (not safe)) - (##car _%e184926185025%_)))) + (##car _%e185085185184%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd184927185028%_)) - (let ((_%__splice190204190205%_ + _%hd185086185187%_)) + (let ((_%__splice190363190364%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184927185028%_ + _%hd185086185187%_ '0)))) - (let ((_%tl184931185035%_ + (let ((_%tl185090185194%_ (let () (declare (not safe)) (##vector-ref - _%__splice190204190205%_ + _%__splice190363190364%_ '1))) - (_%target184929185033%_ + (_%target185088185192%_ (let () (declare (not safe)) (##vector-ref - _%__splice190204190205%_ + _%__splice190363190364%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184931185035%_)) - (_%__match190395190396%_ - _%e184789185521%_ - _%hd184790185524%_ - _%tl184791185526%_ - _%e184908184977%_ - _%hd184909184980%_ - _%tl184910184982%_ - _%e184911184985%_ - _%hd184912184988%_ - _%tl184913184990%_ - _%e184914184993%_ - _%hd184915184996%_ - _%tl184916184998%_ - _%e184917185001%_ - _%hd184918185004%_ - _%tl184919185006%_ - _%e184920185009%_ - _%hd184921185012%_ - _%tl184922185014%_ - _%e184923185017%_ - _%hd184924185020%_ - _%tl184925185022%_ - _%e184926185025%_ - _%hd184927185028%_ - _%tl184928185030%_ - _%__splice190204190205%_ - _%target184929185033%_ - _%tl184931185035%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) + _%tl185090185194%_)) + (_%__match190554190555%_ + _%e184948185680%_ + _%hd184949185683%_ + _%tl184950185685%_ + _%e185067185136%_ + _%hd185068185139%_ + _%tl185069185141%_ + _%e185070185144%_ + _%hd185071185147%_ + _%tl185072185149%_ + _%e185073185152%_ + _%hd185074185155%_ + _%tl185075185157%_ + _%e185076185160%_ + _%hd185077185163%_ + _%tl185078185165%_ + _%e185079185168%_ + _%hd185080185171%_ + _%tl185081185173%_ + _%e185082185176%_ + _%hd185083185179%_ + _%tl185084185181%_ + _%e185085185184%_ + _%hd185086185187%_ + _%tl185087185189%_ + _%__splice190363190364%_ + _%target185088185192%_ + _%tl185090185194%_) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_))))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)))) + (_%__kont190367190368%_)) + (_%__kont190367190368%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) - (_%optimize-t__189131189132%_ - (lambda (_%expr184760%_ _%test184761%_ _%continue184762%_) - (_%do-assert181767%_ - (cons (cons _%test184761%_ '#t) '()) - (lambda () (_%continue184762%_ _%expr184760%_))))) - (_%optimize-t__0__189133189134%_ - (lambda (_%expr184768%_ _%test184769%_) - (let ((_%continue184771%_ _%optimize-e181778%_)) - (_%optimize-t__189131189132%_ - _%expr184768%_ - _%test184769%_ - _%continue184771%_)))) - (_%optimize-t181779%_ - (lambda _g192288_ - (let ((_g192287_ + (_%__kont190367190368%_)))) + (_%__kont190367190368%_))))))) + (_%optimize-t__189290189291%_ + (lambda (_%expr184919%_ _%test184920%_ _%continue184921%_) + (_%do-assert181926%_ + (cons (cons _%test184920%_ '#t) '()) + (lambda () (_%continue184921%_ _%expr184919%_))))) + (_%optimize-t__0__189292189293%_ + (lambda (_%expr184927%_ _%test184928%_) + (let ((_%continue184930%_ _%optimize-e181937%_)) + (_%optimize-t__189290189291%_ + _%expr184927%_ + _%test184928%_ + _%continue184930%_)))) + (_%optimize-t181938%_ + (lambda _g192447_ + (let ((_g192446_ (let () (declare (not safe)) - (##length _g192288_)))) - (cond ((let () (declare (not safe)) (##fx= _g192287_ 2)) - (apply _%optimize-t__0__189133189134%_ - _g192288_)) - ((let () (declare (not safe)) (##fx= _g192287_ 3)) - (apply _%optimize-t__189131189132%_ _g192288_)) + (##length _g192447_)))) + (cond ((let () (declare (not safe)) (##fx= _g192446_ 2)) + (apply _%optimize-t__0__189292189293%_ + _g192447_)) + ((let () (declare (not safe)) (##fx= _g192446_ 3)) + (apply _%optimize-t__189290189291%_ _g192447_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192288_)))))) - (_%optimize-f__189135189136%_ - (lambda (_%expr183844%_ _%test183845%_) - (_%do-assert181767%_ - (if _%test183845%_ - (cons (cons _%test183845%_ '#f) '()) + _g192447_)))))) + (_%optimize-f__189294189295%_ + (lambda (_%expr184003%_ _%test184004%_) + (_%do-assert181926%_ + (if _%test184004%_ + (cons (cons _%test184004%_ '#f) '()) '()) (lambda () - (let* ((_%__stx190436190437%_ _%expr183844%_) - (_%g183853184026%_ + (let* ((_%__stx190595190596%_ _%expr184003%_) + (_%g184012184185%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190436190437%_))))) - (let ((_%__kont190438190439%_ - (lambda (_%L184614%_ _%L184615%_) - (let ((_%$e184635%_ - (_%lookup-block181786%_ - _%L184615%_))) - (if _%$e184635%_ - ((lambda (_%block184638%_) - (if (_%nonlinear-block?181788%_ - _%block184638%_) - _%expr183844%_ - (let* ((_%inline184647%_ - (_%inline-block181787%_ - _%block184638%_ - (let ((__tmp192289 - (lambda (_%g184639184642%_ + _%__stx190595190596%_))))) + (let ((_%__kont190597190598%_ + (lambda (_%L184773%_ _%L184774%_) + (let ((_%$e184794%_ + (_%lookup-block181945%_ + _%L184774%_))) + (if _%$e184794%_ + ((lambda (_%block184797%_) + (if (_%nonlinear-block?181947%_ + _%block184797%_) + _%expr184003%_ + (let* ((_%inline184806%_ + (_%inline-block181946%_ + _%block184797%_ + (let ((__tmp192448 + (lambda (_%g184798184801%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184640184644%_) - (cons _%g184639184642%_ _%g184640184644%_)))) + _%g184799184803%_) + (cons _%g184798184801%_ _%g184799184803%_)))) (declare (not safe)) - (__foldr1 __tmp192289 '() _%L184614%_)))) - (_%__stx190398190399%_ _%inline184647%_) - (_%g184650184671%_ + (__foldr1 __tmp192448 '() _%L184773%_)))) + (_%__stx190557190558%_ _%inline184806%_) + (_%g184809184830%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190398190399%_))))) + _%__stx190557190558%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont190400190401%_ - (lambda (_%L184715%_ + (let ((_%__kont190559190560%_ + (lambda (_%L184874%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L184716%_ - _%L184717%_) - (let ((_%$e184739%_ (_%assert-e181781%_ _%L184717%_))) - (if (eq? '#t _%$e184739%_) - (if _%in-splice?181766%_ - (_%optimize-f__0__189137189138%_ _%L184716%_) - (_%optimize-e181778%_ _%L184716%_)) - (if (eq? '#f _%$e184739%_) - (_%optimize-f__0__189137189138%_ _%L184715%_) - _%expr183844%_))))) - (_%__kont190402190403%_ + _%L184875%_ + _%L184876%_) + (let ((_%$e184898%_ (_%assert-e181940%_ _%L184876%_))) + (if (eq? '#t _%$e184898%_) + (if _%in-splice?181925%_ + (_%optimize-f__0__189296189297%_ _%L184875%_) + (_%optimize-e181937%_ _%L184875%_)) + (if (eq? '#f _%$e184898%_) + (_%optimize-f__0__189296189297%_ _%L184874%_) + _%expr184003%_))))) + (_%__kont190561190562%_ (lambda () - (_%optimize-f__0__189137189138%_ _%inline184647%_)))) + (_%optimize-f__0__189296189297%_ _%inline184806%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190398190399%_)) - (let ((_%e184655184683%_ + _%__stx190557190558%_)) + (let ((_%e184814184842%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx190398190399%_)))) - (let ((_%tl184657184688%_ + (gx#stx-e _%__stx190557190558%_)))) + (let ((_%tl184816184847%_ (let () (declare (not safe)) - (##cdr _%e184655184683%_))) - (_%hd184656184686%_ + (##cdr _%e184814184842%_))) + (_%hd184815184845%_ (let () (declare (not safe)) - (##car _%e184655184683%_)))) + (##car _%e184814184842%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184656184686%_)) + (gx#identifier? _%hd184815184845%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd184656184686%_)) + (gx#stx-eq? '%#if _%hd184815184845%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184657184688%_)) - (let ((_%e184658184691%_ + (gx#stx-pair? _%tl184816184847%_)) + (let ((_%e184817184850%_ (let () (declare (not safe)) - (gx#stx-e _%tl184657184688%_)))) - (let ((_%tl184660184696%_ + (gx#stx-e _%tl184816184847%_)))) + (let ((_%tl184819184855%_ (let () (declare (not safe)) - (##cdr _%e184658184691%_))) - (_%hd184659184694%_ + (##cdr _%e184817184850%_))) + (_%hd184818184853%_ (let () (declare (not safe)) - (##car _%e184658184691%_)))) + (##car _%e184817184850%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184660184696%_)) - (let ((_%e184661184699%_ + (gx#stx-pair? _%tl184819184855%_)) + (let ((_%e184820184858%_ (let () (declare (not safe)) (gx#stx-e - _%tl184660184696%_)))) - (let ((_%tl184663184704%_ + _%tl184819184855%_)))) + (let ((_%tl184822184863%_ (let () (declare (not safe)) - (##cdr _%e184661184699%_))) - (_%hd184662184702%_ + (##cdr _%e184820184858%_))) + (_%hd184821184861%_ (let () (declare (not safe)) - (##car _%e184661184699%_)))) + (##car _%e184820184858%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184663184704%_)) - (let ((_%e184664184707%_ + _%tl184822184863%_)) + (let ((_%e184823184866%_ (let () (declare (not safe)) (gx#stx-e - _%tl184663184704%_)))) - (let ((_%tl184666184712%_ + _%tl184822184863%_)))) + (let ((_%tl184825184871%_ (let () (declare (not safe)) - (##cdr _%e184664184707%_))) - (_%hd184665184710%_ + (##cdr _%e184823184866%_))) + (_%hd184824184869%_ (let () (declare (not safe)) - (##car _%e184664184707%_)))) + (##car _%e184823184866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184666184712%_)) - (_%__kont190400190401%_ - _%hd184665184710%_ - _%hd184662184702%_ - _%hd184659184694%_) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)) - (_%__kont190402190403%_)) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)))))) + _%tl184825184871%_)) + (_%__kont190559190560%_ + _%hd184824184869%_ + _%hd184821184861%_ + _%hd184818184853%_) + (_%__kont190561190562%_)))) + (_%__kont190561190562%_)))) + (_%__kont190561190562%_)))) + (_%__kont190561190562%_)) + (_%__kont190561190562%_)) + (_%__kont190561190562%_)))) + (_%__kont190561190562%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e184635%_) - _%expr183844%_)))) - (_%__kont190442190443%_ - (lambda (_%L184512%_ _%L184513%_ _%L184514%_) - (let ((_%$e184531%_ - (_%assert-e181781%_ _%L184514%_))) - (if (eq? '#t _%$e184531%_) - (if _%in-splice?181766%_ - (_%optimize-f__0__189137189138%_ - _%L184513%_) - (_%optimize-e181778%_ - _%L184513%_)) - (if (eq? '#f _%$e184531%_) - (_%optimize-f__0__189137189138%_ - _%L184512%_) - (let ((_%K184534%_ - (_%optimize-t__189131189132%_ - _%L184513%_ - _%L184514%_ - _%optimize-f181780%_)) - (_%E184535%_ - (_%optimize-f__189135189136%_ - _%L184512%_ - _%L184514%_))) + _%$e184794%_) + _%expr184003%_)))) + (_%__kont190601190602%_ + (lambda (_%L184671%_ _%L184672%_ _%L184673%_) + (let ((_%$e184690%_ + (_%assert-e181940%_ _%L184673%_))) + (if (eq? '#t _%$e184690%_) + (if _%in-splice?181925%_ + (_%optimize-f__0__189296189297%_ + _%L184672%_) + (_%optimize-e181937%_ + _%L184672%_)) + (if (eq? '#f _%$e184690%_) + (_%optimize-f__0__189296189297%_ + _%L184671%_) + (let ((_%K184693%_ + (_%optimize-t__189290189291%_ + _%L184672%_ + _%L184673%_ + _%optimize-f181939%_)) + (_%E184694%_ + (_%optimize-f__189294189295%_ + _%L184671%_ + _%L184673%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K184534%_) + _%K184693%_) (gxc#apply-generate-runtime-repr - _%E184535%_)) - _%K184534%_ + _%E184694%_)) + _%K184693%_ (cons '%#if - (cons _%L184514%_ - (cons _%K184534%_ + (cons _%L184673%_ + (cons _%K184693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184535%_ '()))))))))))) + (cons _%E184694%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190444190445%_ - (lambda (_%L184442%_ _%L184443%_ _%L184444%_) - (let ((_%body184463%_ - (_%optimize-f__0__189137189138%_ - _%L184442%_))) + (_%__kont190603190604%_ + (lambda (_%L184601%_ _%L184602%_ _%L184603%_) + (let ((_%body184622%_ + (_%optimize-f__0__189296189297%_ + _%L184601%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L184443%_ - _%L184444%_)) - (let ((__tmp192290 - (lambda (_%g184464184468%_ + _%L184602%_ + _%L184603%_)) + (let ((__tmp192449 + (lambda (_%g184623184627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184465184470%_ - _%g184466184472%_) - (cons (cons (cons _%g184465184470%_ '()) + _%g184624184629%_ + _%g184625184631%_) + (cons (cons (cons _%g184624184629%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g184464184468%_ '())) + (cons _%g184623184627%_ '())) '())) - _%g184466184472%_)))) + _%g184625184631%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192290 + __tmp192449 '() - _%L184443%_ - _%L184444%_))) - (cons _%body184463%_ '())))))) - (_%__kont190448190449%_ - (lambda (_%L184310%_ _%L184311%_ _%L184312%_) - (_%bind-e__189139189140%_ + _%L184602%_ + _%L184603%_))) + (cons _%body184622%_ '())))))) + (_%__kont190607190608%_ + (lambda (_%L184469%_ _%L184470%_ _%L184471%_) + (_%bind-e__189298189299%_ (map cons - (let ((__tmp192291 - (lambda (_%g184330184333%_ - _%g184331184335%_) - (cons _%g184330184333%_ - _%g184331184335%_)))) + (let ((__tmp192450 + (lambda (_%g184489184492%_ + _%g184490184494%_) + (cons _%g184489184492%_ + _%g184490184494%_)))) (declare (not safe)) (__foldr1 - __tmp192291 + __tmp192450 '() - _%L184312%_)) - (let ((__tmp192292 - (lambda (_%g184337184340%_ - _%g184338184342%_) - (cons _%g184337184340%_ - _%g184338184342%_)))) + _%L184471%_)) + (let ((__tmp192451 + (lambda (_%g184496184499%_ + _%g184497184501%_) + (cons _%g184496184499%_ + _%g184497184501%_)))) (declare (not safe)) (__foldr1 - __tmp192292 + __tmp192451 '() - _%L184311%_))) - _%L184310%_ - _%optimize-f181780%_))) - (_%__kont190452190453%_ - (lambda (_%L184166%_ - _%L184167%_ - _%L184168%_ - _%L184169%_ - _%L184170%_) - (_%do-splice!181777%_ + _%L184470%_))) + _%L184469%_ + _%optimize-f181939%_))) + (_%__kont190611190612%_ + (lambda (_%L184325%_ + _%L184326%_ + _%L184327%_ + _%L184328%_ + _%L184329%_) + (_%do-splice!181936%_ (lambda () - (let ((_%expr184213%_ - (_%optimize-f__0__189137189138%_ - _%L184168%_))) + (let ((_%expr184372%_ + (_%optimize-f__0__189296189297%_ + _%L184327%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L184170%_ + (cons (cons (cons (cons _%L184329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192293 - (lambda (_%g184214184217%_ - _%g184215184219%_) - (cons _%g184214184217%_ - _%g184215184219%_)))) + (cons (let ((__tmp192452 + (lambda (_%g184373184376%_ + _%g184374184378%_) + (cons _%g184373184376%_ + _%g184374184378%_)))) (declare (not safe)) (__foldr1 - __tmp192293 + __tmp192452 '() - _%L184169%_)) - (cons _%expr184213%_ '()))) + _%L184328%_)) + (cons _%expr184372%_ '()))) '())) - (let ((__tmp192294 - (lambda (_%g184221184224%_ _%g184222184226%_) - (cons _%g184221184224%_ _%g184222184226%_)))) + (let ((__tmp192453 + (lambda (_%g184380184383%_ _%g184381184385%_) + (cons _%g184380184383%_ _%g184381184385%_)))) (declare (not safe)) - (__foldr1 __tmp192294 '() _%L184167%_))) + (__foldr1 __tmp192453 '() _%L184326%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L184166%_ + (cons _%L184325%_ '())))))))) - (_%__kont190458190459%_ - (lambda () _%expr183844%_))) - (let* ((_%__match190645190646%_ - (lambda (_%e183974184038%_ - _%hd183975184041%_ - _%tl183976184043%_ - _%e183977184046%_ - _%hd183978184049%_ - _%tl183979184051%_ - _%e183980184054%_ - _%hd183981184057%_ - _%tl183982184059%_ - _%e183983184062%_ - _%hd183984184065%_ - _%tl183985184067%_ - _%e183986184070%_ - _%hd183987184073%_ - _%tl183988184075%_ - _%e183989184078%_ - _%hd183990184081%_ - _%tl183991184083%_ - _%e183992184086%_ - _%hd183993184089%_ - _%tl183994184091%_ - _%e183995184094%_ - _%hd183996184097%_ - _%tl183997184099%_ - _%__splice190454190455%_ - _%target183998184102%_ - _%tl184000184104%_) - (letrec ((_%loop184001184107%_ - (lambda (_%hd183999184110%_ - _%id184005184112%_) + (_%__kont190617190618%_ + (lambda () _%expr184003%_))) + (let* ((_%__match190804190805%_ + (lambda (_%e184133184197%_ + _%hd184134184200%_ + _%tl184135184202%_ + _%e184136184205%_ + _%hd184137184208%_ + _%tl184138184210%_ + _%e184139184213%_ + _%hd184140184216%_ + _%tl184141184218%_ + _%e184142184221%_ + _%hd184143184224%_ + _%tl184144184226%_ + _%e184145184229%_ + _%hd184146184232%_ + _%tl184147184234%_ + _%e184148184237%_ + _%hd184149184240%_ + _%tl184150184242%_ + _%e184151184245%_ + _%hd184152184248%_ + _%tl184153184250%_ + _%e184154184253%_ + _%hd184155184256%_ + _%tl184156184258%_ + _%__splice190613190614%_ + _%target184157184261%_ + _%tl184159184263%_) + (letrec ((_%loop184160184266%_ + (lambda (_%hd184158184269%_ + _%id184164184271%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183999184110%_)) - (let ((_%e184002184115%_ + _%hd184158184269%_)) + (let ((_%e184161184274%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183999184110%_)))) - (let ((_%lp-tl184004184120%_ - (let () (declare (not safe)) (##cdr _%e184002184115%_))) - (_%lp-hd184003184118%_ + (gx#stx-e _%hd184158184269%_)))) + (let ((_%lp-tl184163184279%_ + (let () (declare (not safe)) (##cdr _%e184161184274%_))) + (_%lp-hd184162184277%_ (let () (declare (not safe)) - (##car _%e184002184115%_)))) - (_%loop184001184107%_ - _%lp-tl184004184120%_ - (cons _%lp-hd184003184118%_ _%id184005184112%_)))) - (let ((_%id184006184123%_ (reverse _%id184005184112%_))) + (##car _%e184161184274%_)))) + (_%loop184160184266%_ + _%lp-tl184163184279%_ + (cons _%lp-hd184162184277%_ _%id184164184271%_)))) + (let ((_%id184165184282%_ (reverse _%id184164184271%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183997184099%_)) - (let ((_%e184007184126%_ + (gx#stx-pair? _%tl184156184258%_)) + (let ((_%e184166184285%_ (let () (declare (not safe)) - (gx#stx-e _%tl183997184099%_)))) - (let ((_%tl184009184131%_ + (gx#stx-e _%tl184156184258%_)))) + (let ((_%tl184168184290%_ (let () (declare (not safe)) - (##cdr _%e184007184126%_))) - (_%hd184008184129%_ + (##cdr _%e184166184285%_))) + (_%hd184167184288%_ (let () (declare (not safe)) - (##car _%e184007184126%_)))) + (##car _%e184166184285%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184009184131%_)) + (gx#stx-null? _%tl184168184290%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183991184083%_)) + (gx#stx-null? _%tl184150184242%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl183982184059%_)) - (let ((_%__splice190456190457%_ + (gx#stx-pair/null? _%tl184141184218%_)) + (let ((_%__splice190615190616%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183982184059%_ + _%tl184141184218%_ '0)))) - (let ((_%tl184012184136%_ + (let ((_%tl184171184295%_ (let () (declare (not safe)) (##vector-ref - _%__splice190456190457%_ + _%__splice190615190616%_ '1))) - (_%target184010184134%_ + (_%target184169184293%_ (let () (declare (not safe)) (##vector-ref - _%__splice190456190457%_ + _%__splice190615190616%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184012184136%_)) - (letrec ((_%loop184013184139%_ - (lambda (_%hd184011184142%_ - _%bind184017184144%_) + _%tl184171184295%_)) + (letrec ((_%loop184172184298%_ + (lambda (_%hd184170184301%_ + _%bind184176184303%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184011184142%_)) - (let ((_%e184014184147%_ + _%hd184170184301%_)) + (let ((_%e184173184306%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184011184142%_)))) - (let ((_%lp-tl184016184152%_ + (gx#stx-e _%hd184170184301%_)))) + (let ((_%lp-tl184175184311%_ (let () (declare (not safe)) - (##cdr _%e184014184147%_))) - (_%lp-hd184015184150%_ + (##cdr _%e184173184306%_))) + (_%lp-hd184174184309%_ (let () (declare (not safe)) - (##car _%e184014184147%_)))) - (_%loop184013184139%_ - _%lp-tl184016184152%_ - (cons _%lp-hd184015184150%_ _%bind184017184144%_)))) - (let ((_%bind184018184155%_ - (reverse _%bind184017184144%_))) + (##car _%e184173184306%_)))) + (_%loop184172184298%_ + _%lp-tl184175184311%_ + (cons _%lp-hd184174184309%_ _%bind184176184303%_)))) + (let ((_%bind184177184314%_ + (reverse _%bind184176184303%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183979184051%_)) - (let ((_%e184019184158%_ + (gx#stx-pair? _%tl184138184210%_)) + (let ((_%e184178184317%_ (let () (declare (not safe)) - (gx#stx-e _%tl183979184051%_)))) - (let ((_%tl184021184163%_ + (gx#stx-e _%tl184138184210%_)))) + (let ((_%tl184180184322%_ (let () (declare (not safe)) - (##cdr _%e184019184158%_))) - (_%hd184020184161%_ + (##cdr _%e184178184317%_))) + (_%hd184179184320%_ (let () (declare (not safe)) - (##car _%e184019184158%_)))) + (##car _%e184178184317%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184021184163%_)) - (_%__kont190452190453%_ - _%hd184020184161%_ - _%bind184018184155%_ - _%hd184008184129%_ - _%id184006184123%_ - _%hd183987184073%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))) + (gx#stx-null? _%tl184180184322%_)) + (_%__kont190611190612%_ + _%hd184179184320%_ + _%bind184177184314%_ + _%hd184167184288%_ + _%id184165184282%_ + _%hd184146184232%_) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184013184139%_ - _%target184010184134%_ + (_%loop184172184298%_ + _%target184169184293%_ '())) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184001184107%_ - _%target183998184102%_ + (_%loop184160184266%_ + _%target184157184261%_ '())))) - (_%__match190579190580%_ - (lambda (_%e183940184234%_ - _%hd183941184237%_ - _%tl183942184239%_ - _%e183943184242%_ - _%hd183944184245%_ - _%tl183945184247%_ - _%__splice190450190451%_ - _%target183946184250%_ - _%tl183948184252%_) - (letrec ((_%loop183949184255%_ - (lambda (_%hd183947184258%_ - _%expr183953184260%_ - _%id183954184262%_) + (_%__match190738190739%_ + (lambda (_%e184099184393%_ + _%hd184100184396%_ + _%tl184101184398%_ + _%e184102184401%_ + _%hd184103184404%_ + _%tl184104184406%_ + _%__splice190609190610%_ + _%target184105184409%_ + _%tl184107184411%_) + (letrec ((_%loop184108184414%_ + (lambda (_%hd184106184417%_ + _%expr184112184419%_ + _%id184113184421%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183947184258%_)) - (let ((_%e183950184265%_ + _%hd184106184417%_)) + (let ((_%e184109184424%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183947184258%_)))) - (let ((_%lp-tl183952184270%_ - (let () (declare (not safe)) (##cdr _%e183950184265%_))) - (_%lp-hd183951184268%_ + (gx#stx-e _%hd184106184417%_)))) + (let ((_%lp-tl184111184429%_ + (let () (declare (not safe)) (##cdr _%e184109184424%_))) + (_%lp-hd184110184427%_ (let () (declare (not safe)) - (##car _%e183950184265%_)))) + (##car _%e184109184424%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd183951184268%_)) - (let ((_%e183960184273%_ + (gx#stx-pair? _%lp-hd184110184427%_)) + (let ((_%e184119184432%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd183951184268%_)))) - (let ((_%tl183962184278%_ + (gx#stx-e _%lp-hd184110184427%_)))) + (let ((_%tl184121184437%_ (let () (declare (not safe)) - (##cdr _%e183960184273%_))) - (_%hd183961184276%_ + (##cdr _%e184119184432%_))) + (_%hd184120184435%_ (let () (declare (not safe)) - (##car _%e183960184273%_)))) + (##car _%e184119184432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183961184276%_)) - (let ((_%e183963184281%_ + (gx#stx-pair? _%hd184120184435%_)) + (let ((_%e184122184440%_ (let () (declare (not safe)) - (gx#stx-e _%hd183961184276%_)))) - (let ((_%tl183965184286%_ + (gx#stx-e _%hd184120184435%_)))) + (let ((_%tl184124184445%_ (let () (declare (not safe)) - (##cdr _%e183963184281%_))) - (_%hd183964184284%_ + (##cdr _%e184122184440%_))) + (_%hd184123184443%_ (let () (declare (not safe)) - (##car _%e183963184281%_)))) + (##car _%e184122184440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183965184286%_)) + (gx#stx-null? _%tl184124184445%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183962184278%_)) - (let ((_%e183966184289%_ + (gx#stx-pair? _%tl184121184437%_)) + (let ((_%e184125184448%_ (let () (declare (not safe)) (gx#stx-e - _%tl183962184278%_)))) - (let ((_%tl183968184294%_ + _%tl184121184437%_)))) + (let ((_%tl184127184453%_ (let () (declare (not safe)) - (##cdr _%e183966184289%_))) - (_%hd183967184292%_ + (##cdr _%e184125184448%_))) + (_%hd184126184451%_ (let () (declare (not safe)) - (##car _%e183966184289%_)))) + (##car _%e184125184448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183968184294%_)) - (_%loop183949184255%_ - _%lp-tl183952184270%_ - (cons _%hd183967184292%_ - _%expr183953184260%_) - (cons _%hd183964184284%_ - _%id183954184262%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (let ((_%id183956184299%_ (reverse _%id183954184262%_)) - (_%expr183955184297%_ (reverse _%expr183953184260%_))) + _%tl184127184453%_)) + (_%loop184108184414%_ + _%lp-tl184111184429%_ + (cons _%hd184126184451%_ + _%expr184112184419%_) + (cons _%hd184123184443%_ + _%id184113184421%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (let ((_%id184115184458%_ (reverse _%id184113184421%_)) + (_%expr184114184456%_ (reverse _%expr184112184419%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183945184247%_)) - (let ((_%e183957184302%_ + (gx#stx-pair? _%tl184104184406%_)) + (let ((_%e184116184461%_ (let () (declare (not safe)) - (gx#stx-e _%tl183945184247%_)))) - (let ((_%tl183959184307%_ + (gx#stx-e _%tl184104184406%_)))) + (let ((_%tl184118184466%_ (let () (declare (not safe)) - (##cdr _%e183957184302%_))) - (_%hd183958184305%_ + (##cdr _%e184116184461%_))) + (_%hd184117184464%_ (let () (declare (not safe)) - (##car _%e183957184302%_)))) + (##car _%e184116184461%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183959184307%_)) - (_%__kont190448190449%_ - _%hd183958184305%_ - _%expr183955184297%_ - _%id183956184299%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))) + (gx#stx-null? _%tl184118184466%_)) + (_%__kont190607190608%_ + _%hd184117184464%_ + _%expr184114184456%_ + _%id184115184458%_) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183949184255%_ - _%target183946184250%_ + (_%loop184108184414%_ + _%target184105184409%_ '() '())))) - (_%__match190555190556%_ - (lambda (_%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_) - (letrec ((_%loop183911184371%_ - (lambda (_%hd183909184374%_ - _%xid183915184376%_ - _%id183916184378%_) + (_%__match190714190715%_ + (lambda (_%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_) + (letrec ((_%loop184070184530%_ + (lambda (_%hd184068184533%_ + _%xid184074184535%_ + _%id184075184537%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183909184374%_)) - (let ((_%e183912184381%_ + _%hd184068184533%_)) + (let ((_%e184071184540%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183909184374%_)))) - (let ((_%lp-tl183914184386%_ - (let () (declare (not safe)) (##cdr _%e183912184381%_))) - (_%lp-hd183913184384%_ + (gx#stx-e _%hd184068184533%_)))) + (let ((_%lp-tl184073184545%_ + (let () (declare (not safe)) (##cdr _%e184071184540%_))) + (_%lp-hd184072184543%_ (let () (declare (not safe)) - (##car _%e183912184381%_)))) + (##car _%e184071184540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd183913184384%_)) - (let ((_%e183922184389%_ + (gx#stx-pair? _%lp-hd184072184543%_)) + (let ((_%e184081184548%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd183913184384%_)))) - (let ((_%tl183924184394%_ + (gx#stx-e _%lp-hd184072184543%_)))) + (let ((_%tl184083184553%_ (let () (declare (not safe)) - (##cdr _%e183922184389%_))) - (_%hd183923184392%_ + (##cdr _%e184081184548%_))) + (_%hd184082184551%_ (let () (declare (not safe)) - (##car _%e183922184389%_)))) + (##car _%e184081184548%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183923184392%_)) - (let ((_%e183925184397%_ + (gx#stx-pair? _%hd184082184551%_)) + (let ((_%e184084184556%_ (let () (declare (not safe)) - (gx#stx-e _%hd183923184392%_)))) - (let ((_%tl183927184402%_ + (gx#stx-e _%hd184082184551%_)))) + (let ((_%tl184086184561%_ (let () (declare (not safe)) - (##cdr _%e183925184397%_))) - (_%hd183926184400%_ + (##cdr _%e184084184556%_))) + (_%hd184085184559%_ (let () (declare (not safe)) - (##car _%e183925184397%_)))) + (##car _%e184084184556%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183927184402%_)) + (gx#stx-null? _%tl184086184561%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183924184394%_)) - (let ((_%e183928184405%_ + (gx#stx-pair? _%tl184083184553%_)) + (let ((_%e184087184564%_ (let () (declare (not safe)) (gx#stx-e - _%tl183924184394%_)))) - (let ((_%tl183930184410%_ + _%tl184083184553%_)))) + (let ((_%tl184089184569%_ (let () (declare (not safe)) - (##cdr _%e183928184405%_))) - (_%hd183929184408%_ + (##cdr _%e184087184564%_))) + (_%hd184088184567%_ (let () (declare (not safe)) - (##car _%e183928184405%_)))) + (##car _%e184087184564%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183929184408%_)) - (let ((_%e183931184413%_ + _%hd184088184567%_)) + (let ((_%e184090184572%_ (let () (declare (not safe)) (gx#stx-e - _%hd183929184408%_)))) - (let ((_%tl183933184418%_ + _%hd184088184567%_)))) + (let ((_%tl184092184577%_ (let () (declare (not safe)) - (##cdr _%e183931184413%_))) - (_%hd183932184416%_ + (##cdr _%e184090184572%_))) + (_%hd184091184575%_ (let () (declare (not safe)) - (##car _%e183931184413%_)))) + (##car _%e184090184572%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183932184416%_)) + _%hd184091184575%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd183932184416%_)) + (gx#stx-eq? '%#ref _%hd184091184575%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183933184418%_)) - (let ((_%e183934184421%_ + (gx#stx-pair? _%tl184092184577%_)) + (let ((_%e184093184580%_ (let () (declare (not safe)) - (gx#stx-e _%tl183933184418%_)))) - (let ((_%tl183936184426%_ + (gx#stx-e _%tl184092184577%_)))) + (let ((_%tl184095184585%_ (let () (declare (not safe)) - (##cdr _%e183934184421%_))) - (_%hd183935184424%_ + (##cdr _%e184093184580%_))) + (_%hd184094184583%_ (let () (declare (not safe)) - (##car _%e183934184421%_)))) + (##car _%e184093184580%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183936184426%_)) + (gx#stx-null? _%tl184095184585%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183930184410%_)) - (_%loop183911184371%_ - _%lp-tl183914184386%_ - (cons _%hd183935184424%_ - _%xid183915184376%_) - (cons _%hd183926184400%_ - _%id183916184378%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) + (gx#stx-null? _%tl184089184569%_)) + (_%loop184070184530%_ + _%lp-tl184073184545%_ + (cons _%hd184094184583%_ + _%xid184074184535%_) + (cons _%hd184085184559%_ + _%id184075184537%_)) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (let ((_%id183918184431%_ (reverse _%id183916184378%_)) - (_%xid183917184429%_ (reverse _%xid183915184376%_))) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) + (let ((_%id184077184590%_ (reverse _%id184075184537%_)) + (_%xid184076184588%_ (reverse _%xid184074184535%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183907184363%_)) - (let ((_%e183919184434%_ + (gx#stx-pair? _%tl184066184522%_)) + (let ((_%e184078184593%_ (let () (declare (not safe)) - (gx#stx-e _%tl183907184363%_)))) - (let ((_%tl183921184439%_ + (gx#stx-e _%tl184066184522%_)))) + (let ((_%tl184080184598%_ (let () (declare (not safe)) - (##cdr _%e183919184434%_))) - (_%hd183920184437%_ + (##cdr _%e184078184593%_))) + (_%hd184079184596%_ (let () (declare (not safe)) - (##car _%e183919184434%_)))) + (##car _%e184078184593%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183921184439%_)) - (_%__kont190444190445%_ - _%hd183920184437%_ - _%xid183917184429%_ - _%id183918184431%_) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_))))))) + (gx#stx-null? _%tl184080184598%_)) + (_%__kont190603190604%_ + _%hd184079184596%_ + _%xid184076184588%_ + _%id184077184590%_) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_)))) + (_%__match190738190739%_ + _%e184061184509%_ + _%hd184062184512%_ + _%tl184063184514%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183911184371%_ - _%target183908184366%_ + (_%loop184070184530%_ + _%target184067184525%_ '() '())))) - (_%__match190501190502%_ - (lambda (_%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183860184550%_ - _%hd183861184553%_ - _%tl183862184555%_ - _%e183863184558%_ - _%hd183864184561%_ - _%tl183865184563%_ - _%e183866184566%_ - _%hd183867184569%_ - _%tl183868184571%_ - _%__splice190440190441%_ - _%target183869184574%_ - _%tl183871184576%_) - (letrec ((_%loop183872184579%_ - (lambda (_%hd183870184582%_ - _%id183876184584%_) + (_%__match190660190661%_ + (lambda (_%e184016184701%_ + _%hd184017184704%_ + _%tl184018184706%_ + _%e184019184709%_ + _%hd184020184712%_ + _%tl184021184714%_ + _%e184022184717%_ + _%hd184023184720%_ + _%tl184024184722%_ + _%e184025184725%_ + _%hd184026184728%_ + _%tl184027184730%_ + _%__splice190599190600%_ + _%target184028184733%_ + _%tl184030184735%_) + (letrec ((_%loop184031184738%_ + (lambda (_%hd184029184741%_ + _%id184035184743%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183870184582%_)) - (let ((_%e183873184587%_ + _%hd184029184741%_)) + (let ((_%e184032184746%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183870184582%_)))) - (let ((_%lp-tl183875184592%_ - (let () (declare (not safe)) (##cdr _%e183873184587%_))) - (_%lp-hd183874184590%_ + (gx#stx-e _%hd184029184741%_)))) + (let ((_%lp-tl184034184751%_ + (let () (declare (not safe)) (##cdr _%e184032184746%_))) + (_%lp-hd184033184749%_ (let () (declare (not safe)) - (##car _%e183873184587%_)))) + (##car _%e184032184746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd183874184590%_)) - (let ((_%e183878184595%_ + (gx#stx-pair? _%lp-hd184033184749%_)) + (let ((_%e184037184754%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd183874184590%_)))) - (let ((_%tl183880184600%_ + (gx#stx-e _%lp-hd184033184749%_)))) + (let ((_%tl184039184759%_ (let () (declare (not safe)) - (##cdr _%e183878184595%_))) - (_%hd183879184598%_ + (##cdr _%e184037184754%_))) + (_%hd184038184757%_ (let () (declare (not safe)) - (##car _%e183878184595%_)))) + (##car _%e184037184754%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183879184598%_)) + (gx#identifier? _%hd184038184757%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183879184598%_)) + (gx#stx-eq? '%#ref _%hd184038184757%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183880184600%_)) - (let ((_%e183881184603%_ + (gx#stx-pair? _%tl184039184759%_)) + (let ((_%e184040184762%_ (let () (declare (not safe)) - (gx#stx-e _%tl183880184600%_)))) - (let ((_%tl183883184608%_ + (gx#stx-e _%tl184039184759%_)))) + (let ((_%tl184042184767%_ (let () (declare (not safe)) - (##cdr _%e183881184603%_))) - (_%hd183882184606%_ + (##cdr _%e184040184762%_))) + (_%hd184041184765%_ (let () (declare (not safe)) - (##car _%e183881184603%_)))) + (##car _%e184040184762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183883184608%_)) - (_%loop183872184579%_ - _%lp-tl183875184592%_ - (cons _%hd183882184606%_ - _%id183876184584%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (let ((_%id183877184611%_ (reverse _%id183876184584%_))) - (_%__kont190438190439%_ - _%id183877184611%_ - _%hd183867184569%_)))))) + _%tl184042184767%_)) + (_%loop184031184738%_ + _%lp-tl184034184751%_ + (cons _%hd184041184765%_ + _%id184035184743%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (let ((_%id184036184770%_ (reverse _%id184035184743%_))) + (_%__kont190597190598%_ + _%id184036184770%_ + _%hd184026184728%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183872184579%_ - _%target183869184574%_ + (_%loop184031184738%_ + _%target184028184733%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190436190437%_)) - (let ((_%e183857184542%_ + (gx#stx-pair? _%__stx190595190596%_)) + (let ((_%e184016184701%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190436190437%_)))) - (let ((_%tl183859184547%_ + (gx#stx-e _%__stx190595190596%_)))) + (let ((_%tl184018184706%_ (let () (declare (not safe)) - (##cdr _%e183857184542%_))) - (_%hd183858184545%_ + (##cdr _%e184016184701%_))) + (_%hd184017184704%_ (let () (declare (not safe)) - (##car _%e183857184542%_)))) + (##car _%e184016184701%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183858184545%_)) + _%hd184017184704%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd183858184545%_)) + _%hd184017184704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183859184547%_)) - (let ((_%e183860184550%_ + _%tl184018184706%_)) + (let ((_%e184019184709%_ (let () (declare (not safe)) (gx#stx-e - _%tl183859184547%_)))) - (let ((_%tl183862184555%_ + _%tl184018184706%_)))) + (let ((_%tl184021184714%_ (let () (declare (not safe)) - (##cdr _%e183860184550%_))) - (_%hd183861184553%_ + (##cdr _%e184019184709%_))) + (_%hd184020184712%_ (let () (declare (not safe)) - (##car _%e183860184550%_)))) + (##car _%e184019184709%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183861184553%_)) - (let ((_%e183863184558%_ + _%hd184020184712%_)) + (let ((_%e184022184717%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd183861184553%_)))) - (let ((_%tl183865184563%_ + (gx#stx-e _%hd184020184712%_)))) + (let ((_%tl184024184722%_ (let () (declare (not safe)) - (##cdr _%e183863184558%_))) - (_%hd183864184561%_ + (##cdr _%e184022184717%_))) + (_%hd184023184720%_ (let () (declare (not safe)) - (##car _%e183863184558%_)))) + (##car _%e184022184717%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183864184561%_)) + (gx#identifier? _%hd184023184720%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183864184561%_)) + (gx#stx-eq? '%#ref _%hd184023184720%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183865184563%_)) - (let ((_%e183866184566%_ + (gx#stx-pair? _%tl184024184722%_)) + (let ((_%e184025184725%_ (let () (declare (not safe)) - (gx#stx-e _%tl183865184563%_)))) - (let ((_%tl183868184571%_ + (gx#stx-e _%tl184024184722%_)))) + (let ((_%tl184027184730%_ (let () (declare (not safe)) - (##cdr _%e183866184566%_))) - (_%hd183867184569%_ + (##cdr _%e184025184725%_))) + (_%hd184026184728%_ (let () (declare (not safe)) - (##car _%e183866184566%_)))) + (##car _%e184025184725%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183868184571%_)) + (gx#stx-null? _%tl184027184730%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl183862184555%_)) - (let ((_%__splice190440190441%_ + _%tl184021184714%_)) + (let ((_%__splice190599190600%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183862184555%_ + _%tl184021184714%_ '0)))) - (let ((_%tl183871184576%_ + (let ((_%tl184030184735%_ (let () (declare (not safe)) (##vector-ref - _%__splice190440190441%_ + _%__splice190599190600%_ '1))) - (_%target183869184574%_ + (_%target184028184733%_ (let () (declare (not safe)) (##vector-ref - _%__splice190440190441%_ + _%__splice190599190600%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183871184576%_)) - (_%__match190501190502%_ - _%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183860184550%_ - _%hd183861184553%_ - _%tl183862184555%_ - _%e183863184558%_ - _%hd183864184561%_ - _%tl183865184563%_ - _%e183866184566%_ - _%hd183867184569%_ - _%tl183868184571%_ - _%__splice190440190441%_ - _%target183869184574%_ - _%tl183871184576%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) + _%tl184030184735%_)) + (_%__match190660190661%_ + _%e184016184701%_ + _%hd184017184704%_ + _%tl184018184706%_ + _%e184019184709%_ + _%hd184020184712%_ + _%tl184021184714%_ + _%e184022184717%_ + _%hd184023184720%_ + _%tl184024184722%_ + _%e184025184725%_ + _%hd184026184728%_ + _%tl184027184730%_ + _%__splice190599190600%_ + _%target184028184733%_ + _%tl184030184735%_) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190458190459%_)) + (_%__kont190617190618%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd183858184545%_)) + _%hd184017184704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183859184547%_)) - (let ((_%e183890184488%_ + _%tl184018184706%_)) + (let ((_%e184049184647%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183859184547%_)))) - (let ((_%tl183892184493%_ - (let () (declare (not safe)) (##cdr _%e183890184488%_))) - (_%hd183891184491%_ + (gx#stx-e _%tl184018184706%_)))) + (let ((_%tl184051184652%_ + (let () (declare (not safe)) (##cdr _%e184049184647%_))) + (_%hd184050184650%_ (let () (declare (not safe)) - (##car _%e183890184488%_)))) + (##car _%e184049184647%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183892184493%_)) - (let ((_%e183893184496%_ + (gx#stx-pair? _%tl184051184652%_)) + (let ((_%e184052184655%_ (let () (declare (not safe)) - (gx#stx-e _%tl183892184493%_)))) - (let ((_%tl183895184501%_ + (gx#stx-e _%tl184051184652%_)))) + (let ((_%tl184054184660%_ (let () (declare (not safe)) - (##cdr _%e183893184496%_))) - (_%hd183894184499%_ + (##cdr _%e184052184655%_))) + (_%hd184053184658%_ (let () (declare (not safe)) - (##car _%e183893184496%_)))) + (##car _%e184052184655%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183895184501%_)) - (let ((_%e183896184504%_ + (gx#stx-pair? _%tl184054184660%_)) + (let ((_%e184055184663%_ (let () (declare (not safe)) - (gx#stx-e _%tl183895184501%_)))) - (let ((_%tl183898184509%_ + (gx#stx-e _%tl184054184660%_)))) + (let ((_%tl184057184668%_ (let () (declare (not safe)) - (##cdr _%e183896184504%_))) - (_%hd183897184507%_ + (##cdr _%e184055184663%_))) + (_%hd184056184666%_ (let () (declare (not safe)) - (##car _%e183896184504%_)))) + (##car _%e184055184663%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183898184509%_)) - (_%__kont190442190443%_ - _%hd183897184507%_ - _%hd183894184499%_ - _%hd183891184491%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) + (gx#stx-null? _%tl184057184668%_)) + (_%__kont190601190602%_ + _%hd184056184666%_ + _%hd184053184658%_ + _%hd184050184650%_) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183858184545%_)) + _%hd184017184704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183859184547%_)) - (let ((_%e183905184358%_ + _%tl184018184706%_)) + (let ((_%e184064184517%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183859184547%_)))) - (let ((_%tl183907184363%_ + (gx#stx-e _%tl184018184706%_)))) + (let ((_%tl184066184522%_ (let () (declare (not safe)) - (##cdr _%e183905184358%_))) - (_%hd183906184361%_ + (##cdr _%e184064184517%_))) + (_%hd184065184520%_ (let () (declare (not safe)) - (##car _%e183905184358%_)))) + (##car _%e184064184517%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd183906184361%_)) - (let ((_%__splice190446190447%_ + (gx#stx-pair/null? _%hd184065184520%_)) + (let ((_%__splice190605190606%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183906184361%_ + _%hd184065184520%_ '0)))) - (let ((_%tl183910184368%_ + (let ((_%tl184069184527%_ (let () (declare (not safe)) (##vector-ref - _%__splice190446190447%_ + _%__splice190605190606%_ '1))) - (_%target183908184366%_ + (_%target184067184525%_ (let () (declare (not safe)) (##vector-ref - _%__splice190446190447%_ + _%__splice190605190606%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183910184368%_)) - (_%__match190555190556%_ - _%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) + (gx#stx-null? _%tl184069184527%_)) + (_%__match190714190715%_ + _%e184016184701%_ + _%hd184017184704%_ + _%tl184018184706%_ + _%e184064184517%_ + _%hd184065184520%_ + _%tl184066184522%_ + _%__splice190605190606%_ + _%target184067184525%_ + _%tl184069184527%_) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd183858184545%_)) + (gx#stx-eq? '%#letrec-values _%hd184017184704%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183859184547%_)) - (let ((_%e183977184046%_ + (gx#stx-pair? _%tl184018184706%_)) + (let ((_%e184136184205%_ (let () (declare (not safe)) - (gx#stx-e _%tl183859184547%_)))) - (let ((_%tl183979184051%_ + (gx#stx-e _%tl184018184706%_)))) + (let ((_%tl184138184210%_ (let () (declare (not safe)) - (##cdr _%e183977184046%_))) - (_%hd183978184049%_ + (##cdr _%e184136184205%_))) + (_%hd184137184208%_ (let () (declare (not safe)) - (##car _%e183977184046%_)))) + (##car _%e184136184205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183978184049%_)) - (let ((_%e183980184054%_ + (gx#stx-pair? _%hd184137184208%_)) + (let ((_%e184139184213%_ (let () (declare (not safe)) - (gx#stx-e _%hd183978184049%_)))) - (let ((_%tl183982184059%_ + (gx#stx-e _%hd184137184208%_)))) + (let ((_%tl184141184218%_ (let () (declare (not safe)) - (##cdr _%e183980184054%_))) - (_%hd183981184057%_ + (##cdr _%e184139184213%_))) + (_%hd184140184216%_ (let () (declare (not safe)) - (##car _%e183980184054%_)))) + (##car _%e184139184213%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183981184057%_)) - (let ((_%e183983184062%_ + (gx#stx-pair? _%hd184140184216%_)) + (let ((_%e184142184221%_ (let () (declare (not safe)) - (gx#stx-e _%hd183981184057%_)))) - (let ((_%tl183985184067%_ + (gx#stx-e _%hd184140184216%_)))) + (let ((_%tl184144184226%_ (let () (declare (not safe)) - (##cdr _%e183983184062%_))) - (_%hd183984184065%_ + (##cdr _%e184142184221%_))) + (_%hd184143184224%_ (let () (declare (not safe)) - (##car _%e183983184062%_)))) + (##car _%e184142184221%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183984184065%_)) - (let ((_%e183986184070%_ + _%hd184143184224%_)) + (let ((_%e184145184229%_ (let () (declare (not safe)) (gx#stx-e - _%hd183984184065%_)))) - (let ((_%tl183988184075%_ + _%hd184143184224%_)))) + (let ((_%tl184147184234%_ (let () (declare (not safe)) - (##cdr _%e183986184070%_))) - (_%hd183987184073%_ + (##cdr _%e184145184229%_))) + (_%hd184146184232%_ (let () (declare (not safe)) - (##car _%e183986184070%_)))) + (##car _%e184145184229%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183988184075%_)) + _%tl184147184234%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183985184067%_)) - (let ((_%e183989184078%_ + _%tl184144184226%_)) + (let ((_%e184148184237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183985184067%_)))) - (let ((_%tl183991184083%_ + (gx#stx-e _%tl184144184226%_)))) + (let ((_%tl184150184242%_ (let () (declare (not safe)) - (##cdr _%e183989184078%_))) - (_%hd183990184081%_ + (##cdr _%e184148184237%_))) + (_%hd184149184240%_ (let () (declare (not safe)) - (##car _%e183989184078%_)))) + (##car _%e184148184237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183990184081%_)) - (let ((_%e183992184086%_ + (gx#stx-pair? _%hd184149184240%_)) + (let ((_%e184151184245%_ (let () (declare (not safe)) - (gx#stx-e _%hd183990184081%_)))) - (let ((_%tl183994184091%_ + (gx#stx-e _%hd184149184240%_)))) + (let ((_%tl184153184250%_ (let () (declare (not safe)) - (##cdr _%e183992184086%_))) - (_%hd183993184089%_ + (##cdr _%e184151184245%_))) + (_%hd184152184248%_ (let () (declare (not safe)) - (##car _%e183992184086%_)))) + (##car _%e184151184245%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183993184089%_)) + (gx#identifier? _%hd184152184248%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd183993184089%_)) + _%hd184152184248%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183994184091%_)) - (let ((_%e183995184094%_ + (gx#stx-pair? _%tl184153184250%_)) + (let ((_%e184154184253%_ (let () (declare (not safe)) (gx#stx-e - _%tl183994184091%_)))) - (let ((_%tl183997184099%_ + _%tl184153184250%_)))) + (let ((_%tl184156184258%_ (let () (declare (not safe)) - (##cdr _%e183995184094%_))) - (_%hd183996184097%_ + (##cdr _%e184154184253%_))) + (_%hd184155184256%_ (let () (declare (not safe)) - (##car _%e183995184094%_)))) + (##car _%e184154184253%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd183996184097%_)) - (let ((_%__splice190454190455%_ + _%hd184155184256%_)) + (let ((_%__splice190613190614%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183996184097%_ + _%hd184155184256%_ '0)))) - (let ((_%tl184000184104%_ + (let ((_%tl184159184263%_ (let () (declare (not safe)) (##vector-ref - _%__splice190454190455%_ + _%__splice190613190614%_ '1))) - (_%target183998184102%_ + (_%target184157184261%_ (let () (declare (not safe)) (##vector-ref - _%__splice190454190455%_ + _%__splice190613190614%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184000184104%_)) - (_%__match190645190646%_ - _%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183977184046%_ - _%hd183978184049%_ - _%tl183979184051%_ - _%e183980184054%_ - _%hd183981184057%_ - _%tl183982184059%_ - _%e183983184062%_ - _%hd183984184065%_ - _%tl183985184067%_ - _%e183986184070%_ - _%hd183987184073%_ - _%tl183988184075%_ - _%e183989184078%_ - _%hd183990184081%_ - _%tl183991184083%_ - _%e183992184086%_ - _%hd183993184089%_ - _%tl183994184091%_ - _%e183995184094%_ - _%hd183996184097%_ - _%tl183997184099%_ - _%__splice190454190455%_ - _%target183998184102%_ - _%tl184000184104%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) + _%tl184159184263%_)) + (_%__match190804190805%_ + _%e184016184701%_ + _%hd184017184704%_ + _%tl184018184706%_ + _%e184136184205%_ + _%hd184137184208%_ + _%tl184138184210%_ + _%e184139184213%_ + _%hd184140184216%_ + _%tl184141184218%_ + _%e184142184221%_ + _%hd184143184224%_ + _%tl184144184226%_ + _%e184145184229%_ + _%hd184146184232%_ + _%tl184147184234%_ + _%e184148184237%_ + _%hd184149184240%_ + _%tl184150184242%_ + _%e184151184245%_ + _%hd184152184248%_ + _%tl184153184250%_ + _%e184154184253%_ + _%hd184155184256%_ + _%tl184156184258%_ + _%__splice190613190614%_ + _%target184157184261%_ + _%tl184159184263%_) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_))))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)))) + (_%__kont190617190618%_)) + (_%__kont190617190618%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))))) - (_%optimize-f__0__189137189138%_ - (lambda (_%expr184752%_) - (let ((_%test184754%_ '#f)) - (_%optimize-f__189135189136%_ - _%expr184752%_ - _%test184754%_)))) - (_%optimize-f181780%_ - (lambda _g192296_ - (let ((_g192295_ + (_%__kont190617190618%_)))) + (_%__kont190617190618%_))))))))) + (_%optimize-f__0__189296189297%_ + (lambda (_%expr184911%_) + (let ((_%test184913%_ '#f)) + (_%optimize-f__189294189295%_ + _%expr184911%_ + _%test184913%_)))) + (_%optimize-f181939%_ + (lambda _g192455_ + (let ((_g192454_ (let () (declare (not safe)) - (##length _g192296_)))) - (cond ((let () (declare (not safe)) (##fx= _g192295_ 1)) - (apply _%optimize-f__0__189137189138%_ - _g192296_)) - ((let () (declare (not safe)) (##fx= _g192295_ 2)) - (apply _%optimize-f__189135189136%_ _g192296_)) + (##length _g192455_)))) + (cond ((let () (declare (not safe)) (##fx= _g192454_ 1)) + (apply _%optimize-f__0__189296189297%_ + _g192455_)) + ((let () (declare (not safe)) (##fx= _g192454_ 2)) + (apply _%optimize-f__189294189295%_ _g192455_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192296_)))))) - (_%assert-e181781%_ - (lambda (_%expr182781%_) - (let* ((_%sexpr182783%_ - (gxc#apply-generate-runtime-repr _%expr182781%_)) - (_%$e182785%_ - (assoc _%sexpr182783%_ _%env-assert181763%_))) - (if _%$e182785%_ - (cdr _%$e182785%_) - (let _%assert182789%_ ((_%expr182791%_ - _%expr182781%_)) - (let* ((_%__stx190742190743%_ _%expr182791%_) - (_%g182799182978%_ + _g192455_)))))) + (_%assert-e181940%_ + (lambda (_%expr182940%_) + (let* ((_%sexpr182942%_ + (gxc#apply-generate-runtime-repr _%expr182940%_)) + (_%$e182944%_ + (assoc _%sexpr182942%_ _%env-assert181922%_))) + (if _%$e182944%_ + (cdr _%$e182944%_) + (let _%assert182948%_ ((_%expr182950%_ + _%expr182940%_)) + (let* ((_%__stx190901190902%_ _%expr182950%_) + (_%g182958183137%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190742190743%_))))) - (let ((_%__kont190744190745%_ - (lambda (_%L183811%_ _%L183812%_) - (let ((_%$e183834%_ - (_%predicate-type181768%_ - _%L183812%_))) - (if _%$e183834%_ - ((lambda (_%t183837%_) - (_%assert-type181782%_ - _%L183811%_ - _%t183837%_)) - _%$e183834%_) + _%__stx190901190902%_))))) + (let ((_%__kont190903190904%_ + (lambda (_%L183970%_ _%L183971%_) + (let ((_%$e183993%_ + (_%predicate-type181927%_ + _%L183971%_))) + (if _%$e183993%_ + ((lambda (_%t183996%_) + (_%assert-type181941%_ + _%L183970%_ + _%t183996%_)) + _%$e183993%_) '#!void)))) - (_%__kont190746190747%_ - (lambda (_%L183503%_ - _%L183504%_ - _%L183505%_) - (let ((_%$e183530%_ + (_%__kont190905190906%_ + (lambda (_%L183662%_ + _%L183663%_ + _%L183664%_) + (let ((_%$e183689%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183505%_)))) - (if (or (eq? '##fx= _%$e183530%_) - (eq? 'fx= _%$e183530%_)) - (let* ((_%__stx190648190649%_ - _%L183504%_) - (_%g183537183566%_ + _%L183664%_)))) + (if (or (eq? '##fx= _%$e183689%_) + (eq? 'fx= _%$e183689%_)) + (let* ((_%__stx190807190808%_ + _%L183663%_) + (_%g183696183725%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190648190649%_))))) - (let ((_%__kont190650190651%_ - (lambda (_%L183634%_ - _%L183635%_) - (let ((_%$e183660%_ - (_%countf-symbol181770%_ + _%__stx190807190808%_))))) + (let ((_%__kont190809190810%_ + (lambda (_%L183793%_ + _%L183794%_) + (let ((_%$e183819%_ + (_%countf-symbol181929%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183635%_))) - (if _%$e183660%_ - ((lambda (_%sym183663%_) - (_%assert-count181783%_ - _%L183634%_ - _%sym183663%_ + _%L183794%_))) + (if _%$e183819%_ + ((lambda (_%sym183822%_) + (_%assert-count181942%_ + _%L183793%_ + _%sym183822%_ (let () (declare (not safe)) - (gx#stx-e _%L183503%_)))) - _%$e183660%_) + (gx#stx-e _%L183662%_)))) + _%$e183819%_) '#!void)))) - (_%__kont190652190653%_ (lambda () '#!void))) + (_%__kont190811190812%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190648190649%_)) - (let ((_%e183541183578%_ + _%__stx190807190808%_)) + (let ((_%e183700183737%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx190648190649%_)))) - (let ((_%tl183543183583%_ - (let () (declare (not safe)) (##cdr _%e183541183578%_))) - (_%hd183542183581%_ + (gx#stx-e _%__stx190807190808%_)))) + (let ((_%tl183702183742%_ + (let () (declare (not safe)) (##cdr _%e183700183737%_))) + (_%hd183701183740%_ (let () (declare (not safe)) - (##car _%e183541183578%_)))) + (##car _%e183700183737%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183542183581%_)) + (gx#identifier? _%hd183701183740%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd183542183581%_)) + (gx#stx-eq? '%#call _%hd183701183740%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183543183583%_)) - (let ((_%e183544183586%_ + (gx#stx-pair? _%tl183702183742%_)) + (let ((_%e183703183745%_ (let () (declare (not safe)) - (gx#stx-e _%tl183543183583%_)))) - (let ((_%tl183546183591%_ + (gx#stx-e _%tl183702183742%_)))) + (let ((_%tl183705183750%_ (let () (declare (not safe)) - (##cdr _%e183544183586%_))) - (_%hd183545183589%_ + (##cdr _%e183703183745%_))) + (_%hd183704183748%_ (let () (declare (not safe)) - (##car _%e183544183586%_)))) + (##car _%e183703183745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183545183589%_)) - (let ((_%e183547183594%_ + (gx#stx-pair? _%hd183704183748%_)) + (let ((_%e183706183753%_ (let () (declare (not safe)) - (gx#stx-e _%hd183545183589%_)))) - (let ((_%tl183549183599%_ + (gx#stx-e _%hd183704183748%_)))) + (let ((_%tl183708183758%_ (let () (declare (not safe)) - (##cdr _%e183547183594%_))) - (_%hd183548183597%_ + (##cdr _%e183706183753%_))) + (_%hd183707183756%_ (let () (declare (not safe)) - (##car _%e183547183594%_)))) + (##car _%e183706183753%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183548183597%_)) + _%hd183707183756%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183548183597%_)) + _%hd183707183756%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183549183599%_)) - (let ((_%e183550183602%_ + _%tl183708183758%_)) + (let ((_%e183709183761%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183549183599%_)))) - (let ((_%tl183552183607%_ - (let () (declare (not safe)) (##cdr _%e183550183602%_))) - (_%hd183551183605%_ + (gx#stx-e _%tl183708183758%_)))) + (let ((_%tl183711183766%_ + (let () (declare (not safe)) (##cdr _%e183709183761%_))) + (_%hd183710183764%_ (let () (declare (not safe)) - (##car _%e183550183602%_)))) + (##car _%e183709183761%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183552183607%_)) + (gx#stx-null? _%tl183711183766%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183546183591%_)) - (let ((_%e183553183610%_ + (gx#stx-pair? _%tl183705183750%_)) + (let ((_%e183712183769%_ (let () (declare (not safe)) - (gx#stx-e _%tl183546183591%_)))) - (let ((_%tl183555183615%_ + (gx#stx-e _%tl183705183750%_)))) + (let ((_%tl183714183774%_ (let () (declare (not safe)) - (##cdr _%e183553183610%_))) - (_%hd183554183613%_ + (##cdr _%e183712183769%_))) + (_%hd183713183772%_ (let () (declare (not safe)) - (##car _%e183553183610%_)))) + (##car _%e183712183769%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183554183613%_)) - (let ((_%e183556183618%_ + (gx#stx-pair? _%hd183713183772%_)) + (let ((_%e183715183777%_ (let () (declare (not safe)) - (gx#stx-e _%hd183554183613%_)))) - (let ((_%tl183558183623%_ + (gx#stx-e _%hd183713183772%_)))) + (let ((_%tl183717183782%_ (let () (declare (not safe)) - (##cdr _%e183556183618%_))) - (_%hd183557183621%_ + (##cdr _%e183715183777%_))) + (_%hd183716183780%_ (let () (declare (not safe)) - (##car _%e183556183618%_)))) + (##car _%e183715183777%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183557183621%_)) + _%hd183716183780%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183557183621%_)) + _%hd183716183780%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183558183623%_)) - (let ((_%e183559183626%_ + _%tl183717183782%_)) + (let ((_%e183718183785%_ (let () (declare (not safe)) (gx#stx-e - _%tl183558183623%_)))) - (let ((_%tl183561183631%_ + _%tl183717183782%_)))) + (let ((_%tl183720183790%_ (let () (declare (not safe)) - (##cdr _%e183559183626%_))) - (_%hd183560183629%_ + (##cdr _%e183718183785%_))) + (_%hd183719183788%_ (let () (declare (not safe)) - (##car _%e183559183626%_)))) + (##car _%e183718183785%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183561183631%_)) + _%tl183720183790%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183555183615%_)) - (_%__kont190650190651%_ - _%hd183560183629%_ - _%hd183551183605%_) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) + (gx#stx-null? _%tl183714183774%_)) + (_%__kont190809190810%_ + _%hd183719183788%_ + _%hd183710183764%_) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190652190653%_)) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)))) + (_%__kont190811190812%_)))) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)))) + (_%__kont190811190812%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)))) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)))) + (_%__kont190811190812%_)))) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)) + (_%__kont190811190812%_)))) + (_%__kont190811190812%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e183530%_) - (eq? 'eq? _%$e183530%_) + (if (or (eq? '##eq? _%$e183689%_) + (eq? 'eq? _%$e183689%_) (eq? '##eqv? - _%$e183530%_) - (eq? 'eqv? _%$e183530%_) + _%$e183689%_) + (eq? 'eqv? _%$e183689%_) (eq? '##equal? - _%$e183530%_) + _%$e183689%_) (eq? 'equal? - _%$e183530%_) + _%$e183689%_) (eq? 'gx#free-identifier=? - _%$e183530%_) + _%$e183689%_) (eq? 'gx#stx-eq? - _%$e183530%_)) - ((lambda (_%sym183690%_) - (let* ((_%__stx190716190717%_ - _%L183504%_) - (_%g183693183706%_ + _%$e183689%_)) + ((lambda (_%sym183849%_) + (let* ((_%__stx190875190876%_ + _%L183663%_) + (_%g183852183865%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8645,71 +8645,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190716190717%_))))) - (let ((_%__kont190718190719%_ - (lambda (_%L183734%_) - (_%assert-eqf181784%_ - _%L183734%_ - (_%eqf-symbol181771%_ _%sym183690%_) + _%__stx190875190876%_))))) + (let ((_%__kont190877190878%_ + (lambda (_%L183893%_) + (_%assert-eqf181943%_ + _%L183893%_ + (_%eqf-symbol181930%_ _%sym183849%_) (let () (declare (not safe)) - (gx#stx-e _%L183503%_))))) - (_%__kont190720190721%_ (lambda () '#!void))) + (gx#stx-e _%L183662%_))))) + (_%__kont190879190880%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190716190717%_)) - (let ((_%e183696183718%_ + (gx#stx-pair? _%__stx190875190876%_)) + (let ((_%e183855183877%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190716190717%_)))) - (let ((_%tl183698183723%_ + (gx#stx-e _%__stx190875190876%_)))) + (let ((_%tl183857183882%_ (let () (declare (not safe)) - (##cdr _%e183696183718%_))) - (_%hd183697183721%_ + (##cdr _%e183855183877%_))) + (_%hd183856183880%_ (let () (declare (not safe)) - (##car _%e183696183718%_)))) + (##car _%e183855183877%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183697183721%_)) + (gx#identifier? _%hd183856183880%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183697183721%_)) + (gx#stx-eq? '%#ref _%hd183856183880%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183698183723%_)) - (let ((_%e183699183726%_ + (gx#stx-pair? _%tl183857183882%_)) + (let ((_%e183858183885%_ (let () (declare (not safe)) - (gx#stx-e _%tl183698183723%_)))) - (let ((_%tl183701183731%_ + (gx#stx-e _%tl183857183882%_)))) + (let ((_%tl183860183890%_ (let () (declare (not safe)) - (##cdr _%e183699183726%_))) - (_%hd183700183729%_ + (##cdr _%e183858183885%_))) + (_%hd183859183888%_ (let () (declare (not safe)) - (##car _%e183699183726%_)))) + (##car _%e183858183885%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183701183731%_)) - (_%__kont190718190719%_ - _%hd183700183729%_) - (_%__kont190720190721%_)))) - (_%__kont190720190721%_)) - (_%__kont190720190721%_)) - (_%__kont190720190721%_)))) - (_%__kont190720190721%_))))) + _%tl183860183890%_)) + (_%__kont190877190878%_ + _%hd183859183888%_) + (_%__kont190879190880%_)))) + (_%__kont190879190880%_)) + (_%__kont190879190880%_)) + (_%__kont190879190880%_)))) + (_%__kont190879190880%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183530%_) + _%$e183689%_) '#!void))))) - (_%__kont190748190749%_ - (lambda (_%L183407%_ - _%L183408%_ - _%L183409%_) - (_%assert182789%_ + (_%__kont190907190908%_ + (lambda (_%L183566%_ + _%L183567%_ + _%L183568%_) + (_%assert182948%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8721,44 +8721,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183409%_ + (cons _%L183568%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183407%_ + (cons _%L183566%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L183408%_ '())) + (cons _%L183567%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190750190751%_ - (lambda (_%L183299%_ - _%L183300%_ - _%L183301%_) - (let ((_%$e183330%_ + (_%__kont190909190910%_ + (lambda (_%L183458%_ + _%L183459%_ + _%L183460%_) + (let ((_%$e183489%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183301%_)))) + _%L183460%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e183330%_) + _%$e183489%_) (eq? 'gx#stx-eq? - _%$e183330%_)) - ((lambda (_%sym183336%_) - (_%assert-eqf181784%_ - _%L183300%_ - (_%eqf-symbol181771%_ - _%sym183336%_) - _%L183299%_)) - _%$e183330%_) + _%$e183489%_)) + ((lambda (_%sym183495%_) + (_%assert-eqf181943%_ + _%L183459%_ + (_%eqf-symbol181930%_ + _%sym183495%_) + _%L183458%_)) + _%$e183489%_) '#!void)))) - (_%__kont190752190753%_ - (lambda (_%L183183%_ - _%L183184%_ - _%L183185%_) - (_%assert182789%_ + (_%__kont190911190912%_ + (lambda (_%L183342%_ + _%L183343%_ + _%L183344%_) + (_%assert182948%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8770,7 +8770,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183185%_ + (cons _%L183344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8778,4368 +8778,4368 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183183%_ '())) + (cons _%L183342%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L183184%_ '())) + (cons _%L183343%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190754190755%_ - (lambda (_%L183062%_ - _%L183063%_ - _%L183064%_) - (_%assert182789%_ + (_%__kont190913190914%_ + (lambda (_%L183221%_ + _%L183222%_ + _%L183223%_) + (_%assert182948%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L183064%_ - _%L183062%_ - _%L183063%_))))) - (_%__kont190756190757%_ + _%L183223%_ + _%L183221%_ + _%L183222%_))))) + (_%__kont190915190916%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190742190743%_)) - (let ((_%e182803183755%_ + (gx#stx-pair? _%__stx190901190902%_)) + (let ((_%e182962183914%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190742190743%_)))) - (let ((_%tl182805183760%_ + _%__stx190901190902%_)))) + (let ((_%tl182964183919%_ (let () (declare (not safe)) - (##cdr _%e182803183755%_))) - (_%hd182804183758%_ + (##cdr _%e182962183914%_))) + (_%hd182963183917%_ (let () (declare (not safe)) - (##car _%e182803183755%_)))) + (##car _%e182962183914%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182804183758%_)) + _%hd182963183917%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd182804183758%_)) + _%hd182963183917%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182805183760%_)) - (let ((_%e182806183763%_ + _%tl182964183919%_)) + (let ((_%e182965183922%_ (let () (declare (not safe)) (gx#stx-e - _%tl182805183760%_)))) - (let ((_%tl182808183768%_ + _%tl182964183919%_)))) + (let ((_%tl182967183927%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182806183763%_))) - (_%hd182807183766%_ - (let () (declare (not safe)) (##car _%e182806183763%_)))) + (##cdr _%e182965183922%_))) + (_%hd182966183925%_ + (let () (declare (not safe)) (##car _%e182965183922%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182807183766%_)) - (let ((_%e182809183771%_ + (gx#stx-pair? _%hd182966183925%_)) + (let ((_%e182968183930%_ (let () (declare (not safe)) - (gx#stx-e _%hd182807183766%_)))) - (let ((_%tl182811183776%_ + (gx#stx-e _%hd182966183925%_)))) + (let ((_%tl182970183935%_ (let () (declare (not safe)) - (##cdr _%e182809183771%_))) - (_%hd182810183774%_ + (##cdr _%e182968183930%_))) + (_%hd182969183933%_ (let () (declare (not safe)) - (##car _%e182809183771%_)))) + (##car _%e182968183930%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182810183774%_)) + (gx#identifier? _%hd182969183933%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182810183774%_)) + (gx#stx-eq? '%#ref _%hd182969183933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182811183776%_)) - (let ((_%e182812183779%_ + (gx#stx-pair? _%tl182970183935%_)) + (let ((_%e182971183938%_ (let () (declare (not safe)) - (gx#stx-e _%tl182811183776%_)))) - (let ((_%tl182814183784%_ + (gx#stx-e _%tl182970183935%_)))) + (let ((_%tl182973183943%_ (let () (declare (not safe)) - (##cdr _%e182812183779%_))) - (_%hd182813183782%_ + (##cdr _%e182971183938%_))) + (_%hd182972183941%_ (let () (declare (not safe)) - (##car _%e182812183779%_)))) + (##car _%e182971183938%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182814183784%_)) + _%tl182973183943%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182808183768%_)) - (let ((_%e182815183787%_ + _%tl182967183927%_)) + (let ((_%e182974183946%_ (let () (declare (not safe)) (gx#stx-e - _%tl182808183768%_)))) - (let ((_%tl182817183792%_ + _%tl182967183927%_)))) + (let ((_%tl182976183951%_ (let () (declare (not safe)) - (##cdr _%e182815183787%_))) - (_%hd182816183790%_ + (##cdr _%e182974183946%_))) + (_%hd182975183949%_ (let () (declare (not safe)) - (##car _%e182815183787%_)))) + (##car _%e182974183946%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182816183790%_)) - (let ((_%e182818183795%_ + _%hd182975183949%_)) + (let ((_%e182977183954%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd182816183790%_)))) - (let ((_%tl182820183800%_ + (gx#stx-e _%hd182975183949%_)))) + (let ((_%tl182979183959%_ (let () (declare (not safe)) - (##cdr _%e182818183795%_))) - (_%hd182819183798%_ + (##cdr _%e182977183954%_))) + (_%hd182978183957%_ (let () (declare (not safe)) - (##car _%e182818183795%_)))) + (##car _%e182977183954%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182819183798%_)) + (gx#identifier? _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182819183798%_)) + (gx#stx-eq? '%#ref _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182821183803%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e182980183962%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182823183808%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl182982183967%_ (let () (declare (not safe)) - (##cdr _%e182821183803%_))) - (_%hd182822183806%_ + (##cdr _%e182980183962%_))) + (_%hd182981183965%_ (let () (declare (not safe)) - (##car _%e182821183803%_)))) + (##car _%e182980183962%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182823183808%_)) + (gx#stx-null? _%tl182982183967%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182817183792%_)) - (_%__kont190744190745%_ - _%hd182822183806%_ - _%hd182813183782%_) + _%tl182976183951%_)) + (_%__kont190903190904%_ + _%hd182981183965%_ + _%hd182972183941%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182817183792%_)) - (let ((_%e182842183479%_ + _%tl182976183951%_)) + (let ((_%e183001183638%_ (let () (declare (not safe)) (gx#stx-e - _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + _%tl182976183951%_)))) + (let ((_%tl183003183643%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e183001183638%_))) + (_%hd183002183641%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e183001183638%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182843183482%_)) - (let ((_%e182845183487%_ + _%hd183002183641%_)) + (let ((_%e183004183646%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + (gx#stx-e _%hd183002183641%_)))) + (let ((_%tl183006183651%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e183004183646%_))) + (_%hd183005183649%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e183004183646%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182846183490%_)) + (gx#identifier? _%hd183005183649%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182846183490%_)) + (gx#stx-eq? '%#quote _%hd183005183649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182848183495%_ + (gx#stx-pair? _%tl183006183651%_)) + (let ((_%e183007183654%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl183006183651%_)))) + (let ((_%tl183009183659%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e183007183654%_))) + (_%hd183008183657%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e183007183654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl183009183659%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + _%tl183003183643%_)) + (_%__kont190905190906%_ + _%hd183008183657%_ + _%hd182975183949%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182908183291%_ + (gx#stx-pair? _%tl183006183651%_)) + (let ((_%e183067183450%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182910183296%_ + (gx#stx-e _%tl183006183651%_)))) + (let ((_%tl183069183455%_ (let () (declare (not safe)) - (##cdr _%e182908183291%_))) - (_%hd182909183294%_ + (##cdr _%e183067183450%_))) + (_%hd183068183453%_ (let () (declare (not safe)) - (##car _%e182908183291%_)))) + (##car _%e183067183450%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182910183296%_)) + _%tl183069183455%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190750190751%_ - _%hd182909183294%_ - _%hd182822183806%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) + _%tl183003183643%_)) + (_%__kont190909190910%_ + _%hd183068183453%_ + _%hd182981183965%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_))) + (_%__kont190915190916%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182817183792%_)) - (let ((_%e182842183479%_ + _%tl182976183951%_)) + (let ((_%e183001183638%_ (let () (declare (not safe)) (gx#stx-e - _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + _%tl182976183951%_)))) + (let ((_%tl183003183643%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e183001183638%_))) + (_%hd183002183641%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e183001183638%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182843183482%_)) - (let ((_%e182845183487%_ + _%hd183002183641%_)) + (let ((_%e183004183646%_ (let () (declare (not safe)) (gx#stx-e - _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + _%hd183002183641%_)))) + (let ((_%tl183006183651%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ - (let () (declare (not safe)) (##car _%e182845183487%_)))) + (##cdr _%e183004183646%_))) + (_%hd183005183649%_ + (let () (declare (not safe)) (##car _%e183004183646%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182846183490%_)) + (gx#identifier? _%hd183005183649%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182846183490%_)) + (gx#stx-eq? '%#quote _%hd183005183649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182848183495%_ + (gx#stx-pair? _%tl183006183651%_)) + (let ((_%e183007183654%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl183006183651%_)))) + (let ((_%tl183009183659%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e183007183654%_))) + (_%hd183008183657%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e183007183654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl183009183659%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190905190906%_ + _%hd183008183657%_ + _%hd182975183949%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl182976183951%_)) + (let ((_%e183001183638%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl182976183951%_)))) + (let ((_%tl183003183643%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e183001183638%_))) + (_%hd183002183641%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e183001183638%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182843183482%_)) - (let ((_%e182845183487%_ + _%hd183002183641%_)) + (let ((_%e183004183646%_ (let () (declare (not safe)) (gx#stx-e - _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + _%hd183002183641%_)))) + (let ((_%tl183006183651%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e183004183646%_))) + (_%hd183005183649%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e183004183646%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182848183495%_ + (gx#stx-pair? _%tl183006183651%_)) + (let ((_%e183007183654%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl183006183651%_)))) + (let ((_%tl183009183659%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e183007183654%_))) + (_%hd183008183657%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e183007183654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl183009183659%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190905190906%_ + _%hd183008183657%_ + _%hd182975183949%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl182976183951%_)) + (let ((_%e183001183638%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl182976183951%_)))) + (let ((_%tl183003183643%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e183001183638%_))) + (_%hd183002183641%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e183001183638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182843183482%_)) - (let ((_%e182845183487%_ + (gx#stx-pair? _%hd183002183641%_)) + (let ((_%e183004183646%_ (let () (declare (not safe)) (gx#stx-e - _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + _%hd183002183641%_)))) + (let ((_%tl183006183651%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e183004183646%_))) + (_%hd183005183649%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e183004183646%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182847183492%_)) - (let ((_%e182848183495%_ + _%tl183006183651%_)) + (let ((_%e183007183654%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl183006183651%_)))) + (let ((_%tl183009183659%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e183007183654%_))) + (_%hd183008183657%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e183007183654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl183009183659%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190905190906%_ + _%hd183008183657%_ + _%hd182975183949%_ + _%hd182972183941%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182819183798%_)) + (gx#stx-eq? '%#quote _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) + (##car _%e183031183550%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (##car _%e183091183310%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182819183798%_)) + (gx#stx-eq? '%#quote _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e183031183550%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl183033183555%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + _%tl183003183643%_)) + (_%__kont190907190908%_ + _%hd183002183641%_ + _%hd183032183553%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))))) + (##car _%e183091183310%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182819183798%_)) + (gx#stx-eq? '%#quote _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e183031183550%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl183033183555%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190907190908%_ + _%hd183002183641%_ + _%hd183032183553%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd182819183798%_)) + (gx#stx-eq? '%#quote-syntax _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (##car _%e183091183310%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e183031183550%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl183033183555%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190907190908%_ + _%hd183002183641%_ + _%hd183032183553%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd182819183798%_)) + (gx#stx-eq? '%#quote-syntax _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) + (##car _%e183091183310%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182934183156%_)) + (gx#stx-null? _%tl183093183315%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182846183490%_)) + (gx#stx-eq? '%#ref _%hd183005183649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182941183175%_ + (gx#stx-pair? _%tl183006183651%_)) + (let ((_%e183100183334%_ (let () (declare (not safe)) (gx#stx-e - _%tl182847183492%_)))) - (let ((_%tl182943183180%_ + _%tl183006183651%_)))) + (let ((_%tl183102183339%_ (let () (declare (not safe)) - (##cdr _%e182941183175%_))) - (_%hd182942183178%_ + (##cdr _%e183100183334%_))) + (_%hd183101183337%_ (let () (declare (not safe)) - (##car _%e182941183175%_)))) + (##car _%e183100183334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182943183180%_)) + _%tl183102183339%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190752190753%_ - _%hd182942183178%_ - _%hd182933183154%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + _%tl183003183643%_)) + (_%__kont190911190912%_ + _%hd183101183337%_ + _%hd183092183313%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182872183391%_ + _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e183031183550%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl183033183555%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190907190908%_ + _%hd183002183641%_ + _%hd183032183553%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))))) + (##car _%e183091183310%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182872183391%_ + _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e183031183550%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182874183396%_)) + _%tl183033183555%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190907190908%_ + _%hd183002183641%_ + _%hd183032183553%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182932183151%_ + _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ - (let () (declare (not safe)) (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ + (let () (declare (not safe)) (##car _%e183091183310%_)))) + (_%__kont190915190916%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl182979183959%_)) + (let ((_%e183031183550%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + _%tl182979183959%_)))) + (let ((_%tl183033183555%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e183031183550%_))) + (_%hd183032183553%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) + (##car _%e183031183550%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd182978183957%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182932183151%_ + _%tl182979183959%_)) + (let ((_%e183091183310%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + _%tl182979183959%_)))) + (let ((_%tl183093183315%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e183091183310%_))) + (_%hd183092183313%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_))))) + (##car _%e183091183310%_)))) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl182976183951%_)) + (let ((_%e183001183638%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl182976183951%_)))) + (let ((_%tl183003183643%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e183001183638%_))) + (_%hd183002183641%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e183001183638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182843183482%_)) - (let ((_%e182845183487%_ + (gx#stx-pair? _%hd183002183641%_)) + (let ((_%e183004183646%_ (let () (declare (not safe)) - (gx#stx-e _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + (gx#stx-e _%hd183002183641%_)))) + (let ((_%tl183006183651%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e183004183646%_))) + (_%hd183005183649%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e183004183646%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182847183492%_)) - (let ((_%e182848183495%_ + _%tl183006183651%_)) + (let ((_%e183007183654%_ (let () (declare (not safe)) (gx#stx-e - _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + _%tl183006183651%_)))) + (let ((_%tl183009183659%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ - (let () (declare (not safe)) (##car _%e182848183495%_)))) + (##cdr _%e183007183654%_))) + (_%hd183008183657%_ + (let () (declare (not safe)) (##car _%e183007183654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl183009183659%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (gx#stx-null? _%tl183003183643%_)) + (_%__kont190905190906%_ + _%hd183008183657%_ + _%hd182975183949%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl182976183951%_)) + (let ((_%e183001183638%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl182976183951%_)))) + (let ((_%tl183003183643%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e183001183638%_))) + (_%hd183002183641%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e183001183638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182843183482%_)) - (let ((_%e182845183487%_ + (gx#stx-pair? _%hd183002183641%_)) + (let ((_%e183004183646%_ (let () (declare (not safe)) - (gx#stx-e _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + (gx#stx-e _%hd183002183641%_)))) + (let ((_%tl183006183651%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e183004183646%_))) + (_%hd183005183649%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e183004183646%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182846183490%_)) + (gx#identifier? _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd183005183649%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182847183492%_)) - (let ((_%e182848183495%_ + _%tl183006183651%_)) + (let ((_%e183007183654%_ (let () (declare (not safe)) (gx#stx-e - _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + _%tl183006183651%_)))) + (let ((_%tl183009183659%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e183007183654%_))) + (_%hd183008183657%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e183007183654%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182850183500%_)) + _%tl183009183659%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))) + _%tl183003183643%_)) + (_%__kont190905190906%_ + _%hd183008183657%_ + _%hd182975183949%_ + _%hd182972183941%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182810183774%_)) + _%hd182969183933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182811183776%_)) - (let ((_%e182956183014%_ + (gx#stx-pair? _%tl182970183935%_)) + (let ((_%e183115183173%_ (let () (declare (not safe)) (gx#stx-e - _%tl182811183776%_)))) - (let ((_%tl182958183019%_ + _%tl182970183935%_)))) + (let ((_%tl183117183178%_ (let () (declare (not safe)) - (##cdr _%e182956183014%_))) - (_%hd182957183017%_ + (##cdr _%e183115183173%_))) + (_%hd183116183176%_ (let () (declare (not safe)) - (##car _%e182956183014%_)))) + (##car _%e183115183173%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182957183017%_)) - (let ((_%e182959183022%_ + _%hd183116183176%_)) + (let ((_%e183118183181%_ (let () (declare (not safe)) (gx#stx-e - _%hd182957183017%_)))) - (let ((_%tl182961183027%_ + _%hd183116183176%_)))) + (let ((_%tl183120183186%_ (let () (declare (not safe)) - (##cdr _%e182959183022%_))) - (_%hd182960183025%_ + (##cdr _%e183118183181%_))) + (_%hd183119183184%_ (let () (declare (not safe)) - (##car _%e182959183022%_)))) + (##car _%e183118183181%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182961183027%_)) + _%tl183120183186%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182958183019%_)) - (let ((_%e182962183030%_ + (gx#stx-pair? _%tl183117183178%_)) + (let ((_%e183121183189%_ (let () (declare (not safe)) - (gx#stx-e _%tl182958183019%_)))) - (let ((_%tl182964183035%_ + (gx#stx-e _%tl183117183178%_)))) + (let ((_%tl183123183194%_ (let () (declare (not safe)) - (##cdr _%e182962183030%_))) - (_%hd182963183033%_ + (##cdr _%e183121183189%_))) + (_%hd183122183192%_ (let () (declare (not safe)) - (##car _%e182962183030%_)))) + (##car _%e183121183189%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182964183035%_)) + (gx#stx-null? _%tl183123183194%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182808183768%_)) - (let ((_%e182965183038%_ + (gx#stx-pair? _%tl182967183927%_)) + (let ((_%e183124183197%_ (let () (declare (not safe)) - (gx#stx-e _%tl182808183768%_)))) - (let ((_%tl182967183043%_ + (gx#stx-e _%tl182967183927%_)))) + (let ((_%tl183126183202%_ (let () (declare (not safe)) - (##cdr _%e182965183038%_))) - (_%hd182966183041%_ + (##cdr _%e183124183197%_))) + (_%hd183125183200%_ (let () (declare (not safe)) - (##car _%e182965183038%_)))) + (##car _%e183124183197%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182966183041%_)) - (let ((_%e182968183046%_ + (gx#stx-pair? _%hd183125183200%_)) + (let ((_%e183127183205%_ (let () (declare (not safe)) (gx#stx-e - _%hd182966183041%_)))) - (let ((_%tl182970183051%_ + _%hd183125183200%_)))) + (let ((_%tl183129183210%_ (let () (declare (not safe)) - (##cdr _%e182968183046%_))) - (_%hd182969183049%_ + (##cdr _%e183127183205%_))) + (_%hd183128183208%_ (let () (declare (not safe)) - (##car _%e182968183046%_)))) + (##car _%e183127183205%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182969183049%_)) + _%hd183128183208%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182969183049%_)) + _%hd183128183208%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182970183051%_)) - (let ((_%e182971183054%_ + _%tl183129183210%_)) + (let ((_%e183130183213%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182970183051%_)))) - (let ((_%tl182973183059%_ + (gx#stx-e _%tl183129183210%_)))) + (let ((_%tl183132183218%_ (let () (declare (not safe)) - (##cdr _%e182971183054%_))) - (_%hd182972183057%_ + (##cdr _%e183130183213%_))) + (_%hd183131183216%_ (let () (declare (not safe)) - (##car _%e182971183054%_)))) + (##car _%e183130183213%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182973183059%_)) + (gx#stx-null? _%tl183132183218%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182967183043%_)) - (_%__kont190754190755%_ - _%hd182972183057%_ - _%hd182963183033%_ - _%hd182960183025%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl183126183202%_)) + (_%__kont190913190914%_ + _%hd183131183216%_ + _%hd183122183192%_ + _%hd183119183184%_) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)) + (_%__kont190915190916%_))) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))))))) - (_%assert-type181782%_ - (lambda (_%id182688%_ _%t182689%_) - (let _%lp182691%_ ((_%rest182693%_ _%env-type181764%_)) - (let* ((_%rest182694182702%_ _%rest182693%_) - (_%else182696182710%_ (lambda () '#!void)) - (_%K182698182769%_ - (lambda (_%rest182713%_ _%type-info182714%_) - (let* ((_%type-info182715182727%_ - _%type-info182714%_) - (_%else182717182735%_ + (_%__kont190915190916%_)) + (_%__kont190915190916%_)) + (_%__kont190915190916%_)))) + (_%__kont190915190916%_))))))))) + (_%assert-type181941%_ + (lambda (_%id182847%_ _%t182848%_) + (let _%lp182850%_ ((_%rest182852%_ _%env-type181923%_)) + (let* ((_%rest182853182861%_ _%rest182852%_) + (_%else182855182869%_ (lambda () '#!void)) + (_%K182857182928%_ + (lambda (_%rest182872%_ _%type-info182873%_) + (let* ((_%type-info182874182886%_ + _%type-info182873%_) + (_%else182876182894%_ (lambda () - (_%lp182691%_ _%rest182713%_))) - (_%K182719182745%_ - (lambda (_%val182738%_ - _%xt182739%_ - _%xid182740%_) + (_%lp182850%_ _%rest182872%_))) + (_%K182878182904%_ + (lambda (_%val182897%_ + _%xt182898%_ + _%xid182899%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id182688%_ - _%xid182740%_)) - (if (eq? _%t182689%_ - _%xt182739%_) - _%val182738%_ - (if _%val182738%_ + _%id182847%_ + _%xid182899%_)) + (if (eq? _%t182848%_ + _%xt182898%_) + _%val182897%_ + (if _%val182897%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t182689%_ + _%t182848%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt182739%_ + _%xt182898%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182689%_ _%xt182739%_)) + (gxc#!class-subclass? _%t182848%_ _%xt182898%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t182689%_ + _%t182848%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt182739%_ + _%xt182898%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182689%_ _%xt182739%_))) + (gxc#!class-subclass? _%t182848%_ _%xt182898%_))) '#f - (_%lp182691%_ _%rest182713%_)))) + (_%lp182850%_ _%rest182872%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp182691%_ - _%rest182713%_))))) - (if (pair? _%type-info182715182727%_) - (let ((_%hd182720182748%_ + (_%lp182850%_ + _%rest182872%_))))) + (if (pair? _%type-info182874182886%_) + (let ((_%hd182879182907%_ (let () (declare (not safe)) - (##car _%type-info182715182727%_))) - (_%tl182721182750%_ + (##car _%type-info182874182886%_))) + (_%tl182880182909%_ (let () (declare (not safe)) - (##cdr _%type-info182715182727%_)))) - (let ((_%xid182753%_ - _%hd182720182748%_)) - (if (pair? _%tl182721182750%_) - (let ((_%hd182722182755%_ + (##cdr _%type-info182874182886%_)))) + (let ((_%xid182912%_ + _%hd182879182907%_)) + (if (pair? _%tl182880182909%_) + (let ((_%hd182881182914%_ (let () (declare (not safe)) - (##car _%tl182721182750%_))) - (_%tl182723182757%_ + (##car _%tl182880182909%_))) + (_%tl182882182916%_ (let () (declare (not safe)) - (##cdr _%tl182721182750%_)))) - (let ((_%xt182760%_ - _%hd182722182755%_)) - (if (pair? _%tl182723182757%_) - (let ((_%hd182724182762%_ + (##cdr _%tl182880182909%_)))) + (let ((_%xt182919%_ + _%hd182881182914%_)) + (if (pair? _%tl182882182916%_) + (let ((_%hd182883182921%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182723182757%_))) - (_%tl182725182764%_ + (##car _%tl182882182916%_))) + (_%tl182884182923%_ (let () (declare (not safe)) - (##cdr _%tl182723182757%_)))) - (let ((_%val182767%_ _%hd182724182762%_)) - (if (null? _%tl182725182764%_) - (_%K182719182745%_ - _%val182767%_ - _%xt182760%_ - _%xid182753%_) - (_%else182717182735%_)))) - (_%else182717182735%_)))) + (##cdr _%tl182882182916%_)))) + (let ((_%val182926%_ _%hd182883182921%_)) + (if (null? _%tl182884182923%_) + (_%K182878182904%_ + _%val182926%_ + _%xt182919%_ + _%xid182912%_) + (_%else182876182894%_)))) + (_%else182876182894%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182717182735%_)))) - (_%else182717182735%_)))))) - (if (pair? _%rest182694182702%_) - (let ((_%hd182699182772%_ + (_%else182876182894%_)))) + (_%else182876182894%_)))))) + (if (pair? _%rest182853182861%_) + (let ((_%hd182858182931%_ (let () (declare (not safe)) - (##car _%rest182694182702%_))) - (_%tl182700182774%_ + (##car _%rest182853182861%_))) + (_%tl182859182933%_ (let () (declare (not safe)) - (##cdr _%rest182694182702%_)))) - (let* ((_%type-info182777%_ _%hd182699182772%_) - (_%rest182779%_ _%tl182700182774%_)) - (_%K182698182769%_ - _%rest182779%_ - _%type-info182777%_))) - (_%else182696182710%_)))))) - (_%assert-count181783%_ - (lambda (_%id182584%_ _%sym182585%_ _%count182586%_) - (let _%lp182588%_ ((_%rest182590%_ _%env-type181764%_)) - (let* ((_%rest182591182599%_ _%rest182590%_) - (_%else182593182607%_ (lambda () '#!void)) - (_%K182595182676%_ - (lambda (_%rest182610%_ _%type-info182611%_) - (let* ((_%type-info182612182626%_ - _%type-info182611%_) - (_%else182614182634%_ + (##cdr _%rest182853182861%_)))) + (let* ((_%type-info182936%_ _%hd182858182931%_) + (_%rest182938%_ _%tl182859182933%_)) + (_%K182857182928%_ + _%rest182938%_ + _%type-info182936%_))) + (_%else182855182869%_)))))) + (_%assert-count181942%_ + (lambda (_%id182743%_ _%sym182744%_ _%count182745%_) + (let _%lp182747%_ ((_%rest182749%_ _%env-type181923%_)) + (let* ((_%rest182750182758%_ _%rest182749%_) + (_%else182752182766%_ (lambda () '#!void)) + (_%K182754182835%_ + (lambda (_%rest182769%_ _%type-info182770%_) + (let* ((_%type-info182771182785%_ + _%type-info182770%_) + (_%else182773182793%_ (lambda () - (_%lp182588%_ _%rest182610%_))) - (_%K182616182645%_ - (lambda (_%val182637%_ - _%xcount182638%_ - _%xsym182639%_ - _%xid182640%_) - (if (and (eq? _%sym182585%_ - _%xsym182639%_) + (_%lp182747%_ _%rest182769%_))) + (_%K182775182804%_ + (lambda (_%val182796%_ + _%xcount182797%_ + _%xsym182798%_ + _%xid182799%_) + (if (and (eq? _%sym182744%_ + _%xsym182798%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182584%_ - _%xid182640%_))) - (if _%val182637%_ - (fx= _%count182586%_ - _%xcount182638%_) - (if (fx= _%count182586%_ - _%xcount182638%_) + _%id182743%_ + _%xid182799%_))) + (if _%val182796%_ + (fx= _%count182745%_ + _%xcount182797%_) + (if (fx= _%count182745%_ + _%xcount182797%_) '#f - (_%lp182588%_ - _%rest182610%_))) - (_%lp182588%_ - _%rest182610%_))))) - (if (pair? _%type-info182612182626%_) - (let ((_%hd182617182648%_ + (_%lp182747%_ + _%rest182769%_))) + (_%lp182747%_ + _%rest182769%_))))) + (if (pair? _%type-info182771182785%_) + (let ((_%hd182776182807%_ (let () (declare (not safe)) - (##car _%type-info182612182626%_))) - (_%tl182618182650%_ + (##car _%type-info182771182785%_))) + (_%tl182777182809%_ (let () (declare (not safe)) - (##cdr _%type-info182612182626%_)))) - (let ((_%xid182653%_ - _%hd182617182648%_)) - (if (pair? _%tl182618182650%_) - (let ((_%hd182619182655%_ + (##cdr _%type-info182771182785%_)))) + (let ((_%xid182812%_ + _%hd182776182807%_)) + (if (pair? _%tl182777182809%_) + (let ((_%hd182778182814%_ (let () (declare (not safe)) - (##car _%tl182618182650%_))) - (_%tl182620182657%_ + (##car _%tl182777182809%_))) + (_%tl182779182816%_ (let () (declare (not safe)) - (##cdr _%tl182618182650%_)))) - (let ((_%xsym182660%_ - _%hd182619182655%_)) - (if (pair? _%tl182620182657%_) - (let ((_%hd182621182662%_ + (##cdr _%tl182777182809%_)))) + (let ((_%xsym182819%_ + _%hd182778182814%_)) + (if (pair? _%tl182779182816%_) + (let ((_%hd182780182821%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182620182657%_))) - (_%tl182622182664%_ + (##car _%tl182779182816%_))) + (_%tl182781182823%_ (let () (declare (not safe)) - (##cdr _%tl182620182657%_)))) - (let ((_%xcount182667%_ _%hd182621182662%_)) - (if (pair? _%tl182622182664%_) - (let ((_%hd182623182669%_ + (##cdr _%tl182779182816%_)))) + (let ((_%xcount182826%_ _%hd182780182821%_)) + (if (pair? _%tl182781182823%_) + (let ((_%hd182782182828%_ (let () (declare (not safe)) - (##car _%tl182622182664%_))) - (_%tl182624182671%_ + (##car _%tl182781182823%_))) + (_%tl182783182830%_ (let () (declare (not safe)) - (##cdr _%tl182622182664%_)))) - (let ((_%val182674%_ _%hd182623182669%_)) - (if (null? _%tl182624182671%_) - (_%K182616182645%_ - _%val182674%_ - _%xcount182667%_ - _%xsym182660%_ - _%xid182653%_) - (_%else182614182634%_)))) - (_%else182614182634%_)))) - (_%else182614182634%_)))) + (##cdr _%tl182781182823%_)))) + (let ((_%val182833%_ _%hd182782182828%_)) + (if (null? _%tl182783182830%_) + (_%K182775182804%_ + _%val182833%_ + _%xcount182826%_ + _%xsym182819%_ + _%xid182812%_) + (_%else182773182793%_)))) + (_%else182773182793%_)))) + (_%else182773182793%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182614182634%_)))) - (_%else182614182634%_)))))) - (if (pair? _%rest182591182599%_) - (let ((_%hd182596182679%_ + (_%else182773182793%_)))) + (_%else182773182793%_)))))) + (if (pair? _%rest182750182758%_) + (let ((_%hd182755182838%_ (let () (declare (not safe)) - (##car _%rest182591182599%_))) - (_%tl182597182681%_ + (##car _%rest182750182758%_))) + (_%tl182756182840%_ (let () (declare (not safe)) - (##cdr _%rest182591182599%_)))) - (let* ((_%type-info182684%_ _%hd182596182679%_) - (_%rest182686%_ _%tl182597182681%_)) - (_%K182595182676%_ - _%rest182686%_ - _%type-info182684%_))) - (_%else182593182607%_)))))) - (_%assert-eqf181784%_ - (lambda (_%id182471%_ _%sym182472%_ _%datum182473%_) - (letrec ((_%eqf182475%_ - (lambda (_%sym182579%_) - (let ((_%$e182581%_ _%sym182579%_)) - (if (eq? 'eq? _%$e182581%_) + (##cdr _%rest182750182758%_)))) + (let* ((_%type-info182843%_ _%hd182755182838%_) + (_%rest182845%_ _%tl182756182840%_)) + (_%K182754182835%_ + _%rest182845%_ + _%type-info182843%_))) + (_%else182752182766%_)))))) + (_%assert-eqf181943%_ + (lambda (_%id182630%_ _%sym182631%_ _%datum182632%_) + (letrec ((_%eqf182634%_ + (lambda (_%sym182738%_) + (let ((_%$e182740%_ _%sym182738%_)) + (if (eq? 'eq? _%$e182740%_) eq? - (if (eq? 'eqv? _%$e182581%_) + (if (eq? 'eqv? _%$e182740%_) eqv? - (if (eq? 'equal? _%$e182581%_) + (if (eq? 'equal? _%$e182740%_) equal? (if (eq? 'free-identifier=? - _%$e182581%_) + _%$e182740%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e182581%_) + _%$e182740%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body181525%_ - _%sym182579%_))))))))))) - (let _%lp182477%_ ((_%rest182479%_ _%env-type181764%_)) - (let* ((_%rest182480182488%_ _%rest182479%_) - (_%else182482182496%_ (lambda () '#!void)) - (_%K182484182567%_ - (lambda (_%rest182499%_ _%type-info182500%_) - (let* ((_%type-info182501182515%_ - _%type-info182500%_) - (_%else182503182523%_ + _%body181684%_ + _%sym182738%_))))))))))) + (let _%lp182636%_ ((_%rest182638%_ _%env-type181923%_)) + (let* ((_%rest182639182647%_ _%rest182638%_) + (_%else182641182655%_ (lambda () '#!void)) + (_%K182643182726%_ + (lambda (_%rest182658%_ _%type-info182659%_) + (let* ((_%type-info182660182674%_ + _%type-info182659%_) + (_%else182662182682%_ (lambda () - (_%lp182477%_ _%rest182499%_))) - (_%K182505182536%_ - (lambda (_%val182526%_ - _%xdatum182527%_ - _%xsym182528%_ - _%xid182529%_) - (if (and (eq? _%sym182472%_ - _%xsym182528%_) + (_%lp182636%_ _%rest182658%_))) + (_%K182664182695%_ + (lambda (_%val182685%_ + _%xdatum182686%_ + _%xsym182687%_ + _%xid182688%_) + (if (and (eq? _%sym182631%_ + _%xsym182687%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182471%_ - _%xid182529%_))) - (let ((_%=?182531%_ - (_%eqf182475%_ - _%sym182472%_))) - (if _%val182526%_ - (_%=?182531%_ - _%datum182473%_ - _%xdatum182527%_) - (if (_%=?182531%_ - _%datum182473%_ - _%xdatum182527%_) + _%id182630%_ + _%xid182688%_))) + (let ((_%=?182690%_ + (_%eqf182634%_ + _%sym182631%_))) + (if _%val182685%_ + (_%=?182690%_ + _%datum182632%_ + _%xdatum182686%_) + (if (_%=?182690%_ + _%datum182632%_ + _%xdatum182686%_) '#f - (_%lp182477%_ - _%rest182499%_)))) - (_%lp182477%_ - _%rest182499%_))))) - (if (pair? _%type-info182501182515%_) - (let ((_%hd182506182539%_ + (_%lp182636%_ + _%rest182658%_)))) + (_%lp182636%_ + _%rest182658%_))))) + (if (pair? _%type-info182660182674%_) + (let ((_%hd182665182698%_ (let () (declare (not safe)) - (##car _%type-info182501182515%_))) - (_%tl182507182541%_ + (##car _%type-info182660182674%_))) + (_%tl182666182700%_ (let () (declare (not safe)) - (##cdr _%type-info182501182515%_)))) - (let ((_%xid182544%_ - _%hd182506182539%_)) - (if (pair? _%tl182507182541%_) - (let ((_%hd182508182546%_ + (##cdr _%type-info182660182674%_)))) + (let ((_%xid182703%_ + _%hd182665182698%_)) + (if (pair? _%tl182666182700%_) + (let ((_%hd182667182705%_ (let () (declare (not safe)) - (##car _%tl182507182541%_))) - (_%tl182509182548%_ + (##car _%tl182666182700%_))) + (_%tl182668182707%_ (let () (declare (not safe)) - (##cdr _%tl182507182541%_)))) - (let ((_%xsym182551%_ - _%hd182508182546%_)) - (if (pair? _%tl182509182548%_) - (let ((_%hd182510182553%_ + (##cdr _%tl182666182700%_)))) + (let ((_%xsym182710%_ + _%hd182667182705%_)) + (if (pair? _%tl182668182707%_) + (let ((_%hd182669182712%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl182509182548%_))) - (_%tl182511182555%_ + (##car _%tl182668182707%_))) + (_%tl182670182714%_ (let () (declare (not safe)) - (##cdr _%tl182509182548%_)))) - (let ((_%xdatum182558%_ _%hd182510182553%_)) - (if (pair? _%tl182511182555%_) - (let ((_%hd182512182560%_ + (##cdr _%tl182668182707%_)))) + (let ((_%xdatum182717%_ _%hd182669182712%_)) + (if (pair? _%tl182670182714%_) + (let ((_%hd182671182719%_ (let () (declare (not safe)) - (##car _%tl182511182555%_))) - (_%tl182513182562%_ + (##car _%tl182670182714%_))) + (_%tl182672182721%_ (let () (declare (not safe)) - (##cdr _%tl182511182555%_)))) - (let ((_%val182565%_ _%hd182512182560%_)) - (if (null? _%tl182513182562%_) - (_%K182505182536%_ - _%val182565%_ - _%xdatum182558%_ - _%xsym182551%_ - _%xid182544%_) - (_%else182503182523%_)))) - (_%else182503182523%_)))) - (_%else182503182523%_)))) + (##cdr _%tl182670182714%_)))) + (let ((_%val182724%_ _%hd182671182719%_)) + (if (null? _%tl182672182721%_) + (_%K182664182695%_ + _%val182724%_ + _%xdatum182717%_ + _%xsym182710%_ + _%xid182703%_) + (_%else182662182682%_)))) + (_%else182662182682%_)))) + (_%else182662182682%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182503182523%_)))) - (_%else182503182523%_)))))) - (if (pair? _%rest182480182488%_) - (let ((_%hd182485182570%_ + (_%else182662182682%_)))) + (_%else182662182682%_)))))) + (if (pair? _%rest182639182647%_) + (let ((_%hd182644182729%_ (let () (declare (not safe)) - (##car _%rest182480182488%_))) - (_%tl182486182572%_ + (##car _%rest182639182647%_))) + (_%tl182645182731%_ (let () (declare (not safe)) - (##cdr _%rest182480182488%_)))) - (let* ((_%type-info182575%_ - _%hd182485182570%_) - (_%rest182577%_ _%tl182486182572%_)) - (_%K182484182567%_ - _%rest182577%_ - _%type-info182575%_))) - (_%else182482182496%_))))))) - (_%bind-e__189139189140%_ - (lambda (_%bind182373%_ _%body182374%_ _%continue182375%_) - (let _%lp182377%_ ((_%rest182379%_ _%bind182373%_) - (_%subst182380%_ '()) - (_%locals182381%_ '()) - (_%env182382%_ _%env-bind181765%_)) - (let* ((_%rest182383182391%_ _%rest182379%_) - (_%else182385182405%_ + (##cdr _%rest182639182647%_)))) + (let* ((_%type-info182734%_ + _%hd182644182729%_) + (_%rest182736%_ _%tl182645182731%_)) + (_%K182643182726%_ + _%rest182736%_ + _%type-info182734%_))) + (_%else182641182655%_))))))) + (_%bind-e__189298189299%_ + (lambda (_%bind182532%_ _%body182533%_ _%continue182534%_) + (let _%lp182536%_ ((_%rest182538%_ _%bind182532%_) + (_%subst182539%_ '()) + (_%locals182540%_ '()) + (_%env182541%_ _%env-bind181924%_)) + (let* ((_%rest182542182550%_ _%rest182538%_) + (_%else182544182564%_ (lambda () - (let* ((_%body182399%_ - (if (null? _%subst182380%_) - _%body182374%_ + (let* ((_%body182558%_ + (if (null? _%subst182539%_) + _%body182533%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182380%_ - _%body182374%_)))) - (_%body182402%_ - (_%do-bind!181776%_ - _%env182382%_ + _%subst182539%_ + _%body182533%_)))) + (_%body182561%_ + (_%do-bind!181935%_ + _%env182541%_ (lambda () - (_%continue182375%_ - _%body182399%_))))) - (if (null? _%locals182381%_) - _%body182402%_ + (_%continue182534%_ + _%body182558%_))))) + (if (null? _%locals182540%_) + _%body182561%_ (cons '%#let-values - (cons _%locals182381%_ - (cons _%body182402%_ + (cons _%locals182540%_ + (cons _%body182561%_ '()))))))) - (_%K182387182447%_ - (lambda (_%rest182408%_ _%bind182409%_) - (let* ((_%bind182410182417%_ _%bind182409%_) - (_%E182412182421%_ + (_%K182546182606%_ + (lambda (_%rest182567%_ _%bind182568%_) + (let* ((_%bind182569182576%_ _%bind182568%_) + (_%E182571182580%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind182410182417%_ + _%bind182569182576%_ '([id . expr]))) '#!void)) - (_%K182413182435%_ - (lambda (_%expr182424%_ _%id182425%_) - (let* ((_%sexpr182427%_ + (_%K182572182594%_ + (lambda (_%expr182583%_ _%id182584%_) + (let* ((_%sexpr182586%_ (gxc#apply-generate-runtime-repr - _%expr182424%_)) - (_%$e182429%_ + _%expr182583%_)) + (_%$e182588%_ (let () (declare (not safe)) - (aget__0 _%sexpr182427%_ - _%env-bind181765%_)))) - (if _%$e182429%_ - ((lambda (_%xid182432%_) - (_%lp182377%_ - _%rest182408%_ - (cons (cons _%id182425%_ + (aget__0 _%sexpr182586%_ + _%env-bind181924%_)))) + (if _%$e182588%_ + ((lambda (_%xid182591%_) + (_%lp182536%_ + _%rest182567%_ + (cons (cons _%id182584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid182432%_) - _%subst182380%_) + _%xid182591%_) + _%subst182539%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals182381%_ - _%env182382%_)) - _%$e182429%_) - (_%lp182377%_ - _%rest182408%_ - _%subst182380%_ - (cons (cons (cons _%id182425%_ + _%locals182540%_ + _%env182541%_)) + _%$e182588%_) + (_%lp182536%_ + _%rest182567%_ + _%subst182539%_ + (cons (cons (cons _%id182584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr182424%_ '())) - _%locals182381%_) + (cons _%expr182583%_ '())) + _%locals182540%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr182427%_ - _%id182425%_) - _%env182382%_))))))) - (if (pair? _%bind182410182417%_) - (let ((_%hd182414182438%_ + (cons (cons _%sexpr182586%_ + _%id182584%_) + _%env182541%_))))))) + (if (pair? _%bind182569182576%_) + (let ((_%hd182573182597%_ (let () (declare (not safe)) - (##car _%bind182410182417%_))) - (_%tl182415182440%_ + (##car _%bind182569182576%_))) + (_%tl182574182599%_ (let () (declare (not safe)) - (##cdr _%bind182410182417%_)))) - (let* ((_%id182443%_ - _%hd182414182438%_) - (_%expr182445%_ - _%tl182415182440%_)) - (_%K182413182435%_ - _%expr182445%_ - _%id182443%_))) - (_%E182412182421%_)))))) - (if (pair? _%rest182383182391%_) - (let ((_%hd182388182450%_ + (##cdr _%bind182569182576%_)))) + (let* ((_%id182602%_ + _%hd182573182597%_) + (_%expr182604%_ + _%tl182574182599%_)) + (_%K182572182594%_ + _%expr182604%_ + _%id182602%_))) + (_%E182571182580%_)))))) + (if (pair? _%rest182542182550%_) + (let ((_%hd182547182609%_ (let () (declare (not safe)) - (##car _%rest182383182391%_))) - (_%tl182389182452%_ + (##car _%rest182542182550%_))) + (_%tl182548182611%_ (let () (declare (not safe)) - (##cdr _%rest182383182391%_)))) - (let* ((_%bind182455%_ _%hd182388182450%_) - (_%rest182457%_ _%tl182389182452%_)) - (_%K182387182447%_ - _%rest182457%_ - _%bind182455%_))) - (_%else182385182405%_)))))) - (_%bind-e__0__189141189142%_ - (lambda (_%bind182462%_ _%body182463%_) - (let ((_%continue182465%_ _%optimize-e181778%_)) - (_%bind-e__189139189140%_ - _%bind182462%_ - _%body182463%_ - _%continue182465%_)))) - (_%bind-e181785%_ - (lambda _g192298_ - (let ((_g192297_ + (##cdr _%rest182542182550%_)))) + (let* ((_%bind182614%_ _%hd182547182609%_) + (_%rest182616%_ _%tl182548182611%_)) + (_%K182546182606%_ + _%rest182616%_ + _%bind182614%_))) + (_%else182544182564%_)))))) + (_%bind-e__0__189300189301%_ + (lambda (_%bind182621%_ _%body182622%_) + (let ((_%continue182624%_ _%optimize-e181937%_)) + (_%bind-e__189298189299%_ + _%bind182621%_ + _%body182622%_ + _%continue182624%_)))) + (_%bind-e181944%_ + (lambda _g192457_ + (let ((_g192456_ (let () (declare (not safe)) - (##length _g192298_)))) - (cond ((let () (declare (not safe)) (##fx= _g192297_ 2)) - (apply _%bind-e__0__189141189142%_ _g192298_)) - ((let () (declare (not safe)) (##fx= _g192297_ 3)) - (apply _%bind-e__189139189140%_ _g192298_)) + (##length _g192457_)))) + (cond ((let () (declare (not safe)) (##fx= _g192456_ 2)) + (apply _%bind-e__0__189300189301%_ _g192457_)) + ((let () (declare (not safe)) (##fx= _g192456_ 3)) + (apply _%bind-e__189298189299%_ _g192457_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192298_)))))) - (_%lookup-block181786%_ - (lambda (_%id182368%_) - (let ((__tmp192299 - (lambda (_%block182370%_) - (let ((__tmp192300 (car _%block182370%_))) + _g192457_)))))) + (_%lookup-block181945%_ + (lambda (_%id182527%_) + (let ((__tmp192458 + (lambda (_%block182529%_) + (let ((__tmp192459 (car _%block182529%_))) (declare (not safe)) (gx#free-identifier=? - __tmp192300 - _%id182368%_))))) + __tmp192459 + _%id182527%_))))) (declare (not safe)) - (__find __tmp192299 _%blocks181528%_)))) - (_%inline-block181787%_ - (lambda (_%block182244%_ _%args182245%_) - (let* ((_%kont182247%_ (caddr _%block182244%_)) - (_%g182249182275%_ - (lambda (_%g182250182272%_) + (__find __tmp192458 _%blocks181687%_)))) + (_%inline-block181946%_ + (lambda (_%block182403%_ _%args182404%_) + (let* ((_%kont182406%_ (caddr _%block182403%_)) + (_%g182408182434%_ + (lambda (_%g182409182431%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182250182272%_)))) - (_%g182248182365%_ - (lambda (_%g182250182278%_) + _%g182409182431%_)))) + (_%g182407182524%_ + (lambda (_%g182409182437%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182250182278%_)) - (let ((_%e182253182280%_ + (gx#stx-pair? _%g182409182437%_)) + (let ((_%e182412182439%_ (let () (declare (not safe)) - (gx#stx-e _%g182250182278%_)))) - (let ((_%hd182254182283%_ + (gx#stx-e _%g182409182437%_)))) + (let ((_%hd182413182442%_ (let () (declare (not safe)) - (##car _%e182253182280%_))) - (_%tl182255182285%_ + (##car _%e182412182439%_))) + (_%tl182414182444%_ (let () (declare (not safe)) - (##cdr _%e182253182280%_)))) + (##cdr _%e182412182439%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182254182283%_)) + _%hd182413182442%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182254182283%_)) + _%hd182413182442%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182255182285%_)) - (let ((_%e182256182288%_ + _%tl182414182444%_)) + (let ((_%e182415182447%_ (let () (declare (not safe)) (gx#stx-e - _%tl182255182285%_)))) - (let ((_%hd182257182291%_ + _%tl182414182444%_)))) + (let ((_%hd182416182450%_ (let () (declare (not safe)) - (##car _%e182256182288%_))) - (_%tl182258182293%_ + (##car _%e182415182447%_))) + (_%tl182417182452%_ (let () (declare (not safe)) - (##cdr _%e182256182288%_)))) + (##cdr _%e182415182447%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182257182291%_)) - (let ((_g192301_ + _%hd182416182450%_)) + (let ((_g192460_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182257182291%_ '0)))) + (gx#syntax-split-splice _%hd182416182450%_ '0)))) (begin - (let ((_g192302_ + (let ((_g192461_ (let () (declare (not safe)) - (if (##values? _g192301_) - (##vector-length _g192301_) + (if (##values? _g192460_) + (##vector-length _g192460_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192302_ 2))) - (error "Context expects 2 values" _g192302_))) - (let ((_%target182259182296%_ + (##fx= _g192461_ 2))) + (error "Context expects 2 values" _g192461_))) + (let ((_%target182418182455%_ (let () (declare (not safe)) - (##vector-ref _g192301_ 0))) - (_%tl182261182298%_ + (##vector-ref _g192460_ 0))) + (_%tl182420182457%_ (let () (declare (not safe)) - (##vector-ref _g192301_ 1)))) + (##vector-ref _g192460_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182261182298%_)) - (letrec ((_%loop182262182301%_ - (lambda (_%hd182260182304%_ - _%id182266182306%_) + (gx#stx-null? _%tl182420182457%_)) + (letrec ((_%loop182421182460%_ + (lambda (_%hd182419182463%_ + _%id182425182465%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182260182304%_)) - (let ((_%e182263182309%_ + _%hd182419182463%_)) + (let ((_%e182422182468%_ (let () (declare (not safe)) (gx#stx-e - _%hd182260182304%_)))) - (let ((_%lp-hd182264182312%_ + _%hd182419182463%_)))) + (let ((_%lp-hd182423182471%_ (let () (declare (not safe)) - (##car _%e182263182309%_))) - (_%lp-tl182265182314%_ + (##car _%e182422182468%_))) + (_%lp-tl182424182473%_ (let () (declare (not safe)) - (##cdr _%e182263182309%_)))) - (_%loop182262182301%_ - _%lp-tl182265182314%_ - (cons _%lp-hd182264182312%_ - _%id182266182306%_)))) - (let ((_%id182267182317%_ - (reverse _%id182266182306%_))) + (##cdr _%e182422182468%_)))) + (_%loop182421182460%_ + _%lp-tl182424182473%_ + (cons _%lp-hd182423182471%_ + _%id182425182465%_)))) + (let ((_%id182426182476%_ + (reverse _%id182425182465%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182258182293%_)) - (let ((_%e182268182320%_ + _%tl182417182452%_)) + (let ((_%e182427182479%_ (let () (declare (not safe)) (gx#stx-e - _%tl182258182293%_)))) - (let ((_%hd182269182323%_ + _%tl182417182452%_)))) + (let ((_%hd182428182482%_ (let () (declare (not safe)) - (##car _%e182268182320%_))) - (_%tl182270182325%_ + (##car _%e182427182479%_))) + (_%tl182429182484%_ (let () (declare (not safe)) - (##cdr _%e182268182320%_)))) + (##cdr _%e182427182479%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182270182325%_)) - ((lambda (_%L182328%_ + _%tl182429182484%_)) + ((lambda (_%L182487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182329%_) - (if (null? (let ((__tmp192303 - (lambda (_%g182348182351%_ - _%g182349182353%_) - (cons _%g182348182351%_ - _%g182349182353%_)))) + _%L182488%_) + (if (null? (let ((__tmp192462 + (lambda (_%g182507182510%_ + _%g182508182512%_) + (cons _%g182507182510%_ + _%g182508182512%_)))) (declare (not safe)) - (__foldr1 __tmp192303 '() _%L182329%_))) - _%L182328%_ - (let ((_%subst182363%_ + (__foldr1 __tmp192462 '() _%L182488%_))) + _%L182487%_ + (let ((_%subst182522%_ (map cons - (let ((__tmp192304 - (lambda (_%g182355182358%_ - _%g182356182360%_) - (cons _%g182355182358%_ - _%g182356182360%_)))) + (let ((__tmp192463 + (lambda (_%g182514182517%_ + _%g182515182519%_) + (cons _%g182514182517%_ + _%g182515182519%_)))) (declare (not safe)) - (__foldr1 __tmp192304 '() _%L182329%_)) - _%args182245%_))) + (__foldr1 __tmp192463 '() _%L182488%_)) + _%args182404%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182363%_ - _%L182328%_)))) - _%hd182269182323%_ - _%id182267182317%_) - (_%g182249182275%_ _%g182250182278%_)))) + _%subst182522%_ + _%L182487%_)))) + _%hd182428182482%_ + _%id182426182476%_) + (_%g182408182434%_ _%g182409182437%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182249182275%_ - _%g182250182278%_))))))) - (_%loop182262182301%_ - _%target182259182296%_ + (_%g182408182434%_ + _%g182409182437%_))))))) + (_%loop182421182460%_ + _%target182418182455%_ '())) - (_%g182249182275%_ _%g182250182278%_))))) - (_%g182249182275%_ _%g182250182278%_)))) + (_%g182408182434%_ _%g182409182437%_))))) + (_%g182408182434%_ _%g182409182437%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182249182275%_ - _%g182250182278%_)) - (_%g182249182275%_ - _%g182250182278%_)) - (_%g182249182275%_ - _%g182250182278%_)))) - (_%g182249182275%_ _%g182250182278%_))))) - (_%g182248182365%_ _%kont182247%_)))) - (_%nonlinear-block?181788%_ - (lambda (_%block181793%_) - (letrec ((_%nonlinear-expr?181795%_ - (lambda (_%expr181903%_) - (let* ((_%__stx191212191213%_ _%expr181903%_) - (_%g181909181975%_ + (_%g182408182434%_ + _%g182409182437%_)) + (_%g182408182434%_ + _%g182409182437%_)) + (_%g182408182434%_ + _%g182409182437%_)))) + (_%g182408182434%_ _%g182409182437%_))))) + (_%g182407182524%_ _%kont182406%_)))) + (_%nonlinear-block?181947%_ + (lambda (_%block181952%_) + (letrec ((_%nonlinear-expr?181954%_ + (lambda (_%expr182062%_) + (let* ((_%__stx191371191372%_ _%expr182062%_) + (_%g182068182134%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191212191213%_))))) - (let ((_%__kont191214191215%_ + _%__stx191371191372%_))))) + (let ((_%__kont191373191374%_ (lambda () '#t)) - (_%__kont191216191217%_ - (lambda (_%L182174%_) - (let* ((_%__stx191194191195%_ - _%L182174%_) - (_%g182192182201%_ + (_%__kont191375191376%_ + (lambda (_%L182333%_) + (let* ((_%__stx191353191354%_ + _%L182333%_) + (_%g182351182360%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191194191195%_))))) - (let ((_%__kont191196191197%_ + _%__stx191353191354%_))))) + (let ((_%__kont191355191356%_ (lambda () '#f)) - (_%__kont191198191199%_ + (_%__kont191357191358%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191194191195%_)) - (let ((_%e182194182213%_ + _%__stx191353191354%_)) + (let ((_%e182353182372%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191194191195%_)))) - (let ((_%tl182196182218%_ + _%__stx191353191354%_)))) + (let ((_%tl182355182377%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182194182213%_))) - (_%hd182195182216%_ - (let () (declare (not safe)) (##car _%e182194182213%_)))) + (##cdr _%e182353182372%_))) + (_%hd182354182375%_ + (let () (declare (not safe)) (##car _%e182353182372%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182195182216%_)) + (gx#identifier? _%hd182354182375%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182195182216%_)) - (_%__kont191196191197%_) - (_%__kont191198191199%_)) - (_%__kont191198191199%_)))) + (gx#stx-eq? '%#call _%hd182354182375%_)) + (_%__kont191355191356%_) + (_%__kont191357191358%_)) + (_%__kont191357191358%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191198191199%_)))))) - (_%__kont191220191221%_ - (lambda (_%L182072%_) - (_%nonlinear-expr?181795%_ - _%L182072%_))) - (_%__kont191222191223%_ - (lambda (_%L182019%_ - _%L182020%_ - _%L182021%_) - (let ((_%$e182040%_ - (_%nonlinear-expr?181795%_ - _%L182020%_))) - (if _%$e182040%_ - _%$e182040%_ - (_%nonlinear-expr?181795%_ - _%L182019%_))))) - (_%__kont191224191225%_ + (_%__kont191357191358%_)))))) + (_%__kont191379191380%_ + (lambda (_%L182231%_) + (_%nonlinear-expr?181954%_ + _%L182231%_))) + (_%__kont191381191382%_ + (lambda (_%L182178%_ + _%L182179%_ + _%L182180%_) + (let ((_%$e182199%_ + (_%nonlinear-expr?181954%_ + _%L182179%_))) + (if _%$e182199%_ + _%$e182199%_ + (_%nonlinear-expr?181954%_ + _%L182178%_))))) + (_%__kont191383191384%_ (lambda () '#f))) - (let* ((_%__match191275191276%_ - (lambda (_%e181947182048%_ - _%hd181948182051%_ - _%tl181949182053%_ - _%e181950182056%_ - _%hd181951182059%_ - _%tl181952182061%_) + (let* ((_%__match191434191435%_ + (lambda (_%e182106182207%_ + _%hd182107182210%_ + _%tl182108182212%_ + _%e182109182215%_ + _%hd182110182218%_ + _%tl182111182220%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181952182061%_)) - (let ((_%e181953182064%_ + _%tl182111182220%_)) + (let ((_%e182112182223%_ (let () (declare (not safe)) (gx#stx-e - _%tl181952182061%_)))) - (let ((_%tl181955182069%_ + _%tl182111182220%_)))) + (let ((_%tl182114182228%_ (let () (declare (not safe)) - (##cdr _%e181953182064%_))) - (_%hd181954182067%_ + (##cdr _%e182112182223%_))) + (_%hd182113182226%_ (let () (declare (not safe)) - (##car _%e181953182064%_)))) + (##car _%e182112182223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181955182069%_)) - (_%__kont191220191221%_ - _%hd181954182067%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))) - (_%__match191259191260%_ - (lambda (_%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_ - _%__splice191218191219%_ - _%target181921182106%_ - _%tl181923182108%_) - (letrec ((_%loop181924182111%_ - (lambda (_%hd181922182114%_) + _%tl182114182228%_)) + (_%__kont191379191380%_ + _%hd182113182226%_) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_)))) + (_%__match191418191419%_ + (lambda (_%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_ + _%__splice191377191378%_ + _%target182080182265%_ + _%tl182082182267%_) + (letrec ((_%loop182083182270%_ + (lambda (_%hd182081182273%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd181922182114%_)) - (let ((_%e181925182117%_ + (gx#stx-pair? _%hd182081182273%_)) + (let ((_%e182084182276%_ (let () (declare (not safe)) - (gx#stx-e _%hd181922182114%_)))) - (let ((_%lp-tl181927182122%_ + (gx#stx-e _%hd182081182273%_)))) + (let ((_%lp-tl182086182281%_ (let () (declare (not safe)) - (##cdr _%e181925182117%_))) - (_%lp-hd181926182120%_ + (##cdr _%e182084182276%_))) + (_%lp-hd182085182279%_ (let () (declare (not safe)) - (##car _%e181925182117%_)))) + (##car _%e182084182276%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd181926182120%_)) - (let ((_%e181931182125%_ + (gx#stx-pair? _%lp-hd182085182279%_)) + (let ((_%e182090182284%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd181926182120%_)))) - (let ((_%tl181933182130%_ + (gx#stx-e _%lp-hd182085182279%_)))) + (let ((_%tl182092182289%_ (let () (declare (not safe)) - (##cdr _%e181931182125%_))) - (_%hd181932182128%_ + (##cdr _%e182090182284%_))) + (_%hd182091182287%_ (let () (declare (not safe)) - (##car _%e181931182125%_)))) + (##car _%e182090182284%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181932182128%_)) - (let ((_%e181934182133%_ + (gx#stx-pair? _%hd182091182287%_)) + (let ((_%e182093182292%_ (let () (declare (not safe)) (gx#stx-e - _%hd181932182128%_)))) - (let ((_%tl181936182138%_ + _%hd182091182287%_)))) + (let ((_%tl182095182297%_ (let () (declare (not safe)) - (##cdr _%e181934182133%_))) - (_%hd181935182136%_ + (##cdr _%e182093182292%_))) + (_%hd182094182295%_ (let () (declare (not safe)) - (##car _%e181934182133%_)))) + (##car _%e182093182292%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181936182138%_)) + _%tl182095182297%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181933182130%_)) - (let ((_%e181937182141%_ + _%tl182092182289%_)) + (let ((_%e182096182300%_ (let () (declare (not safe)) (gx#stx-e - _%tl181933182130%_)))) - (let ((_%tl181939182146%_ + _%tl182092182289%_)))) + (let ((_%tl182098182305%_ (let () (declare (not safe)) - (##cdr _%e181937182141%_))) - (_%hd181938182144%_ + (##cdr _%e182096182300%_))) + (_%hd182097182303%_ (let () (declare (not safe)) - (##car _%e181937182141%_)))) + (##car _%e182096182300%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181938182144%_)) - (let ((_%e181940182149%_ + _%hd182097182303%_)) + (let ((_%e182099182308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd181938182144%_)))) - (let ((_%tl181942182154%_ + (gx#stx-e _%hd182097182303%_)))) + (let ((_%tl182101182313%_ (let () (declare (not safe)) - (##cdr _%e181940182149%_))) - (_%hd181941182152%_ + (##cdr _%e182099182308%_))) + (_%hd182100182311%_ (let () (declare (not safe)) - (##car _%e181940182149%_)))) + (##car _%e182099182308%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181941182152%_)) + (gx#identifier? _%hd182100182311%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181941182152%_)) + (gx#stx-eq? '%#ref _%hd182100182311%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181942182154%_)) - (let ((_%e181943182157%_ + (gx#stx-pair? _%tl182101182313%_)) + (let ((_%e182102182316%_ (let () (declare (not safe)) - (gx#stx-e _%tl181942182154%_)))) - (let ((_%tl181945182162%_ + (gx#stx-e _%tl182101182313%_)))) + (let ((_%tl182104182321%_ (let () (declare (not safe)) - (##cdr _%e181943182157%_))) - (_%hd181944182160%_ + (##cdr _%e182102182316%_))) + (_%hd182103182319%_ (let () (declare (not safe)) - (##car _%e181943182157%_)))) + (##car _%e182102182316%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181945182162%_)) + (gx#stx-null? _%tl182104182321%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181939182146%_)) - (_%loop181924182111%_ - _%lp-tl181927182122%_) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) + _%tl182098182305%_)) + (_%loop182083182270%_ + _%lp-tl182086182281%_) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)))) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)))) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)))) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)))) + (_%__match191434191435%_ + _%e182074182249%_ + _%hd182075182252%_ + _%tl182076182254%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181920182103%_)) - (let ((_%e181928182166%_ + (gx#stx-pair? _%tl182079182262%_)) + (let ((_%e182087182325%_ (let () (declare (not safe)) - (gx#stx-e _%tl181920182103%_)))) - (let ((_%tl181930182171%_ + (gx#stx-e _%tl182079182262%_)))) + (let ((_%tl182089182330%_ (let () (declare (not safe)) - (##cdr _%e181928182166%_))) - (_%hd181929182169%_ + (##cdr _%e182087182325%_))) + (_%hd182088182328%_ (let () (declare (not safe)) - (##car _%e181928182166%_)))) + (##car _%e182087182325%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181930182171%_)) - (_%__kont191216191217%_ _%hd181929182169%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))))) + (gx#stx-null? _%tl182089182330%_)) + (_%__kont191375191376%_ _%hd182088182328%_) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181924182111%_ - _%target181921182106%_))))) + (_%loop182083182270%_ + _%target182080182265%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191212191213%_)) - (let ((_%e181911182231%_ + _%__stx191371191372%_)) + (let ((_%e182070182390%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191212191213%_)))) - (let ((_%tl181913182236%_ + _%__stx191371191372%_)))) + (let ((_%tl182072182395%_ (let () (declare (not safe)) - (##cdr _%e181911182231%_))) - (_%hd181912182234%_ + (##cdr _%e182070182390%_))) + (_%hd182071182393%_ (let () (declare (not safe)) - (##car _%e181911182231%_)))) + (##car _%e182070182390%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181912182234%_)) + _%hd182071182393%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd181912182234%_)) - (_%__kont191214191215%_) + _%hd182071182393%_)) + (_%__kont191373191374%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd181912182234%_)) + _%hd182071182393%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl181913182236%_)) - (let ((_%e181918182098%_ + (gx#stx-pair? _%tl182072182395%_)) + (let ((_%e182077182257%_ (let () (declare (not safe)) - (gx#stx-e _%tl181913182236%_)))) - (let ((_%tl181920182103%_ + (gx#stx-e _%tl182072182395%_)))) + (let ((_%tl182079182262%_ (let () (declare (not safe)) - (##cdr _%e181918182098%_))) - (_%hd181919182101%_ + (##cdr _%e182077182257%_))) + (_%hd182078182260%_ (let () (declare (not safe)) - (##car _%e181918182098%_)))) + (##car _%e182077182257%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd181919182101%_)) - (let ((_%__splice191218191219%_ + (gx#stx-pair/null? _%hd182078182260%_)) + (let ((_%__splice191377191378%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd181919182101%_ + _%hd182078182260%_ '0)))) - (let ((_%tl181923182108%_ + (let ((_%tl182082182267%_ (let () (declare (not safe)) (##vector-ref - _%__splice191218191219%_ + _%__splice191377191378%_ '1))) - (_%target181921182106%_ + (_%target182080182265%_ (let () (declare (not safe)) (##vector-ref - _%__splice191218191219%_ + _%__splice191377191378%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181923182108%_)) - (_%__match191259191260%_ - _%e181911182231%_ - _%hd181912182234%_ - _%tl181913182236%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_ - _%__splice191218191219%_ - _%target181921182106%_ - _%tl181923182108%_) + (gx#stx-null? _%tl182082182267%_)) + (_%__match191418191419%_ + _%e182070182390%_ + _%hd182071182393%_ + _%tl182072182395%_ + _%e182077182257%_ + _%hd182078182260%_ + _%tl182079182262%_ + _%__splice191377191378%_ + _%target182080182265%_ + _%tl182082182267%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181920182103%_)) - (let ((_%e181953182064%_ + (gx#stx-pair? _%tl182079182262%_)) + (let ((_%e182112182223%_ (let () (declare (not safe)) (gx#stx-e - _%tl181920182103%_)))) - (let ((_%tl181955182069%_ + _%tl182079182262%_)))) + (let ((_%tl182114182228%_ (let () (declare (not safe)) - (##cdr _%e181953182064%_))) - (_%hd181954182067%_ + (##cdr _%e182112182223%_))) + (_%hd182113182226%_ (let () (declare (not safe)) - (##car _%e181953182064%_)))) + (##car _%e182112182223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181955182069%_)) - (_%__kont191220191221%_ - _%hd181954182067%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_))))) + _%tl182114182228%_)) + (_%__kont191379191380%_ + _%hd182113182226%_) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181920182103%_)) - (let ((_%e181953182064%_ + (gx#stx-pair? _%tl182079182262%_)) + (let ((_%e182112182223%_ (let () (declare (not safe)) - (gx#stx-e _%tl181920182103%_)))) - (let ((_%tl181955182069%_ + (gx#stx-e _%tl182079182262%_)))) + (let ((_%tl182114182228%_ (let () (declare (not safe)) - (##cdr _%e181953182064%_))) - (_%hd181954182067%_ + (##cdr _%e182112182223%_))) + (_%hd182113182226%_ (let () (declare (not safe)) - (##car _%e181953182064%_)))) + (##car _%e182112182223%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181955182069%_)) - (_%__kont191220191221%_ - _%hd181954182067%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_))))) - (_%__kont191224191225%_)) + (gx#stx-null? _%tl182114182228%_)) + (_%__kont191379191380%_ + _%hd182113182226%_) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_))))) + (_%__kont191383191384%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd181912182234%_)) + (gx#stx-eq? '%#if _%hd182071182393%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181913182236%_)) - (let ((_%e181962181995%_ + (gx#stx-pair? _%tl182072182395%_)) + (let ((_%e182121182154%_ (let () (declare (not safe)) - (gx#stx-e _%tl181913182236%_)))) - (let ((_%tl181964182000%_ + (gx#stx-e _%tl182072182395%_)))) + (let ((_%tl182123182159%_ (let () (declare (not safe)) - (##cdr _%e181962181995%_))) - (_%hd181963181998%_ + (##cdr _%e182121182154%_))) + (_%hd182122182157%_ (let () (declare (not safe)) - (##car _%e181962181995%_)))) + (##car _%e182121182154%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181964182000%_)) - (let ((_%e181965182003%_ + (gx#stx-pair? _%tl182123182159%_)) + (let ((_%e182124182162%_ (let () (declare (not safe)) - (gx#stx-e _%tl181964182000%_)))) - (let ((_%tl181967182008%_ + (gx#stx-e _%tl182123182159%_)))) + (let ((_%tl182126182167%_ (let () (declare (not safe)) - (##cdr _%e181965182003%_))) - (_%hd181966182006%_ + (##cdr _%e182124182162%_))) + (_%hd182125182165%_ (let () (declare (not safe)) - (##car _%e181965182003%_)))) + (##car _%e182124182162%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181967182008%_)) - (let ((_%e181968182011%_ + (gx#stx-pair? _%tl182126182167%_)) + (let ((_%e182127182170%_ (let () (declare (not safe)) (gx#stx-e - _%tl181967182008%_)))) - (let ((_%tl181970182016%_ + _%tl182126182167%_)))) + (let ((_%tl182129182175%_ (let () (declare (not safe)) - (##cdr _%e181968182011%_))) - (_%hd181969182014%_ + (##cdr _%e182127182170%_))) + (_%hd182128182173%_ (let () (declare (not safe)) - (##car _%e181968182011%_)))) + (##car _%e182127182170%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181970182016%_)) - (_%__kont191222191223%_ - _%hd181969182014%_ - _%hd181966182006%_ - _%hd181963181998%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)) - (_%__kont191224191225%_)))) + _%tl182129182175%_)) + (_%__kont191381191382%_ + _%hd182128182173%_ + _%hd182125182165%_ + _%hd182122182157%_) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_)) + (_%__kont191383191384%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))))))) - (let* ((_%kont181797%_ (caddr _%block181793%_)) - (_%g181799181825%_ - (lambda (_%g181800181822%_) + (_%__kont191383191384%_)))) + (_%__kont191383191384%_)))))))) + (let* ((_%kont181956%_ (caddr _%block181952%_)) + (_%g181958181984%_ + (lambda (_%g181959181981%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181800181822%_)))) - (_%g181798181900%_ - (lambda (_%g181800181828%_) + _%g181959181981%_)))) + (_%g181957182059%_ + (lambda (_%g181959181987%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g181800181828%_)) - (let ((_%e181803181830%_ + (gx#stx-pair? _%g181959181987%_)) + (let ((_%e181962181989%_ (let () (declare (not safe)) - (gx#stx-e _%g181800181828%_)))) - (let ((_%hd181804181833%_ + (gx#stx-e _%g181959181987%_)))) + (let ((_%hd181963181992%_ (let () (declare (not safe)) - (##car _%e181803181830%_))) - (_%tl181805181835%_ + (##car _%e181962181989%_))) + (_%tl181964181994%_ (let () (declare (not safe)) - (##cdr _%e181803181830%_)))) + (##cdr _%e181962181989%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181804181833%_)) + _%hd181963181992%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181804181833%_)) + _%hd181963181992%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181805181835%_)) - (let ((_%e181806181838%_ + _%tl181964181994%_)) + (let ((_%e181965181997%_ (let () (declare (not safe)) (gx#stx-e - _%tl181805181835%_)))) - (let ((_%hd181807181841%_ + _%tl181964181994%_)))) + (let ((_%hd181966182000%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e181806181838%_))) - (_%tl181808181843%_ - (let () (declare (not safe)) (##cdr _%e181806181838%_)))) + (##car _%e181965181997%_))) + (_%tl181967182002%_ + (let () (declare (not safe)) (##cdr _%e181965181997%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd181807181841%_)) - (let ((_g192305_ + (gx#stx-pair/null? _%hd181966182000%_)) + (let ((_g192464_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd181807181841%_ '0)))) + (gx#syntax-split-splice _%hd181966182000%_ '0)))) (begin - (let ((_g192306_ + (let ((_g192465_ (let () (declare (not safe)) - (if (##values? _g192305_) - (##vector-length _g192305_) + (if (##values? _g192464_) + (##vector-length _g192464_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192306_ 2))) - (error "Context expects 2 values" _g192306_))) - (let ((_%target181809181846%_ + (##fx= _g192465_ 2))) + (error "Context expects 2 values" _g192465_))) + (let ((_%target181968182005%_ (let () (declare (not safe)) - (##vector-ref _g192305_ 0))) - (_%tl181811181848%_ + (##vector-ref _g192464_ 0))) + (_%tl181970182007%_ (let () (declare (not safe)) - (##vector-ref _g192305_ 1)))) + (##vector-ref _g192464_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181811181848%_)) - (letrec ((_%loop181812181851%_ - (lambda (_%hd181810181854%_ - _%id181816181856%_) + (gx#stx-null? _%tl181970182007%_)) + (letrec ((_%loop181971182010%_ + (lambda (_%hd181969182013%_ + _%id181975182015%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181810181854%_)) - (let ((_%e181813181859%_ + _%hd181969182013%_)) + (let ((_%e181972182018%_ (let () (declare (not safe)) (gx#stx-e - _%hd181810181854%_)))) - (let ((_%lp-hd181814181862%_ + _%hd181969182013%_)))) + (let ((_%lp-hd181973182021%_ (let () (declare (not safe)) - (##car _%e181813181859%_))) - (_%lp-tl181815181864%_ + (##car _%e181972182018%_))) + (_%lp-tl181974182023%_ (let () (declare (not safe)) - (##cdr _%e181813181859%_)))) - (_%loop181812181851%_ - _%lp-tl181815181864%_ - (cons _%lp-hd181814181862%_ - _%id181816181856%_)))) - (let ((_%id181817181867%_ - (reverse _%id181816181856%_))) + (##cdr _%e181972182018%_)))) + (_%loop181971182010%_ + _%lp-tl181974182023%_ + (cons _%lp-hd181973182021%_ + _%id181975182015%_)))) + (let ((_%id181976182026%_ + (reverse _%id181975182015%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181808181843%_)) - (let ((_%e181818181870%_ + _%tl181967182002%_)) + (let ((_%e181977182029%_ (let () (declare (not safe)) (gx#stx-e - _%tl181808181843%_)))) - (let ((_%hd181819181873%_ + _%tl181967182002%_)))) + (let ((_%hd181978182032%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e181818181870%_))) - (_%tl181820181875%_ - (let () (declare (not safe)) (##cdr _%e181818181870%_)))) + (##car _%e181977182029%_))) + (_%tl181979182034%_ + (let () (declare (not safe)) (##cdr _%e181977182029%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181820181875%_)) - ((lambda (_%L181878%_ _%L181879%_) - (_%nonlinear-expr?181795%_ _%L181878%_)) - _%hd181819181873%_ - _%id181817181867%_) - (_%g181799181825%_ _%g181800181828%_)))) + (gx#stx-null? _%tl181979182034%_)) + ((lambda (_%L182037%_ _%L182038%_) + (_%nonlinear-expr?181954%_ _%L182037%_)) + _%hd181978182032%_ + _%id181976182026%_) + (_%g181958181984%_ _%g181959181987%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181799181825%_ - _%g181800181828%_))))))) - (_%loop181812181851%_ - _%target181809181846%_ + (_%g181958181984%_ + _%g181959181987%_))))))) + (_%loop181971182010%_ + _%target181968182005%_ '())) - (_%g181799181825%_ _%g181800181828%_))))) - (_%g181799181825%_ _%g181800181828%_)))) + (_%g181958181984%_ _%g181959181987%_))))) + (_%g181958181984%_ _%g181959181987%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181799181825%_ - _%g181800181828%_)) - (_%g181799181825%_ - _%g181800181828%_)) - (_%g181799181825%_ - _%g181800181828%_)))) - (_%g181799181825%_ _%g181800181828%_))))) - (_%g181798181900%_ _%kont181797%_)))))) - (_%do-assert181767%_ - _%assert181526%_ + (_%g181958181984%_ + _%g181959181987%_)) + (_%g181958181984%_ + _%g181959181987%_)) + (_%g181958181984%_ + _%g181959181987%_)))) + (_%g181958181984%_ _%g181959181987%_))))) + (_%g181957182059%_ _%kont181956%_)))))) + (_%do-assert181926%_ + _%assert181685%_ (lambda () - (_%do-bind181774%_ - _%bind181527%_ + (_%do-bind181933%_ + _%bind181686%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!181777%_ - (lambda () (_%optimize-e181778%_ _%body181525%_))) - (_%optimize-e181778%_ _%body181525%_))))))))) + (_%do-splice!181936%_ + (lambda () (_%optimize-e181937%_ _%body181684%_))) + (_%optimize-e181937%_ _%body181684%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks181437%_ _%konts181438%_) - (letrec* ((_%rtab181440%_ + (lambda (_%blocks181596%_ _%konts181597%_) + (letrec* ((_%rtab181599%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181442%_) - (let ((__tmp192307 (caddr _%block181442%_))) + (lambda (_%block181601%_) + (let ((__tmp192466 (caddr _%block181601%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181440%_ - __tmp192307))) - _%konts181438%_) - (let _%lp181444%_ ((_%rest181446%_ _%blocks181437%_) - (_%r181447%_ '())) - (let* ((_%rest181448181456%_ _%rest181446%_) - (_%else181450181464%_ (lambda () (reverse _%r181447%_))) - (_%K181452181513%_ - (lambda (_%rest181467%_ _%block181468%_) - (let* ((_%block181469181480%_ _%block181468%_) - (_%E181471181484%_ + _%rtab181599%_ + __tmp192466))) + _%konts181597%_) + (let _%lp181603%_ ((_%rest181605%_ _%blocks181596%_) + (_%r181606%_ '())) + (let* ((_%rest181607181615%_ _%rest181605%_) + (_%else181609181623%_ (lambda () (reverse _%r181606%_))) + (_%K181611181672%_ + (lambda (_%rest181626%_ _%block181627%_) + (let* ((_%block181628181639%_ _%block181627%_) + (_%E181630181643%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181469181480%_ + _%block181628181639%_ '([name type kont . _]))) '#!void)) - (_%K181472181491%_ - (lambda (_%kont181487%_ - _%type181488%_ - _%name181489%_) - (if (let ((__tmp192308 + (_%K181631181650%_ + (lambda (_%kont181646%_ + _%type181647%_ + _%name181648%_) + (if (let ((__tmp192467 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181489%_)))) + _%name181648%_)))) (declare (not safe)) - (__hash-get _%rtab181440%_ __tmp192308)) + (__hash-get _%rtab181599%_ __tmp192467)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181440%_ - _%kont181487%_)) - (_%lp181444%_ - _%rest181467%_ - (cons _%block181468%_ _%r181447%_))) - (_%lp181444%_ - _%rest181467%_ - _%r181447%_))))) - (if (pair? _%block181469181480%_) - (let ((_%hd181473181494%_ + _%rtab181599%_ + _%kont181646%_)) + (_%lp181603%_ + _%rest181626%_ + (cons _%block181627%_ _%r181606%_))) + (_%lp181603%_ + _%rest181626%_ + _%r181606%_))))) + (if (pair? _%block181628181639%_) + (let ((_%hd181632181653%_ (let () (declare (not safe)) - (##car _%block181469181480%_))) - (_%tl181474181496%_ + (##car _%block181628181639%_))) + (_%tl181633181655%_ (let () (declare (not safe)) - (##cdr _%block181469181480%_)))) - (let ((_%name181499%_ _%hd181473181494%_)) - (if (pair? _%tl181474181496%_) - (let ((_%hd181475181501%_ + (##cdr _%block181628181639%_)))) + (let ((_%name181658%_ _%hd181632181653%_)) + (if (pair? _%tl181633181655%_) + (let ((_%hd181634181660%_ (let () (declare (not safe)) - (##car _%tl181474181496%_))) - (_%tl181476181503%_ + (##car _%tl181633181655%_))) + (_%tl181635181662%_ (let () (declare (not safe)) - (##cdr _%tl181474181496%_)))) - (let ((_%type181506%_ - _%hd181475181501%_)) - (if (pair? _%tl181476181503%_) - (let* ((_%hd181477181508%_ + (##cdr _%tl181633181655%_)))) + (let ((_%type181665%_ + _%hd181634181660%_)) + (if (pair? _%tl181635181662%_) + (let* ((_%hd181636181667%_ (let () (declare (not safe)) - (##car _%tl181476181503%_))) - (_%kont181511%_ - _%hd181477181508%_)) - (_%K181472181491%_ - _%kont181511%_ - _%type181506%_ - _%name181499%_)) - (_%E181471181484%_)))) - (_%E181471181484%_)))) - (_%E181471181484%_)))))) - (if (pair? _%rest181448181456%_) - (let ((_%hd181453181516%_ + (##car _%tl181635181662%_))) + (_%kont181670%_ + _%hd181636181667%_)) + (_%K181631181650%_ + _%kont181670%_ + _%type181665%_ + _%name181658%_)) + (_%E181630181643%_)))) + (_%E181630181643%_)))) + (_%E181630181643%_)))))) + (if (pair? _%rest181607181615%_) + (let ((_%hd181612181675%_ (let () (declare (not safe)) - (##car _%rest181448181456%_))) - (_%tl181454181518%_ + (##car _%rest181607181615%_))) + (_%tl181613181677%_ (let () (declare (not safe)) - (##cdr _%rest181448181456%_)))) - (let* ((_%block181521%_ _%hd181453181516%_) - (_%rest181523%_ _%tl181454181518%_)) - (_%K181452181513%_ _%rest181523%_ _%block181521%_))) - (_%else181450181464%_))))))) + (##cdr _%rest181607181615%_)))) + (let* ((_%block181680%_ _%hd181612181675%_) + (_%rest181682%_ _%tl181613181677%_)) + (_%K181611181672%_ _%rest181682%_ _%block181680%_))) + (_%else181609181623%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks181361%_ _%konts181362%_) - (let* ((_%blocks181363181379%_ _%blocks181361%_) - (_%else181365181387%_ (lambda () _%blocks181361%_)) - (_%K181367181405%_ - (lambda (_%rest181390%_ _%kont181391%_ _%name181392%_) - (letrec* ((_%rtab181394%_ + (lambda (_%blocks181520%_ _%konts181521%_) + (let* ((_%blocks181522181538%_ _%blocks181520%_) + (_%else181524181546%_ (lambda () _%blocks181520%_)) + (_%K181526181564%_ + (lambda (_%rest181549%_ _%kont181550%_ _%name181551%_) + (letrec* ((_%rtab181553%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181396%_) - (let ((__tmp192309 (caddr _%block181396%_))) + (lambda (_%block181555%_) + (let ((__tmp192468 (caddr _%block181555%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181394%_ - __tmp192309))) - _%konts181362%_) - (if (let ((__tmp192310 - (let ((__tmp192311 + _%rtab181553%_ + __tmp192468))) + _%konts181521%_) + (if (let ((__tmp192469 + (let ((__tmp192470 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181392%_)))) + _%name181551%_)))) (declare (not safe)) - (hash-ref__0 _%rtab181394%_ __tmp192311)))) + (hash-ref__0 _%rtab181553%_ __tmp192470)))) (declare (not safe)) - (##fx= __tmp192310 '1)) - (let* ((_%rblock181400%_ - (let ((__tmp192312 - (lambda (_%block181398%_) - (let ((__tmp192314 - (cons _%name181392%_ '())) - (__tmp192313 - (caddr _%block181398%_))) + (##fx= __tmp192469 '1)) + (let* ((_%rblock181559%_ + (let ((__tmp192471 + (lambda (_%block181557%_) + (let ((__tmp192473 + (cons _%name181551%_ '())) + (__tmp192472 + (caddr _%block181557%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192314 - __tmp192313))))) + __tmp192473 + __tmp192472))))) (declare (not safe)) - (__find __tmp192312 _%konts181362%_))) - (_%assert181402%_ + (__find __tmp192471 _%konts181521%_))) + (_%assert181561%_ (gxc#optimize-match-assert-restart - _%rblock181400%_ - _%name181392%_))) - (cons (cons _%name181392%_ + _%rblock181559%_ + _%name181551%_))) + (cons (cons _%name181551%_ (cons 'restart: - (cons _%kont181391%_ - (cons _%assert181402%_ + (cons _%kont181550%_ + (cons _%assert181561%_ '())))) - _%rest181390%_)) - _%blocks181361%_))))) - (if (pair? _%blocks181363181379%_) - (let ((_%hd181368181408%_ + _%rest181549%_)) + _%blocks181520%_))))) + (if (pair? _%blocks181522181538%_) + (let ((_%hd181527181567%_ (let () (declare (not safe)) - (##car _%blocks181363181379%_))) - (_%tl181369181410%_ + (##car _%blocks181522181538%_))) + (_%tl181528181569%_ (let () (declare (not safe)) - (##cdr _%blocks181363181379%_)))) - (if (pair? _%hd181368181408%_) - (let ((_%hd181370181413%_ + (##cdr _%blocks181522181538%_)))) + (if (pair? _%hd181527181567%_) + (let ((_%hd181529181572%_ (let () (declare (not safe)) - (##car _%hd181368181408%_))) - (_%tl181371181415%_ + (##car _%hd181527181567%_))) + (_%tl181530181574%_ (let () (declare (not safe)) - (##cdr _%hd181368181408%_)))) - (let ((_%name181418%_ _%hd181370181413%_)) - (if (pair? _%tl181371181415%_) - (let ((_%hd181372181420%_ + (##cdr _%hd181527181567%_)))) + (let ((_%name181577%_ _%hd181529181572%_)) + (if (pair? _%tl181530181574%_) + (let ((_%hd181531181579%_ (let () (declare (not safe)) - (##car _%tl181371181415%_))) - (_%tl181373181422%_ + (##car _%tl181530181574%_))) + (_%tl181532181581%_ (let () (declare (not safe)) - (##cdr _%tl181371181415%_)))) + (##cdr _%tl181530181574%_)))) (if (let () (declare (not safe)) - (##eq? _%hd181372181420%_ 'restart:)) - (if (pair? _%tl181373181422%_) - (let ((_%hd181374181425%_ + (##eq? _%hd181531181579%_ 'restart:)) + (if (pair? _%tl181532181581%_) + (let ((_%hd181533181584%_ (let () (declare (not safe)) - (##car _%tl181373181422%_))) - (_%tl181375181427%_ + (##car _%tl181532181581%_))) + (_%tl181534181586%_ (let () (declare (not safe)) - (##cdr _%tl181373181422%_)))) - (let ((_%kont181430%_ - _%hd181374181425%_)) - (if (pair? _%tl181375181427%_) - (let ((_%tl181377181432%_ + (##cdr _%tl181532181581%_)))) + (let ((_%kont181589%_ + _%hd181533181584%_)) + (if (pair? _%tl181534181586%_) + (let ((_%tl181536181591%_ (let () (declare (not safe)) - (##cdr _%tl181375181427%_)))) - (if (null? _%tl181377181432%_) - (let ((_%rest181435%_ - _%tl181369181410%_)) - (_%K181367181405%_ - _%rest181435%_ - _%kont181430%_ - _%name181418%_)) - (_%else181365181387%_))) - (_%else181365181387%_)))) - (_%else181365181387%_)) - (_%else181365181387%_))) - (_%else181365181387%_)))) - (_%else181365181387%_))) - (_%else181365181387%_))))) + (##cdr _%tl181534181586%_)))) + (if (null? _%tl181536181591%_) + (let ((_%rest181594%_ + _%tl181528181569%_)) + (_%K181526181564%_ + _%rest181594%_ + _%kont181589%_ + _%name181577%_)) + (_%else181524181546%_))) + (_%else181524181546%_)))) + (_%else181524181546%_)) + (_%else181524181546%_))) + (_%else181524181546%_)))) + (_%else181524181546%_))) + (_%else181524181546%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block180757%_ _%name180758%_) - (letrec ((_%assert-restart180760%_ - (lambda (_%expr180916%_ _%assert180917%_) - (let* ((_%__stx191316191317%_ _%expr180916%_) - (_%g180923181020%_ + (lambda (_%block180916%_ _%name180917%_) + (letrec ((_%assert-restart180919%_ + (lambda (_%expr181075%_ _%assert181076%_) + (let* ((_%__stx191475191476%_ _%expr181075%_) + (_%g181082181179%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191316191317%_))))) - (let ((_%__kont191318191319%_ - (lambda (_%L181336%_ _%L181337%_ _%L181338%_) - (let ((_%$e181355%_ - (_%assert-restart180760%_ - _%L181337%_ - (cons (cons _%L181338%_ '#t) - _%assert180917%_)))) - (if _%$e181355%_ - _%$e181355%_ - (_%assert-restart180760%_ - _%L181336%_ - (cons (cons _%L181338%_ '#f) - _%assert180917%_)))))) - (_%__kont191320191321%_ - (lambda (_%L181284%_) + _%__stx191475191476%_))))) + (let ((_%__kont191477191478%_ + (lambda (_%L181495%_ _%L181496%_ _%L181497%_) + (let ((_%$e181514%_ + (_%assert-restart180919%_ + _%L181496%_ + (cons (cons _%L181497%_ '#t) + _%assert181076%_)))) + (if _%$e181514%_ + _%$e181514%_ + (_%assert-restart180919%_ + _%L181495%_ + (cons (cons _%L181497%_ '#f) + _%assert181076%_)))))) + (_%__kont191479191480%_ + (lambda (_%L181443%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L181284%_ - _%name180758%_)) - _%assert180917%_ + _%L181443%_ + _%name180917%_)) + _%assert181076%_ '#f))) - (_%__kont191322191323%_ - (lambda (_%L181234%_) - (_%assert-restart180760%_ - _%L181234%_ - _%assert180917%_))) - (_%__kont191324191325%_ - (lambda (_%L181160%_ - _%L181161%_ - _%L181162%_ - _%L181163%_ - _%L181164%_) - (_%assert-restart180760%_ - _%L181162%_ - _%assert180917%_))) - (_%__kont191330191331%_ (lambda () '#f))) - (let ((_%__match191485191486%_ - (lambda (_%e180968181032%_ - _%hd180969181035%_ - _%tl180970181037%_ - _%e180971181040%_ - _%hd180972181043%_ - _%tl180973181045%_ - _%e180974181048%_ - _%hd180975181051%_ - _%tl180976181053%_ - _%e180977181056%_ - _%hd180978181059%_ - _%tl180979181061%_ - _%e180980181064%_ - _%hd180981181067%_ - _%tl180982181069%_ - _%e180983181072%_ - _%hd180984181075%_ - _%tl180985181077%_ - _%e180986181080%_ - _%hd180987181083%_ - _%tl180988181085%_ - _%e180989181088%_ - _%hd180990181091%_ - _%tl180991181093%_ - _%__splice191326191327%_ - _%target180992181096%_ - _%tl180994181098%_) - (letrec ((_%loop180995181101%_ - (lambda (_%hd180993181104%_ - _%id180999181106%_) + (_%__kont191481191482%_ + (lambda (_%L181393%_) + (_%assert-restart180919%_ + _%L181393%_ + _%assert181076%_))) + (_%__kont191483191484%_ + (lambda (_%L181319%_ + _%L181320%_ + _%L181321%_ + _%L181322%_ + _%L181323%_) + (_%assert-restart180919%_ + _%L181321%_ + _%assert181076%_))) + (_%__kont191489191490%_ (lambda () '#f))) + (let ((_%__match191644191645%_ + (lambda (_%e181127181191%_ + _%hd181128181194%_ + _%tl181129181196%_ + _%e181130181199%_ + _%hd181131181202%_ + _%tl181132181204%_ + _%e181133181207%_ + _%hd181134181210%_ + _%tl181135181212%_ + _%e181136181215%_ + _%hd181137181218%_ + _%tl181138181220%_ + _%e181139181223%_ + _%hd181140181226%_ + _%tl181141181228%_ + _%e181142181231%_ + _%hd181143181234%_ + _%tl181144181236%_ + _%e181145181239%_ + _%hd181146181242%_ + _%tl181147181244%_ + _%e181148181247%_ + _%hd181149181250%_ + _%tl181150181252%_ + _%__splice191485191486%_ + _%target181151181255%_ + _%tl181153181257%_) + (letrec ((_%loop181154181260%_ + (lambda (_%hd181152181263%_ + _%id181158181265%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180993181104%_)) - (let ((_%e180996181109%_ + _%hd181152181263%_)) + (let ((_%e181155181268%_ (let () (declare (not safe)) (gx#stx-e - _%hd180993181104%_)))) - (let ((_%lp-tl180998181114%_ + _%hd181152181263%_)))) + (let ((_%lp-tl181157181273%_ (let () (declare (not safe)) - (##cdr _%e180996181109%_))) - (_%lp-hd180997181112%_ + (##cdr _%e181155181268%_))) + (_%lp-hd181156181271%_ (let () (declare (not safe)) - (##car _%e180996181109%_)))) - (_%loop180995181101%_ - _%lp-tl180998181114%_ - (cons _%lp-hd180997181112%_ - _%id180999181106%_)))) - (let ((_%id181000181117%_ - (reverse _%id180999181106%_))) + (##car _%e181155181268%_)))) + (_%loop181154181260%_ + _%lp-tl181157181273%_ + (cons _%lp-hd181156181271%_ + _%id181158181265%_)))) + (let ((_%id181159181276%_ + (reverse _%id181158181265%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180991181093%_)) - (let ((_%e181001181120%_ + _%tl181150181252%_)) + (let ((_%e181160181279%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180991181093%_)))) - (let ((_%tl181003181125%_ + (gx#stx-e _%tl181150181252%_)))) + (let ((_%tl181162181284%_ (let () (declare (not safe)) - (##cdr _%e181001181120%_))) - (_%hd181002181123%_ + (##cdr _%e181160181279%_))) + (_%hd181161181282%_ (let () (declare (not safe)) - (##car _%e181001181120%_)))) + (##car _%e181160181279%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181003181125%_)) + (gx#stx-null? _%tl181162181284%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180985181077%_)) + (gx#stx-null? _%tl181144181236%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl180976181053%_)) - (let ((_%__splice191328191329%_ + (gx#stx-pair/null? _%tl181135181212%_)) + (let ((_%__splice191487191488%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl180976181053%_ + _%tl181135181212%_ '0)))) - (let ((_%tl181006181130%_ + (let ((_%tl181165181289%_ (let () (declare (not safe)) (##vector-ref - _%__splice191328191329%_ + _%__splice191487191488%_ '1))) - (_%target181004181128%_ + (_%target181163181287%_ (let () (declare (not safe)) (##vector-ref - _%__splice191328191329%_ + _%__splice191487191488%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181006181130%_)) - (letrec ((_%loop181007181133%_ - (lambda (_%hd181005181136%_ - _%bind181011181138%_) + (gx#stx-null? _%tl181165181289%_)) + (letrec ((_%loop181166181292%_ + (lambda (_%hd181164181295%_ + _%bind181170181297%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181005181136%_)) - (let ((_%e181008181141%_ + _%hd181164181295%_)) + (let ((_%e181167181300%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd181005181136%_)))) - (let ((_%lp-tl181010181146%_ + (gx#stx-e _%hd181164181295%_)))) + (let ((_%lp-tl181169181305%_ (let () (declare (not safe)) - (##cdr _%e181008181141%_))) - (_%lp-hd181009181144%_ + (##cdr _%e181167181300%_))) + (_%lp-hd181168181303%_ (let () (declare (not safe)) - (##car _%e181008181141%_)))) - (_%loop181007181133%_ - _%lp-tl181010181146%_ - (cons _%lp-hd181009181144%_ _%bind181011181138%_)))) - (let ((_%bind181012181149%_ (reverse _%bind181011181138%_))) + (##car _%e181167181300%_)))) + (_%loop181166181292%_ + _%lp-tl181169181305%_ + (cons _%lp-hd181168181303%_ _%bind181170181297%_)))) + (let ((_%bind181171181308%_ (reverse _%bind181170181297%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180973181045%_)) - (let ((_%e181013181152%_ + (gx#stx-pair? _%tl181132181204%_)) + (let ((_%e181172181311%_ (let () (declare (not safe)) - (gx#stx-e _%tl180973181045%_)))) - (let ((_%tl181015181157%_ + (gx#stx-e _%tl181132181204%_)))) + (let ((_%tl181174181316%_ (let () (declare (not safe)) - (##cdr _%e181013181152%_))) - (_%hd181014181155%_ + (##cdr _%e181172181311%_))) + (_%hd181173181314%_ (let () (declare (not safe)) - (##car _%e181013181152%_)))) + (##car _%e181172181311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181015181157%_)) - (_%__kont191324191325%_ - _%hd181014181155%_ - _%bind181012181149%_ - _%hd181002181123%_ - _%id181000181117%_ - _%hd180981181067%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_))))))) + (gx#stx-null? _%tl181174181316%_)) + (_%__kont191483191484%_ + _%hd181173181314%_ + _%bind181171181308%_ + _%hd181161181282%_ + _%id181159181276%_ + _%hd181140181226%_) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181007181133%_ - _%target181004181128%_ + (_%loop181166181292%_ + _%target181163181287%_ '())) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_))))))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)) + (_%__kont191489191490%_)) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop180995181101%_ - _%target180992181096%_ + (_%loop181154181260%_ + _%target181151181255%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191316191317%_)) - (let ((_%e180928181304%_ + (gx#stx-pair? _%__stx191475191476%_)) + (let ((_%e181087181463%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191316191317%_)))) - (let ((_%tl180930181309%_ + (gx#stx-e _%__stx191475191476%_)))) + (let ((_%tl181089181468%_ (let () (declare (not safe)) - (##cdr _%e180928181304%_))) - (_%hd180929181307%_ + (##cdr _%e181087181463%_))) + (_%hd181088181466%_ (let () (declare (not safe)) - (##car _%e180928181304%_)))) + (##car _%e181087181463%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180929181307%_)) + (gx#identifier? _%hd181088181466%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd180929181307%_)) + _%hd181088181466%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180931181312%_ + _%tl181089181468%_)) + (let ((_%e181090181471%_ (let () (declare (not safe)) (gx#stx-e - _%tl180930181309%_)))) - (let ((_%tl180933181317%_ + _%tl181089181468%_)))) + (let ((_%tl181092181476%_ (let () (declare (not safe)) - (##cdr _%e180931181312%_))) - (_%hd180932181315%_ + (##cdr _%e181090181471%_))) + (_%hd181091181474%_ (let () (declare (not safe)) - (##car _%e180931181312%_)))) + (##car _%e181090181471%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180933181317%_)) - (let ((_%e180934181320%_ + _%tl181092181476%_)) + (let ((_%e181093181479%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180933181317%_)))) - (let ((_%tl180936181325%_ - (let () (declare (not safe)) (##cdr _%e180934181320%_))) - (_%hd180935181323%_ + (gx#stx-e _%tl181092181476%_)))) + (let ((_%tl181095181484%_ + (let () (declare (not safe)) (##cdr _%e181093181479%_))) + (_%hd181094181482%_ (let () (declare (not safe)) - (##car _%e180934181320%_)))) + (##car _%e181093181479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180936181325%_)) - (let ((_%e180937181328%_ + (gx#stx-pair? _%tl181095181484%_)) + (let ((_%e181096181487%_ (let () (declare (not safe)) - (gx#stx-e _%tl180936181325%_)))) - (let ((_%tl180939181333%_ + (gx#stx-e _%tl181095181484%_)))) + (let ((_%tl181098181492%_ (let () (declare (not safe)) - (##cdr _%e180937181328%_))) - (_%hd180938181331%_ + (##cdr _%e181096181487%_))) + (_%hd181097181490%_ (let () (declare (not safe)) - (##car _%e180937181328%_)))) + (##car _%e181096181487%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180939181333%_)) - (_%__kont191318191319%_ - _%hd180938181331%_ - _%hd180935181323%_ - _%hd180932181315%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) + (gx#stx-null? _%tl181098181492%_)) + (_%__kont191477191478%_ + _%hd181097181490%_ + _%hd181094181482%_ + _%hd181091181474%_) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)) + (_%__kont191489191490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180929181307%_)) + _%hd181088181466%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180944181260%_ + _%tl181089181468%_)) + (let ((_%e181103181419%_ (let () (declare (not safe)) (gx#stx-e - _%tl180930181309%_)))) - (let ((_%tl180946181265%_ + _%tl181089181468%_)))) + (let ((_%tl181105181424%_ (let () (declare (not safe)) - (##cdr _%e180944181260%_))) - (_%hd180945181263%_ + (##cdr _%e181103181419%_))) + (_%hd181104181422%_ (let () (declare (not safe)) - (##car _%e180944181260%_)))) + (##car _%e181103181419%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180945181263%_)) - (let ((_%e180947181268%_ + _%hd181104181422%_)) + (let ((_%e181106181427%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180945181263%_)))) - (let ((_%tl180949181273%_ + (gx#stx-e _%hd181104181422%_)))) + (let ((_%tl181108181432%_ (let () (declare (not safe)) - (##cdr _%e180947181268%_))) - (_%hd180948181271%_ + (##cdr _%e181106181427%_))) + (_%hd181107181430%_ (let () (declare (not safe)) - (##car _%e180947181268%_)))) + (##car _%e181106181427%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180948181271%_)) + (gx#identifier? _%hd181107181430%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180948181271%_)) + (gx#stx-eq? '%#ref _%hd181107181430%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180949181273%_)) - (let ((_%e180950181276%_ + (gx#stx-pair? _%tl181108181432%_)) + (let ((_%e181109181435%_ (let () (declare (not safe)) - (gx#stx-e _%tl180949181273%_)))) - (let ((_%tl180952181281%_ + (gx#stx-e _%tl181108181432%_)))) + (let ((_%tl181111181440%_ (let () (declare (not safe)) - (##cdr _%e180950181276%_))) - (_%hd180951181279%_ + (##cdr _%e181109181435%_))) + (_%hd181110181438%_ (let () (declare (not safe)) - (##car _%e180950181276%_)))) + (##car _%e181109181435%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180952181281%_)) - (_%__kont191320191321%_ - _%hd180951181279%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) + (gx#stx-null? _%tl181111181440%_)) + (_%__kont191479191480%_ + _%hd181110181438%_) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)) + (_%__kont191489191490%_)) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)) + (_%__kont191489191490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180929181307%_)) + _%hd181088181466%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180957181218%_ + _%tl181089181468%_)) + (let ((_%e181116181377%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180930181309%_)))) - (let ((_%tl180959181223%_ - (let () (declare (not safe)) (##cdr _%e180957181218%_))) - (_%hd180958181221%_ + (gx#stx-e _%tl181089181468%_)))) + (let ((_%tl181118181382%_ + (let () (declare (not safe)) (##cdr _%e181116181377%_))) + (_%hd181117181380%_ (let () (declare (not safe)) - (##car _%e180957181218%_)))) + (##car _%e181116181377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180959181223%_)) - (let ((_%e180960181226%_ + (gx#stx-pair? _%tl181118181382%_)) + (let ((_%e181119181385%_ (let () (declare (not safe)) - (gx#stx-e _%tl180959181223%_)))) - (let ((_%tl180962181231%_ + (gx#stx-e _%tl181118181382%_)))) + (let ((_%tl181121181390%_ (let () (declare (not safe)) - (##cdr _%e180960181226%_))) - (_%hd180961181229%_ + (##cdr _%e181119181385%_))) + (_%hd181120181388%_ (let () (declare (not safe)) - (##car _%e180960181226%_)))) + (##car _%e181119181385%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180962181231%_)) - (_%__kont191322191323%_ _%hd180961181229%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) + (gx#stx-null? _%tl181121181390%_)) + (_%__kont191481191482%_ _%hd181120181388%_) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd180929181307%_)) + _%hd181088181466%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180971181040%_ + _%tl181089181468%_)) + (let ((_%e181130181199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180930181309%_)))) - (let ((_%tl180973181045%_ + (gx#stx-e _%tl181089181468%_)))) + (let ((_%tl181132181204%_ (let () (declare (not safe)) - (##cdr _%e180971181040%_))) - (_%hd180972181043%_ + (##cdr _%e181130181199%_))) + (_%hd181131181202%_ (let () (declare (not safe)) - (##car _%e180971181040%_)))) + (##car _%e181130181199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180972181043%_)) - (let ((_%e180974181048%_ + (gx#stx-pair? _%hd181131181202%_)) + (let ((_%e181133181207%_ (let () (declare (not safe)) - (gx#stx-e _%hd180972181043%_)))) - (let ((_%tl180976181053%_ + (gx#stx-e _%hd181131181202%_)))) + (let ((_%tl181135181212%_ (let () (declare (not safe)) - (##cdr _%e180974181048%_))) - (_%hd180975181051%_ + (##cdr _%e181133181207%_))) + (_%hd181134181210%_ (let () (declare (not safe)) - (##car _%e180974181048%_)))) + (##car _%e181133181207%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180975181051%_)) - (let ((_%e180977181056%_ + (gx#stx-pair? _%hd181134181210%_)) + (let ((_%e181136181215%_ (let () (declare (not safe)) - (gx#stx-e _%hd180975181051%_)))) - (let ((_%tl180979181061%_ + (gx#stx-e _%hd181134181210%_)))) + (let ((_%tl181138181220%_ (let () (declare (not safe)) - (##cdr _%e180977181056%_))) - (_%hd180978181059%_ + (##cdr _%e181136181215%_))) + (_%hd181137181218%_ (let () (declare (not safe)) - (##car _%e180977181056%_)))) + (##car _%e181136181215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180978181059%_)) - (let ((_%e180980181064%_ + (gx#stx-pair? _%hd181137181218%_)) + (let ((_%e181139181223%_ (let () (declare (not safe)) (gx#stx-e - _%hd180978181059%_)))) - (let ((_%tl180982181069%_ + _%hd181137181218%_)))) + (let ((_%tl181141181228%_ (let () (declare (not safe)) - (##cdr _%e180980181064%_))) - (_%hd180981181067%_ + (##cdr _%e181139181223%_))) + (_%hd181140181226%_ (let () (declare (not safe)) - (##car _%e180980181064%_)))) + (##car _%e181139181223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180982181069%_)) + _%tl181141181228%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180979181061%_)) - (let ((_%e180983181072%_ + _%tl181138181220%_)) + (let ((_%e181142181231%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180979181061%_)))) - (let ((_%tl180985181077%_ - (let () (declare (not safe)) (##cdr _%e180983181072%_))) - (_%hd180984181075%_ + (gx#stx-e _%tl181138181220%_)))) + (let ((_%tl181144181236%_ + (let () (declare (not safe)) (##cdr _%e181142181231%_))) + (_%hd181143181234%_ (let () (declare (not safe)) - (##car _%e180983181072%_)))) + (##car _%e181142181231%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180984181075%_)) - (let ((_%e180986181080%_ + (gx#stx-pair? _%hd181143181234%_)) + (let ((_%e181145181239%_ (let () (declare (not safe)) - (gx#stx-e _%hd180984181075%_)))) - (let ((_%tl180988181085%_ + (gx#stx-e _%hd181143181234%_)))) + (let ((_%tl181147181244%_ (let () (declare (not safe)) - (##cdr _%e180986181080%_))) - (_%hd180987181083%_ + (##cdr _%e181145181239%_))) + (_%hd181146181242%_ (let () (declare (not safe)) - (##car _%e180986181080%_)))) + (##car _%e181145181239%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180987181083%_)) + (gx#identifier? _%hd181146181242%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd180987181083%_)) + (gx#stx-eq? '%#lambda _%hd181146181242%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180988181085%_)) - (let ((_%e180989181088%_ + (gx#stx-pair? _%tl181147181244%_)) + (let ((_%e181148181247%_ (let () (declare (not safe)) - (gx#stx-e _%tl180988181085%_)))) - (let ((_%tl180991181093%_ + (gx#stx-e _%tl181147181244%_)))) + (let ((_%tl181150181252%_ (let () (declare (not safe)) - (##cdr _%e180989181088%_))) - (_%hd180990181091%_ + (##cdr _%e181148181247%_))) + (_%hd181149181250%_ (let () (declare (not safe)) - (##car _%e180989181088%_)))) + (##car _%e181148181247%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180990181091%_)) - (let ((_%__splice191326191327%_ + _%hd181149181250%_)) + (let ((_%__splice191485191486%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd180990181091%_ + _%hd181149181250%_ '0)))) - (let ((_%tl180994181098%_ + (let ((_%tl181153181257%_ (let () (declare (not safe)) (##vector-ref - _%__splice191326191327%_ + _%__splice191485191486%_ '1))) - (_%target180992181096%_ + (_%target181151181255%_ (let () (declare (not safe)) (##vector-ref - _%__splice191326191327%_ + _%__splice191485191486%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180994181098%_)) - (_%__match191485191486%_ - _%e180928181304%_ - _%hd180929181307%_ - _%tl180930181309%_ - _%e180971181040%_ - _%hd180972181043%_ - _%tl180973181045%_ - _%e180974181048%_ - _%hd180975181051%_ - _%tl180976181053%_ - _%e180977181056%_ - _%hd180978181059%_ - _%tl180979181061%_ - _%e180980181064%_ - _%hd180981181067%_ - _%tl180982181069%_ - _%e180983181072%_ - _%hd180984181075%_ - _%tl180985181077%_ - _%e180986181080%_ - _%hd180987181083%_ - _%tl180988181085%_ - _%e180989181088%_ - _%hd180990181091%_ - _%tl180991181093%_ - _%__splice191326191327%_ - _%target180992181096%_ - _%tl180994181098%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) + _%tl181153181257%_)) + (_%__match191644191645%_ + _%e181087181463%_ + _%hd181088181466%_ + _%tl181089181468%_ + _%e181130181199%_ + _%hd181131181202%_ + _%tl181132181204%_ + _%e181133181207%_ + _%hd181134181210%_ + _%tl181135181212%_ + _%e181136181215%_ + _%hd181137181218%_ + _%tl181138181220%_ + _%e181139181223%_ + _%hd181140181226%_ + _%tl181141181228%_ + _%e181142181231%_ + _%hd181143181234%_ + _%tl181144181236%_ + _%e181145181239%_ + _%hd181146181242%_ + _%tl181147181244%_ + _%e181148181247%_ + _%hd181149181250%_ + _%tl181150181252%_ + _%__splice191485191486%_ + _%target181151181255%_ + _%tl181153181257%_) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)) + (_%__kont191489191490%_)) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_))))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)) + (_%__kont191489191490%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))))))) - (let* ((_%block180761180774%_ _%block180757%_) - (_%E180763180778%_ + (_%__kont191489191490%_)))) + (_%__kont191489191490%_)))))))) + (let* ((_%block180920180933%_ _%block180916%_) + (_%E180922180937%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block180761180774%_ + _%block180920180933%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K180764180891%_ - (lambda (_%maybe-bind180781%_ - _%assert180782%_ - _%kont180783%_) - (let* ((_%g180785180811%_ - (lambda (_%g180786180808%_) + (_%K180923181050%_ + (lambda (_%maybe-bind180940%_ + _%assert180941%_ + _%kont180942%_) + (let* ((_%g180944180970%_ + (lambda (_%g180945180967%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180786180808%_)))) - (_%g180784180888%_ - (lambda (_%g180786180814%_) + _%g180945180967%_)))) + (_%g180943181047%_ + (lambda (_%g180945180973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180786180814%_)) - (let ((_%e180789180816%_ + (gx#stx-pair? _%g180945180973%_)) + (let ((_%e180948180975%_ (let () (declare (not safe)) - (gx#stx-e _%g180786180814%_)))) - (let ((_%hd180790180819%_ + (gx#stx-e _%g180945180973%_)))) + (let ((_%hd180949180978%_ (let () (declare (not safe)) - (##car _%e180789180816%_))) - (_%tl180791180821%_ + (##car _%e180948180975%_))) + (_%tl180950180980%_ (let () (declare (not safe)) - (##cdr _%e180789180816%_)))) + (##cdr _%e180948180975%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180790180819%_)) + _%hd180949180978%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180790180819%_)) + _%hd180949180978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180791180821%_)) - (let ((_%e180792180824%_ + _%tl180950180980%_)) + (let ((_%e180951180983%_ (let () (declare (not safe)) (gx#stx-e - _%tl180791180821%_)))) - (let ((_%hd180793180827%_ + _%tl180950180980%_)))) + (let ((_%hd180952180986%_ (let () (declare (not safe)) - (##car _%e180792180824%_))) - (_%tl180794180829%_ + (##car _%e180951180983%_))) + (_%tl180953180988%_ (let () (declare (not safe)) - (##cdr _%e180792180824%_)))) + (##cdr _%e180951180983%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180793180827%_)) - (let ((_g192315_ + _%hd180952180986%_)) + (let ((_g192474_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180793180827%_ '0)))) + (gx#syntax-split-splice _%hd180952180986%_ '0)))) (begin - (let ((_g192316_ + (let ((_g192475_ (let () (declare (not safe)) - (if (##values? _g192315_) - (##vector-length _g192315_) + (if (##values? _g192474_) + (##vector-length _g192474_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192316_ 2))) - (error "Context expects 2 values" _g192316_))) - (let ((_%target180795180832%_ + (##fx= _g192475_ 2))) + (error "Context expects 2 values" _g192475_))) + (let ((_%target180954180991%_ (let () (declare (not safe)) - (##vector-ref _g192315_ 0))) - (_%tl180797180834%_ + (##vector-ref _g192474_ 0))) + (_%tl180956180993%_ (let () (declare (not safe)) - (##vector-ref _g192315_ 1)))) + (##vector-ref _g192474_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180797180834%_)) - (letrec ((_%loop180798180837%_ - (lambda (_%hd180796180840%_ - _%id180802180842%_) + (gx#stx-null? _%tl180956180993%_)) + (letrec ((_%loop180957180996%_ + (lambda (_%hd180955180999%_ + _%id180961181001%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180796180840%_)) - (let ((_%e180799180845%_ + _%hd180955180999%_)) + (let ((_%e180958181004%_ (let () (declare (not safe)) (gx#stx-e - _%hd180796180840%_)))) - (let ((_%lp-hd180800180848%_ + _%hd180955180999%_)))) + (let ((_%lp-hd180959181007%_ (let () (declare (not safe)) - (##car _%e180799180845%_))) - (_%lp-tl180801180850%_ + (##car _%e180958181004%_))) + (_%lp-tl180960181009%_ (let () (declare (not safe)) - (##cdr _%e180799180845%_)))) - (_%loop180798180837%_ - _%lp-tl180801180850%_ - (cons _%lp-hd180800180848%_ - _%id180802180842%_)))) - (let ((_%id180803180853%_ - (reverse _%id180802180842%_))) + (##cdr _%e180958181004%_)))) + (_%loop180957180996%_ + _%lp-tl180960181009%_ + (cons _%lp-hd180959181007%_ + _%id180961181001%_)))) + (let ((_%id180962181012%_ + (reverse _%id180961181001%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180794180829%_)) - (let ((_%e180804180856%_ + _%tl180953180988%_)) + (let ((_%e180963181015%_ (let () (declare (not safe)) (gx#stx-e - _%tl180794180829%_)))) - (let ((_%hd180805180859%_ + _%tl180953180988%_)))) + (let ((_%hd180964181018%_ (let () (declare (not safe)) - (##car _%e180804180856%_))) - (_%tl180806180861%_ + (##car _%e180963181015%_))) + (_%tl180965181020%_ (let () (declare (not safe)) - (##cdr _%e180804180856%_)))) + (##cdr _%e180963181015%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180806180861%_)) - ((lambda (_%L180864%_ + _%tl180965181020%_)) + ((lambda (_%L181023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180865%_) - (_%assert-restart180760%_ _%L180864%_ _%assert180782%_)) - _%hd180805180859%_ - _%id180803180853%_) - (_%g180785180811%_ _%g180786180814%_)))) + _%L181024%_) + (_%assert-restart180919%_ _%L181023%_ _%assert180941%_)) + _%hd180964181018%_ + _%id180962181012%_) + (_%g180944180970%_ _%g180945180973%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180785180811%_ - _%g180786180814%_))))))) - (_%loop180798180837%_ - _%target180795180832%_ + (_%g180944180970%_ + _%g180945180973%_))))))) + (_%loop180957180996%_ + _%target180954180991%_ '())) - (_%g180785180811%_ _%g180786180814%_))))) - (_%g180785180811%_ _%g180786180814%_)))) + (_%g180944180970%_ _%g180945180973%_))))) + (_%g180944180970%_ _%g180945180973%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180785180811%_ - _%g180786180814%_)) - (_%g180785180811%_ - _%g180786180814%_)) - (_%g180785180811%_ - _%g180786180814%_)))) - (_%g180785180811%_ _%g180786180814%_))))) - (_%g180784180888%_ _%kont180783%_))))) - (if (pair? _%block180761180774%_) - (let ((_%tl180766180894%_ + (_%g180944180970%_ + _%g180945180973%_)) + (_%g180944180970%_ + _%g180945180973%_)) + (_%g180944180970%_ + _%g180945180973%_)))) + (_%g180944180970%_ _%g180945180973%_))))) + (_%g180943181047%_ _%kont180942%_))))) + (if (pair? _%block180920180933%_) + (let ((_%tl180925181053%_ (let () (declare (not safe)) - (##cdr _%block180761180774%_)))) - (if (pair? _%tl180766180894%_) - (let ((_%tl180768180897%_ + (##cdr _%block180920180933%_)))) + (if (pair? _%tl180925181053%_) + (let ((_%tl180927181056%_ (let () (declare (not safe)) - (##cdr _%tl180766180894%_)))) - (if (pair? _%tl180768180897%_) - (let ((_%hd180769180900%_ + (##cdr _%tl180925181053%_)))) + (if (pair? _%tl180927181056%_) + (let ((_%hd180928181059%_ (let () (declare (not safe)) - (##car _%tl180768180897%_))) - (_%tl180770180902%_ + (##car _%tl180927181056%_))) + (_%tl180929181061%_ (let () (declare (not safe)) - (##cdr _%tl180768180897%_)))) - (let ((_%kont180905%_ _%hd180769180900%_)) - (if (pair? _%tl180770180902%_) - (let ((_%hd180771180907%_ + (##cdr _%tl180927181056%_)))) + (let ((_%kont181064%_ _%hd180928181059%_)) + (if (pair? _%tl180929181061%_) + (let ((_%hd180930181066%_ (let () (declare (not safe)) - (##car _%tl180770180902%_))) - (_%tl180772180909%_ + (##car _%tl180929181061%_))) + (_%tl180931181068%_ (let () (declare (not safe)) - (##cdr _%tl180770180902%_)))) - (let* ((_%assert180912%_ - _%hd180771180907%_) - (_%maybe-bind180914%_ - _%tl180772180909%_)) - (_%K180764180891%_ - _%maybe-bind180914%_ - _%assert180912%_ - _%kont180905%_))) - (_%E180763180778%_)))) - (_%E180763180778%_))) - (_%E180763180778%_))) - (_%E180763180778%_)))))) + (##cdr _%tl180929181061%_)))) + (let* ((_%assert181071%_ + _%hd180930181066%_) + (_%maybe-bind181073%_ + _%tl180931181068%_)) + (_%K180923181050%_ + _%maybe-bind181073%_ + _%assert181071%_ + _%kont181064%_))) + (_%E180922180937%_)))) + (_%E180922180937%_))) + (_%E180922180937%_))) + (_%E180922180937%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx180388%_) - (let* ((_%g180390180420%_ - (lambda (_%g180391180417%_) + (lambda (_%stx180547%_) + (let* ((_%g180549180579%_ + (lambda (_%g180550180576%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180391180417%_)))) - (_%g180389180754%_ - (lambda (_%g180391180423%_) + _%g180550180576%_)))) + (_%g180548180913%_ + (lambda (_%g180550180582%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180391180423%_)) - (let ((_%e180395180425%_ + (gx#stx-pair? _%g180550180582%_)) + (let ((_%e180554180584%_ (let () (declare (not safe)) - (gx#stx-e _%g180391180423%_)))) - (let ((_%hd180396180428%_ + (gx#stx-e _%g180550180582%_)))) + (let ((_%hd180555180587%_ (let () (declare (not safe)) - (##car _%e180395180425%_))) - (_%tl180397180430%_ + (##car _%e180554180584%_))) + (_%tl180556180589%_ (let () (declare (not safe)) - (##cdr _%e180395180425%_)))) + (##cdr _%e180554180584%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180396180428%_)) + (gx#identifier? _%hd180555180587%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180396180428%_)) + _%hd180555180587%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180397180430%_)) - (let ((_%e180398180433%_ + (gx#stx-pair? _%tl180556180589%_)) + (let ((_%e180557180592%_ (let () (declare (not safe)) - (gx#stx-e _%tl180397180430%_)))) - (let ((_%hd180399180436%_ + (gx#stx-e _%tl180556180589%_)))) + (let ((_%hd180558180595%_ (let () (declare (not safe)) - (##car _%e180398180433%_))) - (_%tl180400180438%_ + (##car _%e180557180592%_))) + (_%tl180559180597%_ (let () (declare (not safe)) - (##cdr _%e180398180433%_)))) + (##cdr _%e180557180592%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180399180436%_)) - (let ((_%e180401180441%_ + _%hd180558180595%_)) + (let ((_%e180560180600%_ (let () (declare (not safe)) (gx#stx-e - _%hd180399180436%_)))) - (let ((_%hd180402180444%_ + _%hd180558180595%_)))) + (let ((_%hd180561180603%_ (let () (declare (not safe)) - (##car _%e180401180441%_))) - (_%tl180403180446%_ + (##car _%e180560180600%_))) + (_%tl180562180605%_ (let () (declare (not safe)) - (##cdr _%e180401180441%_)))) + (##cdr _%e180560180600%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180402180444%_)) - (let ((_%e180404180449%_ + _%hd180561180603%_)) + (let ((_%e180563180608%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180402180444%_)))) - (let ((_%hd180405180452%_ - (let () (declare (not safe)) (##car _%e180404180449%_))) - (_%tl180406180454%_ + (gx#stx-e _%hd180561180603%_)))) + (let ((_%hd180564180611%_ + (let () (declare (not safe)) (##car _%e180563180608%_))) + (_%tl180565180613%_ (let () (declare (not safe)) - (##cdr _%e180404180449%_)))) + (##cdr _%e180563180608%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180405180452%_)) - (let ((_%e180407180457%_ + (gx#stx-pair? _%hd180564180611%_)) + (let ((_%e180566180616%_ (let () (declare (not safe)) - (gx#stx-e _%hd180405180452%_)))) - (let ((_%hd180408180460%_ + (gx#stx-e _%hd180564180611%_)))) + (let ((_%hd180567180619%_ (let () (declare (not safe)) - (##car _%e180407180457%_))) - (_%tl180409180462%_ + (##car _%e180566180616%_))) + (_%tl180568180621%_ (let () (declare (not safe)) - (##cdr _%e180407180457%_)))) + (##cdr _%e180566180616%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180409180462%_)) + (gx#stx-null? _%tl180568180621%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180406180454%_)) - (let ((_%e180410180465%_ + (gx#stx-pair? _%tl180565180613%_)) + (let ((_%e180569180624%_ (let () (declare (not safe)) - (gx#stx-e _%tl180406180454%_)))) - (let ((_%hd180411180468%_ + (gx#stx-e _%tl180565180613%_)))) + (let ((_%hd180570180627%_ (let () (declare (not safe)) - (##car _%e180410180465%_))) - (_%tl180412180470%_ + (##car _%e180569180624%_))) + (_%tl180571180629%_ (let () (declare (not safe)) - (##cdr _%e180410180465%_)))) + (##cdr _%e180569180624%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180412180470%_)) + (gx#stx-null? _%tl180571180629%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180403180446%_)) + _%tl180562180605%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180400180438%_)) - (let ((_%e180413180473%_ + _%tl180559180597%_)) + (let ((_%e180572180632%_ (let () (declare (not safe)) (gx#stx-e - _%tl180400180438%_)))) - (let ((_%hd180414180476%_ + _%tl180559180597%_)))) + (let ((_%hd180573180635%_ (let () (declare (not safe)) - (##car _%e180413180473%_))) - (_%tl180415180478%_ + (##car _%e180572180632%_))) + (_%tl180574180637%_ (let () (declare (not safe)) - (##cdr _%e180413180473%_)))) + (##cdr _%e180572180632%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180415180478%_)) - ((lambda (_%L180481%_ + _%tl180574180637%_)) + ((lambda (_%L180640%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180482%_ - _%L180483%_) - (let _%lp180507%_ ((_%body180509%_ _%L180481%_) - (_%clauses180510%_ '())) - (let* ((_%__stx191488191489%_ _%body180509%_) - (_%g180513180560%_ + _%L180641%_ + _%L180642%_) + (let _%lp180666%_ ((_%body180668%_ _%L180640%_) + (_%clauses180669%_ '())) + (let* ((_%__stx191647191648%_ _%body180668%_) + (_%g180672180719%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191488191489%_))))) - (let ((_%__kont191490191491%_ - (lambda (_%L180726%_ _%L180727%_ _%L180728%_) - (_%lp180507%_ - _%L180726%_ - (cons (cons _%L180728%_ + _%__stx191647191648%_))))) + (let ((_%__kont191649191650%_ + (lambda (_%L180885%_ _%L180886%_ _%L180887%_) + (_%lp180666%_ + _%L180885%_ + (cons (cons _%L180887%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L180727%_))) - _%clauses180510%_)))) - (_%__kont191492191493%_ - (lambda (_%L180605%_ _%L180606%_) - (let ((_%$e180627%_ - (length _%clauses180510%_))) - (if (eq? '0 _%$e180627%_) - (let ((__tmp192317 + _%L180886%_))) + _%clauses180669%_)))) + (_%__kont191651191652%_ + (lambda (_%L180764%_ _%L180765%_) + (let ((_%$e180786%_ + (length _%clauses180669%_))) + (if (eq? '0 _%$e180786%_) + (let ((__tmp192476 (cons '%#let-values - (cons (cons (cons (cons _%L180483%_ + (cons (cons (cons (cons _%L180642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L180482%_ '())) + (cons _%L180641%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body180509%_)) + (gxc#compile-e__0 _%body180668%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192317 - _%stx180388%_)) - (if (eq? '1 _%$e180627%_) - (let* ((_%clauses180629180638%_ - _%clauses180510%_) - (_%E180631180642%_ + __tmp192476 + _%stx180547%_)) + (if (eq? '1 _%$e180786%_) + (let* ((_%clauses180788180797%_ + _%clauses180669%_) + (_%E180790180801%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180629180638%_ + _%clauses180788180797%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K180632180648%_ - (lambda (_%clause-lambda180645%_ - _%clause180646%_) - (let ((__tmp192318 + (_%K180791180807%_ + (lambda (_%clause-lambda180804%_ + _%clause180805%_) + (let ((__tmp192477 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L180483%_ '()) - (cons _%L180482%_ '())) + (cons (cons (cons (cons _%L180642%_ '()) + (cons _%L180641%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause180646%_ + (cons (cons (cons (cons _%clause180805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda180645%_ '())) + (cons _%clause-lambda180804%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body180509%_)) + _%body180668%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192318 _%stx180388%_))))) + (gxc#xform-wrap-source __tmp192477 _%stx180547%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%clauses180629180638%_) - (let ((_%hd180633180651%_ + (if (pair? _%clauses180788180797%_) + (let ((_%hd180792180810%_ (let () (declare (not safe)) - (##car _%clauses180629180638%_))) - (_%tl180634180653%_ + (##car _%clauses180788180797%_))) + (_%tl180793180812%_ (let () (declare (not safe)) - (##cdr _%clauses180629180638%_)))) - (if (pair? _%hd180633180651%_) - (let ((_%hd180635180656%_ + (##cdr _%clauses180788180797%_)))) + (if (pair? _%hd180792180810%_) + (let ((_%hd180794180815%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd180633180651%_))) - (_%tl180636180658%_ + (##car _%hd180792180810%_))) + (_%tl180795180817%_ (let () (declare (not safe)) - (##cdr _%hd180633180651%_)))) - (let* ((_%clause180661%_ _%hd180635180656%_) - (_%clause-lambda180663%_ _%tl180636180658%_)) - (if (null? _%tl180634180653%_) - (_%K180632180648%_ - _%clause-lambda180663%_ - _%clause180661%_) - (_%E180631180642%_)))) - (_%E180631180642%_))) + (##cdr _%hd180792180810%_)))) + (let* ((_%clause180820%_ _%hd180794180815%_) + (_%clause-lambda180822%_ _%tl180795180817%_)) + (if (null? _%tl180793180812%_) + (_%K180791180807%_ + _%clause-lambda180822%_ + _%clause180820%_) + (_%E180790180801%_)))) + (_%E180790180801%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E180631180642%_))) + (_%E180790180801%_))) (gxc#optimize-syntax-case-body - _%stx180388%_ + _%stx180547%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L180605%_)) - (cons _%L180483%_ _%L180482%_) - _%clauses180510%_))))))) + (gxc#compile-e__0 _%L180764%_)) + (cons _%L180642%_ _%L180641%_) + _%clauses180669%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191488191489%_)) - (let ((_%e180518180670%_ + (gx#stx-pair? _%__stx191647191648%_)) + (let ((_%e180677180829%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191488191489%_)))) - (let ((_%tl180520180675%_ + (gx#stx-e _%__stx191647191648%_)))) + (let ((_%tl180679180834%_ (let () (declare (not safe)) - (##cdr _%e180518180670%_))) - (_%hd180519180673%_ + (##cdr _%e180677180829%_))) + (_%hd180678180832%_ (let () (declare (not safe)) - (##car _%e180518180670%_)))) + (##car _%e180677180829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180519180673%_)) + (gx#identifier? _%hd180678180832%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180519180673%_)) + _%hd180678180832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180520180675%_)) - (let ((_%e180521180678%_ + _%tl180679180834%_)) + (let ((_%e180680180837%_ (let () (declare (not safe)) (gx#stx-e - _%tl180520180675%_)))) - (let ((_%tl180523180683%_ + _%tl180679180834%_)))) + (let ((_%tl180682180842%_ (let () (declare (not safe)) - (##cdr _%e180521180678%_))) - (_%hd180522180681%_ + (##cdr _%e180680180837%_))) + (_%hd180681180840%_ (let () (declare (not safe)) - (##car _%e180521180678%_)))) + (##car _%e180680180837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180522180681%_)) - (let ((_%e180524180686%_ + _%hd180681180840%_)) + (let ((_%e180683180845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180522180681%_)))) - (let ((_%tl180526180691%_ + (gx#stx-e _%hd180681180840%_)))) + (let ((_%tl180685180850%_ (let () (declare (not safe)) - (##cdr _%e180524180686%_))) - (_%hd180525180689%_ + (##cdr _%e180683180845%_))) + (_%hd180684180848%_ (let () (declare (not safe)) - (##car _%e180524180686%_)))) + (##car _%e180683180845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180525180689%_)) - (let ((_%e180527180694%_ + (gx#stx-pair? _%hd180684180848%_)) + (let ((_%e180686180853%_ (let () (declare (not safe)) - (gx#stx-e _%hd180525180689%_)))) - (let ((_%tl180529180699%_ + (gx#stx-e _%hd180684180848%_)))) + (let ((_%tl180688180858%_ (let () (declare (not safe)) - (##cdr _%e180527180694%_))) - (_%hd180528180697%_ + (##cdr _%e180686180853%_))) + (_%hd180687180856%_ (let () (declare (not safe)) - (##car _%e180527180694%_)))) + (##car _%e180686180853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180528180697%_)) - (let ((_%e180530180702%_ + (gx#stx-pair? _%hd180687180856%_)) + (let ((_%e180689180861%_ (let () (declare (not safe)) - (gx#stx-e _%hd180528180697%_)))) - (let ((_%tl180532180707%_ + (gx#stx-e _%hd180687180856%_)))) + (let ((_%tl180691180866%_ (let () (declare (not safe)) - (##cdr _%e180530180702%_))) - (_%hd180531180705%_ + (##cdr _%e180689180861%_))) + (_%hd180690180864%_ (let () (declare (not safe)) - (##car _%e180530180702%_)))) + (##car _%e180689180861%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180532180707%_)) + (gx#stx-null? _%tl180691180866%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180529180699%_)) - (let ((_%e180533180710%_ + (gx#stx-pair? _%tl180688180858%_)) + (let ((_%e180692180869%_ (let () (declare (not safe)) (gx#stx-e - _%tl180529180699%_)))) - (let ((_%tl180535180715%_ + _%tl180688180858%_)))) + (let ((_%tl180694180874%_ (let () (declare (not safe)) - (##cdr _%e180533180710%_))) - (_%hd180534180713%_ + (##cdr _%e180692180869%_))) + (_%hd180693180872%_ (let () (declare (not safe)) - (##car _%e180533180710%_)))) + (##car _%e180692180869%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180535180715%_)) + _%tl180694180874%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180526180691%_)) + _%tl180685180850%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180523180683%_)) - (let ((_%e180536180718%_ + _%tl180682180842%_)) + (let ((_%e180695180877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180523180683%_)))) - (let ((_%tl180538180723%_ + (gx#stx-e _%tl180682180842%_)))) + (let ((_%tl180697180882%_ (let () (declare (not safe)) - (##cdr _%e180536180718%_))) - (_%hd180537180721%_ + (##cdr _%e180695180877%_))) + (_%hd180696180880%_ (let () (declare (not safe)) - (##car _%e180536180718%_)))) + (##car _%e180695180877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180538180723%_)) - (_%__kont191490191491%_ - _%hd180537180721%_ - _%hd180534180713%_ - _%hd180531180705%_) - (let () (declare (not safe)) (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))) - (let () (declare (not safe)) (_%g180513180560%_))) + (gx#stx-null? _%tl180697180882%_)) + (_%__kont191649191650%_ + _%hd180696180880%_ + _%hd180693180872%_ + _%hd180690180864%_) + (let () (declare (not safe)) (_%g180672180719%_))))) + (let () (declare (not safe)) (_%g180672180719%_))) + (let () (declare (not safe)) (_%g180672180719%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g180672180719%_))))) (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g180672180719%_))) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g180672180719%_))))) (let () (declare (not safe)) - (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))))) + (_%g180672180719%_))))) + (let () (declare (not safe)) (_%g180672180719%_))))) + (let () (declare (not safe)) (_%g180672180719%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g180672180719%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180519180673%_)) + _%hd180678180832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180520180675%_)) - (let ((_%e180544180573%_ + _%tl180679180834%_)) + (let ((_%e180703180732%_ (let () (declare (not safe)) (gx#stx-e - _%tl180520180675%_)))) - (let ((_%tl180546180578%_ + _%tl180679180834%_)))) + (let ((_%tl180705180737%_ (let () (declare (not safe)) - (##cdr _%e180544180573%_))) - (_%hd180545180576%_ + (##cdr _%e180703180732%_))) + (_%hd180704180735%_ (let () (declare (not safe)) - (##car _%e180544180573%_)))) + (##car _%e180703180732%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180545180576%_)) - (let ((_%e180547180581%_ + _%hd180704180735%_)) + (let ((_%e180706180740%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180545180576%_)))) - (let ((_%tl180549180586%_ + (gx#stx-e _%hd180704180735%_)))) + (let ((_%tl180708180745%_ (let () (declare (not safe)) - (##cdr _%e180547180581%_))) - (_%hd180548180584%_ + (##cdr _%e180706180740%_))) + (_%hd180707180743%_ (let () (declare (not safe)) - (##car _%e180547180581%_)))) + (##car _%e180706180740%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180548180584%_)) + (gx#identifier? _%hd180707180743%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180548180584%_)) + (gx#stx-eq? '%#ref _%hd180707180743%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180549180586%_)) - (let ((_%e180550180589%_ + (gx#stx-pair? _%tl180708180745%_)) + (let ((_%e180709180748%_ (let () (declare (not safe)) - (gx#stx-e _%tl180549180586%_)))) - (let ((_%tl180552180594%_ + (gx#stx-e _%tl180708180745%_)))) + (let ((_%tl180711180753%_ (let () (declare (not safe)) - (##cdr _%e180550180589%_))) - (_%hd180551180592%_ + (##cdr _%e180709180748%_))) + (_%hd180710180751%_ (let () (declare (not safe)) - (##car _%e180550180589%_)))) + (##car _%e180709180748%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180552180594%_)) + (gx#stx-null? _%tl180711180753%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180546180578%_)) - (let ((_%e180553180597%_ + _%tl180705180737%_)) + (let ((_%e180712180756%_ (let () (declare (not safe)) (gx#stx-e - _%tl180546180578%_)))) - (let ((_%tl180555180602%_ + _%tl180705180737%_)))) + (let ((_%tl180714180761%_ (let () (declare (not safe)) - (##cdr _%e180553180597%_))) - (_%hd180554180600%_ + (##cdr _%e180712180756%_))) + (_%hd180713180759%_ (let () (declare (not safe)) - (##car _%e180553180597%_)))) + (##car _%e180712180756%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180555180602%_)) - (_%__kont191492191493%_ - _%hd180554180600%_ - _%hd180551180592%_) + _%tl180714180761%_)) + (_%__kont191651191652%_ + _%hd180713180759%_ + _%hd180710180751%_) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g180672180719%_))))) (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g180672180719%_))) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g180672180719%_))))) (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g180672180719%_))) (let () (declare (not safe)) - (_%g180513180560%_))) - (let () (declare (not safe)) (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))))) + (_%g180672180719%_))) + (let () (declare (not safe)) (_%g180672180719%_))))) + (let () (declare (not safe)) (_%g180672180719%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g180672180719%_))) (let () (declare (not safe)) - (_%g180513180560%_)))) + (_%g180672180719%_)))) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g180672180719%_))))) (let () (declare (not safe)) - (_%g180513180560%_))))))) - _%hd180414180476%_ - _%hd180411180468%_ - _%hd180408180460%_) - (_%g180390180420%_ _%g180391180423%_)))) + (_%g180672180719%_))))))) + _%hd180573180635%_ + _%hd180570180627%_ + _%hd180567180619%_) + (_%g180549180579%_ _%g180550180582%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180390180420%_ - _%g180391180423%_)) - (_%g180390180420%_ - _%g180391180423%_)) - (_%g180390180420%_ - _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)) - (_%g180390180420%_ _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)))) + (_%g180549180579%_ + _%g180550180582%_)) + (_%g180549180579%_ + _%g180550180582%_)) + (_%g180549180579%_ + _%g180550180582%_)))) + (_%g180549180579%_ _%g180550180582%_)) + (_%g180549180579%_ _%g180550180582%_)))) + (_%g180549180579%_ _%g180550180582%_)))) + (_%g180549180579%_ _%g180550180582%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180390180420%_ - _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)) - (_%g180390180420%_ _%g180391180423%_)) - (_%g180390180420%_ _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_))))) - (_%g180389180754%_ _%stx180388%_)))) + (_%g180549180579%_ + _%g180550180582%_)))) + (_%g180549180579%_ _%g180550180582%_)) + (_%g180549180579%_ _%g180550180582%_)) + (_%g180549180579%_ _%g180550180582%_)))) + (_%g180549180579%_ _%g180550180582%_))))) + (_%g180548180913%_ _%stx180547%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx180315%_ - _%expr180316%_ - _%negation180317%_ - _%clauses180318%_) - (letrec ((_%normalize180320%_ - (lambda (_%clauses180348%_) - (let* ((_%clauses180349180358%_ _%clauses180348%_) - (_%E180351180362%_ + (lambda (_%stx180474%_ + _%expr180475%_ + _%negation180476%_ + _%clauses180477%_) + (letrec ((_%normalize180479%_ + (lambda (_%clauses180507%_) + (let* ((_%clauses180508180517%_ _%clauses180507%_) + (_%E180510180521%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180349180358%_ + _%clauses180508180517%_ '([[id . kont] . rest]))) '#!void)) - (_%K180352180369%_ - (lambda (_%rest180365%_ - _%kont180366%_ - _%id180367%_) - (cons (cons '#f _%kont180366%_) - _%rest180365%_)))) - (if (pair? _%clauses180349180358%_) - (let ((_%hd180353180372%_ + (_%K180511180528%_ + (lambda (_%rest180524%_ + _%kont180525%_ + _%id180526%_) + (cons (cons '#f _%kont180525%_) + _%rest180524%_)))) + (if (pair? _%clauses180508180517%_) + (let ((_%hd180512180531%_ (let () (declare (not safe)) - (##car _%clauses180349180358%_))) - (_%tl180354180374%_ + (##car _%clauses180508180517%_))) + (_%tl180513180533%_ (let () (declare (not safe)) - (##cdr _%clauses180349180358%_)))) - (if (pair? _%hd180353180372%_) - (let ((_%hd180355180377%_ + (##cdr _%clauses180508180517%_)))) + (if (pair? _%hd180512180531%_) + (let ((_%hd180514180536%_ (let () (declare (not safe)) - (##car _%hd180353180372%_))) - (_%tl180356180379%_ + (##car _%hd180512180531%_))) + (_%tl180515180538%_ (let () (declare (not safe)) - (##cdr _%hd180353180372%_)))) - (let* ((_%id180382%_ _%hd180355180377%_) - (_%kont180384%_ _%tl180356180379%_) - (_%rest180386%_ _%tl180354180374%_)) - (_%K180352180369%_ - _%rest180386%_ - _%kont180384%_ - _%id180382%_))) - (_%E180351180362%_))) - (_%E180351180362%_)))))) - (let ((__tmp192320 + (##cdr _%hd180512180531%_)))) + (let* ((_%id180541%_ _%hd180514180536%_) + (_%kont180543%_ _%tl180515180538%_) + (_%rest180545%_ _%tl180513180533%_)) + (_%K180511180528%_ + _%rest180545%_ + _%kont180543%_ + _%id180541%_))) + (_%E180510180521%_))) + (_%E180510180521%_)))))) + (let ((__tmp192479 (lambda () - (let* ((_%id180323%_ - (let ((__tmp192321 + (let* ((_%id180482%_ + (let ((__tmp192480 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp192321))) - (_%id180325%_ + (make-symbol__0 __tmp192480))) + (_%id180484%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id180323%_))) - (_%_180327%_ + (gx#core-quote-syntax__0 _%id180482%_))) + (_%_180486%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id180325%_))) - (_g192322_ + (gx#core-bind-runtime!__0 _%id180484%_))) + (_g192481_ (gxc#optimize-syntax-case-clauses - _%clauses180318%_ - (car _%negation180317%_)))) + _%clauses180477%_ + (car _%negation180476%_)))) (begin - (let ((_g192323_ + (let ((_g192482_ (let () (declare (not safe)) - (if (##values? _g192322_) - (##vector-length _g192322_) + (if (##values? _g192481_) + (##vector-length _g192481_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192323_ 2))) - (error "Context expects 2 values" _g192323_))) - (let ((_%clauses180329%_ + (##fx= _g192482_ 2))) + (error "Context expects 2 values" _g192482_))) + (let ((_%clauses180488%_ (let () (declare (not safe)) - (##vector-ref _g192322_ 0))) - (_%konts180330%_ + (##vector-ref _g192481_ 0))) + (_%konts180489%_ (let () (declare (not safe)) - (##vector-ref _g192322_ 1)))) - (let* ((_%clauses180339%_ - (map (lambda (_%g180331180334%_ - _%g180332180336%_) + (##vector-ref _g192481_ 1)))) + (let* ((_%clauses180498%_ + (map (lambda (_%g180490180493%_ + _%g180491180495%_) (gxc#optimize-syntax-case-closure - _%g180331180334%_ - _%g180332180336%_ - _%id180325%_)) - _%clauses180329%_ - (let ((__tmp192325 - (cons (car _%negation180317%_) + _%g180490180493%_ + _%g180491180495%_ + _%id180484%_)) + _%clauses180488%_ + (let ((__tmp192484 + (cons (car _%negation180476%_) '())) - (__tmp192324 + (__tmp192483 (map car - (cdr _%clauses180329%_)))) + (cdr _%clauses180488%_)))) (declare (not safe)) (__foldr1 cons - __tmp192325 - __tmp192324)))) - (_%clauses180341%_ - (_%normalize180320%_ _%clauses180339%_)) - (_%negation180343%_ + __tmp192484 + __tmp192483)))) + (_%clauses180500%_ + (_%normalize180479%_ _%clauses180498%_)) + (_%negation180502%_ (gxc#optimize-syntax-case-closure - _%negation180317%_ + _%negation180476%_ '#f - _%id180325%_)) - (_%body180345%_ + _%id180484%_)) + (_%body180504%_ (gxc#optimize-match-body - _%stx180315%_ - _%negation180343%_ - _%clauses180341%_ - _%konts180330%_)) - (__tmp192326 + _%stx180474%_ + _%negation180502%_ + _%clauses180500%_ + _%konts180489%_)) + (__tmp192485 (cons '%#let-values - (cons (cons (cons (cons _%id180325%_ + (cons (cons (cons (cons _%id180484%_ '()) - (cons _%expr180316%_ + (cons _%expr180475%_ '())) '()) - (cons _%body180345%_ '()))))) + (cons _%body180504%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192326 - _%stx180315%_))))))) - (__tmp192319 - (let ((__obj192240 + __tmp192485 + _%stx180474%_))))))) + (__tmp192478 + (let ((__obj192399 (let () (declare (not safe)) (##structure @@ -13151,72 +13151,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192240)) - __obj192240))) + (gx#local-context:::init!__0 __obj192399)) + __obj192399))) (declare (not safe)) (__call-with-parameters - __tmp192320 + __tmp192479 gx#current-expander-context - __tmp192319))))) + __tmp192478))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses179071%_ _%negation-id179072%_) - (letrec ((_%xform-e179074%_ - (lambda (_%expr179459%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_) - (let* ((_%__stx191690191691%_ _%expr179459%_) - (_%g179468179601%_ + (lambda (_%clauses179230%_ _%negation-id179231%_) + (letrec ((_%xform-e179233%_ + (lambda (_%expr179618%_ + _%kont-id179619%_ + _%kont-box179620%_ + _%negation-id179621%_) + (let* ((_%__stx191849191850%_ _%expr179618%_) + (_%g179627179760%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191690191691%_))))) - (let ((_%__kont191692191693%_ - (lambda (_%L180291%_ _%L180292%_ _%L180293%_) - (let ((_%K180310%_ - (_%xform-e179074%_ - _%L180292%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + _%__stx191849191850%_))))) + (let ((_%__kont191851191852%_ + (lambda (_%L180450%_ _%L180451%_ _%L180452%_) + (let ((_%K180469%_ + (_%xform-e179233%_ + _%L180451%_ + _%kont-id179619%_ + _%kont-box179620%_ + _%negation-id179621%_))) (cons '%#if - (cons _%L180293%_ - (cons _%K180310%_ - (cons _%L180291%_ '()))))))) - (_%__kont191694191695%_ - (lambda (_%L180206%_ - _%L180207%_ - _%L180208%_ - _%L180209%_ - _%L180210%_) - (let* ((_%id180245%_ - (let ((__tmp192327 + (cons _%L180452%_ + (cons _%K180469%_ + (cons _%L180450%_ '()))))))) + (_%__kont191853191854%_ + (lambda (_%L180365%_ + _%L180366%_ + _%L180367%_ + _%L180368%_ + _%L180369%_) + (let* ((_%id180404%_ + (let ((__tmp192486 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp192327))) - (_%id180247%_ + (make-symbol__0 __tmp192486))) + (_%id180406%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id180245%_))) - (_%_180249%_ + _%id180404%_))) + (_%_180408%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id180247%_))) - (_%body180251%_ - (_%xform-e179074%_ - _%L180206%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + _%id180406%_))) + (_%body180410%_ + (_%xform-e179233%_ + _%L180365%_ + _%kont-id179619%_ + _%kont-box179620%_ + _%negation-id179621%_))) (cons '%#let-values - (cons (cons (cons (cons _%id180247%_ + (cons (cons (cons (cons _%id180406%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13225,113 +13225,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180208%_ '())) - _%L180207%_)) + (cons _%L180367%_ '())) + _%L180366%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L180210%_ + (cons (cons (cons (cons _%L180369%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180247%_ '())) + (cons _%id180406%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L180209%_ '()) + (cons (cons (cons _%L180368%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180247%_ '())) + (cons _%id180406%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body180251%_ '()))) + (cons _%body180410%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont191696191697%_ - (lambda (_%L180088%_ _%L180089%_) - (let ((_%body180103%_ - (_%xform-e179074%_ - _%L180088%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + (_%__kont191855191856%_ + (lambda (_%L180247%_ _%L180248%_) + (let ((_%body180262%_ + (_%xform-e179233%_ + _%L180247%_ + _%kont-id179619%_ + _%kont-box179620%_ + _%negation-id179621%_))) (cons '%#let-values - (cons _%L180089%_ - (cons _%body180103%_ '())))))) - (_%__kont191698191699%_ - (lambda (_%L180032%_ _%L180033%_ _%L180034%_) - (let ((_%lambda-expr180057%_ - (_%xform-loop-e179075%_ - _%L180033%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + (cons _%L180248%_ + (cons _%body180262%_ '())))))) + (_%__kont191857191858%_ + (lambda (_%L180191%_ _%L180192%_ _%L180193%_) + (let ((_%lambda-expr180216%_ + (_%xform-loop-e179234%_ + _%L180192%_ + _%kont-id179619%_ + _%kont-box179620%_ + _%negation-id179621%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L180034%_ '()) - (cons _%lambda-expr180057%_ + (cons (cons (cons (cons _%L180193%_ '()) + (cons _%lambda-expr180216%_ '())) '()) - (cons _%L180032%_ '())))))) - (_%__kont191700191701%_ - (lambda (_%L179694%_ _%L179695%_ _%L179696%_) - (let* ((_%__stx191592191593%_ _%L179695%_) - (_%g179725179768%_ + (cons _%L180191%_ '())))))) + (_%__kont191859191860%_ + (lambda (_%L179853%_ _%L179854%_ _%L179855%_) + (let* ((_%__stx191751191752%_ _%L179854%_) + (_%g179884179927%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191592191593%_))))) - (let ((_%__kont191594191595%_ - (lambda (_%L179884%_ - _%L179885%_ - _%L179886%_ - _%L179887%_) - (let ((_%kont179928%_ + _%__stx191751191752%_))))) + (let ((_%__kont191753191754%_ + (lambda (_%L180043%_ + _%L180044%_ + _%L180045%_ + _%L180046%_) + (let ((_%kont180087%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192328 + (cons (let ((__tmp192487 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g179920179923%_ _%g179921179925%_) - (cons _%g179920179923%_ _%g179921179925%_)))) + (lambda (_%g180079180082%_ _%g180080180084%_) + (cons _%g180079180082%_ _%g180080180084%_)))) (declare (not safe)) - (__foldr1 __tmp192328 '() _%L179696%_)) - (cons _%L179886%_ '()))))) + (__foldr1 __tmp192487 '() _%L179855%_)) + (cons _%L180045%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179461%_ - _%kont179928%_) - (let* ((_%kont-args179939%_ - (map (lambda (_%id179930%_) + _%kont-box179620%_ + _%kont180087%_) + (let* ((_%kont-args180098%_ + (map (lambda (_%id180089%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id179930%_ '()))) - (let ((__tmp192329 - (lambda (_%g179931179934%_ _%g179932179936%_) - (cons _%g179931179934%_ _%g179932179936%_)))) + (cons _%id180089%_ '()))) + (let ((__tmp192488 + (lambda (_%g180090180093%_ _%g180091180095%_) + (cons _%g180090180093%_ _%g180091180095%_)))) (declare (not safe)) - (__foldr1 __tmp192329 '() _%L179696%_)))) + (__foldr1 __tmp192488 '() _%L179855%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body179941%_ + (_%body180100%_ (cons '%#if - (cons _%L179887%_ + (cons _%L180046%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id179460%_ '())) - _%kont-args179939%_)) + (cons _%kont-id179619%_ '())) + _%kont-args180098%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13340,3156 +13340,3156 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L179885%_ '())) + (cons _%L180044%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L179884%_ + (cons _%L180043%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp192330 - (lambda (_%g179943179946%_ + (if (null? (let ((__tmp192489 + (lambda (_%g180102180105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g179944179948%_) - (cons _%g179943179946%_ _%g179944179948%_)))) + _%g180103180107%_) + (cons _%g180102180105%_ _%g180103180107%_)))) (declare (not safe)) - (__foldr1 __tmp192330 '() _%L179696%_))) + (__foldr1 __tmp192489 '() _%L179855%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body179941%_ + _%body180100%_ (cons '%#let-values - (cons (map (lambda (_%id179951%_ + (cons (map (lambda (_%id180110%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg179952%_) - (cons (cons _%id179951%_ '()) - (cons _%arg179952%_ '()))) - (let ((__tmp192331 - (lambda (_%g179953179956%_ _%g179954179958%_) - (cons _%g179953179956%_ - _%g179954179958%_)))) + _%arg180111%_) + (cons (cons _%id180110%_ '()) + (cons _%arg180111%_ '()))) + (let ((__tmp192490 + (lambda (_%g180112180115%_ _%g180113180117%_) + (cons _%g180112180115%_ + _%g180113180117%_)))) (declare (not safe)) - (__foldr1 __tmp192331 '() _%L179696%_)) - (let ((__tmp192332 - (lambda (_%g179960179963%_ _%g179961179965%_) - (cons _%g179960179963%_ - _%g179961179965%_)))) + (__foldr1 __tmp192490 '() _%L179855%_)) + (let ((__tmp192491 + (lambda (_%g180119180122%_ _%g180120180124%_) + (cons _%g180119180122%_ + _%g180120180124%_)))) (declare (not safe)) - (__foldr1 __tmp192332 '() _%L179694%_))) - (cons _%body179941%_ '())))))))) + (__foldr1 __tmp192491 '() _%L179853%_))) + (cons _%body180100%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_ + (_%__kont191755191756%_ (lambda () - (let ((_%kont179782%_ + (let ((_%kont179941%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192333 + (cons (let ((__tmp192492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g179774179777%_ _%g179775179779%_) - (cons _%g179774179777%_ _%g179775179779%_)))) + (lambda (_%g179933179936%_ _%g179934179938%_) + (cons _%g179933179936%_ _%g179934179938%_)))) (declare (not safe)) - (__foldr1 __tmp192333 '() _%L179696%_)) - (cons _%L179695%_ '()))))) + (__foldr1 __tmp192492 '() _%L179855%_)) + (cons _%L179854%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179461%_ - _%kont179782%_) + _%kont-box179620%_ + _%kont179941%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id179460%_ + (cons _%kont-id179619%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp192334 - (lambda (_%g179783179786%_ _%g179784179788%_) - (cons _%g179783179786%_ _%g179784179788%_)))) + (let ((__tmp192493 + (lambda (_%g179942179945%_ _%g179943179947%_) + (cons _%g179942179945%_ _%g179943179947%_)))) (declare (not safe)) - (__foldr1 __tmp192334 '() _%L179694%_)))))))) + (__foldr1 __tmp192493 '() _%L179853%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match191687191688%_ - (lambda (_%e179731179796%_ - _%hd179732179799%_ - _%tl179733179801%_ - _%e179734179804%_ - _%hd179735179807%_ - _%tl179736179809%_ - _%e179737179812%_ - _%hd179738179815%_ - _%tl179739179817%_ - _%e179740179820%_ - _%hd179741179823%_ - _%tl179742179825%_ - _%e179743179828%_ - _%hd179744179831%_ - _%tl179745179833%_ - _%e179746179836%_ - _%hd179747179839%_ - _%tl179748179841%_ - _%e179749179844%_ - _%hd179750179847%_ - _%tl179751179849%_ - _%e179752179852%_ - _%hd179753179855%_ - _%tl179754179857%_ - _%e179755179860%_ - _%hd179756179863%_ - _%tl179757179865%_ - _%e179758179868%_ - _%hd179759179871%_ - _%tl179760179873%_ - _%e179761179876%_ - _%hd179762179879%_ - _%tl179763179881%_) - (let ((_%L179884%_ - _%hd179762179879%_) - (_%L179885%_ - _%hd179753179855%_) - (_%L179886%_ - _%hd179738179815%_) - (_%L179887%_ - _%hd179735179807%_)) + (let ((_%__match191846191847%_ + (lambda (_%e179890179955%_ + _%hd179891179958%_ + _%tl179892179960%_ + _%e179893179963%_ + _%hd179894179966%_ + _%tl179895179968%_ + _%e179896179971%_ + _%hd179897179974%_ + _%tl179898179976%_ + _%e179899179979%_ + _%hd179900179982%_ + _%tl179901179984%_ + _%e179902179987%_ + _%hd179903179990%_ + _%tl179904179992%_ + _%e179905179995%_ + _%hd179906179998%_ + _%tl179907180000%_ + _%e179908180003%_ + _%hd179909180006%_ + _%tl179910180008%_ + _%e179911180011%_ + _%hd179912180014%_ + _%tl179913180016%_ + _%e179914180019%_ + _%hd179915180022%_ + _%tl179916180024%_ + _%e179917180027%_ + _%hd179918180030%_ + _%tl179919180032%_ + _%e179920180035%_ + _%hd179921180038%_ + _%tl179922180040%_) + (let ((_%L180043%_ + _%hd179921180038%_) + (_%L180044%_ + _%hd179912180014%_) + (_%L180045%_ + _%hd179897179974%_) + (_%L180046%_ + _%hd179894179966%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L179885%_ - _%negation-id179462%_)) - (_%__kont191594191595%_ - _%L179884%_ - _%L179885%_ - _%L179886%_ - _%L179887%_) - (_%__kont191596191597%_)))))) + _%L180044%_ + _%negation-id179621%_)) + (_%__kont191753191754%_ + _%L180043%_ + _%L180044%_ + _%L180045%_ + _%L180046%_) + (_%__kont191755191756%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191592191593%_)) - (let ((_%e179731179796%_ + _%__stx191751191752%_)) + (let ((_%e179890179955%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191592191593%_)))) - (let ((_%tl179733179801%_ + _%__stx191751191752%_)))) + (let ((_%tl179892179960%_ (let () (declare (not safe)) - (##cdr _%e179731179796%_))) - (_%hd179732179799%_ + (##cdr _%e179890179955%_))) + (_%hd179891179958%_ (let () (declare (not safe)) - (##car _%e179731179796%_)))) + (##car _%e179890179955%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179732179799%_)) + _%hd179891179958%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179732179799%_)) + _%hd179891179958%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179733179801%_)) - (let ((_%e179734179804%_ + _%tl179892179960%_)) + (let ((_%e179893179963%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179733179801%_)))) - (let ((_%tl179736179809%_ + (gx#stx-e _%tl179892179960%_)))) + (let ((_%tl179895179968%_ (let () (declare (not safe)) - (##cdr _%e179734179804%_))) - (_%hd179735179807%_ + (##cdr _%e179893179963%_))) + (_%hd179894179966%_ (let () (declare (not safe)) - (##car _%e179734179804%_)))) + (##car _%e179893179963%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179736179809%_)) - (let ((_%e179737179812%_ + (gx#stx-pair? _%tl179895179968%_)) + (let ((_%e179896179971%_ (let () (declare (not safe)) - (gx#stx-e _%tl179736179809%_)))) - (let ((_%tl179739179817%_ + (gx#stx-e _%tl179895179968%_)))) + (let ((_%tl179898179976%_ (let () (declare (not safe)) - (##cdr _%e179737179812%_))) - (_%hd179738179815%_ + (##cdr _%e179896179971%_))) + (_%hd179897179974%_ (let () (declare (not safe)) - (##car _%e179737179812%_)))) + (##car _%e179896179971%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179739179817%_)) - (let ((_%e179740179820%_ + (gx#stx-pair? _%tl179898179976%_)) + (let ((_%e179899179979%_ (let () (declare (not safe)) - (gx#stx-e _%tl179739179817%_)))) - (let ((_%tl179742179825%_ + (gx#stx-e _%tl179898179976%_)))) + (let ((_%tl179901179984%_ (let () (declare (not safe)) - (##cdr _%e179740179820%_))) - (_%hd179741179823%_ + (##cdr _%e179899179979%_))) + (_%hd179900179982%_ (let () (declare (not safe)) - (##car _%e179740179820%_)))) + (##car _%e179899179979%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179741179823%_)) - (let ((_%e179743179828%_ + (gx#stx-pair? _%hd179900179982%_)) + (let ((_%e179902179987%_ (let () (declare (not safe)) (gx#stx-e - _%hd179741179823%_)))) - (let ((_%tl179745179833%_ + _%hd179900179982%_)))) + (let ((_%tl179904179992%_ (let () (declare (not safe)) - (##cdr _%e179743179828%_))) - (_%hd179744179831%_ + (##cdr _%e179902179987%_))) + (_%hd179903179990%_ (let () (declare (not safe)) - (##car _%e179743179828%_)))) + (##car _%e179902179987%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179744179831%_)) + _%hd179903179990%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179744179831%_)) + _%hd179903179990%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179745179833%_)) - (let ((_%e179746179836%_ + _%tl179904179992%_)) + (let ((_%e179905179995%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179745179833%_)))) - (let ((_%tl179748179841%_ + (gx#stx-e _%tl179904179992%_)))) + (let ((_%tl179907180000%_ (let () (declare (not safe)) - (##cdr _%e179746179836%_))) - (_%hd179747179839%_ + (##cdr _%e179905179995%_))) + (_%hd179906179998%_ (let () (declare (not safe)) - (##car _%e179746179836%_)))) + (##car _%e179905179995%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179747179839%_)) - (let ((_%e179749179844%_ + (gx#stx-pair? _%hd179906179998%_)) + (let ((_%e179908180003%_ (let () (declare (not safe)) - (gx#stx-e _%hd179747179839%_)))) - (let ((_%tl179751179849%_ + (gx#stx-e _%hd179906179998%_)))) + (let ((_%tl179910180008%_ (let () (declare (not safe)) - (##cdr _%e179749179844%_))) - (_%hd179750179847%_ + (##cdr _%e179908180003%_))) + (_%hd179909180006%_ (let () (declare (not safe)) - (##car _%e179749179844%_)))) + (##car _%e179908180003%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179750179847%_)) + (gx#identifier? _%hd179909180006%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179750179847%_)) + (gx#stx-eq? '%#ref _%hd179909180006%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179751179849%_)) - (let ((_%e179752179852%_ + (gx#stx-pair? _%tl179910180008%_)) + (let ((_%e179911180011%_ (let () (declare (not safe)) (gx#stx-e - _%tl179751179849%_)))) - (let ((_%tl179754179857%_ + _%tl179910180008%_)))) + (let ((_%tl179913180016%_ (let () (declare (not safe)) - (##cdr _%e179752179852%_))) - (_%hd179753179855%_ + (##cdr _%e179911180011%_))) + (_%hd179912180014%_ (let () (declare (not safe)) - (##car _%e179752179852%_)))) + (##car _%e179911180011%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179754179857%_)) + _%tl179913180016%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179748179841%_)) - (let ((_%e179755179860%_ + _%tl179907180000%_)) + (let ((_%e179914180019%_ (let () (declare (not safe)) (gx#stx-e - _%tl179748179841%_)))) - (let ((_%tl179757179865%_ + _%tl179907180000%_)))) + (let ((_%tl179916180024%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179755179860%_))) - (_%hd179756179863%_ - (let () (declare (not safe)) (##car _%e179755179860%_)))) + (##cdr _%e179914180019%_))) + (_%hd179915180022%_ + (let () (declare (not safe)) (##car _%e179914180019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179756179863%_)) - (let ((_%e179758179868%_ + (gx#stx-pair? _%hd179915180022%_)) + (let ((_%e179917180027%_ (let () (declare (not safe)) - (gx#stx-e _%hd179756179863%_)))) - (let ((_%tl179760179873%_ + (gx#stx-e _%hd179915180022%_)))) + (let ((_%tl179919180032%_ (let () (declare (not safe)) - (##cdr _%e179758179868%_))) - (_%hd179759179871%_ + (##cdr _%e179917180027%_))) + (_%hd179918180030%_ (let () (declare (not safe)) - (##car _%e179758179868%_)))) + (##car _%e179917180027%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179759179871%_)) + (gx#identifier? _%hd179918180030%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179759179871%_)) + (gx#stx-eq? '%#ref _%hd179918180030%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179760179873%_)) - (let ((_%e179761179876%_ + (gx#stx-pair? _%tl179919180032%_)) + (let ((_%e179920180035%_ (let () (declare (not safe)) - (gx#stx-e _%tl179760179873%_)))) - (let ((_%tl179763179881%_ + (gx#stx-e _%tl179919180032%_)))) + (let ((_%tl179922180040%_ (let () (declare (not safe)) - (##cdr _%e179761179876%_))) - (_%hd179762179879%_ + (##cdr _%e179920180035%_))) + (_%hd179921180038%_ (let () (declare (not safe)) - (##car _%e179761179876%_)))) + (##car _%e179920180035%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179763179881%_)) + _%tl179922180040%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179757179865%_)) + _%tl179916180024%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179742179825%_)) - (_%__match191687191688%_ - _%e179731179796%_ - _%hd179732179799%_ - _%tl179733179801%_ - _%e179734179804%_ - _%hd179735179807%_ - _%tl179736179809%_ - _%e179737179812%_ - _%hd179738179815%_ - _%tl179739179817%_ - _%e179740179820%_ - _%hd179741179823%_ - _%tl179742179825%_ - _%e179743179828%_ - _%hd179744179831%_ - _%tl179745179833%_ - _%e179746179836%_ - _%hd179747179839%_ - _%tl179748179841%_ - _%e179749179844%_ - _%hd179750179847%_ - _%tl179751179849%_ - _%e179752179852%_ - _%hd179753179855%_ - _%tl179754179857%_ - _%e179755179860%_ - _%hd179756179863%_ - _%tl179757179865%_ - _%e179758179868%_ - _%hd179759179871%_ - _%tl179760179873%_ - _%e179761179876%_ - _%hd179762179879%_ - _%tl179763179881%_) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) + _%tl179901179984%_)) + (_%__match191846191847%_ + _%e179890179955%_ + _%hd179891179958%_ + _%tl179892179960%_ + _%e179893179963%_ + _%hd179894179966%_ + _%tl179895179968%_ + _%e179896179971%_ + _%hd179897179974%_ + _%tl179898179976%_ + _%e179899179979%_ + _%hd179900179982%_ + _%tl179901179984%_ + _%e179902179987%_ + _%hd179903179990%_ + _%tl179904179992%_ + _%e179905179995%_ + _%hd179906179998%_ + _%tl179907180000%_ + _%e179908180003%_ + _%hd179909180006%_ + _%tl179910180008%_ + _%e179911180011%_ + _%hd179912180014%_ + _%tl179913180016%_ + _%e179914180019%_ + _%hd179915180022%_ + _%tl179916180024%_ + _%e179917180027%_ + _%hd179918180030%_ + _%tl179919180032%_ + _%e179920180035%_ + _%hd179921180038%_ + _%tl179922180040%_) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))))))) - (let* ((_%__match191947191948%_ - (lambda (_%e179564179606%_ - _%hd179565179609%_ - _%tl179566179611%_ - _%e179567179614%_ - _%hd179568179617%_ - _%tl179569179619%_ - _%e179570179622%_ - _%hd179571179625%_ - _%tl179572179627%_ - _%e179573179630%_ - _%hd179574179633%_ - _%tl179575179635%_ - _%__splice191702191703%_ - _%target179576179638%_ - _%tl179578179640%_) - (letrec ((_%loop179579179643%_ - (lambda (_%hd179577179646%_ - _%id179583179648%_) + (_%__kont191755191756%_)) + (_%__kont191755191756%_)))) + (_%__kont191755191756%_)))))))) + (let* ((_%__match192106192107%_ + (lambda (_%e179723179765%_ + _%hd179724179768%_ + _%tl179725179770%_ + _%e179726179773%_ + _%hd179727179776%_ + _%tl179728179778%_ + _%e179729179781%_ + _%hd179730179784%_ + _%tl179731179786%_ + _%e179732179789%_ + _%hd179733179792%_ + _%tl179734179794%_ + _%__splice191861191862%_ + _%target179735179797%_ + _%tl179737179799%_) + (letrec ((_%loop179738179802%_ + (lambda (_%hd179736179805%_ + _%id179742179807%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179577179646%_)) - (let ((_%e179580179651%_ + _%hd179736179805%_)) + (let ((_%e179739179810%_ (let () (declare (not safe)) (gx#stx-e - _%hd179577179646%_)))) - (let ((_%lp-tl179582179656%_ + _%hd179736179805%_)))) + (let ((_%lp-tl179741179815%_ (let () (declare (not safe)) - (##cdr _%e179580179651%_))) - (_%lp-hd179581179654%_ + (##cdr _%e179739179810%_))) + (_%lp-hd179740179813%_ (let () (declare (not safe)) - (##car _%e179580179651%_)))) - (_%loop179579179643%_ - _%lp-tl179582179656%_ - (cons _%lp-hd179581179654%_ - _%id179583179648%_)))) - (let ((_%id179584179659%_ - (reverse _%id179583179648%_))) + (##car _%e179739179810%_)))) + (_%loop179738179802%_ + _%lp-tl179741179815%_ + (cons _%lp-hd179740179813%_ + _%id179742179807%_)))) + (let ((_%id179743179818%_ + (reverse _%id179742179807%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179575179635%_)) - (let ((_%e179585179662%_ + _%tl179734179794%_)) + (let ((_%e179744179821%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179575179635%_)))) - (let ((_%tl179587179667%_ + (gx#stx-e _%tl179734179794%_)))) + (let ((_%tl179746179826%_ (let () (declare (not safe)) - (##cdr _%e179585179662%_))) - (_%hd179586179665%_ + (##cdr _%e179744179821%_))) + (_%hd179745179824%_ (let () (declare (not safe)) - (##car _%e179585179662%_)))) + (##car _%e179744179821%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179587179667%_)) + (gx#stx-null? _%tl179746179826%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179569179619%_)) - (let ((_%__splice191704191705%_ + (gx#stx-pair/null? _%tl179728179778%_)) + (let ((_%__splice191863191864%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179569179619%_ + _%tl179728179778%_ '0)))) - (let ((_%tl179590179672%_ + (let ((_%tl179749179831%_ (let () (declare (not safe)) (##vector-ref - _%__splice191704191705%_ + _%__splice191863191864%_ '1))) - (_%target179588179670%_ + (_%target179747179829%_ (let () (declare (not safe)) (##vector-ref - _%__splice191704191705%_ + _%__splice191863191864%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179590179672%_)) - (letrec ((_%loop179591179675%_ - (lambda (_%hd179589179678%_ - _%arg179595179680%_) + (gx#stx-null? _%tl179749179831%_)) + (letrec ((_%loop179750179834%_ + (lambda (_%hd179748179837%_ + _%arg179754179839%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179589179678%_)) - (let ((_%e179592179683%_ + _%hd179748179837%_)) + (let ((_%e179751179842%_ (let () (declare (not safe)) (gx#stx-e - _%hd179589179678%_)))) - (let ((_%lp-tl179594179688%_ + _%hd179748179837%_)))) + (let ((_%lp-tl179753179847%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179592179683%_))) - (_%lp-hd179593179686%_ - (let () (declare (not safe)) (##car _%e179592179683%_)))) - (_%loop179591179675%_ - _%lp-tl179594179688%_ - (cons _%lp-hd179593179686%_ _%arg179595179680%_)))) + (##cdr _%e179751179842%_))) + (_%lp-hd179752179845%_ + (let () (declare (not safe)) (##car _%e179751179842%_)))) + (_%loop179750179834%_ + _%lp-tl179753179847%_ + (cons _%lp-hd179752179845%_ _%arg179754179839%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg179596179691%_ - (reverse _%arg179595179680%_))) - (_%__kont191700191701%_ - _%arg179596179691%_ - _%hd179586179665%_ - _%id179584179659%_)))))) - (_%loop179591179675%_ - _%target179588179670%_ + (let ((_%arg179755179850%_ + (reverse _%arg179754179839%_))) + (_%__kont191859191860%_ + _%arg179755179850%_ + _%hd179745179824%_ + _%id179743179818%_)))))) + (_%loop179750179834%_ + _%target179747179829%_ '())) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179579179643%_ - _%target179576179638%_ + (_%loop179738179802%_ + _%target179735179797%_ '())))) - (_%__match191829191830%_ - (lambda (_%e179490180110%_ - _%hd179491180113%_ - _%tl179492180115%_ - _%e179493180118%_ - _%hd179494180121%_ - _%tl179495180123%_ - _%e179496180126%_ - _%hd179497180129%_ - _%tl179498180131%_ - _%e179499180134%_ - _%hd179500180137%_ - _%tl179501180139%_ - _%e179502180142%_ - _%hd179503180145%_ - _%tl179504180147%_ - _%e179505180150%_ - _%hd179506180153%_ - _%tl179507180155%_ - _%e179508180158%_ - _%hd179509180161%_ - _%tl179510180163%_ - _%e179511180166%_ - _%hd179512180169%_ - _%tl179513180171%_ - _%e179514180174%_ - _%hd179515180177%_ - _%tl179516180179%_ - _%e179517180182%_ - _%hd179518180185%_ - _%tl179519180187%_ - _%e179520180190%_ - _%hd179521180193%_ - _%tl179522180195%_ - _%e179523180198%_ - _%hd179524180201%_ - _%tl179525180203%_) - (let ((_%L180206%_ _%hd179524180201%_) - (_%L180207%_ _%tl179516180179%_) - (_%L180208%_ _%hd179521180193%_) - (_%L180209%_ _%hd179506180153%_) - (_%L180210%_ _%hd179503180145%_)) + (_%__match191988191989%_ + (lambda (_%e179649180269%_ + _%hd179650180272%_ + _%tl179651180274%_ + _%e179652180277%_ + _%hd179653180280%_ + _%tl179654180282%_ + _%e179655180285%_ + _%hd179656180288%_ + _%tl179657180290%_ + _%e179658180293%_ + _%hd179659180296%_ + _%tl179660180298%_ + _%e179661180301%_ + _%hd179662180304%_ + _%tl179663180306%_ + _%e179664180309%_ + _%hd179665180312%_ + _%tl179666180314%_ + _%e179667180317%_ + _%hd179668180320%_ + _%tl179669180322%_ + _%e179670180325%_ + _%hd179671180328%_ + _%tl179672180330%_ + _%e179673180333%_ + _%hd179674180336%_ + _%tl179675180338%_ + _%e179676180341%_ + _%hd179677180344%_ + _%tl179678180346%_ + _%e179679180349%_ + _%hd179680180352%_ + _%tl179681180354%_ + _%e179682180357%_ + _%hd179683180360%_ + _%tl179684180362%_) + (let ((_%L180365%_ _%hd179683180360%_) + (_%L180366%_ _%tl179675180338%_) + (_%L180367%_ _%hd179680180352%_) + (_%L180368%_ _%hd179665180312%_) + (_%L180369%_ _%hd179662180304%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180208%_ + _%L180367%_ 'gx#syntax-split-splice)) - (_%__kont191694191695%_ - _%L180206%_ - _%L180207%_ - _%L180208%_ - _%L180209%_ - _%L180210%_) - (_%__kont191696191697%_ - _%hd179524180201%_ - _%hd179494180121%_)))))) + (_%__kont191853191854%_ + _%L180365%_ + _%L180366%_ + _%L180367%_ + _%L180368%_ + _%L180369%_) + (_%__kont191855191856%_ + _%hd179683180360%_ + _%hd179653180280%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191690191691%_)) - (let ((_%e179473180259%_ + (gx#stx-pair? _%__stx191849191850%_)) + (let ((_%e179632180418%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191690191691%_)))) - (let ((_%tl179475180264%_ + (gx#stx-e _%__stx191849191850%_)))) + (let ((_%tl179634180423%_ (let () (declare (not safe)) - (##cdr _%e179473180259%_))) - (_%hd179474180262%_ + (##cdr _%e179632180418%_))) + (_%hd179633180421%_ (let () (declare (not safe)) - (##car _%e179473180259%_)))) + (##car _%e179632180418%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179474180262%_)) + (gx#identifier? _%hd179633180421%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179474180262%_)) + _%hd179633180421%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179476180267%_ + _%tl179634180423%_)) + (let ((_%e179635180426%_ (let () (declare (not safe)) (gx#stx-e - _%tl179475180264%_)))) - (let ((_%tl179478180272%_ + _%tl179634180423%_)))) + (let ((_%tl179637180431%_ (let () (declare (not safe)) - (##cdr _%e179476180267%_))) - (_%hd179477180270%_ + (##cdr _%e179635180426%_))) + (_%hd179636180429%_ (let () (declare (not safe)) - (##car _%e179476180267%_)))) + (##car _%e179635180426%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179478180272%_)) - (let ((_%e179479180275%_ + _%tl179637180431%_)) + (let ((_%e179638180434%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179478180272%_)))) - (let ((_%tl179481180280%_ - (let () (declare (not safe)) (##cdr _%e179479180275%_))) - (_%hd179480180278%_ + (gx#stx-e _%tl179637180431%_)))) + (let ((_%tl179640180439%_ + (let () (declare (not safe)) (##cdr _%e179638180434%_))) + (_%hd179639180437%_ (let () (declare (not safe)) - (##car _%e179479180275%_)))) + (##car _%e179638180434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179481180280%_)) - (let ((_%e179482180283%_ + (gx#stx-pair? _%tl179640180439%_)) + (let ((_%e179641180442%_ (let () (declare (not safe)) - (gx#stx-e _%tl179481180280%_)))) - (let ((_%tl179484180288%_ + (gx#stx-e _%tl179640180439%_)))) + (let ((_%tl179643180447%_ (let () (declare (not safe)) - (##cdr _%e179482180283%_))) - (_%hd179483180286%_ + (##cdr _%e179641180442%_))) + (_%hd179642180445%_ (let () (declare (not safe)) - (##car _%e179482180283%_)))) + (##car _%e179641180442%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179484180288%_)) - (_%__kont191692191693%_ - _%hd179483180286%_ - _%hd179480180278%_ - _%hd179477180270%_) + (gx#stx-null? _%tl179643180447%_)) + (_%__kont191851191852%_ + _%hd179642180445%_ + _%hd179639180437%_ + _%hd179636180429%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g179627179760%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179474180262%_)) + _%hd179633180421%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179493180118%_ + _%tl179634180423%_)) + (let ((_%e179652180277%_ (let () (declare (not safe)) (gx#stx-e - _%tl179475180264%_)))) - (let ((_%tl179495180123%_ + _%tl179634180423%_)))) + (let ((_%tl179654180282%_ (let () (declare (not safe)) - (##cdr _%e179493180118%_))) - (_%hd179494180121%_ + (##cdr _%e179652180277%_))) + (_%hd179653180280%_ (let () (declare (not safe)) - (##car _%e179493180118%_)))) + (##car _%e179652180277%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179494180121%_)) - (let ((_%e179496180126%_ + _%hd179653180280%_)) + (let ((_%e179655180285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179494180121%_)))) - (let ((_%tl179498180131%_ + (gx#stx-e _%hd179653180280%_)))) + (let ((_%tl179657180290%_ (let () (declare (not safe)) - (##cdr _%e179496180126%_))) - (_%hd179497180129%_ + (##cdr _%e179655180285%_))) + (_%hd179656180288%_ (let () (declare (not safe)) - (##car _%e179496180126%_)))) + (##car _%e179655180285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179497180129%_)) - (let ((_%e179499180134%_ + (gx#stx-pair? _%hd179656180288%_)) + (let ((_%e179658180293%_ (let () (declare (not safe)) - (gx#stx-e _%hd179497180129%_)))) - (let ((_%tl179501180139%_ + (gx#stx-e _%hd179656180288%_)))) + (let ((_%tl179660180298%_ (let () (declare (not safe)) - (##cdr _%e179499180134%_))) - (_%hd179500180137%_ + (##cdr _%e179658180293%_))) + (_%hd179659180296%_ (let () (declare (not safe)) - (##car _%e179499180134%_)))) + (##car _%e179658180293%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179500180137%_)) - (let ((_%e179502180142%_ + (gx#stx-pair? _%hd179659180296%_)) + (let ((_%e179661180301%_ (let () (declare (not safe)) - (gx#stx-e _%hd179500180137%_)))) - (let ((_%tl179504180147%_ + (gx#stx-e _%hd179659180296%_)))) + (let ((_%tl179663180306%_ (let () (declare (not safe)) - (##cdr _%e179502180142%_))) - (_%hd179503180145%_ + (##cdr _%e179661180301%_))) + (_%hd179662180304%_ (let () (declare (not safe)) - (##car _%e179502180142%_)))) + (##car _%e179661180301%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179504180147%_)) - (let ((_%e179505180150%_ + (gx#stx-pair? _%tl179663180306%_)) + (let ((_%e179664180309%_ (let () (declare (not safe)) (gx#stx-e - _%tl179504180147%_)))) - (let ((_%tl179507180155%_ + _%tl179663180306%_)))) + (let ((_%tl179666180314%_ (let () (declare (not safe)) - (##cdr _%e179505180150%_))) - (_%hd179506180153%_ + (##cdr _%e179664180309%_))) + (_%hd179665180312%_ (let () (declare (not safe)) - (##car _%e179505180150%_)))) + (##car _%e179664180309%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179507180155%_)) + _%tl179666180314%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179501180139%_)) - (let ((_%e179508180158%_ + _%tl179660180298%_)) + (let ((_%e179667180317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179501180139%_)))) - (let ((_%tl179510180163%_ - (let () (declare (not safe)) (##cdr _%e179508180158%_))) - (_%hd179509180161%_ + (gx#stx-e _%tl179660180298%_)))) + (let ((_%tl179669180322%_ + (let () (declare (not safe)) (##cdr _%e179667180317%_))) + (_%hd179668180320%_ (let () (declare (not safe)) - (##car _%e179508180158%_)))) + (##car _%e179667180317%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179509180161%_)) - (let ((_%e179511180166%_ + (gx#stx-pair? _%hd179668180320%_)) + (let ((_%e179670180325%_ (let () (declare (not safe)) - (gx#stx-e _%hd179509180161%_)))) - (let ((_%tl179513180171%_ + (gx#stx-e _%hd179668180320%_)))) + (let ((_%tl179672180330%_ (let () (declare (not safe)) - (##cdr _%e179511180166%_))) - (_%hd179512180169%_ + (##cdr _%e179670180325%_))) + (_%hd179671180328%_ (let () (declare (not safe)) - (##car _%e179511180166%_)))) + (##car _%e179670180325%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179512180169%_)) + (gx#identifier? _%hd179671180328%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd179512180169%_)) + (gx#stx-eq? '%#call _%hd179671180328%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179513180171%_)) - (let ((_%e179514180174%_ + (gx#stx-pair? _%tl179672180330%_)) + (let ((_%e179673180333%_ (let () (declare (not safe)) - (gx#stx-e _%tl179513180171%_)))) - (let ((_%tl179516180179%_ + (gx#stx-e _%tl179672180330%_)))) + (let ((_%tl179675180338%_ (let () (declare (not safe)) - (##cdr _%e179514180174%_))) - (_%hd179515180177%_ + (##cdr _%e179673180333%_))) + (_%hd179674180336%_ (let () (declare (not safe)) - (##car _%e179514180174%_)))) + (##car _%e179673180333%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179515180177%_)) - (let ((_%e179517180182%_ + _%hd179674180336%_)) + (let ((_%e179676180341%_ (let () (declare (not safe)) (gx#stx-e - _%hd179515180177%_)))) - (let ((_%tl179519180187%_ + _%hd179674180336%_)))) + (let ((_%tl179678180346%_ (let () (declare (not safe)) - (##cdr _%e179517180182%_))) - (_%hd179518180185%_ + (##cdr _%e179676180341%_))) + (_%hd179677180344%_ (let () (declare (not safe)) - (##car _%e179517180182%_)))) + (##car _%e179676180341%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179518180185%_)) + _%hd179677180344%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd179518180185%_)) + _%hd179677180344%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl179519180187%_)) - (let ((_%e179520180190%_ + (gx#stx-pair? _%tl179678180346%_)) + (let ((_%e179679180349%_ (let () (declare (not safe)) - (gx#stx-e _%tl179519180187%_)))) - (let ((_%tl179522180195%_ + (gx#stx-e _%tl179678180346%_)))) + (let ((_%tl179681180354%_ (let () (declare (not safe)) - (##cdr _%e179520180190%_))) - (_%hd179521180193%_ + (##cdr _%e179679180349%_))) + (_%hd179680180352%_ (let () (declare (not safe)) - (##car _%e179520180190%_)))) + (##car _%e179679180349%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179522180195%_)) + (gx#stx-null? _%tl179681180354%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179510180163%_)) + (gx#stx-null? _%tl179669180322%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179498180131%_)) + (gx#stx-null? _%tl179657180290%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179523180198%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179682180357%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179525180203%_ + _%tl179654180282%_)))) + (let ((_%tl179684180362%_ (let () (declare (not safe)) - (##cdr _%e179523180198%_))) - (_%hd179524180201%_ + (##cdr _%e179682180357%_))) + (_%hd179683180360%_ (let () (declare (not safe)) - (##car _%e179523180198%_)))) + (##car _%e179682180357%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179525180203%_)) - (_%__match191829191830%_ - _%e179473180259%_ - _%hd179474180262%_ - _%tl179475180264%_ - _%e179493180118%_ - _%hd179494180121%_ - _%tl179495180123%_ - _%e179496180126%_ - _%hd179497180129%_ - _%tl179498180131%_ - _%e179499180134%_ - _%hd179500180137%_ - _%tl179501180139%_ - _%e179502180142%_ - _%hd179503180145%_ - _%tl179504180147%_ - _%e179505180150%_ - _%hd179506180153%_ - _%tl179507180155%_ - _%e179508180158%_ - _%hd179509180161%_ - _%tl179510180163%_ - _%e179511180166%_ - _%hd179512180169%_ - _%tl179513180171%_ - _%e179514180174%_ - _%hd179515180177%_ - _%tl179516180179%_ - _%e179517180182%_ - _%hd179518180185%_ - _%tl179519180187%_ - _%e179520180190%_ - _%hd179521180193%_ - _%tl179522180195%_ - _%e179523180198%_ - _%hd179524180201%_ - _%tl179525180203%_) + _%tl179684180362%_)) + (_%__match191988191989%_ + _%e179632180418%_ + _%hd179633180421%_ + _%tl179634180423%_ + _%e179652180277%_ + _%hd179653180280%_ + _%tl179654180282%_ + _%e179655180285%_ + _%hd179656180288%_ + _%tl179657180290%_ + _%e179658180293%_ + _%hd179659180296%_ + _%tl179660180298%_ + _%e179661180301%_ + _%hd179662180304%_ + _%tl179663180306%_ + _%e179664180309%_ + _%hd179665180312%_ + _%tl179666180314%_ + _%e179667180317%_ + _%hd179668180320%_ + _%tl179669180322%_ + _%e179670180325%_ + _%hd179671180328%_ + _%tl179672180330%_ + _%e179673180333%_ + _%hd179674180336%_ + _%tl179675180338%_ + _%e179676180341%_ + _%hd179677180344%_ + _%tl179678180346%_ + _%e179679180349%_ + _%hd179680180352%_ + _%tl179681180354%_ + _%e179682180357%_ + _%hd179683180360%_ + _%tl179684180362%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g179627179760%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g179627179760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g179627179760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179495180123%_)) - (let ((_%e179534180080%_ + _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g179627179760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g179627179760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179495180123%_)) - (let ((_%e179534180080%_ + _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ - (let () (declare (not safe)) (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ + (let () (declare (not safe)) (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179495180123%_)) - (let ((_%e179534180080%_ + _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g179627179760%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl179654180282%_)) + (let ((_%e179693180239%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl179654180282%_)))) + (let ((_%tl179695180244%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e179693180239%_))) + (_%hd179694180242%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e179693180239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl179695180244%_)) + (_%__kont191855191856%_ + _%hd179694180242%_ + _%hd179653180280%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g179627179760%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179474180262%_)) + _%hd179633180421%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179543179984%_ + _%tl179634180423%_)) + (let ((_%e179702180143%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179475180264%_)))) - (let ((_%tl179545179989%_ - (let () (declare (not safe)) (##cdr _%e179543179984%_))) - (_%hd179544179987%_ + (gx#stx-e _%tl179634180423%_)))) + (let ((_%tl179704180148%_ + (let () (declare (not safe)) (##cdr _%e179702180143%_))) + (_%hd179703180146%_ (let () (declare (not safe)) - (##car _%e179543179984%_)))) + (##car _%e179702180143%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179544179987%_)) - (let ((_%e179546179992%_ + (gx#stx-pair? _%hd179703180146%_)) + (let ((_%e179705180151%_ (let () (declare (not safe)) - (gx#stx-e _%hd179544179987%_)))) - (let ((_%tl179548179997%_ + (gx#stx-e _%hd179703180146%_)))) + (let ((_%tl179707180156%_ (let () (declare (not safe)) - (##cdr _%e179546179992%_))) - (_%hd179547179995%_ + (##cdr _%e179705180151%_))) + (_%hd179706180154%_ (let () (declare (not safe)) - (##car _%e179546179992%_)))) + (##car _%e179705180151%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179547179995%_)) - (let ((_%e179549180000%_ + (gx#stx-pair? _%hd179706180154%_)) + (let ((_%e179708180159%_ (let () (declare (not safe)) - (gx#stx-e _%hd179547179995%_)))) - (let ((_%tl179551180005%_ + (gx#stx-e _%hd179706180154%_)))) + (let ((_%tl179710180164%_ (let () (declare (not safe)) - (##cdr _%e179549180000%_))) - (_%hd179550180003%_ + (##cdr _%e179708180159%_))) + (_%hd179709180162%_ (let () (declare (not safe)) - (##car _%e179549180000%_)))) + (##car _%e179708180159%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179550180003%_)) - (let ((_%e179552180008%_ + (gx#stx-pair? _%hd179709180162%_)) + (let ((_%e179711180167%_ (let () (declare (not safe)) - (gx#stx-e _%hd179550180003%_)))) - (let ((_%tl179554180013%_ + (gx#stx-e _%hd179709180162%_)))) + (let ((_%tl179713180172%_ (let () (declare (not safe)) - (##cdr _%e179552180008%_))) - (_%hd179553180011%_ + (##cdr _%e179711180167%_))) + (_%hd179712180170%_ (let () (declare (not safe)) - (##car _%e179552180008%_)))) + (##car _%e179711180167%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179554180013%_)) + _%tl179713180172%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179551180005%_)) - (let ((_%e179555180016%_ + _%tl179710180164%_)) + (let ((_%e179714180175%_ (let () (declare (not safe)) (gx#stx-e - _%tl179551180005%_)))) - (let ((_%tl179557180021%_ + _%tl179710180164%_)))) + (let ((_%tl179716180180%_ (let () (declare (not safe)) - (##cdr _%e179555180016%_))) - (_%hd179556180019%_ + (##cdr _%e179714180175%_))) + (_%hd179715180178%_ (let () (declare (not safe)) - (##car _%e179555180016%_)))) + (##car _%e179714180175%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179557180021%_)) + _%tl179716180180%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179548179997%_)) + (gx#stx-null? _%tl179707180156%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179545179989%_)) - (let ((_%e179558180024%_ + (gx#stx-pair? _%tl179704180148%_)) + (let ((_%e179717180183%_ (let () (declare (not safe)) - (gx#stx-e _%tl179545179989%_)))) - (let ((_%tl179560180029%_ + (gx#stx-e _%tl179704180148%_)))) + (let ((_%tl179719180188%_ (let () (declare (not safe)) - (##cdr _%e179558180024%_))) - (_%hd179559180027%_ + (##cdr _%e179717180183%_))) + (_%hd179718180186%_ (let () (declare (not safe)) - (##car _%e179558180024%_)))) + (##car _%e179717180183%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179560180029%_)) - (_%__kont191698191699%_ - _%hd179559180027%_ - _%hd179556180019%_ - _%hd179553180011%_) + (gx#stx-null? _%tl179719180188%_)) + (_%__kont191857191858%_ + _%hd179718180186%_ + _%hd179715180178%_ + _%hd179712180170%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_))))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))) + (let () (declare (not safe)) (_%g179627179760%_))) + (let () (declare (not safe)) (_%g179627179760%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g179627179760%_))) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179474180262%_)) + _%hd179633180421%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179567179614%_ + _%tl179634180423%_)) + (let ((_%e179726179773%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179475180264%_)))) - (let ((_%tl179569179619%_ + (gx#stx-e _%tl179634180423%_)))) + (let ((_%tl179728179778%_ (let () (declare (not safe)) - (##cdr _%e179567179614%_))) - (_%hd179568179617%_ + (##cdr _%e179726179773%_))) + (_%hd179727179776%_ (let () (declare (not safe)) - (##car _%e179567179614%_)))) + (##car _%e179726179773%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179568179617%_)) - (let ((_%e179570179622%_ + (gx#stx-pair? _%hd179727179776%_)) + (let ((_%e179729179781%_ (let () (declare (not safe)) - (gx#stx-e _%hd179568179617%_)))) - (let ((_%tl179572179627%_ + (gx#stx-e _%hd179727179776%_)))) + (let ((_%tl179731179786%_ (let () (declare (not safe)) - (##cdr _%e179570179622%_))) - (_%hd179571179625%_ + (##cdr _%e179729179781%_))) + (_%hd179730179784%_ (let () (declare (not safe)) - (##car _%e179570179622%_)))) + (##car _%e179729179781%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179571179625%_)) + (gx#identifier? _%hd179730179784%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179571179625%_)) + _%hd179730179784%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179572179627%_)) - (let ((_%e179573179630%_ + (gx#stx-pair? _%tl179731179786%_)) + (let ((_%e179732179789%_ (let () (declare (not safe)) (gx#stx-e - _%tl179572179627%_)))) - (let ((_%tl179575179635%_ + _%tl179731179786%_)))) + (let ((_%tl179734179794%_ (let () (declare (not safe)) - (##cdr _%e179573179630%_))) - (_%hd179574179633%_ + (##cdr _%e179732179789%_))) + (_%hd179733179792%_ (let () (declare (not safe)) - (##car _%e179573179630%_)))) + (##car _%e179732179789%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179574179633%_)) - (let ((_%__splice191702191703%_ + _%hd179733179792%_)) + (let ((_%__splice191861191862%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179574179633%_ + _%hd179733179792%_ '0)))) - (let ((_%tl179578179640%_ + (let ((_%tl179737179799%_ (let () (declare (not safe)) (##vector-ref - _%__splice191702191703%_ + _%__splice191861191862%_ '1))) - (_%target179576179638%_ + (_%target179735179797%_ (let () (declare (not safe)) (##vector-ref - _%__splice191702191703%_ + _%__splice191861191862%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179578179640%_)) - (_%__match191947191948%_ - _%e179473180259%_ - _%hd179474180262%_ - _%tl179475180264%_ - _%e179567179614%_ - _%hd179568179617%_ - _%tl179569179619%_ - _%e179570179622%_ - _%hd179571179625%_ - _%tl179572179627%_ - _%e179573179630%_ - _%hd179574179633%_ - _%tl179575179635%_ - _%__splice191702191703%_ - _%target179576179638%_ - _%tl179578179640%_) + _%tl179737179799%_)) + (_%__match192106192107%_ + _%e179632180418%_ + _%hd179633180421%_ + _%tl179634180423%_ + _%e179726179773%_ + _%hd179727179776%_ + _%tl179728179778%_ + _%e179729179781%_ + _%hd179730179784%_ + _%tl179731179786%_ + _%e179732179789%_ + _%hd179733179792%_ + _%tl179734179794%_ + _%__splice191861191862%_ + _%target179735179797%_ + _%tl179737179799%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g179627179760%_))) (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g179627179760%_))) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))))) + (let () (declare (not safe)) (_%g179627179760%_))) + (let () (declare (not safe)) (_%g179627179760%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g179627179760%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))))) - (_%xform-loop-e179075%_ - (lambda (_%expr179285%_ - _%kont-id179286%_ - _%kont-box179287%_ - _%negation-id179288%_) - (let* ((_%g179290179330%_ - (lambda (_%g179291179327%_) + (_%g179627179760%_)))))))) + (_%xform-loop-e179234%_ + (lambda (_%expr179444%_ + _%kont-id179445%_ + _%kont-box179446%_ + _%negation-id179447%_) + (let* ((_%g179449179489%_ + (lambda (_%g179450179486%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179291179327%_)))) - (_%g179289179456%_ - (lambda (_%g179291179333%_) + _%g179450179486%_)))) + (_%g179448179615%_ + (lambda (_%g179450179492%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179291179333%_)) - (let ((_%e179296179335%_ + (gx#stx-pair? _%g179450179492%_)) + (let ((_%e179455179494%_ (let () (declare (not safe)) - (gx#stx-e _%g179291179333%_)))) - (let ((_%hd179297179338%_ + (gx#stx-e _%g179450179492%_)))) + (let ((_%hd179456179497%_ (let () (declare (not safe)) - (##car _%e179296179335%_))) - (_%tl179298179340%_ + (##car _%e179455179494%_))) + (_%tl179457179499%_ (let () (declare (not safe)) - (##cdr _%e179296179335%_)))) + (##cdr _%e179455179494%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179297179338%_)) + _%hd179456179497%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179297179338%_)) + _%hd179456179497%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179298179340%_)) - (let ((_%e179299179343%_ + _%tl179457179499%_)) + (let ((_%e179458179502%_ (let () (declare (not safe)) (gx#stx-e - _%tl179298179340%_)))) - (let ((_%hd179300179346%_ + _%tl179457179499%_)))) + (let ((_%hd179459179505%_ (let () (declare (not safe)) - (##car _%e179299179343%_))) - (_%tl179301179348%_ + (##car _%e179458179502%_))) + (_%tl179460179507%_ (let () (declare (not safe)) - (##cdr _%e179299179343%_)))) + (##cdr _%e179458179502%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179300179346%_)) - (let ((_g192335_ + _%hd179459179505%_)) + (let ((_g192494_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179300179346%_ '0)))) + (gx#syntax-split-splice _%hd179459179505%_ '0)))) (begin - (let ((_g192336_ + (let ((_g192495_ (let () (declare (not safe)) - (if (##values? _g192335_) - (##vector-length _g192335_) + (if (##values? _g192494_) + (##vector-length _g192494_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192336_ 2))) - (error "Context expects 2 values" _g192336_))) - (let ((_%target179302179351%_ + (##fx= _g192495_ 2))) + (error "Context expects 2 values" _g192495_))) + (let ((_%target179461179510%_ (let () (declare (not safe)) - (##vector-ref _g192335_ 0))) - (_%tl179304179353%_ + (##vector-ref _g192494_ 0))) + (_%tl179463179512%_ (let () (declare (not safe)) - (##vector-ref _g192335_ 1)))) + (##vector-ref _g192494_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179304179353%_)) - (letrec ((_%loop179305179356%_ - (lambda (_%hd179303179359%_ - _%id179309179361%_) + (gx#stx-null? _%tl179463179512%_)) + (letrec ((_%loop179464179515%_ + (lambda (_%hd179462179518%_ + _%id179468179520%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179303179359%_)) - (let ((_%e179306179364%_ + _%hd179462179518%_)) + (let ((_%e179465179523%_ (let () (declare (not safe)) (gx#stx-e - _%hd179303179359%_)))) - (let ((_%lp-hd179307179367%_ + _%hd179462179518%_)))) + (let ((_%lp-hd179466179526%_ (let () (declare (not safe)) - (##car _%e179306179364%_))) - (_%lp-tl179308179369%_ + (##car _%e179465179523%_))) + (_%lp-tl179467179528%_ (let () (declare (not safe)) - (##cdr _%e179306179364%_)))) - (_%loop179305179356%_ - _%lp-tl179308179369%_ - (cons _%lp-hd179307179367%_ - _%id179309179361%_)))) - (let ((_%id179310179372%_ - (reverse _%id179309179361%_))) + (##cdr _%e179465179523%_)))) + (_%loop179464179515%_ + _%lp-tl179467179528%_ + (cons _%lp-hd179466179526%_ + _%id179468179520%_)))) + (let ((_%id179469179531%_ + (reverse _%id179468179520%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179301179348%_)) - (let ((_%e179311179375%_ + _%tl179460179507%_)) + (let ((_%e179470179534%_ (let () (declare (not safe)) (gx#stx-e - _%tl179301179348%_)))) - (let ((_%hd179312179378%_ + _%tl179460179507%_)))) + (let ((_%hd179471179537%_ (let () (declare (not safe)) - (##car _%e179311179375%_))) - (_%tl179313179380%_ + (##car _%e179470179534%_))) + (_%tl179472179539%_ (let () (declare (not safe)) - (##cdr _%e179311179375%_)))) + (##cdr _%e179470179534%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179312179378%_)) - (let ((_%e179314179383%_ + _%hd179471179537%_)) + (let ((_%e179473179542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179312179378%_)))) - (let ((_%hd179315179386%_ + (gx#stx-e _%hd179471179537%_)))) + (let ((_%hd179474179545%_ (let () (declare (not safe)) - (##car _%e179314179383%_))) - (_%tl179316179388%_ + (##car _%e179473179542%_))) + (_%tl179475179547%_ (let () (declare (not safe)) - (##cdr _%e179314179383%_)))) + (##cdr _%e179473179542%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179315179386%_)) + (gx#identifier? _%hd179474179545%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd179315179386%_)) + (gx#stx-eq? '%#if _%hd179474179545%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179316179388%_)) - (let ((_%e179317179391%_ + (gx#stx-pair? _%tl179475179547%_)) + (let ((_%e179476179550%_ (let () (declare (not safe)) - (gx#stx-e _%tl179316179388%_)))) - (let ((_%hd179318179394%_ + (gx#stx-e _%tl179475179547%_)))) + (let ((_%hd179477179553%_ (let () (declare (not safe)) - (##car _%e179317179391%_))) - (_%tl179319179396%_ + (##car _%e179476179550%_))) + (_%tl179478179555%_ (let () (declare (not safe)) - (##cdr _%e179317179391%_)))) + (##cdr _%e179476179550%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179319179396%_)) - (let ((_%e179320179399%_ + (gx#stx-pair? _%tl179478179555%_)) + (let ((_%e179479179558%_ (let () (declare (not safe)) (gx#stx-e - _%tl179319179396%_)))) - (let ((_%hd179321179402%_ + _%tl179478179555%_)))) + (let ((_%hd179480179561%_ (let () (declare (not safe)) - (##car _%e179320179399%_))) - (_%tl179322179404%_ + (##car _%e179479179558%_))) + (_%tl179481179563%_ (let () (declare (not safe)) - (##cdr _%e179320179399%_)))) + (##cdr _%e179479179558%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179322179404%_)) - (let ((_%e179323179407%_ + _%tl179481179563%_)) + (let ((_%e179482179566%_ (let () (declare (not safe)) (gx#stx-e - _%tl179322179404%_)))) - (let ((_%hd179324179410%_ + _%tl179481179563%_)))) + (let ((_%hd179483179569%_ (let () (declare (not safe)) - (##car _%e179323179407%_))) - (_%tl179325179412%_ + (##car _%e179482179566%_))) + (_%tl179484179571%_ (let () (declare (not safe)) - (##cdr _%e179323179407%_)))) + (##cdr _%e179482179566%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179325179412%_)) + _%tl179484179571%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179313179380%_)) - ((lambda (_%L179415%_ - _%L179416%_ - _%L179417%_ - _%L179418%_) - (let ((_%E179447%_ - (_%xform-e179074%_ - _%L179415%_ - _%kont-id179286%_ - _%kont-box179287%_ - _%negation-id179288%_))) + (gx#stx-null? _%tl179472179539%_)) + ((lambda (_%L179574%_ + _%L179575%_ + _%L179576%_ + _%L179577%_) + (let ((_%E179606%_ + (_%xform-e179233%_ + _%L179574%_ + _%kont-id179445%_ + _%kont-box179446%_ + _%negation-id179447%_))) (cons '%#lambda - (cons (let ((__tmp192337 - (lambda (_%g179448179451%_ - _%g179449179453%_) - (cons _%g179448179451%_ - _%g179449179453%_)))) + (cons (let ((__tmp192496 + (lambda (_%g179607179610%_ + _%g179608179612%_) + (cons _%g179607179610%_ + _%g179608179612%_)))) (declare (not safe)) (__foldr1 - __tmp192337 + __tmp192496 '() - _%L179418%_)) + _%L179577%_)) (cons (cons '%#if - (cons _%L179417%_ - (cons _%L179416%_ - (cons _%E179447%_ + (cons _%L179576%_ + (cons _%L179575%_ + (cons _%E179606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd179324179410%_ - _%hd179321179402%_ - _%hd179318179394%_ - _%id179310179372%_) - (_%g179290179330%_ _%g179291179333%_)) - (_%g179290179330%_ _%g179291179333%_)))) + _%hd179483179569%_ + _%hd179480179561%_ + _%hd179477179553%_ + _%id179469179531%_) + (_%g179449179489%_ _%g179450179492%_)) + (_%g179449179489%_ _%g179450179492%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179290179330%_ - _%g179291179333%_)))) - (_%g179290179330%_ - _%g179291179333%_)))) - (_%g179290179330%_ _%g179291179333%_)) - (_%g179290179330%_ _%g179291179333%_)) - (_%g179290179330%_ _%g179291179333%_)))) - (_%g179290179330%_ _%g179291179333%_)))) + (_%g179449179489%_ + _%g179450179492%_)))) + (_%g179449179489%_ + _%g179450179492%_)))) + (_%g179449179489%_ _%g179450179492%_)) + (_%g179449179489%_ _%g179450179492%_)) + (_%g179449179489%_ _%g179450179492%_)))) + (_%g179449179489%_ _%g179450179492%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179290179330%_ - _%g179291179333%_))))))) - (_%loop179305179356%_ - _%target179302179351%_ + (_%g179449179489%_ + _%g179450179492%_))))))) + (_%loop179464179515%_ + _%target179461179510%_ '())) - (_%g179290179330%_ _%g179291179333%_))))) - (_%g179290179330%_ _%g179291179333%_)))) + (_%g179449179489%_ _%g179450179492%_))))) + (_%g179449179489%_ _%g179450179492%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179290179330%_ - _%g179291179333%_)) - (_%g179290179330%_ - _%g179291179333%_)) - (_%g179290179330%_ - _%g179291179333%_)))) - (_%g179290179330%_ _%g179291179333%_))))) - (_%g179289179456%_ _%expr179285%_)))) - (_%clause-e179076%_ - (lambda (_%clause-lambda179155%_ - _%kont-id179156%_ - _%rest179157%_) - (letrec* ((_%kont-box179159%_ (box '#f))) - (let* ((_%negation-id179199%_ - (let* ((_%rest179160179170%_ _%rest179157%_) - (_%else179162179178%_ - (lambda () _%negation-id179072%_)) - (_%K179164179184%_ - (lambda (_%clause179181%_ - _%clause-id179182%_) - _%clause-id179182%_))) - (if (pair? _%rest179160179170%_) - (let ((_%hd179165179187%_ + (_%g179449179489%_ + _%g179450179492%_)) + (_%g179449179489%_ + _%g179450179492%_)) + (_%g179449179489%_ + _%g179450179492%_)))) + (_%g179449179489%_ _%g179450179492%_))))) + (_%g179448179615%_ _%expr179444%_)))) + (_%clause-e179235%_ + (lambda (_%clause-lambda179314%_ + _%kont-id179315%_ + _%rest179316%_) + (letrec* ((_%kont-box179318%_ (box '#f))) + (let* ((_%negation-id179358%_ + (let* ((_%rest179319179329%_ _%rest179316%_) + (_%else179321179337%_ + (lambda () _%negation-id179231%_)) + (_%K179323179343%_ + (lambda (_%clause179340%_ + _%clause-id179341%_) + _%clause-id179341%_))) + (if (pair? _%rest179319179329%_) + (let ((_%hd179324179346%_ (let () (declare (not safe)) - (##car _%rest179160179170%_)))) - (if (pair? _%hd179165179187%_) - (let ((_%hd179167179190%_ + (##car _%rest179319179329%_)))) + (if (pair? _%hd179324179346%_) + (let ((_%hd179326179349%_ (let () (declare (not safe)) - (##car _%hd179165179187%_))) - (_%tl179168179192%_ + (##car _%hd179324179346%_))) + (_%tl179327179351%_ (let () (declare (not safe)) - (##cdr _%hd179165179187%_)))) - (let* ((_%clause-id179195%_ - _%hd179167179190%_) - (_%clause179197%_ - _%tl179168179192%_)) - (_%K179164179184%_ - _%clause179197%_ - _%clause-id179195%_))) - (_%else179162179178%_))) - (_%else179162179178%_)))) - (_%g179201179221%_ - (lambda (_%g179202179218%_) + (##cdr _%hd179324179346%_)))) + (let* ((_%clause-id179354%_ + _%hd179326179349%_) + (_%clause179356%_ + _%tl179327179351%_)) + (_%K179323179343%_ + _%clause179356%_ + _%clause-id179354%_))) + (_%else179321179337%_))) + (_%else179321179337%_)))) + (_%g179360179380%_ + (lambda (_%g179361179377%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179202179218%_)))) - (_%g179200179282%_ - (lambda (_%g179202179224%_) + _%g179361179377%_)))) + (_%g179359179441%_ + (lambda (_%g179361179383%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179202179224%_)) - (let ((_%e179205179226%_ + (gx#stx-pair? _%g179361179383%_)) + (let ((_%e179364179385%_ (let () (declare (not safe)) - (gx#stx-e _%g179202179224%_)))) - (let ((_%hd179206179229%_ + (gx#stx-e _%g179361179383%_)))) + (let ((_%hd179365179388%_ (let () (declare (not safe)) - (##car _%e179205179226%_))) - (_%tl179207179231%_ + (##car _%e179364179385%_))) + (_%tl179366179390%_ (let () (declare (not safe)) - (##cdr _%e179205179226%_)))) + (##cdr _%e179364179385%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179206179229%_)) + _%hd179365179388%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179206179229%_)) + _%hd179365179388%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179207179231%_)) - (let ((_%e179208179234%_ + _%tl179366179390%_)) + (let ((_%e179367179393%_ (let () (declare (not safe)) (gx#stx-e - _%tl179207179231%_)))) - (let ((_%hd179209179237%_ + _%tl179366179390%_)))) + (let ((_%hd179368179396%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e179208179234%_))) - (_%tl179210179239%_ - (let () (declare (not safe)) (##cdr _%e179208179234%_)))) + (##car _%e179367179393%_))) + (_%tl179369179398%_ + (let () (declare (not safe)) (##cdr _%e179367179393%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179209179237%_)) - (let ((_%e179211179242%_ + (gx#stx-pair? _%hd179368179396%_)) + (let ((_%e179370179401%_ (let () (declare (not safe)) - (gx#stx-e _%hd179209179237%_)))) - (let ((_%hd179212179245%_ + (gx#stx-e _%hd179368179396%_)))) + (let ((_%hd179371179404%_ (let () (declare (not safe)) - (##car _%e179211179242%_))) - (_%tl179213179247%_ + (##car _%e179370179401%_))) + (_%tl179372179406%_ (let () (declare (not safe)) - (##cdr _%e179211179242%_)))) + (##cdr _%e179370179401%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179213179247%_)) + (gx#stx-null? _%tl179372179406%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179210179239%_)) - (let ((_%e179214179250%_ + (gx#stx-pair? _%tl179369179398%_)) + (let ((_%e179373179409%_ (let () (declare (not safe)) - (gx#stx-e _%tl179210179239%_)))) - (let ((_%hd179215179253%_ + (gx#stx-e _%tl179369179398%_)))) + (let ((_%hd179374179412%_ (let () (declare (not safe)) - (##car _%e179214179250%_))) - (_%tl179216179255%_ + (##car _%e179373179409%_))) + (_%tl179375179414%_ (let () (declare (not safe)) - (##cdr _%e179214179250%_)))) + (##cdr _%e179373179409%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179216179255%_)) - ((lambda (_%L179258%_ _%L179259%_) - (let ((_%body179280%_ - (_%xform-e179074%_ - _%L179258%_ - _%kont-id179156%_ - _%kont-box179159%_ - _%negation-id179199%_))) + (gx#stx-null? _%tl179375179414%_)) + ((lambda (_%L179417%_ _%L179418%_) + (let ((_%body179439%_ + (_%xform-e179233%_ + _%L179417%_ + _%kont-id179315%_ + _%kont-box179318%_ + _%negation-id179358%_))) (values (cons '%#lambda - (cons (cons _%L179259%_ + (cons (cons _%L179418%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body179280%_ '()))) + (cons _%body179439%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box179159%_)))) - _%hd179215179253%_ - _%hd179212179245%_) - (_%g179201179221%_ - _%g179202179224%_)))) - (_%g179201179221%_ _%g179202179224%_)) - (_%g179201179221%_ _%g179202179224%_)))) - (_%g179201179221%_ _%g179202179224%_)))) + (unbox _%kont-box179318%_)))) + _%hd179374179412%_ + _%hd179371179404%_) + (_%g179360179380%_ + _%g179361179383%_)))) + (_%g179360179380%_ _%g179361179383%_)) + (_%g179360179380%_ _%g179361179383%_)))) + (_%g179360179380%_ _%g179361179383%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179201179221%_ - _%g179202179224%_)) - (_%g179201179221%_ - _%g179202179224%_)) - (_%g179201179221%_ - _%g179202179224%_)))) - (_%g179201179221%_ _%g179202179224%_))))) - (_%g179200179282%_ _%clause-lambda179155%_)))))) - (let _%lp179078%_ ((_%rest179080%_ _%clauses179071%_) - (_%clauses179081%_ '()) - (_%konts179082%_ '())) - (let* ((_%rest179083179091%_ _%rest179080%_) - (_%else179085179099%_ + (_%g179360179380%_ + _%g179361179383%_)) + (_%g179360179380%_ + _%g179361179383%_)) + (_%g179360179380%_ + _%g179361179383%_)))) + (_%g179360179380%_ _%g179361179383%_))))) + (_%g179359179441%_ _%clause-lambda179314%_)))))) + (let _%lp179237%_ ((_%rest179239%_ _%clauses179230%_) + (_%clauses179240%_ '()) + (_%konts179241%_ '())) + (let* ((_%rest179242179250%_ _%rest179239%_) + (_%else179244179258%_ (lambda () - (values (reverse _%clauses179081%_) - (reverse _%konts179082%_)))) - (_%K179087179143%_ - (lambda (_%rest179102%_ _%clause179103%_) - (let* ((_%clause179104179111%_ _%clause179103%_) - (_%E179106179115%_ + (values (reverse _%clauses179240%_) + (reverse _%konts179241%_)))) + (_%K179246179302%_ + (lambda (_%rest179261%_ _%clause179262%_) + (let* ((_%clause179263179270%_ _%clause179262%_) + (_%E179265179274%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause179104179111%_ + _%clause179263179270%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K179107179131%_ - (lambda (_%clause-lambda179118%_ - _%clause-id179119%_) - (let* ((_%id179121%_ - (let ((__tmp192338 + (_%K179266179290%_ + (lambda (_%clause-lambda179277%_ + _%clause-id179278%_) + (let* ((_%id179280%_ + (let ((__tmp192497 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp192338))) - (_%id179123%_ + (make-symbol__0 __tmp192497))) + (_%id179282%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id179121%_))) - (_%_179125%_ + _%id179280%_))) + (_%_179284%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id179123%_))) - (_g192339_ - (_%clause-e179076%_ - _%clause-lambda179118%_ - _%id179123%_ - _%rest179102%_))) + _%id179282%_))) + (_g192498_ + (_%clause-e179235%_ + _%clause-lambda179277%_ + _%id179282%_ + _%rest179261%_))) (begin - (let ((_g192340_ + (let ((_g192499_ (let () (declare (not safe)) - (if (##values? _g192339_) - (##vector-length _g192339_) + (if (##values? _g192498_) + (##vector-length _g192498_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192340_ 2))) + (##fx= _g192499_ 2))) (error "Context expects 2 values" - _g192340_))) - (let ((_%clause-lambda179127%_ + _g192499_))) + (let ((_%clause-lambda179286%_ (let () (declare (not safe)) - (##vector-ref _g192339_ 0))) - (_%kont179128%_ + (##vector-ref _g192498_ 0))) + (_%kont179287%_ (let () (declare (not safe)) - (##vector-ref _g192339_ 1)))) - (_%lp179078%_ - _%rest179102%_ - (cons (cons _%clause-id179119%_ - _%clause-lambda179127%_) - _%clauses179081%_) - (cons (cons _%id179123%_ _%kont179128%_) - _%konts179082%_)))))))) - (if (pair? _%clause179104179111%_) - (let ((_%hd179108179134%_ + (##vector-ref _g192498_ 1)))) + (_%lp179237%_ + _%rest179261%_ + (cons (cons _%clause-id179278%_ + _%clause-lambda179286%_) + _%clauses179240%_) + (cons (cons _%id179282%_ _%kont179287%_) + _%konts179241%_)))))))) + (if (pair? _%clause179263179270%_) + (let ((_%hd179267179293%_ (let () (declare (not safe)) - (##car _%clause179104179111%_))) - (_%tl179109179136%_ + (##car _%clause179263179270%_))) + (_%tl179268179295%_ (let () (declare (not safe)) - (##cdr _%clause179104179111%_)))) - (let* ((_%clause-id179139%_ _%hd179108179134%_) - (_%clause-lambda179141%_ - _%tl179109179136%_)) - (_%K179107179131%_ - _%clause-lambda179141%_ - _%clause-id179139%_))) - (_%E179106179115%_)))))) - (if (pair? _%rest179083179091%_) - (let ((_%hd179088179146%_ + (##cdr _%clause179263179270%_)))) + (let* ((_%clause-id179298%_ _%hd179267179293%_) + (_%clause-lambda179300%_ + _%tl179268179295%_)) + (_%K179266179290%_ + _%clause-lambda179300%_ + _%clause-id179298%_))) + (_%E179265179274%_)))))) + (if (pair? _%rest179242179250%_) + (let ((_%hd179247179305%_ (let () (declare (not safe)) - (##car _%rest179083179091%_))) - (_%tl179089179148%_ + (##car _%rest179242179250%_))) + (_%tl179248179307%_ (let () (declare (not safe)) - (##cdr _%rest179083179091%_)))) - (let* ((_%clause179151%_ _%hd179088179146%_) - (_%rest179153%_ _%tl179089179148%_)) - (_%K179087179143%_ _%rest179153%_ _%clause179151%_))) - (_%else179085179099%_))))))) + (##cdr _%rest179242179250%_)))) + (let* ((_%clause179310%_ _%hd179247179305%_) + (_%rest179312%_ _%tl179248179307%_)) + (_%K179246179302%_ _%rest179312%_ _%clause179310%_))) + (_%else179244179258%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause178415%_ _%negation178416%_ _%target178417%_) - (letrec ((_%closure-e178419%_ - (lambda (_%expr178536%_) - (let* ((_%__stx191950191951%_ _%expr178536%_) - (_%g178543178658%_ + (lambda (_%clause178574%_ _%negation178575%_ _%target178576%_) + (letrec ((_%closure-e178578%_ + (lambda (_%expr178695%_) + (let* ((_%__stx192109192110%_ _%expr178695%_) + (_%g178702178817%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191950191951%_))))) - (let ((_%__kont191952191953%_ - (lambda (_%L179049%_ _%L179050%_ _%L179051%_) + _%__stx192109192110%_))))) + (let ((_%__kont192111192112%_ + (lambda (_%L179208%_ _%L179209%_ _%L179210%_) (cons '%#if - (cons _%L179051%_ - (cons (_%closure-e178419%_ - _%L179050%_) - (cons (_%closure-e178419%_ - _%L179049%_) + (cons _%L179210%_ + (cons (_%closure-e178578%_ + _%L179209%_) + (cons (_%closure-e178578%_ + _%L179208%_) '())))))) - (_%__kont191954191955%_ - (lambda (_%L178997%_ _%L178998%_) + (_%__kont192113192114%_ + (lambda (_%L179156%_ _%L179157%_) (cons '%#let-values - (cons _%L178998%_ - (cons (_%closure-e178419%_ - _%L178997%_) + (cons _%L179157%_ + (cons (_%closure-e178578%_ + _%L179156%_) '()))))) - (_%__kont191956191957%_ - (lambda (_%L178943%_ _%L178944%_ _%L178945%_) + (_%__kont192115192116%_ + (lambda (_%L179102%_ _%L179103%_ _%L179104%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L178945%_ '()) - (cons (_%closure-e178419%_ - _%L178944%_) + (cons (cons (cons (cons _%L179104%_ '()) + (cons (_%closure-e178578%_ + _%L179103%_) '())) '()) - (cons _%L178943%_ '()))))) - (_%__kont191958191959%_ - (lambda (_%L178856%_ _%L178857%_) + (cons _%L179102%_ '()))))) + (_%__kont192117192118%_ + (lambda (_%L179015%_ _%L179016%_) (cons '%#lambda - (cons (let ((__tmp192341 - (lambda (_%g178874178877%_ - _%g178875178879%_) - (cons _%g178874178877%_ - _%g178875178879%_)))) + (cons (let ((__tmp192500 + (lambda (_%g179033179036%_ + _%g179034179038%_) + (cons _%g179033179036%_ + _%g179034179038%_)))) (declare (not safe)) (__foldr1 - __tmp192341 + __tmp192500 '() - _%L178857%_)) - (cons (_%closure-e178419%_ - _%L178856%_) + _%L179016%_)) + (cons (_%closure-e178578%_ + _%L179015%_) '()))))) - (_%__kont191962191963%_ - (lambda (_%L178786%_) + (_%__kont192121192122%_ + (lambda (_%L178945%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178786%_ '())) + (cons _%L178945%_ '())) '())))) - (_%__kont191964191965%_ - (lambda (_%L178719%_ _%L178720%_) - _%expr178536%_))) - (let* ((_%__match192183192184%_ - (lambda (_%e178633178663%_ - _%hd178634178666%_ - _%tl178635178668%_ - _%e178636178671%_ - _%hd178637178674%_ - _%tl178638178676%_ - _%e178639178679%_ - _%hd178640178682%_ - _%tl178641178684%_ - _%e178642178687%_ - _%hd178643178690%_ - _%tl178644178692%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) - (letrec ((_%loop178648178700%_ - (lambda (_%hd178646178703%_ - _%arg178652178705%_) + (_%__kont192123192124%_ + (lambda (_%L178878%_ _%L178879%_) + _%expr178695%_))) + (let* ((_%__match192342192343%_ + (lambda (_%e178792178822%_ + _%hd178793178825%_ + _%tl178794178827%_ + _%e178795178830%_ + _%hd178796178833%_ + _%tl178797178835%_ + _%e178798178838%_ + _%hd178799178841%_ + _%tl178800178843%_ + _%e178801178846%_ + _%hd178802178849%_ + _%tl178803178851%_ + _%__splice192125192126%_ + _%target178804178854%_ + _%tl178806178856%_) + (letrec ((_%loop178807178859%_ + (lambda (_%hd178805178862%_ + _%arg178811178864%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178646178703%_)) - (let ((_%e178649178708%_ + _%hd178805178862%_)) + (let ((_%e178808178867%_ (let () (declare (not safe)) (gx#stx-e - _%hd178646178703%_)))) - (let ((_%lp-tl178651178713%_ + _%hd178805178862%_)))) + (let ((_%lp-tl178810178872%_ (let () (declare (not safe)) - (##cdr _%e178649178708%_))) - (_%lp-hd178650178711%_ + (##cdr _%e178808178867%_))) + (_%lp-hd178809178870%_ (let () (declare (not safe)) - (##car _%e178649178708%_)))) - (_%loop178648178700%_ - _%lp-tl178651178713%_ - (cons _%lp-hd178650178711%_ - _%arg178652178705%_)))) - (let ((_%arg178653178716%_ - (reverse _%arg178652178705%_))) - (_%__kont191964191965%_ - _%arg178653178716%_ - _%hd178643178690%_)))))) - (_%loop178648178700%_ - _%target178645178695%_ + (##car _%e178808178867%_)))) + (_%loop178807178859%_ + _%lp-tl178810178872%_ + (cons _%lp-hd178809178870%_ + _%arg178811178864%_)))) + (let ((_%arg178812178875%_ + (reverse _%arg178811178864%_))) + (_%__kont192123192124%_ + _%arg178812178875%_ + _%hd178802178849%_)))))) + (_%loop178807178859%_ + _%target178804178854%_ '())))) - (_%__match192141192142%_ - (lambda (_%e178616178746%_ - _%hd178617178749%_ - _%tl178618178751%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%e178628178778%_ - _%hd178629178781%_ - _%tl178630178783%_) - (let ((_%L178786%_ _%hd178626178773%_)) + (_%__match192300192301%_ + (lambda (_%e178775178905%_ + _%hd178776178908%_ + _%tl178777178910%_ + _%e178778178913%_ + _%hd178779178916%_ + _%tl178780178918%_ + _%e178781178921%_ + _%hd178782178924%_ + _%tl178783178926%_ + _%e178784178929%_ + _%hd178785178932%_ + _%tl178786178934%_ + _%e178787178937%_ + _%hd178788178940%_ + _%tl178789178942%_) + (let ((_%L178945%_ _%hd178785178932%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L178786%_ - _%negation178416%_)) - (_%__kont191962191963%_ _%L178786%_) + _%L178945%_ + _%negation178575%_)) + (_%__kont192121192122%_ _%L178945%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl178621178759%_)) - (let ((_%__splice191966191967%_ + _%tl178780178918%_)) + (let ((_%__splice192125192126%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178621178759%_ + _%tl178780178918%_ '0)))) - (let ((_%tl178647178697%_ + (let ((_%tl178806178856%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice192125192126%_ '1))) - (_%target178645178695%_ + (_%target178804178854%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice192125192126%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178647178697%_)) - (_%__match192183192184%_ - _%e178616178746%_ - _%hd178617178749%_ - _%tl178618178751%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) + _%tl178806178856%_)) + (_%__match192342192343%_ + _%e178775178905%_ + _%hd178776178908%_ + _%tl178777178910%_ + _%e178778178913%_ + _%hd178779178916%_ + _%tl178780178918%_ + _%e178781178921%_ + _%hd178782178924%_ + _%tl178783178926%_ + _%e178784178929%_ + _%hd178785178932%_ + _%tl178786178934%_ + _%__splice192125192126%_ + _%target178804178854%_ + _%tl178806178856%_) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g178702178817%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))))) - (_%__match192099192100%_ - (lambda (_%e178597178808%_ - _%hd178598178811%_ - _%tl178599178813%_ - _%e178600178816%_ - _%hd178601178819%_ - _%tl178602178821%_ - _%__splice191960191961%_ - _%target178603178824%_ - _%tl178605178826%_) - (letrec ((_%loop178606178829%_ - (lambda (_%hd178604178832%_ - _%id178610178834%_) + (_%g178702178817%_))))))) + (_%__match192258192259%_ + (lambda (_%e178756178967%_ + _%hd178757178970%_ + _%tl178758178972%_ + _%e178759178975%_ + _%hd178760178978%_ + _%tl178761178980%_ + _%__splice192119192120%_ + _%target178762178983%_ + _%tl178764178985%_) + (letrec ((_%loop178765178988%_ + (lambda (_%hd178763178991%_ + _%id178769178993%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178604178832%_)) - (let ((_%e178607178837%_ + _%hd178763178991%_)) + (let ((_%e178766178996%_ (let () (declare (not safe)) (gx#stx-e - _%hd178604178832%_)))) - (let ((_%lp-tl178609178842%_ + _%hd178763178991%_)))) + (let ((_%lp-tl178768179001%_ (let () (declare (not safe)) - (##cdr _%e178607178837%_))) - (_%lp-hd178608178840%_ + (##cdr _%e178766178996%_))) + (_%lp-hd178767178999%_ (let () (declare (not safe)) - (##car _%e178607178837%_)))) - (_%loop178606178829%_ - _%lp-tl178609178842%_ - (cons _%lp-hd178608178840%_ - _%id178610178834%_)))) - (let ((_%id178611178845%_ - (reverse _%id178610178834%_))) + (##car _%e178766178996%_)))) + (_%loop178765178988%_ + _%lp-tl178768179001%_ + (cons _%lp-hd178767178999%_ + _%id178769178993%_)))) + (let ((_%id178770179004%_ + (reverse _%id178769178993%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178602178821%_)) - (let ((_%e178612178848%_ + _%tl178761178980%_)) + (let ((_%e178771179007%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178602178821%_)))) - (let ((_%tl178614178853%_ + (gx#stx-e _%tl178761178980%_)))) + (let ((_%tl178773179012%_ (let () (declare (not safe)) - (##cdr _%e178612178848%_))) - (_%hd178613178851%_ + (##cdr _%e178771179007%_))) + (_%hd178772179010%_ (let () (declare (not safe)) - (##car _%e178612178848%_)))) + (##car _%e178771179007%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178614178853%_)) - (_%__kont191958191959%_ - _%hd178613178851%_ - _%id178611178845%_) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_)))))))) + (gx#stx-null? _%tl178773179012%_)) + (_%__kont192117192118%_ + _%hd178772179010%_ + _%id178770179004%_) + (let () (declare (not safe)) (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178606178829%_ - _%target178603178824%_ + (_%loop178765178988%_ + _%target178762178983%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191950191951%_)) - (let ((_%e178548179017%_ + (gx#stx-pair? _%__stx192109192110%_)) + (let ((_%e178707179176%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191950191951%_)))) - (let ((_%tl178550179022%_ + (gx#stx-e _%__stx192109192110%_)))) + (let ((_%tl178709179181%_ (let () (declare (not safe)) - (##cdr _%e178548179017%_))) - (_%hd178549179020%_ + (##cdr _%e178707179176%_))) + (_%hd178708179179%_ (let () (declare (not safe)) - (##car _%e178548179017%_)))) + (##car _%e178707179176%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178549179020%_)) + (gx#identifier? _%hd178708179179%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178549179020%_)) + _%hd178708179179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178551179025%_ + _%tl178709179181%_)) + (let ((_%e178710179184%_ (let () (declare (not safe)) (gx#stx-e - _%tl178550179022%_)))) - (let ((_%tl178553179030%_ + _%tl178709179181%_)))) + (let ((_%tl178712179189%_ (let () (declare (not safe)) - (##cdr _%e178551179025%_))) - (_%hd178552179028%_ + (##cdr _%e178710179184%_))) + (_%hd178711179187%_ (let () (declare (not safe)) - (##car _%e178551179025%_)))) + (##car _%e178710179184%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178553179030%_)) - (let ((_%e178554179033%_ + _%tl178712179189%_)) + (let ((_%e178713179192%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178553179030%_)))) - (let ((_%tl178556179038%_ - (let () (declare (not safe)) (##cdr _%e178554179033%_))) - (_%hd178555179036%_ + (gx#stx-e _%tl178712179189%_)))) + (let ((_%tl178715179197%_ + (let () (declare (not safe)) (##cdr _%e178713179192%_))) + (_%hd178714179195%_ (let () (declare (not safe)) - (##car _%e178554179033%_)))) + (##car _%e178713179192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178556179038%_)) - (let ((_%e178557179041%_ + (gx#stx-pair? _%tl178715179197%_)) + (let ((_%e178716179200%_ (let () (declare (not safe)) - (gx#stx-e _%tl178556179038%_)))) - (let ((_%tl178559179046%_ + (gx#stx-e _%tl178715179197%_)))) + (let ((_%tl178718179205%_ (let () (declare (not safe)) - (##cdr _%e178557179041%_))) - (_%hd178558179044%_ + (##cdr _%e178716179200%_))) + (_%hd178717179203%_ (let () (declare (not safe)) - (##car _%e178557179041%_)))) + (##car _%e178716179200%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178559179046%_)) - (_%__kont191952191953%_ - _%hd178558179044%_ - _%hd178555179036%_ - _%hd178552179028%_) + (gx#stx-null? _%tl178718179205%_)) + (_%__kont192111192112%_ + _%hd178717179203%_ + _%hd178714179195%_ + _%hd178711179187%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g178702178817%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178549179020%_)) + _%hd178708179179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178565178981%_ + _%tl178709179181%_)) + (let ((_%e178724179140%_ (let () (declare (not safe)) (gx#stx-e - _%tl178550179022%_)))) - (let ((_%tl178567178986%_ + _%tl178709179181%_)))) + (let ((_%tl178726179145%_ (let () (declare (not safe)) - (##cdr _%e178565178981%_))) - (_%hd178566178984%_ + (##cdr _%e178724179140%_))) + (_%hd178725179143%_ (let () (declare (not safe)) - (##car _%e178565178981%_)))) + (##car _%e178724179140%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178567178986%_)) - (let ((_%e178568178989%_ + _%tl178726179145%_)) + (let ((_%e178727179148%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178567178986%_)))) - (let ((_%tl178570178994%_ + (gx#stx-e _%tl178726179145%_)))) + (let ((_%tl178729179153%_ (let () (declare (not safe)) - (##cdr _%e178568178989%_))) - (_%hd178569178992%_ + (##cdr _%e178727179148%_))) + (_%hd178728179151%_ (let () (declare (not safe)) - (##car _%e178568178989%_)))) + (##car _%e178727179148%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178570178994%_)) - (_%__kont191954191955%_ - _%hd178569178992%_ - _%hd178566178984%_) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (gx#stx-null? _%tl178729179153%_)) + (_%__kont192113192114%_ + _%hd178728179151%_ + _%hd178725179143%_) + (let () (declare (not safe)) (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g178702178817%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178549179020%_)) + _%hd178708179179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178577178895%_ + _%tl178709179181%_)) + (let ((_%e178736179054%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178550179022%_)))) - (let ((_%tl178579178900%_ - (let () (declare (not safe)) (##cdr _%e178577178895%_))) - (_%hd178578178898%_ + (gx#stx-e _%tl178709179181%_)))) + (let ((_%tl178738179059%_ + (let () (declare (not safe)) (##cdr _%e178736179054%_))) + (_%hd178737179057%_ (let () (declare (not safe)) - (##car _%e178577178895%_)))) + (##car _%e178736179054%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178578178898%_)) - (let ((_%e178580178903%_ + (gx#stx-pair? _%hd178737179057%_)) + (let ((_%e178739179062%_ (let () (declare (not safe)) - (gx#stx-e _%hd178578178898%_)))) - (let ((_%tl178582178908%_ + (gx#stx-e _%hd178737179057%_)))) + (let ((_%tl178741179067%_ (let () (declare (not safe)) - (##cdr _%e178580178903%_))) - (_%hd178581178906%_ + (##cdr _%e178739179062%_))) + (_%hd178740179065%_ (let () (declare (not safe)) - (##car _%e178580178903%_)))) + (##car _%e178739179062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178581178906%_)) - (let ((_%e178583178911%_ + (gx#stx-pair? _%hd178740179065%_)) + (let ((_%e178742179070%_ (let () (declare (not safe)) - (gx#stx-e _%hd178581178906%_)))) - (let ((_%tl178585178916%_ + (gx#stx-e _%hd178740179065%_)))) + (let ((_%tl178744179075%_ (let () (declare (not safe)) - (##cdr _%e178583178911%_))) - (_%hd178584178914%_ + (##cdr _%e178742179070%_))) + (_%hd178743179073%_ (let () (declare (not safe)) - (##car _%e178583178911%_)))) + (##car _%e178742179070%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178584178914%_)) - (let ((_%e178586178919%_ + (gx#stx-pair? _%hd178743179073%_)) + (let ((_%e178745179078%_ (let () (declare (not safe)) - (gx#stx-e _%hd178584178914%_)))) - (let ((_%tl178588178924%_ + (gx#stx-e _%hd178743179073%_)))) + (let ((_%tl178747179083%_ (let () (declare (not safe)) - (##cdr _%e178586178919%_))) - (_%hd178587178922%_ + (##cdr _%e178745179078%_))) + (_%hd178746179081%_ (let () (declare (not safe)) - (##car _%e178586178919%_)))) + (##car _%e178745179078%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178588178924%_)) + _%tl178747179083%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178585178916%_)) - (let ((_%e178589178927%_ + _%tl178744179075%_)) + (let ((_%e178748179086%_ (let () (declare (not safe)) (gx#stx-e - _%tl178585178916%_)))) - (let ((_%tl178591178932%_ + _%tl178744179075%_)))) + (let ((_%tl178750179091%_ (let () (declare (not safe)) - (##cdr _%e178589178927%_))) - (_%hd178590178930%_ + (##cdr _%e178748179086%_))) + (_%hd178749179089%_ (let () (declare (not safe)) - (##car _%e178589178927%_)))) + (##car _%e178748179086%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178591178932%_)) + _%tl178750179091%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178582178908%_)) + (gx#stx-null? _%tl178741179067%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178579178900%_)) - (let ((_%e178592178935%_ + (gx#stx-pair? _%tl178738179059%_)) + (let ((_%e178751179094%_ (let () (declare (not safe)) - (gx#stx-e _%tl178579178900%_)))) - (let ((_%tl178594178940%_ + (gx#stx-e _%tl178738179059%_)))) + (let ((_%tl178753179099%_ (let () (declare (not safe)) - (##cdr _%e178592178935%_))) - (_%hd178593178938%_ + (##cdr _%e178751179094%_))) + (_%hd178752179097%_ (let () (declare (not safe)) - (##car _%e178592178935%_)))) + (##car _%e178751179094%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178594178940%_)) - (_%__kont191956191957%_ - _%hd178593178938%_ - _%hd178590178930%_ - _%hd178587178922%_) + (gx#stx-null? _%tl178753179099%_)) + (_%__kont192115192116%_ + _%hd178752179097%_ + _%hd178749179089%_ + _%hd178746179081%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) - (let () (declare (not safe)) (_%g178543178658%_))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))) + (let () (declare (not safe)) (_%g178702178817%_))) + (let () (declare (not safe)) (_%g178702178817%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g178702178817%_))) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g178702178817%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g178702178817%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) + (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178549179020%_)) + _%hd178708179179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178600178816%_ + _%tl178709179181%_)) + (let ((_%e178759178975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178550179022%_)))) - (let ((_%tl178602178821%_ + (gx#stx-e _%tl178709179181%_)))) + (let ((_%tl178761178980%_ (let () (declare (not safe)) - (##cdr _%e178600178816%_))) - (_%hd178601178819%_ + (##cdr _%e178759178975%_))) + (_%hd178760178978%_ (let () (declare (not safe)) - (##car _%e178600178816%_)))) + (##car _%e178759178975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd178601178819%_)) - (let ((_%__splice191960191961%_ + (gx#stx-pair/null? _%hd178760178978%_)) + (let ((_%__splice192119192120%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178601178819%_ + _%hd178760178978%_ '0)))) - (let ((_%tl178605178826%_ + (let ((_%tl178764178985%_ (let () (declare (not safe)) (##vector-ref - _%__splice191960191961%_ + _%__splice192119192120%_ '1))) - (_%target178603178824%_ + (_%target178762178983%_ (let () (declare (not safe)) (##vector-ref - _%__splice191960191961%_ + _%__splice192119192120%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178605178826%_)) - (_%__match192099192100%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178600178816%_ - _%hd178601178819%_ - _%tl178602178821%_ - _%__splice191960191961%_ - _%target178603178824%_ - _%tl178605178826%_) + (gx#stx-null? _%tl178764178985%_)) + (_%__match192258192259%_ + _%e178707179176%_ + _%hd178708179179%_ + _%tl178709179181%_ + _%e178759178975%_ + _%hd178760178978%_ + _%tl178761178980%_ + _%__splice192119192120%_ + _%target178762178983%_ + _%tl178764178985%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) + (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178549179020%_)) + (gx#stx-eq? '%#call _%hd178708179179%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178550179022%_)) - (let ((_%e178619178754%_ + (gx#stx-pair? _%tl178709179181%_)) + (let ((_%e178778178913%_ (let () (declare (not safe)) - (gx#stx-e _%tl178550179022%_)))) - (let ((_%tl178621178759%_ + (gx#stx-e _%tl178709179181%_)))) + (let ((_%tl178780178918%_ (let () (declare (not safe)) - (##cdr _%e178619178754%_))) - (_%hd178620178757%_ + (##cdr _%e178778178913%_))) + (_%hd178779178916%_ (let () (declare (not safe)) - (##car _%e178619178754%_)))) + (##car _%e178778178913%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178620178757%_)) - (let ((_%e178622178762%_ + (gx#stx-pair? _%hd178779178916%_)) + (let ((_%e178781178921%_ (let () (declare (not safe)) - (gx#stx-e _%hd178620178757%_)))) - (let ((_%tl178624178767%_ + (gx#stx-e _%hd178779178916%_)))) + (let ((_%tl178783178926%_ (let () (declare (not safe)) - (##cdr _%e178622178762%_))) - (_%hd178623178765%_ + (##cdr _%e178781178921%_))) + (_%hd178782178924%_ (let () (declare (not safe)) - (##car _%e178622178762%_)))) + (##car _%e178781178921%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178623178765%_)) + (gx#identifier? _%hd178782178924%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178623178765%_)) + _%hd178782178924%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178624178767%_)) - (let ((_%e178625178770%_ + _%tl178783178926%_)) + (let ((_%e178784178929%_ (let () (declare (not safe)) (gx#stx-e - _%tl178624178767%_)))) - (let ((_%tl178627178775%_ + _%tl178783178926%_)))) + (let ((_%tl178786178934%_ (let () (declare (not safe)) - (##cdr _%e178625178770%_))) - (_%hd178626178773%_ + (##cdr _%e178784178929%_))) + (_%hd178785178932%_ (let () (declare (not safe)) - (##car _%e178625178770%_)))) + (##car _%e178784178929%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178627178775%_)) + _%tl178786178934%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178621178759%_)) - (let ((_%e178628178778%_ + _%tl178780178918%_)) + (let ((_%e178787178937%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178621178759%_)))) - (let ((_%tl178630178783%_ + (gx#stx-e _%tl178780178918%_)))) + (let ((_%tl178789178942%_ (let () (declare (not safe)) - (##cdr _%e178628178778%_))) - (_%hd178629178781%_ + (##cdr _%e178787178937%_))) + (_%hd178788178940%_ (let () (declare (not safe)) - (##car _%e178628178778%_)))) + (##car _%e178787178937%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178630178783%_)) - (_%__match192141192142%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%e178628178778%_ - _%hd178629178781%_ - _%tl178630178783%_) + (gx#stx-null? _%tl178789178942%_)) + (_%__match192300192301%_ + _%e178707179176%_ + _%hd178708179179%_ + _%tl178709179181%_ + _%e178778178913%_ + _%hd178779178916%_ + _%tl178780178918%_ + _%e178781178921%_ + _%hd178782178924%_ + _%tl178783178926%_ + _%e178784178929%_ + _%hd178785178932%_ + _%tl178786178934%_ + _%e178787178937%_ + _%hd178788178940%_ + _%tl178789178942%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178621178759%_)) - (let ((_%__splice191966191967%_ + (gx#stx-pair/null? _%tl178780178918%_)) + (let ((_%__splice192125192126%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178621178759%_ + _%tl178780178918%_ '0)))) - (let ((_%tl178647178697%_ + (let ((_%tl178806178856%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice192125192126%_ '1))) - (_%target178645178695%_ + (_%target178804178854%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice192125192126%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178647178697%_)) - (_%__match192183192184%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) + (gx#stx-null? _%tl178806178856%_)) + (_%__match192342192343%_ + _%e178707179176%_ + _%hd178708179179%_ + _%tl178709179181%_ + _%e178778178913%_ + _%hd178779178916%_ + _%tl178780178918%_ + _%e178781178921%_ + _%hd178782178924%_ + _%tl178783178926%_ + _%e178784178929%_ + _%hd178785178932%_ + _%tl178786178934%_ + _%__splice192125192126%_ + _%target178804178854%_ + _%tl178806178856%_) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g178702178817%_))))) (let () (declare (not safe)) - (_%g178543178658%_)))))) + (_%g178702178817%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178621178759%_)) - (let ((_%__splice191966191967%_ + (gx#stx-pair/null? _%tl178780178918%_)) + (let ((_%__splice192125192126%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178621178759%_ + _%tl178780178918%_ '0)))) - (let ((_%tl178647178697%_ + (let ((_%tl178806178856%_ (let () (declare (not safe)) - (##vector-ref _%__splice191966191967%_ '1))) - (_%target178645178695%_ + (##vector-ref _%__splice192125192126%_ '1))) + (_%target178804178854%_ (let () (declare (not safe)) - (##vector-ref _%__splice191966191967%_ '0)))) + (##vector-ref _%__splice192125192126%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178647178697%_)) - (_%__match192183192184%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) + (gx#stx-null? _%tl178806178856%_)) + (_%__match192342192343%_ + _%e178707179176%_ + _%hd178708179179%_ + _%tl178709179181%_ + _%e178778178913%_ + _%hd178779178916%_ + _%tl178780178918%_ + _%e178781178921%_ + _%hd178782178924%_ + _%tl178783178926%_ + _%e178784178929%_ + _%hd178785178932%_ + _%tl178786178934%_ + _%__splice192125192126%_ + _%target178804178854%_ + _%tl178806178856%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_)))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_)))) + (let () (declare (not safe)) (_%g178702178817%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g178702178817%_))) (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g178702178817%_))) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g178702178817%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) - (let () (declare (not safe)) (_%g178543178658%_))))))) + (_%g178702178817%_))))) + (let () (declare (not safe)) (_%g178702178817%_))) + (let () (declare (not safe)) (_%g178702178817%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g178702178817%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))))))) - (let* ((_%clause178420178427%_ _%clause178415%_) - (_%E178422178431%_ + (_%g178702178817%_))))))))) + (let* ((_%clause178579178586%_ _%clause178574%_) + (_%E178581178590%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause178420178427%_ + _%clause178579178586%_ '([id . kont]))) '#!void)) - (_%K178423178524%_ - (lambda (_%kont178434%_ _%id178435%_) - (let* ((_%g178437178457%_ - (lambda (_%g178438178454%_) + (_%K178582178683%_ + (lambda (_%kont178593%_ _%id178594%_) + (let* ((_%g178596178616%_ + (lambda (_%g178597178613%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178438178454%_)))) - (_%g178436178521%_ - (lambda (_%g178438178460%_) + _%g178597178613%_)))) + (_%g178595178680%_ + (lambda (_%g178597178619%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178438178460%_)) - (let ((_%e178441178462%_ + (gx#stx-pair? _%g178597178619%_)) + (let ((_%e178600178621%_ (let () (declare (not safe)) - (gx#stx-e _%g178438178460%_)))) - (let ((_%hd178442178465%_ + (gx#stx-e _%g178597178619%_)))) + (let ((_%hd178601178624%_ (let () (declare (not safe)) - (##car _%e178441178462%_))) - (_%tl178443178467%_ + (##car _%e178600178621%_))) + (_%tl178602178626%_ (let () (declare (not safe)) - (##cdr _%e178441178462%_)))) + (##cdr _%e178600178621%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178442178465%_)) + _%hd178601178624%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178442178465%_)) + _%hd178601178624%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178443178467%_)) - (let ((_%e178444178470%_ + _%tl178602178626%_)) + (let ((_%e178603178629%_ (let () (declare (not safe)) (gx#stx-e - _%tl178443178467%_)))) - (let ((_%hd178445178473%_ + _%tl178602178626%_)))) + (let ((_%hd178604178632%_ (let () (declare (not safe)) - (##car _%e178444178470%_))) - (_%tl178446178475%_ + (##car _%e178603178629%_))) + (_%tl178605178634%_ (let () (declare (not safe)) - (##cdr _%e178444178470%_)))) + (##cdr _%e178603178629%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178445178473%_)) - (let ((_%e178447178478%_ + _%hd178604178632%_)) + (let ((_%e178606178637%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178445178473%_)))) - (let ((_%hd178448178481%_ + (gx#stx-e _%hd178604178632%_)))) + (let ((_%hd178607178640%_ (let () (declare (not safe)) - (##car _%e178447178478%_))) - (_%tl178449178483%_ + (##car _%e178606178637%_))) + (_%tl178608178642%_ (let () (declare (not safe)) - (##cdr _%e178447178478%_)))) + (##cdr _%e178606178637%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178449178483%_)) + (gx#stx-null? _%tl178608178642%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178446178475%_)) - (let ((_%e178450178486%_ + (gx#stx-pair? _%tl178605178634%_)) + (let ((_%e178609178645%_ (let () (declare (not safe)) - (gx#stx-e _%tl178446178475%_)))) - (let ((_%hd178451178489%_ + (gx#stx-e _%tl178605178634%_)))) + (let ((_%hd178610178648%_ (let () (declare (not safe)) - (##car _%e178450178486%_))) - (_%tl178452178491%_ + (##car _%e178609178645%_))) + (_%tl178611178650%_ (let () (declare (not safe)) - (##cdr _%e178450178486%_)))) + (##cdr _%e178609178645%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178452178491%_)) - ((lambda (_%L178494%_ _%L178495%_) - (let* ((_%body178516%_ + (gx#stx-null? _%tl178611178650%_)) + ((lambda (_%L178653%_ _%L178654%_) + (let* ((_%body178675%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L178495%_ - _%target178417%_ - _%L178494%_))) - (_%body178518%_ - (if _%negation178416%_ - (_%closure-e178419%_ - _%body178516%_) - _%body178516%_))) - (let ((__tmp192343 + _%L178654%_ + _%target178576%_ + _%L178653%_))) + (_%body178677%_ + (if _%negation178575%_ + (_%closure-e178578%_ + _%body178675%_) + _%body178675%_))) + (let ((__tmp192502 (let () (declare (not safe)) (gxc#identifier-symbol - _%id178435%_))) - (__tmp192342 - (let ((__obj192241 + _%id178594%_))) + (__tmp192501 + (let ((__obj192400 (let () (declare (not safe)) (##structure @@ -16505,575 +16505,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj192241 + __obj192400 '0 '#f)) - __obj192241))) + __obj192400))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp192343 - __tmp192342 + __tmp192502 + __tmp192501 '#t)) - (cons _%id178435%_ + (cons _%id178594%_ (cons '%#lambda (cons '() - (cons _%body178518%_ + (cons _%body178677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178451178489%_ - _%hd178448178481%_) - (_%g178437178457%_ _%g178438178460%_)))) - (_%g178437178457%_ _%g178438178460%_)) - (_%g178437178457%_ _%g178438178460%_)))) - (_%g178437178457%_ _%g178438178460%_)))) + _%hd178610178648%_ + _%hd178607178640%_) + (_%g178596178616%_ _%g178597178619%_)))) + (_%g178596178616%_ _%g178597178619%_)) + (_%g178596178616%_ _%g178597178619%_)))) + (_%g178596178616%_ _%g178597178619%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178437178457%_ - _%g178438178460%_)) - (_%g178437178457%_ - _%g178438178460%_)) - (_%g178437178457%_ - _%g178438178460%_)))) - (_%g178437178457%_ _%g178438178460%_))))) - (_%g178436178521%_ _%kont178434%_))))) - (if (pair? _%clause178420178427%_) - (let ((_%hd178424178527%_ + (_%g178596178616%_ + _%g178597178619%_)) + (_%g178596178616%_ + _%g178597178619%_)) + (_%g178596178616%_ + _%g178597178619%_)))) + (_%g178596178616%_ _%g178597178619%_))))) + (_%g178595178680%_ _%kont178593%_))))) + (if (pair? _%clause178579178586%_) + (let ((_%hd178583178686%_ (let () (declare (not safe)) - (##car _%clause178420178427%_))) - (_%tl178425178529%_ + (##car _%clause178579178586%_))) + (_%tl178584178688%_ (let () (declare (not safe)) - (##cdr _%clause178420178427%_)))) - (let* ((_%id178532%_ _%hd178424178527%_) - (_%kont178534%_ _%tl178425178529%_)) - (_%K178423178524%_ _%kont178534%_ _%id178532%_))) - (_%E178422178431%_)))))) + (##cdr _%clause178579178586%_)))) + (let* ((_%id178691%_ _%hd178583178686%_) + (_%kont178693%_ _%tl178584178688%_)) + (_%K178582178683%_ _%kont178693%_ _%id178691%_))) + (_%E178581178590%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self178199%_ _%stx178200%_) - (let* ((_%g178202178219%_ - (lambda (_%g178203178216%_) + (lambda (_%self178358%_ _%stx178359%_) + (let* ((_%g178361178378%_ + (lambda (_%g178362178375%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178203178216%_)))) - (_%g178201178412%_ - (lambda (_%g178203178222%_) + _%g178362178375%_)))) + (_%g178360178571%_ + (lambda (_%g178362178381%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178203178222%_)) - (let ((_%e178206178224%_ + (gx#stx-pair? _%g178362178381%_)) + (let ((_%e178365178383%_ (let () (declare (not safe)) - (gx#stx-e _%g178203178222%_)))) - (let ((_%hd178207178227%_ + (gx#stx-e _%g178362178381%_)))) + (let ((_%hd178366178386%_ (let () (declare (not safe)) - (##car _%e178206178224%_))) - (_%tl178208178229%_ + (##car _%e178365178383%_))) + (_%tl178367178388%_ (let () (declare (not safe)) - (##cdr _%e178206178224%_)))) + (##cdr _%e178365178383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178208178229%_)) - (let ((_%e178209178232%_ + (gx#stx-pair? _%tl178367178388%_)) + (let ((_%e178368178391%_ (let () (declare (not safe)) - (gx#stx-e _%tl178208178229%_)))) - (let ((_%hd178210178235%_ + (gx#stx-e _%tl178367178388%_)))) + (let ((_%hd178369178394%_ (let () (declare (not safe)) - (##car _%e178209178232%_))) - (_%tl178211178237%_ + (##car _%e178368178391%_))) + (_%tl178370178396%_ (let () (declare (not safe)) - (##cdr _%e178209178232%_)))) + (##cdr _%e178368178391%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178211178237%_)) - (let ((_%e178212178240%_ + (gx#stx-pair? _%tl178370178396%_)) + (let ((_%e178371178399%_ (let () (declare (not safe)) - (gx#stx-e _%tl178211178237%_)))) - (let ((_%hd178213178243%_ + (gx#stx-e _%tl178370178396%_)))) + (let ((_%hd178372178402%_ (let () (declare (not safe)) - (##car _%e178212178240%_))) - (_%tl178214178245%_ + (##car _%e178371178399%_))) + (_%tl178373178404%_ (let () (declare (not safe)) - (##cdr _%e178212178240%_)))) + (##cdr _%e178371178399%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178214178245%_)) - ((lambda (_%L178248%_ - _%L178249%_) - (let _%lp178264%_ ((_%rest178266%_ + _%tl178373178404%_)) + ((lambda (_%L178407%_ + _%L178408%_) + (let _%lp178423%_ ((_%rest178425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L178249%_) - (_%rebind178267%_ '()) - (_%vars178268%_ + _%L178408%_) + (_%rebind178426%_ '()) + (_%vars178427%_ (let () (declare (not safe)) - (slot-ref__0 _%self178199%_ 'vars)))) + (slot-ref__0 _%self178358%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest178269178277%_ - _%rest178266%_) - (_%else178271178288%_ + (let* ((_%rest178428178436%_ + _%rest178425%_) + (_%else178430178447%_ (lambda () - (let ((_%sibling178285%_ + (let ((_%sibling178444%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self178199%_)))) + (struct-copy _%self178358%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling178285%_ 'vars _%vars178268%_)) - (let ((__tmp192344 + (slot-set!__0 _%sibling178444%_ 'vars _%vars178427%_)) + (let ((__tmp192503 (lambda () - (if (null? _%rebind178267%_) + (if (null? _%rebind178426%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling178285%_ - _%L178248%_)) - (let ((__tmp192345 + _%sibling178444%_ + _%L178407%_)) + (let ((__tmp192504 (cons '%#let-values - (cons (reverse _%rebind178267%_) + (cons (reverse _%rebind178426%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling178285%_ _%L178248%_)) + (gxc#compile-e__1 _%sibling178444%_ _%L178407%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192345 - _%stx178200%_)))))) + __tmp192504 + _%stx178359%_)))))) (declare (not safe)) (__call-with-parameters - __tmp192344 + __tmp192503 gxc#current-compile-method - _%sibling178285%_))))) - (_%K178273178400%_ - (lambda (_%rest178291%_ _%bind178292%_) - (let* ((_%__stx192186192187%_ _%bind178292%_) - (_%g178295178318%_ + _%sibling178444%_))))) + (_%K178432178559%_ + (lambda (_%rest178450%_ _%bind178451%_) + (let* ((_%__stx192345192346%_ _%bind178451%_) + (_%g178454178477%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192186192187%_))))) - (let ((_%__kont192188192189%_ - (lambda (_%L178370%_ _%L178371%_) - (_%lp178264%_ - _%rest178291%_ - _%rebind178267%_ - (cons _%bind178292%_ _%vars178268%_)))) - (_%__kont192190192191%_ + _%__stx192345192346%_))))) + (let ((_%__kont192347192348%_ + (lambda (_%L178529%_ _%L178530%_) + (_%lp178423%_ + _%rest178450%_ + _%rebind178426%_ + (cons _%bind178451%_ _%vars178427%_)))) + (_%__kont192349192350%_ (lambda () - (_%lp178264%_ - _%rest178291%_ - (cons _%bind178292%_ _%rebind178267%_) - _%vars178268%_)))) + (_%lp178423%_ + _%rest178450%_ + (cons _%bind178451%_ _%rebind178426%_) + _%vars178427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192186192187%_)) - (let ((_%e178299178330%_ + (gx#stx-pair? _%__stx192345192346%_)) + (let ((_%e178458178489%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192186192187%_)))) - (let ((_%tl178301178335%_ + (gx#stx-e _%__stx192345192346%_)))) + (let ((_%tl178460178494%_ (let () (declare (not safe)) - (##cdr _%e178299178330%_))) - (_%hd178300178333%_ + (##cdr _%e178458178489%_))) + (_%hd178459178492%_ (let () (declare (not safe)) - (##car _%e178299178330%_)))) + (##car _%e178458178489%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178300178333%_)) - (let ((_%e178302178338%_ + (gx#stx-pair? _%hd178459178492%_)) + (let ((_%e178461178497%_ (let () (declare (not safe)) - (gx#stx-e _%hd178300178333%_)))) - (let ((_%tl178304178343%_ + (gx#stx-e _%hd178459178492%_)))) + (let ((_%tl178463178502%_ (let () (declare (not safe)) - (##cdr _%e178302178338%_))) - (_%hd178303178341%_ + (##cdr _%e178461178497%_))) + (_%hd178462178500%_ (let () (declare (not safe)) - (##car _%e178302178338%_)))) + (##car _%e178461178497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178304178343%_)) + _%tl178463178502%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178301178335%_)) - (let ((_%e178305178346%_ + _%tl178460178494%_)) + (let ((_%e178464178505%_ (let () (declare (not safe)) (gx#stx-e - _%tl178301178335%_)))) - (let ((_%tl178307178351%_ + _%tl178460178494%_)))) + (let ((_%tl178466178510%_ (let () (declare (not safe)) - (##cdr _%e178305178346%_))) - (_%hd178306178349%_ + (##cdr _%e178464178505%_))) + (_%hd178465178508%_ (let () (declare (not safe)) - (##car _%e178305178346%_)))) + (##car _%e178464178505%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178306178349%_)) - (let ((_%e178308178354%_ + _%hd178465178508%_)) + (let ((_%e178467178513%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd178306178349%_)))) - (let ((_%tl178310178359%_ + (gx#stx-e _%hd178465178508%_)))) + (let ((_%tl178469178518%_ (let () (declare (not safe)) - (##cdr _%e178308178354%_))) - (_%hd178309178357%_ + (##cdr _%e178467178513%_))) + (_%hd178468178516%_ (let () (declare (not safe)) - (##car _%e178308178354%_)))) + (##car _%e178467178513%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178309178357%_)) + (gx#identifier? _%hd178468178516%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178309178357%_)) + (gx#stx-eq? '%#ref _%hd178468178516%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178310178359%_)) - (let ((_%e178311178362%_ + (gx#stx-pair? _%tl178469178518%_)) + (let ((_%e178470178521%_ (let () (declare (not safe)) - (gx#stx-e _%tl178310178359%_)))) - (let ((_%tl178313178367%_ + (gx#stx-e _%tl178469178518%_)))) + (let ((_%tl178472178526%_ (let () (declare (not safe)) - (##cdr _%e178311178362%_))) - (_%hd178312178365%_ + (##cdr _%e178470178521%_))) + (_%hd178471178524%_ (let () (declare (not safe)) - (##car _%e178311178362%_)))) + (##car _%e178470178521%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178313178367%_)) + (gx#stx-null? _%tl178472178526%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178307178351%_)) - (_%__kont192188192189%_ - _%hd178312178365%_ - _%hd178303178341%_) - (_%__kont192190192191%_)) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_)) - (_%__kont192190192191%_)) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_)))) + _%tl178466178510%_)) + (_%__kont192347192348%_ + _%hd178471178524%_ + _%hd178462178500%_) + (_%__kont192349192350%_)) + (_%__kont192349192350%_)))) + (_%__kont192349192350%_)) + (_%__kont192349192350%_)) + (_%__kont192349192350%_)))) + (_%__kont192349192350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont192190192191%_)) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_))))))) + (_%__kont192349192350%_)) + (_%__kont192349192350%_)))) + (_%__kont192349192350%_)))) + (_%__kont192349192350%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest178269178277%_) - (let ((_%hd178274178403%_ + (if (pair? _%rest178428178436%_) + (let ((_%hd178433178562%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest178269178277%_))) - (_%tl178275178405%_ + (##car _%rest178428178436%_))) + (_%tl178434178564%_ (let () (declare (not safe)) - (##cdr _%rest178269178277%_)))) - (let* ((_%bind178408%_ _%hd178274178403%_) - (_%rest178410%_ _%tl178275178405%_)) - (_%K178273178400%_ _%rest178410%_ _%bind178408%_))) - (_%else178271178288%_))))) + (##cdr _%rest178428178436%_)))) + (let* ((_%bind178567%_ _%hd178433178562%_) + (_%rest178569%_ _%tl178434178564%_)) + (_%K178432178559%_ _%rest178569%_ _%bind178567%_))) + (_%else178430178447%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178213178243%_ - _%hd178210178235%_) - (_%g178202178219%_ - _%g178203178222%_)))) - (_%g178202178219%_ _%g178203178222%_)))) - (_%g178202178219%_ _%g178203178222%_)))) - (_%g178202178219%_ _%g178203178222%_))))) - (_%g178201178412%_ _%stx178200%_)))) + _%hd178372178402%_ + _%hd178369178394%_) + (_%g178361178378%_ + _%g178362178381%_)))) + (_%g178361178378%_ _%g178362178381%_)))) + (_%g178361178378%_ _%g178362178381%_)))) + (_%g178361178378%_ _%g178362178381%_))))) + (_%g178360178571%_ _%stx178359%_)))) (define gxc#push-match-vars-if% - (lambda (_%self178115%_ _%stx178116%_) - (let* ((_%g178118178139%_ - (lambda (_%g178119178136%_) + (lambda (_%self178274%_ _%stx178275%_) + (let* ((_%g178277178298%_ + (lambda (_%g178278178295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178119178136%_)))) - (_%g178117178196%_ - (lambda (_%g178119178142%_) + _%g178278178295%_)))) + (_%g178276178355%_ + (lambda (_%g178278178301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178119178142%_)) - (let ((_%e178123178144%_ + (gx#stx-pair? _%g178278178301%_)) + (let ((_%e178282178303%_ (let () (declare (not safe)) - (gx#stx-e _%g178119178142%_)))) - (let ((_%hd178124178147%_ + (gx#stx-e _%g178278178301%_)))) + (let ((_%hd178283178306%_ (let () (declare (not safe)) - (##car _%e178123178144%_))) - (_%tl178125178149%_ + (##car _%e178282178303%_))) + (_%tl178284178308%_ (let () (declare (not safe)) - (##cdr _%e178123178144%_)))) + (##cdr _%e178282178303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178125178149%_)) - (let ((_%e178126178152%_ + (gx#stx-pair? _%tl178284178308%_)) + (let ((_%e178285178311%_ (let () (declare (not safe)) - (gx#stx-e _%tl178125178149%_)))) - (let ((_%hd178127178155%_ + (gx#stx-e _%tl178284178308%_)))) + (let ((_%hd178286178314%_ (let () (declare (not safe)) - (##car _%e178126178152%_))) - (_%tl178128178157%_ + (##car _%e178285178311%_))) + (_%tl178287178316%_ (let () (declare (not safe)) - (##cdr _%e178126178152%_)))) + (##cdr _%e178285178311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178128178157%_)) - (let ((_%e178129178160%_ + (gx#stx-pair? _%tl178287178316%_)) + (let ((_%e178288178319%_ (let () (declare (not safe)) - (gx#stx-e _%tl178128178157%_)))) - (let ((_%hd178130178163%_ + (gx#stx-e _%tl178287178316%_)))) + (let ((_%hd178289178322%_ (let () (declare (not safe)) - (##car _%e178129178160%_))) - (_%tl178131178165%_ + (##car _%e178288178319%_))) + (_%tl178290178324%_ (let () (declare (not safe)) - (##cdr _%e178129178160%_)))) + (##cdr _%e178288178319%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178131178165%_)) - (let ((_%e178132178168%_ + _%tl178290178324%_)) + (let ((_%e178291178327%_ (let () (declare (not safe)) (gx#stx-e - _%tl178131178165%_)))) - (let ((_%hd178133178171%_ + _%tl178290178324%_)))) + (let ((_%hd178292178330%_ (let () (declare (not safe)) - (##car _%e178132178168%_))) - (_%tl178134178173%_ + (##car _%e178291178327%_))) + (_%tl178293178332%_ (let () (declare (not safe)) - (##cdr _%e178132178168%_)))) + (##cdr _%e178291178327%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178134178173%_)) - ((lambda (_%L178176%_ - _%L178177%_ - _%L178178%_) - (if (let ((__tmp192346 + _%tl178293178332%_)) + ((lambda (_%L178335%_ + _%L178336%_ + _%L178337%_) + (if (let ((__tmp192505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self178115%_ 'vars))))) + (slot-ref__0 _%self178274%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192346 - _%L178178%_)) - (gxc#push-match-vars-stop _%self178115%_ _%stx178116%_) - (let ((__tmp192347 + __tmp192505 + _%L178337%_)) + (gxc#push-match-vars-stop _%self178274%_ _%stx178275%_) + (let ((__tmp192506 (cons '%#if - (cons _%L178178%_ + (cons _%L178337%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178115%_ - _%L178177%_)) + _%self178274%_ + _%L178336%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178115%_ - _%L178176%_)) + _%self178274%_ + _%L178335%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192347 _%stx178116%_)))) - _%hd178133178171%_ - _%hd178130178163%_ - _%hd178127178155%_) - (_%g178118178139%_ _%g178119178142%_)))) + (gxc#xform-wrap-source __tmp192506 _%stx178275%_)))) + _%hd178292178330%_ + _%hd178289178322%_ + _%hd178286178314%_) + (_%g178277178298%_ _%g178278178301%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178118178139%_ - _%g178119178142%_)))) - (_%g178118178139%_ _%g178119178142%_)))) - (_%g178118178139%_ _%g178119178142%_)))) - (_%g178118178139%_ _%g178119178142%_))))) - (_%g178117178196%_ _%stx178116%_)))) + (_%g178277178298%_ + _%g178278178301%_)))) + (_%g178277178298%_ _%g178278178301%_)))) + (_%g178277178298%_ _%g178278178301%_)))) + (_%g178277178298%_ _%g178278178301%_))))) + (_%g178276178355%_ _%stx178275%_)))) (define gxc#push-match-vars-call% - (lambda (_%self178037%_ _%stx178038%_) - (let* ((_%g178040178059%_ - (lambda (_%g178041178056%_) + (lambda (_%self178196%_ _%stx178197%_) + (let* ((_%g178199178218%_ + (lambda (_%g178200178215%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178041178056%_)))) - (_%g178039178112%_ - (lambda (_%g178041178062%_) + _%g178200178215%_)))) + (_%g178198178271%_ + (lambda (_%g178200178221%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178041178062%_)) - (let ((_%e178043178064%_ + (gx#stx-pair? _%g178200178221%_)) + (let ((_%e178202178223%_ (let () (declare (not safe)) - (gx#stx-e _%g178041178062%_)))) - (let ((_%hd178044178067%_ + (gx#stx-e _%g178200178221%_)))) + (let ((_%hd178203178226%_ (let () (declare (not safe)) - (##car _%e178043178064%_))) - (_%tl178045178069%_ + (##car _%e178202178223%_))) + (_%tl178204178228%_ (let () (declare (not safe)) - (##cdr _%e178043178064%_)))) + (##cdr _%e178202178223%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178045178069%_)) - (let ((_%e178046178072%_ + (gx#stx-pair? _%tl178204178228%_)) + (let ((_%e178205178231%_ (let () (declare (not safe)) - (gx#stx-e _%tl178045178069%_)))) - (let ((_%hd178047178075%_ + (gx#stx-e _%tl178204178228%_)))) + (let ((_%hd178206178234%_ (let () (declare (not safe)) - (##car _%e178046178072%_))) - (_%tl178048178077%_ + (##car _%e178205178231%_))) + (_%tl178207178236%_ (let () (declare (not safe)) - (##cdr _%e178046178072%_)))) + (##cdr _%e178205178231%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178047178075%_)) - (let ((_%e178049178080%_ + (gx#stx-pair? _%hd178206178234%_)) + (let ((_%e178208178239%_ (let () (declare (not safe)) - (gx#stx-e _%hd178047178075%_)))) - (let ((_%hd178050178083%_ + (gx#stx-e _%hd178206178234%_)))) + (let ((_%hd178209178242%_ (let () (declare (not safe)) - (##car _%e178049178080%_))) - (_%tl178051178085%_ + (##car _%e178208178239%_))) + (_%tl178210178244%_ (let () (declare (not safe)) - (##cdr _%e178049178080%_)))) + (##cdr _%e178208178239%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178050178083%_)) + _%hd178209178242%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178050178083%_)) + _%hd178209178242%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178051178085%_)) - (let ((_%e178052178088%_ + _%tl178210178244%_)) + (let ((_%e178211178247%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178051178085%_)))) - (let ((_%hd178053178091%_ - (let () (declare (not safe)) (##car _%e178052178088%_))) - (_%tl178054178093%_ + (gx#stx-e _%tl178210178244%_)))) + (let ((_%hd178212178250%_ + (let () (declare (not safe)) (##car _%e178211178247%_))) + (_%tl178213178252%_ (let () (declare (not safe)) - (##cdr _%e178052178088%_)))) + (##cdr _%e178211178247%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178054178093%_)) - ((lambda (_%L178096%_) - (if (and (let ((__tmp192348 + (gx#stx-null? _%tl178213178252%_)) + ((lambda (_%L178255%_) + (if (and (let ((__tmp192507 (let () (declare (not safe)) - (slot-ref__0 _%self178037%_ 'K)))) + (slot-ref__0 _%self178196%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L178096%_ - __tmp192348)) + _%L178255%_ + __tmp192507)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self178037%_ + _%self178196%_ 'vars)))) - (let ((__tmp192349 + (let ((__tmp192508 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self178037%_ + _%self178196%_ 'vars))) - (cons _%stx178038%_ '()))))) + (cons _%stx178197%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192349 - _%stx178038%_)) - _%stx178038%_)) - _%hd178053178091%_) - (_%g178040178059%_ _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_)) + __tmp192508 + _%stx178197%_)) + _%stx178197%_)) + _%hd178212178250%_) + (_%g178199178218%_ _%g178200178221%_)))) + (_%g178199178218%_ _%g178200178221%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178040178059%_ - _%g178041178062%_)) - (_%g178040178059%_ - _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_))))) - (_%g178039178112%_ _%stx178038%_)))) + (_%g178199178218%_ + _%g178200178221%_)) + (_%g178199178218%_ + _%g178200178221%_)))) + (_%g178199178218%_ _%g178200178221%_)))) + (_%g178199178218%_ _%g178200178221%_)))) + (_%g178199178218%_ _%g178200178221%_))))) + (_%g178198178271%_ _%stx178197%_)))) (define gxc#push-match-vars-stop - (lambda (_%self178034%_ _%stx178035%_) + (lambda (_%self178193%_ _%stx178194%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self178034%_ 'vars))) - _%stx178035%_ - (let ((__tmp192350 + (slot-ref__0 _%self178193%_ 'vars))) + _%stx178194%_ + (let ((__tmp192509 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self178034%_ 'vars))) - (cons _%stx178035%_ '()))))) + (slot-ref__0 _%self178193%_ 'vars))) + (cons _%stx178194%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192350 _%stx178035%_))))))) + (gxc#xform-wrap-source __tmp192509 _%stx178194%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index 24894888e..5421935b4 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]#_g192352_| + (define |gxc[1]#_g192511_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192354_| + (define |gxc[1]#_g192513_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192356_| + (define |gxc[1]#_g192515_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192358_| + (define |gxc[1]#_g192517_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192360_| + (define |gxc[1]#_g192519_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192362_| + (define |gxc[1]#_g192521_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192364_| + (define |gxc[1]#_g192523_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192366_| + (define |gxc[1]#_g192525_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192368_| + (define |gxc[1]#_g192527_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192370_| + (define |gxc[1]#_g192529_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192372_| + (define |gxc[1]#_g192531_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192374_| + (define |gxc[1]#_g192533_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192375_| + (define |gxc[1]#_g192534_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192377_| + (define |gxc[1]#_g192536_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192378_| + (define |gxc[1]#_g192537_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192380_| + (define |gxc[1]#_g192539_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192381_| + (define |gxc[1]#_g192540_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192383_| + (define |gxc[1]#_g192542_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192384_| + (define |gxc[1]#_g192543_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj192233 + (let ((__obj192392 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192233 + __obj192392 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192233 + __obj192392 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '6 '#f '#f)) - (let ((__tmp192351 (cons |gxc[1]#_g192352_| '()))) + (##unchecked-structure-set! __obj192392 '() '6 '#f '#f)) + (let ((__tmp192510 (cons |gxc[1]#_g192511_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192351 '3 '#f '#f)) + (##unchecked-structure-set! __obj192392 __tmp192510 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192392 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192392 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192392 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#f '11 '#f '#f)) - (let ((__tmp192353 |gxc[1]#_g192354_|)) + (##unchecked-structure-set! __obj192392 '#f '11 '#f '#f)) + (let ((__tmp192512 |gxc[1]#_g192513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192353 '12 '#f '#f)) - (let ((__tmp192355 |gxc[1]#_g192356_|)) + (##unchecked-structure-set! __obj192392 __tmp192512 '12 '#f '#f)) + (let ((__tmp192514 |gxc[1]#_g192515_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192355 '13 '#f '#f)) - (let ((__tmp192357 |gxc[1]#_g192358_|)) + (##unchecked-structure-set! __obj192392 __tmp192514 '13 '#f '#f)) + (let ((__tmp192516 |gxc[1]#_g192517_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192357 '14 '#f '#f)) + (##unchecked-structure-set! __obj192392 __tmp192516 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192392 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '20 '#f '#f)) - __obj192233)) + (##unchecked-structure-set! __obj192392 '() '20 '#f '#f)) + __obj192392)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj192235 + (let ((__obj192394 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192235 + __obj192394 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192235 + __obj192394 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '6 '#f '#f)) - (let ((__tmp192359 (cons |gxc[1]#_g192360_| '()))) + (##unchecked-structure-set! __obj192394 '() '6 '#f '#f)) + (let ((__tmp192518 (cons |gxc[1]#_g192519_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192359 '3 '#f '#f)) + (##unchecked-structure-set! __obj192394 __tmp192518 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192394 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192394 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192394 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#f '11 '#f '#f)) - (let ((__tmp192361 |gxc[1]#_g192362_|)) + (##unchecked-structure-set! __obj192394 '#f '11 '#f '#f)) + (let ((__tmp192520 |gxc[1]#_g192521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192361 '12 '#f '#f)) - (let ((__tmp192363 |gxc[1]#_g192364_|)) + (##unchecked-structure-set! __obj192394 __tmp192520 '12 '#f '#f)) + (let ((__tmp192522 |gxc[1]#_g192523_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192363 '13 '#f '#f)) - (let ((__tmp192365 |gxc[1]#_g192366_|)) + (##unchecked-structure-set! __obj192394 __tmp192522 '13 '#f '#f)) + (let ((__tmp192524 |gxc[1]#_g192525_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192365 '14 '#f '#f)) + (##unchecked-structure-set! __obj192394 __tmp192524 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192394 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '20 '#f '#f)) - __obj192235)) + (##unchecked-structure-set! __obj192394 '() '20 '#f '#f)) + __obj192394)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj192237 + (let ((__obj192396 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192237 + __obj192396 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192237 + __obj192396 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj192396 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj192396 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj192396 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192396 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192396 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192396 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#f '11 '#f '#f)) - (let ((__tmp192367 |gxc[1]#_g192368_|)) + (##unchecked-structure-set! __obj192396 '#f '11 '#f '#f)) + (let ((__tmp192526 |gxc[1]#_g192527_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192367 '12 '#f '#f)) - (let ((__tmp192369 |gxc[1]#_g192370_|)) + (##unchecked-structure-set! __obj192396 __tmp192526 '12 '#f '#f)) + (let ((__tmp192528 |gxc[1]#_g192529_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192369 '13 '#f '#f)) - (let ((__tmp192371 |gxc[1]#_g192372_|)) + (##unchecked-structure-set! __obj192396 __tmp192528 '13 '#f '#f)) + (let ((__tmp192530 |gxc[1]#_g192531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192371 '14 '#f '#f)) - (let ((__tmp192373 - (cons (cons 'vars |gxc[1]#_g192374_|) - (cons (cons 'K |gxc[1]#_g192375_|) '())))) + (##unchecked-structure-set! __obj192396 __tmp192530 '14 '#f '#f)) + (let ((__tmp192532 + (cons (cons 'vars |gxc[1]#_g192533_|) + (cons (cons 'K |gxc[1]#_g192534_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192373 '15 '#f '#f)) - (let ((__tmp192376 - (cons (cons 'vars |gxc[1]#_g192377_|) - (cons (cons 'K |gxc[1]#_g192378_|) '())))) + (##unchecked-structure-set! __obj192396 __tmp192532 '15 '#f '#f)) + (let ((__tmp192535 + (cons (cons 'vars |gxc[1]#_g192536_|) + (cons (cons 'K |gxc[1]#_g192537_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192376 '16 '#f '#f)) - (let ((__tmp192379 - (cons (cons 'vars |gxc[1]#_g192380_|) - (cons (cons 'K |gxc[1]#_g192381_|) '())))) + (##unchecked-structure-set! __obj192396 __tmp192535 '16 '#f '#f)) + (let ((__tmp192538 + (cons (cons 'vars |gxc[1]#_g192539_|) + (cons (cons 'K |gxc[1]#_g192540_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192379 '17 '#f '#f)) - (let ((__tmp192382 - (cons (cons 'vars |gxc[1]#_g192383_|) - (cons (cons 'K |gxc[1]#_g192384_|) '())))) + (##unchecked-structure-set! __obj192396 __tmp192538 '17 '#f '#f)) + (let ((__tmp192541 + (cons (cons 'vars |gxc[1]#_g192542_|) + (cons (cons 'K |gxc[1]#_g192543_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192382 '18 '#f '#f)) + (##unchecked-structure-set! __obj192396 __tmp192541 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192396 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192396 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '20 '#f '#f)) - __obj192237)))) + (##unchecked-structure-set! __obj192396 '() '20 '#f '#f)) + __obj192396)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 96d930aa3..6a450087c 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 1713631268) + (define gerbil/compiler/optimize-base::timestamp 1733687561) (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 ((__tmp152104 (list)) (__tmp152103 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152263 (list)) (__tmp152262 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp152104 + __tmp152263 '(type classes ssxi methods) - __tmp152103 + __tmp152262 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args152075%_ - (apply make-instance gxc#optimizer-info::t _%$args152075%_))) + (lambda _%$args152234%_ + (apply make-instance gxc#optimizer-info::t _%$args152234%_))) (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 (_%self149216152060%_) - (let* ((_%self152063%_ _%self149216152060%_) - (_%self152065%_ _%self152063%_)) - (if (let ((__tmp152105 + (lambda (_%self149375152219%_) + (let* ((_%self152222%_ _%self149375152219%_) + (_%self152224%_ _%self152222%_)) + (if (let ((__tmp152264 (let () (declare (not safe)) - (##structure-length _%self152065%_)))) + (##structure-length _%self152224%_)))) (declare (not safe)) - (##fx< '4 __tmp152105)) + (##fx< '4 __tmp152264)) (begin - (let ((__tmp152106 + (let ((__tmp152265 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152106 + _%self152224%_ + __tmp152265 '1 '#f '#f)) - (let ((__tmp152107 + (let ((__tmp152266 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152107 + _%self152224%_ + __tmp152266 '2 '#f '#f)) - (let ((__tmp152108 + (let ((__tmp152267 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152108 + _%self152224%_ + __tmp152267 '3 '#f '#f)) - (let ((__tmp152109 + (let ((__tmp152268 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152109 + _%self152224%_ + __tmp152268 '4 '#f '#f)) '#!void) - (let ((__tmp152110 + (let ((__tmp152269 (let () (declare (not safe)) - (##vector-length _%self152065%_)))) + (##vector-length _%self152224%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self152065%_ + _%self152224%_ '4 - __tmp152110)))))) + __tmp152269)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp152112 (list)) - (__tmp152111 + (let ((__tmp152271 (list)) + (__tmp152270 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp152112 + __tmp152271 '(id) - __tmp152111 + __tmp152270 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args151935%_ - (apply make-instance gxc#!type::t _%$args151935%_))) + (lambda _%$args152094%_ + (apply make-instance gxc#!type::t _%$args152094%_))) (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 ((__tmp152114 (list gxc#!type::t)) - (__tmp152113 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152273 (list gxc#!type::t)) + (__tmp152272 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp152114 + __tmp152273 '() - __tmp152113 + __tmp152272 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args151932%_ - (apply make-instance gxc#!abort::t _%$args151932%_))) + (lambda _%$args152091%_ + (apply make-instance gxc#!abort::t _%$args152091%_))) (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 ((__tmp152116 (list gxc#!type::t)) - (__tmp152115 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152275 (list gxc#!type::t)) + (__tmp152274 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp152116 + __tmp152275 '() - __tmp152115 + __tmp152274 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args151929%_ - (apply make-instance gxc#!alias::t _%$args151929%_))) + (lambda _%$args152088%_ + (apply make-instance gxc#!alias::t _%$args152088%_))) (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 ((__tmp152118 (list)) - (__tmp152117 + (let ((__tmp152277 (list)) + (__tmp152276 (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 - __tmp152118 + __tmp152277 '(return effect arguments unchecked origin) - __tmp152117 + __tmp152276 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args151926%_ - (apply make-instance gxc#!signature::t _%$args151926%_))) + (lambda _%$args152085%_ + (apply make-instance gxc#!signature::t _%$args152085%_))) (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 ((__tmp152120 (list gxc#!type::t)) - (__tmp152119 + (let ((__tmp152279 (list gxc#!type::t)) + (__tmp152278 (cons (cons 'struct: '#t) '((equal: signature) (print: signature))))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp152120 + __tmp152279 '(signature) - __tmp152119 + __tmp152278 '#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 (_%id151905%_ _%signature151906%_) - (if ((lambda (_%$obj151909%_) - (or (not _%$obj151909%_) + (lambda (_%id152064%_ _%signature152065%_) + (if ((lambda (_%$obj152068%_) + (or (not _%$obj152068%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj151909%_ + _%$obj152068%_ 'gxc#!signature::t)))) - _%signature151906%_) - (let ((_%signature151916%_ _%signature151906%_)) - (gxc#__make-!procedure _%id151905%_ _%signature151916%_)) + _%signature152065%_) + (let ((_%signature152075%_ _%signature152065%_)) + (gxc#__make-!procedure _%id152064%_ _%signature152075%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,31 +414,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature151906%_) + _%signature152065%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id151891%_ _%signature151893%_) - (let ((_%signature151896%_ _%signature151893%_)) + (lambda (_%id152050%_ _%signature152052%_) + (let ((_%signature152055%_ _%signature152052%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id151891%_ _%signature151896%_)))) + (##structure gxc#!procedure::t _%id152050%_ _%signature152055%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj151860%_ _%signature151861%_) + (lambda (_%$obj152019%_ _%signature152020%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj151860%_ 'gxc#!procedure::t)) - (let ((_%$obj151865%_ _%$obj151860%_)) - (if ((lambda (_%$obj151874%_) - (or (not _%$obj151874%_) + (##structure-instance-of? _%$obj152019%_ 'gxc#!procedure::t)) + (let ((_%$obj152024%_ _%$obj152019%_)) + (if ((lambda (_%$obj152033%_) + (or (not _%$obj152033%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj151874%_ + _%$obj152033%_ 'gxc#!signature::t)))) - _%signature151861%_) - (let ((_%signature151881%_ _%signature151861%_)) + _%signature152020%_) + (let ((_%signature152040%_ _%signature152020%_)) (gxc#__!procedure-signature-set! - _%$obj151865%_ - _%signature151881%_)) + _%$obj152024%_ + _%signature152040%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature151861%_) + _%signature152020%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj151860%_) + _%$obj152019%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj151837%_ _%signature151839%_) - (let* ((_%$obj151843%_ _%$obj151837%_) - (_%signature151851%_ _%signature151839%_)) + (lambda (_%$obj151996%_ _%signature151998%_) + (let* ((_%$obj152002%_ _%$obj151996%_) + (_%signature152010%_ _%signature151998%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj151843%_ - _%signature151851%_ + _%$obj152002%_ + _%signature152010%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp152122 (list gxc#!type::t)) - (__tmp152121 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152281 (list gxc#!type::t)) + (__tmp152280 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp152122 + __tmp152281 '(class) - __tmp152121 + __tmp152280 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args151834%_ - (apply make-instance gxc#!class-meta::t _%$args151834%_))) + (lambda _%$args151993%_ + (apply make-instance gxc#!class-meta::t _%$args151993%_))) (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 ((__tmp152124 (list gxc#!type::t)) - (__tmp152123 + (let ((__tmp152283 (list gxc#!type::t)) + (__tmp152282 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp152124 + __tmp152283 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp152123 + __tmp152282 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args151831%_ - (apply make-instance gxc#!class::t _%$args151831%_))) + (lambda _%$args151990%_ + (apply make-instance gxc#!class::t _%$args151990%_))) (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 ((__tmp152126 (list gxc#!procedure::t)) - (__tmp152125 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152285 (list gxc#!procedure::t)) + (__tmp152284 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp152126 + __tmp152285 '() - __tmp152125 + __tmp152284 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args151828%_ - (apply make-instance gxc#!predicate::t _%$args151828%_))) + (lambda _%$args151987%_ + (apply make-instance gxc#!predicate::t _%$args151987%_))) (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 ((__tmp152128 (list gxc#!procedure::t)) - (__tmp152127 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152287 (list gxc#!procedure::t)) + (__tmp152286 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp152128 + __tmp152287 '() - __tmp152127 + __tmp152286 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args151825%_ - (apply make-instance gxc#!constructor::t _%$args151825%_))) + (lambda _%$args151984%_ + (apply make-instance gxc#!constructor::t _%$args151984%_))) (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 ((__tmp152130 (list gxc#!procedure::t)) - (__tmp152129 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152289 (list gxc#!procedure::t)) + (__tmp152288 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp152130 + __tmp152289 '(slot checked?) - __tmp152129 + __tmp152288 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args151822%_ - (apply make-instance gxc#!accessor::t _%$args151822%_))) + (lambda _%$args151981%_ + (apply make-instance gxc#!accessor::t _%$args151981%_))) (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 ((__tmp152132 (list gxc#!procedure::t)) - (__tmp152131 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152291 (list gxc#!procedure::t)) + (__tmp152290 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp152132 + __tmp152291 '(slot checked?) - __tmp152131 + __tmp152290 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args151819%_ - (apply make-instance gxc#!mutator::t _%$args151819%_))) + (lambda _%$args151978%_ + (apply make-instance gxc#!mutator::t _%$args151978%_))) (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 ((__tmp152134 (list gxc#!type::t)) - (__tmp152133 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp152293 (list gxc#!type::t)) + (__tmp152292 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp152134 + __tmp152293 '(methods) - __tmp152133 + __tmp152292 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args151816%_ - (apply make-instance gxc#!interface::t _%$args151816%_))) + (lambda _%$args151975%_ + (apply make-instance gxc#!interface::t _%$args151975%_))) (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 ((__tmp152136 (list gxc#!procedure::t)) - (__tmp152135 + (let ((__tmp152295 (list gxc#!procedure::t)) + (__tmp152294 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp152136 + __tmp152295 '(arity dispatch inline inline-typedecl) - __tmp152135 + __tmp152294 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args151813%_ - (apply make-instance gxc#!lambda::t _%$args151813%_))) + (lambda _%$args151972%_ + (apply make-instance gxc#!lambda::t _%$args151972%_))) (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 ((__tmp152138 (list gxc#!procedure::t)) - (__tmp152137 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp152297 (list gxc#!procedure::t)) + (__tmp152296 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp152138 + __tmp152297 '(clauses) - __tmp152137 + __tmp152296 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args151810%_ - (apply make-instance gxc#!case-lambda::t _%$args151810%_))) + (lambda _%$args151969%_ + (apply make-instance gxc#!case-lambda::t _%$args151969%_))) (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 ((__tmp152140 (list gxc#!procedure::t)) - (__tmp152139 + (let ((__tmp152299 (list gxc#!procedure::t)) + (__tmp152298 (cons (cons 'struct: '#t) '((equal: table dispatch))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp152140 + __tmp152299 '(table dispatch) - __tmp152139 + __tmp152298 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args151807%_ - (apply make-instance gxc#!kw-lambda::t _%$args151807%_))) + (lambda _%$args151966%_ + (apply make-instance gxc#!kw-lambda::t _%$args151966%_))) (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 ((__tmp152142 (list gxc#!procedure::t)) - (__tmp152141 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp152301 (list gxc#!procedure::t)) + (__tmp152300 (cons (cons 'struct: '#t) '((equal: keys main))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp152142 + __tmp152301 '(keys main) - __tmp152141 + __tmp152300 ':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 _%$args151804%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args151804%_))) + (lambda _%$args151963%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args151963%_))) (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 ((__tmp152143 (list))) + (let ((__tmp152302 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp152143 + __tmp152302 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args151801%_ - (apply make-instance gxc#!primitive::t _%$args151801%_))) + (lambda _%$args151960%_ + (apply make-instance gxc#!primitive::t _%$args151960%_))) (define gxc#!primitive-predicate::t - (let ((__tmp152145 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp152144 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152304 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp152303 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp152145 + __tmp152304 '() - __tmp152144 + __tmp152303 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args151798%_ - (apply make-instance gxc#!primitive-predicate::t _%$args151798%_))) + (lambda _%$args151957%_ + (apply make-instance gxc#!primitive-predicate::t _%$args151957%_))) (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 ((__tmp152147 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp152146 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152306 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp152305 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp152147 + __tmp152306 '() - __tmp152146 + __tmp152305 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args151795%_ - (apply make-instance gxc#!primitive-lambda::t _%$args151795%_))) + (lambda _%$args151954%_ + (apply make-instance gxc#!primitive-lambda::t _%$args151954%_))) (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 ((__tmp152149 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp152148 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152308 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp152307 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp152149 + __tmp152308 '() - __tmp152148 + __tmp152307 ':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 _%$args151792%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args151792%_))) + (lambda _%$args151951%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args151951%_))) (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 (_%self149217151777%_) - (let* ((_%self151780%_ _%self149217151777%_) - (_%self151782%_ _%self151780%_)) + (lambda (_%self149376151936%_) + (let* ((_%self151939%_ _%self149376151936%_) + (_%self151941%_ _%self151939%_)) (declare (not safe)) - (##unchecked-structure-set! _%self151782%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self151941%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self149218151639%_ _%klass151641%_) - (let* ((_%self151643%_ _%self149218151639%_) - (_%self151645%_ _%self151643%_)) + (lambda (_%self149377151798%_ _%klass151800%_) + (let* ((_%self151802%_ _%self149377151798%_) + (_%self151804%_ _%self151802%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self151645%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self151804%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151645%_ - _%klass151641%_ + _%self151804%_ + _%klass151800%_ '2 '#f '#f))))) @@ -1707,592 +1707,592 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self149219151327%_ - _%id151329%_ - _%super151330%_ - _%slots151331%_ - _%ctor-method151332%_ - _%struct?151333%_ - _%final?151334%_ - _%system?151335%_ - _%metaclass151336%_) - (let* ((_%self151338%_ _%self149219151327%_) - (_%self151340%_ _%self151338%_)) - (let _%lp151350%_ ((_%rest151352%_ _%super151330%_)) - (let* ((_%rest151353151361%_ _%rest151352%_) - (_%else151355151369%_ (lambda () '#!void)) - (_%K151357151375%_ - (lambda (_%rest151372%_ _%super-id151373%_) - (if (let ((__tmp152150 + (lambda (_%self149378151486%_ + _%id151488%_ + _%super151489%_ + _%slots151490%_ + _%ctor-method151491%_ + _%struct?151492%_ + _%final?151493%_ + _%system?151494%_ + _%metaclass151495%_) + (let* ((_%self151497%_ _%self149378151486%_) + (_%self151499%_ _%self151497%_)) + (let _%lp151509%_ ((_%rest151511%_ _%super151489%_)) + (let* ((_%rest151512151520%_ _%rest151511%_) + (_%else151514151528%_ (lambda () '#!void)) + (_%K151516151534%_ + (lambda (_%rest151531%_ _%super-id151532%_) + (if (let ((__tmp152309 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151329%_ '())) - _%super-id151373%_))) + (cons '!class (cons _%id151488%_ '())) + _%super-id151532%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152150 '8 '#f '#f)) - (let ((__tmp152151 - (cons '!class (cons _%id151329%_ '())))) + (##unchecked-structure-ref __tmp152309 '8 '#f '#f)) + (let ((__tmp152310 + (cons '!class (cons _%id151488%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp152151 - _%super-id151373%_)) + __tmp152310 + _%super-id151532%_)) '#!void) - (_%lp151350%_ _%rest151372%_)))) - (if (pair? _%rest151353151361%_) - (let ((_%hd151358151378%_ + (_%lp151509%_ _%rest151531%_)))) + (if (pair? _%rest151512151520%_) + (let ((_%hd151517151537%_ (let () (declare (not safe)) - (##car _%rest151353151361%_))) - (_%tl151359151380%_ + (##car _%rest151512151520%_))) + (_%tl151518151539%_ (let () (declare (not safe)) - (##cdr _%rest151353151361%_)))) - (let* ((_%super-id151383%_ _%hd151358151378%_) - (_%rest151385%_ _%tl151359151380%_)) - (_%K151357151375%_ _%rest151385%_ _%super-id151383%_))) + (##cdr _%rest151512151520%_)))) + (let* ((_%super-id151542%_ _%hd151517151537%_) + (_%rest151544%_ _%tl151518151539%_)) + (_%K151516151534%_ _%rest151544%_ _%super-id151542%_))) '#!void))) - (let* ((_%ctor-method151436%_ - (let ((_%$e151387%_ _%ctor-method151332%_)) - (if _%$e151387%_ - _%$e151387%_ - (let _%lp151390%_ ((_%rest151392%_ _%super151330%_) - (_%method151393%_ '#f)) - (let* ((_%rest151394151402%_ _%rest151392%_) - (_%else151396151410%_ - (lambda () _%method151393%_)) - (_%K151398151424%_ - (lambda (_%rest151413%_ _%super-id151414%_) - (let* ((_%klass151416%_ + (let* ((_%ctor-method151595%_ + (let ((_%$e151546%_ _%ctor-method151491%_)) + (if _%$e151546%_ + _%$e151546%_ + (let _%lp151549%_ ((_%rest151551%_ _%super151489%_) + (_%method151552%_ '#f)) + (let* ((_%rest151553151561%_ _%rest151551%_) + (_%else151555151569%_ + (lambda () _%method151552%_)) + (_%K151557151583%_ + (lambda (_%rest151572%_ _%super-id151573%_) + (let* ((_%klass151575%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id151329%_ '())) - _%super-id151414%_)) - (_%$e151418%_ + (cons _%id151488%_ '())) + _%super-id151573%_)) + (_%$e151577%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151416%_ + _%klass151575%_ '6 '#f '#f)))) - (if _%$e151418%_ - ((lambda (_%ctor-method151421%_) - (if _%method151393%_ - (if (eq? _%ctor-method151421%_ - _%method151393%_) - (_%lp151390%_ - _%rest151413%_ - _%ctor-method151421%_) - (let ((__tmp152152 + (if _%$e151577%_ + ((lambda (_%ctor-method151580%_) + (if _%method151552%_ + (if (eq? _%ctor-method151580%_ + _%method151552%_) + (_%lp151549%_ + _%rest151572%_ + _%ctor-method151580%_) + (let ((__tmp152311 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id151329%_ '())))) + (cons _%id151488%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp152152 - _%method151393%_ - _%ctor-method151421%_))) + __tmp152311 + _%method151552%_ + _%ctor-method151580%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp151390%_ - _%rest151413%_ - _%ctor-method151421%_))) - _%$e151418%_) - (_%lp151390%_ - _%rest151413%_ - _%method151393%_)))))) - (if (pair? _%rest151394151402%_) - (let ((_%hd151399151427%_ + (_%lp151549%_ + _%rest151572%_ + _%ctor-method151580%_))) + _%$e151577%_) + (_%lp151549%_ + _%rest151572%_ + _%method151552%_)))))) + (if (pair? _%rest151553151561%_) + (let ((_%hd151558151586%_ (let () (declare (not safe)) - (##car _%rest151394151402%_))) - (_%tl151400151429%_ + (##car _%rest151553151561%_))) + (_%tl151559151588%_ (let () (declare (not safe)) - (##cdr _%rest151394151402%_)))) - (let* ((_%super-id151432%_ - _%hd151399151427%_) - (_%rest151434%_ _%tl151400151429%_)) - (_%K151398151424%_ - _%rest151434%_ - _%super-id151432%_))) - (_%else151396151410%_))))))) - (_g152153_ - (let ((__tmp152157 - (lambda (_%klass-id151438%_) - (cons _%klass-id151438%_ - (let ((__tmp152158 + (##cdr _%rest151553151561%_)))) + (let* ((_%super-id151591%_ + _%hd151558151586%_) + (_%rest151593%_ _%tl151559151588%_)) + (_%K151557151583%_ + _%rest151593%_ + _%super-id151591%_))) + (_%else151555151569%_))))))) + (_g152312_ + (let ((__tmp152316 + (lambda (_%klass-id151597%_) + (cons _%klass-id151597%_ + (let ((__tmp152317 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151329%_ '())) - _%klass-id151438%_))) + (cons '!class (cons _%id151488%_ '())) + _%klass-id151597%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152158 + __tmp152317 '3 '#f '#f))))) - (__tmp152155 - (lambda (_%klass-id151440%_) - (let ((__tmp152156 + (__tmp152314 + (lambda (_%klass-id151599%_) + (let ((__tmp152315 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151329%_ '())) - _%klass-id151440%_))) + (cons '!class (cons _%id151488%_ '())) + _%klass-id151599%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152156 + __tmp152315 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp152157 - __tmp152155 + __tmp152316 + __tmp152314 eq? identity '() - _%super151330%_)))) + _%super151489%_)))) (begin - (let ((_g152154_ + (let ((_g152313_ (let () (declare (not safe)) - (if (##values? _g152153_) - (##vector-length _g152153_) + (if (##values? _g152312_) + (##vector-length _g152312_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152154_ 2))) - (error "Context expects 2 values" _g152154_))) - (let ((_%precedence-list151442%_ - (let () (declare (not safe)) (##vector-ref _g152153_ 0))) - (_%base-struct151443%_ - (let () (declare (not safe)) (##vector-ref _g152153_ 1)))) - (let* ((_%precedence-list151487%_ + (if (not (let () (declare (not safe)) (##fx= _g152313_ 2))) + (error "Context expects 2 values" _g152313_))) + (let ((_%precedence-list151601%_ + (let () (declare (not safe)) (##vector-ref _g152312_ 0))) + (_%base-struct151602%_ + (let () (declare (not safe)) (##vector-ref _g152312_ 1)))) + (let* ((_%precedence-list151646%_ (if (let () (declare (not safe)) - (##memq _%id151329%_ '(t object class))) - _%precedence-list151442%_ - (if (memq 'object::t _%precedence-list151442%_) - _%precedence-list151442%_ - (if _%system?151335%_ - (if (memq 't::t _%precedence-list151442%_) - _%precedence-list151442%_ + (##memq _%id151488%_ '(t object class))) + _%precedence-list151601%_ + (if (memq 'object::t _%precedence-list151601%_) + _%precedence-list151601%_ + (if _%system?151494%_ + (if (memq 't::t _%precedence-list151601%_) + _%precedence-list151601%_ (let () (declare (not safe)) (##append - _%precedence-list151442%_ + _%precedence-list151601%_ '(t::t)))) - (let _%loop151449%_ ((_%tail151451%_ - _%precedence-list151442%_) - (_%head151452%_ '())) - (let* ((_%tail151453151461%_ - _%tail151451%_) - (_%else151455151469%_ + (let _%loop151608%_ ((_%tail151610%_ + _%precedence-list151601%_) + (_%head151611%_ '())) + (let* ((_%tail151612151620%_ + _%tail151610%_) + (_%else151614151628%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head151452%_)))) - (_%K151457151475%_ - (lambda (_%rest151472%_ - _%hd151473%_) - (if (eq? _%hd151473%_ 't::t) - (let ((__tmp152159 + _%head151611%_)))) + (_%K151616151634%_ + (lambda (_%rest151631%_ + _%hd151632%_) + (if (eq? _%hd151632%_ 't::t) + (let ((__tmp152318 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail151451%_))) + _%tail151610%_))) (declare (not safe)) - (__foldl1 cons __tmp152159 _%head151452%_)) + (__foldl1 cons __tmp152318 _%head151611%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151449%_ - _%rest151472%_ - (cons _%hd151473%_ - _%head151452%_)))))) - (if (pair? _%tail151453151461%_) - (let ((_%hd151458151478%_ + (_%loop151608%_ + _%rest151631%_ + (cons _%hd151632%_ + _%head151611%_)))))) + (if (pair? _%tail151612151620%_) + (let ((_%hd151617151637%_ (let () (declare (not safe)) - (##car _%tail151453151461%_))) - (_%tl151459151480%_ + (##car _%tail151612151620%_))) + (_%tl151618151639%_ (let () (declare (not safe)) - (##cdr _%tail151453151461%_)))) - (let* ((_%hd151483%_ - _%hd151458151478%_) - (_%rest151485%_ - _%tl151459151480%_)) - (_%K151457151475%_ - _%rest151485%_ - _%hd151483%_))) - (_%else151455151469%_)))))))) - (_%fields151489%_ + (##cdr _%tail151612151620%_)))) + (let* ((_%hd151642%_ + _%hd151617151637%_) + (_%rest151644%_ + _%tl151618151639%_)) + (_%K151616151634%_ + _%rest151644%_ + _%hd151642%_))) + (_%else151614151628%_)))))))) + (_%fields151648%_ (gxc#compute-class-fields - (cons '!class (cons _%id151329%_ '())) - _%base-struct151443%_ - _%precedence-list151487%_ - _%slots151331%_))) + (cons '!class (cons _%id151488%_ '())) + _%base-struct151602%_ + _%precedence-list151646%_ + _%slots151490%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%id151329%_ + _%self151499%_ + _%id151488%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%super151330%_ + _%self151499%_ + _%super151489%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%precedence-list151487%_ + _%self151499%_ + _%precedence-list151646%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%slots151331%_ + _%self151499%_ + _%slots151490%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%fields151489%_ + _%self151499%_ + _%fields151648%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%ctor-method151436%_ + _%self151499%_ + _%ctor-method151595%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%struct?151333%_ + _%self151499%_ + _%struct?151492%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%final?151334%_ + _%self151499%_ + _%final?151493%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%metaclass151336%_ + _%self151499%_ + _%metaclass151495%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self149220151492%_ - _%id151494%_ - _%super151495%_ - _%precedence-list151496%_ - _%slots151497%_ - _%fields151498%_ - _%constructor151499%_ - _%struct?151500%_ - _%final?151501%_ - _%system?151502%_ - _%metaclass151503%_ - _%methods151504%_) - (let* ((_%self151506%_ _%self149220151492%_) - (_%self151508%_ _%self151506%_)) + (lambda (_%self149379151651%_ + _%id151653%_ + _%super151654%_ + _%precedence-list151655%_ + _%slots151656%_ + _%fields151657%_ + _%constructor151658%_ + _%struct?151659%_ + _%final?151660%_ + _%system?151661%_ + _%metaclass151662%_ + _%methods151663%_) + (let* ((_%self151665%_ _%self149379151651%_) + (_%self151667%_ _%self151665%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%id151494%_ + _%self151667%_ + _%id151653%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%super151495%_ + _%self151667%_ + _%super151654%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%precedence-list151496%_ + _%self151667%_ + _%precedence-list151655%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%slots151497%_ + _%self151667%_ + _%slots151656%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%fields151498%_ + _%self151667%_ + _%fields151657%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%constructor151499%_ + _%self151667%_ + _%constructor151658%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%struct?151500%_ + _%self151667%_ + _%struct?151659%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%final?151501%_ + _%self151667%_ + _%final?151660%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%metaclass151503%_ + _%self151667%_ + _%metaclass151662%_ '10 '#f '#f)) - (if _%methods151504%_ - (let ((__tmp152160 + (if _%methods151663%_ + (let ((__tmp152319 (let () (declare (not safe)) - (list->hash-table-eq _%methods151504%_)))) + (list->hash-table-eq _%methods151663%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - __tmp152160 + _%self151667%_ + __tmp152319 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g152162_ - (let ((_g152161_ (let () (declare (not safe)) (##length _g152162_)))) - (cond ((let () (declare (not safe)) (##fx= _g152161_ 9)) - (apply gxc#!class:::init!__0 _g152162_)) - ((let () (declare (not safe)) (##fx= _g152161_ 12)) - (apply gxc#!class:::init!__1 _g152162_)) + (lambda _g152321_ + (let ((_g152320_ (let () (declare (not safe)) (##length _g152321_)))) + (cond ((let () (declare (not safe)) (##fx= _g152320_ 9)) + (apply gxc#!class:::init!__0 _g152321_)) + ((let () (declare (not safe)) (##fx= _g152320_ 12)) + (apply gxc#!class:::init!__1 _g152321_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g152162_)))))) + _g152321_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where151179%_ - _%base-struct151180%_ - _%precedence-list151181%_ - _%direct-slots151182%_) - (let* ((_%base-fields151184%_ - (if _%base-struct151180%_ - (let ((__tmp152163 + (lambda (_%where151338%_ + _%base-struct151339%_ + _%precedence-list151340%_ + _%direct-slots151341%_) + (let* ((_%base-fields151343%_ + (if _%base-struct151339%_ + (let ((__tmp152322 (gxc#optimizer-resolve-class - _%where151179%_ - _%base-struct151180%_))) + _%where151338%_ + _%base-struct151339%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152163 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152322 '5 '#f '#f)) '())) - (_%r-fields151186%_ (reverse _%base-fields151184%_)) - (_%seen-slots151194%_ - (let ((_%tab151188%_ + (_%r-fields151345%_ (reverse _%base-fields151343%_)) + (_%seen-slots151353%_ + (let ((_%tab151347%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g151189151191%_) + (lambda (_%g151348151350%_) (let () (declare (not safe)) - (__hash-put! _%tab151188%_ _%g151189151191%_ '#t))) - _%base-fields151184%_) - _%tab151188%_)) - (_%process-slot151198%_ - (lambda (_%slot151196%_) + (__hash-put! _%tab151347%_ _%g151348151350%_ '#t))) + _%base-fields151343%_) + _%tab151347%_)) + (_%process-slot151357%_ + (lambda (_%slot151355%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots151194%_ _%slot151196%_)) + (__hash-get _%seen-slots151353%_ _%slot151355%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots151194%_ - _%slot151196%_ + _%seen-slots151353%_ + _%slot151355%_ '#t)) - (set! _%r-fields151186%_ - (cons _%slot151196%_ _%r-fields151186%_))))))) + (set! _%r-fields151345%_ + (cons _%slot151355%_ _%r-fields151345%_))))))) (for-each - (lambda (_%mixin151201%_) - (let ((_%klass151203%_ + (lambda (_%mixin151360%_) + (let ((_%klass151362%_ (gxc#optimizer-resolve-class - _%where151179%_ - _%mixin151201%_))) + _%where151338%_ + _%mixin151360%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass151203%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass151362%_ '7 '#f '#f)) '#!void (for-each - _%process-slot151198%_ + _%process-slot151357%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151203%_ + _%klass151362%_ '5 '#f '#f)))))) - _%precedence-list151181%_) - (for-each _%process-slot151198%_ _%direct-slots151182%_) - (let () (declare (not safe)) (##reverse _%r-fields151186%_))))) + _%precedence-list151340%_) + (for-each _%process-slot151357%_ _%direct-slots151341%_) + (let () (declare (not safe)) (##reverse _%r-fields151345%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass151138%_ _%slot151139%_) - (let _%lp151141%_ ((_%rest151143%_ + (lambda (_%klass151297%_ _%slot151298%_) + (let _%lp151300%_ ((_%rest151302%_ (##structure-ref - _%klass151138%_ + _%klass151297%_ '5 gxc#!class::t '#f)) - (_%offset151144%_ '1)) - (let* ((_%rest151145151153%_ _%rest151143%_) - (_%else151147151161%_ + (_%offset151303%_ '1)) + (let* ((_%rest151304151312%_ _%rest151302%_) + (_%else151306151320%_ (lambda () - (let ((__tmp152165 + (let ((__tmp152324 (##structure-ref - _%klass151138%_ + _%klass151297%_ '1 gxc#!type::t '#f)) - (__tmp152164 + (__tmp152323 (##structure-ref - _%klass151138%_ + _%klass151297%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp152165 - __tmp152164 - _%slot151139%_)))) - (_%K151149151167%_ - (lambda (_%rest151164%_ _%s151165%_) - (if (eq? _%s151165%_ _%slot151139%_) - _%offset151144%_ - (_%lp151141%_ - _%rest151164%_ + __tmp152324 + __tmp152323 + _%slot151298%_)))) + (_%K151308151326%_ + (lambda (_%rest151323%_ _%s151324%_) + (if (eq? _%s151324%_ _%slot151298%_) + _%offset151303%_ + (_%lp151300%_ + _%rest151323%_ (let () (declare (not safe)) - (##fx+ _%offset151144%_ '1))))))) - (if (pair? _%rest151145151153%_) - (let ((_%hd151150151170%_ + (##fx+ _%offset151303%_ '1))))))) + (if (pair? _%rest151304151312%_) + (let ((_%hd151309151329%_ (let () (declare (not safe)) - (##car _%rest151145151153%_))) - (_%tl151151151172%_ + (##car _%rest151304151312%_))) + (_%tl151310151331%_ (let () (declare (not safe)) - (##cdr _%rest151145151153%_)))) - (let* ((_%s151175%_ _%hd151150151170%_) - (_%rest151177%_ _%tl151151151172%_)) - (_%K151149151167%_ _%rest151177%_ _%s151175%_))) - (_%else151147151161%_)))))) + (##cdr _%rest151304151312%_)))) + (let* ((_%s151334%_ _%hd151309151329%_) + (_%rest151336%_ _%tl151310151331%_)) + (_%K151308151326%_ _%rest151336%_ _%s151334%_))) + (_%else151306151320%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass151096%_ _%slot151097%_) - (if (gxc#!class-struct-slot? _%klass151096%_ _%slot151097%_) - _%klass151096%_ - (let _%lp151099%_ ((_%rest151101%_ + (lambda (_%klass151255%_ _%slot151256%_) + (if (gxc#!class-struct-slot? _%klass151255%_ _%slot151256%_) + _%klass151255%_ + (let _%lp151258%_ ((_%rest151260%_ (##structure-ref - _%klass151096%_ + _%klass151255%_ '3 gxc#!class::t '#f))) - (let* ((_%rest151102151110%_ _%rest151101%_) - (_%else151104151118%_ (lambda () '#f)) - (_%K151106151126%_ - (lambda (_%rest151121%_ _%super151122%_) - (let ((_%super-class151124%_ + (let* ((_%rest151261151269%_ _%rest151260%_) + (_%else151263151277%_ (lambda () '#f)) + (_%K151265151285%_ + (lambda (_%rest151280%_ _%super151281%_) + (let ((_%super-class151283%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass151096%_ + _%klass151255%_ '1 gxc#!type::t '#f) - (cons _%slot151097%_ '()))) - _%super151122%_))) + (cons _%slot151256%_ '()))) + _%super151281%_))) (if (gxc#!class-struct-slot? - _%super-class151124%_ - _%slot151097%_) - _%super-class151124%_ - (_%lp151099%_ _%rest151121%_)))))) - (if (pair? _%rest151102151110%_) - (let ((_%hd151107151129%_ + _%super-class151283%_ + _%slot151256%_) + _%super-class151283%_ + (_%lp151258%_ _%rest151280%_)))))) + (if (pair? _%rest151261151269%_) + (let ((_%hd151266151288%_ (let () (declare (not safe)) - (##car _%rest151102151110%_))) - (_%tl151108151131%_ + (##car _%rest151261151269%_))) + (_%tl151267151290%_ (let () (declare (not safe)) - (##cdr _%rest151102151110%_)))) - (let* ((_%super151134%_ _%hd151107151129%_) - (_%rest151136%_ _%tl151108151131%_)) - (_%K151106151126%_ _%rest151136%_ _%super151134%_))) - (_%else151104151118%_))))))) + (##cdr _%rest151261151269%_)))) + (let* ((_%super151293%_ _%hd151266151288%_) + (_%rest151295%_ _%tl151267151290%_)) + (_%K151265151285%_ _%rest151295%_ _%super151293%_))) + (_%else151263151277%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass151093%_ _%slot151094%_) - (if (##structure-ref _%klass151093%_ '7 gxc#!class::t '#f) - (memq _%slot151094%_ - (##structure-ref _%klass151093%_ '5 gxc#!class::t '#f)) + (lambda (_%klass151252%_ _%slot151253%_) + (if (##structure-ref _%klass151252%_ '7 gxc#!class::t '#f) + (memq _%slot151253%_ + (##structure-ref _%klass151252%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self149221151077%_ _%id151079%_) - (let* ((_%self151081%_ _%self149221151077%_) - (_%self151083%_ _%self151081%_)) + (lambda (_%self149380151236%_ _%id151238%_) + (let* ((_%self151240%_ _%self149380151236%_) + (_%self151242%_ _%self151240%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151083%_ - _%id151079%_ + _%self151242%_ + _%id151238%_ '1 '#f '#f)) - (let ((__tmp152166 - (let ((__obj152098 + (let ((__tmp152325 + (let ((__obj152257 (let () (declare (not safe)) (##structure @@ -2305,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152257 'boolean::t '1 '#f @@ -2313,7 +2313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152257 '(pure predicate) '2 '#f @@ -2321,16 +2321,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152257 '(t::t) '3 '#f '#f)) - __obj152098))) + __obj152257))) (declare (not safe)) (##unchecked-structure-set! - _%self151083%_ - __tmp152166 + _%self151242%_ + __tmp152325 '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 (_%self149222150939%_ _%id150941%_) - (let* ((_%self150943%_ _%self149222150939%_) - (_%self150945%_ _%self150943%_)) + (lambda (_%self149381151098%_ _%id151100%_) + (let* ((_%self151102%_ _%self149381151098%_) + (_%self151104%_ _%self151102%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150945%_ - _%id150941%_ + _%self151104%_ + _%id151100%_ '1 '#f '#f)) - (let ((__tmp152167 - (let ((__obj152099 + (let ((__tmp152326 + (let ((__obj152258 (let () (declare (not safe)) (##structure @@ -2363,24 +2363,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152099 - _%id150941%_ + __obj152258 + _%id151100%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152099 + __obj152258 '(alloc) '2 '#f '#f)) - __obj152099))) + __obj152258))) (declare (not safe)) (##unchecked-structure-set! - _%self150945%_ - __tmp152167 + _%self151104%_ + __tmp152326 '2 '#f '#f))))) @@ -2392,38 +2392,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self149223150799%_ - _%id150801%_ - _%slot150802%_ - _%checked?150803%_) - (let* ((_%self150805%_ _%self149223150799%_) - (_%self150807%_ _%self150805%_)) + (lambda (_%self149382150958%_ + _%id150960%_ + _%slot150961%_ + _%checked?150962%_) + (let* ((_%self150964%_ _%self149382150958%_) + (_%self150966%_ _%self150964%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - _%id150801%_ + _%self150966%_ + _%id150960%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - _%slot150802%_ + _%self150966%_ + _%slot150961%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - _%checked?150803%_ + _%self150966%_ + _%checked?150962%_ '4 '#f '#f)) - (let ((__tmp152168 - (let ((__obj152100 + (let ((__tmp152327 + (let ((__obj152259 (let () (declare (not safe)) (##structure @@ -2435,28 +2435,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152100 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152259 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152100 + __obj152259 '(pure) '2 '#f '#f)) - (let ((__tmp152169 (cons _%id150801%_ '()))) + (let ((__tmp152328 (cons _%id150960%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj152100 - __tmp152169 + __obj152259 + __tmp152328 '3 '#f '#f)) - __obj152100))) + __obj152259))) (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - __tmp152168 + _%self150966%_ + __tmp152327 '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 (_%self149224150659%_ - _%id150661%_ - _%slot150662%_ - _%checked?150663%_) - (let* ((_%self150665%_ _%self149224150659%_) - (_%self150667%_ _%self150665%_)) + (lambda (_%self149383150818%_ + _%id150820%_ + _%slot150821%_ + _%checked?150822%_) + (let* ((_%self150824%_ _%self149383150818%_) + (_%self150826%_ _%self150824%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - _%id150661%_ + _%self150826%_ + _%id150820%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - _%slot150662%_ + _%self150826%_ + _%slot150821%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - _%checked?150663%_ + _%self150826%_ + _%checked?150822%_ '4 '#f '#f)) - (let ((__tmp152170 - (let ((__obj152101 + (let ((__tmp152329 + (let ((__obj152260 (let () (declare (not safe)) (##structure @@ -2508,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152101 + __obj152260 'void::t '1 '#f @@ -2516,24 +2516,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152101 + __obj152260 '(mut) '2 '#f '#f)) - (let ((__tmp152171 (cons _%id150661%_ (cons 't::t '())))) + (let ((__tmp152330 (cons _%id150820%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152101 - __tmp152171 + __obj152260 + __tmp152330 '3 '#f '#f)) - __obj152101))) + __obj152260))) (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - __tmp152170 + _%self150826%_ + __tmp152329 '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 (_%@@keywords150501%_ - _%signature150498150502%_ - _%self149225150504%_ - _%arity150506%_ - _%dispatch150507%_) - (let* ((_%signature150509%_ - (if (eq? _%signature150498150502%_ absent-value) + (lambda (_%@@keywords150660%_ + _%signature150657150661%_ + _%self149384150663%_ + _%arity150665%_ + _%dispatch150666%_) + (let* ((_%signature150668%_ + (if (eq? _%signature150657150661%_ absent-value) '#f - _%signature150498150502%_)) - (_%self150511%_ _%self149225150504%_) - (_%self150513%_ _%self150511%_)) + _%signature150657150661%_)) + (_%self150670%_ _%self149384150663%_) + (_%self150672%_ _%self150670%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150513%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150672%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%arity150506%_ + _%self150672%_ + _%arity150665%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%dispatch150507%_ + _%self150672%_ + _%dispatch150666%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%signature150509%_ + _%self150672%_ + _%signature150668%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords150527%_ . _%args150528%_) + (lambda (_%@@keywords150686%_ . _%args150687%_) (apply gxc#!lambda:::init!__% - _%@@keywords150527%_ + _%@@keywords150686%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150527%_ + _%@@keywords150686%_ 'signature: absent-value)) - _%args150528%_))) + _%args150687%_))) (define gxc#!lambda:::init! - (lambda _%args150499150534%_ + (lambda _%args150658150693%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args150499150534%_))) + _%args150658150693%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords150340%_ - _%signature150337150341%_ - _%self149226150343%_ - _%clauses150345%_) - (let* ((_%signature150347%_ - (if (eq? _%signature150337150341%_ absent-value) + (lambda (_%@@keywords150499%_ + _%signature150496150500%_ + _%self149385150502%_ + _%clauses150504%_) + (let* ((_%signature150506%_ + (if (eq? _%signature150496150500%_ absent-value) '#f - _%signature150337150341%_)) - (_%self150349%_ _%self149226150343%_) - (_%self150351%_ _%self150349%_)) + _%signature150496150500%_)) + (_%self150508%_ _%self149385150502%_) + (_%self150510%_ _%self150508%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150351%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150510%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150351%_ - _%signature150347%_ + _%self150510%_ + _%signature150506%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150351%_ - _%clauses150345%_ + _%self150510%_ + _%clauses150504%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords150365%_ . _%args150366%_) + (lambda (_%@@keywords150524%_ . _%args150525%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords150365%_ + _%@@keywords150524%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150365%_ + _%@@keywords150524%_ 'signature: absent-value)) - _%args150366%_))) + _%args150525%_))) (define gxc#!case-lambda:::init! - (lambda _%args150338150372%_ + (lambda _%args150497150531%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args150338150372%_))) + _%args150497150531%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2654,25 +2654,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self149227150197%_ _%tab150199%_ _%dispatch150200%_) - (let* ((_%self150202%_ _%self149227150197%_) - (_%self150204%_ _%self150202%_)) + (lambda (_%self149386150356%_ _%tab150358%_ _%dispatch150359%_) + (let* ((_%self150361%_ _%self149386150356%_) + (_%self150363%_ _%self150361%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150204%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150363%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150204%_ - _%tab150199%_ + _%self150363%_ + _%tab150358%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150204%_ - _%dispatch150200%_ + _%self150363%_ + _%dispatch150359%_ '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 (_%self149228150058%_ _%keys150060%_ _%main150061%_) - (let* ((_%self150063%_ _%self149228150058%_) - (_%self150065%_ _%self150063%_)) + (lambda (_%self149387150217%_ _%keys150219%_ _%main150220%_) + (let* ((_%self150222%_ _%self149387150217%_) + (_%self150224%_ _%self150222%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150065%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150224%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150065%_ - _%keys150060%_ + _%self150224%_ + _%keys150219%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150065%_ - _%main150061%_ + _%self150224%_ + _%main150220%_ '4 '#f '#f))))) @@ -2726,19 +2726,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self149229149676%_ _%id149678%_) - (let* ((_%self149680%_ _%self149229149676%_) - (_%self149682%_ _%self149680%_)) + (lambda (_%self149388149835%_ _%id149837%_) + (let* ((_%self149839%_ _%self149388149835%_) + (_%self149841%_ _%self149839%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149682%_ - _%id149678%_ + _%self149841%_ + _%id149837%_ '1 '#f '#f)) - (let ((__tmp152172 - (let ((__obj152102 + (let ((__tmp152331 + (let ((__obj152261 (let () (declare (not safe)) (##structure @@ -2751,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152102 + __obj152261 'boolean::t '1 '#f @@ -2759,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152102 + __obj152261 '(pure) '2 '#f @@ -2767,16 +2767,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152102 + __obj152261 '(t::t) '3 '#f '#f)) - __obj152102))) + __obj152261))) (declare (not safe)) (##unchecked-structure-set! - _%self149682%_ - __tmp152172 + _%self149841%_ + __tmp152331 '2 '#f '#f))))) @@ -2788,158 +2788,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass149545%_) - (let ((_%$e149547%_ - (##structure-ref _%klass149545%_ '11 gxc#!class::t '#f))) - (if _%$e149547%_ - _%$e149547%_ - (let ((_%tab149551%_ + (lambda (_%klass149704%_) + (let ((_%$e149706%_ + (##structure-ref _%klass149704%_ '11 gxc#!class::t '#f))) + (if _%$e149706%_ + _%$e149706%_ + (let ((_%tab149710%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass149545%_ - _%tab149551%_ + _%klass149704%_ + _%tab149710%_ '11 gxc#!class::t '#f) - _%tab149551%_))))) + _%tab149710%_))))) (define gxc#!class-lookup-method - (lambda (_%klass149536%_ _%method149537%_) - (let ((_%tab149538149540%_ - (##structure-ref _%klass149536%_ '11 gxc#!class::t '#f))) - (if _%tab149538149540%_ - (let ((_%tab149543%_ _%tab149538149540%_)) + (lambda (_%klass149695%_ _%method149696%_) + (let ((_%tab149697149699%_ + (##structure-ref _%klass149695%_ '11 gxc#!class::t '#f))) + (if _%tab149697149699%_ + (let ((_%tab149702%_ _%tab149697149699%_)) (declare (not safe)) - (hash-get _%tab149543%_ _%method149537%_)) + (hash-get _%tab149702%_ _%method149696%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a149524%_ _%type-b149525%_) - (if _%type-a149524%_ - (if _%type-b149525%_ - (let ((_%$e149527%_ (eq? _%type-a149524%_ _%type-b149525%_))) - (if _%$e149527%_ - _%$e149527%_ - (let ((_%$e149530%_ + (lambda (_%type-a149683%_ _%type-b149684%_) + (if _%type-a149683%_ + (if _%type-b149684%_ + (let ((_%$e149686%_ (eq? _%type-a149683%_ _%type-b149684%_))) + (if _%$e149686%_ + _%$e149686%_ + (let ((_%$e149689%_ (eq? (##structure-ref - _%type-b149525%_ + _%type-b149684%_ '1 gxc#!type::t '#f) 't))) - (if _%$e149530%_ - _%$e149530%_ - (let ((_%$e149533%_ + (if _%$e149689%_ + _%$e149689%_ + (let ((_%$e149692%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149524%_ + _%type-a149683%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b149525%_ + _%type-b149684%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e149533%_ - _%$e149533%_ + (if _%$e149692%_ + _%$e149692%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149524%_ + _%type-a149683%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b149525%_ + _%type-b149684%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a149524%_ - _%type-b149525%_) + _%type-a149683%_ + _%type-b149684%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a149475%_ _%klass-b149476%_) - (let ((_%$e149478%_ - (eq? (##structure-ref _%klass-a149475%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b149476%_ '1 gxc#!type::t '#f)))) - (if _%$e149478%_ - _%$e149478%_ - (let ((_%klass-id-b149481%_ - (##structure-ref _%klass-b149476%_ '1 gxc#!type::t '#f)) - (_%precedence-list149482%_ - (##structure-ref _%klass-a149475%_ '3 gxc#!class::t '#f))) - (let _%loop149484%_ ((_%rest149486%_ - _%precedence-list149482%_)) - (let* ((_%rest149487149495%_ _%rest149486%_) - (_%else149489149503%_ (lambda () '#f)) - (_%K149491149512%_ - (lambda (_%rest149506%_ _%klass-name149507%_) - (let ((_%$e149509%_ - (eq? (let ((__tmp152173 + (lambda (_%klass-a149634%_ _%klass-b149635%_) + (let ((_%$e149637%_ + (eq? (##structure-ref _%klass-a149634%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b149635%_ '1 gxc#!type::t '#f)))) + (if _%$e149637%_ + _%$e149637%_ + (let ((_%klass-id-b149640%_ + (##structure-ref _%klass-b149635%_ '1 gxc#!type::t '#f)) + (_%precedence-list149641%_ + (##structure-ref _%klass-a149634%_ '3 gxc#!class::t '#f))) + (let _%loop149643%_ ((_%rest149645%_ + _%precedence-list149641%_)) + (let* ((_%rest149646149654%_ _%rest149645%_) + (_%else149648149662%_ (lambda () '#f)) + (_%K149650149671%_ + (lambda (_%rest149665%_ _%klass-name149666%_) + (let ((_%$e149668%_ + (eq? (let ((__tmp152332 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a149475%_ - (cons _%klass-b149476%_ + (cons _%klass-a149634%_ + (cons _%klass-b149635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name149507%_))) + _%klass-name149666%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152173 + __tmp152332 '1 '#f '#f)) - _%klass-id-b149481%_))) - (if _%$e149509%_ - _%$e149509%_ - (_%loop149484%_ _%rest149506%_)))))) - (if (pair? _%rest149487149495%_) - (let ((_%hd149492149515%_ + _%klass-id-b149640%_))) + (if _%$e149668%_ + _%$e149668%_ + (_%loop149643%_ _%rest149665%_)))))) + (if (pair? _%rest149646149654%_) + (let ((_%hd149651149674%_ (let () (declare (not safe)) - (##car _%rest149487149495%_))) - (_%tl149493149517%_ + (##car _%rest149646149654%_))) + (_%tl149652149676%_ (let () (declare (not safe)) - (##cdr _%rest149487149495%_)))) - (let* ((_%klass-name149520%_ _%hd149492149515%_) - (_%rest149522%_ _%tl149493149517%_)) - (_%K149491149512%_ - _%rest149522%_ - _%klass-name149520%_))) - (_%else149489149503%_))))))))) + (##cdr _%rest149646149654%_)))) + (let* ((_%klass-name149679%_ _%hd149651149674%_) + (_%rest149681%_ _%tl149652149676%_)) + (_%K149650149671%_ + _%rest149681%_ + _%klass-name149679%_))) + (_%else149648149662%_))))))))) (define gxc#!interface-instance? - (lambda (_%type149473%_) + (lambda (_%type149632%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149473%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149632%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type149473%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type149632%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc149462%_) + (lambda (_%proc149621%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc149462%_ 'gxc#!procedure::t)) - (let ((_%proc149465%_ _%proc149462%_)) + (##structure-instance-of? _%proc149621%_ 'gxc#!procedure::t)) + (let ((_%proc149624%_ _%proc149621%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc149465%_ '2 '#f '#f)) - (let ((__tmp152174 + (##unchecked-structure-ref _%proc149624%_ '2 '#f '#f)) + (let ((__tmp152333 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc149465%_ + _%proc149624%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp152174 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152333 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2949,24 +2949,24 @@ 'contract: '!procedure? 'value: - _%proc149462%_) + _%proc149621%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym149444%_ _%type149445%_ _%local?149446%_) + (lambda (_%sym149603%_ _%type149604%_ _%local?149605%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149445%_ 'gxc#!type::t)) + (##structure-instance-of? _%type149604%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym149444%_ - _%type149445%_))) + _%sym149603%_ + _%type149604%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym149444%_ '" " _%type149445%_)) - (let ((_%table149448%_ - (if _%local?149446%_ + (gxc#verbose '"declare-type " _%sym149603%_ '" " _%type149604%_)) + (let ((_%table149607%_ + (if _%local?149605%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2978,37 +2978,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table149448%_ _%sym149444%_ _%type149445%_)))) + (hash-put! _%table149607%_ _%sym149603%_ _%type149604%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym149453%_ _%type149454%_) - (let ((_%local?149456%_ '#f)) + (lambda (_%sym149612%_ _%type149613%_) + (let ((_%local?149615%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym149453%_ - _%type149454%_ - _%local?149456%_)))) + _%sym149612%_ + _%type149613%_ + _%local?149615%_)))) (define gxc#optimizer-declare-type! - (lambda _g152176_ - (let ((_g152175_ (let () (declare (not safe)) (##length _g152176_)))) - (cond ((let () (declare (not safe)) (##fx= _g152175_ 2)) - (apply gxc#optimizer-declare-type!__0 _g152176_)) - ((let () (declare (not safe)) (##fx= _g152175_ 3)) - (apply gxc#optimizer-declare-type!__% _g152176_)) + (lambda _g152335_ + (let ((_g152334_ (let () (declare (not safe)) (##length _g152335_)))) + (cond ((let () (declare (not safe)) (##fx= _g152334_ 2)) + (apply gxc#optimizer-declare-type!__0 _g152335_)) + ((let () (declare (not safe)) (##fx= _g152334_ 3)) + (apply gxc#optimizer-declare-type!__% _g152335_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g152176_)))))) + _g152335_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym149438%_ _%type149439%_) + (lambda (_%sym149597%_ _%type149598%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149439%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149598%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149438%_ - _%type149439%_))) - (let ((_%table149441%_ + _%sym149597%_ + _%type149598%_))) + (let ((_%table149600%_ (##structure-ref (let () (declare (not safe)) @@ -3016,28 +3016,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp152177 - (let () (declare (not safe)) (struct->list _%type149439%_)))) + (let ((__tmp152336 + (let () (declare (not safe)) (struct->list _%type149598%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym149438%_ '" " __tmp152177)) + (gxc#verbose '"declare-class " _%sym149597%_ '" " __tmp152336)) (let () (declare (not safe)) - (hash-put! _%table149441%_ _%sym149438%_ _%type149439%_)) + (hash-put! _%table149600%_ _%sym149597%_ _%type149598%_)) (let () (declare (not safe)) - (hash-put! _%table149441%_ _%type149439%_ _%sym149438%_))))) + (hash-put! _%table149600%_ _%type149598%_ _%sym149597%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym149433%_ _%type149434%_) + (lambda (_%sym149592%_ _%type149593%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149434%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149593%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149433%_ - _%type149434%_))) - (let ((_%table149436%_ + _%sym149592%_ + _%type149593%_))) + (let ((_%table149595%_ (##structure-ref (let () (declare (not safe)) @@ -3047,38 +3047,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table149436%_ _%sym149433%_)) + (hash-get _%table149595%_ _%sym149592%_)) '#!void (begin - (let ((__tmp152178 + (let ((__tmp152337 (let () (declare (not safe)) - (struct->list _%type149434%_)))) + (struct->list _%type149593%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym149433%_ + _%sym149592%_ '" " - __tmp152178)) + __tmp152337)) (let () (declare (not safe)) - (hash-put! _%table149436%_ _%sym149433%_ _%type149434%_)) + (hash-put! _%table149595%_ _%sym149592%_ _%type149593%_)) (let () (declare (not safe)) (hash-put! - _%table149436%_ - _%type149434%_ - _%sym149433%_))))))) + _%table149595%_ + _%type149593%_ + _%sym149592%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym149431%_) + (lambda (_%sym149590%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym149431%_)) - (let ((__tmp152179 + (gxc#verbose '"clear-type " _%sym149590%_)) + (let ((__tmp152338 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp152179 _%sym149431%_)) - (let ((__tmp152180 + (hash-remove! __tmp152338 _%sym149590%_)) + (let ((__tmp152339 (##structure-ref (let () (declare (not safe)) @@ -3087,13 +3087,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp152180 _%sym149431%_)))) + (hash-remove! __tmp152339 _%sym149590%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t149399%_ - _%method149400%_ - _%sym149401%_ - _%rebind?149402%_) - (let ((__tmp152181 + (lambda (_%type-t149558%_ + _%method149559%_ + _%sym149560%_ + _%rebind?149561%_) + (let ((__tmp152340 (##structure-ref (let () (declare (not safe)) @@ -3102,109 +3102,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp152181 _%sym149401%_ '#t)) - (let ((_%klass149404%_ (gxc#optimizer-lookup-class _%type-t149399%_))) - (if _%klass149404%_ - (let* ((_%vtab149406%_ (gxc#!class-method-table _%klass149404%_)) - (_%$e149408%_ + (hash-put! __tmp152340 _%sym149560%_ '#t)) + (let ((_%klass149563%_ (gxc#optimizer-lookup-class _%type-t149558%_))) + (if _%klass149563%_ + (let* ((_%vtab149565%_ (gxc#!class-method-table _%klass149563%_)) + (_%$e149567%_ (let () (declare (not safe)) - (hash-get _%vtab149406%_ _%method149400%_)))) - (if _%$e149408%_ - ((lambda (_%existing149411%_) - (if _%rebind?149402%_ + (hash-get _%vtab149565%_ _%method149559%_)))) + (if _%$e149567%_ + ((lambda (_%existing149570%_) + (if _%rebind?149561%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t149399%_ + _%type-t149558%_ '" " - _%method149400%_)) + _%method149559%_)) (let () (declare (not safe)) (hash-put! - _%vtab149406%_ - _%method149400%_ - _%sym149401%_))) - (if (eq? _%existing149411%_ _%sym149401%_) + _%vtab149565%_ + _%method149559%_ + _%sym149560%_))) + (if (eq? _%existing149570%_ _%sym149560%_) '#!void - (let ((__tmp152182 + (let ((__tmp152341 (cons 'bind-method! - (cons _%type-t149399%_ - (cons _%method149400%_ - (cons _%sym149401%_ + (cons _%type-t149558%_ + (cons _%method149559%_ + (cons _%sym149560%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp152182 - _%method149400%_))))) - _%$e149408%_) + __tmp152341 + _%method149559%_))))) + _%$e149567%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t149399%_ + _%type-t149558%_ '" " - _%method149400%_ + _%method149559%_ '" => " - _%sym149401%_)) + _%sym149560%_)) (let () (declare (not safe)) (hash-put! - _%vtab149406%_ - _%method149400%_ - _%sym149401%_))))) + _%vtab149565%_ + _%method149559%_ + _%sym149560%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t149399%_)))))) + _%type-t149558%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t149420%_ _%method149421%_ _%sym149422%_) - (let ((_%rebind?149424%_ '#f)) + (lambda (_%type-t149579%_ _%method149580%_ _%sym149581%_) + (let ((_%rebind?149583%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t149420%_ - _%method149421%_ - _%sym149422%_ - _%rebind?149424%_)))) + _%type-t149579%_ + _%method149580%_ + _%sym149581%_ + _%rebind?149583%_)))) (define gxc#optimizer-declare-method! - (lambda _g152184_ - (let ((_g152183_ (let () (declare (not safe)) (##length _g152184_)))) - (cond ((let () (declare (not safe)) (##fx= _g152183_ 3)) - (apply gxc#optimizer-declare-method!__0 _g152184_)) - ((let () (declare (not safe)) (##fx= _g152183_ 4)) - (apply gxc#optimizer-declare-method!__% _g152184_)) + (lambda _g152343_ + (let ((_g152342_ (let () (declare (not safe)) (##length _g152343_)))) + (cond ((let () (declare (not safe)) (##fx= _g152342_ 3)) + (apply gxc#optimizer-declare-method!__0 _g152343_)) + ((let () (declare (not safe)) (##fx= _g152342_ 4)) + (apply gxc#optimizer-declare-method!__% _g152343_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g152184_)))))) + _g152343_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym149384%_) - (let ((_%$e149386%_ - (let ((__tmp152185 + (lambda (_%sym149543%_) + (let ((_%$e149545%_ + (let ((__tmp152344 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym149384%_ __tmp152185)))) - (if _%$e149386%_ - _%$e149386%_ - (let ((_%$e149395%_ - (let ((_%ht149388149390%_ + (agetq__0 _%sym149543%_ __tmp152344)))) + (if _%$e149545%_ + _%$e149545%_ + (let ((_%$e149554%_ + (let ((_%ht149547149549%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht149388149390%_ - (let ((_%ht149393%_ _%ht149388149390%_)) + (if _%ht149547149549%_ + (let ((_%ht149552%_ _%ht149547149549%_)) (declare (not safe)) - (hash-get _%ht149393%_ _%sym149384%_)) + (hash-get _%ht149552%_ _%sym149543%_)) '#f)))) - (if _%$e149395%_ - _%$e149395%_ - (let ((__tmp152186 + (if _%$e149554%_ + _%$e149554%_ + (let ((__tmp152345 (##structure-ref (let () (declare (not safe)) @@ -3213,24 +3213,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152186 _%sym149384%_)))))))) + (hash-get __tmp152345 _%sym149543%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym149376%_) - (let ((_%type149377149379%_ (gxc#optimizer-lookup-type _%sym149376%_))) - (if _%type149377149379%_ - (let ((_%type149382%_ _%type149377149379%_)) + (lambda (_%sym149535%_) + (let ((_%type149536149538%_ (gxc#optimizer-lookup-type _%sym149535%_))) + (if _%type149536149538%_ + (let ((_%type149541%_ _%type149536149538%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149382%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type149541%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type149382%_ '1 '#f '#f))) - _%type149382%_)) + (##unchecked-structure-ref _%type149541%_ '1 '#f '#f))) + _%type149541%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym149372%_) - (let ((_%table149374%_ + (lambda (_%sym149531%_) + (let ((_%table149533%_ (##structure-ref (let () (declare (not safe)) @@ -3239,34 +3239,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table149374%_ _%sym149372%_)))) + (hash-get _%table149533%_ _%sym149531%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where149357%_ _%sym149358%_) - (let ((_%$e149361%_ (gxc#optimizer-lookup-class _%sym149358%_))) - (if _%$e149361%_ - ((lambda (_%g149363149365%_) - (let ((_%val149368%_ _%g149363149365%_)) + (lambda (_%where149516%_ _%sym149517%_) + (let ((_%$e149520%_ (gxc#optimizer-lookup-class _%sym149517%_))) + (if _%$e149520%_ + ((lambda (_%g149522149524%_) + (let ((_%val149527%_ _%g149522149524%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val149368%_ + _%val149527%_ 'gxc#!class::t)) - _%val149368%_ + _%val149527%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val149368%_))))) - _%$e149361%_) + (error '"bad cast" gxc#!class::t _%val149527%_))))) + _%$e149520%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where149357%_ - _%sym149358%_)) + _%where149516%_ + _%sym149517%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass149355%_) - (let ((__tmp152187 + (lambda (_%klass149514%_) + (let ((__tmp152346 (##structure-ref (let () (declare (not safe)) @@ -3275,15 +3275,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152187 _%klass149355%_)))) + (hash-get __tmp152346 _%klass149514%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t149352%_ _%method149353%_) + (lambda (_%type-t149511%_ _%method149512%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t149352%_) - _%method149353%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t149511%_) + _%method149512%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym149350%_) - (let ((__tmp152188 + (lambda (_%sym149509%_) + (let ((__tmp152347 (##structure-ref (let () (declare (not safe)) @@ -3292,59 +3292,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152188 _%sym149350%_)))) + (hash-get __tmp152347 _%sym149509%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e149232%_ - (lambda (_%t149333%_) - (if (symbol? _%t149333%_) - (_%type-e149232%_ - (gxc#optimizer-lookup-type _%t149333%_)) + (letrec ((_%type-e149391%_ + (lambda (_%t149492%_) + (if (symbol? _%t149492%_) + (_%type-e149391%_ + (gxc#optimizer-lookup-type _%t149492%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t149492%_ 'gxc#!lambda::t)) - (_%__lambda-type149234%_ _%t149333%_) + (_%__lambda-type149393%_ _%t149492%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t149492%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type149236%_ _%t149333%_) + (_%__kw-lambda-type149395%_ _%t149492%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t149492%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type149238%_ - _%t149333%_) + (_%__kw-lambda-primary-type149397%_ + _%t149492%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t149492%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t149340%_ _%t149333%_)) + (let ((_%t149499%_ _%t149492%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149340%_ + _%t149499%_ '2 '#f '#f)) - (let ((__tmp152189 + (let ((__tmp152348 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149340%_ + _%t149499%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152189 + __tmp152348 '1 '#f '#f)) @@ -3352,31 +3352,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t149492%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t149333%_ + _%t149492%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type149233%_ - (lambda (_%t149321%_) - (let ((_%t149324%_ _%t149321%_)) - (_%__lambda-type149234%_ _%t149324%_)))) - (_%__lambda-type149234%_ - (lambda (_%t149309%_) - (let ((_%t149312%_ _%t149309%_)) + (_%lambda-type149392%_ + (lambda (_%t149480%_) + (let ((_%t149483%_ _%t149480%_)) + (_%__lambda-type149393%_ _%t149483%_)))) + (_%__lambda-type149393%_ + (lambda (_%t149468%_) + (let ((_%t149471%_ _%t149468%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t149312%_ '4 '#f '#f)) - (_%type-e149232%_ + (##unchecked-structure-ref _%t149471%_ '4 '#f '#f)) + (_%type-e149391%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149312%_ + _%t149471%_ '4 '#f '#f))) @@ -3384,56 +3384,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149312%_ + _%t149471%_ '2 '#f '#f)) - (let ((__tmp152190 + (let ((__tmp152349 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149312%_ + _%t149471%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152190 + __tmp152349 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type149235%_ - (lambda (_%t149297%_) - (let ((_%t149300%_ _%t149297%_)) - (_%__kw-lambda-type149236%_ _%t149300%_)))) - (_%__kw-lambda-type149236%_ - (lambda (_%t149285%_) - (let ((_%t149288%_ _%t149285%_)) - (_%type-e149232%_ + (_%kw-lambda-type149394%_ + (lambda (_%t149456%_) + (let ((_%t149459%_ _%t149456%_)) + (_%__kw-lambda-type149395%_ _%t149459%_)))) + (_%__kw-lambda-type149395%_ + (lambda (_%t149444%_) + (let ((_%t149447%_ _%t149444%_)) + (_%type-e149391%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149288%_ + _%t149447%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type149237%_ - (lambda (_%t149273%_) - (let ((_%t149276%_ _%t149273%_)) - (_%__kw-lambda-primary-type149238%_ _%t149276%_)))) - (_%__kw-lambda-primary-type149238%_ - (lambda (_%t149259%_) - (let ((_%t149262%_ _%t149259%_)) - (_%type-e149232%_ + (_%kw-lambda-primary-type149396%_ + (lambda (_%t149432%_) + (let ((_%t149435%_ _%t149432%_)) + (_%__kw-lambda-primary-type149397%_ _%t149435%_)))) + (_%__kw-lambda-primary-type149397%_ + (lambda (_%t149418%_) + (let ((_%t149421%_ _%t149418%_)) + (_%type-e149391%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149262%_ + _%t149421%_ '4 '#f '#f))))))) - (let* ((_%ht1149240%_ + (let* ((_%ht1149399%_ (##structure-ref (let () (declare (not safe)) @@ -3441,33 +3441,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2149242%_ + (_%ht2149401%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result149244%_ - (if _%ht1149240%_ - (let () (declare (not safe)) (hash->list _%ht1149240%_)) + (_%result149403%_ + (if _%ht1149399%_ + (let () (declare (not safe)) (hash->list _%ht1149399%_)) '())) - (_%result149246%_ - (if _%ht2149242%_ - (let ((__tmp152191 + (_%result149405%_ + (if _%ht2149401%_ + (let ((__tmp152350 (let () (declare (not safe)) - (hash->list _%ht2149242%_)))) + (hash->list _%ht2149401%_)))) (declare (not safe)) - (__foldl1 cons _%result149244%_ __tmp152191)) - _%result149244%_))) + (__foldl1 cons _%result149403%_ __tmp152350)) + _%result149403%_))) (for-each - (lambda (_%p149249%_) - (let* ((_%t149251%_ (cdr _%p149249%_)) - (_%tr149253%_ (_%type-e149232%_ _%t149251%_))) - (set-cdr! _%p149249%_ _%tr149253%_))) - _%result149246%_) + (lambda (_%p149408%_) + (let* ((_%t149410%_ (cdr _%p149408%_)) + (_%tr149412%_ (_%type-e149391%_ _%t149410%_))) + (set-cdr! _%p149408%_ _%tr149412%_))) + _%result149405%_) (list-sort - (lambda (_%a149256%_ _%b149257%_) - (let ((__tmp152193 (symbol->string (car _%a149256%_))) - (__tmp152192 (symbol->string (car _%b149257%_)))) + (lambda (_%a149415%_ _%b149416%_) + (let ((__tmp152352 (symbol->string (car _%a149415%_))) + (__tmp152351 (symbol->string (car _%b149416%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152343 '15 '#f '#f)) - (let ((__tmp152355 - (cons (cons 'super |gxc[1]#_g152356_|) - (cons (cons 'precedence-list |gxc[1]#_g152357_|) - (cons (cons 'slots |gxc[1]#_g152358_|) - (cons (cons 'fields |gxc[1]#_g152359_|) + (##unchecked-structure-set! __obj152243 __tmp152502 '15 '#f '#f)) + (let ((__tmp152514 + (cons (cons 'super |gxc[1]#_g152515_|) + (cons (cons 'precedence-list |gxc[1]#_g152516_|) + (cons (cons 'slots |gxc[1]#_g152517_|) + (cons (cons 'fields |gxc[1]#_g152518_|) (cons (cons 'constructor - |gxc[1]#_g152360_|) + |gxc[1]#_g152519_|) (cons (cons 'struct? - |gxc[1]#_g152361_|) + |gxc[1]#_g152520_|) (cons (cons 'final? - |gxc[1]#_g152362_|) + |gxc[1]#_g152521_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152363_|) - (cons (cons 'metaclass |gxc[1]#_g152364_|) - (cons (cons 'methods |gxc[1]#_g152365_|) - (cons (cons 'id |gxc[1]#_g152366_|) + |gxc[1]#_g152522_|) + (cons (cons 'metaclass |gxc[1]#_g152523_|) + (cons (cons 'methods |gxc[1]#_g152524_|) + (cons (cons 'id |gxc[1]#_g152525_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152355 '16 '#f '#f)) - (let ((__tmp152367 - (cons (cons 'super |gxc[1]#_g152368_|) - (cons (cons 'precedence-list |gxc[1]#_g152369_|) - (cons (cons 'slots |gxc[1]#_g152370_|) - (cons (cons 'fields |gxc[1]#_g152371_|) + (##unchecked-structure-set! __obj152243 __tmp152514 '16 '#f '#f)) + (let ((__tmp152526 + (cons (cons 'super |gxc[1]#_g152527_|) + (cons (cons 'precedence-list |gxc[1]#_g152528_|) + (cons (cons 'slots |gxc[1]#_g152529_|) + (cons (cons 'fields |gxc[1]#_g152530_|) (cons (cons 'constructor - |gxc[1]#_g152372_|) + |gxc[1]#_g152531_|) (cons (cons 'struct? - |gxc[1]#_g152373_|) + |gxc[1]#_g152532_|) (cons (cons 'final? - |gxc[1]#_g152374_|) + |gxc[1]#_g152533_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152375_|) - (cons (cons 'metaclass |gxc[1]#_g152376_|) - (cons (cons 'methods |gxc[1]#_g152377_|) - (cons (cons 'id |gxc[1]#_g152378_|) + |gxc[1]#_g152534_|) + (cons (cons 'metaclass |gxc[1]#_g152535_|) + (cons (cons 'methods |gxc[1]#_g152536_|) + (cons (cons 'id |gxc[1]#_g152537_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152367 '17 '#f '#f)) - (let ((__tmp152379 - (cons (cons 'super |gxc[1]#_g152380_|) - (cons (cons 'precedence-list |gxc[1]#_g152381_|) - (cons (cons 'slots |gxc[1]#_g152382_|) - (cons (cons 'fields |gxc[1]#_g152383_|) + (##unchecked-structure-set! __obj152243 __tmp152526 '17 '#f '#f)) + (let ((__tmp152538 + (cons (cons 'super |gxc[1]#_g152539_|) + (cons (cons 'precedence-list |gxc[1]#_g152540_|) + (cons (cons 'slots |gxc[1]#_g152541_|) + (cons (cons 'fields |gxc[1]#_g152542_|) (cons (cons 'constructor - |gxc[1]#_g152384_|) + |gxc[1]#_g152543_|) (cons (cons 'struct? - |gxc[1]#_g152385_|) + |gxc[1]#_g152544_|) (cons (cons 'final? - |gxc[1]#_g152386_|) + |gxc[1]#_g152545_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152387_|) - (cons (cons 'metaclass |gxc[1]#_g152388_|) - (cons (cons 'methods |gxc[1]#_g152389_|) - (cons (cons 'id |gxc[1]#_g152390_|) + |gxc[1]#_g152546_|) + (cons (cons 'metaclass |gxc[1]#_g152547_|) + (cons (cons 'methods |gxc[1]#_g152548_|) + (cons (cons 'id |gxc[1]#_g152549_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152379 '18 '#f '#f)) + (##unchecked-structure-set! __obj152243 __tmp152538 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152084 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152243 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152084 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152243 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152084 '() '20 '#f '#f)) - __obj152084)) + (##unchecked-structure-set! __obj152243 '() '20 '#f '#f)) + __obj152243)) (define |gxc[:0:]#!predicate| - (let ((__obj152085 + (let ((__obj152244 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152085 + __obj152244 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj152244 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152244 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '(id signature) '6 '#f '#f)) - (let ((__tmp152391 (cons |gxc[1]#_g152392_| '()))) + (##unchecked-structure-set! __obj152244 '(id signature) '6 '#f '#f)) + (let ((__tmp152550 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152391 '3 '#f '#f)) + (##unchecked-structure-set! __obj152244 __tmp152550 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152244 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152244 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152244 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 ':init! '11 '#f '#f)) - (let ((__tmp152393 |gxc[1]#_g152394_|)) + (##unchecked-structure-set! __obj152244 ':init! '11 '#f '#f)) + (let ((__tmp152552 |gxc[1]#_g152553_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152393 '12 '#f '#f)) - (let ((__tmp152395 |gxc[1]#_g152396_|)) + (##unchecked-structure-set! __obj152244 __tmp152552 '12 '#f '#f)) + (let ((__tmp152554 |gxc[1]#_g152555_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152395 '13 '#f '#f)) - (let ((__tmp152397 |gxc[1]#_g152398_|)) + (##unchecked-structure-set! __obj152244 __tmp152554 '13 '#f '#f)) + (let ((__tmp152556 |gxc[1]#_g152557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152397 '14 '#f '#f)) - (let ((__tmp152399 - (cons (cons 'signature |gxc[1]#_g152400_|) - (cons (cons 'id |gxc[1]#_g152401_|) '())))) + (##unchecked-structure-set! __obj152244 __tmp152556 '14 '#f '#f)) + (let ((__tmp152558 + (cons (cons 'signature |gxc[1]#_g152559_|) + (cons (cons 'id |gxc[1]#_g152560_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152399 '15 '#f '#f)) - (let ((__tmp152402 - (cons (cons 'signature |gxc[1]#_g152403_|) - (cons (cons 'id |gxc[1]#_g152404_|) '())))) + (##unchecked-structure-set! __obj152244 __tmp152558 '15 '#f '#f)) + (let ((__tmp152561 + (cons (cons 'signature |gxc[1]#_g152562_|) + (cons (cons 'id |gxc[1]#_g152563_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152402 '16 '#f '#f)) - (let ((__tmp152405 - (cons (cons 'signature |gxc[1]#_g152406_|) - (cons (cons 'id |gxc[1]#_g152407_|) '())))) + (##unchecked-structure-set! __obj152244 __tmp152561 '16 '#f '#f)) + (let ((__tmp152564 + (cons (cons 'signature |gxc[1]#_g152565_|) + (cons (cons 'id |gxc[1]#_g152566_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152405 '17 '#f '#f)) - (let ((__tmp152408 - (cons (cons 'signature |gxc[1]#_g152409_|) - (cons (cons 'id |gxc[1]#_g152410_|) '())))) + (##unchecked-structure-set! __obj152244 __tmp152564 '17 '#f '#f)) + (let ((__tmp152567 + (cons (cons 'signature |gxc[1]#_g152568_|) + (cons (cons 'id |gxc[1]#_g152569_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152408 '18 '#f '#f)) - (let ((__tmp152411 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152244 __tmp152567 '18 '#f '#f)) + (let ((__tmp152570 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152411 '19 '#f '#f)) + (##unchecked-structure-set! __obj152244 __tmp152570 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152244 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '() '20 '#f '#f)) - __obj152085)) + (##unchecked-structure-set! __obj152244 '() '20 '#f '#f)) + __obj152244)) (define |gxc[:0:]#!constructor| - (let ((__obj152086 + (let ((__obj152245 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152086 + __obj152245 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj152245 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152245 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '(id signature) '6 '#f '#f)) - (let ((__tmp152412 (cons |gxc[1]#_g152392_| '()))) + (##unchecked-structure-set! __obj152245 '(id signature) '6 '#f '#f)) + (let ((__tmp152571 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152412 '3 '#f '#f)) + (##unchecked-structure-set! __obj152245 __tmp152571 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152245 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152245 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152245 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 ':init! '11 '#f '#f)) - (let ((__tmp152413 |gxc[1]#_g152414_|)) + (##unchecked-structure-set! __obj152245 ':init! '11 '#f '#f)) + (let ((__tmp152572 |gxc[1]#_g152573_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152413 '12 '#f '#f)) - (let ((__tmp152415 |gxc[1]#_g152416_|)) + (##unchecked-structure-set! __obj152245 __tmp152572 '12 '#f '#f)) + (let ((__tmp152574 |gxc[1]#_g152575_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152415 '13 '#f '#f)) - (let ((__tmp152417 |gxc[1]#_g152418_|)) + (##unchecked-structure-set! __obj152245 __tmp152574 '13 '#f '#f)) + (let ((__tmp152576 |gxc[1]#_g152577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152417 '14 '#f '#f)) - (let ((__tmp152419 - (cons (cons 'signature |gxc[1]#_g152420_|) - (cons (cons 'id |gxc[1]#_g152421_|) '())))) + (##unchecked-structure-set! __obj152245 __tmp152576 '14 '#f '#f)) + (let ((__tmp152578 + (cons (cons 'signature |gxc[1]#_g152579_|) + (cons (cons 'id |gxc[1]#_g152580_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152419 '15 '#f '#f)) - (let ((__tmp152422 - (cons (cons 'signature |gxc[1]#_g152423_|) - (cons (cons 'id |gxc[1]#_g152424_|) '())))) + (##unchecked-structure-set! __obj152245 __tmp152578 '15 '#f '#f)) + (let ((__tmp152581 + (cons (cons 'signature |gxc[1]#_g152582_|) + (cons (cons 'id |gxc[1]#_g152583_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152422 '16 '#f '#f)) - (let ((__tmp152425 - (cons (cons 'signature |gxc[1]#_g152426_|) - (cons (cons 'id |gxc[1]#_g152427_|) '())))) + (##unchecked-structure-set! __obj152245 __tmp152581 '16 '#f '#f)) + (let ((__tmp152584 + (cons (cons 'signature |gxc[1]#_g152585_|) + (cons (cons 'id |gxc[1]#_g152586_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152425 '17 '#f '#f)) - (let ((__tmp152428 - (cons (cons 'signature |gxc[1]#_g152429_|) - (cons (cons 'id |gxc[1]#_g152430_|) '())))) + (##unchecked-structure-set! __obj152245 __tmp152584 '17 '#f '#f)) + (let ((__tmp152587 + (cons (cons 'signature |gxc[1]#_g152588_|) + (cons (cons 'id |gxc[1]#_g152589_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152428 '18 '#f '#f)) - (let ((__tmp152431 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152245 __tmp152587 '18 '#f '#f)) + (let ((__tmp152590 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152431 '19 '#f '#f)) + (##unchecked-structure-set! __obj152245 __tmp152590 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152245 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '() '20 '#f '#f)) - __obj152086)) + (##unchecked-structure-set! __obj152245 '() '20 '#f '#f)) + __obj152245)) (define |gxc[:0:]#!accessor| - (let ((__obj152087 + (let ((__obj152246 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152087 + __obj152246 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj152246 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152246 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152087 + __obj152246 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152432 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp152591 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152432 '3 '#f '#f)) + (##unchecked-structure-set! __obj152246 __tmp152591 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152246 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152246 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152246 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 ':init! '11 '#f '#f)) - (let ((__tmp152433 |gxc[1]#_g152434_|)) + (##unchecked-structure-set! __obj152246 ':init! '11 '#f '#f)) + (let ((__tmp152592 |gxc[1]#_g152593_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152433 '12 '#f '#f)) - (let ((__tmp152435 |gxc[1]#_g152436_|)) + (##unchecked-structure-set! __obj152246 __tmp152592 '12 '#f '#f)) + (let ((__tmp152594 |gxc[1]#_g152595_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152435 '13 '#f '#f)) - (let ((__tmp152437 |gxc[1]#_g152438_|)) + (##unchecked-structure-set! __obj152246 __tmp152594 '13 '#f '#f)) + (let ((__tmp152596 |gxc[1]#_g152597_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152437 '14 '#f '#f)) - (let ((__tmp152439 - (cons (cons 'slot |gxc[1]#_g152440_|) - (cons (cons 'checked? |gxc[1]#_g152441_|) - (cons (cons 'signature |gxc[1]#_g152442_|) - (cons (cons 'id |gxc[1]#_g152443_|) '())))))) + (##unchecked-structure-set! __obj152246 __tmp152596 '14 '#f '#f)) + (let ((__tmp152598 + (cons (cons 'slot |gxc[1]#_g152599_|) + (cons (cons 'checked? |gxc[1]#_g152600_|) + (cons (cons 'signature |gxc[1]#_g152601_|) + (cons (cons 'id |gxc[1]#_g152602_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152439 '15 '#f '#f)) - (let ((__tmp152444 - (cons (cons 'slot |gxc[1]#_g152445_|) - (cons (cons 'checked? |gxc[1]#_g152446_|) - (cons (cons 'signature |gxc[1]#_g152447_|) - (cons (cons 'id |gxc[1]#_g152448_|) '())))))) + (##unchecked-structure-set! __obj152246 __tmp152598 '15 '#f '#f)) + (let ((__tmp152603 + (cons (cons 'slot |gxc[1]#_g152604_|) + (cons (cons 'checked? |gxc[1]#_g152605_|) + (cons (cons 'signature |gxc[1]#_g152606_|) + (cons (cons 'id |gxc[1]#_g152607_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152444 '16 '#f '#f)) - (let ((__tmp152449 - (cons (cons 'slot |gxc[1]#_g152450_|) - (cons (cons 'checked? |gxc[1]#_g152451_|) - (cons (cons 'signature |gxc[1]#_g152452_|) - (cons (cons 'id |gxc[1]#_g152453_|) '())))))) + (##unchecked-structure-set! __obj152246 __tmp152603 '16 '#f '#f)) + (let ((__tmp152608 + (cons (cons 'slot |gxc[1]#_g152609_|) + (cons (cons 'checked? |gxc[1]#_g152610_|) + (cons (cons 'signature |gxc[1]#_g152611_|) + (cons (cons 'id |gxc[1]#_g152612_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152449 '17 '#f '#f)) - (let ((__tmp152454 - (cons (cons 'slot |gxc[1]#_g152455_|) - (cons (cons 'checked? |gxc[1]#_g152456_|) - (cons (cons 'signature |gxc[1]#_g152457_|) - (cons (cons 'id |gxc[1]#_g152458_|) '())))))) + (##unchecked-structure-set! __obj152246 __tmp152608 '17 '#f '#f)) + (let ((__tmp152613 + (cons (cons 'slot |gxc[1]#_g152614_|) + (cons (cons 'checked? |gxc[1]#_g152615_|) + (cons (cons 'signature |gxc[1]#_g152616_|) + (cons (cons 'id |gxc[1]#_g152617_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152454 '18 '#f '#f)) - (let ((__tmp152459 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152246 __tmp152613 '18 '#f '#f)) + (let ((__tmp152618 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152459 '19 '#f '#f)) + (##unchecked-structure-set! __obj152246 __tmp152618 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152246 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '() '20 '#f '#f)) - __obj152087)) + (##unchecked-structure-set! __obj152246 '() '20 '#f '#f)) + __obj152246)) (define |gxc[:0:]#!mutator| - (let ((__obj152088 + (let ((__obj152247 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152247 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj152247 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152247 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152088 + __obj152247 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152460 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp152619 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152460 '3 '#f '#f)) + (##unchecked-structure-set! __obj152247 __tmp152619 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152247 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152247 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152247 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 ':init! '11 '#f '#f)) - (let ((__tmp152461 |gxc[1]#_g152462_|)) + (##unchecked-structure-set! __obj152247 ':init! '11 '#f '#f)) + (let ((__tmp152620 |gxc[1]#_g152621_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152461 '12 '#f '#f)) - (let ((__tmp152463 |gxc[1]#_g152464_|)) + (##unchecked-structure-set! __obj152247 __tmp152620 '12 '#f '#f)) + (let ((__tmp152622 |gxc[1]#_g152623_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152463 '13 '#f '#f)) - (let ((__tmp152465 |gxc[1]#_g152466_|)) + (##unchecked-structure-set! __obj152247 __tmp152622 '13 '#f '#f)) + (let ((__tmp152624 |gxc[1]#_g152625_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152465 '14 '#f '#f)) - (let ((__tmp152467 - (cons (cons 'slot |gxc[1]#_g152468_|) - (cons (cons 'checked? |gxc[1]#_g152469_|) - (cons (cons 'signature |gxc[1]#_g152470_|) - (cons (cons 'id |gxc[1]#_g152471_|) '())))))) + (##unchecked-structure-set! __obj152247 __tmp152624 '14 '#f '#f)) + (let ((__tmp152626 + (cons (cons 'slot |gxc[1]#_g152627_|) + (cons (cons 'checked? |gxc[1]#_g152628_|) + (cons (cons 'signature |gxc[1]#_g152629_|) + (cons (cons 'id |gxc[1]#_g152630_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152467 '15 '#f '#f)) - (let ((__tmp152472 - (cons (cons 'slot |gxc[1]#_g152473_|) - (cons (cons 'checked? |gxc[1]#_g152474_|) - (cons (cons 'signature |gxc[1]#_g152475_|) - (cons (cons 'id |gxc[1]#_g152476_|) '())))))) + (##unchecked-structure-set! __obj152247 __tmp152626 '15 '#f '#f)) + (let ((__tmp152631 + (cons (cons 'slot |gxc[1]#_g152632_|) + (cons (cons 'checked? |gxc[1]#_g152633_|) + (cons (cons 'signature |gxc[1]#_g152634_|) + (cons (cons 'id |gxc[1]#_g152635_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152472 '16 '#f '#f)) - (let ((__tmp152477 - (cons (cons 'slot |gxc[1]#_g152478_|) - (cons (cons 'checked? |gxc[1]#_g152479_|) - (cons (cons 'signature |gxc[1]#_g152480_|) - (cons (cons 'id |gxc[1]#_g152481_|) '())))))) + (##unchecked-structure-set! __obj152247 __tmp152631 '16 '#f '#f)) + (let ((__tmp152636 + (cons (cons 'slot |gxc[1]#_g152637_|) + (cons (cons 'checked? |gxc[1]#_g152638_|) + (cons (cons 'signature |gxc[1]#_g152639_|) + (cons (cons 'id |gxc[1]#_g152640_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152477 '17 '#f '#f)) - (let ((__tmp152482 - (cons (cons 'slot |gxc[1]#_g152483_|) - (cons (cons 'checked? |gxc[1]#_g152484_|) - (cons (cons 'signature |gxc[1]#_g152485_|) - (cons (cons 'id |gxc[1]#_g152486_|) '())))))) + (##unchecked-structure-set! __obj152247 __tmp152636 '17 '#f '#f)) + (let ((__tmp152641 + (cons (cons 'slot |gxc[1]#_g152642_|) + (cons (cons 'checked? |gxc[1]#_g152643_|) + (cons (cons 'signature |gxc[1]#_g152644_|) + (cons (cons 'id |gxc[1]#_g152645_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152482 '18 '#f '#f)) - (let ((__tmp152487 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152247 __tmp152641 '18 '#f '#f)) + (let ((__tmp152646 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152487 '19 '#f '#f)) + (##unchecked-structure-set! __obj152247 __tmp152646 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152247 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '() '20 '#f '#f)) - __obj152088)) + (##unchecked-structure-set! __obj152247 '() '20 '#f '#f)) + __obj152247)) (define |gxc[:0:]#!interface| - (let ((__obj152089 + (let ((__obj152248 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152089 + __obj152248 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj152248 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj152248 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '(id methods) '6 '#f '#f)) - (let ((__tmp152488 (cons |gxc[1]#_g152235_| '()))) + (##unchecked-structure-set! __obj152248 '(id methods) '6 '#f '#f)) + (let ((__tmp152647 (cons |gxc[1]#_g152394_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152488 '3 '#f '#f)) + (##unchecked-structure-set! __obj152248 __tmp152647 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152248 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152248 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152248 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#f '11 '#f '#f)) - (let ((__tmp152489 |gxc[1]#_g152490_|)) + (##unchecked-structure-set! __obj152248 '#f '11 '#f '#f)) + (let ((__tmp152648 |gxc[1]#_g152649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152489 '12 '#f '#f)) - (let ((__tmp152491 |gxc[1]#_g152492_|)) + (##unchecked-structure-set! __obj152248 __tmp152648 '12 '#f '#f)) + (let ((__tmp152650 |gxc[1]#_g152651_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152491 '13 '#f '#f)) - (let ((__tmp152493 |gxc[1]#_g152494_|)) + (##unchecked-structure-set! __obj152248 __tmp152650 '13 '#f '#f)) + (let ((__tmp152652 |gxc[1]#_g152653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152493 '14 '#f '#f)) - (let ((__tmp152495 - (cons (cons 'methods |gxc[1]#_g152496_|) - (cons (cons 'id |gxc[1]#_g152497_|) '())))) + (##unchecked-structure-set! __obj152248 __tmp152652 '14 '#f '#f)) + (let ((__tmp152654 + (cons (cons 'methods |gxc[1]#_g152655_|) + (cons (cons 'id |gxc[1]#_g152656_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152495 '15 '#f '#f)) - (let ((__tmp152498 - (cons (cons 'methods |gxc[1]#_g152499_|) - (cons (cons 'id |gxc[1]#_g152500_|) '())))) + (##unchecked-structure-set! __obj152248 __tmp152654 '15 '#f '#f)) + (let ((__tmp152657 + (cons (cons 'methods |gxc[1]#_g152658_|) + (cons (cons 'id |gxc[1]#_g152659_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152498 '16 '#f '#f)) - (let ((__tmp152501 - (cons (cons 'methods |gxc[1]#_g152502_|) - (cons (cons 'id |gxc[1]#_g152503_|) '())))) + (##unchecked-structure-set! __obj152248 __tmp152657 '16 '#f '#f)) + (let ((__tmp152660 + (cons (cons 'methods |gxc[1]#_g152661_|) + (cons (cons 'id |gxc[1]#_g152662_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152501 '17 '#f '#f)) - (let ((__tmp152504 - (cons (cons 'methods |gxc[1]#_g152505_|) - (cons (cons 'id |gxc[1]#_g152506_|) '())))) + (##unchecked-structure-set! __obj152248 __tmp152660 '17 '#f '#f)) + (let ((__tmp152663 + (cons (cons 'methods |gxc[1]#_g152664_|) + (cons (cons 'id |gxc[1]#_g152665_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152504 '18 '#f '#f)) + (##unchecked-structure-set! __obj152248 __tmp152663 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152248 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152248 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '() '20 '#f '#f)) - __obj152089)) + (##unchecked-structure-set! __obj152248 '() '20 '#f '#f)) + __obj152248)) (define |gxc[:0:]#!lambda| - (let ((__obj152090 + (let ((__obj152249 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152249 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152249 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152249 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152249 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152507 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp152666 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152507 '3 '#f '#f)) + (##unchecked-structure-set! __obj152249 __tmp152666 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152249 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152249 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152249 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 ':init! '11 '#f '#f)) - (let ((__tmp152508 |gxc[1]#_g152509_|)) + (##unchecked-structure-set! __obj152249 ':init! '11 '#f '#f)) + (let ((__tmp152667 |gxc[1]#_g152668_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152508 '12 '#f '#f)) - (let ((__tmp152510 |gxc[1]#_g152511_|)) + (##unchecked-structure-set! __obj152249 __tmp152667 '12 '#f '#f)) + (let ((__tmp152669 |gxc[1]#_g152670_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152510 '13 '#f '#f)) - (let ((__tmp152512 |gxc[1]#_g152513_|)) + (##unchecked-structure-set! __obj152249 __tmp152669 '13 '#f '#f)) + (let ((__tmp152671 |gxc[1]#_g152672_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152512 '14 '#f '#f)) - (let ((__tmp152514 - (cons (cons 'arity |gxc[1]#_g152515_|) - (cons (cons 'dispatch |gxc[1]#_g152516_|) - (cons (cons 'inline |gxc[1]#_g152517_|) + (##unchecked-structure-set! __obj152249 __tmp152671 '14 '#f '#f)) + (let ((__tmp152673 + (cons (cons 'arity |gxc[1]#_g152674_|) + (cons (cons 'dispatch |gxc[1]#_g152675_|) + (cons (cons 'inline |gxc[1]#_g152676_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152518_|) + |gxc[1]#_g152677_|) (cons (cons 'signature - |gxc[1]#_g152519_|) + |gxc[1]#_g152678_|) (cons (cons 'id - |gxc[1]#_g152520_|) + |gxc[1]#_g152679_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152514 '15 '#f '#f)) - (let ((__tmp152521 - (cons (cons 'arity |gxc[1]#_g152522_|) - (cons (cons 'dispatch |gxc[1]#_g152523_|) - (cons (cons 'inline |gxc[1]#_g152524_|) + (##unchecked-structure-set! __obj152249 __tmp152673 '15 '#f '#f)) + (let ((__tmp152680 + (cons (cons 'arity |gxc[1]#_g152681_|) + (cons (cons 'dispatch |gxc[1]#_g152682_|) + (cons (cons 'inline |gxc[1]#_g152683_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152525_|) + |gxc[1]#_g152684_|) (cons (cons 'signature - |gxc[1]#_g152526_|) + |gxc[1]#_g152685_|) (cons (cons 'id - |gxc[1]#_g152527_|) + |gxc[1]#_g152686_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152521 '16 '#f '#f)) - (let ((__tmp152528 - (cons (cons 'arity |gxc[1]#_g152529_|) - (cons (cons 'dispatch |gxc[1]#_g152530_|) - (cons (cons 'inline |gxc[1]#_g152531_|) + (##unchecked-structure-set! __obj152249 __tmp152680 '16 '#f '#f)) + (let ((__tmp152687 + (cons (cons 'arity |gxc[1]#_g152688_|) + (cons (cons 'dispatch |gxc[1]#_g152689_|) + (cons (cons 'inline |gxc[1]#_g152690_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152532_|) + |gxc[1]#_g152691_|) (cons (cons 'signature - |gxc[1]#_g152533_|) + |gxc[1]#_g152692_|) (cons (cons 'id - |gxc[1]#_g152534_|) + |gxc[1]#_g152693_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152528 '17 '#f '#f)) - (let ((__tmp152535 - (cons (cons 'arity |gxc[1]#_g152536_|) - (cons (cons 'dispatch |gxc[1]#_g152537_|) - (cons (cons 'inline |gxc[1]#_g152538_|) + (##unchecked-structure-set! __obj152249 __tmp152687 '17 '#f '#f)) + (let ((__tmp152694 + (cons (cons 'arity |gxc[1]#_g152695_|) + (cons (cons 'dispatch |gxc[1]#_g152696_|) + (cons (cons 'inline |gxc[1]#_g152697_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152539_|) + |gxc[1]#_g152698_|) (cons (cons 'signature - |gxc[1]#_g152540_|) + |gxc[1]#_g152699_|) (cons (cons 'id - |gxc[1]#_g152541_|) + |gxc[1]#_g152700_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152535 '18 '#f '#f)) - (let ((__tmp152542 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152249 __tmp152694 '18 '#f '#f)) + (let ((__tmp152701 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152542 '19 '#f '#f)) + (##unchecked-structure-set! __obj152249 __tmp152701 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152249 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '() '20 '#f '#f)) - __obj152090)) + (##unchecked-structure-set! __obj152249 '() '20 '#f '#f)) + __obj152249)) (define |gxc[:0:]#!case-lambda| - (let ((__obj152091 + (let ((__obj152250 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152091 + __obj152250 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152250 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj152250 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152091 + __obj152250 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152543 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp152702 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152543 '3 '#f '#f)) + (##unchecked-structure-set! __obj152250 __tmp152702 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152250 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152250 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152250 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 ':init! '11 '#f '#f)) - (let ((__tmp152544 |gxc[1]#_g152545_|)) + (##unchecked-structure-set! __obj152250 ':init! '11 '#f '#f)) + (let ((__tmp152703 |gxc[1]#_g152704_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152544 '12 '#f '#f)) - (let ((__tmp152546 |gxc[1]#_g152547_|)) + (##unchecked-structure-set! __obj152250 __tmp152703 '12 '#f '#f)) + (let ((__tmp152705 |gxc[1]#_g152706_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152546 '13 '#f '#f)) - (let ((__tmp152548 |gxc[1]#_g152549_|)) + (##unchecked-structure-set! __obj152250 __tmp152705 '13 '#f '#f)) + (let ((__tmp152707 |gxc[1]#_g152708_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152548 '14 '#f '#f)) - (let ((__tmp152550 - (cons (cons 'clauses |gxc[1]#_g152551_|) - (cons (cons 'signature |gxc[1]#_g152552_|) - (cons (cons 'id |gxc[1]#_g152553_|) '()))))) + (##unchecked-structure-set! __obj152250 __tmp152707 '14 '#f '#f)) + (let ((__tmp152709 + (cons (cons 'clauses |gxc[1]#_g152710_|) + (cons (cons 'signature |gxc[1]#_g152711_|) + (cons (cons 'id |gxc[1]#_g152712_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152550 '15 '#f '#f)) - (let ((__tmp152554 - (cons (cons 'clauses |gxc[1]#_g152555_|) - (cons (cons 'signature |gxc[1]#_g152556_|) - (cons (cons 'id |gxc[1]#_g152557_|) '()))))) + (##unchecked-structure-set! __obj152250 __tmp152709 '15 '#f '#f)) + (let ((__tmp152713 + (cons (cons 'clauses |gxc[1]#_g152714_|) + (cons (cons 'signature |gxc[1]#_g152715_|) + (cons (cons 'id |gxc[1]#_g152716_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152554 '16 '#f '#f)) - (let ((__tmp152558 - (cons (cons 'clauses |gxc[1]#_g152559_|) - (cons (cons 'signature |gxc[1]#_g152560_|) - (cons (cons 'id |gxc[1]#_g152561_|) '()))))) + (##unchecked-structure-set! __obj152250 __tmp152713 '16 '#f '#f)) + (let ((__tmp152717 + (cons (cons 'clauses |gxc[1]#_g152718_|) + (cons (cons 'signature |gxc[1]#_g152719_|) + (cons (cons 'id |gxc[1]#_g152720_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152558 '17 '#f '#f)) - (let ((__tmp152562 - (cons (cons 'clauses |gxc[1]#_g152563_|) - (cons (cons 'signature |gxc[1]#_g152564_|) - (cons (cons 'id |gxc[1]#_g152565_|) '()))))) + (##unchecked-structure-set! __obj152250 __tmp152717 '17 '#f '#f)) + (let ((__tmp152721 + (cons (cons 'clauses |gxc[1]#_g152722_|) + (cons (cons 'signature |gxc[1]#_g152723_|) + (cons (cons 'id |gxc[1]#_g152724_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152562 '18 '#f '#f)) - (let ((__tmp152566 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152250 __tmp152721 '18 '#f '#f)) + (let ((__tmp152725 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152566 '19 '#f '#f)) + (##unchecked-structure-set! __obj152250 __tmp152725 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152250 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '() '20 '#f '#f)) - __obj152091)) + (##unchecked-structure-set! __obj152250 '() '20 '#f '#f)) + __obj152250)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj152092 + (let ((__obj152251 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152251 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152251 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152251 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152251 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp152567 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp152726 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152567 '3 '#f '#f)) + (##unchecked-structure-set! __obj152251 __tmp152726 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152251 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152251 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152251 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 ':init! '11 '#f '#f)) - (let ((__tmp152568 |gxc[1]#_g152569_|)) + (##unchecked-structure-set! __obj152251 ':init! '11 '#f '#f)) + (let ((__tmp152727 |gxc[1]#_g152728_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152568 '12 '#f '#f)) - (let ((__tmp152570 |gxc[1]#_g152571_|)) + (##unchecked-structure-set! __obj152251 __tmp152727 '12 '#f '#f)) + (let ((__tmp152729 |gxc[1]#_g152730_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152570 '13 '#f '#f)) - (let ((__tmp152572 |gxc[1]#_g152573_|)) + (##unchecked-structure-set! __obj152251 __tmp152729 '13 '#f '#f)) + (let ((__tmp152731 |gxc[1]#_g152732_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152572 '14 '#f '#f)) - (let ((__tmp152574 - (cons (cons 'table |gxc[1]#_g152575_|) - (cons (cons 'dispatch |gxc[1]#_g152576_|) - (cons (cons 'signature |gxc[1]#_g152577_|) - (cons (cons 'id |gxc[1]#_g152578_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152574 '15 '#f '#f)) - (let ((__tmp152579 - (cons (cons 'table |gxc[1]#_g152580_|) - (cons (cons 'dispatch |gxc[1]#_g152581_|) - (cons (cons 'signature |gxc[1]#_g152582_|) - (cons (cons 'id |gxc[1]#_g152583_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152579 '16 '#f '#f)) - (let ((__tmp152584 - (cons (cons 'table |gxc[1]#_g152585_|) - (cons (cons 'dispatch |gxc[1]#_g152586_|) - (cons (cons 'signature |gxc[1]#_g152587_|) - (cons (cons 'id |gxc[1]#_g152588_|) '())))))) + (##unchecked-structure-set! __obj152251 __tmp152731 '14 '#f '#f)) + (let ((__tmp152733 + (cons (cons 'table |gxc[1]#_g152734_|) + (cons (cons 'dispatch |gxc[1]#_g152735_|) + (cons (cons 'signature |gxc[1]#_g152736_|) + (cons (cons 'id |gxc[1]#_g152737_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152584 '17 '#f '#f)) - (let ((__tmp152589 - (cons (cons 'table |gxc[1]#_g152590_|) - (cons (cons 'dispatch |gxc[1]#_g152591_|) - (cons (cons 'signature |gxc[1]#_g152592_|) - (cons (cons 'id |gxc[1]#_g152593_|) '())))))) + (##unchecked-structure-set! __obj152251 __tmp152733 '15 '#f '#f)) + (let ((__tmp152738 + (cons (cons 'table |gxc[1]#_g152739_|) + (cons (cons 'dispatch |gxc[1]#_g152740_|) + (cons (cons 'signature |gxc[1]#_g152741_|) + (cons (cons 'id |gxc[1]#_g152742_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152589 '18 '#f '#f)) - (let ((__tmp152594 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152251 __tmp152738 '16 '#f '#f)) + (let ((__tmp152743 + (cons (cons 'table |gxc[1]#_g152744_|) + (cons (cons 'dispatch |gxc[1]#_g152745_|) + (cons (cons 'signature |gxc[1]#_g152746_|) + (cons (cons 'id |gxc[1]#_g152747_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152594 '19 '#f '#f)) + (##unchecked-structure-set! __obj152251 __tmp152743 '17 '#f '#f)) + (let ((__tmp152748 + (cons (cons 'table |gxc[1]#_g152749_|) + (cons (cons 'dispatch |gxc[1]#_g152750_|) + (cons (cons 'signature |gxc[1]#_g152751_|) + (cons (cons 'id |gxc[1]#_g152752_|) '())))))) + (declare (not safe)) + (##unchecked-structure-set! __obj152251 __tmp152748 '18 '#f '#f)) + (let ((__tmp152753 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj152251 __tmp152753 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152251 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '() '20 '#f '#f)) - __obj152092)) + (##unchecked-structure-set! __obj152251 '() '20 '#f '#f)) + __obj152251)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj152093 + (let ((__obj152252 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152093 + __obj152252 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152093 + __obj152252 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj152252 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152093 + __obj152252 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp152595 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp152754 (cons |gxc[1]#_g152551_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152595 '3 '#f '#f)) + (##unchecked-structure-set! __obj152252 __tmp152754 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152252 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152252 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152252 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 ':init! '11 '#f '#f)) - (let ((__tmp152596 |gxc[1]#_g152597_|)) + (##unchecked-structure-set! __obj152252 ':init! '11 '#f '#f)) + (let ((__tmp152755 |gxc[1]#_g152756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152596 '12 '#f '#f)) - (let ((__tmp152598 |gxc[1]#_g152599_|)) + (##unchecked-structure-set! __obj152252 __tmp152755 '12 '#f '#f)) + (let ((__tmp152757 |gxc[1]#_g152758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152598 '13 '#f '#f)) - (let ((__tmp152600 |gxc[1]#_g152601_|)) + (##unchecked-structure-set! __obj152252 __tmp152757 '13 '#f '#f)) + (let ((__tmp152759 |gxc[1]#_g152760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152600 '14 '#f '#f)) - (let ((__tmp152602 - (cons (cons 'keys |gxc[1]#_g152603_|) - (cons (cons 'main |gxc[1]#_g152604_|) - (cons (cons 'signature |gxc[1]#_g152605_|) - (cons (cons 'id |gxc[1]#_g152606_|) '())))))) + (##unchecked-structure-set! __obj152252 __tmp152759 '14 '#f '#f)) + (let ((__tmp152761 + (cons (cons 'keys |gxc[1]#_g152762_|) + (cons (cons 'main |gxc[1]#_g152763_|) + (cons (cons 'signature |gxc[1]#_g152764_|) + (cons (cons 'id |gxc[1]#_g152765_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152602 '15 '#f '#f)) - (let ((__tmp152607 - (cons (cons 'keys |gxc[1]#_g152608_|) - (cons (cons 'main |gxc[1]#_g152609_|) - (cons (cons 'signature |gxc[1]#_g152610_|) - (cons (cons 'id |gxc[1]#_g152611_|) '())))))) + (##unchecked-structure-set! __obj152252 __tmp152761 '15 '#f '#f)) + (let ((__tmp152766 + (cons (cons 'keys |gxc[1]#_g152767_|) + (cons (cons 'main |gxc[1]#_g152768_|) + (cons (cons 'signature |gxc[1]#_g152769_|) + (cons (cons 'id |gxc[1]#_g152770_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152607 '16 '#f '#f)) - (let ((__tmp152612 - (cons (cons 'keys |gxc[1]#_g152613_|) - (cons (cons 'main |gxc[1]#_g152614_|) - (cons (cons 'signature |gxc[1]#_g152615_|) - (cons (cons 'id |gxc[1]#_g152616_|) '())))))) + (##unchecked-structure-set! __obj152252 __tmp152766 '16 '#f '#f)) + (let ((__tmp152771 + (cons (cons 'keys |gxc[1]#_g152772_|) + (cons (cons 'main |gxc[1]#_g152773_|) + (cons (cons 'signature |gxc[1]#_g152774_|) + (cons (cons 'id |gxc[1]#_g152775_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152612 '17 '#f '#f)) - (let ((__tmp152617 - (cons (cons 'keys |gxc[1]#_g152618_|) - (cons (cons 'main |gxc[1]#_g152619_|) - (cons (cons 'signature |gxc[1]#_g152620_|) - (cons (cons 'id |gxc[1]#_g152621_|) '())))))) + (##unchecked-structure-set! __obj152252 __tmp152771 '17 '#f '#f)) + (let ((__tmp152776 + (cons (cons 'keys |gxc[1]#_g152777_|) + (cons (cons 'main |gxc[1]#_g152778_|) + (cons (cons 'signature |gxc[1]#_g152779_|) + (cons (cons 'id |gxc[1]#_g152780_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152617 '18 '#f '#f)) - (let ((__tmp152622 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152252 __tmp152776 '18 '#f '#f)) + (let ((__tmp152781 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152622 '19 '#f '#f)) + (##unchecked-structure-set! __obj152252 __tmp152781 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152252 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '() '20 '#f '#f)) - __obj152093)) + (##unchecked-structure-set! __obj152252 '() '20 '#f '#f)) + __obj152252)) (define |gxc[:0:]#!primitive| - (let ((__obj152094 + (let ((__obj152253 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152253 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj152253 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152253 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152253 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152253 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '11 '#f '#f)) - (let ((__tmp152623 |gxc[1]#_g152624_|)) + (##unchecked-structure-set! __obj152253 '#f '11 '#f '#f)) + (let ((__tmp152782 |gxc[1]#_g152783_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152094 __tmp152623 '12 '#f '#f)) - (let ((__tmp152625 |gxc[1]#_g152626_|)) + (##unchecked-structure-set! __obj152253 __tmp152782 '12 '#f '#f)) + (let ((__tmp152784 |gxc[1]#_g152785_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152094 __tmp152625 '13 '#f '#f)) - (let ((__tmp152627 |gxc[1]#_g152628_|)) + (##unchecked-structure-set! __obj152253 __tmp152784 '13 '#f '#f)) + (let ((__tmp152786 |gxc[1]#_g152787_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152094 __tmp152627 '14 '#f '#f)) + (##unchecked-structure-set! __obj152253 __tmp152786 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152253 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '20 '#f '#f)) - __obj152094)) + (##unchecked-structure-set! __obj152253 '() '20 '#f '#f)) + __obj152253)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj152095 + (let ((__obj152254 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152095 + __obj152254 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152095 + __obj152254 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152254 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '(id signature) '6 '#f '#f)) - (let ((__tmp152629 - (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152392_| '())))) + (##unchecked-structure-set! __obj152254 '(id signature) '6 '#f '#f)) + (let ((__tmp152788 + (cons |gxc[1]#_g152789_| (cons |gxc[1]#_g152551_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152629 '3 '#f '#f)) + (##unchecked-structure-set! __obj152254 __tmp152788 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152254 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152254 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152254 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 ':init! '11 '#f '#f)) - (let ((__tmp152631 |gxc[1]#_g152632_|)) + (##unchecked-structure-set! __obj152254 ':init! '11 '#f '#f)) + (let ((__tmp152790 |gxc[1]#_g152791_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152631 '12 '#f '#f)) - (let ((__tmp152633 |gxc[1]#_g152634_|)) + (##unchecked-structure-set! __obj152254 __tmp152790 '12 '#f '#f)) + (let ((__tmp152792 |gxc[1]#_g152793_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152633 '13 '#f '#f)) - (let ((__tmp152635 |gxc[1]#_g152636_|)) + (##unchecked-structure-set! __obj152254 __tmp152792 '13 '#f '#f)) + (let ((__tmp152794 |gxc[1]#_g152795_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152635 '14 '#f '#f)) - (let ((__tmp152637 - (cons (cons 'signature |gxc[1]#_g152638_|) - (cons (cons 'id |gxc[1]#_g152639_|) '())))) + (##unchecked-structure-set! __obj152254 __tmp152794 '14 '#f '#f)) + (let ((__tmp152796 + (cons (cons 'signature |gxc[1]#_g152797_|) + (cons (cons 'id |gxc[1]#_g152798_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152637 '15 '#f '#f)) - (let ((__tmp152640 - (cons (cons 'signature |gxc[1]#_g152641_|) - (cons (cons 'id |gxc[1]#_g152642_|) '())))) + (##unchecked-structure-set! __obj152254 __tmp152796 '15 '#f '#f)) + (let ((__tmp152799 + (cons (cons 'signature |gxc[1]#_g152800_|) + (cons (cons 'id |gxc[1]#_g152801_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152640 '16 '#f '#f)) - (let ((__tmp152643 - (cons (cons 'signature |gxc[1]#_g152644_|) - (cons (cons 'id |gxc[1]#_g152645_|) '())))) + (##unchecked-structure-set! __obj152254 __tmp152799 '16 '#f '#f)) + (let ((__tmp152802 + (cons (cons 'signature |gxc[1]#_g152803_|) + (cons (cons 'id |gxc[1]#_g152804_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152643 '17 '#f '#f)) - (let ((__tmp152646 - (cons (cons 'signature |gxc[1]#_g152647_|) - (cons (cons 'id |gxc[1]#_g152648_|) '())))) + (##unchecked-structure-set! __obj152254 __tmp152802 '17 '#f '#f)) + (let ((__tmp152805 + (cons (cons 'signature |gxc[1]#_g152806_|) + (cons (cons 'id |gxc[1]#_g152807_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152646 '18 '#f '#f)) - (let ((__tmp152649 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152254 __tmp152805 '18 '#f '#f)) + (let ((__tmp152808 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152649 '19 '#f '#f)) + (##unchecked-structure-set! __obj152254 __tmp152808 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152254 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '() '20 '#f '#f)) - __obj152095)) + (##unchecked-structure-set! __obj152254 '() '20 '#f '#f)) + __obj152254)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj152096 + (let ((__obj152255 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152255 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152255 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152255 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152255 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152650 - (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152651_| '())))) + (let ((__tmp152809 + (cons |gxc[1]#_g152789_| (cons |gxc[1]#_g152810_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152650 '3 '#f '#f)) + (##unchecked-structure-set! __obj152255 __tmp152809 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152255 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152255 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152255 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 ':init! '11 '#f '#f)) - (let ((__tmp152652 |gxc[1]#_g152653_|)) + (##unchecked-structure-set! __obj152255 ':init! '11 '#f '#f)) + (let ((__tmp152811 |gxc[1]#_g152812_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152652 '12 '#f '#f)) - (let ((__tmp152654 |gxc[1]#_g152655_|)) + (##unchecked-structure-set! __obj152255 __tmp152811 '12 '#f '#f)) + (let ((__tmp152813 |gxc[1]#_g152814_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152654 '13 '#f '#f)) - (let ((__tmp152656 |gxc[1]#_g152657_|)) + (##unchecked-structure-set! __obj152255 __tmp152813 '13 '#f '#f)) + (let ((__tmp152815 |gxc[1]#_g152816_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152656 '14 '#f '#f)) - (let ((__tmp152658 - (cons (cons 'arity |gxc[1]#_g152659_|) - (cons (cons 'dispatch |gxc[1]#_g152660_|) - (cons (cons 'inline |gxc[1]#_g152661_|) + (##unchecked-structure-set! __obj152255 __tmp152815 '14 '#f '#f)) + (let ((__tmp152817 + (cons (cons 'arity |gxc[1]#_g152818_|) + (cons (cons 'dispatch |gxc[1]#_g152819_|) + (cons (cons 'inline |gxc[1]#_g152820_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152662_|) + |gxc[1]#_g152821_|) (cons (cons 'signature - |gxc[1]#_g152663_|) + |gxc[1]#_g152822_|) (cons (cons 'id - |gxc[1]#_g152664_|) + |gxc[1]#_g152823_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152658 '15 '#f '#f)) - (let ((__tmp152665 - (cons (cons 'arity |gxc[1]#_g152666_|) - (cons (cons 'dispatch |gxc[1]#_g152667_|) - (cons (cons 'inline |gxc[1]#_g152668_|) + (##unchecked-structure-set! __obj152255 __tmp152817 '15 '#f '#f)) + (let ((__tmp152824 + (cons (cons 'arity |gxc[1]#_g152825_|) + (cons (cons 'dispatch |gxc[1]#_g152826_|) + (cons (cons 'inline |gxc[1]#_g152827_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152669_|) + |gxc[1]#_g152828_|) (cons (cons 'signature - |gxc[1]#_g152670_|) + |gxc[1]#_g152829_|) (cons (cons 'id - |gxc[1]#_g152671_|) + |gxc[1]#_g152830_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152665 '16 '#f '#f)) - (let ((__tmp152672 - (cons (cons 'arity |gxc[1]#_g152673_|) - (cons (cons 'dispatch |gxc[1]#_g152674_|) - (cons (cons 'inline |gxc[1]#_g152675_|) + (##unchecked-structure-set! __obj152255 __tmp152824 '16 '#f '#f)) + (let ((__tmp152831 + (cons (cons 'arity |gxc[1]#_g152832_|) + (cons (cons 'dispatch |gxc[1]#_g152833_|) + (cons (cons 'inline |gxc[1]#_g152834_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152676_|) + |gxc[1]#_g152835_|) (cons (cons 'signature - |gxc[1]#_g152677_|) + |gxc[1]#_g152836_|) (cons (cons 'id - |gxc[1]#_g152678_|) + |gxc[1]#_g152837_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152672 '17 '#f '#f)) - (let ((__tmp152679 - (cons (cons 'arity |gxc[1]#_g152680_|) - (cons (cons 'dispatch |gxc[1]#_g152681_|) - (cons (cons 'inline |gxc[1]#_g152682_|) + (##unchecked-structure-set! __obj152255 __tmp152831 '17 '#f '#f)) + (let ((__tmp152838 + (cons (cons 'arity |gxc[1]#_g152839_|) + (cons (cons 'dispatch |gxc[1]#_g152840_|) + (cons (cons 'inline |gxc[1]#_g152841_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152683_|) + |gxc[1]#_g152842_|) (cons (cons 'signature - |gxc[1]#_g152684_|) + |gxc[1]#_g152843_|) (cons (cons 'id - |gxc[1]#_g152685_|) + |gxc[1]#_g152844_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152679 '18 '#f '#f)) - (let ((__tmp152686 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152255 __tmp152838 '18 '#f '#f)) + (let ((__tmp152845 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152686 '19 '#f '#f)) + (##unchecked-structure-set! __obj152255 __tmp152845 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152255 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '() '20 '#f '#f)) - __obj152096)) + (##unchecked-structure-set! __obj152255 '() '20 '#f '#f)) + __obj152255)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj152097 + (let ((__obj152256 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152097 + __obj152256 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152097 + __obj152256 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152256 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152097 + __obj152256 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152687 - (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152688_| '())))) + (let ((__tmp152846 + (cons |gxc[1]#_g152789_| (cons |gxc[1]#_g152847_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152687 '3 '#f '#f)) + (##unchecked-structure-set! __obj152256 __tmp152846 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152256 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152256 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152256 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 ':init! '11 '#f '#f)) - (let ((__tmp152689 |gxc[1]#_g152690_|)) + (##unchecked-structure-set! __obj152256 ':init! '11 '#f '#f)) + (let ((__tmp152848 |gxc[1]#_g152849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152689 '12 '#f '#f)) - (let ((__tmp152691 |gxc[1]#_g152692_|)) + (##unchecked-structure-set! __obj152256 __tmp152848 '12 '#f '#f)) + (let ((__tmp152850 |gxc[1]#_g152851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152691 '13 '#f '#f)) - (let ((__tmp152693 |gxc[1]#_g152694_|)) + (##unchecked-structure-set! __obj152256 __tmp152850 '13 '#f '#f)) + (let ((__tmp152852 |gxc[1]#_g152853_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152693 '14 '#f '#f)) - (let ((__tmp152695 - (cons (cons 'clauses |gxc[1]#_g152696_|) - (cons (cons 'signature |gxc[1]#_g152697_|) - (cons (cons 'id |gxc[1]#_g152698_|) '()))))) + (##unchecked-structure-set! __obj152256 __tmp152852 '14 '#f '#f)) + (let ((__tmp152854 + (cons (cons 'clauses |gxc[1]#_g152855_|) + (cons (cons 'signature |gxc[1]#_g152856_|) + (cons (cons 'id |gxc[1]#_g152857_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152695 '15 '#f '#f)) - (let ((__tmp152699 - (cons (cons 'clauses |gxc[1]#_g152700_|) - (cons (cons 'signature |gxc[1]#_g152701_|) - (cons (cons 'id |gxc[1]#_g152702_|) '()))))) + (##unchecked-structure-set! __obj152256 __tmp152854 '15 '#f '#f)) + (let ((__tmp152858 + (cons (cons 'clauses |gxc[1]#_g152859_|) + (cons (cons 'signature |gxc[1]#_g152860_|) + (cons (cons 'id |gxc[1]#_g152861_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152699 '16 '#f '#f)) - (let ((__tmp152703 - (cons (cons 'clauses |gxc[1]#_g152704_|) - (cons (cons 'signature |gxc[1]#_g152705_|) - (cons (cons 'id |gxc[1]#_g152706_|) '()))))) + (##unchecked-structure-set! __obj152256 __tmp152858 '16 '#f '#f)) + (let ((__tmp152862 + (cons (cons 'clauses |gxc[1]#_g152863_|) + (cons (cons 'signature |gxc[1]#_g152864_|) + (cons (cons 'id |gxc[1]#_g152865_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152703 '17 '#f '#f)) - (let ((__tmp152707 - (cons (cons 'clauses |gxc[1]#_g152708_|) - (cons (cons 'signature |gxc[1]#_g152709_|) - (cons (cons 'id |gxc[1]#_g152710_|) '()))))) + (##unchecked-structure-set! __obj152256 __tmp152862 '17 '#f '#f)) + (let ((__tmp152866 + (cons (cons 'clauses |gxc[1]#_g152867_|) + (cons (cons 'signature |gxc[1]#_g152868_|) + (cons (cons 'id |gxc[1]#_g152869_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152707 '18 '#f '#f)) - (let ((__tmp152711 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj152256 __tmp152866 '18 '#f '#f)) + (let ((__tmp152870 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152711 '19 '#f '#f)) + (##unchecked-structure-set! __obj152256 __tmp152870 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152256 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '() '20 '#f '#f)) - __obj152097)))) + (##unchecked-structure-set! __obj152256 '() '20 '#f '#f)) + __obj152256)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index e1ef26713..2307ddb8b 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 1713631273) + (define gerbil/compiler/optimize-call::timestamp 1733687566) (begin (define gxc#::optimize-call::t - (let ((__tmp197148 (list gxc#::basic-xform::t)) - (__tmp197147 (cons (cons 'final: '#t) '()))) + (let ((__tmp197307 (list gxc#::basic-xform::t)) + (__tmp197306 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp197148 + __tmp197307 '() - __tmp197147 + __tmp197306 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args196425%_ - (apply make-instance gxc#::optimize-call::t _%$args196425%_))) + (lambda _%$args196584%_ + (apply make-instance gxc#::optimize-call::t _%$args196584%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp197149 + (let ((__tmp197308 (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 __tmp197149))) + (__make-promise __tmp197308))) (define gxc#apply-optimize-call - (lambda (_%stx196417%_) + (lambda (_%stx196576%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self196420%_ - (let ((__obj197139 + (let* ((_%self196579%_ + (let ((__obj197298 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj197139)) - (__tmp197150 + __obj197298)) + (__tmp197309 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196420%_ _%stx196417%_))))) + (gxc#compile-e__1 _%self196579%_ _%stx196576%_))))) (declare (not safe)) (__call-with-parameters - __tmp197150 + __tmp197309 gxc#current-compile-method - _%self196420%_)))) + _%self196579%_)))) (define gxc#::check-return-type::t - (let ((__tmp197152 (list gxc#::void::t)) - (__tmp197151 (cons (cons 'final: '#t) '()))) + (let ((__tmp197311 (list gxc#::void::t)) + (__tmp197310 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp197152 + __tmp197311 '() - __tmp197151 + __tmp197310 '#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 _%$args196414%_ - (apply make-instance gxc#::check-return-type::t _%$args196414%_))) + (lambda _%$args196573%_ + (apply make-instance gxc#::check-return-type::t _%$args196573%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp197153 + (let ((__tmp197312 (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 __tmp197153))) + (__make-promise __tmp197312))) (define gxc#apply-check-return-type - (lambda (_%stx196406%_) + (lambda (_%stx196565%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self196409%_ - (let ((__obj197141 + (let* ((_%self196568%_ + (let ((__obj197300 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj197141)) - (__tmp197154 + __obj197300)) + (__tmp197313 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196409%_ _%stx196406%_))))) + (gxc#compile-e__1 _%self196568%_ _%stx196565%_))))) (declare (not safe)) (__call-with-parameters - __tmp197154 + __tmp197313 gxc#current-compile-method - _%self196409%_)))) + _%self196568%_)))) (define gxc#optimize-call% - (lambda (_%self196007%_ _%stx196008%_) - (let* ((_%__stx196494196495%_ _%stx196008%_) - (_%g196011196057%_ + (lambda (_%self196166%_ _%stx196167%_) + (let* ((_%__stx196653196654%_ _%stx196167%_) + (_%g196170196216%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196494196495%_))))) - (let ((_%__kont196496196497%_ - (lambda (_%L196200%_ _%L196201%_) - (let* ((_%rator-id196221%_ + _%__stx196653196654%_))))) + (let ((_%__kont196655196656%_ + (lambda (_%L196359%_ _%L196360%_) + (let* ((_%rator-id196380%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L196201%_))) - (_%rator-type196223%_ + (gxc#identifier-symbol _%L196360%_))) + (_%rator-type196382%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id196221%_)))) - (if (or (not _%rator-type196223%_) + (gxc#optimizer-resolve-type _%rator-id196380%_)))) + (if (or (not _%rator-type196382%_) (eq? (##structure-ref - _%rator-type196223%_ + _%rator-type196382%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self196007%_ _%stx196008%_)) + (gxc#xform-call% _%self196166%_ _%stx196167%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196223%_ + _%rator-type196382%_ 'gxc#!procedure::t)) (let () - (let ((__tmp197155 + (let ((__tmp197314 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196223%_ + _%rator-type196382%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id196221%_ + _%rator-id196380%_ '" => " - _%rator-type196223%_ + _%rator-type196382%_ '" " - __tmp197155)) - (let* ((_%optimized196238%_ - (let ((__method197142 + __tmp197314)) + (let* ((_%optimized196397%_ + (let ((__method197301 (let () (declare (not safe)) (__method-ref - _%rator-type196223%_ + _%rator-type196382%_ 'optimize-call)))) - (if __method197142 - (let ((__tmp197156 - (let ((__tmp197157 - (lambda (_%g196230196233%_ + (if __method197301 + (let ((__tmp197315 + (let ((__tmp197316 + (lambda (_%g196389196392%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196231196235%_) - (cons _%g196230196233%_ _%g196231196235%_)))) + _%g196390196394%_) + (cons _%g196389196392%_ _%g196390196394%_)))) (declare (not safe)) - (__foldr1 __tmp197157 '() _%L196200%_)))) + (__foldr1 __tmp197316 '() _%L196359%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method197142 - _%rator-type196223%_ - _%self196007%_ - _%stx196008%_ - __tmp197156)) + (__method197301 + _%rator-type196382%_ + _%self196166%_ + _%stx196167%_ + __tmp197315)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type196223%_ + _%rator-type196382%_ 'optimize-call)) '#!void)))) - (_%__stx196442196443%_ - _%optimized196238%_) - (_%g196241196270%_ + (_%__stx196601196602%_ + _%optimized196397%_) + (_%g196400196429%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196442196443%_))))) - (let ((_%__kont196444196445%_ - (lambda (_%L196338%_ _%L196339%_) - (let* ((_%optimized-rator-id196366%_ + _%__stx196601196602%_))))) + (let ((_%__kont196603196604%_ + (lambda (_%L196497%_ _%L196498%_) + (let* ((_%optimized-rator-id196525%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L196339%_))) - (_%rator-type196371%_ - (let ((_%$e196368%_ + _%L196498%_))) + (_%rator-type196530%_ + (let ((_%$e196527%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id196366%_)))) - (if _%$e196368%_ - _%$e196368%_ - _%rator-type196223%_)))) + _%optimized-rator-id196525%_)))) + (if _%$e196527%_ + _%$e196527%_ + _%rator-type196382%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196371%_)) + _%rator-type196530%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id196366%_ + (##memq _%optimized-rator-id196525%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196371%_ + _%rator-type196530%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type196371%_)) + (gxc#!procedure-origin _%rator-type196530%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized196238%_ - (let ((__tmp197158 + _%optimized196397%_ + (let ((__tmp197317 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196339%_ '())) - (let ((__tmp197159 - (lambda (_%g196379196382%_ _%g196380196384%_) - (cons _%g196379196382%_ - _%g196380196384%_)))) + (cons _%L196498%_ '())) + (let ((__tmp197318 + (lambda (_%g196538196541%_ _%g196539196543%_) + (cons _%g196538196541%_ + _%g196539196543%_)))) (declare (not safe)) - (__foldr1 __tmp197159 '() _%L196338%_)))))) + (__foldr1 __tmp197318 '() _%L196497%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197158 - _%stx196008%_)))))) - (_%__kont196448196449%_ - (lambda () _%optimized196238%_))) - (let ((_%__match196491196492%_ - (lambda (_%e196245196282%_ - _%hd196246196285%_ - _%tl196247196287%_ - _%e196248196290%_ - _%hd196249196293%_ - _%tl196250196295%_ - _%e196251196298%_ - _%hd196252196301%_ - _%tl196253196303%_ - _%e196254196306%_ - _%hd196255196309%_ - _%tl196256196311%_ - _%__splice196446196447%_ - _%target196257196314%_ - _%tl196259196316%_) - (letrec ((_%loop196260196319%_ - (lambda (_%hd196258196322%_ - _%arg196264196324%_) + __tmp197317 + _%stx196167%_)))))) + (_%__kont196607196608%_ + (lambda () _%optimized196397%_))) + (let ((_%__match196650196651%_ + (lambda (_%e196404196441%_ + _%hd196405196444%_ + _%tl196406196446%_ + _%e196407196449%_ + _%hd196408196452%_ + _%tl196409196454%_ + _%e196410196457%_ + _%hd196411196460%_ + _%tl196412196462%_ + _%e196413196465%_ + _%hd196414196468%_ + _%tl196415196470%_ + _%__splice196605196606%_ + _%target196416196473%_ + _%tl196418196475%_) + (letrec ((_%loop196419196478%_ + (lambda (_%hd196417196481%_ + _%arg196423196483%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196258196322%_)) - (let ((_%e196261196327%_ + _%hd196417196481%_)) + (let ((_%e196420196486%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd196258196322%_)))) - (let ((_%lp-tl196263196332%_ + (gx#stx-e _%hd196417196481%_)))) + (let ((_%lp-tl196422196491%_ (let () (declare (not safe)) - (##cdr _%e196261196327%_))) - (_%lp-hd196262196330%_ + (##cdr _%e196420196486%_))) + (_%lp-hd196421196489%_ (let () (declare (not safe)) - (##car _%e196261196327%_)))) - (_%loop196260196319%_ - _%lp-tl196263196332%_ - (cons _%lp-hd196262196330%_ _%arg196264196324%_)))) - (let ((_%arg196265196335%_ (reverse _%arg196264196324%_))) - (_%__kont196444196445%_ - _%arg196265196335%_ - _%hd196255196309%_)))))) + (##car _%e196420196486%_)))) + (_%loop196419196478%_ + _%lp-tl196422196491%_ + (cons _%lp-hd196421196489%_ _%arg196423196483%_)))) + (let ((_%arg196424196494%_ (reverse _%arg196423196483%_))) + (_%__kont196603196604%_ + _%arg196424196494%_ + _%hd196414196468%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196260196319%_ - _%target196257196314%_ + (_%loop196419196478%_ + _%target196416196473%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx196442196443%_)) - (let ((_%e196245196282%_ + _%__stx196601196602%_)) + (let ((_%e196404196441%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196442196443%_)))) - (let ((_%tl196247196287%_ + _%__stx196601196602%_)))) + (let ((_%tl196406196446%_ (let () (declare (not safe)) - (##cdr _%e196245196282%_))) - (_%hd196246196285%_ + (##cdr _%e196404196441%_))) + (_%hd196405196444%_ (let () (declare (not safe)) - (##car _%e196245196282%_)))) + (##car _%e196404196441%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196246196285%_)) + _%hd196405196444%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd196246196285%_)) + _%hd196405196444%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196247196287%_)) - (let ((_%e196248196290%_ + _%tl196406196446%_)) + (let ((_%e196407196449%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl196247196287%_)))) - (let ((_%tl196250196295%_ + (gx#stx-e _%tl196406196446%_)))) + (let ((_%tl196409196454%_ (let () (declare (not safe)) - (##cdr _%e196248196290%_))) - (_%hd196249196293%_ + (##cdr _%e196407196449%_))) + (_%hd196408196452%_ (let () (declare (not safe)) - (##car _%e196248196290%_)))) + (##car _%e196407196449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196249196293%_)) - (let ((_%e196251196298%_ + (gx#stx-pair? _%hd196408196452%_)) + (let ((_%e196410196457%_ (let () (declare (not safe)) - (gx#stx-e _%hd196249196293%_)))) - (let ((_%tl196253196303%_ + (gx#stx-e _%hd196408196452%_)))) + (let ((_%tl196412196462%_ (let () (declare (not safe)) - (##cdr _%e196251196298%_))) - (_%hd196252196301%_ + (##cdr _%e196410196457%_))) + (_%hd196411196460%_ (let () (declare (not safe)) - (##car _%e196251196298%_)))) + (##car _%e196410196457%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd196252196301%_)) + (gx#identifier? _%hd196411196460%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd196252196301%_)) + (gx#stx-eq? '%#ref _%hd196411196460%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196253196303%_)) - (let ((_%e196254196306%_ + (gx#stx-pair? _%tl196412196462%_)) + (let ((_%e196413196465%_ (let () (declare (not safe)) (gx#stx-e - _%tl196253196303%_)))) - (let ((_%tl196256196311%_ + _%tl196412196462%_)))) + (let ((_%tl196415196470%_ (let () (declare (not safe)) - (##cdr _%e196254196306%_))) - (_%hd196255196309%_ + (##cdr _%e196413196465%_))) + (_%hd196414196468%_ (let () (declare (not safe)) - (##car _%e196254196306%_)))) + (##car _%e196413196465%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196256196311%_)) + _%tl196415196470%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196250196295%_)) - (let ((_%__splice196446196447%_ + _%tl196409196454%_)) + (let ((_%__splice196605196606%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196250196295%_ + _%tl196409196454%_ '0)))) - (let ((_%tl196259196316%_ + (let ((_%tl196418196475%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice196446196447%_ '1))) - (_%target196257196314%_ + (##vector-ref _%__splice196605196606%_ '1))) + (_%target196416196473%_ (let () (declare (not safe)) - (##vector-ref _%__splice196446196447%_ '0)))) + (##vector-ref _%__splice196605196606%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196259196316%_)) - (_%__match196491196492%_ - _%e196245196282%_ - _%hd196246196285%_ - _%tl196247196287%_ - _%e196248196290%_ - _%hd196249196293%_ - _%tl196250196295%_ - _%e196251196298%_ - _%hd196252196301%_ - _%tl196253196303%_ - _%e196254196306%_ - _%hd196255196309%_ - _%tl196256196311%_ - _%__splice196446196447%_ - _%target196257196314%_ - _%tl196259196316%_) - (_%__kont196448196449%_)))) + (gx#stx-null? _%tl196418196475%_)) + (_%__match196650196651%_ + _%e196404196441%_ + _%hd196405196444%_ + _%tl196406196446%_ + _%e196407196449%_ + _%hd196408196452%_ + _%tl196409196454%_ + _%e196410196457%_ + _%hd196411196460%_ + _%tl196412196462%_ + _%e196413196465%_ + _%hd196414196468%_ + _%tl196415196470%_ + _%__splice196605196606%_ + _%target196416196473%_ + _%tl196418196475%_) + (_%__kont196607196608%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196448196449%_)) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)) - (_%__kont196448196449%_)) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)) + (_%__kont196607196608%_)) + (_%__kont196607196608%_)))) + (_%__kont196607196608%_)) + (_%__kont196607196608%_)) + (_%__kont196607196608%_)))) + (_%__kont196607196608%_)))) + (_%__kont196607196608%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196448196449%_)) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)))))) + (_%__kont196607196608%_)) + (_%__kont196607196608%_)))) + (_%__kont196607196608%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196223%_ + _%rator-type196382%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196223%_ + _%rator-type196382%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp197160 + (let ((__tmp197319 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196201%_ + (cons _%L196360%_ '())) - (map (lambda (_%g196390196392%_) + (map (lambda (_%g196549196551%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196007%_ - _%g196390196392%_))) - (let ((__tmp197161 - (lambda (_%g196394196397%_ + _%self196166%_ + _%g196549196551%_))) + (let ((__tmp197320 + (lambda (_%g196553196556%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196395196399%_) - (cons _%g196394196397%_ _%g196395196399%_)))) + _%g196554196558%_) + (cons _%g196553196556%_ _%g196554196558%_)))) (declare (not safe)) - (__foldr1 __tmp197161 '() _%L196200%_))))))) + (__foldr1 __tmp197320 '() _%L196359%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197160 - _%stx196008%_)) + __tmp197319 + _%stx196167%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196008%_ - _%rator-type196223%_)))))))) - (_%__kont196500196501%_ - (lambda (_%L196102%_ _%L196103%_) - (let ((_%rator-type196120%_ + _%stx196167%_ + _%rator-type196382%_)))))))) + (_%__kont196659196660%_ + (lambda (_%L196261%_ _%L196262%_) + (let ((_%rator-type196279%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L196103%_)))) - (if (and _%rator-type196120%_ + (gxc#apply-basic-expression-type _%L196262%_)))) + (if (and _%rator-type196279%_ (eq? (##structure-ref - _%rator-type196120%_ + _%rator-type196279%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196120%_)) + _%rator-type196279%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196120%_ + _%rator-type196279%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type196120%_)) + _%rator-type196279%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp197162 + (let ((__tmp197321 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self196007%_ - _%L196103%_)) - (map (lambda (_%g196122196124%_) + _%self196166%_ + _%L196262%_)) + (map (lambda (_%g196281196283%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196007%_ - _%g196122196124%_))) - (let ((__tmp197163 - (lambda (_%g196126196129%_ + _%self196166%_ + _%g196281196283%_))) + (let ((__tmp197322 + (lambda (_%g196285196288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196127196131%_) - (cons _%g196126196129%_ _%g196127196131%_)))) + _%g196286196290%_) + (cons _%g196285196288%_ _%g196286196290%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197163 + __tmp197322 '() - _%L196102%_))))))) + _%L196261%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197162 _%stx196008%_)) - (if (or (not _%rator-type196120%_) - (let ((__tmp197164 + (gxc#xform-wrap-source __tmp197321 _%stx196167%_)) + (if (or (not _%rator-type196279%_) + (let ((__tmp197323 (##structure-ref - _%rator-type196120%_ + _%rator-type196279%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp197164 '(t procedure)))) + (##memq __tmp197323 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self196007%_ _%stx196008%_)) + (gxc#xform-call% _%self196166%_ _%stx196167%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196008%_ - _%rator-type196120%_)))))))) - (let* ((_%__match196561196562%_ - (lambda (_%e196038196062%_ - _%hd196039196065%_ - _%tl196040196067%_ - _%e196041196070%_ - _%hd196042196073%_ - _%tl196043196075%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) - (letrec ((_%loop196047196083%_ - (lambda (_%hd196045196086%_ - _%rand196051196088%_) + _%stx196167%_ + _%rator-type196279%_)))))))) + (let* ((_%__match196720196721%_ + (lambda (_%e196197196221%_ + _%hd196198196224%_ + _%tl196199196226%_ + _%e196200196229%_ + _%hd196201196232%_ + _%tl196202196234%_ + _%__splice196661196662%_ + _%target196203196237%_ + _%tl196205196239%_) + (letrec ((_%loop196206196242%_ + (lambda (_%hd196204196245%_ + _%rand196210196247%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196045196086%_)) - (let ((_%e196048196091%_ + (gx#stx-pair? _%hd196204196245%_)) + (let ((_%e196207196250%_ (let () (declare (not safe)) - (gx#stx-e _%hd196045196086%_)))) - (let ((_%lp-tl196050196096%_ + (gx#stx-e _%hd196204196245%_)))) + (let ((_%lp-tl196209196255%_ (let () (declare (not safe)) - (##cdr _%e196048196091%_))) - (_%lp-hd196049196094%_ + (##cdr _%e196207196250%_))) + (_%lp-hd196208196253%_ (let () (declare (not safe)) - (##car _%e196048196091%_)))) - (_%loop196047196083%_ - _%lp-tl196050196096%_ - (cons _%lp-hd196049196094%_ - _%rand196051196088%_)))) - (let ((_%rand196052196099%_ - (reverse _%rand196051196088%_))) - (_%__kont196500196501%_ - _%rand196052196099%_ - _%hd196042196073%_)))))) - (_%loop196047196083%_ _%target196044196078%_ '())))) - (_%__match196541196542%_ - (lambda (_%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%e196021196160%_ - _%hd196022196163%_ - _%tl196023196165%_ - _%e196024196168%_ - _%hd196025196171%_ - _%tl196026196173%_ - _%__splice196498196499%_ - _%target196027196176%_ - _%tl196029196178%_) - (letrec ((_%loop196030196181%_ - (lambda (_%hd196028196184%_ - _%rand196034196186%_) + (##car _%e196207196250%_)))) + (_%loop196206196242%_ + _%lp-tl196209196255%_ + (cons _%lp-hd196208196253%_ + _%rand196210196247%_)))) + (let ((_%rand196211196258%_ + (reverse _%rand196210196247%_))) + (_%__kont196659196660%_ + _%rand196211196258%_ + _%hd196201196232%_)))))) + (_%loop196206196242%_ _%target196203196237%_ '())))) + (_%__match196700196701%_ + (lambda (_%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%e196180196319%_ + _%hd196181196322%_ + _%tl196182196324%_ + _%e196183196327%_ + _%hd196184196330%_ + _%tl196185196332%_ + _%__splice196657196658%_ + _%target196186196335%_ + _%tl196188196337%_) + (letrec ((_%loop196189196340%_ + (lambda (_%hd196187196343%_ + _%rand196193196345%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196028196184%_)) - (let ((_%e196031196189%_ + (gx#stx-pair? _%hd196187196343%_)) + (let ((_%e196190196348%_ (let () (declare (not safe)) - (gx#stx-e _%hd196028196184%_)))) - (let ((_%lp-tl196033196194%_ + (gx#stx-e _%hd196187196343%_)))) + (let ((_%lp-tl196192196353%_ (let () (declare (not safe)) - (##cdr _%e196031196189%_))) - (_%lp-hd196032196192%_ + (##cdr _%e196190196348%_))) + (_%lp-hd196191196351%_ (let () (declare (not safe)) - (##car _%e196031196189%_)))) - (_%loop196030196181%_ - _%lp-tl196033196194%_ - (cons _%lp-hd196032196192%_ - _%rand196034196186%_)))) - (let ((_%rand196035196197%_ - (reverse _%rand196034196186%_))) - (_%__kont196496196497%_ - _%rand196035196197%_ - _%hd196025196171%_)))))) - (_%loop196030196181%_ _%target196027196176%_ '()))))) + (##car _%e196190196348%_)))) + (_%loop196189196340%_ + _%lp-tl196192196353%_ + (cons _%lp-hd196191196351%_ + _%rand196193196345%_)))) + (let ((_%rand196194196356%_ + (reverse _%rand196193196345%_))) + (_%__kont196655196656%_ + _%rand196194196356%_ + _%hd196184196330%_)))))) + (_%loop196189196340%_ _%target196186196335%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196494196495%_)) - (let ((_%e196015196144%_ + (gx#stx-pair? _%__stx196653196654%_)) + (let ((_%e196174196303%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196494196495%_)))) - (let ((_%tl196017196149%_ + (gx#stx-e _%__stx196653196654%_)))) + (let ((_%tl196176196308%_ (let () (declare (not safe)) - (##cdr _%e196015196144%_))) - (_%hd196016196147%_ + (##cdr _%e196174196303%_))) + (_%hd196175196306%_ (let () (declare (not safe)) - (##car _%e196015196144%_)))) + (##car _%e196174196303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196017196149%_)) - (let ((_%e196018196152%_ + (gx#stx-pair? _%tl196176196308%_)) + (let ((_%e196177196311%_ (let () (declare (not safe)) - (gx#stx-e _%tl196017196149%_)))) - (let ((_%tl196020196157%_ + (gx#stx-e _%tl196176196308%_)))) + (let ((_%tl196179196316%_ (let () (declare (not safe)) - (##cdr _%e196018196152%_))) - (_%hd196019196155%_ + (##cdr _%e196177196311%_))) + (_%hd196178196314%_ (let () (declare (not safe)) - (##car _%e196018196152%_)))) + (##car _%e196177196311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196019196155%_)) - (let ((_%e196021196160%_ + (gx#stx-pair? _%hd196178196314%_)) + (let ((_%e196180196319%_ (let () (declare (not safe)) - (gx#stx-e _%hd196019196155%_)))) - (let ((_%tl196023196165%_ + (gx#stx-e _%hd196178196314%_)))) + (let ((_%tl196182196324%_ (let () (declare (not safe)) - (##cdr _%e196021196160%_))) - (_%hd196022196163%_ + (##cdr _%e196180196319%_))) + (_%hd196181196322%_ (let () (declare (not safe)) - (##car _%e196021196160%_)))) + (##car _%e196180196319%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196022196163%_)) + _%hd196181196322%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd196022196163%_)) + _%hd196181196322%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196023196165%_)) - (let ((_%e196024196168%_ + _%tl196182196324%_)) + (let ((_%e196183196327%_ (let () (declare (not safe)) (gx#stx-e - _%tl196023196165%_)))) - (let ((_%tl196026196173%_ + _%tl196182196324%_)))) + (let ((_%tl196185196332%_ (let () (declare (not safe)) - (##cdr _%e196024196168%_))) - (_%hd196025196171%_ + (##cdr _%e196183196327%_))) + (_%hd196184196330%_ (let () (declare (not safe)) - (##car _%e196024196168%_)))) + (##car _%e196183196327%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196026196173%_)) + _%tl196185196332%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl196020196157%_)) - (let ((_%__splice196498196499%_ + (gx#stx-pair/null? _%tl196179196316%_)) + (let ((_%__splice196657196658%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl196179196316%_ '0)))) - (let ((_%tl196029196178%_ + (let ((_%tl196188196337%_ (let () (declare (not safe)) - (##vector-ref _%__splice196498196499%_ '1))) - (_%target196027196176%_ + (##vector-ref _%__splice196657196658%_ '1))) + (_%target196186196335%_ (let () (declare (not safe)) - (##vector-ref _%__splice196498196499%_ '0)))) + (##vector-ref _%__splice196657196658%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196029196178%_)) - (_%__match196541196542%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%e196021196160%_ - _%hd196022196163%_ - _%tl196023196165%_ - _%e196024196168%_ - _%hd196025196171%_ - _%tl196026196173%_ - _%__splice196498196499%_ - _%target196027196176%_ - _%tl196029196178%_) + (gx#stx-null? _%tl196188196337%_)) + (_%__match196700196701%_ + _%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%e196180196319%_ + _%hd196181196322%_ + _%tl196182196324%_ + _%e196183196327%_ + _%hd196184196330%_ + _%tl196185196332%_ + _%__splice196657196658%_ + _%target196186196335%_ + _%tl196188196337%_) (let () (declare (not safe)) - (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_))) + (_%g196170196216%_))))) + (let () (declare (not safe)) (_%g196170196216%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + (gx#stx-pair/null? _%tl196179196316%_)) + (let ((_%__splice196661196662%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl196179196316%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl196205196239%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '1))) - (_%target196044196078%_ + (##vector-ref _%__splice196661196662%_ '1))) + (_%target196203196237%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '0)))) + (##vector-ref _%__splice196661196662%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + (gx#stx-null? _%tl196205196239%_)) + (_%__match196720196721%_ + _%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%__splice196661196662%_ + _%target196203196237%_ + _%tl196205196239%_) (let () (declare (not safe)) - (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_)))))) + (_%g196170196216%_))))) + (let () (declare (not safe)) (_%g196170196216%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + _%tl196179196316%_)) + (let ((_%__splice196661196662%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl196020196157%_ '0)))) - (let ((_%tl196046196080%_ + (gx#syntax-split-splice _%tl196179196316%_ '0)))) + (let ((_%tl196205196239%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '1))) - (_%target196044196078%_ + (##vector-ref _%__splice196661196662%_ '1))) + (_%target196203196237%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '0)))) + (##vector-ref _%__splice196661196662%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) - (let () (declare (not safe)) (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_)))) + (gx#stx-null? _%tl196205196239%_)) + (_%__match196720196721%_ + _%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%__splice196661196662%_ + _%target196203196237%_ + _%tl196205196239%_) + (let () (declare (not safe)) (_%g196170196216%_))))) + (let () (declare (not safe)) (_%g196170196216%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + _%tl196179196316%_)) + (let ((_%__splice196661196662%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl196179196316%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl196205196239%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice196661196662%_ '1))) - (_%target196044196078%_ + (_%target196203196237%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice196661196662%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + _%tl196205196239%_)) + (_%__match196720196721%_ + _%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%__splice196661196662%_ + _%target196203196237%_ + _%tl196205196239%_) (let () (declare (not safe)) - (_%g196011196057%_))))) + (_%g196170196216%_))))) (let () (declare (not safe)) - (_%g196011196057%_)))) + (_%g196170196216%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + _%tl196179196316%_)) + (let ((_%__splice196661196662%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl196179196316%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl196205196239%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice196661196662%_ '1))) - (_%target196044196078%_ + (_%target196203196237%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice196661196662%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + _%tl196205196239%_)) + (_%__match196720196721%_ + _%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%__splice196661196662%_ + _%target196203196237%_ + _%tl196205196239%_) (let () (declare (not safe)) - (_%g196011196057%_))))) + (_%g196170196216%_))))) (let () (declare (not safe)) - (_%g196011196057%_)))))) + (_%g196170196216%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + (gx#stx-pair/null? _%tl196179196316%_)) + (let ((_%__splice196661196662%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl196179196316%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl196205196239%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice196661196662%_ '1))) - (_%target196044196078%_ + (_%target196203196237%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice196661196662%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + _%tl196205196239%_)) + (_%__match196720196721%_ + _%e196174196303%_ + _%hd196175196306%_ + _%tl196176196308%_ + _%e196177196311%_ + _%hd196178196314%_ + _%tl196179196316%_ + _%__splice196661196662%_ + _%target196203196237%_ + _%tl196205196239%_) (let () (declare (not safe)) - (_%g196011196057%_))))) + (_%g196170196216%_))))) (let () (declare (not safe)) - (_%g196011196057%_)))))) - (let () (declare (not safe)) (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_)))))))) + (_%g196170196216%_)))))) + (let () (declare (not safe)) (_%g196170196216%_))))) + (let () (declare (not safe)) (_%g196170196216%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self192386195967%_ _%ctx195969%_ _%stx195970%_ _%args195971%_) - (let* ((_%self195973%_ _%self192386195967%_) - (_%self195975%_ _%self195973%_)) - (if (let ((__method197143 + (lambda (_%self192545196126%_ _%ctx196128%_ _%stx196129%_ _%args196130%_) + (let* ((_%self196132%_ _%self192545196126%_) + (_%self196134%_ _%self196132%_)) + (if (let ((__method197302 (let () (declare (not safe)) - (__method-ref _%self195975%_ 'check-arguments)))) - (if __method197143 + (__method-ref _%self196134%_ 'check-arguments)))) + (if __method197302 (let () (declare (not safe)) - (__method197143 - _%self195975%_ - _%ctx195969%_ - _%stx195970%_ - _%args195971%_)) + (__method197302 + _%self196134%_ + _%ctx196128%_ + _%stx196129%_ + _%args196130%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self195975%_ + _%self196134%_ 'check-arguments)) '#!void))) - (let* ((_%signature195985%_ + (let* ((_%signature196144%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self195975%_ '2 '#f '#f))) - (_%signature195987%_ _%signature195985%_) - (_%$e195997%_ - (if _%signature195987%_ + (##unchecked-structure-ref _%self196134%_ '2 '#f '#f))) + (_%signature196146%_ _%signature196144%_) + (_%$e196156%_ + (if _%signature196146%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195987%_ + _%signature196146%_ '4 '#f '#f)) '#f))) - (if _%$e195997%_ - ((lambda (_%unchecked196000%_) + (if _%$e196156%_ + ((lambda (_%unchecked196159%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked196000%_)) - (let ((__tmp197165 + (gxc#symbol-in-local-scope? _%unchecked196159%_)) + (let ((__tmp197324 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196000%_ + (cons _%unchecked196159%_ '())) - (map (lambda (_%g196001196003%_) + (map (lambda (_%g196160196162%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195969%_ - _%g196001196003%_))) - _%args195971%_))))) + _%ctx196128%_ + _%g196160196162%_))) + _%args196130%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197165 - _%stx195970%_ - _%ctx195969%_)) + __tmp197324 + _%stx196129%_ + _%ctx196128%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) - _%$e195997%_) + (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))) + _%$e196156%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) + (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))))) + (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass196427 __method-table196428) - (let ((__check-arguments196429 - (let ((__tmp197166 + (lambda (__klass196586 __method-table196587) + (let ((__check-arguments196588 + (let ((__tmp197325 (lambda () - (let ((__method196430 + (let ((__method196589 (let () (declare (not safe)) (symbolic-table-ref - __method-table196428 + __method-table196587 'check-arguments '#f)))) - (if __method196430 - __method196430 + (if __method196589 + __method196589 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197166)))) - (lambda (_%self192386195967%_ - _%ctx195969%_ - _%stx195970%_ - _%args195971%_) - (let* ((_%self195973%_ _%self192386195967%_) - (_%self195975%_ _%self195973%_)) - (if ((force __check-arguments196429) - _%self195975%_ - _%ctx195969%_ - _%stx195970%_ - _%args195971%_) - (let* ((_%signature195985%_ + (__make-promise __tmp197325)))) + (lambda (_%self192545196126%_ + _%ctx196128%_ + _%stx196129%_ + _%args196130%_) + (let* ((_%self196132%_ _%self192545196126%_) + (_%self196134%_ _%self196132%_)) + (if ((force __check-arguments196588) + _%self196134%_ + _%ctx196128%_ + _%stx196129%_ + _%args196130%_) + (let* ((_%signature196144%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self195975%_ + _%self196134%_ '2 '#f '#f))) - (_%signature195987%_ _%signature195985%_) - (_%$e195997%_ - (if _%signature195987%_ + (_%signature196146%_ _%signature196144%_) + (_%$e196156%_ + (if _%signature196146%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195987%_ + _%signature196146%_ '4 '#f '#f)) '#f))) - (if _%$e195997%_ - ((lambda (_%unchecked196000%_) + (if _%$e196156%_ + ((lambda (_%unchecked196159%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked196000%_)) - (let ((__tmp197167 + _%unchecked196159%_)) + (let ((__tmp197326 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196000%_ + (cons _%unchecked196159%_ '())) - (map (lambda (_%g196001196003%_) + (map (lambda (_%g196160196162%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195969%_ - _%g196001196003%_))) - _%args195971%_))))) + _%ctx196128%_ + _%g196160196162%_))) + _%args196130%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197167 - _%stx195970%_ - _%ctx195969%_)) + __tmp197326 + _%stx196129%_ + _%ctx196128%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195969%_ - _%stx195970%_)))) - _%$e195997%_) + _%ctx196128%_ + _%stx196129%_)))) + _%$e196156%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) + (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))))))) + (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1229,136 +1229,136 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self192387195716%_ _%ctx195718%_ _%stx195719%_ _%args195720%_) - (let* ((_%self195722%_ _%self192387195716%_) - (_%self195724%_ _%self195722%_) - (_%signature195733195735%_ + (lambda (_%self192546195875%_ _%ctx195877%_ _%stx195878%_ _%args195879%_) + (let* ((_%self195881%_ _%self192546195875%_) + (_%self195883%_ _%self195881%_) + (_%signature195892195894%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self195724%_ '2 '#f '#f)))) - (if _%signature195733195735%_ - (let* ((_%signature195738%_ _%signature195733195735%_) - (_%argument-types195739195741%_ + (##unchecked-structure-ref _%self195883%_ '2 '#f '#f)))) + (if _%signature195892195894%_ + (let* ((_%signature195897%_ _%signature195892195894%_) + (_%argument-types195898195900%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195738%_ + _%signature195897%_ '3 '#f '#f)))) - (if _%argument-types195739195741%_ - (let* ((_%argument-types195744%_ - _%argument-types195739195741%_) - (_%argument-types195749%_ - (let ((__tmp197168 - (lambda (_%t195747%_) - (if _%t195747%_ + (if _%argument-types195898195900%_ + (let* ((_%argument-types195903%_ + _%argument-types195898195900%_) + (_%argument-types195908%_ + (let ((__tmp197327 + (lambda (_%t195906%_) + (if _%t195906%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195719%_ - _%t195747%_)) + _%stx195878%_ + _%t195906%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp197168 - _%argument-types195744%_)))) - (let _%loop195751%_ ((_%rest-args195753%_ _%args195720%_) - (_%rest-types195754%_ - _%argument-types195749%_) - (_%result195755%_ '#t)) - (let* ((_%rest-args195756195764%_ _%rest-args195753%_) - (_%else195758195772%_ - (lambda () _%result195755%_)) - (_%K195760195833%_ - (lambda (_%rest-args195775%_ _%arg195776%_) - (let* ((_%rest-types195777195788%_ - _%rest-types195754%_) - (_%E195781195792%_ + __tmp197327 + _%argument-types195903%_)))) + (let _%loop195910%_ ((_%rest-args195912%_ _%args195879%_) + (_%rest-types195913%_ + _%argument-types195908%_) + (_%result195914%_ '#t)) + (let* ((_%rest-args195915195923%_ _%rest-args195912%_) + (_%else195917195931%_ + (lambda () _%result195914%_)) + (_%K195919195992%_ + (lambda (_%rest-args195934%_ _%arg195935%_) + (let* ((_%rest-types195936195947%_ + _%rest-types195913%_) + (_%E195940195951%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types195777195788%_ + _%rest-types195936195947%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K195784195821%_ - (lambda (_%rest-types195818%_ - _%type195819%_) - (_%loop195751%_ - _%rest-args195775%_ - _%rest-types195818%_ + (let ((_%K195943195980%_ + (lambda (_%rest-types195977%_ + _%type195978%_) + (_%loop195910%_ + _%rest-args195934%_ + _%rest-types195977%_ (if (gxc#check-expression-type! - _%stx195719%_ - _%arg195776%_ - _%type195819%_) - _%result195755%_ + _%stx195878%_ + _%arg195935%_ + _%type195978%_) + _%result195914%_ '#f)))) - (_%K195783195812%_ + (_%K195942195971%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx195719%_ - _%argument-types195749%_)))) - (_%K195782195802%_ - (lambda (_%tail-type195796%_) - (if (let ((__tmp197169 - (lambda (_%g195797195799%_) + _%stx195878%_ + _%argument-types195908%_)))) + (_%K195941195961%_ + (lambda (_%tail-type195955%_) + (if (let ((__tmp197328 + (lambda (_%g195956195958%_) (gxc#check-expression-type! - _%stx195719%_ - _%g195797195799%_ - _%tail-type195796%_)))) + _%stx195878%_ + _%g195956195958%_ + _%tail-type195955%_)))) (declare (not safe)) (__andmap1 - __tmp197169 - _%rest-args195775%_)) - _%result195755%_ + __tmp197328 + _%rest-args195934%_)) + _%result195914%_ '#f)))) - (let ((_%try-match195779195815%_ + (let ((_%try-match195938195974%_ (lambda () - (if (null? _%rest-types195777195788%_) - (_%K195783195812%_) - (let ((_%tail-type195805%_ - _%rest-types195777195788%_)) - (_%K195782195802%_ - _%tail-type195805%_)))))) - (if (pair? _%rest-types195777195788%_) - (let ((_%tl195786195826%_ + (if (null? _%rest-types195936195947%_) + (_%K195942195971%_) + (let ((_%tail-type195964%_ + _%rest-types195936195947%_)) + (_%K195941195961%_ + _%tail-type195964%_)))))) + (if (pair? _%rest-types195936195947%_) + (let ((_%tl195945195985%_ (let () (declare (not safe)) - (##cdr _%rest-types195777195788%_))) - (_%hd195785195824%_ + (##cdr _%rest-types195936195947%_))) + (_%hd195944195983%_ (let () (declare (not safe)) - (##car _%rest-types195777195788%_)))) - (let ((_%type195829%_ - _%hd195785195824%_) - (_%rest-types195831%_ - _%tl195786195826%_)) - (_%K195784195821%_ - _%rest-types195831%_ - _%type195829%_))) - (_%try-match195779195815%_)))))))) - (if (pair? _%rest-args195756195764%_) - (let ((_%hd195761195836%_ + (##car _%rest-types195936195947%_)))) + (let ((_%type195988%_ + _%hd195944195983%_) + (_%rest-types195990%_ + _%tl195945195985%_)) + (_%K195943195980%_ + _%rest-types195990%_ + _%type195988%_))) + (_%try-match195938195974%_)))))))) + (if (pair? _%rest-args195915195923%_) + (let ((_%hd195920195995%_ (let () (declare (not safe)) - (##car _%rest-args195756195764%_))) - (_%tl195762195838%_ + (##car _%rest-args195915195923%_))) + (_%tl195921195997%_ (let () (declare (not safe)) - (##cdr _%rest-args195756195764%_)))) - (let* ((_%arg195841%_ _%hd195761195836%_) - (_%rest-args195843%_ - _%tl195762195838%_)) - (_%K195760195833%_ - _%rest-args195843%_ - _%arg195841%_))) - (_%else195758195772%_))))) + (##cdr _%rest-args195915195923%_)))) + (let* ((_%arg196000%_ _%hd195920195995%_) + (_%rest-args196002%_ + _%tl195921195997%_)) + (_%K195919195992%_ + _%rest-args196002%_ + _%arg196000%_))) + (_%else195917195931%_))))) '#f)) '#f)))) (let () @@ -1369,94 +1369,94 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self192388195525%_ _%ctx195527%_ _%stx195528%_ _%args195529%_) - (let* ((_%self195531%_ _%self192388195525%_) - (_%self195533%_ _%self195531%_) - (_%g195543195553%_ - (lambda (_%g195544195550%_) + (lambda (_%self192547195684%_ _%ctx195686%_ _%stx195687%_ _%args195688%_) + (let* ((_%self195690%_ _%self192547195684%_) + (_%self195692%_ _%self195690%_) + (_%g195702195712%_ + (lambda (_%g195703195709%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195544195550%_)))) - (_%g195542195591%_ - (lambda (_%g195544195556%_) + _%g195703195709%_)))) + (_%g195701195750%_ + (lambda (_%g195703195715%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195544195556%_)) - (let ((_%e195546195558%_ + (gx#stx-pair? _%g195703195715%_)) + (let ((_%e195705195717%_ (let () (declare (not safe)) - (gx#stx-e _%g195544195556%_)))) - (let ((_%hd195547195561%_ + (gx#stx-e _%g195703195715%_)))) + (let ((_%hd195706195720%_ (let () (declare (not safe)) - (##car _%e195546195558%_))) - (_%tl195548195563%_ + (##car _%e195705195717%_))) + (_%tl195707195722%_ (let () (declare (not safe)) - (##cdr _%e195546195558%_)))) + (##cdr _%e195705195717%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195548195563%_)) - ((lambda (_%L195566%_) - (let* ((_%klass195578%_ - (let ((__tmp197170 + (gx#stx-null? _%tl195707195722%_)) + ((lambda (_%L195725%_) + (let* ((_%klass195737%_ + (let ((__tmp197329 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195533%_ + _%self195692%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195528%_ - __tmp197170))) - (_%object195580%_ + _%stx195687%_ + __tmp197329))) + (_%object195739%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195527%_ - _%L195566%_))) - (_%instance?195585%_ - (let ((_%$e195582%_ + _%ctx195686%_ + _%L195725%_))) + (_%instance?195744%_ + (let ((_%$e195741%_ (gxc#expression-type? - _%object195580%_ - _%klass195578%_))) - (if _%$e195582%_ - _%$e195582%_ + _%object195739%_ + _%klass195737%_))) + (if _%$e195741%_ + _%$e195741%_ (gxc#expression-type? - _%L195566%_ - _%klass195578%_))))) - (if _%instance?195585%_ - (let ((__tmp197171 + _%L195725%_ + _%klass195737%_))))) + (if _%instance?195744%_ + (let ((__tmp197330 (if (or (gxc#expression-no-side-effects? - _%object195580%_) + _%object195739%_) (gxc#expression-no-side-effects? - _%L195566%_)) + _%L195725%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195580%_ + (cons _%object195739%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197171 - _%stx195528%_)) + __tmp197330 + _%stx195687%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195527%_ - _%stx195528%_))))) - _%hd195547195561%_) - (_%g195543195553%_ _%g195544195556%_)))) - (_%g195543195553%_ _%g195544195556%_))))) - (_%g195542195591%_ _%args195529%_)))) + _%ctx195686%_ + _%stx195687%_))))) + _%hd195706195720%_) + (_%g195702195712%_ _%g195703195715%_)))) + (_%g195702195712%_ _%g195703195715%_))))) + (_%g195701195750%_ _%args195688%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1465,137 +1465,137 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self192389195319%_ _%ctx195321%_ _%stx195322%_ _%args195323%_) - (let* ((_%self195325%_ _%self192389195319%_) - (_%self195327%_ _%self195325%_) - (_%g195337195347%_ - (lambda (_%g195338195344%_) + (lambda (_%self192548195478%_ _%ctx195480%_ _%stx195481%_ _%args195482%_) + (let* ((_%self195484%_ _%self192548195478%_) + (_%self195486%_ _%self195484%_) + (_%g195496195506%_ + (lambda (_%g195497195503%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195338195344%_)))) - (_%g195336195400%_ - (lambda (_%g195338195350%_) + _%g195497195503%_)))) + (_%g195495195559%_ + (lambda (_%g195497195509%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195338195350%_)) - (let ((_%e195340195352%_ + (gx#stx-pair? _%g195497195509%_)) + (let ((_%e195499195511%_ (let () (declare (not safe)) - (gx#stx-e _%g195338195350%_)))) - (let ((_%hd195341195355%_ + (gx#stx-e _%g195497195509%_)))) + (let ((_%hd195500195514%_ (let () (declare (not safe)) - (##car _%e195340195352%_))) - (_%tl195342195357%_ + (##car _%e195499195511%_))) + (_%tl195501195516%_ (let () (declare (not safe)) - (##cdr _%e195340195352%_)))) + (##cdr _%e195499195511%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195342195357%_)) - ((lambda (_%L195360%_) - (let* ((_%klass195372%_ - (let ((__tmp197172 + (gx#stx-null? _%tl195501195516%_)) + ((lambda (_%L195519%_) + (let* ((_%klass195531%_ + (let ((__tmp197331 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195327%_ + _%self195486%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195322%_ - __tmp197172))) - (_%object195374%_ + _%stx195481%_ + __tmp197331))) + (_%object195533%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195321%_ - _%L195360%_))) - (_%instance?195379%_ - (let ((_%$e195376%_ + _%ctx195480%_ + _%L195519%_))) + (_%instance?195538%_ + (let ((_%$e195535%_ (gxc#expression-type? - _%object195374%_ - _%klass195372%_))) - (if _%$e195376%_ - _%$e195376%_ + _%object195533%_ + _%klass195531%_))) + (if _%$e195535%_ + _%$e195535%_ (gxc#expression-type? - _%L195360%_ - _%klass195372%_)))) - (_%klass195382%_ _%klass195372%_)) - (if _%instance?195379%_ - (let ((__tmp197173 + _%L195519%_ + _%klass195531%_)))) + (_%klass195541%_ _%klass195531%_)) + (if _%instance?195538%_ + (let ((__tmp197332 (if (or (gxc#expression-no-side-effects? - _%object195374%_) + _%object195533%_) (gxc#expression-no-side-effects? - _%L195360%_)) + _%L195519%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195374%_ + (cons _%object195533%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197173 - _%stx195322%_)) + __tmp197332 + _%stx195481%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass195541%_ '8 '#f '#f)) - (let ((__tmp197174 + (let ((__tmp197333 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass195541%_ '1 '#f '#f)) '())) - (cons _%object195374%_ '()))))) + (cons _%object195533%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197174 - _%stx195322%_)) + __tmp197333 + _%stx195481%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass195541%_ '7 '#f '#f)) - (let ((__tmp197175 + (let ((__tmp197334 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass195541%_ '1 '#f '#f)) '())) - (cons _%object195374%_ '()))))) + (cons _%object195533%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197175 - _%stx195322%_)) - (let ((__tmp197176 + __tmp197334 + _%stx195481%_)) + (let ((__tmp197335 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1604,21 +1604,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195327%_ + _%self195486%_ '1 '#f '#f)) '())) - (cons _%object195374%_ '())))))) + (cons _%object195533%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197176 - _%stx195322%_))))))) - _%hd195341195355%_) - (_%g195337195347%_ _%g195338195350%_)))) - (_%g195337195347%_ _%g195338195350%_))))) - (_%g195336195400%_ _%args195323%_)))) + __tmp197335 + _%stx195481%_))))))) + _%hd195500195514%_) + (_%g195496195506%_ _%g195497195509%_)))) + (_%g195496195506%_ _%g195497195509%_))))) + (_%g195495195559%_ _%args195482%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1627,419 +1627,419 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx194982%_) - (let* ((_%__stx196571196572%_ _%stx194982%_) - (_%g194987195028%_ + (lambda (_%stx195141%_) + (let* ((_%__stx196730196731%_ _%stx195141%_) + (_%g195146195187%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196571196572%_))))) - (let ((_%__kont196573196574%_ (lambda () '#t)) - (_%__kont196575196576%_ (lambda () '#t)) - (_%__kont196577196578%_ - (lambda (_%L195096%_ _%L195097%_) - (let ((_%rator-type195118195120%_ - (let ((__tmp197177 + _%__stx196730196731%_))))) + (let ((_%__kont196732196733%_ (lambda () '#t)) + (_%__kont196734196735%_ (lambda () '#t)) + (_%__kont196736196737%_ + (lambda (_%L195255%_ _%L195256%_) + (let ((_%rator-type195277195279%_ + (let ((__tmp197336 (let () (declare (not safe)) - (gxc#identifier-symbol _%L195097%_)))) + (gxc#identifier-symbol _%L195256%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp197177)))) - (if _%rator-type195118195120%_ - (let* ((_%rator-type195123%_ - _%rator-type195118195120%_) - (_%rator-signature195124195126%_ + (gxc#optimizer-resolve-type __tmp197336)))) + (if _%rator-type195277195279%_ + (let* ((_%rator-type195282%_ + _%rator-type195277195279%_) + (_%rator-signature195283195285%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195123%_ + _%rator-type195282%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195123%_ + _%rator-type195282%_ '2 '#f '#f)) '#f))) - (if _%rator-signature195124195126%_ - (let* ((_%rator-signature195129%_ - _%rator-signature195124195126%_) - (_%rator-effect195130195132%_ - (if _%rator-signature195129%_ + (if _%rator-signature195283195285%_ + (let* ((_%rator-signature195288%_ + _%rator-signature195283195285%_) + (_%rator-effect195289195291%_ + (if _%rator-signature195288%_ (##direct-structure-ref - _%rator-signature195129%_ + _%rator-signature195288%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect195130195132%_ - (let ((_%rator-effect195135%_ - _%rator-effect195130195132%_)) + (if _%rator-effect195289195291%_ + (let ((_%rator-effect195294%_ + _%rator-effect195289195291%_)) (if (or (equal? '(pure) - _%rator-effect195135%_) + _%rator-effect195294%_) (equal? '(alloc) - _%rator-effect195135%_)) - (let ((__tmp197178 - (let ((__tmp197179 - (lambda (_%g195140195143%_ + _%rator-effect195294%_)) + (let ((__tmp197337 + (let ((__tmp197338 + (lambda (_%g195299195302%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195141195145%_) - (cons _%g195140195143%_ _%g195141195145%_)))) + _%g195300195304%_) + (cons _%g195299195302%_ _%g195300195304%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197179 + __tmp197338 '() - _%L195096%_)))) + _%L195255%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp197178)) + __tmp197337)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont196581196582%_ (lambda () '#f))) - (let ((_%__match196660196661%_ - (lambda (_%e195003195040%_ - _%hd195004195043%_ - _%tl195005195045%_ - _%e195006195048%_ - _%hd195007195051%_ - _%tl195008195053%_ - _%e195009195056%_ - _%hd195010195059%_ - _%tl195011195061%_ - _%e195012195064%_ - _%hd195013195067%_ - _%tl195014195069%_ - _%__splice196579196580%_ - _%target195015195072%_ - _%tl195017195074%_) - (letrec ((_%loop195018195077%_ - (lambda (_%hd195016195080%_ - _%rand195022195082%_) + (_%__kont196740196741%_ (lambda () '#f))) + (let ((_%__match196819196820%_ + (lambda (_%e195162195199%_ + _%hd195163195202%_ + _%tl195164195204%_ + _%e195165195207%_ + _%hd195166195210%_ + _%tl195167195212%_ + _%e195168195215%_ + _%hd195169195218%_ + _%tl195170195220%_ + _%e195171195223%_ + _%hd195172195226%_ + _%tl195173195228%_ + _%__splice196738196739%_ + _%target195174195231%_ + _%tl195176195233%_) + (letrec ((_%loop195177195236%_ + (lambda (_%hd195175195239%_ + _%rand195181195241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195016195080%_)) - (let ((_%e195019195085%_ + (gx#stx-pair? _%hd195175195239%_)) + (let ((_%e195178195244%_ (let () (declare (not safe)) - (gx#stx-e _%hd195016195080%_)))) - (let ((_%lp-tl195021195090%_ + (gx#stx-e _%hd195175195239%_)))) + (let ((_%lp-tl195180195249%_ (let () (declare (not safe)) - (##cdr _%e195019195085%_))) - (_%lp-hd195020195088%_ + (##cdr _%e195178195244%_))) + (_%lp-hd195179195247%_ (let () (declare (not safe)) - (##car _%e195019195085%_)))) - (_%loop195018195077%_ - _%lp-tl195021195090%_ - (cons _%lp-hd195020195088%_ - _%rand195022195082%_)))) - (let ((_%rand195023195093%_ - (reverse _%rand195022195082%_))) - (_%__kont196577196578%_ - _%rand195023195093%_ - _%hd195013195067%_)))))) - (_%loop195018195077%_ _%target195015195072%_ '()))))) + (##car _%e195178195244%_)))) + (_%loop195177195236%_ + _%lp-tl195180195249%_ + (cons _%lp-hd195179195247%_ + _%rand195181195241%_)))) + (let ((_%rand195182195252%_ + (reverse _%rand195181195241%_))) + (_%__kont196736196737%_ + _%rand195182195252%_ + _%hd195172195226%_)))))) + (_%loop195177195236%_ _%target195174195231%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196571196572%_)) - (let ((_%e194989195176%_ + (gx#stx-pair? _%__stx196730196731%_)) + (let ((_%e195148195335%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196571196572%_)))) - (let ((_%tl194991195181%_ + (gx#stx-e _%__stx196730196731%_)))) + (let ((_%tl195150195340%_ (let () (declare (not safe)) - (##cdr _%e194989195176%_))) - (_%hd194990195179%_ + (##cdr _%e195148195335%_))) + (_%hd195149195338%_ (let () (declare (not safe)) - (##car _%e194989195176%_)))) + (##car _%e195148195335%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194990195179%_)) + (gx#identifier? _%hd195149195338%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd194990195179%_)) + (gx#stx-eq? '%#quote _%hd195149195338%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194991195181%_)) - (let ((_%e194992195184%_ + (gx#stx-pair? _%tl195150195340%_)) + (let ((_%e195151195343%_ (let () (declare (not safe)) - (gx#stx-e _%tl194991195181%_)))) - (let ((_%tl194994195189%_ + (gx#stx-e _%tl195150195340%_)))) + (let ((_%tl195153195348%_ (let () (declare (not safe)) - (##cdr _%e194992195184%_))) - (_%hd194993195187%_ + (##cdr _%e195151195343%_))) + (_%hd195152195346%_ (let () (declare (not safe)) - (##car _%e194992195184%_)))) + (##car _%e195151195343%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194994195189%_)) - (_%__kont196573196574%_) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) + (gx#stx-null? _%tl195153195348%_)) + (_%__kont196732196733%_) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd194990195179%_)) + (gx#stx-eq? '%#ref _%hd195149195338%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194991195181%_)) - (let ((_%e194998195161%_ + (gx#stx-pair? _%tl195150195340%_)) + (let ((_%e195157195320%_ (let () (declare (not safe)) - (gx#stx-e _%tl194991195181%_)))) - (let ((_%tl195000195166%_ + (gx#stx-e _%tl195150195340%_)))) + (let ((_%tl195159195325%_ (let () (declare (not safe)) - (##cdr _%e194998195161%_))) - (_%hd194999195164%_ + (##cdr _%e195157195320%_))) + (_%hd195158195323%_ (let () (declare (not safe)) - (##car _%e194998195161%_)))) + (##car _%e195157195320%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195000195166%_)) - (_%__kont196575196576%_) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) + _%tl195159195325%_)) + (_%__kont196734196735%_) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd194990195179%_)) + _%hd195149195338%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194991195181%_)) - (let ((_%e195006195048%_ + (gx#stx-pair? _%tl195150195340%_)) + (let ((_%e195165195207%_ (let () (declare (not safe)) (gx#stx-e - _%tl194991195181%_)))) - (let ((_%tl195008195053%_ + _%tl195150195340%_)))) + (let ((_%tl195167195212%_ (let () (declare (not safe)) - (##cdr _%e195006195048%_))) - (_%hd195007195051%_ + (##cdr _%e195165195207%_))) + (_%hd195166195210%_ (let () (declare (not safe)) - (##car _%e195006195048%_)))) + (##car _%e195165195207%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195007195051%_)) - (let ((_%e195009195056%_ + _%hd195166195210%_)) + (let ((_%e195168195215%_ (let () (declare (not safe)) (gx#stx-e - _%hd195007195051%_)))) - (let ((_%tl195011195061%_ + _%hd195166195210%_)))) + (let ((_%tl195170195220%_ (let () (declare (not safe)) - (##cdr _%e195009195056%_))) - (_%hd195010195059%_ + (##cdr _%e195168195215%_))) + (_%hd195169195218%_ (let () (declare (not safe)) - (##car _%e195009195056%_)))) + (##car _%e195168195215%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195010195059%_)) + _%hd195169195218%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd195010195059%_)) + (gx#stx-eq? '%#ref _%hd195169195218%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195011195061%_)) - (let ((_%e195012195064%_ + (gx#stx-pair? _%tl195170195220%_)) + (let ((_%e195171195223%_ (let () (declare (not safe)) - (gx#stx-e _%tl195011195061%_)))) - (let ((_%tl195014195069%_ + (gx#stx-e _%tl195170195220%_)))) + (let ((_%tl195173195228%_ (let () (declare (not safe)) - (##cdr _%e195012195064%_))) - (_%hd195013195067%_ + (##cdr _%e195171195223%_))) + (_%hd195172195226%_ (let () (declare (not safe)) - (##car _%e195012195064%_)))) + (##car _%e195171195223%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195014195069%_)) + (gx#stx-null? _%tl195173195228%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl195008195053%_)) - (let ((_%__splice196579196580%_ + (gx#stx-pair/null? _%tl195167195212%_)) + (let ((_%__splice196738196739%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl195008195053%_ + _%tl195167195212%_ '0)))) - (let ((_%tl195017195074%_ + (let ((_%tl195176195233%_ (let () (declare (not safe)) (##vector-ref - _%__splice196579196580%_ + _%__splice196738196739%_ '1))) - (_%target195015195072%_ + (_%target195174195231%_ (let () (declare (not safe)) (##vector-ref - _%__splice196579196580%_ + _%__splice196738196739%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195017195074%_)) - (_%__match196660196661%_ - _%e194989195176%_ - _%hd194990195179%_ - _%tl194991195181%_ - _%e195006195048%_ - _%hd195007195051%_ - _%tl195008195053%_ - _%e195009195056%_ - _%hd195010195059%_ - _%tl195011195061%_ - _%e195012195064%_ - _%hd195013195067%_ - _%tl195014195069%_ - _%__splice196579196580%_ - _%target195015195072%_ - _%tl195017195074%_) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)))) + _%tl195176195233%_)) + (_%__match196819196820%_ + _%e195148195335%_ + _%hd195149195338%_ + _%tl195150195340%_ + _%e195165195207%_ + _%hd195166195210%_ + _%tl195167195212%_ + _%e195168195215%_ + _%hd195169195218%_ + _%tl195170195220%_ + _%e195171195223%_ + _%hd195172195226%_ + _%tl195173195228%_ + _%__splice196738196739%_ + _%target195174195231%_ + _%tl195176195233%_) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_)) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_)) + (_%__kont196740196741%_)) + (_%__kont196740196741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_))))))) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_)) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_)))) + (_%__kont196740196741%_))))))) (define gxc#expression-type? - (lambda (_%stx194977%_ _%klass194978%_) - (let ((_%expr-type194980%_ + (lambda (_%stx195136%_ _%klass195137%_) + (let ((_%expr-type195139%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx194977%_)))) - (if _%expr-type194980%_ + (gxc#apply-basic-expression-type _%stx195136%_)))) + (if _%expr-type195139%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type194980%_ _%klass194978%_)) + (gxc#!type-subtype? _%expr-type195139%_ _%klass195137%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx194955%_ _%expr194956%_ _%type194957%_) - (if (not _%type194957%_) + (lambda (_%stx195114%_ _%expr195115%_ _%type195116%_) + (if (not _%type195116%_) '#f - (let ((_%$e194960%_ - (eq? (##structure-ref _%type194957%_ '1 gxc#!type::t '#f) + (let ((_%$e195119%_ + (eq? (##structure-ref _%type195116%_ '1 gxc#!type::t '#f) 't))) - (if _%$e194960%_ - _%$e194960%_ - (let ((_%expr-type194964%_ + (if _%$e195119%_ + _%$e195119%_ + (let ((_%expr-type195123%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr194956%_)))) - (if (not _%expr-type194964%_) + (gxc#apply-basic-expression-type _%expr195115%_)))) + (if (not _%expr-type195123%_) '#f (if (eq? 't (##structure-ref - _%expr-type194964%_ + _%expr-type195123%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e194968%_ + (let ((_%$e195127%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type194964%_ + _%expr-type195123%_ 'gxc#!abort::t)))) - (if _%$e194968%_ - _%$e194968%_ - (let ((_%$e194971%_ + (if _%$e195127%_ + _%$e195127%_ + (let ((_%$e195130%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type194964%_ - _%type194957%_)))) - (if _%$e194971%_ - _%$e194971%_ + _%expr-type195123%_ + _%type195116%_)))) + (if _%$e195130%_ + _%$e195130%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type194957%_)) + _%type195116%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type194957%_ - _%expr-type194964%_)) + _%type195116%_ + _%expr-type195123%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx194955%_ - _%expr194956%_ - _%expr-type194964%_ - _%type194957%_)))))))))))))))) + _%stx195114%_ + _%expr195115%_ + _%expr-type195123%_ + _%type195116%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self192390194767%_ _%ctx194769%_ _%stx194770%_ _%args194771%_) - (let* ((_%self194773%_ _%self192390194767%_) - (_%self194775%_ _%self194773%_) - (_%klass194785%_ - (let ((__tmp197180 + (lambda (_%self192549194926%_ _%ctx194928%_ _%stx194929%_ _%args194930%_) + (let* ((_%self194932%_ _%self192549194926%_) + (_%self194934%_ _%self194932%_) + (_%klass194944%_ + (let ((__tmp197339 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx194770%_ __tmp197180))) - (_%fields194787%_ + (gxc#optimizer-resolve-class _%stx194929%_ __tmp197339))) + (_%fields194946%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194785%_ + _%klass194944%_ '5 '#f '#f)))) - (_%args194793%_ - (map (lambda (_%g194788194790%_) + (_%args194952%_ + (map (lambda (_%g194947194949%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx194769%_ _%g194788194790%_))) - _%args194771%_)) - (_%inline-make-object194795%_ + (gxc#compile-e__1 _%ctx194928%_ _%g194947194949%_))) + _%args194930%_)) + (_%inline-make-object194954%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) @@ -2052,66 +2052,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields194787%_ + _%fields194946%_ '(%#quote #f))))) '())))) - (_%klass194798%_ _%klass194785%_) - (_%$e194812%_ + (_%klass194957%_ _%klass194944%_) + (_%$e194971%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass194798%_ '6 '#f '#f)))) - (if _%$e194812%_ - ((lambda (_%ctor194815%_) - (let ((_%$obj194817%_ - (let ((__tmp197181 + (##unchecked-structure-ref _%klass194957%_ '6 '#f '#f)))) + (if _%$e194971%_ + ((lambda (_%ctor194974%_) + (let ((_%$obj194976%_ + (let ((__tmp197340 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197181))) - (_%ctor-impl194818%_ + (make-symbol__0 __tmp197340))) + (_%ctor-impl194977%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass194798%_ - _%ctor194815%_)))) - (let ((__tmp197182 + _%klass194957%_ + _%ctor194974%_)))) + (let ((__tmp197341 (cons '%#let-values - (cons (cons (cons (cons _%$obj194817%_ '()) - (cons _%inline-make-object194795%_ + (cons (cons (cons (cons _%$obj194976%_ '()) + (cons _%inline-make-object194954%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl194818%_ - (let ((__tmp197183 + (cons (if _%ctor-impl194977%_ + (let ((__tmp197342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl194818%_ '())) + (cons _%ctor-impl194977%_ '())) (cons (cons '%#ref - (cons _%$obj194817%_ '())) - _%args194793%_))))) + (cons _%$obj194976%_ '())) + _%args194952%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197183 - _%stx194770%_ - _%ctx194769%_)) - (let ((_%$ctor194820%_ - (let ((__tmp197184 + __tmp197342 + _%stx194929%_ + _%ctx194928%_)) + (let ((_%$ctor194979%_ + (let ((__tmp197343 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp197184)))) + (make-symbol__0 __tmp197343)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor194820%_ '()) + (cons (cons (cons (cons _%$ctor194979%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2120,28 +2120,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194817%_ '())) + (cons (cons '%#ref (cons _%$obj194976%_ '())) (cons (cons '%#quote - (cons _%ctor194815%_ '())) + (cons _%ctor194974%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor194820%_ + (cons _%$ctor194979%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor194820%_ '())) - (cons (cons '%#ref (cons _%$obj194817%_ '())) - _%args194793%_))) + (cons _%$ctor194979%_ '())) + (cons (cons '%#ref (cons _%$obj194976%_ '())) + _%args194952%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2154,92 +2154,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor194815%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor194974%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj194817%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194976%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197182 _%stx194770%_)))) - _%$e194812%_) - (let ((_%$e194822%_ + (gxc#xform-wrap-source __tmp197341 _%stx194929%_)))) + _%$e194971%_) + (let ((_%$e194981%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194798%_ + _%klass194957%_ '10 '#f '#f)))) - (if _%$e194822%_ - ((lambda (_%metaclass194825%_) - (let* ((_%$obj194827%_ - (let ((__tmp197185 + (if _%$e194981%_ + ((lambda (_%metaclass194984%_) + (let* ((_%$obj194986%_ + (let ((__tmp197344 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197185))) - (_%metakons194829%_ - (let ((__tmp197186 + (make-symbol__0 __tmp197344))) + (_%metakons194988%_ + (let ((__tmp197345 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194770%_ - _%metaclass194825%_)))) + _%stx194929%_ + _%metaclass194984%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp197186 + __tmp197345 'instance-init!))) - (__tmp197187 + (__tmp197346 (cons '%#let-values - (cons (cons (cons (cons _%$obj194827%_ + (cons (cons (cons (cons _%$obj194986%_ '()) - (cons _%inline-make-object194795%_ + (cons _%inline-make-object194954%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons194829%_ + (cons (if _%metakons194988%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197188 + (let ((__tmp197347 (cons '%#call (cons (cons '%#ref - (cons _%metakons194829%_ + (cons _%metakons194988%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194775%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194934%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194827%_ + (cons _%$obj194986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194793%_)))))) + _%args194952%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197188 - _%stx194770%_ - _%ctx194769%_)) + __tmp197347 + _%stx194929%_ + _%ctx194928%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) @@ -2248,38 +2248,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj194827%_ + (cons _%$obj194986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194793%_)))))) + _%args194952%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj194827%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194986%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197187 _%stx194770%_))) - _%$e194822%_) + (gxc#xform-wrap-source __tmp197346 _%stx194929%_))) + _%$e194981%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194798%_ + _%klass194957%_ '7 '#f '#f)) - (if (let ((__tmp197189 + (if (let ((__tmp197348 (let () (declare (not safe)) - (##length _%args194793%_)))) + (##length _%args194952%_)))) (declare (not safe)) - (##fx= __tmp197189 _%fields194787%_)) - (let ((__tmp197190 + (##fx= __tmp197348 _%fields194946%_)) + (let ((__tmp197349 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) @@ -2292,151 +2292,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) '())) - _%args194793%_))) + _%args194952%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197190 - _%stx194770%_)) - (let ((__tmp197192 + __tmp197349 + _%stx194929%_)) + (let ((__tmp197351 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f))) - (__tmp197191 + (__tmp197350 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194798%_ + _%klass194957%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx194770%_ - __tmp197192 - __tmp197191))) - (let ((_%$obj194834%_ - (let ((__tmp197193 + _%stx194929%_ + __tmp197351 + __tmp197350))) + (let ((_%$obj194993%_ + (let ((__tmp197352 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197193)))) - (let _%lp194836%_ ((_%rest194838%_ _%args194793%_) - (_%initializers194839%_ '())) - (let* ((_%__stx196663196664%_ _%rest194838%_) - (_%g194843194864%_ + (make-symbol__0 __tmp197352)))) + (let _%lp194995%_ ((_%rest194997%_ _%args194952%_) + (_%initializers194998%_ '())) + (let* ((_%__stx196822196823%_ _%rest194997%_) + (_%g195002195023%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196663196664%_))))) - (let ((_%__kont196665196666%_ - (lambda (_%L194918%_ - _%L194919%_ - _%L194920%_) - (let* ((_%slot194947%_ - (let ((__tmp197194 + _%__stx196822196823%_))))) + (let ((_%__kont196824196825%_ + (lambda (_%L195077%_ + _%L195078%_ + _%L195079%_) + (let* ((_%slot195106%_ + (let ((__tmp197353 (let () (declare (not safe)) (gx#stx-e - _%L194920%_)))) + _%L195079%_)))) (declare (not safe)) (keyword->symbol - __tmp197194))) - (_%off194949%_ + __tmp197353))) + (_%off195108%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194798%_ - _%slot194947%_)))) - (if _%off194949%_ - (_%lp194836%_ - _%L194918%_ - (cons (cons _%off194949%_ - _%L194919%_) - _%initializers194839%_)) - (let ((__tmp197195 + _%klass194957%_ + _%slot195106%_)))) + (if _%off195108%_ + (_%lp194995%_ + _%L195077%_ + (cons (cons _%off195108%_ + _%L195078%_) + _%initializers194998%_)) + (let ((__tmp197354 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx194770%_ - __tmp197195 - _%slot194947%_)))))) - (_%__kont196667196668%_ + _%stx194929%_ + __tmp197354 + _%slot195106%_)))))) + (_%__kont196826196827%_ (lambda () - (let ((__tmp197196 + (let ((__tmp197355 (cons '%#let-values - (cons (cons (cons (cons _%$obj194834%_ + (cons (cons (cons (cons _%$obj194993%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194795%_ '())) + (cons _%inline-make-object194954%_ '())) '()) (cons (cons '%#begin - (let ((__tmp197199 + (let ((__tmp197358 (cons (cons '%#ref - (cons _%$obj194834%_ '())) + (cons _%$obj194993%_ '())) '())) - (__tmp197197 - (let ((__tmp197198 - (lambda (_%i194878%_ _%r194879%_) + (__tmp197356 + (let ((__tmp197357 + (lambda (_%i195037%_ _%r195038%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self194934%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i194878%_) '())) - (cons (cons '%#ref (cons _%$obj194834%_ '())) - (cons (cdr _%i194878%_) '()))))) + (cons (cons '%#quote (cons (car _%i195037%_) '())) + (cons (cons '%#ref (cons _%$obj194993%_ '())) + (cons (cdr _%i195037%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r194879%_)))) + _%r195038%_)))) (declare (not safe)) (__foldl1 - __tmp197198 + __tmp197357 '() - _%initializers194839%_)))) + _%initializers194998%_)))) (declare (not safe)) - (__foldr1 cons __tmp197199 __tmp197197))) + (__foldr1 cons __tmp197358 __tmp197356))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197196 - _%stx194770%_)))) - (_%__kont196669196670%_ + __tmp197355 + _%stx194929%_)))) + (_%__kont196828196829%_ (lambda () - (let ((__tmp197200 + (let ((__tmp197359 (cons '%#let-values - (cons (cons (cons (cons _%$obj194834%_ + (cons (cons (cons (cons _%$obj194993%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194795%_ '())) + (cons _%inline-make-object194954%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2444,157 +2444,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj194834%_ + (cons _%$obj194993%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194793%_))) + _%args194952%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194834%_ '())) + (cons _%$obj194993%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197200 - _%stx194770%_))))) - (let* ((_%g194841194881%_ + __tmp197359 + _%stx194929%_))))) + (let* ((_%g195000195040%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx196663196664%_)) - (_%__kont196667196668%_) - (_%__kont196669196670%_)))) - (_%__match196700196701%_ - (lambda (_%e194848194886%_ - _%hd194849194889%_ - _%tl194850194891%_ - _%e194851194894%_ - _%hd194852194897%_ - _%tl194853194899%_ - _%e194854194902%_ - _%hd194855194905%_ - _%tl194856194907%_ - _%e194857194910%_ - _%hd194858194913%_ - _%tl194859194915%_) - (let ((_%L194918%_ - _%tl194859194915%_) - (_%L194919%_ - _%hd194858194913%_) - (_%L194920%_ - _%hd194855194905%_)) + _%__stx196822196823%_)) + (_%__kont196826196827%_) + (_%__kont196828196829%_)))) + (_%__match196859196860%_ + (lambda (_%e195007195045%_ + _%hd195008195048%_ + _%tl195009195050%_ + _%e195010195053%_ + _%hd195011195056%_ + _%tl195012195058%_ + _%e195013195061%_ + _%hd195014195064%_ + _%tl195015195066%_ + _%e195016195069%_ + _%hd195017195072%_ + _%tl195018195074%_) + (let ((_%L195077%_ + _%tl195018195074%_) + (_%L195078%_ + _%hd195017195072%_) + (_%L195079%_ + _%hd195014195064%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L194920%_)) - (_%__kont196665196666%_ - _%L194918%_ - _%L194919%_ - _%L194920%_) - (_%__kont196669196670%_)))))) + _%L195079%_)) + (_%__kont196824196825%_ + _%L195077%_ + _%L195078%_ + _%L195079%_) + (_%__kont196828196829%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196663196664%_)) - (let ((_%e194848194886%_ + (gx#stx-pair? _%__stx196822196823%_)) + (let ((_%e195007195045%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196663196664%_)))) - (let ((_%tl194850194891%_ + _%__stx196822196823%_)))) + (let ((_%tl195009195050%_ (let () (declare (not safe)) - (##cdr _%e194848194886%_))) - (_%hd194849194889%_ + (##cdr _%e195007195045%_))) + (_%hd195008195048%_ (let () (declare (not safe)) - (##car _%e194848194886%_)))) + (##car _%e195007195045%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194849194889%_)) - (let ((_%e194851194894%_ + _%hd195008195048%_)) + (let ((_%e195010195053%_ (let () (declare (not safe)) (gx#stx-e - _%hd194849194889%_)))) - (let ((_%tl194853194899%_ + _%hd195008195048%_)))) + (let ((_%tl195012195058%_ (let () (declare (not safe)) - (##cdr _%e194851194894%_))) - (_%hd194852194897%_ + (##cdr _%e195010195053%_))) + (_%hd195011195056%_ (let () (declare (not safe)) - (##car _%e194851194894%_)))) + (##car _%e195010195053%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194852194897%_)) + _%hd195011195056%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194852194897%_)) + _%hd195011195056%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl194853194899%_)) - (let ((_%e194854194902%_ + (gx#stx-pair? _%tl195012195058%_)) + (let ((_%e195013195061%_ (let () (declare (not safe)) - (gx#stx-e _%tl194853194899%_)))) - (let ((_%tl194856194907%_ + (gx#stx-e _%tl195012195058%_)))) + (let ((_%tl195015195066%_ (let () (declare (not safe)) - (##cdr _%e194854194902%_))) - (_%hd194855194905%_ + (##cdr _%e195013195061%_))) + (_%hd195014195064%_ (let () (declare (not safe)) - (##car _%e194854194902%_)))) + (##car _%e195013195061%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194856194907%_)) + (gx#stx-null? _%tl195015195066%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194850194891%_)) - (let ((_%e194857194910%_ + (gx#stx-pair? _%tl195009195050%_)) + (let ((_%e195016195069%_ (let () (declare (not safe)) - (gx#stx-e _%tl194850194891%_)))) - (let ((_%tl194859194915%_ + (gx#stx-e _%tl195009195050%_)))) + (let ((_%tl195018195074%_ (let () (declare (not safe)) - (##cdr _%e194857194910%_))) - (_%hd194858194913%_ + (##cdr _%e195016195069%_))) + (_%hd195017195072%_ (let () (declare (not safe)) - (##car _%e194857194910%_)))) - (_%__match196700196701%_ - _%e194848194886%_ - _%hd194849194889%_ - _%tl194850194891%_ - _%e194851194894%_ - _%hd194852194897%_ - _%tl194853194899%_ - _%e194854194902%_ - _%hd194855194905%_ - _%tl194856194907%_ - _%e194857194910%_ - _%hd194858194913%_ - _%tl194859194915%_))) - (_%__kont196669196670%_)) - (_%__kont196669196670%_)))) - (_%__kont196669196670%_)) - (_%__kont196669196670%_)) - (_%__kont196669196670%_)))) + (##car _%e195016195069%_)))) + (_%__match196859196860%_ + _%e195007195045%_ + _%hd195008195048%_ + _%tl195009195050%_ + _%e195010195053%_ + _%hd195011195056%_ + _%tl195012195058%_ + _%e195013195061%_ + _%hd195014195064%_ + _%tl195015195066%_ + _%e195016195069%_ + _%hd195017195072%_ + _%tl195018195074%_))) + (_%__kont196828196829%_)) + (_%__kont196828196829%_)))) + (_%__kont196828196829%_)) + (_%__kont196828196829%_)) + (_%__kont196828196829%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196669196670%_)))) + (_%__kont196828196829%_)))) (let () (declare (not safe)) - (_%g194841194881%_))))))))))))))) + (_%g195000195040%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2603,105 +2603,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self192391194548%_ _%ctx194550%_ _%stx194551%_ _%args194552%_) - (let* ((_%self194554%_ _%self192391194548%_) - (_%self194556%_ _%self194554%_) - (_%arguments-ok?194566%_ - (let ((__method197144 + (lambda (_%self192550194707%_ _%ctx194709%_ _%stx194710%_ _%args194711%_) + (let* ((_%self194713%_ _%self192550194707%_) + (_%self194715%_ _%self194713%_) + (_%arguments-ok?194725%_ + (let ((__method197303 (let () (declare (not safe)) - (__method-ref _%self194556%_ 'check-arguments)))) - (if __method197144 + (__method-ref _%self194715%_ 'check-arguments)))) + (if __method197303 (let () (declare (not safe)) - (__method197144 - _%self194556%_ - _%ctx194550%_ - _%stx194551%_ - _%args194552%_)) + (__method197303 + _%self194715%_ + _%ctx194709%_ + _%stx194710%_ + _%args194711%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194556%_ + _%self194715%_ 'check-arguments)) '#!void)))) - (_%g194568194578%_ - (lambda (_%g194569194575%_) + (_%g194727194737%_ + (lambda (_%g194728194734%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194569194575%_)))) - (_%g194567194642%_ - (lambda (_%g194569194581%_) + _%g194728194734%_)))) + (_%g194726194801%_ + (lambda (_%g194728194740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194569194581%_)) - (let ((_%e194571194583%_ + (gx#stx-pair? _%g194728194740%_)) + (let ((_%e194730194742%_ (let () (declare (not safe)) - (gx#stx-e _%g194569194581%_)))) - (let ((_%hd194572194586%_ + (gx#stx-e _%g194728194740%_)))) + (let ((_%hd194731194745%_ (let () (declare (not safe)) - (##car _%e194571194583%_))) - (_%tl194573194588%_ + (##car _%e194730194742%_))) + (_%tl194732194747%_ (let () (declare (not safe)) - (##cdr _%e194571194583%_)))) + (##cdr _%e194730194742%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194573194588%_)) - ((lambda (_%L194591%_) - (let* ((_%klass194604%_ - (let ((__tmp197201 + (gx#stx-null? _%tl194732194747%_)) + ((lambda (_%L194750%_) + (let* ((_%klass194763%_ + (let ((__tmp197360 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194551%_ - __tmp197201))) - (_%field194606%_ - (let ((__tmp197202 + _%stx194710%_ + __tmp197360))) + (_%field194765%_ + (let ((__tmp197361 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194604%_ - __tmp197202))) - (_%object194608%_ + _%klass194763%_ + __tmp197361))) + (_%object194767%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194550%_ - _%L194591%_))) - (_%klass194611%_ _%klass194604%_)) + _%ctx194709%_ + _%L194750%_))) + (_%klass194770%_ _%klass194763%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass194770%_ '8 '#f '#f)) - (let ((__tmp197203 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp197362 + (cons (if (or _%arguments-ok?194725%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)))) @@ -2713,32 +2713,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field194765%_ '())) + (cons _%object194767%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197203 - _%stx194551%_)) + __tmp197362 + _%stx194710%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass194770%_ '7 '#f '#f)) - (let ((__tmp197204 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp197363 + (cons (if (or _%arguments-ok?194725%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)))) @@ -2748,40 +2748,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field194765%_ '())) + (cons _%object194767%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197204 - _%stx194551%_)) - (let ((_%$e194630%_ - (let ((__tmp197205 + __tmp197363 + _%stx194710%_)) + (let ((_%$e194789%_ + (let ((__tmp197364 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194611%_ - __tmp197205)))) - (if _%$e194630%_ - ((lambda (_%klass194633%_) - (let ((__tmp197206 - (cons (if (or _%arguments-ok?194566%_ + _%klass194770%_ + __tmp197364)))) + (if _%$e194789%_ + ((lambda (_%klass194792%_) + (let ((__tmp197365 + (cons (if (or _%arguments-ok?194725%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)))) @@ -2791,36 +2791,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field194765%_ '())) + (cons _%object194767%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197206 _%stx194551%_))) + (gxc#xform-wrap-source __tmp197365 _%stx194710%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e194630%_) + _%$e194789%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)) - (let ((__tmp197207 - (let ((_%$obj194639%_ + (let ((__tmp197366 + (let ((_%$obj194798%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197208 + (let ((__tmp197367 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197208)))) + (make-symbol__0 __tmp197367)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194639%_ '()) - (cons _%object194608%_ '())) + (cons (cons (cons (cons _%$obj194798%_ '()) + (cons _%object194767%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2829,12 +2829,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass194770%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194639%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194798%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2842,27 +2842,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) + (cons (cons '%#quote (cons _%field194765%_ '())) (cons (cons '%#ref - (cons _%$obj194639%_ '())) + (cons _%$obj194798%_ '())) '())))) - (cons (if _%arguments-ok?194566%_ + (cons (if _%arguments-ok?194725%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194639%_ '())) + (cons _%$obj194798%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)) @@ -2877,20 +2877,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194639%_ + (cons _%$obj194798%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)) @@ -2901,148 +2901,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197207 _%stx194551%_)) + (gxc#xform-wrap-source __tmp197366 _%stx194710%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp197209 + (let ((__tmp197368 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194608%_ + (cons _%object194767%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197209 _%stx194551%_))))))))) + (gxc#xform-wrap-source __tmp197368 _%stx194710%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194572194586%_) - (_%g194568194578%_ _%g194569194581%_)))) - (_%g194568194578%_ _%g194569194581%_))))) - (_%g194567194642%_ _%args194552%_)))) + _%hd194731194745%_) + (_%g194727194737%_ _%g194728194740%_)))) + (_%g194727194737%_ _%g194728194740%_))))) + (_%g194726194801%_ _%args194711%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass196431 __method-table196432) - (let ((__check-arguments196433 - (let ((__tmp197210 + (lambda (__klass196590 __method-table196591) + (let ((__check-arguments196592 + (let ((__tmp197369 (lambda () - (let ((__method196434 + (let ((__method196593 (let () (declare (not safe)) (symbolic-table-ref - __method-table196432 + __method-table196591 'check-arguments '#f)))) - (if __method196434 - __method196434 + (if __method196593 + __method196593 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197210))) - (__slot196435 - (let ((__slot196436 + (__make-promise __tmp197369))) + (__slot196594 + (let ((__slot196595 (let () (declare (not safe)) - (class-slot-offset __klass196431 'slot)))) - (if __slot196436 - __slot196436 + (class-slot-offset __klass196590 'slot)))) + (if __slot196595 + __slot196595 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self192391194548%_ - _%ctx194550%_ - _%stx194551%_ - _%args194552%_) - (let* ((_%self194554%_ _%self192391194548%_) - (_%self194556%_ _%self194554%_) - (_%arguments-ok?194566%_ - ((force __check-arguments196433) - _%self194556%_ - _%ctx194550%_ - _%stx194551%_ - _%args194552%_)) - (_%g194568194578%_ - (lambda (_%g194569194575%_) + (lambda (_%self192550194707%_ + _%ctx194709%_ + _%stx194710%_ + _%args194711%_) + (let* ((_%self194713%_ _%self192550194707%_) + (_%self194715%_ _%self194713%_) + (_%arguments-ok?194725%_ + ((force __check-arguments196592) + _%self194715%_ + _%ctx194709%_ + _%stx194710%_ + _%args194711%_)) + (_%g194727194737%_ + (lambda (_%g194728194734%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194569194575%_)))) - (_%g194567194642%_ - (lambda (_%g194569194581%_) + _%g194728194734%_)))) + (_%g194726194801%_ + (lambda (_%g194728194740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194569194581%_)) - (let ((_%e194571194583%_ + (gx#stx-pair? _%g194728194740%_)) + (let ((_%e194730194742%_ (let () (declare (not safe)) - (gx#stx-e _%g194569194581%_)))) - (let ((_%hd194572194586%_ + (gx#stx-e _%g194728194740%_)))) + (let ((_%hd194731194745%_ (let () (declare (not safe)) - (##car _%e194571194583%_))) - (_%tl194573194588%_ + (##car _%e194730194742%_))) + (_%tl194732194747%_ (let () (declare (not safe)) - (##cdr _%e194571194583%_)))) + (##cdr _%e194730194742%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194573194588%_)) - ((lambda (_%L194591%_) - (let* ((_%klass194604%_ - (let ((__tmp197211 + (gx#stx-null? _%tl194732194747%_)) + ((lambda (_%L194750%_) + (let* ((_%klass194763%_ + (let ((__tmp197370 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194551%_ - __tmp197211))) - (_%field194606%_ - (let ((__tmp197212 + _%stx194710%_ + __tmp197370))) + (_%field194765%_ + (let ((__tmp197371 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194604%_ - __tmp197212))) - (_%object194608%_ + _%klass194763%_ + __tmp197371))) + (_%object194767%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194550%_ - _%L194591%_))) - (_%klass194611%_ _%klass194604%_)) + _%ctx194709%_ + _%L194750%_))) + (_%klass194770%_ _%klass194763%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass194770%_ '8 '#f '#f)) - (let ((__tmp197213 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp197372 + (cons (if (or _%arguments-ok?194725%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)))) @@ -3052,32 +3052,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field194765%_ '())) + (cons _%object194767%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197213 - _%stx194551%_)) + __tmp197372 + _%stx194710%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass194770%_ '7 '#f '#f)) - (let ((__tmp197214 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp197373 + (cons (if (or _%arguments-ok?194725%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)))) @@ -3087,37 +3087,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field194765%_ '())) + (cons _%object194767%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197214 - _%stx194551%_)) - (let ((_%$e194630%_ - (let ((__tmp197215 + __tmp197373 + _%stx194710%_)) + (let ((_%$e194789%_ + (let ((__tmp197374 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194556%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self194715%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass194611%_ __tmp197215)))) + (gxc#!class-slot-find-struct _%klass194770%_ __tmp197374)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194630%_ - ((lambda (_%klass194633%_) - (let ((__tmp197216 - (cons (if (or _%arguments-ok?194566%_ + (if _%$e194789%_ + ((lambda (_%klass194792%_) + (let ((__tmp197375 + (cons (if (or _%arguments-ok?194725%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)))) @@ -3127,37 +3127,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons _%field194765%_ '())) + (cons _%object194767%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197216 _%stx194551%_))) - _%$e194630%_) + (gxc#xform-wrap-source __tmp197375 _%stx194710%_))) + _%$e194789%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '4 '#f '#f)) - (let ((__tmp197217 - (let ((_%$obj194639%_ + (let ((__tmp197376 + (let ((_%$obj194798%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197218 + (let ((__tmp197377 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197218)))) + (make-symbol__0 __tmp197377)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194639%_ '()) - (cons _%object194608%_ '())) + (cons (cons (cons (cons _%$obj194798%_ '()) + (cons _%object194767%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3166,43 +3166,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass194770%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194639%_ '())) + (cons (cons '%#ref (cons _%$obj194798%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194606%_ '())) + (cons _%field194765%_ '())) (cons (cons '%#ref - (cons _%$obj194639%_ '())) + (cons _%$obj194798%_ '())) '())))) - (cons (if _%arguments-ok?194566%_ + (cons (if _%arguments-ok?194725%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194639%_ + (cons _%$obj194798%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ - __slot196435 + _%self194715%_ + __slot196594 '#f '#f)) '())) @@ -3216,18 +3216,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194556%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194715%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194639%_ + (cons _%$obj194798%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)) @@ -3238,30 +3238,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197217 _%stx194551%_)) - (let ((__tmp197219 + (gxc#xform-wrap-source __tmp197376 _%stx194710%_)) + (let ((__tmp197378 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194608%_ + (cons _%object194767%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self194715%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197219 _%stx194551%_))))))))) + (gxc#xform-wrap-source __tmp197378 _%stx194710%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194572194586%_) - (_%g194568194578%_ _%g194569194581%_)))) - (_%g194568194578%_ _%g194569194581%_))))) - (_%g194567194642%_ _%args194552%_)))))) + _%hd194731194745%_) + (_%g194727194737%_ _%g194728194740%_)))) + (_%g194727194737%_ _%g194728194740%_))))) + (_%g194726194801%_ _%args194711%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3275,127 +3275,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self192392194310%_ _%ctx194312%_ _%stx194313%_ _%args194314%_) - (let* ((_%self194316%_ _%self192392194310%_) - (_%self194318%_ _%self194316%_) - (_%arguments-ok?194328%_ - (let ((__method197145 + (lambda (_%self192551194469%_ _%ctx194471%_ _%stx194472%_ _%args194473%_) + (let* ((_%self194475%_ _%self192551194469%_) + (_%self194477%_ _%self194475%_) + (_%arguments-ok?194487%_ + (let ((__method197304 (let () (declare (not safe)) - (__method-ref _%self194318%_ 'check-arguments)))) - (if __method197145 + (__method-ref _%self194477%_ 'check-arguments)))) + (if __method197304 (let () (declare (not safe)) - (__method197145 - _%self194318%_ - _%ctx194312%_ - _%stx194313%_ - _%args194314%_)) + (__method197304 + _%self194477%_ + _%ctx194471%_ + _%stx194472%_ + _%args194473%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194318%_ + _%self194477%_ 'check-arguments)) '#!void)))) - (_%g194330194344%_ - (lambda (_%g194331194341%_) + (_%g194489194503%_ + (lambda (_%g194490194500%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194331194341%_)))) - (_%g194329194423%_ - (lambda (_%g194331194347%_) + _%g194490194500%_)))) + (_%g194488194582%_ + (lambda (_%g194490194506%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194331194347%_)) - (let ((_%e194334194349%_ + (gx#stx-pair? _%g194490194506%_)) + (let ((_%e194493194508%_ (let () (declare (not safe)) - (gx#stx-e _%g194331194347%_)))) - (let ((_%hd194335194352%_ + (gx#stx-e _%g194490194506%_)))) + (let ((_%hd194494194511%_ (let () (declare (not safe)) - (##car _%e194334194349%_))) - (_%tl194336194354%_ + (##car _%e194493194508%_))) + (_%tl194495194513%_ (let () (declare (not safe)) - (##cdr _%e194334194349%_)))) + (##cdr _%e194493194508%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194336194354%_)) - (let ((_%e194337194357%_ + (gx#stx-pair? _%tl194495194513%_)) + (let ((_%e194496194516%_ (let () (declare (not safe)) - (gx#stx-e _%tl194336194354%_)))) - (let ((_%hd194338194360%_ + (gx#stx-e _%tl194495194513%_)))) + (let ((_%hd194497194519%_ (let () (declare (not safe)) - (##car _%e194337194357%_))) - (_%tl194339194362%_ + (##car _%e194496194516%_))) + (_%tl194498194521%_ (let () (declare (not safe)) - (##cdr _%e194337194357%_)))) + (##cdr _%e194496194516%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194339194362%_)) - ((lambda (_%L194365%_ _%L194366%_) - (let* ((_%klass194382%_ - (let ((__tmp197220 + (gx#stx-null? _%tl194498194521%_)) + ((lambda (_%L194524%_ _%L194525%_) + (let* ((_%klass194541%_ + (let ((__tmp197379 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194313%_ - __tmp197220))) - (_%field194384%_ - (let ((__tmp197221 + _%stx194472%_ + __tmp197379))) + (_%field194543%_ + (let ((__tmp197380 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194382%_ - __tmp197221))) - (_%object194386%_ + _%klass194541%_ + __tmp197380))) + (_%object194545%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194366%_))) - (_%value194388%_ + _%ctx194471%_ + _%L194525%_))) + (_%value194547%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194365%_))) - (_%klass194391%_ - _%klass194382%_)) + _%ctx194471%_ + _%L194524%_))) + (_%klass194550%_ + _%klass194541%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass194550%_ '8 '#f '#f)) - (let ((__tmp197222 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp197381 + (cons (if (or _%arguments-ok?194487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '4 '#f '#f)))) @@ -3405,33 +3405,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons (cons '%#quote (cons _%field194543%_ '())) + (cons _%object194545%_ + (cons _%value194547%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197222 - _%stx194313%_)) + __tmp197381 + _%stx194472%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass194550%_ '7 '#f '#f)) - (let ((__tmp197223 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp197382 + (cons (if (or _%arguments-ok?194487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '4 '#f '#f)))) @@ -3441,43 +3441,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons (cons '%#quote (cons _%field194543%_ '())) + (cons _%object194545%_ + (cons _%value194547%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197223 - _%stx194313%_)) - (let ((_%$e194411%_ - (let ((__tmp197224 + __tmp197382 + _%stx194472%_)) + (let ((_%$e194570%_ + (let ((__tmp197383 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194391%_ - __tmp197224)))) + _%klass194550%_ + __tmp197383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194411%_ - ((lambda (_%klass194414%_) - (let ((__tmp197225 + (if _%$e194570%_ + ((lambda (_%klass194573%_) + (let ((__tmp197384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?194328%_ + (cons (if (or _%arguments-ok?194487%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)))) @@ -3487,33 +3487,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ + (cons _%field194543%_ '())) + (cons _%object194545%_ + (cons _%value194547%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197225 _%stx194313%_))) - _%$e194411%_) + (gxc#xform-wrap-source __tmp197384 _%stx194472%_))) + _%$e194570%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self194318%_ '4 '#f '#f)) - (let ((__tmp197226 - (let ((_%$obj194420%_ - (let ((__tmp197227 + (##unchecked-structure-ref _%self194477%_ '4 '#f '#f)) + (let ((__tmp197385 + (let ((_%$obj194579%_ + (let ((__tmp197386 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197227)))) + (make-symbol__0 __tmp197386)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194420%_ '()) - (cons _%object194386%_ + (cons (cons (cons (cons _%$obj194579%_ '()) + (cons _%object194545%_ '())) '()) (cons (cons '%#if @@ -3523,49 +3523,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass194550%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194420%_ '())) + (cons (cons '%#ref (cons _%$obj194579%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ '())) + (cons _%field194543%_ '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj194579%_ '())) - (cons _%value194388%_ + (cons _%value194547%_ '()))))) - (cons (if _%arguments-ok?194328%_ + (cons (if _%arguments-ok?194487%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj194579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))) + (cons _%value194547%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3576,189 +3576,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194420%_ '())) + (cons (cons '%#ref (cons _%$obj194579%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))))) + (cons _%value194547%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197226 _%stx194313%_)) - (let ((__tmp197228 + (gxc#xform-wrap-source __tmp197385 _%stx194472%_)) + (let ((__tmp197387 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194386%_ + (cons _%object194545%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value194388%_ + (cons _%value194547%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197228 - _%stx194313%_))))))))) + __tmp197387 + _%stx194472%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194338194360%_ - _%hd194335194352%_) - (_%g194330194344%_ _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_))))) - (_%g194329194423%_ _%args194314%_)))) + _%hd194497194519%_ + _%hd194494194511%_) + (_%g194489194503%_ _%g194490194506%_)))) + (_%g194489194503%_ _%g194490194506%_)))) + (_%g194489194503%_ _%g194490194506%_))))) + (_%g194488194582%_ _%args194473%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass196437 __method-table196438) - (let ((__check-arguments196439 - (let ((__tmp197229 + (lambda (__klass196596 __method-table196597) + (let ((__check-arguments196598 + (let ((__tmp197388 (lambda () - (let ((__method196440 + (let ((__method196599 (let () (declare (not safe)) (symbolic-table-ref - __method-table196438 + __method-table196597 'check-arguments '#f)))) - (if __method196440 - __method196440 + (if __method196599 + __method196599 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197229)))) - (lambda (_%self192392194310%_ - _%ctx194312%_ - _%stx194313%_ - _%args194314%_) - (let* ((_%self194316%_ _%self192392194310%_) - (_%self194318%_ _%self194316%_) - (_%arguments-ok?194328%_ - ((force __check-arguments196439) - _%self194318%_ - _%ctx194312%_ - _%stx194313%_ - _%args194314%_)) - (_%g194330194344%_ - (lambda (_%g194331194341%_) + (__make-promise __tmp197388)))) + (lambda (_%self192551194469%_ + _%ctx194471%_ + _%stx194472%_ + _%args194473%_) + (let* ((_%self194475%_ _%self192551194469%_) + (_%self194477%_ _%self194475%_) + (_%arguments-ok?194487%_ + ((force __check-arguments196598) + _%self194477%_ + _%ctx194471%_ + _%stx194472%_ + _%args194473%_)) + (_%g194489194503%_ + (lambda (_%g194490194500%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194331194341%_)))) - (_%g194329194423%_ - (lambda (_%g194331194347%_) + _%g194490194500%_)))) + (_%g194488194582%_ + (lambda (_%g194490194506%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194331194347%_)) - (let ((_%e194334194349%_ + (gx#stx-pair? _%g194490194506%_)) + (let ((_%e194493194508%_ (let () (declare (not safe)) - (gx#stx-e _%g194331194347%_)))) - (let ((_%hd194335194352%_ + (gx#stx-e _%g194490194506%_)))) + (let ((_%hd194494194511%_ (let () (declare (not safe)) - (##car _%e194334194349%_))) - (_%tl194336194354%_ + (##car _%e194493194508%_))) + (_%tl194495194513%_ (let () (declare (not safe)) - (##cdr _%e194334194349%_)))) + (##cdr _%e194493194508%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194336194354%_)) - (let ((_%e194337194357%_ + (gx#stx-pair? _%tl194495194513%_)) + (let ((_%e194496194516%_ (let () (declare (not safe)) - (gx#stx-e _%tl194336194354%_)))) - (let ((_%hd194338194360%_ + (gx#stx-e _%tl194495194513%_)))) + (let ((_%hd194497194519%_ (let () (declare (not safe)) - (##car _%e194337194357%_))) - (_%tl194339194362%_ + (##car _%e194496194516%_))) + (_%tl194498194521%_ (let () (declare (not safe)) - (##cdr _%e194337194357%_)))) + (##cdr _%e194496194516%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194339194362%_)) - ((lambda (_%L194365%_ _%L194366%_) - (let* ((_%klass194382%_ - (let ((__tmp197230 + (gx#stx-null? _%tl194498194521%_)) + ((lambda (_%L194524%_ _%L194525%_) + (let* ((_%klass194541%_ + (let ((__tmp197389 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194313%_ - __tmp197230))) - (_%field194384%_ - (let ((__tmp197231 + _%stx194472%_ + __tmp197389))) + (_%field194543%_ + (let ((__tmp197390 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194382%_ - __tmp197231))) - (_%object194386%_ + _%klass194541%_ + __tmp197390))) + (_%object194545%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194366%_))) - (_%value194388%_ + _%ctx194471%_ + _%L194525%_))) + (_%value194547%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194365%_))) - (_%klass194391%_ - _%klass194382%_)) + _%ctx194471%_ + _%L194524%_))) + (_%klass194550%_ + _%klass194541%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass194550%_ '8 '#f '#f)) - (let ((__tmp197232 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp197391 + (cons (if (or _%arguments-ok?194487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '4 '#f '#f)))) @@ -3768,33 +3768,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons (cons '%#quote (cons _%field194543%_ '())) + (cons _%object194545%_ + (cons _%value194547%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197232 - _%stx194313%_)) + __tmp197391 + _%stx194472%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass194550%_ '7 '#f '#f)) - (let ((__tmp197233 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp197392 + (cons (if (or _%arguments-ok?194487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '4 '#f '#f)))) @@ -3804,38 +3804,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons _%field194543%_ '())) + (cons _%object194545%_ + (cons _%value194547%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197233 _%stx194313%_)) - (let ((_%$e194411%_ - (let ((__tmp197234 + (gxc#xform-wrap-source __tmp197392 _%stx194472%_)) + (let ((_%$e194570%_ + (let ((__tmp197393 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194391%_ - __tmp197234)))) - (if _%$e194411%_ - ((lambda (_%klass194414%_) - (let ((__tmp197235 - (cons (if (or _%arguments-ok?194328%_ + _%klass194550%_ + __tmp197393)))) + (if _%$e194570%_ + ((lambda (_%klass194573%_) + (let ((__tmp197394 + (cons (if (or _%arguments-ok?194487%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)))) @@ -3845,39 +3845,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ + (cons _%field194543%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ + (cons _%object194545%_ + (cons _%value194547%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197235 _%stx194313%_))) - _%$e194411%_) + (gxc#xform-wrap-source __tmp197394 _%stx194472%_))) + _%$e194570%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '4 '#f '#f)) - (let ((__tmp197236 - (let ((_%$obj194420%_ - (let ((__tmp197237 + (let ((__tmp197395 + (let ((_%$obj194579%_ + (let ((__tmp197396 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197237)))) + (make-symbol__0 __tmp197396)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194420%_ + (cons (cons (cons (cons _%$obj194579%_ '()) - (cons _%object194386%_ + (cons _%object194545%_ '())) '()) (cons (cons '%#if @@ -3887,52 +3887,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass194550%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194420%_ '())) + (cons _%$obj194579%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ + (cons _%field194543%_ '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj194579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value194388%_ '()))))) + (cons _%value194547%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?194328%_ + (cons (if _%arguments-ok?194487%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj194579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))) + (cons _%value194547%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3943,58 +3943,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194420%_ '())) + (cons (cons '%#ref (cons _%$obj194579%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))))) + (cons _%value194547%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197236 _%stx194313%_)) - (let ((__tmp197238 + (gxc#xform-wrap-source __tmp197395 _%stx194472%_)) + (let ((__tmp197397 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194386%_ + (cons _%object194545%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self194477%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))))) + (cons _%value194547%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197238 - _%stx194313%_))))))))) + __tmp197397 + _%stx194472%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194338194360%_ - _%hd194335194352%_) - (_%g194330194344%_ - _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_))))) - (_%g194329194423%_ _%args194314%_)))))) + _%hd194497194519%_ + _%hd194494194511%_) + (_%g194489194503%_ + _%g194490194506%_)))) + (_%g194489194503%_ _%g194490194506%_)))) + (_%g194489194503%_ _%g194490194506%_))))) + (_%g194488194582%_ _%args194473%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4008,97 +4008,97 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self192393194123%_ _%ctx194125%_ _%stx194126%_ _%args194127%_) - (let* ((_%self194129%_ _%self192393194123%_) - (_%self194131%_ _%self194129%_) - (_%self194140194150%_ _%self194131%_) - (_%E194142194154%_ + (lambda (_%self192552194282%_ _%ctx194284%_ _%stx194285%_ _%args194286%_) + (let* ((_%self194288%_ _%self192552194282%_) + (_%self194290%_ _%self194288%_) + (_%self194299194309%_ _%self194290%_) + (_%E194301194313%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self194140194150%_ + _%self194299194309%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K194143194164%_ - (lambda (_%inline194157%_ _%dispatch194158%_ _%arity194159%_) + (_%K194302194323%_ + (lambda (_%inline194316%_ _%dispatch194317%_ _%arity194318%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self194131%_ - _%args194127%_)) + _%self194290%_ + _%args194286%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx194126%_ - _%arity194159%_))) - (if _%inline194157%_ + _%stx194285%_ + _%arity194318%_))) + (if _%inline194316%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp197239 (_%inline194157%_ _%stx194126%_))) + (let ((__tmp197398 (_%inline194316%_ _%stx194285%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197239 - _%stx194126%_ - _%ctx194125%_))) - (if (and _%dispatch194158%_ + __tmp197398 + _%stx194285%_ + _%ctx194284%_))) + (if (and _%dispatch194317%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch194158%_))) + _%dispatch194317%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch194158%_)) - (let ((__tmp197240 + _%dispatch194317%_)) + (let ((__tmp197399 (cons '%#call (cons (cons '%#ref - (cons _%dispatch194158%_ + (cons _%dispatch194317%_ '())) - _%args194127%_)))) + _%args194286%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197240 - _%stx194126%_ - _%ctx194125%_))) + __tmp197399 + _%stx194285%_ + _%ctx194284%_))) (gxc#!procedure::optimize-call - _%self194131%_ - _%ctx194125%_ - _%stx194126%_ - _%args194127%_))))) - (_%e194144194167%_ + _%self194290%_ + _%ctx194284%_ + _%stx194285%_ + _%args194286%_))))) + (_%e194303194326%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '1 '#f '#f))) - (_%e194145194170%_ + (##unchecked-structure-ref _%self194299194309%_ '1 '#f '#f))) + (_%e194304194329%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '2 '#f '#f))) - (_%e194146194173%_ + (##unchecked-structure-ref _%self194299194309%_ '2 '#f '#f))) + (_%e194305194332%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '3 '#f '#f))) - (_%arity194176%_ _%e194146194173%_) - (_%e194147194178%_ + (##unchecked-structure-ref _%self194299194309%_ '3 '#f '#f))) + (_%arity194335%_ _%e194305194332%_) + (_%e194306194337%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '4 '#f '#f))) - (_%dispatch194181%_ _%e194147194178%_) - (_%e194148194183%_ + (##unchecked-structure-ref _%self194299194309%_ '4 '#f '#f))) + (_%dispatch194340%_ _%e194306194337%_) + (_%e194307194342%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '5 '#f '#f))) - (_%inline194186%_ _%e194148194183%_)) - (_%K194143194164%_ - _%inline194186%_ - _%dispatch194181%_ - _%arity194176%_)))) + (##unchecked-structure-ref _%self194299194309%_ '5 '#f '#f))) + (_%inline194345%_ _%e194307194342%_)) + (_%K194302194323%_ + _%inline194345%_ + _%dispatch194340%_ + _%arity194335%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4107,63 +4107,63 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self192394193973%_ _%ctx193975%_ _%stx193976%_ _%args193977%_) - (let* ((_%self193979%_ _%self192394193973%_) - (_%self193981%_ _%self193979%_) - (_%$e193995%_ - (let ((__tmp197242 - (lambda (_%g193990193992%_) + (lambda (_%self192553194132%_ _%ctx194134%_ _%stx194135%_ _%args194136%_) + (let* ((_%self194138%_ _%self192553194132%_) + (_%self194140%_ _%self194138%_) + (_%$e194154%_ + (let ((__tmp197401 + (lambda (_%g194149194151%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g193990193992%_ - _%args193977%_)))) - (__tmp197241 + _%g194149194151%_ + _%args194136%_)))) + (__tmp197400 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193981%_ + _%self194140%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp197242 __tmp197241)))) - (if _%$e193995%_ - ((lambda (_%clause193998%_) - (let ((__method197146 + (__find __tmp197401 __tmp197400)))) + (if _%$e194154%_ + ((lambda (_%clause194157%_) + (let ((__method197305 (let () (declare (not safe)) - (__method-ref _%clause193998%_ 'optimize-call)))) - (if __method197146 + (__method-ref _%clause194157%_ 'optimize-call)))) + (if __method197305 (let () (declare (not safe)) - (__method197146 - _%clause193998%_ - _%ctx193975%_ - _%stx193976%_ - _%args193977%_)) + (__method197305 + _%clause194157%_ + _%ctx194134%_ + _%stx194135%_ + _%args194136%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause193998%_ + _%clause194157%_ 'optimize-call)) '#!void)))) - _%$e193995%_) - (let ((__tmp197243 + _%$e194154%_) + (let ((__tmp197402 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self193981%_ + _%self194140%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx193976%_ - __tmp197243)))))) + _%stx194135%_ + __tmp197402)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4172,116 +4172,116 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self192395193711%_ _%ctx193713%_ _%stx193714%_ _%args193715%_) - (let* ((_%self193717%_ _%self192395193711%_) - (_%self193719%_ _%self193717%_) - (_%self193728193737%_ _%self193719%_) - (_%E193730193741%_ + (lambda (_%self192554193870%_ _%ctx193872%_ _%stx193873%_ _%args193874%_) + (let* ((_%self193876%_ _%self192554193870%_) + (_%self193878%_ _%self193876%_) + (_%self193887193896%_ _%self193878%_) + (_%E193889193900%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self193728193737%_ + _%self193887193896%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K193731193832%_ - (lambda (_%dispatch193744%_ _%table193745%_) + (_%K193890193991%_ + (lambda (_%dispatch193903%_ _%table193904%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch193744%_)) - (let* ((_%g193746193756%_ + (gxc#symbol-in-local-scope? _%dispatch193903%_)) + (let* ((_%g193905193915%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch193744%_))) - (_%else193748193764%_ + _%dispatch193903%_))) + (_%else193907193923%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch193744%_)) + _%dispatch193903%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx193713%_ - _%stx193714%_)))) - (_%K193750193813%_ - (lambda (_%main193767%_ _%keys193768%_) - (let ((_g197244_ + _%ctx193872%_ + _%stx193873%_)))) + (_%K193909193972%_ + (lambda (_%main193926%_ _%keys193927%_) + (let ((_g197403_ (gxc#!kw-lambda-split-args - _%stx193714%_ - _%args193715%_))) + _%stx193873%_ + _%args193874%_))) (begin - (let ((_g197245_ + (let ((_g197404_ (let () (declare (not safe)) - (if (##values? _g197244_) - (##vector-length _g197244_) + (if (##values? _g197403_) + (##vector-length _g197403_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g197245_ 2))) + (##fx= _g197404_ 2))) (error "Context expects 2 values" - _g197245_))) - (let ((_%pargs193770%_ + _g197404_))) + (let ((_%pargs193929%_ (let () (declare (not safe)) - (##vector-ref _g197244_ 0))) - (_%kwargs193771%_ + (##vector-ref _g197403_ 0))) + (_%kwargs193930%_ (let () (declare (not safe)) - (##vector-ref _g197244_ 1)))) + (##vector-ref _g197403_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main193767%_)) - (if _%table193745%_ - (let ((_%xargs193779%_ - (map (lambda (_%key193773%_) - (let ((_%$e193775%_ + _%main193926%_)) + (if _%table193904%_ + (let ((_%xargs193938%_ + (map (lambda (_%key193932%_) + (let ((_%$e193934%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193773%_ _%kwargs193771%_)))) - (if _%$e193775%_ _%$e193775%_ '(%#ref absent-value)))) - _%keys193768%_))) + (agetq__0 _%key193932%_ _%kwargs193930%_)))) + (if _%$e193934%_ _%$e193934%_ '(%#ref absent-value)))) + _%keys193927%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw193781%_) - (if (memq (car _%kw193781%_) - _%keys193768%_) + (lambda (_%kw193940%_) + (if (memq (car _%kw193940%_) + _%keys193927%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx193714%_ - _%keys193768%_ - _%kw193781%_)))) - _%kwargs193771%_) - (let ((__tmp197246 + _%stx193873%_ + _%keys193927%_ + _%kw193940%_)))) + _%kwargs193930%_) + (let ((__tmp197405 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main193767%_ '())) + (cons _%main193926%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193770%_ - _%xargs193779%_))))))) + _%pargs193929%_ + _%xargs193938%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197246 - _%stx193714%_ - _%ctx193713%_))) - (let* ((_%kwt193783%_ - (let ((__tmp197247 + __tmp197405 + _%stx193873%_ + _%ctx193872%_))) + (let* ((_%kwt193942%_ + (let ((__tmp197406 (let () (declare (not safe)) @@ -4289,175 +4289,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp197247))) - (_%kwvars193787%_ - (map (lambda (_%_193785%_) - (let ((__tmp197248 + __tmp197406))) + (_%kwvars193946%_ + (map (lambda (_%_193944%_) + (let ((__tmp197407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp197248))) - _%kwargs193771%_)) + (make-symbol__0 __tmp197407))) + _%kwargs193930%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind193792%_ - (map (lambda (_%kw193789%_ + (_%kwbind193951%_ + (map (lambda (_%kw193948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193790%_) - (cons (cons _%kwvar193790%_ '()) - (cons (cdr _%kw193789%_) '()))) - _%kwargs193771%_ - _%kwvars193787%_)) + _%kwvar193949%_) + (cons (cons _%kwvar193949%_ '()) + (cons (cdr _%kw193948%_) '()))) + _%kwargs193930%_ + _%kwvars193946%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset193797%_ - (map (lambda (_%kw193794%_ + (_%kwset193956%_ + (map (lambda (_%kw193953%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193795%_) + _%kwvar193954%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt193783%_ '())) + (cons (cons '%#ref (cons _%kwt193942%_ '())) (cons (cons '%#quote - (cons (car _%kw193794%_) '())) + (cons (car _%kw193953%_) '())) (cons (cons '%#ref - (cons _%kwvar193795%_ + (cons _%kwvar193954%_ '())) '())))))) - _%kwargs193771%_ - _%kwvars193787%_)) + _%kwargs193930%_ + _%kwvars193946%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs193802%_ - (map (lambda (_%kw193799%_ + (_%xkwargs193961%_ + (map (lambda (_%kw193958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193800%_) - (cons (car _%kw193799%_) - (cons '%#ref (cons _%kwvar193800%_ '())))) - _%kwargs193771%_ - _%kwvars193787%_)) + _%kwvar193959%_) + (cons (car _%kw193958%_) + (cons '%#ref (cons _%kwvar193959%_ '())))) + _%kwargs193930%_ + _%kwvars193946%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs193810%_ - (map (lambda (_%key193804%_) - (let ((_%$e193806%_ + (_%xargs193969%_ + (map (lambda (_%key193963%_) + (let ((_%$e193965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193804%_ _%xkwargs193802%_)))) - (if _%$e193806%_ _%$e193806%_ '(%#ref absent-value)))) - _%keys193768%_)) + (agetq__0 _%key193963%_ _%xkwargs193961%_)))) + (if _%$e193965%_ _%$e193965%_ '(%#ref absent-value)))) + _%keys193927%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp197249 + (__tmp197408 (cons '%#let-values - (cons _%kwbind193792%_ + (cons _%kwbind193951%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt193783%_ '()) - (cons (let ((__tmp197250 + (cons (cons (cons (cons _%kwt193942%_ '()) + (cons (let ((__tmp197409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs193771%_) + (cons (length _%kwargs193930%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197250 _%stx193714%_)) + (gxc#xform-wrap-source __tmp197409 _%stx193873%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp197251 - (cons (let ((__tmp197252 + (let ((__tmp197410 + (cons (let ((__tmp197411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main193767%_ '())) + (cons _%main193926%_ '())) (cons (cons '%#ref - (cons _%kwt193783%_ + (cons _%kwt193942%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193770%_ - _%xargs193810%_))))))) + _%pargs193929%_ + _%xargs193969%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197252 _%stx193714%_)) + (gxc#xform-wrap-source __tmp197411 _%stx193873%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp197251 _%kwset193797%_))) + (__foldr1 cons __tmp197410 _%kwset193956%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197249 - _%stx193714%_ - _%ctx193713%_)))))))))) + __tmp197408 + _%stx193873%_ + _%ctx193872%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g193746193756%_ + _%g193905193915%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e193751193816%_ + (let* ((_%e193910193975%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g193905193915%_ '1 '#f '#f))) - (_%e193752193819%_ + (_%e193911193978%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g193905193915%_ '2 '#f '#f))) - (_%e193753193822%_ + (_%e193912193981%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g193905193915%_ '3 '#f '#f))) - (_%keys193825%_ _%e193753193822%_) - (_%e193754193827%_ + (_%keys193984%_ _%e193912193981%_) + (_%e193913193986%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g193905193915%_ '4 '#f '#f))) - (_%main193830%_ _%e193754193827%_)) - (_%K193750193813%_ - _%main193830%_ - _%keys193825%_)) - (_%else193748193764%_))) + (_%main193989%_ _%e193913193986%_)) + (_%K193909193972%_ + _%main193989%_ + _%keys193984%_)) + (_%else193907193923%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx193713%_ _%stx193714%_))))) - (_%e193732193835%_ + (gxc#xform-call% _%ctx193872%_ _%stx193873%_))))) + (_%e193891193994%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '1 '#f '#f))) - (_%e193733193838%_ + (##unchecked-structure-ref _%self193887193896%_ '1 '#f '#f))) + (_%e193892193997%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '2 '#f '#f))) - (_%e193734193841%_ + (##unchecked-structure-ref _%self193887193896%_ '2 '#f '#f))) + (_%e193893194000%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '3 '#f '#f))) - (_%table193844%_ _%e193734193841%_) - (_%e193735193846%_ + (##unchecked-structure-ref _%self193887193896%_ '3 '#f '#f))) + (_%table194003%_ _%e193893194000%_) + (_%e193894194005%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '4 '#f '#f))) - (_%dispatch193849%_ _%e193735193846%_)) - (_%K193731193832%_ _%dispatch193849%_ _%table193844%_)))) + (##unchecked-structure-ref _%self193887193896%_ '4 '#f '#f))) + (_%dispatch194008%_ _%e193894194005%_)) + (_%K193890193991%_ _%dispatch194008%_ _%table194003%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4466,287 +4466,287 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx193324%_ _%args193325%_) - (let _%lp193327%_ ((_%rest193329%_ _%args193325%_) - (_%pargs193330%_ '()) - (_%kwargs193331%_ '())) - (let* ((_%__stx196705196706%_ _%rest193329%_) - (_%g193337193389%_ + (lambda (_%stx193483%_ _%args193484%_) + (let _%lp193486%_ ((_%rest193488%_ _%args193484%_) + (_%pargs193489%_ '()) + (_%kwargs193490%_ '())) + (let* ((_%__stx196864196865%_ _%rest193488%_) + (_%g193496193548%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196705196706%_))))) - (let ((_%__kont196707196708%_ - (lambda (_%L193568%_ _%L193569%_) - (_%lp193327%_ - _%L193568%_ - (cons _%L193569%_ _%pargs193330%_) - _%kwargs193331%_))) - (_%__kont196709196710%_ - (lambda (_%L193514%_) + _%__stx196864196865%_))))) + (let ((_%__kont196866196867%_ + (lambda (_%L193727%_ _%L193728%_) + (_%lp193486%_ + _%L193727%_ + (cons _%L193728%_ _%pargs193489%_) + _%kwargs193490%_))) + (_%__kont196868196869%_ + (lambda (_%L193673%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L193514%_ _%pargs193330%_)) - (reverse _%kwargs193331%_)))) - (_%__kont196711196712%_ - (lambda (_%L193461%_ _%L193462%_ _%L193463%_) - (let ((_%kw193480%_ + (__foldl1 cons _%L193673%_ _%pargs193489%_)) + (reverse _%kwargs193490%_)))) + (_%__kont196870196871%_ + (lambda (_%L193620%_ _%L193621%_ _%L193622%_) + (let ((_%kw193639%_ (let () (declare (not safe)) - (gx#stx-e _%L193463%_)))) - (if (assq _%kw193480%_ _%kwargs193331%_) + (gx#stx-e _%L193622%_)))) + (if (assq _%kw193639%_ _%kwargs193490%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx193324%_ - _%kw193480%_)) - (_%lp193327%_ - _%L193461%_ - _%pargs193330%_ - (cons (cons _%kw193480%_ _%L193462%_) - _%kwargs193331%_)))))) - (_%__kont196713196714%_ - (lambda (_%L193409%_ _%L193410%_) - (_%lp193327%_ - _%L193409%_ - (cons _%L193410%_ _%pargs193330%_) - _%kwargs193331%_))) - (_%__kont196715196716%_ + _%stx193483%_ + _%kw193639%_)) + (_%lp193486%_ + _%L193620%_ + _%pargs193489%_ + (cons (cons _%kw193639%_ _%L193621%_) + _%kwargs193490%_)))))) + (_%__kont196872196873%_ + (lambda (_%L193568%_ _%L193569%_) + (_%lp193486%_ + _%L193568%_ + (cons _%L193569%_ _%pargs193489%_) + _%kwargs193490%_))) + (_%__kont196874196875%_ (lambda () - (values (reverse _%pargs193330%_) - (reverse _%kwargs193331%_))))) - (let ((_%__match196812196813%_ - (lambda (_%e193368193429%_ - _%hd193369193432%_ - _%tl193370193434%_ - _%e193371193437%_ - _%hd193372193440%_ - _%tl193373193442%_ - _%e193374193445%_ - _%hd193375193448%_ - _%tl193376193450%_ - _%e193377193453%_ - _%hd193378193456%_ - _%tl193379193458%_) - (let ((_%L193461%_ _%tl193379193458%_) - (_%L193462%_ _%hd193378193456%_) - (_%L193463%_ _%hd193375193448%_)) + (values (reverse _%pargs193489%_) + (reverse _%kwargs193490%_))))) + (let ((_%__match196971196972%_ + (lambda (_%e193527193588%_ + _%hd193528193591%_ + _%tl193529193593%_ + _%e193530193596%_ + _%hd193531193599%_ + _%tl193532193601%_ + _%e193533193604%_ + _%hd193534193607%_ + _%tl193535193609%_ + _%e193536193612%_ + _%hd193537193615%_ + _%tl193538193617%_) + (let ((_%L193620%_ _%tl193538193617%_) + (_%L193621%_ _%hd193537193615%_) + (_%L193622%_ _%hd193534193607%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L193463%_)) - (_%__kont196711196712%_ - _%L193461%_ - _%L193462%_ - _%L193463%_) - (_%__kont196713196714%_ - _%tl193370193434%_ - _%hd193369193432%_)))))) + (gx#stx-keyword? _%L193622%_)) + (_%__kont196870196871%_ + _%L193620%_ + _%L193621%_ + _%L193622%_) + (_%__kont196872196873%_ + _%tl193529193593%_ + _%hd193528193591%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196705196706%_)) - (let ((_%e193341193533%_ + (gx#stx-pair? _%__stx196864196865%_)) + (let ((_%e193500193692%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196705196706%_)))) - (let ((_%tl193343193538%_ + (gx#stx-e _%__stx196864196865%_)))) + (let ((_%tl193502193697%_ (let () (declare (not safe)) - (##cdr _%e193341193533%_))) - (_%hd193342193536%_ + (##cdr _%e193500193692%_))) + (_%hd193501193695%_ (let () (declare (not safe)) - (##car _%e193341193533%_)))) + (##car _%e193500193692%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193342193536%_)) - (let ((_%e193344193541%_ + (gx#stx-pair? _%hd193501193695%_)) + (let ((_%e193503193700%_ (let () (declare (not safe)) - (gx#stx-e _%hd193342193536%_)))) - (let ((_%tl193346193546%_ + (gx#stx-e _%hd193501193695%_)))) + (let ((_%tl193505193705%_ (let () (declare (not safe)) - (##cdr _%e193344193541%_))) - (_%hd193345193544%_ + (##cdr _%e193503193700%_))) + (_%hd193504193703%_ (let () (declare (not safe)) - (##car _%e193344193541%_)))) + (##car _%e193503193700%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193345193544%_)) + (gx#identifier? _%hd193504193703%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193345193544%_)) + _%hd193504193703%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193346193546%_)) - (let ((_%e193347193549%_ + _%tl193505193705%_)) + (let ((_%e193506193708%_ (let () (declare (not safe)) (gx#stx-e - _%tl193346193546%_)))) - (let ((_%tl193349193554%_ + _%tl193505193705%_)))) + (let ((_%tl193508193713%_ (let () (declare (not safe)) - (##cdr _%e193347193549%_))) - (_%hd193348193552%_ + (##cdr _%e193506193708%_))) + (_%hd193507193711%_ (let () (declare (not safe)) - (##car _%e193347193549%_)))) + (##car _%e193506193708%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd193348193552%_)) - (let ((_%e193350193557%_ + _%hd193507193711%_)) + (let ((_%e193509193716%_ (let () (declare (not safe)) (gx#stx-e - _%hd193348193552%_)))) - (if (equal? _%e193350193557%_ + _%hd193507193711%_)))) + (if (equal? _%e193509193716%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193349193554%_)) + (gx#stx-null? _%tl193508193713%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193343193538%_)) - (let ((_%e193351193560%_ + (gx#stx-pair? _%tl193502193697%_)) + (let ((_%e193510193719%_ (let () (declare (not safe)) - (gx#stx-e _%tl193343193538%_)))) - (let ((_%tl193353193565%_ + (gx#stx-e _%tl193502193697%_)))) + (let ((_%tl193512193724%_ (let () (declare (not safe)) - (##cdr _%e193351193560%_))) - (_%hd193352193563%_ + (##cdr _%e193510193719%_))) + (_%hd193511193722%_ (let () (declare (not safe)) - (##car _%e193351193560%_)))) - (_%__kont196707196708%_ - _%tl193353193565%_ - _%hd193352193563%_))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (if (equal? _%e193350193557%_ '#!rest) + (##car _%e193510193719%_)))) + (_%__kont196866196867%_ + _%tl193512193724%_ + _%hd193511193722%_))) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) + (if (equal? _%e193509193716%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193349193554%_)) - (_%__kont196709196710%_ _%tl193343193538%_) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) + (gx#stx-null? _%tl193508193713%_)) + (_%__kont196868196869%_ _%tl193502193697%_) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193349193554%_)) + (gx#stx-null? _%tl193508193713%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193343193538%_)) - (let ((_%e193377193453%_ + (gx#stx-pair? _%tl193502193697%_)) + (let ((_%e193536193612%_ (let () (declare (not safe)) - (gx#stx-e _%tl193343193538%_)))) - (let ((_%tl193379193458%_ + (gx#stx-e _%tl193502193697%_)))) + (let ((_%tl193538193617%_ (let () (declare (not safe)) - (##cdr _%e193377193453%_))) - (_%hd193378193456%_ + (##cdr _%e193536193612%_))) + (_%hd193537193615%_ (let () (declare (not safe)) - (##car _%e193377193453%_)))) - (_%__match196812196813%_ - _%e193341193533%_ - _%hd193342193536%_ - _%tl193343193538%_ - _%e193344193541%_ - _%hd193345193544%_ - _%tl193346193546%_ - _%e193347193549%_ - _%hd193348193552%_ - _%tl193349193554%_ - _%e193377193453%_ - _%hd193378193456%_ - _%tl193379193458%_))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_))))) + (##car _%e193536193612%_)))) + (_%__match196971196972%_ + _%e193500193692%_ + _%hd193501193695%_ + _%tl193502193697%_ + _%e193503193700%_ + _%hd193504193703%_ + _%tl193505193705%_ + _%e193506193708%_ + _%hd193507193711%_ + _%tl193508193713%_ + _%e193536193612%_ + _%hd193537193615%_ + _%tl193538193617%_))) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl193349193554%_)) + _%tl193508193713%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193343193538%_)) - (let ((_%e193377193453%_ + _%tl193502193697%_)) + (let ((_%e193536193612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193343193538%_)))) - (let ((_%tl193379193458%_ + (gx#stx-e _%tl193502193697%_)))) + (let ((_%tl193538193617%_ (let () (declare (not safe)) - (##cdr _%e193377193453%_))) - (_%hd193378193456%_ + (##cdr _%e193536193612%_))) + (_%hd193537193615%_ (let () (declare (not safe)) - (##car _%e193377193453%_)))) - (_%__match196812196813%_ - _%e193341193533%_ - _%hd193342193536%_ - _%tl193343193538%_ - _%e193344193541%_ - _%hd193345193544%_ - _%tl193346193546%_ - _%e193347193549%_ - _%hd193348193552%_ - _%tl193349193554%_ - _%e193377193453%_ - _%hd193378193456%_ - _%tl193379193458%_))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_))))) + (##car _%e193536193612%_)))) + (_%__match196971196972%_ + _%e193500193692%_ + _%hd193501193695%_ + _%tl193502193697%_ + _%e193503193700%_ + _%hd193504193703%_ + _%tl193505193705%_ + _%e193506193708%_ + _%hd193507193711%_ + _%tl193508193713%_ + _%e193536193612%_ + _%hd193537193615%_ + _%tl193538193617%_))) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)))) - (_%__kont196715196716%_)))))))) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)))) + (_%__kont196872196873%_ + _%tl193502193697%_ + _%hd193501193695%_)))) + (_%__kont196874196875%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self192396193306%_ _%ctx193308%_ _%stx193309%_ _%args193310%_) - (let* ((_%self193312%_ _%self192396193306%_) - (_%self193314%_ _%self193312%_)) + (lambda (_%self192555193465%_ _%ctx193467%_ _%stx193468%_ _%args193469%_) + (let* ((_%self193471%_ _%self192555193465%_) + (_%self193473%_ _%self193471%_)) (declare (not safe)) - (gxc#xform-call% _%ctx193308%_ _%stx193309%_)))) + (gxc#xform-call% _%ctx193467%_ _%stx193468%_)))) (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 (_%self192994%_ _%stx192995%_) - (let* ((_%__stx196821196822%_ _%stx192995%_) - (_%g192998193038%_ + (lambda (_%self193153%_ _%stx193154%_) + (let* ((_%__stx196980196981%_ _%stx193154%_) + (_%g193157193197%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196821196822%_))))) - (let ((_%__kont196823196824%_ - (lambda (_%L193144%_ _%L193145%_) - (let ((_%$e193172%_ + _%__stx196980196981%_))))) + (let ((_%__kont196982196983%_ + (lambda (_%L193303%_ _%L193304%_) + (let ((_%$e193331%_ (member 'return: - (let ((__tmp197253 - (lambda (_%g193164193167%_ - _%g193165193169%_) - (cons _%g193164193167%_ - _%g193165193169%_)))) + (let ((__tmp197412 + (lambda (_%g193323193326%_ + _%g193324193328%_) + (cons _%g193323193326%_ + _%g193324193328%_)))) (declare (not safe)) - (__foldr1 __tmp197253 '() _%L193145%_)) + (__foldr1 __tmp197412 '() _%L193304%_)) gx#stx-eq?))) - (if _%$e193172%_ - ((lambda (_%tail193175%_) - (let ((_%type193177%_ - (let ((__tmp197254 - (let ((__tmp197255 - (cadr _%tail193175%_))) + (if _%$e193331%_ + ((lambda (_%tail193334%_) + (let ((_%type193336%_ + (let ((__tmp197413 + (let ((__tmp197414 + (cadr _%tail193334%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp197255)))) + __tmp197414)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192995%_ - __tmp197254)))) + _%stx193154%_ + __tmp197413)))) (gxc#check-return-type! - _%stx192995%_ - _%L193144%_ - _%type193177%_) + _%stx193154%_ + _%L193303%_ + _%type193336%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self192994%_ - _%L193144%_)))) - _%$e193172%_) + _%self193153%_ + _%L193303%_)))) + _%$e193331%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192994%_ _%L193144%_)))))) - (_%__kont196827196828%_ - (lambda (_%L193067%_ _%L193068%_) + (gxc#compile-e__1 _%self193153%_ _%L193303%_)))))) + (_%__kont196986196987%_ + (lambda (_%L193226%_ _%L193227%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192994%_ _%L193067%_))))) - (let ((_%__match196858196859%_ - (lambda (_%e193002193088%_ - _%hd193003193091%_ - _%tl193004193093%_ - _%e193005193096%_ - _%hd193006193099%_ - _%tl193007193101%_ - _%e193008193104%_ - _%hd193009193107%_ - _%tl193010193109%_ - _%__splice196825196826%_ - _%target193011193112%_ - _%tl193013193114%_) - (letrec ((_%loop193014193117%_ - (lambda (_%hd193012193120%_ - _%signature193018193122%_) + (gxc#compile-e__1 _%self193153%_ _%L193226%_))))) + (let ((_%__match197017197018%_ + (lambda (_%e193161193247%_ + _%hd193162193250%_ + _%tl193163193252%_ + _%e193164193255%_ + _%hd193165193258%_ + _%tl193166193260%_ + _%e193167193263%_ + _%hd193168193266%_ + _%tl193169193268%_ + _%__splice196984196985%_ + _%target193170193271%_ + _%tl193172193273%_) + (letrec ((_%loop193173193276%_ + (lambda (_%hd193171193279%_ + _%signature193177193281%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193012193120%_)) - (let ((_%e193015193125%_ + (gx#stx-pair? _%hd193171193279%_)) + (let ((_%e193174193284%_ (let () (declare (not safe)) - (gx#stx-e _%hd193012193120%_)))) - (let ((_%lp-tl193017193130%_ + (gx#stx-e _%hd193171193279%_)))) + (let ((_%lp-tl193176193289%_ (let () (declare (not safe)) - (##cdr _%e193015193125%_))) - (_%lp-hd193016193128%_ + (##cdr _%e193174193284%_))) + (_%lp-hd193175193287%_ (let () (declare (not safe)) - (##car _%e193015193125%_)))) - (_%loop193014193117%_ - _%lp-tl193017193130%_ - (cons _%lp-hd193016193128%_ - _%signature193018193122%_)))) - (let ((_%signature193019193133%_ - (reverse _%signature193018193122%_))) + (##car _%e193174193284%_)))) + (_%loop193173193276%_ + _%lp-tl193176193289%_ + (cons _%lp-hd193175193287%_ + _%signature193177193281%_)))) + (let ((_%signature193178193292%_ + (reverse _%signature193177193281%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193007193101%_)) - (let ((_%e193020193136%_ + (gx#stx-pair? _%tl193166193260%_)) + (let ((_%e193179193295%_ (let () (declare (not safe)) (gx#stx-e - _%tl193007193101%_)))) - (let ((_%tl193022193141%_ + _%tl193166193260%_)))) + (let ((_%tl193181193300%_ (let () (declare (not safe)) - (##cdr _%e193020193136%_))) - (_%hd193021193139%_ + (##cdr _%e193179193295%_))) + (_%hd193180193298%_ (let () (declare (not safe)) - (##car _%e193020193136%_)))) + (##car _%e193179193295%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193022193141%_)) - (_%__kont196823196824%_ - _%hd193021193139%_ - _%signature193019193133%_) + _%tl193181193300%_)) + (_%__kont196982196983%_ + _%hd193180193298%_ + _%signature193178193292%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g193157193197%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))))))) - (_%loop193014193117%_ _%target193011193112%_ '()))))) + (_%g193157193197%_)))))))) + (_%loop193173193276%_ _%target193170193271%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196821196822%_)) - (let ((_%e193002193088%_ + (gx#stx-pair? _%__stx196980196981%_)) + (let ((_%e193161193247%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196821196822%_)))) - (let ((_%tl193004193093%_ + (gx#stx-e _%__stx196980196981%_)))) + (let ((_%tl193163193252%_ (let () (declare (not safe)) - (##cdr _%e193002193088%_))) - (_%hd193003193091%_ + (##cdr _%e193161193247%_))) + (_%hd193162193250%_ (let () (declare (not safe)) - (##car _%e193002193088%_)))) + (##car _%e193161193247%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193004193093%_)) - (let ((_%e193005193096%_ + (gx#stx-pair? _%tl193163193252%_)) + (let ((_%e193164193255%_ (let () (declare (not safe)) - (gx#stx-e _%tl193004193093%_)))) - (let ((_%tl193007193101%_ + (gx#stx-e _%tl193163193252%_)))) + (let ((_%tl193166193260%_ (let () (declare (not safe)) - (##cdr _%e193005193096%_))) - (_%hd193006193099%_ + (##cdr _%e193164193255%_))) + (_%hd193165193258%_ (let () (declare (not safe)) - (##car _%e193005193096%_)))) + (##car _%e193164193255%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193006193099%_)) - (let ((_%e193008193104%_ + (gx#stx-pair? _%hd193165193258%_)) + (let ((_%e193167193263%_ (let () (declare (not safe)) - (gx#stx-e _%hd193006193099%_)))) - (let ((_%tl193010193109%_ + (gx#stx-e _%hd193165193258%_)))) + (let ((_%tl193169193268%_ (let () (declare (not safe)) - (##cdr _%e193008193104%_))) - (_%hd193009193107%_ + (##cdr _%e193167193263%_))) + (_%hd193168193266%_ (let () (declare (not safe)) - (##car _%e193008193104%_)))) + (##car _%e193167193263%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193009193107%_)) + _%hd193168193266%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd193009193107%_)) + _%hd193168193266%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl193010193109%_)) - (let ((_%__splice196825196826%_ + _%tl193169193268%_)) + (let ((_%__splice196984196985%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193010193109%_ + _%tl193169193268%_ '0)))) - (let ((_%tl193013193114%_ + (let ((_%tl193172193273%_ (let () (declare (not safe)) (##vector-ref - _%__splice196825196826%_ + _%__splice196984196985%_ '1))) - (_%target193011193112%_ + (_%target193170193271%_ (let () (declare (not safe)) (##vector-ref - _%__splice196825196826%_ + _%__splice196984196985%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193013193114%_)) - (_%__match196858196859%_ - _%e193002193088%_ - _%hd193003193091%_ - _%tl193004193093%_ - _%e193005193096%_ - _%hd193006193099%_ - _%tl193007193101%_ - _%e193008193104%_ - _%hd193009193107%_ - _%tl193010193109%_ - _%__splice196825196826%_ - _%target193011193112%_ - _%tl193013193114%_) + _%tl193172193273%_)) + (_%__match197017197018%_ + _%e193161193247%_ + _%hd193162193250%_ + _%tl193163193252%_ + _%e193164193255%_ + _%hd193165193258%_ + _%tl193166193260%_ + _%e193167193263%_ + _%hd193168193266%_ + _%tl193169193268%_ + _%__splice196984196985%_ + _%target193170193271%_ + _%tl193172193273%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193007193101%_)) - (let ((_%e193031193059%_ + (gx#stx-pair? _%tl193166193260%_)) + (let ((_%e193190193218%_ (let () (declare (not safe)) - (gx#stx-e _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + (gx#stx-e _%tl193166193260%_)))) + (let ((_%tl193192193223%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e193190193218%_))) + (_%hd193191193221%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e193190193218%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + (gx#stx-null? _%tl193192193223%_)) + (_%__kont196986196987%_ + _%hd193191193221%_ + _%hd193165193258%_) (let () (declare (not safe)) - (_%g192998193038%_))))) - (let () (declare (not safe)) (_%g192998193038%_)))))) + (_%g193157193197%_))))) + (let () (declare (not safe)) (_%g193157193197%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193007193101%_)) - (let ((_%e193031193059%_ + _%tl193166193260%_)) + (let ((_%e193190193218%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193007193101%_)))) - (let ((_%tl193033193064%_ - (let () (declare (not safe)) (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (gx#stx-e _%tl193166193260%_)))) + (let ((_%tl193192193223%_ + (let () (declare (not safe)) (##cdr _%e193190193218%_))) + (_%hd193191193221%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e193190193218%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) - (let () (declare (not safe)) (_%g192998193038%_))))) - (let () (declare (not safe)) (_%g192998193038%_)))) + (gx#stx-null? _%tl193192193223%_)) + (_%__kont196986196987%_ + _%hd193191193221%_ + _%hd193165193258%_) + (let () (declare (not safe)) (_%g193157193197%_))))) + (let () (declare (not safe)) (_%g193157193197%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193007193101%_)) - (let ((_%e193031193059%_ + _%tl193166193260%_)) + (let ((_%e193190193218%_ (let () (declare (not safe)) (gx#stx-e - _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + _%tl193166193260%_)))) + (let ((_%tl193192193223%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e193190193218%_))) + (_%hd193191193221%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e193190193218%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + _%tl193192193223%_)) + (_%__kont196986196987%_ + _%hd193191193221%_ + _%hd193165193258%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g193157193197%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))) + (_%g193157193197%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193007193101%_)) - (let ((_%e193031193059%_ + _%tl193166193260%_)) + (let ((_%e193190193218%_ (let () (declare (not safe)) (gx#stx-e - _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + _%tl193166193260%_)))) + (let ((_%tl193192193223%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e193190193218%_))) + (_%hd193191193221%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e193190193218%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + _%tl193192193223%_)) + (_%__kont196986196987%_ + _%hd193191193221%_ + _%hd193165193258%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g193157193197%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))))) + (_%g193157193197%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193007193101%_)) - (let ((_%e193031193059%_ + (gx#stx-pair? _%tl193166193260%_)) + (let ((_%e193190193218%_ (let () (declare (not safe)) - (gx#stx-e _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + (gx#stx-e _%tl193166193260%_)))) + (let ((_%tl193192193223%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e193190193218%_))) + (_%hd193191193221%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e193190193218%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + _%tl193192193223%_)) + (_%__kont196986196987%_ + _%hd193191193221%_ + _%hd193165193258%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g193157193197%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))))) - (let () (declare (not safe)) (_%g192998193038%_))))) - (let () (declare (not safe)) (_%g192998193038%_)))))))) + (_%g193157193197%_)))))) + (let () (declare (not safe)) (_%g193157193197%_))))) + (let () (declare (not safe)) (_%g193157193197%_)))))))) (define gxc#check-return-type! - (lambda (_%stx192972%_ _%expr192973%_ _%type192974%_) - (let ((_%$e192976%_ (not _%type192974%_))) - (if _%$e192976%_ - _%$e192976%_ - (let ((_%$e192979%_ - (eq? (##structure-ref _%type192974%_ '1 gxc#!type::t '#f) + (lambda (_%stx193131%_ _%expr193132%_ _%type193133%_) + (let ((_%$e193135%_ (not _%type193133%_))) + (if _%$e193135%_ + _%$e193135%_ + (let ((_%$e193138%_ + (eq? (##structure-ref _%type193133%_ '1 gxc#!type::t '#f) 't))) - (if _%$e192979%_ - _%$e192979%_ - (let ((_%expr-type192983%_ + (if _%$e193138%_ + _%$e193138%_ + (let ((_%expr-type193142%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr192973%_)))) - (if (not _%expr-type192983%_) + _%expr193132%_)))) + (if (not _%expr-type193142%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx192972%_ - _%type192974%_)) + _%stx193131%_ + _%type193133%_)) (if (eq? 't (##structure-ref - _%expr-type192983%_ + _%expr-type193142%_ '1 gxc#!type::t '#f)) @@ -5150,75 +5150,75 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx192972%_ - _%type192974%_ - _%expr-type192983%_)) - (let ((_%$e192987%_ + _%stx193131%_ + _%type193133%_ + _%expr-type193142%_)) + (let ((_%$e193146%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type192983%_ + _%expr-type193142%_ 'gxc#!abort::t)))) - (if _%$e192987%_ - _%$e192987%_ - (let ((_%$e192990%_ + (if _%$e193146%_ + _%$e193146%_ + (let ((_%$e193149%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type192983%_ - _%type192974%_)))) - (if _%$e192990%_ - _%$e192990%_ + _%expr-type193142%_ + _%type193133%_)))) + (if _%$e193149%_ + _%$e193149%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx192972%_ - _%type192974%_ - _%expr-type192983%_))))))))))))))) + _%stx193131%_ + _%type193133%_ + _%expr-type193142%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self192398%_ _%stx192399%_) - (let* ((_%__stx196903196904%_ _%stx192399%_) - (_%g192404192514%_ + (lambda (_%self192557%_ _%stx192558%_) + (let* ((_%__stx197062197063%_ _%stx192558%_) + (_%g192563192673%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196903196904%_))))) - (let ((_%__kont196905196906%_ - (lambda (_%L192946%_ _%L192947%_ _%L192948%_) - (if (let () (declare (not safe)) (gx#stx-e _%L192948%_)) + _%__stx197062197063%_))))) + (let ((_%__kont197064197065%_ + (lambda (_%L193105%_ _%L193106%_ _%L193107%_) + (if (let () (declare (not safe)) (gx#stx-e _%L193107%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192398%_ _%L192947%_)) + (gxc#compile-e__1 _%self192557%_ _%L193106%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192398%_ _%L192946%_))))) - (_%__kont196907196908%_ - (lambda (_%L192772%_ _%L192773%_ _%L192774%_ _%L192775%_) - (let ((_%$e192807%_ - (let ((__tmp197256 + (gxc#compile-e__1 _%self192557%_ _%L193105%_))))) + (_%__kont197066197067%_ + (lambda (_%L192931%_ _%L192932%_ _%L192933%_ _%L192934%_) + (let ((_%$e192966%_ + (let ((__tmp197415 (let () (declare (not safe)) - (gxc#identifier-symbol _%L192775%_)))) + (gxc#identifier-symbol _%L192934%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp197256)))) - (if _%$e192807%_ - ((lambda (_%pred-type192810%_) + (gxc#optimizer-lookup-type __tmp197415)))) + (if _%$e192966%_ + ((lambda (_%pred-type192969%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type192810%_ + _%pred-type192969%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type192810%_ + _%pred-type192969%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test192815%_ - (let ((__tmp197257 + (let* ((_%test192974%_ + (let ((__tmp197416 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5228,1749 +5228,1749 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192775%_ '())) + (cons _%L192934%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192774%_ '())) + (cons _%L192933%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197257 - _%stx192399%_ - _%self192398%_))) - (_%K192819%_ - (let ((__tmp197258 + __tmp197416 + _%stx192558%_ + _%self192557%_))) + (_%K192978%_ + (let ((__tmp197417 (lambda () - (let ((__tmp197261 + (let ((__tmp197420 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192398%_ - _%L192773%_)))) - (__tmp197259 + _%self192557%_ + _%L192932%_)))) + (__tmp197418 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L192774%_)) - (let ((__tmp197260 + (gxc#identifier-symbol _%L192933%_)) + (let ((__tmp197419 (##structure-ref - _%pred-type192810%_ + _%pred-type192969%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192399%_ - __tmp197260))) + _%stx192558%_ + __tmp197419))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp197261 + __tmp197420 gxc#current-compile-path-type - __tmp197259))))) + __tmp197418))))) (declare (not safe)) - (__make-promise __tmp197258))) - (_%E192822%_ - (let ((__tmp197262 + (__make-promise __tmp197417))) + (_%E192981%_ + (let ((__tmp197421 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192398%_ - _%L192772%_))))) + _%self192557%_ + _%L192931%_))))) (declare (not safe)) - (__make-promise __tmp197262))) - (_%__stx196881196882%_ _%test192815%_) - (_%g192826192840%_ + (__make-promise __tmp197421))) + (_%__stx197040197041%_ _%test192974%_) + (_%g192985192999%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196881196882%_))))) - (let ((_%__kont196883196884%_ - (lambda (_%L192868%_ _%L192869%_) + _%__stx197040197041%_))))) + (let ((_%__kont197042197043%_ + (lambda (_%L193027%_ _%L193028%_) (if (let () (declare (not safe)) - (gx#stx-e _%L192868%_)) - (force _%K192819%_) - (force _%E192822%_)))) - (_%__kont196885196886%_ + (gx#stx-e _%L193027%_)) + (force _%K192978%_) + (force _%E192981%_)))) + (_%__kont197044197045%_ (lambda () - (let ((__tmp197263 + (let ((__tmp197422 (cons '%#if - (cons _%test192815%_ - (cons (force _%K192819%_) + (cons _%test192974%_ + (cons (force _%K192978%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E192822%_) '())))))) + (cons (force _%E192981%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197263 - _%stx192399%_))))) + __tmp197422 + _%stx192558%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196881196882%_)) - (let ((_%e192830192852%_ + (gx#stx-pair? _%__stx197040197041%_)) + (let ((_%e192989193011%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196881196882%_)))) - (let ((_%tl192832192857%_ + _%__stx197040197041%_)))) + (let ((_%tl192991193016%_ (let () (declare (not safe)) - (##cdr _%e192830192852%_))) - (_%hd192831192855%_ + (##cdr _%e192989193011%_))) + (_%hd192990193014%_ (let () (declare (not safe)) - (##car _%e192830192852%_)))) + (##car _%e192989193011%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192832192857%_)) - (let ((_%e192833192860%_ + _%tl192991193016%_)) + (let ((_%e192992193019%_ (let () (declare (not safe)) (gx#stx-e - _%tl192832192857%_)))) - (let ((_%tl192835192865%_ + _%tl192991193016%_)))) + (let ((_%tl192994193024%_ (let () (declare (not safe)) - (##cdr _%e192833192860%_))) - (_%hd192834192863%_ + (##cdr _%e192992193019%_))) + (_%hd192993193022%_ (let () (declare (not safe)) - (##car _%e192833192860%_)))) + (##car _%e192992193019%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192835192865%_)) - (_%__kont196883196884%_ - _%hd192834192863%_ - _%hd192831192855%_) - (_%__kont196885196886%_)))) - (_%__kont196885196886%_)))) - (_%__kont196885196886%_)))) + _%tl192994193024%_)) + (_%__kont197042197043%_ + _%hd192993193022%_ + _%hd192990193014%_) + (_%__kont197044197045%_)))) + (_%__kont197044197045%_)))) + (_%__kont197044197045%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self192398%_ - _%stx192399%_)))) - _%$e192807%_) + _%self192557%_ + _%stx192558%_)))) + _%$e192966%_) (let () (declare (not safe)) (gxc#xform-operands - _%self192398%_ - _%stx192399%_)))))) - (_%__kont196909196910%_ - (lambda (_%L192648%_ _%L192649%_ _%L192650%_ _%L192651%_) + _%self192557%_ + _%stx192558%_)))))) + (_%__kont197068197069%_ + (lambda (_%L192807%_ _%L192808%_ _%L192809%_ _%L192810%_) (gxc#optimize-if% - _%self192398%_ - (let ((__tmp197264 + _%self192557%_ + (let ((__tmp197423 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L192650%_ - (cons _%L192648%_ - (cons _%L192649%_ '())))))) + (cons _%L192809%_ + (cons _%L192807%_ + (cons _%L192808%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197264 _%stx192399%_))))) - (_%__kont196911196912%_ - (lambda (_%L192551%_ _%L192552%_ _%L192553%_) + (gxc#xform-wrap-source __tmp197423 _%stx192558%_))))) + (_%__kont197070197071%_ + (lambda (_%L192710%_ _%L192711%_ _%L192712%_) (let () (declare (not safe)) - (gxc#xform-operands _%self192398%_ _%stx192399%_))))) - (let ((_%__match197110197111%_ - (lambda (_%e192468192576%_ - _%hd192469192579%_ - _%tl192470192581%_ - _%e192471192584%_ - _%hd192472192587%_ - _%tl192473192589%_ - _%e192474192592%_ - _%hd192475192595%_ - _%tl192476192597%_ - _%e192477192600%_ - _%hd192478192603%_ - _%tl192479192605%_ - _%e192480192608%_ - _%hd192481192611%_ - _%tl192482192613%_ - _%e192483192616%_ - _%hd192484192619%_ - _%tl192485192621%_ - _%e192486192624%_ - _%hd192487192627%_ - _%tl192488192629%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) - (let ((_%L192648%_ _%hd192493192643%_) - (_%L192649%_ _%hd192490192635%_) - (_%L192650%_ _%hd192487192627%_) - (_%L192651%_ _%hd192484192619%_)) + (gxc#xform-operands _%self192557%_ _%stx192558%_))))) + (let ((_%__match197269197270%_ + (lambda (_%e192627192735%_ + _%hd192628192738%_ + _%tl192629192740%_ + _%e192630192743%_ + _%hd192631192746%_ + _%tl192632192748%_ + _%e192633192751%_ + _%hd192634192754%_ + _%tl192635192756%_ + _%e192636192759%_ + _%hd192637192762%_ + _%tl192638192764%_ + _%e192639192767%_ + _%hd192640192770%_ + _%tl192641192772%_ + _%e192642192775%_ + _%hd192643192778%_ + _%tl192644192780%_ + _%e192645192783%_ + _%hd192646192786%_ + _%tl192647192788%_ + _%e192648192791%_ + _%hd192649192794%_ + _%tl192650192796%_ + _%e192651192799%_ + _%hd192652192802%_ + _%tl192653192804%_) + (let ((_%L192807%_ _%hd192652192802%_) + (_%L192808%_ _%hd192649192794%_) + (_%L192809%_ _%hd192646192786%_) + (_%L192810%_ _%hd192643192778%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L192651%_ 'not)) - (_%__kont196909196910%_ - _%L192648%_ - _%L192649%_ - _%L192650%_ - _%L192651%_) - (_%__kont196911196912%_ - _%hd192493192643%_ - _%hd192490192635%_ - _%hd192472192587%_)))))) + (gxc#runtime-identifier=? _%L192810%_ 'not)) + (_%__kont197068197069%_ + _%L192807%_ + _%L192808%_ + _%L192809%_ + _%L192810%_) + (_%__kont197070197071%_ + _%hd192652192802%_ + _%hd192649192794%_ + _%hd192631192746%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196903196904%_)) - (let ((_%e192409192898%_ + (gx#stx-pair? _%__stx197062197063%_)) + (let ((_%e192568193057%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196903196904%_)))) - (let ((_%tl192411192903%_ + (gx#stx-e _%__stx197062197063%_)))) + (let ((_%tl192570193062%_ (let () (declare (not safe)) - (##cdr _%e192409192898%_))) - (_%hd192410192901%_ + (##cdr _%e192568193057%_))) + (_%hd192569193060%_ (let () (declare (not safe)) - (##car _%e192409192898%_)))) + (##car _%e192568193057%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192411192903%_)) - (let ((_%e192412192906%_ + (gx#stx-pair? _%tl192570193062%_)) + (let ((_%e192571193065%_ (let () (declare (not safe)) - (gx#stx-e _%tl192411192903%_)))) - (let ((_%tl192414192911%_ + (gx#stx-e _%tl192570193062%_)))) + (let ((_%tl192573193070%_ (let () (declare (not safe)) - (##cdr _%e192412192906%_))) - (_%hd192413192909%_ + (##cdr _%e192571193065%_))) + (_%hd192572193068%_ (let () (declare (not safe)) - (##car _%e192412192906%_)))) + (##car _%e192571193065%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192413192909%_)) - (let ((_%e192415192914%_ + (gx#stx-pair? _%hd192572193068%_)) + (let ((_%e192574193073%_ (let () (declare (not safe)) - (gx#stx-e _%hd192413192909%_)))) - (let ((_%tl192417192919%_ + (gx#stx-e _%hd192572193068%_)))) + (let ((_%tl192576193078%_ (let () (declare (not safe)) - (##cdr _%e192415192914%_))) - (_%hd192416192917%_ + (##cdr _%e192574193073%_))) + (_%hd192575193076%_ (let () (declare (not safe)) - (##car _%e192415192914%_)))) + (##car _%e192574193073%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192416192917%_)) + _%hd192575193076%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd192416192917%_)) + _%hd192575193076%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192417192919%_)) - (let ((_%e192418192922%_ + _%tl192576193078%_)) + (let ((_%e192577193081%_ (let () (declare (not safe)) (gx#stx-e - _%tl192417192919%_)))) - (let ((_%tl192420192927%_ + _%tl192576193078%_)))) + (let ((_%tl192579193086%_ (let () (declare (not safe)) - (##cdr _%e192418192922%_))) - (_%hd192419192925%_ + (##cdr _%e192577193081%_))) + (_%hd192578193084%_ (let () (declare (not safe)) - (##car _%e192418192922%_)))) + (##car _%e192577193081%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192420192927%_)) + _%tl192579193086%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192421192930%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192580193089%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192423192935%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192582193094%_ (let () (declare (not safe)) - (##cdr _%e192421192930%_))) - (_%hd192422192933%_ + (##cdr _%e192580193089%_))) + (_%hd192581193092%_ (let () (declare (not safe)) - (##car _%e192421192930%_)))) + (##car _%e192580193089%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192423192935%_)) - (let ((_%e192424192938%_ + (gx#stx-pair? _%tl192582193094%_)) + (let ((_%e192583193097%_ (let () (declare (not safe)) - (gx#stx-e _%tl192423192935%_)))) - (let ((_%tl192426192943%_ + (gx#stx-e _%tl192582193094%_)))) + (let ((_%tl192585193102%_ (let () (declare (not safe)) - (##cdr _%e192424192938%_))) - (_%hd192425192941%_ + (##cdr _%e192583193097%_))) + (_%hd192584193100%_ (let () (declare (not safe)) - (##car _%e192424192938%_)))) + (##car _%e192583193097%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192426192943%_)) - (_%__kont196905196906%_ - _%hd192425192941%_ - _%hd192422192933%_ - _%hd192419192925%_) + (gx#stx-null? _%tl192585193102%_)) + (_%__kont197064197065%_ + _%hd192584193100%_ + _%hd192581193092%_ + _%hd192578193084%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ - (let () (declare (not safe)) (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ + (let () (declare (not safe)) (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd192416192917%_)) + _%hd192575193076%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192417192919%_)) - (let ((_%e192440192708%_ + _%tl192576193078%_)) + (let ((_%e192599192867%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192417192919%_)))) - (let ((_%tl192442192713%_ - (let () (declare (not safe)) (##cdr _%e192440192708%_))) - (_%hd192441192711%_ + (gx#stx-e _%tl192576193078%_)))) + (let ((_%tl192601192872%_ + (let () (declare (not safe)) (##cdr _%e192599192867%_))) + (_%hd192600192870%_ (let () (declare (not safe)) - (##car _%e192440192708%_)))) + (##car _%e192599192867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192441192711%_)) - (let ((_%e192443192716%_ + (gx#stx-pair? _%hd192600192870%_)) + (let ((_%e192602192875%_ (let () (declare (not safe)) - (gx#stx-e _%hd192441192711%_)))) - (let ((_%tl192445192721%_ + (gx#stx-e _%hd192600192870%_)))) + (let ((_%tl192604192880%_ (let () (declare (not safe)) - (##cdr _%e192443192716%_))) - (_%hd192444192719%_ + (##cdr _%e192602192875%_))) + (_%hd192603192878%_ (let () (declare (not safe)) - (##car _%e192443192716%_)))) + (##car _%e192602192875%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192444192719%_)) + (gx#identifier? _%hd192603192878%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192444192719%_)) + (gx#stx-eq? '%#ref _%hd192603192878%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192445192721%_)) - (let ((_%e192446192724%_ + (gx#stx-pair? _%tl192604192880%_)) + (let ((_%e192605192883%_ (let () (declare (not safe)) - (gx#stx-e _%tl192445192721%_)))) - (let ((_%tl192448192729%_ + (gx#stx-e _%tl192604192880%_)))) + (let ((_%tl192607192888%_ (let () (declare (not safe)) - (##cdr _%e192446192724%_))) - (_%hd192447192727%_ + (##cdr _%e192605192883%_))) + (_%hd192606192886%_ (let () (declare (not safe)) - (##car _%e192446192724%_)))) + (##car _%e192605192883%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192448192729%_)) + _%tl192607192888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192442192713%_)) - (let ((_%e192449192732%_ + _%tl192601192872%_)) + (let ((_%e192608192891%_ (let () (declare (not safe)) (gx#stx-e - _%tl192442192713%_)))) - (let ((_%tl192451192737%_ + _%tl192601192872%_)))) + (let ((_%tl192610192896%_ (let () (declare (not safe)) - (##cdr _%e192449192732%_))) - (_%hd192450192735%_ + (##cdr _%e192608192891%_))) + (_%hd192609192894%_ (let () (declare (not safe)) - (##car _%e192449192732%_)))) + (##car _%e192608192891%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192450192735%_)) - (let ((_%e192452192740%_ + _%hd192609192894%_)) + (let ((_%e192611192899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192450192735%_)))) - (let ((_%tl192454192745%_ + (gx#stx-e _%hd192609192894%_)))) + (let ((_%tl192613192904%_ (let () (declare (not safe)) - (##cdr _%e192452192740%_))) - (_%hd192453192743%_ + (##cdr _%e192611192899%_))) + (_%hd192612192902%_ (let () (declare (not safe)) - (##car _%e192452192740%_)))) + (##car _%e192611192899%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192453192743%_)) + (gx#identifier? _%hd192612192902%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192453192743%_)) + (gx#stx-eq? '%#ref _%hd192612192902%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192454192745%_)) - (let ((_%e192455192748%_ + (gx#stx-pair? _%tl192613192904%_)) + (let ((_%e192614192907%_ (let () (declare (not safe)) - (gx#stx-e _%tl192454192745%_)))) - (let ((_%tl192457192753%_ + (gx#stx-e _%tl192613192904%_)))) + (let ((_%tl192616192912%_ (let () (declare (not safe)) - (##cdr _%e192455192748%_))) - (_%hd192456192751%_ + (##cdr _%e192614192907%_))) + (_%hd192615192910%_ (let () (declare (not safe)) - (##car _%e192455192748%_)))) + (##car _%e192614192907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192457192753%_)) + (gx#stx-null? _%tl192616192912%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192451192737%_)) + _%tl192610192896%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192458192756%_ + _%tl192573193070%_)) + (let ((_%e192617192915%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192460192761%_ + _%tl192573193070%_)))) + (let ((_%tl192619192920%_ (let () (declare (not safe)) - (##cdr _%e192458192756%_))) - (_%hd192459192759%_ + (##cdr _%e192617192915%_))) + (_%hd192618192918%_ (let () (declare (not safe)) - (##car _%e192458192756%_)))) + (##car _%e192617192915%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192460192761%_)) - (let ((_%e192461192764%_ + _%tl192619192920%_)) + (let ((_%e192620192923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192460192761%_)))) - (let ((_%tl192463192769%_ + (gx#stx-e _%tl192619192920%_)))) + (let ((_%tl192622192928%_ (let () (declare (not safe)) - (##cdr _%e192461192764%_))) - (_%hd192462192767%_ + (##cdr _%e192620192923%_))) + (_%hd192621192926%_ (let () (declare (not safe)) - (##car _%e192461192764%_)))) + (##car _%e192620192923%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192463192769%_)) - (_%__kont196907196908%_ - _%hd192462192767%_ - _%hd192459192759%_ - _%hd192456192751%_ - _%hd192447192727%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl192622192928%_)) + (_%__kont197066197067%_ + _%hd192621192926%_ + _%hd192618192918%_ + _%hd192615192910%_ + _%hd192606192886%_) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g192563192673%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_)))) + (_%g192563192673%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192451192737%_)) + _%tl192610192896%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192489192632%_ + _%tl192573193070%_)) + (let ((_%e192648192791%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + _%tl192573193070%_)))) + (let ((_%tl192650192796%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e192648192791%_))) + (_%hd192649192794%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e192648192791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192491192637%_)) - (let ((_%e192492192640%_ + _%tl192650192796%_)) + (let ((_%e192651192799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + (gx#stx-e _%tl192650192796%_)))) + (let ((_%tl192653192804%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e192651192799%_))) + (_%hd192652192802%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e192651192799%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl192653192804%_)) + (_%__match197269197270%_ + _%e192568193057%_ + _%hd192569193060%_ + _%tl192570193062%_ + _%e192571193065%_ + _%hd192572193068%_ + _%tl192573193070%_ + _%e192574193073%_ + _%hd192575193076%_ + _%tl192576193078%_ + _%e192599192867%_ + _%hd192600192870%_ + _%tl192601192872%_ + _%e192602192875%_ + _%hd192603192878%_ + _%tl192604192880%_ + _%e192605192883%_ + _%hd192606192886%_ + _%tl192607192888%_ + _%e192608192891%_ + _%hd192609192894%_ + _%tl192610192896%_ + _%e192648192791%_ + _%hd192649192794%_ + _%tl192650192796%_ + _%e192651192799%_ + _%hd192652192802%_ + _%tl192653192804%_) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g192563192673%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_))))))) + (_%g192563192673%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl192610192896%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192648192791%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + _%tl192573193070%_)))) + (let ((_%tl192650192796%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e192648192791%_))) + (_%hd192649192794%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e192648192791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192491192637%_)) - (let ((_%e192492192640%_ + _%tl192650192796%_)) + (let ((_%e192651192799%_ (let () (declare (not safe)) (gx#stx-e - _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + _%tl192650192796%_)))) + (let ((_%tl192653192804%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e192651192799%_))) + (_%hd192652192802%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e192651192799%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + _%tl192653192804%_)) + (_%__match197269197270%_ + _%e192568193057%_ + _%hd192569193060%_ + _%tl192570193062%_ + _%e192571193065%_ + _%hd192572193068%_ + _%tl192573193070%_ + _%e192574193073%_ + _%hd192575193076%_ + _%tl192576193078%_ + _%e192599192867%_ + _%hd192600192870%_ + _%tl192601192872%_ + _%e192602192875%_ + _%hd192603192878%_ + _%tl192604192880%_ + _%e192605192883%_ + _%hd192606192886%_ + _%tl192607192888%_ + _%e192608192891%_ + _%hd192609192894%_ + _%tl192610192896%_ + _%e192648192791%_ + _%hd192649192794%_ + _%tl192650192796%_ + _%e192651192799%_ + _%hd192652192802%_ + _%tl192653192804%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g192563192673%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl192610192896%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192648192791%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192650192796%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e192648192791%_))) + (_%hd192649192794%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e192648192791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192491192637%_)) - (let ((_%e192492192640%_ + _%tl192650192796%_)) + (let ((_%e192651192799%_ (let () (declare (not safe)) (gx#stx-e - _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + _%tl192650192796%_)))) + (let ((_%tl192653192804%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e192651192799%_))) + (_%hd192652192802%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e192651192799%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + _%tl192653192804%_)) + (_%__match197269197270%_ + _%e192568193057%_ + _%hd192569193060%_ + _%tl192570193062%_ + _%e192571193065%_ + _%hd192572193068%_ + _%tl192573193070%_ + _%e192574193073%_ + _%hd192575193076%_ + _%tl192576193078%_ + _%e192599192867%_ + _%hd192600192870%_ + _%tl192601192872%_ + _%e192602192875%_ + _%hd192603192878%_ + _%tl192604192880%_ + _%e192605192883%_ + _%hd192606192886%_ + _%tl192607192888%_ + _%e192608192891%_ + _%hd192609192894%_ + _%tl192610192896%_ + _%e192648192791%_ + _%hd192649192794%_ + _%tl192650192796%_ + _%e192651192799%_ + _%hd192652192802%_ + _%tl192653192804%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g192563192673%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl192610192896%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192648192791%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192650192796%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e192648192791%_))) + (_%hd192649192794%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e192648192791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192491192637%_)) - (let ((_%e192492192640%_ + (gx#stx-pair? _%tl192650192796%_)) + (let ((_%e192651192799%_ (let () (declare (not safe)) (gx#stx-e - _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + _%tl192650192796%_)))) + (let ((_%tl192653192804%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e192651192799%_))) + (_%hd192652192802%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e192651192799%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + _%tl192653192804%_)) + (_%__match197269197270%_ + _%e192568193057%_ + _%hd192569193060%_ + _%tl192570193062%_ + _%e192571193065%_ + _%hd192572193068%_ + _%tl192573193070%_ + _%e192574193073%_ + _%hd192575193076%_ + _%tl192576193078%_ + _%e192599192867%_ + _%hd192600192870%_ + _%tl192601192872%_ + _%e192602192875%_ + _%hd192603192878%_ + _%tl192604192880%_ + _%e192605192883%_ + _%hd192606192886%_ + _%tl192607192888%_ + _%e192608192891%_ + _%hd192609192894%_ + _%tl192610192896%_ + _%e192648192791%_ + _%hd192649192794%_ + _%tl192650192796%_ + _%e192651192799%_ + _%hd192652192802%_ + _%tl192653192804%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g192563192673%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))))) + (_%g192563192673%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl192610192896%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192648192791%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192650192796%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e192648192791%_))) + (_%hd192649192794%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e192648192791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192491192637%_)) - (let ((_%e192492192640%_ + (gx#stx-pair? _%tl192650192796%_)) + (let ((_%e192651192799%_ (let () (declare (not safe)) - (gx#stx-e _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + (gx#stx-e _%tl192650192796%_)))) + (let ((_%tl192653192804%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e192651192799%_))) + (_%hd192652192802%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e192651192799%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + (gx#stx-null? _%tl192653192804%_)) + (_%__match197269197270%_ + _%e192568193057%_ + _%hd192569193060%_ + _%tl192570193062%_ + _%e192571193065%_ + _%hd192572193068%_ + _%tl192573193070%_ + _%e192574193073%_ + _%hd192575193076%_ + _%tl192576193078%_ + _%e192599192867%_ + _%hd192600192870%_ + _%tl192601192872%_ + _%e192602192875%_ + _%hd192603192878%_ + _%tl192604192880%_ + _%e192605192883%_ + _%hd192606192886%_ + _%tl192607192888%_ + _%e192608192891%_ + _%hd192609192894%_ + _%tl192610192896%_ + _%e192648192791%_ + _%hd192649192794%_ + _%tl192650192796%_ + _%e192651192799%_ + _%hd192652192802%_ + _%tl192653192804%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))))) + (_%g192563192673%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ - (let () (declare (not safe)) (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ + (let () (declare (not safe)) (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_)))))) + (_%g192563192673%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))) + (_%g192563192673%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))) + (_%g192563192673%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))))) + (_%g192563192673%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ - (let () (declare (not safe)) (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ + (let () (declare (not safe)) (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ - (let () (declare (not safe)) (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (gx#stx-e _%tl192665192699%_)))) + (let ((_%tl192668192707%_ + (let () (declare (not safe)) (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_)))))) + (_%g192563192673%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl192573193070%_)) + (let ((_%e192663192694%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl192573193070%_)))) + (let ((_%tl192665192699%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e192663192694%_))) + (_%hd192664192697%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e192663192694%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl192665192699%_)) + (let ((_%e192666192702%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl192665192699%_)))) + (let ((_%tl192668192707%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e192666192702%_))) + (_%hd192667192705%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e192666192702%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl192668192707%_)) + (_%__kont197070197071%_ + _%hd192667192705%_ + _%hd192664192697%_ + _%hd192572193068%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g192563192673%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))))))))) + (_%g192563192673%_)))))) + (let () (declare (not safe)) (_%g192563192673%_))))) + (let () (declare (not safe)) (_%g192563192673%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index 23e87d192..ca38d9b70 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]#_g197266_| + (define |gxc[1]#_g197425_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197268_| + (define |gxc[1]#_g197427_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197270_| + (define |gxc[1]#_g197429_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197272_| + (define |gxc[1]#_g197431_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197274_| + (define |gxc[1]#_g197433_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197276_| + (define |gxc[1]#_g197435_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197278_| + (define |gxc[1]#_g197437_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197280_| + (define |gxc[1]#_g197439_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj197138 + (let ((__obj197297 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197138 + __obj197297 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj197297 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '6 '#f '#f)) - (let ((__tmp197265 (cons |gxc[1]#_g197266_| '()))) + (##unchecked-structure-set! __obj197297 '() '6 '#f '#f)) + (let ((__tmp197424 (cons |gxc[1]#_g197425_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197265 '3 '#f '#f)) + (##unchecked-structure-set! __obj197297 __tmp197424 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197297 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197297 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197297 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#f '11 '#f '#f)) - (let ((__tmp197267 |gxc[1]#_g197268_|)) + (##unchecked-structure-set! __obj197297 '#f '11 '#f '#f)) + (let ((__tmp197426 |gxc[1]#_g197427_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197267 '12 '#f '#f)) - (let ((__tmp197269 |gxc[1]#_g197270_|)) + (##unchecked-structure-set! __obj197297 __tmp197426 '12 '#f '#f)) + (let ((__tmp197428 |gxc[1]#_g197429_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197269 '13 '#f '#f)) - (let ((__tmp197271 |gxc[1]#_g197272_|)) + (##unchecked-structure-set! __obj197297 __tmp197428 '13 '#f '#f)) + (let ((__tmp197430 |gxc[1]#_g197431_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197271 '14 '#f '#f)) + (##unchecked-structure-set! __obj197297 __tmp197430 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197297 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '20 '#f '#f)) - __obj197138)) + (##unchecked-structure-set! __obj197297 '() '20 '#f '#f)) + __obj197297)) (define |gxc[:0:]#::check-return-type| - (let ((__obj197140 + (let ((__obj197299 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197140 + __obj197299 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197140 + __obj197299 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '6 '#f '#f)) - (let ((__tmp197273 (cons |gxc[1]#_g197274_| '()))) + (##unchecked-structure-set! __obj197299 '() '6 '#f '#f)) + (let ((__tmp197432 (cons |gxc[1]#_g197433_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197273 '3 '#f '#f)) + (##unchecked-structure-set! __obj197299 __tmp197432 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197299 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197299 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197299 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#f '11 '#f '#f)) - (let ((__tmp197275 |gxc[1]#_g197276_|)) + (##unchecked-structure-set! __obj197299 '#f '11 '#f '#f)) + (let ((__tmp197434 |gxc[1]#_g197435_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197275 '12 '#f '#f)) - (let ((__tmp197277 |gxc[1]#_g197278_|)) + (##unchecked-structure-set! __obj197299 __tmp197434 '12 '#f '#f)) + (let ((__tmp197436 |gxc[1]#_g197437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197277 '13 '#f '#f)) - (let ((__tmp197279 |gxc[1]#_g197280_|)) + (##unchecked-structure-set! __obj197299 __tmp197436 '13 '#f '#f)) + (let ((__tmp197438 |gxc[1]#_g197439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197279 '14 '#f '#f)) + (##unchecked-structure-set! __obj197299 __tmp197438 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197299 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '20 '#f '#f)) - __obj197140)))) + (##unchecked-structure-set! __obj197299 '() '20 '#f '#f)) + __obj197299)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index ba0d63ac5..d7ecde05b 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 1713631270) + (define gerbil/compiler/optimize-spec::timestamp 1733687563) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp177811 (list gxc#::identity::t)) - (__tmp177810 (cons (cons 'final: '#t) '()))) + (let ((__tmp177970 (list gxc#::identity::t)) + (__tmp177969 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp177811 + __tmp177970 '() - __tmp177810 + __tmp177969 '#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 _%$args176608%_ + (lambda _%$args176767%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args176608%_))) + _%$args176767%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp177812 + (let ((__tmp177971 (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 __tmp177812))) + (__make-promise __tmp177971))) (define gxc#apply-generate-method-specializers - (lambda (_%stx176600%_) + (lambda (_%stx176759%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self176603%_ - (let ((__obj177803 + (let* ((_%self176762%_ + (let ((__obj177962 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj177803)) - (__tmp177813 + __obj177962)) + (__tmp177972 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176603%_ _%stx176600%_))))) + (gxc#compile-e__1 _%self176762%_ _%stx176759%_))))) (declare (not safe)) (__call-with-parameters - __tmp177813 + __tmp177972 gxc#current-compile-method - _%self176603%_)))) + _%self176762%_)))) (define gxc#::extract-receiver::t - (let ((__tmp177815 (list gxc#::false::t)) - (__tmp177814 (cons (cons 'final: '#t) '()))) + (let ((__tmp177974 (list gxc#::false::t)) + (__tmp177973 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp177815 + __tmp177974 '() - __tmp177814 + __tmp177973 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args176597%_ - (apply make-instance gxc#::extract-receiver::t _%$args176597%_))) + (lambda _%$args176756%_ + (apply make-instance gxc#::extract-receiver::t _%$args176756%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp177816 + (let ((__tmp177975 (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 __tmp177816))) + (__make-promise __tmp177975))) (define gxc#apply-extract-receiver - (lambda (_%stx176589%_) + (lambda (_%stx176748%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self176592%_ - (let ((__obj177805 + (let* ((_%self176751%_ + (let ((__obj177964 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj177805)) - (__tmp177817 + __obj177964)) + (__tmp177976 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176592%_ _%stx176589%_))))) + (gxc#compile-e__1 _%self176751%_ _%stx176748%_))))) (declare (not safe)) (__call-with-parameters - __tmp177817 + __tmp177976 gxc#current-compile-method - _%self176592%_)))) + _%self176751%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp177819 (list gxc#::void::t)) - (__tmp177818 (cons (cons 'final: '#t) '()))) + (let ((__tmp177978 (list gxc#::void::t)) + (__tmp177977 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp177819 + __tmp177978 '(receiver methods slots) - __tmp177818 + __tmp177977 '#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 _%$args176586%_ - (apply make-instance gxc#::collect-object-refs::t _%$args176586%_))) + (lambda _%$args176745%_ + (apply make-instance gxc#::collect-object-refs::t _%$args176745%_))) (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 ((__tmp177820 + (let ((__tmp177979 (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 __tmp177820))) + (__make-promise __tmp177979))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords176552%_ - _%receiver176547176553%_ - _%methods176548176555%_ - _%slots176549176557%_ - _%stx176559%_) - (let* ((_%receiver176562%_ - (if (eq? _%receiver176547176553%_ absent-value) + (lambda (_%@@keywords176711%_ + _%receiver176706176712%_ + _%methods176707176714%_ + _%slots176708176716%_ + _%stx176718%_) + (let* ((_%receiver176721%_ + (if (eq? _%receiver176706176712%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176547176553%_)) - (_%methods176564%_ - (if (eq? _%methods176548176555%_ absent-value) + _%receiver176706176712%_)) + (_%methods176723%_ + (if (eq? _%methods176707176714%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176548176555%_)) - (_%slots176566%_ - (if (eq? _%slots176549176557%_ absent-value) + _%methods176707176714%_)) + (_%slots176725%_ + (if (eq? _%slots176708176716%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176549176557%_))) + _%slots176708176716%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self176568%_ - (let ((__obj177807 + (let* ((_%self176727%_ + (let ((__obj177966 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177807 - _%receiver176562%_ + __obj177966 + _%receiver176721%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177807 - _%methods176564%_ + __obj177966 + _%methods176723%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177807 - _%slots176566%_ + __obj177966 + _%slots176725%_ '3 '#f '#f)) - __obj177807)) - (__tmp177821 + __obj177966)) + (__tmp177980 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176568%_ _%stx176559%_))))) + (gxc#compile-e__1 _%self176727%_ _%stx176718%_))))) (declare (not safe)) (__call-with-parameters - __tmp177821 + __tmp177980 gxc#current-compile-method - _%self176568%_))))) + _%self176727%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords176575%_ . _%args176576%_) + (lambda (_%@@keywords176734%_ . _%args176735%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords176575%_ + _%@@keywords176734%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176575%_ + _%@@keywords176734%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176575%_ + _%@@keywords176734%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176575%_ + _%@@keywords176734%_ 'slots: absent-value)) - _%args176576%_))) + _%args176735%_))) (define gxc#apply-collect-object-refs - (lambda _%args176550176582%_ + (lambda _%args176709176741%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args176550176582%_))) + _%args176709176741%_))) (define gxc#::subst-object-refs::t - (let ((__tmp177823 (list gxc#::basic-xform-expression::t)) - (__tmp177822 (cons (cons 'final: '#t) '()))) + (let ((__tmp177982 (list gxc#::basic-xform-expression::t)) + (__tmp177981 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp177823 + __tmp177982 '(receiver klass methods slots) - __tmp177822 + __tmp177981 '#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 _%$args176543%_ - (apply make-instance gxc#::subst-object-refs::t _%$args176543%_))) + (lambda _%$args176702%_ + (apply make-instance gxc#::subst-object-refs::t _%$args176702%_))) (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 ((__tmp177824 + (let ((__tmp177983 (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 __tmp177824))) + (__make-promise __tmp177983))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords176505%_ - _%receiver176499176506%_ - _%klass176500176508%_ - _%methods176501176510%_ - _%slots176502176512%_ - _%stx176514%_) - (let* ((_%receiver176517%_ - (if (eq? _%receiver176499176506%_ absent-value) + (lambda (_%@@keywords176664%_ + _%receiver176658176665%_ + _%klass176659176667%_ + _%methods176660176669%_ + _%slots176661176671%_ + _%stx176673%_) + (let* ((_%receiver176676%_ + (if (eq? _%receiver176658176665%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176499176506%_)) - (_%klass176519%_ - (if (eq? _%klass176500176508%_ absent-value) + _%receiver176658176665%_)) + (_%klass176678%_ + (if (eq? _%klass176659176667%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass176500176508%_)) - (_%methods176521%_ - (if (eq? _%methods176501176510%_ absent-value) + _%klass176659176667%_)) + (_%methods176680%_ + (if (eq? _%methods176660176669%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176501176510%_)) - (_%slots176523%_ - (if (eq? _%slots176502176512%_ absent-value) + _%methods176660176669%_)) + (_%slots176682%_ + (if (eq? _%slots176661176671%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176502176512%_))) + _%slots176661176671%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self176525%_ - (let ((__obj177809 + (let* ((_%self176684%_ + (let ((__obj177968 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%receiver176517%_ + __obj177968 + _%receiver176676%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%klass176519%_ + __obj177968 + _%klass176678%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%methods176521%_ + __obj177968 + _%methods176680%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%slots176523%_ + __obj177968 + _%slots176682%_ '4 '#f '#f)) - __obj177809)) - (__tmp177825 + __obj177968)) + (__tmp177984 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176525%_ _%stx176514%_))))) + (gxc#compile-e__1 _%self176684%_ _%stx176673%_))))) (declare (not safe)) (__call-with-parameters - __tmp177825 + __tmp177984 gxc#current-compile-method - _%self176525%_))))) + _%self176684%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords176532%_ . _%args176533%_) + (lambda (_%@@keywords176691%_ . _%args176692%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords176532%_ + _%@@keywords176691%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords176691%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords176691%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords176691%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords176691%_ 'slots: absent-value)) - _%args176533%_))) + _%args176692%_))) (define gxc#apply-subst-object-refs - (lambda _%args176503176539%_ + (lambda _%args176662176698%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args176503176539%_))) + _%args176662176698%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self173614%_ _%stx173615%_) - (letrec ((_%generate-method-bind173617%_ - (lambda (_%$klass176491%_ - _%$method-table176492%_ - _%id176493%_ - _%$id176494%_) - (let ((_%$tmp176496%_ - (let ((__tmp177826 + (lambda (_%self173773%_ _%stx173774%_) + (letrec ((_%generate-method-bind173776%_ + (lambda (_%$klass176650%_ + _%$method-table176651%_ + _%id176652%_ + _%$id176653%_) + (let ((_%$tmp176655%_ + (let ((__tmp177985 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp177826)))) - (cons (cons _%$id176494%_ '()) + (make-symbol__0 __tmp177985)))) + (cons (cons _%$id176653%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp176496%_ '()) + (cons (cons (cons (cons _%$tmp176655%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table176492%_ '())) + (cons _%$method-table176651%_ '())) (cons (cons '%#quote - (cons _%id176493%_ '())) + (cons _%id176652%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176496%_ '())) - (cons (cons '%#ref (cons _%$tmp176496%_ '())) + (cons _%$tmp176655%_ '())) + (cons (cons '%#ref (cons _%$tmp176655%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id176493%_ + (cons _%id176652%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind173618%_ - (lambda (_%$klass176485%_ _%id176486%_ _%$id176487%_) - (let ((_%$tmp176489%_ - (let ((__tmp177827 + (_%generate-slot-bind173777%_ + (lambda (_%$klass176644%_ _%id176645%_ _%$id176646%_) + (let ((_%$tmp176648%_ + (let ((__tmp177986 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp177827)))) - (cons (cons _%$id176487%_ '()) + (make-symbol__0 __tmp177986)))) + (cons (cons _%$id176646%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp176489%_ + (cons (cons (cons (cons _%$tmp176648%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass176485%_ '())) + (cons _%$klass176644%_ '())) (cons (cons '%#quote - (cons _%id176486%_ '())) + (cons _%id176645%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176489%_ '())) - (cons (cons '%#ref (cons _%$tmp176489%_ '())) + (cons _%$tmp176648%_ '())) + (cons (cons '%#ref (cons _%$tmp176648%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id176486%_ '())) '())))) + (cons (cons '%#quote (cons _%id176645%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl173619%_ - (lambda (_%$klass176479%_ - _%$method-table176480%_ - _%methods-bind176481%_ - _%slots-bind176482%_ - _%specializer-impl176483%_) - (let ((__tmp177828 + (_%generate-specializer-impl173778%_ + (lambda (_%$klass176638%_ + _%$method-table176639%_ + _%methods-bind176640%_ + _%slots-bind176641%_ + _%specializer-impl176642%_) + (let ((__tmp177987 (cons '%#lambda - (cons (cons _%$klass176479%_ - (cons _%$method-table176480%_ + (cons (cons _%$klass176638%_ + (cons _%$method-table176639%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind176482%_ - _%methods-bind176481%_)) - (cons _%specializer-impl176483%_ + _%slots-bind176641%_ + _%methods-bind176640%_)) + (cons _%specializer-impl176642%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177828 _%stx173615%_)))) - (_%generate-specializer-def173620%_ - (lambda (_%id176475%_ - _%specializer-id176476%_ - _%specializer-impl176477%_) - (let ((__tmp177829 + (gxc#xform-wrap-source __tmp177987 _%stx173774%_)))) + (_%generate-specializer-def173779%_ + (lambda (_%id176634%_ + _%specializer-id176635%_ + _%specializer-impl176636%_) + (let ((__tmp177988 (cons '%#begin - (cons _%stx173615%_ - (cons (let ((__tmp177830 + (cons _%stx173774%_ + (cons (let ((__tmp177989 (cons '%#define-values - (cons (cons _%specializer-id176476%_ + (cons (cons _%specializer-id176635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl176477%_ '()))))) + (cons _%specializer-impl176636%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177830 - _%stx173615%_)) - (cons (let ((__tmp177831 + __tmp177989 + _%stx173774%_)) + (cons (let ((__tmp177990 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id176475%_ '())) + (cons (cons '%#ref (cons _%id176634%_ '())) (cons (cons '%#ref - (cons _%specializer-id176476%_ + (cons _%specializer-id176635%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177831 - _%stx173615%_)) + __tmp177990 + _%stx173774%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177829 _%stx173615%_))))) - (let* ((_%__stx176697176698%_ _%stx173615%_) - (_%g173623173643%_ + (gxc#xform-wrap-source __tmp177988 _%stx173774%_))))) + (let* ((_%__stx176856176857%_ _%stx173774%_) + (_%g173782173802%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176697176698%_))))) - (let ((_%__kont176699176700%_ - (lambda (_%L173687%_ _%L173688%_) - (let ((_%method-calls173707%_ + _%__stx176856176857%_))))) + (let ((_%__kont176858176859%_ + (lambda (_%L173846%_ _%L173847%_) + (let ((_%method-calls173866%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs173708%_ + (_%slot-refs173867%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty173709%_ + (_%empty173868%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?173711%_ + (letrec ((_%no-specializer?173870%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls173707%_))) + _%method-calls173866%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs173708%_))) + _%slot-refs173867%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L173687%_)) - (let* ((_%__stx176611176612%_ _%L173687%_) - (_%g174099174117%_ + (gxc#lambda-expr? _%L173846%_)) + (let* ((_%__stx176770176771%_ _%L173846%_) + (_%g174258174276%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176611176612%_))))) - (let ((_%__kont176613176614%_ - (lambda (_%L174153%_ - _%L174154%_ - _%L174155%_) - (let ((_%receiver174175%_ - (let ((_%$e174172%_ + _%__stx176770176771%_))))) + (let ((_%__kont176772176773%_ + (lambda (_%L174312%_ + _%L174313%_ + _%L174314%_) + (let ((_%receiver174334%_ + (let ((_%$e174331%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174153%_)))) + _%L174312%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e174172%_ - _%$e174172%_ - _%L174155%_)))) + (if _%$e174331%_ + _%$e174331%_ + _%L174314%_)))) (for-each - (lambda (_%g174176174178%_) + (lambda (_%g174335174337%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174175%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174176174178%_)) - _%L174153%_) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id174187%_ - (let* ((_%id174181%_ - (let ((__tmp177832 + _%receiver174334%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g174335174337%_)) + _%L174312%_) + (if (_%no-specializer?173870%_) + _%stx173774%_ + (let* ((_%specializer-id174346%_ + (let* ((_%id174340%_ + (let ((__tmp177991 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L173847%_)))) (declare (not safe)) - (make-symbol__1 __tmp177832 '"::specialize"))) - (_%specializer-id174184%_ - (let ((__tmp177833 + (make-symbol__1 __tmp177991 '"::specialize"))) + (_%specializer-id174343%_ + (let ((__tmp177992 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx173774%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174181%_ __tmp177833)))) + (gx#core-quote-syntax__1 _%id174340%_ __tmp177992)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174184%_)) - _%specializer-id174184%_)) + (gx#core-bind-runtime!__0 _%specializer-id174343%_)) + _%specializer-id174343%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174189%_ - (let ((__tmp177834 + (_%$klass174348%_ + (let ((__tmp177993 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177834))) + (make-symbol__0 __tmp177993))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174191%_ - (let ((__tmp177835 + (_%$method-table174350%_ + (let ((__tmp177994 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177835))) + (make-symbol__0 __tmp177994))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174193%_ + (_%methods174352%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173707%_))) - (_%$methods174197%_ - (map (lambda (_%id174195%_) - (let ((__tmp177836 + _%method-calls173866%_))) + (_%$methods174356%_ + (map (lambda (_%id174354%_) + (let ((__tmp177995 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174195%_))) + (gensym _%id174354%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177836))) - _%methods174193%_)) + (make-symbol__1 '"__" __tmp177995))) + _%methods174352%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174206%_ + (_%_174365%_ (for-each - (lambda (_%g174198174201%_ - _%g174199174203%_) + (lambda (_%g174357174360%_ + _%g174358174362%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g174198174201%_ - _%g174199174203%_))) - _%methods174193%_ - _%$methods174197%_)) - (_%methods-bind174216%_ - (map (lambda (_%g174208174211%_ + _%method-calls173866%_ + _%g174357174360%_ + _%g174358174362%_))) + _%methods174352%_ + _%$methods174356%_)) + (_%methods-bind174375%_ + (map (lambda (_%g174367174370%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174209174213%_) - (_%generate-method-bind173617%_ - _%$klass174189%_ - _%$method-table174191%_ - _%g174208174211%_ - _%g174209174213%_)) - _%methods174193%_ - _%$methods174197%_)) + _%g174368174372%_) + (_%generate-method-bind173776%_ + _%$klass174348%_ + _%$method-table174350%_ + _%g174367174370%_ + _%g174368174372%_)) + _%methods174352%_ + _%$methods174356%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174218%_ + (_%slots174377%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173708%_))) - (_%$slots174222%_ - (map (lambda (_%id174220%_) - (let ((__tmp177837 + _%slot-refs173867%_))) + (_%$slots174381%_ + (map (lambda (_%id174379%_) + (let ((__tmp177996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174220%_))) + (gensym _%id174379%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177837))) - _%slots174218%_)) + (make-symbol__1 '"__" __tmp177996))) + _%slots174377%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174231%_ + (_%_174390%_ (for-each - (lambda (_%g174223174226%_ - _%g174224174228%_) + (lambda (_%g174382174385%_ + _%g174383174387%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g174223174226%_ - _%g174224174228%_))) - _%slots174218%_ - _%$slots174222%_)) - (_%slots-bind174240%_ - (map (lambda (_%g174232174235%_ + _%slot-refs173867%_ + _%g174382174385%_ + _%g174383174387%_))) + _%slots174377%_ + _%$slots174381%_)) + (_%slots-bind174399%_ + (map (lambda (_%g174391174394%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174233174237%_) - (_%generate-slot-bind173618%_ - _%$klass174189%_ - _%g174232174235%_ - _%g174233174237%_)) - _%slots174218%_ - _%$slots174222%_)) + _%g174392174396%_) + (_%generate-slot-bind173777%_ + _%$klass174348%_ + _%g174391174394%_ + _%g174392174396%_)) + _%slots174377%_ + _%$slots174381%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body174246%_ - (map (lambda (_%g174241174243%_) + (_%specializer-body174405%_ + (map (lambda (_%g174400174402%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174175%_ - _%$klass174189%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174241174243%_)) - _%L174153%_)) - (_%specializer-impl174248%_ - (let ((__tmp177838 + _%receiver174334%_ + _%$klass174348%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g174400174402%_)) + _%L174312%_)) + (_%specializer-impl174407%_ + (let ((__tmp177997 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L174155%_ _%L174154%_) - _%specializer-body174246%_)))) + (cons (cons _%L174314%_ _%L174313%_) + _%specializer-body174405%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177838 _%stx173615%_))) + (gxc#xform-wrap-source __tmp177997 _%stx173774%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174250%_ - (_%generate-specializer-impl173619%_ - _%$klass174189%_ - _%$method-table174191%_ - _%methods-bind174216%_ - _%slots-bind174240%_ - _%specializer-impl174248%_))) - (let ((__tmp177840 + (_%specializer-impl174409%_ + (_%generate-specializer-impl173778%_ + _%$klass174348%_ + _%$method-table174350%_ + _%methods-bind174375%_ + _%slots-bind174399%_ + _%specializer-impl174407%_))) + (let ((__tmp177999 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177839 + _%L173847%_))) + (__tmp177998 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174187%_)))) + _%specializer-id174346%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177840 + __tmp177999 '" => " - __tmp177839)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id174187%_ - _%specializer-impl174250%_)))))) - (_%__kont176615176616%_ - (lambda () _%stx173615%_))) + __tmp177998)) + (_%generate-specializer-def173779%_ + _%L173847%_ + _%specializer-id174346%_ + _%specializer-impl174409%_)))))) + (_%__kont176774176775%_ + (lambda () _%stx173774%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176611176612%_)) - (let ((_%e174104174129%_ + (gx#stx-pair? _%__stx176770176771%_)) + (let ((_%e174263174288%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176611176612%_)))) - (let ((_%tl174106174134%_ + _%__stx176770176771%_)))) + (let ((_%tl174265174293%_ (let () (declare (not safe)) - (##cdr _%e174104174129%_))) - (_%hd174105174132%_ + (##cdr _%e174263174288%_))) + (_%hd174264174291%_ (let () (declare (not safe)) - (##car _%e174104174129%_)))) + (##car _%e174263174288%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174106174134%_)) - (let ((_%e174107174137%_ + _%tl174265174293%_)) + (let ((_%e174266174296%_ (let () (declare (not safe)) (gx#stx-e - _%tl174106174134%_)))) - (let ((_%tl174109174142%_ + _%tl174265174293%_)))) + (let ((_%tl174268174301%_ (let () (declare (not safe)) - (##cdr _%e174107174137%_))) - (_%hd174108174140%_ + (##cdr _%e174266174296%_))) + (_%hd174267174299%_ (let () (declare (not safe)) - (##car _%e174107174137%_)))) + (##car _%e174266174296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174108174140%_)) - (let ((_%e174110174145%_ + _%hd174267174299%_)) + (let ((_%e174269174304%_ (let () (declare (not safe)) (gx#stx-e - _%hd174108174140%_)))) - (let ((_%tl174112174150%_ + _%hd174267174299%_)))) + (let ((_%tl174271174309%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174110174145%_))) - (_%hd174111174148%_ - (let () (declare (not safe)) (##car _%e174110174145%_)))) - (_%__kont176613176614%_ - _%tl174109174142%_ - _%tl174112174150%_ - _%hd174111174148%_))) + (##cdr _%e174269174304%_))) + (_%hd174270174307%_ + (let () (declare (not safe)) (##car _%e174269174304%_)))) + (_%__kont176772176773%_ + _%tl174268174301%_ + _%tl174271174309%_ + _%hd174270174307%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176615176616%_)))) - (_%__kont176615176616%_)))) - (_%__kont176615176616%_)))) + (_%__kont176774176775%_)))) + (_%__kont176774176775%_)))) + (_%__kont176774176775%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L173687%_)) - (let* ((_%g174257174276%_ - (lambda (_%g174258174273%_) + (gxc#case-lambda-expr? _%L173846%_)) + (let* ((_%g174416174435%_ + (lambda (_%g174417174432%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174258174273%_)))) - (_%g174256174574%_ - (lambda (_%g174258174279%_) + _%g174417174432%_)))) + (_%g174415174733%_ + (lambda (_%g174417174438%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174258174279%_)) - (let ((_%e174260174281%_ + _%g174417174438%_)) + (let ((_%e174419174440%_ (let () (declare (not safe)) (gx#stx-e - _%g174258174279%_)))) - (let ((_%hd174261174284%_ + _%g174417174438%_)))) + (let ((_%hd174420174443%_ (let () (declare (not safe)) - (##car _%e174260174281%_))) - (_%tl174262174286%_ + (##car _%e174419174440%_))) + (_%tl174421174445%_ (let () (declare (not safe)) - (##cdr _%e174260174281%_)))) + (##cdr _%e174419174440%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174262174286%_)) - (let ((_g177841_ + _%tl174421174445%_)) + (let ((_g178000_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl174262174286%_ '0)))) + (gx#syntax-split-splice _%tl174421174445%_ '0)))) (begin - (let ((_g177842_ + (let ((_g178001_ (let () (declare (not safe)) - (if (##values? _g177841_) - (##vector-length _g177841_) + (if (##values? _g178000_) + (##vector-length _g178000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177842_ 2))) - (error "Context expects 2 values" _g177842_))) - (let ((_%target174263174289%_ + (##fx= _g178001_ 2))) + (error "Context expects 2 values" _g178001_))) + (let ((_%target174422174448%_ (let () (declare (not safe)) - (##vector-ref _g177841_ 0))) - (_%tl174265174291%_ + (##vector-ref _g178000_ 0))) + (_%tl174424174450%_ (let () (declare (not safe)) - (##vector-ref _g177841_ 1)))) + (##vector-ref _g178000_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174265174291%_)) - (letrec ((_%loop174266174294%_ - (lambda (_%hd174264174297%_ - _%clause174270174299%_) + (gx#stx-null? _%tl174424174450%_)) + (letrec ((_%loop174425174453%_ + (lambda (_%hd174423174456%_ + _%clause174429174458%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174264174297%_)) - (let ((_%e174267174302%_ + (gx#stx-pair? _%hd174423174456%_)) + (let ((_%e174426174461%_ (let () (declare (not safe)) (gx#stx-e - _%hd174264174297%_)))) - (let ((_%lp-hd174268174305%_ + _%hd174423174456%_)))) + (let ((_%lp-hd174427174464%_ (let () (declare (not safe)) - (##car _%e174267174302%_))) - (_%lp-tl174269174307%_ + (##car _%e174426174461%_))) + (_%lp-tl174428174466%_ (let () (declare (not safe)) - (##cdr _%e174267174302%_)))) - (_%loop174266174294%_ - _%lp-tl174269174307%_ - (cons _%lp-hd174268174305%_ - _%clause174270174299%_)))) - (let ((_%clause174271174310%_ - (reverse _%clause174270174299%_))) - ((lambda (_%L174313%_) + (##cdr _%e174426174461%_)))) + (_%loop174425174453%_ + _%lp-tl174428174466%_ + (cons _%lp-hd174427174464%_ + _%clause174429174458%_)))) + (let ((_%clause174430174469%_ + (reverse _%clause174429174458%_))) + ((lambda (_%L174472%_) (for-each - (lambda (_%clause174327%_) - (let* ((_%__stx176637176638%_ - _%clause174327%_) - (_%g174330174345%_ + (lambda (_%clause174486%_) + (let* ((_%__stx176796176797%_ + _%clause174486%_) + (_%g174489174504%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176637176638%_))))) - (let ((_%__kont176639176640%_ - (lambda (_%L174373%_ + _%__stx176796176797%_))))) + (let ((_%__kont176798176799%_ + (lambda (_%L174532%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L174374%_ - _%L174375%_) - (let ((_%receiver174394%_ - (let ((_%$e174391%_ + _%L174533%_ + _%L174534%_) + (let ((_%receiver174553%_ + (let ((_%$e174550%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174373%_)))) - (if _%$e174391%_ _%$e174391%_ _%L174375%_)))) + _%L174532%_)))) + (if _%$e174550%_ _%$e174550%_ _%L174534%_)))) (for-each - (lambda (_%g174395174397%_) + (lambda (_%g174554174556%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174394%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174395174397%_)) - _%L174373%_)))) - (_%__kont176641176642%_ (lambda () '#!void))) + _%receiver174553%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g174554174556%_)) + _%L174532%_)))) + (_%__kont176800176801%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176637176638%_)) - (let ((_%e174335174357%_ + _%__stx176796176797%_)) + (let ((_%e174494174516%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx176637176638%_)))) - (let ((_%tl174337174362%_ + (gx#stx-e _%__stx176796176797%_)))) + (let ((_%tl174496174521%_ (let () (declare (not safe)) - (##cdr _%e174335174357%_))) - (_%hd174336174360%_ + (##cdr _%e174494174516%_))) + (_%hd174495174519%_ (let () (declare (not safe)) - (##car _%e174335174357%_)))) + (##car _%e174494174516%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174336174360%_)) - (let ((_%e174338174365%_ + (gx#stx-pair? _%hd174495174519%_)) + (let ((_%e174497174524%_ (let () (declare (not safe)) - (gx#stx-e _%hd174336174360%_)))) - (let ((_%tl174340174370%_ + (gx#stx-e _%hd174495174519%_)))) + (let ((_%tl174499174529%_ (let () (declare (not safe)) - (##cdr _%e174338174365%_))) - (_%hd174339174368%_ + (##cdr _%e174497174524%_))) + (_%hd174498174527%_ (let () (declare (not safe)) - (##car _%e174338174365%_)))) - (_%__kont176639176640%_ - _%tl174337174362%_ - _%tl174340174370%_ - _%hd174339174368%_))) - (_%__kont176641176642%_)))) - (_%__kont176641176642%_))))) + (##car _%e174497174524%_)))) + (_%__kont176798176799%_ + _%tl174496174521%_ + _%tl174499174529%_ + _%hd174498174527%_))) + (_%__kont176800176801%_)))) + (_%__kont176800176801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp177843 - (lambda (_%g174402174405%_ - _%g174403174407%_) - (cons _%g174402174405%_ - _%g174403174407%_)))) + (let ((__tmp178002 + (lambda (_%g174561174564%_ + _%g174562174566%_) + (cons _%g174561174564%_ + _%g174562174566%_)))) (declare (not safe)) (__foldr1 - __tmp177843 + __tmp178002 '() - _%L174313%_))) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id174416%_ - (let* ((_%id174410%_ + _%L174472%_))) + (if (_%no-specializer?173870%_) + _%stx173774%_ + (let* ((_%specializer-id174575%_ + (let* ((_%id174569%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp177844 + (let ((__tmp178003 (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L173847%_)))) (declare (not safe)) - (make-symbol__1 __tmp177844 '"::specialize"))) - (_%specializer-id174413%_ - (let ((__tmp177845 + (make-symbol__1 __tmp178003 '"::specialize"))) + (_%specializer-id174572%_ + (let ((__tmp178004 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx173774%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174410%_ - __tmp177845)))) + _%id174569%_ + __tmp178004)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174413%_)) - _%specializer-id174413%_)) - (_%$klass174418%_ - (let ((__tmp177846 + (gx#core-bind-runtime!__0 _%specializer-id174572%_)) + _%specializer-id174572%_)) + (_%$klass174577%_ + (let ((__tmp178005 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177846))) - (_%$method-table174420%_ - (let ((__tmp177847 + (make-symbol__0 __tmp178005))) + (_%$method-table174579%_ + (let ((__tmp178006 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177847))) - (_%methods174422%_ + (make-symbol__0 __tmp178006))) + (_%methods174581%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173707%_))) - (_%$methods174426%_ - (map (lambda (_%id174424%_) - (let ((__tmp177848 (gensym _%id174424%_))) + (__hash-keys _%method-calls173866%_))) + (_%$methods174585%_ + (map (lambda (_%id174583%_) + (let ((__tmp178007 (gensym _%id174583%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177848))) - _%methods174422%_)) - (_%_174435%_ + (make-symbol__1 '"__" __tmp178007))) + _%methods174581%_)) + (_%_174594%_ (for-each - (lambda (_%g174427174430%_ _%g174428174432%_) + (lambda (_%g174586174589%_ _%g174587174591%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g174427174430%_ - _%g174428174432%_))) - _%methods174422%_ - _%$methods174426%_)) - (_%methods-bind174445%_ - (map (lambda (_%g174437174440%_ _%g174438174442%_) - (_%generate-method-bind173617%_ - _%$klass174418%_ - _%$method-table174420%_ - _%g174437174440%_ - _%g174438174442%_)) - _%methods174422%_ - _%$methods174426%_)) - (_%slots174447%_ + _%method-calls173866%_ + _%g174586174589%_ + _%g174587174591%_))) + _%methods174581%_ + _%$methods174585%_)) + (_%methods-bind174604%_ + (map (lambda (_%g174596174599%_ _%g174597174601%_) + (_%generate-method-bind173776%_ + _%$klass174577%_ + _%$method-table174579%_ + _%g174596174599%_ + _%g174597174601%_)) + _%methods174581%_ + _%$methods174585%_)) + (_%slots174606%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173708%_))) - (_%$slots174451%_ - (map (lambda (_%id174449%_) - (let ((__tmp177849 (gensym _%id174449%_))) + (__hash-keys _%slot-refs173867%_))) + (_%$slots174610%_ + (map (lambda (_%id174608%_) + (let ((__tmp178008 (gensym _%id174608%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177849))) - _%slots174447%_)) - (_%_174460%_ + (make-symbol__1 '"__" __tmp178008))) + _%slots174606%_)) + (_%_174619%_ (for-each - (lambda (_%g174452174455%_ _%g174453174457%_) + (lambda (_%g174611174614%_ _%g174612174616%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g174452174455%_ - _%g174453174457%_))) - _%slots174447%_ - _%$slots174451%_)) - (_%slots-bind174469%_ - (map (lambda (_%g174461174464%_ _%g174462174466%_) - (_%generate-slot-bind173618%_ - _%$klass174418%_ - _%g174461174464%_ - _%g174462174466%_)) - _%slots174447%_ - _%$slots174451%_)) - (_%specializer-clauses174567%_ - (map (lambda (_%clause174471%_) - (let* ((_%__stx176657176658%_ _%clause174471%_) - (_%g174474174489%_ + _%slot-refs173867%_ + _%g174611174614%_ + _%g174612174616%_))) + _%slots174606%_ + _%$slots174610%_)) + (_%slots-bind174628%_ + (map (lambda (_%g174620174623%_ _%g174621174625%_) + (_%generate-slot-bind173777%_ + _%$klass174577%_ + _%g174620174623%_ + _%g174621174625%_)) + _%slots174606%_ + _%$slots174610%_)) + (_%specializer-clauses174726%_ + (map (lambda (_%clause174630%_) + (let* ((_%__stx176816176817%_ _%clause174630%_) + (_%g174633174648%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176657176658%_))))) - (let ((_%__kont176659176660%_ - (lambda (_%L174517%_ _%L174518%_ _%L174519%_) - (let* ((_%receiver174548%_ - (let ((_%$e174545%_ + _%__stx176816176817%_))))) + (let ((_%__kont176818176819%_ + (lambda (_%L174676%_ _%L174677%_ _%L174678%_) + (let* ((_%receiver174707%_ + (let ((_%$e174704%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1419,317 +1419,317 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174517%_)))) - (if _%$e174545%_ - _%$e174545%_ - _%L174519%_))) - (_%body174554%_ - (map (lambda (_%g174549174551%_) + _%L174676%_)))) + (if _%$e174704%_ + _%$e174704%_ + _%L174678%_))) + (_%body174713%_ + (map (lambda (_%g174708174710%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174548%_ - _%$klass174418%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174549174551%_)) - _%L174517%_))) - (cons (cons _%L174519%_ _%L174518%_) - _%body174554%_)))) - (_%__kont176661176662%_ - (lambda () _%clause174471%_))) + _%receiver174707%_ + _%$klass174577%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g174708174710%_)) + _%L174676%_))) + (cons (cons _%L174678%_ _%L174677%_) + _%body174713%_)))) + (_%__kont176820176821%_ + (lambda () _%clause174630%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176657176658%_)) - (let ((_%e174479174501%_ + (gx#stx-pair? _%__stx176816176817%_)) + (let ((_%e174638174660%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176657176658%_)))) - (let ((_%tl174481174506%_ + (gx#stx-e _%__stx176816176817%_)))) + (let ((_%tl174640174665%_ (let () (declare (not safe)) - (##cdr _%e174479174501%_))) - (_%hd174480174504%_ + (##cdr _%e174638174660%_))) + (_%hd174639174663%_ (let () (declare (not safe)) - (##car _%e174479174501%_)))) + (##car _%e174638174660%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174480174504%_)) - (let ((_%e174482174509%_ + (gx#stx-pair? _%hd174639174663%_)) + (let ((_%e174641174668%_ (let () (declare (not safe)) (gx#stx-e - _%hd174480174504%_)))) - (let ((_%tl174484174514%_ + _%hd174639174663%_)))) + (let ((_%tl174643174673%_ (let () (declare (not safe)) - (##cdr _%e174482174509%_))) - (_%hd174483174512%_ + (##cdr _%e174641174668%_))) + (_%hd174642174671%_ (let () (declare (not safe)) - (##car _%e174482174509%_)))) - (_%__kont176659176660%_ - _%tl174481174506%_ - _%tl174484174514%_ - _%hd174483174512%_))) - (_%__kont176661176662%_)))) - (_%__kont176661176662%_))))) - (let ((__tmp177850 - (lambda (_%g174559174562%_ _%g174560174564%_) - (cons _%g174559174562%_ _%g174560174564%_)))) + (##car _%e174641174668%_)))) + (_%__kont176818176819%_ + _%tl174640174665%_ + _%tl174643174673%_ + _%hd174642174671%_))) + (_%__kont176820176821%_)))) + (_%__kont176820176821%_))))) + (let ((__tmp178009 + (lambda (_%g174718174721%_ _%g174719174723%_) + (cons _%g174718174721%_ _%g174719174723%_)))) (declare (not safe)) - (__foldr1 __tmp177850 '() _%L174313%_)))) - (_%specializer-impl174569%_ - (let ((__tmp177851 - (cons '%#case-lambda _%specializer-clauses174567%_))) + (__foldr1 __tmp178009 '() _%L174472%_)))) + (_%specializer-impl174728%_ + (let ((__tmp178010 + (cons '%#case-lambda _%specializer-clauses174726%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177851 _%stx173615%_))) - (_%specializer-impl174571%_ - (_%generate-specializer-impl173619%_ - _%$klass174418%_ - _%$method-table174420%_ - _%methods-bind174445%_ - _%slots-bind174469%_ - _%specializer-impl174569%_))) + (gxc#xform-wrap-source __tmp178010 _%stx173774%_))) + (_%specializer-impl174730%_ + (_%generate-specializer-impl173778%_ + _%$klass174577%_ + _%$method-table174579%_ + _%methods-bind174604%_ + _%slots-bind174628%_ + _%specializer-impl174728%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp177853 + (let ((__tmp178012 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177852 + _%L173847%_))) + (__tmp178011 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174416%_)))) + _%specializer-id174575%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177853 + __tmp178012 '" => " - __tmp177852)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id174416%_ - _%specializer-impl174571%_)))) - _%clause174271174310%_)))))) - (_%loop174266174294%_ _%target174263174289%_ '())) - (_%g174257174276%_ _%g174258174279%_))))) - (_%g174257174276%_ _%g174258174279%_)))) + __tmp178011)) + (_%generate-specializer-def173779%_ + _%L173847%_ + _%specializer-id174575%_ + _%specializer-impl174730%_)))) + _%clause174430174469%_)))))) + (_%loop174425174453%_ _%target174422174448%_ '())) + (_%g174416174435%_ _%g174417174438%_))))) + (_%g174416174435%_ _%g174417174438%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174257174276%_ - _%g174258174279%_))))) - (_%g174256174574%_ _%L173687%_)) + (_%g174416174435%_ + _%g174417174438%_))))) + (_%g174415174733%_ _%L173846%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L173687%_)) - (let* ((_%g174578174608%_ - (lambda (_%g174579174605%_) + (gxc#opt-lambda-expr? _%L173846%_)) + (let* ((_%g174737174767%_ + (lambda (_%g174738174764%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174579174605%_)))) - (_%g174577175239%_ - (lambda (_%g174579174611%_) + _%g174738174764%_)))) + (_%g174736175398%_ + (lambda (_%g174738174770%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174579174611%_)) - (let ((_%e174583174613%_ + _%g174738174770%_)) + (let ((_%e174742174772%_ (let () (declare (not safe)) (gx#stx-e - _%g174579174611%_)))) - (let ((_%hd174584174616%_ + _%g174738174770%_)))) + (let ((_%hd174743174775%_ (let () (declare (not safe)) - (##car _%e174583174613%_))) - (_%tl174585174618%_ + (##car _%e174742174772%_))) + (_%tl174744174777%_ (let () (declare (not safe)) - (##cdr _%e174583174613%_)))) + (##cdr _%e174742174772%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174585174618%_)) - (let ((_%e174586174621%_ + _%tl174744174777%_)) + (let ((_%e174745174780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174585174618%_)))) - (let ((_%hd174587174624%_ + (gx#stx-e _%tl174744174777%_)))) + (let ((_%hd174746174783%_ (let () (declare (not safe)) - (##car _%e174586174621%_))) - (_%tl174588174626%_ + (##car _%e174745174780%_))) + (_%tl174747174785%_ (let () (declare (not safe)) - (##cdr _%e174586174621%_)))) + (##cdr _%e174745174780%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174587174624%_)) - (let ((_%e174589174629%_ + (gx#stx-pair? _%hd174746174783%_)) + (let ((_%e174748174788%_ (let () (declare (not safe)) - (gx#stx-e _%hd174587174624%_)))) - (let ((_%hd174590174632%_ + (gx#stx-e _%hd174746174783%_)))) + (let ((_%hd174749174791%_ (let () (declare (not safe)) - (##car _%e174589174629%_))) - (_%tl174591174634%_ + (##car _%e174748174788%_))) + (_%tl174750174793%_ (let () (declare (not safe)) - (##cdr _%e174589174629%_)))) + (##cdr _%e174748174788%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174590174632%_)) - (let ((_%e174592174637%_ + (gx#stx-pair? _%hd174749174791%_)) + (let ((_%e174751174796%_ (let () (declare (not safe)) - (gx#stx-e _%hd174590174632%_)))) - (let ((_%hd174593174640%_ + (gx#stx-e _%hd174749174791%_)))) + (let ((_%hd174752174799%_ (let () (declare (not safe)) - (##car _%e174592174637%_))) - (_%tl174594174642%_ + (##car _%e174751174796%_))) + (_%tl174753174801%_ (let () (declare (not safe)) - (##cdr _%e174592174637%_)))) + (##cdr _%e174751174796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174593174640%_)) - (let ((_%e174595174645%_ + (gx#stx-pair? _%hd174752174799%_)) + (let ((_%e174754174804%_ (let () (declare (not safe)) (gx#stx-e - _%hd174593174640%_)))) - (let ((_%hd174596174648%_ + _%hd174752174799%_)))) + (let ((_%hd174755174807%_ (let () (declare (not safe)) - (##car _%e174595174645%_))) - (_%tl174597174650%_ + (##car _%e174754174804%_))) + (_%tl174756174809%_ (let () (declare (not safe)) - (##cdr _%e174595174645%_)))) + (##cdr _%e174754174804%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174597174650%_)) + _%tl174756174809%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174594174642%_)) - (let ((_%e174598174653%_ + _%tl174753174801%_)) + (let ((_%e174757174812%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174594174642%_)))) - (let ((_%hd174599174656%_ + (gx#stx-e _%tl174753174801%_)))) + (let ((_%hd174758174815%_ (let () (declare (not safe)) - (##car _%e174598174653%_))) - (_%tl174600174658%_ + (##car _%e174757174812%_))) + (_%tl174759174817%_ (let () (declare (not safe)) - (##cdr _%e174598174653%_)))) + (##cdr _%e174757174812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174600174658%_)) + (gx#stx-null? _%tl174759174817%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174591174634%_)) + (gx#stx-null? _%tl174750174793%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174588174626%_)) - (let ((_%e174601174661%_ + (gx#stx-pair? _%tl174747174785%_)) + (let ((_%e174760174820%_ (let () (declare (not safe)) - (gx#stx-e _%tl174588174626%_)))) - (let ((_%hd174602174664%_ + (gx#stx-e _%tl174747174785%_)))) + (let ((_%hd174761174823%_ (let () (declare (not safe)) - (##car _%e174601174661%_))) - (_%tl174603174666%_ + (##car _%e174760174820%_))) + (_%tl174762174825%_ (let () (declare (not safe)) - (##cdr _%e174601174661%_)))) + (##cdr _%e174760174820%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174603174666%_)) - ((lambda (_%L174669%_ - _%L174670%_ - _%L174671%_) - (let* ((_%g174695174713%_ - (lambda (_%g174696174710%_) + (gx#stx-null? _%tl174762174825%_)) + ((lambda (_%L174828%_ + _%L174829%_ + _%L174830%_) + (let* ((_%g174854174872%_ + (lambda (_%g174855174869%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174696174710%_)))) - (_%g174694174769%_ - (lambda (_%g174696174716%_) + _%g174855174869%_)))) + (_%g174853174928%_ + (lambda (_%g174855174875%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174696174716%_)) - (let ((_%e174700174718%_ + _%g174855174875%_)) + (let ((_%e174859174877%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174696174716%_)))) - (let ((_%hd174701174721%_ + (gx#stx-e _%g174855174875%_)))) + (let ((_%hd174860174880%_ (let () (declare (not safe)) - (##car _%e174700174718%_))) - (_%tl174702174723%_ + (##car _%e174859174877%_))) + (_%tl174861174882%_ (let () (declare (not safe)) - (##cdr _%e174700174718%_)))) + (##cdr _%e174859174877%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174702174723%_)) - (let ((_%e174703174726%_ + (gx#stx-pair? _%tl174861174882%_)) + (let ((_%e174862174885%_ (let () (declare (not safe)) - (gx#stx-e _%tl174702174723%_)))) - (let ((_%hd174704174729%_ + (gx#stx-e _%tl174861174882%_)))) + (let ((_%hd174863174888%_ (let () (declare (not safe)) - (##car _%e174703174726%_))) - (_%tl174705174731%_ + (##car _%e174862174885%_))) + (_%tl174864174890%_ (let () (declare (not safe)) - (##cdr _%e174703174726%_)))) + (##cdr _%e174862174885%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174704174729%_)) - (let ((_%e174706174734%_ + (gx#stx-pair? _%hd174863174888%_)) + (let ((_%e174865174893%_ (let () (declare (not safe)) - (gx#stx-e _%hd174704174729%_)))) - (let ((_%hd174707174737%_ + (gx#stx-e _%hd174863174888%_)))) + (let ((_%hd174866174896%_ (let () (declare (not safe)) - (##car _%e174706174734%_))) - (_%tl174708174739%_ + (##car _%e174865174893%_))) + (_%tl174867174898%_ (let () (declare (not safe)) - (##cdr _%e174706174734%_)))) - ((lambda (_%L174742%_ - _%L174743%_ - _%L174744%_) - (let ((_%receiver174763%_ - (let ((_%$e174760%_ + (##cdr _%e174865174893%_)))) + ((lambda (_%L174901%_ + _%L174902%_ + _%L174903%_) + (let ((_%receiver174922%_ + (let ((_%$e174919%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1737,3099 +1737,3099 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174742%_)))) - (if _%$e174760%_ - _%$e174760%_ - _%L174744%_)))) + _%L174901%_)))) + (if _%$e174919%_ + _%$e174919%_ + _%L174903%_)))) (for-each - (lambda (_%g174764174766%_) + (lambda (_%g174923174925%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174763%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174764174766%_)) - _%L174742%_))) - _%tl174705174731%_ - _%tl174708174739%_ - _%hd174707174737%_))) - (_%g174695174713%_ _%g174696174716%_)))) - (_%g174695174713%_ _%g174696174716%_)))) - (_%g174695174713%_ _%g174696174716%_))))) + _%receiver174922%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g174923174925%_)) + _%L174901%_))) + _%tl174864174890%_ + _%tl174867174898%_ + _%hd174866174896%_))) + (_%g174854174872%_ _%g174855174875%_)))) + (_%g174854174872%_ _%g174855174875%_)))) + (_%g174854174872%_ _%g174855174875%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174694174769%_ _%L174670%_)) - (let* ((_%g174772174791%_ - (lambda (_%g174773174788%_) + (_%g174853174928%_ _%L174829%_)) + (let* ((_%g174931174950%_ + (lambda (_%g174932174947%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174773174788%_)))) - (_%g174771174915%_ - (lambda (_%g174773174794%_) + _%g174932174947%_)))) + (_%g174930175074%_ + (lambda (_%g174932174953%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174773174794%_)) - (let ((_%e174775174796%_ + _%g174932174953%_)) + (let ((_%e174934174955%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174773174794%_)))) - (let ((_%hd174776174799%_ + (gx#stx-e _%g174932174953%_)))) + (let ((_%hd174935174958%_ (let () (declare (not safe)) - (##car _%e174775174796%_))) - (_%tl174777174801%_ + (##car _%e174934174955%_))) + (_%tl174936174960%_ (let () (declare (not safe)) - (##cdr _%e174775174796%_)))) + (##cdr _%e174934174955%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174777174801%_)) - (let ((_g177854_ + (gx#stx-pair/null? _%tl174936174960%_)) + (let ((_g178013_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174777174801%_ + _%tl174936174960%_ '0)))) (begin - (let ((_g177855_ + (let ((_g178014_ (let () (declare (not safe)) - (if (##values? _g177854_) - (##vector-length _g177854_) + (if (##values? _g178013_) + (##vector-length _g178013_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177855_ 2))) + (##fx= _g178014_ 2))) (error "Context expects 2 values" - _g177855_))) - (let ((_%target174778174804%_ + _g178014_))) + (let ((_%target174937174963%_ (let () (declare (not safe)) - (##vector-ref _g177854_ 0))) - (_%tl174780174806%_ + (##vector-ref _g178013_ 0))) + (_%tl174939174965%_ (let () (declare (not safe)) - (##vector-ref _g177854_ 1)))) + (##vector-ref _g178013_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174780174806%_)) - (letrec ((_%loop174781174809%_ - (lambda (_%hd174779174812%_ - _%clause174785174814%_) + (gx#stx-null? _%tl174939174965%_)) + (letrec ((_%loop174940174968%_ + (lambda (_%hd174938174971%_ + _%clause174944174973%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174779174812%_)) - (let ((_%e174782174817%_ + _%hd174938174971%_)) + (let ((_%e174941174976%_ (let () (declare (not safe)) (gx#stx-e - _%hd174779174812%_)))) - (let ((_%lp-hd174783174820%_ + _%hd174938174971%_)))) + (let ((_%lp-hd174942174979%_ (let () (declare (not safe)) - (##car _%e174782174817%_))) - (_%lp-tl174784174822%_ + (##car _%e174941174976%_))) + (_%lp-tl174943174981%_ (let () (declare (not safe)) - (##cdr _%e174782174817%_)))) - (_%loop174781174809%_ - _%lp-tl174784174822%_ - (cons _%lp-hd174783174820%_ - _%clause174785174814%_)))) - (let ((_%clause174786174825%_ - (reverse _%clause174785174814%_))) - ((lambda (_%L174828%_) + (##cdr _%e174941174976%_)))) + (_%loop174940174968%_ + _%lp-tl174943174981%_ + (cons _%lp-hd174942174979%_ + _%clause174944174973%_)))) + (let ((_%clause174945174984%_ + (reverse _%clause174944174973%_))) + ((lambda (_%L174987%_) (for-each - (lambda (_%clause174841%_) - (let* ((_%g174843174858%_ + (lambda (_%clause175000%_) + (let* ((_%g175002175017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g174844174855%_) + (lambda (_%g175003175014%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174844174855%_)))) - (_%g174842174905%_ - (lambda (_%g174844174861%_) + _%g175003175014%_)))) + (_%g175001175064%_ + (lambda (_%g175003175020%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174844174861%_)) - (let ((_%e174848174863%_ + (gx#stx-pair? _%g175003175020%_)) + (let ((_%e175007175022%_ (let () (declare (not safe)) - (gx#stx-e _%g174844174861%_)))) - (let ((_%hd174849174866%_ + (gx#stx-e _%g175003175020%_)))) + (let ((_%hd175008175025%_ (let () (declare (not safe)) - (##car _%e174848174863%_))) - (_%tl174850174868%_ + (##car _%e175007175022%_))) + (_%tl175009175027%_ (let () (declare (not safe)) - (##cdr _%e174848174863%_)))) + (##cdr _%e175007175022%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174849174866%_)) - (let ((_%e174851174871%_ + (gx#stx-pair? _%hd175008175025%_)) + (let ((_%e175010175030%_ (let () (declare (not safe)) (gx#stx-e - _%hd174849174866%_)))) - (let ((_%hd174852174874%_ + _%hd175008175025%_)))) + (let ((_%hd175011175033%_ (let () (declare (not safe)) - (##car _%e174851174871%_))) - (_%tl174853174876%_ + (##car _%e175010175030%_))) + (_%tl175012175035%_ (let () (declare (not safe)) - (##cdr _%e174851174871%_)))) - ((lambda (_%L174879%_ - _%L174880%_ - _%L174881%_) - (let ((_%receiver174899%_ - (let ((_%$e174896%_ + (##cdr _%e175010175030%_)))) + ((lambda (_%L175038%_ + _%L175039%_ + _%L175040%_) + (let ((_%receiver175058%_ + (let ((_%$e175055%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174879%_)))) - (if _%$e174896%_ _%$e174896%_ _%L174881%_)))) + _%L175038%_)))) + (if _%$e175055%_ _%$e175055%_ _%L175040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g174900174902%_) + (lambda (_%g175059175061%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174899%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174900174902%_)) - _%L174879%_))) - _%tl174850174868%_ - _%tl174853174876%_ - _%hd174852174874%_))) - (_%g174843174858%_ - _%g174844174861%_)))) - (_%g174843174858%_ _%g174844174861%_))))) - (_%g174842174905%_ _%clause174841%_))) - (let ((__tmp177856 - (lambda (_%g174907174910%_ _%g174908174912%_) - (cons _%g174907174910%_ _%g174908174912%_)))) + _%receiver175058%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g175059175061%_)) + _%L175038%_))) + _%tl175009175027%_ + _%tl175012175035%_ + _%hd175011175033%_))) + (_%g175002175017%_ + _%g175003175020%_)))) + (_%g175002175017%_ _%g175003175020%_))))) + (_%g175001175064%_ _%clause175000%_))) + (let ((__tmp178015 + (lambda (_%g175066175069%_ _%g175067175071%_) + (cons _%g175066175069%_ _%g175067175071%_)))) (declare (not safe)) - (__foldr1 __tmp177856 '() _%L174828%_)))) + (__foldr1 __tmp178015 '() _%L174987%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause174786174825%_)))))) - (_%loop174781174809%_ - _%target174778174804%_ + _%clause174945174984%_)))))) + (_%loop174940174968%_ + _%target174937174963%_ '())) - (_%g174772174791%_ _%g174773174794%_))))) - (_%g174772174791%_ _%g174773174794%_)))) - (_%g174772174791%_ _%g174773174794%_))))) + (_%g174931174950%_ _%g174932174953%_))))) + (_%g174931174950%_ _%g174932174953%_)))) + (_%g174931174950%_ _%g174932174953%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174771174915%_ _%L174669%_)) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id174924%_ - (let* ((_%id174918%_ - (let ((__tmp177857 + (_%g174930175074%_ _%L174828%_)) + (if (_%no-specializer?173870%_) + _%stx173774%_ + (let* ((_%specializer-id175083%_ + (let* ((_%id175077%_ + (let ((__tmp178016 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L173847%_)))) (declare (not safe)) - (make-symbol__1 __tmp177857 '"::specialize"))) - (_%specializer-id174921%_ - (let ((__tmp177858 + (make-symbol__1 __tmp178016 '"::specialize"))) + (_%specializer-id175080%_ + (let ((__tmp178017 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx173774%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174918%_ __tmp177858)))) + (gx#core-quote-syntax__1 _%id175077%_ __tmp178017)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174921%_)) - _%specializer-id174921%_)) + (gx#core-bind-runtime!__0 _%specializer-id175080%_)) + _%specializer-id175080%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174926%_ - (let ((__tmp177859 + (_%$klass175085%_ + (let ((__tmp178018 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177859))) + (make-symbol__0 __tmp178018))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174928%_ - (let ((__tmp177860 + (_%$method-table175087%_ + (let ((__tmp178019 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177860))) + (make-symbol__0 __tmp178019))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174930%_ + (_%methods175089%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173707%_))) - (_%$methods174934%_ - (map (lambda (_%id174932%_) - (let ((__tmp177861 + _%method-calls173866%_))) + (_%$methods175093%_ + (map (lambda (_%id175091%_) + (let ((__tmp178020 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174932%_))) + (gensym _%id175091%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177861))) - _%methods174930%_)) + (make-symbol__1 '"__" __tmp178020))) + _%methods175089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174943%_ + (_%_175102%_ (for-each - (lambda (_%g174935174938%_ - _%g174936174940%_) + (lambda (_%g175094175097%_ + _%g175095175099%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g174935174938%_ - _%g174936174940%_))) - _%methods174930%_ - _%$methods174934%_)) - (_%methods-bind174953%_ - (map (lambda (_%g174945174948%_ + _%method-calls173866%_ + _%g175094175097%_ + _%g175095175099%_))) + _%methods175089%_ + _%$methods175093%_)) + (_%methods-bind175112%_ + (map (lambda (_%g175104175107%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174946174950%_) - (_%generate-method-bind173617%_ - _%$klass174926%_ - _%$method-table174928%_ - _%g174945174948%_ - _%g174946174950%_)) - _%methods174930%_ - _%$methods174934%_)) + _%g175105175109%_) + (_%generate-method-bind173776%_ + _%$klass175085%_ + _%$method-table175087%_ + _%g175104175107%_ + _%g175105175109%_)) + _%methods175089%_ + _%$methods175093%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174955%_ + (_%slots175114%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173708%_))) - (_%$slots174959%_ - (map (lambda (_%id174957%_) - (let ((__tmp177862 + _%slot-refs173867%_))) + (_%$slots175118%_ + (map (lambda (_%id175116%_) + (let ((__tmp178021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174957%_))) + (gensym _%id175116%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177862))) - _%slots174955%_)) + (make-symbol__1 '"__" __tmp178021))) + _%slots175114%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174968%_ + (_%_175127%_ (for-each - (lambda (_%g174960174963%_ - _%g174961174965%_) + (lambda (_%g175119175122%_ + _%g175120175124%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g174960174963%_ - _%g174961174965%_))) - _%slots174955%_ - _%$slots174959%_)) - (_%slots-bind174977%_ - (map (lambda (_%g174969174972%_ + _%slot-refs173867%_ + _%g175119175122%_ + _%g175120175124%_))) + _%slots175114%_ + _%$slots175118%_)) + (_%slots-bind175136%_ + (map (lambda (_%g175128175131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174970174974%_) - (_%generate-slot-bind173618%_ - _%$klass174926%_ - _%g174969174972%_ - _%g174970174974%_)) - _%slots174955%_ - _%$slots174959%_)) + _%g175129175133%_) + (_%generate-slot-bind173777%_ + _%$klass175085%_ + _%g175128175131%_ + _%g175129175133%_)) + _%slots175114%_ + _%$slots175118%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr175069%_ - (let* ((_%g174979174997%_ - (lambda (_%g174980174994%_) + (_%specializer-lambda-expr175228%_ + (let* ((_%g175138175156%_ + (lambda (_%g175139175153%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174980174994%_)))) - (_%g174978175066%_ - (lambda (_%g174980175000%_) + _%g175139175153%_)))) + (_%g175137175225%_ + (lambda (_%g175139175159%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174980175000%_)) - (let ((_%e174984175002%_ + (gx#stx-pair? _%g175139175159%_)) + (let ((_%e175143175161%_ (let () (declare (not safe)) - (gx#stx-e _%g174980175000%_)))) - (let ((_%hd174985175005%_ + (gx#stx-e _%g175139175159%_)))) + (let ((_%hd175144175164%_ (let () (declare (not safe)) - (##car _%e174984175002%_))) - (_%tl174986175007%_ + (##car _%e175143175161%_))) + (_%tl175145175166%_ (let () (declare (not safe)) - (##cdr _%e174984175002%_)))) + (##cdr _%e175143175161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174986175007%_)) - (let ((_%e174987175010%_ + (gx#stx-pair? _%tl175145175166%_)) + (let ((_%e175146175169%_ (let () (declare (not safe)) - (gx#stx-e _%tl174986175007%_)))) - (let ((_%hd174988175013%_ + (gx#stx-e _%tl175145175166%_)))) + (let ((_%hd175147175172%_ (let () (declare (not safe)) - (##car _%e174987175010%_))) - (_%tl174989175015%_ + (##car _%e175146175169%_))) + (_%tl175148175174%_ (let () (declare (not safe)) - (##cdr _%e174987175010%_)))) + (##cdr _%e175146175169%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174988175013%_)) - (let ((_%e174990175018%_ + _%hd175147175172%_)) + (let ((_%e175149175177%_ (let () (declare (not safe)) (gx#stx-e - _%hd174988175013%_)))) - (let ((_%hd174991175021%_ + _%hd175147175172%_)))) + (let ((_%hd175150175180%_ (let () (declare (not safe)) - (##car _%e174990175018%_))) - (_%tl174992175023%_ + (##car _%e175149175177%_))) + (_%tl175151175182%_ (let () (declare (not safe)) - (##cdr _%e174990175018%_)))) - ((lambda (_%L175026%_ - _%L175027%_ - _%L175028%_) - (let* ((_%receiver175057%_ - (let ((_%$e175054%_ + (##cdr _%e175149175177%_)))) + ((lambda (_%L175185%_ + _%L175186%_ + _%L175187%_) + (let* ((_%receiver175216%_ + (let ((_%$e175213%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175026%_)))) - (if _%$e175054%_ _%$e175054%_ _%L175028%_))) - (_%body175063%_ - (map (lambda (_%g175058175060%_) + _%L175185%_)))) + (if _%$e175213%_ _%$e175213%_ _%L175187%_))) + (_%body175222%_ + (map (lambda (_%g175217175219%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175057%_ - _%$klass174926%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175058175060%_)) - _%L175026%_)) - (__tmp177863 + _%receiver175216%_ + _%$klass175085%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g175217175219%_)) + _%L175185%_)) + (__tmp178022 (cons '%#lambda - (cons (cons _%L175028%_ _%L175027%_) - _%body175063%_)))) + (cons (cons _%L175187%_ _%L175186%_) + _%body175222%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177863 - _%L174670%_))) - _%tl174989175015%_ - _%tl174992175023%_ - _%hd174991175021%_))) - (_%g174979174997%_ - _%g174980175000%_)))) - (_%g174979174997%_ _%g174980175000%_)))) - (_%g174979174997%_ _%g174980175000%_))))) - (_%g174978175066%_ _%L174670%_))) + __tmp178022 + _%L174829%_))) + _%tl175148175174%_ + _%tl175151175182%_ + _%hd175150175180%_))) + (_%g175138175156%_ + _%g175139175159%_)))) + (_%g175138175156%_ _%g175139175159%_)))) + (_%g175138175156%_ _%g175139175159%_))))) + (_%g175137175225%_ _%L174829%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr175232%_ - (let* ((_%g175071175090%_ - (lambda (_%g175072175087%_) + (_%specializer-case-lambda-expr175391%_ + (let* ((_%g175230175249%_ + (lambda (_%g175231175246%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175072175087%_)))) - (_%g175070175229%_ - (lambda (_%g175072175093%_) + _%g175231175246%_)))) + (_%g175229175388%_ + (lambda (_%g175231175252%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175072175093%_)) - (let ((_%e175074175095%_ + (gx#stx-pair? _%g175231175252%_)) + (let ((_%e175233175254%_ (let () (declare (not safe)) - (gx#stx-e _%g175072175093%_)))) - (let ((_%hd175075175098%_ + (gx#stx-e _%g175231175252%_)))) + (let ((_%hd175234175257%_ (let () (declare (not safe)) - (##car _%e175074175095%_))) - (_%tl175076175100%_ + (##car _%e175233175254%_))) + (_%tl175235175259%_ (let () (declare (not safe)) - (##cdr _%e175074175095%_)))) + (##cdr _%e175233175254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175076175100%_)) - (let ((_g177864_ + (gx#stx-pair/null? _%tl175235175259%_)) + (let ((_g178023_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175076175100%_ + _%tl175235175259%_ '0)))) (begin - (let ((_g177865_ + (let ((_g178024_ (let () (declare (not safe)) - (if (##values? _g177864_) + (if (##values? _g178023_) (##vector-length - _g177864_) + _g178023_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177865_ 2))) + (##fx= _g178024_ 2))) (error "Context expects 2 values" - _g177865_))) - (let ((_%target175077175103%_ + _g178024_))) + (let ((_%target175236175262%_ (let () (declare (not safe)) - (##vector-ref _g177864_ 0))) - (_%tl175079175105%_ + (##vector-ref _g178023_ 0))) + (_%tl175238175264%_ (let () (declare (not safe)) - (##vector-ref _g177864_ 1)))) + (##vector-ref _g178023_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175079175105%_)) - (letrec ((_%loop175080175108%_ - (lambda (_%hd175078175111%_ + _%tl175238175264%_)) + (letrec ((_%loop175239175267%_ + (lambda (_%hd175237175270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause175084175113%_) + _%clause175243175272%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175078175111%_)) - (let ((_%e175081175116%_ + (gx#stx-pair? _%hd175237175270%_)) + (let ((_%e175240175275%_ (let () (declare (not safe)) - (gx#stx-e _%hd175078175111%_)))) - (let ((_%lp-hd175082175119%_ + (gx#stx-e _%hd175237175270%_)))) + (let ((_%lp-hd175241175278%_ (let () (declare (not safe)) - (##car _%e175081175116%_))) - (_%lp-tl175083175121%_ + (##car _%e175240175275%_))) + (_%lp-tl175242175280%_ (let () (declare (not safe)) - (##cdr _%e175081175116%_)))) - (_%loop175080175108%_ - _%lp-tl175083175121%_ - (cons _%lp-hd175082175119%_ - _%clause175084175113%_)))) - (let ((_%clause175085175124%_ - (reverse _%clause175084175113%_))) - ((lambda (_%L175127%_) - (let* ((_%clauses175227%_ - (map (lambda (_%clause175141%_) - (let* ((_%__stx176677176678%_ - _%clause175141%_) - (_%g175144175159%_ + (##cdr _%e175240175275%_)))) + (_%loop175239175267%_ + _%lp-tl175242175280%_ + (cons _%lp-hd175241175278%_ + _%clause175243175272%_)))) + (let ((_%clause175244175283%_ + (reverse _%clause175243175272%_))) + ((lambda (_%L175286%_) + (let* ((_%clauses175386%_ + (map (lambda (_%clause175300%_) + (let* ((_%__stx176836176837%_ + _%clause175300%_) + (_%g175303175318%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176677176678%_))))) - (let ((_%__kont176679176680%_ - (lambda (_%L175187%_ - _%L175188%_ - _%L175189%_) - (let* ((_%receiver175208%_ - (let ((_%$e175205%_ + _%__stx176836176837%_))))) + (let ((_%__kont176838176839%_ + (lambda (_%L175346%_ + _%L175347%_ + _%L175348%_) + (let* ((_%receiver175367%_ + (let ((_%$e175364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175187%_)))) - (if _%$e175205%_ _%$e175205%_ _%L175189%_))) - (_%body175214%_ - (map (lambda (_%g175209175211%_) + _%L175346%_)))) + (if _%$e175364%_ _%$e175364%_ _%L175348%_))) + (_%body175373%_ + (map (lambda (_%g175368175370%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175208%_ - _%$klass174926%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175209175211%_)) - _%L175187%_))) - (cons (cons _%L175189%_ _%L175188%_) _%body175214%_)))) + _%receiver175367%_ + _%$klass175085%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g175368175370%_)) + _%L175346%_))) + (cons (cons _%L175348%_ _%L175347%_) _%body175373%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176681176682%_ + (_%__kont176840176841%_ (lambda () - _%clause175141%_))) + _%clause175300%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176677176678%_)) - (let ((_%e175149175171%_ + _%__stx176836176837%_)) + (let ((_%e175308175330%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176677176678%_)))) - (let ((_%tl175151175176%_ + _%__stx176836176837%_)))) + (let ((_%tl175310175335%_ (let () (declare (not safe)) - (##cdr _%e175149175171%_))) - (_%hd175150175174%_ + (##cdr _%e175308175330%_))) + (_%hd175309175333%_ (let () (declare (not safe)) - (##car _%e175149175171%_)))) + (##car _%e175308175330%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175150175174%_)) - (let ((_%e175152175179%_ + _%hd175309175333%_)) + (let ((_%e175311175338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175150175174%_)))) - (let ((_%tl175154175184%_ + (gx#stx-e _%hd175309175333%_)))) + (let ((_%tl175313175343%_ (let () (declare (not safe)) - (##cdr _%e175152175179%_))) - (_%hd175153175182%_ + (##cdr _%e175311175338%_))) + (_%hd175312175341%_ (let () (declare (not safe)) - (##car _%e175152175179%_)))) - (_%__kont176679176680%_ - _%tl175151175176%_ - _%tl175154175184%_ - _%hd175153175182%_))) - (_%__kont176681176682%_)))) + (##car _%e175311175338%_)))) + (_%__kont176838176839%_ + _%tl175310175335%_ + _%tl175313175343%_ + _%hd175312175341%_))) + (_%__kont176840176841%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176681176682%_))))) - (let ((__tmp177866 - (lambda (_%g175219175222%_ - _%g175220175224%_) - (cons _%g175219175222%_ - _%g175220175224%_)))) + (_%__kont176840176841%_))))) + (let ((__tmp178025 + (lambda (_%g175378175381%_ + _%g175379175383%_) + (cons _%g175378175381%_ + _%g175379175383%_)))) (declare (not safe)) (__foldr1 - __tmp177866 + __tmp178025 '() - _%L175127%_)))) - (__tmp177867 - (cons '%#case-lambda _%clauses175227%_))) + _%L175286%_)))) + (__tmp178026 + (cons '%#case-lambda _%clauses175386%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177867 _%L174669%_))) - _%clause175085175124%_)))))) + (gxc#xform-wrap-source __tmp178026 _%L174828%_))) + _%clause175244175283%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175080175108%_ - _%target175077175103%_ + (_%loop175239175267%_ + _%target175236175262%_ '())) - (_%g175071175090%_ - _%g175072175093%_))))) - (_%g175071175090%_ _%g175072175093%_)))) - (_%g175071175090%_ _%g175072175093%_))))) - (_%g175070175229%_ _%L174669%_))) + (_%g175230175249%_ + _%g175231175252%_))))) + (_%g175230175249%_ _%g175231175252%_)))) + (_%g175230175249%_ _%g175231175252%_))))) + (_%g175229175388%_ _%L174828%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175234%_ - (let ((__tmp177868 + (_%specializer-impl175393%_ + (let ((__tmp178027 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L174671%_ '()) - (cons _%specializer-lambda-expr175069%_ + (cons (cons (cons (cons _%L174830%_ '()) + (cons _%specializer-lambda-expr175228%_ '())) '()) - (cons _%specializer-case-lambda-expr175232%_ + (cons _%specializer-case-lambda-expr175391%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177868 _%stx173615%_))) + (gxc#xform-wrap-source __tmp178027 _%stx173774%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175236%_ - (_%generate-specializer-impl173619%_ - _%$klass174926%_ - _%$method-table174928%_ - _%methods-bind174953%_ - _%slots-bind174977%_ - _%specializer-impl175234%_))) - (let ((__tmp177870 + (_%specializer-impl175395%_ + (_%generate-specializer-impl173778%_ + _%$klass175085%_ + _%$method-table175087%_ + _%methods-bind175112%_ + _%slots-bind175136%_ + _%specializer-impl175393%_))) + (let ((__tmp178029 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177869 + _%L173847%_))) + (__tmp178028 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174924%_)))) + _%specializer-id175083%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177870 + __tmp178029 '" => " - __tmp177869)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id174924%_ - _%specializer-impl175236%_)))) - _%hd174602174664%_ - _%hd174599174656%_ - _%hd174596174648%_) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)) - (_%g174578174608%_ _%g174579174611%_)) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)) + __tmp178028)) + (_%generate-specializer-def173779%_ + _%L173847%_ + _%specializer-id175083%_ + _%specializer-impl175395%_)))) + _%hd174761174823%_ + _%hd174758174815%_ + _%hd174755174807%_) + (_%g174737174767%_ _%g174738174770%_)))) + (_%g174737174767%_ _%g174738174770%_)) + (_%g174737174767%_ _%g174738174770%_)) + (_%g174737174767%_ _%g174738174770%_)))) + (_%g174737174767%_ _%g174738174770%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174578174608%_ - _%g174579174611%_)))) - (_%g174578174608%_ - _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)))) + (_%g174737174767%_ + _%g174738174770%_)))) + (_%g174737174767%_ + _%g174738174770%_)))) + (_%g174737174767%_ _%g174738174770%_)))) + (_%g174737174767%_ _%g174738174770%_)))) + (_%g174737174767%_ _%g174738174770%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174578174608%_ - _%g174579174611%_))))) - (_%g174577175239%_ _%L173687%_)) + (_%g174737174767%_ + _%g174738174770%_))))) + (_%g174736175398%_ _%L173846%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L173687%_)) - (let* ((_%g175243175296%_ - (lambda (_%g175244175293%_) + (gxc#kw-lambda-expr? _%L173846%_)) + (let* ((_%g175402175455%_ + (lambda (_%g175403175452%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175244175293%_)))) - (_%g175242176467%_ - (lambda (_%g175244175299%_) + _%g175403175452%_)))) + (_%g175401176626%_ + (lambda (_%g175403175458%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175244175299%_)) - (let ((_%e175250175301%_ + _%g175403175458%_)) + (let ((_%e175409175460%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175244175299%_)))) - (let ((_%hd175251175304%_ + (gx#stx-e _%g175403175458%_)))) + (let ((_%hd175410175463%_ (let () (declare (not safe)) - (##car _%e175250175301%_))) - (_%tl175252175306%_ + (##car _%e175409175460%_))) + (_%tl175411175465%_ (let () (declare (not safe)) - (##cdr _%e175250175301%_)))) + (##cdr _%e175409175460%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175251175304%_)) + (gx#identifier? _%hd175410175463%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd175251175304%_)) + (gx#stx-eq? '%#let-values _%hd175410175463%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175252175306%_)) - (let ((_%e175253175309%_ + (gx#stx-pair? _%tl175411175465%_)) + (let ((_%e175412175468%_ (let () (declare (not safe)) - (gx#stx-e _%tl175252175306%_)))) - (let ((_%hd175254175312%_ + (gx#stx-e _%tl175411175465%_)))) + (let ((_%hd175413175471%_ (let () (declare (not safe)) - (##car _%e175253175309%_))) - (_%tl175255175314%_ + (##car _%e175412175468%_))) + (_%tl175414175473%_ (let () (declare (not safe)) - (##cdr _%e175253175309%_)))) + (##cdr _%e175412175468%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175254175312%_)) - (let ((_%e175256175317%_ + (gx#stx-pair? _%hd175413175471%_)) + (let ((_%e175415175476%_ (let () (declare (not safe)) (gx#stx-e - _%hd175254175312%_)))) - (let ((_%hd175257175320%_ + _%hd175413175471%_)))) + (let ((_%hd175416175479%_ (let () (declare (not safe)) - (##car _%e175256175317%_))) - (_%tl175258175322%_ + (##car _%e175415175476%_))) + (_%tl175417175481%_ (let () (declare (not safe)) - (##cdr _%e175256175317%_)))) + (##cdr _%e175415175476%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175257175320%_)) - (let ((_%e175259175325%_ + _%hd175416175479%_)) + (let ((_%e175418175484%_ (let () (declare (not safe)) (gx#stx-e - _%hd175257175320%_)))) - (let ((_%hd175260175328%_ + _%hd175416175479%_)))) + (let ((_%hd175419175487%_ (let () (declare (not safe)) - (##car _%e175259175325%_))) - (_%tl175261175330%_ + (##car _%e175418175484%_))) + (_%tl175420175489%_ (let () (declare (not safe)) - (##cdr _%e175259175325%_)))) + (##cdr _%e175418175484%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175260175328%_)) - (let ((_%e175262175333%_ + _%hd175419175487%_)) + (let ((_%e175421175492%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175260175328%_)))) - (let ((_%hd175263175336%_ + (gx#stx-e _%hd175419175487%_)))) + (let ((_%hd175422175495%_ (let () (declare (not safe)) - (##car _%e175262175333%_))) - (_%tl175264175338%_ + (##car _%e175421175492%_))) + (_%tl175423175497%_ (let () (declare (not safe)) - (##cdr _%e175262175333%_)))) + (##cdr _%e175421175492%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175264175338%_)) + (gx#stx-null? _%tl175423175497%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175261175330%_)) - (let ((_%e175265175341%_ + (gx#stx-pair? _%tl175420175489%_)) + (let ((_%e175424175500%_ (let () (declare (not safe)) - (gx#stx-e _%tl175261175330%_)))) - (let ((_%hd175266175344%_ + (gx#stx-e _%tl175420175489%_)))) + (let ((_%hd175425175503%_ (let () (declare (not safe)) - (##car _%e175265175341%_))) - (_%tl175267175346%_ + (##car _%e175424175500%_))) + (_%tl175426175505%_ (let () (declare (not safe)) - (##cdr _%e175265175341%_)))) + (##cdr _%e175424175500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175266175344%_)) - (let ((_%e175268175349%_ + (gx#stx-pair? _%hd175425175503%_)) + (let ((_%e175427175508%_ (let () (declare (not safe)) - (gx#stx-e _%hd175266175344%_)))) - (let ((_%hd175269175352%_ + (gx#stx-e _%hd175425175503%_)))) + (let ((_%hd175428175511%_ (let () (declare (not safe)) - (##car _%e175268175349%_))) - (_%tl175270175354%_ + (##car _%e175427175508%_))) + (_%tl175429175513%_ (let () (declare (not safe)) - (##cdr _%e175268175349%_)))) + (##cdr _%e175427175508%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175269175352%_)) + _%hd175428175511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175269175352%_)) + _%hd175428175511%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175270175354%_)) - (let ((_%e175271175357%_ + _%tl175429175513%_)) + (let ((_%e175430175516%_ (let () (declare (not safe)) (gx#stx-e - _%tl175270175354%_)))) - (let ((_%hd175272175360%_ + _%tl175429175513%_)))) + (let ((_%hd175431175519%_ (let () (declare (not safe)) - (##car _%e175271175357%_))) - (_%tl175273175362%_ + (##car _%e175430175516%_))) + (_%tl175432175521%_ (let () (declare (not safe)) - (##cdr _%e175271175357%_)))) + (##cdr _%e175430175516%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175272175360%_)) - (let ((_%e175274175365%_ + _%hd175431175519%_)) + (let ((_%e175433175524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175272175360%_)))) - (let ((_%hd175275175368%_ + (gx#stx-e _%hd175431175519%_)))) + (let ((_%hd175434175527%_ (let () (declare (not safe)) - (##car _%e175274175365%_))) - (_%tl175276175370%_ + (##car _%e175433175524%_))) + (_%tl175435175529%_ (let () (declare (not safe)) - (##cdr _%e175274175365%_)))) + (##cdr _%e175433175524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175275175368%_)) - (let ((_%e175277175373%_ + (gx#stx-pair? _%hd175434175527%_)) + (let ((_%e175436175532%_ (let () (declare (not safe)) - (gx#stx-e _%hd175275175368%_)))) - (let ((_%hd175278175376%_ + (gx#stx-e _%hd175434175527%_)))) + (let ((_%hd175437175535%_ (let () (declare (not safe)) - (##car _%e175277175373%_))) - (_%tl175279175378%_ + (##car _%e175436175532%_))) + (_%tl175438175537%_ (let () (declare (not safe)) - (##cdr _%e175277175373%_)))) + (##cdr _%e175436175532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175278175376%_)) - (let ((_%e175280175381%_ + (gx#stx-pair? _%hd175437175535%_)) + (let ((_%e175439175540%_ (let () (declare (not safe)) - (gx#stx-e _%hd175278175376%_)))) - (let ((_%hd175281175384%_ + (gx#stx-e _%hd175437175535%_)))) + (let ((_%hd175440175543%_ (let () (declare (not safe)) - (##car _%e175280175381%_))) - (_%tl175282175386%_ + (##car _%e175439175540%_))) + (_%tl175441175545%_ (let () (declare (not safe)) - (##cdr _%e175280175381%_)))) + (##cdr _%e175439175540%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175282175386%_)) + (gx#stx-null? _%tl175441175545%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175279175378%_)) - (let ((_%e175283175389%_ + _%tl175438175537%_)) + (let ((_%e175442175548%_ (let () (declare (not safe)) (gx#stx-e - _%tl175279175378%_)))) - (let ((_%hd175284175392%_ + _%tl175438175537%_)))) + (let ((_%hd175443175551%_ (let () (declare (not safe)) - (##car _%e175283175389%_))) - (_%tl175285175394%_ + (##car _%e175442175548%_))) + (_%tl175444175553%_ (let () (declare (not safe)) - (##cdr _%e175283175389%_)))) + (##cdr _%e175442175548%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175285175394%_)) + _%tl175444175553%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175276175370%_)) + _%tl175435175529%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl175273175362%_)) - (let ((_%e175286175397%_ + (gx#stx-pair? _%tl175432175521%_)) + (let ((_%e175445175556%_ (let () (declare (not safe)) - (gx#stx-e _%tl175273175362%_)))) - (let ((_%hd175287175400%_ + (gx#stx-e _%tl175432175521%_)))) + (let ((_%hd175446175559%_ (let () (declare (not safe)) - (##car _%e175286175397%_))) - (_%tl175288175402%_ + (##car _%e175445175556%_))) + (_%tl175447175561%_ (let () (declare (not safe)) - (##cdr _%e175286175397%_)))) + (##cdr _%e175445175556%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175288175402%_)) + (gx#stx-null? _%tl175447175561%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175267175346%_)) + (gx#stx-null? _%tl175426175505%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175258175322%_)) + (gx#stx-null? _%tl175417175481%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175255175314%_)) - (let ((_%e175289175405%_ + (gx#stx-pair? _%tl175414175473%_)) + (let ((_%e175448175564%_ (let () (declare (not safe)) (gx#stx-e - _%tl175255175314%_)))) - (let ((_%hd175290175408%_ + _%tl175414175473%_)))) + (let ((_%hd175449175567%_ (let () (declare (not safe)) - (##car _%e175289175405%_))) - (_%tl175291175410%_ + (##car _%e175448175564%_))) + (_%tl175450175569%_ (let () (declare (not safe)) - (##cdr _%e175289175405%_)))) + (##cdr _%e175448175564%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175291175410%_)) - ((lambda (_%L175413%_ - _%L175414%_ - _%L175415%_ - _%L175416%_ - _%L175417%_) - (let* ((_%g175457175519%_ - (lambda (_%g175458175516%_) + _%tl175450175569%_)) + ((lambda (_%L175572%_ + _%L175573%_ + _%L175574%_ + _%L175575%_ + _%L175576%_) + (let* ((_%g175616175678%_ + (lambda (_%g175617175675%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175458175516%_)))) - (_%g175456176464%_ - (lambda (_%g175458175522%_) + _%g175617175675%_)))) + (_%g175615176623%_ + (lambda (_%g175617175681%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175458175522%_)) - (let ((_%e175464175524%_ + (gx#stx-pair? _%g175617175681%_)) + (let ((_%e175623175683%_ (let () (declare (not safe)) - (gx#stx-e _%g175458175522%_)))) - (let ((_%hd175465175527%_ + (gx#stx-e _%g175617175681%_)))) + (let ((_%hd175624175686%_ (let () (declare (not safe)) - (##car _%e175464175524%_))) - (_%tl175466175529%_ + (##car _%e175623175683%_))) + (_%tl175625175688%_ (let () (declare (not safe)) - (##cdr _%e175464175524%_)))) + (##cdr _%e175623175683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175465175527%_)) + (gx#identifier? _%hd175624175686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd175465175527%_)) + _%hd175624175686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175466175529%_)) - (let ((_%e175467175532%_ + _%tl175625175688%_)) + (let ((_%e175626175691%_ (let () (declare (not safe)) (gx#stx-e - _%tl175466175529%_)))) - (let ((_%hd175468175535%_ + _%tl175625175688%_)))) + (let ((_%hd175627175694%_ (let () (declare (not safe)) - (##car _%e175467175532%_))) - (_%tl175469175537%_ + (##car _%e175626175691%_))) + (_%tl175628175696%_ (let () (declare (not safe)) - (##cdr _%e175467175532%_)))) + (##cdr _%e175626175691%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175469175537%_)) - (let ((_%e175470175540%_ + _%tl175628175696%_)) + (let ((_%e175629175699%_ (let () (declare (not safe)) (gx#stx-e - _%tl175469175537%_)))) - (let ((_%hd175471175543%_ + _%tl175628175696%_)))) + (let ((_%hd175630175702%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175470175540%_))) - (_%tl175472175545%_ - (let () (declare (not safe)) (##cdr _%e175470175540%_)))) + (##car _%e175629175699%_))) + (_%tl175631175704%_ + (let () (declare (not safe)) (##cdr _%e175629175699%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175471175543%_)) - (let ((_%e175473175548%_ + (gx#stx-pair? _%hd175630175702%_)) + (let ((_%e175632175707%_ (let () (declare (not safe)) - (gx#stx-e _%hd175471175543%_)))) - (let ((_%hd175474175551%_ + (gx#stx-e _%hd175630175702%_)))) + (let ((_%hd175633175710%_ (let () (declare (not safe)) - (##car _%e175473175548%_))) - (_%tl175475175553%_ + (##car _%e175632175707%_))) + (_%tl175634175712%_ (let () (declare (not safe)) - (##cdr _%e175473175548%_)))) + (##cdr _%e175632175707%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175474175551%_)) + (gx#identifier? _%hd175633175710%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd175474175551%_)) + (gx#stx-eq? '%#call _%hd175633175710%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175475175553%_)) - (let ((_%e175476175556%_ + (gx#stx-pair? _%tl175634175712%_)) + (let ((_%e175635175715%_ (let () (declare (not safe)) - (gx#stx-e _%tl175475175553%_)))) - (let ((_%hd175477175559%_ + (gx#stx-e _%tl175634175712%_)))) + (let ((_%hd175636175718%_ (let () (declare (not safe)) - (##car _%e175476175556%_))) - (_%tl175478175561%_ + (##car _%e175635175715%_))) + (_%tl175637175720%_ (let () (declare (not safe)) - (##cdr _%e175476175556%_)))) + (##cdr _%e175635175715%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175477175559%_)) - (let ((_%e175479175564%_ + _%hd175636175718%_)) + (let ((_%e175638175723%_ (let () (declare (not safe)) (gx#stx-e - _%hd175477175559%_)))) - (let ((_%hd175480175567%_ + _%hd175636175718%_)))) + (let ((_%hd175639175726%_ (let () (declare (not safe)) - (##car _%e175479175564%_))) - (_%tl175481175569%_ + (##car _%e175638175723%_))) + (_%tl175640175728%_ (let () (declare (not safe)) - (##cdr _%e175479175564%_)))) + (##cdr _%e175638175723%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175480175567%_)) + _%hd175639175726%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175480175567%_)) + _%hd175639175726%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175481175569%_)) - (let ((_%e175482175572%_ + _%tl175640175728%_)) + (let ((_%e175641175731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175481175569%_)))) - (let ((_%hd175483175575%_ + (gx#stx-e _%tl175640175728%_)))) + (let ((_%hd175642175734%_ (let () (declare (not safe)) - (##car _%e175482175572%_))) - (_%tl175484175577%_ + (##car _%e175641175731%_))) + (_%tl175643175736%_ (let () (declare (not safe)) - (##cdr _%e175482175572%_)))) + (##cdr _%e175641175731%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175484175577%_)) + (gx#stx-null? _%tl175643175736%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175478175561%_)) - (let ((_%e175485175580%_ + (gx#stx-pair? _%tl175637175720%_)) + (let ((_%e175644175739%_ (let () (declare (not safe)) - (gx#stx-e _%tl175478175561%_)))) - (let ((_%hd175486175583%_ + (gx#stx-e _%tl175637175720%_)))) + (let ((_%hd175645175742%_ (let () (declare (not safe)) - (##car _%e175485175580%_))) - (_%tl175487175585%_ + (##car _%e175644175739%_))) + (_%tl175646175744%_ (let () (declare (not safe)) - (##cdr _%e175485175580%_)))) + (##cdr _%e175644175739%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175486175583%_)) - (let ((_%e175488175588%_ + (gx#stx-pair? _%hd175645175742%_)) + (let ((_%e175647175747%_ (let () (declare (not safe)) (gx#stx-e - _%hd175486175583%_)))) - (let ((_%hd175489175591%_ + _%hd175645175742%_)))) + (let ((_%hd175648175750%_ (let () (declare (not safe)) - (##car _%e175488175588%_))) - (_%tl175490175593%_ + (##car _%e175647175747%_))) + (_%tl175649175752%_ (let () (declare (not safe)) - (##cdr _%e175488175588%_)))) + (##cdr _%e175647175747%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175489175591%_)) + _%hd175648175750%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175489175591%_)) + _%hd175648175750%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175490175593%_)) - (let ((_%e175491175596%_ + _%tl175649175752%_)) + (let ((_%e175650175755%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl175490175593%_)))) - (let ((_%hd175492175599%_ + (gx#stx-e _%tl175649175752%_)))) + (let ((_%hd175651175758%_ (let () (declare (not safe)) - (##car _%e175491175596%_))) - (_%tl175493175601%_ + (##car _%e175650175755%_))) + (_%tl175652175760%_ (let () (declare (not safe)) - (##cdr _%e175491175596%_)))) + (##cdr _%e175650175755%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175493175601%_)) + (gx#stx-null? _%tl175652175760%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175487175585%_)) - (let ((_%e175494175604%_ + (gx#stx-pair? _%tl175646175744%_)) + (let ((_%e175653175763%_ (let () (declare (not safe)) - (gx#stx-e _%tl175487175585%_)))) - (let ((_%hd175495175607%_ + (gx#stx-e _%tl175646175744%_)))) + (let ((_%hd175654175766%_ (let () (declare (not safe)) - (##car _%e175494175604%_))) - (_%tl175496175609%_ + (##car _%e175653175763%_))) + (_%tl175655175768%_ (let () (declare (not safe)) - (##cdr _%e175494175604%_)))) + (##cdr _%e175653175763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175495175607%_)) - (let ((_%e175497175612%_ + (gx#stx-pair? _%hd175654175766%_)) + (let ((_%e175656175771%_ (let () (declare (not safe)) - (gx#stx-e _%hd175495175607%_)))) - (let ((_%hd175498175615%_ + (gx#stx-e _%hd175654175766%_)))) + (let ((_%hd175657175774%_ (let () (declare (not safe)) - (##car _%e175497175612%_))) - (_%tl175499175617%_ + (##car _%e175656175771%_))) + (_%tl175658175776%_ (let () (declare (not safe)) - (##cdr _%e175497175612%_)))) + (##cdr _%e175656175771%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175498175615%_)) + _%hd175657175774%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175498175615%_)) + _%hd175657175774%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175499175617%_)) - (let ((_%e175500175620%_ + _%tl175658175776%_)) + (let ((_%e175659175779%_ (let () (declare (not safe)) (gx#stx-e - _%tl175499175617%_)))) - (let ((_%hd175501175623%_ + _%tl175658175776%_)))) + (let ((_%hd175660175782%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175500175620%_))) - (_%tl175502175625%_ - (let () (declare (not safe)) (##cdr _%e175500175620%_)))) + (##car _%e175659175779%_))) + (_%tl175661175784%_ + (let () (declare (not safe)) (##cdr _%e175659175779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175502175625%_)) + (gx#stx-null? _%tl175661175784%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175496175609%_)) - (if (let ((__tmp177871 + (gx#stx-pair/null? _%tl175655175768%_)) + (if (let ((__tmp178030 (let () (declare (not safe)) - (gx#stx-length _%tl175496175609%_)))) + (gx#stx-length _%tl175655175768%_)))) (declare (not safe)) - (##fx>= __tmp177871 '1)) - (let ((_g177872_ + (##fx>= __tmp178030 '1)) + (let ((_g178031_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175496175609%_ + _%tl175655175768%_ '1)))) (begin - (let ((_g177873_ + (let ((_g178032_ (let () (declare (not safe)) - (if (##values? _g177872_) - (##vector-length _g177872_) + (if (##values? _g178031_) + (##vector-length _g178031_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177873_ 2))) + (##fx= _g178032_ 2))) (error "Context expects 2 values" - _g177873_))) - (let ((_%target175503175628%_ + _g178032_))) + (let ((_%target175662175787%_ (let () (declare (not safe)) - (##vector-ref _g177872_ 0))) - (_%tl175505175630%_ + (##vector-ref _g178031_ 0))) + (_%tl175664175789%_ (let () (declare (not safe)) - (##vector-ref _g177872_ 1)))) + (##vector-ref _g178031_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175505175630%_)) - (let ((_%e175512175633%_ + (gx#stx-pair? _%tl175664175789%_)) + (let ((_%e175671175792%_ (let () (declare (not safe)) - (gx#stx-e _%tl175505175630%_)))) - (let ((_%hd175513175636%_ + (gx#stx-e _%tl175664175789%_)))) + (let ((_%hd175672175795%_ (let () (declare (not safe)) - (##car _%e175512175633%_))) - (_%tl175514175638%_ + (##car _%e175671175792%_))) + (_%tl175673175797%_ (let () (declare (not safe)) - (##cdr _%e175512175633%_)))) + (##cdr _%e175671175792%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175514175638%_)) - (letrec ((_%loop175506175641%_ - (lambda (_%hd175504175644%_ + _%tl175673175797%_)) + (letrec ((_%loop175665175800%_ + (lambda (_%hd175663175803%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref175510175646%_) + _%kw-ref175669175805%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175504175644%_)) - (let ((_%e175507175649%_ + (gx#stx-pair? _%hd175663175803%_)) + (let ((_%e175666175808%_ (let () (declare (not safe)) - (gx#stx-e _%hd175504175644%_)))) - (let ((_%lp-hd175508175652%_ + (gx#stx-e _%hd175663175803%_)))) + (let ((_%lp-hd175667175811%_ (let () (declare (not safe)) - (##car _%e175507175649%_))) - (_%lp-tl175509175654%_ + (##car _%e175666175808%_))) + (_%lp-tl175668175813%_ (let () (declare (not safe)) - (##cdr _%e175507175649%_)))) - (_%loop175506175641%_ - _%lp-tl175509175654%_ - (cons _%lp-hd175508175652%_ - _%kw-ref175510175646%_)))) - (let ((_%kw-ref175511175657%_ - (reverse _%kw-ref175510175646%_))) + (##cdr _%e175666175808%_)))) + (_%loop175665175800%_ + _%lp-tl175668175813%_ + (cons _%lp-hd175667175811%_ + _%kw-ref175669175805%_)))) + (let ((_%kw-ref175670175816%_ + (reverse _%kw-ref175669175805%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175472175545%_)) - ((lambda (_%L175660%_ - _%L175661%_ - _%L175662%_ - _%L175663%_ - _%L175664%_) - (let* ((_%kw-count175715%_ - (length (let ((__tmp177874 - (lambda (_%g175707175710%_ - _%g175708175712%_) - (cons _%g175707175710%_ - _%g175708175712%_)))) + (gx#stx-null? _%tl175631175704%_)) + ((lambda (_%L175819%_ + _%L175820%_ + _%L175821%_ + _%L175822%_ + _%L175823%_) + (let* ((_%kw-count175874%_ + (length (let ((__tmp178033 + (lambda (_%g175866175869%_ + _%g175867175871%_) + (cons _%g175866175869%_ + _%g175867175871%_)))) (declare (not safe)) (__foldr1 - __tmp177874 + __tmp178033 '() - _%L175661%_)))) - (_%self-index175717%_ + _%L175820%_)))) + (_%self-index175876%_ (let () (declare (not safe)) - (##fx+ _%kw-count175715%_ '1)))) + (##fx+ _%kw-count175874%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L175415%_)) - (let* ((_%g175721175735%_ - (lambda (_%g175722175732%_) + (gxc#lambda-expr? _%L175574%_)) + (let* ((_%g175880175894%_ + (lambda (_%g175881175891%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175722175732%_)))) - (_%g175720175858%_ - (lambda (_%g175722175738%_) + _%g175881175891%_)))) + (_%g175879176017%_ + (lambda (_%g175881175897%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175722175738%_)) - (let ((_%e175725175740%_ + _%g175881175897%_)) + (let ((_%e175884175899%_ (let () (declare (not safe)) (gx#stx-e - _%g175722175738%_)))) - (let ((_%hd175726175743%_ + _%g175881175897%_)))) + (let ((_%hd175885175902%_ (let () (declare (not safe)) - (##car _%e175725175740%_))) - (_%tl175727175745%_ + (##car _%e175884175899%_))) + (_%tl175886175904%_ (let () (declare (not safe)) - (##cdr _%e175725175740%_)))) + (##cdr _%e175884175899%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175727175745%_)) - (let ((_%e175728175748%_ + _%tl175886175904%_)) + (let ((_%e175887175907%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175727175745%_)))) - (let ((_%hd175729175751%_ + (gx#stx-e _%tl175886175904%_)))) + (let ((_%hd175888175910%_ (let () (declare (not safe)) - (##car _%e175728175748%_))) - (_%tl175730175753%_ + (##car _%e175887175907%_))) + (_%tl175889175912%_ (let () (declare (not safe)) - (##cdr _%e175728175748%_)))) - ((lambda (_%L175756%_ _%L175757%_) - (let* ((_%self175774%_ - (list-ref _%L175757%_ _%self-index175717%_)) - (_%receiver175779%_ - (let ((_%$e175776%_ + (##cdr _%e175887175907%_)))) + ((lambda (_%L175915%_ _%L175916%_) + (let* ((_%self175933%_ + (list-ref _%L175916%_ _%self-index175876%_)) + (_%receiver175938%_ + (let ((_%$e175935%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175756%_)))) - (if _%$e175776%_ - _%$e175776%_ - _%self175774%_)))) + _%L175915%_)))) + (if _%$e175935%_ + _%$e175935%_ + _%self175933%_)))) (for-each - (lambda (_%g175781175783%_) + (lambda (_%g175940175942%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175779%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175781175783%_)) - _%L175756%_) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id175792%_ - (let* ((_%id175786%_ - (let ((__tmp177875 + _%receiver175938%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g175940175942%_)) + _%L175915%_) + (if (_%no-specializer?173870%_) + _%stx173774%_ + (let* ((_%specializer-id175951%_ + (let* ((_%id175945%_ + (let ((__tmp178034 (let () (declare (not safe)) (gx#stx-e - _%L173688%_)))) + _%L173847%_)))) (declare (not safe)) (make-symbol__1 - __tmp177875 + __tmp178034 '"::specialize"))) - (_%specializer-id175789%_ - (let ((__tmp177876 + (_%specializer-id175948%_ + (let ((__tmp178035 (let () (declare (not safe)) (gx#stx-source - _%stx173615%_)))) + _%stx173774%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id175786%_ - __tmp177876)))) + _%id175945%_ + __tmp178035)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id175789%_)) - _%specializer-id175789%_)) - (_%$klass175794%_ - (let ((__tmp177877 + _%specializer-id175948%_)) + _%specializer-id175948%_)) + (_%$klass175953%_ + (let ((__tmp178036 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177877))) - (_%$method-table175796%_ - (let ((__tmp177878 + (make-symbol__0 __tmp178036))) + (_%$method-table175955%_ + (let ((__tmp178037 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177878))) - (_%methods175798%_ + (make-symbol__0 __tmp178037))) + (_%methods175957%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173707%_))) - (_%$methods175802%_ - (map (lambda (_%id175800%_) - (let ((__tmp177879 - (gensym _%id175800%_))) + _%method-calls173866%_))) + (_%$methods175961%_ + (map (lambda (_%id175959%_) + (let ((__tmp178038 + (gensym _%id175959%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp177879))) - _%methods175798%_)) - (_%_175811%_ + __tmp178038))) + _%methods175957%_)) + (_%_175970%_ (for-each - (lambda (_%g175803175806%_ - _%g175804175808%_) + (lambda (_%g175962175965%_ + _%g175963175967%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g175803175806%_ - _%g175804175808%_))) - _%methods175798%_ - _%$methods175802%_)) - (_%methods-bind175821%_ - (map (lambda (_%g175813175816%_ - _%g175814175818%_) - (_%generate-method-bind173617%_ - _%$klass175794%_ - _%$method-table175796%_ - _%g175813175816%_ - _%g175814175818%_)) - _%methods175798%_ - _%$methods175802%_)) - (_%slots175823%_ + _%method-calls173866%_ + _%g175962175965%_ + _%g175963175967%_))) + _%methods175957%_ + _%$methods175961%_)) + (_%methods-bind175980%_ + (map (lambda (_%g175972175975%_ + _%g175973175977%_) + (_%generate-method-bind173776%_ + _%$klass175953%_ + _%$method-table175955%_ + _%g175972175975%_ + _%g175973175977%_)) + _%methods175957%_ + _%$methods175961%_)) + (_%slots175982%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173708%_))) - (_%$slots175827%_ - (map (lambda (_%id175825%_) - (let ((__tmp177880 - (gensym _%id175825%_))) + (__hash-keys _%slot-refs173867%_))) + (_%$slots175986%_ + (map (lambda (_%id175984%_) + (let ((__tmp178039 + (gensym _%id175984%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp177880))) - _%slots175823%_)) - (_%_175836%_ + __tmp178039))) + _%slots175982%_)) + (_%_175995%_ (for-each - (lambda (_%g175828175831%_ - _%g175829175833%_) + (lambda (_%g175987175990%_ + _%g175988175992%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g175828175831%_ - _%g175829175833%_))) - _%slots175823%_ - _%$slots175827%_)) - (_%slots-bind175845%_ - (map (lambda (_%g175837175840%_ - _%g175838175842%_) - (_%generate-slot-bind173618%_ - _%$klass175794%_ - _%g175837175840%_ - _%g175838175842%_)) - _%slots175823%_ - _%$slots175827%_)) - (_%specializer-impl175853%_ - (let* ((_%specializer-body175851%_ - (map (lambda (_%g175846175848%_) + _%slot-refs173867%_ + _%g175987175990%_ + _%g175988175992%_))) + _%slots175982%_ + _%$slots175986%_)) + (_%slots-bind176004%_ + (map (lambda (_%g175996175999%_ + _%g175997176001%_) + (_%generate-slot-bind173777%_ + _%$klass175953%_ + _%g175996175999%_ + _%g175997176001%_)) + _%slots175982%_ + _%$slots175986%_)) + (_%specializer-impl176012%_ + (let* ((_%specializer-body176010%_ + (map (lambda (_%g176005176007%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175779%_ - _%$klass175794%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175846175848%_)) - _%L175756%_)) - (__tmp177881 + _%receiver175938%_ + _%$klass175953%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g176005176007%_)) + _%L175915%_)) + (__tmp178040 (cons '%#let-values - (cons (cons (cons (cons _%L175417%_ + (cons (cons (cons (cons _%L175576%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175416%_ + (cons (cons (cons (cons _%L175575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp177882 + (cons (let ((__tmp178041 (cons '%#lambda - (cons _%L175757%_ - _%specializer-body175851%_)))) + (cons _%L175916%_ + _%specializer-body176010%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177882 _%L175415%_)) + (gxc#xform-wrap-source __tmp178041 _%L175574%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L175414%_ '()))) + (cons _%L175573%_ '()))) '())) '()) - (cons _%L175413%_ '()))))) + (cons _%L175572%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177881 - _%stx173615%_))) - (_%specializer-impl175855%_ - (_%generate-specializer-impl173619%_ - _%$klass175794%_ - _%$method-table175796%_ - _%methods-bind175821%_ - _%slots-bind175845%_ - _%specializer-impl175853%_))) - (let ((__tmp177884 + __tmp178040 + _%stx173774%_))) + (_%specializer-impl176014%_ + (_%generate-specializer-impl173778%_ + _%$klass175953%_ + _%$method-table175955%_ + _%methods-bind175980%_ + _%slots-bind176004%_ + _%specializer-impl176012%_))) + (let ((__tmp178043 (let () (declare (not safe)) - (gx#stx-e _%L173688%_))) - (__tmp177883 + (gx#stx-e _%L173847%_))) + (__tmp178042 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175792%_)))) + _%specializer-id175951%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177884 + __tmp178043 '" => " - __tmp177883)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id175792%_ - _%specializer-impl175855%_))))) - _%tl175730175753%_ - _%hd175729175751%_))) - (_%g175721175735%_ _%g175722175738%_)))) + __tmp178042)) + (_%generate-specializer-def173779%_ + _%L173847%_ + _%specializer-id175951%_ + _%specializer-impl176014%_))))) + _%tl175889175912%_ + _%hd175888175910%_))) + (_%g175880175894%_ _%g175881175897%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175721175735%_ - _%g175722175738%_))))) - (_%g175720175858%_ _%L175415%_)) + (_%g175880175894%_ + _%g175881175897%_))))) + (_%g175879176017%_ _%L175574%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L175415%_)) - (let* ((_%g175862175892%_ - (lambda (_%g175863175889%_) + (gxc#opt-lambda-expr? _%L175574%_)) + (let* ((_%g176021176051%_ + (lambda (_%g176022176048%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175863175889%_)))) - (_%g175861176460%_ - (lambda (_%g175863175895%_) + _%g176022176048%_)))) + (_%g176020176619%_ + (lambda (_%g176022176054%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175863175895%_)) - (let ((_%e175867175897%_ + _%g176022176054%_)) + (let ((_%e176026176056%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175863175895%_)))) - (let ((_%hd175868175900%_ + (gx#stx-e _%g176022176054%_)))) + (let ((_%hd176027176059%_ (let () (declare (not safe)) - (##car _%e175867175897%_))) - (_%tl175869175902%_ + (##car _%e176026176056%_))) + (_%tl176028176061%_ (let () (declare (not safe)) - (##cdr _%e175867175897%_)))) + (##cdr _%e176026176056%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175869175902%_)) - (let ((_%e175870175905%_ + (gx#stx-pair? _%tl176028176061%_)) + (let ((_%e176029176064%_ (let () (declare (not safe)) - (gx#stx-e _%tl175869175902%_)))) - (let ((_%hd175871175908%_ + (gx#stx-e _%tl176028176061%_)))) + (let ((_%hd176030176067%_ (let () (declare (not safe)) - (##car _%e175870175905%_))) - (_%tl175872175910%_ + (##car _%e176029176064%_))) + (_%tl176031176069%_ (let () (declare (not safe)) - (##cdr _%e175870175905%_)))) + (##cdr _%e176029176064%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175871175908%_)) - (let ((_%e175873175913%_ + (gx#stx-pair? _%hd176030176067%_)) + (let ((_%e176032176072%_ (let () (declare (not safe)) - (gx#stx-e _%hd175871175908%_)))) - (let ((_%hd175874175916%_ + (gx#stx-e _%hd176030176067%_)))) + (let ((_%hd176033176075%_ (let () (declare (not safe)) - (##car _%e175873175913%_))) - (_%tl175875175918%_ + (##car _%e176032176072%_))) + (_%tl176034176077%_ (let () (declare (not safe)) - (##cdr _%e175873175913%_)))) + (##cdr _%e176032176072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175874175916%_)) - (let ((_%e175876175921%_ + (gx#stx-pair? _%hd176033176075%_)) + (let ((_%e176035176080%_ (let () (declare (not safe)) (gx#stx-e - _%hd175874175916%_)))) - (let ((_%hd175877175924%_ + _%hd176033176075%_)))) + (let ((_%hd176036176083%_ (let () (declare (not safe)) - (##car _%e175876175921%_))) - (_%tl175878175926%_ + (##car _%e176035176080%_))) + (_%tl176037176085%_ (let () (declare (not safe)) - (##cdr _%e175876175921%_)))) + (##cdr _%e176035176080%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175877175924%_)) - (let ((_%e175879175929%_ + _%hd176036176083%_)) + (let ((_%e176038176088%_ (let () (declare (not safe)) (gx#stx-e - _%hd175877175924%_)))) - (let ((_%hd175880175932%_ + _%hd176036176083%_)))) + (let ((_%hd176039176091%_ (let () (declare (not safe)) - (##car _%e175879175929%_))) - (_%tl175881175934%_ + (##car _%e176038176088%_))) + (_%tl176040176093%_ (let () (declare (not safe)) - (##cdr _%e175879175929%_)))) + (##cdr _%e176038176088%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175881175934%_)) + _%tl176040176093%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175878175926%_)) - (let ((_%e175882175937%_ + _%tl176037176085%_)) + (let ((_%e176041176096%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175878175926%_)))) - (let ((_%hd175883175940%_ + (gx#stx-e _%tl176037176085%_)))) + (let ((_%hd176042176099%_ (let () (declare (not safe)) - (##car _%e175882175937%_))) - (_%tl175884175942%_ + (##car _%e176041176096%_))) + (_%tl176043176101%_ (let () (declare (not safe)) - (##cdr _%e175882175937%_)))) + (##cdr _%e176041176096%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175884175942%_)) + (gx#stx-null? _%tl176043176101%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175875175918%_)) + (gx#stx-null? _%tl176034176077%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175872175910%_)) - (let ((_%e175885175945%_ + (gx#stx-pair? _%tl176031176069%_)) + (let ((_%e176044176104%_ (let () (declare (not safe)) - (gx#stx-e _%tl175872175910%_)))) - (let ((_%hd175886175948%_ + (gx#stx-e _%tl176031176069%_)))) + (let ((_%hd176045176107%_ (let () (declare (not safe)) - (##car _%e175885175945%_))) - (_%tl175887175950%_ + (##car _%e176044176104%_))) + (_%tl176046176109%_ (let () (declare (not safe)) - (##cdr _%e175885175945%_)))) + (##cdr _%e176044176104%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175887175950%_)) - ((lambda (_%L175953%_ - _%L175954%_ - _%L175955%_) - (let* ((_%g175979175993%_ - (lambda (_%g175980175990%_) + (gx#stx-null? _%tl176046176109%_)) + ((lambda (_%L176112%_ + _%L176113%_ + _%L176114%_) + (let* ((_%g176138176152%_ + (lambda (_%g176139176149%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175980175990%_)))) - (_%g175978176040%_ - (lambda (_%g175980175996%_) + _%g176139176149%_)))) + (_%g176137176199%_ + (lambda (_%g176139176155%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175980175996%_)) - (let ((_%e175983175998%_ + _%g176139176155%_)) + (let ((_%e176142176157%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g175980175996%_)))) - (let ((_%hd175984176001%_ + (gx#stx-e _%g176139176155%_)))) + (let ((_%hd176143176160%_ (let () (declare (not safe)) - (##car _%e175983175998%_))) - (_%tl175985176003%_ + (##car _%e176142176157%_))) + (_%tl176144176162%_ (let () (declare (not safe)) - (##cdr _%e175983175998%_)))) + (##cdr _%e176142176157%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175985176003%_)) - (let ((_%e175986176006%_ + (gx#stx-pair? _%tl176144176162%_)) + (let ((_%e176145176165%_ (let () (declare (not safe)) - (gx#stx-e _%tl175985176003%_)))) - (let ((_%hd175987176009%_ + (gx#stx-e _%tl176144176162%_)))) + (let ((_%hd176146176168%_ (let () (declare (not safe)) - (##car _%e175986176006%_))) - (_%tl175988176011%_ + (##car _%e176145176165%_))) + (_%tl176147176170%_ (let () (declare (not safe)) - (##cdr _%e175986176006%_)))) - ((lambda (_%L176014%_ _%L176015%_) - (let* ((_%self176028%_ + (##cdr _%e176145176165%_)))) + ((lambda (_%L176173%_ _%L176174%_) + (let* ((_%self176187%_ (list-ref - _%L176015%_ - _%self-index175717%_)) - (_%receiver176033%_ - (let ((_%$e176030%_ + _%L176174%_ + _%self-index175876%_)) + (_%receiver176192%_ + (let ((_%$e176189%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176014%_)))) - (if _%$e176030%_ - _%$e176030%_ - _%self176028%_)))) + _%L176173%_)))) + (if _%$e176189%_ + _%$e176189%_ + _%self176187%_)))) (for-each - (lambda (_%g176035176037%_) + (lambda (_%g176194176196%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176033%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176035176037%_)) - _%L176014%_))) - _%tl175988176011%_ - _%hd175987176009%_))) - (_%g175979175993%_ _%g175980175996%_)))) - (_%g175979175993%_ _%g175980175996%_))))) + _%receiver176192%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g176194176196%_)) + _%L176173%_))) + _%tl176147176170%_ + _%hd176146176168%_))) + (_%g176138176152%_ _%g176139176155%_)))) + (_%g176138176152%_ _%g176139176155%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175978176040%_ - _%L175954%_)) - (let* ((_%g176043176062%_ - (lambda (_%g176044176059%_) + (_%g176137176199%_ + _%L176113%_)) + (let* ((_%g176202176221%_ + (lambda (_%g176203176218%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176044176059%_)))) - (_%g176042176173%_ - (lambda (_%g176044176065%_) + _%g176203176218%_)))) + (_%g176201176332%_ + (lambda (_%g176203176224%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176044176065%_)) - (let ((_%e176046176067%_ + _%g176203176224%_)) + (let ((_%e176205176226%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176044176065%_)))) - (let ((_%hd176047176070%_ + (gx#stx-e _%g176203176224%_)))) + (let ((_%hd176206176229%_ (let () (declare (not safe)) - (##car _%e176046176067%_))) - (_%tl176048176072%_ + (##car _%e176205176226%_))) + (_%tl176207176231%_ (let () (declare (not safe)) - (##cdr _%e176046176067%_)))) + (##cdr _%e176205176226%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl176048176072%_)) - (let ((_g177885_ + (gx#stx-pair/null? _%tl176207176231%_)) + (let ((_g178044_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176048176072%_ + _%tl176207176231%_ '0)))) (begin - (let ((_g177886_ + (let ((_g178045_ (let () (declare (not safe)) - (if (##values? _g177885_) - (##vector-length _g177885_) + (if (##values? _g178044_) + (##vector-length _g178044_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177886_ 2))) + (##fx= _g178045_ 2))) (error "Context expects 2 values" - _g177886_))) - (let ((_%target176049176075%_ + _g178045_))) + (let ((_%target176208176234%_ (let () (declare (not safe)) - (##vector-ref _g177885_ 0))) - (_%tl176051176077%_ + (##vector-ref _g178044_ 0))) + (_%tl176210176236%_ (let () (declare (not safe)) - (##vector-ref _g177885_ 1)))) + (##vector-ref _g178044_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176051176077%_)) - (letrec ((_%loop176052176080%_ - (lambda (_%hd176050176083%_ - _%clause176056176085%_) + (gx#stx-null? _%tl176210176236%_)) + (letrec ((_%loop176211176239%_ + (lambda (_%hd176209176242%_ + _%clause176215176244%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176050176083%_)) - (let ((_%e176053176088%_ + _%hd176209176242%_)) + (let ((_%e176212176247%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd176050176083%_)))) - (let ((_%lp-hd176054176091%_ - (let () (declare (not safe)) (##car _%e176053176088%_))) - (_%lp-tl176055176093%_ + (gx#stx-e _%hd176209176242%_)))) + (let ((_%lp-hd176213176250%_ + (let () (declare (not safe)) (##car _%e176212176247%_))) + (_%lp-tl176214176252%_ (let () (declare (not safe)) - (##cdr _%e176053176088%_)))) - (_%loop176052176080%_ - _%lp-tl176055176093%_ - (cons _%lp-hd176054176091%_ _%clause176056176085%_)))) - (let ((_%clause176057176096%_ (reverse _%clause176056176085%_))) - ((lambda (_%L176099%_) + (##cdr _%e176212176247%_)))) + (_%loop176211176239%_ + _%lp-tl176214176252%_ + (cons _%lp-hd176213176250%_ _%clause176215176244%_)))) + (let ((_%clause176216176255%_ (reverse _%clause176215176244%_))) + ((lambda (_%L176258%_) (for-each - (lambda (_%clause176112%_) - (let* ((_%g176114176125%_ - (lambda (_%g176115176122%_) + (lambda (_%clause176271%_) + (let* ((_%g176273176284%_ + (lambda (_%g176274176281%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176115176122%_)))) - (_%g176113176163%_ - (lambda (_%g176115176128%_) + _%g176274176281%_)))) + (_%g176272176322%_ + (lambda (_%g176274176287%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176115176128%_)) - (let ((_%e176118176130%_ + (gx#stx-pair? _%g176274176287%_)) + (let ((_%e176277176289%_ (let () (declare (not safe)) - (gx#stx-e _%g176115176128%_)))) - (let ((_%hd176119176133%_ + (gx#stx-e _%g176274176287%_)))) + (let ((_%hd176278176292%_ (let () (declare (not safe)) - (##car _%e176118176130%_))) - (_%tl176120176135%_ + (##car _%e176277176289%_))) + (_%tl176279176294%_ (let () (declare (not safe)) - (##cdr _%e176118176130%_)))) - ((lambda (_%L176138%_ _%L176139%_) - (let* ((_%self176151%_ + (##cdr _%e176277176289%_)))) + ((lambda (_%L176297%_ _%L176298%_) + (let* ((_%self176310%_ (list-ref - _%L176139%_ - _%self-index175717%_)) - (_%receiver176156%_ - (let ((_%$e176153%_ + _%L176298%_ + _%self-index175876%_)) + (_%receiver176315%_ + (let ((_%$e176312%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176138%_)))) + _%L176297%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e176153%_ - _%$e176153%_ - _%self176151%_)))) + (if _%$e176312%_ + _%$e176312%_ + _%self176310%_)))) (for-each - (lambda (_%g176158176160%_) + (lambda (_%g176317176319%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176156%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176158176160%_)) - _%L176138%_))) - _%tl176120176135%_ - _%hd176119176133%_))) - (_%g176114176125%_ _%g176115176128%_))))) - (_%g176113176163%_ _%clause176112%_))) - (let ((__tmp177887 - (lambda (_%g176165176168%_ _%g176166176170%_) - (cons _%g176165176168%_ _%g176166176170%_)))) + _%receiver176315%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g176317176319%_)) + _%L176297%_))) + _%tl176279176294%_ + _%hd176278176292%_))) + (_%g176273176284%_ _%g176274176287%_))))) + (_%g176272176322%_ _%clause176271%_))) + (let ((__tmp178046 + (lambda (_%g176324176327%_ _%g176325176329%_) + (cons _%g176324176327%_ _%g176325176329%_)))) (declare (not safe)) - (__foldr1 __tmp177887 '() _%L176099%_)))) - _%clause176057176096%_)))))) + (__foldr1 __tmp178046 '() _%L176258%_)))) + _%clause176216176255%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176052176080%_ - _%target176049176075%_ + (_%loop176211176239%_ + _%target176208176234%_ '())) - (_%g176043176062%_ _%g176044176065%_))))) - (_%g176043176062%_ _%g176044176065%_)))) - (_%g176043176062%_ _%g176044176065%_))))) + (_%g176202176221%_ _%g176203176224%_))))) + (_%g176202176221%_ _%g176203176224%_)))) + (_%g176202176221%_ _%g176203176224%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176042176173%_ - _%L175953%_)) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id176182%_ - (let* ((_%id176176%_ + (_%g176201176332%_ + _%L176112%_)) + (if (_%no-specializer?173870%_) + _%stx173774%_ + (let* ((_%specializer-id176341%_ + (let* ((_%id176335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp177888 + (let ((__tmp178047 (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L173847%_)))) (declare (not safe)) - (make-symbol__1 __tmp177888 '"::specialize"))) - (_%specializer-id176179%_ - (let ((__tmp177889 + (make-symbol__1 __tmp178047 '"::specialize"))) + (_%specializer-id176338%_ + (let ((__tmp178048 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx173774%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id176176%_ - __tmp177889)))) + _%id176335%_ + __tmp178048)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id176179%_)) - _%specializer-id176179%_)) - (_%$klass176184%_ - (let ((__tmp177890 + (gx#core-bind-runtime!__0 _%specializer-id176338%_)) + _%specializer-id176338%_)) + (_%$klass176343%_ + (let ((__tmp178049 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177890))) - (_%$method-table176186%_ - (let ((__tmp177891 + (make-symbol__0 __tmp178049))) + (_%$method-table176345%_ + (let ((__tmp178050 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177891))) - (_%methods176188%_ + (make-symbol__0 __tmp178050))) + (_%methods176347%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173707%_))) - (_%$methods176192%_ - (map (lambda (_%id176190%_) - (let ((__tmp177892 (gensym _%id176190%_))) + (__hash-keys _%method-calls173866%_))) + (_%$methods176351%_ + (map (lambda (_%id176349%_) + (let ((__tmp178051 (gensym _%id176349%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177892))) - _%methods176188%_)) - (_%_176201%_ + (make-symbol__1 '"__" __tmp178051))) + _%methods176347%_)) + (_%_176360%_ (for-each - (lambda (_%g176193176196%_ _%g176194176198%_) + (lambda (_%g176352176355%_ _%g176353176357%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g176193176196%_ - _%g176194176198%_))) - _%methods176188%_ - _%$methods176192%_)) - (_%methods-bind176211%_ - (map (lambda (_%g176203176206%_ _%g176204176208%_) - (_%generate-method-bind173617%_ - _%$klass176184%_ - _%$method-table176186%_ - _%g176203176206%_ - _%g176204176208%_)) - _%methods176188%_ - _%$methods176192%_)) - (_%slots176213%_ + _%method-calls173866%_ + _%g176352176355%_ + _%g176353176357%_))) + _%methods176347%_ + _%$methods176351%_)) + (_%methods-bind176370%_ + (map (lambda (_%g176362176365%_ _%g176363176367%_) + (_%generate-method-bind173776%_ + _%$klass176343%_ + _%$method-table176345%_ + _%g176362176365%_ + _%g176363176367%_)) + _%methods176347%_ + _%$methods176351%_)) + (_%slots176372%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173708%_))) - (_%$slots176217%_ - (map (lambda (_%id176215%_) - (let ((__tmp177893 (gensym _%id176215%_))) + (__hash-keys _%slot-refs173867%_))) + (_%$slots176376%_ + (map (lambda (_%id176374%_) + (let ((__tmp178052 (gensym _%id176374%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177893))) - _%slots176213%_)) - (_%_176226%_ + (make-symbol__1 '"__" __tmp178052))) + _%slots176372%_)) + (_%_176385%_ (for-each - (lambda (_%g176218176221%_ _%g176219176223%_) + (lambda (_%g176377176380%_ _%g176378176382%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g176218176221%_ - _%g176219176223%_))) - _%slots176213%_ - _%$slots176217%_)) - (_%slots-bind176235%_ - (map (lambda (_%g176227176230%_ _%g176228176232%_) - (_%generate-slot-bind173618%_ - _%$klass176184%_ - _%g176227176230%_ - _%g176228176232%_)) - _%slots176213%_ - _%$slots176217%_)) - (_%specializer-lambda-expr176313%_ - (let* ((_%g176237176251%_ - (lambda (_%g176238176248%_) + _%slot-refs173867%_ + _%g176377176380%_ + _%g176378176382%_))) + _%slots176372%_ + _%$slots176376%_)) + (_%slots-bind176394%_ + (map (lambda (_%g176386176389%_ _%g176387176391%_) + (_%generate-slot-bind173777%_ + _%$klass176343%_ + _%g176386176389%_ + _%g176387176391%_)) + _%slots176372%_ + _%$slots176376%_)) + (_%specializer-lambda-expr176472%_ + (let* ((_%g176396176410%_ + (lambda (_%g176397176407%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176238176248%_)))) - (_%g176236176310%_ - (lambda (_%g176238176254%_) + _%g176397176407%_)))) + (_%g176395176469%_ + (lambda (_%g176397176413%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176238176254%_)) - (let ((_%e176241176256%_ + (gx#stx-pair? _%g176397176413%_)) + (let ((_%e176400176415%_ (let () (declare (not safe)) - (gx#stx-e _%g176238176254%_)))) - (let ((_%hd176242176259%_ + (gx#stx-e _%g176397176413%_)))) + (let ((_%hd176401176418%_ (let () (declare (not safe)) - (##car _%e176241176256%_))) - (_%tl176243176261%_ + (##car _%e176400176415%_))) + (_%tl176402176420%_ (let () (declare (not safe)) - (##cdr _%e176241176256%_)))) + (##cdr _%e176400176415%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176243176261%_)) - (let ((_%e176244176264%_ + (gx#stx-pair? _%tl176402176420%_)) + (let ((_%e176403176423%_ (let () (declare (not safe)) (gx#stx-e - _%tl176243176261%_)))) - (let ((_%hd176245176267%_ + _%tl176402176420%_)))) + (let ((_%hd176404176426%_ (let () (declare (not safe)) - (##car _%e176244176264%_))) - (_%tl176246176269%_ + (##car _%e176403176423%_))) + (_%tl176405176428%_ (let () (declare (not safe)) - (##cdr _%e176244176264%_)))) - ((lambda (_%L176272%_ _%L176273%_) - (let* ((_%self176296%_ + (##cdr _%e176403176423%_)))) + ((lambda (_%L176431%_ _%L176432%_) + (let* ((_%self176455%_ (list-ref - _%L176273%_ - _%self-index175717%_)) - (_%receiver176301%_ - (let ((_%$e176298%_ + _%L176432%_ + _%self-index175876%_)) + (_%receiver176460%_ + (let ((_%$e176457%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176272%_)))) - (if _%$e176298%_ _%$e176298%_ _%self176296%_))) - (_%body176307%_ - (map (lambda (_%g176302176304%_) + _%L176431%_)))) + (if _%$e176457%_ _%$e176457%_ _%self176455%_))) + (_%body176466%_ + (map (lambda (_%g176461176463%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176301%_ - _%$klass176184%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176302176304%_)) - _%L176272%_)) - (__tmp177894 (cons '%#lambda (cons _%L176273%_ _%body176307%_)))) + _%receiver176460%_ + _%$klass176343%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g176461176463%_)) + _%L176431%_)) + (__tmp178053 (cons '%#lambda (cons _%L176432%_ _%body176466%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177894 - _%L175954%_))) - _%tl176246176269%_ - _%hd176245176267%_))) - (_%g176237176251%_ - _%g176238176254%_)))) - (_%g176237176251%_ _%g176238176254%_))))) - (_%g176236176310%_ _%L175954%_))) - (_%specializer-case-lambda-expr176453%_ - (let* ((_%g176315176334%_ - (lambda (_%g176316176331%_) + __tmp178053 + _%L176113%_))) + _%tl176405176428%_ + _%hd176404176426%_))) + (_%g176396176410%_ + _%g176397176413%_)))) + (_%g176396176410%_ _%g176397176413%_))))) + (_%g176395176469%_ _%L176113%_))) + (_%specializer-case-lambda-expr176612%_ + (let* ((_%g176474176493%_ + (lambda (_%g176475176490%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176316176331%_)))) - (_%g176314176450%_ - (lambda (_%g176316176337%_) + _%g176475176490%_)))) + (_%g176473176609%_ + (lambda (_%g176475176496%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176316176337%_)) - (let ((_%e176318176339%_ + (gx#stx-pair? _%g176475176496%_)) + (let ((_%e176477176498%_ (let () (declare (not safe)) - (gx#stx-e _%g176316176337%_)))) - (let ((_%hd176319176342%_ + (gx#stx-e _%g176475176496%_)))) + (let ((_%hd176478176501%_ (let () (declare (not safe)) - (##car _%e176318176339%_))) - (_%tl176320176344%_ + (##car _%e176477176498%_))) + (_%tl176479176503%_ (let () (declare (not safe)) - (##cdr _%e176318176339%_)))) + (##cdr _%e176477176498%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl176320176344%_)) - (let ((_g177895_ + _%tl176479176503%_)) + (let ((_g178054_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176320176344%_ + _%tl176479176503%_ '0)))) (begin - (let ((_g177896_ + (let ((_g178055_ (let () (declare (not safe)) - (if (##values? _g177895_) + (if (##values? _g178054_) (##vector-length - _g177895_) + _g178054_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177896_ 2))) + (##fx= _g178055_ 2))) (error "Context expects 2 values" - _g177896_))) - (let ((_%target176321176347%_ + _g178055_))) + (let ((_%target176480176506%_ (let () (declare (not safe)) (##vector-ref - _g177895_ + _g178054_ 0))) - (_%tl176323176349%_ + (_%tl176482176508%_ (let () (declare (not safe)) (##vector-ref - _g177895_ + _g178054_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176323176349%_)) - (letrec ((_%loop176324176352%_ - (lambda (_%hd176322176355%_ + _%tl176482176508%_)) + (letrec ((_%loop176483176511%_ + (lambda (_%hd176481176514%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause176328176357%_) + _%clause176487176516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176322176355%_)) - (let ((_%e176325176360%_ + (gx#stx-pair? _%hd176481176514%_)) + (let ((_%e176484176519%_ (let () (declare (not safe)) - (gx#stx-e _%hd176322176355%_)))) - (let ((_%lp-hd176326176363%_ + (gx#stx-e _%hd176481176514%_)))) + (let ((_%lp-hd176485176522%_ (let () (declare (not safe)) - (##car _%e176325176360%_))) - (_%lp-tl176327176365%_ + (##car _%e176484176519%_))) + (_%lp-tl176486176524%_ (let () (declare (not safe)) - (##cdr _%e176325176360%_)))) - (_%loop176324176352%_ - _%lp-tl176327176365%_ - (cons _%lp-hd176326176363%_ - _%clause176328176357%_)))) - (let ((_%clause176329176368%_ - (reverse _%clause176328176357%_))) - ((lambda (_%L176371%_) - (let* ((_%clauses176448%_ - (map (lambda (_%clause176385%_) - (let* ((_%g176387176398%_ - (lambda (_%g176388176395%_) + (##cdr _%e176484176519%_)))) + (_%loop176483176511%_ + _%lp-tl176486176524%_ + (cons _%lp-hd176485176522%_ + _%clause176487176516%_)))) + (let ((_%clause176488176527%_ + (reverse _%clause176487176516%_))) + ((lambda (_%L176530%_) + (let* ((_%clauses176607%_ + (map (lambda (_%clause176544%_) + (let* ((_%g176546176557%_ + (lambda (_%g176547176554%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176388176395%_)))) - (_%g176386176438%_ - (lambda (_%g176388176401%_) + _%g176547176554%_)))) + (_%g176545176597%_ + (lambda (_%g176547176560%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176388176401%_)) - (let ((_%e176391176403%_ + _%g176547176560%_)) + (let ((_%e176550176562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176388176401%_)))) - (let ((_%hd176392176406%_ + (gx#stx-e _%g176547176560%_)))) + (let ((_%hd176551176565%_ (let () (declare (not safe)) - (##car _%e176391176403%_))) - (_%tl176393176408%_ + (##car _%e176550176562%_))) + (_%tl176552176567%_ (let () (declare (not safe)) - (##cdr _%e176391176403%_)))) - ((lambda (_%L176411%_ _%L176412%_) - (let* ((_%self176424%_ - (list-ref _%L176412%_ _%self-index175717%_)) - (_%receiver176429%_ - (let ((_%$e176426%_ + (##cdr _%e176550176562%_)))) + ((lambda (_%L176570%_ _%L176571%_) + (let* ((_%self176583%_ + (list-ref _%L176571%_ _%self-index175876%_)) + (_%receiver176588%_ + (let ((_%$e176585%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176411%_)))) - (if _%$e176426%_ - _%$e176426%_ - _%self176424%_))) - (_%body176435%_ - (map (lambda (_%g176430176432%_) + _%L176570%_)))) + (if _%$e176585%_ + _%$e176585%_ + _%self176583%_))) + (_%body176594%_ + (map (lambda (_%g176589176591%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176429%_ - _%$klass176184%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176430176432%_)) - _%L176411%_))) - (cons _%L176412%_ _%body176435%_))) - _%tl176393176408%_ - _%hd176392176406%_))) - (_%g176387176398%_ _%g176388176401%_))))) + _%receiver176588%_ + _%$klass176343%_ + _%method-calls173866%_ + _%slot-refs173867%_ + _%g176589176591%_)) + _%L176570%_))) + (cons _%L176571%_ _%body176594%_))) + _%tl176552176567%_ + _%hd176551176565%_))) + (_%g176546176557%_ _%g176547176560%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176386176438%_ - _%clause176385%_))) - (let ((__tmp177897 - (lambda (_%g176440176443%_ - _%g176441176445%_) - (cons _%g176440176443%_ - _%g176441176445%_)))) + (_%g176545176597%_ + _%clause176544%_))) + (let ((__tmp178056 + (lambda (_%g176599176602%_ + _%g176600176604%_) + (cons _%g176599176602%_ + _%g176600176604%_)))) (declare (not safe)) (__foldr1 - __tmp177897 + __tmp178056 '() - _%L176371%_)))) - (__tmp177898 + _%L176530%_)))) + (__tmp178057 (cons '%#case-lambda - _%clauses176448%_))) + _%clauses176607%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp177898 - _%L175953%_))) - _%clause176329176368%_)))))) + __tmp178057 + _%L176112%_))) + _%clause176488176527%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176324176352%_ - _%target176321176347%_ + (_%loop176483176511%_ + _%target176480176506%_ '())) - (_%g176315176334%_ - _%g176316176337%_))))) - (_%g176315176334%_ - _%g176316176337%_)))) - (_%g176315176334%_ _%g176316176337%_))))) - (_%g176314176450%_ _%L175953%_))) - (_%specializer-impl176455%_ - (let ((__tmp177899 + (_%g176474176493%_ + _%g176475176496%_))))) + (_%g176474176493%_ + _%g176475176496%_)))) + (_%g176474176493%_ _%g176475176496%_))))) + (_%g176473176609%_ _%L176112%_))) + (_%specializer-impl176614%_ + (let ((__tmp178058 (cons '%#let-values - (cons (cons (cons (cons _%L175417%_ '()) + (cons (cons (cons (cons _%L175576%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175416%_ + (cons (cons (cons (cons _%L175575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp177900 + (cons (let ((__tmp178059 (cons '%#let-values - (cons (cons (cons (cons _%L175955%_ + (cons (cons (cons (cons _%L176114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr176313%_ + (cons _%specializer-lambda-expr176472%_ '())) '()) - (cons _%specializer-case-lambda-expr176453%_ '()))))) + (cons _%specializer-case-lambda-expr176612%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177900 - _%stx173615%_)) + __tmp178059 + _%stx173774%_)) '())) '()) - (cons _%L175414%_ '()))) + (cons _%L175573%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L175413%_ '()))))) + (cons _%L175572%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177899 _%stx173615%_))) - (_%specializer-impl176457%_ - (_%generate-specializer-impl173619%_ - _%$klass176184%_ - _%$method-table176186%_ - _%methods-bind176211%_ - _%slots-bind176235%_ - _%specializer-impl176455%_))) + (gxc#xform-wrap-source __tmp178058 _%stx173774%_))) + (_%specializer-impl176616%_ + (_%generate-specializer-impl173778%_ + _%$klass176343%_ + _%$method-table176345%_ + _%methods-bind176370%_ + _%slots-bind176394%_ + _%specializer-impl176614%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp177902 + (let ((__tmp178061 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177901 + _%L173847%_))) + (__tmp178060 (let () (declare (not safe)) (gx#stx-e - _%specializer-id176182%_)))) + _%specializer-id176341%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177902 + __tmp178061 '" => " - __tmp177901)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id176182%_ - _%specializer-impl176457%_)))) - _%hd175886175948%_ - _%hd175883175940%_ - _%hd175880175932%_) - (_%g175862175892%_ - _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)) - (_%g175862175892%_ _%g175863175895%_)) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)) - (_%g175862175892%_ _%g175863175895%_)))) + __tmp178060)) + (_%generate-specializer-def173779%_ + _%L173847%_ + _%specializer-id176341%_ + _%specializer-impl176616%_)))) + _%hd176045176107%_ + _%hd176042176099%_ + _%hd176039176091%_) + (_%g176021176051%_ + _%g176022176054%_)))) + (_%g176021176051%_ _%g176022176054%_)) + (_%g176021176051%_ _%g176022176054%_)) + (_%g176021176051%_ _%g176022176054%_)))) + (_%g176021176051%_ _%g176022176054%_)) + (_%g176021176051%_ _%g176022176054%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175862175892%_ - _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_))))) + (_%g176021176051%_ + _%g176022176054%_)))) + (_%g176021176051%_ _%g176022176054%_)))) + (_%g176021176051%_ _%g176022176054%_)))) + (_%g176021176051%_ _%g176022176054%_)))) + (_%g176021176051%_ _%g176022176054%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175861176460%_ _%L175415%_)) - _%stx173615%_)))) - _%hd175513175636%_ - _%kw-ref175511175657%_ - _%hd175501175623%_ - _%hd175492175599%_ - _%hd175483175575%_) - (_%g175457175519%_ _%g175458175522%_))))))) + (_%g176020176619%_ _%L175574%_)) + _%stx173774%_)))) + _%hd175672175795%_ + _%kw-ref175670175816%_ + _%hd175660175782%_ + _%hd175651175758%_ + _%hd175642175734%_) + (_%g175616175678%_ _%g175617175681%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175506175641%_ - _%target175503175628%_ + (_%loop175665175800%_ + _%target175662175787%_ '())) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_))))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_))))) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) + (_%g175616175678%_ + _%g175617175681%_)) + (_%g175616175678%_ + _%g175617175681%_)) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) + (_%g175616175678%_ + _%g175617175681%_)) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)))) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_))))) - (_%g175456176464%_ _%L175414%_))) + (_%g175616175678%_ + _%g175617175681%_)))) + (_%g175616175678%_ + _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)) + (_%g175616175678%_ _%g175617175681%_)))) + (_%g175616175678%_ _%g175617175681%_))))) + (_%g175615176623%_ _%L175573%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd175290175408%_ - _%hd175287175400%_ - _%hd175284175392%_ - _%hd175281175384%_ - _%hd175263175336%_) - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) + _%hd175449175567%_ + _%hd175446175559%_ + _%hd175443175551%_ + _%hd175440175543%_ + _%hd175422175495%_) + (_%g175402175455%_ + _%g175403175458%_)))) + (_%g175402175455%_ + _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) + (_%g175402175455%_ + _%g175403175458%_)) + (_%g175402175455%_ + _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) + (_%g175402175455%_ + _%g175403175458%_)) + (_%g175402175455%_ + _%g175403175458%_)) + (_%g175402175455%_ + _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_))))) + (_%g175402175455%_ + _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)) + (_%g175402175455%_ _%g175403175458%_)))) + (_%g175402175455%_ _%g175403175458%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175242176467%_ _%L173687%_)) - _%stx173615%_)))))))) - (_%__kont176701176702%_ (lambda () _%stx173615%_))) - (let ((_%__match176730176731%_ - (lambda (_%e173627173655%_ - _%hd173628173658%_ - _%tl173629173660%_ - _%e173630173663%_ - _%hd173631173666%_ - _%tl173632173668%_ - _%e173633173671%_ - _%hd173634173674%_ - _%tl173635173676%_ - _%e173636173679%_ - _%hd173637173682%_ - _%tl173638173684%_) - (let ((_%L173687%_ _%hd173637173682%_) - (_%L173688%_ _%hd173634173674%_)) - (if (let ((__tmp177903 + (_%g175401176626%_ _%L173846%_)) + _%stx173774%_)))))))) + (_%__kont176860176861%_ (lambda () _%stx173774%_))) + (let ((_%__match176889176890%_ + (lambda (_%e173786173814%_ + _%hd173787173817%_ + _%tl173788173819%_ + _%e173789173822%_ + _%hd173790173825%_ + _%tl173791173827%_ + _%e173792173830%_ + _%hd173793173833%_ + _%tl173794173835%_ + _%e173795173838%_ + _%hd173796173841%_ + _%tl173797173843%_) + (let ((_%L173846%_ _%hd173796173841%_) + (_%L173847%_ _%hd173793173833%_)) + (if (let ((__tmp178062 (let () (declare (not safe)) - (gxc#identifier-symbol _%L173688%_)))) + (gxc#identifier-symbol _%L173847%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp177903)) - (_%__kont176699176700%_ _%L173687%_ _%L173688%_) - (_%__kont176701176702%_)))))) + (gxc#optimizer-top-level-method? __tmp178062)) + (_%__kont176858176859%_ _%L173846%_ _%L173847%_) + (_%__kont176860176861%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176697176698%_)) - (let ((_%e173627173655%_ + (gx#stx-pair? _%__stx176856176857%_)) + (let ((_%e173786173814%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176697176698%_)))) - (let ((_%tl173629173660%_ + (gx#stx-e _%__stx176856176857%_)))) + (let ((_%tl173788173819%_ (let () (declare (not safe)) - (##cdr _%e173627173655%_))) - (_%hd173628173658%_ + (##cdr _%e173786173814%_))) + (_%hd173787173817%_ (let () (declare (not safe)) - (##car _%e173627173655%_)))) + (##car _%e173786173814%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173629173660%_)) - (let ((_%e173630173663%_ + (gx#stx-pair? _%tl173788173819%_)) + (let ((_%e173789173822%_ (let () (declare (not safe)) - (gx#stx-e _%tl173629173660%_)))) - (let ((_%tl173632173668%_ + (gx#stx-e _%tl173788173819%_)))) + (let ((_%tl173791173827%_ (let () (declare (not safe)) - (##cdr _%e173630173663%_))) - (_%hd173631173666%_ + (##cdr _%e173789173822%_))) + (_%hd173790173825%_ (let () (declare (not safe)) - (##car _%e173630173663%_)))) + (##car _%e173789173822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173631173666%_)) - (let ((_%e173633173671%_ + (gx#stx-pair? _%hd173790173825%_)) + (let ((_%e173792173830%_ (let () (declare (not safe)) - (gx#stx-e _%hd173631173666%_)))) - (let ((_%tl173635173676%_ + (gx#stx-e _%hd173790173825%_)))) + (let ((_%tl173794173835%_ (let () (declare (not safe)) - (##cdr _%e173633173671%_))) - (_%hd173634173674%_ + (##cdr _%e173792173830%_))) + (_%hd173793173833%_ (let () (declare (not safe)) - (##car _%e173633173671%_)))) + (##car _%e173792173830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173635173676%_)) + _%tl173794173835%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173632173668%_)) - (let ((_%e173636173679%_ + _%tl173791173827%_)) + (let ((_%e173795173838%_ (let () (declare (not safe)) (gx#stx-e - _%tl173632173668%_)))) - (let ((_%tl173638173684%_ + _%tl173791173827%_)))) + (let ((_%tl173797173843%_ (let () (declare (not safe)) - (##cdr _%e173636173679%_))) - (_%hd173637173682%_ + (##cdr _%e173795173838%_))) + (_%hd173796173841%_ (let () (declare (not safe)) - (##car _%e173636173679%_)))) + (##car _%e173795173838%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173638173684%_)) - (_%__match176730176731%_ - _%e173627173655%_ - _%hd173628173658%_ - _%tl173629173660%_ - _%e173630173663%_ - _%hd173631173666%_ - _%tl173632173668%_ - _%e173633173671%_ - _%hd173634173674%_ - _%tl173635173676%_ - _%e173636173679%_ - _%hd173637173682%_ - _%tl173638173684%_) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)))))))) + _%tl173797173843%_)) + (_%__match176889176890%_ + _%e173786173814%_ + _%hd173787173817%_ + _%tl173788173819%_ + _%e173789173822%_ + _%hd173790173825%_ + _%tl173791173827%_ + _%e173792173830%_ + _%hd173793173833%_ + _%tl173794173835%_ + _%e173795173838%_ + _%hd173796173841%_ + _%tl173797173843%_) + (_%__kont176860176861%_)))) + (_%__kont176860176861%_)) + (_%__kont176860176861%_)))) + (_%__kont176860176861%_)))) + (_%__kont176860176861%_)))) + (_%__kont176860176861%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self173467%_ _%stx173468%_) - (let* ((_%__stx176733176734%_ _%stx173468%_) - (_%g173471173504%_ + (lambda (_%self173626%_ _%stx173627%_) + (let* ((_%__stx176892176893%_ _%stx173627%_) + (_%g173630173663%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176733176734%_))))) - (let ((_%__kont176735176736%_ (lambda (_%L173594%_) _%L173594%_)) - (_%__kont176737176738%_ - (lambda (_%L173533%_ _%L173534%_) + _%__stx176892176893%_))))) + (let ((_%__kont176894176895%_ (lambda (_%L173753%_) _%L173753%_)) + (_%__kont176896176897%_ + (lambda (_%L173692%_ _%L173693%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173467%_ _%L173533%_))))) + (gxc#compile-e__1 _%self173626%_ _%L173692%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176733176734%_)) - (let ((_%e173474173554%_ + (gx#stx-pair? _%__stx176892176893%_)) + (let ((_%e173633173713%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176733176734%_)))) - (let ((_%tl173476173559%_ + (gx#stx-e _%__stx176892176893%_)))) + (let ((_%tl173635173718%_ (let () (declare (not safe)) - (##cdr _%e173474173554%_))) - (_%hd173475173557%_ + (##cdr _%e173633173713%_))) + (_%hd173634173716%_ (let () (declare (not safe)) - (##car _%e173474173554%_)))) + (##car _%e173633173713%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173476173559%_)) - (let ((_%e173477173562%_ + (gx#stx-pair? _%tl173635173718%_)) + (let ((_%e173636173721%_ (let () (declare (not safe)) - (gx#stx-e _%tl173476173559%_)))) - (let ((_%tl173479173567%_ + (gx#stx-e _%tl173635173718%_)))) + (let ((_%tl173638173726%_ (let () (declare (not safe)) - (##cdr _%e173477173562%_))) - (_%hd173478173565%_ + (##cdr _%e173636173721%_))) + (_%hd173637173724%_ (let () (declare (not safe)) - (##car _%e173477173562%_)))) + (##car _%e173636173721%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173478173565%_)) - (let ((_%e173480173570%_ + (gx#stx-pair? _%hd173637173724%_)) + (let ((_%e173639173729%_ (let () (declare (not safe)) - (gx#stx-e _%hd173478173565%_)))) - (let ((_%tl173482173575%_ + (gx#stx-e _%hd173637173724%_)))) + (let ((_%tl173641173734%_ (let () (declare (not safe)) - (##cdr _%e173480173570%_))) - (_%hd173481173573%_ + (##cdr _%e173639173729%_))) + (_%hd173640173732%_ (let () (declare (not safe)) - (##car _%e173480173570%_)))) + (##car _%e173639173729%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173481173573%_)) + (gx#identifier? _%hd173640173732%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd173481173573%_)) + _%hd173640173732%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173482173575%_)) - (let ((_%e173483173578%_ + _%tl173641173734%_)) + (let ((_%e173642173737%_ (let () (declare (not safe)) (gx#stx-e - _%tl173482173575%_)))) - (let ((_%tl173485173583%_ + _%tl173641173734%_)))) + (let ((_%tl173644173742%_ (let () (declare (not safe)) - (##cdr _%e173483173578%_))) - (_%hd173484173581%_ + (##cdr _%e173642173737%_))) + (_%hd173643173740%_ (let () (declare (not safe)) - (##car _%e173483173578%_)))) + (##car _%e173642173737%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173485173583%_)) + _%tl173644173742%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173486173586%_ + _%tl173638173726%_)) + (let ((_%e173645173745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173479173567%_)))) - (let ((_%tl173488173591%_ + (gx#stx-e _%tl173638173726%_)))) + (let ((_%tl173647173750%_ (let () (declare (not safe)) - (##cdr _%e173486173586%_))) - (_%hd173487173589%_ + (##cdr _%e173645173745%_))) + (_%hd173646173748%_ (let () (declare (not safe)) - (##car _%e173486173586%_)))) + (##car _%e173645173745%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173488173591%_)) - (_%__kont176735176736%_ _%hd173484173581%_) + (gx#stx-null? _%tl173647173750%_)) + (_%__kont176894176895%_ _%hd173643173740%_) (let () (declare (not safe)) - (_%g173471173504%_))))) - (let () (declare (not safe)) (_%g173471173504%_))) + (_%g173630173663%_))))) + (let () (declare (not safe)) (_%g173630173663%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173479173567%_)) - (let ((_%e173497173525%_ + (gx#stx-pair? _%tl173638173726%_)) + (let ((_%e173656173684%_ (let () (declare (not safe)) - (gx#stx-e _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + (gx#stx-e _%tl173638173726%_)))) + (let ((_%tl173658173689%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e173656173684%_))) + (_%hd173657173687%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e173656173684%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + (gx#stx-null? _%tl173658173689%_)) + (_%__kont176896176897%_ + _%hd173657173687%_ + _%hd173637173724%_) (let () (declare (not safe)) - (_%g173471173504%_))))) - (let () (declare (not safe)) (_%g173471173504%_)))))) + (_%g173630173663%_))))) + (let () (declare (not safe)) (_%g173630173663%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173497173525%_ + _%tl173638173726%_)) + (let ((_%e173656173684%_ (let () (declare (not safe)) (gx#stx-e - _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + _%tl173638173726%_)))) + (let ((_%tl173658173689%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ - (let () (declare (not safe)) (##car _%e173497173525%_)))) + (##cdr _%e173656173684%_))) + (_%hd173657173687%_ + (let () (declare (not safe)) (##car _%e173656173684%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) - (let () (declare (not safe)) (_%g173471173504%_))))) + (gx#stx-null? _%tl173658173689%_)) + (_%__kont176896176897%_ + _%hd173657173687%_ + _%hd173637173724%_) + (let () (declare (not safe)) (_%g173630173663%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173471173504%_)))) + (_%g173630173663%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173497173525%_ + _%tl173638173726%_)) + (let ((_%e173656173684%_ (let () (declare (not safe)) (gx#stx-e - _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + _%tl173638173726%_)))) + (let ((_%tl173658173689%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e173656173684%_))) + (_%hd173657173687%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e173656173684%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + _%tl173658173689%_)) + (_%__kont176896176897%_ + _%hd173657173687%_ + _%hd173637173724%_) (let () (declare (not safe)) - (_%g173471173504%_))))) + (_%g173630173663%_))))) (let () (declare (not safe)) - (_%g173471173504%_)))) + (_%g173630173663%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173497173525%_ + _%tl173638173726%_)) + (let ((_%e173656173684%_ (let () (declare (not safe)) (gx#stx-e - _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + _%tl173638173726%_)))) + (let ((_%tl173658173689%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e173656173684%_))) + (_%hd173657173687%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e173656173684%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + _%tl173658173689%_)) + (_%__kont176896176897%_ + _%hd173657173687%_ + _%hd173637173724%_) (let () (declare (not safe)) - (_%g173471173504%_))))) + (_%g173630173663%_))))) (let () (declare (not safe)) - (_%g173471173504%_)))))) + (_%g173630173663%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173479173567%_)) - (let ((_%e173497173525%_ + (gx#stx-pair? _%tl173638173726%_)) + (let ((_%e173656173684%_ (let () (declare (not safe)) - (gx#stx-e _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + (gx#stx-e _%tl173638173726%_)))) + (let ((_%tl173658173689%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e173656173684%_))) + (_%hd173657173687%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e173656173684%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + _%tl173658173689%_)) + (_%__kont176896176897%_ + _%hd173657173687%_ + _%hd173637173724%_) (let () (declare (not safe)) - (_%g173471173504%_))))) + (_%g173630173663%_))))) (let () (declare (not safe)) - (_%g173471173504%_)))))) - (let () (declare (not safe)) (_%g173471173504%_))))) - (let () (declare (not safe)) (_%g173471173504%_))))))) + (_%g173630173663%_)))))) + (let () (declare (not safe)) (_%g173630173663%_))))) + (let () (declare (not safe)) (_%g173630173663%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self173383%_ _%stx173384%_) - (let* ((_%g173386173407%_ - (lambda (_%g173387173404%_) + (lambda (_%self173542%_ _%stx173543%_) + (let* ((_%g173545173566%_ + (lambda (_%g173546173563%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173387173404%_)))) - (_%g173385173464%_ - (lambda (_%g173387173410%_) + _%g173546173563%_)))) + (_%g173544173623%_ + (lambda (_%g173546173569%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173387173410%_)) - (let ((_%e173391173412%_ + (gx#stx-pair? _%g173546173569%_)) + (let ((_%e173550173571%_ (let () (declare (not safe)) - (gx#stx-e _%g173387173410%_)))) - (let ((_%hd173392173415%_ + (gx#stx-e _%g173546173569%_)))) + (let ((_%hd173551173574%_ (let () (declare (not safe)) - (##car _%e173391173412%_))) - (_%tl173393173417%_ + (##car _%e173550173571%_))) + (_%tl173552173576%_ (let () (declare (not safe)) - (##cdr _%e173391173412%_)))) + (##cdr _%e173550173571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173393173417%_)) - (let ((_%e173394173420%_ + (gx#stx-pair? _%tl173552173576%_)) + (let ((_%e173553173579%_ (let () (declare (not safe)) - (gx#stx-e _%tl173393173417%_)))) - (let ((_%hd173395173423%_ + (gx#stx-e _%tl173552173576%_)))) + (let ((_%hd173554173582%_ (let () (declare (not safe)) - (##car _%e173394173420%_))) - (_%tl173396173425%_ + (##car _%e173553173579%_))) + (_%tl173555173584%_ (let () (declare (not safe)) - (##cdr _%e173394173420%_)))) + (##cdr _%e173553173579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173396173425%_)) - (let ((_%e173397173428%_ + (gx#stx-pair? _%tl173555173584%_)) + (let ((_%e173556173587%_ (let () (declare (not safe)) - (gx#stx-e _%tl173396173425%_)))) - (let ((_%hd173398173431%_ + (gx#stx-e _%tl173555173584%_)))) + (let ((_%hd173557173590%_ (let () (declare (not safe)) - (##car _%e173397173428%_))) - (_%tl173399173433%_ + (##car _%e173556173587%_))) + (_%tl173558173592%_ (let () (declare (not safe)) - (##cdr _%e173397173428%_)))) + (##cdr _%e173556173587%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173399173433%_)) - (let ((_%e173400173436%_ + _%tl173558173592%_)) + (let ((_%e173559173595%_ (let () (declare (not safe)) (gx#stx-e - _%tl173399173433%_)))) - (let ((_%hd173401173439%_ + _%tl173558173592%_)))) + (let ((_%hd173560173598%_ (let () (declare (not safe)) - (##car _%e173400173436%_))) - (_%tl173402173441%_ + (##car _%e173559173595%_))) + (_%tl173561173600%_ (let () (declare (not safe)) - (##cdr _%e173400173436%_)))) + (##cdr _%e173559173595%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173402173441%_)) - ((lambda (_%L173444%_ - _%L173445%_ - _%L173446%_) + _%tl173561173600%_)) + ((lambda (_%L173603%_ + _%L173604%_ + _%L173605%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173383%_ - _%L173445%_))) - _%hd173401173439%_ - _%hd173398173431%_ - _%hd173395173423%_) - (_%g173386173407%_ - _%g173387173410%_)))) - (_%g173386173407%_ - _%g173387173410%_)))) - (_%g173386173407%_ _%g173387173410%_)))) - (_%g173386173407%_ _%g173387173410%_)))) - (_%g173386173407%_ _%g173387173410%_))))) - (_%g173385173464%_ _%stx173384%_)))) + _%self173542%_ + _%L173604%_))) + _%hd173560173598%_ + _%hd173557173590%_ + _%hd173554173582%_) + (_%g173545173566%_ + _%g173546173569%_)))) + (_%g173545173566%_ + _%g173546173569%_)))) + (_%g173545173566%_ _%g173546173569%_)))) + (_%g173545173566%_ _%g173546173569%_)))) + (_%g173545173566%_ _%g173546173569%_))))) + (_%g173544173623%_ _%stx173543%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self172344%_ _%stx172345%_) - (let* ((_%__stx176799176800%_ _%stx172345%_) - (_%g172353172575%_ + (lambda (_%self172503%_ _%stx172504%_) + (let* ((_%__stx176958176959%_ _%stx172504%_) + (_%g172512172734%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176799176800%_))))) - (let ((_%__kont176801176802%_ - (lambda (_%L173332%_ _%L173333%_ _%L173334%_ _%L173335%_) - (let ((__tmp177905 + _%__stx176958176959%_))))) + (let ((_%__kont176960176961%_ + (lambda (_%L173491%_ _%L173492%_ _%L173493%_ _%L173494%_) + (let ((__tmp178064 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'methods))) - (__tmp177904 + (slot-ref__0 _%self172503%_ 'methods))) + (__tmp178063 (let () (declare (not safe)) - (gx#stx-e _%L173333%_)))) + (gx#stx-e _%L173492%_)))) (declare (not safe)) - (hash-put! __tmp177905 __tmp177904 '#t)) + (hash-put! __tmp178064 __tmp178063 '#t)) (for-each - (lambda (_%g173368173370%_) + (lambda (_%g173527173529%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%g173368173370%_))) - (let ((__tmp177906 - (lambda (_%g173372173375%_ _%g173373173377%_) - (cons _%g173372173375%_ _%g173373173377%_)))) + (gxc#compile-e__1 _%self172503%_ _%g173527173529%_))) + (let ((__tmp178065 + (lambda (_%g173531173534%_ _%g173532173536%_) + (cons _%g173531173534%_ _%g173532173536%_)))) (declare (not safe)) - (__foldr1 __tmp177906 '() _%L173332%_))))) - (_%__kont176805176806%_ - (lambda (_%L173167%_ - _%L173168%_ - _%L173169%_ - _%L173170%_ - _%L173171%_) - (let ((__tmp177908 + (__foldr1 __tmp178065 '() _%L173491%_))))) + (_%__kont176964176965%_ + (lambda (_%L173326%_ + _%L173327%_ + _%L173328%_ + _%L173329%_ + _%L173330%_) + (let ((__tmp178067 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'methods))) - (__tmp177907 + (slot-ref__0 _%self172503%_ 'methods))) + (__tmp178066 (let () (declare (not safe)) - (gx#stx-e _%L173168%_)))) + (gx#stx-e _%L173327%_)))) (declare (not safe)) - (hash-put! __tmp177908 __tmp177907 '#t)) + (hash-put! __tmp178067 __tmp178066 '#t)) (for-each - (lambda (_%g173211173213%_) + (lambda (_%g173370173372%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%g173211173213%_))) - (let ((__tmp177909 - (lambda (_%g173215173218%_ _%g173216173220%_) - (cons _%g173215173218%_ _%g173216173220%_)))) + (gxc#compile-e__1 _%self172503%_ _%g173370173372%_))) + (let ((__tmp178068 + (lambda (_%g173374173377%_ _%g173375173379%_) + (cons _%g173374173377%_ _%g173375173379%_)))) (declare (not safe)) - (__foldr1 __tmp177909 '() _%L173167%_))))) - (_%__kont176809176810%_ - (lambda (_%L173000%_ _%L173001%_ _%L173002%_) - (let ((__tmp177911 + (__foldr1 __tmp178068 '() _%L173326%_))))) + (_%__kont176968176969%_ + (lambda (_%L173159%_ _%L173160%_ _%L173161%_) + (let ((__tmp178070 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots))) - (__tmp177910 + (slot-ref__0 _%self172503%_ 'slots))) + (__tmp178069 (let () (declare (not safe)) - (gx#stx-e _%L173000%_)))) + (gx#stx-e _%L173159%_)))) (declare (not safe)) - (hash-put! __tmp177911 __tmp177910 '#t)))) - (_%__kont176811176812%_ - (lambda (_%L172877%_ _%L172878%_ _%L172879%_ _%L172880%_) - (let ((__tmp177913 + (hash-put! __tmp178070 __tmp178069 '#t)))) + (_%__kont176970176971%_ + (lambda (_%L173036%_ _%L173037%_ _%L173038%_ _%L173039%_) + (let ((__tmp178072 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots))) - (__tmp177912 + (slot-ref__0 _%self172503%_ 'slots))) + (__tmp178071 (let () (declare (not safe)) - (gx#stx-e _%L172878%_)))) + (gx#stx-e _%L173037%_)))) (declare (not safe)) - (hash-put! __tmp177913 __tmp177912 '#t)) + (hash-put! __tmp178072 __tmp178071 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%L172877%_)))) - (_%__kont176813176814%_ - (lambda (_%L172751%_ _%L172752%_) - (let* ((_%accessor172774%_ - (let ((__tmp177914 + (gxc#compile-e__1 _%self172503%_ _%L173036%_)))) + (_%__kont176972176973%_ + (lambda (_%L172910%_ _%L172911%_) + (let* ((_%accessor172933%_ + (let ((__tmp178073 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172752%_)))) + (gxc#identifier-symbol _%L172911%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177914))) - (_%klass172776%_ - (let ((__tmp177915 + (gxc#optimizer-resolve-type __tmp178073))) + (_%klass172935%_ + (let ((__tmp178074 (##structure-ref - _%accessor172774%_ + _%accessor172933%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172345%_ - __tmp177915))) - (_%slot172778%_ + _%stx172504%_ + __tmp178074))) + (_%slot172937%_ (##structure-ref - _%accessor172774%_ + _%accessor172933%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor172774%_ + _%accessor172933%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172776%_ - _%slot172778%_)) + _%klass172935%_ + _%slot172937%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172776%_ + _%klass172935%_ '8 '#f '#f)))) '#!void - (let ((__tmp177917 + (let ((__tmp178076 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots))) - (__tmp177916 + (slot-ref__0 _%self172503%_ 'slots))) + (__tmp178075 (##structure-ref - _%accessor172774%_ + _%accessor172933%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp177917 __tmp177916 '#t)))))) - (_%__kont176815176816%_ - (lambda (_%L172651%_ _%L172652%_ _%L172653%_) - (let* ((_%mutator172680%_ - (let ((__tmp177918 + (hash-put! __tmp178076 __tmp178075 '#t)))))) + (_%__kont176974176975%_ + (lambda (_%L172810%_ _%L172811%_ _%L172812%_) + (let* ((_%mutator172839%_ + (let ((__tmp178077 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172653%_)))) + (gxc#identifier-symbol _%L172812%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177918))) - (_%klass172682%_ - (let ((__tmp177919 + (gxc#optimizer-resolve-type __tmp178077))) + (_%klass172841%_ + (let ((__tmp178078 (##structure-ref - _%mutator172680%_ + _%mutator172839%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172345%_ - __tmp177919))) - (_%slot172684%_ + _%stx172504%_ + __tmp178078))) + (_%slot172843%_ (##structure-ref - _%mutator172680%_ + _%mutator172839%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator172680%_ + _%mutator172839%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172682%_ - _%slot172684%_)) + _%klass172841%_ + _%slot172843%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172682%_ + _%klass172841%_ '8 '#f '#f)))) '#!void - (let ((__tmp177920 + (let ((__tmp178079 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots)))) + (slot-ref__0 _%self172503%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp177920 _%slot172684%_ '#t))) + (hash-put! __tmp178079 _%slot172843%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%L172651%_))))) - (_%__kont176817176818%_ + (gxc#compile-e__1 _%self172503%_ _%L172810%_))))) + (_%__kont176976176977%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self172344%_ _%stx172345%_))))) - (let* ((_%__match177298177299%_ - (lambda (_%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) - (let ((_%L172651%_ _%hd172569172646%_) - (_%L172652%_ _%hd172566172638%_) - (_%L172653%_ _%hd172557172614%_)) - (if (and (let ((__tmp177921 - (let ((__tmp177922 + (gxc#apply-operands _%self172503%_ _%stx172504%_))))) + (let* ((_%__match177457177458%_ + (lambda (_%e172706172746%_ + _%hd172707172749%_ + _%tl172708172751%_ + _%e172709172754%_ + _%hd172710172757%_ + _%tl172711172759%_ + _%e172712172762%_ + _%hd172713172765%_ + _%tl172714172767%_ + _%e172715172770%_ + _%hd172716172773%_ + _%tl172717172775%_ + _%e172718172778%_ + _%hd172719172781%_ + _%tl172720172783%_ + _%e172721172786%_ + _%hd172722172789%_ + _%tl172723172791%_ + _%e172724172794%_ + _%hd172725172797%_ + _%tl172726172799%_ + _%e172727172802%_ + _%hd172728172805%_ + _%tl172729172807%_) + (let ((_%L172810%_ _%hd172728172805%_) + (_%L172811%_ _%hd172725172797%_) + (_%L172812%_ _%hd172716172773%_)) + (if (and (let ((__tmp178080 + (let ((__tmp178081 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172653%_)))) + _%L172812%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177922)))) + __tmp178081)))) (declare (not safe)) (##structure-instance-of? - __tmp177921 + __tmp178080 'gxc#!mutator::t)) - (let ((__tmp177923 + (let ((__tmp178082 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self172503%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172652%_ - __tmp177923))) - (_%__kont176815176816%_ - _%L172651%_ - _%L172652%_ - _%L172653%_) - (_%__kont176817176818%_))))) - (_%__match177296177297%_ - (lambda (_%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) + _%L172811%_ + __tmp178082))) + (_%__kont176974176975%_ + _%L172810%_ + _%L172811%_ + _%L172812%_) + (_%__kont176976176977%_))))) + (_%__match177455177456%_ + (lambda (_%e172706172746%_ + _%hd172707172749%_ + _%tl172708172751%_ + _%e172709172754%_ + _%hd172710172757%_ + _%tl172711172759%_ + _%e172712172762%_ + _%hd172713172765%_ + _%tl172714172767%_ + _%e172715172770%_ + _%hd172716172773%_ + _%tl172717172775%_ + _%e172718172778%_ + _%hd172719172781%_ + _%tl172720172783%_ + _%e172721172786%_ + _%hd172722172789%_ + _%tl172723172791%_ + _%e172724172794%_ + _%hd172725172797%_ + _%tl172726172799%_ + _%e172727172802%_ + _%hd172728172805%_ + _%tl172729172807%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172570172648%_)) - (_%__match177298177299%_ - _%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) - (_%__kont176817176818%_)))) - (_%__match177290177291%_ - (lambda (_%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_) + (gx#stx-null? _%tl172729172807%_)) + (_%__match177457177458%_ + _%e172706172746%_ + _%hd172707172749%_ + _%tl172708172751%_ + _%e172709172754%_ + _%hd172710172757%_ + _%tl172711172759%_ + _%e172712172762%_ + _%hd172713172765%_ + _%tl172714172767%_ + _%e172715172770%_ + _%hd172716172773%_ + _%tl172717172775%_ + _%e172718172778%_ + _%hd172719172781%_ + _%tl172720172783%_ + _%e172721172786%_ + _%hd172722172789%_ + _%tl172723172791%_ + _%e172724172794%_ + _%hd172725172797%_ + _%tl172726172799%_ + _%e172727172802%_ + _%hd172728172805%_ + _%tl172729172807%_) + (_%__kont176976176977%_)))) + (_%__match177449177450%_ + (lambda (_%e172706172746%_ + _%hd172707172749%_ + _%tl172708172751%_ + _%e172709172754%_ + _%hd172710172757%_ + _%tl172711172759%_ + _%e172712172762%_ + _%hd172713172765%_ + _%tl172714172767%_ + _%e172715172770%_ + _%hd172716172773%_ + _%tl172717172775%_ + _%e172718172778%_ + _%hd172719172781%_ + _%tl172720172783%_ + _%e172721172786%_ + _%hd172722172789%_ + _%tl172723172791%_ + _%e172724172794%_ + _%hd172725172797%_ + _%tl172726172799%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172561172624%_)) - (let ((_%e172568172643%_ + (gx#stx-pair? _%tl172720172783%_)) + (let ((_%e172727172802%_ (let () (declare (not safe)) - (gx#stx-e _%tl172561172624%_)))) - (let ((_%tl172570172648%_ + (gx#stx-e _%tl172720172783%_)))) + (let ((_%tl172729172807%_ (let () (declare (not safe)) - (##cdr _%e172568172643%_))) - (_%hd172569172646%_ + (##cdr _%e172727172802%_))) + (_%hd172728172805%_ (let () (declare (not safe)) - (##car _%e172568172643%_)))) + (##car _%e172727172802%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172570172648%_)) - (_%__match177298177299%_ - _%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__match177236177237%_ - (lambda (_%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_) - (let ((_%L172751%_ _%hd172542172746%_) - (_%L172752%_ _%hd172533172722%_)) - (if (and (let ((__tmp177924 - (let ((__tmp177925 + (gx#stx-null? _%tl172729172807%_)) + (_%__match177457177458%_ + _%e172706172746%_ + _%hd172707172749%_ + _%tl172708172751%_ + _%e172709172754%_ + _%hd172710172757%_ + _%tl172711172759%_ + _%e172712172762%_ + _%hd172713172765%_ + _%tl172714172767%_ + _%e172715172770%_ + _%hd172716172773%_ + _%tl172717172775%_ + _%e172718172778%_ + _%hd172719172781%_ + _%tl172720172783%_ + _%e172721172786%_ + _%hd172722172789%_ + _%tl172723172791%_ + _%e172724172794%_ + _%hd172725172797%_ + _%tl172726172799%_ + _%e172727172802%_ + _%hd172728172805%_ + _%tl172729172807%_) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)))) + (_%__match177395177396%_ + (lambda (_%e172682172854%_ + _%hd172683172857%_ + _%tl172684172859%_ + _%e172685172862%_ + _%hd172686172865%_ + _%tl172687172867%_ + _%e172688172870%_ + _%hd172689172873%_ + _%tl172690172875%_ + _%e172691172878%_ + _%hd172692172881%_ + _%tl172693172883%_ + _%e172694172886%_ + _%hd172695172889%_ + _%tl172696172891%_ + _%e172697172894%_ + _%hd172698172897%_ + _%tl172699172899%_ + _%e172700172902%_ + _%hd172701172905%_ + _%tl172702172907%_) + (let ((_%L172910%_ _%hd172701172905%_) + (_%L172911%_ _%hd172692172881%_)) + (if (and (let ((__tmp178083 + (let ((__tmp178084 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172752%_)))) + _%L172911%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177925)))) + __tmp178084)))) (declare (not safe)) (##structure-instance-of? - __tmp177924 + __tmp178083 'gxc#!accessor::t)) - (let ((__tmp177926 + (let ((__tmp178085 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self172503%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172751%_ - __tmp177926))) - (_%__kont176813176814%_ _%L172751%_ _%L172752%_) - (_%__kont176817176818%_))))) - (_%__match177234177235%_ - (lambda (_%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_) + _%L172910%_ + __tmp178085))) + (_%__kont176972176973%_ _%L172910%_ _%L172911%_) + (_%__kont176976176977%_))))) + (_%__match177393177394%_ + (lambda (_%e172682172854%_ + _%hd172683172857%_ + _%tl172684172859%_ + _%e172685172862%_ + _%hd172686172865%_ + _%tl172687172867%_ + _%e172688172870%_ + _%hd172689172873%_ + _%tl172690172875%_ + _%e172691172878%_ + _%hd172692172881%_ + _%tl172693172883%_ + _%e172694172886%_ + _%hd172695172889%_ + _%tl172696172891%_ + _%e172697172894%_ + _%hd172698172897%_ + _%tl172699172899%_ + _%e172700172902%_ + _%hd172701172905%_ + _%tl172702172907%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172537172732%_)) - (_%__match177236177237%_ - _%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_) - (_%__match177290177291%_ - _%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_)))) - (_%__match177180177181%_ - (lambda (_%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_ - _%e172512172853%_ - _%hd172513172856%_ - _%tl172514172858%_ - _%e172515172861%_ - _%hd172516172864%_ - _%tl172517172866%_ - _%e172518172869%_ - _%hd172519172872%_ - _%tl172520172874%_) - (let ((_%L172877%_ _%hd172519172872%_) - (_%L172878%_ _%hd172516172864%_) - (_%L172879%_ _%hd172507172840%_) - (_%L172880%_ _%hd172498172816%_)) + (gx#stx-null? _%tl172696172891%_)) + (_%__match177395177396%_ + _%e172682172854%_ + _%hd172683172857%_ + _%tl172684172859%_ + _%e172685172862%_ + _%hd172686172865%_ + _%tl172687172867%_ + _%e172688172870%_ + _%hd172689172873%_ + _%tl172690172875%_ + _%e172691172878%_ + _%hd172692172881%_ + _%tl172693172883%_ + _%e172694172886%_ + _%hd172695172889%_ + _%tl172696172891%_ + _%e172697172894%_ + _%hd172698172897%_ + _%tl172699172899%_ + _%e172700172902%_ + _%hd172701172905%_ + _%tl172702172907%_) + (_%__match177449177450%_ + _%e172682172854%_ + _%hd172683172857%_ + _%tl172684172859%_ + _%e172685172862%_ + _%hd172686172865%_ + _%tl172687172867%_ + _%e172688172870%_ + _%hd172689172873%_ + _%tl172690172875%_ + _%e172691172878%_ + _%hd172692172881%_ + _%tl172693172883%_ + _%e172694172886%_ + _%hd172695172889%_ + _%tl172696172891%_ + _%e172697172894%_ + _%hd172698172897%_ + _%tl172699172899%_ + _%e172700172902%_ + _%hd172701172905%_ + _%tl172702172907%_)))) + (_%__match177339177340%_ + (lambda (_%e172647172948%_ + _%hd172648172951%_ + _%tl172649172953%_ + _%e172650172956%_ + _%hd172651172959%_ + _%tl172652172961%_ + _%e172653172964%_ + _%hd172654172967%_ + _%tl172655172969%_ + _%e172656172972%_ + _%hd172657172975%_ + _%tl172658172977%_ + _%e172659172980%_ + _%hd172660172983%_ + _%tl172661172985%_ + _%e172662172988%_ + _%hd172663172991%_ + _%tl172664172993%_ + _%e172665172996%_ + _%hd172666172999%_ + _%tl172667173001%_ + _%e172668173004%_ + _%hd172669173007%_ + _%tl172670173009%_ + _%e172671173012%_ + _%hd172672173015%_ + _%tl172673173017%_ + _%e172674173020%_ + _%hd172675173023%_ + _%tl172676173025%_ + _%e172677173028%_ + _%hd172678173031%_ + _%tl172679173033%_) + (let ((_%L173036%_ _%hd172678173031%_) + (_%L173037%_ _%hd172675173023%_) + (_%L173038%_ _%hd172666172999%_) + (_%L173039%_ _%hd172657172975%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172880%_ + _%L173039%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172880%_ + _%L173039%_ 'unchecked-slot-set!))) - (let ((__tmp177927 + (let ((__tmp178086 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self172503%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172879%_ - __tmp177927))) - (_%__kont176811176812%_ - _%L172877%_ - _%L172878%_ - _%L172879%_ - _%L172880%_) - (_%__kont176817176818%_))))) - (_%__match177172177173%_ - (lambda (_%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_ - _%e172512172853%_ - _%hd172513172856%_ - _%tl172514172858%_ - _%e172515172861%_ - _%hd172516172864%_ - _%tl172517172866%_) + _%L173038%_ + __tmp178086))) + (_%__kont176970176971%_ + _%L173036%_ + _%L173037%_ + _%L173038%_ + _%L173039%_) + (_%__kont176976176977%_))))) + (_%__match177331177332%_ + (lambda (_%e172647172948%_ + _%hd172648172951%_ + _%tl172649172953%_ + _%e172650172956%_ + _%hd172651172959%_ + _%tl172652172961%_ + _%e172653172964%_ + _%hd172654172967%_ + _%tl172655172969%_ + _%e172656172972%_ + _%hd172657172975%_ + _%tl172658172977%_ + _%e172659172980%_ + _%hd172660172983%_ + _%tl172661172985%_ + _%e172662172988%_ + _%hd172663172991%_ + _%tl172664172993%_ + _%e172665172996%_ + _%hd172666172999%_ + _%tl172667173001%_ + _%e172668173004%_ + _%hd172669173007%_ + _%tl172670173009%_ + _%e172671173012%_ + _%hd172672173015%_ + _%tl172673173017%_ + _%e172674173020%_ + _%hd172675173023%_ + _%tl172676173025%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172511172850%_)) - (let ((_%e172518172869%_ + (gx#stx-pair? _%tl172670173009%_)) + (let ((_%e172677173028%_ (let () (declare (not safe)) - (gx#stx-e _%tl172511172850%_)))) - (let ((_%tl172520172874%_ + (gx#stx-e _%tl172670173009%_)))) + (let ((_%tl172679173033%_ (let () (declare (not safe)) - (##cdr _%e172518172869%_))) - (_%hd172519172872%_ + (##cdr _%e172677173028%_))) + (_%hd172678173031%_ (let () (declare (not safe)) - (##car _%e172518172869%_)))) + (##car _%e172677173028%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172520172874%_)) - (_%__match177180177181%_ - _%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_ - _%e172512172853%_ - _%hd172513172856%_ - _%tl172514172858%_ - _%e172515172861%_ - _%hd172516172864%_ - _%tl172517172866%_ - _%e172518172869%_ - _%hd172519172872%_ - _%tl172520172874%_) - (_%__kont176817176818%_)))) - (_%__match177296177297%_ - _%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_)))) - (_%__match177094177095%_ - (lambda (_%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) - (let ((_%L173000%_ _%hd172482172995%_) - (_%L173001%_ _%hd172473172971%_) - (_%L173002%_ _%hd172464172947%_)) + (gx#stx-null? _%tl172679173033%_)) + (_%__match177339177340%_ + _%e172647172948%_ + _%hd172648172951%_ + _%tl172649172953%_ + _%e172650172956%_ + _%hd172651172959%_ + _%tl172652172961%_ + _%e172653172964%_ + _%hd172654172967%_ + _%tl172655172969%_ + _%e172656172972%_ + _%hd172657172975%_ + _%tl172658172977%_ + _%e172659172980%_ + _%hd172660172983%_ + _%tl172661172985%_ + _%e172662172988%_ + _%hd172663172991%_ + _%tl172664172993%_ + _%e172665172996%_ + _%hd172666172999%_ + _%tl172667173001%_ + _%e172668173004%_ + _%hd172669173007%_ + _%tl172670173009%_ + _%e172671173012%_ + _%hd172672173015%_ + _%tl172673173017%_ + _%e172674173020%_ + _%hd172675173023%_ + _%tl172676173025%_ + _%e172677173028%_ + _%hd172678173031%_ + _%tl172679173033%_) + (_%__kont176976176977%_)))) + (_%__match177455177456%_ + _%e172647172948%_ + _%hd172648172951%_ + _%tl172649172953%_ + _%e172650172956%_ + _%hd172651172959%_ + _%tl172652172961%_ + _%e172653172964%_ + _%hd172654172967%_ + _%tl172655172969%_ + _%e172656172972%_ + _%hd172657172975%_ + _%tl172658172977%_ + _%e172659172980%_ + _%hd172660172983%_ + _%tl172661172985%_ + _%e172662172988%_ + _%hd172663172991%_ + _%tl172664172993%_ + _%e172665172996%_ + _%hd172666172999%_ + _%tl172667173001%_ + _%e172668173004%_ + _%hd172669173007%_ + _%tl172670173009%_)))) + (_%__match177253177254%_ + (lambda (_%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_ + _%e172640173151%_ + _%hd172641173154%_ + _%tl172642173156%_) + (let ((_%L173159%_ _%hd172641173154%_) + (_%L173160%_ _%hd172632173130%_) + (_%L173161%_ _%hd172623173106%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173002%_ + _%L173161%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173002%_ + _%L173161%_ 'unchecked-slot-ref))) - (let ((__tmp177928 + (let ((__tmp178087 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self172503%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173001%_ - __tmp177928))) - (_%__kont176809176810%_ - _%L173000%_ - _%L173001%_ - _%L173002%_) - (_%__match177298177299%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_))))) - (_%__match177092177093%_ - (lambda (_%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) + _%L173160%_ + __tmp178087))) + (_%__kont176968176969%_ + _%L173159%_ + _%L173160%_ + _%L173161%_) + (_%__match177457177458%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_))))) + (_%__match177251177252%_ + (lambda (_%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_ + _%e172640173151%_ + _%hd172641173154%_ + _%tl172642173156%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172477172981%_)) - (_%__match177094177095%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) - (_%__match177172177173%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_)))) - (_%__match177082177083%_ - (lambda (_%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_) + (gx#stx-null? _%tl172636173140%_)) + (_%__match177253177254%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_ + _%e172640173151%_ + _%hd172641173154%_ + _%tl172642173156%_) + (_%__match177331177332%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_ + _%e172640173151%_ + _%hd172641173154%_ + _%tl172642173156%_)))) + (_%__match177241177242%_ + (lambda (_%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd172479172987%_)) + (gx#stx-eq? '%#quote _%hd172638173146%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172480172989%_)) - (let ((_%e172481172992%_ + (gx#stx-pair? _%tl172639173148%_)) + (let ((_%e172640173151%_ (let () (declare (not safe)) - (gx#stx-e _%tl172480172989%_)))) - (let ((_%tl172483172997%_ + (gx#stx-e _%tl172639173148%_)))) + (let ((_%tl172642173156%_ (let () (declare (not safe)) - (##cdr _%e172481172992%_))) - (_%hd172482172995%_ + (##cdr _%e172640173151%_))) + (_%hd172641173154%_ (let () (declare (not safe)) - (##car _%e172481172992%_)))) + (##car _%e172640173151%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172483172997%_)) + (gx#stx-null? _%tl172642173156%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172477172981%_)) - (_%__match177094177095%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) - (_%__match177172177173%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_)) - (_%__match177296177297%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_)))) - (_%__match177296177297%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_)) - (_%__match177296177297%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_)))) - (_%__match177014177015%_ - (lambda (_%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_ - _%e172430173111%_ - _%hd172431173114%_ - _%tl172432173116%_ - _%e172433173119%_ - _%hd172434173122%_ - _%tl172435173124%_ - _%e172436173127%_ - _%hd172437173130%_ - _%tl172438173132%_ - _%e172439173135%_ - _%hd172440173138%_ - _%tl172441173140%_ - _%__splice176807176808%_ - _%target172442173143%_ - _%tl172444173145%_) - (letrec ((_%loop172445173148%_ - (lambda (_%hd172443173151%_ - _%args172449173153%_) + (gx#stx-null? _%tl172636173140%_)) + (_%__match177253177254%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_ + _%e172640173151%_ + _%hd172641173154%_ + _%tl172642173156%_) + (_%__match177331177332%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_ + _%e172637173143%_ + _%hd172638173146%_ + _%tl172639173148%_ + _%e172640173151%_ + _%hd172641173154%_ + _%tl172642173156%_)) + (_%__match177455177456%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_)))) + (_%__match177455177456%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_)) + (_%__match177455177456%_ + _%e172613173079%_ + _%hd172614173082%_ + _%tl172615173084%_ + _%e172616173087%_ + _%hd172617173090%_ + _%tl172618173092%_ + _%e172619173095%_ + _%hd172620173098%_ + _%tl172621173100%_ + _%e172622173103%_ + _%hd172623173106%_ + _%tl172624173108%_ + _%e172625173111%_ + _%hd172626173114%_ + _%tl172627173116%_ + _%e172628173119%_ + _%hd172629173122%_ + _%tl172630173124%_ + _%e172631173127%_ + _%hd172632173130%_ + _%tl172633173132%_ + _%e172634173135%_ + _%hd172635173138%_ + _%tl172636173140%_)))) + (_%__match177173177174%_ + (lambda (_%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_ + _%e172586173262%_ + _%hd172587173265%_ + _%tl172588173267%_ + _%e172589173270%_ + _%hd172590173273%_ + _%tl172591173275%_ + _%e172592173278%_ + _%hd172593173281%_ + _%tl172594173283%_ + _%e172595173286%_ + _%hd172596173289%_ + _%tl172597173291%_ + _%e172598173294%_ + _%hd172599173297%_ + _%tl172600173299%_ + _%__splice176966176967%_ + _%target172601173302%_ + _%tl172603173304%_) + (letrec ((_%loop172604173307%_ + (lambda (_%hd172602173310%_ + _%args172608173312%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172443173151%_)) - (let ((_%e172446173156%_ + (gx#stx-pair? _%hd172602173310%_)) + (let ((_%e172605173315%_ (let () (declare (not safe)) - (gx#stx-e _%hd172443173151%_)))) - (let ((_%lp-tl172448173161%_ + (gx#stx-e _%hd172602173310%_)))) + (let ((_%lp-tl172607173320%_ (let () (declare (not safe)) - (##cdr _%e172446173156%_))) - (_%lp-hd172447173159%_ + (##cdr _%e172605173315%_))) + (_%lp-hd172606173318%_ (let () (declare (not safe)) - (##car _%e172446173156%_)))) - (_%loop172445173148%_ - _%lp-tl172448173161%_ - (cons _%lp-hd172447173159%_ - _%args172449173153%_)))) - (let ((_%args172450173164%_ - (reverse _%args172449173153%_))) - (let ((_%L173167%_ - _%args172450173164%_) - (_%L173168%_ _%hd172440173138%_) - (_%L173169%_ _%hd172431173114%_) - (_%L173170%_ _%hd172422173090%_) - (_%L173171%_ _%hd172413173066%_)) + (##car _%e172605173315%_)))) + (_%loop172604173307%_ + _%lp-tl172607173320%_ + (cons _%lp-hd172606173318%_ + _%args172608173312%_)))) + (let ((_%args172609173323%_ + (reverse _%args172608173312%_))) + (let ((_%L173326%_ + _%args172609173323%_) + (_%L173327%_ _%hd172599173297%_) + (_%L173328%_ _%hd172590173273%_) + (_%L173329%_ _%hd172581173249%_) + (_%L173330%_ _%hd172572173225%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173171%_ + _%L173330%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173170%_ + _%L173329%_ 'call-method)) - (let ((__tmp177929 + (let ((__tmp178088 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self172503%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173169%_ - __tmp177929))) - (_%__kont176805176806%_ - _%L173167%_ - _%L173168%_ - _%L173169%_ - _%L173170%_ - _%L173171%_) - (_%__kont176817176818%_)))))))) - (_%loop172445173148%_ _%target172442173143%_ '())))) - (_%__match176972176973%_ - (lambda (_%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_) + _%L173328%_ + __tmp178088))) + (_%__kont176964176965%_ + _%L173326%_ + _%L173327%_ + _%L173328%_ + _%L173329%_ + _%L173330%_) + (_%__kont176976176977%_)))))))) + (_%loop172604173307%_ _%target172601173302%_ '())))) + (_%__match177131177132%_ + (lambda (_%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_ + _%e172586173262%_ + _%hd172587173265%_ + _%tl172588173267%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd172428173106%_)) + (gx#stx-eq? '%#ref _%hd172587173265%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172429173108%_)) - (let ((_%e172430173111%_ + (gx#stx-pair? _%tl172588173267%_)) + (let ((_%e172589173270%_ (let () (declare (not safe)) - (gx#stx-e _%tl172429173108%_)))) - (let ((_%tl172432173116%_ + (gx#stx-e _%tl172588173267%_)))) + (let ((_%tl172591173275%_ (let () (declare (not safe)) - (##cdr _%e172430173111%_))) - (_%hd172431173114%_ + (##cdr _%e172589173270%_))) + (_%hd172590173273%_ (let () (declare (not safe)) - (##car _%e172430173111%_)))) + (##car _%e172589173270%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172432173116%_)) + (gx#stx-null? _%tl172591173275%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172426173100%_)) - (let ((_%e172433173119%_ + (gx#stx-pair? _%tl172585173259%_)) + (let ((_%e172592173278%_ (let () (declare (not safe)) (gx#stx-e - _%tl172426173100%_)))) - (let ((_%tl172435173124%_ + _%tl172585173259%_)))) + (let ((_%tl172594173283%_ (let () (declare (not safe)) - (##cdr _%e172433173119%_))) - (_%hd172434173122%_ + (##cdr _%e172592173278%_))) + (_%hd172593173281%_ (let () (declare (not safe)) - (##car _%e172433173119%_)))) + (##car _%e172592173278%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172434173122%_)) - (let ((_%e172436173127%_ + _%hd172593173281%_)) + (let ((_%e172595173286%_ (let () (declare (not safe)) (gx#stx-e - _%hd172434173122%_)))) - (let ((_%tl172438173132%_ + _%hd172593173281%_)))) + (let ((_%tl172597173291%_ (let () (declare (not safe)) - (##cdr _%e172436173127%_))) - (_%hd172437173130%_ + (##cdr _%e172595173286%_))) + (_%hd172596173289%_ (let () (declare (not safe)) - (##car _%e172436173127%_)))) + (##car _%e172595173286%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172437173130%_)) + _%hd172596173289%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd172437173130%_)) + (gx#stx-eq? '%#quote _%hd172596173289%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172438173132%_)) - (let ((_%e172439173135%_ + (gx#stx-pair? _%tl172597173291%_)) + (let ((_%e172598173294%_ (let () (declare (not safe)) - (gx#stx-e _%tl172438173132%_)))) - (let ((_%tl172441173140%_ + (gx#stx-e _%tl172597173291%_)))) + (let ((_%tl172600173299%_ (let () (declare (not safe)) - (##cdr _%e172439173135%_))) - (_%hd172440173138%_ + (##cdr _%e172598173294%_))) + (_%hd172599173297%_ (let () (declare (not safe)) - (##car _%e172439173135%_)))) + (##car _%e172598173294%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172441173140%_)) + (gx#stx-null? _%tl172600173299%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl172435173124%_)) - (let ((_%__splice176807176808%_ + (gx#stx-pair/null? _%tl172594173283%_)) + (let ((_%__splice176966176967%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl172435173124%_ + _%tl172594173283%_ '0)))) - (let ((_%tl172444173145%_ + (let ((_%tl172603173304%_ (let () (declare (not safe)) (##vector-ref - _%__splice176807176808%_ + _%__splice176966176967%_ '1))) - (_%target172442173143%_ + (_%target172601173302%_ (let () (declare (not safe)) (##vector-ref - _%__splice176807176808%_ + _%__splice176966176967%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172444173145%_)) - (_%__match177014177015%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_ - _%e172430173111%_ - _%hd172431173114%_ - _%tl172432173116%_ - _%e172433173119%_ - _%hd172434173122%_ - _%tl172435173124%_ - _%e172436173127%_ - _%hd172437173130%_ - _%tl172438173132%_ - _%e172439173135%_ - _%hd172440173138%_ - _%tl172441173140%_ - _%__splice176807176808%_ - _%target172442173143%_ - _%tl172444173145%_) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) + _%tl172603173304%_)) + (_%__match177173177174%_ + _%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_ + _%e172586173262%_ + _%hd172587173265%_ + _%tl172588173267%_ + _%e172589173270%_ + _%hd172590173273%_ + _%tl172591173275%_ + _%e172592173278%_ + _%hd172593173281%_ + _%tl172594173283%_ + _%e172595173286%_ + _%hd172596173289%_ + _%tl172597173291%_ + _%e172598173294%_ + _%hd172599173297%_ + _%tl172600173299%_ + _%__splice176966176967%_ + _%target172601173302%_ + _%tl172603173304%_) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176817176818%_)))) - (_%__match177296177297%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_)) - (_%__match177296177297%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_)))) - (_%__match177296177297%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_)) - (_%__match177082177083%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_)))) - (_%__match176904176905%_ - (lambda (_%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_ - _%__splice176803176804%_ - _%target172389173308%_ - _%tl172391173310%_) - (letrec ((_%loop172392173313%_ - (lambda (_%hd172390173316%_ - _%args172396173318%_) + (_%__kont176976176977%_)))) + (_%__match177455177456%_ + _%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_)) + (_%__match177455177456%_ + _%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_)))) + (_%__match177455177456%_ + _%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_)) + (_%__match177241177242%_ + _%e172562173198%_ + _%hd172563173201%_ + _%tl172564173203%_ + _%e172565173206%_ + _%hd172566173209%_ + _%tl172567173211%_ + _%e172568173214%_ + _%hd172569173217%_ + _%tl172570173219%_ + _%e172571173222%_ + _%hd172572173225%_ + _%tl172573173227%_ + _%e172574173230%_ + _%hd172575173233%_ + _%tl172576173235%_ + _%e172577173238%_ + _%hd172578173241%_ + _%tl172579173243%_ + _%e172580173246%_ + _%hd172581173249%_ + _%tl172582173251%_ + _%e172583173254%_ + _%hd172584173257%_ + _%tl172585173259%_ + _%e172586173262%_ + _%hd172587173265%_ + _%tl172588173267%_)))) + (_%__match177063177064%_ + (lambda (_%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_ + _%e172542173451%_ + _%hd172543173454%_ + _%tl172544173456%_ + _%e172545173459%_ + _%hd172546173462%_ + _%tl172547173464%_ + _%__splice176962176963%_ + _%target172548173467%_ + _%tl172550173469%_) + (letrec ((_%loop172551173472%_ + (lambda (_%hd172549173475%_ + _%args172555173477%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172390173316%_)) - (let ((_%e172393173321%_ + (gx#stx-pair? _%hd172549173475%_)) + (let ((_%e172552173480%_ (let () (declare (not safe)) - (gx#stx-e _%hd172390173316%_)))) - (let ((_%lp-tl172395173326%_ + (gx#stx-e _%hd172549173475%_)))) + (let ((_%lp-tl172554173485%_ (let () (declare (not safe)) - (##cdr _%e172393173321%_))) - (_%lp-hd172394173324%_ + (##cdr _%e172552173480%_))) + (_%lp-hd172553173483%_ (let () (declare (not safe)) - (##car _%e172393173321%_)))) - (_%loop172392173313%_ - _%lp-tl172395173326%_ - (cons _%lp-hd172394173324%_ - _%args172396173318%_)))) - (let ((_%args172397173329%_ - (reverse _%args172396173318%_))) - (let ((_%L173332%_ - _%args172397173329%_) - (_%L173333%_ _%hd172387173303%_) - (_%L173334%_ _%hd172378173279%_) - (_%L173335%_ _%hd172369173255%_)) + (##car _%e172552173480%_)))) + (_%loop172551173472%_ + _%lp-tl172554173485%_ + (cons _%lp-hd172553173483%_ + _%args172555173477%_)))) + (let ((_%args172556173488%_ + (reverse _%args172555173477%_))) + (let ((_%L173491%_ + _%args172556173488%_) + (_%L173492%_ _%hd172546173462%_) + (_%L173493%_ _%hd172537173438%_) + (_%L173494%_ _%hd172528173414%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173335%_ + _%L173494%_ 'call-method)) - (let ((__tmp177930 + (let ((__tmp178089 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self172503%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173334%_ - __tmp177930))) - (_%__kont176801176802%_ - _%L173332%_ - _%L173333%_ - _%L173334%_ - _%L173335%_) - (_%__match177092177093%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_)))))))) - (_%loop172392173313%_ _%target172389173308%_ '()))))) + _%L173493%_ + __tmp178089))) + (_%__kont176960176961%_ + _%L173491%_ + _%L173492%_ + _%L173493%_ + _%L173494%_) + (_%__match177251177252%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_ + _%e172542173451%_ + _%hd172543173454%_ + _%tl172544173456%_ + _%e172545173459%_ + _%hd172546173462%_ + _%tl172547173464%_)))))))) + (_%loop172551173472%_ _%target172548173467%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176799176800%_)) - (let ((_%e172359173228%_ + (gx#stx-pair? _%__stx176958176959%_)) + (let ((_%e172518173387%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176799176800%_)))) - (let ((_%tl172361173233%_ + (gx#stx-e _%__stx176958176959%_)))) + (let ((_%tl172520173392%_ (let () (declare (not safe)) - (##cdr _%e172359173228%_))) - (_%hd172360173231%_ + (##cdr _%e172518173387%_))) + (_%hd172519173390%_ (let () (declare (not safe)) - (##car _%e172359173228%_)))) + (##car _%e172518173387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172361173233%_)) - (let ((_%e172362173236%_ + (gx#stx-pair? _%tl172520173392%_)) + (let ((_%e172521173395%_ (let () (declare (not safe)) - (gx#stx-e _%tl172361173233%_)))) - (let ((_%tl172364173241%_ + (gx#stx-e _%tl172520173392%_)))) + (let ((_%tl172523173400%_ (let () (declare (not safe)) - (##cdr _%e172362173236%_))) - (_%hd172363173239%_ + (##cdr _%e172521173395%_))) + (_%hd172522173398%_ (let () (declare (not safe)) - (##car _%e172362173236%_)))) + (##car _%e172521173395%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172363173239%_)) - (let ((_%e172365173244%_ + (gx#stx-pair? _%hd172522173398%_)) + (let ((_%e172524173403%_ (let () (declare (not safe)) - (gx#stx-e _%hd172363173239%_)))) - (let ((_%tl172367173249%_ + (gx#stx-e _%hd172522173398%_)))) + (let ((_%tl172526173408%_ (let () (declare (not safe)) - (##cdr _%e172365173244%_))) - (_%hd172366173247%_ + (##cdr _%e172524173403%_))) + (_%hd172525173406%_ (let () (declare (not safe)) - (##car _%e172365173244%_)))) + (##car _%e172524173403%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172366173247%_)) + _%hd172525173406%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172366173247%_)) + _%hd172525173406%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172367173249%_)) - (let ((_%e172368173252%_ + _%tl172526173408%_)) + (let ((_%e172527173411%_ (let () (declare (not safe)) (gx#stx-e - _%tl172367173249%_)))) - (let ((_%tl172370173257%_ + _%tl172526173408%_)))) + (let ((_%tl172529173416%_ (let () (declare (not safe)) - (##cdr _%e172368173252%_))) - (_%hd172369173255%_ + (##cdr _%e172527173411%_))) + (_%hd172528173414%_ (let () (declare (not safe)) - (##car _%e172368173252%_)))) + (##car _%e172527173411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172370173257%_)) + _%tl172529173416%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl172364173241%_)) - (let ((_%e172371173260%_ + (gx#stx-pair? _%tl172523173400%_)) + (let ((_%e172530173419%_ (let () (declare (not safe)) - (gx#stx-e _%tl172364173241%_)))) - (let ((_%tl172373173265%_ + (gx#stx-e _%tl172523173400%_)))) + (let ((_%tl172532173424%_ (let () (declare (not safe)) - (##cdr _%e172371173260%_))) - (_%hd172372173263%_ + (##cdr _%e172530173419%_))) + (_%hd172531173422%_ (let () (declare (not safe)) - (##car _%e172371173260%_)))) + (##car _%e172530173419%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172372173263%_)) - (let ((_%e172374173268%_ + (gx#stx-pair? _%hd172531173422%_)) + (let ((_%e172533173427%_ (let () (declare (not safe)) - (gx#stx-e _%hd172372173263%_)))) - (let ((_%tl172376173273%_ + (gx#stx-e _%hd172531173422%_)))) + (let ((_%tl172535173432%_ (let () (declare (not safe)) - (##cdr _%e172374173268%_))) - (_%hd172375173271%_ + (##cdr _%e172533173427%_))) + (_%hd172534173430%_ (let () (declare (not safe)) - (##car _%e172374173268%_)))) + (##car _%e172533173427%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172375173271%_)) + (gx#identifier? _%hd172534173430%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172375173271%_)) + _%hd172534173430%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172376173273%_)) - (let ((_%e172377173276%_ + _%tl172535173432%_)) + (let ((_%e172536173435%_ (let () (declare (not safe)) (gx#stx-e - _%tl172376173273%_)))) - (let ((_%tl172379173281%_ + _%tl172535173432%_)))) + (let ((_%tl172538173440%_ (let () (declare (not safe)) - (##cdr _%e172377173276%_))) - (_%hd172378173279%_ + (##cdr _%e172536173435%_))) + (_%hd172537173438%_ (let () (declare (not safe)) - (##car _%e172377173276%_)))) + (##car _%e172536173435%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172379173281%_)) + _%tl172538173440%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172373173265%_)) - (let ((_%e172380173284%_ + _%tl172532173424%_)) + (let ((_%e172539173443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172373173265%_)))) - (let ((_%tl172382173289%_ + (gx#stx-e _%tl172532173424%_)))) + (let ((_%tl172541173448%_ (let () (declare (not safe)) - (##cdr _%e172380173284%_))) - (_%hd172381173287%_ + (##cdr _%e172539173443%_))) + (_%hd172540173446%_ (let () (declare (not safe)) - (##car _%e172380173284%_)))) + (##car _%e172539173443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172381173287%_)) - (let ((_%e172383173292%_ + (gx#stx-pair? _%hd172540173446%_)) + (let ((_%e172542173451%_ (let () (declare (not safe)) - (gx#stx-e _%hd172381173287%_)))) - (let ((_%tl172385173297%_ + (gx#stx-e _%hd172540173446%_)))) + (let ((_%tl172544173456%_ (let () (declare (not safe)) - (##cdr _%e172383173292%_))) - (_%hd172384173295%_ + (##cdr _%e172542173451%_))) + (_%hd172543173454%_ (let () (declare (not safe)) - (##car _%e172383173292%_)))) + (##car _%e172542173451%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172384173295%_)) + (gx#identifier? _%hd172543173454%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd172384173295%_)) + _%hd172543173454%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172385173297%_)) - (let ((_%e172386173300%_ + (gx#stx-pair? _%tl172544173456%_)) + (let ((_%e172545173459%_ (let () (declare (not safe)) (gx#stx-e - _%tl172385173297%_)))) - (let ((_%tl172388173305%_ + _%tl172544173456%_)))) + (let ((_%tl172547173464%_ (let () (declare (not safe)) - (##cdr _%e172386173300%_))) - (_%hd172387173303%_ + (##cdr _%e172545173459%_))) + (_%hd172546173462%_ (let () (declare (not safe)) - (##car _%e172386173300%_)))) + (##car _%e172545173459%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172388173305%_)) + _%tl172547173464%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl172382173289%_)) - (let ((_%__splice176803176804%_ + _%tl172541173448%_)) + (let ((_%__splice176962176963%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl172382173289%_ '0)))) - (let ((_%tl172391173310%_ + (gx#syntax-split-splice _%tl172541173448%_ '0)))) + (let ((_%tl172550173469%_ (let () (declare (not safe)) - (##vector-ref _%__splice176803176804%_ '1))) - (_%target172389173308%_ + (##vector-ref _%__splice176962176963%_ '1))) + (_%target172548173467%_ (let () (declare (not safe)) - (##vector-ref _%__splice176803176804%_ '0)))) + (##vector-ref _%__splice176962176963%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172391173310%_)) - (_%__match176904176905%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_ - _%__splice176803176804%_ - _%target172389173308%_ - _%tl172391173310%_) - (_%__match177092177093%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_)))) - (_%__match177092177093%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_)) + (gx#stx-null? _%tl172550173469%_)) + (_%__match177063177064%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_ + _%e172542173451%_ + _%hd172543173454%_ + _%tl172544173456%_ + _%e172545173459%_ + _%hd172546173462%_ + _%tl172547173464%_ + _%__splice176962176963%_ + _%target172548173467%_ + _%tl172550173469%_) + (_%__match177251177252%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_ + _%e172542173451%_ + _%hd172543173454%_ + _%tl172544173456%_ + _%e172545173459%_ + _%hd172546173462%_ + _%tl172547173464%_)))) + (_%__match177251177252%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_ + _%e172542173451%_ + _%hd172543173454%_ + _%tl172544173456%_ + _%e172545173459%_ + _%hd172546173462%_ + _%tl172547173464%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)))) - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)) - (_%__match176972176973%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_)) - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)))) - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)))) - (_%__match177234177235%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_)) - (_%__kont176817176818%_)))) + (_%__match177455177456%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_)))) + (_%__match177455177456%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_)) + (_%__match177131177132%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_ + _%e172542173451%_ + _%hd172543173454%_ + _%tl172544173456%_)) + (_%__match177455177456%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_)))) + (_%__match177455177456%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_ + _%e172539173443%_ + _%hd172540173446%_ + _%tl172541173448%_)))) + (_%__match177393177394%_ + _%e172518173387%_ + _%hd172519173390%_ + _%tl172520173392%_ + _%e172521173395%_ + _%hd172522173398%_ + _%tl172523173400%_ + _%e172524173403%_ + _%hd172525173406%_ + _%tl172526173408%_ + _%e172527173411%_ + _%hd172528173414%_ + _%tl172529173416%_ + _%e172530173419%_ + _%hd172531173422%_ + _%tl172532173424%_ + _%e172533173427%_ + _%hd172534173430%_ + _%tl172535173432%_ + _%e172536173435%_ + _%hd172537173438%_ + _%tl172538173440%_)) + (_%__kont176976176977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176817176818%_)) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176817176818%_)) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_))))))) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_)))) + (_%__kont176976176977%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self171283%_ _%stx171284%_) - (letrec ((_%force-e171286%_ - (lambda (_%target172342%_) + (lambda (_%self171442%_ _%stx171443%_) + (letrec ((_%force-e171445%_ + (lambda (_%target172501%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target172342%_ '())) + (cons (cons '%#ref (cons _%target172501%_ '())) '())))))) - (let* ((_%__stx177301177302%_ _%stx171284%_) - (_%g171294171516%_ + (let* ((_%__stx177460177461%_ _%stx171443%_) + (_%g171453171675%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177301177302%_))))) - (let ((_%__kont177303177304%_ - (lambda (_%L172288%_ _%L172289%_ _%L172290%_ _%L172291%_) - (let ((_%$method172336%_ - (let ((__tmp177932 + _%__stx177460177461%_))))) + (let ((_%__kont177462177463%_ + (lambda (_%L172447%_ _%L172448%_ _%L172449%_ _%L172450%_) + (let ((_%$method172495%_ + (let ((__tmp178091 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'methods))) - (__tmp177931 + (slot-ref__0 _%self171442%_ 'methods))) + (__tmp178090 (let () (declare (not safe)) - (gx#stx-e _%L172289%_)))) + (gx#stx-e _%L172448%_)))) (declare (not safe)) - (hash-ref__0 __tmp177932 __tmp177931))) - (_%args172337%_ - (map (lambda (_%g172324172326%_) + (hash-ref__0 __tmp178091 __tmp178090))) + (_%args172496%_ + (map (lambda (_%g172483172485%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171283%_ - _%g172324172326%_))) - (let ((__tmp177933 - (lambda (_%g172328172331%_ - _%g172329172333%_) - (cons _%g172328172331%_ - _%g172329172333%_)))) + _%self171442%_ + _%g172483172485%_))) + (let ((__tmp178092 + (lambda (_%g172487172490%_ + _%g172488172492%_) + (cons _%g172487172490%_ + _%g172488172492%_)))) (declare (not safe)) - (__foldr1 __tmp177933 '() _%L172288%_))))) - (let ((__tmp177934 + (__foldr1 __tmp178092 '() _%L172447%_))))) + (let ((__tmp178093 (cons '%#call - (cons (_%force-e171286%_ _%$method172336%_) + (cons (_%force-e171445%_ _%$method172495%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)) '())) - _%args172337%_))))) + _%args172496%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177934 _%stx171284%_))))) - (_%__kont177307177308%_ - (lambda (_%L172120%_ - _%L172121%_ - _%L172122%_ - _%L172123%_ - _%L172124%_) - (let ((_%$method172176%_ - (let ((__tmp177936 + (gxc#xform-wrap-source __tmp178093 _%stx171443%_))))) + (_%__kont177466177467%_ + (lambda (_%L172279%_ + _%L172280%_ + _%L172281%_ + _%L172282%_ + _%L172283%_) + (let ((_%$method172335%_ + (let ((__tmp178095 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'methods))) - (__tmp177935 + (slot-ref__0 _%self171442%_ 'methods))) + (__tmp178094 (let () (declare (not safe)) - (gx#stx-e _%L172121%_)))) + (gx#stx-e _%L172280%_)))) (declare (not safe)) - (hash-ref__0 __tmp177936 __tmp177935))) - (_%args172177%_ - (map (lambda (_%g172164172166%_) + (hash-ref__0 __tmp178095 __tmp178094))) + (_%args172336%_ + (map (lambda (_%g172323172325%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171283%_ - _%g172164172166%_))) - (let ((__tmp177937 - (lambda (_%g172168172171%_ - _%g172169172173%_) - (cons _%g172168172171%_ - _%g172169172173%_)))) + _%self171442%_ + _%g172323172325%_))) + (let ((__tmp178096 + (lambda (_%g172327172330%_ + _%g172328172332%_) + (cons _%g172327172330%_ + _%g172328172332%_)))) (declare (not safe)) - (__foldr1 __tmp177937 '() _%L172120%_))))) - (let ((__tmp177938 + (__foldr1 __tmp178096 '() _%L172279%_))))) + (let ((__tmp178097 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e171286%_ - _%$method172176%_) + (cons (_%force-e171445%_ + _%$method172335%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self171442%_ 'receiver)) '())) - _%args172177%_)))))) + _%args172336%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp177938 _%stx171284%_))))) - (_%__kont177311177312%_ - (lambda (_%L171951%_ _%L171952%_ _%L171953%_) - (let* ((_%$field171985%_ - (let ((__tmp177940 + (gxc#xform-wrap-source __tmp178097 _%stx171443%_))))) + (_%__kont177470177471%_ + (lambda (_%L172110%_ _%L172111%_ _%L172112%_) + (let* ((_%$field172144%_ + (let ((__tmp178099 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'slots))) - (__tmp177939 + (slot-ref__0 _%self171442%_ 'slots))) + (__tmp178098 (let () (declare (not safe)) - (gx#stx-e _%L171951%_)))) + (gx#stx-e _%L172110%_)))) (declare (not safe)) - (hash-ref__0 __tmp177940 __tmp177939))) - (__tmp177941 + (hash-ref__0 __tmp178099 __tmp178098))) + (__tmp178100 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171985%_ + (cons _%$field172144%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self171442%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177941 _%stx171284%_)))) - (_%__kont177313177314%_ - (lambda (_%L171825%_ _%L171826%_ _%L171827%_ _%L171828%_) - (let ((_%$field171863%_ - (let ((__tmp177943 + (gxc#xform-wrap-source __tmp178100 _%stx171443%_)))) + (_%__kont177472177473%_ + (lambda (_%L171984%_ _%L171985%_ _%L171986%_ _%L171987%_) + (let ((_%$field172022%_ + (let ((__tmp178102 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'slots))) - (__tmp177942 + (slot-ref__0 _%self171442%_ 'slots))) + (__tmp178101 (let () (declare (not safe)) - (gx#stx-e _%L171826%_)))) + (gx#stx-e _%L171985%_)))) (declare (not safe)) - (hash-ref__0 __tmp177943 __tmp177942))) - (_%expr171864%_ + (hash-ref__0 __tmp178102 __tmp178101))) + (_%expr172023%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171283%_ _%L171825%_)))) - (let ((__tmp177944 + (gxc#compile-e__1 _%self171442%_ _%L171984%_)))) + (let ((__tmp178103 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171863%_ + (cons _%$field172022%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self171442%_ 'receiver)) '())) - (cons _%expr171864%_ '()))))))) + (cons _%expr172023%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp177944 _%stx171284%_))))) - (_%__kont177315177316%_ - (lambda (_%L171697%_ _%L171698%_) - (let* ((_%accessor171720%_ - (let ((__tmp177945 + (gxc#xform-wrap-source __tmp178103 _%stx171443%_))))) + (_%__kont177474177475%_ + (lambda (_%L171856%_ _%L171857%_) + (let* ((_%accessor171879%_ + (let ((__tmp178104 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171698%_)))) + (gxc#identifier-symbol _%L171857%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177945))) - (_%klass171722%_ - (let ((__tmp177946 + (gxc#optimizer-resolve-type __tmp178104))) + (_%klass171881%_ + (let ((__tmp178105 (##structure-ref - _%accessor171720%_ + _%accessor171879%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171284%_ - __tmp177946))) - (_%slot171724%_ + _%stx171443%_ + __tmp178105))) + (_%slot171883%_ (##structure-ref - _%accessor171720%_ + _%accessor171879%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor171720%_ + _%accessor171879%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171722%_ - _%slot171724%_)) + _%klass171881%_ + _%slot171883%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171722%_ + _%klass171881%_ '8 '#f '#f)))) - _%stx171284%_ - (let* ((_%$field171730%_ - (let ((__tmp177947 + _%stx171443%_ + (let* ((_%$field171889%_ + (let ((__tmp178106 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp177947 _%slot171724%_))) - (__tmp177948 + (hash-ref__0 __tmp178106 _%slot171883%_))) + (__tmp178107 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171730%_ + (cons _%$field171889%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self171442%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177948 - _%stx171284%_)))))) - (_%__kont177317177318%_ - (lambda (_%L171592%_ _%L171593%_ _%L171594%_) - (let* ((_%mutator171622%_ - (let ((__tmp177949 + __tmp178107 + _%stx171443%_)))))) + (_%__kont177476177477%_ + (lambda (_%L171751%_ _%L171752%_ _%L171753%_) + (let* ((_%mutator171781%_ + (let ((__tmp178108 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171594%_)))) + (gxc#identifier-symbol _%L171753%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177949))) - (_%klass171624%_ - (let ((__tmp177950 + (gxc#optimizer-resolve-type __tmp178108))) + (_%klass171783%_ + (let ((__tmp178109 (##structure-ref - _%mutator171622%_ + _%mutator171781%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171284%_ - __tmp177950))) - (_%slot171626%_ + _%stx171443%_ + __tmp178109))) + (_%slot171785%_ (##structure-ref - _%mutator171622%_ + _%mutator171781%_ '3 gxc#!mutator::t '#f)) - (_%expr171628%_ + (_%expr171787%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171283%_ _%L171592%_)))) + (gxc#compile-e__1 _%self171442%_ _%L171751%_)))) (if (if (##structure-ref - _%mutator171622%_ + _%mutator171781%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171624%_ - _%slot171626%_)) + _%klass171783%_ + _%slot171785%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171624%_ + _%klass171783%_ '8 '#f '#f)))) - (let ((__tmp177951 + (let ((__tmp178110 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171594%_ '())) + (cons _%L171753%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171593%_ + (cons _%L171752%_ '())) - (cons _%expr171628%_ + (cons _%expr171787%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177951 _%stx171284%_)) - (let* ((_%$field171634%_ - (let ((__tmp177952 + (gxc#xform-wrap-source __tmp178110 _%stx171443%_)) + (let* ((_%$field171793%_ + (let ((__tmp178111 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp177952 _%slot171626%_))) - (__tmp177953 + (hash-ref__0 __tmp178111 _%slot171785%_))) + (__tmp178112 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171634%_ + (cons _%$field171793%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self171442%_ 'receiver)) '())) - (cons _%expr171628%_ '()))))))) + (cons _%expr171787%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177953 - _%stx171284%_)))))) - (_%__kont177319177320%_ + __tmp178112 + _%stx171443%_)))))) + (_%__kont177478177479%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self171283%_ _%stx171284%_))))) - (let* ((_%__match177800177801%_ - (lambda (_%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) - (let ((_%L171592%_ _%hd171510171587%_) - (_%L171593%_ _%hd171507171579%_) - (_%L171594%_ _%hd171498171555%_)) - (if (and (let ((__tmp177954 + (gxc#xform-operands _%self171442%_ _%stx171443%_))))) + (let* ((_%__match177959177960%_ + (lambda (_%e171647171687%_ + _%hd171648171690%_ + _%tl171649171692%_ + _%e171650171695%_ + _%hd171651171698%_ + _%tl171652171700%_ + _%e171653171703%_ + _%hd171654171706%_ + _%tl171655171708%_ + _%e171656171711%_ + _%hd171657171714%_ + _%tl171658171716%_ + _%e171659171719%_ + _%hd171660171722%_ + _%tl171661171724%_ + _%e171662171727%_ + _%hd171663171730%_ + _%tl171664171732%_ + _%e171665171735%_ + _%hd171666171738%_ + _%tl171667171740%_ + _%e171668171743%_ + _%hd171669171746%_ + _%tl171670171748%_) + (let ((_%L171751%_ _%hd171669171746%_) + (_%L171752%_ _%hd171666171738%_) + (_%L171753%_ _%hd171657171714%_)) + (if (and (let ((__tmp178113 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171593%_ - __tmp177954)) - (let ((__tmp177955 - (let ((__tmp177956 + _%L171752%_ + __tmp178113)) + (let ((__tmp178114 + (let ((__tmp178115 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171594%_)))) + _%L171753%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177956)))) + __tmp178115)))) (declare (not safe)) (##structure-instance-of? - __tmp177955 + __tmp178114 'gxc#!mutator::t))) - (_%__kont177317177318%_ - _%L171592%_ - _%L171593%_ - _%L171594%_) - (_%__kont177319177320%_))))) - (_%__match177798177799%_ - (lambda (_%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) + (_%__kont177476177477%_ + _%L171751%_ + _%L171752%_ + _%L171753%_) + (_%__kont177478177479%_))))) + (_%__match177957177958%_ + (lambda (_%e171647171687%_ + _%hd171648171690%_ + _%tl171649171692%_ + _%e171650171695%_ + _%hd171651171698%_ + _%tl171652171700%_ + _%e171653171703%_ + _%hd171654171706%_ + _%tl171655171708%_ + _%e171656171711%_ + _%hd171657171714%_ + _%tl171658171716%_ + _%e171659171719%_ + _%hd171660171722%_ + _%tl171661171724%_ + _%e171662171727%_ + _%hd171663171730%_ + _%tl171664171732%_ + _%e171665171735%_ + _%hd171666171738%_ + _%tl171667171740%_ + _%e171668171743%_ + _%hd171669171746%_ + _%tl171670171748%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171511171589%_)) - (_%__match177800177801%_ - _%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) - (_%__kont177319177320%_)))) - (_%__match177792177793%_ - (lambda (_%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_) + (gx#stx-null? _%tl171670171748%_)) + (_%__match177959177960%_ + _%e171647171687%_ + _%hd171648171690%_ + _%tl171649171692%_ + _%e171650171695%_ + _%hd171651171698%_ + _%tl171652171700%_ + _%e171653171703%_ + _%hd171654171706%_ + _%tl171655171708%_ + _%e171656171711%_ + _%hd171657171714%_ + _%tl171658171716%_ + _%e171659171719%_ + _%hd171660171722%_ + _%tl171661171724%_ + _%e171662171727%_ + _%hd171663171730%_ + _%tl171664171732%_ + _%e171665171735%_ + _%hd171666171738%_ + _%tl171667171740%_ + _%e171668171743%_ + _%hd171669171746%_ + _%tl171670171748%_) + (_%__kont177478177479%_)))) + (_%__match177951177952%_ + (lambda (_%e171647171687%_ + _%hd171648171690%_ + _%tl171649171692%_ + _%e171650171695%_ + _%hd171651171698%_ + _%tl171652171700%_ + _%e171653171703%_ + _%hd171654171706%_ + _%tl171655171708%_ + _%e171656171711%_ + _%hd171657171714%_ + _%tl171658171716%_ + _%e171659171719%_ + _%hd171660171722%_ + _%tl171661171724%_ + _%e171662171727%_ + _%hd171663171730%_ + _%tl171664171732%_ + _%e171665171735%_ + _%hd171666171738%_ + _%tl171667171740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171502171565%_)) - (let ((_%e171509171584%_ + (gx#stx-pair? _%tl171661171724%_)) + (let ((_%e171668171743%_ (let () (declare (not safe)) - (gx#stx-e _%tl171502171565%_)))) - (let ((_%tl171511171589%_ + (gx#stx-e _%tl171661171724%_)))) + (let ((_%tl171670171748%_ (let () (declare (not safe)) - (##cdr _%e171509171584%_))) - (_%hd171510171587%_ + (##cdr _%e171668171743%_))) + (_%hd171669171746%_ (let () (declare (not safe)) - (##car _%e171509171584%_)))) + (##car _%e171668171743%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171511171589%_)) - (_%__match177800177801%_ - _%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__match177738177739%_ - (lambda (_%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_) - (let ((_%L171697%_ _%hd171483171692%_) - (_%L171698%_ _%hd171474171668%_)) - (if (and (let ((__tmp177957 + (gx#stx-null? _%tl171670171748%_)) + (_%__match177959177960%_ + _%e171647171687%_ + _%hd171648171690%_ + _%tl171649171692%_ + _%e171650171695%_ + _%hd171651171698%_ + _%tl171652171700%_ + _%e171653171703%_ + _%hd171654171706%_ + _%tl171655171708%_ + _%e171656171711%_ + _%hd171657171714%_ + _%tl171658171716%_ + _%e171659171719%_ + _%hd171660171722%_ + _%tl171661171724%_ + _%e171662171727%_ + _%hd171663171730%_ + _%tl171664171732%_ + _%e171665171735%_ + _%hd171666171738%_ + _%tl171667171740%_ + _%e171668171743%_ + _%hd171669171746%_ + _%tl171670171748%_) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)))) + (_%__match177897177898%_ + (lambda (_%e171623171800%_ + _%hd171624171803%_ + _%tl171625171805%_ + _%e171626171808%_ + _%hd171627171811%_ + _%tl171628171813%_ + _%e171629171816%_ + _%hd171630171819%_ + _%tl171631171821%_ + _%e171632171824%_ + _%hd171633171827%_ + _%tl171634171829%_ + _%e171635171832%_ + _%hd171636171835%_ + _%tl171637171837%_ + _%e171638171840%_ + _%hd171639171843%_ + _%tl171640171845%_ + _%e171641171848%_ + _%hd171642171851%_ + _%tl171643171853%_) + (let ((_%L171856%_ _%hd171642171851%_) + (_%L171857%_ _%hd171633171827%_)) + (if (and (let ((__tmp178116 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171697%_ - __tmp177957)) - (let ((__tmp177958 - (let ((__tmp177959 + _%L171856%_ + __tmp178116)) + (let ((__tmp178117 + (let ((__tmp178118 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171698%_)))) + _%L171857%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177959)))) + __tmp178118)))) (declare (not safe)) (##structure-instance-of? - __tmp177958 + __tmp178117 'gxc#!accessor::t))) - (_%__kont177315177316%_ _%L171697%_ _%L171698%_) - (_%__kont177319177320%_))))) - (_%__match177736177737%_ - (lambda (_%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_) + (_%__kont177474177475%_ _%L171856%_ _%L171857%_) + (_%__kont177478177479%_))))) + (_%__match177895177896%_ + (lambda (_%e171623171800%_ + _%hd171624171803%_ + _%tl171625171805%_ + _%e171626171808%_ + _%hd171627171811%_ + _%tl171628171813%_ + _%e171629171816%_ + _%hd171630171819%_ + _%tl171631171821%_ + _%e171632171824%_ + _%hd171633171827%_ + _%tl171634171829%_ + _%e171635171832%_ + _%hd171636171835%_ + _%tl171637171837%_ + _%e171638171840%_ + _%hd171639171843%_ + _%tl171640171845%_ + _%e171641171848%_ + _%hd171642171851%_ + _%tl171643171853%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171478171678%_)) - (_%__match177738177739%_ - _%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_) - (_%__match177792177793%_ - _%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_)))) - (_%__match177682177683%_ - (lambda (_%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_ - _%e171453171801%_ - _%hd171454171804%_ - _%tl171455171806%_ - _%e171456171809%_ - _%hd171457171812%_ - _%tl171458171814%_ - _%e171459171817%_ - _%hd171460171820%_ - _%tl171461171822%_) - (let ((_%L171825%_ _%hd171460171820%_) - (_%L171826%_ _%hd171457171812%_) - (_%L171827%_ _%hd171448171788%_) - (_%L171828%_ _%hd171439171764%_)) + (gx#stx-null? _%tl171637171837%_)) + (_%__match177897177898%_ + _%e171623171800%_ + _%hd171624171803%_ + _%tl171625171805%_ + _%e171626171808%_ + _%hd171627171811%_ + _%tl171628171813%_ + _%e171629171816%_ + _%hd171630171819%_ + _%tl171631171821%_ + _%e171632171824%_ + _%hd171633171827%_ + _%tl171634171829%_ + _%e171635171832%_ + _%hd171636171835%_ + _%tl171637171837%_ + _%e171638171840%_ + _%hd171639171843%_ + _%tl171640171845%_ + _%e171641171848%_ + _%hd171642171851%_ + _%tl171643171853%_) + (_%__match177951177952%_ + _%e171623171800%_ + _%hd171624171803%_ + _%tl171625171805%_ + _%e171626171808%_ + _%hd171627171811%_ + _%tl171628171813%_ + _%e171629171816%_ + _%hd171630171819%_ + _%tl171631171821%_ + _%e171632171824%_ + _%hd171633171827%_ + _%tl171634171829%_ + _%e171635171832%_ + _%hd171636171835%_ + _%tl171637171837%_ + _%e171638171840%_ + _%hd171639171843%_ + _%tl171640171845%_ + _%e171641171848%_ + _%hd171642171851%_ + _%tl171643171853%_)))) + (_%__match177841177842%_ + (lambda (_%e171588171896%_ + _%hd171589171899%_ + _%tl171590171901%_ + _%e171591171904%_ + _%hd171592171907%_ + _%tl171593171909%_ + _%e171594171912%_ + _%hd171595171915%_ + _%tl171596171917%_ + _%e171597171920%_ + _%hd171598171923%_ + _%tl171599171925%_ + _%e171600171928%_ + _%hd171601171931%_ + _%tl171602171933%_ + _%e171603171936%_ + _%hd171604171939%_ + _%tl171605171941%_ + _%e171606171944%_ + _%hd171607171947%_ + _%tl171608171949%_ + _%e171609171952%_ + _%hd171610171955%_ + _%tl171611171957%_ + _%e171612171960%_ + _%hd171613171963%_ + _%tl171614171965%_ + _%e171615171968%_ + _%hd171616171971%_ + _%tl171617171973%_ + _%e171618171976%_ + _%hd171619171979%_ + _%tl171620171981%_) + (let ((_%L171984%_ _%hd171619171979%_) + (_%L171985%_ _%hd171616171971%_) + (_%L171986%_ _%hd171607171947%_) + (_%L171987%_ _%hd171598171923%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171828%_ + _%L171987%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171828%_ + _%L171987%_ 'unchecked-slot-set!))) - (let ((__tmp177960 + (let ((__tmp178119 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171827%_ - __tmp177960))) - (_%__kont177313177314%_ - _%L171825%_ - _%L171826%_ - _%L171827%_ - _%L171828%_) - (_%__kont177319177320%_))))) - (_%__match177674177675%_ - (lambda (_%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_ - _%e171453171801%_ - _%hd171454171804%_ - _%tl171455171806%_ - _%e171456171809%_ - _%hd171457171812%_ - _%tl171458171814%_) + _%L171986%_ + __tmp178119))) + (_%__kont177472177473%_ + _%L171984%_ + _%L171985%_ + _%L171986%_ + _%L171987%_) + (_%__kont177478177479%_))))) + (_%__match177833177834%_ + (lambda (_%e171588171896%_ + _%hd171589171899%_ + _%tl171590171901%_ + _%e171591171904%_ + _%hd171592171907%_ + _%tl171593171909%_ + _%e171594171912%_ + _%hd171595171915%_ + _%tl171596171917%_ + _%e171597171920%_ + _%hd171598171923%_ + _%tl171599171925%_ + _%e171600171928%_ + _%hd171601171931%_ + _%tl171602171933%_ + _%e171603171936%_ + _%hd171604171939%_ + _%tl171605171941%_ + _%e171606171944%_ + _%hd171607171947%_ + _%tl171608171949%_ + _%e171609171952%_ + _%hd171610171955%_ + _%tl171611171957%_ + _%e171612171960%_ + _%hd171613171963%_ + _%tl171614171965%_ + _%e171615171968%_ + _%hd171616171971%_ + _%tl171617171973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171452171798%_)) - (let ((_%e171459171817%_ + (gx#stx-pair? _%tl171611171957%_)) + (let ((_%e171618171976%_ (let () (declare (not safe)) - (gx#stx-e _%tl171452171798%_)))) - (let ((_%tl171461171822%_ + (gx#stx-e _%tl171611171957%_)))) + (let ((_%tl171620171981%_ (let () (declare (not safe)) - (##cdr _%e171459171817%_))) - (_%hd171460171820%_ + (##cdr _%e171618171976%_))) + (_%hd171619171979%_ (let () (declare (not safe)) - (##car _%e171459171817%_)))) + (##car _%e171618171976%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171461171822%_)) - (_%__match177682177683%_ - _%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_ - _%e171453171801%_ - _%hd171454171804%_ - _%tl171455171806%_ - _%e171456171809%_ - _%hd171457171812%_ - _%tl171458171814%_ - _%e171459171817%_ - _%hd171460171820%_ - _%tl171461171822%_) - (_%__kont177319177320%_)))) - (_%__match177798177799%_ - _%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_)))) - (_%__match177596177597%_ - (lambda (_%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) - (let ((_%L171951%_ _%hd171423171946%_) - (_%L171952%_ _%hd171414171922%_) - (_%L171953%_ _%hd171405171898%_)) + (gx#stx-null? _%tl171620171981%_)) + (_%__match177841177842%_ + _%e171588171896%_ + _%hd171589171899%_ + _%tl171590171901%_ + _%e171591171904%_ + _%hd171592171907%_ + _%tl171593171909%_ + _%e171594171912%_ + _%hd171595171915%_ + _%tl171596171917%_ + _%e171597171920%_ + _%hd171598171923%_ + _%tl171599171925%_ + _%e171600171928%_ + _%hd171601171931%_ + _%tl171602171933%_ + _%e171603171936%_ + _%hd171604171939%_ + _%tl171605171941%_ + _%e171606171944%_ + _%hd171607171947%_ + _%tl171608171949%_ + _%e171609171952%_ + _%hd171610171955%_ + _%tl171611171957%_ + _%e171612171960%_ + _%hd171613171963%_ + _%tl171614171965%_ + _%e171615171968%_ + _%hd171616171971%_ + _%tl171617171973%_ + _%e171618171976%_ + _%hd171619171979%_ + _%tl171620171981%_) + (_%__kont177478177479%_)))) + (_%__match177957177958%_ + _%e171588171896%_ + _%hd171589171899%_ + _%tl171590171901%_ + _%e171591171904%_ + _%hd171592171907%_ + _%tl171593171909%_ + _%e171594171912%_ + _%hd171595171915%_ + _%tl171596171917%_ + _%e171597171920%_ + _%hd171598171923%_ + _%tl171599171925%_ + _%e171600171928%_ + _%hd171601171931%_ + _%tl171602171933%_ + _%e171603171936%_ + _%hd171604171939%_ + _%tl171605171941%_ + _%e171606171944%_ + _%hd171607171947%_ + _%tl171608171949%_ + _%e171609171952%_ + _%hd171610171955%_ + _%tl171611171957%_)))) + (_%__match177755177756%_ + (lambda (_%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_ + _%e171581172102%_ + _%hd171582172105%_ + _%tl171583172107%_) + (let ((_%L172110%_ _%hd171582172105%_) + (_%L172111%_ _%hd171573172081%_) + (_%L172112%_ _%hd171564172057%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171953%_ + _%L172112%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171953%_ + _%L172112%_ 'unchecked-slot-ref))) - (let ((__tmp177961 + (let ((__tmp178120 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171952%_ - __tmp177961))) - (_%__kont177311177312%_ - _%L171951%_ - _%L171952%_ - _%L171953%_) - (_%__match177800177801%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_))))) - (_%__match177594177595%_ - (lambda (_%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) + _%L172111%_ + __tmp178120))) + (_%__kont177470177471%_ + _%L172110%_ + _%L172111%_ + _%L172112%_) + (_%__match177959177960%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_))))) + (_%__match177753177754%_ + (lambda (_%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_ + _%e171581172102%_ + _%hd171582172105%_ + _%tl171583172107%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171418171932%_)) - (_%__match177596177597%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) - (_%__match177674177675%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_)))) - (_%__match177584177585%_ - (lambda (_%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_) + (gx#stx-null? _%tl171577172091%_)) + (_%__match177755177756%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_ + _%e171581172102%_ + _%hd171582172105%_ + _%tl171583172107%_) + (_%__match177833177834%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_ + _%e171581172102%_ + _%hd171582172105%_ + _%tl171583172107%_)))) + (_%__match177743177744%_ + (lambda (_%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171420171938%_)) + (gx#stx-eq? '%#quote _%hd171579172097%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171421171940%_)) - (let ((_%e171422171943%_ + (gx#stx-pair? _%tl171580172099%_)) + (let ((_%e171581172102%_ (let () (declare (not safe)) - (gx#stx-e _%tl171421171940%_)))) - (let ((_%tl171424171948%_ + (gx#stx-e _%tl171580172099%_)))) + (let ((_%tl171583172107%_ (let () (declare (not safe)) - (##cdr _%e171422171943%_))) - (_%hd171423171946%_ + (##cdr _%e171581172102%_))) + (_%hd171582172105%_ (let () (declare (not safe)) - (##car _%e171422171943%_)))) + (##car _%e171581172102%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171424171948%_)) + (gx#stx-null? _%tl171583172107%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171418171932%_)) - (_%__match177596177597%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) - (_%__match177674177675%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_)) - (_%__match177798177799%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_)))) - (_%__match177798177799%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_)) - (_%__match177798177799%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_)))) - (_%__match177516177517%_ - (lambda (_%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_ - _%e171371172064%_ - _%hd171372172067%_ - _%tl171373172069%_ - _%e171374172072%_ - _%hd171375172075%_ - _%tl171376172077%_ - _%e171377172080%_ - _%hd171378172083%_ - _%tl171379172085%_ - _%e171380172088%_ - _%hd171381172091%_ - _%tl171382172093%_ - _%__splice177309177310%_ - _%target171383172096%_ - _%tl171385172098%_) - (letrec ((_%loop171386172101%_ - (lambda (_%hd171384172104%_ - _%args171390172106%_) + _%tl171577172091%_)) + (_%__match177755177756%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_ + _%e171581172102%_ + _%hd171582172105%_ + _%tl171583172107%_) + (_%__match177833177834%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_ + _%e171578172094%_ + _%hd171579172097%_ + _%tl171580172099%_ + _%e171581172102%_ + _%hd171582172105%_ + _%tl171583172107%_)) + (_%__match177957177958%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_)))) + (_%__match177957177958%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_)) + (_%__match177957177958%_ + _%e171554172030%_ + _%hd171555172033%_ + _%tl171556172035%_ + _%e171557172038%_ + _%hd171558172041%_ + _%tl171559172043%_ + _%e171560172046%_ + _%hd171561172049%_ + _%tl171562172051%_ + _%e171563172054%_ + _%hd171564172057%_ + _%tl171565172059%_ + _%e171566172062%_ + _%hd171567172065%_ + _%tl171568172067%_ + _%e171569172070%_ + _%hd171570172073%_ + _%tl171571172075%_ + _%e171572172078%_ + _%hd171573172081%_ + _%tl171574172083%_ + _%e171575172086%_ + _%hd171576172089%_ + _%tl171577172091%_)))) + (_%__match177675177676%_ + (lambda (_%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_ + _%e171527172215%_ + _%hd171528172218%_ + _%tl171529172220%_ + _%e171530172223%_ + _%hd171531172226%_ + _%tl171532172228%_ + _%e171533172231%_ + _%hd171534172234%_ + _%tl171535172236%_ + _%e171536172239%_ + _%hd171537172242%_ + _%tl171538172244%_ + _%e171539172247%_ + _%hd171540172250%_ + _%tl171541172252%_ + _%__splice177468177469%_ + _%target171542172255%_ + _%tl171544172257%_) + (letrec ((_%loop171545172260%_ + (lambda (_%hd171543172263%_ + _%args171549172265%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171384172104%_)) - (let ((_%e171387172109%_ + (gx#stx-pair? _%hd171543172263%_)) + (let ((_%e171546172268%_ (let () (declare (not safe)) (gx#stx-e - _%hd171384172104%_)))) - (let ((_%lp-tl171389172114%_ + _%hd171543172263%_)))) + (let ((_%lp-tl171548172273%_ (let () (declare (not safe)) - (##cdr _%e171387172109%_))) - (_%lp-hd171388172112%_ + (##cdr _%e171546172268%_))) + (_%lp-hd171547172271%_ (let () (declare (not safe)) - (##car _%e171387172109%_)))) - (_%loop171386172101%_ - _%lp-tl171389172114%_ - (cons _%lp-hd171388172112%_ - _%args171390172106%_)))) - (let ((_%args171391172117%_ - (reverse _%args171390172106%_))) - (let ((_%L172120%_ - _%args171391172117%_) - (_%L172121%_ - _%hd171381172091%_) - (_%L172122%_ - _%hd171372172067%_) - (_%L172123%_ - _%hd171363172043%_) - (_%L172124%_ - _%hd171354172019%_)) + (##car _%e171546172268%_)))) + (_%loop171545172260%_ + _%lp-tl171548172273%_ + (cons _%lp-hd171547172271%_ + _%args171549172265%_)))) + (let ((_%args171550172276%_ + (reverse _%args171549172265%_))) + (let ((_%L172279%_ + _%args171550172276%_) + (_%L172280%_ + _%hd171540172250%_) + (_%L172281%_ + _%hd171531172226%_) + (_%L172282%_ + _%hd171522172202%_) + (_%L172283%_ + _%hd171513172178%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172124%_ + _%L172283%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172123%_ + _%L172282%_ 'call-method)) - (let ((__tmp177962 + (let ((__tmp178121 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172122%_ - __tmp177962))) - (_%__kont177307177308%_ - _%L172120%_ - _%L172121%_ - _%L172122%_ - _%L172123%_ - _%L172124%_) - (_%__kont177319177320%_)))))))) - (_%loop171386172101%_ _%target171383172096%_ '())))) - (_%__match177474177475%_ - (lambda (_%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_) + _%L172281%_ + __tmp178121))) + (_%__kont177466177467%_ + _%L172279%_ + _%L172280%_ + _%L172281%_ + _%L172282%_ + _%L172283%_) + (_%__kont177478177479%_)))))))) + (_%loop171545172260%_ _%target171542172255%_ '())))) + (_%__match177633177634%_ + (lambda (_%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_ + _%e171527172215%_ + _%hd171528172218%_ + _%tl171529172220%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171369172059%_)) + (gx#stx-eq? '%#ref _%hd171528172218%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171370172061%_)) - (let ((_%e171371172064%_ + (gx#stx-pair? _%tl171529172220%_)) + (let ((_%e171530172223%_ (let () (declare (not safe)) - (gx#stx-e _%tl171370172061%_)))) - (let ((_%tl171373172069%_ + (gx#stx-e _%tl171529172220%_)))) + (let ((_%tl171532172228%_ (let () (declare (not safe)) - (##cdr _%e171371172064%_))) - (_%hd171372172067%_ + (##cdr _%e171530172223%_))) + (_%hd171531172226%_ (let () (declare (not safe)) - (##car _%e171371172064%_)))) + (##car _%e171530172223%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171373172069%_)) + (gx#stx-null? _%tl171532172228%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171367172053%_)) - (let ((_%e171374172072%_ + _%tl171526172212%_)) + (let ((_%e171533172231%_ (let () (declare (not safe)) (gx#stx-e - _%tl171367172053%_)))) - (let ((_%tl171376172077%_ + _%tl171526172212%_)))) + (let ((_%tl171535172236%_ (let () (declare (not safe)) - (##cdr _%e171374172072%_))) - (_%hd171375172075%_ + (##cdr _%e171533172231%_))) + (_%hd171534172234%_ (let () (declare (not safe)) - (##car _%e171374172072%_)))) + (##car _%e171533172231%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171375172075%_)) - (let ((_%e171377172080%_ + _%hd171534172234%_)) + (let ((_%e171536172239%_ (let () (declare (not safe)) (gx#stx-e - _%hd171375172075%_)))) - (let ((_%tl171379172085%_ + _%hd171534172234%_)))) + (let ((_%tl171538172244%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171377172080%_))) - (_%hd171378172083%_ - (let () (declare (not safe)) (##car _%e171377172080%_)))) + (##cdr _%e171536172239%_))) + (_%hd171537172242%_ + (let () (declare (not safe)) (##car _%e171536172239%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171378172083%_)) + (gx#identifier? _%hd171537172242%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171378172083%_)) + (gx#stx-eq? '%#quote _%hd171537172242%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171379172085%_)) - (let ((_%e171380172088%_ + (gx#stx-pair? _%tl171538172244%_)) + (let ((_%e171539172247%_ (let () (declare (not safe)) - (gx#stx-e _%tl171379172085%_)))) - (let ((_%tl171382172093%_ + (gx#stx-e _%tl171538172244%_)))) + (let ((_%tl171541172252%_ (let () (declare (not safe)) - (##cdr _%e171380172088%_))) - (_%hd171381172091%_ + (##cdr _%e171539172247%_))) + (_%hd171540172250%_ (let () (declare (not safe)) - (##car _%e171380172088%_)))) + (##car _%e171539172247%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171382172093%_)) + (gx#stx-null? _%tl171541172252%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171376172077%_)) - (let ((_%__splice177309177310%_ + _%tl171535172236%_)) + (let ((_%__splice177468177469%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171376172077%_ + _%tl171535172236%_ '0)))) - (let ((_%tl171385172098%_ + (let ((_%tl171544172257%_ (let () (declare (not safe)) (##vector-ref - _%__splice177309177310%_ + _%__splice177468177469%_ '1))) - (_%target171383172096%_ + (_%target171542172255%_ (let () (declare (not safe)) (##vector-ref - _%__splice177309177310%_ + _%__splice177468177469%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171385172098%_)) - (_%__match177516177517%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_ - _%e171371172064%_ - _%hd171372172067%_ - _%tl171373172069%_ - _%e171374172072%_ - _%hd171375172075%_ - _%tl171376172077%_ - _%e171377172080%_ - _%hd171378172083%_ - _%tl171379172085%_ - _%e171380172088%_ - _%hd171381172091%_ - _%tl171382172093%_ - _%__splice177309177310%_ - _%target171383172096%_ - _%tl171385172098%_) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) + _%tl171544172257%_)) + (_%__match177675177676%_ + _%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_ + _%e171527172215%_ + _%hd171528172218%_ + _%tl171529172220%_ + _%e171530172223%_ + _%hd171531172226%_ + _%tl171532172228%_ + _%e171533172231%_ + _%hd171534172234%_ + _%tl171535172236%_ + _%e171536172239%_ + _%hd171537172242%_ + _%tl171538172244%_ + _%e171539172247%_ + _%hd171540172250%_ + _%tl171541172252%_ + _%__splice177468177469%_ + _%target171542172255%_ + _%tl171544172257%_) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177319177320%_)))) - (_%__match177798177799%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_)) - (_%__match177798177799%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_)))) - (_%__match177798177799%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_)) - (_%__match177584177585%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_)))) - (_%__match177406177407%_ - (lambda (_%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_ - _%__splice177305177306%_ - _%target171330172264%_ - _%tl171332172266%_) - (letrec ((_%loop171333172269%_ - (lambda (_%hd171331172272%_ - _%args171337172274%_) + (_%__kont177478177479%_)))) + (_%__match177957177958%_ + _%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_)) + (_%__match177957177958%_ + _%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_)))) + (_%__match177957177958%_ + _%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_)) + (_%__match177743177744%_ + _%e171503172151%_ + _%hd171504172154%_ + _%tl171505172156%_ + _%e171506172159%_ + _%hd171507172162%_ + _%tl171508172164%_ + _%e171509172167%_ + _%hd171510172170%_ + _%tl171511172172%_ + _%e171512172175%_ + _%hd171513172178%_ + _%tl171514172180%_ + _%e171515172183%_ + _%hd171516172186%_ + _%tl171517172188%_ + _%e171518172191%_ + _%hd171519172194%_ + _%tl171520172196%_ + _%e171521172199%_ + _%hd171522172202%_ + _%tl171523172204%_ + _%e171524172207%_ + _%hd171525172210%_ + _%tl171526172212%_ + _%e171527172215%_ + _%hd171528172218%_ + _%tl171529172220%_)))) + (_%__match177565177566%_ + (lambda (_%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_ + _%e171483172407%_ + _%hd171484172410%_ + _%tl171485172412%_ + _%e171486172415%_ + _%hd171487172418%_ + _%tl171488172420%_ + _%__splice177464177465%_ + _%target171489172423%_ + _%tl171491172425%_) + (letrec ((_%loop171492172428%_ + (lambda (_%hd171490172431%_ + _%args171496172433%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171331172272%_)) - (let ((_%e171334172277%_ + (gx#stx-pair? _%hd171490172431%_)) + (let ((_%e171493172436%_ (let () (declare (not safe)) (gx#stx-e - _%hd171331172272%_)))) - (let ((_%lp-tl171336172282%_ + _%hd171490172431%_)))) + (let ((_%lp-tl171495172441%_ (let () (declare (not safe)) - (##cdr _%e171334172277%_))) - (_%lp-hd171335172280%_ + (##cdr _%e171493172436%_))) + (_%lp-hd171494172439%_ (let () (declare (not safe)) - (##car _%e171334172277%_)))) - (_%loop171333172269%_ - _%lp-tl171336172282%_ - (cons _%lp-hd171335172280%_ - _%args171337172274%_)))) - (let ((_%args171338172285%_ - (reverse _%args171337172274%_))) - (let ((_%L172288%_ - _%args171338172285%_) - (_%L172289%_ - _%hd171328172259%_) - (_%L172290%_ - _%hd171319172235%_) - (_%L172291%_ - _%hd171310172211%_)) + (##car _%e171493172436%_)))) + (_%loop171492172428%_ + _%lp-tl171495172441%_ + (cons _%lp-hd171494172439%_ + _%args171496172433%_)))) + (let ((_%args171497172444%_ + (reverse _%args171496172433%_))) + (let ((_%L172447%_ + _%args171497172444%_) + (_%L172448%_ + _%hd171487172418%_) + (_%L172449%_ + _%hd171478172394%_) + (_%L172450%_ + _%hd171469172370%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172291%_ + _%L172450%_ 'call-method)) - (let ((__tmp177963 + (let ((__tmp178122 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self171442%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172290%_ - __tmp177963))) - (_%__kont177303177304%_ - _%L172288%_ - _%L172289%_ - _%L172290%_ - _%L172291%_) - (_%__match177594177595%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_)))))))) - (_%loop171333172269%_ _%target171330172264%_ '()))))) + _%L172449%_ + __tmp178122))) + (_%__kont177462177463%_ + _%L172447%_ + _%L172448%_ + _%L172449%_ + _%L172450%_) + (_%__match177753177754%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_ + _%e171483172407%_ + _%hd171484172410%_ + _%tl171485172412%_ + _%e171486172415%_ + _%hd171487172418%_ + _%tl171488172420%_)))))))) + (_%loop171492172428%_ _%target171489172423%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177301177302%_)) - (let ((_%e171300172184%_ + (gx#stx-pair? _%__stx177460177461%_)) + (let ((_%e171459172343%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177301177302%_)))) - (let ((_%tl171302172189%_ + (gx#stx-e _%__stx177460177461%_)))) + (let ((_%tl171461172348%_ (let () (declare (not safe)) - (##cdr _%e171300172184%_))) - (_%hd171301172187%_ + (##cdr _%e171459172343%_))) + (_%hd171460172346%_ (let () (declare (not safe)) - (##car _%e171300172184%_)))) + (##car _%e171459172343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171302172189%_)) - (let ((_%e171303172192%_ + (gx#stx-pair? _%tl171461172348%_)) + (let ((_%e171462172351%_ (let () (declare (not safe)) - (gx#stx-e _%tl171302172189%_)))) - (let ((_%tl171305172197%_ + (gx#stx-e _%tl171461172348%_)))) + (let ((_%tl171464172356%_ (let () (declare (not safe)) - (##cdr _%e171303172192%_))) - (_%hd171304172195%_ + (##cdr _%e171462172351%_))) + (_%hd171463172354%_ (let () (declare (not safe)) - (##car _%e171303172192%_)))) + (##car _%e171462172351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171304172195%_)) - (let ((_%e171306172200%_ + (gx#stx-pair? _%hd171463172354%_)) + (let ((_%e171465172359%_ (let () (declare (not safe)) - (gx#stx-e _%hd171304172195%_)))) - (let ((_%tl171308172205%_ + (gx#stx-e _%hd171463172354%_)))) + (let ((_%tl171467172364%_ (let () (declare (not safe)) - (##cdr _%e171306172200%_))) - (_%hd171307172203%_ + (##cdr _%e171465172359%_))) + (_%hd171466172362%_ (let () (declare (not safe)) - (##car _%e171306172200%_)))) + (##car _%e171465172359%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171307172203%_)) + _%hd171466172362%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171307172203%_)) + _%hd171466172362%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171308172205%_)) - (let ((_%e171309172208%_ + _%tl171467172364%_)) + (let ((_%e171468172367%_ (let () (declare (not safe)) (gx#stx-e - _%tl171308172205%_)))) - (let ((_%tl171311172213%_ + _%tl171467172364%_)))) + (let ((_%tl171470172372%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171309172208%_))) - (_%hd171310172211%_ - (let () (declare (not safe)) (##car _%e171309172208%_)))) + (##cdr _%e171468172367%_))) + (_%hd171469172370%_ + (let () (declare (not safe)) (##car _%e171468172367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171311172213%_)) + (gx#stx-null? _%tl171470172372%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171305172197%_)) - (let ((_%e171312172216%_ + (gx#stx-pair? _%tl171464172356%_)) + (let ((_%e171471172375%_ (let () (declare (not safe)) - (gx#stx-e _%tl171305172197%_)))) - (let ((_%tl171314172221%_ + (gx#stx-e _%tl171464172356%_)))) + (let ((_%tl171473172380%_ (let () (declare (not safe)) - (##cdr _%e171312172216%_))) - (_%hd171313172219%_ + (##cdr _%e171471172375%_))) + (_%hd171472172378%_ (let () (declare (not safe)) - (##car _%e171312172216%_)))) + (##car _%e171471172375%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171313172219%_)) - (let ((_%e171315172224%_ + (gx#stx-pair? _%hd171472172378%_)) + (let ((_%e171474172383%_ (let () (declare (not safe)) - (gx#stx-e _%hd171313172219%_)))) - (let ((_%tl171317172229%_ + (gx#stx-e _%hd171472172378%_)))) + (let ((_%tl171476172388%_ (let () (declare (not safe)) - (##cdr _%e171315172224%_))) - (_%hd171316172227%_ + (##cdr _%e171474172383%_))) + (_%hd171475172386%_ (let () (declare (not safe)) - (##car _%e171315172224%_)))) + (##car _%e171474172383%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171316172227%_)) + (gx#identifier? _%hd171475172386%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171316172227%_)) + _%hd171475172386%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171317172229%_)) - (let ((_%e171318172232%_ + _%tl171476172388%_)) + (let ((_%e171477172391%_ (let () (declare (not safe)) (gx#stx-e - _%tl171317172229%_)))) - (let ((_%tl171320172237%_ + _%tl171476172388%_)))) + (let ((_%tl171479172396%_ (let () (declare (not safe)) - (##cdr _%e171318172232%_))) - (_%hd171319172235%_ + (##cdr _%e171477172391%_))) + (_%hd171478172394%_ (let () (declare (not safe)) - (##car _%e171318172232%_)))) + (##car _%e171477172391%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171320172237%_)) + _%tl171479172396%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171314172221%_)) - (let ((_%e171321172240%_ + _%tl171473172380%_)) + (let ((_%e171480172399%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171314172221%_)))) - (let ((_%tl171323172245%_ + (gx#stx-e _%tl171473172380%_)))) + (let ((_%tl171482172404%_ (let () (declare (not safe)) - (##cdr _%e171321172240%_))) - (_%hd171322172243%_ + (##cdr _%e171480172399%_))) + (_%hd171481172402%_ (let () (declare (not safe)) - (##car _%e171321172240%_)))) + (##car _%e171480172399%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171322172243%_)) - (let ((_%e171324172248%_ + (gx#stx-pair? _%hd171481172402%_)) + (let ((_%e171483172407%_ (let () (declare (not safe)) - (gx#stx-e _%hd171322172243%_)))) - (let ((_%tl171326172253%_ + (gx#stx-e _%hd171481172402%_)))) + (let ((_%tl171485172412%_ (let () (declare (not safe)) - (##cdr _%e171324172248%_))) - (_%hd171325172251%_ + (##cdr _%e171483172407%_))) + (_%hd171484172410%_ (let () (declare (not safe)) - (##car _%e171324172248%_)))) + (##car _%e171483172407%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171325172251%_)) + (gx#identifier? _%hd171484172410%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd171325172251%_)) + _%hd171484172410%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171326172253%_)) - (let ((_%e171327172256%_ + _%tl171485172412%_)) + (let ((_%e171486172415%_ (let () (declare (not safe)) (gx#stx-e - _%tl171326172253%_)))) - (let ((_%tl171329172261%_ + _%tl171485172412%_)))) + (let ((_%tl171488172420%_ (let () (declare (not safe)) - (##cdr _%e171327172256%_))) - (_%hd171328172259%_ + (##cdr _%e171486172415%_))) + (_%hd171487172418%_ (let () (declare (not safe)) - (##car _%e171327172256%_)))) + (##car _%e171486172415%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171329172261%_)) + _%tl171488172420%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171323172245%_)) - (let ((_%__splice177305177306%_ + _%tl171482172404%_)) + (let ((_%__splice177464177465%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl171323172245%_ '0)))) - (let ((_%tl171332172266%_ + (gx#syntax-split-splice _%tl171482172404%_ '0)))) + (let ((_%tl171491172425%_ (let () (declare (not safe)) - (##vector-ref _%__splice177305177306%_ '1))) - (_%target171330172264%_ + (##vector-ref _%__splice177464177465%_ '1))) + (_%target171489172423%_ (let () (declare (not safe)) - (##vector-ref _%__splice177305177306%_ '0)))) + (##vector-ref _%__splice177464177465%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171332172266%_)) - (_%__match177406177407%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_ - _%__splice177305177306%_ - _%target171330172264%_ - _%tl171332172266%_) - (_%__match177594177595%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_)))) - (_%__match177594177595%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_)) + (gx#stx-null? _%tl171491172425%_)) + (_%__match177565177566%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_ + _%e171483172407%_ + _%hd171484172410%_ + _%tl171485172412%_ + _%e171486172415%_ + _%hd171487172418%_ + _%tl171488172420%_ + _%__splice177464177465%_ + _%target171489172423%_ + _%tl171491172425%_) + (_%__match177753177754%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_ + _%e171483172407%_ + _%hd171484172410%_ + _%tl171485172412%_ + _%e171486172415%_ + _%hd171487172418%_ + _%tl171488172420%_)))) + (_%__match177753177754%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_ + _%e171483172407%_ + _%hd171484172410%_ + _%tl171485172412%_ + _%e171486172415%_ + _%hd171487172418%_ + _%tl171488172420%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)))) - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)) - (_%__match177474177475%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_)) - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)))) - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)))) - (_%__match177736177737%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_)) - (_%__kont177319177320%_)))) + (_%__match177957177958%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_)))) + (_%__match177957177958%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_)) + (_%__match177633177634%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_ + _%e171483172407%_ + _%hd171484172410%_ + _%tl171485172412%_)) + (_%__match177957177958%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_)))) + (_%__match177957177958%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_ + _%e171480172399%_ + _%hd171481172402%_ + _%tl171482172404%_)))) + (_%__match177895177896%_ + _%e171459172343%_ + _%hd171460172346%_ + _%tl171461172348%_ + _%e171462172351%_ + _%hd171463172354%_ + _%tl171464172356%_ + _%e171465172359%_ + _%hd171466172362%_ + _%tl171467172364%_ + _%e171468172367%_ + _%hd171469172370%_ + _%tl171470172372%_ + _%e171471172375%_ + _%hd171472172378%_ + _%tl171473172380%_ + _%e171474172383%_ + _%hd171475172386%_ + _%tl171476172388%_ + _%e171477172391%_ + _%hd171478172394%_ + _%tl171479172396%_)) + (_%__kont177478177479%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177319177320%_)) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177319177320%_)) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))))))))) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)))) + (_%__kont177478177479%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index 93dfe8dd4..f9044b41a 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]#_g177965_| + (define |gxc[1]#_g178124_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177967_| + (define |gxc[1]#_g178126_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177969_| + (define |gxc[1]#_g178128_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177971_| + (define |gxc[1]#_g178130_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177973_| + (define |gxc[1]#_g178132_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177975_| + (define |gxc[1]#_g178134_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177977_| + (define |gxc[1]#_g178136_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177979_| + (define |gxc[1]#_g178138_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177981_| + (define |gxc[1]#_g178140_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177983_| + (define |gxc[1]#_g178142_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177985_| + (define |gxc[1]#_g178144_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177987_| + (define |gxc[1]#_g178146_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177989_| + (define |gxc[1]#_g178148_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177990_| + (define |gxc[1]#_g178149_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177991_| + (define |gxc[1]#_g178150_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177993_| + (define |gxc[1]#_g178152_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177994_| + (define |gxc[1]#_g178153_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177995_| + (define |gxc[1]#_g178154_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177997_| + (define |gxc[1]#_g178156_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177998_| + (define |gxc[1]#_g178157_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177999_| + (define |gxc[1]#_g178158_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178001_| + (define |gxc[1]#_g178160_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178002_| + (define |gxc[1]#_g178161_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178003_| + (define |gxc[1]#_g178162_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178005_| + (define |gxc[1]#_g178164_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178007_| + (define |gxc[1]#_g178166_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178009_| + (define |gxc[1]#_g178168_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178011_| + (define |gxc[1]#_g178170_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178013_| + (define |gxc[1]#_g178172_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178014_| + (define |gxc[1]#_g178173_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178015_| + (define |gxc[1]#_g178174_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178016_| + (define |gxc[1]#_g178175_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178018_| + (define |gxc[1]#_g178177_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178019_| + (define |gxc[1]#_g178178_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178020_| + (define |gxc[1]#_g178179_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178021_| + (define |gxc[1]#_g178180_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178023_| + (define |gxc[1]#_g178182_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178024_| + (define |gxc[1]#_g178183_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178025_| + (define |gxc[1]#_g178184_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178026_| + (define |gxc[1]#_g178185_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178028_| + (define |gxc[1]#_g178187_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178029_| + (define |gxc[1]#_g178188_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178030_| + (define |gxc[1]#_g178189_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178031_| + (define |gxc[1]#_g178190_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj177802 + (let ((__obj177961 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177802 + __obj177961 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177802 + __obj177961 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '6 '#f '#f)) - (let ((__tmp177964 (cons |gxc[1]#_g177965_| '()))) + (##unchecked-structure-set! __obj177961 '() '6 '#f '#f)) + (let ((__tmp178123 (cons |gxc[1]#_g178124_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177964 '3 '#f '#f)) + (##unchecked-structure-set! __obj177961 __tmp178123 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177961 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177961 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177961 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#f '11 '#f '#f)) - (let ((__tmp177966 |gxc[1]#_g177967_|)) + (##unchecked-structure-set! __obj177961 '#f '11 '#f '#f)) + (let ((__tmp178125 |gxc[1]#_g178126_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177966 '12 '#f '#f)) - (let ((__tmp177968 |gxc[1]#_g177969_|)) + (##unchecked-structure-set! __obj177961 __tmp178125 '12 '#f '#f)) + (let ((__tmp178127 |gxc[1]#_g178128_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177968 '13 '#f '#f)) - (let ((__tmp177970 |gxc[1]#_g177971_|)) + (##unchecked-structure-set! __obj177961 __tmp178127 '13 '#f '#f)) + (let ((__tmp178129 |gxc[1]#_g178130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177970 '14 '#f '#f)) + (##unchecked-structure-set! __obj177961 __tmp178129 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177961 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '20 '#f '#f)) - __obj177802)) + (##unchecked-structure-set! __obj177961 '() '20 '#f '#f)) + __obj177961)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj177804 + (let ((__obj177963 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177804 + __obj177963 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177804 + __obj177963 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '6 '#f '#f)) - (let ((__tmp177972 (cons |gxc[1]#_g177973_| '()))) + (##unchecked-structure-set! __obj177963 '() '6 '#f '#f)) + (let ((__tmp178131 (cons |gxc[1]#_g178132_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177972 '3 '#f '#f)) + (##unchecked-structure-set! __obj177963 __tmp178131 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177963 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177963 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177963 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#f '11 '#f '#f)) - (let ((__tmp177974 |gxc[1]#_g177975_|)) + (##unchecked-structure-set! __obj177963 '#f '11 '#f '#f)) + (let ((__tmp178133 |gxc[1]#_g178134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177974 '12 '#f '#f)) - (let ((__tmp177976 |gxc[1]#_g177977_|)) + (##unchecked-structure-set! __obj177963 __tmp178133 '12 '#f '#f)) + (let ((__tmp178135 |gxc[1]#_g178136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177976 '13 '#f '#f)) - (let ((__tmp177978 |gxc[1]#_g177979_|)) + (##unchecked-structure-set! __obj177963 __tmp178135 '13 '#f '#f)) + (let ((__tmp178137 |gxc[1]#_g178138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177978 '14 '#f '#f)) + (##unchecked-structure-set! __obj177963 __tmp178137 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177963 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '20 '#f '#f)) - __obj177804)) + (##unchecked-structure-set! __obj177963 '() '20 '#f '#f)) + __obj177963)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj177806 + (let ((__obj177965 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj177965 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj177965 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj177965 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj177965 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp177980 (cons |gxc[1]#_g177981_| '()))) + (let ((__tmp178139 (cons |gxc[1]#_g178140_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177980 '3 '#f '#f)) + (##unchecked-structure-set! __obj177965 __tmp178139 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177965 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177965 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177965 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#f '11 '#f '#f)) - (let ((__tmp177982 |gxc[1]#_g177983_|)) + (##unchecked-structure-set! __obj177965 '#f '11 '#f '#f)) + (let ((__tmp178141 |gxc[1]#_g178142_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177982 '12 '#f '#f)) - (let ((__tmp177984 |gxc[1]#_g177985_|)) + (##unchecked-structure-set! __obj177965 __tmp178141 '12 '#f '#f)) + (let ((__tmp178143 |gxc[1]#_g178144_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177984 '13 '#f '#f)) - (let ((__tmp177986 |gxc[1]#_g177987_|)) + (##unchecked-structure-set! __obj177965 __tmp178143 '13 '#f '#f)) + (let ((__tmp178145 |gxc[1]#_g178146_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177986 '14 '#f '#f)) - (let ((__tmp177988 - (cons (cons 'receiver |gxc[1]#_g177989_|) - (cons (cons 'methods |gxc[1]#_g177990_|) - (cons (cons 'slots |gxc[1]#_g177991_|) '()))))) + (##unchecked-structure-set! __obj177965 __tmp178145 '14 '#f '#f)) + (let ((__tmp178147 + (cons (cons 'receiver |gxc[1]#_g178148_|) + (cons (cons 'methods |gxc[1]#_g178149_|) + (cons (cons 'slots |gxc[1]#_g178150_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177988 '15 '#f '#f)) - (let ((__tmp177992 - (cons (cons 'receiver |gxc[1]#_g177993_|) - (cons (cons 'methods |gxc[1]#_g177994_|) - (cons (cons 'slots |gxc[1]#_g177995_|) '()))))) + (##unchecked-structure-set! __obj177965 __tmp178147 '15 '#f '#f)) + (let ((__tmp178151 + (cons (cons 'receiver |gxc[1]#_g178152_|) + (cons (cons 'methods |gxc[1]#_g178153_|) + (cons (cons 'slots |gxc[1]#_g178154_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177992 '16 '#f '#f)) - (let ((__tmp177996 - (cons (cons 'receiver |gxc[1]#_g177997_|) - (cons (cons 'methods |gxc[1]#_g177998_|) - (cons (cons 'slots |gxc[1]#_g177999_|) '()))))) + (##unchecked-structure-set! __obj177965 __tmp178151 '16 '#f '#f)) + (let ((__tmp178155 + (cons (cons 'receiver |gxc[1]#_g178156_|) + (cons (cons 'methods |gxc[1]#_g178157_|) + (cons (cons 'slots |gxc[1]#_g178158_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177996 '17 '#f '#f)) - (let ((__tmp178000 - (cons (cons 'receiver |gxc[1]#_g178001_|) - (cons (cons 'methods |gxc[1]#_g178002_|) - (cons (cons 'slots |gxc[1]#_g178003_|) '()))))) + (##unchecked-structure-set! __obj177965 __tmp178155 '17 '#f '#f)) + (let ((__tmp178159 + (cons (cons 'receiver |gxc[1]#_g178160_|) + (cons (cons 'methods |gxc[1]#_g178161_|) + (cons (cons 'slots |gxc[1]#_g178162_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp178000 '18 '#f '#f)) + (##unchecked-structure-set! __obj177965 __tmp178159 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177965 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177965 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '() '20 '#f '#f)) - __obj177806)) + (##unchecked-structure-set! __obj177965 '() '20 '#f '#f)) + __obj177965)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj177808 + (let ((__obj177967 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj177967 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj177967 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj177967 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj177967 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp178004 (cons |gxc[1]#_g178005_| '()))) + (let ((__tmp178163 (cons |gxc[1]#_g178164_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178004 '3 '#f '#f)) + (##unchecked-structure-set! __obj177967 __tmp178163 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177967 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177967 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177967 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#f '11 '#f '#f)) - (let ((__tmp178006 |gxc[1]#_g178007_|)) + (##unchecked-structure-set! __obj177967 '#f '11 '#f '#f)) + (let ((__tmp178165 |gxc[1]#_g178166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178006 '12 '#f '#f)) - (let ((__tmp178008 |gxc[1]#_g178009_|)) + (##unchecked-structure-set! __obj177967 __tmp178165 '12 '#f '#f)) + (let ((__tmp178167 |gxc[1]#_g178168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178008 '13 '#f '#f)) - (let ((__tmp178010 |gxc[1]#_g178011_|)) + (##unchecked-structure-set! __obj177967 __tmp178167 '13 '#f '#f)) + (let ((__tmp178169 |gxc[1]#_g178170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178010 '14 '#f '#f)) - (let ((__tmp178012 - (cons (cons 'receiver |gxc[1]#_g178013_|) - (cons (cons 'klass |gxc[1]#_g178014_|) - (cons (cons 'methods |gxc[1]#_g178015_|) - (cons (cons 'slots |gxc[1]#_g178016_|) + (##unchecked-structure-set! __obj177967 __tmp178169 '14 '#f '#f)) + (let ((__tmp178171 + (cons (cons 'receiver |gxc[1]#_g178172_|) + (cons (cons 'klass |gxc[1]#_g178173_|) + (cons (cons 'methods |gxc[1]#_g178174_|) + (cons (cons 'slots |gxc[1]#_g178175_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178012 '15 '#f '#f)) - (let ((__tmp178017 - (cons (cons 'receiver |gxc[1]#_g178018_|) - (cons (cons 'klass |gxc[1]#_g178019_|) - (cons (cons 'methods |gxc[1]#_g178020_|) - (cons (cons 'slots |gxc[1]#_g178021_|) + (##unchecked-structure-set! __obj177967 __tmp178171 '15 '#f '#f)) + (let ((__tmp178176 + (cons (cons 'receiver |gxc[1]#_g178177_|) + (cons (cons 'klass |gxc[1]#_g178178_|) + (cons (cons 'methods |gxc[1]#_g178179_|) + (cons (cons 'slots |gxc[1]#_g178180_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178017 '16 '#f '#f)) - (let ((__tmp178022 - (cons (cons 'receiver |gxc[1]#_g178023_|) - (cons (cons 'klass |gxc[1]#_g178024_|) - (cons (cons 'methods |gxc[1]#_g178025_|) - (cons (cons 'slots |gxc[1]#_g178026_|) + (##unchecked-structure-set! __obj177967 __tmp178176 '16 '#f '#f)) + (let ((__tmp178181 + (cons (cons 'receiver |gxc[1]#_g178182_|) + (cons (cons 'klass |gxc[1]#_g178183_|) + (cons (cons 'methods |gxc[1]#_g178184_|) + (cons (cons 'slots |gxc[1]#_g178185_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178022 '17 '#f '#f)) - (let ((__tmp178027 - (cons (cons 'receiver |gxc[1]#_g178028_|) - (cons (cons 'klass |gxc[1]#_g178029_|) - (cons (cons 'methods |gxc[1]#_g178030_|) - (cons (cons 'slots |gxc[1]#_g178031_|) + (##unchecked-structure-set! __obj177967 __tmp178181 '17 '#f '#f)) + (let ((__tmp178186 + (cons (cons 'receiver |gxc[1]#_g178187_|) + (cons (cons 'klass |gxc[1]#_g178188_|) + (cons (cons 'methods |gxc[1]#_g178189_|) + (cons (cons 'slots |gxc[1]#_g178190_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178027 '18 '#f '#f)) + (##unchecked-structure-set! __obj177967 __tmp178186 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177967 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177967 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '() '20 '#f '#f)) - __obj177808)))) + (##unchecked-structure-set! __obj177967 '() '20 '#f '#f)) + __obj177967)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 9e8ac5508..69c3d8b0d 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 1713631268) + (define gerbil/compiler/optimize-top::timestamp 1733687561) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp170851 (list gxc#::void::t)) - (__tmp170850 (cons (cons 'final: '#t) '()))) + (let ((__tmp171010 (list gxc#::void::t)) + (__tmp171009 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp170851 + __tmp171010 '() - __tmp170850 + __tmp171009 '#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 _%$args167793%_ + (lambda _%$args167952%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args167793%_))) + _%$args167952%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp170852 + (let ((__tmp171011 (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 __tmp170852))) + (__make-promise __tmp171011))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx167785%_) + (lambda (_%stx167944%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self167788%_ - (let ((__obj170797 + (let* ((_%self167947%_ + (let ((__obj170956 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj170797)) - (__tmp170853 + __obj170956)) + (__tmp171012 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167788%_ _%stx167785%_))))) + (gxc#compile-e__1 _%self167947%_ _%stx167944%_))))) (declare (not safe)) (__call-with-parameters - __tmp170853 + __tmp171012 gxc#current-compile-method - _%self167788%_)))) + _%self167947%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp170855 (list gxc#::void::t)) - (__tmp170854 (cons (cons 'final: '#t) '()))) + (let ((__tmp171014 (list gxc#::void::t)) + (__tmp171013 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp170855 + __tmp171014 '() - __tmp170854 + __tmp171013 '#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 _%$args167782%_ + (lambda _%$args167941%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args167782%_))) + _%$args167941%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp170856 + (let ((__tmp171015 (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 __tmp170856))) + (__make-promise __tmp171015))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx167774%_) + (lambda (_%stx167933%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self167777%_ - (let ((__obj170799 + (let* ((_%self167936%_ + (let ((__obj170958 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj170799)) - (__tmp170857 + __obj170958)) + (__tmp171016 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167777%_ _%stx167774%_))))) + (gxc#compile-e__1 _%self167936%_ _%stx167933%_))))) (declare (not safe)) (__call-with-parameters - __tmp170857 + __tmp171016 gxc#current-compile-method - _%self167777%_)))) + _%self167936%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp170859 (list gxc#::false::t)) - (__tmp170858 (cons (cons 'final: '#t) '()))) + (let ((__tmp171018 (list gxc#::false::t)) + (__tmp171017 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp170859 + __tmp171018 '() - __tmp170858 + __tmp171017 '#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 _%$args167771%_ + (lambda _%$args167930%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args167771%_))) + _%$args167930%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp170860 + (let ((__tmp171019 (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 __tmp170860))) + (__make-promise __tmp171019))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx167763%_) + (lambda (_%stx167922%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self167766%_ - (let ((__obj170801 + (let* ((_%self167925%_ + (let ((__obj170960 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj170801)) - (__tmp170861 + __obj170960)) + (__tmp171020 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167766%_ _%stx167763%_))))) + (gxc#compile-e__1 _%self167925%_ _%stx167922%_))))) (declare (not safe)) (__call-with-parameters - __tmp170861 + __tmp171020 gxc#current-compile-method - _%self167766%_)))) + _%self167925%_)))) (define gxc#::collect-type-info::t - (let ((__tmp170863 (list gxc#::void::t)) - (__tmp170862 (cons (cons 'final: '#t) '()))) + (let ((__tmp171022 (list gxc#::void::t)) + (__tmp171021 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp170863 + __tmp171022 '() - __tmp170862 + __tmp171021 '#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 _%$args167760%_ - (apply make-instance gxc#::collect-type-info::t _%$args167760%_))) + (lambda _%$args167919%_ + (apply make-instance gxc#::collect-type-info::t _%$args167919%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp170864 + (let ((__tmp171023 (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 __tmp170864))) + (__make-promise __tmp171023))) (define gxc#apply-collect-type-info - (lambda (_%stx167752%_) + (lambda (_%stx167911%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self167755%_ - (let ((__obj170803 + (let* ((_%self167914%_ + (let ((__obj170962 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj170803)) - (__tmp170865 + __obj170962)) + (__tmp171024 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167755%_ _%stx167752%_))))) + (gxc#compile-e__1 _%self167914%_ _%stx167911%_))))) (declare (not safe)) (__call-with-parameters - __tmp170865 + __tmp171024 gxc#current-compile-method - _%self167755%_)))) + _%self167914%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp170867 (list gxc#::void::t)) - (__tmp170866 (cons (cons 'final: '#t) '()))) + (let ((__tmp171026 (list gxc#::void::t)) + (__tmp171025 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp170867 + __tmp171026 '() - __tmp170866 + __tmp171025 '#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 _%$args167749%_ + (lambda _%$args167908%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args167749%_))) + _%$args167908%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp170868 + (let ((__tmp171027 (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 __tmp170868))) + (__make-promise __tmp171027))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx167741%_) + (lambda (_%stx167900%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self167744%_ - (let ((__obj170805 + (let* ((_%self167903%_ + (let ((__obj170964 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj170805)) - (__tmp170869 + __obj170964)) + (__tmp171028 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167744%_ _%stx167741%_))))) + (gxc#compile-e__1 _%self167903%_ _%stx167900%_))))) (declare (not safe)) (__call-with-parameters - __tmp170869 + __tmp171028 gxc#current-compile-method - _%self167744%_)))) + _%self167903%_)))) (define gxc#::refine-type-info::t - (let ((__tmp170871 (list gxc#::void::t)) - (__tmp170870 (cons (cons 'final: '#t) '()))) + (let ((__tmp171030 (list gxc#::void::t)) + (__tmp171029 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp170871 + __tmp171030 '() - __tmp170870 + __tmp171029 '#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 _%$args167738%_ - (apply make-instance gxc#::refine-type-info::t _%$args167738%_))) + (lambda _%$args167897%_ + (apply make-instance gxc#::refine-type-info::t _%$args167897%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp170872 + (let ((__tmp171031 (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 __tmp170872))) + (__make-promise __tmp171031))) (define gxc#apply-refine-type-info - (lambda (_%stx167730%_) + (lambda (_%stx167889%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self167733%_ - (let ((__obj170807 + (let* ((_%self167892%_ + (let ((__obj170966 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj170807)) - (__tmp170873 + __obj170966)) + (__tmp171032 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167733%_ _%stx167730%_))))) + (gxc#compile-e__1 _%self167892%_ _%stx167889%_))))) (declare (not safe)) (__call-with-parameters - __tmp170873 + __tmp171032 gxc#current-compile-method - _%self167733%_)))) + _%self167892%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp170874 (list gxc#::false::t))) + (let ((__tmp171033 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp170874 + __tmp171033 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args167727%_ - (apply make-instance gxc#::raw-expression-type::t _%$args167727%_))) + (lambda _%$args167886%_ + (apply make-instance gxc#::raw-expression-type::t _%$args167886%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp170875 + (let ((__tmp171034 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp170875))) + (__make-promise __tmp171034))) (define gxc#apply-raw-expression-type - (lambda (_%stx167719%_) + (lambda (_%stx167878%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self167722%_ - (let ((__obj170809 + (let* ((_%self167881%_ + (let ((__obj170968 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj170809)) - (__tmp170876 + __obj170968)) + (__tmp171035 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167722%_ _%stx167719%_))))) + (gxc#compile-e__1 _%self167881%_ _%stx167878%_))))) (declare (not safe)) (__call-with-parameters - __tmp170876 + __tmp171035 gxc#current-compile-method - _%self167722%_)))) + _%self167881%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp170878 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp170877 (cons (cons 'final: '#t) '()))) + (let ((__tmp171037 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp171036 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp170878 + __tmp171037 '() - __tmp170877 + __tmp171036 '#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 _%$args167716%_ - (apply make-instance gxc#::basic-expression-type::t _%$args167716%_))) + (lambda _%$args167875%_ + (apply make-instance gxc#::basic-expression-type::t _%$args167875%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp170879 + (let ((__tmp171038 (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 __tmp170879))) + (__make-promise __tmp171038))) (define gxc#apply-basic-expression-type - (lambda (_%stx167708%_) + (lambda (_%stx167867%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self167711%_ - (let ((__obj170811 + (let* ((_%self167870%_ + (let ((__obj170970 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj170811)) - (__tmp170880 + __obj170970)) + (__tmp171039 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167711%_ _%stx167708%_))))) + (gxc#compile-e__1 _%self167870%_ _%stx167867%_))))) (declare (not safe)) (__call-with-parameters - __tmp170880 + __tmp171039 gxc#current-compile-method - _%self167711%_)))) + _%self167870%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp170882 (list gxc#::basic-xform::t)) - (__tmp170881 (cons (cons 'final: '#t) '()))) + (let ((__tmp171041 (list gxc#::basic-xform::t)) + (__tmp171040 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp170882 + __tmp171041 '() - __tmp170881 + __tmp171040 '#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 _%$args167705%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args167705%_))) + (lambda _%$args167864%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args167864%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp170883 + (let ((__tmp171042 (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 __tmp170883))) + (__make-promise __tmp171042))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx167697%_) + (lambda (_%stx167856%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self167700%_ - (let ((__obj170813 + (let* ((_%self167859%_ + (let ((__obj170972 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj170813)) - (__tmp170884 + __obj170972)) + (__tmp171043 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167700%_ _%stx167697%_))))) + (gxc#compile-e__1 _%self167859%_ _%stx167856%_))))) (declare (not safe)) (__call-with-parameters - __tmp170884 + __tmp171043 gxc#current-compile-method - _%self167700%_)))) + _%self167859%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp170886 (list gxc#::false::t)) - (__tmp170885 (cons (cons 'final: '#t) '()))) + (let ((__tmp171045 (list gxc#::false::t)) + (__tmp171044 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp170886 + __tmp171045 '() - __tmp170885 + __tmp171044 '#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 _%$args167694%_ + (lambda _%$args167853%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args167694%_))) + _%$args167853%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp170887 + (let ((__tmp171046 (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 __tmp170887))) + (__make-promise __tmp171046))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx167686%_) + (lambda (_%stx167845%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self167689%_ - (let ((__obj170815 + (let* ((_%self167848%_ + (let ((__obj170974 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj170815)) - (__tmp170888 + __obj170974)) + (__tmp171047 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167689%_ _%stx167686%_))))) + (gxc#compile-e__1 _%self167848%_ _%stx167845%_))))) (declare (not safe)) (__call-with-parameters - __tmp170888 + __tmp171047 gxc#current-compile-method - _%self167689%_)))) + _%self167848%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self167588%_ _%stx167589%_) - (let* ((_%__stx167806167807%_ _%stx167589%_) - (_%g167592167612%_ + (lambda (_%self167747%_ _%stx167748%_) + (let* ((_%__stx167965167966%_ _%stx167748%_) + (_%g167751167771%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167806167807%_))))) - (let ((_%__kont167808167809%_ - (lambda (_%L167656%_ _%L167657%_) - (let ((_%sym167675%_ + _%__stx167965167966%_))))) + (let ((_%__kont167967167968%_ + (lambda (_%L167815%_ _%L167816%_) + (let ((_%sym167834%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167657%_)))) + (gxc#identifier-symbol _%L167816%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167588%_ _%L167656%_)) - (let ((_%type167676167678%_ + (gxc#compile-e__1 _%self167747%_ _%L167815%_)) + (let ((_%type167835167837%_ (gxc#apply-basic-expression-top-level-type - _%L167656%_))) - (if _%type167676167678%_ - (let ((_%type167681%_ _%type167676167678%_)) + _%L167815%_))) + (if _%type167835167837%_ + (let ((_%type167840%_ _%type167835167837%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167681%_ + _%type167840%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp170889 + (let ((__tmp171048 (let () (declare (not safe)) (##unchecked-structure-ref - _%type167681%_ + _%type167840%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym167675%_ - __tmp170889)) - (let ((__tmp170890 + _%sym167834%_ + __tmp171048)) + (let ((__tmp171049 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167589%_ + _%stx167748%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167675%_ - __tmp170890))) + _%sym167834%_ + __tmp171049))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167675%_ - _%type167681%_)))) + _%sym167834%_ + _%type167840%_)))) '#f))))) - (_%__kont167810167811%_ (lambda () '#!void))) - (let ((_%__match167839167840%_ - (lambda (_%e167596167624%_ - _%hd167597167627%_ - _%tl167598167629%_ - _%e167599167632%_ - _%hd167600167635%_ - _%tl167601167637%_ - _%e167602167640%_ - _%hd167603167643%_ - _%tl167604167645%_ - _%e167605167648%_ - _%hd167606167651%_ - _%tl167607167653%_) - (let ((_%L167656%_ _%hd167606167651%_) - (_%L167657%_ _%hd167603167643%_)) + (_%__kont167969167970%_ (lambda () '#!void))) + (let ((_%__match167998167999%_ + (lambda (_%e167755167783%_ + _%hd167756167786%_ + _%tl167757167788%_ + _%e167758167791%_ + _%hd167759167794%_ + _%tl167760167796%_ + _%e167761167799%_ + _%hd167762167802%_ + _%tl167763167804%_ + _%e167764167807%_ + _%hd167765167810%_ + _%tl167766167812%_) + (let ((_%L167815%_ _%hd167765167810%_) + (_%L167816%_ _%hd167762167802%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167657%_)) - (_%__kont167808167809%_ _%L167656%_ _%L167657%_) - (_%__kont167810167811%_)))))) + (gx#identifier? _%L167816%_)) + (_%__kont167967167968%_ _%L167815%_ _%L167816%_) + (_%__kont167969167970%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167806167807%_)) - (let ((_%e167596167624%_ + (gx#stx-pair? _%__stx167965167966%_)) + (let ((_%e167755167783%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167806167807%_)))) - (let ((_%tl167598167629%_ + (gx#stx-e _%__stx167965167966%_)))) + (let ((_%tl167757167788%_ (let () (declare (not safe)) - (##cdr _%e167596167624%_))) - (_%hd167597167627%_ + (##cdr _%e167755167783%_))) + (_%hd167756167786%_ (let () (declare (not safe)) - (##car _%e167596167624%_)))) + (##car _%e167755167783%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167598167629%_)) - (let ((_%e167599167632%_ + (gx#stx-pair? _%tl167757167788%_)) + (let ((_%e167758167791%_ (let () (declare (not safe)) - (gx#stx-e _%tl167598167629%_)))) - (let ((_%tl167601167637%_ + (gx#stx-e _%tl167757167788%_)))) + (let ((_%tl167760167796%_ (let () (declare (not safe)) - (##cdr _%e167599167632%_))) - (_%hd167600167635%_ + (##cdr _%e167758167791%_))) + (_%hd167759167794%_ (let () (declare (not safe)) - (##car _%e167599167632%_)))) + (##car _%e167758167791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167600167635%_)) - (let ((_%e167602167640%_ + (gx#stx-pair? _%hd167759167794%_)) + (let ((_%e167761167799%_ (let () (declare (not safe)) - (gx#stx-e _%hd167600167635%_)))) - (let ((_%tl167604167645%_ + (gx#stx-e _%hd167759167794%_)))) + (let ((_%tl167763167804%_ (let () (declare (not safe)) - (##cdr _%e167602167640%_))) - (_%hd167603167643%_ + (##cdr _%e167761167799%_))) + (_%hd167762167802%_ (let () (declare (not safe)) - (##car _%e167602167640%_)))) + (##car _%e167761167799%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167604167645%_)) + (gx#stx-null? _%tl167763167804%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167601167637%_)) - (let ((_%e167605167648%_ + _%tl167760167796%_)) + (let ((_%e167764167807%_ (let () (declare (not safe)) (gx#stx-e - _%tl167601167637%_)))) - (let ((_%tl167607167653%_ + _%tl167760167796%_)))) + (let ((_%tl167766167812%_ (let () (declare (not safe)) - (##cdr _%e167605167648%_))) - (_%hd167606167651%_ + (##cdr _%e167764167807%_))) + (_%hd167765167810%_ (let () (declare (not safe)) - (##car _%e167605167648%_)))) + (##car _%e167764167807%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167607167653%_)) - (_%__match167839167840%_ - _%e167596167624%_ - _%hd167597167627%_ - _%tl167598167629%_ - _%e167599167632%_ - _%hd167600167635%_ - _%tl167601167637%_ - _%e167602167640%_ - _%hd167603167643%_ - _%tl167604167645%_ - _%e167605167648%_ - _%hd167606167651%_ - _%tl167607167653%_) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_)) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_))))))) + _%tl167766167812%_)) + (_%__match167998167999%_ + _%e167755167783%_ + _%hd167756167786%_ + _%tl167757167788%_ + _%e167758167791%_ + _%hd167759167794%_ + _%tl167760167796%_ + _%e167761167799%_ + _%hd167762167802%_ + _%tl167763167804%_ + _%e167764167807%_ + _%hd167765167810%_ + _%tl167766167812%_) + (_%__kont167969167970%_)))) + (_%__kont167969167970%_)) + (_%__kont167969167970%_)))) + (_%__kont167969167970%_)))) + (_%__kont167969167970%_)))) + (_%__kont167969167970%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self167410%_ _%stx167411%_) - (let* ((_%__stx167842167843%_ _%stx167411%_) - (_%g167414167454%_ + (lambda (_%self167569%_ _%stx167570%_) + (let* ((_%__stx168001168002%_ _%stx167570%_) + (_%g167573167613%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167842167843%_))))) - (let ((_%__kont167844167845%_ - (lambda (_%L167560%_ _%L167561%_) - (let ((_%type167583%_ - (let ((__tmp170891 + _%__stx168001168002%_))))) + (let ((_%__kont168003168004%_ + (lambda (_%L167719%_ _%L167720%_) + (let ((_%type167742%_ + (let ((__tmp171050 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167561%_)))) + (gxc#identifier-symbol _%L167720%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp170891)))) + (gxc#optimizer-lookup-type __tmp171050)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167583%_ + _%type167742%_ 'gxc#!lambda::t)) - (let ((__tmp170892 - (gxc#eval-in-ssxi-context _%L167560%_))) + (let ((__tmp171051 + (gxc#eval-in-ssxi-context _%L167719%_))) (declare (not safe)) (##unchecked-structure-set! - _%type167583%_ - __tmp170892 + _%type167742%_ + __tmp171051 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx167411%_ - _%L167561%_)))))) - (_%__kont167846167847%_ - (lambda (_%L167483%_ _%L167484%_) '#!void))) + _%stx167570%_ + _%L167720%_)))))) + (_%__kont168005168006%_ + (lambda (_%L167642%_ _%L167643%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167842167843%_)) - (let ((_%e167418167504%_ + (gx#stx-pair? _%__stx168001168002%_)) + (let ((_%e167577167663%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167842167843%_)))) - (let ((_%tl167420167509%_ + (gx#stx-e _%__stx168001168002%_)))) + (let ((_%tl167579167668%_ (let () (declare (not safe)) - (##cdr _%e167418167504%_))) - (_%hd167419167507%_ + (##cdr _%e167577167663%_))) + (_%hd167578167666%_ (let () (declare (not safe)) - (##car _%e167418167504%_)))) + (##car _%e167577167663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167420167509%_)) - (let ((_%e167421167512%_ + (gx#stx-pair? _%tl167579167668%_)) + (let ((_%e167580167671%_ (let () (declare (not safe)) - (gx#stx-e _%tl167420167509%_)))) - (let ((_%tl167423167517%_ + (gx#stx-e _%tl167579167668%_)))) + (let ((_%tl167582167676%_ (let () (declare (not safe)) - (##cdr _%e167421167512%_))) - (_%hd167422167515%_ + (##cdr _%e167580167671%_))) + (_%hd167581167674%_ (let () (declare (not safe)) - (##car _%e167421167512%_)))) + (##car _%e167580167671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167422167515%_)) - (let ((_%e167424167520%_ + (gx#stx-pair? _%hd167581167674%_)) + (let ((_%e167583167679%_ (let () (declare (not safe)) - (gx#stx-e _%hd167422167515%_)))) - (let ((_%tl167426167525%_ + (gx#stx-e _%hd167581167674%_)))) + (let ((_%tl167585167684%_ (let () (declare (not safe)) - (##cdr _%e167424167520%_))) - (_%hd167425167523%_ + (##cdr _%e167583167679%_))) + (_%hd167584167682%_ (let () (declare (not safe)) - (##car _%e167424167520%_)))) + (##car _%e167583167679%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167425167523%_)) + (gx#identifier? _%hd167584167682%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd167425167523%_)) + _%hd167584167682%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167426167525%_)) - (let ((_%e167427167528%_ + _%tl167585167684%_)) + (let ((_%e167586167687%_ (let () (declare (not safe)) (gx#stx-e - _%tl167426167525%_)))) - (let ((_%tl167429167533%_ + _%tl167585167684%_)))) + (let ((_%tl167588167692%_ (let () (declare (not safe)) - (##cdr _%e167427167528%_))) - (_%hd167428167531%_ + (##cdr _%e167586167687%_))) + (_%hd167587167690%_ (let () (declare (not safe)) - (##car _%e167427167528%_)))) + (##car _%e167586167687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167429167533%_)) + _%tl167588167692%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167430167536%_ + _%tl167582167676%_)) + (let ((_%e167589167695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl167423167517%_)))) - (let ((_%tl167432167541%_ + (gx#stx-e _%tl167582167676%_)))) + (let ((_%tl167591167700%_ (let () (declare (not safe)) - (##cdr _%e167430167536%_))) - (_%hd167431167539%_ + (##cdr _%e167589167695%_))) + (_%hd167590167698%_ (let () (declare (not safe)) - (##car _%e167430167536%_)))) + (##car _%e167589167695%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167431167539%_)) - (let ((_%e167433167544%_ + (gx#stx-pair? _%hd167590167698%_)) + (let ((_%e167592167703%_ (let () (declare (not safe)) - (gx#stx-e _%hd167431167539%_)))) - (let ((_%tl167435167549%_ + (gx#stx-e _%hd167590167698%_)))) + (let ((_%tl167594167708%_ (let () (declare (not safe)) - (##cdr _%e167433167544%_))) - (_%hd167434167547%_ + (##cdr _%e167592167703%_))) + (_%hd167593167706%_ (let () (declare (not safe)) - (##car _%e167433167544%_)))) + (##car _%e167592167703%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167434167547%_)) + (gx#identifier? _%hd167593167706%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd167434167547%_)) + _%hd167593167706%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167435167549%_)) - (let ((_%e167436167552%_ + _%tl167594167708%_)) + (let ((_%e167595167711%_ (let () (declare (not safe)) (gx#stx-e - _%tl167435167549%_)))) - (let ((_%tl167438167557%_ + _%tl167594167708%_)))) + (let ((_%tl167597167716%_ (let () (declare (not safe)) - (##cdr _%e167436167552%_))) - (_%hd167437167555%_ + (##cdr _%e167595167711%_))) + (_%hd167596167714%_ (let () (declare (not safe)) - (##car _%e167436167552%_)))) + (##car _%e167595167711%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167438167557%_)) + _%tl167597167716%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167844167845%_ - _%hd167437167555%_ - _%hd167428167531%_) + _%tl167591167700%_)) + (_%__kont168003168004%_ + _%hd167596167714%_ + _%hd167587167690%_) (let () (declare (not safe)) - (_%g167414167454%_))) + (_%g167573167613%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + _%tl167591167700%_)) + (_%__kont168005168006%_ + _%hd167590167698%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_)))))) + (_%g167573167613%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + _%tl167591167700%_)) + (_%__kont168005168006%_ + _%hd167590167698%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g167573167613%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + _%tl167591167700%_)) + (_%__kont168005168006%_ + _%hd167590167698%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g167573167613%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + (gx#stx-null? _%tl167591167700%_)) + (_%__kont168005168006%_ + _%hd167590167698%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_)))))) + (_%g167573167613%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + (gx#stx-null? _%tl167591167700%_)) + (_%__kont168005168006%_ + _%hd167590167698%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_)))))) - (let () (declare (not safe)) (_%g167414167454%_))) + (_%g167573167613%_)))))) + (let () (declare (not safe)) (_%g167573167613%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167423167517%_)) - (let ((_%e167447167475%_ + (gx#stx-pair? _%tl167582167676%_)) + (let ((_%e167606167634%_ (let () (declare (not safe)) - (gx#stx-e _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + (gx#stx-e _%tl167582167676%_)))) + (let ((_%tl167608167639%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e167606167634%_))) + (_%hd167607167637%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e167606167634%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + (gx#stx-null? _%tl167608167639%_)) + (_%__kont168005168006%_ + _%hd167607167637%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_))))) - (let () (declare (not safe)) (_%g167414167454%_)))))) + (_%g167573167613%_))))) + (let () (declare (not safe)) (_%g167573167613%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167447167475%_ + _%tl167582167676%_)) + (let ((_%e167606167634%_ (let () (declare (not safe)) (gx#stx-e - _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + _%tl167582167676%_)))) + (let ((_%tl167608167639%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ - (let () (declare (not safe)) (##car _%e167447167475%_)))) + (##cdr _%e167606167634%_))) + (_%hd167607167637%_ + (let () (declare (not safe)) (##car _%e167606167634%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) - (let () (declare (not safe)) (_%g167414167454%_))))) + (gx#stx-null? _%tl167608167639%_)) + (_%__kont168005168006%_ + _%hd167607167637%_ + _%hd167581167674%_) + (let () (declare (not safe)) (_%g167573167613%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g167573167613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167447167475%_ + _%tl167582167676%_)) + (let ((_%e167606167634%_ (let () (declare (not safe)) (gx#stx-e - _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + _%tl167582167676%_)))) + (let ((_%tl167608167639%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e167606167634%_))) + (_%hd167607167637%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e167606167634%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + _%tl167608167639%_)) + (_%__kont168005168006%_ + _%hd167607167637%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_))))) + (_%g167573167613%_))))) (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g167573167613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167447167475%_ + _%tl167582167676%_)) + (let ((_%e167606167634%_ (let () (declare (not safe)) (gx#stx-e - _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + _%tl167582167676%_)))) + (let ((_%tl167608167639%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e167606167634%_))) + (_%hd167607167637%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e167606167634%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + _%tl167608167639%_)) + (_%__kont168005168006%_ + _%hd167607167637%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_))))) + (_%g167573167613%_))))) (let () (declare (not safe)) - (_%g167414167454%_)))))) + (_%g167573167613%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167423167517%_)) - (let ((_%e167447167475%_ + (gx#stx-pair? _%tl167582167676%_)) + (let ((_%e167606167634%_ (let () (declare (not safe)) - (gx#stx-e _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + (gx#stx-e _%tl167582167676%_)))) + (let ((_%tl167608167639%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e167606167634%_))) + (_%hd167607167637%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e167606167634%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + _%tl167608167639%_)) + (_%__kont168005168006%_ + _%hd167607167637%_ + _%hd167581167674%_) (let () (declare (not safe)) - (_%g167414167454%_))))) + (_%g167573167613%_))))) (let () (declare (not safe)) - (_%g167414167454%_)))))) - (let () (declare (not safe)) (_%g167414167454%_))))) - (let () (declare (not safe)) (_%g167414167454%_))))))) + (_%g167573167613%_)))))) + (let () (declare (not safe)) (_%g167573167613%_))))) + (let () (declare (not safe)) (_%g167573167613%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr167407%_) - (let ((__tmp170894 + (lambda (_%expr167566%_) + (let ((__tmp171053 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr167407%_)))) - (__tmp170893 - (let ((__obj170816 + (gx#eval-syntax__0 _%expr167566%_)))) + (__tmp171052 + (let ((__obj170975 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj170816)) - __obj170816))) + (gx#top-context:::init!__0 __obj170975)) + __obj170975))) (declare (not safe)) (__call-with-parameters - __tmp170894 + __tmp171053 gx#current-expander-context - __tmp170893)))) + __tmp171052)))) (define gxc#collect-type-define-values% - (lambda (_%self167269%_ _%stx167270%_) - (let* ((_%__stx167926167927%_ _%stx167270%_) - (_%g167273167303%_ + (lambda (_%self167428%_ _%stx167429%_) + (let* ((_%__stx168085168086%_ _%stx167429%_) + (_%g167432167462%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167926167927%_))))) - (let ((_%__kont167928167929%_ - (lambda (_%L167383%_ _%L167384%_) - (let ((_%sym167400%_ + _%__stx168085168086%_))))) + (let ((_%__kont168087168088%_ + (lambda (_%L167542%_ _%L167543%_) + (let ((_%sym167559%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167384%_)))) + (gxc#identifier-symbol _%L167543%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym167400%_)) + (gxc#optimizer-lookup-type _%sym167559%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167269%_ _%L167383%_)) - (let ((_%type167402%_ - (gxc#apply-basic-expression-type _%L167383%_))) - (if _%type167402%_ + (gxc#compile-e__1 _%self167428%_ _%L167542%_)) + (let ((_%type167561%_ + (gxc#apply-basic-expression-type _%L167542%_))) + (if _%type167561%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167400%_ - _%type167402%_)) + _%sym167559%_ + _%type167561%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self167269%_ - _%L167383%_))))))) - (_%__kont167930167931%_ - (lambda (_%L167332%_) + _%self167428%_ + _%L167542%_))))))) + (_%__kont168089168090%_ + (lambda (_%L167491%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167269%_ _%L167332%_))))) - (let ((_%__match167959167960%_ - (lambda (_%e167277167351%_ - _%hd167278167354%_ - _%tl167279167356%_ - _%e167280167359%_ - _%hd167281167362%_ - _%tl167282167364%_ - _%e167283167367%_ - _%hd167284167370%_ - _%tl167285167372%_ - _%e167286167375%_ - _%hd167287167378%_ - _%tl167288167380%_) - (let ((_%L167383%_ _%hd167287167378%_) - (_%L167384%_ _%hd167284167370%_)) + (gxc#compile-e__1 _%self167428%_ _%L167491%_))))) + (let ((_%__match168118168119%_ + (lambda (_%e167436167510%_ + _%hd167437167513%_ + _%tl167438167515%_ + _%e167439167518%_ + _%hd167440167521%_ + _%tl167441167523%_ + _%e167442167526%_ + _%hd167443167529%_ + _%tl167444167531%_ + _%e167445167534%_ + _%hd167446167537%_ + _%tl167447167539%_) + (let ((_%L167542%_ _%hd167446167537%_) + (_%L167543%_ _%hd167443167529%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167384%_)) - (_%__kont167928167929%_ _%L167383%_ _%L167384%_) - (_%__kont167930167931%_ _%hd167287167378%_)))))) + (gx#identifier? _%L167543%_)) + (_%__kont168087168088%_ _%L167542%_ _%L167543%_) + (_%__kont168089168090%_ _%hd167446167537%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167926167927%_)) - (let ((_%e167277167351%_ + (gx#stx-pair? _%__stx168085168086%_)) + (let ((_%e167436167510%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167926167927%_)))) - (let ((_%tl167279167356%_ + (gx#stx-e _%__stx168085168086%_)))) + (let ((_%tl167438167515%_ (let () (declare (not safe)) - (##cdr _%e167277167351%_))) - (_%hd167278167354%_ + (##cdr _%e167436167510%_))) + (_%hd167437167513%_ (let () (declare (not safe)) - (##car _%e167277167351%_)))) + (##car _%e167436167510%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167279167356%_)) - (let ((_%e167280167359%_ + (gx#stx-pair? _%tl167438167515%_)) + (let ((_%e167439167518%_ (let () (declare (not safe)) - (gx#stx-e _%tl167279167356%_)))) - (let ((_%tl167282167364%_ + (gx#stx-e _%tl167438167515%_)))) + (let ((_%tl167441167523%_ (let () (declare (not safe)) - (##cdr _%e167280167359%_))) - (_%hd167281167362%_ + (##cdr _%e167439167518%_))) + (_%hd167440167521%_ (let () (declare (not safe)) - (##car _%e167280167359%_)))) + (##car _%e167439167518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167281167362%_)) - (let ((_%e167283167367%_ + (gx#stx-pair? _%hd167440167521%_)) + (let ((_%e167442167526%_ (let () (declare (not safe)) - (gx#stx-e _%hd167281167362%_)))) - (let ((_%tl167285167372%_ + (gx#stx-e _%hd167440167521%_)))) + (let ((_%tl167444167531%_ (let () (declare (not safe)) - (##cdr _%e167283167367%_))) - (_%hd167284167370%_ + (##cdr _%e167442167526%_))) + (_%hd167443167529%_ (let () (declare (not safe)) - (##car _%e167283167367%_)))) + (##car _%e167442167526%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167285167372%_)) + (gx#stx-null? _%tl167444167531%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167282167364%_)) - (let ((_%e167286167375%_ + _%tl167441167523%_)) + (let ((_%e167445167534%_ (let () (declare (not safe)) (gx#stx-e - _%tl167282167364%_)))) - (let ((_%tl167288167380%_ + _%tl167441167523%_)))) + (let ((_%tl167447167539%_ (let () (declare (not safe)) - (##cdr _%e167286167375%_))) - (_%hd167287167378%_ + (##cdr _%e167445167534%_))) + (_%hd167446167537%_ (let () (declare (not safe)) - (##car _%e167286167375%_)))) + (##car _%e167445167534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167288167380%_)) - (_%__match167959167960%_ - _%e167277167351%_ - _%hd167278167354%_ - _%tl167279167356%_ - _%e167280167359%_ - _%hd167281167362%_ - _%tl167282167364%_ - _%e167283167367%_ - _%hd167284167370%_ - _%tl167285167372%_ - _%e167286167375%_ - _%hd167287167378%_ - _%tl167288167380%_) + _%tl167447167539%_)) + (_%__match168118168119%_ + _%e167436167510%_ + _%hd167437167513%_ + _%tl167438167515%_ + _%e167439167518%_ + _%hd167440167521%_ + _%tl167441167523%_ + _%e167442167526%_ + _%hd167443167529%_ + _%tl167444167531%_ + _%e167445167534%_ + _%hd167446167537%_ + _%tl167447167539%_) (let () (declare (not safe)) - (_%g167273167303%_))))) + (_%g167432167462%_))))) (let () (declare (not safe)) - (_%g167273167303%_))) + (_%g167432167462%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167282167364%_)) - (let ((_%e167296167324%_ + _%tl167441167523%_)) + (let ((_%e167455167483%_ (let () (declare (not safe)) (gx#stx-e - _%tl167282167364%_)))) - (let ((_%tl167298167329%_ + _%tl167441167523%_)))) + (let ((_%tl167457167488%_ (let () (declare (not safe)) - (##cdr _%e167296167324%_))) - (_%hd167297167327%_ + (##cdr _%e167455167483%_))) + (_%hd167456167486%_ (let () (declare (not safe)) - (##car _%e167296167324%_)))) + (##car _%e167455167483%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167298167329%_)) - (_%__kont167930167931%_ - _%hd167297167327%_) + _%tl167457167488%_)) + (_%__kont168089168090%_ + _%hd167456167486%_) (let () (declare (not safe)) - (_%g167273167303%_))))) + (_%g167432167462%_))))) (let () (declare (not safe)) - (_%g167273167303%_)))))) + (_%g167432167462%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167282167364%_)) - (let ((_%e167296167324%_ + (gx#stx-pair? _%tl167441167523%_)) + (let ((_%e167455167483%_ (let () (declare (not safe)) - (gx#stx-e _%tl167282167364%_)))) - (let ((_%tl167298167329%_ + (gx#stx-e _%tl167441167523%_)))) + (let ((_%tl167457167488%_ (let () (declare (not safe)) - (##cdr _%e167296167324%_))) - (_%hd167297167327%_ + (##cdr _%e167455167483%_))) + (_%hd167456167486%_ (let () (declare (not safe)) - (##car _%e167296167324%_)))) + (##car _%e167455167483%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167298167329%_)) - (_%__kont167930167931%_ - _%hd167297167327%_) + _%tl167457167488%_)) + (_%__kont168089168090%_ + _%hd167456167486%_) (let () (declare (not safe)) - (_%g167273167303%_))))) + (_%g167432167462%_))))) (let () (declare (not safe)) - (_%g167273167303%_)))))) - (let () (declare (not safe)) (_%g167273167303%_))))) - (let () (declare (not safe)) (_%g167273167303%_)))))))) + (_%g167432167462%_)))))) + (let () (declare (not safe)) (_%g167432167462%_))))) + (let () (declare (not safe)) (_%g167432167462%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self167024%_ _%stx167025%_) - (let* ((_%__stx168004168005%_ _%stx167025%_) - (_%g167028167068%_ + (lambda (_%self167183%_ _%stx167184%_) + (let* ((_%__stx168163168164%_ _%stx167184%_) + (_%g167187167227%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168004168005%_))))) - (let ((_%__kont168006168007%_ - (lambda (_%L167174%_ _%L167175%_) + _%__stx168163168164%_))))) + (let ((_%__kont168165168166%_ + (lambda (_%L167333%_ _%L167334%_) (for-each - (lambda (_%assertion167195%_) - (let* ((_%__stx167982167983%_ _%assertion167195%_) - (_%g167198167212%_ + (lambda (_%assertion167354%_) + (let* ((_%__stx168141168142%_ _%assertion167354%_) + (_%g167357167371%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167982167983%_))))) - (let ((_%__kont167984167985%_ - (lambda (_%L167240%_ _%L167241%_) - (let ((__tmp170897 + _%__stx168141168142%_))))) + (let ((_%__kont168143168144%_ + (lambda (_%L167399%_ _%L167400%_) + (let ((__tmp171056 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167241%_))) - (__tmp170895 - (let ((__tmp170896 + (gxc#identifier-symbol _%L167400%_))) + (__tmp171054 + (let ((__tmp171055 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167240%_)))) + _%L167399%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167025%_ - __tmp170896)))) + _%stx167184%_ + __tmp171055)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp170897 - __tmp170895 + __tmp171056 + __tmp171054 '#t)))) - (_%__kont167986167987%_ + (_%__kont168145168146%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx167025%_ - _%assertion167195%_))))) - (let ((_%__match168001168002%_ - (lambda (_%e167202167224%_ - _%hd167203167227%_ - _%tl167204167229%_ - _%e167205167232%_ - _%hd167206167235%_ - _%tl167207167237%_) - (let ((_%L167240%_ _%hd167206167235%_) - (_%L167241%_ _%hd167203167227%_)) + _%stx167184%_ + _%assertion167354%_))))) + (let ((_%__match168160168161%_ + (lambda (_%e167361167383%_ + _%hd167362167386%_ + _%tl167363167388%_ + _%e167364167391%_ + _%hd167365167394%_ + _%tl167366167396%_) + (let ((_%L167399%_ _%hd167365167394%_) + (_%L167400%_ _%hd167362167386%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L167241%_)) + (gx#identifier? _%L167400%_)) (let () (declare (not safe)) - (gx#identifier? _%L167240%_))) - (_%__kont167984167985%_ - _%L167240%_ - _%L167241%_) - (_%__kont167986167987%_)))))) + (gx#identifier? _%L167399%_))) + (_%__kont168143168144%_ + _%L167399%_ + _%L167400%_) + (_%__kont168145168146%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167982167983%_)) - (let ((_%e167202167224%_ + (gx#stx-pair? _%__stx168141168142%_)) + (let ((_%e167361167383%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167982167983%_)))) - (let ((_%tl167204167229%_ + (gx#stx-e _%__stx168141168142%_)))) + (let ((_%tl167363167388%_ (let () (declare (not safe)) - (##cdr _%e167202167224%_))) - (_%hd167203167227%_ + (##cdr _%e167361167383%_))) + (_%hd167362167386%_ (let () (declare (not safe)) - (##car _%e167202167224%_)))) + (##car _%e167361167383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167204167229%_)) - (let ((_%e167205167232%_ + (gx#stx-pair? _%tl167363167388%_)) + (let ((_%e167364167391%_ (let () (declare (not safe)) (gx#stx-e - _%tl167204167229%_)))) - (let ((_%tl167207167237%_ + _%tl167363167388%_)))) + (let ((_%tl167366167396%_ (let () (declare (not safe)) - (##cdr _%e167205167232%_))) - (_%hd167206167235%_ + (##cdr _%e167364167391%_))) + (_%hd167365167394%_ (let () (declare (not safe)) - (##car _%e167205167232%_)))) + (##car _%e167364167391%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167207167237%_)) - (_%__match168001168002%_ - _%e167202167224%_ - _%hd167203167227%_ - _%tl167204167229%_ - _%e167205167232%_ - _%hd167206167235%_ - _%tl167207167237%_) - (_%__kont167986167987%_)))) - (_%__kont167986167987%_)))) - (_%__kont167986167987%_)))))) - (let ((__tmp170898 - (lambda (_%g167258167261%_ _%g167259167263%_) - (cons _%g167258167261%_ _%g167259167263%_)))) + _%tl167366167396%_)) + (_%__match168160168161%_ + _%e167361167383%_ + _%hd167362167386%_ + _%tl167363167388%_ + _%e167364167391%_ + _%hd167365167394%_ + _%tl167366167396%_) + (_%__kont168145168146%_)))) + (_%__kont168145168146%_)))) + (_%__kont168145168146%_)))))) + (let ((__tmp171057 + (lambda (_%g167417167420%_ _%g167418167422%_) + (cons _%g167417167420%_ _%g167418167422%_)))) (declare (not safe)) - (__foldr1 __tmp170898 '() _%L167175%_))) + (__foldr1 __tmp171057 '() _%L167334%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167024%_ _%L167174%_)))) - (_%__kont168010168011%_ - (lambda (_%L167097%_ _%L167098%_) + (gxc#compile-e__1 _%self167183%_ _%L167333%_)))) + (_%__kont168169168170%_ + (lambda (_%L167256%_ _%L167257%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167024%_ _%L167097%_))))) - (let ((_%__match168041168042%_ - (lambda (_%e167032167118%_ - _%hd167033167121%_ - _%tl167034167123%_ - _%e167035167126%_ - _%hd167036167129%_ - _%tl167037167131%_ - _%e167038167134%_ - _%hd167039167137%_ - _%tl167040167139%_ - _%__splice168008168009%_ - _%target167041167142%_ - _%tl167043167144%_) - (letrec ((_%loop167044167147%_ - (lambda (_%hd167042167150%_ - _%assertion167048167152%_) + (gxc#compile-e__1 _%self167183%_ _%L167256%_))))) + (let ((_%__match168200168201%_ + (lambda (_%e167191167277%_ + _%hd167192167280%_ + _%tl167193167282%_ + _%e167194167285%_ + _%hd167195167288%_ + _%tl167196167290%_ + _%e167197167293%_ + _%hd167198167296%_ + _%tl167199167298%_ + _%__splice168167168168%_ + _%target167200167301%_ + _%tl167202167303%_) + (letrec ((_%loop167203167306%_ + (lambda (_%hd167201167309%_ + _%assertion167207167311%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167042167150%_)) - (let ((_%e167045167155%_ + (gx#stx-pair? _%hd167201167309%_)) + (let ((_%e167204167314%_ (let () (declare (not safe)) - (gx#stx-e _%hd167042167150%_)))) - (let ((_%lp-tl167047167160%_ + (gx#stx-e _%hd167201167309%_)))) + (let ((_%lp-tl167206167319%_ (let () (declare (not safe)) - (##cdr _%e167045167155%_))) - (_%lp-hd167046167158%_ + (##cdr _%e167204167314%_))) + (_%lp-hd167205167317%_ (let () (declare (not safe)) - (##car _%e167045167155%_)))) - (_%loop167044167147%_ - _%lp-tl167047167160%_ - (cons _%lp-hd167046167158%_ - _%assertion167048167152%_)))) - (let ((_%assertion167049167163%_ - (reverse _%assertion167048167152%_))) + (##car _%e167204167314%_)))) + (_%loop167203167306%_ + _%lp-tl167206167319%_ + (cons _%lp-hd167205167317%_ + _%assertion167207167311%_)))) + (let ((_%assertion167208167322%_ + (reverse _%assertion167207167311%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167037167131%_)) - (let ((_%e167050167166%_ + (gx#stx-pair? _%tl167196167290%_)) + (let ((_%e167209167325%_ (let () (declare (not safe)) (gx#stx-e - _%tl167037167131%_)))) - (let ((_%tl167052167171%_ + _%tl167196167290%_)))) + (let ((_%tl167211167330%_ (let () (declare (not safe)) - (##cdr _%e167050167166%_))) - (_%hd167051167169%_ + (##cdr _%e167209167325%_))) + (_%hd167210167328%_ (let () (declare (not safe)) - (##car _%e167050167166%_)))) + (##car _%e167209167325%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167052167171%_)) - (_%__kont168006168007%_ - _%hd167051167169%_ - _%assertion167049167163%_) + _%tl167211167330%_)) + (_%__kont168165168166%_ + _%hd167210167328%_ + _%assertion167208167322%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g167187167227%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))))))) - (_%loop167044167147%_ _%target167041167142%_ '()))))) + (_%g167187167227%_)))))))) + (_%loop167203167306%_ _%target167200167301%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168004168005%_)) - (let ((_%e167032167118%_ + (gx#stx-pair? _%__stx168163168164%_)) + (let ((_%e167191167277%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168004168005%_)))) - (let ((_%tl167034167123%_ + (gx#stx-e _%__stx168163168164%_)))) + (let ((_%tl167193167282%_ (let () (declare (not safe)) - (##cdr _%e167032167118%_))) - (_%hd167033167121%_ + (##cdr _%e167191167277%_))) + (_%hd167192167280%_ (let () (declare (not safe)) - (##car _%e167032167118%_)))) + (##car _%e167191167277%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167034167123%_)) - (let ((_%e167035167126%_ + (gx#stx-pair? _%tl167193167282%_)) + (let ((_%e167194167285%_ (let () (declare (not safe)) - (gx#stx-e _%tl167034167123%_)))) - (let ((_%tl167037167131%_ + (gx#stx-e _%tl167193167282%_)))) + (let ((_%tl167196167290%_ (let () (declare (not safe)) - (##cdr _%e167035167126%_))) - (_%hd167036167129%_ + (##cdr _%e167194167285%_))) + (_%hd167195167288%_ (let () (declare (not safe)) - (##car _%e167035167126%_)))) + (##car _%e167194167285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167036167129%_)) - (let ((_%e167038167134%_ + (gx#stx-pair? _%hd167195167288%_)) + (let ((_%e167197167293%_ (let () (declare (not safe)) - (gx#stx-e _%hd167036167129%_)))) - (let ((_%tl167040167139%_ + (gx#stx-e _%hd167195167288%_)))) + (let ((_%tl167199167298%_ (let () (declare (not safe)) - (##cdr _%e167038167134%_))) - (_%hd167039167137%_ + (##cdr _%e167197167293%_))) + (_%hd167198167296%_ (let () (declare (not safe)) - (##car _%e167038167134%_)))) + (##car _%e167197167293%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167039167137%_)) + _%hd167198167296%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd167039167137%_)) + _%hd167198167296%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl167040167139%_)) - (let ((_%__splice168008168009%_ + _%tl167199167298%_)) + (let ((_%__splice168167168168%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167040167139%_ + _%tl167199167298%_ '0)))) - (let ((_%tl167043167144%_ + (let ((_%tl167202167303%_ (let () (declare (not safe)) (##vector-ref - _%__splice168008168009%_ + _%__splice168167168168%_ '1))) - (_%target167041167142%_ + (_%target167200167301%_ (let () (declare (not safe)) (##vector-ref - _%__splice168008168009%_ + _%__splice168167168168%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167043167144%_)) - (_%__match168041168042%_ - _%e167032167118%_ - _%hd167033167121%_ - _%tl167034167123%_ - _%e167035167126%_ - _%hd167036167129%_ - _%tl167037167131%_ - _%e167038167134%_ - _%hd167039167137%_ - _%tl167040167139%_ - _%__splice168008168009%_ - _%target167041167142%_ - _%tl167043167144%_) + _%tl167202167303%_)) + (_%__match168200168201%_ + _%e167191167277%_ + _%hd167192167280%_ + _%tl167193167282%_ + _%e167194167285%_ + _%hd167195167288%_ + _%tl167196167290%_ + _%e167197167293%_ + _%hd167198167296%_ + _%tl167199167298%_ + _%__splice168167168168%_ + _%target167200167301%_ + _%tl167202167303%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl167037167131%_)) - (let ((_%e167061167089%_ + (gx#stx-pair? _%tl167196167290%_)) + (let ((_%e167220167248%_ (let () (declare (not safe)) - (gx#stx-e _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + (gx#stx-e _%tl167196167290%_)))) + (let ((_%tl167222167253%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e167220167248%_))) + (_%hd167221167251%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e167220167248%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + (gx#stx-null? _%tl167222167253%_)) + (_%__kont168169168170%_ + _%hd167221167251%_ + _%hd167195167288%_) (let () (declare (not safe)) - (_%g167028167068%_))))) - (let () (declare (not safe)) (_%g167028167068%_)))))) + (_%g167187167227%_))))) + (let () (declare (not safe)) (_%g167187167227%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167037167131%_)) - (let ((_%e167061167089%_ + _%tl167196167290%_)) + (let ((_%e167220167248%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl167037167131%_)))) - (let ((_%tl167063167094%_ - (let () (declare (not safe)) (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (gx#stx-e _%tl167196167290%_)))) + (let ((_%tl167222167253%_ + (let () (declare (not safe)) (##cdr _%e167220167248%_))) + (_%hd167221167251%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e167220167248%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) - (let () (declare (not safe)) (_%g167028167068%_))))) - (let () (declare (not safe)) (_%g167028167068%_)))) + (gx#stx-null? _%tl167222167253%_)) + (_%__kont168169168170%_ + _%hd167221167251%_ + _%hd167195167288%_) + (let () (declare (not safe)) (_%g167187167227%_))))) + (let () (declare (not safe)) (_%g167187167227%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167037167131%_)) - (let ((_%e167061167089%_ + _%tl167196167290%_)) + (let ((_%e167220167248%_ (let () (declare (not safe)) (gx#stx-e - _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + _%tl167196167290%_)))) + (let ((_%tl167222167253%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e167220167248%_))) + (_%hd167221167251%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e167220167248%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + _%tl167222167253%_)) + (_%__kont168169168170%_ + _%hd167221167251%_ + _%hd167195167288%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g167187167227%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))) + (_%g167187167227%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167037167131%_)) - (let ((_%e167061167089%_ + _%tl167196167290%_)) + (let ((_%e167220167248%_ (let () (declare (not safe)) (gx#stx-e - _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + _%tl167196167290%_)))) + (let ((_%tl167222167253%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e167220167248%_))) + (_%hd167221167251%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e167220167248%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + _%tl167222167253%_)) + (_%__kont168169168170%_ + _%hd167221167251%_ + _%hd167195167288%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g167187167227%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))))) + (_%g167187167227%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167037167131%_)) - (let ((_%e167061167089%_ + (gx#stx-pair? _%tl167196167290%_)) + (let ((_%e167220167248%_ (let () (declare (not safe)) - (gx#stx-e _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + (gx#stx-e _%tl167196167290%_)))) + (let ((_%tl167222167253%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e167220167248%_))) + (_%hd167221167251%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e167220167248%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + _%tl167222167253%_)) + (_%__kont168169168170%_ + _%hd167221167251%_ + _%hd167195167288%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g167187167227%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))))) - (let () (declare (not safe)) (_%g167028167068%_))))) - (let () (declare (not safe)) (_%g167028167068%_)))))))) + (_%g167187167227%_)))))) + (let () (declare (not safe)) (_%g167187167227%_))))) + (let () (declare (not safe)) (_%g167187167227%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self166968%_ _%stx166969%_) - (let* ((_%g166971166985%_ - (lambda (_%g166972166982%_) + (lambda (_%self167127%_ _%stx167128%_) + (let* ((_%g167130167144%_ + (lambda (_%g167131167141%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166972166982%_)))) - (_%g166970167021%_ - (lambda (_%g166972166988%_) + _%g167131167141%_)))) + (_%g167129167180%_ + (lambda (_%g167131167147%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166972166988%_)) - (let ((_%e166975166990%_ + (gx#stx-pair? _%g167131167147%_)) + (let ((_%e167134167149%_ (let () (declare (not safe)) - (gx#stx-e _%g166972166988%_)))) - (let ((_%hd166976166993%_ + (gx#stx-e _%g167131167147%_)))) + (let ((_%hd167135167152%_ (let () (declare (not safe)) - (##car _%e166975166990%_))) - (_%tl166977166995%_ + (##car _%e167134167149%_))) + (_%tl167136167154%_ (let () (declare (not safe)) - (##cdr _%e166975166990%_)))) + (##cdr _%e167134167149%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166977166995%_)) - (let ((_%e166978166998%_ + (gx#stx-pair? _%tl167136167154%_)) + (let ((_%e167137167157%_ (let () (declare (not safe)) - (gx#stx-e _%tl166977166995%_)))) - (let ((_%hd166979167001%_ + (gx#stx-e _%tl167136167154%_)))) + (let ((_%hd167138167160%_ (let () (declare (not safe)) - (##car _%e166978166998%_))) - (_%tl166980167003%_ + (##car _%e167137167157%_))) + (_%tl167139167162%_ (let () (declare (not safe)) - (##cdr _%e166978166998%_)))) - ((lambda (_%L167006%_ _%L167007%_) - (let ((__tmp170900 + (##cdr _%e167137167157%_)))) + ((lambda (_%L167165%_ _%L167166%_) + (let ((__tmp171059 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx166969%_ - _%L167007%_) + _%stx167128%_ + _%L167166%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self166968%_ - _%stx166969%_)))) - (__tmp170899 + _%self167127%_ + _%stx167128%_)))) + (__tmp171058 (let () (declare (not safe)) (gxc#xform-let-locals - _%L167007%_)))) + _%L167166%_)))) (declare (not safe)) (__call-with-parameters - __tmp170900 + __tmp171059 gxc#current-compile-local-env - __tmp170899))) - _%tl166980167003%_ - _%hd166979167001%_))) - (_%g166971166985%_ _%g166972166988%_)))) - (_%g166971166985%_ _%g166972166988%_))))) - (_%g166970167021%_ _%stx166969%_)))) + __tmp171058))) + _%tl167139167162%_ + _%hd167138167160%_))) + (_%g167130167144%_ _%g167131167147%_)))) + (_%g167130167144%_ _%g167131167147%_))))) + (_%g167129167180%_ _%stx167128%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self166784%_ _%stx166785%_) - (let* ((_%g166787166815%_ - (lambda (_%g166788166812%_) + (lambda (_%self166943%_ _%stx166944%_) + (let* ((_%g166946166974%_ + (lambda (_%g166947166971%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166788166812%_)))) - (_%g166786166965%_ - (lambda (_%g166788166818%_) + _%g166947166971%_)))) + (_%g166945167124%_ + (lambda (_%g166947166977%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166788166818%_)) - (let ((_%e166791166820%_ + (gx#stx-pair? _%g166947166977%_)) + (let ((_%e166950166979%_ (let () (declare (not safe)) - (gx#stx-e _%g166788166818%_)))) - (let ((_%hd166792166823%_ + (gx#stx-e _%g166947166977%_)))) + (let ((_%hd166951166982%_ (let () (declare (not safe)) - (##car _%e166791166820%_))) - (_%tl166793166825%_ + (##car _%e166950166979%_))) + (_%tl166952166984%_ (let () (declare (not safe)) - (##cdr _%e166791166820%_)))) + (##cdr _%e166950166979%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166793166825%_)) - (let ((_g170901_ + (gx#stx-pair/null? _%tl166952166984%_)) + (let ((_g171060_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166793166825%_ + _%tl166952166984%_ '0)))) (begin - (let ((_g170902_ + (let ((_g171061_ (let () (declare (not safe)) - (if (##values? _g170901_) - (##vector-length _g170901_) + (if (##values? _g171060_) + (##vector-length _g171060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170902_ 2))) + (##fx= _g171061_ 2))) (error "Context expects 2 values" - _g170902_))) - (let ((_%target166794166828%_ + _g171061_))) + (let ((_%target166953166987%_ (let () (declare (not safe)) - (##vector-ref _g170901_ 0))) - (_%tl166796166830%_ + (##vector-ref _g171060_ 0))) + (_%tl166955166989%_ (let () (declare (not safe)) - (##vector-ref _g170901_ 1)))) + (##vector-ref _g171060_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166796166830%_)) - (letrec ((_%loop166797166833%_ - (lambda (_%hd166795166836%_ - _%body166801166838%_ - _%hd166802166840%_) + (gx#stx-null? _%tl166955166989%_)) + (letrec ((_%loop166956166992%_ + (lambda (_%hd166954166995%_ + _%body166960166997%_ + _%hd166961166999%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166795166836%_)) - (let ((_%e166798166843%_ + _%hd166954166995%_)) + (let ((_%e166957167002%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166795166836%_)))) - (let ((_%lp-hd166799166846%_ + (gx#stx-e _%hd166954166995%_)))) + (let ((_%lp-hd166958167005%_ (let () (declare (not safe)) - (##car _%e166798166843%_))) - (_%lp-tl166800166848%_ + (##car _%e166957167002%_))) + (_%lp-tl166959167007%_ (let () (declare (not safe)) - (##cdr _%e166798166843%_)))) + (##cdr _%e166957167002%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166799166846%_)) - (let ((_%e166805166851%_ + (gx#stx-pair? _%lp-hd166958167005%_)) + (let ((_%e166964167010%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166799166846%_)))) - (let ((_%hd166806166854%_ + (gx#stx-e _%lp-hd166958167005%_)))) + (let ((_%hd166965167013%_ (let () (declare (not safe)) - (##car _%e166805166851%_))) - (_%tl166807166856%_ + (##car _%e166964167010%_))) + (_%tl166966167015%_ (let () (declare (not safe)) - (##cdr _%e166805166851%_)))) + (##cdr _%e166964167010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166807166856%_)) - (let ((_%e166808166859%_ + (gx#stx-pair? _%tl166966167015%_)) + (let ((_%e166967167018%_ (let () (declare (not safe)) - (gx#stx-e _%tl166807166856%_)))) - (let ((_%hd166809166862%_ + (gx#stx-e _%tl166966167015%_)))) + (let ((_%hd166968167021%_ (let () (declare (not safe)) - (##car _%e166808166859%_))) - (_%tl166810166864%_ + (##car _%e166967167018%_))) + (_%tl166969167023%_ (let () (declare (not safe)) - (##cdr _%e166808166859%_)))) + (##cdr _%e166967167018%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166810166864%_)) - (_%loop166797166833%_ - _%lp-tl166800166848%_ - (cons _%hd166809166862%_ - _%body166801166838%_) - (cons _%hd166806166854%_ - _%hd166802166840%_)) - (_%g166787166815%_ - _%g166788166818%_)))) - (_%g166787166815%_ _%g166788166818%_)))) - (_%g166787166815%_ _%g166788166818%_)))) - (let ((_%body166803166867%_ (reverse _%body166801166838%_)) - (_%hd166804166869%_ (reverse _%hd166802166840%_))) - ((lambda (_%L166872%_ _%L166873%_) + (gx#stx-null? _%tl166969167023%_)) + (_%loop166956166992%_ + _%lp-tl166959167007%_ + (cons _%hd166968167021%_ + _%body166960166997%_) + (cons _%hd166965167013%_ + _%hd166961166999%_)) + (_%g166946166974%_ + _%g166947166977%_)))) + (_%g166946166974%_ _%g166947166977%_)))) + (_%g166946166974%_ _%g166947166977%_)))) + (let ((_%body166962167026%_ (reverse _%body166960166997%_)) + (_%hd166963167028%_ (reverse _%hd166961166999%_))) + ((lambda (_%L167031%_ _%L167032%_) (for-each - (lambda (_%g166887166889%_) + (lambda (_%g167046167048%_) (gxc#collect-type-lambda-formals-tail - _%stx166785%_ - _%g166887166889%_)) - (let ((__tmp170903 - (lambda (_%g166891166894%_ _%g166892166896%_) - (cons _%g166891166894%_ _%g166892166896%_)))) + _%stx166944%_ + _%g167046167048%_)) + (let ((__tmp171062 + (lambda (_%g167050167053%_ _%g167051167055%_) + (cons _%g167050167053%_ _%g167051167055%_)))) (declare (not safe)) - (__foldr1 __tmp170903 '() _%L166873%_))) + (__foldr1 __tmp171062 '() _%L167032%_))) (for-each - (lambda (_%clause166899%_) - (let* ((_%g166901166915%_ - (lambda (_%g166902166912%_) + (lambda (_%clause167058%_) + (let* ((_%g167060167074%_ + (lambda (_%g167061167071%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166902166912%_)))) - (_%g166900166952%_ - (lambda (_%g166902166918%_) + _%g167061167071%_)))) + (_%g167059167111%_ + (lambda (_%g167061167077%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166902166918%_)) - (let ((_%e166905166920%_ + (gx#stx-pair? _%g167061167077%_)) + (let ((_%e167064167079%_ (let () (declare (not safe)) - (gx#stx-e _%g166902166918%_)))) - (let ((_%hd166906166923%_ + (gx#stx-e _%g167061167077%_)))) + (let ((_%hd167065167082%_ (let () (declare (not safe)) - (##car _%e166905166920%_))) - (_%tl166907166925%_ + (##car _%e167064167079%_))) + (_%tl167066167084%_ (let () (declare (not safe)) - (##cdr _%e166905166920%_)))) + (##cdr _%e167064167079%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166907166925%_)) - (let ((_%e166908166928%_ + _%tl167066167084%_)) + (let ((_%e167067167087%_ (let () (declare (not safe)) (gx#stx-e - _%tl166907166925%_)))) - (let ((_%hd166909166931%_ + _%tl167066167084%_)))) + (let ((_%hd167068167090%_ (let () (declare (not safe)) - (##car _%e166908166928%_))) - (_%tl166910166933%_ + (##car _%e167067167087%_))) + (_%tl167069167092%_ (let () (declare (not safe)) - (##cdr _%e166908166928%_)))) + (##cdr _%e167067167087%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166910166933%_)) - ((lambda (_%L166936%_ - _%L166937%_) - (let ((__tmp170905 + _%tl167069167092%_)) + ((lambda (_%L167095%_ + _%L167096%_) + (let ((__tmp171064 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self166784%_ - _%stx166785%_)))) - (__tmp170904 + _%self166943%_ + _%stx166944%_)))) + (__tmp171063 (let () (declare (not safe)) - (gxc#xform-let-locals _%L166937%_)))) + (gxc#xform-let-locals _%L167096%_)))) (declare (not safe)) (__call-with-parameters - __tmp170905 + __tmp171064 gxc#current-compile-local-env - __tmp170904))) - _%hd166909166931%_ - _%hd166906166923%_) - (_%g166901166915%_ _%g166902166918%_)))) + __tmp171063))) + _%hd167068167090%_ + _%hd167065167082%_) + (_%g167060167074%_ _%g167061167077%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g166901166915%_ - _%g166902166918%_)))) - (_%g166901166915%_ _%g166902166918%_))))) - (_%g166900166952%_ _%clause166899%_))) + (_%g167060167074%_ + _%g167061167077%_)))) + (_%g167060167074%_ _%g167061167077%_))))) + (_%g167059167111%_ _%clause167058%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L166872%_ - _%L166873%_)) - (let ((__tmp170906 - (lambda (_%g166954166958%_ - _%g166955166960%_ - _%g166956166962%_) - (cons (cons _%g166955166960%_ - (cons _%g166954166958%_ '())) - _%g166956166962%_)))) + _%L167031%_ + _%L167032%_)) + (let ((__tmp171065 + (lambda (_%g167113167117%_ + _%g167114167119%_ + _%g167115167121%_) + (cons (cons _%g167114167119%_ + (cons _%g167113167117%_ '())) + _%g167115167121%_)))) (declare (not safe)) (__foldr2 - __tmp170906 + __tmp171065 '() - _%L166872%_ - _%L166873%_))))) - _%body166803166867%_ - _%hd166804166869%_)))))) + _%L167031%_ + _%L167032%_))))) + _%body166962167026%_ + _%hd166963167028%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166797166833%_ - _%target166794166828%_ + (_%loop166956166992%_ + _%target166953166987%_ '() '())) - (_%g166787166815%_ - _%g166788166818%_))))) - (_%g166787166815%_ _%g166788166818%_)))) - (_%g166787166815%_ _%g166788166818%_))))) - (_%g166786166965%_ _%stx166785%_)))) + (_%g166946166974%_ + _%g166947166977%_))))) + (_%g166946166974%_ _%g166947166977%_)))) + (_%g166946166974%_ _%g166947166977%_))))) + (_%g166945167124%_ _%stx166944%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx166716%_ _%formals166717%_) - (let _%loop166719%_ ((_%rest166721%_ _%formals166717%_)) - (let* ((_%__stx168064168065%_ _%rest166721%_) - (_%g166725166736%_ + (lambda (_%stx166875%_ _%formals166876%_) + (let _%loop166878%_ ((_%rest166880%_ _%formals166876%_)) + (let* ((_%__stx168223168224%_ _%rest166880%_) + (_%g166884166895%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168064168065%_))))) - (let ((_%__kont168066168067%_ - (lambda (_%L166772%_) (_%loop166719%_ _%L166772%_))) - (_%__kont168068168069%_ - (lambda (_%L166748%_) - (let ((__tmp170908 + _%__stx168223168224%_))))) + (let ((_%__kont168225168226%_ + (lambda (_%L166931%_) (_%loop166878%_ _%L166931%_))) + (_%__kont168227168228%_ + (lambda (_%L166907%_) + (let ((__tmp171067 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166748%_))) - (__tmp170907 + (gxc#identifier-symbol _%L166907%_))) + (__tmp171066 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166716%_ + _%stx166875%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp170908 - __tmp170907 + __tmp171067 + __tmp171066 '#t)))) - (_%__kont168070168071%_ (lambda () '#!void))) - (let ((_%g166723166759%_ + (_%__kont168229168230%_ (lambda () '#!void))) + (let ((_%g166882166918%_ (lambda () - (let ((_%L166748%_ _%__stx168064168065%_)) + (let ((_%L166907%_ _%__stx168223168224%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166748%_)) - (_%__kont168068168069%_ _%L166748%_) - (_%__kont168070168071%_)))))) + (gx#identifier? _%L166907%_)) + (_%__kont168227168228%_ _%L166907%_) + (_%__kont168229168230%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168064168065%_)) - (let ((_%e166728166764%_ + (gx#stx-pair? _%__stx168223168224%_)) + (let ((_%e166887166923%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168064168065%_)))) - (let ((_%tl166730166769%_ + (gx#stx-e _%__stx168223168224%_)))) + (let ((_%tl166889166928%_ (let () (declare (not safe)) - (##cdr _%e166728166764%_))) - (_%hd166729166767%_ + (##cdr _%e166887166923%_))) + (_%hd166888166926%_ (let () (declare (not safe)) - (##car _%e166728166764%_)))) - (_%__kont168066168067%_ _%tl166730166769%_))) - (let () (declare (not safe)) (_%g166723166759%_))))))))) + (##car _%e166887166923%_)))) + (_%__kont168225168226%_ _%tl166889166928%_))) + (let () (declare (not safe)) (_%g166882166918%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self166475%_ _%stx166476%_ _%expression-type166477%_) - (letrec ((_%collect-e166479%_ - (lambda (_%hd166648%_ _%expr166649%_) - (let* ((_%__stx168080168081%_ _%hd166648%_) - (_%g166652166662%_ + (lambda (_%self166634%_ _%stx166635%_ _%expression-type166636%_) + (letrec ((_%collect-e166638%_ + (lambda (_%hd166807%_ _%expr166808%_) + (let* ((_%__stx168239168240%_ _%hd166807%_) + (_%g166811166821%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168080168081%_))))) - (let ((_%__kont168082168083%_ - (lambda (_%L166682%_) - (let* ((_%sym166693%_ + _%__stx168239168240%_))))) + (let ((_%__kont168241168242%_ + (lambda (_%L166841%_) + (let* ((_%sym166852%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166682%_))) - (_%type166694166696%_ - (_%expression-type166477%_ - _%expr166649%_))) - (if _%type166694166696%_ - (let ((_%type166699%_ - _%type166694166696%_)) + (gxc#identifier-symbol _%L166841%_))) + (_%type166853166855%_ + (_%expression-type166636%_ + _%expr166808%_))) + (if _%type166853166855%_ + (let ((_%type166858%_ + _%type166853166855%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166699%_ + _%type166858%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp170909 + (let ((__tmp171068 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166699%_ + _%type166858%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166693%_ - __tmp170909)) - (let ((__tmp170910 + _%sym166852%_ + __tmp171068)) + (let ((__tmp171069 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166476%_ + _%stx166635%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166693%_ - __tmp170910 + _%sym166852%_ + __tmp171069 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166693%_ - _%type166699%_ + _%sym166852%_ + _%type166858%_ '#t)))) '#f)))) - (_%__kont168084168085%_ (lambda () '#!void))) - (let ((_%__match168093168094%_ - (lambda (_%e166655166674%_ - _%hd166656166677%_ - _%tl166657166679%_) - (let ((_%L166682%_ _%hd166656166677%_)) + (_%__kont168243168244%_ (lambda () '#!void))) + (let ((_%__match168252168253%_ + (lambda (_%e166814166833%_ + _%hd166815166836%_ + _%tl166816166838%_) + (let ((_%L166841%_ _%hd166815166836%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166682%_)) - (_%__kont168082168083%_ _%L166682%_) - (_%__kont168084168085%_)))))) + (gx#identifier? _%L166841%_)) + (_%__kont168241168242%_ _%L166841%_) + (_%__kont168243168244%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168080168081%_)) - (let ((_%e166655166674%_ + (gx#stx-pair? _%__stx168239168240%_)) + (let ((_%e166814166833%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168080168081%_)))) - (let ((_%tl166657166679%_ + (gx#stx-e _%__stx168239168240%_)))) + (let ((_%tl166816166838%_ (let () (declare (not safe)) - (##cdr _%e166655166674%_))) - (_%hd166656166677%_ + (##cdr _%e166814166833%_))) + (_%hd166815166836%_ (let () (declare (not safe)) - (##car _%e166655166674%_)))) + (##car _%e166814166833%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166657166679%_)) - (_%__match168093168094%_ - _%e166655166674%_ - _%hd166656166677%_ - _%tl166657166679%_) - (_%__kont168084168085%_)))) - (_%__kont168084168085%_)))))))) - (let* ((_%g166481166516%_ - (lambda (_%g166482166513%_) + (gx#stx-null? _%tl166816166838%_)) + (_%__match168252168253%_ + _%e166814166833%_ + _%hd166815166836%_ + _%tl166816166838%_) + (_%__kont168243168244%_)))) + (_%__kont168243168244%_)))))))) + (let* ((_%g166640166675%_ + (lambda (_%g166641166672%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166482166513%_)))) - (_%g166480166645%_ - (lambda (_%g166482166519%_) + _%g166641166672%_)))) + (_%g166639166804%_ + (lambda (_%g166641166678%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166482166519%_)) - (let ((_%e166486166521%_ + (gx#stx-pair? _%g166641166678%_)) + (let ((_%e166645166680%_ (let () (declare (not safe)) - (gx#stx-e _%g166482166519%_)))) - (let ((_%hd166487166524%_ + (gx#stx-e _%g166641166678%_)))) + (let ((_%hd166646166683%_ (let () (declare (not safe)) - (##car _%e166486166521%_))) - (_%tl166488166526%_ + (##car _%e166645166680%_))) + (_%tl166647166685%_ (let () (declare (not safe)) - (##cdr _%e166486166521%_)))) + (##cdr _%e166645166680%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166488166526%_)) - (let ((_%e166489166529%_ + (gx#stx-pair? _%tl166647166685%_)) + (let ((_%e166648166688%_ (let () (declare (not safe)) - (gx#stx-e _%tl166488166526%_)))) - (let ((_%hd166490166532%_ + (gx#stx-e _%tl166647166685%_)))) + (let ((_%hd166649166691%_ (let () (declare (not safe)) - (##car _%e166489166529%_))) - (_%tl166491166534%_ + (##car _%e166648166688%_))) + (_%tl166650166693%_ (let () (declare (not safe)) - (##cdr _%e166489166529%_)))) + (##cdr _%e166648166688%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166490166532%_)) - (let ((_g170911_ + _%hd166649166691%_)) + (let ((_g171070_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166490166532%_ + _%hd166649166691%_ '0)))) (begin - (let ((_g170912_ + (let ((_g171071_ (let () (declare (not safe)) - (if (##values? _g170911_) + (if (##values? _g171070_) (##vector-length - _g170911_) + _g171070_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170912_ 2))) + (##fx= _g171071_ 2))) (error "Context expects 2 values" - _g170912_))) - (let ((_%target166492166537%_ + _g171071_))) + (let ((_%target166651166696%_ (let () (declare (not safe)) (##vector-ref - _g170911_ + _g171070_ 0))) - (_%tl166494166539%_ + (_%tl166653166698%_ (let () (declare (not safe)) (##vector-ref - _g170911_ + _g171070_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166494166539%_)) - (letrec ((_%loop166495166542%_ - (lambda (_%hd166493166545%_ + _%tl166653166698%_)) + (letrec ((_%loop166654166701%_ + (lambda (_%hd166652166704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166499166547%_ - _%hd166500166549%_) + _%expr166658166706%_ + _%hd166659166708%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166493166545%_)) - (let ((_%e166496166552%_ + (gx#stx-pair? _%hd166652166704%_)) + (let ((_%e166655166711%_ (let () (declare (not safe)) - (gx#stx-e _%hd166493166545%_)))) - (let ((_%lp-hd166497166555%_ + (gx#stx-e _%hd166652166704%_)))) + (let ((_%lp-hd166656166714%_ (let () (declare (not safe)) - (##car _%e166496166552%_))) - (_%lp-tl166498166557%_ + (##car _%e166655166711%_))) + (_%lp-tl166657166716%_ (let () (declare (not safe)) - (##cdr _%e166496166552%_)))) + (##cdr _%e166655166711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166497166555%_)) - (let ((_%e166506166560%_ + (gx#stx-pair? _%lp-hd166656166714%_)) + (let ((_%e166665166719%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166497166555%_)))) - (let ((_%hd166507166563%_ + (gx#stx-e _%lp-hd166656166714%_)))) + (let ((_%hd166666166722%_ (let () (declare (not safe)) - (##car _%e166506166560%_))) - (_%tl166508166565%_ + (##car _%e166665166719%_))) + (_%tl166667166724%_ (let () (declare (not safe)) - (##cdr _%e166506166560%_)))) + (##cdr _%e166665166719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166508166565%_)) - (let ((_%e166509166568%_ + (gx#stx-pair? _%tl166667166724%_)) + (let ((_%e166668166727%_ (let () (declare (not safe)) (gx#stx-e - _%tl166508166565%_)))) - (let ((_%hd166510166571%_ + _%tl166667166724%_)))) + (let ((_%hd166669166730%_ (let () (declare (not safe)) - (##car _%e166509166568%_))) - (_%tl166511166573%_ + (##car _%e166668166727%_))) + (_%tl166670166732%_ (let () (declare (not safe)) - (##cdr _%e166509166568%_)))) + (##cdr _%e166668166727%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166511166573%_)) - (_%loop166495166542%_ - _%lp-tl166498166557%_ - (cons _%hd166510166571%_ - _%expr166499166547%_) - (cons _%hd166507166563%_ - _%hd166500166549%_)) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_)))) - (let ((_%expr166501166576%_ - (reverse _%expr166499166547%_)) - (_%hd166502166578%_ - (reverse _%hd166500166549%_))) + _%tl166670166732%_)) + (_%loop166654166701%_ + _%lp-tl166657166716%_ + (cons _%hd166669166730%_ + _%expr166658166706%_) + (cons _%hd166666166722%_ + _%hd166659166708%_)) + (_%g166640166675%_ + _%g166641166678%_)))) + (_%g166640166675%_ + _%g166641166678%_)))) + (_%g166640166675%_ _%g166641166678%_)))) + (let ((_%expr166660166735%_ + (reverse _%expr166658166706%_)) + (_%hd166661166737%_ + (reverse _%hd166659166708%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166491166534%_)) - (let ((_%e166503166581%_ + (gx#stx-pair? _%tl166650166693%_)) + (let ((_%e166662166740%_ (let () (declare (not safe)) - (gx#stx-e _%tl166491166534%_)))) - (let ((_%hd166504166584%_ + (gx#stx-e _%tl166650166693%_)))) + (let ((_%hd166663166743%_ (let () (declare (not safe)) - (##car _%e166503166581%_))) - (_%tl166505166586%_ + (##car _%e166662166740%_))) + (_%tl166664166745%_ (let () (declare (not safe)) - (##cdr _%e166503166581%_)))) + (##cdr _%e166662166740%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166505166586%_)) - ((lambda (_%L166589%_ - _%L166590%_ - _%L166591%_) + (gx#stx-null? _%tl166664166745%_)) + ((lambda (_%L166748%_ + _%L166749%_ + _%L166750%_) (for-each - _%collect-e166479%_ - (let ((__tmp170913 - (lambda (_%g166611166614%_ - _%g166612166616%_) - (cons _%g166611166614%_ - _%g166612166616%_)))) + _%collect-e166638%_ + (let ((__tmp171072 + (lambda (_%g166770166773%_ + _%g166771166775%_) + (cons _%g166770166773%_ + _%g166771166775%_)))) (declare (not safe)) (__foldr1 - __tmp170913 + __tmp171072 '() - _%L166591%_)) - (let ((__tmp170914 - (lambda (_%g166618166621%_ - _%g166619166623%_) - (cons _%g166618166621%_ - _%g166619166623%_)))) + _%L166750%_)) + (let ((__tmp171073 + (lambda (_%g166777166780%_ + _%g166778166782%_) + (cons _%g166777166780%_ + _%g166778166782%_)))) (declare (not safe)) (__foldr1 - __tmp170914 + __tmp171073 '() - _%L166590%_))) + _%L166749%_))) (for-each - (lambda (_%g166625166627%_) + (lambda (_%g166784166786%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166475%_ - _%g166625166627%_))) - (let ((__tmp170915 - (lambda (_%g166629166632%_ - _%g166630166634%_) - (cons _%g166629166632%_ - _%g166630166634%_)))) + _%self166634%_ + _%g166784166786%_))) + (let ((__tmp171074 + (lambda (_%g166788166791%_ + _%g166789166793%_) + (cons _%g166788166791%_ + _%g166789166793%_)))) (declare (not safe)) (__foldr1 - __tmp170915 + __tmp171074 '() - _%L166590%_))) - (let ((__tmp170919 + _%L166749%_))) + (let ((__tmp171078 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self166475%_ - _%L166589%_)))) - (__tmp170916 - (let ((__tmp170917 - (let ((__tmp170918 - (lambda (_%g166637166640%_ + _%self166634%_ + _%L166748%_)))) + (__tmp171075 + (let ((__tmp171076 + (let ((__tmp171077 + (lambda (_%g166796166799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166638166642%_) - (cons _%g166637166640%_ _%g166638166642%_)))) + _%g166797166801%_) + (cons _%g166796166799%_ _%g166797166801%_)))) (declare (not safe)) - (__foldr1 __tmp170918 '() _%L166591%_)))) + (__foldr1 __tmp171077 '() _%L166750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170917)))) + __tmp171076)))) (declare (not safe)) (__call-with-parameters - __tmp170919 + __tmp171078 gxc#current-compile-local-env - __tmp170916))) - _%hd166504166584%_ - _%expr166501166576%_ - _%hd166502166578%_) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_))))))) + __tmp171075))) + _%hd166663166743%_ + _%expr166660166735%_ + _%hd166661166737%_) + (_%g166640166675%_ + _%g166641166678%_)))) + (_%g166640166675%_ _%g166641166678%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166495166542%_ - _%target166492166537%_ + (_%loop166654166701%_ + _%target166651166696%_ '() '())) - (_%g166481166516%_ - _%g166482166519%_))))) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_))))) - (_%g166480166645%_ _%stx166476%_))))) + (_%g166640166675%_ + _%g166641166678%_))))) + (_%g166640166675%_ + _%g166641166678%_)))) + (_%g166640166675%_ _%g166641166678%_)))) + (_%g166640166675%_ _%g166641166678%_))))) + (_%g166639166804%_ _%stx166635%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self166707%_ _%stx166708%_) - (let ((_%expression-type166710%_ gxc#apply-basic-expression-type)) + (lambda (_%self166866%_ _%stx166867%_) + (let ((_%expression-type166869%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self166707%_ - _%stx166708%_ - _%expression-type166710%_)))) + _%self166866%_ + _%stx166867%_ + _%expression-type166869%_)))) (define gxc#collect-type-let-values% - (lambda _g170921_ - (let ((_g170920_ (let () (declare (not safe)) (##length _g170921_)))) - (cond ((let () (declare (not safe)) (##fx= _g170920_ 2)) - (apply gxc#collect-type-let-values%__0 _g170921_)) - ((let () (declare (not safe)) (##fx= _g170920_ 3)) - (apply gxc#collect-type-let-values%__% _g170921_)) + (lambda _g171080_ + (let ((_g171079_ (let () (declare (not safe)) (##length _g171080_)))) + (cond ((let () (declare (not safe)) (##fx= _g171079_ 2)) + (apply gxc#collect-type-let-values%__0 _g171080_)) + ((let () (declare (not safe)) (##fx= _g171079_ 3)) + (apply gxc#collect-type-let-values%__% _g171080_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g170921_)))))) + _g171080_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self166208%_ _%stx166209%_ _%expression-type166210%_) - (letrec ((_%collect-e166212%_ - (lambda (_%hd166406%_ _%expr166407%_) - (let* ((_%__stx168096168097%_ _%hd166406%_) - (_%g166410166420%_ + (lambda (_%self166367%_ _%stx166368%_ _%expression-type166369%_) + (letrec ((_%collect-e166371%_ + (lambda (_%hd166565%_ _%expr166566%_) + (let* ((_%__stx168255168256%_ _%hd166565%_) + (_%g166569166579%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168096168097%_))))) - (let ((_%__kont168098168099%_ - (lambda (_%L166440%_) - (let* ((_%sym166451%_ + _%__stx168255168256%_))))) + (let ((_%__kont168257168258%_ + (lambda (_%L166599%_) + (let* ((_%sym166610%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166440%_))) - (_%type166452166454%_ - (_%expression-type166210%_ - _%expr166407%_))) - (if _%type166452166454%_ - (let ((_%type166457%_ - _%type166452166454%_)) + (gxc#identifier-symbol _%L166599%_))) + (_%type166611166613%_ + (_%expression-type166369%_ + _%expr166566%_))) + (if _%type166611166613%_ + (let ((_%type166616%_ + _%type166611166613%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166457%_ + _%type166616%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp170922 + (let ((__tmp171081 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166457%_ + _%type166616%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166451%_ - __tmp170922)) - (let ((__tmp170923 + _%sym166610%_ + __tmp171081)) + (let ((__tmp171082 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166209%_ + _%stx166368%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166451%_ - __tmp170923 + _%sym166610%_ + __tmp171082 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166451%_ - _%type166457%_ + _%sym166610%_ + _%type166616%_ '#t)))) '#f)))) - (_%__kont168100168101%_ (lambda () '#!void))) - (let ((_%__match168109168110%_ - (lambda (_%e166413166432%_ - _%hd166414166435%_ - _%tl166415166437%_) - (let ((_%L166440%_ _%hd166414166435%_)) + (_%__kont168259168260%_ (lambda () '#!void))) + (let ((_%__match168268168269%_ + (lambda (_%e166572166591%_ + _%hd166573166594%_ + _%tl166574166596%_) + (let ((_%L166599%_ _%hd166573166594%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166440%_)) - (_%__kont168098168099%_ _%L166440%_) - (_%__kont168100168101%_)))))) + (gx#identifier? _%L166599%_)) + (_%__kont168257168258%_ _%L166599%_) + (_%__kont168259168260%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168096168097%_)) - (let ((_%e166413166432%_ + (gx#stx-pair? _%__stx168255168256%_)) + (let ((_%e166572166591%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168096168097%_)))) - (let ((_%tl166415166437%_ + (gx#stx-e _%__stx168255168256%_)))) + (let ((_%tl166574166596%_ (let () (declare (not safe)) - (##cdr _%e166413166432%_))) - (_%hd166414166435%_ + (##cdr _%e166572166591%_))) + (_%hd166573166594%_ (let () (declare (not safe)) - (##car _%e166413166432%_)))) + (##car _%e166572166591%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166415166437%_)) - (_%__match168109168110%_ - _%e166413166432%_ - _%hd166414166435%_ - _%tl166415166437%_) - (_%__kont168100168101%_)))) - (_%__kont168100168101%_)))))))) - (let* ((_%g166214166249%_ - (lambda (_%g166215166246%_) + (gx#stx-null? _%tl166574166596%_)) + (_%__match168268168269%_ + _%e166572166591%_ + _%hd166573166594%_ + _%tl166574166596%_) + (_%__kont168259168260%_)))) + (_%__kont168259168260%_)))))))) + (let* ((_%g166373166408%_ + (lambda (_%g166374166405%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166215166246%_)))) - (_%g166213166403%_ - (lambda (_%g166215166252%_) + _%g166374166405%_)))) + (_%g166372166562%_ + (lambda (_%g166374166411%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166215166252%_)) - (let ((_%e166219166254%_ + (gx#stx-pair? _%g166374166411%_)) + (let ((_%e166378166413%_ (let () (declare (not safe)) - (gx#stx-e _%g166215166252%_)))) - (let ((_%hd166220166257%_ + (gx#stx-e _%g166374166411%_)))) + (let ((_%hd166379166416%_ (let () (declare (not safe)) - (##car _%e166219166254%_))) - (_%tl166221166259%_ + (##car _%e166378166413%_))) + (_%tl166380166418%_ (let () (declare (not safe)) - (##cdr _%e166219166254%_)))) + (##cdr _%e166378166413%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166221166259%_)) - (let ((_%e166222166262%_ + (gx#stx-pair? _%tl166380166418%_)) + (let ((_%e166381166421%_ (let () (declare (not safe)) - (gx#stx-e _%tl166221166259%_)))) - (let ((_%hd166223166265%_ + (gx#stx-e _%tl166380166418%_)))) + (let ((_%hd166382166424%_ (let () (declare (not safe)) - (##car _%e166222166262%_))) - (_%tl166224166267%_ + (##car _%e166381166421%_))) + (_%tl166383166426%_ (let () (declare (not safe)) - (##cdr _%e166222166262%_)))) + (##cdr _%e166381166421%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166223166265%_)) - (let ((_g170924_ + _%hd166382166424%_)) + (let ((_g171083_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166223166265%_ + _%hd166382166424%_ '0)))) (begin - (let ((_g170925_ + (let ((_g171084_ (let () (declare (not safe)) - (if (##values? _g170924_) + (if (##values? _g171083_) (##vector-length - _g170924_) + _g171083_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170925_ 2))) + (##fx= _g171084_ 2))) (error "Context expects 2 values" - _g170925_))) - (let ((_%target166225166270%_ + _g171084_))) + (let ((_%target166384166429%_ (let () (declare (not safe)) (##vector-ref - _g170924_ + _g171083_ 0))) - (_%tl166227166272%_ + (_%tl166386166431%_ (let () (declare (not safe)) (##vector-ref - _g170924_ + _g171083_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166227166272%_)) - (letrec ((_%loop166228166275%_ - (lambda (_%hd166226166278%_ + _%tl166386166431%_)) + (letrec ((_%loop166387166434%_ + (lambda (_%hd166385166437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166232166280%_ - _%hd166233166282%_) + _%expr166391166439%_ + _%hd166392166441%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166226166278%_)) - (let ((_%e166229166285%_ + (gx#stx-pair? _%hd166385166437%_)) + (let ((_%e166388166444%_ (let () (declare (not safe)) - (gx#stx-e _%hd166226166278%_)))) - (let ((_%lp-hd166230166288%_ + (gx#stx-e _%hd166385166437%_)))) + (let ((_%lp-hd166389166447%_ (let () (declare (not safe)) - (##car _%e166229166285%_))) - (_%lp-tl166231166290%_ + (##car _%e166388166444%_))) + (_%lp-tl166390166449%_ (let () (declare (not safe)) - (##cdr _%e166229166285%_)))) + (##cdr _%e166388166444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166230166288%_)) - (let ((_%e166239166293%_ + (gx#stx-pair? _%lp-hd166389166447%_)) + (let ((_%e166398166452%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166230166288%_)))) - (let ((_%hd166240166296%_ + (gx#stx-e _%lp-hd166389166447%_)))) + (let ((_%hd166399166455%_ (let () (declare (not safe)) - (##car _%e166239166293%_))) - (_%tl166241166298%_ + (##car _%e166398166452%_))) + (_%tl166400166457%_ (let () (declare (not safe)) - (##cdr _%e166239166293%_)))) + (##cdr _%e166398166452%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166241166298%_)) - (let ((_%e166242166301%_ + (gx#stx-pair? _%tl166400166457%_)) + (let ((_%e166401166460%_ (let () (declare (not safe)) (gx#stx-e - _%tl166241166298%_)))) - (let ((_%hd166243166304%_ + _%tl166400166457%_)))) + (let ((_%hd166402166463%_ (let () (declare (not safe)) - (##car _%e166242166301%_))) - (_%tl166244166306%_ + (##car _%e166401166460%_))) + (_%tl166403166465%_ (let () (declare (not safe)) - (##cdr _%e166242166301%_)))) + (##cdr _%e166401166460%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166244166306%_)) - (_%loop166228166275%_ - _%lp-tl166231166290%_ - (cons _%hd166243166304%_ - _%expr166232166280%_) - (cons _%hd166240166296%_ - _%hd166233166282%_)) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_)))) - (let ((_%expr166234166309%_ - (reverse _%expr166232166280%_)) - (_%hd166235166311%_ - (reverse _%hd166233166282%_))) + _%tl166403166465%_)) + (_%loop166387166434%_ + _%lp-tl166390166449%_ + (cons _%hd166402166463%_ + _%expr166391166439%_) + (cons _%hd166399166455%_ + _%hd166392166441%_)) + (_%g166373166408%_ + _%g166374166411%_)))) + (_%g166373166408%_ + _%g166374166411%_)))) + (_%g166373166408%_ _%g166374166411%_)))) + (let ((_%expr166393166468%_ + (reverse _%expr166391166439%_)) + (_%hd166394166470%_ + (reverse _%hd166392166441%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166224166267%_)) - (let ((_%e166236166314%_ + (gx#stx-pair? _%tl166383166426%_)) + (let ((_%e166395166473%_ (let () (declare (not safe)) - (gx#stx-e _%tl166224166267%_)))) - (let ((_%hd166237166317%_ + (gx#stx-e _%tl166383166426%_)))) + (let ((_%hd166396166476%_ (let () (declare (not safe)) - (##car _%e166236166314%_))) - (_%tl166238166319%_ + (##car _%e166395166473%_))) + (_%tl166397166478%_ (let () (declare (not safe)) - (##cdr _%e166236166314%_)))) + (##cdr _%e166395166473%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166238166319%_)) - ((lambda (_%L166322%_ - _%L166323%_ - _%L166324%_) - (let ((__tmp170929 + (gx#stx-null? _%tl166397166478%_)) + ((lambda (_%L166481%_ + _%L166482%_ + _%L166483%_) + (let ((__tmp171088 (lambda () (for-each - _%collect-e166212%_ - (let ((__tmp170930 - (lambda (_%g166345166348%_ + _%collect-e166371%_ + (let ((__tmp171089 + (lambda (_%g166504166507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166346166350%_) - (cons _%g166345166348%_ _%g166346166350%_)))) + _%g166505166509%_) + (cons _%g166504166507%_ _%g166505166509%_)))) (declare (not safe)) - (__foldr1 __tmp170930 '() _%L166324%_)) + (__foldr1 __tmp171089 '() _%L166483%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170931 - (lambda (_%g166352166355%_ + (let ((__tmp171090 + (lambda (_%g166511166514%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166353166357%_) - (cons _%g166352166355%_ _%g166353166357%_)))) + _%g166512166516%_) + (cons _%g166511166514%_ _%g166512166516%_)))) (declare (not safe)) - (__foldr1 __tmp170931 '() _%L166323%_))) + (__foldr1 __tmp171090 '() _%L166482%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166359166361%_) + (lambda (_%g166518166520%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166208%_ - _%g166359166361%_))) - (let ((__tmp170932 - (lambda (_%g166363166366%_ + _%self166367%_ + _%g166518166520%_))) + (let ((__tmp171091 + (lambda (_%g166522166525%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166364166368%_) - (cons _%g166363166366%_ _%g166364166368%_)))) + _%g166523166527%_) + (cons _%g166522166525%_ _%g166523166527%_)))) (declare (not safe)) - (__foldr1 __tmp170932 '() _%L166323%_))) + (__foldr1 __tmp171091 '() _%L166482%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e166212%_ - (let ((__tmp170933 - (lambda (_%g166370166373%_ + _%collect-e166371%_ + (let ((__tmp171092 + (lambda (_%g166529166532%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166371166375%_) - (cons _%g166370166373%_ _%g166371166375%_)))) + _%g166530166534%_) + (cons _%g166529166532%_ _%g166530166534%_)))) (declare (not safe)) - (__foldr1 __tmp170933 '() _%L166324%_)) + (__foldr1 __tmp171092 '() _%L166483%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170934 - (lambda (_%g166377166380%_ + (let ((__tmp171093 + (lambda (_%g166536166539%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166378166382%_) - (cons _%g166377166380%_ _%g166378166382%_)))) + _%g166537166541%_) + (cons _%g166536166539%_ _%g166537166541%_)))) (declare (not safe)) - (__foldr1 __tmp170934 '() _%L166323%_))) + (__foldr1 __tmp171093 '() _%L166482%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166384166386%_) + (lambda (_%g166543166545%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166208%_ - _%g166384166386%_))) - (let ((__tmp170935 - (lambda (_%g166388166391%_ + _%self166367%_ + _%g166543166545%_))) + (let ((__tmp171094 + (lambda (_%g166547166550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166389166393%_) - (cons _%g166388166391%_ _%g166389166393%_)))) + _%g166548166552%_) + (cons _%g166547166550%_ _%g166548166552%_)))) (declare (not safe)) - (__foldr1 __tmp170935 '() _%L166323%_))) + (__foldr1 __tmp171094 '() _%L166482%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self166208%_ - _%L166322%_)))) - (__tmp170926 - (let ((__tmp170927 - (let ((__tmp170928 - (lambda (_%g166395166398%_ + _%self166367%_ + _%L166481%_)))) + (__tmp171085 + (let ((__tmp171086 + (let ((__tmp171087 + (lambda (_%g166554166557%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166396166400%_) - (cons _%g166395166398%_ _%g166396166400%_)))) + _%g166555166559%_) + (cons _%g166554166557%_ _%g166555166559%_)))) (declare (not safe)) - (__foldr1 __tmp170928 '() _%L166324%_)))) + (__foldr1 __tmp171087 '() _%L166483%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170927)))) + __tmp171086)))) (declare (not safe)) (__call-with-parameters - __tmp170929 + __tmp171088 gxc#current-compile-local-env - __tmp170926))) - _%hd166237166317%_ - _%expr166234166309%_ - _%hd166235166311%_) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_))))))) + __tmp171085))) + _%hd166396166476%_ + _%expr166393166468%_ + _%hd166394166470%_) + (_%g166373166408%_ + _%g166374166411%_)))) + (_%g166373166408%_ _%g166374166411%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166228166275%_ - _%target166225166270%_ + (_%loop166387166434%_ + _%target166384166429%_ '() '())) - (_%g166214166249%_ - _%g166215166252%_))))) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_))))) - (_%g166213166403%_ _%stx166209%_))))) + (_%g166373166408%_ + _%g166374166411%_))))) + (_%g166373166408%_ + _%g166374166411%_)))) + (_%g166373166408%_ _%g166374166411%_)))) + (_%g166373166408%_ _%g166374166411%_))))) + (_%g166372166562%_ _%stx166368%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self166465%_ _%stx166466%_) - (let ((_%expression-type166468%_ gxc#apply-basic-expression-type)) + (lambda (_%self166624%_ _%stx166625%_) + (let ((_%expression-type166627%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self166465%_ - _%stx166466%_ - _%expression-type166468%_)))) + _%self166624%_ + _%stx166625%_ + _%expression-type166627%_)))) (define gxc#collect-type-letrec-values% - (lambda _g170937_ - (let ((_g170936_ (let () (declare (not safe)) (##length _g170937_)))) - (cond ((let () (declare (not safe)) (##fx= _g170936_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g170937_)) - ((let () (declare (not safe)) (##fx= _g170936_ 3)) - (apply gxc#collect-type-letrec-values%__% _g170937_)) + (lambda _g171096_ + (let ((_g171095_ (let () (declare (not safe)) (##length _g171096_)))) + (cond ((let () (declare (not safe)) (##fx= _g171095_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g171096_)) + ((let () (declare (not safe)) (##fx= _g171095_ 3)) + (apply gxc#collect-type-letrec-values%__% _g171096_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g170937_)))))) + _g171096_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self166204%_ _%stx166205%_) + (lambda (_%self166363%_ _%stx166364%_) (gxc#collect-type-let-values%__% - _%self166204%_ - _%stx166205%_ + _%self166363%_ + _%stx166364%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self166201%_ _%stx166202%_) + (lambda (_%self166360%_ _%stx166361%_) (gxc#collect-type-letrec-values%__% - _%self166201%_ - _%stx166202%_ + _%self166360%_ + _%stx166361%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self165688%_ _%stx165689%_) - (let* ((_%__stx168112168113%_ _%stx165689%_) - (_%g165693165808%_ + (lambda (_%self165847%_ _%stx165848%_) + (let* ((_%__stx168271168272%_ _%stx165848%_) + (_%g165852165967%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168112168113%_))))) - (let ((_%__kont168114168115%_ - (lambda (_%L166151%_ - _%L166152%_ - _%L166153%_ - _%L166154%_ - _%L166155%_) - (let ((__tmp170941 + _%__stx168271168272%_))))) + (let ((_%__kont168273168274%_ + (lambda (_%L166310%_ + _%L166311%_ + _%L166312%_ + _%L166313%_ + _%L166314%_) + (let ((__tmp171100 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166154%_))) - (__tmp170940 - (let () (declare (not safe)) (gx#stx-e _%L166153%_))) - (__tmp170939 + (gxc#identifier-symbol _%L166313%_))) + (__tmp171099 + (let () (declare (not safe)) (gx#stx-e _%L166312%_))) + (__tmp171098 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166152%_))) - (__tmp170938 + (gxc#identifier-symbol _%L166311%_))) + (__tmp171097 (let () (declare (not safe)) - (gx#stx-e _%L166151%_)))) + (gx#stx-e _%L166310%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp170941 - __tmp170940 - __tmp170939 - __tmp170938)))) - (_%__kont168116168117%_ - (lambda (_%L165979%_ _%L165980%_ _%L165981%_ _%L165982%_) - (let ((__tmp170944 + __tmp171100 + __tmp171099 + __tmp171098 + __tmp171097)))) + (_%__kont168275168276%_ + (lambda (_%L166138%_ _%L166139%_ _%L166140%_ _%L166141%_) + (let ((__tmp171103 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165981%_))) - (__tmp170943 - (let () (declare (not safe)) (gx#stx-e _%L165980%_))) - (__tmp170942 + (gxc#identifier-symbol _%L166140%_))) + (__tmp171102 + (let () (declare (not safe)) (gx#stx-e _%L166139%_))) + (__tmp171101 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165979%_)))) + (gxc#identifier-symbol _%L166138%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp170944 - __tmp170943 - __tmp170942 + __tmp171103 + __tmp171102 + __tmp171101 '#f)))) - (_%__kont168118168119%_ - (lambda (_%L165845%_) + (_%__kont168277168278%_ + (lambda (_%L166004%_) (for-each - (lambda (_%g165858165860%_) + (lambda (_%g166017166019%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165688%_ _%g165858165860%_))) - (let ((__tmp170945 - (lambda (_%g165862165865%_ _%g165863165867%_) - (cons _%g165862165865%_ _%g165863165867%_)))) + (gxc#compile-e__1 _%self165847%_ _%g166017166019%_))) + (let ((__tmp171104 + (lambda (_%g166021166024%_ _%g166022166026%_) + (cons _%g166021166024%_ _%g166022166026%_)))) (declare (not safe)) - (__foldr1 __tmp170945 '() _%L165845%_)))))) - (let* ((_%__match168369168370%_ - (lambda (_%e165792165813%_ - _%hd165793165816%_ - _%tl165794165818%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (letrec ((_%loop165798165826%_ - (lambda (_%hd165796165829%_ - _%expr165802165831%_) + (__foldr1 __tmp171104 '() _%L166004%_)))))) + (let* ((_%__match168528168529%_ + (lambda (_%e165951165972%_ + _%hd165952165975%_ + _%tl165953165977%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) + (letrec ((_%loop165957165985%_ + (lambda (_%hd165955165988%_ + _%expr165961165990%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165796165829%_)) - (let ((_%e165799165834%_ + (gx#stx-pair? _%hd165955165988%_)) + (let ((_%e165958165993%_ (let () (declare (not safe)) - (gx#stx-e _%hd165796165829%_)))) - (let ((_%lp-tl165801165839%_ + (gx#stx-e _%hd165955165988%_)))) + (let ((_%lp-tl165960165998%_ (let () (declare (not safe)) - (##cdr _%e165799165834%_))) - (_%lp-hd165800165837%_ + (##cdr _%e165958165993%_))) + (_%lp-hd165959165996%_ (let () (declare (not safe)) - (##car _%e165799165834%_)))) - (_%loop165798165826%_ - _%lp-tl165801165839%_ - (cons _%lp-hd165800165837%_ - _%expr165802165831%_)))) - (let ((_%expr165803165842%_ - (reverse _%expr165802165831%_))) - (_%__kont168118168119%_ - _%expr165803165842%_)))))) - (_%loop165798165826%_ _%target165795165821%_ '())))) - (_%__match168249168250%_ - (lambda (_%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%e165703166031%_ - _%hd165704166034%_ - _%tl165705166036%_ - _%e165706166039%_ - _%hd165707166042%_ - _%tl165708166044%_ - _%e165709166047%_ - _%hd165710166050%_ - _%tl165711166052%_ - _%e165712166055%_ - _%hd165713166058%_ - _%tl165714166060%_ - _%e165715166063%_ - _%hd165716166066%_ - _%tl165717166068%_ - _%e165718166071%_ - _%hd165719166074%_ - _%tl165720166076%_ - _%e165721166079%_ - _%hd165722166082%_ - _%tl165723166084%_ - _%e165724166087%_ - _%hd165725166090%_ - _%tl165726166092%_ - _%e165727166095%_ - _%hd165728166098%_ - _%tl165729166100%_ - _%e165730166103%_ - _%hd165731166106%_ - _%tl165732166108%_ - _%e165733166111%_ - _%hd165734166114%_ - _%tl165735166116%_ - _%e165736166119%_ - _%hd165737166122%_ - _%tl165738166124%_ - _%e165739166127%_ - _%hd165740166130%_ - _%tl165741166132%_ - _%e165742166135%_ - _%hd165743166138%_ - _%tl165744166140%_ - _%e165745166143%_ - _%hd165746166146%_ - _%tl165747166148%_) - (let ((_%L166151%_ _%hd165746166146%_) - (_%L166152%_ _%hd165737166122%_) - (_%L166153%_ _%hd165728166098%_) - (_%L166154%_ _%hd165719166074%_) - (_%L166155%_ _%hd165710166050%_)) + (##car _%e165958165993%_)))) + (_%loop165957165985%_ + _%lp-tl165960165998%_ + (cons _%lp-hd165959165996%_ + _%expr165961165990%_)))) + (let ((_%expr165962166001%_ + (reverse _%expr165961165990%_))) + (_%__kont168277168278%_ + _%expr165962166001%_)))))) + (_%loop165957165985%_ _%target165954165980%_ '())))) + (_%__match168408168409%_ + (lambda (_%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%e165862166190%_ + _%hd165863166193%_ + _%tl165864166195%_ + _%e165865166198%_ + _%hd165866166201%_ + _%tl165867166203%_ + _%e165868166206%_ + _%hd165869166209%_ + _%tl165870166211%_ + _%e165871166214%_ + _%hd165872166217%_ + _%tl165873166219%_ + _%e165874166222%_ + _%hd165875166225%_ + _%tl165876166227%_ + _%e165877166230%_ + _%hd165878166233%_ + _%tl165879166235%_ + _%e165880166238%_ + _%hd165881166241%_ + _%tl165882166243%_ + _%e165883166246%_ + _%hd165884166249%_ + _%tl165885166251%_ + _%e165886166254%_ + _%hd165887166257%_ + _%tl165888166259%_ + _%e165889166262%_ + _%hd165890166265%_ + _%tl165891166267%_ + _%e165892166270%_ + _%hd165893166273%_ + _%tl165894166275%_ + _%e165895166278%_ + _%hd165896166281%_ + _%tl165897166283%_ + _%e165898166286%_ + _%hd165899166289%_ + _%tl165900166291%_ + _%e165901166294%_ + _%hd165902166297%_ + _%tl165903166299%_ + _%e165904166302%_ + _%hd165905166305%_ + _%tl165906166307%_) + (let ((_%L166310%_ _%hd165905166305%_) + (_%L166311%_ _%hd165896166281%_) + (_%L166312%_ _%hd165887166257%_) + (_%L166313%_ _%hd165878166233%_) + (_%L166314%_ _%hd165869166209%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166155%_ + _%L166314%_ 'bind-method!)) - (_%__kont168114168115%_ - _%L166151%_ - _%L166152%_ - _%L166153%_ - _%L166154%_ - _%L166155%_) + (_%__kont168273168274%_ + _%L166310%_ + _%L166311%_ + _%L166312%_ + _%L166313%_ + _%L166314%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))))) + (_%g165852165967%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168112168113%_)) - (let ((_%e165700166023%_ + (gx#stx-pair? _%__stx168271168272%_)) + (let ((_%e165859166182%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168112168113%_)))) - (let ((_%tl165702166028%_ + (gx#stx-e _%__stx168271168272%_)))) + (let ((_%tl165861166187%_ (let () (declare (not safe)) - (##cdr _%e165700166023%_))) - (_%hd165701166026%_ + (##cdr _%e165859166182%_))) + (_%hd165860166185%_ (let () (declare (not safe)) - (##car _%e165700166023%_)))) + (##car _%e165859166182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165702166028%_)) - (let ((_%e165703166031%_ + (gx#stx-pair? _%tl165861166187%_)) + (let ((_%e165862166190%_ (let () (declare (not safe)) - (gx#stx-e _%tl165702166028%_)))) - (let ((_%tl165705166036%_ + (gx#stx-e _%tl165861166187%_)))) + (let ((_%tl165864166195%_ (let () (declare (not safe)) - (##cdr _%e165703166031%_))) - (_%hd165704166034%_ + (##cdr _%e165862166190%_))) + (_%hd165863166193%_ (let () (declare (not safe)) - (##car _%e165703166031%_)))) + (##car _%e165862166190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165704166034%_)) - (let ((_%e165706166039%_ + (gx#stx-pair? _%hd165863166193%_)) + (let ((_%e165865166198%_ (let () (declare (not safe)) - (gx#stx-e _%hd165704166034%_)))) - (let ((_%tl165708166044%_ + (gx#stx-e _%hd165863166193%_)))) + (let ((_%tl165867166203%_ (let () (declare (not safe)) - (##cdr _%e165706166039%_))) - (_%hd165707166042%_ + (##cdr _%e165865166198%_))) + (_%hd165866166201%_ (let () (declare (not safe)) - (##car _%e165706166039%_)))) + (##car _%e165865166198%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165707166042%_)) + _%hd165866166201%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165707166042%_)) + _%hd165866166201%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165708166044%_)) - (let ((_%e165709166047%_ + _%tl165867166203%_)) + (let ((_%e165868166206%_ (let () (declare (not safe)) (gx#stx-e - _%tl165708166044%_)))) - (let ((_%tl165711166052%_ + _%tl165867166203%_)))) + (let ((_%tl165870166211%_ (let () (declare (not safe)) - (##cdr _%e165709166047%_))) - (_%hd165710166050%_ + (##cdr _%e165868166206%_))) + (_%hd165869166209%_ (let () (declare (not safe)) - (##car _%e165709166047%_)))) + (##car _%e165868166206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165711166052%_)) + _%tl165870166211%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl165705166036%_)) - (let ((_%e165712166055%_ + (gx#stx-pair? _%tl165864166195%_)) + (let ((_%e165871166214%_ (let () (declare (not safe)) - (gx#stx-e _%tl165705166036%_)))) - (let ((_%tl165714166060%_ + (gx#stx-e _%tl165864166195%_)))) + (let ((_%tl165873166219%_ (let () (declare (not safe)) - (##cdr _%e165712166055%_))) - (_%hd165713166058%_ + (##cdr _%e165871166214%_))) + (_%hd165872166217%_ (let () (declare (not safe)) - (##car _%e165712166055%_)))) + (##car _%e165871166214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165713166058%_)) - (let ((_%e165715166063%_ + (gx#stx-pair? _%hd165872166217%_)) + (let ((_%e165874166222%_ (let () (declare (not safe)) - (gx#stx-e _%hd165713166058%_)))) - (let ((_%tl165717166068%_ + (gx#stx-e _%hd165872166217%_)))) + (let ((_%tl165876166227%_ (let () (declare (not safe)) - (##cdr _%e165715166063%_))) - (_%hd165716166066%_ + (##cdr _%e165874166222%_))) + (_%hd165875166225%_ (let () (declare (not safe)) - (##car _%e165715166063%_)))) + (##car _%e165874166222%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165716166066%_)) + (gx#identifier? _%hd165875166225%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165716166066%_)) + _%hd165875166225%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165717166068%_)) - (let ((_%e165718166071%_ + _%tl165876166227%_)) + (let ((_%e165877166230%_ (let () (declare (not safe)) (gx#stx-e - _%tl165717166068%_)))) - (let ((_%tl165720166076%_ + _%tl165876166227%_)))) + (let ((_%tl165879166235%_ (let () (declare (not safe)) - (##cdr _%e165718166071%_))) - (_%hd165719166074%_ + (##cdr _%e165877166230%_))) + (_%hd165878166233%_ (let () (declare (not safe)) - (##car _%e165718166071%_)))) + (##car _%e165877166230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165720166076%_)) + _%tl165879166235%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165714166060%_)) - (let ((_%e165721166079%_ + _%tl165873166219%_)) + (let ((_%e165880166238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165714166060%_)))) - (let ((_%tl165723166084%_ + (gx#stx-e _%tl165873166219%_)))) + (let ((_%tl165882166243%_ (let () (declare (not safe)) - (##cdr _%e165721166079%_))) - (_%hd165722166082%_ + (##cdr _%e165880166238%_))) + (_%hd165881166241%_ (let () (declare (not safe)) - (##car _%e165721166079%_)))) + (##car _%e165880166238%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165722166082%_)) - (let ((_%e165724166087%_ + (gx#stx-pair? _%hd165881166241%_)) + (let ((_%e165883166246%_ (let () (declare (not safe)) - (gx#stx-e _%hd165722166082%_)))) - (let ((_%tl165726166092%_ + (gx#stx-e _%hd165881166241%_)))) + (let ((_%tl165885166251%_ (let () (declare (not safe)) - (##cdr _%e165724166087%_))) - (_%hd165725166090%_ + (##cdr _%e165883166246%_))) + (_%hd165884166249%_ (let () (declare (not safe)) - (##car _%e165724166087%_)))) + (##car _%e165883166246%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165725166090%_)) + (gx#identifier? _%hd165884166249%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd165725166090%_)) + _%hd165884166249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165726166092%_)) - (let ((_%e165727166095%_ + (gx#stx-pair? _%tl165885166251%_)) + (let ((_%e165886166254%_ (let () (declare (not safe)) (gx#stx-e - _%tl165726166092%_)))) - (let ((_%tl165729166100%_ + _%tl165885166251%_)))) + (let ((_%tl165888166259%_ (let () (declare (not safe)) - (##cdr _%e165727166095%_))) - (_%hd165728166098%_ + (##cdr _%e165886166254%_))) + (_%hd165887166257%_ (let () (declare (not safe)) - (##car _%e165727166095%_)))) + (##car _%e165886166254%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165729166100%_)) + _%tl165888166259%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165723166084%_)) - (let ((_%e165730166103%_ + _%tl165882166243%_)) + (let ((_%e165889166262%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165723166084%_)))) - (let ((_%tl165732166108%_ - (let () (declare (not safe)) (##cdr _%e165730166103%_))) - (_%hd165731166106%_ + (gx#stx-e _%tl165882166243%_)))) + (let ((_%tl165891166267%_ + (let () (declare (not safe)) (##cdr _%e165889166262%_))) + (_%hd165890166265%_ (let () (declare (not safe)) - (##car _%e165730166103%_)))) + (##car _%e165889166262%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165731166106%_)) - (let ((_%e165733166111%_ + (gx#stx-pair? _%hd165890166265%_)) + (let ((_%e165892166270%_ (let () (declare (not safe)) - (gx#stx-e _%hd165731166106%_)))) - (let ((_%tl165735166116%_ + (gx#stx-e _%hd165890166265%_)))) + (let ((_%tl165894166275%_ (let () (declare (not safe)) - (##cdr _%e165733166111%_))) - (_%hd165734166114%_ + (##cdr _%e165892166270%_))) + (_%hd165893166273%_ (let () (declare (not safe)) - (##car _%e165733166111%_)))) + (##car _%e165892166270%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165734166114%_)) + (gx#identifier? _%hd165893166273%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165734166114%_)) + (gx#stx-eq? '%#ref _%hd165893166273%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165735166116%_)) - (let ((_%e165736166119%_ + (gx#stx-pair? _%tl165894166275%_)) + (let ((_%e165895166278%_ (let () (declare (not safe)) - (gx#stx-e _%tl165735166116%_)))) - (let ((_%tl165738166124%_ + (gx#stx-e _%tl165894166275%_)))) + (let ((_%tl165897166283%_ (let () (declare (not safe)) - (##cdr _%e165736166119%_))) - (_%hd165737166122%_ + (##cdr _%e165895166278%_))) + (_%hd165896166281%_ (let () (declare (not safe)) - (##car _%e165736166119%_)))) + (##car _%e165895166278%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165738166124%_)) + _%tl165897166283%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165732166108%_)) - (let ((_%e165739166127%_ + _%tl165891166267%_)) + (let ((_%e165898166286%_ (let () (declare (not safe)) (gx#stx-e - _%tl165732166108%_)))) - (let ((_%tl165741166132%_ + _%tl165891166267%_)))) + (let ((_%tl165900166291%_ (let () (declare (not safe)) - (##cdr _%e165739166127%_))) - (_%hd165740166130%_ + (##cdr _%e165898166286%_))) + (_%hd165899166289%_ (let () (declare (not safe)) - (##car _%e165739166127%_)))) + (##car _%e165898166286%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165740166130%_)) - (let ((_%e165742166135%_ + _%hd165899166289%_)) + (let ((_%e165901166294%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165740166130%_)))) - (let ((_%tl165744166140%_ + (gx#stx-e _%hd165899166289%_)))) + (let ((_%tl165903166299%_ (let () (declare (not safe)) - (##cdr _%e165742166135%_))) - (_%hd165743166138%_ + (##cdr _%e165901166294%_))) + (_%hd165902166297%_ (let () (declare (not safe)) - (##car _%e165742166135%_)))) + (##car _%e165901166294%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165743166138%_)) + (gx#identifier? _%hd165902166297%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd165743166138%_)) + (gx#stx-eq? '%#quote _%hd165902166297%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165744166140%_)) - (let ((_%e165745166143%_ + (gx#stx-pair? _%tl165903166299%_)) + (let ((_%e165904166302%_ (let () (declare (not safe)) - (gx#stx-e _%tl165744166140%_)))) - (let ((_%tl165747166148%_ + (gx#stx-e _%tl165903166299%_)))) + (let ((_%tl165906166307%_ (let () (declare (not safe)) - (##cdr _%e165745166143%_))) - (_%hd165746166146%_ + (##cdr _%e165904166302%_))) + (_%hd165905166305%_ (let () (declare (not safe)) - (##car _%e165745166143%_)))) + (##car _%e165904166302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165747166148%_)) + (gx#stx-null? _%tl165906166307%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165741166132%_)) - (_%__match168249168250%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%e165703166031%_ - _%hd165704166034%_ - _%tl165705166036%_ - _%e165706166039%_ - _%hd165707166042%_ - _%tl165708166044%_ - _%e165709166047%_ - _%hd165710166050%_ - _%tl165711166052%_ - _%e165712166055%_ - _%hd165713166058%_ - _%tl165714166060%_ - _%e165715166063%_ - _%hd165716166066%_ - _%tl165717166068%_ - _%e165718166071%_ - _%hd165719166074%_ - _%tl165720166076%_ - _%e165721166079%_ - _%hd165722166082%_ - _%tl165723166084%_ - _%e165724166087%_ - _%hd165725166090%_ - _%tl165726166092%_ - _%e165727166095%_ - _%hd165728166098%_ - _%tl165729166100%_ - _%e165730166103%_ - _%hd165731166106%_ - _%tl165732166108%_ - _%e165733166111%_ - _%hd165734166114%_ - _%tl165735166116%_ - _%e165736166119%_ - _%hd165737166122%_ - _%tl165738166124%_ - _%e165739166127%_ - _%hd165740166130%_ - _%tl165741166132%_ - _%e165742166135%_ - _%hd165743166138%_ - _%tl165744166140%_ - _%e165745166143%_ - _%hd165746166146%_ - _%tl165747166148%_) + _%tl165900166291%_)) + (_%__match168408168409%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%e165862166190%_ + _%hd165863166193%_ + _%tl165864166195%_ + _%e165865166198%_ + _%hd165866166201%_ + _%tl165867166203%_ + _%e165868166206%_ + _%hd165869166209%_ + _%tl165870166211%_ + _%e165871166214%_ + _%hd165872166217%_ + _%tl165873166219%_ + _%e165874166222%_ + _%hd165875166225%_ + _%tl165876166227%_ + _%e165877166230%_ + _%hd165878166233%_ + _%tl165879166235%_ + _%e165880166238%_ + _%hd165881166241%_ + _%tl165882166243%_ + _%e165883166246%_ + _%hd165884166249%_ + _%tl165885166251%_ + _%e165886166254%_ + _%hd165887166257%_ + _%tl165888166259%_ + _%e165889166262%_ + _%hd165890166265%_ + _%tl165891166267%_ + _%e165892166270%_ + _%hd165893166273%_ + _%tl165894166275%_ + _%e165895166278%_ + _%hd165896166281%_ + _%tl165897166283%_ + _%e165898166286%_ + _%hd165899166289%_ + _%tl165900166291%_ + _%e165901166294%_ + _%hd165902166297%_ + _%tl165903166299%_ + _%e165904166302%_ + _%hd165905166305%_ + _%tl165906166307%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl165732166108%_)) - (if (let ((__tmp170946 + _%tl165891166267%_)) + (if (let ((__tmp171105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp170946 'bind-method!)) - (let ((_%L165979%_ _%hd165737166122%_) - (_%L165980%_ _%hd165728166098%_) - (_%L165981%_ _%hd165719166074%_) - (_%L165982%_ _%hd165710166050%_)) - (_%__kont168116168117%_ - _%L165979%_ - _%L165980%_ - _%L165981%_ - _%L165982%_)) + (gxc#runtime-identifier=? __tmp171105 'bind-method!)) + (let ((_%L166138%_ _%hd165896166281%_) + (_%L166139%_ _%hd165887166257%_) + (_%L166140%_ _%hd165878166233%_) + (_%L166141%_ _%hd165869166209%_)) + (_%__kont168275168276%_ + _%L166138%_ + _%L166139%_ + _%L166140%_ + _%L166141%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl165861166187%_ '0)))) + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_))))) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) + (let () (declare (not safe)) (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl165861166187%_ '0)))) + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) + (let () (declare (not safe)) (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl165861166187%_ '0)))) + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) + (let () (declare (not safe)) (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl165861166187%_ '0)))) + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) + (let () (declare (not safe)) (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl165861166187%_ '0)))) + (let ((_%tl165956165982%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice168279168280%_ '1))) + (_%target165954165980%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) + (let () (declare (not safe)) (_%g165852165967%_))))) + (let () (declare (not safe)) (_%g165852165967%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g165852165967%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g165852165967%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl165861166187%_)) + (let ((_%__splice168279168280%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl165861166187%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl165956165982%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '1))) - (_%target165795165821%_ + (_%target165954165980%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice168279168280%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl165956165982%_)) + (_%__match168528168529%_ + _%e165859166182%_ + _%hd165860166185%_ + _%tl165861166187%_ + _%__splice168279168280%_ + _%target165954165980%_ + _%tl165956165982%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g165852165967%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) - (let () (declare (not safe)) (_%g165693165808%_)))))))) + (_%g165852165967%_)))))) + (let () (declare (not safe)) (_%g165852165967%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self165611%_ _%stx165612%_) - (let* ((_%g165614165631%_ - (lambda (_%g165615165628%_) + (lambda (_%self165770%_ _%stx165771%_) + (let* ((_%g165773165790%_ + (lambda (_%g165774165787%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165615165628%_)))) - (_%g165613165685%_ - (lambda (_%g165615165634%_) + _%g165774165787%_)))) + (_%g165772165844%_ + (lambda (_%g165774165793%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165615165634%_)) - (let ((_%e165618165636%_ + (gx#stx-pair? _%g165774165793%_)) + (let ((_%e165777165795%_ (let () (declare (not safe)) - (gx#stx-e _%g165615165634%_)))) - (let ((_%hd165619165639%_ + (gx#stx-e _%g165774165793%_)))) + (let ((_%hd165778165798%_ (let () (declare (not safe)) - (##car _%e165618165636%_))) - (_%tl165620165641%_ + (##car _%e165777165795%_))) + (_%tl165779165800%_ (let () (declare (not safe)) - (##cdr _%e165618165636%_)))) + (##cdr _%e165777165795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165620165641%_)) - (let ((_%e165621165644%_ + (gx#stx-pair? _%tl165779165800%_)) + (let ((_%e165780165803%_ (let () (declare (not safe)) - (gx#stx-e _%tl165620165641%_)))) - (let ((_%hd165622165647%_ + (gx#stx-e _%tl165779165800%_)))) + (let ((_%hd165781165806%_ (let () (declare (not safe)) - (##car _%e165621165644%_))) - (_%tl165623165649%_ + (##car _%e165780165803%_))) + (_%tl165782165808%_ (let () (declare (not safe)) - (##cdr _%e165621165644%_)))) + (##cdr _%e165780165803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165623165649%_)) - (let ((_%e165624165652%_ + (gx#stx-pair? _%tl165782165808%_)) + (let ((_%e165783165811%_ (let () (declare (not safe)) - (gx#stx-e _%tl165623165649%_)))) - (let ((_%hd165625165655%_ + (gx#stx-e _%tl165782165808%_)))) + (let ((_%hd165784165814%_ (let () (declare (not safe)) - (##car _%e165624165652%_))) - (_%tl165626165657%_ + (##car _%e165783165811%_))) + (_%tl165785165816%_ (let () (declare (not safe)) - (##cdr _%e165624165652%_)))) + (##cdr _%e165783165811%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165626165657%_)) - ((lambda (_%L165660%_ - _%L165661%_) - (let* ((_%sym165676%_ + _%tl165785165816%_)) + ((lambda (_%L165819%_ + _%L165820%_) + (let* ((_%sym165835%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L165661%_))) - (_%bind-type165678%_ + _%L165820%_))) + (_%bind-type165837%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym165676%_))) - (_%expr-type165680%_ + _%sym165835%_))) + (_%expr-type165839%_ (gxc#apply-basic-expression-type - _%L165660%_)) - (_%reduced-type165682%_ + _%L165819%_)) + (_%reduced-type165841%_ (gxc#greatest-common-type - _%stx165612%_ - _%bind-type165678%_ - _%expr-type165680%_))) - (if _%reduced-type165682%_ - (let ((__tmp170947 - (memq _%sym165676%_ + _%stx165771%_ + _%bind-type165837%_ + _%expr-type165839%_))) + (if _%reduced-type165841%_ + (let ((__tmp171106 + (memq _%sym165835%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165676%_ - _%reduced-type165682%_ - __tmp170947)) + _%sym165835%_ + _%reduced-type165841%_ + __tmp171106)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self165611%_ - _%L165660%_)))) - _%hd165625165655%_ - _%hd165622165647%_) - (_%g165614165631%_ - _%g165615165634%_)))) - (_%g165614165631%_ _%g165615165634%_)))) - (_%g165614165631%_ _%g165615165634%_)))) - (_%g165614165631%_ _%g165615165634%_))))) - (_%g165613165685%_ _%stx165612%_)))) + _%self165770%_ + _%L165819%_)))) + _%hd165784165814%_ + _%hd165781165806%_) + (_%g165773165790%_ + _%g165774165793%_)))) + (_%g165773165790%_ _%g165774165793%_)))) + (_%g165773165790%_ _%g165774165793%_)))) + (_%g165773165790%_ _%g165774165793%_))))) + (_%g165772165844%_ _%stx165771%_)))) (define gxc#apply-path-type-if% - (lambda (_%self165211%_ _%stx165212%_) - (let* ((_%__stx168372168373%_ _%stx165212%_) - (_%g165216165305%_ + (lambda (_%self165370%_ _%stx165371%_) + (let* ((_%__stx168531168532%_ _%stx165371%_) + (_%g165375165464%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168372168373%_))))) - (let ((_%__kont168374168375%_ - (lambda (_%L165563%_ _%L165564%_ _%L165565%_ _%L165566%_) - (let ((_%$e165598%_ - (let ((__tmp170948 + _%__stx168531168532%_))))) + (let ((_%__kont168533168534%_ + (lambda (_%L165722%_ _%L165723%_ _%L165724%_ _%L165725%_) + (let ((_%$e165757%_ + (let ((__tmp171107 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165566%_)))) + (gxc#identifier-symbol _%L165725%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp170948)))) - (if _%$e165598%_ - ((lambda (_%pred-type165601%_) + (gxc#optimizer-lookup-type __tmp171107)))) + (if _%$e165757%_ + ((lambda (_%pred-type165760%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165601%_ + _%pred-type165760%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165601%_ + _%pred-type165760%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp170951 + (let ((__tmp171110 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165211%_ - _%L165564%_)))) - (__tmp170949 + _%self165370%_ + _%L165723%_)))) + (__tmp171108 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L165565%_)) - (let ((__tmp170950 + _%L165724%_)) + (let ((__tmp171109 (##structure-ref - _%pred-type165601%_ + _%pred-type165760%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165212%_ - __tmp170950))) + _%stx165371%_ + __tmp171109))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp170951 + __tmp171110 gxc#current-compile-path-type - __tmp170949)) + __tmp171108)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165211%_ - _%L165563%_))) + _%self165370%_ + _%L165722%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self165211%_ - _%stx165212%_)))) - _%$e165598%_) + _%self165370%_ + _%stx165371%_)))) + _%$e165757%_) (let () (declare (not safe)) (gxc#apply-operands - _%self165211%_ - _%stx165212%_)))))) - (_%__kont168376168377%_ - (lambda (_%L165439%_ _%L165440%_ _%L165441%_ _%L165442%_) + _%self165370%_ + _%stx165371%_)))))) + (_%__kont168535168536%_ + (lambda (_%L165598%_ _%L165599%_ _%L165600%_ _%L165601%_) (gxc#apply-path-type-if% - _%self165211%_ - (let ((__tmp170952 + _%self165370%_ + (let ((__tmp171111 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L165441%_ - (cons _%L165439%_ - (cons _%L165440%_ '())))))) + (cons _%L165600%_ + (cons _%L165598%_ + (cons _%L165599%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp170952 _%stx165212%_))))) - (_%__kont168378168379%_ - (lambda (_%L165342%_ _%L165343%_ _%L165344%_) + (gxc#xform-wrap-source __tmp171111 _%stx165371%_))))) + (_%__kont168537168538%_ + (lambda (_%L165501%_ _%L165502%_ _%L165503%_) (let () (declare (not safe)) - (gxc#apply-operands _%self165211%_ _%stx165212%_))))) - (let ((_%__match168533168534%_ - (lambda (_%e165259165367%_ - _%hd165260165370%_ - _%tl165261165372%_ - _%e165262165375%_ - _%hd165263165378%_ - _%tl165264165380%_ - _%e165265165383%_ - _%hd165266165386%_ - _%tl165267165388%_ - _%e165268165391%_ - _%hd165269165394%_ - _%tl165270165396%_ - _%e165271165399%_ - _%hd165272165402%_ - _%tl165273165404%_ - _%e165274165407%_ - _%hd165275165410%_ - _%tl165276165412%_ - _%e165277165415%_ - _%hd165278165418%_ - _%tl165279165420%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) - (let ((_%L165439%_ _%hd165284165434%_) - (_%L165440%_ _%hd165281165426%_) - (_%L165441%_ _%hd165278165418%_) - (_%L165442%_ _%hd165275165410%_)) + (gxc#apply-operands _%self165370%_ _%stx165371%_))))) + (let ((_%__match168692168693%_ + (lambda (_%e165418165526%_ + _%hd165419165529%_ + _%tl165420165531%_ + _%e165421165534%_ + _%hd165422165537%_ + _%tl165423165539%_ + _%e165424165542%_ + _%hd165425165545%_ + _%tl165426165547%_ + _%e165427165550%_ + _%hd165428165553%_ + _%tl165429165555%_ + _%e165430165558%_ + _%hd165431165561%_ + _%tl165432165563%_ + _%e165433165566%_ + _%hd165434165569%_ + _%tl165435165571%_ + _%e165436165574%_ + _%hd165437165577%_ + _%tl165438165579%_ + _%e165439165582%_ + _%hd165440165585%_ + _%tl165441165587%_ + _%e165442165590%_ + _%hd165443165593%_ + _%tl165444165595%_) + (let ((_%L165598%_ _%hd165443165593%_) + (_%L165599%_ _%hd165440165585%_) + (_%L165600%_ _%hd165437165577%_) + (_%L165601%_ _%hd165434165569%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L165442%_ 'not)) - (_%__kont168376168377%_ - _%L165439%_ - _%L165440%_ - _%L165441%_ - _%L165442%_) - (_%__kont168378168379%_ - _%hd165284165434%_ - _%hd165281165426%_ - _%hd165263165378%_)))))) + (gxc#runtime-identifier=? _%L165601%_ 'not)) + (_%__kont168535168536%_ + _%L165598%_ + _%L165599%_ + _%L165600%_ + _%L165601%_) + (_%__kont168537168538%_ + _%hd165443165593%_ + _%hd165440165585%_ + _%hd165422165537%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168372168373%_)) - (let ((_%e165222165475%_ + (gx#stx-pair? _%__stx168531168532%_)) + (let ((_%e165381165634%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168372168373%_)))) - (let ((_%tl165224165480%_ + (gx#stx-e _%__stx168531168532%_)))) + (let ((_%tl165383165639%_ (let () (declare (not safe)) - (##cdr _%e165222165475%_))) - (_%hd165223165478%_ + (##cdr _%e165381165634%_))) + (_%hd165382165637%_ (let () (declare (not safe)) - (##car _%e165222165475%_)))) + (##car _%e165381165634%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165224165480%_)) - (let ((_%e165225165483%_ + (gx#stx-pair? _%tl165383165639%_)) + (let ((_%e165384165642%_ (let () (declare (not safe)) - (gx#stx-e _%tl165224165480%_)))) - (let ((_%tl165227165488%_ + (gx#stx-e _%tl165383165639%_)))) + (let ((_%tl165386165647%_ (let () (declare (not safe)) - (##cdr _%e165225165483%_))) - (_%hd165226165486%_ + (##cdr _%e165384165642%_))) + (_%hd165385165645%_ (let () (declare (not safe)) - (##car _%e165225165483%_)))) + (##car _%e165384165642%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165226165486%_)) - (let ((_%e165228165491%_ + (gx#stx-pair? _%hd165385165645%_)) + (let ((_%e165387165650%_ (let () (declare (not safe)) - (gx#stx-e _%hd165226165486%_)))) - (let ((_%tl165230165496%_ + (gx#stx-e _%hd165385165645%_)))) + (let ((_%tl165389165655%_ (let () (declare (not safe)) - (##cdr _%e165228165491%_))) - (_%hd165229165494%_ + (##cdr _%e165387165650%_))) + (_%hd165388165653%_ (let () (declare (not safe)) - (##car _%e165228165491%_)))) + (##car _%e165387165650%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165229165494%_)) + _%hd165388165653%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd165229165494%_)) + _%hd165388165653%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165230165496%_)) - (let ((_%e165231165499%_ + _%tl165389165655%_)) + (let ((_%e165390165658%_ (let () (declare (not safe)) (gx#stx-e - _%tl165230165496%_)))) - (let ((_%tl165233165504%_ + _%tl165389165655%_)))) + (let ((_%tl165392165663%_ (let () (declare (not safe)) - (##cdr _%e165231165499%_))) - (_%hd165232165502%_ + (##cdr _%e165390165658%_))) + (_%hd165391165661%_ (let () (declare (not safe)) - (##car _%e165231165499%_)))) + (##car _%e165390165658%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165232165502%_)) - (let ((_%e165234165507%_ + _%hd165391165661%_)) + (let ((_%e165393165666%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165232165502%_)))) - (let ((_%tl165236165512%_ + (gx#stx-e _%hd165391165661%_)))) + (let ((_%tl165395165671%_ (let () (declare (not safe)) - (##cdr _%e165234165507%_))) - (_%hd165235165510%_ + (##cdr _%e165393165666%_))) + (_%hd165394165669%_ (let () (declare (not safe)) - (##car _%e165234165507%_)))) + (##car _%e165393165666%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165235165510%_)) + (gx#identifier? _%hd165394165669%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165235165510%_)) + (gx#stx-eq? '%#ref _%hd165394165669%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165236165512%_)) - (let ((_%e165237165515%_ + (gx#stx-pair? _%tl165395165671%_)) + (let ((_%e165396165674%_ (let () (declare (not safe)) - (gx#stx-e _%tl165236165512%_)))) - (let ((_%tl165239165520%_ + (gx#stx-e _%tl165395165671%_)))) + (let ((_%tl165398165679%_ (let () (declare (not safe)) - (##cdr _%e165237165515%_))) - (_%hd165238165518%_ + (##cdr _%e165396165674%_))) + (_%hd165397165677%_ (let () (declare (not safe)) - (##car _%e165237165515%_)))) + (##car _%e165396165674%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165239165520%_)) + (gx#stx-null? _%tl165398165679%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165233165504%_)) - (let ((_%e165240165523%_ + _%tl165392165663%_)) + (let ((_%e165399165682%_ (let () (declare (not safe)) (gx#stx-e - _%tl165233165504%_)))) - (let ((_%tl165242165528%_ + _%tl165392165663%_)))) + (let ((_%tl165401165687%_ (let () (declare (not safe)) - (##cdr _%e165240165523%_))) - (_%hd165241165526%_ + (##cdr _%e165399165682%_))) + (_%hd165400165685%_ (let () (declare (not safe)) - (##car _%e165240165523%_)))) + (##car _%e165399165682%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165241165526%_)) - (let ((_%e165243165531%_ + _%hd165400165685%_)) + (let ((_%e165402165690%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd165241165526%_)))) - (let ((_%tl165245165536%_ - (let () (declare (not safe)) (##cdr _%e165243165531%_))) - (_%hd165244165534%_ + (gx#stx-e _%hd165400165685%_)))) + (let ((_%tl165404165695%_ + (let () (declare (not safe)) (##cdr _%e165402165690%_))) + (_%hd165403165693%_ (let () (declare (not safe)) - (##car _%e165243165531%_)))) + (##car _%e165402165690%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165244165534%_)) + (gx#identifier? _%hd165403165693%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165244165534%_)) + (gx#stx-eq? '%#ref _%hd165403165693%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165245165536%_)) - (let ((_%e165246165539%_ + (gx#stx-pair? _%tl165404165695%_)) + (let ((_%e165405165698%_ (let () (declare (not safe)) - (gx#stx-e _%tl165245165536%_)))) - (let ((_%tl165248165544%_ + (gx#stx-e _%tl165404165695%_)))) + (let ((_%tl165407165703%_ (let () (declare (not safe)) - (##cdr _%e165246165539%_))) - (_%hd165247165542%_ + (##cdr _%e165405165698%_))) + (_%hd165406165701%_ (let () (declare (not safe)) - (##car _%e165246165539%_)))) + (##car _%e165405165698%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165248165544%_)) + (gx#stx-null? _%tl165407165703%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl165401165687%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165249165547%_ + _%tl165386165647%_)) + (let ((_%e165408165706%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165251165552%_ + _%tl165386165647%_)))) + (let ((_%tl165410165711%_ (let () (declare (not safe)) - (##cdr _%e165249165547%_))) - (_%hd165250165550%_ + (##cdr _%e165408165706%_))) + (_%hd165409165709%_ (let () (declare (not safe)) - (##car _%e165249165547%_)))) + (##car _%e165408165706%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165251165552%_)) - (let ((_%e165252165555%_ + _%tl165410165711%_)) + (let ((_%e165411165714%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165251165552%_)))) - (let ((_%tl165254165560%_ - (let () (declare (not safe)) (##cdr _%e165252165555%_))) - (_%hd165253165558%_ + (gx#stx-e _%tl165410165711%_)))) + (let ((_%tl165413165719%_ + (let () (declare (not safe)) (##cdr _%e165411165714%_))) + (_%hd165412165717%_ (let () (declare (not safe)) - (##car _%e165252165555%_)))) + (##car _%e165411165714%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165254165560%_)) - (_%__kont168374168375%_ - _%hd165253165558%_ - _%hd165250165550%_ - _%hd165247165542%_ - _%hd165238165518%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165413165719%_)) + (_%__kont168533168534%_ + _%hd165412165717%_ + _%hd165409165709%_ + _%hd165406165701%_ + _%hd165397165677%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g165375165464%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ + (let () (declare (not safe)) (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g165375165464%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl165401165687%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165280165423%_ + _%tl165386165647%_)) + (let ((_%e165439165582%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + _%tl165386165647%_)))) + (let ((_%tl165441165587%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e165439165582%_))) + (_%hd165440165585%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e165439165582%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165282165428%_)) - (let ((_%e165283165431%_ + _%tl165441165587%_)) + (let ((_%e165442165590%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165282165428%_)))) - (let ((_%tl165285165436%_ - (let () (declare (not safe)) (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (gx#stx-e _%tl165441165587%_)))) + (let ((_%tl165444165595%_ + (let () (declare (not safe)) (##cdr _%e165442165590%_))) + (_%hd165443165593%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e165442165590%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165444165595%_)) + (_%__match168692168693%_ + _%e165381165634%_ + _%hd165382165637%_ + _%tl165383165639%_ + _%e165384165642%_ + _%hd165385165645%_ + _%tl165386165647%_ + _%e165387165650%_ + _%hd165388165653%_ + _%tl165389165655%_ + _%e165390165658%_ + _%hd165391165661%_ + _%tl165392165663%_ + _%e165393165666%_ + _%hd165394165669%_ + _%tl165395165671%_ + _%e165396165674%_ + _%hd165397165677%_ + _%tl165398165679%_ + _%e165399165682%_ + _%hd165400165685%_ + _%tl165401165687%_ + _%e165439165582%_ + _%hd165440165585%_ + _%tl165441165587%_ + _%e165442165590%_ + _%hd165443165593%_ + _%tl165444165595%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g165375165464%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ + (let () (declare (not safe)) (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_))))))) + (_%g165375165464%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl165401165687%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165439165582%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165441165587%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e165439165582%_))) + (_%hd165440165585%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e165439165582%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165282165428%_)) - (let ((_%e165283165431%_ + _%tl165441165587%_)) + (let ((_%e165442165590%_ (let () (declare (not safe)) (gx#stx-e - _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + _%tl165441165587%_)))) + (let ((_%tl165444165595%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e165442165590%_))) + (_%hd165443165593%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e165442165590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + _%tl165444165595%_)) + (_%__match168692168693%_ + _%e165381165634%_ + _%hd165382165637%_ + _%tl165383165639%_ + _%e165384165642%_ + _%hd165385165645%_ + _%tl165386165647%_ + _%e165387165650%_ + _%hd165388165653%_ + _%tl165389165655%_ + _%e165390165658%_ + _%hd165391165661%_ + _%tl165392165663%_ + _%e165393165666%_ + _%hd165394165669%_ + _%tl165395165671%_ + _%e165396165674%_ + _%hd165397165677%_ + _%tl165398165679%_ + _%e165399165682%_ + _%hd165400165685%_ + _%tl165401165687%_ + _%e165439165582%_ + _%hd165440165585%_ + _%tl165441165587%_ + _%e165442165590%_ + _%hd165443165593%_ + _%tl165444165595%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g165375165464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl165401165687%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165439165582%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165441165587%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e165439165582%_))) + (_%hd165440165585%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e165439165582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165282165428%_)) - (let ((_%e165283165431%_ + (gx#stx-pair? _%tl165441165587%_)) + (let ((_%e165442165590%_ (let () (declare (not safe)) (gx#stx-e - _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + _%tl165441165587%_)))) + (let ((_%tl165444165595%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e165442165590%_))) + (_%hd165443165593%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e165442165590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + _%tl165444165595%_)) + (_%__match168692168693%_ + _%e165381165634%_ + _%hd165382165637%_ + _%tl165383165639%_ + _%e165384165642%_ + _%hd165385165645%_ + _%tl165386165647%_ + _%e165387165650%_ + _%hd165388165653%_ + _%tl165389165655%_ + _%e165390165658%_ + _%hd165391165661%_ + _%tl165392165663%_ + _%e165393165666%_ + _%hd165394165669%_ + _%tl165395165671%_ + _%e165396165674%_ + _%hd165397165677%_ + _%tl165398165679%_ + _%e165399165682%_ + _%hd165400165685%_ + _%tl165401165687%_ + _%e165439165582%_ + _%hd165440165585%_ + _%tl165441165587%_ + _%e165442165590%_ + _%hd165443165593%_ + _%tl165444165595%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g165375165464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl165401165687%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165439165582%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165441165587%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e165439165582%_))) + (_%hd165440165585%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e165439165582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165282165428%_)) - (let ((_%e165283165431%_ + (gx#stx-pair? _%tl165441165587%_)) + (let ((_%e165442165590%_ (let () (declare (not safe)) - (gx#stx-e _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + (gx#stx-e _%tl165441165587%_)))) + (let ((_%tl165444165595%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e165442165590%_))) + (_%hd165443165593%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e165442165590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + _%tl165444165595%_)) + (_%__match168692168693%_ + _%e165381165634%_ + _%hd165382165637%_ + _%tl165383165639%_ + _%e165384165642%_ + _%hd165385165645%_ + _%tl165386165647%_ + _%e165387165650%_ + _%hd165388165653%_ + _%tl165389165655%_ + _%e165390165658%_ + _%hd165391165661%_ + _%tl165392165663%_ + _%e165393165666%_ + _%hd165394165669%_ + _%tl165395165671%_ + _%e165396165674%_ + _%hd165397165677%_ + _%tl165398165679%_ + _%e165399165682%_ + _%hd165400165685%_ + _%tl165401165687%_ + _%e165439165582%_ + _%hd165440165585%_ + _%tl165441165587%_ + _%e165442165590%_ + _%hd165443165593%_ + _%tl165444165595%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g165375165464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))))) + (_%g165375165464%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl165401165687%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165439165582%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165441165587%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e165439165582%_))) + (_%hd165440165585%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e165439165582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165282165428%_)) - (let ((_%e165283165431%_ + (gx#stx-pair? _%tl165441165587%_)) + (let ((_%e165442165590%_ (let () (declare (not safe)) - (gx#stx-e _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + (gx#stx-e _%tl165441165587%_)))) + (let ((_%tl165444165595%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e165442165590%_))) + (_%hd165443165593%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e165442165590%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + (gx#stx-null? _%tl165444165595%_)) + (_%__match168692168693%_ + _%e165381165634%_ + _%hd165382165637%_ + _%tl165383165639%_ + _%e165384165642%_ + _%hd165385165645%_ + _%tl165386165647%_ + _%e165387165650%_ + _%hd165388165653%_ + _%tl165389165655%_ + _%e165390165658%_ + _%hd165391165661%_ + _%tl165392165663%_ + _%e165393165666%_ + _%hd165394165669%_ + _%tl165395165671%_ + _%e165396165674%_ + _%hd165397165677%_ + _%tl165398165679%_ + _%e165399165682%_ + _%hd165400165685%_ + _%tl165401165687%_ + _%e165439165582%_ + _%hd165440165585%_ + _%tl165441165587%_ + _%e165442165590%_ + _%hd165443165593%_ + _%tl165444165595%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))) + (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))))) + (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g165375165464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ + (let () (declare (not safe)) (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))))) + (_%g165375165464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g165375165464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g165375165464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))))) + (_%g165375165464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_)))))) + (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ - (let () (declare (not safe)) (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ + (let () (declare (not safe)) (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_)))) + (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g165375165464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl165456165490%_)))) + (let ((_%tl165459165498%_ + (let () (declare (not safe)) (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))))) + (_%g165375165464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl165386165647%_)) + (let ((_%e165454165485%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl165386165647%_)))) + (let ((_%tl165456165490%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e165454165485%_))) + (_%hd165455165488%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e165454165485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl165456165490%_)) + (let ((_%e165457165493%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl165456165490%_)))) + (let ((_%tl165459165498%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e165457165493%_))) + (_%hd165458165496%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e165457165493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl165459165498%_)) + (_%__kont168537168538%_ + _%hd165458165496%_ + _%hd165455165488%_ + _%hd165385165645%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g165375165464%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))))) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_)))))))) + (_%g165375165464%_)))))) + (let () (declare (not safe)) (_%g165375165464%_))))) + (let () (declare (not safe)) (_%g165375165464%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self165069%_ _%stx165070%_) - (let* ((_%__stx168562168563%_ _%stx165070%_) - (_%g165073165103%_ + (lambda (_%self165228%_ _%stx165229%_) + (let* ((_%__stx168721168722%_ _%stx165229%_) + (_%g165232165262%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168562168563%_))))) - (let ((_%__kont168564168565%_ - (lambda (_%L165183%_ _%L165184%_) - (let ((_%sym165200%_ + _%__stx168721168722%_))))) + (let ((_%__kont168723168724%_ + (lambda (_%L165342%_ _%L165343%_) + (let ((_%sym165359%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165184%_)))) - (if (let ((__tmp170953 + (gxc#identifier-symbol _%L165343%_)))) + (if (let ((__tmp171112 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp170953 _%sym165200%_)) + (hash-get __tmp171112 _%sym165359%_)) '#!void - (let ((_%type165201165203%_ - (gxc#apply-basic-expression-type _%L165183%_))) - (if _%type165201165203%_ - (let ((_%type165206%_ _%type165201165203%_)) + (let ((_%type165360165362%_ + (gxc#apply-basic-expression-type _%L165342%_))) + (if _%type165360165362%_ + (let ((_%type165365%_ _%type165360165362%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165206%_ + _%type165365%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym165200%_ - _%type165206%_)))) + _%sym165359%_ + _%type165365%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165069%_ _%L165183%_))))) - (_%__kont168566168567%_ - (lambda (_%L165132%_) + (gxc#compile-e__1 _%self165228%_ _%L165342%_))))) + (_%__kont168725168726%_ + (lambda (_%L165291%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165069%_ _%L165132%_))))) - (let ((_%__match168595168596%_ - (lambda (_%e165077165151%_ - _%hd165078165154%_ - _%tl165079165156%_ - _%e165080165159%_ - _%hd165081165162%_ - _%tl165082165164%_ - _%e165083165167%_ - _%hd165084165170%_ - _%tl165085165172%_ - _%e165086165175%_ - _%hd165087165178%_ - _%tl165088165180%_) - (let ((_%L165183%_ _%hd165087165178%_) - (_%L165184%_ _%hd165084165170%_)) + (gxc#compile-e__1 _%self165228%_ _%L165291%_))))) + (let ((_%__match168754168755%_ + (lambda (_%e165236165310%_ + _%hd165237165313%_ + _%tl165238165315%_ + _%e165239165318%_ + _%hd165240165321%_ + _%tl165241165323%_ + _%e165242165326%_ + _%hd165243165329%_ + _%tl165244165331%_ + _%e165245165334%_ + _%hd165246165337%_ + _%tl165247165339%_) + (let ((_%L165342%_ _%hd165246165337%_) + (_%L165343%_ _%hd165243165329%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165184%_)) - (_%__kont168564168565%_ _%L165183%_ _%L165184%_) - (_%__kont168566168567%_ _%hd165087165178%_)))))) + (gx#identifier? _%L165343%_)) + (_%__kont168723168724%_ _%L165342%_ _%L165343%_) + (_%__kont168725168726%_ _%hd165246165337%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168562168563%_)) - (let ((_%e165077165151%_ + (gx#stx-pair? _%__stx168721168722%_)) + (let ((_%e165236165310%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168562168563%_)))) - (let ((_%tl165079165156%_ + (gx#stx-e _%__stx168721168722%_)))) + (let ((_%tl165238165315%_ (let () (declare (not safe)) - (##cdr _%e165077165151%_))) - (_%hd165078165154%_ + (##cdr _%e165236165310%_))) + (_%hd165237165313%_ (let () (declare (not safe)) - (##car _%e165077165151%_)))) + (##car _%e165236165310%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165079165156%_)) - (let ((_%e165080165159%_ + (gx#stx-pair? _%tl165238165315%_)) + (let ((_%e165239165318%_ (let () (declare (not safe)) - (gx#stx-e _%tl165079165156%_)))) - (let ((_%tl165082165164%_ + (gx#stx-e _%tl165238165315%_)))) + (let ((_%tl165241165323%_ (let () (declare (not safe)) - (##cdr _%e165080165159%_))) - (_%hd165081165162%_ + (##cdr _%e165239165318%_))) + (_%hd165240165321%_ (let () (declare (not safe)) - (##car _%e165080165159%_)))) + (##car _%e165239165318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165081165162%_)) - (let ((_%e165083165167%_ + (gx#stx-pair? _%hd165240165321%_)) + (let ((_%e165242165326%_ (let () (declare (not safe)) - (gx#stx-e _%hd165081165162%_)))) - (let ((_%tl165085165172%_ + (gx#stx-e _%hd165240165321%_)))) + (let ((_%tl165244165331%_ (let () (declare (not safe)) - (##cdr _%e165083165167%_))) - (_%hd165084165170%_ + (##cdr _%e165242165326%_))) + (_%hd165243165329%_ (let () (declare (not safe)) - (##car _%e165083165167%_)))) + (##car _%e165242165326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165085165172%_)) + (gx#stx-null? _%tl165244165331%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165082165164%_)) - (let ((_%e165086165175%_ + _%tl165241165323%_)) + (let ((_%e165245165334%_ (let () (declare (not safe)) (gx#stx-e - _%tl165082165164%_)))) - (let ((_%tl165088165180%_ + _%tl165241165323%_)))) + (let ((_%tl165247165339%_ (let () (declare (not safe)) - (##cdr _%e165086165175%_))) - (_%hd165087165178%_ + (##cdr _%e165245165334%_))) + (_%hd165246165337%_ (let () (declare (not safe)) - (##car _%e165086165175%_)))) + (##car _%e165245165334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165088165180%_)) - (_%__match168595168596%_ - _%e165077165151%_ - _%hd165078165154%_ - _%tl165079165156%_ - _%e165080165159%_ - _%hd165081165162%_ - _%tl165082165164%_ - _%e165083165167%_ - _%hd165084165170%_ - _%tl165085165172%_ - _%e165086165175%_ - _%hd165087165178%_ - _%tl165088165180%_) + _%tl165247165339%_)) + (_%__match168754168755%_ + _%e165236165310%_ + _%hd165237165313%_ + _%tl165238165315%_ + _%e165239165318%_ + _%hd165240165321%_ + _%tl165241165323%_ + _%e165242165326%_ + _%hd165243165329%_ + _%tl165244165331%_ + _%e165245165334%_ + _%hd165246165337%_ + _%tl165247165339%_) (let () (declare (not safe)) - (_%g165073165103%_))))) + (_%g165232165262%_))))) (let () (declare (not safe)) - (_%g165073165103%_))) + (_%g165232165262%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165082165164%_)) - (let ((_%e165096165124%_ + _%tl165241165323%_)) + (let ((_%e165255165283%_ (let () (declare (not safe)) (gx#stx-e - _%tl165082165164%_)))) - (let ((_%tl165098165129%_ + _%tl165241165323%_)))) + (let ((_%tl165257165288%_ (let () (declare (not safe)) - (##cdr _%e165096165124%_))) - (_%hd165097165127%_ + (##cdr _%e165255165283%_))) + (_%hd165256165286%_ (let () (declare (not safe)) - (##car _%e165096165124%_)))) + (##car _%e165255165283%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165098165129%_)) - (_%__kont168566168567%_ - _%hd165097165127%_) + _%tl165257165288%_)) + (_%__kont168725168726%_ + _%hd165256165286%_) (let () (declare (not safe)) - (_%g165073165103%_))))) + (_%g165232165262%_))))) (let () (declare (not safe)) - (_%g165073165103%_)))))) + (_%g165232165262%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165082165164%_)) - (let ((_%e165096165124%_ + (gx#stx-pair? _%tl165241165323%_)) + (let ((_%e165255165283%_ (let () (declare (not safe)) - (gx#stx-e _%tl165082165164%_)))) - (let ((_%tl165098165129%_ + (gx#stx-e _%tl165241165323%_)))) + (let ((_%tl165257165288%_ (let () (declare (not safe)) - (##cdr _%e165096165124%_))) - (_%hd165097165127%_ + (##cdr _%e165255165283%_))) + (_%hd165256165286%_ (let () (declare (not safe)) - (##car _%e165096165124%_)))) + (##car _%e165255165283%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165098165129%_)) - (_%__kont168566168567%_ - _%hd165097165127%_) + _%tl165257165288%_)) + (_%__kont168725168726%_ + _%hd165256165286%_) (let () (declare (not safe)) - (_%g165073165103%_))))) + (_%g165232165262%_))))) (let () (declare (not safe)) - (_%g165073165103%_)))))) - (let () (declare (not safe)) (_%g165073165103%_))))) - (let () (declare (not safe)) (_%g165073165103%_)))))))) + (_%g165232165262%_)))))) + (let () (declare (not safe)) (_%g165232165262%_))))) + (let () (declare (not safe)) (_%g165232165262%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self164841%_ _%stx164842%_) - (letrec ((_%collect-e164844%_ - (lambda (_%hd165013%_ _%expr165014%_) - (let* ((_%__stx168618168619%_ _%hd165013%_) - (_%g165017165027%_ + (lambda (_%self165000%_ _%stx165001%_) + (letrec ((_%collect-e165003%_ + (lambda (_%hd165172%_ _%expr165173%_) + (let* ((_%__stx168777168778%_ _%hd165172%_) + (_%g165176165186%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168618168619%_))))) - (let ((_%__kont168620168621%_ - (lambda (_%L165047%_) - (let ((_%sym165058%_ + _%__stx168777168778%_))))) + (let ((_%__kont168779168780%_ + (lambda (_%L165206%_) + (let ((_%sym165217%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165047%_)))) - (if (let ((__tmp170954 + (gxc#identifier-symbol _%L165206%_)))) + (if (let ((__tmp171113 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp170954 _%sym165058%_)) + (hash-get __tmp171113 _%sym165217%_)) '#!void - (let ((_%type165059165061%_ + (let ((_%type165218165220%_ (gxc#apply-basic-expression-type - _%expr165014%_))) - (if _%type165059165061%_ - (let ((_%type165064%_ - _%type165059165061%_)) + _%expr165173%_))) + (if _%type165218165220%_ + (let ((_%type165223%_ + _%type165218165220%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165064%_ + _%type165223%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165058%_ - _%type165064%_ + _%sym165217%_ + _%type165223%_ '#t)))) '#f)))))) - (_%__kont168622168623%_ (lambda () '#!void))) - (let ((_%__match168631168632%_ - (lambda (_%e165020165039%_ - _%hd165021165042%_ - _%tl165022165044%_) - (let ((_%L165047%_ _%hd165021165042%_)) + (_%__kont168781168782%_ (lambda () '#!void))) + (let ((_%__match168790168791%_ + (lambda (_%e165179165198%_ + _%hd165180165201%_ + _%tl165181165203%_) + (let ((_%L165206%_ _%hd165180165201%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165047%_)) - (_%__kont168620168621%_ _%L165047%_) - (_%__kont168622168623%_)))))) + (gx#identifier? _%L165206%_)) + (_%__kont168779168780%_ _%L165206%_) + (_%__kont168781168782%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168618168619%_)) - (let ((_%e165020165039%_ + (gx#stx-pair? _%__stx168777168778%_)) + (let ((_%e165179165198%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168618168619%_)))) - (let ((_%tl165022165044%_ + (gx#stx-e _%__stx168777168778%_)))) + (let ((_%tl165181165203%_ (let () (declare (not safe)) - (##cdr _%e165020165039%_))) - (_%hd165021165042%_ + (##cdr _%e165179165198%_))) + (_%hd165180165201%_ (let () (declare (not safe)) - (##car _%e165020165039%_)))) + (##car _%e165179165198%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165022165044%_)) - (_%__match168631168632%_ - _%e165020165039%_ - _%hd165021165042%_ - _%tl165022165044%_) - (_%__kont168622168623%_)))) - (_%__kont168622168623%_)))))))) - (let* ((_%g164846164881%_ - (lambda (_%g164847164878%_) + (gx#stx-null? _%tl165181165203%_)) + (_%__match168790168791%_ + _%e165179165198%_ + _%hd165180165201%_ + _%tl165181165203%_) + (_%__kont168781168782%_)))) + (_%__kont168781168782%_)))))))) + (let* ((_%g165005165040%_ + (lambda (_%g165006165037%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164847164878%_)))) - (_%g164845165010%_ - (lambda (_%g164847164884%_) + _%g165006165037%_)))) + (_%g165004165169%_ + (lambda (_%g165006165043%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164847164884%_)) - (let ((_%e164851164886%_ + (gx#stx-pair? _%g165006165043%_)) + (let ((_%e165010165045%_ (let () (declare (not safe)) - (gx#stx-e _%g164847164884%_)))) - (let ((_%hd164852164889%_ + (gx#stx-e _%g165006165043%_)))) + (let ((_%hd165011165048%_ (let () (declare (not safe)) - (##car _%e164851164886%_))) - (_%tl164853164891%_ + (##car _%e165010165045%_))) + (_%tl165012165050%_ (let () (declare (not safe)) - (##cdr _%e164851164886%_)))) + (##cdr _%e165010165045%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164853164891%_)) - (let ((_%e164854164894%_ + (gx#stx-pair? _%tl165012165050%_)) + (let ((_%e165013165053%_ (let () (declare (not safe)) - (gx#stx-e _%tl164853164891%_)))) - (let ((_%hd164855164897%_ + (gx#stx-e _%tl165012165050%_)))) + (let ((_%hd165014165056%_ (let () (declare (not safe)) - (##car _%e164854164894%_))) - (_%tl164856164899%_ + (##car _%e165013165053%_))) + (_%tl165015165058%_ (let () (declare (not safe)) - (##cdr _%e164854164894%_)))) + (##cdr _%e165013165053%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164855164897%_)) - (let ((_g170955_ + _%hd165014165056%_)) + (let ((_g171114_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164855164897%_ + _%hd165014165056%_ '0)))) (begin - (let ((_g170956_ + (let ((_g171115_ (let () (declare (not safe)) - (if (##values? _g170955_) + (if (##values? _g171114_) (##vector-length - _g170955_) + _g171114_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170956_ 2))) + (##fx= _g171115_ 2))) (error "Context expects 2 values" - _g170956_))) - (let ((_%target164857164902%_ + _g171115_))) + (let ((_%target165016165061%_ (let () (declare (not safe)) (##vector-ref - _g170955_ + _g171114_ 0))) - (_%tl164859164904%_ + (_%tl165018165063%_ (let () (declare (not safe)) (##vector-ref - _g170955_ + _g171114_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164859164904%_)) - (letrec ((_%loop164860164907%_ - (lambda (_%hd164858164910%_ + _%tl165018165063%_)) + (letrec ((_%loop165019165066%_ + (lambda (_%hd165017165069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164864164912%_ - _%hd164865164914%_) + _%expr165023165071%_ + _%hd165024165073%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164858164910%_)) - (let ((_%e164861164917%_ + (gx#stx-pair? _%hd165017165069%_)) + (let ((_%e165020165076%_ (let () (declare (not safe)) - (gx#stx-e _%hd164858164910%_)))) - (let ((_%lp-hd164862164920%_ + (gx#stx-e _%hd165017165069%_)))) + (let ((_%lp-hd165021165079%_ (let () (declare (not safe)) - (##car _%e164861164917%_))) - (_%lp-tl164863164922%_ + (##car _%e165020165076%_))) + (_%lp-tl165022165081%_ (let () (declare (not safe)) - (##cdr _%e164861164917%_)))) + (##cdr _%e165020165076%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164862164920%_)) - (let ((_%e164871164925%_ + (gx#stx-pair? _%lp-hd165021165079%_)) + (let ((_%e165030165084%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164862164920%_)))) - (let ((_%hd164872164928%_ + (gx#stx-e _%lp-hd165021165079%_)))) + (let ((_%hd165031165087%_ (let () (declare (not safe)) - (##car _%e164871164925%_))) - (_%tl164873164930%_ + (##car _%e165030165084%_))) + (_%tl165032165089%_ (let () (declare (not safe)) - (##cdr _%e164871164925%_)))) + (##cdr _%e165030165084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164873164930%_)) - (let ((_%e164874164933%_ + (gx#stx-pair? _%tl165032165089%_)) + (let ((_%e165033165092%_ (let () (declare (not safe)) (gx#stx-e - _%tl164873164930%_)))) - (let ((_%hd164875164936%_ + _%tl165032165089%_)))) + (let ((_%hd165034165095%_ (let () (declare (not safe)) - (##car _%e164874164933%_))) - (_%tl164876164938%_ + (##car _%e165033165092%_))) + (_%tl165035165097%_ (let () (declare (not safe)) - (##cdr _%e164874164933%_)))) + (##cdr _%e165033165092%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164876164938%_)) - (_%loop164860164907%_ - _%lp-tl164863164922%_ - (cons _%hd164875164936%_ - _%expr164864164912%_) - (cons _%hd164872164928%_ - _%hd164865164914%_)) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_)))) - (let ((_%expr164866164941%_ - (reverse _%expr164864164912%_)) - (_%hd164867164943%_ - (reverse _%hd164865164914%_))) + _%tl165035165097%_)) + (_%loop165019165066%_ + _%lp-tl165022165081%_ + (cons _%hd165034165095%_ + _%expr165023165071%_) + (cons _%hd165031165087%_ + _%hd165024165073%_)) + (_%g165005165040%_ + _%g165006165043%_)))) + (_%g165005165040%_ + _%g165006165043%_)))) + (_%g165005165040%_ _%g165006165043%_)))) + (let ((_%expr165025165100%_ + (reverse _%expr165023165071%_)) + (_%hd165026165102%_ + (reverse _%hd165024165073%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164856164899%_)) - (let ((_%e164868164946%_ + (gx#stx-pair? _%tl165015165058%_)) + (let ((_%e165027165105%_ (let () (declare (not safe)) - (gx#stx-e _%tl164856164899%_)))) - (let ((_%hd164869164949%_ + (gx#stx-e _%tl165015165058%_)))) + (let ((_%hd165028165108%_ (let () (declare (not safe)) - (##car _%e164868164946%_))) - (_%tl164870164951%_ + (##car _%e165027165105%_))) + (_%tl165029165110%_ (let () (declare (not safe)) - (##cdr _%e164868164946%_)))) + (##cdr _%e165027165105%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164870164951%_)) - ((lambda (_%L164954%_ - _%L164955%_ - _%L164956%_) + (gx#stx-null? _%tl165029165110%_)) + ((lambda (_%L165113%_ + _%L165114%_ + _%L165115%_) (for-each - _%collect-e164844%_ - (let ((__tmp170957 - (lambda (_%g164976164979%_ - _%g164977164981%_) - (cons _%g164976164979%_ - _%g164977164981%_)))) + _%collect-e165003%_ + (let ((__tmp171116 + (lambda (_%g165135165138%_ + _%g165136165140%_) + (cons _%g165135165138%_ + _%g165136165140%_)))) (declare (not safe)) (__foldr1 - __tmp170957 + __tmp171116 '() - _%L164956%_)) - (let ((__tmp170958 - (lambda (_%g164983164986%_ - _%g164984164988%_) - (cons _%g164983164986%_ - _%g164984164988%_)))) + _%L165115%_)) + (let ((__tmp171117 + (lambda (_%g165142165145%_ + _%g165143165147%_) + (cons _%g165142165145%_ + _%g165143165147%_)))) (declare (not safe)) (__foldr1 - __tmp170958 + __tmp171117 '() - _%L164955%_))) + _%L165114%_))) (for-each - (lambda (_%g164990164992%_) + (lambda (_%g165149165151%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164841%_ - _%g164990164992%_))) - (let ((__tmp170959 - (lambda (_%g164994164997%_ - _%g164995164999%_) - (cons _%g164994164997%_ - _%g164995164999%_)))) + _%self165000%_ + _%g165149165151%_))) + (let ((__tmp171118 + (lambda (_%g165153165156%_ + _%g165154165158%_) + (cons _%g165153165156%_ + _%g165154165158%_)))) (declare (not safe)) (__foldr1 - __tmp170959 + __tmp171118 '() - _%L164955%_))) - (let ((__tmp170963 + _%L165114%_))) + (let ((__tmp171122 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self164841%_ - _%L164954%_)))) - (__tmp170960 - (let ((__tmp170961 - (let ((__tmp170962 - (lambda (_%g165002165005%_ + _%self165000%_ + _%L165113%_)))) + (__tmp171119 + (let ((__tmp171120 + (let ((__tmp171121 + (lambda (_%g165161165164%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165003165007%_) - (cons _%g165002165005%_ _%g165003165007%_)))) + _%g165162165166%_) + (cons _%g165161165164%_ _%g165162165166%_)))) (declare (not safe)) - (__foldr1 __tmp170962 '() _%L164956%_)))) + (__foldr1 __tmp171121 '() _%L165115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170961)))) + __tmp171120)))) (declare (not safe)) (__call-with-parameters - __tmp170963 + __tmp171122 gxc#current-compile-local-env - __tmp170960))) - _%hd164869164949%_ - _%expr164866164941%_ - _%hd164867164943%_) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_))))))) + __tmp171119))) + _%hd165028165108%_ + _%expr165025165100%_ + _%hd165026165102%_) + (_%g165005165040%_ + _%g165006165043%_)))) + (_%g165005165040%_ _%g165006165043%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164860164907%_ - _%target164857164902%_ + (_%loop165019165066%_ + _%target165016165061%_ '() '())) - (_%g164846164881%_ - _%g164847164884%_))))) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_))))) - (_%g164845165010%_ _%stx164842%_))))) + (_%g165005165040%_ + _%g165006165043%_))))) + (_%g165005165040%_ + _%g165006165043%_)))) + (_%g165005165040%_ _%g165006165043%_)))) + (_%g165005165040%_ _%g165006165043%_))))) + (_%g165004165169%_ _%stx165001%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self164613%_ _%stx164614%_) - (letrec ((_%collect-e164616%_ - (lambda (_%hd164785%_ _%expr164786%_) - (let* ((_%__stx168634168635%_ _%hd164785%_) - (_%g164789164799%_ + (lambda (_%self164772%_ _%stx164773%_) + (letrec ((_%collect-e164775%_ + (lambda (_%hd164944%_ _%expr164945%_) + (let* ((_%__stx168793168794%_ _%hd164944%_) + (_%g164948164958%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168634168635%_))))) - (let ((_%__kont168636168637%_ - (lambda (_%L164819%_) - (let ((_%sym164830%_ + _%__stx168793168794%_))))) + (let ((_%__kont168795168796%_ + (lambda (_%L164978%_) + (let ((_%sym164989%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L164819%_)))) - (if (let ((__tmp170964 + (gxc#identifier-symbol _%L164978%_)))) + (if (let ((__tmp171123 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp170964 _%sym164830%_)) + (hash-get __tmp171123 _%sym164989%_)) '#!void - (let ((_%type164831164833%_ + (let ((_%type164990164992%_ (gxc#apply-basic-expression-type - _%expr164786%_))) - (if _%type164831164833%_ - (let ((_%type164836%_ - _%type164831164833%_)) + _%expr164945%_))) + (if _%type164990164992%_ + (let ((_%type164995%_ + _%type164990164992%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type164836%_ + _%type164995%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym164830%_ - _%type164836%_ + _%sym164989%_ + _%type164995%_ '#t)))) '#f)))))) - (_%__kont168638168639%_ (lambda () '#!void))) - (let ((_%__match168647168648%_ - (lambda (_%e164792164811%_ - _%hd164793164814%_ - _%tl164794164816%_) - (let ((_%L164819%_ _%hd164793164814%_)) + (_%__kont168797168798%_ (lambda () '#!void))) + (let ((_%__match168806168807%_ + (lambda (_%e164951164970%_ + _%hd164952164973%_ + _%tl164953164975%_) + (let ((_%L164978%_ _%hd164952164973%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164819%_)) - (_%__kont168636168637%_ _%L164819%_) - (_%__kont168638168639%_)))))) + (gx#identifier? _%L164978%_)) + (_%__kont168795168796%_ _%L164978%_) + (_%__kont168797168798%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168634168635%_)) - (let ((_%e164792164811%_ + (gx#stx-pair? _%__stx168793168794%_)) + (let ((_%e164951164970%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168634168635%_)))) - (let ((_%tl164794164816%_ + (gx#stx-e _%__stx168793168794%_)))) + (let ((_%tl164953164975%_ (let () (declare (not safe)) - (##cdr _%e164792164811%_))) - (_%hd164793164814%_ + (##cdr _%e164951164970%_))) + (_%hd164952164973%_ (let () (declare (not safe)) - (##car _%e164792164811%_)))) + (##car _%e164951164970%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164794164816%_)) - (_%__match168647168648%_ - _%e164792164811%_ - _%hd164793164814%_ - _%tl164794164816%_) - (_%__kont168638168639%_)))) - (_%__kont168638168639%_)))))))) - (let* ((_%g164618164653%_ - (lambda (_%g164619164650%_) + (gx#stx-null? _%tl164953164975%_)) + (_%__match168806168807%_ + _%e164951164970%_ + _%hd164952164973%_ + _%tl164953164975%_) + (_%__kont168797168798%_)))) + (_%__kont168797168798%_)))))))) + (let* ((_%g164777164812%_ + (lambda (_%g164778164809%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164619164650%_)))) - (_%g164617164782%_ - (lambda (_%g164619164656%_) + _%g164778164809%_)))) + (_%g164776164941%_ + (lambda (_%g164778164815%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164619164656%_)) - (let ((_%e164623164658%_ + (gx#stx-pair? _%g164778164815%_)) + (let ((_%e164782164817%_ (let () (declare (not safe)) - (gx#stx-e _%g164619164656%_)))) - (let ((_%hd164624164661%_ + (gx#stx-e _%g164778164815%_)))) + (let ((_%hd164783164820%_ (let () (declare (not safe)) - (##car _%e164623164658%_))) - (_%tl164625164663%_ + (##car _%e164782164817%_))) + (_%tl164784164822%_ (let () (declare (not safe)) - (##cdr _%e164623164658%_)))) + (##cdr _%e164782164817%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164625164663%_)) - (let ((_%e164626164666%_ + (gx#stx-pair? _%tl164784164822%_)) + (let ((_%e164785164825%_ (let () (declare (not safe)) - (gx#stx-e _%tl164625164663%_)))) - (let ((_%hd164627164669%_ + (gx#stx-e _%tl164784164822%_)))) + (let ((_%hd164786164828%_ (let () (declare (not safe)) - (##car _%e164626164666%_))) - (_%tl164628164671%_ + (##car _%e164785164825%_))) + (_%tl164787164830%_ (let () (declare (not safe)) - (##cdr _%e164626164666%_)))) + (##cdr _%e164785164825%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164627164669%_)) - (let ((_g170965_ + _%hd164786164828%_)) + (let ((_g171124_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164627164669%_ + _%hd164786164828%_ '0)))) (begin - (let ((_g170966_ + (let ((_g171125_ (let () (declare (not safe)) - (if (##values? _g170965_) + (if (##values? _g171124_) (##vector-length - _g170965_) + _g171124_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170966_ 2))) + (##fx= _g171125_ 2))) (error "Context expects 2 values" - _g170966_))) - (let ((_%target164629164674%_ + _g171125_))) + (let ((_%target164788164833%_ (let () (declare (not safe)) (##vector-ref - _g170965_ + _g171124_ 0))) - (_%tl164631164676%_ + (_%tl164790164835%_ (let () (declare (not safe)) (##vector-ref - _g170965_ + _g171124_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164631164676%_)) - (letrec ((_%loop164632164679%_ - (lambda (_%hd164630164682%_ + _%tl164790164835%_)) + (letrec ((_%loop164791164838%_ + (lambda (_%hd164789164841%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164636164684%_ - _%hd164637164686%_) + _%expr164795164843%_ + _%hd164796164845%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164630164682%_)) - (let ((_%e164633164689%_ + (gx#stx-pair? _%hd164789164841%_)) + (let ((_%e164792164848%_ (let () (declare (not safe)) - (gx#stx-e _%hd164630164682%_)))) - (let ((_%lp-hd164634164692%_ + (gx#stx-e _%hd164789164841%_)))) + (let ((_%lp-hd164793164851%_ (let () (declare (not safe)) - (##car _%e164633164689%_))) - (_%lp-tl164635164694%_ + (##car _%e164792164848%_))) + (_%lp-tl164794164853%_ (let () (declare (not safe)) - (##cdr _%e164633164689%_)))) + (##cdr _%e164792164848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164634164692%_)) - (let ((_%e164643164697%_ + (gx#stx-pair? _%lp-hd164793164851%_)) + (let ((_%e164802164856%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164634164692%_)))) - (let ((_%hd164644164700%_ + (gx#stx-e _%lp-hd164793164851%_)))) + (let ((_%hd164803164859%_ (let () (declare (not safe)) - (##car _%e164643164697%_))) - (_%tl164645164702%_ + (##car _%e164802164856%_))) + (_%tl164804164861%_ (let () (declare (not safe)) - (##cdr _%e164643164697%_)))) + (##cdr _%e164802164856%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164645164702%_)) - (let ((_%e164646164705%_ + (gx#stx-pair? _%tl164804164861%_)) + (let ((_%e164805164864%_ (let () (declare (not safe)) (gx#stx-e - _%tl164645164702%_)))) - (let ((_%hd164647164708%_ + _%tl164804164861%_)))) + (let ((_%hd164806164867%_ (let () (declare (not safe)) - (##car _%e164646164705%_))) - (_%tl164648164710%_ + (##car _%e164805164864%_))) + (_%tl164807164869%_ (let () (declare (not safe)) - (##cdr _%e164646164705%_)))) + (##cdr _%e164805164864%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164648164710%_)) - (_%loop164632164679%_ - _%lp-tl164635164694%_ - (cons _%hd164647164708%_ - _%expr164636164684%_) - (cons _%hd164644164700%_ - _%hd164637164686%_)) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_)))) - (let ((_%expr164638164713%_ - (reverse _%expr164636164684%_)) - (_%hd164639164715%_ - (reverse _%hd164637164686%_))) + _%tl164807164869%_)) + (_%loop164791164838%_ + _%lp-tl164794164853%_ + (cons _%hd164806164867%_ + _%expr164795164843%_) + (cons _%hd164803164859%_ + _%hd164796164845%_)) + (_%g164777164812%_ + _%g164778164815%_)))) + (_%g164777164812%_ + _%g164778164815%_)))) + (_%g164777164812%_ _%g164778164815%_)))) + (let ((_%expr164797164872%_ + (reverse _%expr164795164843%_)) + (_%hd164798164874%_ + (reverse _%hd164796164845%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164628164671%_)) - (let ((_%e164640164718%_ + (gx#stx-pair? _%tl164787164830%_)) + (let ((_%e164799164877%_ (let () (declare (not safe)) - (gx#stx-e _%tl164628164671%_)))) - (let ((_%hd164641164721%_ + (gx#stx-e _%tl164787164830%_)))) + (let ((_%hd164800164880%_ (let () (declare (not safe)) - (##car _%e164640164718%_))) - (_%tl164642164723%_ + (##car _%e164799164877%_))) + (_%tl164801164882%_ (let () (declare (not safe)) - (##cdr _%e164640164718%_)))) + (##cdr _%e164799164877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164642164723%_)) - ((lambda (_%L164726%_ - _%L164727%_ - _%L164728%_) - (let ((__tmp170970 + (gx#stx-null? _%tl164801164882%_)) + ((lambda (_%L164885%_ + _%L164886%_ + _%L164887%_) + (let ((__tmp171129 (lambda () (for-each - _%collect-e164616%_ - (let ((__tmp170971 - (lambda (_%g164749164752%_ + _%collect-e164775%_ + (let ((__tmp171130 + (lambda (_%g164908164911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164750164754%_) - (cons _%g164749164752%_ _%g164750164754%_)))) + _%g164909164913%_) + (cons _%g164908164911%_ _%g164909164913%_)))) (declare (not safe)) - (__foldr1 __tmp170971 '() _%L164728%_)) + (__foldr1 __tmp171130 '() _%L164887%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170972 - (lambda (_%g164756164759%_ + (let ((__tmp171131 + (lambda (_%g164915164918%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164757164761%_) - (cons _%g164756164759%_ _%g164757164761%_)))) + _%g164916164920%_) + (cons _%g164915164918%_ _%g164916164920%_)))) (declare (not safe)) - (__foldr1 __tmp170972 '() _%L164727%_))) + (__foldr1 __tmp171131 '() _%L164886%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g164763164765%_) + (lambda (_%g164922164924%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164613%_ - _%g164763164765%_))) - (let ((__tmp170973 - (lambda (_%g164767164770%_ + _%self164772%_ + _%g164922164924%_))) + (let ((__tmp171132 + (lambda (_%g164926164929%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164768164772%_) - (cons _%g164767164770%_ _%g164768164772%_)))) + _%g164927164931%_) + (cons _%g164926164929%_ _%g164927164931%_)))) (declare (not safe)) - (__foldr1 __tmp170973 '() _%L164727%_))) + (__foldr1 __tmp171132 '() _%L164886%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164613%_ - _%L164726%_)))) - (__tmp170967 - (let ((__tmp170968 - (let ((__tmp170969 - (lambda (_%g164774164777%_ + _%self164772%_ + _%L164885%_)))) + (__tmp171126 + (let ((__tmp171127 + (let ((__tmp171128 + (lambda (_%g164933164936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164775164779%_) - (cons _%g164774164777%_ _%g164775164779%_)))) + _%g164934164938%_) + (cons _%g164933164936%_ _%g164934164938%_)))) (declare (not safe)) - (__foldr1 __tmp170969 '() _%L164728%_)))) + (__foldr1 __tmp171128 '() _%L164887%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170968)))) + __tmp171127)))) (declare (not safe)) (__call-with-parameters - __tmp170970 + __tmp171129 gxc#current-compile-local-env - __tmp170967))) - _%hd164641164721%_ - _%expr164638164713%_ - _%hd164639164715%_) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_))))))) + __tmp171126))) + _%hd164800164880%_ + _%expr164797164872%_ + _%hd164798164874%_) + (_%g164777164812%_ + _%g164778164815%_)))) + (_%g164777164812%_ _%g164778164815%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164632164679%_ - _%target164629164674%_ + (_%loop164791164838%_ + _%target164788164833%_ '() '())) - (_%g164618164653%_ - _%g164619164656%_))))) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_))))) - (_%g164617164782%_ _%stx164614%_))))) + (_%g164777164812%_ + _%g164778164815%_))))) + (_%g164777164812%_ + _%g164778164815%_)))) + (_%g164777164812%_ _%g164778164815%_)))) + (_%g164777164812%_ _%g164778164815%_))))) + (_%g164776164941%_ _%stx164773%_))))) (define gxc#refine-type-lambda% - (lambda (_%self164557%_ _%stx164558%_) - (let* ((_%g164560164574%_ - (lambda (_%g164561164571%_) + (lambda (_%self164716%_ _%stx164717%_) + (let* ((_%g164719164733%_ + (lambda (_%g164720164730%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164561164571%_)))) - (_%g164559164610%_ - (lambda (_%g164561164577%_) + _%g164720164730%_)))) + (_%g164718164769%_ + (lambda (_%g164720164736%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164561164577%_)) - (let ((_%e164564164579%_ + (gx#stx-pair? _%g164720164736%_)) + (let ((_%e164723164738%_ (let () (declare (not safe)) - (gx#stx-e _%g164561164577%_)))) - (let ((_%hd164565164582%_ + (gx#stx-e _%g164720164736%_)))) + (let ((_%hd164724164741%_ (let () (declare (not safe)) - (##car _%e164564164579%_))) - (_%tl164566164584%_ + (##car _%e164723164738%_))) + (_%tl164725164743%_ (let () (declare (not safe)) - (##cdr _%e164564164579%_)))) + (##cdr _%e164723164738%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164566164584%_)) - (let ((_%e164567164587%_ + (gx#stx-pair? _%tl164725164743%_)) + (let ((_%e164726164746%_ (let () (declare (not safe)) - (gx#stx-e _%tl164566164584%_)))) - (let ((_%hd164568164590%_ + (gx#stx-e _%tl164725164743%_)))) + (let ((_%hd164727164749%_ (let () (declare (not safe)) - (##car _%e164567164587%_))) - (_%tl164569164592%_ + (##car _%e164726164746%_))) + (_%tl164728164751%_ (let () (declare (not safe)) - (##cdr _%e164567164587%_)))) - ((lambda (_%L164595%_ _%L164596%_) - (let ((__tmp170975 + (##cdr _%e164726164746%_)))) + ((lambda (_%L164754%_ _%L164755%_) + (let ((__tmp171134 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self164557%_ - _%stx164558%_)))) - (__tmp170974 + _%self164716%_ + _%stx164717%_)))) + (__tmp171133 (let () (declare (not safe)) (gxc#xform-let-locals - _%L164596%_)))) + _%L164755%_)))) (declare (not safe)) (__call-with-parameters - __tmp170975 + __tmp171134 gxc#current-compile-local-env - __tmp170974))) - _%tl164569164592%_ - _%hd164568164590%_))) - (_%g164560164574%_ _%g164561164577%_)))) - (_%g164560164574%_ _%g164561164577%_))))) - (_%g164559164610%_ _%stx164558%_)))) + __tmp171133))) + _%tl164728164751%_ + _%hd164727164749%_))) + (_%g164719164733%_ _%g164720164736%_)))) + (_%g164719164733%_ _%g164720164736%_))))) + (_%g164718164769%_ _%stx164717%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self164384%_ _%stx164385%_) - (let* ((_%g164387164415%_ - (lambda (_%g164388164412%_) + (lambda (_%self164543%_ _%stx164544%_) + (let* ((_%g164546164574%_ + (lambda (_%g164547164571%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164388164412%_)))) - (_%g164386164554%_ - (lambda (_%g164388164418%_) + _%g164547164571%_)))) + (_%g164545164713%_ + (lambda (_%g164547164577%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164388164418%_)) - (let ((_%e164391164420%_ + (gx#stx-pair? _%g164547164577%_)) + (let ((_%e164550164579%_ (let () (declare (not safe)) - (gx#stx-e _%g164388164418%_)))) - (let ((_%hd164392164423%_ + (gx#stx-e _%g164547164577%_)))) + (let ((_%hd164551164582%_ (let () (declare (not safe)) - (##car _%e164391164420%_))) - (_%tl164393164425%_ + (##car _%e164550164579%_))) + (_%tl164552164584%_ (let () (declare (not safe)) - (##cdr _%e164391164420%_)))) + (##cdr _%e164550164579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164393164425%_)) - (let ((_g170976_ + (gx#stx-pair/null? _%tl164552164584%_)) + (let ((_g171135_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164393164425%_ + _%tl164552164584%_ '0)))) (begin - (let ((_g170977_ + (let ((_g171136_ (let () (declare (not safe)) - (if (##values? _g170976_) - (##vector-length _g170976_) + (if (##values? _g171135_) + (##vector-length _g171135_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170977_ 2))) + (##fx= _g171136_ 2))) (error "Context expects 2 values" - _g170977_))) - (let ((_%target164394164428%_ + _g171136_))) + (let ((_%target164553164587%_ (let () (declare (not safe)) - (##vector-ref _g170976_ 0))) - (_%tl164396164430%_ + (##vector-ref _g171135_ 0))) + (_%tl164555164589%_ (let () (declare (not safe)) - (##vector-ref _g170976_ 1)))) + (##vector-ref _g171135_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164396164430%_)) - (letrec ((_%loop164397164433%_ - (lambda (_%hd164395164436%_ - _%body164401164438%_ - _%hd164402164440%_) + (gx#stx-null? _%tl164555164589%_)) + (letrec ((_%loop164556164592%_ + (lambda (_%hd164554164595%_ + _%body164560164597%_ + _%hd164561164599%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164395164436%_)) - (let ((_%e164398164443%_ + _%hd164554164595%_)) + (let ((_%e164557164602%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd164395164436%_)))) - (let ((_%lp-hd164399164446%_ + (gx#stx-e _%hd164554164595%_)))) + (let ((_%lp-hd164558164605%_ (let () (declare (not safe)) - (##car _%e164398164443%_))) - (_%lp-tl164400164448%_ + (##car _%e164557164602%_))) + (_%lp-tl164559164607%_ (let () (declare (not safe)) - (##cdr _%e164398164443%_)))) + (##cdr _%e164557164602%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164399164446%_)) - (let ((_%e164405164451%_ + (gx#stx-pair? _%lp-hd164558164605%_)) + (let ((_%e164564164610%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164399164446%_)))) - (let ((_%hd164406164454%_ + (gx#stx-e _%lp-hd164558164605%_)))) + (let ((_%hd164565164613%_ (let () (declare (not safe)) - (##car _%e164405164451%_))) - (_%tl164407164456%_ + (##car _%e164564164610%_))) + (_%tl164566164615%_ (let () (declare (not safe)) - (##cdr _%e164405164451%_)))) + (##cdr _%e164564164610%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164407164456%_)) - (let ((_%e164408164459%_ + (gx#stx-pair? _%tl164566164615%_)) + (let ((_%e164567164618%_ (let () (declare (not safe)) - (gx#stx-e _%tl164407164456%_)))) - (let ((_%hd164409164462%_ + (gx#stx-e _%tl164566164615%_)))) + (let ((_%hd164568164621%_ (let () (declare (not safe)) - (##car _%e164408164459%_))) - (_%tl164410164464%_ + (##car _%e164567164618%_))) + (_%tl164569164623%_ (let () (declare (not safe)) - (##cdr _%e164408164459%_)))) + (##cdr _%e164567164618%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164410164464%_)) - (_%loop164397164433%_ - _%lp-tl164400164448%_ - (cons _%hd164409164462%_ - _%body164401164438%_) - (cons _%hd164406164454%_ - _%hd164402164440%_)) - (_%g164387164415%_ - _%g164388164418%_)))) - (_%g164387164415%_ _%g164388164418%_)))) - (_%g164387164415%_ _%g164388164418%_)))) - (let ((_%body164403164467%_ (reverse _%body164401164438%_)) - (_%hd164404164469%_ (reverse _%hd164402164440%_))) - ((lambda (_%L164472%_ _%L164473%_) + (gx#stx-null? _%tl164569164623%_)) + (_%loop164556164592%_ + _%lp-tl164559164607%_ + (cons _%hd164568164621%_ + _%body164560164597%_) + (cons _%hd164565164613%_ + _%hd164561164599%_)) + (_%g164546164574%_ + _%g164547164577%_)))) + (_%g164546164574%_ _%g164547164577%_)))) + (_%g164546164574%_ _%g164547164577%_)))) + (let ((_%body164562164626%_ (reverse _%body164560164597%_)) + (_%hd164563164628%_ (reverse _%hd164561164599%_))) + ((lambda (_%L164631%_ _%L164632%_) (for-each - (lambda (_%clause164488%_) - (let* ((_%g164490164504%_ - (lambda (_%g164491164501%_) + (lambda (_%clause164647%_) + (let* ((_%g164649164663%_ + (lambda (_%g164650164660%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164491164501%_)))) - (_%g164489164541%_ - (lambda (_%g164491164507%_) + _%g164650164660%_)))) + (_%g164648164700%_ + (lambda (_%g164650164666%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164491164507%_)) - (let ((_%e164494164509%_ + (gx#stx-pair? _%g164650164666%_)) + (let ((_%e164653164668%_ (let () (declare (not safe)) - (gx#stx-e _%g164491164507%_)))) - (let ((_%hd164495164512%_ + (gx#stx-e _%g164650164666%_)))) + (let ((_%hd164654164671%_ (let () (declare (not safe)) - (##car _%e164494164509%_))) - (_%tl164496164514%_ + (##car _%e164653164668%_))) + (_%tl164655164673%_ (let () (declare (not safe)) - (##cdr _%e164494164509%_)))) + (##cdr _%e164653164668%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164496164514%_)) - (let ((_%e164497164517%_ + _%tl164655164673%_)) + (let ((_%e164656164676%_ (let () (declare (not safe)) (gx#stx-e - _%tl164496164514%_)))) - (let ((_%hd164498164520%_ + _%tl164655164673%_)))) + (let ((_%hd164657164679%_ (let () (declare (not safe)) - (##car _%e164497164517%_))) - (_%tl164499164522%_ + (##car _%e164656164676%_))) + (_%tl164658164681%_ (let () (declare (not safe)) - (##cdr _%e164497164517%_)))) + (##cdr _%e164656164676%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164499164522%_)) - ((lambda (_%L164525%_ - _%L164526%_) - (let ((__tmp170979 + _%tl164658164681%_)) + ((lambda (_%L164684%_ + _%L164685%_) + (let ((__tmp171138 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self164384%_ - _%stx164385%_)))) - (__tmp170978 + _%self164543%_ + _%stx164544%_)))) + (__tmp171137 (let () (declare (not safe)) - (gxc#xform-let-locals _%L164526%_)))) + (gxc#xform-let-locals _%L164685%_)))) (declare (not safe)) (__call-with-parameters - __tmp170979 + __tmp171138 gxc#current-compile-local-env - __tmp170978))) - _%hd164498164520%_ - _%hd164495164512%_) - (_%g164490164504%_ _%g164491164507%_)))) + __tmp171137))) + _%hd164657164679%_ + _%hd164654164671%_) + (_%g164649164663%_ _%g164650164666%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164490164504%_ - _%g164491164507%_)))) - (_%g164490164504%_ _%g164491164507%_))))) - (_%g164489164541%_ _%clause164488%_))) + (_%g164649164663%_ + _%g164650164666%_)))) + (_%g164649164663%_ _%g164650164666%_))))) + (_%g164648164700%_ _%clause164647%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L164472%_ - _%L164473%_)) - (let ((__tmp170980 - (lambda (_%g164543164547%_ - _%g164544164549%_ - _%g164545164551%_) - (cons (cons _%g164544164549%_ - (cons _%g164543164547%_ '())) - _%g164545164551%_)))) + _%L164631%_ + _%L164632%_)) + (let ((__tmp171139 + (lambda (_%g164702164706%_ + _%g164703164708%_ + _%g164704164710%_) + (cons (cons _%g164703164708%_ + (cons _%g164702164706%_ '())) + _%g164704164710%_)))) (declare (not safe)) (__foldr2 - __tmp170980 + __tmp171139 '() - _%L164472%_ - _%L164473%_))))) - _%body164403164467%_ - _%hd164404164469%_)))))) + _%L164631%_ + _%L164632%_))))) + _%body164562164626%_ + _%hd164563164628%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164397164433%_ - _%target164394164428%_ + (_%loop164556164592%_ + _%target164553164587%_ '() '())) - (_%g164387164415%_ - _%g164388164418%_))))) - (_%g164387164415%_ _%g164388164418%_)))) - (_%g164387164415%_ _%g164388164418%_))))) - (_%g164386164554%_ _%stx164385%_)))) + (_%g164546164574%_ + _%g164547164577%_))))) + (_%g164546164574%_ _%g164547164577%_)))) + (_%g164546164574%_ _%g164547164577%_))))) + (_%g164545164713%_ _%stx164544%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self164262%_ _%stx164263%_) - (let* ((_%g164265164282%_ - (lambda (_%g164266164279%_) + (lambda (_%self164421%_ _%stx164422%_) + (let* ((_%g164424164441%_ + (lambda (_%g164425164438%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164266164279%_)))) - (_%g164264164381%_ - (lambda (_%g164266164285%_) + _%g164425164438%_)))) + (_%g164423164540%_ + (lambda (_%g164425164444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164266164285%_)) - (let ((_%e164269164287%_ + (gx#stx-pair? _%g164425164444%_)) + (let ((_%e164428164446%_ (let () (declare (not safe)) - (gx#stx-e _%g164266164285%_)))) - (let ((_%hd164270164290%_ + (gx#stx-e _%g164425164444%_)))) + (let ((_%hd164429164449%_ (let () (declare (not safe)) - (##car _%e164269164287%_))) - (_%tl164271164292%_ + (##car _%e164428164446%_))) + (_%tl164430164451%_ (let () (declare (not safe)) - (##cdr _%e164269164287%_)))) + (##cdr _%e164428164446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164271164292%_)) - (let ((_%e164272164295%_ + (gx#stx-pair? _%tl164430164451%_)) + (let ((_%e164431164454%_ (let () (declare (not safe)) - (gx#stx-e _%tl164271164292%_)))) - (let ((_%hd164273164298%_ + (gx#stx-e _%tl164430164451%_)))) + (let ((_%hd164432164457%_ (let () (declare (not safe)) - (##car _%e164272164295%_))) - (_%tl164274164300%_ + (##car _%e164431164454%_))) + (_%tl164433164459%_ (let () (declare (not safe)) - (##cdr _%e164272164295%_)))) + (##cdr _%e164431164454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164274164300%_)) - (let ((_%e164275164303%_ + (gx#stx-pair? _%tl164433164459%_)) + (let ((_%e164434164462%_ (let () (declare (not safe)) - (gx#stx-e _%tl164274164300%_)))) - (let ((_%hd164276164306%_ + (gx#stx-e _%tl164433164459%_)))) + (let ((_%hd164435164465%_ (let () (declare (not safe)) - (##car _%e164275164303%_))) - (_%tl164277164308%_ + (##car _%e164434164462%_))) + (_%tl164436164467%_ (let () (declare (not safe)) - (##cdr _%e164275164303%_)))) + (##cdr _%e164434164462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164277164308%_)) - ((lambda (_%L164311%_ - _%L164312%_) - (let* ((_%__stx168650168651%_ - _%L164312%_) - (_%g164328164339%_ + _%tl164436164467%_)) + ((lambda (_%L164470%_ + _%L164471%_) + (let* ((_%__stx168809168810%_ + _%L164471%_) + (_%g164487164498%_ (lambda () (let () (declare @@ -7887,325 +7887,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168650168651%_))))) - (let ((_%__kont168652168653%_ - (lambda (_%L164359%_ + _%__stx168809168810%_))))) + (let ((_%__kont168811168812%_ + (lambda (_%L164518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L164360%_) - (let ((_%$e164372%_ - (let ((__tmp170981 + _%L164519%_) + (let ((_%$e164531%_ + (let ((__tmp171140 (let () (declare (not safe)) - (gx#stx-e _%L164360%_)))) + (gx#stx-e _%L164519%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp170981)))) - (if _%$e164372%_ - ((lambda (_%type-e164375%_) - (_%type-e164375%_ _%stx164263%_ _%L164312%_)) - _%$e164372%_) + __tmp171140)))) + (if _%$e164531%_ + ((lambda (_%type-e164534%_) + (_%type-e164534%_ _%stx164422%_ _%L164471%_)) + _%$e164531%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164262%_ _%L164311%_)))))) - (_%__kont168654168655%_ + (gxc#compile-e__1 _%self164421%_ _%L164470%_)))))) + (_%__kont168813168814%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self164262%_ _%L164311%_))))) + (gxc#compile-e__1 _%self164421%_ _%L164470%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match168661168662%_ - (lambda (_%e164332164351%_ + (let ((_%__match168820168821%_ + (lambda (_%e164491164510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd164333164354%_ - _%tl164334164356%_) - (let ((_%L164359%_ _%tl164334164356%_) - (_%L164360%_ _%hd164333164354%_)) + _%hd164492164513%_ + _%tl164493164515%_) + (let ((_%L164518%_ _%tl164493164515%_) + (_%L164519%_ _%hd164492164513%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164360%_)) - (_%__kont168652168653%_ _%L164359%_ _%L164360%_) - (_%__kont168654168655%_)))))) + (gx#identifier? _%L164519%_)) + (_%__kont168811168812%_ _%L164518%_ _%L164519%_) + (_%__kont168813168814%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168650168651%_)) - (let ((_%e164332164351%_ + (gx#stx-pair? _%__stx168809168810%_)) + (let ((_%e164491164510%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168650168651%_)))) - (let ((_%tl164334164356%_ + (gx#stx-e _%__stx168809168810%_)))) + (let ((_%tl164493164515%_ (let () (declare (not safe)) - (##cdr _%e164332164351%_))) - (_%hd164333164354%_ + (##cdr _%e164491164510%_))) + (_%hd164492164513%_ (let () (declare (not safe)) - (##car _%e164332164351%_)))) - (_%__match168661168662%_ - _%e164332164351%_ - _%hd164333164354%_ - _%tl164334164356%_))) - (_%__kont168654168655%_)))))) + (##car _%e164491164510%_)))) + (_%__match168820168821%_ + _%e164491164510%_ + _%hd164492164513%_ + _%tl164493164515%_))) + (_%__kont168813168814%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd164276164306%_ - _%hd164273164298%_) - (_%g164265164282%_ - _%g164266164285%_)))) - (_%g164265164282%_ _%g164266164285%_)))) - (_%g164265164282%_ _%g164266164285%_)))) - (_%g164265164282%_ _%g164266164285%_))))) - (_%g164264164381%_ _%stx164263%_)))) + _%hd164435164465%_ + _%hd164432164457%_) + (_%g164424164441%_ + _%g164425164444%_)))) + (_%g164424164441%_ _%g164425164444%_)))) + (_%g164424164441%_ _%g164425164444%_)))) + (_%g164424164441%_ _%g164425164444%_))))) + (_%g164423164540%_ _%stx164422%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx164210%_ _%ann164211%_) - (let* ((_%g164213164226%_ - (lambda (_%g164214164223%_) + (lambda (_%stx164369%_ _%ann164370%_) + (let* ((_%g164372164385%_ + (lambda (_%g164373164382%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164214164223%_)))) - (_%g164212164259%_ - (lambda (_%g164214164229%_) + _%g164373164382%_)))) + (_%g164371164418%_ + (lambda (_%g164373164388%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164214164229%_)) - (let ((_%e164216164231%_ + (gx#stx-pair? _%g164373164388%_)) + (let ((_%e164375164390%_ (let () (declare (not safe)) - (gx#stx-e _%g164214164229%_)))) - (let ((_%hd164217164234%_ + (gx#stx-e _%g164373164388%_)))) + (let ((_%hd164376164393%_ (let () (declare (not safe)) - (##car _%e164216164231%_))) - (_%tl164218164236%_ + (##car _%e164375164390%_))) + (_%tl164377164395%_ (let () (declare (not safe)) - (##cdr _%e164216164231%_)))) + (##cdr _%e164375164390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164218164236%_)) - (let ((_%e164219164239%_ + (gx#stx-pair? _%tl164377164395%_)) + (let ((_%e164378164398%_ (let () (declare (not safe)) - (gx#stx-e _%tl164218164236%_)))) - (let ((_%hd164220164242%_ + (gx#stx-e _%tl164377164395%_)))) + (let ((_%hd164379164401%_ (let () (declare (not safe)) - (##car _%e164219164239%_))) - (_%tl164221164244%_ + (##car _%e164378164398%_))) + (_%tl164380164403%_ (let () (declare (not safe)) - (##cdr _%e164219164239%_)))) + (##cdr _%e164378164398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164221164244%_)) - ((lambda (_%L164247%_) - (let ((__tmp170982 + (gx#stx-null? _%tl164380164403%_)) + ((lambda (_%L164406%_) + (let ((__tmp171141 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164247%_)))) + _%L164406%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164210%_ - __tmp170982))) - _%hd164220164242%_) - (_%g164213164226%_ _%g164214164229%_)))) - (_%g164213164226%_ _%g164214164229%_)))) - (_%g164213164226%_ _%g164214164229%_))))) - (_%g164212164259%_ _%ann164211%_)))) + _%stx164369%_ + __tmp171141))) + _%hd164379164401%_) + (_%g164372164385%_ _%g164373164388%_)))) + (_%g164372164385%_ _%g164373164388%_)))) + (_%g164372164385%_ _%g164373164388%_))))) + (_%g164371164418%_ _%ann164370%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx164054%_ _%ann164055%_) - (let* ((_%g164057164094%_ - (lambda (_%g164058164091%_) + (lambda (_%stx164213%_ _%ann164214%_) + (let* ((_%g164216164253%_ + (lambda (_%g164217164250%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164058164091%_)))) - (_%g164056164207%_ - (lambda (_%g164058164097%_) + _%g164217164250%_)))) + (_%g164215164366%_ + (lambda (_%g164217164256%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164058164097%_)) - (let ((_%e164066164099%_ + (gx#stx-pair? _%g164217164256%_)) + (let ((_%e164225164258%_ (let () (declare (not safe)) - (gx#stx-e _%g164058164097%_)))) - (let ((_%hd164067164102%_ + (gx#stx-e _%g164217164256%_)))) + (let ((_%hd164226164261%_ (let () (declare (not safe)) - (##car _%e164066164099%_))) - (_%tl164068164104%_ + (##car _%e164225164258%_))) + (_%tl164227164263%_ (let () (declare (not safe)) - (##cdr _%e164066164099%_)))) + (##cdr _%e164225164258%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164068164104%_)) - (let ((_%e164069164107%_ + (gx#stx-pair? _%tl164227164263%_)) + (let ((_%e164228164266%_ (let () (declare (not safe)) - (gx#stx-e _%tl164068164104%_)))) - (let ((_%hd164070164110%_ + (gx#stx-e _%tl164227164263%_)))) + (let ((_%hd164229164269%_ (let () (declare (not safe)) - (##car _%e164069164107%_))) - (_%tl164071164112%_ + (##car _%e164228164266%_))) + (_%tl164230164271%_ (let () (declare (not safe)) - (##cdr _%e164069164107%_)))) + (##cdr _%e164228164266%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164071164112%_)) - (let ((_%e164072164115%_ + (gx#stx-pair? _%tl164230164271%_)) + (let ((_%e164231164274%_ (let () (declare (not safe)) - (gx#stx-e _%tl164071164112%_)))) - (let ((_%hd164073164118%_ + (gx#stx-e _%tl164230164271%_)))) + (let ((_%hd164232164277%_ (let () (declare (not safe)) - (##car _%e164072164115%_))) - (_%tl164074164120%_ + (##car _%e164231164274%_))) + (_%tl164233164279%_ (let () (declare (not safe)) - (##cdr _%e164072164115%_)))) + (##cdr _%e164231164274%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164074164120%_)) - (let ((_%e164075164123%_ + _%tl164233164279%_)) + (let ((_%e164234164282%_ (let () (declare (not safe)) (gx#stx-e - _%tl164074164120%_)))) - (let ((_%hd164076164126%_ + _%tl164233164279%_)))) + (let ((_%hd164235164285%_ (let () (declare (not safe)) - (##car _%e164075164123%_))) - (_%tl164077164128%_ + (##car _%e164234164282%_))) + (_%tl164236164287%_ (let () (declare (not safe)) - (##cdr _%e164075164123%_)))) + (##cdr _%e164234164282%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164077164128%_)) - (let ((_%e164078164131%_ + _%tl164236164287%_)) + (let ((_%e164237164290%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164077164128%_)))) - (let ((_%hd164079164134%_ - (let () (declare (not safe)) (##car _%e164078164131%_))) - (_%tl164080164136%_ + (gx#stx-e _%tl164236164287%_)))) + (let ((_%hd164238164293%_ + (let () (declare (not safe)) (##car _%e164237164290%_))) + (_%tl164239164295%_ (let () (declare (not safe)) - (##cdr _%e164078164131%_)))) + (##cdr _%e164237164290%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164080164136%_)) - (let ((_%e164081164139%_ + (gx#stx-pair? _%tl164239164295%_)) + (let ((_%e164240164298%_ (let () (declare (not safe)) - (gx#stx-e _%tl164080164136%_)))) - (let ((_%hd164082164142%_ + (gx#stx-e _%tl164239164295%_)))) + (let ((_%hd164241164301%_ (let () (declare (not safe)) - (##car _%e164081164139%_))) - (_%tl164083164144%_ + (##car _%e164240164298%_))) + (_%tl164242164303%_ (let () (declare (not safe)) - (##cdr _%e164081164139%_)))) + (##cdr _%e164240164298%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164083164144%_)) - (let ((_%e164084164147%_ + (gx#stx-pair? _%tl164242164303%_)) + (let ((_%e164243164306%_ (let () (declare (not safe)) - (gx#stx-e _%tl164083164144%_)))) - (let ((_%hd164085164150%_ + (gx#stx-e _%tl164242164303%_)))) + (let ((_%hd164244164309%_ (let () (declare (not safe)) - (##car _%e164084164147%_))) - (_%tl164086164152%_ + (##car _%e164243164306%_))) + (_%tl164245164311%_ (let () (declare (not safe)) - (##cdr _%e164084164147%_)))) + (##cdr _%e164243164306%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164086164152%_)) - (let ((_%e164087164155%_ + (gx#stx-pair? _%tl164245164311%_)) + (let ((_%e164246164314%_ (let () (declare (not safe)) - (gx#stx-e _%tl164086164152%_)))) - (let ((_%hd164088164158%_ + (gx#stx-e _%tl164245164311%_)))) + (let ((_%hd164247164317%_ (let () (declare (not safe)) - (##car _%e164087164155%_))) - (_%tl164089164160%_ + (##car _%e164246164314%_))) + (_%tl164248164319%_ (let () (declare (not safe)) - (##cdr _%e164087164155%_)))) + (##cdr _%e164246164314%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164089164160%_)) - ((lambda (_%L164163%_ - _%L164164%_ - _%L164165%_ - _%L164166%_ - _%L164167%_ - _%L164168%_ - _%L164169%_) - (let ((_%type-id164199%_ + _%tl164248164319%_)) + ((lambda (_%L164322%_ + _%L164323%_ + _%L164324%_ + _%L164325%_ + _%L164326%_ + _%L164327%_ + _%L164328%_) + (let ((_%type-id164358%_ (let () (declare (not safe)) (gx#stx-e - _%L164169%_))) - (_%super164200%_ + _%L164328%_))) + (_%super164359%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164168%_))) - (_%slots164201%_ + _%L164327%_))) + (_%slots164360%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L164167%_))) - (_%ctor-method164202%_ + _%L164326%_))) + (_%ctor-method164361%_ (let () (declare (not safe)) (gx#stx-e - _%L164166%_))) - (_%struct?164203%_ + _%L164325%_))) + (_%struct?164362%_ (let () (declare (not safe)) (gx#stx-e - _%L164165%_))) - (_%final?164204%_ + _%L164324%_))) + (_%final?164363%_ (let () (declare (not safe)) (gx#stx-e - _%L164164%_))) - (_%metaclass164205%_ + _%L164323%_))) + (_%metaclass164364%_ (if (let () (declare (not safe)) (gx#stx-e - _%L164163%_)) + _%L164322%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L164163%_)) + _%L164322%_)) '#f))) - (let ((__obj170818 + (let ((__obj170977 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp170983 - (let ((__obj170817 + (let ((__tmp171142 + (let ((__obj170976 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj170817 - _%type-id164199%_ - _%super164200%_ - _%slots164201%_ - _%ctor-method164202%_ - _%struct?164203%_ - _%final?164204%_ + __obj170976 + _%type-id164358%_ + _%super164359%_ + _%slots164360%_ + _%ctor-method164361%_ + _%struct?164362%_ + _%final?164363%_ '#f - _%metaclass164205%_)) - __obj170817))) + _%metaclass164364%_)) + __obj170976))) (declare (not safe)) - (gxc#!class-meta:::init! __obj170818 __tmp170983)) + (gxc#!class-meta:::init! __obj170977 __tmp171142)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj170818))) - _%hd164088164158%_ - _%hd164085164150%_ - _%hd164082164142%_ - _%hd164079164134%_ - _%hd164076164126%_ - _%hd164073164118%_ - _%hd164070164110%_) - (_%g164057164094%_ - _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) + __obj170977))) + _%hd164247164317%_ + _%hd164244164309%_ + _%hd164241164301%_ + _%hd164238164293%_ + _%hd164235164285%_ + _%hd164232164277%_ + _%hd164229164269%_) + (_%g164216164253%_ + _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164057164094%_ - _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_))))) - (_%g164056164207%_ _%ann164055%_)))) + (_%g164216164253%_ + _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_)))) + (_%g164216164253%_ _%g164217164256%_))))) + (_%g164215164366%_ _%ann164214%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx163983%_ _%ann163984%_) - (let* ((_%g163986164003%_ - (lambda (_%g163987164000%_) + (lambda (_%stx164142%_ _%ann164143%_) + (let* ((_%g164145164162%_ + (lambda (_%g164146164159%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163987164000%_)))) - (_%g163985164051%_ - (lambda (_%g163987164006%_) + _%g164146164159%_)))) + (_%g164144164210%_ + (lambda (_%g164146164165%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163987164006%_)) - (let ((_%e163990164008%_ + (gx#stx-pair? _%g164146164165%_)) + (let ((_%e164149164167%_ (let () (declare (not safe)) - (gx#stx-e _%g163987164006%_)))) - (let ((_%hd163991164011%_ + (gx#stx-e _%g164146164165%_)))) + (let ((_%hd164150164170%_ (let () (declare (not safe)) - (##car _%e163990164008%_))) - (_%tl163992164013%_ + (##car _%e164149164167%_))) + (_%tl164151164172%_ (let () (declare (not safe)) - (##cdr _%e163990164008%_)))) + (##cdr _%e164149164167%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163992164013%_)) - (let ((_%e163993164016%_ + (gx#stx-pair? _%tl164151164172%_)) + (let ((_%e164152164175%_ (let () (declare (not safe)) - (gx#stx-e _%tl163992164013%_)))) - (let ((_%hd163994164019%_ + (gx#stx-e _%tl164151164172%_)))) + (let ((_%hd164153164178%_ (let () (declare (not safe)) - (##car _%e163993164016%_))) - (_%tl163995164021%_ + (##car _%e164152164175%_))) + (_%tl164154164180%_ (let () (declare (not safe)) - (##cdr _%e163993164016%_)))) + (##cdr _%e164152164175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163995164021%_)) - (let ((_%e163996164024%_ + (gx#stx-pair? _%tl164154164180%_)) + (let ((_%e164155164183%_ (let () (declare (not safe)) - (gx#stx-e _%tl163995164021%_)))) - (let ((_%hd163997164027%_ + (gx#stx-e _%tl164154164180%_)))) + (let ((_%hd164156164186%_ (let () (declare (not safe)) - (##car _%e163996164024%_))) - (_%tl163998164029%_ + (##car _%e164155164183%_))) + (_%tl164157164188%_ (let () (declare (not safe)) - (##cdr _%e163996164024%_)))) + (##cdr _%e164155164183%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163998164029%_)) - ((lambda (_%L164032%_ - _%L164033%_) - (let ((_%type-id164048%_ + _%tl164157164188%_)) + ((lambda (_%L164191%_ + _%L164192%_) + (let ((_%type-id164207%_ (let () (declare (not safe)) (gx#stx-e - _%L164033%_))) - (_%super164049%_ + _%L164192%_))) + (_%super164208%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164032%_)))) - (let ((__obj170820 + _%L164191%_)))) + (let ((__obj170979 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp170984 - (let ((__obj170819 + (let ((__tmp171143 + (let ((__obj170978 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj170819 - _%type-id164048%_ - _%super164049%_ + __obj170978 + _%type-id164207%_ + _%super164208%_ '() '#f '#f '#f '#t '#f)) - __obj170819))) + __obj170978))) (declare (not safe)) - (gxc#!class-meta:::init! __obj170820 __tmp170984)) + (gxc#!class-meta:::init! __obj170979 __tmp171143)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj170820))) - _%hd163997164027%_ - _%hd163994164019%_) - (_%g163986164003%_ - _%g163987164006%_)))) - (_%g163986164003%_ _%g163987164006%_)))) - (_%g163986164003%_ _%g163987164006%_)))) - (_%g163986164003%_ _%g163987164006%_))))) - (_%g163985164051%_ _%ann163984%_)))) + __obj170979))) + _%hd164156164186%_ + _%hd164153164178%_) + (_%g164145164162%_ + _%g164146164165%_)))) + (_%g164145164162%_ _%g164146164165%_)))) + (_%g164145164162%_ _%g164146164165%_)))) + (_%g164145164162%_ _%g164146164165%_))))) + (_%g164144164210%_ _%ann164143%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx163931%_ _%ann163932%_) - (let* ((_%g163934163947%_ - (lambda (_%g163935163944%_) + (lambda (_%stx164090%_ _%ann164091%_) + (let* ((_%g164093164106%_ + (lambda (_%g164094164103%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163935163944%_)))) - (_%g163933163980%_ - (lambda (_%g163935163950%_) + _%g164094164103%_)))) + (_%g164092164139%_ + (lambda (_%g164094164109%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163935163950%_)) - (let ((_%e163937163952%_ + (gx#stx-pair? _%g164094164109%_)) + (let ((_%e164096164111%_ (let () (declare (not safe)) - (gx#stx-e _%g163935163950%_)))) - (let ((_%hd163938163955%_ + (gx#stx-e _%g164094164109%_)))) + (let ((_%hd164097164114%_ (let () (declare (not safe)) - (##car _%e163937163952%_))) - (_%tl163939163957%_ + (##car _%e164096164111%_))) + (_%tl164098164116%_ (let () (declare (not safe)) - (##cdr _%e163937163952%_)))) + (##cdr _%e164096164111%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163939163957%_)) - (let ((_%e163940163960%_ + (gx#stx-pair? _%tl164098164116%_)) + (let ((_%e164099164119%_ (let () (declare (not safe)) - (gx#stx-e _%tl163939163957%_)))) - (let ((_%hd163941163963%_ + (gx#stx-e _%tl164098164116%_)))) + (let ((_%hd164100164122%_ (let () (declare (not safe)) - (##car _%e163940163960%_))) - (_%tl163942163965%_ + (##car _%e164099164119%_))) + (_%tl164101164124%_ (let () (declare (not safe)) - (##cdr _%e163940163960%_)))) + (##cdr _%e164099164119%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163942163965%_)) - ((lambda (_%L163968%_) - (let ((__obj170821 + (gx#stx-null? _%tl164101164124%_)) + ((lambda (_%L164127%_) + (let ((__obj170980 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp170985 + (let ((__tmp171144 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163968%_)))) + _%L164127%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj170821 - __tmp170985)) - __obj170821)) - _%hd163941163963%_) - (_%g163934163947%_ _%g163935163950%_)))) - (_%g163934163947%_ _%g163935163950%_)))) - (_%g163934163947%_ _%g163935163950%_))))) - (_%g163933163980%_ _%ann163932%_)))) + __obj170980 + __tmp171144)) + __obj170980)) + _%hd164100164122%_) + (_%g164093164106%_ _%g164094164109%_)))) + (_%g164093164106%_ _%g164094164109%_)))) + (_%g164093164106%_ _%g164094164109%_))))) + (_%g164092164139%_ _%ann164091%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx163879%_ _%ann163880%_) - (let* ((_%g163882163895%_ - (lambda (_%g163883163892%_) + (lambda (_%stx164038%_ _%ann164039%_) + (let* ((_%g164041164054%_ + (lambda (_%g164042164051%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163883163892%_)))) - (_%g163881163928%_ - (lambda (_%g163883163898%_) + _%g164042164051%_)))) + (_%g164040164087%_ + (lambda (_%g164042164057%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163883163898%_)) - (let ((_%e163885163900%_ + (gx#stx-pair? _%g164042164057%_)) + (let ((_%e164044164059%_ (let () (declare (not safe)) - (gx#stx-e _%g163883163898%_)))) - (let ((_%hd163886163903%_ + (gx#stx-e _%g164042164057%_)))) + (let ((_%hd164045164062%_ (let () (declare (not safe)) - (##car _%e163885163900%_))) - (_%tl163887163905%_ + (##car _%e164044164059%_))) + (_%tl164046164064%_ (let () (declare (not safe)) - (##cdr _%e163885163900%_)))) + (##cdr _%e164044164059%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163887163905%_)) - (let ((_%e163888163908%_ + (gx#stx-pair? _%tl164046164064%_)) + (let ((_%e164047164067%_ (let () (declare (not safe)) - (gx#stx-e _%tl163887163905%_)))) - (let ((_%hd163889163911%_ + (gx#stx-e _%tl164046164064%_)))) + (let ((_%hd164048164070%_ (let () (declare (not safe)) - (##car _%e163888163908%_))) - (_%tl163890163913%_ + (##car _%e164047164067%_))) + (_%tl164049164072%_ (let () (declare (not safe)) - (##cdr _%e163888163908%_)))) + (##cdr _%e164047164067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163890163913%_)) - ((lambda (_%L163916%_) - (let ((__obj170822 + (gx#stx-null? _%tl164049164072%_)) + ((lambda (_%L164075%_) + (let ((__obj170981 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp170986 + (let ((__tmp171145 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163916%_)))) + _%L164075%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj170822 - __tmp170986)) - __obj170822)) - _%hd163889163911%_) - (_%g163882163895%_ _%g163883163898%_)))) - (_%g163882163895%_ _%g163883163898%_)))) - (_%g163882163895%_ _%g163883163898%_))))) - (_%g163881163928%_ _%ann163880%_)))) + __obj170981 + __tmp171145)) + __obj170981)) + _%hd164048164070%_) + (_%g164041164054%_ _%g164042164057%_)))) + (_%g164041164054%_ _%g164042164057%_)))) + (_%g164041164054%_ _%g164042164057%_))))) + (_%g164040164087%_ _%ann164039%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx163795%_ _%ann163796%_) - (let* ((_%g163798163819%_ - (lambda (_%g163799163816%_) + (lambda (_%stx163954%_ _%ann163955%_) + (let* ((_%g163957163978%_ + (lambda (_%g163958163975%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163799163816%_)))) - (_%g163797163876%_ - (lambda (_%g163799163822%_) + _%g163958163975%_)))) + (_%g163956164035%_ + (lambda (_%g163958163981%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163799163822%_)) - (let ((_%e163803163824%_ + (gx#stx-pair? _%g163958163981%_)) + (let ((_%e163962163983%_ (let () (declare (not safe)) - (gx#stx-e _%g163799163822%_)))) - (let ((_%hd163804163827%_ + (gx#stx-e _%g163958163981%_)))) + (let ((_%hd163963163986%_ (let () (declare (not safe)) - (##car _%e163803163824%_))) - (_%tl163805163829%_ + (##car _%e163962163983%_))) + (_%tl163964163988%_ (let () (declare (not safe)) - (##cdr _%e163803163824%_)))) + (##cdr _%e163962163983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163805163829%_)) - (let ((_%e163806163832%_ + (gx#stx-pair? _%tl163964163988%_)) + (let ((_%e163965163991%_ (let () (declare (not safe)) - (gx#stx-e _%tl163805163829%_)))) - (let ((_%hd163807163835%_ + (gx#stx-e _%tl163964163988%_)))) + (let ((_%hd163966163994%_ (let () (declare (not safe)) - (##car _%e163806163832%_))) - (_%tl163808163837%_ + (##car _%e163965163991%_))) + (_%tl163967163996%_ (let () (declare (not safe)) - (##cdr _%e163806163832%_)))) + (##cdr _%e163965163991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163808163837%_)) - (let ((_%e163809163840%_ + (gx#stx-pair? _%tl163967163996%_)) + (let ((_%e163968163999%_ (let () (declare (not safe)) - (gx#stx-e _%tl163808163837%_)))) - (let ((_%hd163810163843%_ + (gx#stx-e _%tl163967163996%_)))) + (let ((_%hd163969164002%_ (let () (declare (not safe)) - (##car _%e163809163840%_))) - (_%tl163811163845%_ + (##car _%e163968163999%_))) + (_%tl163970164004%_ (let () (declare (not safe)) - (##cdr _%e163809163840%_)))) + (##cdr _%e163968163999%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163811163845%_)) - (let ((_%e163812163848%_ + _%tl163970164004%_)) + (let ((_%e163971164007%_ (let () (declare (not safe)) (gx#stx-e - _%tl163811163845%_)))) - (let ((_%hd163813163851%_ + _%tl163970164004%_)))) + (let ((_%hd163972164010%_ (let () (declare (not safe)) - (##car _%e163812163848%_))) - (_%tl163814163853%_ + (##car _%e163971164007%_))) + (_%tl163973164012%_ (let () (declare (not safe)) - (##cdr _%e163812163848%_)))) + (##cdr _%e163971164007%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163814163853%_)) - ((lambda (_%L163856%_ - _%L163857%_ - _%L163858%_) - (let ((__obj170823 + _%tl163973164012%_)) + ((lambda (_%L164015%_ + _%L164016%_ + _%L164017%_) + (let ((__obj170982 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp170989 + (let ((__tmp171148 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163858%_))) - (__tmp170988 - (let () (declare (not safe)) (gx#stx-e _%L163857%_))) - (__tmp170987 + (gxc#identifier-symbol _%L164017%_))) + (__tmp171147 + (let () (declare (not safe)) (gx#stx-e _%L164016%_))) + (__tmp171146 (let () (declare (not safe)) - (gx#stx-e _%L163856%_)))) + (gx#stx-e _%L164015%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj170823 - __tmp170989 - __tmp170988 - __tmp170987)) - __obj170823)) - _%hd163813163851%_ - _%hd163810163843%_ - _%hd163807163835%_) - (_%g163798163819%_ _%g163799163822%_)))) + __obj170982 + __tmp171148 + __tmp171147 + __tmp171146)) + __obj170982)) + _%hd163972164010%_ + _%hd163969164002%_ + _%hd163966163994%_) + (_%g163957163978%_ _%g163958163981%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163798163819%_ - _%g163799163822%_)))) - (_%g163798163819%_ _%g163799163822%_)))) - (_%g163798163819%_ _%g163799163822%_)))) - (_%g163798163819%_ _%g163799163822%_))))) - (_%g163797163876%_ _%ann163796%_)))) + (_%g163957163978%_ + _%g163958163981%_)))) + (_%g163957163978%_ _%g163958163981%_)))) + (_%g163957163978%_ _%g163958163981%_)))) + (_%g163957163978%_ _%g163958163981%_))))) + (_%g163956164035%_ _%ann163955%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx163711%_ _%ann163712%_) - (let* ((_%g163714163735%_ - (lambda (_%g163715163732%_) + (lambda (_%stx163870%_ _%ann163871%_) + (let* ((_%g163873163894%_ + (lambda (_%g163874163891%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163715163732%_)))) - (_%g163713163792%_ - (lambda (_%g163715163738%_) + _%g163874163891%_)))) + (_%g163872163951%_ + (lambda (_%g163874163897%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163715163738%_)) - (let ((_%e163719163740%_ + (gx#stx-pair? _%g163874163897%_)) + (let ((_%e163878163899%_ (let () (declare (not safe)) - (gx#stx-e _%g163715163738%_)))) - (let ((_%hd163720163743%_ + (gx#stx-e _%g163874163897%_)))) + (let ((_%hd163879163902%_ (let () (declare (not safe)) - (##car _%e163719163740%_))) - (_%tl163721163745%_ + (##car _%e163878163899%_))) + (_%tl163880163904%_ (let () (declare (not safe)) - (##cdr _%e163719163740%_)))) + (##cdr _%e163878163899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163721163745%_)) - (let ((_%e163722163748%_ + (gx#stx-pair? _%tl163880163904%_)) + (let ((_%e163881163907%_ (let () (declare (not safe)) - (gx#stx-e _%tl163721163745%_)))) - (let ((_%hd163723163751%_ + (gx#stx-e _%tl163880163904%_)))) + (let ((_%hd163882163910%_ (let () (declare (not safe)) - (##car _%e163722163748%_))) - (_%tl163724163753%_ + (##car _%e163881163907%_))) + (_%tl163883163912%_ (let () (declare (not safe)) - (##cdr _%e163722163748%_)))) + (##cdr _%e163881163907%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163724163753%_)) - (let ((_%e163725163756%_ + (gx#stx-pair? _%tl163883163912%_)) + (let ((_%e163884163915%_ (let () (declare (not safe)) - (gx#stx-e _%tl163724163753%_)))) - (let ((_%hd163726163759%_ + (gx#stx-e _%tl163883163912%_)))) + (let ((_%hd163885163918%_ (let () (declare (not safe)) - (##car _%e163725163756%_))) - (_%tl163727163761%_ + (##car _%e163884163915%_))) + (_%tl163886163920%_ (let () (declare (not safe)) - (##cdr _%e163725163756%_)))) + (##cdr _%e163884163915%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163727163761%_)) - (let ((_%e163728163764%_ + _%tl163886163920%_)) + (let ((_%e163887163923%_ (let () (declare (not safe)) (gx#stx-e - _%tl163727163761%_)))) - (let ((_%hd163729163767%_ + _%tl163886163920%_)))) + (let ((_%hd163888163926%_ (let () (declare (not safe)) - (##car _%e163728163764%_))) - (_%tl163730163769%_ + (##car _%e163887163923%_))) + (_%tl163889163928%_ (let () (declare (not safe)) - (##cdr _%e163728163764%_)))) + (##cdr _%e163887163923%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163730163769%_)) - ((lambda (_%L163772%_ - _%L163773%_ - _%L163774%_) - (let ((__obj170824 + _%tl163889163928%_)) + ((lambda (_%L163931%_ + _%L163932%_ + _%L163933%_) + (let ((__obj170983 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp170992 + (let ((__tmp171151 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163774%_))) - (__tmp170991 - (let () (declare (not safe)) (gx#stx-e _%L163773%_))) - (__tmp170990 + (gxc#identifier-symbol _%L163933%_))) + (__tmp171150 + (let () (declare (not safe)) (gx#stx-e _%L163932%_))) + (__tmp171149 (let () (declare (not safe)) - (gx#stx-e _%L163772%_)))) + (gx#stx-e _%L163931%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj170824 - __tmp170992 - __tmp170991 - __tmp170990)) - __obj170824)) - _%hd163729163767%_ - _%hd163726163759%_ - _%hd163723163751%_) - (_%g163714163735%_ _%g163715163738%_)))) + __obj170983 + __tmp171151 + __tmp171150 + __tmp171149)) + __obj170983)) + _%hd163888163926%_ + _%hd163885163918%_ + _%hd163882163910%_) + (_%g163873163894%_ _%g163874163897%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163714163735%_ - _%g163715163738%_)))) - (_%g163714163735%_ _%g163715163738%_)))) - (_%g163714163735%_ _%g163715163738%_)))) - (_%g163714163735%_ _%g163715163738%_))))) - (_%g163713163792%_ _%ann163712%_)))) + (_%g163873163894%_ + _%g163874163897%_)))) + (_%g163873163894%_ _%g163874163897%_)))) + (_%g163873163894%_ _%g163874163897%_)))) + (_%g163873163894%_ _%g163874163897%_))))) + (_%g163872163951%_ _%ann163871%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx163643%_ _%ann163644%_) - (let* ((_%g163646163663%_ - (lambda (_%g163647163660%_) + (lambda (_%stx163802%_ _%ann163803%_) + (let* ((_%g163805163822%_ + (lambda (_%g163806163819%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163647163660%_)))) - (_%g163645163708%_ - (lambda (_%g163647163666%_) + _%g163806163819%_)))) + (_%g163804163867%_ + (lambda (_%g163806163825%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163647163666%_)) - (let ((_%e163650163668%_ + (gx#stx-pair? _%g163806163825%_)) + (let ((_%e163809163827%_ (let () (declare (not safe)) - (gx#stx-e _%g163647163666%_)))) - (let ((_%hd163651163671%_ + (gx#stx-e _%g163806163825%_)))) + (let ((_%hd163810163830%_ (let () (declare (not safe)) - (##car _%e163650163668%_))) - (_%tl163652163673%_ + (##car _%e163809163827%_))) + (_%tl163811163832%_ (let () (declare (not safe)) - (##cdr _%e163650163668%_)))) + (##cdr _%e163809163827%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163652163673%_)) - (let ((_%e163653163676%_ + (gx#stx-pair? _%tl163811163832%_)) + (let ((_%e163812163835%_ (let () (declare (not safe)) - (gx#stx-e _%tl163652163673%_)))) - (let ((_%hd163654163679%_ + (gx#stx-e _%tl163811163832%_)))) + (let ((_%hd163813163838%_ (let () (declare (not safe)) - (##car _%e163653163676%_))) - (_%tl163655163681%_ + (##car _%e163812163835%_))) + (_%tl163814163840%_ (let () (declare (not safe)) - (##cdr _%e163653163676%_)))) + (##cdr _%e163812163835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163655163681%_)) - (let ((_%e163656163684%_ + (gx#stx-pair? _%tl163814163840%_)) + (let ((_%e163815163843%_ (let () (declare (not safe)) - (gx#stx-e _%tl163655163681%_)))) - (let ((_%hd163657163687%_ + (gx#stx-e _%tl163814163840%_)))) + (let ((_%hd163816163846%_ (let () (declare (not safe)) - (##car _%e163656163684%_))) - (_%tl163658163689%_ + (##car _%e163815163843%_))) + (_%tl163817163848%_ (let () (declare (not safe)) - (##cdr _%e163656163684%_)))) + (##cdr _%e163815163843%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163658163689%_)) - ((lambda (_%L163692%_ - _%L163693%_) - (let ((__tmp170994 + _%tl163817163848%_)) + ((lambda (_%L163851%_ + _%L163852%_) + (let ((__tmp171153 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163693%_))) - (__tmp170993 + _%L163852%_))) + (__tmp171152 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L163692%_)))) + _%L163851%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp170994 - __tmp170993))) - _%hd163657163687%_ - _%hd163654163679%_) - (_%g163646163663%_ - _%g163647163666%_)))) - (_%g163646163663%_ _%g163647163666%_)))) - (_%g163646163663%_ _%g163647163666%_)))) - (_%g163646163663%_ _%g163647163666%_))))) - (_%g163645163708%_ _%ann163644%_)))) + __tmp171153 + __tmp171152))) + _%hd163816163846%_ + _%hd163813163838%_) + (_%g163805163822%_ + _%g163806163825%_)))) + (_%g163805163822%_ _%g163806163825%_)))) + (_%g163805163822%_ _%g163806163825%_)))) + (_%g163805163822%_ _%g163806163825%_))))) + (_%g163804163867%_ _%ann163803%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx163591%_ _%ann163592%_) - (let* ((_%g163594163607%_ - (lambda (_%g163595163604%_) + (lambda (_%stx163750%_ _%ann163751%_) + (let* ((_%g163753163766%_ + (lambda (_%g163754163763%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163595163604%_)))) - (_%g163593163640%_ - (lambda (_%g163595163610%_) + _%g163754163763%_)))) + (_%g163752163799%_ + (lambda (_%g163754163769%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163595163610%_)) - (let ((_%e163597163612%_ + (gx#stx-pair? _%g163754163769%_)) + (let ((_%e163756163771%_ (let () (declare (not safe)) - (gx#stx-e _%g163595163610%_)))) - (let ((_%hd163598163615%_ + (gx#stx-e _%g163754163769%_)))) + (let ((_%hd163757163774%_ (let () (declare (not safe)) - (##car _%e163597163612%_))) - (_%tl163599163617%_ + (##car _%e163756163771%_))) + (_%tl163758163776%_ (let () (declare (not safe)) - (##cdr _%e163597163612%_)))) + (##cdr _%e163756163771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163599163617%_)) - (let ((_%e163600163620%_ + (gx#stx-pair? _%tl163758163776%_)) + (let ((_%e163759163779%_ (let () (declare (not safe)) - (gx#stx-e _%tl163599163617%_)))) - (let ((_%hd163601163623%_ + (gx#stx-e _%tl163758163776%_)))) + (let ((_%hd163760163782%_ (let () (declare (not safe)) - (##car _%e163600163620%_))) - (_%tl163602163625%_ + (##car _%e163759163779%_))) + (_%tl163761163784%_ (let () (declare (not safe)) - (##cdr _%e163600163620%_)))) + (##cdr _%e163759163779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163602163625%_)) - ((lambda (_%L163628%_) - (let ((__obj170825 + (gx#stx-null? _%tl163761163784%_)) + ((lambda (_%L163787%_) + (let ((__obj170984 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp170995 + (let ((__tmp171154 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163628%_)))) + _%L163787%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj170825 - __tmp170995)) - __obj170825)) - _%hd163601163623%_) - (_%g163594163607%_ _%g163595163610%_)))) - (_%g163594163607%_ _%g163595163610%_)))) - (_%g163594163607%_ _%g163595163610%_))))) - (_%g163593163640%_ _%ann163592%_)))) + __obj170984 + __tmp171154)) + __obj170984)) + _%hd163760163782%_) + (_%g163753163766%_ _%g163754163769%_)))) + (_%g163753163766%_ _%g163754163769%_)))) + (_%g163753163766%_ _%g163754163769%_))))) + (_%g163752163799%_ _%ann163751%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx163561%_ _%ann163562%_) - (let* ((_%g163564163573%_ - (lambda (_%g163565163570%_) + (lambda (_%stx163720%_ _%ann163721%_) + (let* ((_%g163723163732%_ + (lambda (_%g163724163729%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163565163570%_)))) - (_%g163563163588%_ - (lambda (_%g163565163576%_) + _%g163724163729%_)))) + (_%g163722163747%_ + (lambda (_%g163724163735%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163565163576%_)) - (let ((_%e163566163578%_ + (gx#stx-pair? _%g163724163735%_)) + (let ((_%e163725163737%_ (let () (declare (not safe)) - (gx#stx-e _%g163565163576%_)))) - (let ((_%hd163567163581%_ + (gx#stx-e _%g163724163735%_)))) + (let ((_%hd163726163740%_ (let () (declare (not safe)) - (##car _%e163566163578%_))) - (_%tl163568163583%_ + (##car _%e163725163737%_))) + (_%tl163727163742%_ (let () (declare (not safe)) - (##cdr _%e163566163578%_)))) + (##cdr _%e163725163737%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163568163583%_)) + (gx#stx-null? _%tl163727163742%_)) ((lambda () - (let ((__obj170826 + (let ((__obj170985 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj170826)) - __obj170826))) - (_%g163564163573%_ _%g163565163576%_)))) - (_%g163564163573%_ _%g163565163576%_))))) - (_%g163563163588%_ _%ann163562%_)))) + (gxc#!abort:::init! __obj170985)) + __obj170985))) + (_%g163723163732%_ _%g163724163735%_)))) + (_%g163723163732%_ _%g163724163735%_))))) + (_%g163722163747%_ _%ann163721%_)))) (let () (declare (not safe)) (__hash-put! @@ -9015,19 +9015,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self163493%_ _%stx163494%_) - (let* ((_%__stx168664168665%_ _%stx163494%_) - (_%g163497163511%_ + (lambda (_%self163652%_ _%stx163653%_) + (let* ((_%__stx168823168824%_ _%stx163653%_) + (_%g163656163670%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168664168665%_))))) - (let ((_%__kont168666168667%_ - (lambda (_%L163549%_) - (let ((__obj170827 + _%__stx168823168824%_))))) + (let ((_%__kont168825168826%_ + (lambda (_%L163708%_) + (let ((__obj170986 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp170997 (gxc#lambda-form-arity _%L163549%_)) - (__tmp170996 - (gxc#dispatch-lambda-form-delegate _%L163549%_))) + (let ((__tmp171156 (gxc#lambda-form-arity _%L163708%_)) + (__tmp171155 + (gxc#dispatch-lambda-form-delegate _%L163708%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj170827 - __tmp170997 - __tmp170996)) - __obj170827))) - (_%__kont168668168669%_ - (lambda (_%L163524%_) - (let* ((_%signature163534%_ - (gxc#lambda-form-infer-signature _%L163524%_)) - (__obj170828 + __obj170986 + __tmp171156 + __tmp171155)) + __obj170986))) + (_%__kont168827168828%_ + (lambda (_%L163683%_) + (let* ((_%signature163693%_ + (gxc#lambda-form-infer-signature _%L163683%_)) + (__obj170987 (let () (declare (not safe)) (##structure @@ -9064,98 +9064,98 @@ '#f '#f '#f)))) - (let ((__tmp170998 (gxc#lambda-form-arity _%L163524%_))) + (let ((__tmp171157 (gxc#lambda-form-arity _%L163683%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163534%_ - __obj170828 - __tmp170998 + _%signature163693%_ + __obj170987 + __tmp171157 '#f)) - __obj170828)))) - (let ((_%__match168675168676%_ - (lambda (_%e163500163541%_ - _%hd163501163544%_ - _%tl163502163546%_) - (let ((_%L163549%_ _%tl163502163546%_)) - (if (gxc#dispatch-lambda-form? _%L163549%_) - (_%__kont168666168667%_ _%L163549%_) - (_%__kont168668168669%_ _%tl163502163546%_)))))) + __obj170987)))) + (let ((_%__match168834168835%_ + (lambda (_%e163659163700%_ + _%hd163660163703%_ + _%tl163661163705%_) + (let ((_%L163708%_ _%tl163661163705%_)) + (if (gxc#dispatch-lambda-form? _%L163708%_) + (_%__kont168825168826%_ _%L163708%_) + (_%__kont168827168828%_ _%tl163661163705%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168664168665%_)) - (let ((_%e163500163541%_ + (gx#stx-pair? _%__stx168823168824%_)) + (let ((_%e163659163700%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168664168665%_)))) - (let ((_%tl163502163546%_ + (gx#stx-e _%__stx168823168824%_)))) + (let ((_%tl163661163705%_ (let () (declare (not safe)) - (##cdr _%e163500163541%_))) - (_%hd163501163544%_ + (##cdr _%e163659163700%_))) + (_%hd163660163703%_ (let () (declare (not safe)) - (##car _%e163500163541%_)))) - (_%__match168675168676%_ - _%e163500163541%_ - _%hd163501163544%_ - _%tl163502163546%_))) - (let () (declare (not safe)) (_%g163497163511%_)))))))) + (##car _%e163659163700%_)))) + (_%__match168834168835%_ + _%e163659163700%_ + _%hd163660163703%_ + _%tl163661163705%_))) + (let () (declare (not safe)) (_%g163656163670%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self162637%_ _%stx162638%_) - (let* ((_%__stx168684168685%_ _%stx162638%_) - (_%g162643162835%_ + (lambda (_%self162796%_ _%stx162797%_) + (let* ((_%__stx168843168844%_ _%stx162797%_) + (_%g162802162994%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168684168685%_))))) - (let ((_%__kont168686168687%_ - (lambda (_%L163430%_ - _%L163431%_ - _%L163432%_ - _%L163433%_ - _%L163434%_ - _%L163435%_) - (let* ((_%tab163485%_ + _%__stx168843168844%_))))) + (let ((_%__kont168845168846%_ + (lambda (_%L163589%_ + _%L163590%_ + _%L163591%_ + _%L163592%_ + _%L163593%_ + _%L163594%_) + (let* ((_%tab163644%_ (let () (declare (not safe)) - (gx#stx-e _%L163432%_))) - (_%keys163487%_ - (if _%tab163485%_ - (let ((__tmp170999 - (vector->list _%tab163485%_))) + (gx#stx-e _%L163591%_))) + (_%keys163646%_ + (if _%tab163644%_ + (let ((__tmp171158 + (vector->list _%tab163644%_))) (declare (not safe)) - (##filter identity __tmp170999)) + (##filter identity __tmp171158)) '#f)) - (__obj170829 + (__obj170988 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp171000 + (let ((__tmp171159 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163431%_)))) + (gxc#identifier-symbol _%L163590%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj170829 - _%keys163487%_ - __tmp171000)) - __obj170829))) - (_%__kont168688168689%_ - (lambda (_%L163163%_ - _%L163164%_ - _%L163165%_ - _%L163166%_ - _%L163167%_ - _%L163168%_ - _%L163169%_ - _%L163170%_ - _%L163171%_ - _%L163172%_) - (let ((__obj170830 + __obj170988 + _%keys163646%_ + __tmp171159)) + __obj170988))) + (_%__kont168847168848%_ + (lambda (_%L163322%_ + _%L163323%_ + _%L163324%_ + _%L163325%_ + _%L163326%_ + _%L163327%_ + _%L163328%_ + _%L163329%_ + _%L163330%_ + _%L163331%_) + (let ((__obj170989 (let () (declare (not safe)) (##structure @@ -9164,28 +9164,28 @@ '#f '#f '#f)))) - (let ((__tmp171002 + (let ((__tmp171161 (map gx#stx-e - (let ((__tmp171003 - (lambda (_%g163265163268%_ - _%g163266163270%_) - (cons _%g163265163268%_ - _%g163266163270%_)))) + (let ((__tmp171162 + (lambda (_%g163424163427%_ + _%g163425163429%_) + (cons _%g163424163427%_ + _%g163425163429%_)))) (declare (not safe)) - (__foldr1 __tmp171003 '() _%L163165%_)))) - (__tmp171001 + (__foldr1 __tmp171162 '() _%L163324%_)))) + (__tmp171160 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163169%_)))) + (gxc#identifier-symbol _%L163328%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj170830 - __tmp171002 - __tmp171001)) - __obj170830))) - (_%__kont168692168693%_ - (lambda (_%L162873%_) - (let ((__obj170831 + __obj170989 + __tmp171161 + __tmp171160)) + __obj170989))) + (_%__kont168851168852%_ + (lambda (_%L163032%_) + (let ((__obj170990 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp171005 (gxc#lambda-form-arity _%L162873%_)) - (__tmp171004 - (gxc#dispatch-lambda-form-delegate _%L162873%_))) + (let ((__tmp171164 (gxc#lambda-form-arity _%L163032%_)) + (__tmp171163 + (gxc#dispatch-lambda-form-delegate _%L163032%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj170831 - __tmp171005 - __tmp171004)) - __obj170831))) - (_%__kont168694168695%_ - (lambda (_%L162848%_) - (let* ((_%signature162858%_ - (gxc#lambda-form-infer-signature _%L162848%_)) - (__obj170832 + __obj170990 + __tmp171164 + __tmp171163)) + __obj170990))) + (_%__kont168853168854%_ + (lambda (_%L163007%_) + (let* ((_%signature163017%_ + (gxc#lambda-form-infer-signature _%L163007%_)) + (__obj170991 (let () (declare (not safe)) (##structure @@ -9222,1937 +9222,1937 @@ '#f '#f '#f)))) - (let ((__tmp171006 (gxc#lambda-form-arity _%L162848%_))) + (let ((__tmp171165 (gxc#lambda-form-arity _%L163007%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162858%_ - __obj170832 - __tmp171006 + _%signature163017%_ + __obj170991 + __tmp171165 '#f)) - __obj170832)))) - (let* ((_%__match168993168994%_ - (lambda (_%e162824162865%_ - _%hd162825162868%_ - _%tl162826162870%_) - (let ((_%L162873%_ _%tl162826162870%_)) - (if (gxc#dispatch-lambda-form? _%L162873%_) - (_%__kont168692168693%_ _%L162873%_) - (_%__kont168694168695%_ _%tl162826162870%_))))) - (_%__match168987168988%_ - (lambda (_%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_ - _%e162721162895%_ - _%hd162722162898%_ - _%tl162723162900%_ - _%e162724162903%_ - _%hd162725162906%_ - _%tl162726162908%_ - _%e162727162911%_ - _%hd162728162914%_ - _%tl162729162916%_ - _%e162730162919%_ - _%hd162731162922%_ - _%tl162732162924%_ - _%e162733162927%_ - _%hd162734162930%_ - _%tl162735162932%_ - _%e162736162935%_ - _%hd162737162938%_ - _%tl162738162940%_ - _%e162739162943%_ - _%hd162740162946%_ - _%tl162741162948%_ - _%e162742162951%_ - _%hd162743162954%_ - _%tl162744162956%_ - _%e162745162959%_ - _%hd162746162962%_ - _%tl162747162964%_ - _%e162748162967%_ - _%hd162749162970%_ - _%tl162750162972%_ - _%e162751162975%_ - _%hd162752162978%_ - _%tl162753162980%_ - _%e162754162983%_ - _%hd162755162986%_ - _%tl162756162988%_ - _%e162757162991%_ - _%hd162758162994%_ - _%tl162759162996%_ - _%__splice168690168691%_ - _%target162760162999%_ - _%tl162762163001%_ - _%e162775163004%_ - _%hd162776163007%_ - _%tl162777163009%_ - _%e162778163012%_ - _%hd162779163015%_ - _%tl162780163017%_ - _%e162781163020%_ - _%hd162782163023%_ - _%tl162783163025%_) - (letrec ((_%loop162763163028%_ - (lambda (_%hd162761163031%_ - _%-absent-value162767163033%_ - _%key162768163035%_ - _%-xkwvar162769163037%_ - _%-hash-ref162770163039%_) + __obj170991)))) + (let* ((_%__match169152169153%_ + (lambda (_%e162983163024%_ + _%hd162984163027%_ + _%tl162985163029%_) + (let ((_%L163032%_ _%tl162985163029%_)) + (if (gxc#dispatch-lambda-form? _%L163032%_) + (_%__kont168851168852%_ _%L163032%_) + (_%__kont168853168854%_ _%tl162985163029%_))))) + (_%__match169146169147%_ + (lambda (_%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_ + _%e162880163054%_ + _%hd162881163057%_ + _%tl162882163059%_ + _%e162883163062%_ + _%hd162884163065%_ + _%tl162885163067%_ + _%e162886163070%_ + _%hd162887163073%_ + _%tl162888163075%_ + _%e162889163078%_ + _%hd162890163081%_ + _%tl162891163083%_ + _%e162892163086%_ + _%hd162893163089%_ + _%tl162894163091%_ + _%e162895163094%_ + _%hd162896163097%_ + _%tl162897163099%_ + _%e162898163102%_ + _%hd162899163105%_ + _%tl162900163107%_ + _%e162901163110%_ + _%hd162902163113%_ + _%tl162903163115%_ + _%e162904163118%_ + _%hd162905163121%_ + _%tl162906163123%_ + _%e162907163126%_ + _%hd162908163129%_ + _%tl162909163131%_ + _%e162910163134%_ + _%hd162911163137%_ + _%tl162912163139%_ + _%e162913163142%_ + _%hd162914163145%_ + _%tl162915163147%_ + _%e162916163150%_ + _%hd162917163153%_ + _%tl162918163155%_ + _%__splice168849168850%_ + _%target162919163158%_ + _%tl162921163160%_ + _%e162934163163%_ + _%hd162935163166%_ + _%tl162936163168%_ + _%e162937163171%_ + _%hd162938163174%_ + _%tl162939163176%_ + _%e162940163179%_ + _%hd162941163182%_ + _%tl162942163184%_) + (letrec ((_%loop162922163187%_ + (lambda (_%hd162920163190%_ + _%-absent-value162926163192%_ + _%key162927163194%_ + _%-xkwvar162928163196%_ + _%-hash-ref162929163198%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162761163031%_)) - (let ((_%e162764163042%_ + (gx#stx-pair? _%hd162920163190%_)) + (let ((_%e162923163201%_ (let () (declare (not safe)) - (gx#stx-e _%hd162761163031%_)))) - (let ((_%lp-tl162766163047%_ + (gx#stx-e _%hd162920163190%_)))) + (let ((_%lp-tl162925163206%_ (let () (declare (not safe)) - (##cdr _%e162764163042%_))) - (_%lp-hd162765163045%_ + (##cdr _%e162923163201%_))) + (_%lp-hd162924163204%_ (let () (declare (not safe)) - (##car _%e162764163042%_)))) + (##car _%e162923163201%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd162765163045%_)) - (let ((_%e162784163050%_ + _%lp-hd162924163204%_)) + (let ((_%e162943163209%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd162765163045%_)))) - (let ((_%tl162786163055%_ + _%lp-hd162924163204%_)))) + (let ((_%tl162945163214%_ (let () (declare (not safe)) - (##cdr _%e162784163050%_))) - (_%hd162785163053%_ + (##cdr _%e162943163209%_))) + (_%hd162944163212%_ (let () (declare (not safe)) - (##car _%e162784163050%_)))) + (##car _%e162943163209%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162785163053%_)) + _%hd162944163212%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162785163053%_)) + _%hd162944163212%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl162786163055%_)) - (let ((_%e162787163058%_ + (gx#stx-pair? _%tl162945163214%_)) + (let ((_%e162946163217%_ (let () (declare (not safe)) - (gx#stx-e _%tl162786163055%_)))) - (let ((_%tl162789163063%_ + (gx#stx-e _%tl162945163214%_)))) + (let ((_%tl162948163222%_ (let () (declare (not safe)) - (##cdr _%e162787163058%_))) - (_%hd162788163061%_ + (##cdr _%e162946163217%_))) + (_%hd162947163220%_ (let () (declare (not safe)) - (##car _%e162787163058%_)))) + (##car _%e162946163217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162788163061%_)) - (let ((_%e162790163066%_ + (gx#stx-pair? _%hd162947163220%_)) + (let ((_%e162949163225%_ (let () (declare (not safe)) - (gx#stx-e _%hd162788163061%_)))) - (let ((_%tl162792163071%_ + (gx#stx-e _%hd162947163220%_)))) + (let ((_%tl162951163230%_ (let () (declare (not safe)) - (##cdr _%e162790163066%_))) - (_%hd162791163069%_ + (##cdr _%e162949163225%_))) + (_%hd162950163228%_ (let () (declare (not safe)) - (##car _%e162790163066%_)))) + (##car _%e162949163225%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162791163069%_)) + (gx#identifier? _%hd162950163228%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162791163069%_)) + _%hd162950163228%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162792163071%_)) - (let ((_%e162793163074%_ + _%tl162951163230%_)) + (let ((_%e162952163233%_ (let () (declare (not safe)) (gx#stx-e - _%tl162792163071%_)))) - (let ((_%tl162795163079%_ + _%tl162951163230%_)))) + (let ((_%tl162954163238%_ (let () (declare (not safe)) - (##cdr _%e162793163074%_))) - (_%hd162794163077%_ + (##cdr _%e162952163233%_))) + (_%hd162953163236%_ (let () (declare (not safe)) - (##car _%e162793163074%_)))) + (##car _%e162952163233%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162795163079%_)) + _%tl162954163238%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162789163063%_)) - (let ((_%e162796163082%_ + _%tl162948163222%_)) + (let ((_%e162955163241%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162789163063%_)))) - (let ((_%tl162798163087%_ + (gx#stx-e _%tl162948163222%_)))) + (let ((_%tl162957163246%_ (let () (declare (not safe)) - (##cdr _%e162796163082%_))) - (_%hd162797163085%_ + (##cdr _%e162955163241%_))) + (_%hd162956163244%_ (let () (declare (not safe)) - (##car _%e162796163082%_)))) + (##car _%e162955163241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162797163085%_)) - (let ((_%e162799163090%_ + (gx#stx-pair? _%hd162956163244%_)) + (let ((_%e162958163249%_ (let () (declare (not safe)) - (gx#stx-e _%hd162797163085%_)))) - (let ((_%tl162801163095%_ + (gx#stx-e _%hd162956163244%_)))) + (let ((_%tl162960163254%_ (let () (declare (not safe)) - (##cdr _%e162799163090%_))) - (_%hd162800163093%_ + (##cdr _%e162958163249%_))) + (_%hd162959163252%_ (let () (declare (not safe)) - (##car _%e162799163090%_)))) + (##car _%e162958163249%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162800163093%_)) + (gx#identifier? _%hd162959163252%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162800163093%_)) + (gx#stx-eq? '%#ref _%hd162959163252%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162801163095%_)) - (let ((_%e162802163098%_ + (gx#stx-pair? _%tl162960163254%_)) + (let ((_%e162961163257%_ (let () (declare (not safe)) (gx#stx-e - _%tl162801163095%_)))) - (let ((_%tl162804163103%_ + _%tl162960163254%_)))) + (let ((_%tl162963163262%_ (let () (declare (not safe)) - (##cdr _%e162802163098%_))) - (_%hd162803163101%_ + (##cdr _%e162961163257%_))) + (_%hd162962163260%_ (let () (declare (not safe)) - (##car _%e162802163098%_)))) + (##car _%e162961163257%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162804163103%_)) + _%tl162963163262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162798163087%_)) - (let ((_%e162805163106%_ + _%tl162957163246%_)) + (let ((_%e162964163265%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162798163087%_)))) - (let ((_%tl162807163111%_ - (let () (declare (not safe)) (##cdr _%e162805163106%_))) - (_%hd162806163109%_ + (gx#stx-e _%tl162957163246%_)))) + (let ((_%tl162966163270%_ + (let () (declare (not safe)) (##cdr _%e162964163265%_))) + (_%hd162965163268%_ (let () (declare (not safe)) - (##car _%e162805163106%_)))) + (##car _%e162964163265%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162806163109%_)) - (let ((_%e162808163114%_ + (gx#stx-pair? _%hd162965163268%_)) + (let ((_%e162967163273%_ (let () (declare (not safe)) - (gx#stx-e _%hd162806163109%_)))) - (let ((_%tl162810163119%_ + (gx#stx-e _%hd162965163268%_)))) + (let ((_%tl162969163278%_ (let () (declare (not safe)) - (##cdr _%e162808163114%_))) - (_%hd162809163117%_ + (##cdr _%e162967163273%_))) + (_%hd162968163276%_ (let () (declare (not safe)) - (##car _%e162808163114%_)))) + (##car _%e162967163273%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162809163117%_)) + (gx#identifier? _%hd162968163276%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162809163117%_)) + (gx#stx-eq? '%#quote _%hd162968163276%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162810163119%_)) - (let ((_%e162811163122%_ + (gx#stx-pair? _%tl162969163278%_)) + (let ((_%e162970163281%_ (let () (declare (not safe)) - (gx#stx-e _%tl162810163119%_)))) - (let ((_%tl162813163127%_ + (gx#stx-e _%tl162969163278%_)))) + (let ((_%tl162972163286%_ (let () (declare (not safe)) - (##cdr _%e162811163122%_))) - (_%hd162812163125%_ + (##cdr _%e162970163281%_))) + (_%hd162971163284%_ (let () (declare (not safe)) - (##car _%e162811163122%_)))) + (##car _%e162970163281%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162813163127%_)) + _%tl162972163286%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162807163111%_)) - (let ((_%e162814163130%_ + _%tl162966163270%_)) + (let ((_%e162973163289%_ (let () (declare (not safe)) (gx#stx-e - _%tl162807163111%_)))) - (let ((_%tl162816163135%_ + _%tl162966163270%_)))) + (let ((_%tl162975163294%_ (let () (declare (not safe)) - (##cdr _%e162814163130%_))) - (_%hd162815163133%_ + (##cdr _%e162973163289%_))) + (_%hd162974163292%_ (let () (declare (not safe)) - (##car _%e162814163130%_)))) + (##car _%e162973163289%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162815163133%_)) - (let ((_%e162817163138%_ + _%hd162974163292%_)) + (let ((_%e162976163297%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162815163133%_)))) - (let ((_%tl162819163143%_ + (gx#stx-e _%hd162974163292%_)))) + (let ((_%tl162978163302%_ (let () (declare (not safe)) - (##cdr _%e162817163138%_))) - (_%hd162818163141%_ + (##cdr _%e162976163297%_))) + (_%hd162977163300%_ (let () (declare (not safe)) - (##car _%e162817163138%_)))) + (##car _%e162976163297%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162818163141%_)) + (gx#identifier? _%hd162977163300%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162818163141%_)) + (gx#stx-eq? '%#ref _%hd162977163300%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162819163143%_)) - (let ((_%e162820163146%_ + (gx#stx-pair? _%tl162978163302%_)) + (let ((_%e162979163305%_ (let () (declare (not safe)) - (gx#stx-e _%tl162819163143%_)))) - (let ((_%tl162822163151%_ + (gx#stx-e _%tl162978163302%_)))) + (let ((_%tl162981163310%_ (let () (declare (not safe)) - (##cdr _%e162820163146%_))) - (_%hd162821163149%_ + (##cdr _%e162979163305%_))) + (_%hd162980163308%_ (let () (declare (not safe)) - (##car _%e162820163146%_)))) + (##car _%e162979163305%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162822163151%_)) + (gx#stx-null? _%tl162981163310%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162816163135%_)) - (_%loop162763163028%_ - _%lp-tl162766163047%_ - (cons _%hd162821163149%_ - _%-absent-value162767163033%_) - (cons _%hd162812163125%_ - _%key162768163035%_) - (cons _%hd162803163101%_ - _%-xkwvar162769163037%_) - (cons _%hd162794163077%_ - _%-hash-ref162770163039%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + _%tl162975163294%_)) + (_%loop162922163187%_ + _%lp-tl162925163206%_ + (cons _%hd162980163308%_ + _%-absent-value162926163192%_) + (cons _%hd162971163284%_ + _%key162927163194%_) + (cons _%hd162962163260%_ + _%-xkwvar162928163196%_) + (cons _%hd162953163236%_ + _%-hash-ref162929163198%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (let ((_%-hash-ref162774163160%_ - (reverse _%-hash-ref162770163039%_)) - (_%-xkwvar162773163158%_ - (reverse _%-xkwvar162769163037%_)) - (_%key162772163156%_ - (reverse _%key162768163035%_)) - (_%-absent-value162771163154%_ - (reverse _%-absent-value162767163033%_))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (let ((_%-hash-ref162933163319%_ + (reverse _%-hash-ref162929163198%_)) + (_%-xkwvar162932163317%_ + (reverse _%-xkwvar162928163196%_)) + (_%key162931163315%_ + (reverse _%key162927163194%_)) + (_%-absent-value162930163313%_ + (reverse _%-absent-value162926163192%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162729162916%_)) - (let ((_%L163163%_ - _%hd162782163023%_) - (_%L163164%_ - _%-absent-value162771163154%_) - (_%L163165%_ - _%key162772163156%_) - (_%L163166%_ - _%-xkwvar162773163158%_) - (_%L163167%_ - _%-hash-ref162774163160%_) - (_%L163168%_ - _%hd162758162994%_) - (_%L163169%_ - _%hd162749162970%_) - (_%L163170%_ - _%hd162740162946%_) - (_%L163171%_ - _%tl162726162908%_) - (_%L163172%_ - _%hd162725162906%_)) + _%tl162888163075%_)) + (let ((_%L163322%_ + _%hd162941163182%_) + (_%L163323%_ + _%-absent-value162930163313%_) + (_%L163324%_ + _%key162931163315%_) + (_%L163325%_ + _%-xkwvar162932163317%_) + (_%L163326%_ + _%-hash-ref162933163319%_) + (_%L163327%_ + _%hd162917163153%_) + (_%L163328%_ + _%hd162908163129%_) + (_%L163329%_ + _%hd162899163105%_) + (_%L163330%_ + _%tl162885163067%_) + (_%L163331%_ + _%hd162884163065%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163172%_)) + _%L163331%_)) (let () (declare (not safe)) (gx#identifier? - _%L163171%_)) + _%L163330%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163170%_ + _%L163329%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163172%_ - _%L163168%_)) - (let ((__tmp171007 - (let ((__tmp171008 + _%L163331%_ + _%L163327%_)) + (let ((__tmp171166 + (let ((__tmp171167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g163225163228%_ _%g163226163230%_) - (cons _%g163225163228%_ _%g163226163230%_)))) + (lambda (_%g163384163387%_ _%g163385163389%_) + (cons _%g163384163387%_ _%g163385163389%_)))) (declare (not safe)) - (__foldr1 __tmp171008 '() _%L163165%_)))) + (__foldr1 __tmp171167 '() _%L163324%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp171007)) - (let ((__tmp171011 - (lambda (_%g163232163234%_) + (__andmap1 gx#stx-keyword? __tmp171166)) + (let ((__tmp171170 + (lambda (_%g163391163393%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163232163234%_ + _%g163391163393%_ 'symbolic-table-ref)))) - (__tmp171009 - (let ((__tmp171010 - (lambda (_%g163236163239%_ _%g163237163241%_) - (cons _%g163236163239%_ _%g163237163241%_)))) + (__tmp171168 + (let ((__tmp171169 + (lambda (_%g163395163398%_ _%g163396163400%_) + (cons _%g163395163398%_ _%g163396163400%_)))) (declare (not safe)) - (__foldr1 __tmp171010 '() _%L163167%_)))) + (__foldr1 __tmp171169 '() _%L163326%_)))) (declare (not safe)) - (__andmap1 __tmp171011 __tmp171009)) - (let ((__tmp171014 - (lambda (_%g163243163245%_) + (__andmap1 __tmp171170 __tmp171168)) + (let ((__tmp171173 + (lambda (_%g163402163404%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163243163245%_ + _%g163402163404%_ 'absent-value)))) - (__tmp171012 - (let ((__tmp171013 - (lambda (_%g163247163250%_ _%g163248163252%_) - (cons _%g163247163250%_ _%g163248163252%_)))) + (__tmp171171 + (let ((__tmp171172 + (lambda (_%g163406163409%_ _%g163407163411%_) + (cons _%g163406163409%_ _%g163407163411%_)))) (declare (not safe)) - (__foldr1 __tmp171013 '() _%L163164%_)))) + (__foldr1 __tmp171172 '() _%L163323%_)))) (declare (not safe)) - (__andmap1 __tmp171014 __tmp171012)) - (let ((__tmp171017 - (lambda (_%g163254163256%_) + (__andmap1 __tmp171173 __tmp171171)) + (let ((__tmp171176 + (lambda (_%g163413163415%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g163254163256%_ - _%L163172%_)))) - (__tmp171015 - (let ((__tmp171016 - (lambda (_%g163258163261%_ _%g163259163263%_) - (cons _%g163258163261%_ _%g163259163263%_)))) + _%g163413163415%_ + _%L163331%_)))) + (__tmp171174 + (let ((__tmp171175 + (lambda (_%g163417163420%_ _%g163418163422%_) + (cons _%g163417163420%_ _%g163418163422%_)))) (declare (not safe)) - (__foldr1 __tmp171016 '() _%L163166%_)))) + (__foldr1 __tmp171175 '() _%L163325%_)))) (declare (not safe)) - (__andmap1 __tmp171017 __tmp171015))) + (__andmap1 __tmp171176 __tmp171174))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168688168689%_ - _%L163163%_ - _%L163164%_ - _%L163165%_ - _%L163166%_ - _%L163167%_ - _%L163168%_ - _%L163169%_ - _%L163170%_ - _%L163171%_ - _%L163172%_) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_))))))) - (_%loop162763163028%_ - _%target162760162999%_ + (_%__kont168847168848%_ + _%L163322%_ + _%L163323%_ + _%L163324%_ + _%L163325%_ + _%L163326%_ + _%L163327%_ + _%L163328%_ + _%L163329%_ + _%L163330%_ + _%L163331%_) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_))))))) + (_%loop162922163187%_ + _%target162919163158%_ '() '() '() '())))) - (_%__match168859168860%_ - (lambda (_%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_ - _%e162721162895%_ - _%hd162722162898%_ - _%tl162723162900%_) + (_%__match169018169019%_ + (lambda (_%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_ + _%e162880163054%_ + _%hd162881163057%_ + _%tl162882163059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162722162898%_)) - (let ((_%e162724162903%_ + (gx#stx-pair? _%hd162881163057%_)) + (let ((_%e162883163062%_ (let () (declare (not safe)) - (gx#stx-e _%hd162722162898%_)))) - (let ((_%tl162726162908%_ + (gx#stx-e _%hd162881163057%_)))) + (let ((_%tl162885163067%_ (let () (declare (not safe)) - (##cdr _%e162724162903%_))) - (_%hd162725162906%_ + (##cdr _%e162883163062%_))) + (_%hd162884163065%_ (let () (declare (not safe)) - (##car _%e162724162903%_)))) + (##car _%e162883163062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162723162900%_)) - (let ((_%e162727162911%_ + (gx#stx-pair? _%tl162882163059%_)) + (let ((_%e162886163070%_ (let () (declare (not safe)) - (gx#stx-e _%tl162723162900%_)))) - (let ((_%tl162729162916%_ + (gx#stx-e _%tl162882163059%_)))) + (let ((_%tl162888163075%_ (let () (declare (not safe)) - (##cdr _%e162727162911%_))) - (_%hd162728162914%_ + (##cdr _%e162886163070%_))) + (_%hd162887163073%_ (let () (declare (not safe)) - (##car _%e162727162911%_)))) + (##car _%e162886163070%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162728162914%_)) - (let ((_%e162730162919%_ + (gx#stx-pair? _%hd162887163073%_)) + (let ((_%e162889163078%_ (let () (declare (not safe)) (gx#stx-e - _%hd162728162914%_)))) - (let ((_%tl162732162924%_ + _%hd162887163073%_)))) + (let ((_%tl162891163083%_ (let () (declare (not safe)) - (##cdr _%e162730162919%_))) - (_%hd162731162922%_ + (##cdr _%e162889163078%_))) + (_%hd162890163081%_ (let () (declare (not safe)) - (##car _%e162730162919%_)))) + (##car _%e162889163078%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162731162922%_)) + _%hd162890163081%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162731162922%_)) + _%hd162890163081%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162732162924%_)) - (let ((_%e162733162927%_ + _%tl162891163083%_)) + (let ((_%e162892163086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162732162924%_)))) - (let ((_%tl162735162932%_ + (gx#stx-e _%tl162891163083%_)))) + (let ((_%tl162894163091%_ (let () (declare (not safe)) - (##cdr _%e162733162927%_))) - (_%hd162734162930%_ + (##cdr _%e162892163086%_))) + (_%hd162893163089%_ (let () (declare (not safe)) - (##car _%e162733162927%_)))) + (##car _%e162892163086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162734162930%_)) - (let ((_%e162736162935%_ + (gx#stx-pair? _%hd162893163089%_)) + (let ((_%e162895163094%_ (let () (declare (not safe)) - (gx#stx-e _%hd162734162930%_)))) - (let ((_%tl162738162940%_ + (gx#stx-e _%hd162893163089%_)))) + (let ((_%tl162897163099%_ (let () (declare (not safe)) - (##cdr _%e162736162935%_))) - (_%hd162737162938%_ + (##cdr _%e162895163094%_))) + (_%hd162896163097%_ (let () (declare (not safe)) - (##car _%e162736162935%_)))) + (##car _%e162895163094%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162737162938%_)) + (gx#identifier? _%hd162896163097%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162737162938%_)) + (gx#stx-eq? '%#ref _%hd162896163097%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162738162940%_)) - (let ((_%e162739162943%_ + (gx#stx-pair? _%tl162897163099%_)) + (let ((_%e162898163102%_ (let () (declare (not safe)) (gx#stx-e - _%tl162738162940%_)))) - (let ((_%tl162741162948%_ + _%tl162897163099%_)))) + (let ((_%tl162900163107%_ (let () (declare (not safe)) - (##cdr _%e162739162943%_))) - (_%hd162740162946%_ + (##cdr _%e162898163102%_))) + (_%hd162899163105%_ (let () (declare (not safe)) - (##car _%e162739162943%_)))) + (##car _%e162898163102%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162741162948%_)) + _%tl162900163107%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162735162932%_)) - (let ((_%e162742162951%_ + _%tl162894163091%_)) + (let ((_%e162901163110%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162735162932%_)))) - (let ((_%tl162744162956%_ - (let () (declare (not safe)) (##cdr _%e162742162951%_))) - (_%hd162743162954%_ + (gx#stx-e _%tl162894163091%_)))) + (let ((_%tl162903163115%_ + (let () (declare (not safe)) (##cdr _%e162901163110%_))) + (_%hd162902163113%_ (let () (declare (not safe)) - (##car _%e162742162951%_)))) + (##car _%e162901163110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162743162954%_)) - (let ((_%e162745162959%_ + (gx#stx-pair? _%hd162902163113%_)) + (let ((_%e162904163118%_ (let () (declare (not safe)) - (gx#stx-e _%hd162743162954%_)))) - (let ((_%tl162747162964%_ + (gx#stx-e _%hd162902163113%_)))) + (let ((_%tl162906163123%_ (let () (declare (not safe)) - (##cdr _%e162745162959%_))) - (_%hd162746162962%_ + (##cdr _%e162904163118%_))) + (_%hd162905163121%_ (let () (declare (not safe)) - (##car _%e162745162959%_)))) + (##car _%e162904163118%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162746162962%_)) + (gx#identifier? _%hd162905163121%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162746162962%_)) + (gx#stx-eq? '%#ref _%hd162905163121%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162747162964%_)) - (let ((_%e162748162967%_ + (gx#stx-pair? _%tl162906163123%_)) + (let ((_%e162907163126%_ (let () (declare (not safe)) - (gx#stx-e _%tl162747162964%_)))) - (let ((_%tl162750162972%_ + (gx#stx-e _%tl162906163123%_)))) + (let ((_%tl162909163131%_ (let () (declare (not safe)) - (##cdr _%e162748162967%_))) - (_%hd162749162970%_ + (##cdr _%e162907163126%_))) + (_%hd162908163129%_ (let () (declare (not safe)) - (##car _%e162748162967%_)))) + (##car _%e162907163126%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162750162972%_)) + _%tl162909163131%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162744162956%_)) - (let ((_%e162751162975%_ + _%tl162903163115%_)) + (let ((_%e162910163134%_ (let () (declare (not safe)) (gx#stx-e - _%tl162744162956%_)))) - (let ((_%tl162753162980%_ + _%tl162903163115%_)))) + (let ((_%tl162912163139%_ (let () (declare (not safe)) - (##cdr _%e162751162975%_))) - (_%hd162752162978%_ + (##cdr _%e162910163134%_))) + (_%hd162911163137%_ (let () (declare (not safe)) - (##car _%e162751162975%_)))) + (##car _%e162910163134%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162752162978%_)) - (let ((_%e162754162983%_ + _%hd162911163137%_)) + (let ((_%e162913163142%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162752162978%_)))) - (let ((_%tl162756162988%_ + (gx#stx-e _%hd162911163137%_)))) + (let ((_%tl162915163147%_ (let () (declare (not safe)) - (##cdr _%e162754162983%_))) - (_%hd162755162986%_ + (##cdr _%e162913163142%_))) + (_%hd162914163145%_ (let () (declare (not safe)) - (##car _%e162754162983%_)))) + (##car _%e162913163142%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162755162986%_)) + (gx#identifier? _%hd162914163145%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162755162986%_)) + (gx#stx-eq? '%#ref _%hd162914163145%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162756162988%_)) - (let ((_%e162757162991%_ + (gx#stx-pair? _%tl162915163147%_)) + (let ((_%e162916163150%_ (let () (declare (not safe)) - (gx#stx-e _%tl162756162988%_)))) - (let ((_%tl162759162996%_ + (gx#stx-e _%tl162915163147%_)))) + (let ((_%tl162918163155%_ (let () (declare (not safe)) - (##cdr _%e162757162991%_))) - (_%hd162758162994%_ + (##cdr _%e162916163150%_))) + (_%hd162917163153%_ (let () (declare (not safe)) - (##car _%e162757162991%_)))) + (##car _%e162916163150%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162759162996%_)) + (gx#stx-null? _%tl162918163155%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl162753162980%_)) - (if (let ((__tmp171018 + _%tl162912163139%_)) + (if (let ((__tmp171177 (let () (declare (not safe)) (gx#stx-length - _%tl162753162980%_)))) + _%tl162912163139%_)))) (declare (not safe)) - (##fx>= __tmp171018 '1)) - (let ((_%__splice168690168691%_ + (##fx>= __tmp171177 '1)) + (let ((_%__splice168849168850%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162753162980%_ + _%tl162912163139%_ '1)))) - (let ((_%tl162762163001%_ + (let ((_%tl162921163160%_ (let () (declare (not safe)) (##vector-ref - _%__splice168690168691%_ + _%__splice168849168850%_ '1))) - (_%target162760162999%_ + (_%target162919163158%_ (let () (declare (not safe)) (##vector-ref - _%__splice168690168691%_ + _%__splice168849168850%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162762163001%_)) - (let ((_%e162775163004%_ + _%tl162921163160%_)) + (let ((_%e162934163163%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162762163001%_)))) - (let ((_%tl162777163009%_ + (gx#stx-e _%tl162921163160%_)))) + (let ((_%tl162936163168%_ (let () (declare (not safe)) - (##cdr _%e162775163004%_))) - (_%hd162776163007%_ + (##cdr _%e162934163163%_))) + (_%hd162935163166%_ (let () (declare (not safe)) - (##car _%e162775163004%_)))) + (##car _%e162934163163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162776163007%_)) - (let ((_%e162778163012%_ + (gx#stx-pair? _%hd162935163166%_)) + (let ((_%e162937163171%_ (let () (declare (not safe)) - (gx#stx-e _%hd162776163007%_)))) - (let ((_%tl162780163017%_ + (gx#stx-e _%hd162935163166%_)))) + (let ((_%tl162939163176%_ (let () (declare (not safe)) - (##cdr _%e162778163012%_))) - (_%hd162779163015%_ + (##cdr _%e162937163171%_))) + (_%hd162938163174%_ (let () (declare (not safe)) - (##car _%e162778163012%_)))) + (##car _%e162937163171%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162779163015%_)) + (gx#identifier? _%hd162938163174%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162779163015%_)) + (gx#stx-eq? '%#ref _%hd162938163174%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162780163017%_)) - (let ((_%e162781163020%_ + (gx#stx-pair? _%tl162939163176%_)) + (let ((_%e162940163179%_ (let () (declare (not safe)) (gx#stx-e - _%tl162780163017%_)))) - (let ((_%tl162783163025%_ + _%tl162939163176%_)))) + (let ((_%tl162942163184%_ (let () (declare (not safe)) - (##cdr _%e162781163020%_))) - (_%hd162782163023%_ + (##cdr _%e162940163179%_))) + (_%hd162941163182%_ (let () (declare (not safe)) - (##car _%e162781163020%_)))) + (##car _%e162940163179%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162783163025%_)) + _%tl162942163184%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162777163009%_)) - (_%__match168987168988%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_ - _%e162721162895%_ - _%hd162722162898%_ - _%tl162723162900%_ - _%e162724162903%_ - _%hd162725162906%_ - _%tl162726162908%_ - _%e162727162911%_ - _%hd162728162914%_ - _%tl162729162916%_ - _%e162730162919%_ - _%hd162731162922%_ - _%tl162732162924%_ - _%e162733162927%_ - _%hd162734162930%_ - _%tl162735162932%_ - _%e162736162935%_ - _%hd162737162938%_ - _%tl162738162940%_ - _%e162739162943%_ - _%hd162740162946%_ - _%tl162741162948%_ - _%e162742162951%_ - _%hd162743162954%_ - _%tl162744162956%_ - _%e162745162959%_ - _%hd162746162962%_ - _%tl162747162964%_ - _%e162748162967%_ - _%hd162749162970%_ - _%tl162750162972%_ - _%e162751162975%_ - _%hd162752162978%_ - _%tl162753162980%_ - _%e162754162983%_ - _%hd162755162986%_ - _%tl162756162988%_ - _%e162757162991%_ - _%hd162758162994%_ - _%tl162759162996%_ - _%__splice168690168691%_ - _%target162760162999%_ - _%tl162762163001%_ - _%e162775163004%_ - _%hd162776163007%_ - _%tl162777163009%_ - _%e162778163012%_ - _%hd162779163015%_ - _%tl162780163017%_ - _%e162781163020%_ - _%hd162782163023%_ - _%tl162783163025%_) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + _%tl162936163168%_)) + (_%__match169146169147%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_ + _%e162880163054%_ + _%hd162881163057%_ + _%tl162882163059%_ + _%e162883163062%_ + _%hd162884163065%_ + _%tl162885163067%_ + _%e162886163070%_ + _%hd162887163073%_ + _%tl162888163075%_ + _%e162889163078%_ + _%hd162890163081%_ + _%tl162891163083%_ + _%e162892163086%_ + _%hd162893163089%_ + _%tl162894163091%_ + _%e162895163094%_ + _%hd162896163097%_ + _%tl162897163099%_ + _%e162898163102%_ + _%hd162899163105%_ + _%tl162900163107%_ + _%e162901163110%_ + _%hd162902163113%_ + _%tl162903163115%_ + _%e162904163118%_ + _%hd162905163121%_ + _%tl162906163123%_ + _%e162907163126%_ + _%hd162908163129%_ + _%tl162909163131%_ + _%e162910163134%_ + _%hd162911163137%_ + _%tl162912163139%_ + _%e162913163142%_ + _%hd162914163145%_ + _%tl162915163147%_ + _%e162916163150%_ + _%hd162917163153%_ + _%tl162918163155%_ + _%__splice168849168850%_ + _%target162919163158%_ + _%tl162921163160%_ + _%e162934163163%_ + _%hd162935163166%_ + _%tl162936163168%_ + _%e162937163171%_ + _%hd162938163174%_ + _%tl162939163176%_ + _%e162940163179%_ + _%hd162941163182%_ + _%tl162942163184%_) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168847168848%_ - (lambda (_%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_ - _%e162657163294%_ - _%hd162658163297%_ - _%tl162659163299%_ - _%e162660163302%_ - _%hd162661163305%_ - _%tl162662163307%_ - _%e162663163310%_ - _%hd162664163313%_ - _%tl162665163315%_ - _%e162666163318%_ - _%hd162667163321%_ - _%tl162668163323%_ - _%e162669163326%_ - _%hd162670163329%_ - _%tl162671163331%_ - _%e162672163334%_ - _%hd162673163337%_ - _%tl162674163339%_ - _%e162675163342%_ - _%hd162676163345%_ - _%tl162677163347%_ - _%e162678163350%_ - _%hd162679163353%_ - _%tl162680163355%_ - _%e162681163358%_ - _%hd162682163361%_ - _%tl162683163363%_ - _%e162684163366%_ - _%hd162685163369%_ - _%tl162686163371%_ - _%e162687163374%_ - _%hd162688163377%_ - _%tl162689163379%_ - _%e162690163382%_ - _%hd162691163385%_ - _%tl162692163387%_ - _%e162693163390%_ - _%hd162694163393%_ - _%tl162695163395%_ - _%e162696163398%_ - _%hd162697163401%_ - _%tl162698163403%_ - _%e162699163406%_ - _%hd162700163409%_ - _%tl162701163411%_ - _%e162702163414%_ - _%hd162703163417%_ - _%tl162704163419%_ - _%e162705163422%_ - _%hd162706163425%_ - _%tl162707163427%_) - (let ((_%L163430%_ _%hd162706163425%_) - (_%L163431%_ _%hd162697163401%_) - (_%L163432%_ _%hd162688163377%_) - (_%L163433%_ _%hd162679163353%_) - (_%L163434%_ _%hd162670163329%_) - (_%L163435%_ _%hd162655163289%_)) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169152169153%_ + _%e162877163046%_ + _%hd162878163049%_ + _%tl162879163051%_)))) + (_%__match169006169007%_ + (lambda (_%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_ + _%e162816163453%_ + _%hd162817163456%_ + _%tl162818163458%_ + _%e162819163461%_ + _%hd162820163464%_ + _%tl162821163466%_ + _%e162822163469%_ + _%hd162823163472%_ + _%tl162824163474%_ + _%e162825163477%_ + _%hd162826163480%_ + _%tl162827163482%_ + _%e162828163485%_ + _%hd162829163488%_ + _%tl162830163490%_ + _%e162831163493%_ + _%hd162832163496%_ + _%tl162833163498%_ + _%e162834163501%_ + _%hd162835163504%_ + _%tl162836163506%_ + _%e162837163509%_ + _%hd162838163512%_ + _%tl162839163514%_ + _%e162840163517%_ + _%hd162841163520%_ + _%tl162842163522%_ + _%e162843163525%_ + _%hd162844163528%_ + _%tl162845163530%_ + _%e162846163533%_ + _%hd162847163536%_ + _%tl162848163538%_ + _%e162849163541%_ + _%hd162850163544%_ + _%tl162851163546%_ + _%e162852163549%_ + _%hd162853163552%_ + _%tl162854163554%_ + _%e162855163557%_ + _%hd162856163560%_ + _%tl162857163562%_ + _%e162858163565%_ + _%hd162859163568%_ + _%tl162860163570%_ + _%e162861163573%_ + _%hd162862163576%_ + _%tl162863163578%_ + _%e162864163581%_ + _%hd162865163584%_ + _%tl162866163586%_) + (let ((_%L163589%_ _%hd162865163584%_) + (_%L163590%_ _%hd162856163560%_) + (_%L163591%_ _%hd162847163536%_) + (_%L163592%_ _%hd162838163512%_) + (_%L163593%_ _%hd162829163488%_) + (_%L163594%_ _%hd162814163448%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L163435%_)) + (gx#identifier? _%L163594%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163434%_ + _%L163593%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163433%_ + _%L163592%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163435%_ - _%L163430%_))) - (_%__kont168686168687%_ - _%L163430%_ - _%L163431%_ - _%L163432%_ - _%L163433%_ - _%L163434%_ - _%L163435%_) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))))) + _%L163594%_ + _%L163589%_))) + (_%__kont168845168846%_ + _%L163589%_ + _%L163590%_ + _%L163591%_ + _%L163592%_ + _%L163593%_ + _%L163594%_) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168684168685%_)) - (let ((_%e162651163278%_ + (gx#stx-pair? _%__stx168843168844%_)) + (let ((_%e162810163437%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168684168685%_)))) - (let ((_%tl162653163283%_ + (gx#stx-e _%__stx168843168844%_)))) + (let ((_%tl162812163442%_ (let () (declare (not safe)) - (##cdr _%e162651163278%_))) - (_%hd162652163281%_ + (##cdr _%e162810163437%_))) + (_%hd162811163440%_ (let () (declare (not safe)) - (##car _%e162651163278%_)))) + (##car _%e162810163437%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162653163283%_)) - (let ((_%e162654163286%_ + (gx#stx-pair? _%tl162812163442%_)) + (let ((_%e162813163445%_ (let () (declare (not safe)) - (gx#stx-e _%tl162653163283%_)))) - (let ((_%tl162656163291%_ + (gx#stx-e _%tl162812163442%_)))) + (let ((_%tl162815163450%_ (let () (declare (not safe)) - (##cdr _%e162654163286%_))) - (_%hd162655163289%_ + (##cdr _%e162813163445%_))) + (_%hd162814163448%_ (let () (declare (not safe)) - (##car _%e162654163286%_)))) + (##car _%e162813163445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162656163291%_)) - (let ((_%e162657163294%_ + (gx#stx-pair? _%tl162815163450%_)) + (let ((_%e162816163453%_ (let () (declare (not safe)) - (gx#stx-e _%tl162656163291%_)))) - (let ((_%tl162659163299%_ + (gx#stx-e _%tl162815163450%_)))) + (let ((_%tl162818163458%_ (let () (declare (not safe)) - (##cdr _%e162657163294%_))) - (_%hd162658163297%_ + (##cdr _%e162816163453%_))) + (_%hd162817163456%_ (let () (declare (not safe)) - (##car _%e162657163294%_)))) + (##car _%e162816163453%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162658163297%_)) - (let ((_%e162660163302%_ + (gx#stx-pair? _%hd162817163456%_)) + (let ((_%e162819163461%_ (let () (declare (not safe)) (gx#stx-e - _%hd162658163297%_)))) - (let ((_%tl162662163307%_ + _%hd162817163456%_)))) + (let ((_%tl162821163466%_ (let () (declare (not safe)) - (##cdr _%e162660163302%_))) - (_%hd162661163305%_ + (##cdr _%e162819163461%_))) + (_%hd162820163464%_ (let () (declare (not safe)) - (##car _%e162660163302%_)))) + (##car _%e162819163461%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162661163305%_)) + _%hd162820163464%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162661163305%_)) + _%hd162820163464%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162662163307%_)) - (let ((_%e162663163310%_ + _%tl162821163466%_)) + (let ((_%e162822163469%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162662163307%_)))) - (let ((_%tl162665163315%_ + (gx#stx-e _%tl162821163466%_)))) + (let ((_%tl162824163474%_ (let () (declare (not safe)) - (##cdr _%e162663163310%_))) - (_%hd162664163313%_ + (##cdr _%e162822163469%_))) + (_%hd162823163472%_ (let () (declare (not safe)) - (##car _%e162663163310%_)))) + (##car _%e162822163469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162664163313%_)) - (let ((_%e162666163318%_ + (gx#stx-pair? _%hd162823163472%_)) + (let ((_%e162825163477%_ (let () (declare (not safe)) - (gx#stx-e _%hd162664163313%_)))) - (let ((_%tl162668163323%_ + (gx#stx-e _%hd162823163472%_)))) + (let ((_%tl162827163482%_ (let () (declare (not safe)) - (##cdr _%e162666163318%_))) - (_%hd162667163321%_ + (##cdr _%e162825163477%_))) + (_%hd162826163480%_ (let () (declare (not safe)) - (##car _%e162666163318%_)))) + (##car _%e162825163477%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162667163321%_)) + (gx#identifier? _%hd162826163480%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162667163321%_)) + (gx#stx-eq? '%#ref _%hd162826163480%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162668163323%_)) - (let ((_%e162669163326%_ + (gx#stx-pair? _%tl162827163482%_)) + (let ((_%e162828163485%_ (let () (declare (not safe)) (gx#stx-e - _%tl162668163323%_)))) - (let ((_%tl162671163331%_ + _%tl162827163482%_)))) + (let ((_%tl162830163490%_ (let () (declare (not safe)) - (##cdr _%e162669163326%_))) - (_%hd162670163329%_ + (##cdr _%e162828163485%_))) + (_%hd162829163488%_ (let () (declare (not safe)) - (##car _%e162669163326%_)))) + (##car _%e162828163485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162671163331%_)) + _%tl162830163490%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162665163315%_)) - (let ((_%e162672163334%_ + _%tl162824163474%_)) + (let ((_%e162831163493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162665163315%_)))) - (let ((_%tl162674163339%_ - (let () (declare (not safe)) (##cdr _%e162672163334%_))) - (_%hd162673163337%_ + (gx#stx-e _%tl162824163474%_)))) + (let ((_%tl162833163498%_ + (let () (declare (not safe)) (##cdr _%e162831163493%_))) + (_%hd162832163496%_ (let () (declare (not safe)) - (##car _%e162672163334%_)))) + (##car _%e162831163493%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162673163337%_)) - (let ((_%e162675163342%_ + (gx#stx-pair? _%hd162832163496%_)) + (let ((_%e162834163501%_ (let () (declare (not safe)) - (gx#stx-e _%hd162673163337%_)))) - (let ((_%tl162677163347%_ + (gx#stx-e _%hd162832163496%_)))) + (let ((_%tl162836163506%_ (let () (declare (not safe)) - (##cdr _%e162675163342%_))) - (_%hd162676163345%_ + (##cdr _%e162834163501%_))) + (_%hd162835163504%_ (let () (declare (not safe)) - (##car _%e162675163342%_)))) + (##car _%e162834163501%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162676163345%_)) + (gx#identifier? _%hd162835163504%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162676163345%_)) + (gx#stx-eq? '%#ref _%hd162835163504%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162677163347%_)) - (let ((_%e162678163350%_ + (gx#stx-pair? _%tl162836163506%_)) + (let ((_%e162837163509%_ (let () (declare (not safe)) - (gx#stx-e _%tl162677163347%_)))) - (let ((_%tl162680163355%_ + (gx#stx-e _%tl162836163506%_)))) + (let ((_%tl162839163514%_ (let () (declare (not safe)) - (##cdr _%e162678163350%_))) - (_%hd162679163353%_ + (##cdr _%e162837163509%_))) + (_%hd162838163512%_ (let () (declare (not safe)) - (##car _%e162678163350%_)))) + (##car _%e162837163509%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162680163355%_)) + _%tl162839163514%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162674163339%_)) - (let ((_%e162681163358%_ + _%tl162833163498%_)) + (let ((_%e162840163517%_ (let () (declare (not safe)) (gx#stx-e - _%tl162674163339%_)))) - (let ((_%tl162683163363%_ + _%tl162833163498%_)))) + (let ((_%tl162842163522%_ (let () (declare (not safe)) - (##cdr _%e162681163358%_))) - (_%hd162682163361%_ + (##cdr _%e162840163517%_))) + (_%hd162841163520%_ (let () (declare (not safe)) - (##car _%e162681163358%_)))) + (##car _%e162840163517%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162682163361%_)) - (let ((_%e162684163366%_ + _%hd162841163520%_)) + (let ((_%e162843163525%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162682163361%_)))) - (let ((_%tl162686163371%_ + (gx#stx-e _%hd162841163520%_)))) + (let ((_%tl162845163530%_ (let () (declare (not safe)) - (##cdr _%e162684163366%_))) - (_%hd162685163369%_ + (##cdr _%e162843163525%_))) + (_%hd162844163528%_ (let () (declare (not safe)) - (##car _%e162684163366%_)))) + (##car _%e162843163525%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162685163369%_)) + (gx#identifier? _%hd162844163528%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162685163369%_)) + (gx#stx-eq? '%#quote _%hd162844163528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162686163371%_)) - (let ((_%e162687163374%_ + (gx#stx-pair? _%tl162845163530%_)) + (let ((_%e162846163533%_ (let () (declare (not safe)) - (gx#stx-e _%tl162686163371%_)))) - (let ((_%tl162689163379%_ + (gx#stx-e _%tl162845163530%_)))) + (let ((_%tl162848163538%_ (let () (declare (not safe)) - (##cdr _%e162687163374%_))) - (_%hd162688163377%_ + (##cdr _%e162846163533%_))) + (_%hd162847163536%_ (let () (declare (not safe)) - (##car _%e162687163374%_)))) + (##car _%e162846163533%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162689163379%_)) + (gx#stx-null? _%tl162848163538%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162683163363%_)) - (let ((_%e162690163382%_ + _%tl162842163522%_)) + (let ((_%e162849163541%_ (let () (declare (not safe)) (gx#stx-e - _%tl162683163363%_)))) - (let ((_%tl162692163387%_ + _%tl162842163522%_)))) + (let ((_%tl162851163546%_ (let () (declare (not safe)) - (##cdr _%e162690163382%_))) - (_%hd162691163385%_ + (##cdr _%e162849163541%_))) + (_%hd162850163544%_ (let () (declare (not safe)) - (##car _%e162690163382%_)))) + (##car _%e162849163541%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162691163385%_)) - (let ((_%e162693163390%_ + _%hd162850163544%_)) + (let ((_%e162852163549%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd162691163385%_)))) - (let ((_%tl162695163395%_ - (let () (declare (not safe)) (##cdr _%e162693163390%_))) - (_%hd162694163393%_ + (gx#stx-e _%hd162850163544%_)))) + (let ((_%tl162854163554%_ + (let () (declare (not safe)) (##cdr _%e162852163549%_))) + (_%hd162853163552%_ (let () (declare (not safe)) - (##car _%e162693163390%_)))) + (##car _%e162852163549%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162694163393%_)) + (gx#identifier? _%hd162853163552%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162694163393%_)) + (gx#stx-eq? '%#ref _%hd162853163552%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162695163395%_)) - (let ((_%e162696163398%_ + (gx#stx-pair? _%tl162854163554%_)) + (let ((_%e162855163557%_ (let () (declare (not safe)) - (gx#stx-e _%tl162695163395%_)))) - (let ((_%tl162698163403%_ + (gx#stx-e _%tl162854163554%_)))) + (let ((_%tl162857163562%_ (let () (declare (not safe)) - (##cdr _%e162696163398%_))) - (_%hd162697163401%_ + (##cdr _%e162855163557%_))) + (_%hd162856163560%_ (let () (declare (not safe)) - (##car _%e162696163398%_)))) + (##car _%e162855163557%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162698163403%_)) + (gx#stx-null? _%tl162857163562%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162692163387%_)) - (let ((_%e162699163406%_ + (gx#stx-pair? _%tl162851163546%_)) + (let ((_%e162858163565%_ (let () (declare (not safe)) (gx#stx-e - _%tl162692163387%_)))) - (let ((_%tl162701163411%_ + _%tl162851163546%_)))) + (let ((_%tl162860163570%_ (let () (declare (not safe)) - (##cdr _%e162699163406%_))) - (_%hd162700163409%_ + (##cdr _%e162858163565%_))) + (_%hd162859163568%_ (let () (declare (not safe)) - (##car _%e162699163406%_)))) + (##car _%e162858163565%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162700163409%_)) - (let ((_%e162702163414%_ + _%hd162859163568%_)) + (let ((_%e162861163573%_ (let () (declare (not safe)) (gx#stx-e - _%hd162700163409%_)))) - (let ((_%tl162704163419%_ + _%hd162859163568%_)))) + (let ((_%tl162863163578%_ (let () (declare (not safe)) - (##cdr _%e162702163414%_))) - (_%hd162703163417%_ + (##cdr _%e162861163573%_))) + (_%hd162862163576%_ (let () (declare (not safe)) - (##car _%e162702163414%_)))) + (##car _%e162861163573%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162703163417%_)) + _%hd162862163576%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd162703163417%_)) + (gx#stx-eq? '%#ref _%hd162862163576%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162704163419%_)) - (let ((_%e162705163422%_ + (gx#stx-pair? _%tl162863163578%_)) + (let ((_%e162864163581%_ (let () (declare (not safe)) - (gx#stx-e _%tl162704163419%_)))) - (let ((_%tl162707163427%_ + (gx#stx-e _%tl162863163578%_)))) + (let ((_%tl162866163586%_ (let () (declare (not safe)) - (##cdr _%e162705163422%_))) - (_%hd162706163425%_ + (##cdr _%e162864163581%_))) + (_%hd162865163584%_ (let () (declare (not safe)) - (##car _%e162705163422%_)))) + (##car _%e162864163581%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162707163427%_)) + (gx#stx-null? _%tl162866163586%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162701163411%_)) + (gx#stx-null? _%tl162860163570%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162659163299%_)) - (_%__match168847168848%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_ - _%e162657163294%_ - _%hd162658163297%_ - _%tl162659163299%_ - _%e162660163302%_ - _%hd162661163305%_ - _%tl162662163307%_ - _%e162663163310%_ - _%hd162664163313%_ - _%tl162665163315%_ - _%e162666163318%_ - _%hd162667163321%_ - _%tl162668163323%_ - _%e162669163326%_ - _%hd162670163329%_ - _%tl162671163331%_ - _%e162672163334%_ - _%hd162673163337%_ - _%tl162674163339%_ - _%e162675163342%_ - _%hd162676163345%_ - _%tl162677163347%_ - _%e162678163350%_ - _%hd162679163353%_ - _%tl162680163355%_ - _%e162681163358%_ - _%hd162682163361%_ - _%tl162683163363%_ - _%e162684163366%_ - _%hd162685163369%_ - _%tl162686163371%_ - _%e162687163374%_ - _%hd162688163377%_ - _%tl162689163379%_ - _%e162690163382%_ - _%hd162691163385%_ - _%tl162692163387%_ - _%e162693163390%_ - _%hd162694163393%_ - _%tl162695163395%_ - _%e162696163398%_ - _%hd162697163401%_ - _%tl162698163403%_ - _%e162699163406%_ - _%hd162700163409%_ - _%tl162701163411%_ - _%e162702163414%_ - _%hd162703163417%_ - _%tl162704163419%_ - _%e162705163422%_ - _%hd162706163425%_ - _%tl162707163427%_) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) + (gx#stx-null? _%tl162818163458%_)) + (_%__match169006169007%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_ + _%e162816163453%_ + _%hd162817163456%_ + _%tl162818163458%_ + _%e162819163461%_ + _%hd162820163464%_ + _%tl162821163466%_ + _%e162822163469%_ + _%hd162823163472%_ + _%tl162824163474%_ + _%e162825163477%_ + _%hd162826163480%_ + _%tl162827163482%_ + _%e162828163485%_ + _%hd162829163488%_ + _%tl162830163490%_ + _%e162831163493%_ + _%hd162832163496%_ + _%tl162833163498%_ + _%e162834163501%_ + _%hd162835163504%_ + _%tl162836163506%_ + _%e162837163509%_ + _%hd162838163512%_ + _%tl162839163514%_ + _%e162840163517%_ + _%hd162841163520%_ + _%tl162842163522%_ + _%e162843163525%_ + _%hd162844163528%_ + _%tl162845163530%_ + _%e162846163533%_ + _%hd162847163536%_ + _%tl162848163538%_ + _%e162849163541%_ + _%hd162850163544%_ + _%tl162851163546%_ + _%e162852163549%_ + _%hd162853163552%_ + _%tl162854163554%_ + _%e162855163557%_ + _%hd162856163560%_ + _%tl162857163562%_ + _%e162858163565%_ + _%hd162859163568%_ + _%tl162860163570%_ + _%e162861163573%_ + _%hd162862163576%_ + _%tl162863163578%_ + _%e162864163581%_ + _%hd162865163584%_ + _%tl162866163586%_) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168993168994%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_)))) - (let () (declare (not safe)) (_%g162643162835%_)))))))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169018169019%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_ + _%e162813163445%_ + _%hd162814163448%_ + _%tl162815163450%_)))) + (_%__match169152169153%_ + _%e162810163437%_ + _%hd162811163440%_ + _%tl162812163442%_)))) + (let () (declare (not safe)) (_%g162802162994%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self162507%_ _%stx162508%_) - (letrec ((_%clause-e162510%_ - (lambda (_%form162633%_) - (let* ((_%signature162635%_ - (gxc#lambda-form-infer-signature _%form162633%_)) - (__obj170833 + (lambda (_%self162666%_ _%stx162667%_) + (letrec ((_%clause-e162669%_ + (lambda (_%form162792%_) + (let* ((_%signature162794%_ + (gxc#lambda-form-infer-signature _%form162792%_)) + (__obj170992 (let () (declare (not safe)) (##structure @@ -11163,126 +11163,126 @@ '#f '#f '#f)))) - (let ((__tmp171020 - (gxc#lambda-form-arity _%form162633%_)) - (__tmp171019 - (if (gxc#dispatch-lambda-form? _%form162633%_) + (let ((__tmp171179 + (gxc#lambda-form-arity _%form162792%_)) + (__tmp171178 + (if (gxc#dispatch-lambda-form? _%form162792%_) (gxc#dispatch-lambda-form-delegate - _%form162633%_) + _%form162792%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162635%_ - __obj170833 - __tmp171020 - __tmp171019)) - __obj170833))) - (_%return-type-e162511%_ - (lambda (_%clauses162561%_) - (let _%loop162563%_ ((_%rest162565%_ _%clauses162561%_) - (_%result162566%_ '#f)) - (let* ((_%rest162567162575%_ _%rest162565%_) - (_%else162569162583%_ - (lambda () _%result162566%_)) - (_%K162571162621%_ - (lambda (_%rest162586%_ _%clause162587%_) - (let* ((_%clause162589%_ _%clause162587%_) - (_%return162613%_ - (let* ((_%signature162602%_ + _%signature162794%_ + __obj170992 + __tmp171179 + __tmp171178)) + __obj170992))) + (_%return-type-e162670%_ + (lambda (_%clauses162720%_) + (let _%loop162722%_ ((_%rest162724%_ _%clauses162720%_) + (_%result162725%_ '#f)) + (let* ((_%rest162726162734%_ _%rest162724%_) + (_%else162728162742%_ + (lambda () _%result162725%_)) + (_%K162730162780%_ + (lambda (_%rest162745%_ _%clause162746%_) + (let* ((_%clause162748%_ _%clause162746%_) + (_%return162772%_ + (let* ((_%signature162761%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause162589%_ + _%clause162748%_ '2 '#f '#f))) - (_%signature162604%_ - _%signature162602%_)) - (if _%signature162604%_ + (_%signature162763%_ + _%signature162761%_)) + (if _%signature162763%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162604%_ + _%signature162763%_ '1 '#f '#f)) - (let ((__tmp171021 + (let ((__tmp171180 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162604%_ + _%signature162763%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162508%_ - __tmp171021)) + _%stx162667%_ + __tmp171180)) '#f) '#f))) - (_%result162618%_ - (if (and _%result162566%_ - _%return162613%_) + (_%result162777%_ + (if (and _%result162725%_ + _%return162772%_) (gxc#greatest-common-type - _%stx162508%_ - _%result162566%_ - _%return162613%_) - (let ((_%$e162615%_ - _%result162566%_)) - (if _%$e162615%_ - _%$e162615%_ - _%return162613%_))))) - (_%loop162563%_ - _%rest162586%_ - _%result162618%_))))) - (if (pair? _%rest162567162575%_) - (let ((_%hd162572162624%_ + _%stx162667%_ + _%result162725%_ + _%return162772%_) + (let ((_%$e162774%_ + _%result162725%_)) + (if _%$e162774%_ + _%$e162774%_ + _%return162772%_))))) + (_%loop162722%_ + _%rest162745%_ + _%result162777%_))))) + (if (pair? _%rest162726162734%_) + (let ((_%hd162731162783%_ (let () (declare (not safe)) - (##car _%rest162567162575%_))) - (_%tl162573162626%_ + (##car _%rest162726162734%_))) + (_%tl162732162785%_ (let () (declare (not safe)) - (##cdr _%rest162567162575%_)))) - (let* ((_%clause162629%_ _%hd162572162624%_) - (_%rest162631%_ _%tl162573162626%_)) - (_%K162571162621%_ - _%rest162631%_ - _%clause162629%_))) - (_%else162569162583%_))))))) - (let* ((_%g162513162523%_ - (lambda (_%g162514162520%_) + (##cdr _%rest162726162734%_)))) + (let* ((_%clause162788%_ _%hd162731162783%_) + (_%rest162790%_ _%tl162732162785%_)) + (_%K162730162780%_ + _%rest162790%_ + _%clause162788%_))) + (_%else162728162742%_))))))) + (let* ((_%g162672162682%_ + (lambda (_%g162673162679%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162514162520%_)))) - (_%g162512162558%_ - (lambda (_%g162514162526%_) + _%g162673162679%_)))) + (_%g162671162717%_ + (lambda (_%g162673162685%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162514162526%_)) - (let ((_%e162516162528%_ + (gx#stx-pair? _%g162673162685%_)) + (let ((_%e162675162687%_ (let () (declare (not safe)) - (gx#stx-e _%g162514162526%_)))) - (let ((_%hd162517162531%_ + (gx#stx-e _%g162673162685%_)))) + (let ((_%hd162676162690%_ (let () (declare (not safe)) - (##car _%e162516162528%_))) - (_%tl162518162533%_ + (##car _%e162675162687%_))) + (_%tl162677162692%_ (let () (declare (not safe)) - (##cdr _%e162516162528%_)))) - ((lambda (_%L162536%_) - (let* ((_%clauses162547%_ - (map _%clause-e162510%_ _%L162536%_)) - (_%return162549%_ - (_%return-type-e162511%_ - _%clauses162547%_)) - (__obj170835 + (##cdr _%e162675162687%_)))) + ((lambda (_%L162695%_) + (let* ((_%clauses162706%_ + (map _%clause-e162669%_ _%L162695%_)) + (_%return162708%_ + (_%return-type-e162670%_ + _%clauses162706%_)) + (__obj170994 (let () (declare (not safe)) (##structure @@ -11290,17 +11290,17 @@ '#f '#f '#f)))) - (let ((__tmp171022 - (if _%return162549%_ - (let ((_%return-type162551162553%_ + (let ((__tmp171181 + (if _%return162708%_ + (let ((_%return-type162710162712%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return162549%_)))) - (if _%return-type162551162553%_ - (let* ((_%return-type162556%_ - _%return-type162551162553%_) - (__obj170834 + _%return162708%_)))) + (if _%return-type162710162712%_ + (let* ((_%return-type162715%_ + _%return-type162710162712%_) + (__obj170993 (let () (declare (not safe)) @@ -11314,216 +11314,216 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170834 - _%return-type162556%_ + __obj170993 + _%return-type162715%_ '1 '#f '#f)) - __obj170834) + __obj170993) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp171022 - __obj170835 - _%clauses162547%_)) - __obj170835)) - _%tl162518162533%_))) - (_%g162513162523%_ _%g162514162526%_))))) - (_%g162512162558%_ _%stx162508%_))))) + __tmp171181 + __obj170994 + _%clauses162706%_)) + __obj170994)) + _%tl162677162692%_))) + (_%g162672162682%_ _%g162673162685%_))))) + (_%g162671162717%_ _%stx162667%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self162367%_ _%stx162368%_) - (letrec ((_%type-e162370%_ - (lambda (_%rator162500%_ _%rator-type162501%_ _%args162502%_) - (if (not _%rator-type162501%_) + (lambda (_%self162526%_ _%stx162527%_) + (letrec ((_%type-e162529%_ + (lambda (_%rator162659%_ _%rator-type162660%_ _%args162661%_) + (if (not _%rator-type162660%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type162501%_ + _%rator-type162660%_ 'gxc#!procedure::t)) - (let ((__method170836 + (let ((__method170995 (let () (declare (not safe)) (__method-ref - _%rator-type162501%_ + _%rator-type162660%_ 'return-type)))) - (if __method170836 + (if __method170995 (let () (declare (not safe)) - (__method170836 - _%rator-type162501%_ - _%self162367%_ - _%stx162368%_ - _%args162502%_)) + (__method170995 + _%rator-type162660%_ + _%self162526%_ + _%stx162527%_ + _%args162661%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type162501%_ + _%rator-type162660%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx169002169003%_ _%stx162368%_) - (_%g162373162401%_ + (let* ((_%__stx169161169162%_ _%stx162527%_) + (_%g162532162560%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169002169003%_))))) - (let ((_%__kont169004169005%_ - (lambda (_%L162474%_ _%L162475%_) - (let ((_%$e162491%_ - (let ((__tmp171023 + _%__stx169161169162%_))))) + (let ((_%__kont169163169164%_ + (lambda (_%L162633%_ _%L162634%_) + (let ((_%$e162650%_ + (let ((__tmp171182 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162475%_)))) + (gxc#identifier-symbol _%L162634%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp171023)))) - (if _%$e162491%_ - ((lambda (_%type-e162494%_) - (_%type-e162494%_ _%self162367%_ _%stx162368%_)) - _%$e162491%_) - (_%type-e162370%_ - _%L162475%_ - (let ((__tmp171024 + __tmp171182)))) + (if _%$e162650%_ + ((lambda (_%type-e162653%_) + (_%type-e162653%_ _%self162526%_ _%stx162527%_)) + _%$e162650%_) + (_%type-e162529%_ + _%L162634%_ + (let ((__tmp171183 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162475%_)))) + (gxc#identifier-symbol _%L162634%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp171024)) - _%L162474%_))))) - (_%__kont169006169007%_ - (lambda (_%L162422%_ _%L162423%_) - (_%type-e162370%_ - _%L162423%_ - (gxc#apply-basic-expression-type _%L162423%_) - _%L162422%_)))) + (gxc#optimizer-resolve-type __tmp171183)) + _%L162633%_))))) + (_%__kont169165169166%_ + (lambda (_%L162581%_ _%L162582%_) + (_%type-e162529%_ + _%L162582%_ + (gxc#apply-basic-expression-type _%L162582%_) + _%L162581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169002169003%_)) - (let ((_%e162377162442%_ + (gx#stx-pair? _%__stx169161169162%_)) + (let ((_%e162536162601%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169002169003%_)))) - (let ((_%tl162379162447%_ + (gx#stx-e _%__stx169161169162%_)))) + (let ((_%tl162538162606%_ (let () (declare (not safe)) - (##cdr _%e162377162442%_))) - (_%hd162378162445%_ + (##cdr _%e162536162601%_))) + (_%hd162537162604%_ (let () (declare (not safe)) - (##car _%e162377162442%_)))) + (##car _%e162536162601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162379162447%_)) - (let ((_%e162380162450%_ + (gx#stx-pair? _%tl162538162606%_)) + (let ((_%e162539162609%_ (let () (declare (not safe)) - (gx#stx-e _%tl162379162447%_)))) - (let ((_%tl162382162455%_ + (gx#stx-e _%tl162538162606%_)))) + (let ((_%tl162541162614%_ (let () (declare (not safe)) - (##cdr _%e162380162450%_))) - (_%hd162381162453%_ + (##cdr _%e162539162609%_))) + (_%hd162540162612%_ (let () (declare (not safe)) - (##car _%e162380162450%_)))) + (##car _%e162539162609%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162381162453%_)) - (let ((_%e162383162458%_ + (gx#stx-pair? _%hd162540162612%_)) + (let ((_%e162542162617%_ (let () (declare (not safe)) - (gx#stx-e _%hd162381162453%_)))) - (let ((_%tl162385162463%_ + (gx#stx-e _%hd162540162612%_)))) + (let ((_%tl162544162622%_ (let () (declare (not safe)) - (##cdr _%e162383162458%_))) - (_%hd162384162461%_ + (##cdr _%e162542162617%_))) + (_%hd162543162620%_ (let () (declare (not safe)) - (##car _%e162383162458%_)))) + (##car _%e162542162617%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162384162461%_)) + _%hd162543162620%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162384162461%_)) + _%hd162543162620%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162385162463%_)) - (let ((_%e162386162466%_ + _%tl162544162622%_)) + (let ((_%e162545162625%_ (let () (declare (not safe)) (gx#stx-e - _%tl162385162463%_)))) - (let ((_%tl162388162471%_ + _%tl162544162622%_)))) + (let ((_%tl162547162630%_ (let () (declare (not safe)) - (##cdr _%e162386162466%_))) - (_%hd162387162469%_ + (##cdr _%e162545162625%_))) + (_%hd162546162628%_ (let () (declare (not safe)) - (##car _%e162386162466%_)))) + (##car _%e162545162625%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162388162471%_)) - (_%__kont169004169005%_ - _%tl162382162455%_ - _%hd162387162469%_) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)))) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)))) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)))) - (let () (declare (not safe)) (_%g162373162401%_))))) - (let () (declare (not safe)) (_%g162373162401%_)))))))) + _%tl162547162630%_)) + (_%__kont169163169164%_ + _%tl162541162614%_ + _%hd162546162628%_) + (_%__kont169165169166%_ + _%tl162541162614%_ + _%hd162540162612%_)))) + (_%__kont169165169166%_ + _%tl162541162614%_ + _%hd162540162612%_)) + (_%__kont169165169166%_ + _%tl162541162614%_ + _%hd162540162612%_)) + (_%__kont169165169166%_ + _%tl162541162614%_ + _%hd162540162612%_)))) + (_%__kont169165169166%_ + _%tl162541162614%_ + _%hd162540162612%_)))) + (let () (declare (not safe)) (_%g162532162560%_))))) + (let () (declare (not safe)) (_%g162532162560%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self154110162349%_ _%ctx162351%_ _%stx162352%_ _%args162353%_) - (let* ((_%self162355%_ _%self154110162349%_) - (_%self162357%_ _%self162355%_)) + (lambda (_%self154269162508%_ _%ctx162510%_ _%stx162511%_ _%args162512%_) + (let* ((_%self162514%_ _%self154269162508%_) + (_%self162516%_ _%self162514%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162357%_ '2 '#f '#f)) - (let ((__tmp171025 - (let ((__tmp171026 + (##unchecked-structure-ref _%self162516%_ '2 '#f '#f)) + (let ((__tmp171184 + (let ((__tmp171185 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162357%_ + _%self162516%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp171026 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp171185 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx162352%_ __tmp171025)) + (gxc#optimizer-resolve-class _%stx162511%_ __tmp171184)) '#f)))) (let () (declare (not safe)) @@ -11541,59 +11541,59 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self154111162081%_ _%ctx162083%_ _%stx162084%_ _%args162085%_) - (let* ((_%self162087%_ _%self154111162081%_) - (_%self162089%_ _%self162087%_)) + (lambda (_%self154270162240%_ _%ctx162242%_ _%stx162243%_ _%args162244%_) + (let* ((_%self162246%_ _%self154270162240%_) + (_%self162248%_ _%self162246%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162089%_ '4 '#f '#f)) - (let ((_%dispatch-type162098162100%_ - (let ((__tmp171027 + (##unchecked-structure-ref _%self162248%_ '4 '#f '#f)) + (let ((_%dispatch-type162257162259%_ + (let ((__tmp171186 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162089%_ + _%self162248%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171027)))) - (if _%dispatch-type162098162100%_ - (let ((_%dispatch-type162103%_ - _%dispatch-type162098162100%_)) + (gxc#optimizer-lookup-type __tmp171186)))) + (if _%dispatch-type162257162259%_ + (let ((_%dispatch-type162262%_ + _%dispatch-type162257162259%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type162103%_ + _%dispatch-type162262%_ 'gxc#!procedure::t)) - (let ((__method170837 + (let ((__method170996 (let () (declare (not safe)) (__method-ref - _%dispatch-type162103%_ + _%dispatch-type162262%_ 'return-type)))) - (if __method170837 + (if __method170996 (let () (declare (not safe)) - (__method170837 - _%dispatch-type162103%_ - _%ctx162083%_ - _%stx162084%_ - _%args162085%_)) + (__method170996 + _%dispatch-type162262%_ + _%ctx162242%_ + _%stx162243%_ + _%args162244%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type162103%_ + _%dispatch-type162262%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self162089%_ - _%ctx162083%_ - _%stx162084%_ - _%args162085%_))))) + _%self162248%_ + _%ctx162242%_ + _%stx162243%_ + _%args162244%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11610,52 +11610,52 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self154112161809%_ _%ctx161811%_ _%stx161812%_ _%args161813%_) - (let* ((_%self161815%_ _%self154112161809%_) - (_%self161817%_ _%self161815%_) - (_%$e161831%_ - (let ((__tmp171029 - (lambda (_%g161826161828%_) + (lambda (_%self154271161968%_ _%ctx161970%_ _%stx161971%_ _%args161972%_) + (let* ((_%self161974%_ _%self154271161968%_) + (_%self161976%_ _%self161974%_) + (_%$e161990%_ + (let ((__tmp171188 + (lambda (_%g161985161987%_) (gxc#!lambda-arity-match? - _%g161826161828%_ - _%args161813%_))) - (__tmp171028 + _%g161985161987%_ + _%args161972%_))) + (__tmp171187 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161817%_ + _%self161976%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp171029 __tmp171028)))) - (if _%$e161831%_ - ((lambda (_%clause161834%_) - (let ((__method170838 + (__find __tmp171188 __tmp171187)))) + (if _%$e161990%_ + ((lambda (_%clause161993%_) + (let ((__method170997 (let () (declare (not safe)) - (__method-ref _%clause161834%_ 'return-type)))) - (if __method170838 + (__method-ref _%clause161993%_ 'return-type)))) + (if __method170997 (let () (declare (not safe)) - (__method170838 - _%clause161834%_ - _%ctx161811%_ - _%stx161812%_ - _%args161813%_)) + (__method170997 + _%clause161993%_ + _%ctx161970%_ + _%stx161971%_ + _%args161972%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause161834%_ + _%clause161993%_ 'return-type)) '#!void)))) - _%$e161831%_) + _%$e161990%_) (gxc#!procedure::return-type - _%self161817%_ - _%ctx161811%_ - _%stx161812%_ - _%args161813%_))))) + _%self161976%_ + _%ctx161970%_ + _%stx161971%_ + _%args161972%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11664,73 +11664,73 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self154113161655%_ _%ctx161657%_ _%stx161658%_ _%args161659%_) - (let* ((_%self161661%_ _%self154113161655%_) - (_%self161663%_ _%self161661%_) - (_%candidates161677%_ - (filter (lambda (_%g161672161674%_) + (lambda (_%self154272161814%_ _%ctx161816%_ _%stx161817%_ _%args161818%_) + (let* ((_%self161820%_ _%self154272161814%_) + (_%self161822%_ _%self161820%_) + (_%candidates161836%_ + (filter (lambda (_%g161831161833%_) (gxc#!lambda-arity-match-apply? - _%g161672161674%_ - _%args161659%_)) + _%g161831161833%_ + _%args161818%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self161663%_ + _%self161822%_ '3 '#f '#f)))) - (_%candidate-types161681%_ - (let ((__tmp171030 - (lambda (_%candidate161679%_) - (let ((__method170839 + (_%candidate-types161840%_ + (let ((__tmp171189 + (lambda (_%candidate161838%_) + (let ((__method170998 (let () (declare (not safe)) (__method-ref - _%candidate161679%_ + _%candidate161838%_ 'apply-return-type)))) - (if __method170839 + (if __method170998 (let () (declare (not safe)) - (__method170839 - _%candidate161679%_ - _%ctx161657%_ - _%stx161658%_ - _%args161659%_)) + (__method170998 + _%candidate161838%_ + _%ctx161816%_ + _%stx161817%_ + _%args161818%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate161679%_ + _%candidate161838%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp171030 _%candidates161677%_)))) - (if (pair? _%candidate-types161681%_) - (let ((__tmp171033 - (lambda (_%candidate-type161684%_ _%ret161685%_) - (if _%ret161685%_ - (if _%candidate-type161684%_ + (##map __tmp171189 _%candidates161836%_)))) + (if (pair? _%candidate-types161840%_) + (let ((__tmp171192 + (lambda (_%candidate-type161843%_ _%ret161844%_) + (if _%ret161844%_ + (if _%candidate-type161843%_ (gxc#greatest-common-type - _%stx161658%_ - _%candidate-type161684%_ - _%ret161685%_) + _%stx161817%_ + _%candidate-type161843%_ + _%ret161844%_) '#f) '#f))) - (__tmp171032 + (__tmp171191 (let () (declare (not safe)) - (##car _%candidate-types161681%_))) - (__tmp171031 + (##car _%candidate-types161840%_))) + (__tmp171190 (let () (declare (not safe)) - (##cdr _%candidate-types161681%_)))) + (##cdr _%candidate-types161840%_)))) (declare (not safe)) - (__foldl1 __tmp171033 __tmp171032 __tmp171031)) + (__foldl1 __tmp171192 __tmp171191 __tmp171190)) (gxc#!procedure::return-type - _%self161663%_ - _%ctx161657%_ - _%stx161658%_ - _%args161659%_))))) + _%self161822%_ + _%ctx161816%_ + _%stx161817%_ + _%args161818%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11739,135 +11739,135 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self154114161459%_ _%ctx161461%_ _%stx161462%_ _%args161463%_) - (let* ((_%self161465%_ _%self154114161459%_) - (_%self161467%_ _%self161465%_) - (_%g161476161487%_ - (let ((__tmp171034 + (lambda (_%self154273161618%_ _%ctx161620%_ _%stx161621%_ _%args161622%_) + (let* ((_%self161624%_ _%self154273161618%_) + (_%self161626%_ _%self161624%_) + (_%g161635161646%_ + (let ((__tmp171193 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161467%_ + _%self161626%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171034))) - (_%E161479161491%_ + (gxc#optimizer-lookup-type __tmp171193))) + (_%E161638161650%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161476161487%_ + _%g161635161646%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161481161514%_ - (lambda (_%main161505%_ _%keys161506%_) - (let ((_%main-type161507161509%_ + (let ((_%K161640161673%_ + (lambda (_%main161664%_ _%keys161665%_) + (let ((_%main-type161666161668%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161505%_)))) - (if _%main-type161507161509%_ - (let* ((_%main-type161512%_ _%main-type161507161509%_) - (__method170840 + (gxc#optimizer-lookup-type _%main161664%_)))) + (if _%main-type161666161668%_ + (let* ((_%main-type161671%_ _%main-type161666161668%_) + (__method170999 (let () (declare (not safe)) (__method-ref - _%main-type161512%_ + _%main-type161671%_ 'return-type)))) - (if __method170840 - (let ((__tmp171035 + (if __method170999 + (let ((__tmp171194 (gxc#extract-keyword-args - _%args161463%_))) + _%args161622%_))) (declare (not safe)) - (__method170840 - _%main-type161512%_ - _%ctx161461%_ - _%stx161462%_ - __tmp171035)) + (__method170999 + _%main-type161671%_ + _%ctx161620%_ + _%stx161621%_ + __tmp171194)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161512%_ + _%main-type161671%_ 'return-type)) '#!void))) '#f)))) - (_%K161480161497%_ - (lambda (_%proc161495%_) - (let ((__method170841 + (_%K161639161656%_ + (lambda (_%proc161654%_) + (let ((__method171000 (let () (declare (not safe)) - (__method-ref _%proc161495%_ 'return-type)))) - (if __method170841 - (let ((__tmp171036 - (gxc#extract-keyword-args _%args161463%_))) + (__method-ref _%proc161654%_ 'return-type)))) + (if __method171000 + (let ((__tmp171195 + (gxc#extract-keyword-args _%args161622%_))) (declare (not safe)) - (__method170841 - _%proc161495%_ - _%proc161495%_ - _%ctx161461%_ - _%stx161462%_ - __tmp171036)) + (__method171000 + _%proc161654%_ + _%proc161654%_ + _%ctx161620%_ + _%stx161621%_ + __tmp171195)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161495%_ + _%proc161654%_ 'return-type)) '#!void)))))) - (let ((_%try-match161478161502%_ + (let ((_%try-match161637161661%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161476161487%_ + _%g161635161646%_ 'gxc#!procedure::t)) - (let ((_%proc161500%_ _%g161476161487%_)) - (_%K161480161497%_ _%proc161500%_)) - (_%E161479161491%_))))) + (let ((_%proc161659%_ _%g161635161646%_)) + (_%K161639161656%_ _%proc161659%_)) + (_%E161638161650%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161476161487%_ + _%g161635161646%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161482161517%_ + (let* ((_%e161641161676%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161635161646%_ '1 '#f '#f))) - (_%e161483161520%_ + (_%e161642161679%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161635161646%_ '2 '#f '#f))) - (_%e161484161523%_ + (_%e161643161682%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161635161646%_ '3 '#f '#f))) - (_%e161485161528%_ + (_%e161644161687%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161635161646%_ '4 '#f '#f)))) - (let ((_%keys161526%_ _%e161484161523%_) - (_%main161531%_ _%e161485161528%_)) - (_%K161481161514%_ _%main161531%_ _%keys161526%_))) - (_%try-match161478161502%_))))))) + (let ((_%keys161685%_ _%e161643161682%_) + (_%main161690%_ _%e161644161687%_)) + (_%K161640161673%_ _%main161690%_ _%keys161685%_))) + (_%try-match161637161661%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11876,135 +11876,135 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self154115161263%_ _%ctx161265%_ _%stx161266%_ _%args161267%_) - (let* ((_%self161269%_ _%self154115161263%_) - (_%self161271%_ _%self161269%_) - (_%g161280161291%_ - (let ((__tmp171037 + (lambda (_%self154274161422%_ _%ctx161424%_ _%stx161425%_ _%args161426%_) + (let* ((_%self161428%_ _%self154274161422%_) + (_%self161430%_ _%self161428%_) + (_%g161439161450%_ + (let ((__tmp171196 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161271%_ + _%self161430%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171037))) - (_%E161283161295%_ + (gxc#optimizer-lookup-type __tmp171196))) + (_%E161442161454%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161280161291%_ + _%g161439161450%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161285161318%_ - (lambda (_%main161309%_ _%keys161310%_) - (let ((_%main-type161311161313%_ + (let ((_%K161444161477%_ + (lambda (_%main161468%_ _%keys161469%_) + (let ((_%main-type161470161472%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161309%_)))) - (if _%main-type161311161313%_ - (let* ((_%main-type161316%_ _%main-type161311161313%_) - (__method170842 + (gxc#optimizer-lookup-type _%main161468%_)))) + (if _%main-type161470161472%_ + (let* ((_%main-type161475%_ _%main-type161470161472%_) + (__method171001 (let () (declare (not safe)) (__method-ref - _%main-type161316%_ + _%main-type161475%_ 'apply-return-type)))) - (if __method170842 - (let ((__tmp171038 + (if __method171001 + (let ((__tmp171197 (gxc#extract-keyword-args - _%args161267%_))) + _%args161426%_))) (declare (not safe)) - (__method170842 - _%main-type161316%_ - _%ctx161265%_ - _%stx161266%_ - __tmp171038)) + (__method171001 + _%main-type161475%_ + _%ctx161424%_ + _%stx161425%_ + __tmp171197)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161316%_ + _%main-type161475%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K161284161301%_ - (lambda (_%proc161299%_) - (let ((__method170843 + (_%K161443161460%_ + (lambda (_%proc161458%_) + (let ((__method171002 (let () (declare (not safe)) - (__method-ref _%proc161299%_ 'apply-return-type)))) - (if __method170843 - (let ((__tmp171039 - (gxc#extract-keyword-args _%args161267%_))) + (__method-ref _%proc161458%_ 'apply-return-type)))) + (if __method171002 + (let ((__tmp171198 + (gxc#extract-keyword-args _%args161426%_))) (declare (not safe)) - (__method170843 - _%proc161299%_ - _%proc161299%_ - _%ctx161265%_ - _%stx161266%_ - __tmp171039)) + (__method171002 + _%proc161458%_ + _%proc161458%_ + _%ctx161424%_ + _%stx161425%_ + __tmp171198)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161299%_ + _%proc161458%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match161282161306%_ + (let ((_%try-match161441161465%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161280161291%_ + _%g161439161450%_ 'gxc#!procedure::t)) - (let ((_%proc161304%_ _%g161280161291%_)) - (_%K161284161301%_ _%proc161304%_)) - (_%E161283161295%_))))) + (let ((_%proc161463%_ _%g161439161450%_)) + (_%K161443161460%_ _%proc161463%_)) + (_%E161442161454%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161280161291%_ + _%g161439161450%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161286161321%_ + (let* ((_%e161445161480%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g161439161450%_ '1 '#f '#f))) - (_%e161287161324%_ + (_%e161446161483%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g161439161450%_ '2 '#f '#f))) - (_%e161288161327%_ + (_%e161447161486%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g161439161450%_ '3 '#f '#f))) - (_%e161289161332%_ + (_%e161448161491%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g161439161450%_ '4 '#f '#f)))) - (let ((_%keys161330%_ _%e161288161327%_) - (_%main161335%_ _%e161289161332%_)) - (_%K161285161318%_ _%main161335%_ _%keys161330%_))) - (_%try-match161282161306%_))))))) + (let ((_%keys161489%_ _%e161447161486%_) + (_%main161494%_ _%e161448161491%_)) + (_%K161444161477%_ _%main161494%_ _%keys161489%_))) + (_%try-match161441161465%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12013,788 +12013,788 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args161012%_) - (let _%loop161014%_ ((_%rest161016%_ _%args161012%_) - (_%result161017%_ '())) - (let* ((_%__stx169082169083%_ _%rest161016%_) - (_%g161021161047%_ + (lambda (_%args161171%_) + (let _%loop161173%_ ((_%rest161175%_ _%args161171%_) + (_%result161176%_ '())) + (let* ((_%__stx169241169242%_ _%rest161175%_) + (_%g161180161206%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169082169083%_))))) - (let ((_%__kont169084169085%_ - (lambda (_%L161119%_ _%L161120%_ _%L161121%_) - (_%loop161014%_ - _%L161119%_ - (cons _%L161120%_ _%result161017%_)))) - (_%__kont169086169087%_ - (lambda (_%L161067%_ _%L161068%_) - (_%loop161014%_ - _%L161067%_ - (cons _%L161068%_ _%result161017%_)))) - (_%__kont169088169089%_ - (lambda () (reverse! _%result161017%_)))) - (let ((_%__match169119169120%_ - (lambda (_%e161026161087%_ - _%hd161027161090%_ - _%tl161028161092%_ - _%e161029161095%_ - _%hd161030161098%_ - _%tl161031161100%_ - _%e161032161103%_ - _%hd161033161106%_ - _%tl161034161108%_ - _%e161035161111%_ - _%hd161036161114%_ - _%tl161037161116%_) - (let ((_%L161119%_ _%tl161037161116%_) - (_%L161120%_ _%hd161036161114%_) - (_%L161121%_ _%hd161033161106%_)) + _%__stx169241169242%_))))) + (let ((_%__kont169243169244%_ + (lambda (_%L161278%_ _%L161279%_ _%L161280%_) + (_%loop161173%_ + _%L161278%_ + (cons _%L161279%_ _%result161176%_)))) + (_%__kont169245169246%_ + (lambda (_%L161226%_ _%L161227%_) + (_%loop161173%_ + _%L161226%_ + (cons _%L161227%_ _%result161176%_)))) + (_%__kont169247169248%_ + (lambda () (reverse! _%result161176%_)))) + (let ((_%__match169278169279%_ + (lambda (_%e161185161246%_ + _%hd161186161249%_ + _%tl161187161251%_ + _%e161188161254%_ + _%hd161189161257%_ + _%tl161190161259%_ + _%e161191161262%_ + _%hd161192161265%_ + _%tl161193161267%_ + _%e161194161270%_ + _%hd161195161273%_ + _%tl161196161275%_) + (let ((_%L161278%_ _%tl161196161275%_) + (_%L161279%_ _%hd161195161273%_) + (_%L161280%_ _%hd161192161265%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L161121%_)) - (_%__kont169084169085%_ - _%L161119%_ - _%L161120%_ - _%L161121%_) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))))) + (gx#stx-keyword? _%L161280%_)) + (_%__kont169243169244%_ + _%L161278%_ + _%L161279%_ + _%L161280%_) + (_%__kont169245169246%_ + _%tl161187161251%_ + _%hd161186161249%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169082169083%_)) - (let ((_%e161026161087%_ + (gx#stx-pair? _%__stx169241169242%_)) + (let ((_%e161185161246%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169082169083%_)))) - (let ((_%tl161028161092%_ + (gx#stx-e _%__stx169241169242%_)))) + (let ((_%tl161187161251%_ (let () (declare (not safe)) - (##cdr _%e161026161087%_))) - (_%hd161027161090%_ + (##cdr _%e161185161246%_))) + (_%hd161186161249%_ (let () (declare (not safe)) - (##car _%e161026161087%_)))) + (##car _%e161185161246%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161027161090%_)) - (let ((_%e161029161095%_ + (gx#stx-pair? _%hd161186161249%_)) + (let ((_%e161188161254%_ (let () (declare (not safe)) - (gx#stx-e _%hd161027161090%_)))) - (let ((_%tl161031161100%_ + (gx#stx-e _%hd161186161249%_)))) + (let ((_%tl161190161259%_ (let () (declare (not safe)) - (##cdr _%e161029161095%_))) - (_%hd161030161098%_ + (##cdr _%e161188161254%_))) + (_%hd161189161257%_ (let () (declare (not safe)) - (##car _%e161029161095%_)))) + (##car _%e161188161254%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161030161098%_)) + (gx#identifier? _%hd161189161257%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd161030161098%_)) + _%hd161189161257%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161031161100%_)) - (let ((_%e161032161103%_ + _%tl161190161259%_)) + (let ((_%e161191161262%_ (let () (declare (not safe)) (gx#stx-e - _%tl161031161100%_)))) - (let ((_%tl161034161108%_ + _%tl161190161259%_)))) + (let ((_%tl161193161267%_ (let () (declare (not safe)) - (##cdr _%e161032161103%_))) - (_%hd161033161106%_ + (##cdr _%e161191161262%_))) + (_%hd161192161265%_ (let () (declare (not safe)) - (##car _%e161032161103%_)))) + (##car _%e161191161262%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161034161108%_)) + _%tl161193161267%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161028161092%_)) - (let ((_%e161035161111%_ + _%tl161187161251%_)) + (let ((_%e161194161270%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl161028161092%_)))) - (let ((_%tl161037161116%_ + (gx#stx-e _%tl161187161251%_)))) + (let ((_%tl161196161275%_ (let () (declare (not safe)) - (##cdr _%e161035161111%_))) - (_%hd161036161114%_ + (##cdr _%e161194161270%_))) + (_%hd161195161273%_ (let () (declare (not safe)) - (##car _%e161035161111%_)))) - (_%__match169119169120%_ - _%e161026161087%_ - _%hd161027161090%_ - _%tl161028161092%_ - _%e161029161095%_ - _%hd161030161098%_ - _%tl161031161100%_ - _%e161032161103%_ - _%hd161033161106%_ - _%tl161034161108%_ - _%e161035161111%_ - _%hd161036161114%_ - _%tl161037161116%_))) - (_%__kont169086169087%_ _%tl161028161092%_ _%hd161027161090%_)) + (##car _%e161194161270%_)))) + (_%__match169278169279%_ + _%e161185161246%_ + _%hd161186161249%_ + _%tl161187161251%_ + _%e161188161254%_ + _%hd161189161257%_ + _%tl161190161259%_ + _%e161191161262%_ + _%hd161192161265%_ + _%tl161193161267%_ + _%e161194161270%_ + _%hd161195161273%_ + _%tl161196161275%_))) + (_%__kont169245169246%_ _%tl161187161251%_ _%hd161186161249%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))) - (_%__kont169088169089%_)))))))) + (_%__kont169245169246%_ + _%tl161187161251%_ + _%hd161186161249%_)))) + (_%__kont169245169246%_ + _%tl161187161251%_ + _%hd161186161249%_)) + (_%__kont169245169246%_ + _%tl161187161251%_ + _%hd161186161249%_)) + (_%__kont169245169246%_ + _%tl161187161251%_ + _%hd161186161249%_)))) + (_%__kont169245169246%_ + _%tl161187161251%_ + _%hd161186161249%_)))) + (_%__kont169247169248%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self160944%_ _%args160945%_) - (let* ((_%self160946160954%_ _%self160944%_) - (_%E160948160958%_ + (lambda (_%self161103%_ _%args161104%_) + (let* ((_%self161105161113%_ _%self161103%_) + (_%E161107161117%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self160946160954%_ + _%self161105161113%_ '((!lambda _ _ arity)))) '#!void)) - (_%K160949160998%_ - (lambda (_%arity160961%_) - (let* ((_%arity160962160971%_ _%arity160961%_) - (_%E160965160975%_ + (_%K161108161157%_ + (lambda (_%arity161120%_) + (let* ((_%arity161121161130%_ _%arity161120%_) + (_%E161124161134%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity160962160971%_ + _%arity161121161130%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K160969160995%_ + (let ((_%K161128161154%_ (lambda () - (fx= (length _%args160945%_) _%arity160961%_))) - (_%K160966160981%_ - (lambda (_%arity160979%_) - (fx>= (length _%args160945%_) _%arity160979%_)))) - (let* ((_%__match169138169139%_ - (lambda (_%hd160967160984%_ _%tl160968160986%_) - (let ((_%arity160989%_ _%hd160967160984%_)) - (_%E160965160975%_)))) - (_%try-match160964160991%_ + (fx= (length _%args161104%_) _%arity161120%_))) + (_%K161125161140%_ + (lambda (_%arity161138%_) + (fx>= (length _%args161104%_) _%arity161138%_)))) + (let* ((_%__match169297169298%_ + (lambda (_%hd161126161143%_ _%tl161127161145%_) + (let ((_%arity161148%_ _%hd161126161143%_)) + (_%E161124161134%_)))) + (_%try-match161123161150%_ (lambda () - (if (pair? _%arity160962160971%_) - (let ((_%tl160968160986%_ + (if (pair? _%arity161121161130%_) + (let ((_%tl161127161145%_ (let () (declare (not safe)) - (##cdr _%arity160962160971%_))) - (_%hd160967160984%_ + (##cdr _%arity161121161130%_))) + (_%hd161126161143%_ (let () (declare (not safe)) - (##car _%arity160962160971%_)))) - (if (null? _%tl160968160986%_) - (let ((_%arity160989%_ - _%hd160967160984%_)) - (_%K160966160981%_ - _%arity160989%_)) - (_%__match169138169139%_ - _%hd160967160984%_ - _%tl160968160986%_))) - (_%E160965160975%_))))) - (if (fixnum? _%arity160962160971%_) - (_%K160969160995%_) - (_%try-match160964160991%_)))))))) + (##car _%arity161121161130%_)))) + (if (null? _%tl161127161145%_) + (let ((_%arity161148%_ + _%hd161126161143%_)) + (_%K161125161140%_ + _%arity161148%_)) + (_%__match169297169298%_ + _%hd161126161143%_ + _%tl161127161145%_))) + (_%E161124161134%_))))) + (if (fixnum? _%arity161121161130%_) + (_%K161128161154%_) + (_%try-match161123161150%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self160946160954%_ + _%self161105161113%_ 'gxc#!lambda::t)) - (let* ((_%e160950161001%_ + (let* ((_%e161109161160%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160946160954%_ + _%self161105161113%_ '1 '#f '#f))) - (_%e160951161004%_ + (_%e161110161163%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160946160954%_ + _%self161105161113%_ '2 '#f '#f))) - (_%e160952161007%_ + (_%e161111161166%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160946160954%_ + _%self161105161113%_ '3 '#f '#f))) - (_%arity161010%_ _%e160952161007%_)) - (_%K160949160998%_ _%arity161010%_)) - (_%E160948160958%_))))) + (_%arity161169%_ _%e161111161166%_)) + (_%K161108161157%_ _%arity161169%_)) + (_%E161107161117%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self160876%_ _%args160877%_) - (let* ((_%self160878160886%_ _%self160876%_) - (_%E160880160890%_ + (lambda (_%self161035%_ _%args161036%_) + (let* ((_%self161037161045%_ _%self161035%_) + (_%E161039161049%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self160878160886%_ + _%self161037161045%_ '((!lambda _ _ arity)))) '#!void)) - (_%K160881160930%_ - (lambda (_%arity160893%_) - (let* ((_%arity160894160903%_ _%arity160893%_) - (_%E160897160907%_ + (_%K161040161089%_ + (lambda (_%arity161052%_) + (let* ((_%arity161053161062%_ _%arity161052%_) + (_%E161056161066%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity160894160903%_ + _%arity161053161062%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K160901160927%_ + (let ((_%K161060161086%_ (lambda () - (let ((__tmp171040 (length _%args160877%_))) + (let ((__tmp171199 (length _%args161036%_))) (declare (not safe)) - (##fx>= _%arity160893%_ __tmp171040)))) - (_%K160898160913%_ (lambda (_%arity160911%_) '#t))) - (let* ((_%__match169151169152%_ - (lambda (_%hd160899160916%_ _%tl160900160918%_) - (let ((_%arity160921%_ _%hd160899160916%_)) - (_%E160897160907%_)))) - (_%try-match160896160923%_ + (##fx>= _%arity161052%_ __tmp171199)))) + (_%K161057161072%_ (lambda (_%arity161070%_) '#t))) + (let* ((_%__match169310169311%_ + (lambda (_%hd161058161075%_ _%tl161059161077%_) + (let ((_%arity161080%_ _%hd161058161075%_)) + (_%E161056161066%_)))) + (_%try-match161055161082%_ (lambda () - (if (pair? _%arity160894160903%_) - (let ((_%tl160900160918%_ + (if (pair? _%arity161053161062%_) + (let ((_%tl161059161077%_ (let () (declare (not safe)) - (##cdr _%arity160894160903%_))) - (_%hd160899160916%_ + (##cdr _%arity161053161062%_))) + (_%hd161058161075%_ (let () (declare (not safe)) - (##car _%arity160894160903%_)))) - (if (null? _%tl160900160918%_) - (let ((_%arity160921%_ - _%hd160899160916%_)) - (_%K160898160913%_ - _%arity160921%_)) - (_%__match169151169152%_ - _%hd160899160916%_ - _%tl160900160918%_))) - (_%E160897160907%_))))) - (if (fixnum? _%arity160894160903%_) - (_%K160901160927%_) - (_%try-match160896160923%_)))))))) + (##car _%arity161053161062%_)))) + (if (null? _%tl161059161077%_) + (let ((_%arity161080%_ + _%hd161058161075%_)) + (_%K161057161072%_ + _%arity161080%_)) + (_%__match169310169311%_ + _%hd161058161075%_ + _%tl161059161077%_))) + (_%E161056161066%_))))) + (if (fixnum? _%arity161053161062%_) + (_%K161060161086%_) + (_%try-match161055161082%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self160878160886%_ + _%self161037161045%_ 'gxc#!lambda::t)) - (let* ((_%e160882160933%_ + (let* ((_%e161041161092%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160878160886%_ + _%self161037161045%_ '1 '#f '#f))) - (_%e160883160936%_ + (_%e161042161095%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160878160886%_ + _%self161037161045%_ '2 '#f '#f))) - (_%e160884160939%_ + (_%e161043161098%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160878160886%_ + _%self161037161045%_ '3 '#f '#f))) - (_%arity160942%_ _%e160884160939%_)) - (_%K160881160930%_ _%arity160942%_)) - (_%E160880160890%_))))) + (_%arity161101%_ _%e161043161098%_)) + (_%K161040161089%_ _%arity161101%_)) + (_%E161039161049%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx160763%_ _%stx160764%_) - (let* ((_%g160766160792%_ - (lambda (_%g160767160789%_) + (lambda (_%ctx160922%_ _%stx160923%_) + (let* ((_%g160925160951%_ + (lambda (_%g160926160948%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160767160789%_)))) - (_%g160765160873%_ - (lambda (_%g160767160795%_) + _%g160926160948%_)))) + (_%g160924161032%_ + (lambda (_%g160926160954%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160767160795%_)) - (let ((_%e160770160797%_ + (gx#stx-pair? _%g160926160954%_)) + (let ((_%e160929160956%_ (let () (declare (not safe)) - (gx#stx-e _%g160767160795%_)))) - (let ((_%hd160771160800%_ + (gx#stx-e _%g160926160954%_)))) + (let ((_%hd160930160959%_ (let () (declare (not safe)) - (##car _%e160770160797%_))) - (_%tl160772160802%_ + (##car _%e160929160956%_))) + (_%tl160931160961%_ (let () (declare (not safe)) - (##cdr _%e160770160797%_)))) + (##cdr _%e160929160956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160772160802%_)) - (let ((_%e160773160805%_ + (gx#stx-pair? _%tl160931160961%_)) + (let ((_%e160932160964%_ (let () (declare (not safe)) - (gx#stx-e _%tl160772160802%_)))) - (let ((_%hd160774160808%_ + (gx#stx-e _%tl160931160961%_)))) + (let ((_%hd160933160967%_ (let () (declare (not safe)) - (##car _%e160773160805%_))) - (_%tl160775160810%_ + (##car _%e160932160964%_))) + (_%tl160934160969%_ (let () (declare (not safe)) - (##cdr _%e160773160805%_)))) + (##cdr _%e160932160964%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160775160810%_)) - (let ((_%e160776160813%_ + (gx#stx-pair? _%tl160934160969%_)) + (let ((_%e160935160972%_ (let () (declare (not safe)) - (gx#stx-e _%tl160775160810%_)))) - (let ((_%hd160777160816%_ + (gx#stx-e _%tl160934160969%_)))) + (let ((_%hd160936160975%_ (let () (declare (not safe)) - (##car _%e160776160813%_))) - (_%tl160778160818%_ + (##car _%e160935160972%_))) + (_%tl160937160977%_ (let () (declare (not safe)) - (##cdr _%e160776160813%_)))) + (##cdr _%e160935160972%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160777160816%_)) - (let ((_%e160779160821%_ + _%hd160936160975%_)) + (let ((_%e160938160980%_ (let () (declare (not safe)) (gx#stx-e - _%hd160777160816%_)))) - (let ((_%hd160780160824%_ + _%hd160936160975%_)))) + (let ((_%hd160939160983%_ (let () (declare (not safe)) - (##car _%e160779160821%_))) - (_%tl160781160826%_ + (##car _%e160938160980%_))) + (_%tl160940160985%_ (let () (declare (not safe)) - (##cdr _%e160779160821%_)))) + (##cdr _%e160938160980%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160780160824%_)) + _%hd160939160983%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160780160824%_)) + _%hd160939160983%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl160781160826%_)) - (let ((_%e160782160829%_ + (gx#stx-pair? _%tl160940160985%_)) + (let ((_%e160941160988%_ (let () (declare (not safe)) - (gx#stx-e _%tl160781160826%_)))) - (let ((_%hd160783160832%_ + (gx#stx-e _%tl160940160985%_)))) + (let ((_%hd160942160991%_ (let () (declare (not safe)) - (##car _%e160782160829%_))) - (_%tl160784160834%_ + (##car _%e160941160988%_))) + (_%tl160943160993%_ (let () (declare (not safe)) - (##cdr _%e160782160829%_)))) + (##cdr _%e160941160988%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160784160834%_)) + (gx#stx-null? _%tl160943160993%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160778160818%_)) - (let ((_%e160785160837%_ + (gx#stx-pair? _%tl160937160977%_)) + (let ((_%e160944160996%_ (let () (declare (not safe)) - (gx#stx-e _%tl160778160818%_)))) - (let ((_%hd160786160840%_ + (gx#stx-e _%tl160937160977%_)))) + (let ((_%hd160945160999%_ (let () (declare (not safe)) - (##car _%e160785160837%_))) - (_%tl160787160842%_ + (##car _%e160944160996%_))) + (_%tl160946161001%_ (let () (declare (not safe)) - (##cdr _%e160785160837%_)))) + (##cdr _%e160944160996%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160787160842%_)) - ((lambda (_%L160845%_ _%L160846%_) - (let ((_%interface-type160866160868%_ - (let ((__tmp171041 + (gx#stx-null? _%tl160946161001%_)) + ((lambda (_%L161004%_ _%L161005%_) + (let ((_%interface-type161025161027%_ + (let ((__tmp171200 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160846%_)))) + _%L161005%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171041)))) - (if _%interface-type160866160868%_ - (let ((_%interface-type160871%_ - _%interface-type160866160868%_)) + __tmp171200)))) + (if _%interface-type161025161027%_ + (let ((_%interface-type161030%_ + _%interface-type161025161027%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type160871%_ + _%interface-type161030%_ 'gxc#!interface::t)) - (let ((__tmp171042 + (let ((__tmp171201 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type160871%_ + _%interface-type161030%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160764%_ __tmp171042)) + (gxc#optimizer-resolve-class _%stx160923%_ __tmp171201)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx160764%_ - _%L160846%_ - _%interface-type160871%_)))) + _%stx160923%_ + _%L161005%_ + _%interface-type161030%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd160786160840%_ - _%hd160783160832%_) - (_%g160766160792%_ - _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)) - (_%g160766160792%_ _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)) - (_%g160766160792%_ _%g160767160795%_)) - (_%g160766160792%_ _%g160767160795%_)))) + _%hd160945160999%_ + _%hd160942160991%_) + (_%g160925160951%_ + _%g160926160954%_)))) + (_%g160925160951%_ _%g160926160954%_)) + (_%g160925160951%_ _%g160926160954%_)))) + (_%g160925160951%_ _%g160926160954%_)) + (_%g160925160951%_ _%g160926160954%_)) + (_%g160925160951%_ _%g160926160954%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g160766160792%_ - _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_))))) - (_%g160765160873%_ _%stx160764%_)))) + (_%g160925160951%_ + _%g160926160954%_)))) + (_%g160925160951%_ _%g160926160954%_)))) + (_%g160925160951%_ _%g160926160954%_)))) + (_%g160925160951%_ _%g160926160954%_))))) + (_%g160924161032%_ _%stx160923%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx160553%_ _%stx160554%_) - (letrec ((_%type-e160556%_ - (lambda (_%rator160759%_ _%rator-type160760%_ _%args160761%_) + (lambda (_%ctx160712%_ _%stx160713%_) + (letrec ((_%type-e160715%_ + (lambda (_%rator160918%_ _%rator-type160919%_ _%args160920%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type160760%_ + _%rator-type160919%_ 'gxc#!procedure::t)) - (let ((__method170844 + (let ((__method171003 (let () (declare (not safe)) (__method-ref - _%rator-type160760%_ + _%rator-type160919%_ 'apply-return-type)))) - (if __method170844 + (if __method171003 (let () (declare (not safe)) - (__method170844 - _%rator-type160760%_ - _%ctx160553%_ - _%stx160554%_ - _%args160761%_)) + (__method171003 + _%rator-type160919%_ + _%ctx160712%_ + _%stx160713%_ + _%args160920%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type160760%_ + _%rator-type160919%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx169154169155%_ _%stx160554%_) - (_%g160560160602%_ + (let* ((_%__stx169313169314%_ _%stx160713%_) + (_%g160719160761%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169154169155%_))))) - (let ((_%__kont169156169157%_ - (lambda (_%L160723%_ _%L160724%_ _%L160725%_ _%L160726%_) - (let ((_%rator-type160749160751%_ - (gxc#apply-basic-expression-type _%L160724%_))) - (if _%rator-type160749160751%_ - (let ((_%rator-type160754%_ - _%rator-type160749160751%_)) - (_%type-e160556%_ - _%L160724%_ - _%rator-type160754%_ - (cons _%L160725%_ _%L160723%_))) + _%__stx169313169314%_))))) + (let ((_%__kont169315169316%_ + (lambda (_%L160882%_ _%L160883%_ _%L160884%_ _%L160885%_) + (let ((_%rator-type160908160910%_ + (gxc#apply-basic-expression-type _%L160883%_))) + (if _%rator-type160908160910%_ + (let ((_%rator-type160913%_ + _%rator-type160908160910%_)) + (_%type-e160715%_ + _%L160883%_ + _%rator-type160913%_ + (cons _%L160884%_ _%L160882%_))) '#f)))) - (_%__kont169158169159%_ - (lambda (_%L160638%_ _%L160639%_) - (let ((_%rator-type160655160657%_ - (gxc#apply-basic-expression-type _%L160639%_))) - (if _%rator-type160655160657%_ - (let ((_%rator-type160660%_ - _%rator-type160655160657%_)) - (_%type-e160556%_ - _%L160639%_ - _%rator-type160660%_ - _%L160638%_)) + (_%__kont169317169318%_ + (lambda (_%L160797%_ _%L160798%_) + (let ((_%rator-type160814160816%_ + (gxc#apply-basic-expression-type _%L160798%_))) + (if _%rator-type160814160816%_ + (let ((_%rator-type160819%_ + _%rator-type160814160816%_)) + (_%type-e160715%_ + _%L160798%_ + _%rator-type160819%_ + _%L160797%_)) '#f)))) - (_%__kont169160169161%_ (lambda () '#f))) - (let ((_%__match169209169210%_ - (lambda (_%e160566160667%_ - _%hd160567160670%_ - _%tl160568160672%_ - _%e160569160675%_ - _%hd160570160678%_ - _%tl160571160680%_ - _%e160572160683%_ - _%hd160573160686%_ - _%tl160574160688%_ - _%e160575160691%_ - _%hd160576160694%_ - _%tl160577160696%_ - _%e160578160699%_ - _%hd160579160702%_ - _%tl160580160704%_ - _%e160581160707%_ - _%hd160582160710%_ - _%tl160583160712%_ - _%e160584160715%_ - _%hd160585160718%_ - _%tl160586160720%_) - (let ((_%L160723%_ _%tl160586160720%_) - (_%L160724%_ _%hd160585160718%_) - (_%L160725%_ _%hd160582160710%_) - (_%L160726%_ _%hd160579160702%_)) + (_%__kont169319169320%_ (lambda () '#f))) + (let ((_%__match169368169369%_ + (lambda (_%e160725160826%_ + _%hd160726160829%_ + _%tl160727160831%_ + _%e160728160834%_ + _%hd160729160837%_ + _%tl160730160839%_ + _%e160731160842%_ + _%hd160732160845%_ + _%tl160733160847%_ + _%e160734160850%_ + _%hd160735160853%_ + _%tl160736160855%_ + _%e160737160858%_ + _%hd160738160861%_ + _%tl160739160863%_ + _%e160740160866%_ + _%hd160741160869%_ + _%tl160742160871%_ + _%e160743160874%_ + _%hd160744160877%_ + _%tl160745160879%_) + (let ((_%L160882%_ _%tl160745160879%_) + (_%L160883%_ _%hd160744160877%_) + (_%L160884%_ _%hd160741160869%_) + (_%L160885%_ _%hd160738160861%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L160726%_ + _%L160885%_ 'keyword-dispatch)) - (_%__kont169156169157%_ - _%L160723%_ - _%L160724%_ - _%L160725%_ - _%L160726%_) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))))) + (_%__kont169315169316%_ + _%L160882%_ + _%L160883%_ + _%L160884%_ + _%L160885%_) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169154169155%_)) - (let ((_%e160566160667%_ + (gx#stx-pair? _%__stx169313169314%_)) + (let ((_%e160725160826%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169154169155%_)))) - (let ((_%tl160568160672%_ + (gx#stx-e _%__stx169313169314%_)))) + (let ((_%tl160727160831%_ (let () (declare (not safe)) - (##cdr _%e160566160667%_))) - (_%hd160567160670%_ + (##cdr _%e160725160826%_))) + (_%hd160726160829%_ (let () (declare (not safe)) - (##car _%e160566160667%_)))) + (##car _%e160725160826%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160568160672%_)) - (let ((_%e160569160675%_ + (gx#stx-pair? _%tl160727160831%_)) + (let ((_%e160728160834%_ (let () (declare (not safe)) - (gx#stx-e _%tl160568160672%_)))) - (let ((_%tl160571160680%_ + (gx#stx-e _%tl160727160831%_)))) + (let ((_%tl160730160839%_ (let () (declare (not safe)) - (##cdr _%e160569160675%_))) - (_%hd160570160678%_ + (##cdr _%e160728160834%_))) + (_%hd160729160837%_ (let () (declare (not safe)) - (##car _%e160569160675%_)))) + (##car _%e160728160834%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160571160680%_)) - (let ((_%e160572160683%_ + (gx#stx-pair? _%tl160730160839%_)) + (let ((_%e160731160842%_ (let () (declare (not safe)) - (gx#stx-e _%tl160571160680%_)))) - (let ((_%tl160574160688%_ + (gx#stx-e _%tl160730160839%_)))) + (let ((_%tl160733160847%_ (let () (declare (not safe)) - (##cdr _%e160572160683%_))) - (_%hd160573160686%_ + (##cdr _%e160731160842%_))) + (_%hd160732160845%_ (let () (declare (not safe)) - (##car _%e160572160683%_)))) + (##car _%e160731160842%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160573160686%_)) - (let ((_%e160575160691%_ + _%hd160732160845%_)) + (let ((_%e160734160850%_ (let () (declare (not safe)) (gx#stx-e - _%hd160573160686%_)))) - (let ((_%tl160577160696%_ + _%hd160732160845%_)))) + (let ((_%tl160736160855%_ (let () (declare (not safe)) - (##cdr _%e160575160691%_))) - (_%hd160576160694%_ + (##cdr _%e160734160850%_))) + (_%hd160735160853%_ (let () (declare (not safe)) - (##car _%e160575160691%_)))) + (##car _%e160734160850%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160576160694%_)) + _%hd160735160853%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160576160694%_)) + _%hd160735160853%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160577160696%_)) - (let ((_%e160578160699%_ + _%tl160736160855%_)) + (let ((_%e160737160858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl160577160696%_)))) - (let ((_%tl160580160704%_ + (gx#stx-e _%tl160736160855%_)))) + (let ((_%tl160739160863%_ (let () (declare (not safe)) - (##cdr _%e160578160699%_))) - (_%hd160579160702%_ + (##cdr _%e160737160858%_))) + (_%hd160738160861%_ (let () (declare (not safe)) - (##car _%e160578160699%_)))) + (##car _%e160737160858%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160580160704%_)) + (gx#stx-null? _%tl160739160863%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160574160688%_)) - (let ((_%e160581160707%_ + (gx#stx-pair? _%tl160733160847%_)) + (let ((_%e160740160866%_ (let () (declare (not safe)) - (gx#stx-e _%tl160574160688%_)))) - (let ((_%tl160583160712%_ + (gx#stx-e _%tl160733160847%_)))) + (let ((_%tl160742160871%_ (let () (declare (not safe)) - (##cdr _%e160581160707%_))) - (_%hd160582160710%_ + (##cdr _%e160740160866%_))) + (_%hd160741160869%_ (let () (declare (not safe)) - (##car _%e160581160707%_)))) + (##car _%e160740160866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160583160712%_)) - (let ((_%e160584160715%_ + (gx#stx-pair? _%tl160742160871%_)) + (let ((_%e160743160874%_ (let () (declare (not safe)) (gx#stx-e - _%tl160583160712%_)))) - (let ((_%tl160586160720%_ + _%tl160742160871%_)))) + (let ((_%tl160745160879%_ (let () (declare (not safe)) - (##cdr _%e160584160715%_))) - (_%hd160585160718%_ + (##cdr _%e160743160874%_))) + (_%hd160744160877%_ (let () (declare (not safe)) - (##car _%e160584160715%_)))) - (_%__match169209169210%_ - _%e160566160667%_ - _%hd160567160670%_ - _%tl160568160672%_ - _%e160569160675%_ - _%hd160570160678%_ - _%tl160571160680%_ - _%e160572160683%_ - _%hd160573160686%_ - _%tl160574160688%_ - _%e160575160691%_ - _%hd160576160694%_ - _%tl160577160696%_ - _%e160578160699%_ - _%hd160579160702%_ - _%tl160580160704%_ - _%e160581160707%_ - _%hd160582160710%_ - _%tl160583160712%_ - _%e160584160715%_ - _%hd160585160718%_ - _%tl160586160720%_))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)) - (_%__kont169158169159%_ _%tl160574160688%_ _%hd160573160686%_)) + (##car _%e160743160874%_)))) + (_%__match169368169369%_ + _%e160725160826%_ + _%hd160726160829%_ + _%tl160727160831%_ + _%e160728160834%_ + _%hd160729160837%_ + _%tl160730160839%_ + _%e160731160842%_ + _%hd160732160845%_ + _%tl160733160847%_ + _%e160734160850%_ + _%hd160735160853%_ + _%tl160736160855%_ + _%e160737160858%_ + _%hd160738160861%_ + _%tl160739160863%_ + _%e160740160866%_ + _%hd160741160869%_ + _%tl160742160871%_ + _%e160743160874%_ + _%hd160744160877%_ + _%tl160745160879%_))) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)))) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)))) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)) + (_%__kont169317169318%_ _%tl160733160847%_ _%hd160732160845%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169160169161%_)))) - (_%__kont169160169161%_)))) - (_%__kont169160169161%_)))))))) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)))) + (_%__kont169317169318%_ + _%tl160733160847%_ + _%hd160732160845%_)))) + (_%__kont169319169320%_)))) + (_%__kont169319169320%_)))) + (_%__kont169319169320%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12814,1758 +12814,1758 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self160501%_ _%stx160502%_) - (let* ((_%g160504160517%_ - (lambda (_%g160505160514%_) + (lambda (_%self160660%_ _%stx160661%_) + (let* ((_%g160663160676%_ + (lambda (_%g160664160673%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160505160514%_)))) - (_%g160503160550%_ - (lambda (_%g160505160520%_) + _%g160664160673%_)))) + (_%g160662160709%_ + (lambda (_%g160664160679%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160505160520%_)) - (let ((_%e160507160522%_ + (gx#stx-pair? _%g160664160679%_)) + (let ((_%e160666160681%_ (let () (declare (not safe)) - (gx#stx-e _%g160505160520%_)))) - (let ((_%hd160508160525%_ + (gx#stx-e _%g160664160679%_)))) + (let ((_%hd160667160684%_ (let () (declare (not safe)) - (##car _%e160507160522%_))) - (_%tl160509160527%_ + (##car _%e160666160681%_))) + (_%tl160668160686%_ (let () (declare (not safe)) - (##cdr _%e160507160522%_)))) + (##cdr _%e160666160681%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160509160527%_)) - (let ((_%e160510160530%_ + (gx#stx-pair? _%tl160668160686%_)) + (let ((_%e160669160689%_ (let () (declare (not safe)) - (gx#stx-e _%tl160509160527%_)))) - (let ((_%hd160511160533%_ + (gx#stx-e _%tl160668160686%_)))) + (let ((_%hd160670160692%_ (let () (declare (not safe)) - (##car _%e160510160530%_))) - (_%tl160512160535%_ + (##car _%e160669160689%_))) + (_%tl160671160694%_ (let () (declare (not safe)) - (##cdr _%e160510160530%_)))) + (##cdr _%e160669160689%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160512160535%_)) - ((lambda (_%L160538%_) - (let ((__tmp171043 + (gx#stx-null? _%tl160671160694%_)) + ((lambda (_%L160697%_) + (let ((__tmp171202 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160538%_)))) + _%L160697%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171043))) - _%hd160511160533%_) - (_%g160504160517%_ _%g160505160520%_)))) - (_%g160504160517%_ _%g160505160520%_)))) - (_%g160504160517%_ _%g160505160520%_))))) - (_%g160503160550%_ _%stx160502%_)))) + __tmp171202))) + _%hd160670160692%_) + (_%g160663160676%_ _%g160664160679%_)))) + (_%g160663160676%_ _%g160664160679%_)))) + (_%g160663160676%_ _%g160664160679%_))))) + (_%g160662160709%_ _%stx160661%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self160080%_ _%stx160081%_) - (letrec ((_%type-e160083%_ - (lambda (_%type-K160495%_ _%type-E160496%_) + (lambda (_%self160239%_ _%stx160240%_) + (letrec ((_%type-e160242%_ + (lambda (_%type-K160654%_ _%type-E160655%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E160496%_ + _%type-E160655%_ 'gxc#!abort::t)) - _%type-K160495%_ + _%type-K160654%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K160495%_ + _%type-K160654%_ 'gxc#!abort::t)) - _%type-E160496%_ + _%type-E160655%_ (gxc#greatest-common-type - _%stx160081%_ - _%type-K160495%_ - _%type-E160496%_))))) - (_%basic-type-e160084%_ - (lambda (_%K160489%_ _%E160490%_) - (let ((_%type-K160492%_ - (gxc#apply-basic-expression-type _%K160489%_)) - (_%type-E160493%_ - (gxc#apply-basic-expression-type _%E160490%_))) - (_%type-e160083%_ _%type-K160492%_ _%type-E160493%_))))) - (let* ((_%__stx169230169231%_ _%stx160081%_) - (_%g160088160177%_ + _%stx160240%_ + _%type-K160654%_ + _%type-E160655%_))))) + (_%basic-type-e160243%_ + (lambda (_%K160648%_ _%E160649%_) + (let ((_%type-K160651%_ + (gxc#apply-basic-expression-type _%K160648%_)) + (_%type-E160652%_ + (gxc#apply-basic-expression-type _%E160649%_))) + (_%type-e160242%_ _%type-K160651%_ _%type-E160652%_))))) + (let* ((_%__stx169389169390%_ _%stx160240%_) + (_%g160247160336%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169230169231%_))))) - (let ((_%__kont169232169233%_ - (lambda (_%L160436%_ _%L160437%_ _%L160438%_ _%L160439%_) - (let ((_%$e160471%_ - (let ((__tmp171044 + _%__stx169389169390%_))))) + (let ((_%__kont169391169392%_ + (lambda (_%L160595%_ _%L160596%_ _%L160597%_ _%L160598%_) + (let ((_%$e160630%_ + (let ((__tmp171203 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160439%_)))) + (gxc#identifier-symbol _%L160598%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171044)))) - (if _%$e160471%_ - ((lambda (_%pred-type160474%_) + (gxc#optimizer-lookup-type __tmp171203)))) + (if _%$e160630%_ + ((lambda (_%pred-type160633%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160474%_ + _%pred-type160633%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160474%_ + _%pred-type160633%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K160480%_ - (let ((__tmp171047 + (let* ((_%type-K160639%_ + (let ((__tmp171206 (lambda () (gxc#apply-basic-expression-type - _%L160437%_))) - (__tmp171045 + _%L160596%_))) + (__tmp171204 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L160438%_)) - (let ((__tmp171046 + (gxc#identifier-symbol _%L160597%_)) + (let ((__tmp171205 (##structure-ref - _%pred-type160474%_ + _%pred-type160633%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160081%_ - __tmp171046))) + _%stx160240%_ + __tmp171205))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp171047 + __tmp171206 gxc#current-compile-path-type - __tmp171045))) - (_%type-E160482%_ + __tmp171204))) + (_%type-E160641%_ (gxc#apply-basic-expression-type - _%L160436%_))) - (_%type-e160083%_ - _%type-K160480%_ - _%type-E160482%_)) - (_%basic-type-e160084%_ - _%L160437%_ - _%L160436%_))) - _%$e160471%_) - (_%basic-type-e160084%_ _%L160437%_ _%L160436%_))))) - (_%__kont169234169235%_ - (lambda (_%L160312%_ _%L160313%_ _%L160314%_ _%L160315%_) + _%L160595%_))) + (_%type-e160242%_ + _%type-K160639%_ + _%type-E160641%_)) + (_%basic-type-e160243%_ + _%L160596%_ + _%L160595%_))) + _%$e160630%_) + (_%basic-type-e160243%_ _%L160596%_ _%L160595%_))))) + (_%__kont169393169394%_ + (lambda (_%L160471%_ _%L160472%_ _%L160473%_ _%L160474%_) (gxc#basic-expression-type-if% - _%self160080%_ - (let ((__tmp171048 + _%self160239%_ + (let ((__tmp171207 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L160314%_ - (cons _%L160312%_ - (cons _%L160313%_ '())))))) + (cons _%L160473%_ + (cons _%L160471%_ + (cons _%L160472%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171048 _%stx160081%_))))) - (_%__kont169236169237%_ - (lambda (_%L160214%_ _%L160215%_ _%L160216%_) - (_%basic-type-e160084%_ _%L160215%_ _%L160214%_)))) - (let ((_%__match169391169392%_ - (lambda (_%e160131160240%_ - _%hd160132160243%_ - _%tl160133160245%_ - _%e160134160248%_ - _%hd160135160251%_ - _%tl160136160253%_ - _%e160137160256%_ - _%hd160138160259%_ - _%tl160139160261%_ - _%e160140160264%_ - _%hd160141160267%_ - _%tl160142160269%_ - _%e160143160272%_ - _%hd160144160275%_ - _%tl160145160277%_ - _%e160146160280%_ - _%hd160147160283%_ - _%tl160148160285%_ - _%e160149160288%_ - _%hd160150160291%_ - _%tl160151160293%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) - (let ((_%L160312%_ _%hd160156160307%_) - (_%L160313%_ _%hd160153160299%_) - (_%L160314%_ _%hd160150160291%_) - (_%L160315%_ _%hd160147160283%_)) + (gxc#xform-wrap-source __tmp171207 _%stx160240%_))))) + (_%__kont169395169396%_ + (lambda (_%L160373%_ _%L160374%_ _%L160375%_) + (_%basic-type-e160243%_ _%L160374%_ _%L160373%_)))) + (let ((_%__match169550169551%_ + (lambda (_%e160290160399%_ + _%hd160291160402%_ + _%tl160292160404%_ + _%e160293160407%_ + _%hd160294160410%_ + _%tl160295160412%_ + _%e160296160415%_ + _%hd160297160418%_ + _%tl160298160420%_ + _%e160299160423%_ + _%hd160300160426%_ + _%tl160301160428%_ + _%e160302160431%_ + _%hd160303160434%_ + _%tl160304160436%_ + _%e160305160439%_ + _%hd160306160442%_ + _%tl160307160444%_ + _%e160308160447%_ + _%hd160309160450%_ + _%tl160310160452%_ + _%e160311160455%_ + _%hd160312160458%_ + _%tl160313160460%_ + _%e160314160463%_ + _%hd160315160466%_ + _%tl160316160468%_) + (let ((_%L160471%_ _%hd160315160466%_) + (_%L160472%_ _%hd160312160458%_) + (_%L160473%_ _%hd160309160450%_) + (_%L160474%_ _%hd160306160442%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L160315%_ 'not)) - (_%__kont169234169235%_ - _%L160312%_ - _%L160313%_ - _%L160314%_ - _%L160315%_) - (_%__kont169236169237%_ - _%hd160156160307%_ - _%hd160153160299%_ - _%hd160135160251%_)))))) + (gxc#runtime-identifier=? _%L160474%_ 'not)) + (_%__kont169393169394%_ + _%L160471%_ + _%L160472%_ + _%L160473%_ + _%L160474%_) + (_%__kont169395169396%_ + _%hd160315160466%_ + _%hd160312160458%_ + _%hd160294160410%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169230169231%_)) - (let ((_%e160094160348%_ + (gx#stx-pair? _%__stx169389169390%_)) + (let ((_%e160253160507%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169230169231%_)))) - (let ((_%tl160096160353%_ + (gx#stx-e _%__stx169389169390%_)))) + (let ((_%tl160255160512%_ (let () (declare (not safe)) - (##cdr _%e160094160348%_))) - (_%hd160095160351%_ + (##cdr _%e160253160507%_))) + (_%hd160254160510%_ (let () (declare (not safe)) - (##car _%e160094160348%_)))) + (##car _%e160253160507%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160096160353%_)) - (let ((_%e160097160356%_ + (gx#stx-pair? _%tl160255160512%_)) + (let ((_%e160256160515%_ (let () (declare (not safe)) - (gx#stx-e _%tl160096160353%_)))) - (let ((_%tl160099160361%_ + (gx#stx-e _%tl160255160512%_)))) + (let ((_%tl160258160520%_ (let () (declare (not safe)) - (##cdr _%e160097160356%_))) - (_%hd160098160359%_ + (##cdr _%e160256160515%_))) + (_%hd160257160518%_ (let () (declare (not safe)) - (##car _%e160097160356%_)))) + (##car _%e160256160515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160098160359%_)) - (let ((_%e160100160364%_ + (gx#stx-pair? _%hd160257160518%_)) + (let ((_%e160259160523%_ (let () (declare (not safe)) - (gx#stx-e _%hd160098160359%_)))) - (let ((_%tl160102160369%_ + (gx#stx-e _%hd160257160518%_)))) + (let ((_%tl160261160528%_ (let () (declare (not safe)) - (##cdr _%e160100160364%_))) - (_%hd160101160367%_ + (##cdr _%e160259160523%_))) + (_%hd160260160526%_ (let () (declare (not safe)) - (##car _%e160100160364%_)))) + (##car _%e160259160523%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160101160367%_)) + _%hd160260160526%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd160101160367%_)) + _%hd160260160526%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160102160369%_)) - (let ((_%e160103160372%_ + _%tl160261160528%_)) + (let ((_%e160262160531%_ (let () (declare (not safe)) (gx#stx-e - _%tl160102160369%_)))) - (let ((_%tl160105160377%_ + _%tl160261160528%_)))) + (let ((_%tl160264160536%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160103160372%_))) - (_%hd160104160375%_ - (let () (declare (not safe)) (##car _%e160103160372%_)))) + (##cdr _%e160262160531%_))) + (_%hd160263160534%_ + (let () (declare (not safe)) (##car _%e160262160531%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160104160375%_)) - (let ((_%e160106160380%_ + (gx#stx-pair? _%hd160263160534%_)) + (let ((_%e160265160539%_ (let () (declare (not safe)) - (gx#stx-e _%hd160104160375%_)))) - (let ((_%tl160108160385%_ + (gx#stx-e _%hd160263160534%_)))) + (let ((_%tl160267160544%_ (let () (declare (not safe)) - (##cdr _%e160106160380%_))) - (_%hd160107160383%_ + (##cdr _%e160265160539%_))) + (_%hd160266160542%_ (let () (declare (not safe)) - (##car _%e160106160380%_)))) + (##car _%e160265160539%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160107160383%_)) + (gx#identifier? _%hd160266160542%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160107160383%_)) + (gx#stx-eq? '%#ref _%hd160266160542%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160108160385%_)) - (let ((_%e160109160388%_ + (gx#stx-pair? _%tl160267160544%_)) + (let ((_%e160268160547%_ (let () (declare (not safe)) - (gx#stx-e _%tl160108160385%_)))) - (let ((_%tl160111160393%_ + (gx#stx-e _%tl160267160544%_)))) + (let ((_%tl160270160552%_ (let () (declare (not safe)) - (##cdr _%e160109160388%_))) - (_%hd160110160391%_ + (##cdr _%e160268160547%_))) + (_%hd160269160550%_ (let () (declare (not safe)) - (##car _%e160109160388%_)))) + (##car _%e160268160547%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160111160393%_)) + _%tl160270160552%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160105160377%_)) - (let ((_%e160112160396%_ + _%tl160264160536%_)) + (let ((_%e160271160555%_ (let () (declare (not safe)) (gx#stx-e - _%tl160105160377%_)))) - (let ((_%tl160114160401%_ + _%tl160264160536%_)))) + (let ((_%tl160273160560%_ (let () (declare (not safe)) - (##cdr _%e160112160396%_))) - (_%hd160113160399%_ + (##cdr _%e160271160555%_))) + (_%hd160272160558%_ (let () (declare (not safe)) - (##car _%e160112160396%_)))) + (##car _%e160271160555%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160113160399%_)) - (let ((_%e160115160404%_ + _%hd160272160558%_)) + (let ((_%e160274160563%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd160113160399%_)))) - (let ((_%tl160117160409%_ + (gx#stx-e _%hd160272160558%_)))) + (let ((_%tl160276160568%_ (let () (declare (not safe)) - (##cdr _%e160115160404%_))) - (_%hd160116160407%_ + (##cdr _%e160274160563%_))) + (_%hd160275160566%_ (let () (declare (not safe)) - (##car _%e160115160404%_)))) + (##car _%e160274160563%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160116160407%_)) + (gx#identifier? _%hd160275160566%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160116160407%_)) + (gx#stx-eq? '%#ref _%hd160275160566%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160117160409%_)) - (let ((_%e160118160412%_ + (gx#stx-pair? _%tl160276160568%_)) + (let ((_%e160277160571%_ (let () (declare (not safe)) - (gx#stx-e _%tl160117160409%_)))) - (let ((_%tl160120160417%_ + (gx#stx-e _%tl160276160568%_)))) + (let ((_%tl160279160576%_ (let () (declare (not safe)) - (##cdr _%e160118160412%_))) - (_%hd160119160415%_ + (##cdr _%e160277160571%_))) + (_%hd160278160574%_ (let () (declare (not safe)) - (##car _%e160118160412%_)))) + (##car _%e160277160571%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160120160417%_)) + (gx#stx-null? _%tl160279160576%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160114160401%_)) + _%tl160273160560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160121160420%_ + _%tl160258160520%_)) + (let ((_%e160280160579%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160123160425%_ + _%tl160258160520%_)))) + (let ((_%tl160282160584%_ (let () (declare (not safe)) - (##cdr _%e160121160420%_))) - (_%hd160122160423%_ + (##cdr _%e160280160579%_))) + (_%hd160281160582%_ (let () (declare (not safe)) - (##car _%e160121160420%_)))) + (##car _%e160280160579%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160123160425%_)) - (let ((_%e160124160428%_ + _%tl160282160584%_)) + (let ((_%e160283160587%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160123160425%_)))) - (let ((_%tl160126160433%_ + (gx#stx-e _%tl160282160584%_)))) + (let ((_%tl160285160592%_ (let () (declare (not safe)) - (##cdr _%e160124160428%_))) - (_%hd160125160431%_ + (##cdr _%e160283160587%_))) + (_%hd160284160590%_ (let () (declare (not safe)) - (##car _%e160124160428%_)))) + (##car _%e160283160587%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160126160433%_)) - (_%__kont169232169233%_ - _%hd160125160431%_ - _%hd160122160423%_ - _%hd160119160415%_ - _%hd160110160391%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl160285160592%_)) + (_%__kont169391169392%_ + _%hd160284160590%_ + _%hd160281160582%_ + _%hd160278160574%_ + _%hd160269160550%_) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g160247160336%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g160247160336%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160114160401%_)) + _%tl160273160560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160152160296%_ + _%tl160258160520%_)) + (let ((_%e160311160455%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + _%tl160258160520%_)))) + (let ((_%tl160313160460%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e160311160455%_))) + (_%hd160312160458%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e160311160455%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160154160301%_)) - (let ((_%e160155160304%_ + _%tl160313160460%_)) + (let ((_%e160314160463%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + (gx#stx-e _%tl160313160460%_)))) + (let ((_%tl160316160468%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e160314160463%_))) + (_%hd160315160466%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e160314160463%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl160316160468%_)) + (_%__match169550169551%_ + _%e160253160507%_ + _%hd160254160510%_ + _%tl160255160512%_ + _%e160256160515%_ + _%hd160257160518%_ + _%tl160258160520%_ + _%e160259160523%_ + _%hd160260160526%_ + _%tl160261160528%_ + _%e160262160531%_ + _%hd160263160534%_ + _%tl160264160536%_ + _%e160265160539%_ + _%hd160266160542%_ + _%tl160267160544%_ + _%e160268160547%_ + _%hd160269160550%_ + _%tl160270160552%_ + _%e160271160555%_ + _%hd160272160558%_ + _%tl160273160560%_ + _%e160311160455%_ + _%hd160312160458%_ + _%tl160313160460%_ + _%e160314160463%_ + _%hd160315160466%_ + _%tl160316160468%_) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g160247160336%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_))))))) + (_%g160247160336%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl160273160560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160311160455%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + _%tl160258160520%_)))) + (let ((_%tl160313160460%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e160311160455%_))) + (_%hd160312160458%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e160311160455%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160154160301%_)) - (let ((_%e160155160304%_ + _%tl160313160460%_)) + (let ((_%e160314160463%_ (let () (declare (not safe)) (gx#stx-e - _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + _%tl160313160460%_)))) + (let ((_%tl160316160468%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e160314160463%_))) + (_%hd160315160466%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e160314160463%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + _%tl160316160468%_)) + (_%__match169550169551%_ + _%e160253160507%_ + _%hd160254160510%_ + _%tl160255160512%_ + _%e160256160515%_ + _%hd160257160518%_ + _%tl160258160520%_ + _%e160259160523%_ + _%hd160260160526%_ + _%tl160261160528%_ + _%e160262160531%_ + _%hd160263160534%_ + _%tl160264160536%_ + _%e160265160539%_ + _%hd160266160542%_ + _%tl160267160544%_ + _%e160268160547%_ + _%hd160269160550%_ + _%tl160270160552%_ + _%e160271160555%_ + _%hd160272160558%_ + _%tl160273160560%_ + _%e160311160455%_ + _%hd160312160458%_ + _%tl160313160460%_ + _%e160314160463%_ + _%hd160315160466%_ + _%tl160316160468%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g160247160336%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl160273160560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160311160455%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160313160460%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e160311160455%_))) + (_%hd160312160458%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e160311160455%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160154160301%_)) - (let ((_%e160155160304%_ + _%tl160313160460%_)) + (let ((_%e160314160463%_ (let () (declare (not safe)) (gx#stx-e - _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + _%tl160313160460%_)))) + (let ((_%tl160316160468%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e160314160463%_))) + (_%hd160315160466%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e160314160463%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + _%tl160316160468%_)) + (_%__match169550169551%_ + _%e160253160507%_ + _%hd160254160510%_ + _%tl160255160512%_ + _%e160256160515%_ + _%hd160257160518%_ + _%tl160258160520%_ + _%e160259160523%_ + _%hd160260160526%_ + _%tl160261160528%_ + _%e160262160531%_ + _%hd160263160534%_ + _%tl160264160536%_ + _%e160265160539%_ + _%hd160266160542%_ + _%tl160267160544%_ + _%e160268160547%_ + _%hd160269160550%_ + _%tl160270160552%_ + _%e160271160555%_ + _%hd160272160558%_ + _%tl160273160560%_ + _%e160311160455%_ + _%hd160312160458%_ + _%tl160313160460%_ + _%e160314160463%_ + _%hd160315160466%_ + _%tl160316160468%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g160247160336%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl160273160560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160311160455%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160313160460%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e160311160455%_))) + (_%hd160312160458%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e160311160455%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160154160301%_)) - (let ((_%e160155160304%_ + (gx#stx-pair? _%tl160313160460%_)) + (let ((_%e160314160463%_ (let () (declare (not safe)) (gx#stx-e - _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + _%tl160313160460%_)))) + (let ((_%tl160316160468%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e160314160463%_))) + (_%hd160315160466%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e160314160463%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + _%tl160316160468%_)) + (_%__match169550169551%_ + _%e160253160507%_ + _%hd160254160510%_ + _%tl160255160512%_ + _%e160256160515%_ + _%hd160257160518%_ + _%tl160258160520%_ + _%e160259160523%_ + _%hd160260160526%_ + _%tl160261160528%_ + _%e160262160531%_ + _%hd160263160534%_ + _%tl160264160536%_ + _%e160265160539%_ + _%hd160266160542%_ + _%tl160267160544%_ + _%e160268160547%_ + _%hd160269160550%_ + _%tl160270160552%_ + _%e160271160555%_ + _%hd160272160558%_ + _%tl160273160560%_ + _%e160311160455%_ + _%hd160312160458%_ + _%tl160313160460%_ + _%e160314160463%_ + _%hd160315160466%_ + _%tl160316160468%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g160247160336%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))))) + (_%g160247160336%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl160273160560%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160311160455%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160313160460%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e160311160455%_))) + (_%hd160312160458%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e160311160455%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160154160301%_)) - (let ((_%e160155160304%_ + (gx#stx-pair? _%tl160313160460%_)) + (let ((_%e160314160463%_ (let () (declare (not safe)) - (gx#stx-e _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + (gx#stx-e _%tl160313160460%_)))) + (let ((_%tl160316160468%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e160314160463%_))) + (_%hd160315160466%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e160314160463%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + (gx#stx-null? _%tl160316160468%_)) + (_%__match169550169551%_ + _%e160253160507%_ + _%hd160254160510%_ + _%tl160255160512%_ + _%e160256160515%_ + _%hd160257160518%_ + _%tl160258160520%_ + _%e160259160523%_ + _%hd160260160526%_ + _%tl160261160528%_ + _%e160262160531%_ + _%hd160263160534%_ + _%tl160264160536%_ + _%e160265160539%_ + _%hd160266160542%_ + _%tl160267160544%_ + _%e160268160547%_ + _%hd160269160550%_ + _%tl160270160552%_ + _%e160271160555%_ + _%hd160272160558%_ + _%tl160273160560%_ + _%e160311160455%_ + _%hd160312160458%_ + _%tl160313160460%_ + _%e160314160463%_ + _%hd160315160466%_ + _%tl160316160468%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ - (let () (declare (not safe)) (##car _%e160167160198%_)))) + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ + (let () (declare (not safe)) (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g160247160336%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g160247160336%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g160247160336%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g160247160336%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g160247160336%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_)))))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_)))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ - (let () (declare (not safe)) (##car _%e160167160198%_)))) + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ + (let () (declare (not safe)) (##car _%e160326160357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g160247160336%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) + (let () (declare (not safe)) (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g160247160336%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl160258160520%_)) + (let ((_%e160326160357%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl160258160520%_)))) + (let ((_%tl160328160362%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e160326160357%_))) + (_%hd160327160360%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e160326160357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl160328160362%_)) + (let ((_%e160329160365%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl160328160362%_)))) + (let ((_%tl160331160370%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e160329160365%_))) + (_%hd160330160368%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e160329160365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl160331160370%_)) + (_%__kont169395169396%_ + _%hd160330160368%_ + _%hd160327160360%_ + _%hd160257160518%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g160247160336%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g160247160336%_)))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))))))) + (_%g160247160336%_))))) + (let () (declare (not safe)) (_%g160247160336%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx159936%_ _%type-a159937%_ _%type-b159938%_) - (letrec ((_%common-e159940%_ - (lambda (_%left160040%_ _%right160041%_) - (let _%loop160043%_ ((_%rest160045%_ _%left160040%_)) - (let* ((_%rest160046160054%_ _%rest160045%_) - (_%else160048160062%_ + (lambda (_%stx160095%_ _%type-a160096%_ _%type-b160097%_) + (letrec ((_%common-e160099%_ + (lambda (_%left160199%_ _%right160200%_) + (let _%loop160202%_ ((_%rest160204%_ _%left160199%_)) + (let* ((_%rest160205160213%_ _%rest160204%_) + (_%else160207160221%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ + _%stx160095%_ 't::t)))) - (_%K160050160068%_ - (lambda (_%rest160065%_ _%klass-name160066%_) - (if (memq _%klass-name160066%_ _%right160041%_) + (_%K160209160227%_ + (lambda (_%rest160224%_ _%klass-name160225%_) + (if (memq _%klass-name160225%_ _%right160200%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%klass-name160066%_)) - (_%loop160043%_ _%rest160065%_))))) - (if (pair? _%rest160046160054%_) - (let ((_%hd160051160071%_ + _%stx160095%_ + _%klass-name160225%_)) + (_%loop160202%_ _%rest160224%_))))) + (if (pair? _%rest160205160213%_) + (let ((_%hd160210160230%_ (let () (declare (not safe)) - (##car _%rest160046160054%_))) - (_%tl160052160073%_ + (##car _%rest160205160213%_))) + (_%tl160211160232%_ (let () (declare (not safe)) - (##cdr _%rest160046160054%_)))) - (let* ((_%klass-name160076%_ _%hd160051160071%_) - (_%rest160078%_ _%tl160052160073%_)) - (_%K160050160068%_ - _%rest160078%_ - _%klass-name160076%_))) - (_%else160048160062%_)))))) - (_%common-tail159941%_ - (lambda (_%precedence-list-a159960%_ - _%precedence-list-b159961%_) - (let* ((_%rev-precedence-list-a159963%_ - (reverse _%precedence-list-a159960%_)) - (_%rev-precedence-list-b159965%_ - (reverse _%precedence-list-b159961%_))) - (let _%loop159968%_ ((_%rest-a159970%_ - _%rev-precedence-list-a159963%_) - (_%rest-b159971%_ - _%rev-precedence-list-b159965%_) - (_%result159972%_ '#f)) - (let* ((_%rest-a159973159981%_ _%rest-a159970%_) - (_%else159975159989%_ + (##cdr _%rest160205160213%_)))) + (let* ((_%klass-name160235%_ _%hd160210160230%_) + (_%rest160237%_ _%tl160211160232%_)) + (_%K160209160227%_ + _%rest160237%_ + _%klass-name160235%_))) + (_%else160207160221%_)))))) + (_%common-tail160100%_ + (lambda (_%precedence-list-a160119%_ + _%precedence-list-b160120%_) + (let* ((_%rev-precedence-list-a160122%_ + (reverse _%precedence-list-a160119%_)) + (_%rev-precedence-list-b160124%_ + (reverse _%precedence-list-b160120%_))) + (let _%loop160127%_ ((_%rest-a160129%_ + _%rev-precedence-list-a160122%_) + (_%rest-b160130%_ + _%rev-precedence-list-b160124%_) + (_%result160131%_ '#f)) + (let* ((_%rest-a160132160140%_ _%rest-a160129%_) + (_%else160134160148%_ (lambda () - (if _%result159972%_ + (if _%result160131%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%result159972%_)) + _%stx160095%_ + _%result160131%_)) '#f))) - (_%K159977160028%_ - (lambda (_%rest-a159992%_ _%super-a159993%_) - (let* ((_%rest-b159994160002%_ - _%rest-b159971%_) - (_%else159996160010%_ + (_%K160136160187%_ + (lambda (_%rest-a160151%_ _%super-a160152%_) + (let* ((_%rest-b160153160161%_ + _%rest-b160130%_) + (_%else160155160169%_ (lambda () - (if _%result159972%_ + (if _%result160131%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%result159972%_)) + _%stx160095%_ + _%result160131%_)) '#f))) - (_%K159998160016%_ - (lambda (_%rest-b160013%_ - _%super-b160014%_) - (if (eq? _%super-a159993%_ - _%super-b160014%_) - (_%loop159968%_ - _%rest-a159992%_ - _%rest-b160013%_ - _%super-a159993%_) - (if _%result159972%_ + (_%K160157160175%_ + (lambda (_%rest-b160172%_ + _%super-b160173%_) + (if (eq? _%super-a160152%_ + _%super-b160173%_) + (_%loop160127%_ + _%rest-a160151%_ + _%rest-b160172%_ + _%super-a160152%_) + (if _%result160131%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%result159972%_)) + _%stx160095%_ + _%result160131%_)) '#f))))) - (if (pair? _%rest-b159994160002%_) - (let ((_%hd159999160019%_ + (if (pair? _%rest-b160153160161%_) + (let ((_%hd160158160178%_ (let () (declare (not safe)) - (##car _%rest-b159994160002%_))) - (_%tl160000160021%_ + (##car _%rest-b160153160161%_))) + (_%tl160159160180%_ (let () (declare (not safe)) - (##cdr _%rest-b159994160002%_)))) - (let* ((_%super-b160024%_ - _%hd159999160019%_) - (_%rest-b160026%_ - _%tl160000160021%_)) - (_%K159998160016%_ - _%rest-b160026%_ - _%super-b160024%_))) - (_%else159996160010%_)))))) - (if (pair? _%rest-a159973159981%_) - (let ((_%hd159978160031%_ + (##cdr _%rest-b160153160161%_)))) + (let* ((_%super-b160183%_ + _%hd160158160178%_) + (_%rest-b160185%_ + _%tl160159160180%_)) + (_%K160157160175%_ + _%rest-b160185%_ + _%super-b160183%_))) + (_%else160155160169%_)))))) + (if (pair? _%rest-a160132160140%_) + (let ((_%hd160137160190%_ (let () (declare (not safe)) - (##car _%rest-a159973159981%_))) - (_%tl159979160033%_ + (##car _%rest-a160132160140%_))) + (_%tl160138160192%_ (let () (declare (not safe)) - (##cdr _%rest-a159973159981%_)))) - (let* ((_%super-a160036%_ _%hd159978160031%_) - (_%rest-a160038%_ _%tl159979160033%_)) - (_%K159977160028%_ - _%rest-a160038%_ - _%super-a160036%_))) - (_%else159975159989%_)))))))) - (if (or (not _%type-a159937%_) (not _%type-b159938%_)) + (##cdr _%rest-a160132160140%_)))) + (let* ((_%super-a160195%_ _%hd160137160190%_) + (_%rest-a160197%_ _%tl160138160192%_)) + (_%K160136160187%_ + _%rest-a160197%_ + _%super-a160195%_))) + (_%else160134160148%_)))))))) + (if (or (not _%type-a160096%_) (not _%type-b160097%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159936%_ 't::t)) + (gxc#optimizer-resolve-class _%stx160095%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a159937%_ _%type-b159938%_)) - _%type-b159938%_ + (gxc#!type-subtype? _%type-a160096%_ _%type-b160097%_)) + _%type-b160097%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b159938%_ _%type-a159937%_)) - _%type-a159937%_ + (gxc#!type-subtype? _%type-b160097%_ _%type-a160096%_)) + _%type-a160096%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a159937%_ + _%type-a160096%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b159938%_ + _%type-b160097%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a159950%_ + (let* ((_%precedence-list-a160109%_ (##structure-ref - _%type-a159937%_ + _%type-a160096%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b159952%_ + (_%precedence-list-b160111%_ (##structure-ref - _%type-b159938%_ + _%type-b160097%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a159950%_) - (length _%precedence-list-b159952%_)) - (_%common-e159940%_ - _%precedence-list-b159952%_ - _%precedence-list-a159950%_) - (if (< (length _%precedence-list-a159950%_) - (length _%precedence-list-b159952%_)) - (_%common-e159940%_ - _%precedence-list-a159950%_ - _%precedence-list-b159952%_) - (_%common-tail159941%_ - _%precedence-list-a159950%_ - _%precedence-list-b159952%_)))) + (if (> (length _%precedence-list-a160109%_) + (length _%precedence-list-b160111%_)) + (_%common-e160099%_ + _%precedence-list-b160111%_ + _%precedence-list-a160109%_) + (if (< (length _%precedence-list-a160109%_) + (length _%precedence-list-b160111%_)) + (_%common-e160099%_ + _%precedence-list-a160109%_ + _%precedence-list-b160111%_) + (_%common-tail160100%_ + _%precedence-list-a160109%_ + _%precedence-list-b160111%_)))) (if (and (eq? (##structure-ref - _%type-a159937%_ + _%type-a160096%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b159938%_ + _%type-b160097%_ '1 gxc#!type::t '#f) @@ -14573,3419 +14573,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ + _%stx160095%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self159848%_ _%stx159849%_) - (let* ((_%g159851159864%_ - (lambda (_%g159852159861%_) + (lambda (_%self160007%_ _%stx160008%_) + (let* ((_%g160010160023%_ + (lambda (_%g160011160020%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159852159861%_)))) - (_%g159850159933%_ - (lambda (_%g159852159867%_) + _%g160011160020%_)))) + (_%g160009160092%_ + (lambda (_%g160011160026%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159852159867%_)) - (let ((_%e159854159869%_ + (gx#stx-pair? _%g160011160026%_)) + (let ((_%e160013160028%_ (let () (declare (not safe)) - (gx#stx-e _%g159852159867%_)))) - (let ((_%hd159855159872%_ + (gx#stx-e _%g160011160026%_)))) + (let ((_%hd160014160031%_ (let () (declare (not safe)) - (##car _%e159854159869%_))) - (_%tl159856159874%_ + (##car _%e160013160028%_))) + (_%tl160015160033%_ (let () (declare (not safe)) - (##cdr _%e159854159869%_)))) + (##cdr _%e160013160028%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159856159874%_)) - (let ((_%e159857159877%_ + (gx#stx-pair? _%tl160015160033%_)) + (let ((_%e160016160036%_ (let () (declare (not safe)) - (gx#stx-e _%tl159856159874%_)))) - (let ((_%hd159858159880%_ + (gx#stx-e _%tl160015160033%_)))) + (let ((_%hd160017160039%_ (let () (declare (not safe)) - (##car _%e159857159877%_))) - (_%tl159859159882%_ + (##car _%e160016160036%_))) + (_%tl160018160041%_ (let () (declare (not safe)) - (##cdr _%e159857159877%_)))) + (##cdr _%e160016160036%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159859159882%_)) - ((lambda (_%L159885%_) - (let ((_%obj159897%_ + (gx#stx-null? _%tl160018160041%_)) + ((lambda (_%L160044%_) + (let ((_%obj160056%_ (let () (declare (not safe)) - (gx#stx-e _%L159885%_)))) + (gx#stx-e _%L160044%_)))) (if (let () (declare (not safe)) - (immediate? _%obj159897%_)) - (if (char? _%obj159897%_) + (immediate? _%obj160056%_)) + (if (char? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'char::t)) - (if (eq? _%obj159897%_ '#t) + (if (eq? _%obj160056%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'true::t)) - (if (not _%obj159897%_) + (if (not _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'false::t)) - (if (eq? _%obj159897%_ + (if (eq? _%obj160056%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159849%_ 'void::t)) - (if (eof-object? _%obj159897%_) + (gxc#optimizer-resolve-class _%stx160008%_ 'void::t)) + (if (eof-object? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'eof::t)) - (if (fixnum? _%obj159897%_) + (if (fixnum? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'fixnum::t)) - (if (null? _%obj159897%_) + (if (null? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj159897%_) - (if (flonum? _%obj159897%_) + (if (number? _%obj160056%_) + (if (flonum? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj159897%_)) + _%obj160056%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj159897%_)) + (##ratnum? _%obj160056%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj159897%_)) + (##cpxnum? _%obj160056%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj159897%_) + (if (symbol? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'symbol::t)) (if (keyword? - _%obj159897%_) + _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'keyword::t)) - (if (pair? _%obj159897%_) + (if (pair? _%obj160056%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159849%_ 'pair::t)) - (if (sequence? _%obj159897%_) - (if (vector? _%obj159897%_) + (gxc#optimizer-resolve-class _%stx160008%_ 'pair::t)) + (if (sequence? _%obj160056%_) + (if (vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'vector::t)) - (if (string? _%obj159897%_) + (if (string? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'string::t)) - (if (u8vector? _%obj159897%_) + (if (u8vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'u8vector::t)) - (if (s8vector? _%obj159897%_) + (if (s8vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 's8vector::t)) - (if (u16vector? _%obj159897%_) + (if (u16vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'u16vector::t)) - (if (s16vector? _%obj159897%_) + (if (s16vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 's16vector::t)) (if (u32vector? - _%obj159897%_) + _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'u32vector::t)) (if (s32vector? - _%obj159897%_) + _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 's32vector::t)) (if (u64vector? - _%obj159897%_) + _%obj160056%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'u64vector::t)) - (if (s64vector? _%obj159897%_) + (if (s64vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 's64vector::t)) - (if (f32vector? _%obj159897%_) + (if (f32vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'f32vector::t)) - (if (f64vector? _%obj159897%_) + (if (f64vector? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj159897%_) + (if (box? _%obj160056%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx160008%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd159858159880%_) - (_%g159851159864%_ _%g159852159867%_)))) - (_%g159851159864%_ _%g159852159867%_)))) - (_%g159851159864%_ _%g159852159867%_))))) - (_%g159850159933%_ _%stx159849%_)))) + _%hd160017160039%_) + (_%g160010160023%_ _%g160011160026%_)))) + (_%g160010160023%_ _%g160011160026%_)))) + (_%g160010160023%_ _%g160011160026%_))))) + (_%g160009160092%_ _%stx160008%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form159082%_) - (let* ((_%__stx169420169421%_ _%form159082%_) - (_%g159087159244%_ + (lambda (_%form159241%_) + (let* ((_%__stx169579169580%_ _%form159241%_) + (_%g159246159403%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169420169421%_))))) - (let ((_%__kont169422169423%_ - (lambda (_%L159768%_ _%L159769%_ _%L159770%_) '#t)) - (_%__kont169428169429%_ - (lambda (_%L159556%_ - _%L159557%_ - _%L159558%_ - _%L159559%_ - _%L159560%_ - _%L159561%_) + _%__stx169579169580%_))))) + (let ((_%__kont169581169582%_ + (lambda (_%L159927%_ _%L159928%_ _%L159929%_) '#t)) + (_%__kont169587169588%_ + (lambda (_%L159715%_ + _%L159716%_ + _%L159717%_ + _%L159718%_ + _%L159719%_ + _%L159720%_) '#t)) - (_%__kont169434169435%_ - (lambda (_%L159352%_ _%L159353%_ _%L159354%_ _%L159355%_) + (_%__kont169593169594%_ + (lambda (_%L159511%_ _%L159512%_ _%L159513%_ _%L159514%_) '#t)) - (_%__kont169436169437%_ (lambda () '#f))) - (let* ((_%__match169561169562%_ - (lambda (_%e159204159256%_ - _%hd159205159259%_ - _%tl159206159261%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_ - _%e159231159328%_ - _%hd159232159331%_ - _%tl159233159333%_ - _%e159234159336%_ - _%hd159235159339%_ - _%tl159236159341%_ - _%e159237159344%_ - _%hd159238159347%_ - _%tl159239159349%_) - (let ((_%L159352%_ _%hd159238159347%_) - (_%L159353%_ _%hd159229159323%_) - (_%L159354%_ _%hd159220159299%_) - (_%L159355%_ _%hd159205159259%_)) + (_%__kont169595169596%_ (lambda () '#f))) + (let* ((_%__match169720169721%_ + (lambda (_%e159363159415%_ + _%hd159364159418%_ + _%tl159365159420%_ + _%e159366159423%_ + _%hd159367159426%_ + _%tl159368159428%_ + _%e159369159431%_ + _%hd159370159434%_ + _%tl159371159436%_ + _%e159372159439%_ + _%hd159373159442%_ + _%tl159374159444%_ + _%e159375159447%_ + _%hd159376159450%_ + _%tl159377159452%_ + _%e159378159455%_ + _%hd159379159458%_ + _%tl159380159460%_ + _%e159381159463%_ + _%hd159382159466%_ + _%tl159383159468%_ + _%e159384159471%_ + _%hd159385159474%_ + _%tl159386159476%_ + _%e159387159479%_ + _%hd159388159482%_ + _%tl159389159484%_ + _%e159390159487%_ + _%hd159391159490%_ + _%tl159392159492%_ + _%e159393159495%_ + _%hd159394159498%_ + _%tl159395159500%_ + _%e159396159503%_ + _%hd159397159506%_ + _%tl159398159508%_) + (let ((_%L159511%_ _%hd159397159506%_) + (_%L159512%_ _%hd159388159482%_) + (_%L159513%_ _%hd159379159458%_) + (_%L159514%_ _%hd159364159418%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L159355%_)) + (gx#identifier? _%L159514%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L159354%_ + _%L159513%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L159355%_ - _%L159352%_)) + _%L159514%_ + _%L159511%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L159353%_ - _%L159355%_)))) - (_%__kont169434169435%_ - _%L159352%_ - _%L159353%_ - _%L159354%_ - _%L159355%_) - (_%__kont169436169437%_))))) - (_%__match169533169534%_ - (lambda (_%e159204159256%_ - _%hd159205159259%_ - _%tl159206159261%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_) + _%L159512%_ + _%L159514%_)))) + (_%__kont169593169594%_ + _%L159511%_ + _%L159512%_ + _%L159513%_ + _%L159514%_) + (_%__kont169595169596%_))))) + (_%__match169692169693%_ + (lambda (_%e159363159415%_ + _%hd159364159418%_ + _%tl159365159420%_ + _%e159366159423%_ + _%hd159367159426%_ + _%tl159368159428%_ + _%e159369159431%_ + _%hd159370159434%_ + _%tl159371159436%_ + _%e159372159439%_ + _%hd159373159442%_ + _%tl159374159444%_ + _%e159375159447%_ + _%hd159376159450%_ + _%tl159377159452%_ + _%e159378159455%_ + _%hd159379159458%_ + _%tl159380159460%_ + _%e159381159463%_ + _%hd159382159466%_ + _%tl159383159468%_ + _%e159384159471%_ + _%hd159385159474%_ + _%tl159386159476%_ + _%e159387159479%_ + _%hd159388159482%_ + _%tl159389159484%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159224159309%_)) - (let ((_%e159231159328%_ + (gx#stx-pair? _%tl159383159468%_)) + (let ((_%e159390159487%_ (let () (declare (not safe)) - (gx#stx-e _%tl159224159309%_)))) - (let ((_%tl159233159333%_ + (gx#stx-e _%tl159383159468%_)))) + (let ((_%tl159392159492%_ (let () (declare (not safe)) - (##cdr _%e159231159328%_))) - (_%hd159232159331%_ + (##cdr _%e159390159487%_))) + (_%hd159391159490%_ (let () (declare (not safe)) - (##car _%e159231159328%_)))) + (##car _%e159390159487%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159232159331%_)) - (let ((_%e159234159336%_ + (gx#stx-pair? _%hd159391159490%_)) + (let ((_%e159393159495%_ (let () (declare (not safe)) - (gx#stx-e _%hd159232159331%_)))) - (let ((_%tl159236159341%_ + (gx#stx-e _%hd159391159490%_)))) + (let ((_%tl159395159500%_ (let () (declare (not safe)) - (##cdr _%e159234159336%_))) - (_%hd159235159339%_ + (##cdr _%e159393159495%_))) + (_%hd159394159498%_ (let () (declare (not safe)) - (##car _%e159234159336%_)))) + (##car _%e159393159495%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159235159339%_)) + _%hd159394159498%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159235159339%_)) + _%hd159394159498%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159236159341%_)) - (let ((_%e159237159344%_ + _%tl159395159500%_)) + (let ((_%e159396159503%_ (let () (declare (not safe)) (gx#stx-e - _%tl159236159341%_)))) - (let ((_%tl159239159349%_ + _%tl159395159500%_)))) + (let ((_%tl159398159508%_ (let () (declare (not safe)) - (##cdr _%e159237159344%_))) - (_%hd159238159347%_ + (##cdr _%e159396159503%_))) + (_%hd159397159506%_ (let () (declare (not safe)) - (##car _%e159237159344%_)))) + (##car _%e159396159503%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159239159349%_)) + _%tl159398159508%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl159233159333%_)) + (gx#stx-null? _%tl159392159492%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159209159269%_)) - (_%__match169561169562%_ - _%e159204159256%_ - _%hd159205159259%_ - _%tl159206159261%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_ - _%e159231159328%_ - _%hd159232159331%_ - _%tl159233159333%_ - _%e159234159336%_ - _%hd159235159339%_ - _%tl159236159341%_ - _%e159237159344%_ - _%hd159238159347%_ - _%tl159239159349%_) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) + (gx#stx-null? _%tl159368159428%_)) + (_%__match169720169721%_ + _%e159363159415%_ + _%hd159364159418%_ + _%tl159365159420%_ + _%e159366159423%_ + _%hd159367159426%_ + _%tl159368159428%_ + _%e159369159431%_ + _%hd159370159434%_ + _%tl159371159436%_ + _%e159372159439%_ + _%hd159373159442%_ + _%tl159374159444%_ + _%e159375159447%_ + _%hd159376159450%_ + _%tl159377159452%_ + _%e159378159455%_ + _%hd159379159458%_ + _%tl159380159460%_ + _%e159381159463%_ + _%hd159382159466%_ + _%tl159383159468%_ + _%e159384159471%_ + _%hd159385159474%_ + _%tl159386159476%_ + _%e159387159479%_ + _%hd159388159482%_ + _%tl159389159484%_ + _%e159390159487%_ + _%hd159391159490%_ + _%tl159392159492%_ + _%e159393159495%_ + _%hd159394159498%_ + _%tl159395159500%_ + _%e159396159503%_ + _%hd159397159506%_ + _%tl159398159508%_) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__match169463169464%_ - (lambda (_%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%__splice169430169431%_ - _%target159143159404%_ - _%tl159145159406%_) - (letrec ((_%loop159146159409%_ - (lambda (_%hd159144159412%_ - _%arg159150159414%_) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) + (_%__match169622169623%_ + (lambda (_%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%__splice169589169590%_ + _%target159302159563%_ + _%tl159304159565%_) + (letrec ((_%loop159305159568%_ + (lambda (_%hd159303159571%_ + _%arg159309159573%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159144159412%_)) - (let ((_%e159147159417%_ + (gx#stx-pair? _%hd159303159571%_)) + (let ((_%e159306159576%_ (let () (declare (not safe)) - (gx#stx-e _%hd159144159412%_)))) - (let ((_%lp-tl159149159422%_ + (gx#stx-e _%hd159303159571%_)))) + (let ((_%lp-tl159308159581%_ (let () (declare (not safe)) - (##cdr _%e159147159417%_))) - (_%lp-hd159148159420%_ + (##cdr _%e159306159576%_))) + (_%lp-hd159307159579%_ (let () (declare (not safe)) - (##car _%e159147159417%_)))) - (_%loop159146159409%_ - _%lp-tl159149159422%_ - (cons _%lp-hd159148159420%_ - _%arg159150159414%_)))) - (let ((_%arg159151159425%_ - (reverse _%arg159150159414%_))) + (##car _%e159306159576%_)))) + (_%loop159305159568%_ + _%lp-tl159308159581%_ + (cons _%lp-hd159307159579%_ + _%arg159309159573%_)))) + (let ((_%arg159310159584%_ + (reverse _%arg159309159573%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159142159401%_)) - (let ((_%e159152159428%_ + _%tl159301159560%_)) + (let ((_%e159311159587%_ (let () (declare (not safe)) (gx#stx-e - _%tl159142159401%_)))) - (let ((_%tl159154159433%_ + _%tl159301159560%_)))) + (let ((_%tl159313159592%_ (let () (declare (not safe)) - (##cdr _%e159152159428%_))) - (_%hd159153159431%_ + (##cdr _%e159311159587%_))) + (_%hd159312159590%_ (let () (declare (not safe)) - (##car _%e159152159428%_)))) + (##car _%e159311159587%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159153159431%_)) - (let ((_%e159155159436%_ + _%hd159312159590%_)) + (let ((_%e159314159595%_ (let () (declare (not safe)) (gx#stx-e - _%hd159153159431%_)))) - (let ((_%tl159157159441%_ + _%hd159312159590%_)))) + (let ((_%tl159316159600%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159155159436%_))) - (_%hd159156159439%_ - (let () (declare (not safe)) (##car _%e159155159436%_)))) + (##cdr _%e159314159595%_))) + (_%hd159315159598%_ + (let () (declare (not safe)) (##car _%e159314159595%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159156159439%_)) + (gx#identifier? _%hd159315159598%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159156159439%_)) + (gx#stx-eq? '%#call _%hd159315159598%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159157159441%_)) - (let ((_%e159158159444%_ + (gx#stx-pair? _%tl159316159600%_)) + (let ((_%e159317159603%_ (let () (declare (not safe)) - (gx#stx-e _%tl159157159441%_)))) - (let ((_%tl159160159449%_ + (gx#stx-e _%tl159316159600%_)))) + (let ((_%tl159319159608%_ (let () (declare (not safe)) - (##cdr _%e159158159444%_))) - (_%hd159159159447%_ + (##cdr _%e159317159603%_))) + (_%hd159318159606%_ (let () (declare (not safe)) - (##car _%e159158159444%_)))) + (##car _%e159317159603%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159159159447%_)) - (let ((_%e159161159452%_ + (gx#stx-pair? _%hd159318159606%_)) + (let ((_%e159320159611%_ (let () (declare (not safe)) - (gx#stx-e _%hd159159159447%_)))) - (let ((_%tl159163159457%_ + (gx#stx-e _%hd159318159606%_)))) + (let ((_%tl159322159616%_ (let () (declare (not safe)) - (##cdr _%e159161159452%_))) - (_%hd159162159455%_ + (##cdr _%e159320159611%_))) + (_%hd159321159614%_ (let () (declare (not safe)) - (##car _%e159161159452%_)))) + (##car _%e159320159611%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159162159455%_)) + _%hd159321159614%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159162159455%_)) + _%hd159321159614%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159163159457%_)) - (let ((_%e159164159460%_ + _%tl159322159616%_)) + (let ((_%e159323159619%_ (let () (declare (not safe)) (gx#stx-e - _%tl159163159457%_)))) - (let ((_%tl159166159465%_ + _%tl159322159616%_)))) + (let ((_%tl159325159624%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159164159460%_))) - (_%hd159165159463%_ - (let () (declare (not safe)) (##car _%e159164159460%_)))) + (##cdr _%e159323159619%_))) + (_%hd159324159622%_ + (let () (declare (not safe)) (##car _%e159323159619%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159166159465%_)) + (gx#stx-null? _%tl159325159624%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159160159449%_)) - (let ((_%e159167159468%_ + (gx#stx-pair? _%tl159319159608%_)) + (let ((_%e159326159627%_ (let () (declare (not safe)) - (gx#stx-e _%tl159160159449%_)))) - (let ((_%tl159169159473%_ + (gx#stx-e _%tl159319159608%_)))) + (let ((_%tl159328159632%_ (let () (declare (not safe)) - (##cdr _%e159167159468%_))) - (_%hd159168159471%_ + (##cdr _%e159326159627%_))) + (_%hd159327159630%_ (let () (declare (not safe)) - (##car _%e159167159468%_)))) + (##car _%e159326159627%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159168159471%_)) - (let ((_%e159170159476%_ + (gx#stx-pair? _%hd159327159630%_)) + (let ((_%e159329159635%_ (let () (declare (not safe)) - (gx#stx-e _%hd159168159471%_)))) - (let ((_%tl159172159481%_ + (gx#stx-e _%hd159327159630%_)))) + (let ((_%tl159331159640%_ (let () (declare (not safe)) - (##cdr _%e159170159476%_))) - (_%hd159171159479%_ + (##cdr _%e159329159635%_))) + (_%hd159330159638%_ (let () (declare (not safe)) - (##car _%e159170159476%_)))) + (##car _%e159329159635%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159171159479%_)) + (gx#identifier? _%hd159330159638%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159171159479%_)) + _%hd159330159638%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159172159481%_)) - (let ((_%e159173159484%_ + _%tl159331159640%_)) + (let ((_%e159332159643%_ (let () (declare (not safe)) (gx#stx-e - _%tl159172159481%_)))) - (let ((_%tl159175159489%_ + _%tl159331159640%_)))) + (let ((_%tl159334159648%_ (let () (declare (not safe)) - (##cdr _%e159173159484%_))) - (_%hd159174159487%_ + (##cdr _%e159332159643%_))) + (_%hd159333159646%_ (let () (declare (not safe)) - (##car _%e159173159484%_)))) + (##car _%e159332159643%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159175159489%_)) + _%tl159334159648%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl159169159473%_)) - (if (let ((__tmp171049 + _%tl159328159632%_)) + (if (let ((__tmp171208 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl159169159473%_)))) + (gx#stx-length _%tl159328159632%_)))) (declare (not safe)) - (##fx>= __tmp171049 '1)) - (let ((_%__splice169432169433%_ + (##fx>= __tmp171208 '1)) + (let ((_%__splice169591169592%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159169159473%_ + _%tl159328159632%_ '1)))) - (let ((_%tl159178159494%_ + (let ((_%tl159337159653%_ (let () (declare (not safe)) - (##vector-ref _%__splice169432169433%_ '1))) - (_%target159176159492%_ + (##vector-ref _%__splice169591169592%_ '1))) + (_%target159335159651%_ (let () (declare (not safe)) (##vector-ref - _%__splice169432169433%_ + _%__splice169591169592%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159178159494%_)) - (let ((_%e159185159497%_ + (gx#stx-pair? _%tl159337159653%_)) + (let ((_%e159344159656%_ (let () (declare (not safe)) - (gx#stx-e _%tl159178159494%_)))) - (let ((_%tl159187159502%_ + (gx#stx-e _%tl159337159653%_)))) + (let ((_%tl159346159661%_ (let () (declare (not safe)) - (##cdr _%e159185159497%_))) - (_%hd159186159500%_ + (##cdr _%e159344159656%_))) + (_%hd159345159659%_ (let () (declare (not safe)) - (##car _%e159185159497%_)))) + (##car _%e159344159656%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159186159500%_)) - (let ((_%e159188159505%_ + (gx#stx-pair? _%hd159345159659%_)) + (let ((_%e159347159664%_ (let () (declare (not safe)) (gx#stx-e - _%hd159186159500%_)))) - (let ((_%tl159190159510%_ + _%hd159345159659%_)))) + (let ((_%tl159349159669%_ (let () (declare (not safe)) - (##cdr _%e159188159505%_))) - (_%hd159189159508%_ + (##cdr _%e159347159664%_))) + (_%hd159348159667%_ (let () (declare (not safe)) - (##car _%e159188159505%_)))) + (##car _%e159347159664%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159189159508%_)) + _%hd159348159667%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159189159508%_)) + _%hd159348159667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159190159510%_)) - (let ((_%e159191159513%_ + _%tl159349159669%_)) + (let ((_%e159350159672%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159190159510%_)))) - (let ((_%tl159193159518%_ + (gx#stx-e _%tl159349159669%_)))) + (let ((_%tl159352159677%_ (let () (declare (not safe)) - (##cdr _%e159191159513%_))) - (_%hd159192159516%_ + (##cdr _%e159350159672%_))) + (_%hd159351159675%_ (let () (declare (not safe)) - (##car _%e159191159513%_)))) + (##car _%e159350159672%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159193159518%_)) + (gx#stx-null? _%tl159352159677%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159187159502%_)) - (letrec ((_%loop159179159521%_ - (lambda (_%hd159177159524%_ - _%xarg159183159526%_) + (gx#stx-null? _%tl159346159661%_)) + (letrec ((_%loop159338159680%_ + (lambda (_%hd159336159683%_ + _%xarg159342159685%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159177159524%_)) - (let ((_%e159180159529%_ + _%hd159336159683%_)) + (let ((_%e159339159688%_ (let () (declare (not safe)) (gx#stx-e - _%hd159177159524%_)))) - (let ((_%lp-tl159182159534%_ + _%hd159336159683%_)))) + (let ((_%lp-tl159341159693%_ (let () (declare (not safe)) - (##cdr _%e159180159529%_))) - (_%lp-hd159181159532%_ + (##cdr _%e159339159688%_))) + (_%lp-hd159340159691%_ (let () (declare (not safe)) - (##car _%e159180159529%_)))) + (##car _%e159339159688%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159181159532%_)) - (let ((_%e159194159537%_ + _%lp-hd159340159691%_)) + (let ((_%e159353159696%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd159181159532%_)))) - (let ((_%tl159196159542%_ + _%lp-hd159340159691%_)))) + (let ((_%tl159355159701%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159194159537%_))) - (_%hd159195159540%_ - (let () (declare (not safe)) (##car _%e159194159537%_)))) + (##cdr _%e159353159696%_))) + (_%hd159354159699%_ + (let () (declare (not safe)) (##car _%e159353159696%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159195159540%_)) + (gx#identifier? _%hd159354159699%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159195159540%_)) + (gx#stx-eq? '%#ref _%hd159354159699%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159196159542%_)) - (let ((_%e159197159545%_ + (gx#stx-pair? _%tl159355159701%_)) + (let ((_%e159356159704%_ (let () (declare (not safe)) - (gx#stx-e _%tl159196159542%_)))) - (let ((_%tl159199159550%_ + (gx#stx-e _%tl159355159701%_)))) + (let ((_%tl159358159709%_ (let () (declare (not safe)) - (##cdr _%e159197159545%_))) - (_%hd159198159548%_ + (##cdr _%e159356159704%_))) + (_%hd159357159707%_ (let () (declare (not safe)) - (##car _%e159197159545%_)))) + (##car _%e159356159704%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159199159550%_)) - (_%loop159179159521%_ - _%lp-tl159182159534%_ - (cons _%hd159198159548%_ - _%xarg159183159526%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) + (gx#stx-null? _%tl159358159709%_)) + (_%loop159338159680%_ + _%lp-tl159341159693%_ + (cons _%hd159357159707%_ + _%xarg159342159685%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (let ((_%xarg159184159553%_ - (reverse _%xarg159183159526%_))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) + (let ((_%xarg159343159712%_ + (reverse _%xarg159342159685%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159154159433%_)) - (let ((_%L159556%_ - _%hd159192159516%_) - (_%L159557%_ - _%xarg159184159553%_) - (_%L159558%_ - _%hd159174159487%_) - (_%L159559%_ - _%hd159165159463%_) - (_%L159560%_ - _%tl159145159406%_) - (_%L159561%_ - _%arg159151159425%_)) - (if (and (let ((__tmp171050 + _%tl159313159592%_)) + (let ((_%L159715%_ + _%hd159351159675%_) + (_%L159716%_ + _%xarg159343159712%_) + (_%L159717%_ + _%hd159333159646%_) + (_%L159718%_ + _%hd159324159622%_) + (_%L159719%_ + _%tl159304159565%_) + (_%L159720%_ + _%arg159310159584%_)) + (if (and (let ((__tmp171209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171051 - (lambda (_%g159604159607%_ - _%g159605159609%_) - (cons _%g159604159607%_ - _%g159605159609%_)))) + (let ((__tmp171210 + (lambda (_%g159763159766%_ + _%g159764159768%_) + (cons _%g159763159766%_ + _%g159764159768%_)))) (declare (not safe)) - (__foldr1 __tmp171051 '() _%L159561%_)))) + (__foldr1 __tmp171210 '() _%L159720%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171050)) - (let () (declare (not safe)) (gx#identifier? _%L159560%_)) + (gx#identifier-list? __tmp171209)) + (let () (declare (not safe)) (gx#identifier? _%L159719%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L159559%_ 'apply)) - (let ((__tmp171054 - (length (let ((__tmp171055 - (lambda (_%g159611159614%_ - _%g159612159616%_) - (cons _%g159611159614%_ - _%g159612159616%_)))) + (gxc#runtime-identifier=? _%L159718%_ 'apply)) + (let ((__tmp171213 + (length (let ((__tmp171214 + (lambda (_%g159770159773%_ + _%g159771159775%_) + (cons _%g159770159773%_ + _%g159771159775%_)))) (declare (not safe)) - (__foldr1 __tmp171055 '() _%L159561%_)))) - (__tmp171052 - (length (let ((__tmp171053 - (lambda (_%g159618159621%_ - _%g159619159623%_) - (cons _%g159618159621%_ - _%g159619159623%_)))) + (__foldr1 __tmp171214 '() _%L159720%_)))) + (__tmp171211 + (length (let ((__tmp171212 + (lambda (_%g159777159780%_ + _%g159778159782%_) + (cons _%g159777159780%_ + _%g159778159782%_)))) (declare (not safe)) (__foldr1 - __tmp171053 + __tmp171212 '() - _%L159557%_))))) + _%L159716%_))))) (declare (not safe)) - (##fx= __tmp171054 __tmp171052)) - (let ((__tmp171058 - (let ((__tmp171059 - (lambda (_%g159625159628%_ - _%g159626159630%_) - (cons _%g159625159628%_ - _%g159626159630%_)))) + (##fx= __tmp171213 __tmp171211)) + (let ((__tmp171217 + (let ((__tmp171218 + (lambda (_%g159784159787%_ + _%g159785159789%_) + (cons _%g159784159787%_ + _%g159785159789%_)))) (declare (not safe)) - (__foldr1 __tmp171059 '() _%L159561%_))) - (__tmp171056 - (let ((__tmp171057 - (lambda (_%g159632159635%_ - _%g159633159637%_) - (cons _%g159632159635%_ - _%g159633159637%_)))) + (__foldr1 __tmp171218 '() _%L159720%_))) + (__tmp171215 + (let ((__tmp171216 + (lambda (_%g159791159794%_ + _%g159792159796%_) + (cons _%g159791159794%_ + _%g159792159796%_)))) (declare (not safe)) - (__foldr1 __tmp171057 '() _%L159557%_)))) + (__foldr1 __tmp171216 '() _%L159716%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171058 - __tmp171056)) + __tmp171217 + __tmp171215)) (let () (declare (not safe)) - (gx#free-identifier=? _%L159560%_ _%L159556%_)) - (not (let ((__tmp171063 - (lambda (_%g159639159641%_) + (gx#free-identifier=? _%L159719%_ _%L159715%_)) + (not (let ((__tmp171222 + (lambda (_%g159798159800%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159639159641%_ - _%L159558%_)))) - (__tmp171060 - (let ((__tmp171062 - (lambda (_%g159643159646%_ - _%g159644159648%_) - (cons _%g159643159646%_ - _%g159644159648%_))) - (__tmp171061 (cons _%L159560%_ '()))) + _%g159798159800%_ + _%L159717%_)))) + (__tmp171219 + (let ((__tmp171221 + (lambda (_%g159802159805%_ + _%g159803159807%_) + (cons _%g159802159805%_ + _%g159803159807%_))) + (__tmp171220 (cons _%L159719%_ '()))) (declare (not safe)) (__foldr1 - __tmp171062 - __tmp171061 - _%L159561%_)))) + __tmp171221 + __tmp171220 + _%L159720%_)))) (declare (not safe)) - (__find __tmp171063 __tmp171060)))) - (_%__kont169428169429%_ - _%L159556%_ - _%L159557%_ - _%L159558%_ - _%L159559%_ - _%L159560%_ - _%L159561%_) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_))) + (__find __tmp171222 __tmp171219)))) + (_%__kont169587169588%_ + _%L159715%_ + _%L159716%_ + _%L159717%_ + _%L159718%_ + _%L159719%_ + _%L159720%_) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_))))))) - (_%loop159179159521%_ - _%target159176159492%_ + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_))))))) + (_%loop159338159680%_ + _%target159335159651%_ '())) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__kont169436169437%_)))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)))) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) + (_%__match169692169693%_ + _%e159299159555%_ + _%hd159300159558%_ + _%tl159301159560%_ + _%e159311159587%_ + _%hd159312159590%_ + _%tl159313159592%_ + _%e159314159595%_ + _%hd159315159598%_ + _%tl159316159600%_ + _%e159317159603%_ + _%hd159318159606%_ + _%tl159319159608%_ + _%e159320159611%_ + _%hd159321159614%_ + _%tl159322159616%_ + _%e159323159619%_ + _%hd159324159622%_ + _%tl159325159624%_ + _%e159326159627%_ + _%hd159327159630%_ + _%tl159328159632%_ + _%e159329159635%_ + _%hd159330159638%_ + _%tl159331159640%_ + _%e159332159643%_ + _%hd159333159646%_ + _%tl159334159648%_)) + (_%__kont169595169596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)))) - (_%__kont169436169437%_))))))) - (_%loop159146159409%_ _%target159143159404%_ '())))) - (_%__match169451169452%_ - (lambda (_%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_) - (letrec ((_%loop159098159669%_ - (lambda (_%hd159096159672%_ - _%arg159102159674%_) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_))))))) + (_%loop159305159568%_ _%target159302159563%_ '())))) + (_%__match169610169611%_ + (lambda (_%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_) + (letrec ((_%loop159257159828%_ + (lambda (_%hd159255159831%_ + _%arg159261159833%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159096159672%_)) - (let ((_%e159099159677%_ + (gx#stx-pair? _%hd159255159831%_)) + (let ((_%e159258159836%_ (let () (declare (not safe)) - (gx#stx-e _%hd159096159672%_)))) - (let ((_%lp-tl159101159682%_ + (gx#stx-e _%hd159255159831%_)))) + (let ((_%lp-tl159260159841%_ (let () (declare (not safe)) - (##cdr _%e159099159677%_))) - (_%lp-hd159100159680%_ + (##cdr _%e159258159836%_))) + (_%lp-hd159259159839%_ (let () (declare (not safe)) - (##car _%e159099159677%_)))) - (_%loop159098159669%_ - _%lp-tl159101159682%_ - (cons _%lp-hd159100159680%_ - _%arg159102159674%_)))) - (let ((_%arg159103159685%_ - (reverse _%arg159102159674%_))) + (##car _%e159258159836%_)))) + (_%loop159257159828%_ + _%lp-tl159260159841%_ + (cons _%lp-hd159259159839%_ + _%arg159261159833%_)))) + (let ((_%arg159262159844%_ + (reverse _%arg159261159833%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159094159661%_)) - (let ((_%e159104159688%_ + _%tl159253159820%_)) + (let ((_%e159263159847%_ (let () (declare (not safe)) (gx#stx-e - _%tl159094159661%_)))) - (let ((_%tl159106159693%_ + _%tl159253159820%_)))) + (let ((_%tl159265159852%_ (let () (declare (not safe)) - (##cdr _%e159104159688%_))) - (_%hd159105159691%_ + (##cdr _%e159263159847%_))) + (_%hd159264159850%_ (let () (declare (not safe)) - (##car _%e159104159688%_)))) + (##car _%e159263159847%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159105159691%_)) - (let ((_%e159107159696%_ + _%hd159264159850%_)) + (let ((_%e159266159855%_ (let () (declare (not safe)) (gx#stx-e - _%hd159105159691%_)))) - (let ((_%tl159109159701%_ + _%hd159264159850%_)))) + (let ((_%tl159268159860%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159107159696%_))) - (_%hd159108159699%_ - (let () (declare (not safe)) (##car _%e159107159696%_)))) + (##cdr _%e159266159855%_))) + (_%hd159267159858%_ + (let () (declare (not safe)) (##car _%e159266159855%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159108159699%_)) + (gx#identifier? _%hd159267159858%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159108159699%_)) + (gx#stx-eq? '%#call _%hd159267159858%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159109159701%_)) - (let ((_%e159110159704%_ + (gx#stx-pair? _%tl159268159860%_)) + (let ((_%e159269159863%_ (let () (declare (not safe)) - (gx#stx-e _%tl159109159701%_)))) - (let ((_%tl159112159709%_ + (gx#stx-e _%tl159268159860%_)))) + (let ((_%tl159271159868%_ (let () (declare (not safe)) - (##cdr _%e159110159704%_))) - (_%hd159111159707%_ + (##cdr _%e159269159863%_))) + (_%hd159270159866%_ (let () (declare (not safe)) - (##car _%e159110159704%_)))) + (##car _%e159269159863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159111159707%_)) - (let ((_%e159113159712%_ + (gx#stx-pair? _%hd159270159866%_)) + (let ((_%e159272159871%_ (let () (declare (not safe)) - (gx#stx-e _%hd159111159707%_)))) - (let ((_%tl159115159717%_ + (gx#stx-e _%hd159270159866%_)))) + (let ((_%tl159274159876%_ (let () (declare (not safe)) - (##cdr _%e159113159712%_))) - (_%hd159114159715%_ + (##cdr _%e159272159871%_))) + (_%hd159273159874%_ (let () (declare (not safe)) - (##car _%e159113159712%_)))) + (##car _%e159272159871%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159114159715%_)) + _%hd159273159874%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159114159715%_)) + _%hd159273159874%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159115159717%_)) - (let ((_%e159116159720%_ + _%tl159274159876%_)) + (let ((_%e159275159879%_ (let () (declare (not safe)) (gx#stx-e - _%tl159115159717%_)))) - (let ((_%tl159118159725%_ + _%tl159274159876%_)))) + (let ((_%tl159277159884%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159116159720%_))) - (_%hd159117159723%_ - (let () (declare (not safe)) (##car _%e159116159720%_)))) + (##cdr _%e159275159879%_))) + (_%hd159276159882%_ + (let () (declare (not safe)) (##car _%e159275159879%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159118159725%_)) + (gx#stx-null? _%tl159277159884%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl159112159709%_)) - (let ((_%__splice169426169427%_ + (gx#stx-pair/null? _%tl159271159868%_)) + (let ((_%__splice169585169586%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159112159709%_ + _%tl159271159868%_ '0)))) - (let ((_%tl159121159730%_ + (let ((_%tl159280159889%_ (let () (declare (not safe)) - (##vector-ref _%__splice169426169427%_ '1))) - (_%target159119159728%_ + (##vector-ref _%__splice169585169586%_ '1))) + (_%target159278159887%_ (let () (declare (not safe)) (##vector-ref - _%__splice169426169427%_ + _%__splice169585169586%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159121159730%_)) - (letrec ((_%loop159122159733%_ - (lambda (_%hd159120159736%_ - _%xarg159126159738%_) + (gx#stx-null? _%tl159280159889%_)) + (letrec ((_%loop159281159892%_ + (lambda (_%hd159279159895%_ + _%xarg159285159897%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159120159736%_)) - (let ((_%e159123159741%_ + _%hd159279159895%_)) + (let ((_%e159282159900%_ (let () (declare (not safe)) (gx#stx-e - _%hd159120159736%_)))) - (let ((_%lp-tl159125159746%_ + _%hd159279159895%_)))) + (let ((_%lp-tl159284159905%_ (let () (declare (not safe)) - (##cdr _%e159123159741%_))) - (_%lp-hd159124159744%_ + (##cdr _%e159282159900%_))) + (_%lp-hd159283159903%_ (let () (declare (not safe)) - (##car _%e159123159741%_)))) + (##car _%e159282159900%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159124159744%_)) - (let ((_%e159128159749%_ + _%lp-hd159283159903%_)) + (let ((_%e159287159908%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd159124159744%_)))) - (let ((_%tl159130159754%_ + (gx#stx-e _%lp-hd159283159903%_)))) + (let ((_%tl159289159913%_ (let () (declare (not safe)) - (##cdr _%e159128159749%_))) - (_%hd159129159752%_ + (##cdr _%e159287159908%_))) + (_%hd159288159911%_ (let () (declare (not safe)) - (##car _%e159128159749%_)))) + (##car _%e159287159908%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159129159752%_)) + (gx#identifier? _%hd159288159911%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159129159752%_)) + (gx#stx-eq? '%#ref _%hd159288159911%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159130159754%_)) - (let ((_%e159131159757%_ + (gx#stx-pair? _%tl159289159913%_)) + (let ((_%e159290159916%_ (let () (declare (not safe)) - (gx#stx-e _%tl159130159754%_)))) - (let ((_%tl159133159762%_ + (gx#stx-e _%tl159289159913%_)))) + (let ((_%tl159292159921%_ (let () (declare (not safe)) - (##cdr _%e159131159757%_))) - (_%hd159132159760%_ + (##cdr _%e159290159916%_))) + (_%hd159291159919%_ (let () (declare (not safe)) - (##car _%e159131159757%_)))) + (##car _%e159290159916%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159133159762%_)) - (_%loop159122159733%_ - _%lp-tl159125159746%_ - (cons _%hd159132159760%_ - _%xarg159126159738%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (gx#stx-null? _%tl159292159921%_)) + (_%loop159281159892%_ + _%lp-tl159284159905%_ + (cons _%hd159291159919%_ + _%xarg159285159897%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg159127159765%_ - (reverse _%xarg159126159738%_))) + (let ((_%xarg159286159924%_ + (reverse _%xarg159285159897%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159106159693%_)) - (let ((_%L159768%_ - _%xarg159127159765%_) - (_%L159769%_ - _%hd159117159723%_) - (_%L159770%_ - _%arg159103159685%_)) - (if (and (let ((__tmp171064 + _%tl159265159852%_)) + (let ((_%L159927%_ + _%xarg159286159924%_) + (_%L159928%_ + _%hd159276159882%_) + (_%L159929%_ + _%arg159262159844%_)) + (if (and (let ((__tmp171223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171065 - (lambda (_%g159798159801%_ - _%g159799159803%_) - (cons _%g159798159801%_ - _%g159799159803%_)))) + (let ((__tmp171224 + (lambda (_%g159957159960%_ + _%g159958159962%_) + (cons _%g159957159960%_ + _%g159958159962%_)))) (declare (not safe)) - (__foldr1 __tmp171065 '() _%L159770%_)))) + (__foldr1 __tmp171224 '() _%L159929%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171064)) - (let ((__tmp171068 - (length (let ((__tmp171069 - (lambda (_%g159805159808%_ - _%g159806159810%_) - (cons _%g159805159808%_ - _%g159806159810%_)))) + (gx#identifier-list? __tmp171223)) + (let ((__tmp171227 + (length (let ((__tmp171228 + (lambda (_%g159964159967%_ + _%g159965159969%_) + (cons _%g159964159967%_ + _%g159965159969%_)))) (declare (not safe)) (__foldr1 - __tmp171069 + __tmp171228 '() - _%L159770%_)))) - (__tmp171066 - (length (let ((__tmp171067 - (lambda (_%g159812159815%_ - _%g159813159817%_) - (cons _%g159812159815%_ - _%g159813159817%_)))) + _%L159929%_)))) + (__tmp171225 + (length (let ((__tmp171226 + (lambda (_%g159971159974%_ + _%g159972159976%_) + (cons _%g159971159974%_ + _%g159972159976%_)))) (declare (not safe)) (__foldr1 - __tmp171067 + __tmp171226 '() - _%L159768%_))))) + _%L159927%_))))) (declare (not safe)) - (##fx= __tmp171068 __tmp171066)) - (let ((__tmp171072 - (let ((__tmp171073 - (lambda (_%g159819159822%_ - _%g159820159824%_) - (cons _%g159819159822%_ - _%g159820159824%_)))) + (##fx= __tmp171227 __tmp171225)) + (let ((__tmp171231 + (let ((__tmp171232 + (lambda (_%g159978159981%_ + _%g159979159983%_) + (cons _%g159978159981%_ + _%g159979159983%_)))) (declare (not safe)) - (__foldr1 __tmp171073 '() _%L159770%_))) - (__tmp171070 - (let ((__tmp171071 - (lambda (_%g159826159829%_ - _%g159827159831%_) - (cons _%g159826159829%_ - _%g159827159831%_)))) + (__foldr1 __tmp171232 '() _%L159929%_))) + (__tmp171229 + (let ((__tmp171230 + (lambda (_%g159985159988%_ + _%g159986159990%_) + (cons _%g159985159988%_ + _%g159986159990%_)))) (declare (not safe)) - (__foldr1 __tmp171071 '() _%L159768%_)))) + (__foldr1 __tmp171230 '() _%L159927%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171072 - __tmp171070)) - (not (let ((__tmp171076 - (lambda (_%g159833159835%_) + __tmp171231 + __tmp171229)) + (not (let ((__tmp171235 + (lambda (_%g159992159994%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159833159835%_ - _%L159769%_)))) - (__tmp171074 - (let ((__tmp171075 - (lambda (_%g159837159840%_ - _%g159838159842%_) - (cons _%g159837159840%_ - _%g159838159842%_)))) + _%g159992159994%_ + _%L159928%_)))) + (__tmp171233 + (let ((__tmp171234 + (lambda (_%g159996159999%_ + _%g159997160001%_) + (cons _%g159996159999%_ + _%g159997160001%_)))) (declare (not safe)) (__foldr1 - __tmp171075 + __tmp171234 '() - _%L159770%_)))) + _%L159929%_)))) (declare (not safe)) - (__find __tmp171076 __tmp171074)))) - (_%__kont169422169423%_ - _%L159768%_ - _%L159769%_ - _%L159770%_) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_))))))) + (__find __tmp171235 __tmp171233)))) + (_%__kont169581169582%_ + _%L159927%_ + _%L159928%_ + _%L159929%_) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop159122159733%_ - _%target159119159728%_ + (_%loop159281159892%_ + _%target159278159887%_ '())) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_))))))) - (_%loop159098159669%_ _%target159095159664%_ '()))))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_))))))) + (_%loop159257159828%_ _%target159254159823%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169420169421%_)) - (let ((_%e159092159656%_ + (gx#stx-pair? _%__stx169579169580%_)) + (let ((_%e159251159815%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169420169421%_)))) - (let ((_%tl159094159661%_ + (gx#stx-e _%__stx169579169580%_)))) + (let ((_%tl159253159820%_ (let () (declare (not safe)) - (##cdr _%e159092159656%_))) - (_%hd159093159659%_ + (##cdr _%e159251159815%_))) + (_%hd159252159818%_ (let () (declare (not safe)) - (##car _%e159092159656%_)))) + (##car _%e159251159815%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd159093159659%_)) - (let ((_%__splice169424169425%_ + (gx#stx-pair/null? _%hd159252159818%_)) + (let ((_%__splice169583169584%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd159093159659%_ + _%hd159252159818%_ '0)))) - (let ((_%tl159097159666%_ + (let ((_%tl159256159825%_ (let () (declare (not safe)) (##vector-ref - _%__splice169424169425%_ + _%__splice169583169584%_ '1))) - (_%target159095159664%_ + (_%target159254159823%_ (let () (declare (not safe)) (##vector-ref - _%__splice169424169425%_ + _%__splice169583169584%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159097159666%_)) - (_%__match169451169452%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (gx#stx-null? _%tl159256159825%_)) + (_%__match169610169611%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_) + (_%__match169622169623%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%__splice169583169584%_ + _%target159254159823%_ + _%tl159256159825%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159094159661%_)) - (let ((_%e159207159264%_ + (gx#stx-pair? _%tl159253159820%_)) + (let ((_%e159366159423%_ (let () (declare (not safe)) - (gx#stx-e _%tl159094159661%_)))) - (let ((_%tl159209159269%_ + (gx#stx-e _%tl159253159820%_)))) + (let ((_%tl159368159428%_ (let () (declare (not safe)) - (##cdr _%e159207159264%_))) - (_%hd159208159267%_ + (##cdr _%e159366159423%_))) + (_%hd159367159426%_ (let () (declare (not safe)) - (##car _%e159207159264%_)))) + (##car _%e159366159423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159208159267%_)) - (let ((_%e159210159272%_ + (gx#stx-pair? _%hd159367159426%_)) + (let ((_%e159369159431%_ (let () (declare (not safe)) - (gx#stx-e _%hd159208159267%_)))) - (let ((_%tl159212159277%_ + (gx#stx-e _%hd159367159426%_)))) + (let ((_%tl159371159436%_ (let () (declare (not safe)) - (##cdr _%e159210159272%_))) - (_%hd159211159275%_ + (##cdr _%e159369159431%_))) + (_%hd159370159434%_ (let () (declare (not safe)) - (##car _%e159210159272%_)))) + (##car _%e159369159431%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159211159275%_)) + _%hd159370159434%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159211159275%_)) + _%hd159370159434%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159212159277%_)) - (let ((_%e159213159280%_ + _%tl159371159436%_)) + (let ((_%e159372159439%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159212159277%_)))) - (let ((_%tl159215159285%_ - (let () (declare (not safe)) (##cdr _%e159213159280%_))) - (_%hd159214159283%_ + (gx#stx-e _%tl159371159436%_)))) + (let ((_%tl159374159444%_ + (let () (declare (not safe)) (##cdr _%e159372159439%_))) + (_%hd159373159442%_ (let () (declare (not safe)) - (##car _%e159213159280%_)))) + (##car _%e159372159439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159214159283%_)) - (let ((_%e159216159288%_ + (gx#stx-pair? _%hd159373159442%_)) + (let ((_%e159375159447%_ (let () (declare (not safe)) - (gx#stx-e _%hd159214159283%_)))) - (let ((_%tl159218159293%_ + (gx#stx-e _%hd159373159442%_)))) + (let ((_%tl159377159452%_ (let () (declare (not safe)) - (##cdr _%e159216159288%_))) - (_%hd159217159291%_ + (##cdr _%e159375159447%_))) + (_%hd159376159450%_ (let () (declare (not safe)) - (##car _%e159216159288%_)))) + (##car _%e159375159447%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159217159291%_)) + (gx#identifier? _%hd159376159450%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159217159291%_)) + (gx#stx-eq? '%#ref _%hd159376159450%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159218159293%_)) - (let ((_%e159219159296%_ + (gx#stx-pair? _%tl159377159452%_)) + (let ((_%e159378159455%_ (let () (declare (not safe)) - (gx#stx-e _%tl159218159293%_)))) - (let ((_%tl159221159301%_ + (gx#stx-e _%tl159377159452%_)))) + (let ((_%tl159380159460%_ (let () (declare (not safe)) - (##cdr _%e159219159296%_))) - (_%hd159220159299%_ + (##cdr _%e159378159455%_))) + (_%hd159379159458%_ (let () (declare (not safe)) - (##car _%e159219159296%_)))) + (##car _%e159378159455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159221159301%_)) + _%tl159380159460%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159215159285%_)) - (let ((_%e159222159304%_ + _%tl159374159444%_)) + (let ((_%e159381159463%_ (let () (declare (not safe)) (gx#stx-e - _%tl159215159285%_)))) - (let ((_%tl159224159309%_ + _%tl159374159444%_)))) + (let ((_%tl159383159468%_ (let () (declare (not safe)) - (##cdr _%e159222159304%_))) - (_%hd159223159307%_ + (##cdr _%e159381159463%_))) + (_%hd159382159466%_ (let () (declare (not safe)) - (##car _%e159222159304%_)))) + (##car _%e159381159463%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159223159307%_)) - (let ((_%e159225159312%_ + _%hd159382159466%_)) + (let ((_%e159384159471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159223159307%_)))) - (let ((_%tl159227159317%_ + (gx#stx-e _%hd159382159466%_)))) + (let ((_%tl159386159476%_ (let () (declare (not safe)) - (##cdr _%e159225159312%_))) - (_%hd159226159315%_ + (##cdr _%e159384159471%_))) + (_%hd159385159474%_ (let () (declare (not safe)) - (##car _%e159225159312%_)))) + (##car _%e159384159471%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159226159315%_)) + (gx#identifier? _%hd159385159474%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159226159315%_)) + (gx#stx-eq? '%#ref _%hd159385159474%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159227159317%_)) - (let ((_%e159228159320%_ + (gx#stx-pair? _%tl159386159476%_)) + (let ((_%e159387159479%_ (let () (declare (not safe)) - (gx#stx-e _%tl159227159317%_)))) - (let ((_%tl159230159325%_ + (gx#stx-e _%tl159386159476%_)))) + (let ((_%tl159389159484%_ (let () (declare (not safe)) - (##cdr _%e159228159320%_))) - (_%hd159229159323%_ + (##cdr _%e159387159479%_))) + (_%hd159388159482%_ (let () (declare (not safe)) - (##car _%e159228159320%_)))) + (##car _%e159387159479%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159230159325%_)) + (gx#stx-null? _%tl159389159484%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159224159309%_)) - (let ((_%e159231159328%_ + _%tl159383159468%_)) + (let ((_%e159390159487%_ (let () (declare (not safe)) (gx#stx-e - _%tl159224159309%_)))) - (let ((_%tl159233159333%_ + _%tl159383159468%_)))) + (let ((_%tl159392159492%_ (let () (declare (not safe)) - (##cdr _%e159231159328%_))) - (_%hd159232159331%_ + (##cdr _%e159390159487%_))) + (_%hd159391159490%_ (let () (declare (not safe)) - (##car _%e159231159328%_)))) + (##car _%e159390159487%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159232159331%_)) - (let ((_%e159234159336%_ + _%hd159391159490%_)) + (let ((_%e159393159495%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd159232159331%_)))) - (let ((_%tl159236159341%_ - (let () (declare (not safe)) (##cdr _%e159234159336%_))) - (_%hd159235159339%_ + (gx#stx-e _%hd159391159490%_)))) + (let ((_%tl159395159500%_ + (let () (declare (not safe)) (##cdr _%e159393159495%_))) + (_%hd159394159498%_ (let () (declare (not safe)) - (##car _%e159234159336%_)))) + (##car _%e159393159495%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159235159339%_)) + (gx#identifier? _%hd159394159498%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159235159339%_)) + (gx#stx-eq? '%#ref _%hd159394159498%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159236159341%_)) - (let ((_%e159237159344%_ + (gx#stx-pair? _%tl159395159500%_)) + (let ((_%e159396159503%_ (let () (declare (not safe)) - (gx#stx-e _%tl159236159341%_)))) - (let ((_%tl159239159349%_ + (gx#stx-e _%tl159395159500%_)))) + (let ((_%tl159398159508%_ (let () (declare (not safe)) - (##cdr _%e159237159344%_))) - (_%hd159238159347%_ + (##cdr _%e159396159503%_))) + (_%hd159397159506%_ (let () (declare (not safe)) - (##car _%e159237159344%_)))) + (##car _%e159396159503%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159239159349%_)) + (gx#stx-null? _%tl159398159508%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159233159333%_)) + (gx#stx-null? _%tl159392159492%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159209159269%_)) - (_%__match169561169562%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_ - _%e159231159328%_ - _%hd159232159331%_ - _%tl159233159333%_ - _%e159234159336%_ - _%hd159235159339%_ - _%tl159236159341%_ - _%e159237159344%_ - _%hd159238159347%_ - _%tl159239159349%_) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) + _%tl159368159428%_)) + (_%__match169720169721%_ + _%e159251159815%_ + _%hd159252159818%_ + _%tl159253159820%_ + _%e159366159423%_ + _%hd159367159426%_ + _%tl159368159428%_ + _%e159369159431%_ + _%hd159370159434%_ + _%tl159371159436%_ + _%e159372159439%_ + _%hd159373159442%_ + _%tl159374159444%_ + _%e159375159447%_ + _%hd159376159450%_ + _%tl159377159452%_ + _%e159378159455%_ + _%hd159379159458%_ + _%tl159380159460%_ + _%e159381159463%_ + _%hd159382159466%_ + _%tl159383159468%_ + _%e159384159471%_ + _%hd159385159474%_ + _%tl159386159476%_ + _%e159387159479%_ + _%hd159388159482%_ + _%tl159389159484%_ + _%e159390159487%_ + _%hd159391159490%_ + _%tl159392159492%_ + _%e159393159495%_ + _%hd159394159498%_ + _%tl159395159500%_ + _%e159396159503%_ + _%hd159397159506%_ + _%tl159398159508%_) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_))))) - (_%__kont169436169437%_))))))) + (_%__kont169595169596%_)) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_)))) + (_%__kont169595169596%_))))) + (_%__kont169595169596%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form158550%_) - (let* ((_%__stx169564169565%_ _%form158550%_) - (_%g158554158678%_ + (lambda (_%form158709%_) + (let* ((_%__stx169723169724%_ _%form158709%_) + (_%g158713158837%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169564169565%_))))) - (let ((_%__kont169566169567%_ - (lambda (_%L159048%_ _%L159049%_ _%L159050%_) + _%__stx169723169724%_))))) + (let ((_%__kont169725169726%_ + (lambda (_%L159207%_ _%L159208%_ _%L159209%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159049%_)))) - (_%__kont169572169573%_ - (lambda (_%L158896%_ _%L158897%_ _%L158898%_ _%L158899%_) + (gxc#identifier-symbol _%L159208%_)))) + (_%__kont169731169732%_ + (lambda (_%L159055%_ _%L159056%_ _%L159057%_ _%L159058%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L158896%_)))) - (_%__kont169576169577%_ - (lambda (_%L158763%_ _%L158764%_ _%L158765%_) + (gxc#identifier-symbol _%L159055%_)))) + (_%__kont169735169736%_ + (lambda (_%L158922%_ _%L158923%_ _%L158924%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L158763%_))))) - (let* ((_%__match169673169674%_ - (lambda (_%e158644158683%_ - _%hd158645158686%_ - _%tl158646158688%_ - _%e158647158691%_ - _%hd158648158694%_ - _%tl158649158696%_ - _%e158650158699%_ - _%hd158651158702%_ - _%tl158652158704%_ - _%e158653158707%_ - _%hd158654158710%_ - _%tl158655158712%_ - _%e158656158715%_ - _%hd158657158718%_ - _%tl158658158720%_ - _%e158659158723%_ - _%hd158660158726%_ - _%tl158661158728%_ - _%e158662158731%_ - _%hd158663158734%_ - _%tl158664158736%_ - _%e158665158739%_ - _%hd158666158742%_ - _%tl158667158744%_ - _%e158668158747%_ - _%hd158669158750%_ - _%tl158670158752%_) + (gxc#identifier-symbol _%L158922%_))))) + (let* ((_%__match169832169833%_ + (lambda (_%e158803158842%_ + _%hd158804158845%_ + _%tl158805158847%_ + _%e158806158850%_ + _%hd158807158853%_ + _%tl158808158855%_ + _%e158809158858%_ + _%hd158810158861%_ + _%tl158811158863%_ + _%e158812158866%_ + _%hd158813158869%_ + _%tl158814158871%_ + _%e158815158874%_ + _%hd158816158877%_ + _%tl158817158879%_ + _%e158818158882%_ + _%hd158819158885%_ + _%tl158820158887%_ + _%e158821158890%_ + _%hd158822158893%_ + _%tl158823158895%_ + _%e158824158898%_ + _%hd158825158901%_ + _%tl158826158903%_ + _%e158827158906%_ + _%hd158828158909%_ + _%tl158829158911%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158664158736%_)) - (let ((_%e158671158755%_ + (gx#stx-pair? _%tl158823158895%_)) + (let ((_%e158830158914%_ (let () (declare (not safe)) - (gx#stx-e _%tl158664158736%_)))) - (let ((_%tl158673158760%_ + (gx#stx-e _%tl158823158895%_)))) + (let ((_%tl158832158919%_ (let () (declare (not safe)) - (##cdr _%e158671158755%_))) - (_%hd158672158758%_ + (##cdr _%e158830158914%_))) + (_%hd158831158917%_ (let () (declare (not safe)) - (##car _%e158671158755%_)))) + (##car _%e158830158914%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158673158760%_)) + (gx#stx-null? _%tl158832158919%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158649158696%_)) - (_%__kont169576169577%_ - _%hd158669158750%_ - _%hd158660158726%_ - _%hd158645158686%_) + (gx#stx-null? _%tl158808158855%_)) + (_%__kont169735169736%_ + _%hd158828158909%_ + _%hd158819158885%_ + _%hd158804158845%_) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))))) - (_%__match169603169604%_ - (lambda (_%e158605158800%_ - _%hd158606158803%_ - _%tl158607158805%_ - _%__splice169574169575%_ - _%target158608158808%_ - _%tl158610158810%_) - (letrec ((_%loop158611158813%_ - (lambda (_%hd158609158816%_ - _%arg158615158818%_) + (_%g158713158837%_))))) + (let () (declare (not safe)) (_%g158713158837%_))))) + (_%__match169762169763%_ + (lambda (_%e158764158959%_ + _%hd158765158962%_ + _%tl158766158964%_ + _%__splice169733169734%_ + _%target158767158967%_ + _%tl158769158969%_) + (letrec ((_%loop158770158972%_ + (lambda (_%hd158768158975%_ + _%arg158774158977%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158609158816%_)) - (let ((_%e158612158821%_ + (gx#stx-pair? _%hd158768158975%_)) + (let ((_%e158771158980%_ (let () (declare (not safe)) - (gx#stx-e _%hd158609158816%_)))) - (let ((_%lp-tl158614158826%_ + (gx#stx-e _%hd158768158975%_)))) + (let ((_%lp-tl158773158985%_ (let () (declare (not safe)) - (##cdr _%e158612158821%_))) - (_%lp-hd158613158824%_ + (##cdr _%e158771158980%_))) + (_%lp-hd158772158983%_ (let () (declare (not safe)) - (##car _%e158612158821%_)))) - (_%loop158611158813%_ - _%lp-tl158614158826%_ - (cons _%lp-hd158613158824%_ - _%arg158615158818%_)))) - (let ((_%arg158616158829%_ - (reverse _%arg158615158818%_))) + (##car _%e158771158980%_)))) + (_%loop158770158972%_ + _%lp-tl158773158985%_ + (cons _%lp-hd158772158983%_ + _%arg158774158977%_)))) + (let ((_%arg158775158988%_ + (reverse _%arg158774158977%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158607158805%_)) - (let ((_%e158617158832%_ + _%tl158766158964%_)) + (let ((_%e158776158991%_ (let () (declare (not safe)) (gx#stx-e - _%tl158607158805%_)))) - (let ((_%tl158619158837%_ + _%tl158766158964%_)))) + (let ((_%tl158778158996%_ (let () (declare (not safe)) - (##cdr _%e158617158832%_))) - (_%hd158618158835%_ + (##cdr _%e158776158991%_))) + (_%hd158777158994%_ (let () (declare (not safe)) - (##car _%e158617158832%_)))) + (##car _%e158776158991%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158618158835%_)) - (let ((_%e158620158840%_ + _%hd158777158994%_)) + (let ((_%e158779158999%_ (let () (declare (not safe)) (gx#stx-e - _%hd158618158835%_)))) - (let ((_%tl158622158845%_ + _%hd158777158994%_)))) + (let ((_%tl158781159004%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158620158840%_))) - (_%hd158621158843%_ - (let () (declare (not safe)) (##car _%e158620158840%_)))) + (##cdr _%e158779158999%_))) + (_%hd158780159002%_ + (let () (declare (not safe)) (##car _%e158779158999%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158621158843%_)) + (gx#identifier? _%hd158780159002%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158621158843%_)) + (gx#stx-eq? '%#call _%hd158780159002%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158622158845%_)) - (let ((_%e158623158848%_ + (gx#stx-pair? _%tl158781159004%_)) + (let ((_%e158782159007%_ (let () (declare (not safe)) - (gx#stx-e _%tl158622158845%_)))) - (let ((_%tl158625158853%_ + (gx#stx-e _%tl158781159004%_)))) + (let ((_%tl158784159012%_ (let () (declare (not safe)) - (##cdr _%e158623158848%_))) - (_%hd158624158851%_ + (##cdr _%e158782159007%_))) + (_%hd158783159010%_ (let () (declare (not safe)) - (##car _%e158623158848%_)))) + (##car _%e158782159007%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158624158851%_)) - (let ((_%e158626158856%_ + (gx#stx-pair? _%hd158783159010%_)) + (let ((_%e158785159015%_ (let () (declare (not safe)) - (gx#stx-e _%hd158624158851%_)))) - (let ((_%tl158628158861%_ + (gx#stx-e _%hd158783159010%_)))) + (let ((_%tl158787159020%_ (let () (declare (not safe)) - (##cdr _%e158626158856%_))) - (_%hd158627158859%_ + (##cdr _%e158785159015%_))) + (_%hd158786159018%_ (let () (declare (not safe)) - (##car _%e158626158856%_)))) + (##car _%e158785159015%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158627158859%_)) + _%hd158786159018%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158627158859%_)) + _%hd158786159018%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158628158861%_)) - (let ((_%e158629158864%_ + _%tl158787159020%_)) + (let ((_%e158788159023%_ (let () (declare (not safe)) (gx#stx-e - _%tl158628158861%_)))) - (let ((_%tl158631158869%_ + _%tl158787159020%_)))) + (let ((_%tl158790159028%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158629158864%_))) - (_%hd158630158867%_ - (let () (declare (not safe)) (##car _%e158629158864%_)))) + (##cdr _%e158788159023%_))) + (_%hd158789159026%_ + (let () (declare (not safe)) (##car _%e158788159023%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158631158869%_)) + (gx#stx-null? _%tl158790159028%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158625158853%_)) - (let ((_%e158632158872%_ + (gx#stx-pair? _%tl158784159012%_)) + (let ((_%e158791159031%_ (let () (declare (not safe)) - (gx#stx-e _%tl158625158853%_)))) - (let ((_%tl158634158877%_ + (gx#stx-e _%tl158784159012%_)))) + (let ((_%tl158793159036%_ (let () (declare (not safe)) - (##cdr _%e158632158872%_))) - (_%hd158633158875%_ + (##cdr _%e158791159031%_))) + (_%hd158792159034%_ (let () (declare (not safe)) - (##car _%e158632158872%_)))) + (##car _%e158791159031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158633158875%_)) - (let ((_%e158635158880%_ + (gx#stx-pair? _%hd158792159034%_)) + (let ((_%e158794159039%_ (let () (declare (not safe)) - (gx#stx-e _%hd158633158875%_)))) - (let ((_%tl158637158885%_ + (gx#stx-e _%hd158792159034%_)))) + (let ((_%tl158796159044%_ (let () (declare (not safe)) - (##cdr _%e158635158880%_))) - (_%hd158636158883%_ + (##cdr _%e158794159039%_))) + (_%hd158795159042%_ (let () (declare (not safe)) - (##car _%e158635158880%_)))) + (##car _%e158794159039%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158636158883%_)) + (gx#identifier? _%hd158795159042%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158636158883%_)) + _%hd158795159042%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158637158885%_)) - (let ((_%e158638158888%_ + _%tl158796159044%_)) + (let ((_%e158797159047%_ (let () (declare (not safe)) (gx#stx-e - _%tl158637158885%_)))) - (let ((_%tl158640158893%_ + _%tl158796159044%_)))) + (let ((_%tl158799159052%_ (let () (declare (not safe)) - (##cdr _%e158638158888%_))) - (_%hd158639158891%_ + (##cdr _%e158797159047%_))) + (_%hd158798159050%_ (let () (declare (not safe)) - (##car _%e158638158888%_)))) + (##car _%e158797159047%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158640158893%_)) + _%tl158799159052%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158619158837%_)) - (_%__kont169572169573%_ - _%hd158639158891%_ - _%hd158630158867%_ - _%tl158610158810%_ - _%arg158616158829%_) - (_%__match169673169674%_ - _%e158605158800%_ - _%hd158606158803%_ - _%tl158607158805%_ - _%e158617158832%_ - _%hd158618158835%_ - _%tl158619158837%_ - _%e158620158840%_ - _%hd158621158843%_ - _%tl158622158845%_ - _%e158623158848%_ - _%hd158624158851%_ - _%tl158625158853%_ - _%e158626158856%_ - _%hd158627158859%_ - _%tl158628158861%_ - _%e158629158864%_ - _%hd158630158867%_ - _%tl158631158869%_ - _%e158632158872%_ - _%hd158633158875%_ - _%tl158634158877%_ - _%e158635158880%_ - _%hd158636158883%_ - _%tl158637158885%_ - _%e158638158888%_ - _%hd158639158891%_ - _%tl158640158893%_)) + _%tl158778158996%_)) + (_%__kont169731169732%_ + _%hd158798159050%_ + _%hd158789159026%_ + _%tl158769158969%_ + _%arg158775158988%_) + (_%__match169832169833%_ + _%e158764158959%_ + _%hd158765158962%_ + _%tl158766158964%_ + _%e158776158991%_ + _%hd158777158994%_ + _%tl158778158996%_ + _%e158779158999%_ + _%hd158780159002%_ + _%tl158781159004%_ + _%e158782159007%_ + _%hd158783159010%_ + _%tl158784159012%_ + _%e158785159015%_ + _%hd158786159018%_ + _%tl158787159020%_ + _%e158788159023%_ + _%hd158789159026%_ + _%tl158790159028%_ + _%e158791159031%_ + _%hd158792159034%_ + _%tl158793159036%_ + _%e158794159039%_ + _%hd158795159042%_ + _%tl158796159044%_ + _%e158797159047%_ + _%hd158798159050%_ + _%tl158799159052%_)) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))))) + (_%g158713158837%_))))) + (let () (declare (not safe)) (_%g158713158837%_))) + (let () (declare (not safe)) (_%g158713158837%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))))) + (_%g158713158837%_))))) + (let () (declare (not safe)) (_%g158713158837%_))) + (let () (declare (not safe)) (_%g158713158837%_))) + (let () (declare (not safe)) (_%g158713158837%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_)))))))) - (_%loop158611158813%_ _%target158608158808%_ '())))) - (_%__match169591169592%_ - (lambda (_%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_) - (letrec ((_%loop158565158949%_ - (lambda (_%hd158563158952%_ - _%arg158569158954%_) + (_%g158713158837%_)))))))) + (_%loop158770158972%_ _%target158767158967%_ '())))) + (_%__match169750169751%_ + (lambda (_%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_) + (letrec ((_%loop158724159108%_ + (lambda (_%hd158722159111%_ + _%arg158728159113%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158563158952%_)) - (let ((_%e158566158957%_ + (gx#stx-pair? _%hd158722159111%_)) + (let ((_%e158725159116%_ (let () (declare (not safe)) - (gx#stx-e _%hd158563158952%_)))) - (let ((_%lp-tl158568158962%_ + (gx#stx-e _%hd158722159111%_)))) + (let ((_%lp-tl158727159121%_ (let () (declare (not safe)) - (##cdr _%e158566158957%_))) - (_%lp-hd158567158960%_ + (##cdr _%e158725159116%_))) + (_%lp-hd158726159119%_ (let () (declare (not safe)) - (##car _%e158566158957%_)))) - (_%loop158565158949%_ - _%lp-tl158568158962%_ - (cons _%lp-hd158567158960%_ - _%arg158569158954%_)))) - (let ((_%arg158570158965%_ - (reverse _%arg158569158954%_))) + (##car _%e158725159116%_)))) + (_%loop158724159108%_ + _%lp-tl158727159121%_ + (cons _%lp-hd158726159119%_ + _%arg158728159113%_)))) + (let ((_%arg158729159124%_ + (reverse _%arg158728159113%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158561158941%_)) - (let ((_%e158571158968%_ + _%tl158720159100%_)) + (let ((_%e158730159127%_ (let () (declare (not safe)) (gx#stx-e - _%tl158561158941%_)))) - (let ((_%tl158573158973%_ + _%tl158720159100%_)))) + (let ((_%tl158732159132%_ (let () (declare (not safe)) - (##cdr _%e158571158968%_))) - (_%hd158572158971%_ + (##cdr _%e158730159127%_))) + (_%hd158731159130%_ (let () (declare (not safe)) - (##car _%e158571158968%_)))) + (##car _%e158730159127%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158572158971%_)) - (let ((_%e158574158976%_ + _%hd158731159130%_)) + (let ((_%e158733159135%_ (let () (declare (not safe)) (gx#stx-e - _%hd158572158971%_)))) - (let ((_%tl158576158981%_ + _%hd158731159130%_)))) + (let ((_%tl158735159140%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158574158976%_))) - (_%hd158575158979%_ - (let () (declare (not safe)) (##car _%e158574158976%_)))) + (##cdr _%e158733159135%_))) + (_%hd158734159138%_ + (let () (declare (not safe)) (##car _%e158733159135%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158575158979%_)) + (gx#identifier? _%hd158734159138%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158575158979%_)) + (gx#stx-eq? '%#call _%hd158734159138%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158576158981%_)) - (let ((_%e158577158984%_ + (gx#stx-pair? _%tl158735159140%_)) + (let ((_%e158736159143%_ (let () (declare (not safe)) - (gx#stx-e _%tl158576158981%_)))) - (let ((_%tl158579158989%_ + (gx#stx-e _%tl158735159140%_)))) + (let ((_%tl158738159148%_ (let () (declare (not safe)) - (##cdr _%e158577158984%_))) - (_%hd158578158987%_ + (##cdr _%e158736159143%_))) + (_%hd158737159146%_ (let () (declare (not safe)) - (##car _%e158577158984%_)))) + (##car _%e158736159143%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158578158987%_)) - (let ((_%e158580158992%_ + (gx#stx-pair? _%hd158737159146%_)) + (let ((_%e158739159151%_ (let () (declare (not safe)) - (gx#stx-e _%hd158578158987%_)))) - (let ((_%tl158582158997%_ + (gx#stx-e _%hd158737159146%_)))) + (let ((_%tl158741159156%_ (let () (declare (not safe)) - (##cdr _%e158580158992%_))) - (_%hd158581158995%_ + (##cdr _%e158739159151%_))) + (_%hd158740159154%_ (let () (declare (not safe)) - (##car _%e158580158992%_)))) + (##car _%e158739159151%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158581158995%_)) + _%hd158740159154%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158581158995%_)) + _%hd158740159154%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158582158997%_)) - (let ((_%e158583159000%_ + _%tl158741159156%_)) + (let ((_%e158742159159%_ (let () (declare (not safe)) (gx#stx-e - _%tl158582158997%_)))) - (let ((_%tl158585159005%_ + _%tl158741159156%_)))) + (let ((_%tl158744159164%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158583159000%_))) - (_%hd158584159003%_ - (let () (declare (not safe)) (##car _%e158583159000%_)))) + (##cdr _%e158742159159%_))) + (_%hd158743159162%_ + (let () (declare (not safe)) (##car _%e158742159159%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158585159005%_)) + (gx#stx-null? _%tl158744159164%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl158579158989%_)) - (let ((_%__splice169570169571%_ + (gx#stx-pair/null? _%tl158738159148%_)) + (let ((_%__splice169729169730%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158579158989%_ + _%tl158738159148%_ '0)))) - (let ((_%tl158588159010%_ + (let ((_%tl158747159169%_ (let () (declare (not safe)) - (##vector-ref _%__splice169570169571%_ '1))) - (_%target158586159008%_ + (##vector-ref _%__splice169729169730%_ '1))) + (_%target158745159167%_ (let () (declare (not safe)) (##vector-ref - _%__splice169570169571%_ + _%__splice169729169730%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158588159010%_)) - (letrec ((_%loop158589159013%_ - (lambda (_%hd158587159016%_ - _%xarg158593159018%_) + (gx#stx-null? _%tl158747159169%_)) + (letrec ((_%loop158748159172%_ + (lambda (_%hd158746159175%_ + _%xarg158752159177%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158587159016%_)) - (let ((_%e158590159021%_ + _%hd158746159175%_)) + (let ((_%e158749159180%_ (let () (declare (not safe)) (gx#stx-e - _%hd158587159016%_)))) - (let ((_%lp-tl158592159026%_ + _%hd158746159175%_)))) + (let ((_%lp-tl158751159185%_ (let () (declare (not safe)) - (##cdr _%e158590159021%_))) - (_%lp-hd158591159024%_ + (##cdr _%e158749159180%_))) + (_%lp-hd158750159183%_ (let () (declare (not safe)) - (##car _%e158590159021%_)))) + (##car _%e158749159180%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd158591159024%_)) - (let ((_%e158595159029%_ + _%lp-hd158750159183%_)) + (let ((_%e158754159188%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd158591159024%_)))) - (let ((_%tl158597159034%_ + (gx#stx-e _%lp-hd158750159183%_)))) + (let ((_%tl158756159193%_ (let () (declare (not safe)) - (##cdr _%e158595159029%_))) - (_%hd158596159032%_ + (##cdr _%e158754159188%_))) + (_%hd158755159191%_ (let () (declare (not safe)) - (##car _%e158595159029%_)))) + (##car _%e158754159188%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158596159032%_)) + (gx#identifier? _%hd158755159191%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158596159032%_)) + (gx#stx-eq? '%#ref _%hd158755159191%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158597159034%_)) - (let ((_%e158598159037%_ + (gx#stx-pair? _%tl158756159193%_)) + (let ((_%e158757159196%_ (let () (declare (not safe)) - (gx#stx-e _%tl158597159034%_)))) - (let ((_%tl158600159042%_ + (gx#stx-e _%tl158756159193%_)))) + (let ((_%tl158759159201%_ (let () (declare (not safe)) - (##cdr _%e158598159037%_))) - (_%hd158599159040%_ + (##cdr _%e158757159196%_))) + (_%hd158758159199%_ (let () (declare (not safe)) - (##car _%e158598159037%_)))) + (##car _%e158757159196%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158600159042%_)) - (_%loop158589159013%_ - _%lp-tl158592159026%_ - (cons _%hd158599159040%_ - _%xarg158593159018%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (gx#stx-null? _%tl158759159201%_)) + (_%loop158748159172%_ + _%lp-tl158751159185%_ + (cons _%hd158758159199%_ + _%xarg158752159177%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg158594159045%_ - (reverse _%xarg158593159018%_))) + (let ((_%xarg158753159204%_ + (reverse _%xarg158752159177%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158573158973%_)) - (_%__kont169566169567%_ - _%xarg158594159045%_ - _%hd158584159003%_ - _%arg158570158965%_) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_))))))) - (_%loop158589159013%_ - _%target158586159008%_ + _%tl158732159132%_)) + (_%__kont169725169726%_ + _%xarg158753159204%_ + _%hd158743159162%_ + _%arg158729159124%_) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_))))))) + (_%loop158748159172%_ + _%target158745159167%_ '())) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_))))))) - (_%loop158565158949%_ _%target158562158944%_ '()))))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_))))))) + (_%loop158724159108%_ _%target158721159103%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169564169565%_)) - (let ((_%e158559158936%_ + (gx#stx-pair? _%__stx169723169724%_)) + (let ((_%e158718159095%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169564169565%_)))) - (let ((_%tl158561158941%_ + (gx#stx-e _%__stx169723169724%_)))) + (let ((_%tl158720159100%_ (let () (declare (not safe)) - (##cdr _%e158559158936%_))) - (_%hd158560158939%_ + (##cdr _%e158718159095%_))) + (_%hd158719159098%_ (let () (declare (not safe)) - (##car _%e158559158936%_)))) + (##car _%e158718159095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd158560158939%_)) - (let ((_%__splice169568169569%_ + (gx#stx-pair/null? _%hd158719159098%_)) + (let ((_%__splice169727169728%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd158560158939%_ + _%hd158719159098%_ '0)))) - (let ((_%tl158564158946%_ + (let ((_%tl158723159105%_ (let () (declare (not safe)) (##vector-ref - _%__splice169568169569%_ + _%__splice169727169728%_ '1))) - (_%target158562158944%_ + (_%target158721159103%_ (let () (declare (not safe)) (##vector-ref - _%__splice169568169569%_ + _%__splice169727169728%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158564158946%_)) - (_%__match169591169592%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (gx#stx-null? _%tl158723159105%_)) + (_%__match169750169751%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_) + (_%__match169762169763%_ + _%e158718159095%_ + _%hd158719159098%_ + _%tl158720159100%_ + _%__splice169727169728%_ + _%target158721159103%_ + _%tl158723159105%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158561158941%_)) - (let ((_%e158647158691%_ + (gx#stx-pair? _%tl158720159100%_)) + (let ((_%e158806158850%_ (let () (declare (not safe)) - (gx#stx-e _%tl158561158941%_)))) - (let ((_%tl158649158696%_ + (gx#stx-e _%tl158720159100%_)))) + (let ((_%tl158808158855%_ (let () (declare (not safe)) - (##cdr _%e158647158691%_))) - (_%hd158648158694%_ + (##cdr _%e158806158850%_))) + (_%hd158807158853%_ (let () (declare (not safe)) - (##car _%e158647158691%_)))) + (##car _%e158806158850%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158648158694%_)) - (let ((_%e158650158699%_ + (gx#stx-pair? _%hd158807158853%_)) + (let ((_%e158809158858%_ (let () (declare (not safe)) - (gx#stx-e _%hd158648158694%_)))) - (let ((_%tl158652158704%_ + (gx#stx-e _%hd158807158853%_)))) + (let ((_%tl158811158863%_ (let () (declare (not safe)) - (##cdr _%e158650158699%_))) - (_%hd158651158702%_ + (##cdr _%e158809158858%_))) + (_%hd158810158861%_ (let () (declare (not safe)) - (##car _%e158650158699%_)))) + (##car _%e158809158858%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158651158702%_)) + _%hd158810158861%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158651158702%_)) + _%hd158810158861%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158652158704%_)) - (let ((_%e158653158707%_ + _%tl158811158863%_)) + (let ((_%e158812158866%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158652158704%_)))) - (let ((_%tl158655158712%_ - (let () (declare (not safe)) (##cdr _%e158653158707%_))) - (_%hd158654158710%_ + (gx#stx-e _%tl158811158863%_)))) + (let ((_%tl158814158871%_ + (let () (declare (not safe)) (##cdr _%e158812158866%_))) + (_%hd158813158869%_ (let () (declare (not safe)) - (##car _%e158653158707%_)))) + (##car _%e158812158866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158654158710%_)) - (let ((_%e158656158715%_ + (gx#stx-pair? _%hd158813158869%_)) + (let ((_%e158815158874%_ (let () (declare (not safe)) - (gx#stx-e _%hd158654158710%_)))) - (let ((_%tl158658158720%_ + (gx#stx-e _%hd158813158869%_)))) + (let ((_%tl158817158879%_ (let () (declare (not safe)) - (##cdr _%e158656158715%_))) - (_%hd158657158718%_ + (##cdr _%e158815158874%_))) + (_%hd158816158877%_ (let () (declare (not safe)) - (##car _%e158656158715%_)))) + (##car _%e158815158874%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158657158718%_)) + (gx#identifier? _%hd158816158877%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158657158718%_)) + (gx#stx-eq? '%#ref _%hd158816158877%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158658158720%_)) - (let ((_%e158659158723%_ + (gx#stx-pair? _%tl158817158879%_)) + (let ((_%e158818158882%_ (let () (declare (not safe)) - (gx#stx-e _%tl158658158720%_)))) - (let ((_%tl158661158728%_ + (gx#stx-e _%tl158817158879%_)))) + (let ((_%tl158820158887%_ (let () (declare (not safe)) - (##cdr _%e158659158723%_))) - (_%hd158660158726%_ + (##cdr _%e158818158882%_))) + (_%hd158819158885%_ (let () (declare (not safe)) - (##car _%e158659158723%_)))) + (##car _%e158818158882%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158661158728%_)) + _%tl158820158887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158655158712%_)) - (let ((_%e158662158731%_ + _%tl158814158871%_)) + (let ((_%e158821158890%_ (let () (declare (not safe)) (gx#stx-e - _%tl158655158712%_)))) - (let ((_%tl158664158736%_ + _%tl158814158871%_)))) + (let ((_%tl158823158895%_ (let () (declare (not safe)) - (##cdr _%e158662158731%_))) - (_%hd158663158734%_ + (##cdr _%e158821158890%_))) + (_%hd158822158893%_ (let () (declare (not safe)) - (##car _%e158662158731%_)))) + (##car _%e158821158890%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158663158734%_)) - (let ((_%e158665158739%_ + _%hd158822158893%_)) + (let ((_%e158824158898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd158663158734%_)))) - (let ((_%tl158667158744%_ + (gx#stx-e _%hd158822158893%_)))) + (let ((_%tl158826158903%_ (let () (declare (not safe)) - (##cdr _%e158665158739%_))) - (_%hd158666158742%_ + (##cdr _%e158824158898%_))) + (_%hd158825158901%_ (let () (declare (not safe)) - (##car _%e158665158739%_)))) + (##car _%e158824158898%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158666158742%_)) + (gx#identifier? _%hd158825158901%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158666158742%_)) + (gx#stx-eq? '%#ref _%hd158825158901%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158667158744%_)) - (let ((_%e158668158747%_ + (gx#stx-pair? _%tl158826158903%_)) + (let ((_%e158827158906%_ (let () (declare (not safe)) - (gx#stx-e _%tl158667158744%_)))) - (let ((_%tl158670158752%_ + (gx#stx-e _%tl158826158903%_)))) + (let ((_%tl158829158911%_ (let () (declare (not safe)) - (##cdr _%e158668158747%_))) - (_%hd158669158750%_ + (##cdr _%e158827158906%_))) + (_%hd158828158909%_ (let () (declare (not safe)) - (##car _%e158668158747%_)))) + (##car _%e158827158906%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158670158752%_)) + (gx#stx-null? _%tl158829158911%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158664158736%_)) - (let ((_%e158671158755%_ + _%tl158823158895%_)) + (let ((_%e158830158914%_ (let () (declare (not safe)) (gx#stx-e - _%tl158664158736%_)))) - (let ((_%tl158673158760%_ + _%tl158823158895%_)))) + (let ((_%tl158832158919%_ (let () (declare (not safe)) - (##cdr _%e158671158755%_))) - (_%hd158672158758%_ + (##cdr _%e158830158914%_))) + (_%hd158831158917%_ (let () (declare (not safe)) - (##car _%e158671158755%_)))) + (##car _%e158830158914%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158673158760%_)) + _%tl158832158919%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158649158696%_)) - (_%__kont169576169577%_ - _%hd158669158750%_ - _%hd158660158726%_ - _%hd158560158939%_) + _%tl158808158855%_)) + (_%__kont169735169736%_ + _%hd158828158909%_ + _%hd158819158885%_ + _%hd158719159098%_) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))))) + (_%g158713158837%_))) + (let () (declare (not safe)) (_%g158713158837%_))))) + (let () (declare (not safe)) (_%g158713158837%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))) + (_%g158713158837%_))))) + (let () (declare (not safe)) (_%g158713158837%_))))) + (let () (declare (not safe)) (_%g158713158837%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g158713158837%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g158713158837%_))))) (let () (declare (not safe)) - (_%g158554158678%_)))))) - (let () (declare (not safe)) (_%g158554158678%_)))))))) + (_%g158713158837%_)))))) + (let () (declare (not safe)) (_%g158713158837%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form158354%_) - (let* ((_%g158356158370%_ - (lambda (_%g158357158367%_) + (lambda (_%form158513%_) + (let* ((_%g158515158529%_ + (lambda (_%g158516158526%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158357158367%_)))) - (_%g158355158547%_ - (lambda (_%g158357158373%_) + _%g158516158526%_)))) + (_%g158514158706%_ + (lambda (_%g158516158532%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158357158373%_)) - (let ((_%e158360158375%_ + (gx#stx-pair? _%g158516158532%_)) + (let ((_%e158519158534%_ (let () (declare (not safe)) - (gx#stx-e _%g158357158373%_)))) - (let ((_%hd158361158378%_ + (gx#stx-e _%g158516158532%_)))) + (let ((_%hd158520158537%_ (let () (declare (not safe)) - (##car _%e158360158375%_))) - (_%tl158362158380%_ + (##car _%e158519158534%_))) + (_%tl158521158539%_ (let () (declare (not safe)) - (##cdr _%e158360158375%_)))) + (##cdr _%e158519158534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158362158380%_)) - (let ((_%e158363158383%_ + (gx#stx-pair? _%tl158521158539%_)) + (let ((_%e158522158542%_ (let () (declare (not safe)) - (gx#stx-e _%tl158362158380%_)))) - (let ((_%hd158364158386%_ + (gx#stx-e _%tl158521158539%_)))) + (let ((_%hd158523158545%_ (let () (declare (not safe)) - (##car _%e158363158383%_))) - (_%tl158365158388%_ + (##car _%e158522158542%_))) + (_%tl158524158547%_ (let () (declare (not safe)) - (##cdr _%e158363158383%_)))) + (##cdr _%e158522158542%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158365158388%_)) - ((lambda (_%L158391%_ _%L158392%_) - (let* ((_%__stx169686169687%_ - _%L158392%_) - (_%g158407158435%_ + (gx#stx-null? _%tl158524158547%_)) + ((lambda (_%L158550%_ _%L158551%_) + (let* ((_%__stx169845169846%_ + _%L158551%_) + (_%g158566158594%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169686169687%_))))) - (let ((_%__kont169688169689%_ - (lambda (_%L158526%_) - (length (let ((__tmp171077 + _%__stx169845169846%_))))) + (let ((_%__kont169847169848%_ + (lambda (_%L158685%_) + (length (let ((__tmp171236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158536158539%_ _%g158537158541%_) - (cons _%g158536158539%_ _%g158537158541%_)))) + (lambda (_%g158695158698%_ _%g158696158700%_) + (cons _%g158695158698%_ _%g158696158700%_)))) (declare (not safe)) - (__foldr1 __tmp171077 '() _%L158526%_))))) + (__foldr1 __tmp171236 '() _%L158685%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169692169693%_ - (lambda (_%L158477%_ - _%L158478%_) - (cons (length (let ((__tmp171078 + (_%__kont169851169852%_ + (lambda (_%L158636%_ + _%L158637%_) + (cons (length (let ((__tmp171237 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158489158492%_ _%g158490158494%_) - (cons _%g158489158492%_ - _%g158490158494%_)))) + (lambda (_%g158648158651%_ _%g158649158653%_) + (cons _%g158648158651%_ + _%g158649158653%_)))) (declare (not safe)) - (__foldr1 __tmp171078 '() _%L158478%_))) + (__foldr1 __tmp171237 '() _%L158637%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169696169697%_ - (lambda (_%L158440%_) + (_%__kont169855169856%_ + (lambda (_%L158599%_) (cons '0 '())))) - (let* ((_%__match169711169712%_ - (lambda (_%__splice169694169695%_ - _%target158421158453%_ - _%tl158423158455%_) - (letrec ((_%loop158424158458%_ + (let* ((_%__match169870169871%_ + (lambda (_%__splice169853169854%_ + _%target158580158612%_ + _%tl158582158614%_) + (letrec ((_%loop158583158617%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158422158461%_ _%arg158428158463%_) + (lambda (_%hd158581158620%_ _%arg158587158622%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158422158461%_)) - (let ((_%e158425158466%_ + (gx#stx-pair? _%hd158581158620%_)) + (let ((_%e158584158625%_ (let () (declare (not safe)) - (gx#stx-e _%hd158422158461%_)))) - (let ((_%lp-tl158427158471%_ + (gx#stx-e _%hd158581158620%_)))) + (let ((_%lp-tl158586158630%_ (let () (declare (not safe)) - (##cdr _%e158425158466%_))) - (_%lp-hd158426158469%_ + (##cdr _%e158584158625%_))) + (_%lp-hd158585158628%_ (let () (declare (not safe)) - (##car _%e158425158466%_)))) - (_%loop158424158458%_ - _%lp-tl158427158471%_ - (cons _%lp-hd158426158469%_ - _%arg158428158463%_)))) - (let ((_%arg158429158474%_ - (reverse _%arg158428158463%_))) - (_%__kont169692169693%_ - _%tl158423158455%_ - _%arg158429158474%_)))))) - (_%loop158424158458%_ _%target158421158453%_ '())))) + (##car _%e158584158625%_)))) + (_%loop158583158617%_ + _%lp-tl158586158630%_ + (cons _%lp-hd158585158628%_ + _%arg158587158622%_)))) + (let ((_%arg158588158633%_ + (reverse _%arg158587158622%_))) + (_%__kont169851169852%_ + _%tl158582158614%_ + _%arg158588158633%_)))))) + (_%loop158583158617%_ _%target158580158612%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169705169706%_ - (lambda (_%__splice169690169691%_ - _%target158410158502%_ - _%tl158412158504%_) - (letrec ((_%loop158413158507%_ + (_%__match169864169865%_ + (lambda (_%__splice169849169850%_ + _%target158569158661%_ + _%tl158571158663%_) + (letrec ((_%loop158572158666%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158411158510%_ _%arg158417158512%_) + (lambda (_%hd158570158669%_ _%arg158576158671%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158411158510%_)) - (let ((_%e158414158515%_ + (gx#stx-pair? _%hd158570158669%_)) + (let ((_%e158573158674%_ (let () (declare (not safe)) - (gx#stx-e _%hd158411158510%_)))) - (let ((_%lp-tl158416158520%_ + (gx#stx-e _%hd158570158669%_)))) + (let ((_%lp-tl158575158679%_ (let () (declare (not safe)) - (##cdr _%e158414158515%_))) - (_%lp-hd158415158518%_ + (##cdr _%e158573158674%_))) + (_%lp-hd158574158677%_ (let () (declare (not safe)) - (##car _%e158414158515%_)))) - (_%loop158413158507%_ - _%lp-tl158416158520%_ - (cons _%lp-hd158415158518%_ - _%arg158417158512%_)))) - (let ((_%arg158418158523%_ - (reverse _%arg158417158512%_))) - (_%__kont169688169689%_ - _%arg158418158523%_)))))) - (_%loop158413158507%_ _%target158410158502%_ '()))))) + (##car _%e158573158674%_)))) + (_%loop158572158666%_ + _%lp-tl158575158679%_ + (cons _%lp-hd158574158677%_ + _%arg158576158671%_)))) + (let ((_%arg158577158682%_ + (reverse _%arg158576158671%_))) + (_%__kont169847169848%_ + _%arg158577158682%_)))))) + (_%loop158572158666%_ _%target158569158661%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx169686169687%_)) - (let ((_%__splice169690169691%_ + _%__stx169845169846%_)) + (let ((_%__splice169849169850%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx169686169687%_ + _%__stx169845169846%_ '0)))) - (let ((_%tl158412158504%_ + (let ((_%tl158571158663%_ (let () (declare (not safe)) (##vector-ref - _%__splice169690169691%_ + _%__splice169849169850%_ '1))) - (_%target158410158502%_ + (_%target158569158661%_ (let () (declare (not safe)) (##vector-ref - _%__splice169690169691%_ + _%__splice169849169850%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158412158504%_)) - (_%__match169705169706%_ - _%__splice169690169691%_ - _%target158410158502%_ - _%tl158412158504%_) - (_%__match169711169712%_ - _%__splice169690169691%_ - _%target158410158502%_ - _%tl158412158504%_)))) - (_%__kont169696169697%_ - _%__stx169686169687%_)))))) - _%hd158364158386%_ - _%hd158361158378%_) - (_%g158356158370%_ _%g158357158373%_)))) - (_%g158356158370%_ _%g158357158373%_)))) - (_%g158356158370%_ _%g158357158373%_))))) - (_%g158355158547%_ _%form158354%_)))) + _%tl158571158663%_)) + (_%__match169864169865%_ + _%__splice169849169850%_ + _%target158569158661%_ + _%tl158571158663%_) + (_%__match169870169871%_ + _%__splice169849169850%_ + _%target158569158661%_ + _%tl158571158663%_)))) + (_%__kont169855169856%_ + _%__stx169845169846%_)))))) + _%hd158523158545%_ + _%hd158520158537%_) + (_%g158515158529%_ _%g158516158532%_)))) + (_%g158515158529%_ _%g158516158532%_)))) + (_%g158515158529%_ _%g158516158532%_))))) + (_%g158514158706%_ _%form158513%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form158280%_) - (letrec ((_%default-signature158282%_ + (lambda (_%form158439%_) + (letrec ((_%default-signature158441%_ (lambda () - (let ((__obj170845 + (let ((__obj171004 (let () (declare (not safe)) (##structure @@ -17998,12 +17998,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170845 + __obj171004 't::t '1 '#f '#f)) - (let ((__tmp171079 + (let ((__tmp171238 (##structure-ref (let () (declare (not safe)) @@ -18013,74 +18013,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj170845 - __tmp171079 + __obj171004 + __tmp171238 '5 '#f '#f)) - __obj170845)))) - (let* ((_%g158284158298%_ - (lambda (_%g158285158295%_) + __obj171004)))) + (let* ((_%g158443158457%_ + (lambda (_%g158444158454%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158285158295%_)))) - (_%g158283158350%_ - (lambda (_%g158285158301%_) + _%g158444158454%_)))) + (_%g158442158509%_ + (lambda (_%g158444158460%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158285158301%_)) - (let ((_%e158288158303%_ + (gx#stx-pair? _%g158444158460%_)) + (let ((_%e158447158462%_ (let () (declare (not safe)) - (gx#stx-e _%g158285158301%_)))) - (let ((_%hd158289158306%_ + (gx#stx-e _%g158444158460%_)))) + (let ((_%hd158448158465%_ (let () (declare (not safe)) - (##car _%e158288158303%_))) - (_%tl158290158308%_ + (##car _%e158447158462%_))) + (_%tl158449158467%_ (let () (declare (not safe)) - (##cdr _%e158288158303%_)))) + (##cdr _%e158447158462%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158290158308%_)) - (let ((_%e158291158311%_ + (gx#stx-pair? _%tl158449158467%_)) + (let ((_%e158450158470%_ (let () (declare (not safe)) - (gx#stx-e _%tl158290158308%_)))) - (let ((_%hd158292158314%_ + (gx#stx-e _%tl158449158467%_)))) + (let ((_%hd158451158473%_ (let () (declare (not safe)) - (##car _%e158291158311%_))) - (_%tl158293158316%_ + (##car _%e158450158470%_))) + (_%tl158452158475%_ (let () (declare (not safe)) - (##cdr _%e158291158311%_)))) + (##cdr _%e158450158470%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158293158316%_)) - ((lambda (_%L158319%_ _%L158320%_) - (let ((_%$e158334%_ + (gx#stx-null? _%tl158452158475%_)) + ((lambda (_%L158478%_ _%L158479%_) + (let ((_%$e158493%_ (gxc#apply-extract-lambda-signature - _%L158319%_))) - (if _%$e158334%_ - _%$e158334%_ - (let ((_%$e158337%_ + _%L158478%_))) + (if _%$e158493%_ + _%$e158493%_ + (let ((_%$e158496%_ (gxc#apply-basic-expression-type - _%L158319%_))) - (if _%$e158337%_ - ((lambda (_%return-type158340%_) + _%L158478%_))) + (if _%$e158496%_ + ((lambda (_%return-type158499%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type158340%_ + _%return-type158499%_ 'gxc#!procedure::t)) - (let ((__obj170847 + (let ((__obj171006 (let () (declare (not safe)) (##structure @@ -18093,12 +18093,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170847 + __obj171006 'procedure::t '1 '#f '#f)) - (let ((__tmp171080 + (let ((__tmp171239 (##structure-ref (let () (declare (not safe)) @@ -18108,20 +18108,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj170847 - __tmp171080 + __obj171006 + __tmp171239 '5 '#f '#f)) - __obj170847) - (let ((_%$e158343%_ + __obj171006) + (let ((_%$e158502%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type158340%_)))) - (if _%$e158343%_ - ((lambda (_%return-type-name158346%_) - (let ((__obj170846 + _%return-type158499%_)))) + (if _%$e158502%_ + ((lambda (_%return-type-name158505%_) + (let ((__obj171005 (let () (declare (not safe)) (##structure @@ -18134,12 +18134,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170846 - _%return-type-name158346%_ + __obj171005 + _%return-type-name158505%_ '1 '#f '#f)) - (let ((__tmp171081 + (let ((__tmp171240 (##structure-ref (let () (declare (not safe)) @@ -18149,124 +18149,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj170846 - __tmp171081 + __obj171005 + __tmp171240 '5 '#f '#f)) - __obj170846)) - _%$e158343%_) - (_%default-signature158282%_))))) - _%$e158337%_) - (_%default-signature158282%_)))))) + __obj171005)) + _%$e158502%_) + (_%default-signature158441%_))))) + _%$e158496%_) + (_%default-signature158441%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158292158314%_ - _%hd158289158306%_) - (_%g158284158298%_ - _%g158285158301%_)))) - (_%g158284158298%_ _%g158285158301%_)))) - (_%g158284158298%_ _%g158285158301%_))))) - (_%g158283158350%_ _%form158280%_))))) + _%hd158451158473%_ + _%hd158448158465%_) + (_%g158443158457%_ + _%g158444158460%_)))) + (_%g158443158457%_ _%g158444158460%_)))) + (_%g158443158457%_ _%g158444158460%_))))) + (_%g158442158509%_ _%form158439%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self158019%_ _%stx158020%_) - (let* ((_%__stx169727169728%_ _%stx158020%_) - (_%g158023158063%_ + (lambda (_%self158178%_ _%stx158179%_) + (let* ((_%__stx169886169887%_ _%stx158179%_) + (_%g158182158222%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169727169728%_))))) - (let ((_%__kont169729169730%_ - (lambda (_%L158169%_ _%L158170%_) - (let _%loop158190%_ ((_%rest158192%_ - (let ((__tmp171086 - (lambda (_%g158269158272%_ - _%g158270158274%_) - (cons _%g158269158272%_ - _%g158270158274%_)))) + _%__stx169886169887%_))))) + (let ((_%__kont169888169889%_ + (lambda (_%L158328%_ _%L158329%_) + (let _%loop158349%_ ((_%rest158351%_ + (let ((__tmp171245 + (lambda (_%g158428158431%_ + _%g158429158433%_) + (cons _%g158428158431%_ + _%g158429158433%_)))) (declare (not safe)) (__foldr1 - __tmp171086 + __tmp171245 '() - _%L158170%_))) - (_%result158193%_ '())) - (let* ((_%rest158194158207%_ _%rest158192%_) - (_%E158198158211%_ + _%L158329%_))) + (_%result158352%_ '())) + (let* ((_%rest158353158366%_ _%rest158351%_) + (_%E158357158370%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest158194158207%_ + _%rest158353158366%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K158201158251%_ - (lambda (_%rest158237%_ - _%arg158238%_ - _%key158239%_) - (let ((_%$e158241%_ + (let ((_%K158360158410%_ + (lambda (_%rest158396%_ + _%arg158397%_ + _%key158398%_) + (let ((_%$e158400%_ (let () (declare (not safe)) - (gx#stx-e _%key158239%_)))) - (if (eq? 'return: _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + (gx#stx-e _%key158398%_)))) + (if (eq? 'return: _%$e158400%_) + (_%loop158349%_ + _%rest158396%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg158238%_)) - _%result158193%_))) - (if (eq? 'effect: _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + _%arg158397%_)) + _%result158352%_))) + (if (eq? 'effect: _%$e158400%_) + (_%loop158349%_ + _%rest158396%_ (cons 'effect: - (cons (if _%arg158238%_ + (cons (if _%arg158397%_ (map gx#stx-e - _%arg158238%_) + _%arg158397%_) '#f) - _%result158193%_))) - (if (eq? 'arguments: _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + _%result158352%_))) + (if (eq? 'arguments: _%$e158400%_) + (_%loop158349%_ + _%rest158396%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg158238%_)) - _%result158193%_))) + _%arg158397%_)) + _%result158352%_))) (if (eq? 'unchecked: - _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + _%$e158400%_) + (_%loop158349%_ + _%rest158396%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg158238%_)) - _%result158193%_))) + (gxc#identifier-symbol _%arg158397%_)) + _%result158352%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171082 - (let ((__tmp171083 - (lambda (_%g158243158246%_ + (let ((__tmp171241 + (let ((__tmp171242 + (lambda (_%g158402158405%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g158244158248%_) - (cons _%g158243158246%_ _%g158244158248%_)))) + _%g158403158407%_) + (cons _%g158402158405%_ _%g158403158407%_)))) (declare (not safe)) - (__foldr1 __tmp171083 '() _%L158170%_)))) + (__foldr1 __tmp171242 '() _%L158329%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158020%_ - __tmp171082 - _%key158239%_))))))))) - (_%K158200158231%_ + _%stx158179%_ + __tmp171241 + _%key158398%_))))))))) + (_%K158359158390%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18277,1824 +18277,1824 @@ '1 gx#expander-context::t '#f) - _%result158193%_))) - (_%K158199158223%_ + _%result158352%_))) + (_%K158358158382%_ (lambda () - (let ((__tmp171084 - (let ((__tmp171085 - (lambda (_%g158215158218%_ - _%g158216158220%_) - (cons _%g158215158218%_ - _%g158216158220%_)))) + (let ((__tmp171243 + (let ((__tmp171244 + (lambda (_%g158374158377%_ + _%g158375158379%_) + (cons _%g158374158377%_ + _%g158375158379%_)))) (declare (not safe)) (__foldr1 - __tmp171085 + __tmp171244 '() - _%L158170%_)))) + _%L158329%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158020%_ - __tmp171084))))) - (let ((_%try-match158196158234%_ + _%stx158179%_ + __tmp171243))))) + (let ((_%try-match158355158393%_ (lambda () - (if (null? _%rest158194158207%_) - (_%K158200158231%_) - (_%K158199158223%_))))) - (if (pair? _%rest158194158207%_) - (let ((_%tl158203158256%_ + (if (null? _%rest158353158366%_) + (_%K158359158390%_) + (_%K158358158382%_))))) + (if (pair? _%rest158353158366%_) + (let ((_%tl158362158415%_ (let () (declare (not safe)) - (##cdr _%rest158194158207%_))) - (_%hd158202158254%_ + (##cdr _%rest158353158366%_))) + (_%hd158361158413%_ (let () (declare (not safe)) - (##car _%rest158194158207%_)))) + (##car _%rest158353158366%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd158202158254%_)) - (if (pair? _%tl158203158256%_) - (let ((_%tl158205158263%_ + (gx#stx-keyword? _%hd158361158413%_)) + (if (pair? _%tl158362158415%_) + (let ((_%tl158364158422%_ (let () (declare (not safe)) - (##cdr _%tl158203158256%_))) - (_%hd158204158261%_ + (##cdr _%tl158362158415%_))) + (_%hd158363158420%_ (let () (declare (not safe)) - (##car _%tl158203158256%_)))) - (let ((_%key158259%_ - _%hd158202158254%_) - (_%arg158266%_ - _%hd158204158261%_) - (_%rest158268%_ - _%tl158205158263%_)) - (_%K158201158251%_ - _%rest158268%_ - _%arg158266%_ - _%key158259%_))) - (_%K158199158223%_)) - (_%K158199158223%_))) - (_%try-match158196158234%_)))))))) - (_%__kont169733169734%_ - (lambda (_%L158092%_ _%L158093%_) + (##car _%tl158362158415%_)))) + (let ((_%key158418%_ + _%hd158361158413%_) + (_%arg158425%_ + _%hd158363158420%_) + (_%rest158427%_ + _%tl158364158422%_)) + (_%K158360158410%_ + _%rest158427%_ + _%arg158425%_ + _%key158418%_))) + (_%K158358158382%_)) + (_%K158358158382%_))) + (_%try-match158355158393%_)))))))) + (_%__kont169892169893%_ + (lambda (_%L158251%_ _%L158252%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self158019%_ _%L158092%_))))) - (let ((_%__match169764169765%_ - (lambda (_%e158027158113%_ - _%hd158028158116%_ - _%tl158029158118%_ - _%e158030158121%_ - _%hd158031158124%_ - _%tl158032158126%_ - _%e158033158129%_ - _%hd158034158132%_ - _%tl158035158134%_ - _%__splice169731169732%_ - _%target158036158137%_ - _%tl158038158139%_) - (letrec ((_%loop158039158142%_ - (lambda (_%hd158037158145%_ - _%signature158043158147%_) + (gxc#compile-e__1 _%self158178%_ _%L158251%_))))) + (let ((_%__match169923169924%_ + (lambda (_%e158186158272%_ + _%hd158187158275%_ + _%tl158188158277%_ + _%e158189158280%_ + _%hd158190158283%_ + _%tl158191158285%_ + _%e158192158288%_ + _%hd158193158291%_ + _%tl158194158293%_ + _%__splice169890169891%_ + _%target158195158296%_ + _%tl158197158298%_) + (letrec ((_%loop158198158301%_ + (lambda (_%hd158196158304%_ + _%signature158202158306%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158037158145%_)) - (let ((_%e158040158150%_ + (gx#stx-pair? _%hd158196158304%_)) + (let ((_%e158199158309%_ (let () (declare (not safe)) - (gx#stx-e _%hd158037158145%_)))) - (let ((_%lp-tl158042158155%_ + (gx#stx-e _%hd158196158304%_)))) + (let ((_%lp-tl158201158314%_ (let () (declare (not safe)) - (##cdr _%e158040158150%_))) - (_%lp-hd158041158153%_ + (##cdr _%e158199158309%_))) + (_%lp-hd158200158312%_ (let () (declare (not safe)) - (##car _%e158040158150%_)))) - (_%loop158039158142%_ - _%lp-tl158042158155%_ - (cons _%lp-hd158041158153%_ - _%signature158043158147%_)))) - (let ((_%signature158044158158%_ - (reverse _%signature158043158147%_))) + (##car _%e158199158309%_)))) + (_%loop158198158301%_ + _%lp-tl158201158314%_ + (cons _%lp-hd158200158312%_ + _%signature158202158306%_)))) + (let ((_%signature158203158317%_ + (reverse _%signature158202158306%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158032158126%_)) - (let ((_%e158045158161%_ + (gx#stx-pair? _%tl158191158285%_)) + (let ((_%e158204158320%_ (let () (declare (not safe)) (gx#stx-e - _%tl158032158126%_)))) - (let ((_%tl158047158166%_ + _%tl158191158285%_)))) + (let ((_%tl158206158325%_ (let () (declare (not safe)) - (##cdr _%e158045158161%_))) - (_%hd158046158164%_ + (##cdr _%e158204158320%_))) + (_%hd158205158323%_ (let () (declare (not safe)) - (##car _%e158045158161%_)))) + (##car _%e158204158320%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158047158166%_)) - (_%__kont169729169730%_ - _%hd158046158164%_ - _%signature158044158158%_) + _%tl158206158325%_)) + (_%__kont169888169889%_ + _%hd158205158323%_ + _%signature158203158317%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g158182158222%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))))))) - (_%loop158039158142%_ _%target158036158137%_ '()))))) + (_%g158182158222%_)))))))) + (_%loop158198158301%_ _%target158195158296%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169727169728%_)) - (let ((_%e158027158113%_ + (gx#stx-pair? _%__stx169886169887%_)) + (let ((_%e158186158272%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169727169728%_)))) - (let ((_%tl158029158118%_ + (gx#stx-e _%__stx169886169887%_)))) + (let ((_%tl158188158277%_ (let () (declare (not safe)) - (##cdr _%e158027158113%_))) - (_%hd158028158116%_ + (##cdr _%e158186158272%_))) + (_%hd158187158275%_ (let () (declare (not safe)) - (##car _%e158027158113%_)))) + (##car _%e158186158272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158029158118%_)) - (let ((_%e158030158121%_ + (gx#stx-pair? _%tl158188158277%_)) + (let ((_%e158189158280%_ (let () (declare (not safe)) - (gx#stx-e _%tl158029158118%_)))) - (let ((_%tl158032158126%_ + (gx#stx-e _%tl158188158277%_)))) + (let ((_%tl158191158285%_ (let () (declare (not safe)) - (##cdr _%e158030158121%_))) - (_%hd158031158124%_ + (##cdr _%e158189158280%_))) + (_%hd158190158283%_ (let () (declare (not safe)) - (##car _%e158030158121%_)))) + (##car _%e158189158280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158031158124%_)) - (let ((_%e158033158129%_ + (gx#stx-pair? _%hd158190158283%_)) + (let ((_%e158192158288%_ (let () (declare (not safe)) - (gx#stx-e _%hd158031158124%_)))) - (let ((_%tl158035158134%_ + (gx#stx-e _%hd158190158283%_)))) + (let ((_%tl158194158293%_ (let () (declare (not safe)) - (##cdr _%e158033158129%_))) - (_%hd158034158132%_ + (##cdr _%e158192158288%_))) + (_%hd158193158291%_ (let () (declare (not safe)) - (##car _%e158033158129%_)))) + (##car _%e158192158288%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158034158132%_)) + _%hd158193158291%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd158034158132%_)) + _%hd158193158291%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl158035158134%_)) - (let ((_%__splice169731169732%_ + _%tl158194158293%_)) + (let ((_%__splice169890169891%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158035158134%_ + _%tl158194158293%_ '0)))) - (let ((_%tl158038158139%_ + (let ((_%tl158197158298%_ (let () (declare (not safe)) (##vector-ref - _%__splice169731169732%_ + _%__splice169890169891%_ '1))) - (_%target158036158137%_ + (_%target158195158296%_ (let () (declare (not safe)) (##vector-ref - _%__splice169731169732%_ + _%__splice169890169891%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158038158139%_)) - (_%__match169764169765%_ - _%e158027158113%_ - _%hd158028158116%_ - _%tl158029158118%_ - _%e158030158121%_ - _%hd158031158124%_ - _%tl158032158126%_ - _%e158033158129%_ - _%hd158034158132%_ - _%tl158035158134%_ - _%__splice169731169732%_ - _%target158036158137%_ - _%tl158038158139%_) + _%tl158197158298%_)) + (_%__match169923169924%_ + _%e158186158272%_ + _%hd158187158275%_ + _%tl158188158277%_ + _%e158189158280%_ + _%hd158190158283%_ + _%tl158191158285%_ + _%e158192158288%_ + _%hd158193158291%_ + _%tl158194158293%_ + _%__splice169890169891%_ + _%target158195158296%_ + _%tl158197158298%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl158032158126%_)) - (let ((_%e158056158084%_ + (gx#stx-pair? _%tl158191158285%_)) + (let ((_%e158215158243%_ (let () (declare (not safe)) - (gx#stx-e _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + (gx#stx-e _%tl158191158285%_)))) + (let ((_%tl158217158248%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e158215158243%_))) + (_%hd158216158246%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e158215158243%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + (gx#stx-null? _%tl158217158248%_)) + (_%__kont169892169893%_ + _%hd158216158246%_ + _%hd158190158283%_) (let () (declare (not safe)) - (_%g158023158063%_))))) - (let () (declare (not safe)) (_%g158023158063%_)))))) + (_%g158182158222%_))))) + (let () (declare (not safe)) (_%g158182158222%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158032158126%_)) - (let ((_%e158056158084%_ + _%tl158191158285%_)) + (let ((_%e158215158243%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158032158126%_)))) - (let ((_%tl158058158089%_ - (let () (declare (not safe)) (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (gx#stx-e _%tl158191158285%_)))) + (let ((_%tl158217158248%_ + (let () (declare (not safe)) (##cdr _%e158215158243%_))) + (_%hd158216158246%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e158215158243%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) - (let () (declare (not safe)) (_%g158023158063%_))))) - (let () (declare (not safe)) (_%g158023158063%_)))) + (gx#stx-null? _%tl158217158248%_)) + (_%__kont169892169893%_ + _%hd158216158246%_ + _%hd158190158283%_) + (let () (declare (not safe)) (_%g158182158222%_))))) + (let () (declare (not safe)) (_%g158182158222%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158032158126%_)) - (let ((_%e158056158084%_ + _%tl158191158285%_)) + (let ((_%e158215158243%_ (let () (declare (not safe)) (gx#stx-e - _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + _%tl158191158285%_)))) + (let ((_%tl158217158248%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e158215158243%_))) + (_%hd158216158246%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e158215158243%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + _%tl158217158248%_)) + (_%__kont169892169893%_ + _%hd158216158246%_ + _%hd158190158283%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g158182158222%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))) + (_%g158182158222%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158032158126%_)) - (let ((_%e158056158084%_ + _%tl158191158285%_)) + (let ((_%e158215158243%_ (let () (declare (not safe)) (gx#stx-e - _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + _%tl158191158285%_)))) + (let ((_%tl158217158248%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e158215158243%_))) + (_%hd158216158246%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e158215158243%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + _%tl158217158248%_)) + (_%__kont169892169893%_ + _%hd158216158246%_ + _%hd158190158283%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g158182158222%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))))) + (_%g158182158222%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158032158126%_)) - (let ((_%e158056158084%_ + (gx#stx-pair? _%tl158191158285%_)) + (let ((_%e158215158243%_ (let () (declare (not safe)) - (gx#stx-e _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + (gx#stx-e _%tl158191158285%_)))) + (let ((_%tl158217158248%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e158215158243%_))) + (_%hd158216158246%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e158215158243%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + _%tl158217158248%_)) + (_%__kont169892169893%_ + _%hd158216158246%_ + _%hd158190158283%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g158182158222%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))))) - (let () (declare (not safe)) (_%g158023158063%_))))) - (let () (declare (not safe)) (_%g158023158063%_)))))))) + (_%g158182158222%_)))))) + (let () (declare (not safe)) (_%g158182158222%_))))) + (let () (declare (not safe)) (_%g158182158222%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr157972%_) - (let* ((_%__stx169787169788%_ _%expr157972%_) - (_%g157975157985%_ + (lambda (_%expr158131%_) + (let* ((_%__stx169946169947%_ _%expr158131%_) + (_%g158134158144%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169787169788%_))))) - (let ((_%__kont169789169790%_ (lambda (_%L158005%_) '#t)) - (_%__kont169791169792%_ (lambda () '#f))) + _%__stx169946169947%_))))) + (let ((_%__kont169948169949%_ (lambda (_%L158164%_) '#t)) + (_%__kont169950169951%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169787169788%_)) - (let ((_%e157978157997%_ + (gx#stx-pair? _%__stx169946169947%_)) + (let ((_%e158137158156%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169787169788%_)))) - (let ((_%tl157980158002%_ + (gx#stx-e _%__stx169946169947%_)))) + (let ((_%tl158139158161%_ (let () (declare (not safe)) - (##cdr _%e157978157997%_))) - (_%hd157979158000%_ + (##cdr _%e158137158156%_))) + (_%hd158138158159%_ (let () (declare (not safe)) - (##car _%e157978157997%_)))) + (##car _%e158137158156%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157979158000%_)) + (gx#identifier? _%hd158138158159%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157979158000%_)) - (_%__kont169789169790%_ _%tl157980158002%_) - (_%__kont169791169792%_)) - (_%__kont169791169792%_)))) - (_%__kont169791169792%_)))))) + (gx#stx-eq? '%#lambda _%hd158138158159%_)) + (_%__kont169948169949%_ _%tl158139158161%_) + (_%__kont169950169951%_)) + (_%__kont169950169951%_)))) + (_%__kont169950169951%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr157925%_) - (let* ((_%__stx169805169806%_ _%expr157925%_) - (_%g157928157938%_ + (lambda (_%expr158084%_) + (let* ((_%__stx169964169965%_ _%expr158084%_) + (_%g158087158097%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169805169806%_))))) - (let ((_%__kont169807169808%_ (lambda (_%L157958%_) '#t)) - (_%__kont169809169810%_ (lambda () '#f))) + _%__stx169964169965%_))))) + (let ((_%__kont169966169967%_ (lambda (_%L158117%_) '#t)) + (_%__kont169968169969%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169805169806%_)) - (let ((_%e157931157950%_ + (gx#stx-pair? _%__stx169964169965%_)) + (let ((_%e158090158109%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169805169806%_)))) - (let ((_%tl157933157955%_ + (gx#stx-e _%__stx169964169965%_)))) + (let ((_%tl158092158114%_ (let () (declare (not safe)) - (##cdr _%e157931157950%_))) - (_%hd157932157953%_ + (##cdr _%e158090158109%_))) + (_%hd158091158112%_ (let () (declare (not safe)) - (##car _%e157931157950%_)))) + (##car _%e158090158109%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157932157953%_)) + (gx#identifier? _%hd158091158112%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd157932157953%_)) - (_%__kont169807169808%_ _%tl157933157955%_) - (_%__kont169809169810%_)) - (_%__kont169809169810%_)))) - (_%__kont169809169810%_)))))) + (gx#stx-eq? '%#case-lambda _%hd158091158112%_)) + (_%__kont169966169967%_ _%tl158092158114%_) + (_%__kont169968169969%_)) + (_%__kont169968169969%_)))) + (_%__kont169968169969%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr157794%_) - (let* ((_%__stx169823169824%_ _%expr157794%_) - (_%g157797157827%_ + (lambda (_%expr157953%_) + (let* ((_%__stx169982169983%_ _%expr157953%_) + (_%g157956157986%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169823169824%_))))) - (let ((_%__kont169825169826%_ - (lambda (_%L157895%_ _%L157896%_ _%L157897%_) + _%__stx169982169983%_))))) + (let ((_%__kont169984169985%_ + (lambda (_%L158054%_ _%L158055%_ _%L158056%_) (if (let () (declare (not safe)) - (gx#identifier? _%L157897%_)) - (if (gxc#lambda-expr? _%L157896%_) - (gxc#case-lambda-expr? _%L157895%_) + (gx#identifier? _%L158056%_)) + (if (gxc#lambda-expr? _%L158055%_) + (gxc#case-lambda-expr? _%L158054%_) '#f) '#f))) - (_%__kont169827169828%_ (lambda () '#f))) + (_%__kont169986169987%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169823169824%_)) - (let ((_%e157802157839%_ + (gx#stx-pair? _%__stx169982169983%_)) + (let ((_%e157961157998%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169823169824%_)))) - (let ((_%tl157804157844%_ + (gx#stx-e _%__stx169982169983%_)))) + (let ((_%tl157963158003%_ (let () (declare (not safe)) - (##cdr _%e157802157839%_))) - (_%hd157803157842%_ + (##cdr _%e157961157998%_))) + (_%hd157962158001%_ (let () (declare (not safe)) - (##car _%e157802157839%_)))) + (##car _%e157961157998%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157803157842%_)) + (gx#identifier? _%hd157962158001%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157803157842%_)) + (gx#stx-eq? '%#let-values _%hd157962158001%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157804157844%_)) - (let ((_%e157805157847%_ + (gx#stx-pair? _%tl157963158003%_)) + (let ((_%e157964158006%_ (let () (declare (not safe)) - (gx#stx-e _%tl157804157844%_)))) - (let ((_%tl157807157852%_ + (gx#stx-e _%tl157963158003%_)))) + (let ((_%tl157966158011%_ (let () (declare (not safe)) - (##cdr _%e157805157847%_))) - (_%hd157806157850%_ + (##cdr _%e157964158006%_))) + (_%hd157965158009%_ (let () (declare (not safe)) - (##car _%e157805157847%_)))) + (##car _%e157964158006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157806157850%_)) - (let ((_%e157808157855%_ + (gx#stx-pair? _%hd157965158009%_)) + (let ((_%e157967158014%_ (let () (declare (not safe)) (gx#stx-e - _%hd157806157850%_)))) - (let ((_%tl157810157860%_ + _%hd157965158009%_)))) + (let ((_%tl157969158019%_ (let () (declare (not safe)) - (##cdr _%e157808157855%_))) - (_%hd157809157858%_ + (##cdr _%e157967158014%_))) + (_%hd157968158017%_ (let () (declare (not safe)) - (##car _%e157808157855%_)))) + (##car _%e157967158014%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157809157858%_)) - (let ((_%e157811157863%_ + _%hd157968158017%_)) + (let ((_%e157970158022%_ (let () (declare (not safe)) (gx#stx-e - _%hd157809157858%_)))) - (let ((_%tl157813157868%_ + _%hd157968158017%_)))) + (let ((_%tl157972158027%_ (let () (declare (not safe)) - (##cdr _%e157811157863%_))) - (_%hd157812157866%_ + (##cdr _%e157970158022%_))) + (_%hd157971158025%_ (let () (declare (not safe)) - (##car _%e157811157863%_)))) + (##car _%e157970158022%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157812157866%_)) - (let ((_%e157814157871%_ + _%hd157971158025%_)) + (let ((_%e157973158030%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157812157866%_)))) - (let ((_%tl157816157876%_ + (gx#stx-e _%hd157971158025%_)))) + (let ((_%tl157975158035%_ (let () (declare (not safe)) - (##cdr _%e157814157871%_))) - (_%hd157815157874%_ + (##cdr _%e157973158030%_))) + (_%hd157974158033%_ (let () (declare (not safe)) - (##car _%e157814157871%_)))) + (##car _%e157973158030%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157816157876%_)) + (gx#stx-null? _%tl157975158035%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157813157868%_)) - (let ((_%e157817157879%_ + (gx#stx-pair? _%tl157972158027%_)) + (let ((_%e157976158038%_ (let () (declare (not safe)) - (gx#stx-e _%tl157813157868%_)))) - (let ((_%tl157819157884%_ + (gx#stx-e _%tl157972158027%_)))) + (let ((_%tl157978158043%_ (let () (declare (not safe)) - (##cdr _%e157817157879%_))) - (_%hd157818157882%_ + (##cdr _%e157976158038%_))) + (_%hd157977158041%_ (let () (declare (not safe)) - (##car _%e157817157879%_)))) + (##car _%e157976158038%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157819157884%_)) + (gx#stx-null? _%tl157978158043%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157810157860%_)) + (gx#stx-null? _%tl157969158019%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157807157852%_)) - (let ((_%e157820157887%_ + _%tl157966158011%_)) + (let ((_%e157979158046%_ (let () (declare (not safe)) (gx#stx-e - _%tl157807157852%_)))) - (let ((_%tl157822157892%_ + _%tl157966158011%_)))) + (let ((_%tl157981158051%_ (let () (declare (not safe)) - (##cdr _%e157820157887%_))) - (_%hd157821157890%_ + (##cdr _%e157979158046%_))) + (_%hd157980158049%_ (let () (declare (not safe)) - (##car _%e157820157887%_)))) + (##car _%e157979158046%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157822157892%_)) - (_%__kont169825169826%_ - _%hd157821157890%_ - _%hd157818157882%_ - _%hd157815157874%_) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)))) + _%tl157981158051%_)) + (_%__kont169984169985%_ + _%hd157980158049%_ + _%hd157977158041%_ + _%hd157974158033%_) + (_%__kont169986169987%_)))) + (_%__kont169986169987%_)) + (_%__kont169986169987%_)) + (_%__kont169986169987%_)))) + (_%__kont169986169987%_)) + (_%__kont169986169987%_)))) + (_%__kont169986169987%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)))))) + (_%__kont169986169987%_)))) + (_%__kont169986169987%_)))) + (_%__kont169986169987%_)) + (_%__kont169986169987%_)) + (_%__kont169986169987%_)))) + (_%__kont169986169987%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr157119%_) - (let* ((_%__stx169885169886%_ _%expr157119%_) - (_%g157122157280%_ + (lambda (_%expr157278%_) + (let* ((_%__stx170044170045%_ _%expr157278%_) + (_%g157281157439%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169885169886%_))))) - (let ((_%__kont169887169888%_ - (lambda (_%L157668%_ - _%L157669%_ - _%L157670%_ - _%L157671%_ - _%L157672%_ - _%L157673%_ - _%L157674%_ - _%L157675%_ - _%L157676%_ - _%L157677%_ - _%L157678%_) + _%__stx170044170045%_))))) + (let ((_%__kont170046170047%_ + (lambda (_%L157827%_ + _%L157828%_ + _%L157829%_ + _%L157830%_ + _%L157831%_ + _%L157832%_ + _%L157833%_ + _%L157834%_ + _%L157835%_ + _%L157836%_ + _%L157837%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157675%_ 'apply)) + (gxc#runtime-identifier=? _%L157834%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157671%_ 'apply)) + (gxc#runtime-identifier=? _%L157830%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L157670%_ + _%L157829%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157678%_ - _%L157669%_)) + _%L157837%_ + _%L157828%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157677%_ - _%L157674%_)) + _%L157836%_ + _%L157833%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157672%_ - _%L157668%_)) + _%L157831%_ + _%L157827%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L157676%_ - _%L157673%_)) + _%L157835%_ + _%L157832%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont169889169890%_ (lambda () '#f))) + (_%__kont170048170049%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169885169886%_)) - (let ((_%e157135157292%_ + (gx#stx-pair? _%__stx170044170045%_)) + (let ((_%e157294157451%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169885169886%_)))) - (let ((_%tl157137157297%_ + (gx#stx-e _%__stx170044170045%_)))) + (let ((_%tl157296157456%_ (let () (declare (not safe)) - (##cdr _%e157135157292%_))) - (_%hd157136157295%_ + (##cdr _%e157294157451%_))) + (_%hd157295157454%_ (let () (declare (not safe)) - (##car _%e157135157292%_)))) + (##car _%e157294157451%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157136157295%_)) + (gx#identifier? _%hd157295157454%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157136157295%_)) + (gx#stx-eq? '%#let-values _%hd157295157454%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157137157297%_)) - (let ((_%e157138157300%_ + (gx#stx-pair? _%tl157296157456%_)) + (let ((_%e157297157459%_ (let () (declare (not safe)) - (gx#stx-e _%tl157137157297%_)))) - (let ((_%tl157140157305%_ + (gx#stx-e _%tl157296157456%_)))) + (let ((_%tl157299157464%_ (let () (declare (not safe)) - (##cdr _%e157138157300%_))) - (_%hd157139157303%_ + (##cdr _%e157297157459%_))) + (_%hd157298157462%_ (let () (declare (not safe)) - (##car _%e157138157300%_)))) + (##car _%e157297157459%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157139157303%_)) - (let ((_%e157141157308%_ + (gx#stx-pair? _%hd157298157462%_)) + (let ((_%e157300157467%_ (let () (declare (not safe)) (gx#stx-e - _%hd157139157303%_)))) - (let ((_%tl157143157313%_ + _%hd157298157462%_)))) + (let ((_%tl157302157472%_ (let () (declare (not safe)) - (##cdr _%e157141157308%_))) - (_%hd157142157311%_ + (##cdr _%e157300157467%_))) + (_%hd157301157470%_ (let () (declare (not safe)) - (##car _%e157141157308%_)))) + (##car _%e157300157467%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157142157311%_)) - (let ((_%e157144157316%_ + _%hd157301157470%_)) + (let ((_%e157303157475%_ (let () (declare (not safe)) (gx#stx-e - _%hd157142157311%_)))) - (let ((_%tl157146157321%_ + _%hd157301157470%_)))) + (let ((_%tl157305157480%_ (let () (declare (not safe)) - (##cdr _%e157144157316%_))) - (_%hd157145157319%_ + (##cdr _%e157303157475%_))) + (_%hd157304157478%_ (let () (declare (not safe)) - (##car _%e157144157316%_)))) + (##car _%e157303157475%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157145157319%_)) - (let ((_%e157147157324%_ + _%hd157304157478%_)) + (let ((_%e157306157483%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157145157319%_)))) - (let ((_%tl157149157329%_ + (gx#stx-e _%hd157304157478%_)))) + (let ((_%tl157308157488%_ (let () (declare (not safe)) - (##cdr _%e157147157324%_))) - (_%hd157148157327%_ + (##cdr _%e157306157483%_))) + (_%hd157307157486%_ (let () (declare (not safe)) - (##car _%e157147157324%_)))) + (##car _%e157306157483%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157149157329%_)) + (gx#stx-null? _%tl157308157488%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157146157321%_)) - (let ((_%e157150157332%_ + (gx#stx-pair? _%tl157305157480%_)) + (let ((_%e157309157491%_ (let () (declare (not safe)) - (gx#stx-e _%tl157146157321%_)))) - (let ((_%tl157152157337%_ + (gx#stx-e _%tl157305157480%_)))) + (let ((_%tl157311157496%_ (let () (declare (not safe)) - (##cdr _%e157150157332%_))) - (_%hd157151157335%_ + (##cdr _%e157309157491%_))) + (_%hd157310157494%_ (let () (declare (not safe)) - (##car _%e157150157332%_)))) + (##car _%e157309157491%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157151157335%_)) - (let ((_%e157153157340%_ + (gx#stx-pair? _%hd157310157494%_)) + (let ((_%e157312157499%_ (let () (declare (not safe)) - (gx#stx-e _%hd157151157335%_)))) - (let ((_%tl157155157345%_ + (gx#stx-e _%hd157310157494%_)))) + (let ((_%tl157314157504%_ (let () (declare (not safe)) - (##cdr _%e157153157340%_))) - (_%hd157154157343%_ + (##cdr _%e157312157499%_))) + (_%hd157313157502%_ (let () (declare (not safe)) - (##car _%e157153157340%_)))) + (##car _%e157312157499%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157154157343%_)) + _%hd157313157502%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd157154157343%_)) + _%hd157313157502%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157155157345%_)) - (let ((_%e157156157348%_ + _%tl157314157504%_)) + (let ((_%e157315157507%_ (let () (declare (not safe)) (gx#stx-e - _%tl157155157345%_)))) - (let ((_%tl157158157353%_ + _%tl157314157504%_)))) + (let ((_%tl157317157512%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157156157348%_))) - (_%hd157157157351%_ - (let () (declare (not safe)) (##car _%e157156157348%_)))) + (##cdr _%e157315157507%_))) + (_%hd157316157510%_ + (let () (declare (not safe)) (##car _%e157315157507%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157157157351%_)) - (let ((_%e157159157356%_ + (gx#stx-pair? _%hd157316157510%_)) + (let ((_%e157318157515%_ (let () (declare (not safe)) - (gx#stx-e _%hd157157157351%_)))) - (let ((_%tl157161157361%_ + (gx#stx-e _%hd157316157510%_)))) + (let ((_%tl157320157520%_ (let () (declare (not safe)) - (##cdr _%e157159157356%_))) - (_%hd157160157359%_ + (##cdr _%e157318157515%_))) + (_%hd157319157518%_ (let () (declare (not safe)) - (##car _%e157159157356%_)))) + (##car _%e157318157515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157160157359%_)) - (let ((_%e157162157364%_ + (gx#stx-pair? _%hd157319157518%_)) + (let ((_%e157321157523%_ (let () (declare (not safe)) - (gx#stx-e _%hd157160157359%_)))) - (let ((_%tl157164157369%_ + (gx#stx-e _%hd157319157518%_)))) + (let ((_%tl157323157528%_ (let () (declare (not safe)) - (##cdr _%e157162157364%_))) - (_%hd157163157367%_ + (##cdr _%e157321157523%_))) + (_%hd157322157526%_ (let () (declare (not safe)) - (##car _%e157162157364%_)))) + (##car _%e157321157523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157163157367%_)) - (let ((_%e157165157372%_ + (gx#stx-pair? _%hd157322157526%_)) + (let ((_%e157324157531%_ (let () (declare (not safe)) - (gx#stx-e _%hd157163157367%_)))) - (let ((_%tl157167157377%_ + (gx#stx-e _%hd157322157526%_)))) + (let ((_%tl157326157536%_ (let () (declare (not safe)) - (##cdr _%e157165157372%_))) - (_%hd157166157375%_ + (##cdr _%e157324157531%_))) + (_%hd157325157534%_ (let () (declare (not safe)) - (##car _%e157165157372%_)))) + (##car _%e157324157531%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157167157377%_)) + _%tl157326157536%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157164157369%_)) - (let ((_%e157168157380%_ + _%tl157323157528%_)) + (let ((_%e157327157539%_ (let () (declare (not safe)) (gx#stx-e - _%tl157164157369%_)))) - (let ((_%tl157170157385%_ + _%tl157323157528%_)))) + (let ((_%tl157329157544%_ (let () (declare (not safe)) - (##cdr _%e157168157380%_))) - (_%hd157169157383%_ + (##cdr _%e157327157539%_))) + (_%hd157328157542%_ (let () (declare (not safe)) - (##car _%e157168157380%_)))) + (##car _%e157327157539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157170157385%_)) + _%tl157329157544%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157161157361%_)) + _%tl157320157520%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157158157353%_)) - (let ((_%e157171157388%_ + (gx#stx-pair? _%tl157317157512%_)) + (let ((_%e157330157547%_ (let () (declare (not safe)) - (gx#stx-e _%tl157158157353%_)))) - (let ((_%tl157173157393%_ + (gx#stx-e _%tl157317157512%_)))) + (let ((_%tl157332157552%_ (let () (declare (not safe)) - (##cdr _%e157171157388%_))) - (_%hd157172157391%_ + (##cdr _%e157330157547%_))) + (_%hd157331157550%_ (let () (declare (not safe)) - (##car _%e157171157388%_)))) + (##car _%e157330157547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157172157391%_)) - (let ((_%e157174157396%_ + (gx#stx-pair? _%hd157331157550%_)) + (let ((_%e157333157555%_ (let () (declare (not safe)) - (gx#stx-e _%hd157172157391%_)))) - (let ((_%tl157176157401%_ + (gx#stx-e _%hd157331157550%_)))) + (let ((_%tl157335157560%_ (let () (declare (not safe)) - (##cdr _%e157174157396%_))) - (_%hd157175157399%_ + (##cdr _%e157333157555%_))) + (_%hd157334157558%_ (let () (declare (not safe)) - (##car _%e157174157396%_)))) + (##car _%e157333157555%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157175157399%_)) + (gx#identifier? _%hd157334157558%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd157175157399%_)) + _%hd157334157558%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157176157401%_)) - (let ((_%e157177157404%_ + _%tl157335157560%_)) + (let ((_%e157336157563%_ (let () (declare (not safe)) (gx#stx-e - _%tl157176157401%_)))) - (let ((_%tl157179157409%_ + _%tl157335157560%_)))) + (let ((_%tl157338157568%_ (let () (declare (not safe)) - (##cdr _%e157177157404%_))) - (_%hd157178157407%_ + (##cdr _%e157336157563%_))) + (_%hd157337157566%_ (let () (declare (not safe)) - (##car _%e157177157404%_)))) + (##car _%e157336157563%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157178157407%_)) - (let ((_%e157180157412%_ + _%hd157337157566%_)) + (let ((_%e157339157571%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157178157407%_)))) - (let ((_%tl157182157417%_ + (gx#stx-e _%hd157337157566%_)))) + (let ((_%tl157341157576%_ (let () (declare (not safe)) - (##cdr _%e157180157412%_))) - (_%hd157181157415%_ + (##cdr _%e157339157571%_))) + (_%hd157340157574%_ (let () (declare (not safe)) - (##car _%e157180157412%_)))) + (##car _%e157339157571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157179157409%_)) - (let ((_%e157183157420%_ + (gx#stx-pair? _%tl157338157568%_)) + (let ((_%e157342157579%_ (let () (declare (not safe)) - (gx#stx-e _%tl157179157409%_)))) - (let ((_%tl157185157425%_ + (gx#stx-e _%tl157338157568%_)))) + (let ((_%tl157344157584%_ (let () (declare (not safe)) - (##cdr _%e157183157420%_))) - (_%hd157184157423%_ + (##cdr _%e157342157579%_))) + (_%hd157343157582%_ (let () (declare (not safe)) - (##car _%e157183157420%_)))) + (##car _%e157342157579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157184157423%_)) - (let ((_%e157186157428%_ + (gx#stx-pair? _%hd157343157582%_)) + (let ((_%e157345157587%_ (let () (declare (not safe)) - (gx#stx-e _%hd157184157423%_)))) - (let ((_%tl157188157433%_ + (gx#stx-e _%hd157343157582%_)))) + (let ((_%tl157347157592%_ (let () (declare (not safe)) - (##cdr _%e157186157428%_))) - (_%hd157187157431%_ + (##cdr _%e157345157587%_))) + (_%hd157346157590%_ (let () (declare (not safe)) - (##car _%e157186157428%_)))) + (##car _%e157345157587%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157187157431%_)) + (gx#identifier? _%hd157346157590%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157187157431%_)) + _%hd157346157590%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157188157433%_)) - (let ((_%e157189157436%_ + _%tl157347157592%_)) + (let ((_%e157348157595%_ (let () (declare (not safe)) (gx#stx-e - _%tl157188157433%_)))) - (let ((_%tl157191157441%_ + _%tl157347157592%_)))) + (let ((_%tl157350157600%_ (let () (declare (not safe)) - (##cdr _%e157189157436%_))) - (_%hd157190157439%_ + (##cdr _%e157348157595%_))) + (_%hd157349157598%_ (let () (declare (not safe)) - (##car _%e157189157436%_)))) + (##car _%e157348157595%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157190157439%_)) - (let ((_%e157192157444%_ + _%hd157349157598%_)) + (let ((_%e157351157603%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157190157439%_)))) - (let ((_%tl157194157449%_ + (gx#stx-e _%hd157349157598%_)))) + (let ((_%tl157353157608%_ (let () (declare (not safe)) - (##cdr _%e157192157444%_))) - (_%hd157193157447%_ + (##cdr _%e157351157603%_))) + (_%hd157352157606%_ (let () (declare (not safe)) - (##car _%e157192157444%_)))) + (##car _%e157351157603%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157193157447%_)) + (gx#identifier? _%hd157352157606%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157193157447%_)) + (gx#stx-eq? '%#ref _%hd157352157606%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157194157449%_)) - (let ((_%e157195157452%_ + (gx#stx-pair? _%tl157353157608%_)) + (let ((_%e157354157611%_ (let () (declare (not safe)) - (gx#stx-e _%tl157194157449%_)))) - (let ((_%tl157197157457%_ + (gx#stx-e _%tl157353157608%_)))) + (let ((_%tl157356157616%_ (let () (declare (not safe)) - (##cdr _%e157195157452%_))) - (_%hd157196157455%_ + (##cdr _%e157354157611%_))) + (_%hd157355157614%_ (let () (declare (not safe)) - (##car _%e157195157452%_)))) + (##car _%e157354157611%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157197157457%_)) + (gx#stx-null? _%tl157356157616%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157191157441%_)) - (let ((_%e157198157460%_ + _%tl157350157600%_)) + (let ((_%e157357157619%_ (let () (declare (not safe)) (gx#stx-e - _%tl157191157441%_)))) - (let ((_%tl157200157465%_ + _%tl157350157600%_)))) + (let ((_%tl157359157624%_ (let () (declare (not safe)) - (##cdr _%e157198157460%_))) - (_%hd157199157463%_ + (##cdr _%e157357157619%_))) + (_%hd157358157622%_ (let () (declare (not safe)) - (##car _%e157198157460%_)))) + (##car _%e157357157619%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157199157463%_)) - (let ((_%e157201157468%_ + _%hd157358157622%_)) + (let ((_%e157360157627%_ (let () (declare (not safe)) (gx#stx-e - _%hd157199157463%_)))) - (let ((_%tl157203157473%_ + _%hd157358157622%_)))) + (let ((_%tl157362157632%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157201157468%_))) - (_%hd157202157471%_ - (let () (declare (not safe)) (##car _%e157201157468%_)))) + (##cdr _%e157360157627%_))) + (_%hd157361157630%_ + (let () (declare (not safe)) (##car _%e157360157627%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157202157471%_)) + (gx#identifier? _%hd157361157630%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157202157471%_)) + (gx#stx-eq? '%#ref _%hd157361157630%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157203157473%_)) - (let ((_%e157204157476%_ + (gx#stx-pair? _%tl157362157632%_)) + (let ((_%e157363157635%_ (let () (declare (not safe)) - (gx#stx-e _%tl157203157473%_)))) - (let ((_%tl157206157481%_ + (gx#stx-e _%tl157362157632%_)))) + (let ((_%tl157365157640%_ (let () (declare (not safe)) - (##cdr _%e157204157476%_))) - (_%hd157205157479%_ + (##cdr _%e157363157635%_))) + (_%hd157364157638%_ (let () (declare (not safe)) - (##car _%e157204157476%_)))) + (##car _%e157363157635%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157206157481%_)) + (gx#stx-null? _%tl157365157640%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157200157465%_)) - (let ((_%e157207157484%_ + (gx#stx-pair? _%tl157359157624%_)) + (let ((_%e157366157643%_ (let () (declare (not safe)) (gx#stx-e - _%tl157200157465%_)))) - (let ((_%tl157209157489%_ + _%tl157359157624%_)))) + (let ((_%tl157368157648%_ (let () (declare (not safe)) - (##cdr _%e157207157484%_))) - (_%hd157208157487%_ + (##cdr _%e157366157643%_))) + (_%hd157367157646%_ (let () (declare (not safe)) - (##car _%e157207157484%_)))) + (##car _%e157366157643%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157208157487%_)) - (let ((_%e157210157492%_ + _%hd157367157646%_)) + (let ((_%e157369157651%_ (let () (declare (not safe)) (gx#stx-e - _%hd157208157487%_)))) - (let ((_%tl157212157497%_ + _%hd157367157646%_)))) + (let ((_%tl157371157656%_ (let () (declare (not safe)) - (##cdr _%e157210157492%_))) - (_%hd157211157495%_ + (##cdr _%e157369157651%_))) + (_%hd157370157654%_ (let () (declare (not safe)) - (##car _%e157210157492%_)))) + (##car _%e157369157651%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157211157495%_)) + _%hd157370157654%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157211157495%_)) + _%hd157370157654%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157212157497%_)) - (let ((_%e157213157500%_ + (gx#stx-pair? _%tl157371157656%_)) + (let ((_%e157372157659%_ (let () (declare (not safe)) - (gx#stx-e _%tl157212157497%_)))) - (let ((_%tl157215157505%_ + (gx#stx-e _%tl157371157656%_)))) + (let ((_%tl157374157664%_ (let () (declare (not safe)) - (##cdr _%e157213157500%_))) - (_%hd157214157503%_ + (##cdr _%e157372157659%_))) + (_%hd157373157662%_ (let () (declare (not safe)) - (##car _%e157213157500%_)))) + (##car _%e157372157659%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157215157505%_)) + (gx#stx-null? _%tl157374157664%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157185157425%_)) + (gx#stx-null? _%tl157344157584%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157173157393%_)) + (gx#stx-null? _%tl157332157552%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157152157337%_)) + _%tl157311157496%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157143157313%_)) + _%tl157302157472%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157140157305%_)) - (let ((_%e157216157508%_ + _%tl157299157464%_)) + (let ((_%e157375157667%_ (let () (declare (not safe)) (gx#stx-e - _%tl157140157305%_)))) - (let ((_%tl157218157513%_ + _%tl157299157464%_)))) + (let ((_%tl157377157672%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157216157508%_))) - (_%hd157217157511%_ - (let () (declare (not safe)) (##car _%e157216157508%_)))) + (##cdr _%e157375157667%_))) + (_%hd157376157670%_ + (let () (declare (not safe)) (##car _%e157375157667%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157217157511%_)) - (let ((_%e157219157516%_ + (gx#stx-pair? _%hd157376157670%_)) + (let ((_%e157378157675%_ (let () (declare (not safe)) - (gx#stx-e _%hd157217157511%_)))) - (let ((_%tl157221157521%_ + (gx#stx-e _%hd157376157670%_)))) + (let ((_%tl157380157680%_ (let () (declare (not safe)) - (##cdr _%e157219157516%_))) - (_%hd157220157519%_ + (##cdr _%e157378157675%_))) + (_%hd157379157678%_ (let () (declare (not safe)) - (##car _%e157219157516%_)))) + (##car _%e157378157675%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157220157519%_)) + (gx#identifier? _%hd157379157678%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157220157519%_)) + (gx#stx-eq? '%#lambda _%hd157379157678%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157221157521%_)) - (let ((_%e157222157524%_ + (gx#stx-pair? _%tl157380157680%_)) + (let ((_%e157381157683%_ (let () (declare (not safe)) - (gx#stx-e _%tl157221157521%_)))) - (let ((_%tl157224157529%_ + (gx#stx-e _%tl157380157680%_)))) + (let ((_%tl157383157688%_ (let () (declare (not safe)) - (##cdr _%e157222157524%_))) - (_%hd157223157527%_ + (##cdr _%e157381157683%_))) + (_%hd157382157686%_ (let () (declare (not safe)) - (##car _%e157222157524%_)))) + (##car _%e157381157683%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157224157529%_)) - (let ((_%e157225157532%_ + _%tl157383157688%_)) + (let ((_%e157384157691%_ (let () (declare (not safe)) (gx#stx-e - _%tl157224157529%_)))) - (let ((_%tl157227157537%_ + _%tl157383157688%_)))) + (let ((_%tl157386157696%_ (let () (declare (not safe)) - (##cdr _%e157225157532%_))) - (_%hd157226157535%_ + (##cdr _%e157384157691%_))) + (_%hd157385157694%_ (let () (declare (not safe)) - (##car _%e157225157532%_)))) + (##car _%e157384157691%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157226157535%_)) - (let ((_%e157228157540%_ + _%hd157385157694%_)) + (let ((_%e157387157699%_ (let () (declare (not safe)) (gx#stx-e - _%hd157226157535%_)))) - (let ((_%tl157230157545%_ + _%hd157385157694%_)))) + (let ((_%tl157389157704%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157228157540%_))) - (_%hd157229157543%_ - (let () (declare (not safe)) (##car _%e157228157540%_)))) + (##cdr _%e157387157699%_))) + (_%hd157388157702%_ + (let () (declare (not safe)) (##car _%e157387157699%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157229157543%_)) + (gx#identifier? _%hd157388157702%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157229157543%_)) + (gx#stx-eq? '%#call _%hd157388157702%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157230157545%_)) - (let ((_%e157231157548%_ + (gx#stx-pair? _%tl157389157704%_)) + (let ((_%e157390157707%_ (let () (declare (not safe)) - (gx#stx-e _%tl157230157545%_)))) - (let ((_%tl157233157553%_ + (gx#stx-e _%tl157389157704%_)))) + (let ((_%tl157392157712%_ (let () (declare (not safe)) - (##cdr _%e157231157548%_))) - (_%hd157232157551%_ + (##cdr _%e157390157707%_))) + (_%hd157391157710%_ (let () (declare (not safe)) - (##car _%e157231157548%_)))) + (##car _%e157390157707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157232157551%_)) - (let ((_%e157234157556%_ + (gx#stx-pair? _%hd157391157710%_)) + (let ((_%e157393157715%_ (let () (declare (not safe)) - (gx#stx-e _%hd157232157551%_)))) - (let ((_%tl157236157561%_ + (gx#stx-e _%hd157391157710%_)))) + (let ((_%tl157395157720%_ (let () (declare (not safe)) - (##cdr _%e157234157556%_))) - (_%hd157235157559%_ + (##cdr _%e157393157715%_))) + (_%hd157394157718%_ (let () (declare (not safe)) - (##car _%e157234157556%_)))) + (##car _%e157393157715%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157235157559%_)) + _%hd157394157718%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157235157559%_)) + _%hd157394157718%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157236157561%_)) - (let ((_%e157237157564%_ + _%tl157395157720%_)) + (let ((_%e157396157723%_ (let () (declare (not safe)) (gx#stx-e - _%tl157236157561%_)))) - (let ((_%tl157239157569%_ + _%tl157395157720%_)))) + (let ((_%tl157398157728%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157237157564%_))) - (_%hd157238157567%_ - (let () (declare (not safe)) (##car _%e157237157564%_)))) + (##cdr _%e157396157723%_))) + (_%hd157397157726%_ + (let () (declare (not safe)) (##car _%e157396157723%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157239157569%_)) + (gx#stx-null? _%tl157398157728%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157233157553%_)) - (let ((_%e157240157572%_ + (gx#stx-pair? _%tl157392157712%_)) + (let ((_%e157399157731%_ (let () (declare (not safe)) - (gx#stx-e _%tl157233157553%_)))) - (let ((_%tl157242157577%_ + (gx#stx-e _%tl157392157712%_)))) + (let ((_%tl157401157736%_ (let () (declare (not safe)) - (##cdr _%e157240157572%_))) - (_%hd157241157575%_ + (##cdr _%e157399157731%_))) + (_%hd157400157734%_ (let () (declare (not safe)) - (##car _%e157240157572%_)))) + (##car _%e157399157731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157241157575%_)) - (let ((_%e157243157580%_ + (gx#stx-pair? _%hd157400157734%_)) + (let ((_%e157402157739%_ (let () (declare (not safe)) - (gx#stx-e _%hd157241157575%_)))) - (let ((_%tl157245157585%_ + (gx#stx-e _%hd157400157734%_)))) + (let ((_%tl157404157744%_ (let () (declare (not safe)) - (##cdr _%e157243157580%_))) - (_%hd157244157583%_ + (##cdr _%e157402157739%_))) + (_%hd157403157742%_ (let () (declare (not safe)) - (##car _%e157243157580%_)))) + (##car _%e157402157739%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157244157583%_)) + (gx#identifier? _%hd157403157742%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157244157583%_)) + _%hd157403157742%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157245157585%_)) - (let ((_%e157246157588%_ + _%tl157404157744%_)) + (let ((_%e157405157747%_ (let () (declare (not safe)) (gx#stx-e - _%tl157245157585%_)))) - (let ((_%tl157248157593%_ + _%tl157404157744%_)))) + (let ((_%tl157407157752%_ (let () (declare (not safe)) - (##cdr _%e157246157588%_))) - (_%hd157247157591%_ + (##cdr _%e157405157747%_))) + (_%hd157406157750%_ (let () (declare (not safe)) - (##car _%e157246157588%_)))) + (##car _%e157405157747%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157248157593%_)) + _%tl157407157752%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157242157577%_)) - (let ((_%e157249157596%_ + _%tl157401157736%_)) + (let ((_%e157408157755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl157242157577%_)))) - (let ((_%tl157251157601%_ + (gx#stx-e _%tl157401157736%_)))) + (let ((_%tl157410157760%_ (let () (declare (not safe)) - (##cdr _%e157249157596%_))) - (_%hd157250157599%_ + (##cdr _%e157408157755%_))) + (_%hd157409157758%_ (let () (declare (not safe)) - (##car _%e157249157596%_)))) + (##car _%e157408157755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157250157599%_)) - (let ((_%e157252157604%_ + (gx#stx-pair? _%hd157409157758%_)) + (let ((_%e157411157763%_ (let () (declare (not safe)) - (gx#stx-e _%hd157250157599%_)))) - (let ((_%tl157254157609%_ + (gx#stx-e _%hd157409157758%_)))) + (let ((_%tl157413157768%_ (let () (declare (not safe)) - (##cdr _%e157252157604%_))) - (_%hd157253157607%_ + (##cdr _%e157411157763%_))) + (_%hd157412157766%_ (let () (declare (not safe)) - (##car _%e157252157604%_)))) + (##car _%e157411157763%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157253157607%_)) + (gx#identifier? _%hd157412157766%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd157253157607%_)) + _%hd157412157766%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157254157609%_)) - (let ((_%e157255157612%_ + _%tl157413157768%_)) + (let ((_%e157414157771%_ (let () (declare (not safe)) (gx#stx-e - _%tl157254157609%_)))) - (let ((_%tl157257157617%_ + _%tl157413157768%_)))) + (let ((_%tl157416157776%_ (let () (declare (not safe)) - (##cdr _%e157255157612%_))) - (_%hd157256157615%_ + (##cdr _%e157414157771%_))) + (_%hd157415157774%_ (let () (declare (not safe)) - (##car _%e157255157612%_)))) + (##car _%e157414157771%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157257157617%_)) + _%tl157416157776%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157251157601%_)) - (let ((_%e157258157620%_ + _%tl157410157760%_)) + (let ((_%e157417157779%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157251157601%_)))) - (let ((_%tl157260157625%_ + (gx#stx-e _%tl157410157760%_)))) + (let ((_%tl157419157784%_ (let () (declare (not safe)) - (##cdr _%e157258157620%_))) - (_%hd157259157623%_ + (##cdr _%e157417157779%_))) + (_%hd157418157782%_ (let () (declare (not safe)) - (##car _%e157258157620%_)))) + (##car _%e157417157779%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157259157623%_)) - (let ((_%e157261157628%_ + (gx#stx-pair? _%hd157418157782%_)) + (let ((_%e157420157787%_ (let () (declare (not safe)) - (gx#stx-e _%hd157259157623%_)))) - (let ((_%tl157263157633%_ + (gx#stx-e _%hd157418157782%_)))) + (let ((_%tl157422157792%_ (let () (declare (not safe)) - (##cdr _%e157261157628%_))) - (_%hd157262157631%_ + (##cdr _%e157420157787%_))) + (_%hd157421157790%_ (let () (declare (not safe)) - (##car _%e157261157628%_)))) + (##car _%e157420157787%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157262157631%_)) + (gx#identifier? _%hd157421157790%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157262157631%_)) + (gx#stx-eq? '%#ref _%hd157421157790%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157263157633%_)) - (let ((_%e157264157636%_ + (gx#stx-pair? _%tl157422157792%_)) + (let ((_%e157423157795%_ (let () (declare (not safe)) (gx#stx-e - _%tl157263157633%_)))) - (let ((_%tl157266157641%_ + _%tl157422157792%_)))) + (let ((_%tl157425157800%_ (let () (declare (not safe)) - (##cdr _%e157264157636%_))) - (_%hd157265157639%_ + (##cdr _%e157423157795%_))) + (_%hd157424157798%_ (let () (declare (not safe)) - (##car _%e157264157636%_)))) + (##car _%e157423157795%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157266157641%_)) + _%tl157425157800%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157260157625%_)) - (let ((_%e157267157644%_ + _%tl157419157784%_)) + (let ((_%e157426157803%_ (let () (declare (not safe)) (gx#stx-e - _%tl157260157625%_)))) - (let ((_%tl157269157649%_ + _%tl157419157784%_)))) + (let ((_%tl157428157808%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157267157644%_))) - (_%hd157268157647%_ - (let () (declare (not safe)) (##car _%e157267157644%_)))) + (##cdr _%e157426157803%_))) + (_%hd157427157806%_ + (let () (declare (not safe)) (##car _%e157426157803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157268157647%_)) - (let ((_%e157270157652%_ + (gx#stx-pair? _%hd157427157806%_)) + (let ((_%e157429157811%_ (let () (declare (not safe)) - (gx#stx-e _%hd157268157647%_)))) - (let ((_%tl157272157657%_ + (gx#stx-e _%hd157427157806%_)))) + (let ((_%tl157431157816%_ (let () (declare (not safe)) - (##cdr _%e157270157652%_))) - (_%hd157271157655%_ + (##cdr _%e157429157811%_))) + (_%hd157430157814%_ (let () (declare (not safe)) - (##car _%e157270157652%_)))) + (##car _%e157429157811%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157271157655%_)) + (gx#identifier? _%hd157430157814%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157271157655%_)) + (gx#stx-eq? '%#ref _%hd157430157814%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157272157657%_)) - (let ((_%e157273157660%_ + (gx#stx-pair? _%tl157431157816%_)) + (let ((_%e157432157819%_ (let () (declare (not safe)) - (gx#stx-e _%tl157272157657%_)))) - (let ((_%tl157275157665%_ + (gx#stx-e _%tl157431157816%_)))) + (let ((_%tl157434157824%_ (let () (declare (not safe)) - (##cdr _%e157273157660%_))) - (_%hd157274157663%_ + (##cdr _%e157432157819%_))) + (_%hd157433157822%_ (let () (declare (not safe)) - (##car _%e157273157660%_)))) + (##car _%e157432157819%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157275157665%_)) + _%tl157434157824%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157269157649%_)) + _%tl157428157808%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157227157537%_)) + _%tl157386157696%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157218157513%_)) - (_%__kont169887169888%_ - _%hd157274157663%_ - _%hd157265157639%_ - _%hd157247157591%_ - _%hd157238157567%_ - _%hd157223157527%_ - _%hd157214157503%_ - _%hd157205157479%_ - _%hd157196157455%_ - _%hd157181157415%_ - _%hd157166157375%_ - _%hd157148157327%_) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + _%tl157377157672%_)) + (_%__kont170046170047%_ + _%hd157433157822%_ + _%hd157424157798%_ + _%hd157406157750%_ + _%hd157397157726%_ + _%hd157382157686%_ + _%hd157373157662%_ + _%hd157364157638%_ + _%hd157355157614%_ + _%hd157340157574%_ + _%hd157325157534%_ + _%hd157307157486%_) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)) + (_%__kont170048170049%_)))) + (_%__kont170048170049%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx156861%_ _%id156862%_ _%clauses156863%_ _%gensym?156864%_) - (let _%lp156866%_ ((_%rest156868%_ _%clauses156863%_) - (_%ids156869%_ '()) - (_%impls156870%_ '()) - (_%clauses156871%_ '())) - (let* ((_%rest156872156880%_ _%rest156868%_) - (_%else156874156888%_ + (lambda (_%stx157020%_ _%id157021%_ _%clauses157022%_ _%gensym?157023%_) + (let _%lp157025%_ ((_%rest157027%_ _%clauses157022%_) + (_%ids157028%_ '()) + (_%impls157029%_ '()) + (_%clauses157030%_ '())) + (let* ((_%rest157031157039%_ _%rest157027%_) + (_%else157033157047%_ (lambda () - (values (reverse _%ids156869%_) - (reverse _%impls156870%_) - (reverse _%clauses156871%_)))) - (_%K156876157093%_ - (lambda (_%rest156891%_ _%clause156892%_) - (if (gxc#dispatch-lambda-form? _%clause156892%_) - (_%lp156866%_ - _%rest156891%_ - _%ids156869%_ - _%impls156870%_ - (cons _%clause156892%_ _%clauses156871%_)) - (let* ((_%g156894156905%_ - (lambda (_%g156895156902%_) + (values (reverse _%ids157028%_) + (reverse _%impls157029%_) + (reverse _%clauses157030%_)))) + (_%K157035157252%_ + (lambda (_%rest157050%_ _%clause157051%_) + (if (gxc#dispatch-lambda-form? _%clause157051%_) + (_%lp157025%_ + _%rest157050%_ + _%ids157028%_ + _%impls157029%_ + (cons _%clause157051%_ _%clauses157030%_)) + (let* ((_%g157053157064%_ + (lambda (_%g157054157061%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156895156902%_)))) - (_%g156893157090%_ - (lambda (_%g156895156908%_) + _%g157054157061%_)))) + (_%g157052157249%_ + (lambda (_%g157054157067%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156895156908%_)) - (let ((_%e156898156910%_ + (gx#stx-pair? _%g157054157067%_)) + (let ((_%e157057157069%_ (let () (declare (not safe)) - (gx#stx-e _%g156895156908%_)))) - (let ((_%hd156899156913%_ + (gx#stx-e _%g157054157067%_)))) + (let ((_%hd157058157072%_ (let () (declare (not safe)) - (##car _%e156898156910%_))) - (_%tl156900156915%_ + (##car _%e157057157069%_))) + (_%tl157059157074%_ (let () (declare (not safe)) - (##cdr _%e156898156910%_)))) - ((lambda (_%L156918%_ _%L156919%_) - (let* ((_%id156936%_ - (let ((__tmp171089 + (##cdr _%e157057157069%_)))) + ((lambda (_%L157077%_ _%L157078%_) + (let* ((_%id157095%_ + (let ((__tmp171248 (let () (declare (not safe)) (gx#stx-e - _%id156862%_))) - (__tmp171088 - (length _%clauses156871%_)) - (__tmp171087 - (if _%gensym?156864%_ + _%id157021%_))) + (__tmp171247 + (length _%clauses157030%_)) + (__tmp171246 + (if _%gensym?157023%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp171089 '"__" __tmp171088 __tmp171087))) + (make-symbol__1 __tmp171248 '"__" __tmp171247 __tmp171246))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id156938%_ - (let ((__tmp171090 + (_%id157097%_ + (let ((__tmp171249 (let () (declare (not safe)) (gx#stx-source - _%stx156861%_)))) + _%stx157020%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id156936%_ - __tmp171090))) - (_%impl156940%_ - (let ((__tmp171091 + _%id157095%_ + __tmp171249))) + (_%impl157099%_ + (let ((__tmp171250 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L156919%_ _%L156918%_)))) + (cons _%L157078%_ _%L157077%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171091 _%stx156861%_))) + (gxc#xform-wrap-source __tmp171250 _%stx157020%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause157087%_ - (let* ((_%__stx170269170270%_ - _%L156919%_) - (_%g156944156972%_ + (_%clause157246%_ + (let* ((_%__stx170428170429%_ + _%L157078%_) + (_%g157103157131%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20102,353 +20102,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170269170270%_))))) - (let ((_%__kont170271170272%_ - (lambda (_%L157066%_) - (cons _%L156919%_ - (cons (let ((__tmp171092 + _%__stx170428170429%_))))) + (let ((_%__kont170430170431%_ + (lambda (_%L157225%_) + (cons _%L157078%_ + (cons (let ((__tmp171251 (cons '%#call (cons (cons '%#ref - (cons _%id156938%_ + (cons _%id157097%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp171093 - (lambda (_%g157076157079%_ _%g157077157081%_) + (let ((__tmp171252 + (lambda (_%g157235157238%_ _%g157236157240%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157076157079%_ '())) - _%g157077157081%_)))) + (cons _%g157235157238%_ '())) + _%g157236157240%_)))) (declare (not safe)) - (__foldr1 __tmp171093 '() _%L157066%_)))))) + (__foldr1 __tmp171252 '() _%L157225%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171092 - _%stx156861%_)) + __tmp171251 + _%stx157020%_)) '())))) - (_%__kont170275170276%_ - (lambda (_%L157017%_ _%L157018%_) - (cons _%L156919%_ - (cons (let ((__tmp171094 + (_%__kont170434170435%_ + (lambda (_%L157176%_ _%L157177%_) + (cons _%L157078%_ + (cons (let ((__tmp171253 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id156938%_ '())) - (let ((__tmp171097 + (cons _%id157097%_ '())) + (let ((__tmp171256 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157017%_ '())) + (cons _%L157176%_ '())) '())) - (__tmp171095 - (let ((__tmp171096 - (lambda (_%g157029157032%_ - _%g157030157034%_) + (__tmp171254 + (let ((__tmp171255 + (lambda (_%g157188157191%_ + _%g157189157193%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157029157032%_ '())) - _%g157030157034%_)))) + (cons _%g157188157191%_ '())) + _%g157189157193%_)))) (declare (not safe)) - (__foldr1 __tmp171096 '() _%L157018%_)))) + (__foldr1 __tmp171255 '() _%L157177%_)))) (declare (not safe)) - (__foldr1 cons __tmp171097 __tmp171095))))))) + (__foldr1 cons __tmp171256 __tmp171254))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171094 - _%stx156861%_)) + __tmp171253 + _%stx157020%_)) '())))) - (_%__kont170279170280%_ - (lambda (_%L156977%_) - (cons _%L156919%_ - (cons (let ((__tmp171098 + (_%__kont170438170439%_ + (lambda (_%L157136%_) + (cons _%L157078%_ + (cons (let ((__tmp171257 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id156938%_ '())) + (cons _%id157097%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L156977%_ '())) + (cons _%L157136%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171098 - _%stx156861%_)) + __tmp171257 + _%stx157020%_)) '()))))) - (let* ((_%__match170294170295%_ - (lambda (_%__splice170277170278%_ - _%target156958156993%_ - _%tl156960156995%_) - (letrec ((_%loop156961156998%_ - (lambda (_%hd156959157001%_ - _%arg156965157003%_) + (let* ((_%__match170453170454%_ + (lambda (_%__splice170436170437%_ + _%target157117157152%_ + _%tl157119157154%_) + (letrec ((_%loop157120157157%_ + (lambda (_%hd157118157160%_ + _%arg157124157162%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156959157001%_)) - (let ((_%e156962157006%_ + (gx#stx-pair? _%hd157118157160%_)) + (let ((_%e157121157165%_ (let () (declare (not safe)) (gx#stx-e - _%hd156959157001%_)))) - (let ((_%lp-tl156964157011%_ + _%hd157118157160%_)))) + (let ((_%lp-tl157123157170%_ (let () (declare (not safe)) - (##cdr _%e156962157006%_))) - (_%lp-hd156963157009%_ + (##cdr _%e157121157165%_))) + (_%lp-hd157122157168%_ (let () (declare (not safe)) - (##car _%e156962157006%_)))) - (_%loop156961156998%_ - _%lp-tl156964157011%_ - (cons _%lp-hd156963157009%_ - _%arg156965157003%_)))) - (let ((_%arg156966157014%_ - (reverse _%arg156965157003%_))) - (_%__kont170275170276%_ - _%tl156960156995%_ - _%arg156966157014%_)))))) - (_%loop156961156998%_ - _%target156958156993%_ + (##car _%e157121157165%_)))) + (_%loop157120157157%_ + _%lp-tl157123157170%_ + (cons _%lp-hd157122157168%_ + _%arg157124157162%_)))) + (let ((_%arg157125157173%_ + (reverse _%arg157124157162%_))) + (_%__kont170434170435%_ + _%tl157119157154%_ + _%arg157125157173%_)))))) + (_%loop157120157157%_ + _%target157117157152%_ '())))) - (_%__match170288170289%_ - (lambda (_%__splice170273170274%_ - _%target156947157042%_ - _%tl156949157044%_) - (letrec ((_%loop156950157047%_ - (lambda (_%hd156948157050%_ - _%arg156954157052%_) + (_%__match170447170448%_ + (lambda (_%__splice170432170433%_ + _%target157106157201%_ + _%tl157108157203%_) + (letrec ((_%loop157109157206%_ + (lambda (_%hd157107157209%_ + _%arg157113157211%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156948157050%_)) - (let ((_%e156951157055%_ + (gx#stx-pair? _%hd157107157209%_)) + (let ((_%e157110157214%_ (let () (declare (not safe)) (gx#stx-e - _%hd156948157050%_)))) - (let ((_%lp-tl156953157060%_ + _%hd157107157209%_)))) + (let ((_%lp-tl157112157219%_ (let () (declare (not safe)) - (##cdr _%e156951157055%_))) - (_%lp-hd156952157058%_ + (##cdr _%e157110157214%_))) + (_%lp-hd157111157217%_ (let () (declare (not safe)) - (##car _%e156951157055%_)))) - (_%loop156950157047%_ - _%lp-tl156953157060%_ - (cons _%lp-hd156952157058%_ - _%arg156954157052%_)))) - (let ((_%arg156955157063%_ - (reverse _%arg156954157052%_))) - (_%__kont170271170272%_ - _%arg156955157063%_)))))) - (_%loop156950157047%_ - _%target156947157042%_ + (##car _%e157110157214%_)))) + (_%loop157109157206%_ + _%lp-tl157112157219%_ + (cons _%lp-hd157111157217%_ + _%arg157113157211%_)))) + (let ((_%arg157114157222%_ + (reverse _%arg157113157211%_))) + (_%__kont170430170431%_ + _%arg157114157222%_)))))) + (_%loop157109157206%_ + _%target157106157201%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx170269170270%_)) - (let ((_%__splice170273170274%_ + (gx#stx-pair/null? _%__stx170428170429%_)) + (let ((_%__splice170432170433%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx170269170270%_ + _%__stx170428170429%_ '0)))) - (let ((_%tl156949157044%_ + (let ((_%tl157108157203%_ (let () (declare (not safe)) - (##vector-ref _%__splice170273170274%_ '1))) - (_%target156947157042%_ + (##vector-ref _%__splice170432170433%_ '1))) + (_%target157106157201%_ (let () (declare (not safe)) - (##vector-ref _%__splice170273170274%_ '0)))) + (##vector-ref _%__splice170432170433%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156949157044%_)) - (_%__match170288170289%_ - _%__splice170273170274%_ - _%target156947157042%_ - _%tl156949157044%_) - (_%__match170294170295%_ - _%__splice170273170274%_ - _%target156947157042%_ - _%tl156949157044%_)))) - (_%__kont170279170280%_ _%__stx170269170270%_))))))) + (gx#stx-null? _%tl157108157203%_)) + (_%__match170447170448%_ + _%__splice170432170433%_ + _%target157106157201%_ + _%tl157108157203%_) + (_%__match170453170454%_ + _%__splice170432170433%_ + _%target157106157201%_ + _%tl157108157203%_)))) + (_%__kont170438170439%_ _%__stx170428170429%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp156866%_ - _%rest156891%_ - (cons _%id156938%_ - _%ids156869%_) - (cons _%impl156940%_ - _%impls156870%_) - (cons _%clause157087%_ - _%clauses156871%_)))) - _%tl156900156915%_ - _%hd156899156913%_))) - (_%g156894156905%_ _%g156895156908%_))))) - (_%g156893157090%_ _%clause156892%_)))))) - (if (pair? _%rest156872156880%_) - (let ((_%hd156877157096%_ + (_%lp157025%_ + _%rest157050%_ + (cons _%id157097%_ + _%ids157028%_) + (cons _%impl157099%_ + _%impls157029%_) + (cons _%clause157246%_ + _%clauses157030%_)))) + _%tl157059157074%_ + _%hd157058157072%_))) + (_%g157053157064%_ _%g157054157067%_))))) + (_%g157052157249%_ _%clause157051%_)))))) + (if (pair? _%rest157031157039%_) + (let ((_%hd157036157255%_ (let () (declare (not safe)) - (##car _%rest156872156880%_))) - (_%tl156878157098%_ + (##car _%rest157031157039%_))) + (_%tl157037157257%_ (let () (declare (not safe)) - (##cdr _%rest156872156880%_)))) - (let* ((_%clause157101%_ _%hd156877157096%_) - (_%rest157103%_ _%tl156878157098%_)) - (_%K156876157093%_ _%rest157103%_ _%clause157101%_))) - (_%else156874156888%_)))))) + (##cdr _%rest157031157039%_)))) + (let* ((_%clause157260%_ _%hd157036157255%_) + (_%rest157262%_ _%tl157037157257%_)) + (_%K157035157252%_ _%rest157262%_ _%clause157260%_))) + (_%else157033157047%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx157108%_ _%id157109%_ _%clauses157110%_) - (let ((_%gensym?157112%_ '#f)) + (lambda (_%stx157267%_ _%id157268%_ _%clauses157269%_) + (let ((_%gensym?157271%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx157108%_ - _%id157109%_ - _%clauses157110%_ - _%gensym?157112%_)))) + _%stx157267%_ + _%id157268%_ + _%clauses157269%_ + _%gensym?157271%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g171100_ - (let ((_g171099_ (let () (declare (not safe)) (##length _g171100_)))) - (cond ((let () (declare (not safe)) (##fx= _g171099_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g171100_)) - ((let () (declare (not safe)) (##fx= _g171099_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g171100_)) + (lambda _g171259_ + (let ((_g171258_ (let () (declare (not safe)) (##length _g171259_)))) + (cond ((let () (declare (not safe)) (##fx= _g171258_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g171259_)) + ((let () (declare (not safe)) (##fx= _g171258_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g171259_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g171100_)))))) + _g171259_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self156133%_ _%stx156134%_) - (letrec ((_%case-lambda-clause-def156136%_ - (lambda (_%id156857%_ _%impl156858%_) - (let ((__tmp171101 + (lambda (_%self156292%_ _%stx156293%_) + (letrec ((_%case-lambda-clause-def156295%_ + (lambda (_%id157016%_ _%impl157017%_) + (let ((__tmp171260 (cons '%#define-values - (cons (cons _%id156857%_ '()) + (cons (cons _%id157016%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156133%_ - _%impl156858%_)) + _%self156292%_ + _%impl157017%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171101 _%stx156134%_)))) - (_%opt-lambda-dispatch-name156137%_ - (lambda (_%id156853%_) - (if (uninterned-symbol? _%id156853%_) - (let ((_%str156855%_ (symbol->string _%id156853%_))) + (gxc#xform-wrap-source __tmp171260 _%stx156293%_)))) + (_%opt-lambda-dispatch-name156296%_ + (lambda (_%id157012%_) + (if (uninterned-symbol? _%id157012%_) + (let ((_%str157014%_ (symbol->string _%id157012%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str156855%_)) + (##string-prefix? '"opt-lambda" _%str157014%_)) '"%" - _%id156853%_)) - _%id156853%_))) - (_%kw-lambda-dispatch-name156138%_ - (lambda (_%id156848%_ _%name156849%_) - (if (uninterned-symbol? _%id156848%_) - (let ((_%str156851%_ (symbol->string _%id156848%_))) + _%id157012%_)) + _%id157012%_))) + (_%kw-lambda-dispatch-name156297%_ + (lambda (_%id157007%_ _%name157008%_) + (if (uninterned-symbol? _%id157007%_) + (let ((_%str157010%_ (symbol->string _%id157007%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str156851%_)) - _%name156849%_ - _%id156848%_)) - _%id156848%_)))) - (let* ((_%__stx170317170318%_ _%stx156134%_) - (_%g156143156202%_ + (##string-prefix? '"kw-lambda" _%str157010%_)) + _%name157008%_ + _%id157007%_)) + _%id157007%_)))) + (let* ((_%__stx170476170477%_ _%stx156293%_) + (_%g156302156361%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170317170318%_))))) - (let ((_%__kont170319170320%_ - (lambda (_%L156756%_ _%L156757%_) - (let* ((_%__stx170297170298%_ _%L156756%_) - (_%g156774156788%_ + _%__stx170476170477%_))))) + (let ((_%__kont170478170479%_ + (lambda (_%L156915%_ _%L156916%_) + (let* ((_%__stx170456170457%_ _%L156915%_) + (_%g156933156947%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170297170298%_))))) - (let ((_%__kont170299170300%_ - (lambda (_%L156833%_) _%stx156134%_)) - (_%__kont170301170302%_ - (lambda (_%L156801%_) - (let ((_g171102_ + _%__stx170456170457%_))))) + (let ((_%__kont170458170459%_ + (lambda (_%L156992%_) _%stx156293%_)) + (_%__kont170460170461%_ + (lambda (_%L156960%_) + (let ((_g171261_ (gxc#lift-case-lambda-clauses__0 - _%stx156134%_ - _%L156757%_ - _%L156801%_))) + _%stx156293%_ + _%L156916%_ + _%L156960%_))) (begin - (let ((_g171103_ + (let ((_g171262_ (let () (declare (not safe)) - (if (##values? _g171102_) - (##vector-length _g171102_) + (if (##values? _g171261_) + (##vector-length _g171261_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171103_ 3))) + (##fx= _g171262_ 3))) (error "Context expects 3 values" - _g171103_))) - (let ((_%ids156811%_ + _g171262_))) + (let ((_%ids156970%_ (let () (declare (not safe)) - (##vector-ref _g171102_ 0))) - (_%impls156812%_ + (##vector-ref _g171261_ 0))) + (_%impls156971%_ (let () (declare (not safe)) - (##vector-ref _g171102_ 1))) - (_%clauses156813%_ + (##vector-ref _g171261_ 1))) + (_%clauses156972%_ (let () (declare (not safe)) - (##vector-ref _g171102_ 2)))) - (let* ((_%_156815%_ + (##vector-ref _g171261_ 2)))) + (let* ((_%_156974%_ (for-each gx#core-bind-runtime! - _%ids156811%_)) - (_%defs156817%_ - (map _%case-lambda-clause-def156136%_ - _%ids156811%_ - _%impls156812%_))) - (let ((__tmp171105 + _%ids156970%_)) + (_%defs156976%_ + (map _%case-lambda-clause-def156295%_ + _%ids156970%_ + _%impls156971%_))) + (let ((__tmp171264 (let () (declare (not safe)) (gxc#identifier-symbol - _%L156757%_))) - (__tmp171104 + _%L156916%_))) + (__tmp171263 (map gxc#identifier-symbol - _%ids156811%_))) + _%ids156970%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171105 + __tmp171264 '" => " - __tmp171104)) - (let ((__tmp171106 + __tmp171263)) + (let ((__tmp171265 (cons '%#begin - (let ((__tmp171107 - (cons (let ((__tmp171108 + (let ((__tmp171266 + (cons (let ((__tmp171267 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L156757%_ '()) - (cons (let ((__tmp171110 + (cons (cons _%L156916%_ '()) + (cons (let ((__tmp171269 (cons '%#case-lambda - _%clauses156813%_)) - (__tmp171109 + _%clauses156972%_)) + (__tmp171268 (let () (declare (not safe)) @@ -20457,1128 +20457,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171110 - __tmp171109)) + __tmp171269 + __tmp171268)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171108 _%stx156134%_)) + (gxc#xform-wrap-source __tmp171267 _%stx156293%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp171107 _%defs156817%_))))) + (__foldr1 cons __tmp171266 _%defs156976%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171106 - _%stx156134%_))))))))) - (let ((_%__match170308170309%_ - (lambda (_%e156777156825%_ - _%hd156778156828%_ - _%tl156779156830%_) - (let ((_%L156833%_ _%tl156779156830%_)) + __tmp171265 + _%stx156293%_))))))))) + (let ((_%__match170467170468%_ + (lambda (_%e156936156984%_ + _%hd156937156987%_ + _%tl156938156989%_) + (let ((_%L156992%_ _%tl156938156989%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L156833%_)) - (_%__kont170299170300%_ _%L156833%_) - (_%__kont170301170302%_ - _%tl156779156830%_)))))) + _%L156992%_)) + (_%__kont170458170459%_ _%L156992%_) + (_%__kont170460170461%_ + _%tl156938156989%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170297170298%_)) - (let ((_%e156777156825%_ + (gx#stx-pair? _%__stx170456170457%_)) + (let ((_%e156936156984%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170297170298%_)))) - (let ((_%tl156779156830%_ + (gx#stx-e _%__stx170456170457%_)))) + (let ((_%tl156938156989%_ (let () (declare (not safe)) - (##cdr _%e156777156825%_))) - (_%hd156778156828%_ + (##cdr _%e156936156984%_))) + (_%hd156937156987%_ (let () (declare (not safe)) - (##car _%e156777156825%_)))) - (_%__match170308170309%_ - _%e156777156825%_ - _%hd156778156828%_ - _%tl156779156830%_))) + (##car _%e156936156984%_)))) + (_%__match170467170468%_ + _%e156936156984%_ + _%hd156937156987%_ + _%tl156938156989%_))) (let () (declare (not safe)) - (_%g156774156788%_)))))))) - (_%__kont170321170322%_ - (lambda (_%L156573%_ _%L156574%_) - (let* ((_%g156590156620%_ - (lambda (_%g156591156617%_) + (_%g156933156947%_)))))))) + (_%__kont170480170481%_ + (lambda (_%L156732%_ _%L156733%_) + (let* ((_%g156749156779%_ + (lambda (_%g156750156776%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156591156617%_)))) - (_%g156589156716%_ - (lambda (_%g156591156623%_) + _%g156750156776%_)))) + (_%g156748156875%_ + (lambda (_%g156750156782%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156591156623%_)) - (let ((_%e156595156625%_ + (gx#stx-pair? _%g156750156782%_)) + (let ((_%e156754156784%_ (let () (declare (not safe)) - (gx#stx-e _%g156591156623%_)))) - (let ((_%hd156596156628%_ + (gx#stx-e _%g156750156782%_)))) + (let ((_%hd156755156787%_ (let () (declare (not safe)) - (##car _%e156595156625%_))) - (_%tl156597156630%_ + (##car _%e156754156784%_))) + (_%tl156756156789%_ (let () (declare (not safe)) - (##cdr _%e156595156625%_)))) + (##cdr _%e156754156784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156597156630%_)) - (let ((_%e156598156633%_ + (gx#stx-pair? _%tl156756156789%_)) + (let ((_%e156757156792%_ (let () (declare (not safe)) (gx#stx-e - _%tl156597156630%_)))) - (let ((_%hd156599156636%_ + _%tl156756156789%_)))) + (let ((_%hd156758156795%_ (let () (declare (not safe)) - (##car _%e156598156633%_))) - (_%tl156600156638%_ + (##car _%e156757156792%_))) + (_%tl156759156797%_ (let () (declare (not safe)) - (##cdr _%e156598156633%_)))) + (##cdr _%e156757156792%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156599156636%_)) - (let ((_%e156601156641%_ + _%hd156758156795%_)) + (let ((_%e156760156800%_ (let () (declare (not safe)) (gx#stx-e - _%hd156599156636%_)))) - (let ((_%hd156602156644%_ + _%hd156758156795%_)))) + (let ((_%hd156761156803%_ (let () (declare (not safe)) - (##car _%e156601156641%_))) - (_%tl156603156646%_ + (##car _%e156760156800%_))) + (_%tl156762156805%_ (let () (declare (not safe)) - (##cdr _%e156601156641%_)))) + (##cdr _%e156760156800%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156602156644%_)) - (let ((_%e156604156649%_ + _%hd156761156803%_)) + (let ((_%e156763156808%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156602156644%_)))) - (let ((_%hd156605156652%_ + (gx#stx-e _%hd156761156803%_)))) + (let ((_%hd156764156811%_ (let () (declare (not safe)) - (##car _%e156604156649%_))) - (_%tl156606156654%_ + (##car _%e156763156808%_))) + (_%tl156765156813%_ (let () (declare (not safe)) - (##cdr _%e156604156649%_)))) + (##cdr _%e156763156808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156605156652%_)) - (let ((_%e156607156657%_ + (gx#stx-pair? _%hd156764156811%_)) + (let ((_%e156766156816%_ (let () (declare (not safe)) - (gx#stx-e _%hd156605156652%_)))) - (let ((_%hd156608156660%_ + (gx#stx-e _%hd156764156811%_)))) + (let ((_%hd156767156819%_ (let () (declare (not safe)) - (##car _%e156607156657%_))) - (_%tl156609156662%_ + (##car _%e156766156816%_))) + (_%tl156768156821%_ (let () (declare (not safe)) - (##cdr _%e156607156657%_)))) + (##cdr _%e156766156816%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156609156662%_)) + (gx#stx-null? _%tl156768156821%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156606156654%_)) - (let ((_%e156610156665%_ + (gx#stx-pair? _%tl156765156813%_)) + (let ((_%e156769156824%_ (let () (declare (not safe)) (gx#stx-e - _%tl156606156654%_)))) - (let ((_%hd156611156668%_ + _%tl156765156813%_)))) + (let ((_%hd156770156827%_ (let () (declare (not safe)) - (##car _%e156610156665%_))) - (_%tl156612156670%_ + (##car _%e156769156824%_))) + (_%tl156771156829%_ (let () (declare (not safe)) - (##cdr _%e156610156665%_)))) + (##cdr _%e156769156824%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156612156670%_)) + _%tl156771156829%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156603156646%_)) + _%tl156762156805%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156600156638%_)) - (let ((_%e156613156673%_ + _%tl156759156797%_)) + (let ((_%e156772156832%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156600156638%_)))) - (let ((_%hd156614156676%_ + (gx#stx-e _%tl156759156797%_)))) + (let ((_%hd156773156835%_ (let () (declare (not safe)) - (##car _%e156613156673%_))) - (_%tl156615156678%_ + (##car _%e156772156832%_))) + (_%tl156774156837%_ (let () (declare (not safe)) - (##cdr _%e156613156673%_)))) + (##cdr _%e156772156832%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156615156678%_)) - ((lambda (_%L156681%_ _%L156682%_ _%L156683%_) - (let* ((_%lambda-id156707%_ - (let ((__tmp171112 + (gx#stx-null? _%tl156774156837%_)) + ((lambda (_%L156840%_ _%L156841%_ _%L156842%_) + (let* ((_%lambda-id156866%_ + (let ((__tmp171271 (let () (declare (not safe)) - (gx#stx-e _%L156574%_))) - (__tmp171111 - (_%opt-lambda-dispatch-name156137%_ + (gx#stx-e _%L156733%_))) + (__tmp171270 + (_%opt-lambda-dispatch-name156296%_ (let () (declare (not safe)) - (gx#stx-e _%L156683%_))))) + (gx#stx-e _%L156842%_))))) (declare (not safe)) (make-symbol__1 - __tmp171112 + __tmp171271 '"__" - __tmp171111))) - (_%lambda-id156709%_ - (let ((__tmp171113 + __tmp171270))) + (_%lambda-id156868%_ + (let ((__tmp171272 (let () (declare (not safe)) - (gx#stx-source _%stx156134%_)))) + (gx#stx-source _%stx156293%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id156707%_ - __tmp171113))) - (_%_156711%_ + _%lambda-id156866%_ + __tmp171272))) + (_%_156870%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id156709%_))) - (_%new-case-lambda-expr156713%_ + _%lambda-id156868%_))) + (_%new-case-lambda-expr156872%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156683%_ - _%lambda-id156709%_ - _%L156681%_)))) - (let ((__tmp171115 + _%L156842%_ + _%lambda-id156868%_ + _%L156840%_)))) + (let ((__tmp171274 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156574%_))) - (__tmp171114 + (gxc#identifier-symbol _%L156733%_))) + (__tmp171273 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156709%_)))) + _%lambda-id156868%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171115 + __tmp171274 '" => " - __tmp171114)) - (let ((__tmp171116 + __tmp171273)) + (let ((__tmp171275 (cons '%#begin - (cons (let ((__tmp171117 + (cons (let ((__tmp171276 (cons '%#define-values - (cons (cons _%lambda-id156709%_ + (cons (cons _%lambda-id156868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156133%_ - _%L156682%_)) + _%self156292%_ + _%L156841%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171117 - _%stx156134%_)) + __tmp171276 + _%stx156293%_)) (cons (gxc#lift-top-lambda-define-values% - _%self156133%_ - (let ((__tmp171118 + _%self156292%_ + (let ((__tmp171277 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L156574%_ '()) - (cons _%new-case-lambda-expr156713%_ '()))))) + (cons (cons _%L156733%_ '()) + (cons _%new-case-lambda-expr156872%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171118 _%stx156134%_))) + (gxc#xform-wrap-source __tmp171277 _%stx156293%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171116 - _%stx156134%_)))) - _%hd156614156676%_ - _%hd156611156668%_ - _%hd156608156660%_) - (_%g156590156620%_ _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)) + __tmp171275 + _%stx156293%_)))) + _%hd156773156835%_ + _%hd156770156827%_ + _%hd156767156819%_) + (_%g156749156779%_ _%g156750156782%_)))) + (_%g156749156779%_ _%g156750156782%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156590156620%_ - _%g156591156623%_)) - (_%g156590156620%_ - _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)) - (_%g156590156620%_ _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)))) + (_%g156749156779%_ + _%g156750156782%_)) + (_%g156749156779%_ + _%g156750156782%_)))) + (_%g156749156779%_ _%g156750156782%_)) + (_%g156749156779%_ _%g156750156782%_)))) + (_%g156749156779%_ _%g156750156782%_)))) + (_%g156749156779%_ _%g156750156782%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156590156620%_ - _%g156591156623%_)))) - (_%g156590156620%_ - _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_))))) - (_%g156589156716%_ _%L156573%_)))) - (_%__kont170323170324%_ - (lambda (_%L156285%_ _%L156286%_) - (let* ((_%g156302156355%_ - (lambda (_%g156303156352%_) + (_%g156749156779%_ + _%g156750156782%_)))) + (_%g156749156779%_ + _%g156750156782%_)))) + (_%g156749156779%_ _%g156750156782%_))))) + (_%g156748156875%_ _%L156732%_)))) + (_%__kont170482170483%_ + (lambda (_%L156444%_ _%L156445%_) + (let* ((_%g156461156514%_ + (lambda (_%g156462156511%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156303156352%_)))) - (_%g156301156533%_ - (lambda (_%g156303156358%_) + _%g156462156511%_)))) + (_%g156460156692%_ + (lambda (_%g156462156517%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156303156358%_)) - (let ((_%e156309156360%_ + (gx#stx-pair? _%g156462156517%_)) + (let ((_%e156468156519%_ (let () (declare (not safe)) - (gx#stx-e _%g156303156358%_)))) - (let ((_%hd156310156363%_ + (gx#stx-e _%g156462156517%_)))) + (let ((_%hd156469156522%_ (let () (declare (not safe)) - (##car _%e156309156360%_))) - (_%tl156311156365%_ + (##car _%e156468156519%_))) + (_%tl156470156524%_ (let () (declare (not safe)) - (##cdr _%e156309156360%_)))) + (##cdr _%e156468156519%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156311156365%_)) - (let ((_%e156312156368%_ + (gx#stx-pair? _%tl156470156524%_)) + (let ((_%e156471156527%_ (let () (declare (not safe)) (gx#stx-e - _%tl156311156365%_)))) - (let ((_%hd156313156371%_ + _%tl156470156524%_)))) + (let ((_%hd156472156530%_ (let () (declare (not safe)) - (##car _%e156312156368%_))) - (_%tl156314156373%_ + (##car _%e156471156527%_))) + (_%tl156473156532%_ (let () (declare (not safe)) - (##cdr _%e156312156368%_)))) + (##cdr _%e156471156527%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156313156371%_)) - (let ((_%e156315156376%_ + _%hd156472156530%_)) + (let ((_%e156474156535%_ (let () (declare (not safe)) (gx#stx-e - _%hd156313156371%_)))) - (let ((_%hd156316156379%_ + _%hd156472156530%_)))) + (let ((_%hd156475156538%_ (let () (declare (not safe)) - (##car _%e156315156376%_))) - (_%tl156317156381%_ + (##car _%e156474156535%_))) + (_%tl156476156540%_ (let () (declare (not safe)) - (##cdr _%e156315156376%_)))) + (##cdr _%e156474156535%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156316156379%_)) - (let ((_%e156318156384%_ + _%hd156475156538%_)) + (let ((_%e156477156543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156316156379%_)))) - (let ((_%hd156319156387%_ + (gx#stx-e _%hd156475156538%_)))) + (let ((_%hd156478156546%_ (let () (declare (not safe)) - (##car _%e156318156384%_))) - (_%tl156320156389%_ + (##car _%e156477156543%_))) + (_%tl156479156548%_ (let () (declare (not safe)) - (##cdr _%e156318156384%_)))) + (##cdr _%e156477156543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156319156387%_)) - (let ((_%e156321156392%_ + (gx#stx-pair? _%hd156478156546%_)) + (let ((_%e156480156551%_ (let () (declare (not safe)) - (gx#stx-e _%hd156319156387%_)))) - (let ((_%hd156322156395%_ + (gx#stx-e _%hd156478156546%_)))) + (let ((_%hd156481156554%_ (let () (declare (not safe)) - (##car _%e156321156392%_))) - (_%tl156323156397%_ + (##car _%e156480156551%_))) + (_%tl156482156556%_ (let () (declare (not safe)) - (##cdr _%e156321156392%_)))) + (##cdr _%e156480156551%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156323156397%_)) + (gx#stx-null? _%tl156482156556%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156320156389%_)) - (let ((_%e156324156400%_ + (gx#stx-pair? _%tl156479156548%_)) + (let ((_%e156483156559%_ (let () (declare (not safe)) (gx#stx-e - _%tl156320156389%_)))) - (let ((_%hd156325156403%_ + _%tl156479156548%_)))) + (let ((_%hd156484156562%_ (let () (declare (not safe)) - (##car _%e156324156400%_))) - (_%tl156326156405%_ + (##car _%e156483156559%_))) + (_%tl156485156564%_ (let () (declare (not safe)) - (##cdr _%e156324156400%_)))) + (##cdr _%e156483156559%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156325156403%_)) - (let ((_%e156327156408%_ + _%hd156484156562%_)) + (let ((_%e156486156567%_ (let () (declare (not safe)) (gx#stx-e - _%hd156325156403%_)))) - (let ((_%hd156328156411%_ + _%hd156484156562%_)))) + (let ((_%hd156487156570%_ (let () (declare (not safe)) - (##car _%e156327156408%_))) - (_%tl156329156413%_ + (##car _%e156486156567%_))) + (_%tl156488156572%_ (let () (declare (not safe)) - (##cdr _%e156327156408%_)))) + (##cdr _%e156486156567%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156329156413%_)) - (let ((_%e156330156416%_ + _%tl156488156572%_)) + (let ((_%e156489156575%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156329156413%_)))) - (let ((_%hd156331156419%_ + (gx#stx-e _%tl156488156572%_)))) + (let ((_%hd156490156578%_ (let () (declare (not safe)) - (##car _%e156330156416%_))) - (_%tl156332156421%_ + (##car _%e156489156575%_))) + (_%tl156491156580%_ (let () (declare (not safe)) - (##cdr _%e156330156416%_)))) + (##cdr _%e156489156575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156331156419%_)) - (let ((_%e156333156424%_ + (gx#stx-pair? _%hd156490156578%_)) + (let ((_%e156492156583%_ (let () (declare (not safe)) - (gx#stx-e _%hd156331156419%_)))) - (let ((_%hd156334156427%_ + (gx#stx-e _%hd156490156578%_)))) + (let ((_%hd156493156586%_ (let () (declare (not safe)) - (##car _%e156333156424%_))) - (_%tl156335156429%_ + (##car _%e156492156583%_))) + (_%tl156494156588%_ (let () (declare (not safe)) - (##cdr _%e156333156424%_)))) + (##cdr _%e156492156583%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156334156427%_)) - (let ((_%e156336156432%_ + (gx#stx-pair? _%hd156493156586%_)) + (let ((_%e156495156591%_ (let () (declare (not safe)) - (gx#stx-e _%hd156334156427%_)))) - (let ((_%hd156337156435%_ + (gx#stx-e _%hd156493156586%_)))) + (let ((_%hd156496156594%_ (let () (declare (not safe)) - (##car _%e156336156432%_))) - (_%tl156338156437%_ + (##car _%e156495156591%_))) + (_%tl156497156596%_ (let () (declare (not safe)) - (##cdr _%e156336156432%_)))) + (##cdr _%e156495156591%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156337156435%_)) - (let ((_%e156339156440%_ + (gx#stx-pair? _%hd156496156594%_)) + (let ((_%e156498156599%_ (let () (declare (not safe)) (gx#stx-e - _%hd156337156435%_)))) - (let ((_%hd156340156443%_ + _%hd156496156594%_)))) + (let ((_%hd156499156602%_ (let () (declare (not safe)) - (##car _%e156339156440%_))) - (_%tl156341156445%_ + (##car _%e156498156599%_))) + (_%tl156500156604%_ (let () (declare (not safe)) - (##cdr _%e156339156440%_)))) + (##cdr _%e156498156599%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156341156445%_)) + _%tl156500156604%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156338156437%_)) - (let ((_%e156342156448%_ + _%tl156497156596%_)) + (let ((_%e156501156607%_ (let () (declare (not safe)) (gx#stx-e - _%tl156338156437%_)))) - (let ((_%hd156343156451%_ + _%tl156497156596%_)))) + (let ((_%hd156502156610%_ (let () (declare (not safe)) - (##car _%e156342156448%_))) - (_%tl156344156453%_ + (##car _%e156501156607%_))) + (_%tl156503156612%_ (let () (declare (not safe)) - (##cdr _%e156342156448%_)))) + (##cdr _%e156501156607%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156344156453%_)) + _%tl156503156612%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl156335156429%_)) + (gx#stx-null? _%tl156494156588%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156332156421%_)) - (let ((_%e156345156456%_ + (gx#stx-pair? _%tl156491156580%_)) + (let ((_%e156504156615%_ (let () (declare (not safe)) - (gx#stx-e _%tl156332156421%_)))) - (let ((_%hd156346156459%_ + (gx#stx-e _%tl156491156580%_)))) + (let ((_%hd156505156618%_ (let () (declare (not safe)) - (##car _%e156345156456%_))) - (_%tl156347156461%_ + (##car _%e156504156615%_))) + (_%tl156506156620%_ (let () (declare (not safe)) - (##cdr _%e156345156456%_)))) + (##cdr _%e156504156615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156347156461%_)) + (gx#stx-null? _%tl156506156620%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156326156405%_)) + (gx#stx-null? _%tl156485156564%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156317156381%_)) + (gx#stx-null? _%tl156476156540%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156314156373%_)) - (let ((_%e156348156464%_ + _%tl156473156532%_)) + (let ((_%e156507156623%_ (let () (declare (not safe)) (gx#stx-e - _%tl156314156373%_)))) - (let ((_%hd156349156467%_ + _%tl156473156532%_)))) + (let ((_%hd156508156626%_ (let () (declare (not safe)) - (##car _%e156348156464%_))) - (_%tl156350156469%_ + (##car _%e156507156623%_))) + (_%tl156509156628%_ (let () (declare (not safe)) - (##cdr _%e156348156464%_)))) + (##cdr _%e156507156623%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156350156469%_)) - ((lambda (_%L156472%_ + _%tl156509156628%_)) + ((lambda (_%L156631%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L156473%_ - _%L156474%_ - _%L156475%_ - _%L156476%_) - (let* ((_%get-kws-id156516%_ - (let ((__tmp171120 + _%L156632%_ + _%L156633%_ + _%L156634%_ + _%L156635%_) + (let* ((_%get-kws-id156675%_ + (let ((__tmp171279 (let () (declare (not safe)) - (gx#stx-e _%L156286%_))) - (__tmp171119 - (_%kw-lambda-dispatch-name156138%_ + (gx#stx-e _%L156445%_))) + (__tmp171278 + (_%kw-lambda-dispatch-name156297%_ (let () (declare (not safe)) - (gx#stx-e _%L156476%_)) + (gx#stx-e _%L156635%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp171120 '"__" __tmp171119))) - (_%get-kws-id156518%_ - (let ((__tmp171121 + (make-symbol__1 __tmp171279 '"__" __tmp171278))) + (_%get-kws-id156677%_ + (let ((__tmp171280 (let () (declare (not safe)) - (gx#stx-source _%stx156134%_)))) + (gx#stx-source _%stx156293%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id156516%_ - __tmp171121))) - (_%main-id156520%_ - (let ((__tmp171123 + _%get-kws-id156675%_ + __tmp171280))) + (_%main-id156679%_ + (let ((__tmp171282 (let () (declare (not safe)) - (gx#stx-e _%L156286%_))) - (__tmp171122 - (_%kw-lambda-dispatch-name156138%_ + (gx#stx-e _%L156445%_))) + (__tmp171281 + (_%kw-lambda-dispatch-name156297%_ (let () (declare (not safe)) - (gx#stx-e _%L156475%_)) + (gx#stx-e _%L156634%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp171123 '"__" __tmp171122))) - (_%main-id156522%_ - (let ((__tmp171124 + (make-symbol__1 __tmp171282 '"__" __tmp171281))) + (_%main-id156681%_ + (let ((__tmp171283 (let () (declare (not safe)) - (gx#stx-source _%stx156134%_)))) + (gx#stx-source _%stx156293%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id156520%_ - __tmp171124))) - (_%_156524%_ + _%main-id156679%_ + __tmp171283))) + (_%_156683%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id156518%_))) - (_%_156526%_ + (gx#core-bind-runtime!__0 _%get-kws-id156677%_))) + (_%_156685%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id156522%_))) - (_%new-kw-dispatch156528%_ + (gx#core-bind-runtime!__0 _%main-id156681%_))) + (_%new-kw-dispatch156687%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156476%_ - _%get-kws-id156518%_ - _%L156472%_))) - (_%new-get-kws156530%_ + _%L156635%_ + _%get-kws-id156677%_ + _%L156631%_))) + (_%new-get-kws156689%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156475%_ - _%main-id156522%_ - _%L156473%_)))) - (let ((__tmp171127 + _%L156634%_ + _%main-id156681%_ + _%L156632%_)))) + (let ((__tmp171286 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156286%_))) - (__tmp171126 + (gxc#identifier-symbol _%L156445%_))) + (__tmp171285 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id156518%_))) - (__tmp171125 + (gxc#identifier-symbol _%get-kws-id156677%_))) + (__tmp171284 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id156522%_)))) + (gxc#identifier-symbol _%main-id156681%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171127 + __tmp171286 '" => " - __tmp171126 + __tmp171285 '" => " - __tmp171125)) - (let ((__tmp171128 + __tmp171284)) + (let ((__tmp171287 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self156133%_ - (let ((__tmp171129 + _%self156292%_ + (let ((__tmp171288 (cons '%#define-values - (cons (cons _%main-id156522%_ + (cons (cons _%main-id156681%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L156474%_ '()))))) + (cons _%L156633%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171129 - _%stx156134%_))) - (cons (let ((__tmp171130 + __tmp171288 + _%stx156293%_))) + (cons (let ((__tmp171289 (cons '%#define-values - (cons (cons _%get-kws-id156518%_ + (cons (cons _%get-kws-id156677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws156530%_ '()))))) + (cons _%new-get-kws156689%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171130 - _%stx156134%_)) - (cons (let ((__tmp171131 + __tmp171289 + _%stx156293%_)) + (cons (let ((__tmp171290 (cons '%#define-values - (cons (cons _%L156286%_ + (cons (cons _%L156445%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch156528%_ '()))))) + (cons _%new-kw-dispatch156687%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171131 - _%stx156134%_)) + __tmp171290 + _%stx156293%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171128 _%stx156134%_)))) - _%hd156349156467%_ - _%hd156346156459%_ - _%hd156343156451%_ - _%hd156340156443%_ - _%hd156322156395%_) - (_%g156302156355%_ _%g156303156358%_)))) + (gxc#xform-wrap-source __tmp171287 _%stx156293%_)))) + _%hd156508156626%_ + _%hd156505156618%_ + _%hd156502156610%_ + _%hd156499156602%_ + _%hd156481156554%_) + (_%g156461156514%_ _%g156462156517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)) - (_%g156302156355%_ - _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)))) + (_%g156461156514%_ + _%g156462156517%_)) + (_%g156461156514%_ + _%g156462156517%_)) + (_%g156461156514%_ _%g156462156517%_)) + (_%g156461156514%_ _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)) + (_%g156461156514%_ _%g156462156517%_)) + (_%g156461156514%_ _%g156462156517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)) - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) + (_%g156461156514%_ + _%g156462156517%_)) + (_%g156461156514%_ + _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) + (_%g156461156514%_ + _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)) + (_%g156461156514%_ _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_))))) - (_%g156301156533%_ _%L156285%_)))) - (_%__kont170325170326%_ - (lambda (_%L156231%_ _%L156232%_) - (let ((__tmp171132 + (_%g156461156514%_ + _%g156462156517%_)))) + (_%g156461156514%_ + _%g156462156517%_)))) + (_%g156461156514%_ _%g156462156517%_))))) + (_%g156460156692%_ _%L156444%_)))) + (_%__kont170484170485%_ + (lambda (_%L156390%_ _%L156391%_) + (let ((__tmp171291 (cons '%#define-values - (cons _%L156232%_ + (cons _%L156391%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156133%_ - _%L156231%_)) + _%self156292%_ + _%L156390%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171132 _%stx156134%_))))) - (let* ((_%__match170410170411%_ - (lambda (_%e156175156253%_ - _%hd156176156256%_ - _%tl156177156258%_ - _%e156178156261%_ - _%hd156179156264%_ - _%tl156180156266%_ - _%e156181156269%_ - _%hd156182156272%_ - _%tl156183156274%_ - _%e156184156277%_ - _%hd156185156280%_ - _%tl156186156282%_) - (let ((_%L156285%_ _%hd156185156280%_) - (_%L156286%_ _%hd156182156272%_)) + (gxc#xform-wrap-source __tmp171291 _%stx156293%_))))) + (let* ((_%__match170569170570%_ + (lambda (_%e156334156412%_ + _%hd156335156415%_ + _%tl156336156417%_ + _%e156337156420%_ + _%hd156338156423%_ + _%tl156339156425%_ + _%e156340156428%_ + _%hd156341156431%_ + _%tl156342156433%_ + _%e156343156436%_ + _%hd156344156439%_ + _%tl156345156441%_) + (let ((_%L156444%_ _%hd156344156439%_) + (_%L156445%_ _%hd156341156431%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156286%_)) - (gxc#kw-lambda-expr? _%L156285%_)) - (_%__kont170323170324%_ _%L156285%_ _%L156286%_) - (_%__kont170325170326%_ - _%hd156185156280%_ - _%hd156179156264%_))))) - (_%__match170382170383%_ - (lambda (_%e156161156541%_ - _%hd156162156544%_ - _%tl156163156546%_ - _%e156164156549%_ - _%hd156165156552%_ - _%tl156166156554%_ - _%e156167156557%_ - _%hd156168156560%_ - _%tl156169156562%_ - _%e156170156565%_ - _%hd156171156568%_ - _%tl156172156570%_) - (let ((_%L156573%_ _%hd156171156568%_) - (_%L156574%_ _%hd156168156560%_)) + (gx#identifier? _%L156445%_)) + (gxc#kw-lambda-expr? _%L156444%_)) + (_%__kont170482170483%_ _%L156444%_ _%L156445%_) + (_%__kont170484170485%_ + _%hd156344156439%_ + _%hd156338156423%_))))) + (_%__match170541170542%_ + (lambda (_%e156320156700%_ + _%hd156321156703%_ + _%tl156322156705%_ + _%e156323156708%_ + _%hd156324156711%_ + _%tl156325156713%_ + _%e156326156716%_ + _%hd156327156719%_ + _%tl156328156721%_ + _%e156329156724%_ + _%hd156330156727%_ + _%tl156331156729%_) + (let ((_%L156732%_ _%hd156330156727%_) + (_%L156733%_ _%hd156327156719%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156574%_)) - (gxc#opt-lambda-expr? _%L156573%_)) - (_%__kont170321170322%_ _%L156573%_ _%L156574%_) - (_%__match170410170411%_ - _%e156161156541%_ - _%hd156162156544%_ - _%tl156163156546%_ - _%e156164156549%_ - _%hd156165156552%_ - _%tl156166156554%_ - _%e156167156557%_ - _%hd156168156560%_ - _%tl156169156562%_ - _%e156170156565%_ - _%hd156171156568%_ - _%tl156172156570%_))))) - (_%__match170354170355%_ - (lambda (_%e156147156724%_ - _%hd156148156727%_ - _%tl156149156729%_ - _%e156150156732%_ - _%hd156151156735%_ - _%tl156152156737%_ - _%e156153156740%_ - _%hd156154156743%_ - _%tl156155156745%_ - _%e156156156748%_ - _%hd156157156751%_ - _%tl156158156753%_) - (let ((_%L156756%_ _%hd156157156751%_) - (_%L156757%_ _%hd156154156743%_)) + (gx#identifier? _%L156733%_)) + (gxc#opt-lambda-expr? _%L156732%_)) + (_%__kont170480170481%_ _%L156732%_ _%L156733%_) + (_%__match170569170570%_ + _%e156320156700%_ + _%hd156321156703%_ + _%tl156322156705%_ + _%e156323156708%_ + _%hd156324156711%_ + _%tl156325156713%_ + _%e156326156716%_ + _%hd156327156719%_ + _%tl156328156721%_ + _%e156329156724%_ + _%hd156330156727%_ + _%tl156331156729%_))))) + (_%__match170513170514%_ + (lambda (_%e156306156883%_ + _%hd156307156886%_ + _%tl156308156888%_ + _%e156309156891%_ + _%hd156310156894%_ + _%tl156311156896%_ + _%e156312156899%_ + _%hd156313156902%_ + _%tl156314156904%_ + _%e156315156907%_ + _%hd156316156910%_ + _%tl156317156912%_) + (let ((_%L156915%_ _%hd156316156910%_) + (_%L156916%_ _%hd156313156902%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156757%_)) - (gxc#case-lambda-expr? _%L156756%_)) - (_%__kont170319170320%_ _%L156756%_ _%L156757%_) - (_%__match170382170383%_ - _%e156147156724%_ - _%hd156148156727%_ - _%tl156149156729%_ - _%e156150156732%_ - _%hd156151156735%_ - _%tl156152156737%_ - _%e156153156740%_ - _%hd156154156743%_ - _%tl156155156745%_ - _%e156156156748%_ - _%hd156157156751%_ - _%tl156158156753%_)))))) + (gx#identifier? _%L156916%_)) + (gxc#case-lambda-expr? _%L156915%_)) + (_%__kont170478170479%_ _%L156915%_ _%L156916%_) + (_%__match170541170542%_ + _%e156306156883%_ + _%hd156307156886%_ + _%tl156308156888%_ + _%e156309156891%_ + _%hd156310156894%_ + _%tl156311156896%_ + _%e156312156899%_ + _%hd156313156902%_ + _%tl156314156904%_ + _%e156315156907%_ + _%hd156316156910%_ + _%tl156317156912%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170317170318%_)) - (let ((_%e156147156724%_ + (gx#stx-pair? _%__stx170476170477%_)) + (let ((_%e156306156883%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170317170318%_)))) - (let ((_%tl156149156729%_ + (gx#stx-e _%__stx170476170477%_)))) + (let ((_%tl156308156888%_ (let () (declare (not safe)) - (##cdr _%e156147156724%_))) - (_%hd156148156727%_ + (##cdr _%e156306156883%_))) + (_%hd156307156886%_ (let () (declare (not safe)) - (##car _%e156147156724%_)))) + (##car _%e156306156883%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156149156729%_)) - (let ((_%e156150156732%_ + (gx#stx-pair? _%tl156308156888%_)) + (let ((_%e156309156891%_ (let () (declare (not safe)) - (gx#stx-e _%tl156149156729%_)))) - (let ((_%tl156152156737%_ + (gx#stx-e _%tl156308156888%_)))) + (let ((_%tl156311156896%_ (let () (declare (not safe)) - (##cdr _%e156150156732%_))) - (_%hd156151156735%_ + (##cdr _%e156309156891%_))) + (_%hd156310156894%_ (let () (declare (not safe)) - (##car _%e156150156732%_)))) + (##car _%e156309156891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156151156735%_)) - (let ((_%e156153156740%_ + (gx#stx-pair? _%hd156310156894%_)) + (let ((_%e156312156899%_ (let () (declare (not safe)) - (gx#stx-e _%hd156151156735%_)))) - (let ((_%tl156155156745%_ + (gx#stx-e _%hd156310156894%_)))) + (let ((_%tl156314156904%_ (let () (declare (not safe)) - (##cdr _%e156153156740%_))) - (_%hd156154156743%_ + (##cdr _%e156312156899%_))) + (_%hd156313156902%_ (let () (declare (not safe)) - (##car _%e156153156740%_)))) + (##car _%e156312156899%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156155156745%_)) + _%tl156314156904%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156152156737%_)) - (let ((_%e156156156748%_ + _%tl156311156896%_)) + (let ((_%e156315156907%_ (let () (declare (not safe)) (gx#stx-e - _%tl156152156737%_)))) - (let ((_%tl156158156753%_ + _%tl156311156896%_)))) + (let ((_%tl156317156912%_ (let () (declare (not safe)) - (##cdr _%e156156156748%_))) - (_%hd156157156751%_ + (##cdr _%e156315156907%_))) + (_%hd156316156910%_ (let () (declare (not safe)) - (##car _%e156156156748%_)))) + (##car _%e156315156907%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156158156753%_)) - (_%__match170354170355%_ - _%e156147156724%_ - _%hd156148156727%_ - _%tl156149156729%_ - _%e156150156732%_ - _%hd156151156735%_ - _%tl156152156737%_ - _%e156153156740%_ - _%hd156154156743%_ - _%tl156155156745%_ - _%e156156156748%_ - _%hd156157156751%_ - _%tl156158156753%_) + _%tl156317156912%_)) + (_%__match170513170514%_ + _%e156306156883%_ + _%hd156307156886%_ + _%tl156308156888%_ + _%e156309156891%_ + _%hd156310156894%_ + _%tl156311156896%_ + _%e156312156899%_ + _%hd156313156902%_ + _%tl156314156904%_ + _%e156315156907%_ + _%hd156316156910%_ + _%tl156317156912%_) (let () (declare (not safe)) - (_%g156143156202%_))))) + (_%g156302156361%_))))) (let () (declare (not safe)) - (_%g156143156202%_))) + (_%g156302156361%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156152156737%_)) - (let ((_%e156195156223%_ + _%tl156311156896%_)) + (let ((_%e156354156382%_ (let () (declare (not safe)) (gx#stx-e - _%tl156152156737%_)))) - (let ((_%tl156197156228%_ + _%tl156311156896%_)))) + (let ((_%tl156356156387%_ (let () (declare (not safe)) - (##cdr _%e156195156223%_))) - (_%hd156196156226%_ + (##cdr _%e156354156382%_))) + (_%hd156355156385%_ (let () (declare (not safe)) - (##car _%e156195156223%_)))) + (##car _%e156354156382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156197156228%_)) - (_%__kont170325170326%_ - _%hd156196156226%_ - _%hd156151156735%_) + _%tl156356156387%_)) + (_%__kont170484170485%_ + _%hd156355156385%_ + _%hd156310156894%_) (let () (declare (not safe)) - (_%g156143156202%_))))) + (_%g156302156361%_))))) (let () (declare (not safe)) - (_%g156143156202%_)))))) + (_%g156302156361%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156152156737%_)) - (let ((_%e156195156223%_ + (gx#stx-pair? _%tl156311156896%_)) + (let ((_%e156354156382%_ (let () (declare (not safe)) (gx#stx-e - _%tl156152156737%_)))) - (let ((_%tl156197156228%_ + _%tl156311156896%_)))) + (let ((_%tl156356156387%_ (let () (declare (not safe)) - (##cdr _%e156195156223%_))) - (_%hd156196156226%_ + (##cdr _%e156354156382%_))) + (_%hd156355156385%_ (let () (declare (not safe)) - (##car _%e156195156223%_)))) + (##car _%e156354156382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156197156228%_)) - (_%__kont170325170326%_ - _%hd156196156226%_ - _%hd156151156735%_) + _%tl156356156387%_)) + (_%__kont170484170485%_ + _%hd156355156385%_ + _%hd156310156894%_) (let () (declare (not safe)) - (_%g156143156202%_))))) + (_%g156302156361%_))))) (let () (declare (not safe)) - (_%g156143156202%_)))))) + (_%g156302156361%_)))))) (let () (declare (not safe)) - (_%g156143156202%_))))) - (let () (declare (not safe)) (_%g156143156202%_))))))))) + (_%g156302156361%_))))) + (let () (declare (not safe)) (_%g156302156361%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self155060%_ _%stx155061%_) - (letrec* ((_%bind-e__167796167797%_ - (lambda (_%id156117%_ _%expr156118%_ _%compile?156119%_) - (cons (cons _%id156117%_ '()) - (cons (if _%compile?156119%_ + (lambda (_%self155219%_ _%stx155220%_) + (letrec* ((_%bind-e__167955167956%_ + (lambda (_%id156276%_ _%expr156277%_ _%compile?156278%_) + (cons (cons _%id156276%_ '()) + (cons (if _%compile?156278%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155060%_ - _%expr156118%_)) - _%expr156118%_) + _%self155219%_ + _%expr156277%_)) + _%expr156277%_) '())))) - (_%bind-e__0__167798167799%_ - (lambda (_%id156124%_ _%expr156125%_) - (let ((_%compile?156127%_ '#t)) - (_%bind-e__167796167797%_ - _%id156124%_ - _%expr156125%_ - _%compile?156127%_)))) - (_%bind-e155063%_ - (lambda _g171134_ - (let ((_g171133_ + (_%bind-e__0__167957167958%_ + (lambda (_%id156283%_ _%expr156284%_) + (let ((_%compile?156286%_ '#t)) + (_%bind-e__167955167956%_ + _%id156283%_ + _%expr156284%_ + _%compile?156286%_)))) + (_%bind-e155222%_ + (lambda _g171293_ + (let ((_g171292_ (let () (declare (not safe)) - (##length _g171134_)))) - (cond ((let () (declare (not safe)) (##fx= _g171133_ 2)) - (apply _%bind-e__0__167798167799%_ _g171134_)) - ((let () (declare (not safe)) (##fx= _g171133_ 3)) - (apply _%bind-e__167796167797%_ _g171134_)) + (##length _g171293_)))) + (cond ((let () (declare (not safe)) (##fx= _g171292_ 2)) + (apply _%bind-e__0__167957167958%_ _g171293_)) + ((let () (declare (not safe)) (##fx= _g171292_ 3)) + (apply _%bind-e__167955167956%_ _g171293_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171134_)))))) - (_%compile-bindings155064%_ - (lambda (_%bindings155699%_) - (let _%lp155701%_ ((_%rest155703%_ _%bindings155699%_) - (_%lift1155704%_ '()) - (_%lift2155705%_ '()) - (_%bind155706%_ '())) - (let* ((_%rest155707155715%_ _%rest155703%_) - (_%else155709155723%_ + _g171293_)))))) + (_%compile-bindings155223%_ + (lambda (_%bindings155858%_) + (let _%lp155860%_ ((_%rest155862%_ _%bindings155858%_) + (_%lift1155863%_ '()) + (_%lift2155864%_ '()) + (_%bind155865%_ '())) + (let* ((_%rest155866155874%_ _%rest155862%_) + (_%else155868155882%_ (lambda () - (values (reverse _%lift1155704%_) - (reverse _%lift2155705%_) - (reverse _%bind155706%_)))) - (_%K155711156104%_ - (lambda (_%rest155726%_ _%hd155727%_) - (let* ((_%__stx170453170454%_ _%hd155727%_) - (_%g155731155767%_ + (values (reverse _%lift1155863%_) + (reverse _%lift2155864%_) + (reverse _%bind155865%_)))) + (_%K155870156263%_ + (lambda (_%rest155885%_ _%hd155886%_) + (let* ((_%__stx170612170613%_ _%hd155886%_) + (_%g155890155926%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170453170454%_))))) - (let ((_%__kont170455170456%_ - (lambda (_%L156010%_ _%L156011%_) - (let* ((_%__stx170433170434%_ - _%L156010%_) - (_%g156026156040%_ + _%__stx170612170613%_))))) + (let ((_%__kont170614170615%_ + (lambda (_%L156169%_ _%L156170%_) + (let* ((_%__stx170592170593%_ + _%L156169%_) + (_%g156185156199%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170433170434%_))))) - (let ((_%__kont170435170436%_ - (lambda (_%L156089%_) - (_%lp155701%_ - _%rest155726%_ - _%lift1155704%_ - _%lift2155705%_ - (cons (_%bind-e__167796167797%_ - _%L156011%_ - _%L156010%_ + _%__stx170592170593%_))))) + (let ((_%__kont170594170595%_ + (lambda (_%L156248%_) + (_%lp155860%_ + _%rest155885%_ + _%lift1155863%_ + _%lift2155864%_ + (cons (_%bind-e__167955167956%_ + _%L156170%_ + _%L156169%_ '#f) - _%bind155706%_)))) - (_%__kont170437170438%_ - (lambda (_%L156053%_) - (let ((_g171135_ + _%bind155865%_)))) + (_%__kont170596170597%_ + (lambda (_%L156212%_) + (let ((_g171294_ (gxc#lift-case-lambda-clauses__% - _%stx155061%_ - _%L156011%_ - _%L156053%_ + _%stx155220%_ + _%L156170%_ + _%L156212%_ '#t))) (begin - (let ((_g171136_ + (let ((_g171295_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171135_) - (##vector-length _g171135_) + (if (##values? _g171294_) + (##vector-length _g171294_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171136_ 3))) - (error "Context expects 3 values" _g171136_))) - (let ((_%ids156063%_ + (##fx= _g171295_ 3))) + (error "Context expects 3 values" _g171295_))) + (let ((_%ids156222%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 0))) - (_%impls156064%_ + (##vector-ref _g171294_ 0))) + (_%impls156223%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 1))) - (_%clauses156065%_ + (##vector-ref _g171294_ 1))) + (_%clauses156224%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 2)))) - (let* ((_%_156067%_ - (for-each gx#core-bind-runtime! _%ids156063%_)) - (_%xbind156069%_ - (map _%bind-e155063%_ - _%ids156063%_ - _%impls156064%_)) - (_%expr*156071%_ - (let ((__tmp171138 - (cons '%#case-lambda _%clauses156065%_)) - (__tmp171137 + (##vector-ref _g171294_ 2)))) + (let* ((_%_156226%_ + (for-each gx#core-bind-runtime! _%ids156222%_)) + (_%xbind156228%_ + (map _%bind-e155222%_ + _%ids156222%_ + _%impls156223%_)) + (_%expr*156230%_ + (let ((__tmp171297 + (cons '%#case-lambda _%clauses156224%_)) + (__tmp171296 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21586,1408 +21586,1408 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171138 - __tmp171137))) - (_%bind*156073%_ - (_%bind-e__167796167797%_ - _%L156011%_ - _%expr*156071%_ + __tmp171297 + __tmp171296))) + (_%bind*156232%_ + (_%bind-e__167955167956%_ + _%L156170%_ + _%expr*156230%_ '#f))) - (let ((__tmp171140 + (let ((__tmp171299 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156011%_))) - (__tmp171139 - (map gxc#identifier-symbol _%ids156063%_))) + (gxc#identifier-symbol _%L156170%_))) + (__tmp171298 + (map gxc#identifier-symbol _%ids156222%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171140 + __tmp171299 '" => " - __tmp171139)) - (_%lp155701%_ - _%rest155726%_ - _%lift1155704%_ + __tmp171298)) + (_%lp155860%_ + _%rest155885%_ + _%lift1155863%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2155705%_ _%xbind156069%_)) - (cons _%bind*156073%_ _%bind155706%_))))))))) + (__foldl1 cons _%lift2155864%_ _%xbind156228%_)) + (cons _%bind*156232%_ _%bind155865%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170444170445%_ - (lambda (_%e156029156081%_ - _%hd156030156084%_ - _%tl156031156086%_) - (let ((_%L156089%_ - _%tl156031156086%_)) + (let ((_%__match170603170604%_ + (lambda (_%e156188156240%_ + _%hd156189156243%_ + _%tl156190156245%_) + (let ((_%L156248%_ + _%tl156190156245%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L156089%_)) - (_%__kont170435170436%_ _%L156089%_) - (_%__kont170437170438%_ _%tl156031156086%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L156248%_)) + (_%__kont170594170595%_ _%L156248%_) + (_%__kont170596170597%_ _%tl156190156245%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170433170434%_)) - (let ((_%e156029156081%_ + _%__stx170592170593%_)) + (let ((_%e156188156240%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170433170434%_)))) - (let ((_%tl156031156086%_ - (let () (declare (not safe)) (##cdr _%e156029156081%_))) - (_%hd156030156084%_ + (gx#stx-e _%__stx170592170593%_)))) + (let ((_%tl156190156245%_ + (let () (declare (not safe)) (##cdr _%e156188156240%_))) + (_%hd156189156243%_ (let () (declare (not safe)) - (##car _%e156029156081%_)))) - (_%__match170444170445%_ - _%e156029156081%_ - _%hd156030156084%_ - _%tl156031156086%_))) - (let () (declare (not safe)) (_%g156026156040%_)))))))) + (##car _%e156188156240%_)))) + (_%__match170603170604%_ + _%e156188156240%_ + _%hd156189156243%_ + _%tl156190156245%_))) + (let () (declare (not safe)) (_%g156185156199%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170457170458%_ - (lambda (_%L155837%_ _%L155838%_) - (let* ((_%g155852155882%_ - (lambda (_%g155853155879%_) + (_%__kont170616170617%_ + (lambda (_%L155996%_ _%L155997%_) + (let* ((_%g156011156041%_ + (lambda (_%g156012156038%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155853155879%_)))) - (_%g155851155978%_ - (lambda (_%g155853155885%_) + _%g156012156038%_)))) + (_%g156010156137%_ + (lambda (_%g156012156044%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155853155885%_)) - (let ((_%e155857155887%_ + _%g156012156044%_)) + (let ((_%e156016156046%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155853155885%_)))) - (let ((_%hd155858155890%_ + (gx#stx-e _%g156012156044%_)))) + (let ((_%hd156017156049%_ (let () (declare (not safe)) - (##car _%e155857155887%_))) - (_%tl155859155892%_ + (##car _%e156016156046%_))) + (_%tl156018156051%_ (let () (declare (not safe)) - (##cdr _%e155857155887%_)))) + (##cdr _%e156016156046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155859155892%_)) - (let ((_%e155860155895%_ + (gx#stx-pair? _%tl156018156051%_)) + (let ((_%e156019156054%_ (let () (declare (not safe)) - (gx#stx-e _%tl155859155892%_)))) - (let ((_%hd155861155898%_ + (gx#stx-e _%tl156018156051%_)))) + (let ((_%hd156020156057%_ (let () (declare (not safe)) - (##car _%e155860155895%_))) - (_%tl155862155900%_ + (##car _%e156019156054%_))) + (_%tl156021156059%_ (let () (declare (not safe)) - (##cdr _%e155860155895%_)))) + (##cdr _%e156019156054%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155861155898%_)) - (let ((_%e155863155903%_ + (gx#stx-pair? _%hd156020156057%_)) + (let ((_%e156022156062%_ (let () (declare (not safe)) - (gx#stx-e _%hd155861155898%_)))) - (let ((_%hd155864155906%_ + (gx#stx-e _%hd156020156057%_)))) + (let ((_%hd156023156065%_ (let () (declare (not safe)) - (##car _%e155863155903%_))) - (_%tl155865155908%_ + (##car _%e156022156062%_))) + (_%tl156024156067%_ (let () (declare (not safe)) - (##cdr _%e155863155903%_)))) + (##cdr _%e156022156062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155864155906%_)) - (let ((_%e155866155911%_ + (gx#stx-pair? _%hd156023156065%_)) + (let ((_%e156025156070%_ (let () (declare (not safe)) (gx#stx-e - _%hd155864155906%_)))) - (let ((_%hd155867155914%_ + _%hd156023156065%_)))) + (let ((_%hd156026156073%_ (let () (declare (not safe)) - (##car _%e155866155911%_))) - (_%tl155868155916%_ + (##car _%e156025156070%_))) + (_%tl156027156075%_ (let () (declare (not safe)) - (##cdr _%e155866155911%_)))) + (##cdr _%e156025156070%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155867155914%_)) - (let ((_%e155869155919%_ + _%hd156026156073%_)) + (let ((_%e156028156078%_ (let () (declare (not safe)) (gx#stx-e - _%hd155867155914%_)))) - (let ((_%hd155870155922%_ + _%hd156026156073%_)))) + (let ((_%hd156029156081%_ (let () (declare (not safe)) - (##car _%e155869155919%_))) - (_%tl155871155924%_ + (##car _%e156028156078%_))) + (_%tl156030156083%_ (let () (declare (not safe)) - (##cdr _%e155869155919%_)))) + (##cdr _%e156028156078%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155871155924%_)) + _%tl156030156083%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155868155916%_)) - (let ((_%e155872155927%_ + (gx#stx-pair? _%tl156027156075%_)) + (let ((_%e156031156086%_ (let () (declare (not safe)) - (gx#stx-e _%tl155868155916%_)))) - (let ((_%hd155873155930%_ + (gx#stx-e _%tl156027156075%_)))) + (let ((_%hd156032156089%_ (let () (declare (not safe)) - (##car _%e155872155927%_))) - (_%tl155874155932%_ + (##car _%e156031156086%_))) + (_%tl156033156091%_ (let () (declare (not safe)) - (##cdr _%e155872155927%_)))) + (##cdr _%e156031156086%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155874155932%_)) + (gx#stx-null? _%tl156033156091%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155865155908%_)) + (gx#stx-null? _%tl156024156067%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155862155900%_)) - (let ((_%e155875155935%_ + (gx#stx-pair? _%tl156021156059%_)) + (let ((_%e156034156094%_ (let () (declare (not safe)) - (gx#stx-e _%tl155862155900%_)))) - (let ((_%hd155876155938%_ + (gx#stx-e _%tl156021156059%_)))) + (let ((_%hd156035156097%_ (let () (declare (not safe)) - (##car _%e155875155935%_))) - (_%tl155877155940%_ + (##car _%e156034156094%_))) + (_%tl156036156099%_ (let () (declare (not safe)) - (##cdr _%e155875155935%_)))) + (##cdr _%e156034156094%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155877155940%_)) - ((lambda (_%L155943%_ - _%L155944%_ - _%L155945%_) - (let* ((_%lambda-id155969%_ - (let ((__tmp171142 + _%tl156036156099%_)) + ((lambda (_%L156102%_ + _%L156103%_ + _%L156104%_) + (let* ((_%lambda-id156128%_ + (let ((__tmp171301 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L155838%_))) - (__tmp171141 + (gx#stx-e _%L155997%_))) + (__tmp171300 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171142 __tmp171141))) - (_%lambda-id155971%_ - (let ((__tmp171143 + (make-symbol__1 __tmp171301 __tmp171300))) + (_%lambda-id156130%_ + (let ((__tmp171302 (let () (declare (not safe)) - (gx#stx-source _%stx155061%_)))) + (gx#stx-source _%stx155220%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id155969%_ __tmp171143))) - (_%_155973%_ + (gx#core-quote-syntax__1 _%lambda-id156128%_ __tmp171302))) + (_%_156132%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id155971%_))) - (_%new-case-lambda-expr155975%_ + (gx#core-bind-runtime!__0 _%lambda-id156130%_))) + (_%new-case-lambda-expr156134%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155945%_ - _%lambda-id155971%_ - _%L155943%_)))) + _%L156104%_ + _%lambda-id156130%_ + _%L156102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171145 + (let ((__tmp171304 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155838%_))) - (__tmp171144 + _%L155997%_))) + (__tmp171303 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155971%_)))) + _%lambda-id156130%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171145 + __tmp171304 '" => " - __tmp171144)) - (_%lp155701%_ - (cons (_%bind-e__167796167797%_ - _%L155838%_ - _%new-case-lambda-expr155975%_ + __tmp171303)) + (_%lp155860%_ + (cons (_%bind-e__167955167956%_ + _%L155997%_ + _%new-case-lambda-expr156134%_ '#f) - _%rest155726%_) - (cons (_%bind-e__0__167798167799%_ - _%lambda-id155971%_ - _%L155944%_) - _%lift1155704%_) - _%lift2155705%_ - _%bind155706%_))) - _%hd155876155938%_ - _%hd155873155930%_ - _%hd155870155922%_) - (_%g155852155882%_ - _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)) - (_%g155852155882%_ _%g155853155885%_)) - (_%g155852155882%_ _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)) - (_%g155852155882%_ _%g155853155885%_)))) + _%rest155885%_) + (cons (_%bind-e__0__167957167958%_ + _%lambda-id156130%_ + _%L156103%_) + _%lift1155863%_) + _%lift2155864%_ + _%bind155865%_))) + _%hd156035156097%_ + _%hd156032156089%_ + _%hd156029156081%_) + (_%g156011156041%_ + _%g156012156044%_)))) + (_%g156011156041%_ _%g156012156044%_)) + (_%g156011156041%_ _%g156012156044%_)) + (_%g156011156041%_ _%g156012156044%_)))) + (_%g156011156041%_ _%g156012156044%_)) + (_%g156011156041%_ _%g156012156044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155852155882%_ - _%g155853155885%_)))) - (_%g155852155882%_ - _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_))))) + (_%g156011156041%_ + _%g156012156044%_)))) + (_%g156011156041%_ + _%g156012156044%_)))) + (_%g156011156041%_ _%g156012156044%_)))) + (_%g156011156041%_ _%g156012156044%_)))) + (_%g156011156041%_ _%g156012156044%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155851155978%_ - _%L155837%_)))) - (_%__kont170459170460%_ - (lambda (_%L155788%_ _%L155789%_) - (_%lp155701%_ - _%rest155726%_ - _%lift1155704%_ - _%lift2155705%_ - (cons (cons _%L155789%_ + (_%g156010156137%_ + _%L155996%_)))) + (_%__kont170618170619%_ + (lambda (_%L155947%_ _%L155948%_) + (_%lp155860%_ + _%rest155885%_ + _%lift1155863%_ + _%lift2155864%_ + (cons (cons _%L155948%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self155060%_ _%L155788%_)) + (gxc#compile-e__1 _%self155219%_ _%L155947%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind155706%_))))) - (let* ((_%__match170504170505%_ - (lambda (_%e155746155813%_ - _%hd155747155816%_ - _%tl155748155818%_ - _%e155749155821%_ - _%hd155750155824%_ - _%tl155751155826%_ - _%e155752155829%_ - _%hd155753155832%_ - _%tl155754155834%_) - (let ((_%L155837%_ - _%hd155753155832%_) - (_%L155838%_ - _%hd155750155824%_)) + _%bind155865%_))))) + (let* ((_%__match170663170664%_ + (lambda (_%e155905155972%_ + _%hd155906155975%_ + _%tl155907155977%_ + _%e155908155980%_ + _%hd155909155983%_ + _%tl155910155985%_ + _%e155911155988%_ + _%hd155912155991%_ + _%tl155913155993%_) + (let ((_%L155996%_ + _%hd155912155991%_) + (_%L155997%_ + _%hd155909155983%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155838%_)) + _%L155997%_)) (gxc#opt-lambda-expr? - _%L155837%_)) - (_%__kont170457170458%_ - _%L155837%_ - _%L155838%_) - (_%__kont170459170460%_ - _%hd155753155832%_ - _%hd155747155816%_))))) - (_%__match170482170483%_ - (lambda (_%e155735155986%_ - _%hd155736155989%_ - _%tl155737155991%_ - _%e155738155994%_ - _%hd155739155997%_ - _%tl155740155999%_ - _%e155741156002%_ - _%hd155742156005%_ - _%tl155743156007%_) - (let ((_%L156010%_ - _%hd155742156005%_) - (_%L156011%_ - _%hd155739155997%_)) + _%L155996%_)) + (_%__kont170616170617%_ + _%L155996%_ + _%L155997%_) + (_%__kont170618170619%_ + _%hd155912155991%_ + _%hd155906155975%_))))) + (_%__match170641170642%_ + (lambda (_%e155894156145%_ + _%hd155895156148%_ + _%tl155896156150%_ + _%e155897156153%_ + _%hd155898156156%_ + _%tl155899156158%_ + _%e155900156161%_ + _%hd155901156164%_ + _%tl155902156166%_) + (let ((_%L156169%_ + _%hd155901156164%_) + (_%L156170%_ + _%hd155898156156%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L156011%_)) + _%L156170%_)) (gxc#case-lambda-expr? - _%L156010%_)) - (_%__kont170455170456%_ - _%L156010%_ - _%L156011%_) - (_%__match170504170505%_ - _%e155735155986%_ - _%hd155736155989%_ - _%tl155737155991%_ - _%e155738155994%_ - _%hd155739155997%_ - _%tl155740155999%_ - _%e155741156002%_ - _%hd155742156005%_ - _%tl155743156007%_)))))) + _%L156169%_)) + (_%__kont170614170615%_ + _%L156169%_ + _%L156170%_) + (_%__match170663170664%_ + _%e155894156145%_ + _%hd155895156148%_ + _%tl155896156150%_ + _%e155897156153%_ + _%hd155898156156%_ + _%tl155899156158%_ + _%e155900156161%_ + _%hd155901156164%_ + _%tl155902156166%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170453170454%_)) - (let ((_%e155735155986%_ + _%__stx170612170613%_)) + (let ((_%e155894156145%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170453170454%_)))) - (let ((_%tl155737155991%_ + _%__stx170612170613%_)))) + (let ((_%tl155896156150%_ (let () (declare (not safe)) - (##cdr _%e155735155986%_))) - (_%hd155736155989%_ + (##cdr _%e155894156145%_))) + (_%hd155895156148%_ (let () (declare (not safe)) - (##car _%e155735155986%_)))) + (##car _%e155894156145%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155736155989%_)) - (let ((_%e155738155994%_ + _%hd155895156148%_)) + (let ((_%e155897156153%_ (let () (declare (not safe)) (gx#stx-e - _%hd155736155989%_)))) - (let ((_%tl155740155999%_ + _%hd155895156148%_)))) + (let ((_%tl155899156158%_ (let () (declare (not safe)) - (##cdr _%e155738155994%_))) - (_%hd155739155997%_ + (##cdr _%e155897156153%_))) + (_%hd155898156156%_ (let () (declare (not safe)) - (##car _%e155738155994%_)))) + (##car _%e155897156153%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155740155999%_)) + _%tl155899156158%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155737155991%_)) - (let ((_%e155741156002%_ + (gx#stx-pair? _%tl155896156150%_)) + (let ((_%e155900156161%_ (let () (declare (not safe)) - (gx#stx-e _%tl155737155991%_)))) - (let ((_%tl155743156007%_ + (gx#stx-e _%tl155896156150%_)))) + (let ((_%tl155902156166%_ (let () (declare (not safe)) - (##cdr _%e155741156002%_))) - (_%hd155742156005%_ + (##cdr _%e155900156161%_))) + (_%hd155901156164%_ (let () (declare (not safe)) - (##car _%e155741156002%_)))) + (##car _%e155900156161%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155743156007%_)) - (_%__match170482170483%_ - _%e155735155986%_ - _%hd155736155989%_ - _%tl155737155991%_ - _%e155738155994%_ - _%hd155739155997%_ - _%tl155740155999%_ - _%e155741156002%_ - _%hd155742156005%_ - _%tl155743156007%_) + (gx#stx-null? _%tl155902156166%_)) + (_%__match170641170642%_ + _%e155894156145%_ + _%hd155895156148%_ + _%tl155896156150%_ + _%e155897156153%_ + _%hd155898156156%_ + _%tl155899156158%_ + _%e155900156161%_ + _%hd155901156164%_ + _%tl155902156166%_) (let () (declare (not safe)) - (_%g155731155767%_))))) - (let () (declare (not safe)) (_%g155731155767%_))) + (_%g155890155926%_))))) + (let () (declare (not safe)) (_%g155890155926%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155737155991%_)) - (let ((_%e155760155780%_ + (gx#stx-pair? _%tl155896156150%_)) + (let ((_%e155919155939%_ (let () (declare (not safe)) - (gx#stx-e _%tl155737155991%_)))) - (let ((_%tl155762155785%_ + (gx#stx-e _%tl155896156150%_)))) + (let ((_%tl155921155944%_ (let () (declare (not safe)) - (##cdr _%e155760155780%_))) - (_%hd155761155783%_ + (##cdr _%e155919155939%_))) + (_%hd155920155942%_ (let () (declare (not safe)) - (##car _%e155760155780%_)))) + (##car _%e155919155939%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155762155785%_)) - (_%__kont170459170460%_ - _%hd155761155783%_ - _%hd155736155989%_) + (gx#stx-null? _%tl155921155944%_)) + (_%__kont170618170619%_ + _%hd155920155942%_ + _%hd155895156148%_) (let () (declare (not safe)) - (_%g155731155767%_))))) - (let () (declare (not safe)) (_%g155731155767%_)))))) + (_%g155890155926%_))))) + (let () (declare (not safe)) (_%g155890155926%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155737155991%_)) - (let ((_%e155760155780%_ + _%tl155896156150%_)) + (let ((_%e155919155939%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155737155991%_)))) - (let ((_%tl155762155785%_ + (gx#stx-e _%tl155896156150%_)))) + (let ((_%tl155921155944%_ (let () (declare (not safe)) - (##cdr _%e155760155780%_))) - (_%hd155761155783%_ + (##cdr _%e155919155939%_))) + (_%hd155920155942%_ (let () (declare (not safe)) - (##car _%e155760155780%_)))) + (##car _%e155919155939%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155762155785%_)) - (_%__kont170459170460%_ - _%hd155761155783%_ - _%hd155736155989%_) - (let () (declare (not safe)) (_%g155731155767%_))))) - (let () (declare (not safe)) (_%g155731155767%_)))))) + (gx#stx-null? _%tl155921155944%_)) + (_%__kont170618170619%_ + _%hd155920155942%_ + _%hd155895156148%_) + (let () (declare (not safe)) (_%g155890155926%_))))) + (let () (declare (not safe)) (_%g155890155926%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155731155767%_))))))))) - (if (pair? _%rest155707155715%_) - (let ((_%hd155712156107%_ + (_%g155890155926%_))))))))) + (if (pair? _%rest155866155874%_) + (let ((_%hd155871156266%_ (let () (declare (not safe)) - (##car _%rest155707155715%_))) - (_%tl155713156109%_ + (##car _%rest155866155874%_))) + (_%tl155872156268%_ (let () (declare (not safe)) - (##cdr _%rest155707155715%_)))) - (let* ((_%hd156112%_ _%hd155712156107%_) - (_%rest156114%_ _%tl155713156109%_)) - (_%K155711156104%_ - _%rest156114%_ - _%hd156112%_))) - (_%else155709155723%_)))))) - (_%lift-kw-lambda?155065%_ - (lambda (_%bind155623%_) - (let* ((_%__stx170521170522%_ _%bind155623%_) - (_%g155626155643%_ + (##cdr _%rest155866155874%_)))) + (let* ((_%hd156271%_ _%hd155871156266%_) + (_%rest156273%_ _%tl155872156268%_)) + (_%K155870156263%_ + _%rest156273%_ + _%hd156271%_))) + (_%else155868155882%_)))))) + (_%lift-kw-lambda?155224%_ + (lambda (_%bind155782%_) + (let* ((_%__stx170680170681%_ _%bind155782%_) + (_%g155785155802%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170521170522%_))))) - (let ((_%__kont170523170524%_ - (lambda (_%L155679%_ _%L155680%_) + _%__stx170680170681%_))))) + (let ((_%__kont170682170683%_ + (lambda (_%L155838%_ _%L155839%_) (if (let () (declare (not safe)) - (gx#identifier? _%L155680%_)) - (gxc#kw-lambda-expr? _%L155679%_) + (gx#identifier? _%L155839%_)) + (gxc#kw-lambda-expr? _%L155838%_) '#f))) - (_%__kont170525170526%_ (lambda () '#f))) + (_%__kont170684170685%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170521170522%_)) - (let ((_%e155630155655%_ + (gx#stx-pair? _%__stx170680170681%_)) + (let ((_%e155789155814%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170521170522%_)))) - (let ((_%tl155632155660%_ + (gx#stx-e _%__stx170680170681%_)))) + (let ((_%tl155791155819%_ (let () (declare (not safe)) - (##cdr _%e155630155655%_))) - (_%hd155631155658%_ + (##cdr _%e155789155814%_))) + (_%hd155790155817%_ (let () (declare (not safe)) - (##car _%e155630155655%_)))) + (##car _%e155789155814%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155631155658%_)) - (let ((_%e155633155663%_ + (gx#stx-pair? _%hd155790155817%_)) + (let ((_%e155792155822%_ (let () (declare (not safe)) - (gx#stx-e _%hd155631155658%_)))) - (let ((_%tl155635155668%_ + (gx#stx-e _%hd155790155817%_)))) + (let ((_%tl155794155827%_ (let () (declare (not safe)) - (##cdr _%e155633155663%_))) - (_%hd155634155666%_ + (##cdr _%e155792155822%_))) + (_%hd155793155825%_ (let () (declare (not safe)) - (##car _%e155633155663%_)))) + (##car _%e155792155822%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155635155668%_)) + _%tl155794155827%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155632155660%_)) - (let ((_%e155636155671%_ + _%tl155791155819%_)) + (let ((_%e155795155830%_ (let () (declare (not safe)) (gx#stx-e - _%tl155632155660%_)))) - (let ((_%tl155638155676%_ + _%tl155791155819%_)))) + (let ((_%tl155797155835%_ (let () (declare (not safe)) - (##cdr _%e155636155671%_))) - (_%hd155637155674%_ + (##cdr _%e155795155830%_))) + (_%hd155796155833%_ (let () (declare (not safe)) - (##car _%e155636155671%_)))) + (##car _%e155795155830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155638155676%_)) - (_%__kont170523170524%_ - _%hd155637155674%_ - _%hd155634155666%_) - (_%__kont170525170526%_)))) - (_%__kont170525170526%_)) - (_%__kont170525170526%_)))) - (_%__kont170525170526%_)))) - (_%__kont170525170526%_)))))) - (_%lift-kw-lambda-bindings155066%_ - (lambda (_%bindings155233%_) - (let _%lp155235%_ ((_%rest155237%_ _%bindings155233%_) - (_%lift1155238%_ '()) - (_%lift2155239%_ '()) - (_%bind155240%_ '())) - (let* ((_%rest155241155249%_ _%rest155237%_) - (_%else155243155257%_ + _%tl155797155835%_)) + (_%__kont170682170683%_ + _%hd155796155833%_ + _%hd155793155825%_) + (_%__kont170684170685%_)))) + (_%__kont170684170685%_)) + (_%__kont170684170685%_)))) + (_%__kont170684170685%_)))) + (_%__kont170684170685%_)))))) + (_%lift-kw-lambda-bindings155225%_ + (lambda (_%bindings155392%_) + (let _%lp155394%_ ((_%rest155396%_ _%bindings155392%_) + (_%lift1155397%_ '()) + (_%lift2155398%_ '()) + (_%bind155399%_ '())) + (let* ((_%rest155400155408%_ _%rest155396%_) + (_%else155402155416%_ (lambda () - (values (reverse _%lift1155238%_) - (reverse _%lift2155239%_) - (reverse _%bind155240%_)))) - (_%K155245155611%_ - (lambda (_%rest155260%_ _%hd155261%_) - (let* ((_%__stx170551170552%_ _%hd155261%_) - (_%g155264155289%_ + (values (reverse _%lift1155397%_) + (reverse _%lift2155398%_) + (reverse _%bind155399%_)))) + (_%K155404155770%_ + (lambda (_%rest155419%_ _%hd155420%_) + (let* ((_%__stx170710170711%_ _%hd155420%_) + (_%g155423155448%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170551170552%_))))) - (let ((_%__kont170553170554%_ - (lambda (_%L155359%_ _%L155360%_) - (let* ((_%g155374155427%_ - (lambda (_%g155375155424%_) + _%__stx170710170711%_))))) + (let ((_%__kont170712170713%_ + (lambda (_%L155518%_ _%L155519%_) + (let* ((_%g155533155586%_ + (lambda (_%g155534155583%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155375155424%_)))) - (_%g155373155605%_ - (lambda (_%g155375155430%_) + _%g155534155583%_)))) + (_%g155532155764%_ + (lambda (_%g155534155589%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155375155430%_)) - (let ((_%e155381155432%_ + _%g155534155589%_)) + (let ((_%e155540155591%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155375155430%_)))) - (let ((_%hd155382155435%_ + (gx#stx-e _%g155534155589%_)))) + (let ((_%hd155541155594%_ (let () (declare (not safe)) - (##car _%e155381155432%_))) - (_%tl155383155437%_ + (##car _%e155540155591%_))) + (_%tl155542155596%_ (let () (declare (not safe)) - (##cdr _%e155381155432%_)))) + (##cdr _%e155540155591%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155383155437%_)) - (let ((_%e155384155440%_ + (gx#stx-pair? _%tl155542155596%_)) + (let ((_%e155543155599%_ (let () (declare (not safe)) - (gx#stx-e _%tl155383155437%_)))) - (let ((_%hd155385155443%_ + (gx#stx-e _%tl155542155596%_)))) + (let ((_%hd155544155602%_ (let () (declare (not safe)) - (##car _%e155384155440%_))) - (_%tl155386155445%_ + (##car _%e155543155599%_))) + (_%tl155545155604%_ (let () (declare (not safe)) - (##cdr _%e155384155440%_)))) + (##cdr _%e155543155599%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155385155443%_)) - (let ((_%e155387155448%_ + (gx#stx-pair? _%hd155544155602%_)) + (let ((_%e155546155607%_ (let () (declare (not safe)) - (gx#stx-e _%hd155385155443%_)))) - (let ((_%hd155388155451%_ + (gx#stx-e _%hd155544155602%_)))) + (let ((_%hd155547155610%_ (let () (declare (not safe)) - (##car _%e155387155448%_))) - (_%tl155389155453%_ + (##car _%e155546155607%_))) + (_%tl155548155612%_ (let () (declare (not safe)) - (##cdr _%e155387155448%_)))) + (##cdr _%e155546155607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155388155451%_)) - (let ((_%e155390155456%_ + (gx#stx-pair? _%hd155547155610%_)) + (let ((_%e155549155615%_ (let () (declare (not safe)) (gx#stx-e - _%hd155388155451%_)))) - (let ((_%hd155391155459%_ + _%hd155547155610%_)))) + (let ((_%hd155550155618%_ (let () (declare (not safe)) - (##car _%e155390155456%_))) - (_%tl155392155461%_ + (##car _%e155549155615%_))) + (_%tl155551155620%_ (let () (declare (not safe)) - (##cdr _%e155390155456%_)))) + (##cdr _%e155549155615%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155391155459%_)) - (let ((_%e155393155464%_ + _%hd155550155618%_)) + (let ((_%e155552155623%_ (let () (declare (not safe)) (gx#stx-e - _%hd155391155459%_)))) - (let ((_%hd155394155467%_ + _%hd155550155618%_)))) + (let ((_%hd155553155626%_ (let () (declare (not safe)) - (##car _%e155393155464%_))) - (_%tl155395155469%_ + (##car _%e155552155623%_))) + (_%tl155554155628%_ (let () (declare (not safe)) - (##cdr _%e155393155464%_)))) + (##cdr _%e155552155623%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155395155469%_)) + _%tl155554155628%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155392155461%_)) - (let ((_%e155396155472%_ + (gx#stx-pair? _%tl155551155620%_)) + (let ((_%e155555155631%_ (let () (declare (not safe)) - (gx#stx-e _%tl155392155461%_)))) - (let ((_%hd155397155475%_ + (gx#stx-e _%tl155551155620%_)))) + (let ((_%hd155556155634%_ (let () (declare (not safe)) - (##car _%e155396155472%_))) - (_%tl155398155477%_ + (##car _%e155555155631%_))) + (_%tl155557155636%_ (let () (declare (not safe)) - (##cdr _%e155396155472%_)))) + (##cdr _%e155555155631%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155397155475%_)) - (let ((_%e155399155480%_ + (gx#stx-pair? _%hd155556155634%_)) + (let ((_%e155558155639%_ (let () (declare (not safe)) - (gx#stx-e _%hd155397155475%_)))) - (let ((_%hd155400155483%_ + (gx#stx-e _%hd155556155634%_)))) + (let ((_%hd155559155642%_ (let () (declare (not safe)) - (##car _%e155399155480%_))) - (_%tl155401155485%_ + (##car _%e155558155639%_))) + (_%tl155560155644%_ (let () (declare (not safe)) - (##cdr _%e155399155480%_)))) + (##cdr _%e155558155639%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155401155485%_)) - (let ((_%e155402155488%_ + (gx#stx-pair? _%tl155560155644%_)) + (let ((_%e155561155647%_ (let () (declare (not safe)) - (gx#stx-e _%tl155401155485%_)))) - (let ((_%hd155403155491%_ + (gx#stx-e _%tl155560155644%_)))) + (let ((_%hd155562155650%_ (let () (declare (not safe)) - (##car _%e155402155488%_))) - (_%tl155404155493%_ + (##car _%e155561155647%_))) + (_%tl155563155652%_ (let () (declare (not safe)) - (##cdr _%e155402155488%_)))) + (##cdr _%e155561155647%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155403155491%_)) - (let ((_%e155405155496%_ + _%hd155562155650%_)) + (let ((_%e155564155655%_ (let () (declare (not safe)) (gx#stx-e - _%hd155403155491%_)))) - (let ((_%hd155406155499%_ + _%hd155562155650%_)))) + (let ((_%hd155565155658%_ (let () (declare (not safe)) - (##car _%e155405155496%_))) - (_%tl155407155501%_ + (##car _%e155564155655%_))) + (_%tl155566155660%_ (let () (declare (not safe)) - (##cdr _%e155405155496%_)))) + (##cdr _%e155564155655%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155406155499%_)) - (let ((_%e155408155504%_ + _%hd155565155658%_)) + (let ((_%e155567155663%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd155406155499%_)))) - (let ((_%hd155409155507%_ - (let () (declare (not safe)) (##car _%e155408155504%_))) - (_%tl155410155509%_ + (gx#stx-e _%hd155565155658%_)))) + (let ((_%hd155568155666%_ + (let () (declare (not safe)) (##car _%e155567155663%_))) + (_%tl155569155668%_ (let () (declare (not safe)) - (##cdr _%e155408155504%_)))) + (##cdr _%e155567155663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155409155507%_)) - (let ((_%e155411155512%_ + (gx#stx-pair? _%hd155568155666%_)) + (let ((_%e155570155671%_ (let () (declare (not safe)) - (gx#stx-e _%hd155409155507%_)))) - (let ((_%hd155412155515%_ + (gx#stx-e _%hd155568155666%_)))) + (let ((_%hd155571155674%_ (let () (declare (not safe)) - (##car _%e155411155512%_))) - (_%tl155413155517%_ + (##car _%e155570155671%_))) + (_%tl155572155676%_ (let () (declare (not safe)) - (##cdr _%e155411155512%_)))) + (##cdr _%e155570155671%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155413155517%_)) + (gx#stx-null? _%tl155572155676%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155410155509%_)) - (let ((_%e155414155520%_ + (gx#stx-pair? _%tl155569155668%_)) + (let ((_%e155573155679%_ (let () (declare (not safe)) - (gx#stx-e _%tl155410155509%_)))) - (let ((_%hd155415155523%_ + (gx#stx-e _%tl155569155668%_)))) + (let ((_%hd155574155682%_ (let () (declare (not safe)) - (##car _%e155414155520%_))) - (_%tl155416155525%_ + (##car _%e155573155679%_))) + (_%tl155575155684%_ (let () (declare (not safe)) - (##cdr _%e155414155520%_)))) + (##cdr _%e155573155679%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155416155525%_)) + (gx#stx-null? _%tl155575155684%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155407155501%_)) + _%tl155566155660%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155404155493%_)) - (let ((_%e155417155528%_ + _%tl155563155652%_)) + (let ((_%e155576155687%_ (let () (declare (not safe)) (gx#stx-e - _%tl155404155493%_)))) - (let ((_%hd155418155531%_ + _%tl155563155652%_)))) + (let ((_%hd155577155690%_ (let () (declare (not safe)) - (##car _%e155417155528%_))) - (_%tl155419155533%_ + (##car _%e155576155687%_))) + (_%tl155578155692%_ (let () (declare (not safe)) - (##cdr _%e155417155528%_)))) + (##cdr _%e155576155687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155419155533%_)) + _%tl155578155692%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl155398155477%_)) + (gx#stx-null? _%tl155557155636%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155389155453%_)) + (gx#stx-null? _%tl155548155612%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155386155445%_)) - (let ((_%e155420155536%_ + (gx#stx-pair? _%tl155545155604%_)) + (let ((_%e155579155695%_ (let () (declare (not safe)) - (gx#stx-e _%tl155386155445%_)))) - (let ((_%hd155421155539%_ + (gx#stx-e _%tl155545155604%_)))) + (let ((_%hd155580155698%_ (let () (declare (not safe)) - (##car _%e155420155536%_))) - (_%tl155422155541%_ + (##car _%e155579155695%_))) + (_%tl155581155700%_ (let () (declare (not safe)) - (##cdr _%e155420155536%_)))) + (##cdr _%e155579155695%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155422155541%_)) - ((lambda (_%L155544%_ - _%L155545%_ - _%L155546%_ - _%L155547%_ - _%L155548%_) - (let* ((_%get-kws-id155588%_ - (let ((__tmp171147 + (gx#stx-null? _%tl155581155700%_)) + ((lambda (_%L155703%_ + _%L155704%_ + _%L155705%_ + _%L155706%_ + _%L155707%_) + (let* ((_%get-kws-id155747%_ + (let ((__tmp171306 (let () (declare (not safe)) (gx#stx-e - _%L155360%_))) - (__tmp171146 + _%L155519%_))) + (__tmp171305 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171147 - __tmp171146))) - (_%get-kws-id155590%_ - (let ((__tmp171148 + __tmp171306 + __tmp171305))) + (_%get-kws-id155749%_ + (let ((__tmp171307 (let () (declare (not safe)) (gx#stx-source - _%stx155061%_)))) + _%stx155220%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155588%_ - __tmp171148))) - (_%main-id155592%_ - (let ((__tmp171150 + _%get-kws-id155747%_ + __tmp171307))) + (_%main-id155751%_ + (let ((__tmp171309 (let () (declare (not safe)) (gx#stx-e - _%L155360%_))) - (__tmp171149 + _%L155519%_))) + (__tmp171308 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171150 - __tmp171149))) - (_%main-id155594%_ - (let ((__tmp171151 + __tmp171309 + __tmp171308))) + (_%main-id155753%_ + (let ((__tmp171310 (let () (declare (not safe)) (gx#stx-source - _%stx155061%_)))) + _%stx155220%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155592%_ - __tmp171151))) - (_%_155596%_ + _%main-id155751%_ + __tmp171310))) + (_%_155755%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id155590%_))) - (_%_155598%_ + _%get-kws-id155749%_))) + (_%_155757%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id155594%_))) - (_%new-kw-dispatch155600%_ + _%main-id155753%_))) + (_%new-kw-dispatch155759%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155548%_ - _%get-kws-id155590%_ - _%L155544%_))) - (_%new-get-kws155602%_ + _%L155707%_ + _%get-kws-id155749%_ + _%L155703%_))) + (_%new-get-kws155761%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155547%_ - _%main-id155594%_ - _%L155545%_)))) - (let ((__tmp171154 + _%L155706%_ + _%main-id155753%_ + _%L155704%_)))) + (let ((__tmp171313 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155360%_))) - (__tmp171153 + _%L155519%_))) + (__tmp171312 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id155590%_))) - (__tmp171152 + _%get-kws-id155749%_))) + (__tmp171311 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id155594%_)))) + _%main-id155753%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171154 + __tmp171313 '" => " - __tmp171153 + __tmp171312 '" => " - __tmp171152)) - (_%lp155235%_ - _%rest155260%_ - (cons (_%bind-e__167796167797%_ - _%main-id155594%_ - _%L155546%_ + __tmp171311)) + (_%lp155394%_ + _%rest155419%_ + (cons (_%bind-e__167955167956%_ + _%main-id155753%_ + _%L155705%_ '#f) - _%lift1155238%_) - (cons (_%bind-e__167796167797%_ - _%get-kws-id155590%_ - _%new-get-kws155602%_ + _%lift1155397%_) + (cons (_%bind-e__167955167956%_ + _%get-kws-id155749%_ + _%new-get-kws155761%_ '#f) - _%lift2155239%_) - (cons (_%bind-e__167796167797%_ - _%L155360%_ - _%new-kw-dispatch155600%_ + _%lift2155398%_) + (cons (_%bind-e__167955167956%_ + _%L155519%_ + _%new-kw-dispatch155759%_ '#f) - _%bind155240%_)))) - _%hd155421155539%_ - _%hd155418155531%_ - _%hd155415155523%_ - _%hd155412155515%_ - _%hd155394155467%_) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)))) + _%bind155399%_)))) + _%hd155580155698%_ + _%hd155577155690%_ + _%hd155574155682%_ + _%hd155571155674%_ + _%hd155553155626%_) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)) + (_%g155533155586%_ _%g155534155589%_)) + (_%g155533155586%_ _%g155534155589%_)) + (_%g155533155586%_ _%g155534155589%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155374155427%_ - _%g155375155430%_)) - (_%g155374155427%_ - _%g155375155430%_)) - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) + (_%g155533155586%_ + _%g155534155589%_)) + (_%g155533155586%_ + _%g155534155589%_)) + (_%g155533155586%_ + _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)))) + (_%g155533155586%_ + _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)) + (_%g155533155586%_ _%g155534155589%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_))))) + (_%g155533155586%_ + _%g155534155589%_)))) + (_%g155533155586%_ + _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_)))) + (_%g155533155586%_ _%g155534155589%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155373155605%_ - _%L155359%_)))) - (_%__kont170555170556%_ - (lambda (_%L155310%_ _%L155311%_) - (_%lp155235%_ - _%rest155260%_ - _%lift1155238%_ - _%lift2155239%_ - (cons (cons _%L155311%_ - (cons _%L155310%_ + (_%g155532155764%_ + _%L155518%_)))) + (_%__kont170714170715%_ + (lambda (_%L155469%_ _%L155470%_) + (_%lp155394%_ + _%rest155419%_ + _%lift1155397%_ + _%lift2155398%_ + (cons (cons _%L155470%_ + (cons _%L155469%_ '())) - _%bind155240%_))))) - (let ((_%__match170578170579%_ - (lambda (_%e155268155335%_ - _%hd155269155338%_ - _%tl155270155340%_ - _%e155271155343%_ - _%hd155272155346%_ - _%tl155273155348%_ - _%e155274155351%_ - _%hd155275155354%_ - _%tl155276155356%_) - (let ((_%L155359%_ - _%hd155275155354%_) - (_%L155360%_ - _%hd155272155346%_)) + _%bind155399%_))))) + (let ((_%__match170737170738%_ + (lambda (_%e155427155494%_ + _%hd155428155497%_ + _%tl155429155499%_ + _%e155430155502%_ + _%hd155431155505%_ + _%tl155432155507%_ + _%e155433155510%_ + _%hd155434155513%_ + _%tl155435155515%_) + (let ((_%L155518%_ + _%hd155434155513%_) + (_%L155519%_ + _%hd155431155505%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155360%_)) + _%L155519%_)) (gxc#kw-lambda-expr? - _%L155359%_)) - (_%__kont170553170554%_ - _%L155359%_ - _%L155360%_) - (_%__kont170555170556%_ - _%hd155275155354%_ - _%hd155269155338%_)))))) + _%L155518%_)) + (_%__kont170712170713%_ + _%L155518%_ + _%L155519%_) + (_%__kont170714170715%_ + _%hd155434155513%_ + _%hd155428155497%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170551170552%_)) - (let ((_%e155268155335%_ + _%__stx170710170711%_)) + (let ((_%e155427155494%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170551170552%_)))) - (let ((_%tl155270155340%_ + _%__stx170710170711%_)))) + (let ((_%tl155429155499%_ (let () (declare (not safe)) - (##cdr _%e155268155335%_))) - (_%hd155269155338%_ + (##cdr _%e155427155494%_))) + (_%hd155428155497%_ (let () (declare (not safe)) - (##car _%e155268155335%_)))) + (##car _%e155427155494%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155269155338%_)) - (let ((_%e155271155343%_ + _%hd155428155497%_)) + (let ((_%e155430155502%_ (let () (declare (not safe)) (gx#stx-e - _%hd155269155338%_)))) - (let ((_%tl155273155348%_ + _%hd155428155497%_)))) + (let ((_%tl155432155507%_ (let () (declare (not safe)) - (##cdr _%e155271155343%_))) - (_%hd155272155346%_ + (##cdr _%e155430155502%_))) + (_%hd155431155505%_ (let () (declare (not safe)) - (##car _%e155271155343%_)))) + (##car _%e155430155502%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155273155348%_)) + _%tl155432155507%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155270155340%_)) - (let ((_%e155274155351%_ + (gx#stx-pair? _%tl155429155499%_)) + (let ((_%e155433155510%_ (let () (declare (not safe)) - (gx#stx-e _%tl155270155340%_)))) - (let ((_%tl155276155356%_ + (gx#stx-e _%tl155429155499%_)))) + (let ((_%tl155435155515%_ (let () (declare (not safe)) - (##cdr _%e155274155351%_))) - (_%hd155275155354%_ + (##cdr _%e155433155510%_))) + (_%hd155434155513%_ (let () (declare (not safe)) - (##car _%e155274155351%_)))) + (##car _%e155433155510%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155276155356%_)) - (_%__match170578170579%_ - _%e155268155335%_ - _%hd155269155338%_ - _%tl155270155340%_ - _%e155271155343%_ - _%hd155272155346%_ - _%tl155273155348%_ - _%e155274155351%_ - _%hd155275155354%_ - _%tl155276155356%_) + (gx#stx-null? _%tl155435155515%_)) + (_%__match170737170738%_ + _%e155427155494%_ + _%hd155428155497%_ + _%tl155429155499%_ + _%e155430155502%_ + _%hd155431155505%_ + _%tl155432155507%_ + _%e155433155510%_ + _%hd155434155513%_ + _%tl155435155515%_) (let () (declare (not safe)) - (_%g155264155289%_))))) - (let () (declare (not safe)) (_%g155264155289%_))) + (_%g155423155448%_))))) + (let () (declare (not safe)) (_%g155423155448%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155270155340%_)) - (let ((_%e155282155302%_ + (gx#stx-pair? _%tl155429155499%_)) + (let ((_%e155441155461%_ (let () (declare (not safe)) - (gx#stx-e _%tl155270155340%_)))) - (let ((_%tl155284155307%_ + (gx#stx-e _%tl155429155499%_)))) + (let ((_%tl155443155466%_ (let () (declare (not safe)) - (##cdr _%e155282155302%_))) - (_%hd155283155305%_ + (##cdr _%e155441155461%_))) + (_%hd155442155464%_ (let () (declare (not safe)) - (##car _%e155282155302%_)))) + (##car _%e155441155461%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155284155307%_)) - (_%__kont170555170556%_ - _%hd155283155305%_ - _%hd155269155338%_) + (gx#stx-null? _%tl155443155466%_)) + (_%__kont170714170715%_ + _%hd155442155464%_ + _%hd155428155497%_) (let () (declare (not safe)) - (_%g155264155289%_))))) - (let () (declare (not safe)) (_%g155264155289%_)))))) + (_%g155423155448%_))))) + (let () (declare (not safe)) (_%g155423155448%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155270155340%_)) - (let ((_%e155282155302%_ + _%tl155429155499%_)) + (let ((_%e155441155461%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155270155340%_)))) - (let ((_%tl155284155307%_ + (gx#stx-e _%tl155429155499%_)))) + (let ((_%tl155443155466%_ (let () (declare (not safe)) - (##cdr _%e155282155302%_))) - (_%hd155283155305%_ + (##cdr _%e155441155461%_))) + (_%hd155442155464%_ (let () (declare (not safe)) - (##car _%e155282155302%_)))) + (##car _%e155441155461%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155284155307%_)) - (_%__kont170555170556%_ - _%hd155283155305%_ - _%hd155269155338%_) - (let () (declare (not safe)) (_%g155264155289%_))))) - (let () (declare (not safe)) (_%g155264155289%_)))))) + (gx#stx-null? _%tl155443155466%_)) + (_%__kont170714170715%_ + _%hd155442155464%_ + _%hd155428155497%_) + (let () (declare (not safe)) (_%g155423155448%_))))) + (let () (declare (not safe)) (_%g155423155448%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155264155289%_))))))))) - (if (pair? _%rest155241155249%_) - (let ((_%hd155246155614%_ + (_%g155423155448%_))))))))) + (if (pair? _%rest155400155408%_) + (let ((_%hd155405155773%_ (let () (declare (not safe)) - (##car _%rest155241155249%_))) - (_%tl155247155616%_ + (##car _%rest155400155408%_))) + (_%tl155406155775%_ (let () (declare (not safe)) - (##cdr _%rest155241155249%_)))) - (let* ((_%hd155619%_ _%hd155246155614%_) - (_%rest155621%_ _%tl155247155616%_)) - (_%K155245155611%_ - _%rest155621%_ - _%hd155619%_))) - (_%else155243155257%_))))))) - (let* ((_%__stx170595170596%_ _%stx155061%_) - (_%g155069155095%_ + (##cdr _%rest155400155408%_)))) + (let* ((_%hd155778%_ _%hd155405155773%_) + (_%rest155780%_ _%tl155406155775%_)) + (_%K155404155770%_ + _%rest155780%_ + _%hd155778%_))) + (_%else155402155416%_))))))) + (let* ((_%__stx170754170755%_ _%stx155220%_) + (_%g155228155254%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170595170596%_))))) - (let ((_%__kont170597170598%_ - (lambda (_%L155155%_ _%L155156%_) - (let ((__tmp171156 + _%__stx170754170755%_))))) + (let ((_%__kont170756170757%_ + (lambda (_%L155314%_ _%L155315%_) + (let ((__tmp171315 (lambda () - (if (let ((__tmp171157 - (let ((__tmp171158 - (lambda (_%g155184155187%_ - _%g155185155189%_) - (cons _%g155184155187%_ - _%g155185155189%_)))) + (if (let ((__tmp171316 + (let ((__tmp171317 + (lambda (_%g155343155346%_ + _%g155344155348%_) + (cons _%g155343155346%_ + _%g155344155348%_)))) (declare (not safe)) (__foldr1 - __tmp171158 + __tmp171317 '() - _%L155156%_)))) + _%L155315%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?155065%_ - __tmp171157)) - (let ((_g171159_ - (_%lift-kw-lambda-bindings155066%_ - (let ((__tmp171161 - (lambda (_%g155191155194%_ - _%g155192155196%_) - (cons _%g155191155194%_ - _%g155192155196%_)))) + _%lift-kw-lambda?155224%_ + __tmp171316)) + (let ((_g171318_ + (_%lift-kw-lambda-bindings155225%_ + (let ((__tmp171320 + (lambda (_%g155350155353%_ + _%g155351155355%_) + (cons _%g155350155353%_ + _%g155351155355%_)))) (declare (not safe)) (__foldr1 - __tmp171161 + __tmp171320 '() - _%L155156%_))))) + _%L155315%_))))) (begin - (let ((_g171160_ + (let ((_g171319_ (let () (declare (not safe)) - (if (##values? _g171159_) - (##vector-length _g171159_) + (if (##values? _g171318_) + (##vector-length _g171318_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171160_ 3))) + (##fx= _g171319_ 3))) (error "Context expects 3 values" - _g171160_))) - (let ((_%lift1155199%_ + _g171319_))) + (let ((_%lift1155358%_ (let () (declare (not safe)) - (##vector-ref _g171159_ 0))) - (_%lift2155200%_ + (##vector-ref _g171318_ 0))) + (_%lift2155359%_ (let () (declare (not safe)) - (##vector-ref _g171159_ 1))) - (_%hd155201%_ + (##vector-ref _g171318_ 1))) + (_%hd155360%_ (let () (declare (not safe)) - (##vector-ref _g171159_ 2)))) - (let* ((_%expr155203%_ - (let ((__tmp171162 + (##vector-ref _g171318_ 2)))) + (let* ((_%expr155362%_ + (let ((__tmp171321 (cons '%#let-values - (cons _%hd155201%_ + (cons _%hd155360%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L155155%_ '()))))) + (cons _%L155314%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171162 - _%stx155061%_))) - (_%expr155205%_ - (let ((__tmp171163 + __tmp171321 + _%stx155220%_))) + (_%expr155364%_ + (let ((__tmp171322 (cons '%#let-values - (cons _%lift2155200%_ + (cons _%lift2155359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155203%_ '()))))) + (cons _%expr155362%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171163 - _%stx155061%_))) - (_%expr155207%_ - (let ((__tmp171164 + __tmp171322 + _%stx155220%_))) + (_%expr155366%_ + (let ((__tmp171323 (cons '%#let-values - (cons _%lift1155199%_ + (cons _%lift1155358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155205%_ '()))))) + (cons _%expr155364%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171164 - _%stx155061%_)))) + __tmp171323 + _%stx155220%_)))) (gxc#lift-top-lambda-let-values% - _%self155060%_ - _%expr155207%_))))) - (let ((_g171165_ - (_%compile-bindings155064%_ - (let ((__tmp171167 - (lambda (_%g155209155212%_ - _%g155210155214%_) - (cons _%g155209155212%_ - _%g155210155214%_)))) + _%self155219%_ + _%expr155366%_))))) + (let ((_g171324_ + (_%compile-bindings155223%_ + (let ((__tmp171326 + (lambda (_%g155368155371%_ + _%g155369155373%_) + (cons _%g155368155371%_ + _%g155369155373%_)))) (declare (not safe)) (__foldr1 - __tmp171167 + __tmp171326 '() - _%L155156%_))))) + _%L155315%_))))) (begin - (let ((_g171166_ + (let ((_g171325_ (let () (declare (not safe)) - (if (##values? _g171165_) - (##vector-length _g171165_) + (if (##values? _g171324_) + (##vector-length _g171324_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171166_ 3))) + (##fx= _g171325_ 3))) (error "Context expects 3 values" - _g171166_))) - (let ((_%lift1155217%_ + _g171325_))) + (let ((_%lift1155376%_ (let () (declare (not safe)) - (##vector-ref _g171165_ 0))) - (_%lift2155218%_ + (##vector-ref _g171324_ 0))) + (_%lift2155377%_ (let () (declare (not safe)) - (##vector-ref _g171165_ 1))) - (_%hd155219%_ + (##vector-ref _g171324_ 1))) + (_%hd155378%_ (let () (declare (not safe)) - (##vector-ref _g171165_ 2)))) - (let* ((_%body155221%_ + (##vector-ref _g171324_ 2)))) + (let* ((_%body155380%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155060%_ - _%L155155%_))) - (_%expr155223%_ - (let ((__tmp171168 + _%self155219%_ + _%L155314%_))) + (_%expr155382%_ + (let ((__tmp171327 (cons '%#let-values - (cons _%hd155219%_ + (cons _%hd155378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body155221%_ '()))))) + (cons _%body155380%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171168 - _%stx155061%_))) - (_%expr155225%_ - (if (null? _%lift2155218%_) - _%expr155223%_ - (let ((__tmp171169 + __tmp171327 + _%stx155220%_))) + (_%expr155384%_ + (if (null? _%lift2155377%_) + _%expr155382%_ + (let ((__tmp171328 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2155218%_ (cons _%expr155223%_ '()))))) + (cons _%lift2155377%_ (cons _%expr155382%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171169 _%stx155061%_)))) + (gxc#xform-wrap-source __tmp171328 _%stx155220%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr155227%_ - (if (null? _%lift1155217%_) - _%expr155225%_ - (let ((__tmp171170 + (_%expr155386%_ + (if (null? _%lift1155376%_) + _%expr155384%_ + (let ((__tmp171329 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1155217%_ (cons _%expr155225%_ '()))))) + (cons _%lift1155376%_ (cons _%expr155384%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171170 _%stx155061%_))))) + (gxc#xform-wrap-source __tmp171329 _%stx155220%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr155227%_))))))) - (__tmp171155 - (let ((__obj170848 + _%expr155386%_))))))) + (__tmp171314 + (let ((__obj171007 (let () (declare (not safe)) (##structure @@ -22999,278 +22999,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj170848)) - __obj170848))) + (gx#local-context:::init!__0 __obj171007)) + __obj171007))) (declare (not safe)) (__call-with-parameters - __tmp171156 + __tmp171315 gx#current-expander-context - __tmp171155)))) - (_%__kont170601170602%_ + __tmp171314)))) + (_%__kont170760170761%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self155060%_ _%stx155061%_))))) - (let ((_%__match170622170623%_ - (lambda (_%e155073155107%_ - _%hd155074155110%_ - _%tl155075155112%_ - _%e155076155115%_ - _%hd155077155118%_ - _%tl155078155120%_ - _%__splice170599170600%_ - _%target155079155123%_ - _%tl155081155125%_) - (letrec ((_%loop155082155128%_ - (lambda (_%hd155080155131%_ - _%bind155086155133%_) + (gxc#xform-let-values% _%self155219%_ _%stx155220%_))))) + (let ((_%__match170781170782%_ + (lambda (_%e155232155266%_ + _%hd155233155269%_ + _%tl155234155271%_ + _%e155235155274%_ + _%hd155236155277%_ + _%tl155237155279%_ + _%__splice170758170759%_ + _%target155238155282%_ + _%tl155240155284%_) + (letrec ((_%loop155241155287%_ + (lambda (_%hd155239155290%_ + _%bind155245155292%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155080155131%_)) - (let ((_%e155083155136%_ + (gx#stx-pair? _%hd155239155290%_)) + (let ((_%e155242155295%_ (let () (declare (not safe)) (gx#stx-e - _%hd155080155131%_)))) - (let ((_%lp-tl155085155141%_ + _%hd155239155290%_)))) + (let ((_%lp-tl155244155300%_ (let () (declare (not safe)) - (##cdr _%e155083155136%_))) - (_%lp-hd155084155139%_ + (##cdr _%e155242155295%_))) + (_%lp-hd155243155298%_ (let () (declare (not safe)) - (##car _%e155083155136%_)))) - (_%loop155082155128%_ - _%lp-tl155085155141%_ - (cons _%lp-hd155084155139%_ - _%bind155086155133%_)))) - (let ((_%bind155087155144%_ - (reverse _%bind155086155133%_))) + (##car _%e155242155295%_)))) + (_%loop155241155287%_ + _%lp-tl155244155300%_ + (cons _%lp-hd155243155298%_ + _%bind155245155292%_)))) + (let ((_%bind155246155303%_ + (reverse _%bind155245155292%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155078155120%_)) - (let ((_%e155088155147%_ + _%tl155237155279%_)) + (let ((_%e155247155306%_ (let () (declare (not safe)) (gx#stx-e - _%tl155078155120%_)))) - (let ((_%tl155090155152%_ + _%tl155237155279%_)))) + (let ((_%tl155249155311%_ (let () (declare (not safe)) - (##cdr _%e155088155147%_))) - (_%hd155089155150%_ + (##cdr _%e155247155306%_))) + (_%hd155248155309%_ (let () (declare (not safe)) - (##car _%e155088155147%_)))) + (##car _%e155247155306%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155090155152%_)) - (let ((_%L155155%_ - _%hd155089155150%_) - (_%L155156%_ - _%bind155087155144%_)) - (if (let ((__tmp171171 + _%tl155249155311%_)) + (let ((_%L155314%_ + _%hd155248155309%_) + (_%L155315%_ + _%bind155246155303%_)) + (if (let ((__tmp171330 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171172 - (lambda (_%g155176155179%_ _%g155177155181%_) - (cons _%g155176155179%_ - _%g155177155181%_)))) + (let ((__tmp171331 + (lambda (_%g155335155338%_ _%g155336155340%_) + (cons _%g155335155338%_ + _%g155336155340%_)))) (declare (not safe)) - (__foldr1 __tmp171172 '() _%L155156%_)))) + (__foldr1 __tmp171331 '() _%L155315%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171171)) - (_%__kont170597170598%_ _%L155155%_ _%L155156%_) - (_%__kont170601170602%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171330)) + (_%__kont170756170757%_ _%L155314%_ _%L155315%_) + (_%__kont170760170761%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170601170602%_)))) - (_%__kont170601170602%_))))))) - (_%loop155082155128%_ _%target155079155123%_ '()))))) + (_%__kont170760170761%_)))) + (_%__kont170760170761%_))))))) + (_%loop155241155287%_ _%target155238155282%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170595170596%_)) - (let ((_%e155073155107%_ + (gx#stx-pair? _%__stx170754170755%_)) + (let ((_%e155232155266%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170595170596%_)))) - (let ((_%tl155075155112%_ + (gx#stx-e _%__stx170754170755%_)))) + (let ((_%tl155234155271%_ (let () (declare (not safe)) - (##cdr _%e155073155107%_))) - (_%hd155074155110%_ + (##cdr _%e155232155266%_))) + (_%hd155233155269%_ (let () (declare (not safe)) - (##car _%e155073155107%_)))) + (##car _%e155232155266%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155075155112%_)) - (let ((_%e155076155115%_ + (gx#stx-pair? _%tl155234155271%_)) + (let ((_%e155235155274%_ (let () (declare (not safe)) - (gx#stx-e _%tl155075155112%_)))) - (let ((_%tl155078155120%_ + (gx#stx-e _%tl155234155271%_)))) + (let ((_%tl155237155279%_ (let () (declare (not safe)) - (##cdr _%e155076155115%_))) - (_%hd155077155118%_ + (##cdr _%e155235155274%_))) + (_%hd155236155277%_ (let () (declare (not safe)) - (##car _%e155076155115%_)))) + (##car _%e155235155274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd155077155118%_)) - (let ((_%__splice170599170600%_ + (gx#stx-pair/null? _%hd155236155277%_)) + (let ((_%__splice170758170759%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd155077155118%_ + _%hd155236155277%_ '0)))) - (let ((_%tl155081155125%_ + (let ((_%tl155240155284%_ (let () (declare (not safe)) (##vector-ref - _%__splice170599170600%_ + _%__splice170758170759%_ '1))) - (_%target155079155123%_ + (_%target155238155282%_ (let () (declare (not safe)) (##vector-ref - _%__splice170599170600%_ + _%__splice170758170759%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155081155125%_)) - (_%__match170622170623%_ - _%e155073155107%_ - _%hd155074155110%_ - _%tl155075155112%_ - _%e155076155115%_ - _%hd155077155118%_ - _%tl155078155120%_ - _%__splice170599170600%_ - _%target155079155123%_ - _%tl155081155125%_) - (_%__kont170601170602%_)))) - (_%__kont170601170602%_)))) - (_%__kont170601170602%_)))) - (_%__kont170601170602%_)))))))) + _%tl155240155284%_)) + (_%__match170781170782%_ + _%e155232155266%_ + _%hd155233155269%_ + _%tl155234155271%_ + _%e155235155274%_ + _%hd155236155277%_ + _%tl155237155279%_ + _%__splice170758170759%_ + _%target155238155282%_ + _%tl155240155284%_) + (_%__kont170760170761%_)))) + (_%__kont170760170761%_)))) + (_%__kont170760170761%_)))) + (_%__kont170760170761%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self154199%_ _%stx154200%_) - (letrec* ((_%bind-e__167801167802%_ - (lambda (_%id155044%_ _%expr155045%_ _%compile?155046%_) - (cons (cons _%id155044%_ '()) - (cons (if _%compile?155046%_ + (lambda (_%self154358%_ _%stx154359%_) + (letrec* ((_%bind-e__167960167961%_ + (lambda (_%id155203%_ _%expr155204%_ _%compile?155205%_) + (cons (cons _%id155203%_ '()) + (cons (if _%compile?155205%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154199%_ - _%expr155045%_)) - _%expr155045%_) + _%self154358%_ + _%expr155204%_)) + _%expr155204%_) '())))) - (_%bind-e__0__167803167804%_ - (lambda (_%id155051%_ _%expr155052%_) - (let ((_%compile?155054%_ '#t)) - (_%bind-e__167801167802%_ - _%id155051%_ - _%expr155052%_ - _%compile?155054%_)))) - (_%bind-e154202%_ - (lambda _g171174_ - (let ((_g171173_ + (_%bind-e__0__167962167963%_ + (lambda (_%id155210%_ _%expr155211%_) + (let ((_%compile?155213%_ '#t)) + (_%bind-e__167960167961%_ + _%id155210%_ + _%expr155211%_ + _%compile?155213%_)))) + (_%bind-e154361%_ + (lambda _g171333_ + (let ((_g171332_ (let () (declare (not safe)) - (##length _g171174_)))) - (cond ((let () (declare (not safe)) (##fx= _g171173_ 2)) - (apply _%bind-e__0__167803167804%_ _g171174_)) - ((let () (declare (not safe)) (##fx= _g171173_ 3)) - (apply _%bind-e__167801167802%_ _g171174_)) + (##length _g171333_)))) + (cond ((let () (declare (not safe)) (##fx= _g171332_ 2)) + (apply _%bind-e__0__167962167963%_ _g171333_)) + ((let () (declare (not safe)) (##fx= _g171332_ 3)) + (apply _%bind-e__167960167961%_ _g171333_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171174_)))))) - (_%compile-bindings154203%_ - (lambda (_%rest154338%_) - (let _%lp154340%_ ((_%rest154342%_ _%rest154338%_) - (_%bind154343%_ '())) - (let* ((_%rest154344154352%_ _%rest154342%_) - (_%else154346154360%_ - (lambda () (reverse _%bind154343%_))) - (_%K154348155031%_ - (lambda (_%rest154363%_ _%hd154364%_) - (let* ((_%__stx170645170646%_ _%hd154364%_) - (_%g154369154416%_ + _g171333_)))))) + (_%compile-bindings154362%_ + (lambda (_%rest154497%_) + (let _%lp154499%_ ((_%rest154501%_ _%rest154497%_) + (_%bind154502%_ '())) + (let* ((_%rest154503154511%_ _%rest154501%_) + (_%else154505154519%_ + (lambda () (reverse _%bind154502%_))) + (_%K154507155190%_ + (lambda (_%rest154522%_ _%hd154523%_) + (let* ((_%__stx170804170805%_ _%hd154523%_) + (_%g154528154575%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170645170646%_))))) - (let ((_%__kont170647170648%_ - (lambda (_%L154937%_ _%L154938%_) - (let* ((_%__stx170625170626%_ - _%L154937%_) - (_%g154953154967%_ + _%__stx170804170805%_))))) + (let ((_%__kont170806170807%_ + (lambda (_%L155096%_ _%L155097%_) + (let* ((_%__stx170784170785%_ + _%L155096%_) + (_%g155112155126%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170625170626%_))))) - (let ((_%__kont170627170628%_ - (lambda (_%L155016%_) - (_%lp154340%_ - _%rest154363%_ - (cons (_%bind-e__167801167802%_ - _%L154938%_ - _%L154937%_ + _%__stx170784170785%_))))) + (let ((_%__kont170786170787%_ + (lambda (_%L155175%_) + (_%lp154499%_ + _%rest154522%_ + (cons (_%bind-e__167960167961%_ + _%L155097%_ + _%L155096%_ '#f) - _%bind154343%_)))) - (_%__kont170629170630%_ - (lambda (_%L154980%_) - (let ((_g171175_ + _%bind154502%_)))) + (_%__kont170788170789%_ + (lambda (_%L155139%_) + (let ((_g171334_ (gxc#lift-case-lambda-clauses__% - _%stx154200%_ - _%L154938%_ - _%L154980%_ + _%stx154359%_ + _%L155097%_ + _%L155139%_ '#t))) (begin - (let ((_g171176_ + (let ((_g171335_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171175_) - (##vector-length _g171175_) + (if (##values? _g171334_) + (##vector-length _g171334_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171176_ 3))) - (error "Context expects 3 values" _g171176_))) - (let ((_%ids154990%_ + (##fx= _g171335_ 3))) + (error "Context expects 3 values" _g171335_))) + (let ((_%ids155149%_ (let () (declare (not safe)) - (##vector-ref _g171175_ 0))) - (_%impls154991%_ + (##vector-ref _g171334_ 0))) + (_%impls155150%_ (let () (declare (not safe)) - (##vector-ref _g171175_ 1))) - (_%clauses154992%_ + (##vector-ref _g171334_ 1))) + (_%clauses155151%_ (let () (declare (not safe)) - (##vector-ref _g171175_ 2)))) - (let* ((_%_154994%_ - (for-each gx#core-bind-runtime! _%ids154990%_)) - (_%xbind154996%_ - (map _%bind-e154202%_ - _%ids154990%_ - _%impls154991%_)) - (_%expr*154998%_ - (let ((__tmp171178 - (cons '%#case-lambda _%clauses154992%_)) - (__tmp171177 + (##vector-ref _g171334_ 2)))) + (let* ((_%_155153%_ + (for-each gx#core-bind-runtime! _%ids155149%_)) + (_%xbind155155%_ + (map _%bind-e154361%_ + _%ids155149%_ + _%impls155150%_)) + (_%expr*155157%_ + (let ((__tmp171337 + (cons '%#case-lambda _%clauses155151%_)) + (__tmp171336 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23278,1015 +23278,1015 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171178 - __tmp171177))) - (_%bind*155000%_ - (_%bind-e__167801167802%_ - _%L154938%_ - _%expr*154998%_ + __tmp171337 + __tmp171336))) + (_%bind*155159%_ + (_%bind-e__167960167961%_ + _%L155097%_ + _%expr*155157%_ '#f))) - (let ((__tmp171180 + (let ((__tmp171339 (let () (declare (not safe)) - (gxc#identifier-symbol _%L154938%_))) - (__tmp171179 - (map gxc#identifier-symbol _%ids154990%_))) + (gxc#identifier-symbol _%L155097%_))) + (__tmp171338 + (map gxc#identifier-symbol _%ids155149%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171180 + __tmp171339 '" => " - __tmp171179)) - (_%lp154340%_ - _%rest154363%_ - (cons _%bind*155000%_ + __tmp171338)) + (_%lp154499%_ + _%rest154522%_ + (cons _%bind*155159%_ (let () (declare (not safe)) (__foldl1 cons - _%bind154343%_ - _%xbind154996%_))))))))))) + _%bind154502%_ + _%xbind155155%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170636170637%_ - (lambda (_%e154956155008%_ - _%hd154957155011%_ - _%tl154958155013%_) - (let ((_%L155016%_ - _%tl154958155013%_)) + (let ((_%__match170795170796%_ + (lambda (_%e155115155167%_ + _%hd155116155170%_ + _%tl155117155172%_) + (let ((_%L155175%_ + _%tl155117155172%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L155016%_)) - (_%__kont170627170628%_ _%L155016%_) - (_%__kont170629170630%_ _%tl154958155013%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L155175%_)) + (_%__kont170786170787%_ _%L155175%_) + (_%__kont170788170789%_ _%tl155117155172%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170625170626%_)) - (let ((_%e154956155008%_ + _%__stx170784170785%_)) + (let ((_%e155115155167%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170625170626%_)))) - (let ((_%tl154958155013%_ - (let () (declare (not safe)) (##cdr _%e154956155008%_))) - (_%hd154957155011%_ + (gx#stx-e _%__stx170784170785%_)))) + (let ((_%tl155117155172%_ + (let () (declare (not safe)) (##cdr _%e155115155167%_))) + (_%hd155116155170%_ (let () (declare (not safe)) - (##car _%e154956155008%_)))) - (_%__match170636170637%_ - _%e154956155008%_ - _%hd154957155011%_ - _%tl154958155013%_))) - (let () (declare (not safe)) (_%g154953154967%_)))))))) + (##car _%e155115155167%_)))) + (_%__match170795170796%_ + _%e155115155167%_ + _%hd155116155170%_ + _%tl155117155172%_))) + (let () (declare (not safe)) (_%g155112155126%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170649170650%_ - (lambda (_%L154764%_ _%L154765%_) - (let* ((_%g154779154809%_ - (lambda (_%g154780154806%_) + (_%__kont170808170809%_ + (lambda (_%L154923%_ _%L154924%_) + (let* ((_%g154938154968%_ + (lambda (_%g154939154965%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154780154806%_)))) - (_%g154778154905%_ - (lambda (_%g154780154812%_) + _%g154939154965%_)))) + (_%g154937155064%_ + (lambda (_%g154939154971%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154780154812%_)) - (let ((_%e154784154814%_ + _%g154939154971%_)) + (let ((_%e154943154973%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154780154812%_)))) - (let ((_%hd154785154817%_ + (gx#stx-e _%g154939154971%_)))) + (let ((_%hd154944154976%_ (let () (declare (not safe)) - (##car _%e154784154814%_))) - (_%tl154786154819%_ + (##car _%e154943154973%_))) + (_%tl154945154978%_ (let () (declare (not safe)) - (##cdr _%e154784154814%_)))) + (##cdr _%e154943154973%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154786154819%_)) - (let ((_%e154787154822%_ + (gx#stx-pair? _%tl154945154978%_)) + (let ((_%e154946154981%_ (let () (declare (not safe)) - (gx#stx-e _%tl154786154819%_)))) - (let ((_%hd154788154825%_ + (gx#stx-e _%tl154945154978%_)))) + (let ((_%hd154947154984%_ (let () (declare (not safe)) - (##car _%e154787154822%_))) - (_%tl154789154827%_ + (##car _%e154946154981%_))) + (_%tl154948154986%_ (let () (declare (not safe)) - (##cdr _%e154787154822%_)))) + (##cdr _%e154946154981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154788154825%_)) - (let ((_%e154790154830%_ + (gx#stx-pair? _%hd154947154984%_)) + (let ((_%e154949154989%_ (let () (declare (not safe)) - (gx#stx-e _%hd154788154825%_)))) - (let ((_%hd154791154833%_ + (gx#stx-e _%hd154947154984%_)))) + (let ((_%hd154950154992%_ (let () (declare (not safe)) - (##car _%e154790154830%_))) - (_%tl154792154835%_ + (##car _%e154949154989%_))) + (_%tl154951154994%_ (let () (declare (not safe)) - (##cdr _%e154790154830%_)))) + (##cdr _%e154949154989%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154791154833%_)) - (let ((_%e154793154838%_ + (gx#stx-pair? _%hd154950154992%_)) + (let ((_%e154952154997%_ (let () (declare (not safe)) (gx#stx-e - _%hd154791154833%_)))) - (let ((_%hd154794154841%_ + _%hd154950154992%_)))) + (let ((_%hd154953155000%_ (let () (declare (not safe)) - (##car _%e154793154838%_))) - (_%tl154795154843%_ + (##car _%e154952154997%_))) + (_%tl154954155002%_ (let () (declare (not safe)) - (##cdr _%e154793154838%_)))) + (##cdr _%e154952154997%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154794154841%_)) - (let ((_%e154796154846%_ + _%hd154953155000%_)) + (let ((_%e154955155005%_ (let () (declare (not safe)) (gx#stx-e - _%hd154794154841%_)))) - (let ((_%hd154797154849%_ + _%hd154953155000%_)))) + (let ((_%hd154956155008%_ (let () (declare (not safe)) - (##car _%e154796154846%_))) - (_%tl154798154851%_ + (##car _%e154955155005%_))) + (_%tl154957155010%_ (let () (declare (not safe)) - (##cdr _%e154796154846%_)))) + (##cdr _%e154955155005%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154798154851%_)) + _%tl154957155010%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154795154843%_)) - (let ((_%e154799154854%_ + (gx#stx-pair? _%tl154954155002%_)) + (let ((_%e154958155013%_ (let () (declare (not safe)) - (gx#stx-e _%tl154795154843%_)))) - (let ((_%hd154800154857%_ + (gx#stx-e _%tl154954155002%_)))) + (let ((_%hd154959155016%_ (let () (declare (not safe)) - (##car _%e154799154854%_))) - (_%tl154801154859%_ + (##car _%e154958155013%_))) + (_%tl154960155018%_ (let () (declare (not safe)) - (##cdr _%e154799154854%_)))) + (##cdr _%e154958155013%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154801154859%_)) + (gx#stx-null? _%tl154960155018%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154792154835%_)) + (gx#stx-null? _%tl154951154994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154789154827%_)) - (let ((_%e154802154862%_ + (gx#stx-pair? _%tl154948154986%_)) + (let ((_%e154961155021%_ (let () (declare (not safe)) - (gx#stx-e _%tl154789154827%_)))) - (let ((_%hd154803154865%_ + (gx#stx-e _%tl154948154986%_)))) + (let ((_%hd154962155024%_ (let () (declare (not safe)) - (##car _%e154802154862%_))) - (_%tl154804154867%_ + (##car _%e154961155021%_))) + (_%tl154963155026%_ (let () (declare (not safe)) - (##cdr _%e154802154862%_)))) + (##cdr _%e154961155021%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154804154867%_)) - ((lambda (_%L154870%_ - _%L154871%_ - _%L154872%_) - (let* ((_%lambda-id154896%_ - (let ((__tmp171182 + _%tl154963155026%_)) + ((lambda (_%L155029%_ + _%L155030%_ + _%L155031%_) + (let* ((_%lambda-id155055%_ + (let ((__tmp171341 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L154765%_))) - (__tmp171181 + (gx#stx-e _%L154924%_))) + (__tmp171340 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171182 __tmp171181))) - (_%lambda-id154898%_ - (let ((__tmp171183 + (make-symbol__1 __tmp171341 __tmp171340))) + (_%lambda-id155057%_ + (let ((__tmp171342 (let () (declare (not safe)) - (gx#stx-source _%stx154200%_)))) + (gx#stx-source _%stx154359%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id154896%_ __tmp171183))) - (_%_154900%_ + (gx#core-quote-syntax__1 _%lambda-id155055%_ __tmp171342))) + (_%_155059%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id154898%_))) - (_%new-case-lambda-expr154902%_ + (gx#core-bind-runtime!__0 _%lambda-id155057%_))) + (_%new-case-lambda-expr155061%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154872%_ - _%lambda-id154898%_ - _%L154870%_)))) + _%L155031%_ + _%lambda-id155057%_ + _%L155029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171185 + (let ((__tmp171344 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154765%_))) - (__tmp171184 + _%L154924%_))) + (__tmp171343 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id154898%_)))) + _%lambda-id155057%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171185 + __tmp171344 '" => " - __tmp171184)) - (_%lp154340%_ - (cons (_%bind-e__167801167802%_ - _%L154765%_ - _%new-case-lambda-expr154902%_ + __tmp171343)) + (_%lp154499%_ + (cons (_%bind-e__167960167961%_ + _%L154924%_ + _%new-case-lambda-expr155061%_ '#f) - _%rest154363%_) - (cons (_%bind-e__0__167803167804%_ - _%lambda-id154898%_ - _%L154871%_) - _%bind154343%_)))) - _%hd154803154865%_ - _%hd154800154857%_ - _%hd154797154849%_) - (_%g154779154809%_ - _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)) - (_%g154779154809%_ _%g154780154812%_)) - (_%g154779154809%_ _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)) - (_%g154779154809%_ _%g154780154812%_)))) + _%rest154522%_) + (cons (_%bind-e__0__167962167963%_ + _%lambda-id155057%_ + _%L155030%_) + _%bind154502%_)))) + _%hd154962155024%_ + _%hd154959155016%_ + _%hd154956155008%_) + (_%g154938154968%_ + _%g154939154971%_)))) + (_%g154938154968%_ _%g154939154971%_)) + (_%g154938154968%_ _%g154939154971%_)) + (_%g154938154968%_ _%g154939154971%_)))) + (_%g154938154968%_ _%g154939154971%_)) + (_%g154938154968%_ _%g154939154971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154779154809%_ - _%g154780154812%_)))) - (_%g154779154809%_ - _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_))))) + (_%g154938154968%_ + _%g154939154971%_)))) + (_%g154938154968%_ + _%g154939154971%_)))) + (_%g154938154968%_ _%g154939154971%_)))) + (_%g154938154968%_ _%g154939154971%_)))) + (_%g154938154968%_ _%g154939154971%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154778154905%_ - _%L154764%_)))) - (_%__kont170651170652%_ - (lambda (_%L154486%_ _%L154487%_) - (let* ((_%g154501154554%_ - (lambda (_%g154502154551%_) + (_%g154937155064%_ + _%L154923%_)))) + (_%__kont170810170811%_ + (lambda (_%L154645%_ _%L154646%_) + (let* ((_%g154660154713%_ + (lambda (_%g154661154710%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154502154551%_)))) - (_%g154500154732%_ - (lambda (_%g154502154557%_) + _%g154661154710%_)))) + (_%g154659154891%_ + (lambda (_%g154661154716%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154502154557%_)) - (let ((_%e154508154559%_ + _%g154661154716%_)) + (let ((_%e154667154718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154502154557%_)))) - (let ((_%hd154509154562%_ + (gx#stx-e _%g154661154716%_)))) + (let ((_%hd154668154721%_ (let () (declare (not safe)) - (##car _%e154508154559%_))) - (_%tl154510154564%_ + (##car _%e154667154718%_))) + (_%tl154669154723%_ (let () (declare (not safe)) - (##cdr _%e154508154559%_)))) + (##cdr _%e154667154718%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154510154564%_)) - (let ((_%e154511154567%_ + (gx#stx-pair? _%tl154669154723%_)) + (let ((_%e154670154726%_ (let () (declare (not safe)) - (gx#stx-e _%tl154510154564%_)))) - (let ((_%hd154512154570%_ + (gx#stx-e _%tl154669154723%_)))) + (let ((_%hd154671154729%_ (let () (declare (not safe)) - (##car _%e154511154567%_))) - (_%tl154513154572%_ + (##car _%e154670154726%_))) + (_%tl154672154731%_ (let () (declare (not safe)) - (##cdr _%e154511154567%_)))) + (##cdr _%e154670154726%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154512154570%_)) - (let ((_%e154514154575%_ + (gx#stx-pair? _%hd154671154729%_)) + (let ((_%e154673154734%_ (let () (declare (not safe)) - (gx#stx-e _%hd154512154570%_)))) - (let ((_%hd154515154578%_ + (gx#stx-e _%hd154671154729%_)))) + (let ((_%hd154674154737%_ (let () (declare (not safe)) - (##car _%e154514154575%_))) - (_%tl154516154580%_ + (##car _%e154673154734%_))) + (_%tl154675154739%_ (let () (declare (not safe)) - (##cdr _%e154514154575%_)))) + (##cdr _%e154673154734%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154515154578%_)) - (let ((_%e154517154583%_ + (gx#stx-pair? _%hd154674154737%_)) + (let ((_%e154676154742%_ (let () (declare (not safe)) (gx#stx-e - _%hd154515154578%_)))) - (let ((_%hd154518154586%_ + _%hd154674154737%_)))) + (let ((_%hd154677154745%_ (let () (declare (not safe)) - (##car _%e154517154583%_))) - (_%tl154519154588%_ + (##car _%e154676154742%_))) + (_%tl154678154747%_ (let () (declare (not safe)) - (##cdr _%e154517154583%_)))) + (##cdr _%e154676154742%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154518154586%_)) - (let ((_%e154520154591%_ + _%hd154677154745%_)) + (let ((_%e154679154750%_ (let () (declare (not safe)) (gx#stx-e - _%hd154518154586%_)))) - (let ((_%hd154521154594%_ + _%hd154677154745%_)))) + (let ((_%hd154680154753%_ (let () (declare (not safe)) - (##car _%e154520154591%_))) - (_%tl154522154596%_ + (##car _%e154679154750%_))) + (_%tl154681154755%_ (let () (declare (not safe)) - (##cdr _%e154520154591%_)))) + (##cdr _%e154679154750%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154522154596%_)) + _%tl154681154755%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154519154588%_)) - (let ((_%e154523154599%_ + (gx#stx-pair? _%tl154678154747%_)) + (let ((_%e154682154758%_ (let () (declare (not safe)) - (gx#stx-e _%tl154519154588%_)))) - (let ((_%hd154524154602%_ + (gx#stx-e _%tl154678154747%_)))) + (let ((_%hd154683154761%_ (let () (declare (not safe)) - (##car _%e154523154599%_))) - (_%tl154525154604%_ + (##car _%e154682154758%_))) + (_%tl154684154763%_ (let () (declare (not safe)) - (##cdr _%e154523154599%_)))) + (##cdr _%e154682154758%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154524154602%_)) - (let ((_%e154526154607%_ + (gx#stx-pair? _%hd154683154761%_)) + (let ((_%e154685154766%_ (let () (declare (not safe)) - (gx#stx-e _%hd154524154602%_)))) - (let ((_%hd154527154610%_ + (gx#stx-e _%hd154683154761%_)))) + (let ((_%hd154686154769%_ (let () (declare (not safe)) - (##car _%e154526154607%_))) - (_%tl154528154612%_ + (##car _%e154685154766%_))) + (_%tl154687154771%_ (let () (declare (not safe)) - (##cdr _%e154526154607%_)))) + (##cdr _%e154685154766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154528154612%_)) - (let ((_%e154529154615%_ + (gx#stx-pair? _%tl154687154771%_)) + (let ((_%e154688154774%_ (let () (declare (not safe)) - (gx#stx-e _%tl154528154612%_)))) - (let ((_%hd154530154618%_ + (gx#stx-e _%tl154687154771%_)))) + (let ((_%hd154689154777%_ (let () (declare (not safe)) - (##car _%e154529154615%_))) - (_%tl154531154620%_ + (##car _%e154688154774%_))) + (_%tl154690154779%_ (let () (declare (not safe)) - (##cdr _%e154529154615%_)))) + (##cdr _%e154688154774%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154530154618%_)) - (let ((_%e154532154623%_ + _%hd154689154777%_)) + (let ((_%e154691154782%_ (let () (declare (not safe)) (gx#stx-e - _%hd154530154618%_)))) - (let ((_%hd154533154626%_ + _%hd154689154777%_)))) + (let ((_%hd154692154785%_ (let () (declare (not safe)) - (##car _%e154532154623%_))) - (_%tl154534154628%_ + (##car _%e154691154782%_))) + (_%tl154693154787%_ (let () (declare (not safe)) - (##cdr _%e154532154623%_)))) + (##cdr _%e154691154782%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154533154626%_)) - (let ((_%e154535154631%_ + _%hd154692154785%_)) + (let ((_%e154694154790%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154533154626%_)))) - (let ((_%hd154536154634%_ - (let () (declare (not safe)) (##car _%e154535154631%_))) - (_%tl154537154636%_ + (gx#stx-e _%hd154692154785%_)))) + (let ((_%hd154695154793%_ + (let () (declare (not safe)) (##car _%e154694154790%_))) + (_%tl154696154795%_ (let () (declare (not safe)) - (##cdr _%e154535154631%_)))) + (##cdr _%e154694154790%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154536154634%_)) - (let ((_%e154538154639%_ + (gx#stx-pair? _%hd154695154793%_)) + (let ((_%e154697154798%_ (let () (declare (not safe)) - (gx#stx-e _%hd154536154634%_)))) - (let ((_%hd154539154642%_ + (gx#stx-e _%hd154695154793%_)))) + (let ((_%hd154698154801%_ (let () (declare (not safe)) - (##car _%e154538154639%_))) - (_%tl154540154644%_ + (##car _%e154697154798%_))) + (_%tl154699154803%_ (let () (declare (not safe)) - (##cdr _%e154538154639%_)))) + (##cdr _%e154697154798%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154540154644%_)) + (gx#stx-null? _%tl154699154803%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154537154636%_)) - (let ((_%e154541154647%_ + (gx#stx-pair? _%tl154696154795%_)) + (let ((_%e154700154806%_ (let () (declare (not safe)) - (gx#stx-e _%tl154537154636%_)))) - (let ((_%hd154542154650%_ + (gx#stx-e _%tl154696154795%_)))) + (let ((_%hd154701154809%_ (let () (declare (not safe)) - (##car _%e154541154647%_))) - (_%tl154543154652%_ + (##car _%e154700154806%_))) + (_%tl154702154811%_ (let () (declare (not safe)) - (##cdr _%e154541154647%_)))) + (##cdr _%e154700154806%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154543154652%_)) + (gx#stx-null? _%tl154702154811%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154534154628%_)) + _%tl154693154787%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154531154620%_)) - (let ((_%e154544154655%_ + _%tl154690154779%_)) + (let ((_%e154703154814%_ (let () (declare (not safe)) (gx#stx-e - _%tl154531154620%_)))) - (let ((_%hd154545154658%_ + _%tl154690154779%_)))) + (let ((_%hd154704154817%_ (let () (declare (not safe)) - (##car _%e154544154655%_))) - (_%tl154546154660%_ + (##car _%e154703154814%_))) + (_%tl154705154819%_ (let () (declare (not safe)) - (##cdr _%e154544154655%_)))) + (##cdr _%e154703154814%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154546154660%_)) + _%tl154705154819%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl154525154604%_)) + (gx#stx-null? _%tl154684154763%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154516154580%_)) + (gx#stx-null? _%tl154675154739%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154513154572%_)) - (let ((_%e154547154663%_ + (gx#stx-pair? _%tl154672154731%_)) + (let ((_%e154706154822%_ (let () (declare (not safe)) - (gx#stx-e _%tl154513154572%_)))) - (let ((_%hd154548154666%_ + (gx#stx-e _%tl154672154731%_)))) + (let ((_%hd154707154825%_ (let () (declare (not safe)) - (##car _%e154547154663%_))) - (_%tl154549154668%_ + (##car _%e154706154822%_))) + (_%tl154708154827%_ (let () (declare (not safe)) - (##cdr _%e154547154663%_)))) + (##cdr _%e154706154822%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154549154668%_)) - ((lambda (_%L154671%_ - _%L154672%_ - _%L154673%_ - _%L154674%_ - _%L154675%_) - (let* ((_%get-kws-id154715%_ - (let ((__tmp171187 + (gx#stx-null? _%tl154708154827%_)) + ((lambda (_%L154830%_ + _%L154831%_ + _%L154832%_ + _%L154833%_ + _%L154834%_) + (let* ((_%get-kws-id154874%_ + (let ((__tmp171346 (let () (declare (not safe)) (gx#stx-e - _%L154487%_))) - (__tmp171186 + _%L154646%_))) + (__tmp171345 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171187 - __tmp171186))) - (_%get-kws-id154717%_ - (let ((__tmp171188 + __tmp171346 + __tmp171345))) + (_%get-kws-id154876%_ + (let ((__tmp171347 (let () (declare (not safe)) (gx#stx-source - _%stx154200%_)))) + _%stx154359%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id154715%_ - __tmp171188))) - (_%main-id154719%_ - (let ((__tmp171190 + _%get-kws-id154874%_ + __tmp171347))) + (_%main-id154878%_ + (let ((__tmp171349 (let () (declare (not safe)) (gx#stx-e - _%L154487%_))) - (__tmp171189 + _%L154646%_))) + (__tmp171348 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171190 - __tmp171189))) - (_%main-id154721%_ - (let ((__tmp171191 + __tmp171349 + __tmp171348))) + (_%main-id154880%_ + (let ((__tmp171350 (let () (declare (not safe)) (gx#stx-source - _%stx154200%_)))) + _%stx154359%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id154719%_ - __tmp171191))) - (_%_154723%_ + _%main-id154878%_ + __tmp171350))) + (_%_154882%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id154717%_))) - (_%_154725%_ + _%get-kws-id154876%_))) + (_%_154884%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id154721%_))) - (_%new-kw-dispatch154727%_ + _%main-id154880%_))) + (_%new-kw-dispatch154886%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154675%_ - _%get-kws-id154717%_ - _%L154671%_))) - (_%new-get-kws154729%_ + _%L154834%_ + _%get-kws-id154876%_ + _%L154830%_))) + (_%new-get-kws154888%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154674%_ - _%main-id154721%_ - _%L154672%_)))) - (let ((__tmp171194 + _%L154833%_ + _%main-id154880%_ + _%L154831%_)))) + (let ((__tmp171353 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154487%_))) - (__tmp171193 + _%L154646%_))) + (__tmp171352 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id154717%_))) - (__tmp171192 + _%get-kws-id154876%_))) + (__tmp171351 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id154721%_)))) + _%main-id154880%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171194 + __tmp171353 '" => " - __tmp171193 + __tmp171352 '" => " - __tmp171192)) - (_%lp154340%_ - (cons (_%bind-e__167801167802%_ - _%main-id154721%_ - _%L154673%_ + __tmp171351)) + (_%lp154499%_ + (cons (_%bind-e__167960167961%_ + _%main-id154880%_ + _%L154832%_ '#f) - (cons (_%bind-e__167801167802%_ - _%get-kws-id154717%_ - _%new-get-kws154729%_ + (cons (_%bind-e__167960167961%_ + _%get-kws-id154876%_ + _%new-get-kws154888%_ '#f) - (cons (_%bind-e__167801167802%_ - _%L154487%_ - _%new-kw-dispatch154727%_ + (cons (_%bind-e__167960167961%_ + _%L154646%_ + _%new-kw-dispatch154886%_ '#f) - _%rest154363%_))) - _%bind154343%_))) - _%hd154548154666%_ - _%hd154545154658%_ - _%hd154542154650%_ - _%hd154539154642%_ - _%hd154521154594%_) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)))) + _%rest154522%_))) + _%bind154502%_))) + _%hd154707154825%_ + _%hd154704154817%_ + _%hd154701154809%_ + _%hd154698154801%_ + _%hd154680154753%_) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)) + (_%g154660154713%_ _%g154661154716%_)) + (_%g154660154713%_ _%g154661154716%_)) + (_%g154660154713%_ _%g154661154716%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154501154554%_ - _%g154502154557%_)) - (_%g154501154554%_ - _%g154502154557%_)) - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) + (_%g154660154713%_ + _%g154661154716%_)) + (_%g154660154713%_ + _%g154661154716%_)) + (_%g154660154713%_ + _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)))) + (_%g154660154713%_ + _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)) + (_%g154660154713%_ _%g154661154716%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_))))) + (_%g154660154713%_ + _%g154661154716%_)))) + (_%g154660154713%_ + _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_)))) + (_%g154660154713%_ _%g154661154716%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154500154732%_ - _%L154486%_)))) - (_%__kont170653170654%_ - (lambda (_%L154437%_ _%L154438%_) - (_%lp154340%_ - _%rest154363%_ - (cons (cons _%L154438%_ + (_%g154659154891%_ + _%L154645%_)))) + (_%__kont170812170813%_ + (lambda (_%L154596%_ _%L154597%_) + (_%lp154499%_ + _%rest154522%_ + (cons (cons _%L154597%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self154199%_ _%L154437%_)) + (gxc#compile-e__1 _%self154358%_ _%L154596%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154343%_))))) - (let* ((_%__match170720170721%_ - (lambda (_%e154395154462%_ - _%hd154396154465%_ - _%tl154397154467%_ - _%e154398154470%_ - _%hd154399154473%_ - _%tl154400154475%_ - _%e154401154478%_ - _%hd154402154481%_ - _%tl154403154483%_) - (let ((_%L154486%_ - _%hd154402154481%_) - (_%L154487%_ - _%hd154399154473%_)) + _%bind154502%_))))) + (let* ((_%__match170879170880%_ + (lambda (_%e154554154621%_ + _%hd154555154624%_ + _%tl154556154626%_ + _%e154557154629%_ + _%hd154558154632%_ + _%tl154559154634%_ + _%e154560154637%_ + _%hd154561154640%_ + _%tl154562154642%_) + (let ((_%L154645%_ + _%hd154561154640%_) + (_%L154646%_ + _%hd154558154632%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154487%_)) + _%L154646%_)) (gxc#kw-lambda-expr? - _%L154486%_)) - (_%__kont170651170652%_ - _%L154486%_ - _%L154487%_) - (_%__kont170653170654%_ - _%hd154402154481%_ - _%hd154396154465%_))))) - (_%__match170698170699%_ - (lambda (_%e154384154740%_ - _%hd154385154743%_ - _%tl154386154745%_ - _%e154387154748%_ - _%hd154388154751%_ - _%tl154389154753%_ - _%e154390154756%_ - _%hd154391154759%_ - _%tl154392154761%_) - (let ((_%L154764%_ - _%hd154391154759%_) - (_%L154765%_ - _%hd154388154751%_)) + _%L154645%_)) + (_%__kont170810170811%_ + _%L154645%_ + _%L154646%_) + (_%__kont170812170813%_ + _%hd154561154640%_ + _%hd154555154624%_))))) + (_%__match170857170858%_ + (lambda (_%e154543154899%_ + _%hd154544154902%_ + _%tl154545154904%_ + _%e154546154907%_ + _%hd154547154910%_ + _%tl154548154912%_ + _%e154549154915%_ + _%hd154550154918%_ + _%tl154551154920%_) + (let ((_%L154923%_ + _%hd154550154918%_) + (_%L154924%_ + _%hd154547154910%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154765%_)) + _%L154924%_)) (gxc#opt-lambda-expr? - _%L154764%_)) - (_%__kont170649170650%_ - _%L154764%_ - _%L154765%_) - (_%__match170720170721%_ - _%e154384154740%_ - _%hd154385154743%_ - _%tl154386154745%_ - _%e154387154748%_ - _%hd154388154751%_ - _%tl154389154753%_ - _%e154390154756%_ - _%hd154391154759%_ - _%tl154392154761%_))))) - (_%__match170676170677%_ - (lambda (_%e154373154913%_ - _%hd154374154916%_ - _%tl154375154918%_ - _%e154376154921%_ - _%hd154377154924%_ - _%tl154378154926%_ - _%e154379154929%_ - _%hd154380154932%_ - _%tl154381154934%_) - (let ((_%L154937%_ - _%hd154380154932%_) - (_%L154938%_ - _%hd154377154924%_)) + _%L154923%_)) + (_%__kont170808170809%_ + _%L154923%_ + _%L154924%_) + (_%__match170879170880%_ + _%e154543154899%_ + _%hd154544154902%_ + _%tl154545154904%_ + _%e154546154907%_ + _%hd154547154910%_ + _%tl154548154912%_ + _%e154549154915%_ + _%hd154550154918%_ + _%tl154551154920%_))))) + (_%__match170835170836%_ + (lambda (_%e154532155072%_ + _%hd154533155075%_ + _%tl154534155077%_ + _%e154535155080%_ + _%hd154536155083%_ + _%tl154537155085%_ + _%e154538155088%_ + _%hd154539155091%_ + _%tl154540155093%_) + (let ((_%L155096%_ + _%hd154539155091%_) + (_%L155097%_ + _%hd154536155083%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154938%_)) + _%L155097%_)) (gxc#case-lambda-expr? - _%L154937%_)) - (_%__kont170647170648%_ - _%L154937%_ - _%L154938%_) - (_%__match170698170699%_ - _%e154373154913%_ - _%hd154374154916%_ - _%tl154375154918%_ - _%e154376154921%_ - _%hd154377154924%_ - _%tl154378154926%_ - _%e154379154929%_ - _%hd154380154932%_ - _%tl154381154934%_)))))) + _%L155096%_)) + (_%__kont170806170807%_ + _%L155096%_ + _%L155097%_) + (_%__match170857170858%_ + _%e154532155072%_ + _%hd154533155075%_ + _%tl154534155077%_ + _%e154535155080%_ + _%hd154536155083%_ + _%tl154537155085%_ + _%e154538155088%_ + _%hd154539155091%_ + _%tl154540155093%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170645170646%_)) - (let ((_%e154373154913%_ + _%__stx170804170805%_)) + (let ((_%e154532155072%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170645170646%_)))) - (let ((_%tl154375154918%_ + _%__stx170804170805%_)))) + (let ((_%tl154534155077%_ (let () (declare (not safe)) - (##cdr _%e154373154913%_))) - (_%hd154374154916%_ + (##cdr _%e154532155072%_))) + (_%hd154533155075%_ (let () (declare (not safe)) - (##car _%e154373154913%_)))) + (##car _%e154532155072%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154374154916%_)) - (let ((_%e154376154921%_ + _%hd154533155075%_)) + (let ((_%e154535155080%_ (let () (declare (not safe)) (gx#stx-e - _%hd154374154916%_)))) - (let ((_%tl154378154926%_ + _%hd154533155075%_)))) + (let ((_%tl154537155085%_ (let () (declare (not safe)) - (##cdr _%e154376154921%_))) - (_%hd154377154924%_ + (##cdr _%e154535155080%_))) + (_%hd154536155083%_ (let () (declare (not safe)) - (##car _%e154376154921%_)))) + (##car _%e154535155080%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154378154926%_)) + _%tl154537155085%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154375154918%_)) - (let ((_%e154379154929%_ + (gx#stx-pair? _%tl154534155077%_)) + (let ((_%e154538155088%_ (let () (declare (not safe)) - (gx#stx-e _%tl154375154918%_)))) - (let ((_%tl154381154934%_ + (gx#stx-e _%tl154534155077%_)))) + (let ((_%tl154540155093%_ (let () (declare (not safe)) - (##cdr _%e154379154929%_))) - (_%hd154380154932%_ + (##cdr _%e154538155088%_))) + (_%hd154539155091%_ (let () (declare (not safe)) - (##car _%e154379154929%_)))) + (##car _%e154538155088%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154381154934%_)) - (_%__match170676170677%_ - _%e154373154913%_ - _%hd154374154916%_ - _%tl154375154918%_ - _%e154376154921%_ - _%hd154377154924%_ - _%tl154378154926%_ - _%e154379154929%_ - _%hd154380154932%_ - _%tl154381154934%_) + (gx#stx-null? _%tl154540155093%_)) + (_%__match170835170836%_ + _%e154532155072%_ + _%hd154533155075%_ + _%tl154534155077%_ + _%e154535155080%_ + _%hd154536155083%_ + _%tl154537155085%_ + _%e154538155088%_ + _%hd154539155091%_ + _%tl154540155093%_) (let () (declare (not safe)) - (_%g154369154416%_))))) - (let () (declare (not safe)) (_%g154369154416%_))) + (_%g154528154575%_))))) + (let () (declare (not safe)) (_%g154528154575%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154375154918%_)) - (let ((_%e154409154429%_ + (gx#stx-pair? _%tl154534155077%_)) + (let ((_%e154568154588%_ (let () (declare (not safe)) - (gx#stx-e _%tl154375154918%_)))) - (let ((_%tl154411154434%_ + (gx#stx-e _%tl154534155077%_)))) + (let ((_%tl154570154593%_ (let () (declare (not safe)) - (##cdr _%e154409154429%_))) - (_%hd154410154432%_ + (##cdr _%e154568154588%_))) + (_%hd154569154591%_ (let () (declare (not safe)) - (##car _%e154409154429%_)))) + (##car _%e154568154588%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154411154434%_)) - (_%__kont170653170654%_ - _%hd154410154432%_ - _%hd154374154916%_) + (gx#stx-null? _%tl154570154593%_)) + (_%__kont170812170813%_ + _%hd154569154591%_ + _%hd154533155075%_) (let () (declare (not safe)) - (_%g154369154416%_))))) - (let () (declare (not safe)) (_%g154369154416%_)))))) + (_%g154528154575%_))))) + (let () (declare (not safe)) (_%g154528154575%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154375154918%_)) - (let ((_%e154409154429%_ + _%tl154534155077%_)) + (let ((_%e154568154588%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154375154918%_)))) - (let ((_%tl154411154434%_ + (gx#stx-e _%tl154534155077%_)))) + (let ((_%tl154570154593%_ (let () (declare (not safe)) - (##cdr _%e154409154429%_))) - (_%hd154410154432%_ + (##cdr _%e154568154588%_))) + (_%hd154569154591%_ (let () (declare (not safe)) - (##car _%e154409154429%_)))) + (##car _%e154568154588%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154411154434%_)) - (_%__kont170653170654%_ - _%hd154410154432%_ - _%hd154374154916%_) - (let () (declare (not safe)) (_%g154369154416%_))))) - (let () (declare (not safe)) (_%g154369154416%_)))))) + (gx#stx-null? _%tl154570154593%_)) + (_%__kont170812170813%_ + _%hd154569154591%_ + _%hd154533155075%_) + (let () (declare (not safe)) (_%g154528154575%_))))) + (let () (declare (not safe)) (_%g154528154575%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154369154416%_))))))))) - (if (pair? _%rest154344154352%_) - (let ((_%hd154349155034%_ + (_%g154528154575%_))))))))) + (if (pair? _%rest154503154511%_) + (let ((_%hd154508155193%_ (let () (declare (not safe)) - (##car _%rest154344154352%_))) - (_%tl154350155036%_ + (##car _%rest154503154511%_))) + (_%tl154509155195%_ (let () (declare (not safe)) - (##cdr _%rest154344154352%_)))) - (let* ((_%hd155039%_ _%hd154349155034%_) - (_%rest155041%_ _%tl154350155036%_)) - (_%K154348155031%_ - _%rest155041%_ - _%hd155039%_))) - (_%else154346154360%_))))))) - (let* ((_%__stx170737170738%_ _%stx154200%_) - (_%g154206154233%_ + (##cdr _%rest154503154511%_)))) + (let* ((_%hd155198%_ _%hd154508155193%_) + (_%rest155200%_ _%tl154509155195%_)) + (_%K154507155190%_ + _%rest155200%_ + _%hd155198%_))) + (_%else154505154519%_))))))) + (let* ((_%__stx170896170897%_ _%stx154359%_) + (_%g154365154392%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170737170738%_))))) - (let ((_%__kont170739170740%_ - (lambda (_%L154293%_ _%L154294%_ _%L154295%_) - (let ((__tmp171196 + _%__stx170896170897%_))))) + (let ((_%__kont170898170899%_ + (lambda (_%L154452%_ _%L154453%_ _%L154454%_) + (let ((__tmp171355 (lambda () - (let ((_%hd154332%_ - (_%compile-bindings154203%_ - (let ((__tmp171197 - (lambda (_%g154324154327%_ - _%g154325154329%_) - (cons _%g154324154327%_ - _%g154325154329%_)))) + (let ((_%hd154491%_ + (_%compile-bindings154362%_ + (let ((__tmp171356 + (lambda (_%g154483154486%_ + _%g154484154488%_) + (cons _%g154483154486%_ + _%g154484154488%_)))) (declare (not safe)) (__foldr1 - __tmp171197 + __tmp171356 '() - _%L154294%_)))) - (_%body154333%_ + _%L154453%_)))) + (_%body154492%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154199%_ - _%L154293%_)))) - (let ((__tmp171198 - (cons _%L154295%_ - (cons _%hd154332%_ - (cons _%body154333%_ + _%self154358%_ + _%L154452%_)))) + (let ((__tmp171357 + (cons _%L154454%_ + (cons _%hd154491%_ + (cons _%body154492%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171198 - _%stx154200%_))))) - (__tmp171195 - (let ((__obj170849 + __tmp171357 + _%stx154359%_))))) + (__tmp171354 + (let ((__obj171008 (let () (declare (not safe)) (##structure @@ -24298,249 +24298,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj170849)) - __obj170849))) + (gx#local-context:::init!__0 __obj171008)) + __obj171008))) (declare (not safe)) (__call-with-parameters - __tmp171196 + __tmp171355 gx#current-expander-context - __tmp171195)))) - (_%__kont170743170744%_ + __tmp171354)))) + (_%__kont170902170903%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self154199%_ _%stx154200%_))))) - (let ((_%__match170764170765%_ - (lambda (_%e154211154245%_ - _%hd154212154248%_ - _%tl154213154250%_ - _%e154214154253%_ - _%hd154215154256%_ - _%tl154216154258%_ - _%__splice170741170742%_ - _%target154217154261%_ - _%tl154219154263%_) - (letrec ((_%loop154220154266%_ - (lambda (_%hd154218154269%_ - _%bind154224154271%_) + (gxc#xform-let-values% _%self154358%_ _%stx154359%_))))) + (let ((_%__match170923170924%_ + (lambda (_%e154370154404%_ + _%hd154371154407%_ + _%tl154372154409%_ + _%e154373154412%_ + _%hd154374154415%_ + _%tl154375154417%_ + _%__splice170900170901%_ + _%target154376154420%_ + _%tl154378154422%_) + (letrec ((_%loop154379154425%_ + (lambda (_%hd154377154428%_ + _%bind154383154430%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154218154269%_)) - (let ((_%e154221154274%_ + (gx#stx-pair? _%hd154377154428%_)) + (let ((_%e154380154433%_ (let () (declare (not safe)) (gx#stx-e - _%hd154218154269%_)))) - (let ((_%lp-tl154223154279%_ + _%hd154377154428%_)))) + (let ((_%lp-tl154382154438%_ (let () (declare (not safe)) - (##cdr _%e154221154274%_))) - (_%lp-hd154222154277%_ + (##cdr _%e154380154433%_))) + (_%lp-hd154381154436%_ (let () (declare (not safe)) - (##car _%e154221154274%_)))) - (_%loop154220154266%_ - _%lp-tl154223154279%_ - (cons _%lp-hd154222154277%_ - _%bind154224154271%_)))) - (let ((_%bind154225154282%_ - (reverse _%bind154224154271%_))) + (##car _%e154380154433%_)))) + (_%loop154379154425%_ + _%lp-tl154382154438%_ + (cons _%lp-hd154381154436%_ + _%bind154383154430%_)))) + (let ((_%bind154384154441%_ + (reverse _%bind154383154430%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154216154258%_)) - (let ((_%e154226154285%_ + _%tl154375154417%_)) + (let ((_%e154385154444%_ (let () (declare (not safe)) (gx#stx-e - _%tl154216154258%_)))) - (let ((_%tl154228154290%_ + _%tl154375154417%_)))) + (let ((_%tl154387154449%_ (let () (declare (not safe)) - (##cdr _%e154226154285%_))) - (_%hd154227154288%_ + (##cdr _%e154385154444%_))) + (_%hd154386154447%_ (let () (declare (not safe)) - (##car _%e154226154285%_)))) + (##car _%e154385154444%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154228154290%_)) - (let ((_%L154293%_ - _%hd154227154288%_) - (_%L154294%_ - _%bind154225154282%_) - (_%L154295%_ - _%hd154212154248%_)) - (if (let ((__tmp171199 + _%tl154387154449%_)) + (let ((_%L154452%_ + _%hd154386154447%_) + (_%L154453%_ + _%bind154384154441%_) + (_%L154454%_ + _%hd154371154407%_)) + (if (let ((__tmp171358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171200 - (lambda (_%g154316154319%_ _%g154317154321%_) - (cons _%g154316154319%_ - _%g154317154321%_)))) + (let ((__tmp171359 + (lambda (_%g154475154478%_ _%g154476154480%_) + (cons _%g154475154478%_ + _%g154476154480%_)))) (declare (not safe)) - (__foldr1 __tmp171200 '() _%L154294%_)))) + (__foldr1 __tmp171359 '() _%L154453%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171199)) - (_%__kont170739170740%_ _%L154293%_ _%L154294%_ _%L154295%_) - (_%__kont170743170744%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171358)) + (_%__kont170898170899%_ _%L154452%_ _%L154453%_ _%L154454%_) + (_%__kont170902170903%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170743170744%_)))) - (_%__kont170743170744%_))))))) - (_%loop154220154266%_ _%target154217154261%_ '()))))) + (_%__kont170902170903%_)))) + (_%__kont170902170903%_))))))) + (_%loop154379154425%_ _%target154376154420%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170737170738%_)) - (let ((_%e154211154245%_ + (gx#stx-pair? _%__stx170896170897%_)) + (let ((_%e154370154404%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170737170738%_)))) - (let ((_%tl154213154250%_ + (gx#stx-e _%__stx170896170897%_)))) + (let ((_%tl154372154409%_ (let () (declare (not safe)) - (##cdr _%e154211154245%_))) - (_%hd154212154248%_ + (##cdr _%e154370154404%_))) + (_%hd154371154407%_ (let () (declare (not safe)) - (##car _%e154211154245%_)))) + (##car _%e154370154404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154213154250%_)) - (let ((_%e154214154253%_ + (gx#stx-pair? _%tl154372154409%_)) + (let ((_%e154373154412%_ (let () (declare (not safe)) - (gx#stx-e _%tl154213154250%_)))) - (let ((_%tl154216154258%_ + (gx#stx-e _%tl154372154409%_)))) + (let ((_%tl154375154417%_ (let () (declare (not safe)) - (##cdr _%e154214154253%_))) - (_%hd154215154256%_ + (##cdr _%e154373154412%_))) + (_%hd154374154415%_ (let () (declare (not safe)) - (##car _%e154214154253%_)))) + (##car _%e154373154412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd154215154256%_)) - (let ((_%__splice170741170742%_ + (gx#stx-pair/null? _%hd154374154415%_)) + (let ((_%__splice170900170901%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd154215154256%_ + _%hd154374154415%_ '0)))) - (let ((_%tl154219154263%_ + (let ((_%tl154378154422%_ (let () (declare (not safe)) (##vector-ref - _%__splice170741170742%_ + _%__splice170900170901%_ '1))) - (_%target154217154261%_ + (_%target154376154420%_ (let () (declare (not safe)) (##vector-ref - _%__splice170741170742%_ + _%__splice170900170901%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154219154263%_)) - (_%__match170764170765%_ - _%e154211154245%_ - _%hd154212154248%_ - _%tl154213154250%_ - _%e154214154253%_ - _%hd154215154256%_ - _%tl154216154258%_ - _%__splice170741170742%_ - _%target154217154261%_ - _%tl154219154263%_) - (_%__kont170743170744%_)))) - (_%__kont170743170744%_)))) - (_%__kont170743170744%_)))) - (_%__kont170743170744%_)))))))) + _%tl154378154422%_)) + (_%__match170923170924%_ + _%e154370154404%_ + _%hd154371154407%_ + _%tl154372154409%_ + _%e154373154412%_ + _%hd154374154415%_ + _%tl154375154417%_ + _%__splice170900170901%_ + _%target154376154420%_ + _%tl154378154422%_) + (_%__kont170902170903%_)))) + (_%__kont170902170903%_)))) + (_%__kont170902170903%_)))) + (_%__kont170902170903%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind154117%_) - (let* ((_%__stx170767170768%_ _%bind154117%_) - (_%g154120154137%_ + (lambda (_%bind154276%_) + (let* ((_%__stx170926170927%_ _%bind154276%_) + (_%g154279154296%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170767170768%_))))) - (let ((_%__kont170769170770%_ - (lambda (_%L154173%_ _%L154174%_) + _%__stx170926170927%_))))) + (let ((_%__kont170928170929%_ + (lambda (_%L154332%_ _%L154333%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154174%_)) - (let ((_%$e154190%_ - (gxc#case-lambda-expr? _%L154173%_))) - (if _%$e154190%_ - _%$e154190%_ - (let ((_%$e154193%_ - (gxc#opt-lambda-expr? _%L154173%_))) - (if _%$e154193%_ - _%$e154193%_ - (gxc#kw-lambda-expr? _%L154173%_))))) + (gx#identifier? _%L154333%_)) + (let ((_%$e154349%_ + (gxc#case-lambda-expr? _%L154332%_))) + (if _%$e154349%_ + _%$e154349%_ + (let ((_%$e154352%_ + (gxc#opt-lambda-expr? _%L154332%_))) + (if _%$e154352%_ + _%$e154352%_ + (gxc#kw-lambda-expr? _%L154332%_))))) '#f))) - (_%__kont170771170772%_ (lambda () '#f))) + (_%__kont170930170931%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170767170768%_)) - (let ((_%e154124154149%_ + (gx#stx-pair? _%__stx170926170927%_)) + (let ((_%e154283154308%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170767170768%_)))) - (let ((_%tl154126154154%_ + (gx#stx-e _%__stx170926170927%_)))) + (let ((_%tl154285154313%_ (let () (declare (not safe)) - (##cdr _%e154124154149%_))) - (_%hd154125154152%_ + (##cdr _%e154283154308%_))) + (_%hd154284154311%_ (let () (declare (not safe)) - (##car _%e154124154149%_)))) + (##car _%e154283154308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154125154152%_)) - (let ((_%e154127154157%_ + (gx#stx-pair? _%hd154284154311%_)) + (let ((_%e154286154316%_ (let () (declare (not safe)) - (gx#stx-e _%hd154125154152%_)))) - (let ((_%tl154129154162%_ + (gx#stx-e _%hd154284154311%_)))) + (let ((_%tl154288154321%_ (let () (declare (not safe)) - (##cdr _%e154127154157%_))) - (_%hd154128154160%_ + (##cdr _%e154286154316%_))) + (_%hd154287154319%_ (let () (declare (not safe)) - (##car _%e154127154157%_)))) + (##car _%e154286154316%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154129154162%_)) + (gx#stx-null? _%tl154288154321%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154126154154%_)) - (let ((_%e154130154165%_ + (gx#stx-pair? _%tl154285154313%_)) + (let ((_%e154289154324%_ (let () (declare (not safe)) - (gx#stx-e _%tl154126154154%_)))) - (let ((_%tl154132154170%_ + (gx#stx-e _%tl154285154313%_)))) + (let ((_%tl154291154329%_ (let () (declare (not safe)) - (##cdr _%e154130154165%_))) - (_%hd154131154168%_ + (##cdr _%e154289154324%_))) + (_%hd154290154327%_ (let () (declare (not safe)) - (##car _%e154130154165%_)))) + (##car _%e154289154324%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154132154170%_)) - (_%__kont170769170770%_ - _%hd154131154168%_ - _%hd154128154160%_) - (_%__kont170771170772%_)))) - (_%__kont170771170772%_)) - (_%__kont170771170772%_)))) - (_%__kont170771170772%_)))) - (_%__kont170771170772%_)))))))) + _%tl154291154329%_)) + (_%__kont170928170929%_ + _%hd154290154327%_ + _%hd154287154319%_) + (_%__kont170930170931%_)))) + (_%__kont170930170931%_)) + (_%__kont170930170931%_)))) + (_%__kont170930170931%_)))) + (_%__kont170930170931%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index 612736517..65376ffca 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]#_g171202_| + (define |gxc[1]#_g171361_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171204_| + (define |gxc[1]#_g171363_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171206_| + (define |gxc[1]#_g171365_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171208_| + (define |gxc[1]#_g171367_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171211_| + (define |gxc[1]#_g171370_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171213_| + (define |gxc[1]#_g171372_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171215_| + (define |gxc[1]#_g171374_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171217_| + (define |gxc[1]#_g171376_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171219_| + (define |gxc[1]#_g171378_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171221_| + (define |gxc[1]#_g171380_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171223_| + (define |gxc[1]#_g171382_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171226_| + (define |gxc[1]#_g171385_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171228_| + (define |gxc[1]#_g171387_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171230_| + (define |gxc[1]#_g171389_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171233_| + (define |gxc[1]#_g171392_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171235_| + (define |gxc[1]#_g171394_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171237_| + (define |gxc[1]#_g171396_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171240_| + (define |gxc[1]#_g171399_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171242_| + (define |gxc[1]#_g171401_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171244_| + (define |gxc[1]#_g171403_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171247_| + (define |gxc[1]#_g171406_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171249_| + (define |gxc[1]#_g171408_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171251_| + (define |gxc[1]#_g171410_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171253_| + (define |gxc[1]#_g171412_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171255_| + (define |gxc[1]#_g171414_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171257_| + (define |gxc[1]#_g171416_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171259_| + (define |gxc[1]#_g171418_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171261_| + (define |gxc[1]#_g171420_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171263_| + (define |gxc[1]#_g171422_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171265_| + (define |gxc[1]#_g171424_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171267_| + (define |gxc[1]#_g171426_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171270_| + (define |gxc[1]#_g171429_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171272_| + (define |gxc[1]#_g171431_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171274_| + (define |gxc[1]#_g171433_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj170796 + (let ((__obj170955 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170796 + __obj170955 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170796 + __obj170955 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '6 '#f '#f)) - (let ((__tmp171201 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj170955 '() '6 '#f '#f)) + (let ((__tmp171360 (cons |gxc[1]#_g171361_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171201 '3 '#f '#f)) + (##unchecked-structure-set! __obj170955 __tmp171360 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170955 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170955 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170955 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#f '11 '#f '#f)) - (let ((__tmp171203 |gxc[1]#_g171204_|)) + (##unchecked-structure-set! __obj170955 '#f '11 '#f '#f)) + (let ((__tmp171362 |gxc[1]#_g171363_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171203 '12 '#f '#f)) - (let ((__tmp171205 |gxc[1]#_g171206_|)) + (##unchecked-structure-set! __obj170955 __tmp171362 '12 '#f '#f)) + (let ((__tmp171364 |gxc[1]#_g171365_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171205 '13 '#f '#f)) - (let ((__tmp171207 |gxc[1]#_g171208_|)) + (##unchecked-structure-set! __obj170955 __tmp171364 '13 '#f '#f)) + (let ((__tmp171366 |gxc[1]#_g171367_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171207 '14 '#f '#f)) + (##unchecked-structure-set! __obj170955 __tmp171366 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170955 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '20 '#f '#f)) - __obj170796)) + (##unchecked-structure-set! __obj170955 '() '20 '#f '#f)) + __obj170955)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj170798 + (let ((__obj170957 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170798 + __obj170957 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170798 + __obj170957 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '6 '#f '#f)) - (let ((__tmp171209 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj170957 '() '6 '#f '#f)) + (let ((__tmp171368 (cons |gxc[1]#_g171361_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171209 '3 '#f '#f)) + (##unchecked-structure-set! __obj170957 __tmp171368 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170957 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170957 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170957 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#f '11 '#f '#f)) - (let ((__tmp171210 |gxc[1]#_g171211_|)) + (##unchecked-structure-set! __obj170957 '#f '11 '#f '#f)) + (let ((__tmp171369 |gxc[1]#_g171370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171210 '12 '#f '#f)) - (let ((__tmp171212 |gxc[1]#_g171213_|)) + (##unchecked-structure-set! __obj170957 __tmp171369 '12 '#f '#f)) + (let ((__tmp171371 |gxc[1]#_g171372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171212 '13 '#f '#f)) - (let ((__tmp171214 |gxc[1]#_g171215_|)) + (##unchecked-structure-set! __obj170957 __tmp171371 '13 '#f '#f)) + (let ((__tmp171373 |gxc[1]#_g171374_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171214 '14 '#f '#f)) + (##unchecked-structure-set! __obj170957 __tmp171373 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170957 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '20 '#f '#f)) - __obj170798)) + (##unchecked-structure-set! __obj170957 '() '20 '#f '#f)) + __obj170957)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj170800 + (let ((__obj170959 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170800 + __obj170959 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170800 + __obj170959 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '6 '#f '#f)) - (let ((__tmp171216 (cons |gxc[1]#_g171217_| '()))) + (##unchecked-structure-set! __obj170959 '() '6 '#f '#f)) + (let ((__tmp171375 (cons |gxc[1]#_g171376_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171216 '3 '#f '#f)) + (##unchecked-structure-set! __obj170959 __tmp171375 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170959 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170959 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170959 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#f '11 '#f '#f)) - (let ((__tmp171218 |gxc[1]#_g171219_|)) + (##unchecked-structure-set! __obj170959 '#f '11 '#f '#f)) + (let ((__tmp171377 |gxc[1]#_g171378_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171218 '12 '#f '#f)) - (let ((__tmp171220 |gxc[1]#_g171221_|)) + (##unchecked-structure-set! __obj170959 __tmp171377 '12 '#f '#f)) + (let ((__tmp171379 |gxc[1]#_g171380_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171220 '13 '#f '#f)) - (let ((__tmp171222 |gxc[1]#_g171223_|)) + (##unchecked-structure-set! __obj170959 __tmp171379 '13 '#f '#f)) + (let ((__tmp171381 |gxc[1]#_g171382_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171222 '14 '#f '#f)) + (##unchecked-structure-set! __obj170959 __tmp171381 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170959 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '20 '#f '#f)) - __obj170800)) + (##unchecked-structure-set! __obj170959 '() '20 '#f '#f)) + __obj170959)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj170802 + (let ((__obj170961 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170802 + __obj170961 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170802 + __obj170961 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '6 '#f '#f)) - (let ((__tmp171224 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj170961 '() '6 '#f '#f)) + (let ((__tmp171383 (cons |gxc[1]#_g171361_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171224 '3 '#f '#f)) + (##unchecked-structure-set! __obj170961 __tmp171383 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170961 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170961 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170961 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#f '11 '#f '#f)) - (let ((__tmp171225 |gxc[1]#_g171226_|)) + (##unchecked-structure-set! __obj170961 '#f '11 '#f '#f)) + (let ((__tmp171384 |gxc[1]#_g171385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171225 '12 '#f '#f)) - (let ((__tmp171227 |gxc[1]#_g171228_|)) + (##unchecked-structure-set! __obj170961 __tmp171384 '12 '#f '#f)) + (let ((__tmp171386 |gxc[1]#_g171387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171227 '13 '#f '#f)) - (let ((__tmp171229 |gxc[1]#_g171230_|)) + (##unchecked-structure-set! __obj170961 __tmp171386 '13 '#f '#f)) + (let ((__tmp171388 |gxc[1]#_g171389_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171229 '14 '#f '#f)) + (##unchecked-structure-set! __obj170961 __tmp171388 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170961 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '20 '#f '#f)) - __obj170802)) + (##unchecked-structure-set! __obj170961 '() '20 '#f '#f)) + __obj170961)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj170804 + (let ((__obj170963 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170804 + __obj170963 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170804 + __obj170963 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '6 '#f '#f)) - (let ((__tmp171231 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj170963 '() '6 '#f '#f)) + (let ((__tmp171390 (cons |gxc[1]#_g171361_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171231 '3 '#f '#f)) + (##unchecked-structure-set! __obj170963 __tmp171390 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170963 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170963 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170963 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#f '11 '#f '#f)) - (let ((__tmp171232 |gxc[1]#_g171233_|)) + (##unchecked-structure-set! __obj170963 '#f '11 '#f '#f)) + (let ((__tmp171391 |gxc[1]#_g171392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171232 '12 '#f '#f)) - (let ((__tmp171234 |gxc[1]#_g171235_|)) + (##unchecked-structure-set! __obj170963 __tmp171391 '12 '#f '#f)) + (let ((__tmp171393 |gxc[1]#_g171394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171234 '13 '#f '#f)) - (let ((__tmp171236 |gxc[1]#_g171237_|)) + (##unchecked-structure-set! __obj170963 __tmp171393 '13 '#f '#f)) + (let ((__tmp171395 |gxc[1]#_g171396_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171236 '14 '#f '#f)) + (##unchecked-structure-set! __obj170963 __tmp171395 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170963 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '20 '#f '#f)) - __obj170804)) + (##unchecked-structure-set! __obj170963 '() '20 '#f '#f)) + __obj170963)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj170806 + (let ((__obj170965 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170806 + __obj170965 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170806 + __obj170965 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '6 '#f '#f)) - (let ((__tmp171238 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj170965 '() '6 '#f '#f)) + (let ((__tmp171397 (cons |gxc[1]#_g171361_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171238 '3 '#f '#f)) + (##unchecked-structure-set! __obj170965 __tmp171397 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170965 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170965 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170965 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#f '11 '#f '#f)) - (let ((__tmp171239 |gxc[1]#_g171240_|)) + (##unchecked-structure-set! __obj170965 '#f '11 '#f '#f)) + (let ((__tmp171398 |gxc[1]#_g171399_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171239 '12 '#f '#f)) - (let ((__tmp171241 |gxc[1]#_g171242_|)) + (##unchecked-structure-set! __obj170965 __tmp171398 '12 '#f '#f)) + (let ((__tmp171400 |gxc[1]#_g171401_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171241 '13 '#f '#f)) - (let ((__tmp171243 |gxc[1]#_g171244_|)) + (##unchecked-structure-set! __obj170965 __tmp171400 '13 '#f '#f)) + (let ((__tmp171402 |gxc[1]#_g171403_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171243 '14 '#f '#f)) + (##unchecked-structure-set! __obj170965 __tmp171402 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170965 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '20 '#f '#f)) - __obj170806)) + (##unchecked-structure-set! __obj170965 '() '20 '#f '#f)) + __obj170965)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj170808 + (let ((__obj170967 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170808 + __obj170967 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170808 + __obj170967 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '6 '#f '#f)) - (let ((__tmp171245 (cons |gxc[1]#_g171217_| '()))) + (##unchecked-structure-set! __obj170967 '() '6 '#f '#f)) + (let ((__tmp171404 (cons |gxc[1]#_g171376_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171245 '3 '#f '#f)) + (##unchecked-structure-set! __obj170967 __tmp171404 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170967 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj170967 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170967 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '11 '#f '#f)) - (let ((__tmp171246 |gxc[1]#_g171247_|)) + (##unchecked-structure-set! __obj170967 '#f '11 '#f '#f)) + (let ((__tmp171405 |gxc[1]#_g171406_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171246 '12 '#f '#f)) - (let ((__tmp171248 |gxc[1]#_g171249_|)) + (##unchecked-structure-set! __obj170967 __tmp171405 '12 '#f '#f)) + (let ((__tmp171407 |gxc[1]#_g171408_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171248 '13 '#f '#f)) - (let ((__tmp171250 |gxc[1]#_g171251_|)) + (##unchecked-structure-set! __obj170967 __tmp171407 '13 '#f '#f)) + (let ((__tmp171409 |gxc[1]#_g171410_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171250 '14 '#f '#f)) + (##unchecked-structure-set! __obj170967 __tmp171409 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170967 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '20 '#f '#f)) - __obj170808)) + (##unchecked-structure-set! __obj170967 '() '20 '#f '#f)) + __obj170967)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj170810 + (let ((__obj170969 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170810 + __obj170969 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170810 + __obj170969 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '6 '#f '#f)) - (let ((__tmp171252 - (cons |gxc[1]#_g171253_| (cons |gxc[1]#_g171217_| '())))) + (##unchecked-structure-set! __obj170969 '() '6 '#f '#f)) + (let ((__tmp171411 + (cons |gxc[1]#_g171412_| (cons |gxc[1]#_g171376_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171252 '3 '#f '#f)) + (##unchecked-structure-set! __obj170969 __tmp171411 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170969 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170969 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170969 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#f '11 '#f '#f)) - (let ((__tmp171254 |gxc[1]#_g171255_|)) + (##unchecked-structure-set! __obj170969 '#f '11 '#f '#f)) + (let ((__tmp171413 |gxc[1]#_g171414_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171254 '12 '#f '#f)) - (let ((__tmp171256 |gxc[1]#_g171257_|)) + (##unchecked-structure-set! __obj170969 __tmp171413 '12 '#f '#f)) + (let ((__tmp171415 |gxc[1]#_g171416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171256 '13 '#f '#f)) - (let ((__tmp171258 |gxc[1]#_g171259_|)) + (##unchecked-structure-set! __obj170969 __tmp171415 '13 '#f '#f)) + (let ((__tmp171417 |gxc[1]#_g171418_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171258 '14 '#f '#f)) + (##unchecked-structure-set! __obj170969 __tmp171417 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170969 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '20 '#f '#f)) - __obj170810)) + (##unchecked-structure-set! __obj170969 '() '20 '#f '#f)) + __obj170969)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj170812 + (let ((__obj170971 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170812 + __obj170971 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170812 + __obj170971 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '6 '#f '#f)) - (let ((__tmp171260 (cons |gxc[1]#_g171261_| '()))) + (##unchecked-structure-set! __obj170971 '() '6 '#f '#f)) + (let ((__tmp171419 (cons |gxc[1]#_g171420_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171260 '3 '#f '#f)) + (##unchecked-structure-set! __obj170971 __tmp171419 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170971 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170971 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170971 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#f '11 '#f '#f)) - (let ((__tmp171262 |gxc[1]#_g171263_|)) + (##unchecked-structure-set! __obj170971 '#f '11 '#f '#f)) + (let ((__tmp171421 |gxc[1]#_g171422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171262 '12 '#f '#f)) - (let ((__tmp171264 |gxc[1]#_g171265_|)) + (##unchecked-structure-set! __obj170971 __tmp171421 '12 '#f '#f)) + (let ((__tmp171423 |gxc[1]#_g171424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171264 '13 '#f '#f)) - (let ((__tmp171266 |gxc[1]#_g171267_|)) + (##unchecked-structure-set! __obj170971 __tmp171423 '13 '#f '#f)) + (let ((__tmp171425 |gxc[1]#_g171426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171266 '14 '#f '#f)) + (##unchecked-structure-set! __obj170971 __tmp171425 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170971 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '20 '#f '#f)) - __obj170812)) + (##unchecked-structure-set! __obj170971 '() '20 '#f '#f)) + __obj170971)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj170814 + (let ((__obj170973 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170814 + __obj170973 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170814 + __obj170973 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '6 '#f '#f)) - (let ((__tmp171268 (cons |gxc[1]#_g171217_| '()))) + (##unchecked-structure-set! __obj170973 '() '6 '#f '#f)) + (let ((__tmp171427 (cons |gxc[1]#_g171376_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171268 '3 '#f '#f)) + (##unchecked-structure-set! __obj170973 __tmp171427 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170973 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170973 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170973 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#f '11 '#f '#f)) - (let ((__tmp171269 |gxc[1]#_g171270_|)) + (##unchecked-structure-set! __obj170973 '#f '11 '#f '#f)) + (let ((__tmp171428 |gxc[1]#_g171429_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171269 '12 '#f '#f)) - (let ((__tmp171271 |gxc[1]#_g171272_|)) + (##unchecked-structure-set! __obj170973 __tmp171428 '12 '#f '#f)) + (let ((__tmp171430 |gxc[1]#_g171431_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171271 '13 '#f '#f)) - (let ((__tmp171273 |gxc[1]#_g171274_|)) + (##unchecked-structure-set! __obj170973 __tmp171430 '13 '#f '#f)) + (let ((__tmp171432 |gxc[1]#_g171433_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171273 '14 '#f '#f)) + (##unchecked-structure-set! __obj170973 __tmp171432 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170973 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '20 '#f '#f)) - __obj170814)) + (##unchecked-structure-set! __obj170973 '() '20 '#f '#f)) + __obj170973)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx153834%_) - (let* ((_%g153838153867%_ - (lambda (_%g153839153863%_) + (lambda (_%$stx153993%_) + (let* ((_%g153997154026%_ + (lambda (_%g153998154022%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153839153863%_)))) - (_%g153837153968%_ - (lambda (_%g153839153871%_) + _%g153998154022%_)))) + (_%g153996154127%_ + (lambda (_%g153998154030%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153839153871%_)) - (let ((_%e153842153874%_ + (gx#stx-pair? _%g153998154030%_)) + (let ((_%e154001154033%_ (let () (declare (not safe)) - (gx#syntax-e _%g153839153871%_)))) - (let ((_%hd153843153878%_ + (gx#syntax-e _%g153998154030%_)))) + (let ((_%hd154002154037%_ (let () (declare (not safe)) - (##car _%e153842153874%_))) - (_%tl153844153881%_ + (##car _%e154001154033%_))) + (_%tl154003154040%_ (let () (declare (not safe)) - (##cdr _%e153842153874%_)))) + (##cdr _%e154001154033%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153844153881%_)) - (let ((_g171275_ + (gx#stx-pair/null? _%tl154003154040%_)) + (let ((_g171434_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153844153881%_ + _%tl154003154040%_ '0)))) (begin - (let ((_g171276_ + (let ((_g171435_ (let () (declare (not safe)) - (if (##values? _g171275_) - (##vector-length _g171275_) + (if (##values? _g171434_) + (##vector-length _g171434_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171276_ 2))) + (##fx= _g171435_ 2))) (error "Context expects 2 values" - _g171276_))) - (let ((_%target153845153884%_ + _g171435_))) + (let ((_%target154004154043%_ (let () (declare (not safe)) - (##vector-ref _g171275_ 0))) - (_%tl153847153887%_ + (##vector-ref _g171434_ 0))) + (_%tl154006154046%_ (let () (declare (not safe)) - (##vector-ref _g171275_ 1)))) + (##vector-ref _g171434_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153847153887%_)) - (letrec ((_%loop153848153890%_ - (lambda (_%hd153846153894%_ - _%type-e153852153897%_ - _%id153853153899%_) + (gx#stx-null? _%tl154006154046%_)) + (letrec ((_%loop154007154049%_ + (lambda (_%hd154005154053%_ + _%type-e154011154056%_ + _%id154012154058%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153846153894%_)) - (let ((_%e153849153902%_ + _%hd154005154053%_)) + (let ((_%e154008154061%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd153846153894%_)))) - (let ((_%lp-hd153850153906%_ + (gx#syntax-e _%hd154005154053%_)))) + (let ((_%lp-hd154009154065%_ (let () (declare (not safe)) - (##car _%e153849153902%_))) - (_%lp-tl153851153909%_ + (##car _%e154008154061%_))) + (_%lp-tl154010154068%_ (let () (declare (not safe)) - (##cdr _%e153849153902%_)))) + (##cdr _%e154008154061%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153850153906%_)) - (let ((_%e153856153912%_ + (gx#stx-pair? _%lp-hd154009154065%_)) + (let ((_%e154015154071%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd153850153906%_)))) - (let ((_%hd153857153916%_ + (gx#syntax-e _%lp-hd154009154065%_)))) + (let ((_%hd154016154075%_ (let () (declare (not safe)) - (##car _%e153856153912%_))) - (_%tl153858153919%_ + (##car _%e154015154071%_))) + (_%tl154017154078%_ (let () (declare (not safe)) - (##cdr _%e153856153912%_)))) + (##cdr _%e154015154071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153858153919%_)) - (let ((_%e153859153922%_ + (gx#stx-pair? _%tl154017154078%_)) + (let ((_%e154018154081%_ (let () (declare (not safe)) - (gx#syntax-e _%tl153858153919%_)))) - (let ((_%hd153860153926%_ + (gx#syntax-e _%tl154017154078%_)))) + (let ((_%hd154019154085%_ (let () (declare (not safe)) - (##car _%e153859153922%_))) - (_%tl153861153929%_ + (##car _%e154018154081%_))) + (_%tl154020154088%_ (let () (declare (not safe)) - (##cdr _%e153859153922%_)))) + (##cdr _%e154018154081%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153861153929%_)) - (_%loop153848153890%_ - _%lp-tl153851153909%_ - (cons _%hd153860153926%_ - _%type-e153852153897%_) - (cons _%hd153857153916%_ - _%id153853153899%_)) - (_%g153838153867%_ - _%g153839153871%_)))) - (_%g153838153867%_ _%g153839153871%_)))) - (_%g153838153867%_ _%g153839153871%_)))) - (let ((_%type-e153854153932%_ (reverse _%type-e153852153897%_)) - (_%id153855153935%_ (reverse _%id153853153899%_))) - ((lambda (_%L153938%_ _%L153940%_) + (gx#stx-null? _%tl154020154088%_)) + (_%loop154007154049%_ + _%lp-tl154010154068%_ + (cons _%hd154019154085%_ + _%type-e154011154056%_) + (cons _%hd154016154075%_ + _%id154012154058%_)) + (_%g153997154026%_ + _%g153998154030%_)))) + (_%g153997154026%_ _%g153998154030%_)))) + (_%g153997154026%_ _%g153998154030%_)))) + (let ((_%type-e154013154091%_ (reverse _%type-e154011154056%_)) + (_%id154014154094%_ (reverse _%id154012154058%_))) + ((lambda (_%L154097%_ _%L154099%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L153938%_ - _%L153940%_)) - (let ((__tmp171277 - (lambda (_%g153956153960%_ - _%g153957153963%_ - _%g153958153965%_) + _%L154097%_ + _%L154099%_)) + (let ((__tmp171436 + (lambda (_%g154115154119%_ + _%g154116154122%_ + _%g154117154124%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g153957153963%_ '())) - (cons _%g153956153960%_ '())))) + (cons _%g154116154122%_ '())) + (cons _%g154115154119%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g153958153965%_)))) + _%g154117154124%_)))) (declare (not safe)) (__foldr2 - __tmp171277 + __tmp171436 '() - _%L153938%_ - _%L153940%_))))) - _%type-e153854153932%_ - _%id153855153935%_)))))) + _%L154097%_ + _%L154099%_))))) + _%type-e154013154091%_ + _%id154014154094%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153848153890%_ - _%target153845153884%_ + (_%loop154007154049%_ + _%target154004154043%_ '() '())) - (_%g153838153867%_ - _%g153839153871%_))))) - (_%g153838153867%_ _%g153839153871%_)))) - (_%g153838153867%_ _%g153839153871%_))))) - (_%g153837153968%_ _%$stx153834%_)))) + (_%g153997154026%_ + _%g153998154030%_))))) + (_%g153997154026%_ _%g153998154030%_)))) + (_%g153997154026%_ _%g153998154030%_))))) + (_%g153996154127%_ _%$stx153993%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx153973%_) - (let* ((_%g153977154006%_ - (lambda (_%g153978154002%_) + (lambda (_%$stx154132%_) + (let* ((_%g154136154165%_ + (lambda (_%g154137154161%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153978154002%_)))) - (_%g153976154106%_ - (lambda (_%g153978154010%_) + _%g154137154161%_)))) + (_%g154135154265%_ + (lambda (_%g154137154169%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153978154010%_)) - (let ((_%e153981154013%_ + (gx#stx-pair? _%g154137154169%_)) + (let ((_%e154140154172%_ (let () (declare (not safe)) - (gx#syntax-e _%g153978154010%_)))) - (let ((_%hd153982154017%_ + (gx#syntax-e _%g154137154169%_)))) + (let ((_%hd154141154176%_ (let () (declare (not safe)) - (##car _%e153981154013%_))) - (_%tl153983154020%_ + (##car _%e154140154172%_))) + (_%tl154142154179%_ (let () (declare (not safe)) - (##cdr _%e153981154013%_)))) + (##cdr _%e154140154172%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153983154020%_)) - (let ((_g171278_ + (gx#stx-pair/null? _%tl154142154179%_)) + (let ((_g171437_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153983154020%_ + _%tl154142154179%_ '0)))) (begin - (let ((_g171279_ + (let ((_g171438_ (let () (declare (not safe)) - (if (##values? _g171278_) - (##vector-length _g171278_) + (if (##values? _g171437_) + (##vector-length _g171437_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171279_ 2))) + (##fx= _g171438_ 2))) (error "Context expects 2 values" - _g171279_))) - (let ((_%target153984154023%_ + _g171438_))) + (let ((_%target154143154182%_ (let () (declare (not safe)) - (##vector-ref _g171278_ 0))) - (_%tl153986154026%_ + (##vector-ref _g171437_ 0))) + (_%tl154145154185%_ (let () (declare (not safe)) - (##vector-ref _g171278_ 1)))) + (##vector-ref _g171437_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153986154026%_)) - (letrec ((_%loop153987154029%_ - (lambda (_%hd153985154033%_ - _%type-e153991154036%_ - _%id153992154038%_) + (gx#stx-null? _%tl154145154185%_)) + (letrec ((_%loop154146154188%_ + (lambda (_%hd154144154192%_ + _%type-e154150154195%_ + _%id154151154197%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153985154033%_)) - (let ((_%e153988154041%_ + _%hd154144154192%_)) + (let ((_%e154147154200%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd153985154033%_)))) - (let ((_%lp-hd153989154045%_ + (gx#syntax-e _%hd154144154192%_)))) + (let ((_%lp-hd154148154204%_ (let () (declare (not safe)) - (##car _%e153988154041%_))) - (_%lp-tl153990154048%_ + (##car _%e154147154200%_))) + (_%lp-tl154149154207%_ (let () (declare (not safe)) - (##cdr _%e153988154041%_)))) + (##cdr _%e154147154200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153989154045%_)) - (let ((_%e153995154051%_ + (gx#stx-pair? _%lp-hd154148154204%_)) + (let ((_%e154154154210%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd153989154045%_)))) - (let ((_%hd153996154055%_ + (gx#syntax-e _%lp-hd154148154204%_)))) + (let ((_%hd154155154214%_ (let () (declare (not safe)) - (##car _%e153995154051%_))) - (_%tl153997154058%_ + (##car _%e154154154210%_))) + (_%tl154156154217%_ (let () (declare (not safe)) - (##cdr _%e153995154051%_)))) + (##cdr _%e154154154210%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153997154058%_)) - (let ((_%e153998154061%_ + (gx#stx-pair? _%tl154156154217%_)) + (let ((_%e154157154220%_ (let () (declare (not safe)) - (gx#syntax-e _%tl153997154058%_)))) - (let ((_%hd153999154065%_ + (gx#syntax-e _%tl154156154217%_)))) + (let ((_%hd154158154224%_ (let () (declare (not safe)) - (##car _%e153998154061%_))) - (_%tl154000154068%_ + (##car _%e154157154220%_))) + (_%tl154159154227%_ (let () (declare (not safe)) - (##cdr _%e153998154061%_)))) + (##cdr _%e154157154220%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154000154068%_)) - (_%loop153987154029%_ - _%lp-tl153990154048%_ - (cons _%hd153999154065%_ - _%type-e153991154036%_) - (cons _%hd153996154055%_ - _%id153992154038%_)) - (_%g153977154006%_ - _%g153978154010%_)))) - (_%g153977154006%_ _%g153978154010%_)))) - (_%g153977154006%_ _%g153978154010%_)))) - (let ((_%type-e153993154071%_ (reverse _%type-e153991154036%_)) - (_%id153994154074%_ (reverse _%id153992154038%_))) - ((lambda (_%L154077%_ _%L154079%_) + (gx#stx-null? _%tl154159154227%_)) + (_%loop154146154188%_ + _%lp-tl154149154207%_ + (cons _%hd154158154224%_ + _%type-e154150154195%_) + (cons _%hd154155154214%_ + _%id154151154197%_)) + (_%g154136154165%_ + _%g154137154169%_)))) + (_%g154136154165%_ _%g154137154169%_)))) + (_%g154136154165%_ _%g154137154169%_)))) + (let ((_%type-e154152154230%_ (reverse _%type-e154150154195%_)) + (_%id154153154233%_ (reverse _%id154151154197%_))) + ((lambda (_%L154236%_ _%L154238%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L154077%_ - _%L154079%_)) - (let ((__tmp171280 - (lambda (_%g154094154098%_ - _%g154095154101%_ - _%g154096154103%_) + _%L154236%_ + _%L154238%_)) + (let ((__tmp171439 + (lambda (_%g154253154257%_ + _%g154254154260%_ + _%g154255154262%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g154095154101%_ '())) - (cons _%g154094154098%_ '())))) + (cons _%g154254154260%_ '())) + (cons _%g154253154257%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154096154103%_)))) + _%g154255154262%_)))) (declare (not safe)) (__foldr2 - __tmp171280 + __tmp171439 '() - _%L154077%_ - _%L154079%_))))) - _%type-e153993154071%_ - _%id153994154074%_)))))) + _%L154236%_ + _%L154238%_))))) + _%type-e154152154230%_ + _%id154153154233%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153987154029%_ - _%target153984154023%_ + (_%loop154146154188%_ + _%target154143154182%_ '() '())) - (_%g153977154006%_ - _%g153978154010%_))))) - (_%g153977154006%_ _%g153978154010%_)))) - (_%g153977154006%_ _%g153978154010%_))))) - (_%g153976154106%_ _%$stx153973%_)))))) + (_%g154136154165%_ + _%g154137154169%_))))) + (_%g154136154165%_ _%g154137154169%_)))) + (_%g154136154165%_ _%g154137154169%_))))) + (_%g154135154265%_ _%$stx154132%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index c53a058f8..3c3cb9ee9 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 1713631268) + (define gerbil/compiler/optimize-xform::timestamp 1733687561) (begin (define gxc#::collect-mutators::t - (let ((__tmp153699 (list gxc#::void::t)) - (__tmp153698 (cons (cons 'final: '#t) '()))) + (let ((__tmp153858 (list gxc#::void::t)) + (__tmp153857 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp153699 + __tmp153858 '() - __tmp153698 + __tmp153857 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args153685%_ - (apply make-instance gxc#::collect-mutators::t _%$args153685%_))) + (lambda _%$args153844%_ + (apply make-instance gxc#::collect-mutators::t _%$args153844%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp153700 + (let ((__tmp153859 (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 __tmp153700))) + (__make-promise __tmp153859))) (define gxc#apply-collect-mutators - (lambda (_%stx153677%_) + (lambda (_%stx153836%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self153680%_ - (let ((__obj153688 + (let* ((_%self153839%_ + (let ((__obj153847 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj153688)) - (__tmp153701 + __obj153847)) + (__tmp153860 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153680%_ _%stx153677%_))))) + (gxc#compile-e__1 _%self153839%_ _%stx153836%_))))) (declare (not safe)) (__call-with-parameters - __tmp153701 + __tmp153860 gxc#current-compile-method - _%self153680%_)))) + _%self153839%_)))) (define gxc#::expression-subst::t - (let ((__tmp153703 (list gxc#::basic-xform-expression::t)) - (__tmp153702 (cons (cons 'final: '#t) '()))) + (let ((__tmp153862 (list gxc#::basic-xform-expression::t)) + (__tmp153861 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp153703 + __tmp153862 '(id new-id) - __tmp153702 + __tmp153861 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args153674%_ - (apply make-instance gxc#::expression-subst::t _%$args153674%_))) + (lambda _%$args153833%_ + (apply make-instance gxc#::expression-subst::t _%$args153833%_))) (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 ((__tmp153704 + (let ((__tmp153863 (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 __tmp153704))) + (__make-promise __tmp153863))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords153644%_ - _%id153640153645%_ - _%new-id153641153647%_ - _%stx153649%_) - (let* ((_%id153652%_ - (if (eq? _%id153640153645%_ absent-value) + (lambda (_%@@keywords153803%_ + _%id153799153804%_ + _%new-id153800153806%_ + _%stx153808%_) + (let* ((_%id153811%_ + (if (eq? _%id153799153804%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id153640153645%_)) - (_%new-id153654%_ - (if (eq? _%new-id153641153647%_ absent-value) + _%id153799153804%_)) + (_%new-id153813%_ + (if (eq? _%new-id153800153806%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id153641153647%_))) + _%new-id153800153806%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self153656%_ - (let ((__obj153690 + (let* ((_%self153815%_ + (let ((__obj153849 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153690 - _%id153652%_ + __obj153849 + _%id153811%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153690 - _%new-id153654%_ + __obj153849 + _%new-id153813%_ '2 '#f '#f)) - __obj153690)) - (__tmp153705 + __obj153849)) + (__tmp153864 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153656%_ _%stx153649%_))))) + (gxc#compile-e__1 _%self153815%_ _%stx153808%_))))) (declare (not safe)) (__call-with-parameters - __tmp153705 + __tmp153864 gxc#current-compile-method - _%self153656%_))))) + _%self153815%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords153663%_ . _%args153664%_) + (lambda (_%@@keywords153822%_ . _%args153823%_) (apply gxc#apply-expression-subst__% - _%@@keywords153663%_ + _%@@keywords153822%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153663%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords153822%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153663%_ + _%@@keywords153822%_ 'new-id: absent-value)) - _%args153664%_))) + _%args153823%_))) (define gxc#apply-expression-subst - (lambda _%args153642153670%_ + (lambda _%args153801153829%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args153642153670%_))) + _%args153801153829%_))) (define gxc#::expression-subst*::t - (let ((__tmp153707 (list gxc#::basic-xform-expression::t)) - (__tmp153706 (cons (cons 'final: '#t) '()))) + (let ((__tmp153866 (list gxc#::basic-xform-expression::t)) + (__tmp153865 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp153707 + __tmp153866 '(subst) - __tmp153706 + __tmp153865 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args153636%_ - (apply make-instance gxc#::expression-subst*::t _%$args153636%_))) + (lambda _%$args153795%_ + (apply make-instance gxc#::expression-subst*::t _%$args153795%_))) (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 ((__tmp153708 + (let ((__tmp153867 (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 __tmp153708))) + (__make-promise __tmp153867))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords153610%_ _%subst153607153611%_ _%stx153613%_) - (let ((_%subst153616%_ - (if (eq? _%subst153607153611%_ absent-value) + (lambda (_%@@keywords153769%_ _%subst153766153770%_ _%stx153772%_) + (let ((_%subst153775%_ + (if (eq? _%subst153766153770%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst153607153611%_))) + _%subst153766153770%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self153618%_ - (let ((__obj153692 + (let* ((_%self153777%_ + (let ((__obj153851 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153692 - _%subst153616%_ + __obj153851 + _%subst153775%_ '1 '#f '#f)) - __obj153692)) - (__tmp153709 + __obj153851)) + (__tmp153868 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153618%_ _%stx153613%_))))) + (gxc#compile-e__1 _%self153777%_ _%stx153772%_))))) (declare (not safe)) (__call-with-parameters - __tmp153709 + __tmp153868 gxc#current-compile-method - _%self153618%_))))) + _%self153777%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords153625%_ . _%args153626%_) + (lambda (_%@@keywords153784%_ . _%args153785%_) (apply gxc#apply-expression-subst*__% - _%@@keywords153625%_ + _%@@keywords153784%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153625%_ + _%@@keywords153784%_ 'subst: absent-value)) - _%args153626%_))) + _%args153785%_))) (define gxc#apply-expression-subst* - (lambda _%args153608153632%_ + (lambda _%args153767153791%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args153608153632%_))) + _%args153767153791%_))) (define gxc#::find-expression::t - (let ((__tmp153710 (list gxc#::false-expression::t))) + (let ((__tmp153869 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp153710 + __tmp153869 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args153603%_ - (apply make-instance gxc#::find-expression::t _%$args153603%_))) + (lambda _%$args153762%_ + (apply make-instance gxc#::find-expression::t _%$args153762%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp153711 + (let ((__tmp153870 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp153711))) + (__make-promise __tmp153870))) (define gxc#::find-var-refs::t - (let ((__tmp153713 (list gxc#::find-expression::t)) - (__tmp153712 (cons (cons 'final: '#t) '()))) + (let ((__tmp153872 (list gxc#::find-expression::t)) + (__tmp153871 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp153713 + __tmp153872 '(ids) - __tmp153712 + __tmp153871 '#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 _%$args153599%_ - (apply make-instance gxc#::find-var-refs::t _%$args153599%_))) + (lambda _%$args153758%_ + (apply make-instance gxc#::find-var-refs::t _%$args153758%_))) (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 ((__tmp153714 + (let ((__tmp153873 (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 __tmp153714))) + (__make-promise __tmp153873))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords153573%_ _%ids153570153574%_ _%stx153576%_) - (let ((_%ids153579%_ - (if (eq? _%ids153570153574%_ absent-value) + (lambda (_%@@keywords153732%_ _%ids153729153733%_ _%stx153735%_) + (let ((_%ids153738%_ + (if (eq? _%ids153729153733%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids153570153574%_))) + _%ids153729153733%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self153581%_ - (let ((__obj153695 + (let* ((_%self153740%_ + (let ((__obj153854 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153695 - _%ids153579%_ + __obj153854 + _%ids153738%_ '1 '#f '#f)) - __obj153695)) - (__tmp153715 + __obj153854)) + (__tmp153874 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153581%_ _%stx153576%_))))) + (gxc#compile-e__1 _%self153740%_ _%stx153735%_))))) (declare (not safe)) (__call-with-parameters - __tmp153715 + __tmp153874 gxc#current-compile-method - _%self153581%_))))) + _%self153740%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords153588%_ . _%args153589%_) + (lambda (_%@@keywords153747%_ . _%args153748%_) (apply gxc#apply-find-var-refs__% - _%@@keywords153588%_ + _%@@keywords153747%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153588%_ 'ids: absent-value)) - _%args153589%_))) + (symbolic-table-ref _%@@keywords153747%_ 'ids: absent-value)) + _%args153748%_))) (define gxc#apply-find-var-refs - (lambda _%args153571153595%_ + (lambda _%args153730153754%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args153571153595%_))) + _%args153730153754%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp153717 (list gxc#::collect-expression-refs::t)) - (__tmp153716 (cons (cons 'final: '#t) '()))) + (let ((__tmp153876 (list gxc#::collect-expression-refs::t)) + (__tmp153875 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp153717 + __tmp153876 '() - __tmp153716 + __tmp153875 '#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 _%$args153566%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args153566%_))) + (lambda _%$args153725%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args153725%_))) (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 ((__tmp153718 + (let ((__tmp153877 (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 __tmp153718))) + (__make-promise __tmp153877))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords153540%_ _%table153537153541%_ _%stx153543%_) - (let ((_%table153546%_ - (if (eq? _%table153537153541%_ absent-value) + (lambda (_%@@keywords153699%_ _%table153696153700%_ _%stx153702%_) + (let ((_%table153705%_ + (if (eq? _%table153696153700%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table153537153541%_))) + _%table153696153700%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self153548%_ - (let ((__obj153697 + (let* ((_%self153707%_ + (let ((__obj153856 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153697 - _%table153546%_ + __obj153856 + _%table153705%_ '1 '#f '#f)) - __obj153697)) - (__tmp153719 + __obj153856)) + (__tmp153878 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153548%_ _%stx153543%_))))) + (gxc#compile-e__1 _%self153707%_ _%stx153702%_))))) (declare (not safe)) (__call-with-parameters - __tmp153719 + __tmp153878 gxc#current-compile-method - _%self153548%_))))) + _%self153707%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords153555%_ . _%args153556%_) + (lambda (_%@@keywords153714%_ . _%args153715%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords153555%_ + _%@@keywords153714%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153555%_ + _%@@keywords153714%_ 'table: absent-value)) - _%args153556%_))) + _%args153715%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args153538153562%_ + (lambda _%args153697153721%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args153538153562%_))) + _%args153697153721%_))) (define gxc#collect-mutators-setq% - (lambda (_%self153466%_ _%stx153467%_) - (let* ((_%g153469153486%_ - (lambda (_%g153470153483%_) + (lambda (_%self153625%_ _%stx153626%_) + (let* ((_%g153628153645%_ + (lambda (_%g153629153642%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153470153483%_)))) - (_%g153468153533%_ - (lambda (_%g153470153489%_) + _%g153629153642%_)))) + (_%g153627153692%_ + (lambda (_%g153629153648%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153470153489%_)) - (let ((_%e153473153491%_ + (gx#stx-pair? _%g153629153648%_)) + (let ((_%e153632153650%_ (let () (declare (not safe)) - (gx#stx-e _%g153470153489%_)))) - (let ((_%hd153474153494%_ + (gx#stx-e _%g153629153648%_)))) + (let ((_%hd153633153653%_ (let () (declare (not safe)) - (##car _%e153473153491%_))) - (_%tl153475153496%_ + (##car _%e153632153650%_))) + (_%tl153634153655%_ (let () (declare (not safe)) - (##cdr _%e153473153491%_)))) + (##cdr _%e153632153650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153475153496%_)) - (let ((_%e153476153499%_ + (gx#stx-pair? _%tl153634153655%_)) + (let ((_%e153635153658%_ (let () (declare (not safe)) - (gx#stx-e _%tl153475153496%_)))) - (let ((_%hd153477153502%_ + (gx#stx-e _%tl153634153655%_)))) + (let ((_%hd153636153661%_ (let () (declare (not safe)) - (##car _%e153476153499%_))) - (_%tl153478153504%_ + (##car _%e153635153658%_))) + (_%tl153637153663%_ (let () (declare (not safe)) - (##cdr _%e153476153499%_)))) + (##cdr _%e153635153658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153478153504%_)) - (let ((_%e153479153507%_ + (gx#stx-pair? _%tl153637153663%_)) + (let ((_%e153638153666%_ (let () (declare (not safe)) - (gx#stx-e _%tl153478153504%_)))) - (let ((_%hd153480153510%_ + (gx#stx-e _%tl153637153663%_)))) + (let ((_%hd153639153669%_ (let () (declare (not safe)) - (##car _%e153479153507%_))) - (_%tl153481153512%_ + (##car _%e153638153666%_))) + (_%tl153640153671%_ (let () (declare (not safe)) - (##cdr _%e153479153507%_)))) + (##cdr _%e153638153666%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153481153512%_)) - ((lambda (_%L153515%_ - _%L153516%_) - (let ((_%sym153531%_ + _%tl153640153671%_)) + ((lambda (_%L153674%_ + _%L153675%_) + (let ((_%sym153690%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153516%_)))) + _%L153675%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym153531%_)) - (let ((__tmp153720 + _%sym153690%_)) + (let ((__tmp153879 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp153720 - _%sym153531%_ + __tmp153879 + _%sym153690%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153466%_ - _%L153515%_)))) - _%hd153480153510%_ - _%hd153477153502%_) - (_%g153469153486%_ - _%g153470153489%_)))) - (_%g153469153486%_ _%g153470153489%_)))) - (_%g153469153486%_ _%g153470153489%_)))) - (_%g153469153486%_ _%g153470153489%_))))) - (_%g153468153533%_ _%stx153467%_)))) + _%self153625%_ + _%L153674%_)))) + _%hd153639153669%_ + _%hd153636153661%_) + (_%g153628153645%_ + _%g153629153648%_)))) + (_%g153628153645%_ _%g153629153648%_)))) + (_%g153628153645%_ _%g153629153648%_)))) + (_%g153628153645%_ _%g153629153648%_))))) + (_%g153627153692%_ _%stx153626%_)))) (define gxc#expression-subst-ref% - (lambda (_%self153414%_ _%stx153415%_) - (let* ((_%g153417153430%_ - (lambda (_%g153418153427%_) + (lambda (_%self153573%_ _%stx153574%_) + (let* ((_%g153576153589%_ + (lambda (_%g153577153586%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153418153427%_)))) - (_%g153416153463%_ - (lambda (_%g153418153433%_) + _%g153577153586%_)))) + (_%g153575153622%_ + (lambda (_%g153577153592%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153418153433%_)) - (let ((_%e153420153435%_ + (gx#stx-pair? _%g153577153592%_)) + (let ((_%e153579153594%_ (let () (declare (not safe)) - (gx#stx-e _%g153418153433%_)))) - (let ((_%hd153421153438%_ + (gx#stx-e _%g153577153592%_)))) + (let ((_%hd153580153597%_ (let () (declare (not safe)) - (##car _%e153420153435%_))) - (_%tl153422153440%_ + (##car _%e153579153594%_))) + (_%tl153581153599%_ (let () (declare (not safe)) - (##cdr _%e153420153435%_)))) + (##cdr _%e153579153594%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153422153440%_)) - (let ((_%e153423153443%_ + (gx#stx-pair? _%tl153581153599%_)) + (let ((_%e153582153602%_ (let () (declare (not safe)) - (gx#stx-e _%tl153422153440%_)))) - (let ((_%hd153424153446%_ + (gx#stx-e _%tl153581153599%_)))) + (let ((_%hd153583153605%_ (let () (declare (not safe)) - (##car _%e153423153443%_))) - (_%tl153425153448%_ + (##car _%e153582153602%_))) + (_%tl153584153607%_ (let () (declare (not safe)) - (##cdr _%e153423153443%_)))) + (##cdr _%e153582153602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153425153448%_)) - ((lambda (_%L153451%_) - (if (let ((__tmp153721 + (gx#stx-null? _%tl153584153607%_)) + ((lambda (_%L153610%_) + (if (let ((__tmp153880 (let () (declare (not safe)) (slot-ref__0 - _%self153414%_ + _%self153573%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L153451%_ - __tmp153721)) - (let ((__tmp153722 + _%L153610%_ + __tmp153880)) + (let ((__tmp153881 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self153414%_ 'new-id)) + (slot-ref__0 _%self153573%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153722 - _%stx153415%_)) - _%stx153415%_)) - _%hd153424153446%_) - (_%g153417153430%_ _%g153418153433%_)))) - (_%g153417153430%_ _%g153418153433%_)))) - (_%g153417153430%_ _%g153418153433%_))))) - (_%g153416153463%_ _%stx153415%_)))) + __tmp153881 + _%stx153574%_)) + _%stx153574%_)) + _%hd153583153605%_) + (_%g153576153589%_ _%g153577153592%_)))) + (_%g153576153589%_ _%g153577153592%_)))) + (_%g153576153589%_ _%g153577153592%_))))) + (_%g153575153622%_ _%stx153574%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self153354%_ _%stx153355%_) - (let* ((_%g153357153370%_ - (lambda (_%g153358153367%_) + (lambda (_%self153513%_ _%stx153514%_) + (let* ((_%g153516153529%_ + (lambda (_%g153517153526%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153358153367%_)))) - (_%g153356153411%_ - (lambda (_%g153358153373%_) + _%g153517153526%_)))) + (_%g153515153570%_ + (lambda (_%g153517153532%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153358153373%_)) - (let ((_%e153360153375%_ + (gx#stx-pair? _%g153517153532%_)) + (let ((_%e153519153534%_ (let () (declare (not safe)) - (gx#stx-e _%g153358153373%_)))) - (let ((_%hd153361153378%_ + (gx#stx-e _%g153517153532%_)))) + (let ((_%hd153520153537%_ (let () (declare (not safe)) - (##car _%e153360153375%_))) - (_%tl153362153380%_ + (##car _%e153519153534%_))) + (_%tl153521153539%_ (let () (declare (not safe)) - (##cdr _%e153360153375%_)))) + (##cdr _%e153519153534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153362153380%_)) - (let ((_%e153363153383%_ + (gx#stx-pair? _%tl153521153539%_)) + (let ((_%e153522153542%_ (let () (declare (not safe)) - (gx#stx-e _%tl153362153380%_)))) - (let ((_%hd153364153386%_ + (gx#stx-e _%tl153521153539%_)))) + (let ((_%hd153523153545%_ (let () (declare (not safe)) - (##car _%e153363153383%_))) - (_%tl153365153388%_ + (##car _%e153522153542%_))) + (_%tl153524153547%_ (let () (declare (not safe)) - (##cdr _%e153363153383%_)))) + (##cdr _%e153522153542%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153365153388%_)) - ((lambda (_%L153391%_) - (let ((_%$e153405%_ - (let ((__tmp153724 - (lambda (_%sub153403%_) - (let ((__tmp153725 - (car _%sub153403%_))) + (gx#stx-null? _%tl153524153547%_)) + ((lambda (_%L153550%_) + (let ((_%$e153564%_ + (let ((__tmp153883 + (lambda (_%sub153562%_) + (let ((__tmp153884 + (car _%sub153562%_))) (declare (not safe)) (gx#free-identifier=? - _%L153391%_ - __tmp153725)))) - (__tmp153723 + _%L153550%_ + __tmp153884)))) + (__tmp153882 (let () (declare (not safe)) (slot-ref__0 - _%self153354%_ + _%self153513%_ 'subst)))) (declare (not safe)) - (__find __tmp153724 - __tmp153723)))) - (if _%$e153405%_ - ((lambda (_%sub153408%_) - (let ((__tmp153726 + (__find __tmp153883 + __tmp153882)))) + (if _%$e153564%_ + ((lambda (_%sub153567%_) + (let ((__tmp153885 (cons '%#ref - (cons (cdr _%sub153408%_) + (cons (cdr _%sub153567%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153726 - _%stx153355%_))) - _%$e153405%_) - _%stx153355%_))) - _%hd153364153386%_) - (_%g153357153370%_ _%g153358153373%_)))) - (_%g153357153370%_ _%g153358153373%_)))) - (_%g153357153370%_ _%g153358153373%_))))) - (_%g153356153411%_ _%stx153355%_)))) + __tmp153885 + _%stx153514%_))) + _%$e153564%_) + _%stx153514%_))) + _%hd153523153545%_) + (_%g153516153529%_ _%g153517153532%_)))) + (_%g153516153529%_ _%g153517153532%_)))) + (_%g153516153529%_ _%g153517153532%_))))) + (_%g153515153570%_ _%stx153514%_)))) (define gxc#expression-subst-setq% - (lambda (_%self153283%_ _%stx153284%_) - (let* ((_%g153286153303%_ - (lambda (_%g153287153300%_) + (lambda (_%self153442%_ _%stx153443%_) + (let* ((_%g153445153462%_ + (lambda (_%g153446153459%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153287153300%_)))) - (_%g153285153351%_ - (lambda (_%g153287153306%_) + _%g153446153459%_)))) + (_%g153444153510%_ + (lambda (_%g153446153465%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153287153306%_)) - (let ((_%e153290153308%_ + (gx#stx-pair? _%g153446153465%_)) + (let ((_%e153449153467%_ (let () (declare (not safe)) - (gx#stx-e _%g153287153306%_)))) - (let ((_%hd153291153311%_ + (gx#stx-e _%g153446153465%_)))) + (let ((_%hd153450153470%_ (let () (declare (not safe)) - (##car _%e153290153308%_))) - (_%tl153292153313%_ + (##car _%e153449153467%_))) + (_%tl153451153472%_ (let () (declare (not safe)) - (##cdr _%e153290153308%_)))) + (##cdr _%e153449153467%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153292153313%_)) - (let ((_%e153293153316%_ + (gx#stx-pair? _%tl153451153472%_)) + (let ((_%e153452153475%_ (let () (declare (not safe)) - (gx#stx-e _%tl153292153313%_)))) - (let ((_%hd153294153319%_ + (gx#stx-e _%tl153451153472%_)))) + (let ((_%hd153453153478%_ (let () (declare (not safe)) - (##car _%e153293153316%_))) - (_%tl153295153321%_ + (##car _%e153452153475%_))) + (_%tl153454153480%_ (let () (declare (not safe)) - (##cdr _%e153293153316%_)))) + (##cdr _%e153452153475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153295153321%_)) - (let ((_%e153296153324%_ + (gx#stx-pair? _%tl153454153480%_)) + (let ((_%e153455153483%_ (let () (declare (not safe)) - (gx#stx-e _%tl153295153321%_)))) - (let ((_%hd153297153327%_ + (gx#stx-e _%tl153454153480%_)))) + (let ((_%hd153456153486%_ (let () (declare (not safe)) - (##car _%e153296153324%_))) - (_%tl153298153329%_ + (##car _%e153455153483%_))) + (_%tl153457153488%_ (let () (declare (not safe)) - (##cdr _%e153296153324%_)))) + (##cdr _%e153455153483%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153298153329%_)) - ((lambda (_%L153332%_ - _%L153333%_) - (let ((_%new-expr153348%_ + _%tl153457153488%_)) + ((lambda (_%L153491%_ + _%L153492%_) + (let ((_%new-expr153507%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153283%_ - _%L153332%_))) - (_%new-xid153349%_ - (if (let ((__tmp153727 + _%self153442%_ + _%L153491%_))) + (_%new-xid153508%_ + (if (let ((__tmp153886 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self153283%_ 'id)))) + (slot-ref__0 _%self153442%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L153333%_ __tmp153727)) + (gx#free-identifier=? _%L153492%_ __tmp153886)) (let () (declare (not safe)) - (slot-ref__0 _%self153283%_ 'new-id)) - _%L153333%_))) + (slot-ref__0 _%self153442%_ 'new-id)) + _%L153492%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153728 + (let ((__tmp153887 (cons '%#set! - (cons _%new-xid153349%_ + (cons _%new-xid153508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153348%_ '()))))) + (cons _%new-expr153507%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153728 - _%stx153284%_)))) - _%hd153297153327%_ - _%hd153294153319%_) - (_%g153286153303%_ - _%g153287153306%_)))) - (_%g153286153303%_ _%g153287153306%_)))) - (_%g153286153303%_ _%g153287153306%_)))) - (_%g153286153303%_ _%g153287153306%_))))) - (_%g153285153351%_ _%stx153284%_)))) + __tmp153887 + _%stx153443%_)))) + _%hd153456153486%_ + _%hd153453153478%_) + (_%g153445153462%_ + _%g153446153465%_)))) + (_%g153445153462%_ _%g153446153465%_)))) + (_%g153445153462%_ _%g153446153465%_)))) + (_%g153445153462%_ _%g153446153465%_))))) + (_%g153444153510%_ _%stx153443%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self153206%_ _%stx153207%_) - (let* ((_%g153209153226%_ - (lambda (_%g153210153223%_) + (lambda (_%self153365%_ _%stx153366%_) + (let* ((_%g153368153385%_ + (lambda (_%g153369153382%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153210153223%_)))) - (_%g153208153280%_ - (lambda (_%g153210153229%_) + _%g153369153382%_)))) + (_%g153367153439%_ + (lambda (_%g153369153388%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153210153229%_)) - (let ((_%e153213153231%_ + (gx#stx-pair? _%g153369153388%_)) + (let ((_%e153372153390%_ (let () (declare (not safe)) - (gx#stx-e _%g153210153229%_)))) - (let ((_%hd153214153234%_ + (gx#stx-e _%g153369153388%_)))) + (let ((_%hd153373153393%_ (let () (declare (not safe)) - (##car _%e153213153231%_))) - (_%tl153215153236%_ + (##car _%e153372153390%_))) + (_%tl153374153395%_ (let () (declare (not safe)) - (##cdr _%e153213153231%_)))) + (##cdr _%e153372153390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153215153236%_)) - (let ((_%e153216153239%_ + (gx#stx-pair? _%tl153374153395%_)) + (let ((_%e153375153398%_ (let () (declare (not safe)) - (gx#stx-e _%tl153215153236%_)))) - (let ((_%hd153217153242%_ + (gx#stx-e _%tl153374153395%_)))) + (let ((_%hd153376153401%_ (let () (declare (not safe)) - (##car _%e153216153239%_))) - (_%tl153218153244%_ + (##car _%e153375153398%_))) + (_%tl153377153403%_ (let () (declare (not safe)) - (##cdr _%e153216153239%_)))) + (##cdr _%e153375153398%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153218153244%_)) - (let ((_%e153219153247%_ + (gx#stx-pair? _%tl153377153403%_)) + (let ((_%e153378153406%_ (let () (declare (not safe)) - (gx#stx-e _%tl153218153244%_)))) - (let ((_%hd153220153250%_ + (gx#stx-e _%tl153377153403%_)))) + (let ((_%hd153379153409%_ (let () (declare (not safe)) - (##car _%e153219153247%_))) - (_%tl153221153252%_ + (##car _%e153378153406%_))) + (_%tl153380153411%_ (let () (declare (not safe)) - (##cdr _%e153219153247%_)))) + (##cdr _%e153378153406%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153221153252%_)) - ((lambda (_%L153255%_ - _%L153256%_) - (let ((_%new-expr153277%_ + _%tl153380153411%_)) + ((lambda (_%L153414%_ + _%L153415%_) + (let ((_%new-expr153436%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153206%_ - _%L153255%_))) - (_%new-xid153278%_ - (let ((_%$e153273%_ - (let ((__tmp153730 + _%self153365%_ + _%L153414%_))) + (_%new-xid153437%_ + (let ((_%$e153432%_ + (let ((__tmp153889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub153271%_) - (let ((__tmp153731 (car _%sub153271%_))) + (lambda (_%sub153430%_) + (let ((__tmp153890 (car _%sub153430%_))) (declare (not safe)) (gx#free-identifier=? - _%L153256%_ - __tmp153731)))) - (__tmp153729 + _%L153415%_ + __tmp153890)))) + (__tmp153888 (let () (declare (not safe)) - (slot-ref__0 _%self153206%_ 'subst)))) + (slot-ref__0 _%self153365%_ 'subst)))) (declare (not safe)) - (__find __tmp153730 __tmp153729)))) - (if _%$e153273%_ (cdr _%$e153273%_) _%L153256%_)))) + (__find __tmp153889 __tmp153888)))) + (if _%$e153432%_ (cdr _%$e153432%_) _%L153415%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153732 + (let ((__tmp153891 (cons '%#set! - (cons _%new-xid153278%_ + (cons _%new-xid153437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153277%_ '()))))) + (cons _%new-expr153436%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153732 - _%stx153207%_)))) - _%hd153220153250%_ - _%hd153217153242%_) - (_%g153209153226%_ - _%g153210153229%_)))) - (_%g153209153226%_ _%g153210153229%_)))) - (_%g153209153226%_ _%g153210153229%_)))) - (_%g153209153226%_ _%g153210153229%_))))) - (_%g153208153280%_ _%stx153207%_)))) + __tmp153891 + _%stx153366%_)))) + _%hd153379153409%_ + _%hd153376153401%_) + (_%g153368153385%_ + _%g153369153388%_)))) + (_%g153368153385%_ _%g153369153388%_)))) + (_%g153368153385%_ _%g153369153388%_)))) + (_%g153368153385%_ _%g153369153388%_))))) + (_%g153367153439%_ _%stx153366%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self153152%_ _%stx153153%_) - (let* ((_%g153155153168%_ - (lambda (_%g153156153165%_) + (lambda (_%self153311%_ _%stx153312%_) + (let* ((_%g153314153327%_ + (lambda (_%g153315153324%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153156153165%_)))) - (_%g153154153203%_ - (lambda (_%g153156153171%_) + _%g153315153324%_)))) + (_%g153313153362%_ + (lambda (_%g153315153330%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153156153171%_)) - (let ((_%e153158153173%_ + (gx#stx-pair? _%g153315153330%_)) + (let ((_%e153317153332%_ (let () (declare (not safe)) - (gx#stx-e _%g153156153171%_)))) - (let ((_%hd153159153176%_ + (gx#stx-e _%g153315153330%_)))) + (let ((_%hd153318153335%_ (let () (declare (not safe)) - (##car _%e153158153173%_))) - (_%tl153160153178%_ + (##car _%e153317153332%_))) + (_%tl153319153337%_ (let () (declare (not safe)) - (##cdr _%e153158153173%_)))) + (##cdr _%e153317153332%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153160153178%_)) - (let ((_%e153161153181%_ + (gx#stx-pair? _%tl153319153337%_)) + (let ((_%e153320153340%_ (let () (declare (not safe)) - (gx#stx-e _%tl153160153178%_)))) - (let ((_%hd153162153184%_ + (gx#stx-e _%tl153319153337%_)))) + (let ((_%hd153321153343%_ (let () (declare (not safe)) - (##car _%e153161153181%_))) - (_%tl153163153186%_ + (##car _%e153320153340%_))) + (_%tl153322153345%_ (let () (declare (not safe)) - (##cdr _%e153161153181%_)))) + (##cdr _%e153320153340%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153163153186%_)) - ((lambda (_%L153189%_) - (let* ((_%eid153201%_ + (gx#stx-null? _%tl153322153345%_)) + ((lambda (_%L153348%_) + (let* ((_%eid153360%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153189%_))) - (__tmp153733 + _%L153348%_))) + (__tmp153892 (let () (declare (not safe)) (slot-ref__0 - _%self153152%_ + _%self153311%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153733 - _%eid153201%_ + __tmp153892 + _%eid153360%_ 1+ '0))) - _%hd153162153184%_) - (_%g153155153168%_ _%g153156153171%_)))) - (_%g153155153168%_ _%g153156153171%_)))) - (_%g153155153168%_ _%g153156153171%_))))) - (_%g153154153203%_ _%stx153153%_)))) + _%hd153321153343%_) + (_%g153314153327%_ _%g153315153330%_)))) + (_%g153314153327%_ _%g153315153330%_)))) + (_%g153314153327%_ _%g153315153330%_))))) + (_%g153313153362%_ _%stx153312%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self153082%_ _%stx153083%_) - (let* ((_%g153085153102%_ - (lambda (_%g153086153099%_) + (lambda (_%self153241%_ _%stx153242%_) + (let* ((_%g153244153261%_ + (lambda (_%g153245153258%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153086153099%_)))) - (_%g153084153149%_ - (lambda (_%g153086153105%_) + _%g153245153258%_)))) + (_%g153243153308%_ + (lambda (_%g153245153264%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153086153105%_)) - (let ((_%e153089153107%_ + (gx#stx-pair? _%g153245153264%_)) + (let ((_%e153248153266%_ (let () (declare (not safe)) - (gx#stx-e _%g153086153105%_)))) - (let ((_%hd153090153110%_ + (gx#stx-e _%g153245153264%_)))) + (let ((_%hd153249153269%_ (let () (declare (not safe)) - (##car _%e153089153107%_))) - (_%tl153091153112%_ + (##car _%e153248153266%_))) + (_%tl153250153271%_ (let () (declare (not safe)) - (##cdr _%e153089153107%_)))) + (##cdr _%e153248153266%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153091153112%_)) - (let ((_%e153092153115%_ + (gx#stx-pair? _%tl153250153271%_)) + (let ((_%e153251153274%_ (let () (declare (not safe)) - (gx#stx-e _%tl153091153112%_)))) - (let ((_%hd153093153118%_ + (gx#stx-e _%tl153250153271%_)))) + (let ((_%hd153252153277%_ (let () (declare (not safe)) - (##car _%e153092153115%_))) - (_%tl153094153120%_ + (##car _%e153251153274%_))) + (_%tl153253153279%_ (let () (declare (not safe)) - (##cdr _%e153092153115%_)))) + (##cdr _%e153251153274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153094153120%_)) - (let ((_%e153095153123%_ + (gx#stx-pair? _%tl153253153279%_)) + (let ((_%e153254153282%_ (let () (declare (not safe)) - (gx#stx-e _%tl153094153120%_)))) - (let ((_%hd153096153126%_ + (gx#stx-e _%tl153253153279%_)))) + (let ((_%hd153255153285%_ (let () (declare (not safe)) - (##car _%e153095153123%_))) - (_%tl153097153128%_ + (##car _%e153254153282%_))) + (_%tl153256153287%_ (let () (declare (not safe)) - (##cdr _%e153095153123%_)))) + (##cdr _%e153254153282%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153097153128%_)) - ((lambda (_%L153131%_ - _%L153132%_) - (let ((_%eid153147%_ + _%tl153256153287%_)) + ((lambda (_%L153290%_ + _%L153291%_) + (let ((_%eid153306%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153132%_)))) - (let ((__tmp153734 + _%L153291%_)))) + (let ((__tmp153893 (let () (declare (not safe)) (slot-ref__0 - _%self153082%_ + _%self153241%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153734 - _%eid153147%_ + __tmp153893 + _%eid153306%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153082%_ - _%L153131%_)))) - _%hd153096153126%_ - _%hd153093153118%_) - (_%g153085153102%_ - _%g153086153105%_)))) - (_%g153085153102%_ _%g153086153105%_)))) - (_%g153085153102%_ _%g153086153105%_)))) - (_%g153085153102%_ _%g153086153105%_))))) - (_%g153084153149%_ _%stx153083%_)))) + _%self153241%_ + _%L153290%_)))) + _%hd153255153285%_ + _%hd153252153277%_) + (_%g153244153261%_ + _%g153245153264%_)))) + (_%g153244153261%_ _%g153245153264%_)))) + (_%g153244153261%_ _%g153245153264%_)))) + (_%g153244153261%_ _%g153245153264%_))))) + (_%g153243153308%_ _%stx153242%_)))) (define gxc#find-body% - (lambda (_%self152995%_ _%stx152996%_) - (let* ((_%g152998153017%_ - (lambda (_%g152999153014%_) + (lambda (_%self153154%_ _%stx153155%_) + (let* ((_%g153157153176%_ + (lambda (_%g153158153173%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152999153014%_)))) - (_%g152997153079%_ - (lambda (_%g152999153020%_) + _%g153158153173%_)))) + (_%g153156153238%_ + (lambda (_%g153158153179%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152999153020%_)) - (let ((_%e153001153022%_ + (gx#stx-pair? _%g153158153179%_)) + (let ((_%e153160153181%_ (let () (declare (not safe)) - (gx#stx-e _%g152999153020%_)))) - (let ((_%hd153002153025%_ + (gx#stx-e _%g153158153179%_)))) + (let ((_%hd153161153184%_ (let () (declare (not safe)) - (##car _%e153001153022%_))) - (_%tl153003153027%_ + (##car _%e153160153181%_))) + (_%tl153162153186%_ (let () (declare (not safe)) - (##cdr _%e153001153022%_)))) + (##cdr _%e153160153181%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153003153027%_)) - (let ((_g153735_ + (gx#stx-pair/null? _%tl153162153186%_)) + (let ((_g153894_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153003153027%_ + _%tl153162153186%_ '0)))) (begin - (let ((_g153736_ + (let ((_g153895_ (let () (declare (not safe)) - (if (##values? _g153735_) - (##vector-length _g153735_) + (if (##values? _g153894_) + (##vector-length _g153894_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153736_ 2))) + (##fx= _g153895_ 2))) (error "Context expects 2 values" - _g153736_))) - (let ((_%target153004153030%_ + _g153895_))) + (let ((_%target153163153189%_ (let () (declare (not safe)) - (##vector-ref _g153735_ 0))) - (_%tl153006153032%_ + (##vector-ref _g153894_ 0))) + (_%tl153165153191%_ (let () (declare (not safe)) - (##vector-ref _g153735_ 1)))) + (##vector-ref _g153894_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153006153032%_)) - (letrec ((_%loop153007153035%_ - (lambda (_%hd153005153038%_ - _%expr153011153040%_) + (gx#stx-null? _%tl153165153191%_)) + (letrec ((_%loop153166153194%_ + (lambda (_%hd153164153197%_ + _%expr153170153199%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153005153038%_)) - (let ((_%e153008153043%_ + _%hd153164153197%_)) + (let ((_%e153167153202%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd153005153038%_)))) - (let ((_%lp-hd153009153046%_ + (gx#stx-e _%hd153164153197%_)))) + (let ((_%lp-hd153168153205%_ (let () (declare (not safe)) - (##car _%e153008153043%_))) - (_%lp-tl153010153048%_ + (##car _%e153167153202%_))) + (_%lp-tl153169153207%_ (let () (declare (not safe)) - (##cdr _%e153008153043%_)))) - (_%loop153007153035%_ - _%lp-tl153010153048%_ - (cons _%lp-hd153009153046%_ _%expr153011153040%_)))) - (let ((_%expr153012153051%_ (reverse _%expr153011153040%_))) - ((lambda (_%L153054%_) - (let ((__tmp153739 - (lambda (_%g153067153069%_) + (##cdr _%e153167153202%_)))) + (_%loop153166153194%_ + _%lp-tl153169153207%_ + (cons _%lp-hd153168153205%_ _%expr153170153199%_)))) + (let ((_%expr153171153210%_ (reverse _%expr153170153199%_))) + ((lambda (_%L153213%_) + (let ((__tmp153898 + (lambda (_%g153226153228%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self152995%_ - _%g153067153069%_)))) - (__tmp153737 - (let ((__tmp153738 - (lambda (_%g153071153074%_ - _%g153072153076%_) - (cons _%g153071153074%_ - _%g153072153076%_)))) + _%self153154%_ + _%g153226153228%_)))) + (__tmp153896 + (let ((__tmp153897 + (lambda (_%g153230153233%_ + _%g153231153235%_) + (cons _%g153230153233%_ + _%g153231153235%_)))) (declare (not safe)) - (__foldr1 __tmp153738 '() _%L153054%_)))) + (__foldr1 __tmp153897 '() _%L153213%_)))) (declare (not safe)) - (__ormap1 __tmp153739 __tmp153737))) - _%expr153012153051%_)))))) + (__ormap1 __tmp153898 __tmp153896))) + _%expr153171153210%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153007153035%_ - _%target153004153030%_ + (_%loop153166153194%_ + _%target153163153189%_ '())) - (_%g152998153017%_ - _%g152999153020%_))))) - (_%g152998153017%_ _%g152999153020%_)))) - (_%g152998153017%_ _%g152999153020%_))))) - (_%g152997153079%_ _%stx152996%_)))) + (_%g153157153176%_ + _%g153158153179%_))))) + (_%g153157153176%_ _%g153158153179%_)))) + (_%g153157153176%_ _%g153158153179%_))))) + (_%g153156153238%_ _%stx153155%_)))) (define gxc#find-let-values% - (lambda (_%self152845%_ _%stx152846%_) - (let* ((_%g152848152883%_ - (lambda (_%g152849152880%_) + (lambda (_%self153004%_ _%stx153005%_) + (let* ((_%g153007153042%_ + (lambda (_%g153008153039%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152849152880%_)))) - (_%g152847152992%_ - (lambda (_%g152849152886%_) + _%g153008153039%_)))) + (_%g153006153151%_ + (lambda (_%g153008153045%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152849152886%_)) - (let ((_%e152853152888%_ + (gx#stx-pair? _%g153008153045%_)) + (let ((_%e153012153047%_ (let () (declare (not safe)) - (gx#stx-e _%g152849152886%_)))) - (let ((_%hd152854152891%_ + (gx#stx-e _%g153008153045%_)))) + (let ((_%hd153013153050%_ (let () (declare (not safe)) - (##car _%e152853152888%_))) - (_%tl152855152893%_ + (##car _%e153012153047%_))) + (_%tl153014153052%_ (let () (declare (not safe)) - (##cdr _%e152853152888%_)))) + (##cdr _%e153012153047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152855152893%_)) - (let ((_%e152856152896%_ + (gx#stx-pair? _%tl153014153052%_)) + (let ((_%e153015153055%_ (let () (declare (not safe)) - (gx#stx-e _%tl152855152893%_)))) - (let ((_%hd152857152899%_ + (gx#stx-e _%tl153014153052%_)))) + (let ((_%hd153016153058%_ (let () (declare (not safe)) - (##car _%e152856152896%_))) - (_%tl152858152901%_ + (##car _%e153015153055%_))) + (_%tl153017153060%_ (let () (declare (not safe)) - (##cdr _%e152856152896%_)))) + (##cdr _%e153015153055%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd152857152899%_)) - (let ((_g153740_ + (gx#stx-pair/null? _%hd153016153058%_)) + (let ((_g153899_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd152857152899%_ + _%hd153016153058%_ '0)))) (begin - (let ((_g153741_ + (let ((_g153900_ (let () (declare (not safe)) - (if (##values? _g153740_) + (if (##values? _g153899_) (##vector-length - _g153740_) + _g153899_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153741_ 2))) + (##fx= _g153900_ 2))) (error "Context expects 2 values" - _g153741_))) - (let ((_%target152859152904%_ + _g153900_))) + (let ((_%target153018153063%_ (let () (declare (not safe)) - (##vector-ref _g153740_ 0))) - (_%tl152861152906%_ + (##vector-ref _g153899_ 0))) + (_%tl153020153065%_ (let () (declare (not safe)) (##vector-ref - _g153740_ + _g153899_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152861152906%_)) - (letrec ((_%loop152862152909%_ - (lambda (_%hd152860152912%_ + _%tl153020153065%_)) + (letrec ((_%loop153021153068%_ + (lambda (_%hd153019153071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr152866152914%_ - _%bind152867152916%_) + _%expr153025153073%_ + _%bind153026153075%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152860152912%_)) - (let ((_%e152863152919%_ + (gx#stx-pair? _%hd153019153071%_)) + (let ((_%e153022153078%_ (let () (declare (not safe)) - (gx#stx-e _%hd152860152912%_)))) - (let ((_%lp-hd152864152922%_ + (gx#stx-e _%hd153019153071%_)))) + (let ((_%lp-hd153023153081%_ (let () (declare (not safe)) - (##car _%e152863152919%_))) - (_%lp-tl152865152924%_ + (##car _%e153022153078%_))) + (_%lp-tl153024153083%_ (let () (declare (not safe)) - (##cdr _%e152863152919%_)))) + (##cdr _%e153022153078%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd152864152922%_)) - (let ((_%e152873152927%_ + (gx#stx-pair? _%lp-hd153023153081%_)) + (let ((_%e153032153086%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd152864152922%_)))) - (let ((_%hd152874152930%_ + (gx#stx-e _%lp-hd153023153081%_)))) + (let ((_%hd153033153089%_ (let () (declare (not safe)) - (##car _%e152873152927%_))) - (_%tl152875152932%_ + (##car _%e153032153086%_))) + (_%tl153034153091%_ (let () (declare (not safe)) - (##cdr _%e152873152927%_)))) + (##cdr _%e153032153086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152875152932%_)) - (let ((_%e152876152935%_ + (gx#stx-pair? _%tl153034153091%_)) + (let ((_%e153035153094%_ (let () (declare (not safe)) (gx#stx-e - _%tl152875152932%_)))) - (let ((_%hd152877152938%_ + _%tl153034153091%_)))) + (let ((_%hd153036153097%_ (let () (declare (not safe)) - (##car _%e152876152935%_))) - (_%tl152878152940%_ + (##car _%e153035153094%_))) + (_%tl153037153099%_ (let () (declare (not safe)) - (##cdr _%e152876152935%_)))) + (##cdr _%e153035153094%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152878152940%_)) - (_%loop152862152909%_ - _%lp-tl152865152924%_ - (cons _%hd152877152938%_ - _%expr152866152914%_) - (cons _%hd152874152930%_ - _%bind152867152916%_)) - (_%g152848152883%_ - _%g152849152886%_)))) - (_%g152848152883%_ - _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_)))) - (let ((_%expr152868152943%_ - (reverse _%expr152866152914%_)) - (_%bind152869152945%_ - (reverse _%bind152867152916%_))) + _%tl153037153099%_)) + (_%loop153021153068%_ + _%lp-tl153024153083%_ + (cons _%hd153036153097%_ + _%expr153025153073%_) + (cons _%hd153033153089%_ + _%bind153026153075%_)) + (_%g153007153042%_ + _%g153008153045%_)))) + (_%g153007153042%_ + _%g153008153045%_)))) + (_%g153007153042%_ _%g153008153045%_)))) + (let ((_%expr153027153102%_ + (reverse _%expr153025153073%_)) + (_%bind153028153104%_ + (reverse _%bind153026153075%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152858152901%_)) - (let ((_%e152870152948%_ + (gx#stx-pair? _%tl153017153060%_)) + (let ((_%e153029153107%_ (let () (declare (not safe)) - (gx#stx-e _%tl152858152901%_)))) - (let ((_%hd152871152951%_ + (gx#stx-e _%tl153017153060%_)))) + (let ((_%hd153030153110%_ (let () (declare (not safe)) - (##car _%e152870152948%_))) - (_%tl152872152953%_ + (##car _%e153029153107%_))) + (_%tl153031153112%_ (let () (declare (not safe)) - (##cdr _%e152870152948%_)))) + (##cdr _%e153029153107%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152872152953%_)) - ((lambda (_%L152956%_ - _%L152957%_ - _%L152958%_) - (let ((_%$e152989%_ - (let ((__tmp153744 - (lambda (_%g152977152979%_) + (gx#stx-null? _%tl153031153112%_)) + ((lambda (_%L153115%_ + _%L153116%_ + _%L153117%_) + (let ((_%$e153148%_ + (let ((__tmp153903 + (lambda (_%g153136153138%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self152845%_ - _%g152977152979%_)))) - (__tmp153742 - (let ((__tmp153743 - (lambda (_%g152981152984%_ + _%self153004%_ + _%g153136153138%_)))) + (__tmp153901 + (let ((__tmp153902 + (lambda (_%g153140153143%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g152982152986%_) - (cons _%g152981152984%_ _%g152982152986%_)))) + _%g153141153145%_) + (cons _%g153140153143%_ _%g153141153145%_)))) (declare (not safe)) - (__foldr1 __tmp153743 '() _%L152957%_)))) + (__foldr1 __tmp153902 '() _%L153116%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp153744 - __tmp153742)))) - (if _%$e152989%_ - _%$e152989%_ + __tmp153903 + __tmp153901)))) + (if _%$e153148%_ + _%$e153148%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152845%_ - _%L152956%_))))) - _%hd152871152951%_ - _%expr152868152943%_ - _%bind152869152945%_) - (_%g152848152883%_ _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_))))))) + _%self153004%_ + _%L153115%_))))) + _%hd153030153110%_ + _%expr153027153102%_ + _%bind153028153104%_) + (_%g153007153042%_ _%g153008153045%_)))) + (_%g153007153042%_ _%g153008153045%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop152862152909%_ - _%target152859152904%_ + (_%loop153021153068%_ + _%target153018153063%_ '() '())) - (_%g152848152883%_ - _%g152849152886%_))))) - (_%g152848152883%_ _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_))))) - (_%g152847152992%_ _%stx152846%_)))) + (_%g153007153042%_ + _%g153008153045%_))))) + (_%g153007153042%_ _%g153008153045%_)))) + (_%g153007153042%_ _%g153008153045%_)))) + (_%g153007153042%_ _%g153008153045%_))))) + (_%g153006153151%_ _%stx153005%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self152789%_ _%stx152790%_) - (let* ((_%g152792152805%_ - (lambda (_%g152793152802%_) + (lambda (_%self152948%_ _%stx152949%_) + (let* ((_%g152951152964%_ + (lambda (_%g152952152961%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152793152802%_)))) - (_%g152791152842%_ - (lambda (_%g152793152808%_) + _%g152952152961%_)))) + (_%g152950153001%_ + (lambda (_%g152952152967%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152793152808%_)) - (let ((_%e152795152810%_ + (gx#stx-pair? _%g152952152967%_)) + (let ((_%e152954152969%_ (let () (declare (not safe)) - (gx#stx-e _%g152793152808%_)))) - (let ((_%hd152796152813%_ + (gx#stx-e _%g152952152967%_)))) + (let ((_%hd152955152972%_ (let () (declare (not safe)) - (##car _%e152795152810%_))) - (_%tl152797152815%_ + (##car _%e152954152969%_))) + (_%tl152956152974%_ (let () (declare (not safe)) - (##cdr _%e152795152810%_)))) + (##cdr _%e152954152969%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152797152815%_)) - (let ((_%e152798152818%_ + (gx#stx-pair? _%tl152956152974%_)) + (let ((_%e152957152977%_ (let () (declare (not safe)) - (gx#stx-e _%tl152797152815%_)))) - (let ((_%hd152799152821%_ + (gx#stx-e _%tl152956152974%_)))) + (let ((_%hd152958152980%_ (let () (declare (not safe)) - (##car _%e152798152818%_))) - (_%tl152800152823%_ + (##car _%e152957152977%_))) + (_%tl152959152982%_ (let () (declare (not safe)) - (##cdr _%e152798152818%_)))) + (##cdr _%e152957152977%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152800152823%_)) - ((lambda (_%L152826%_) - (let ((__tmp153746 - (lambda (_%g152837152839%_) + (gx#stx-null? _%tl152959152982%_)) + ((lambda (_%L152985%_) + (let ((__tmp153905 + (lambda (_%g152996152998%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L152826%_ - _%g152837152839%_)))) - (__tmp153745 + _%L152985%_ + _%g152996152998%_)))) + (__tmp153904 (let () (declare (not safe)) (slot-ref__0 - _%self152789%_ + _%self152948%_ 'ids)))) (declare (not safe)) - (__find __tmp153746 __tmp153745))) - _%hd152799152821%_) - (_%g152792152805%_ _%g152793152808%_)))) - (_%g152792152805%_ _%g152793152808%_)))) - (_%g152792152805%_ _%g152793152808%_))))) - (_%g152791152842%_ _%stx152790%_)))) + (__find __tmp153905 __tmp153904))) + _%hd152958152980%_) + (_%g152951152964%_ _%g152952152967%_)))) + (_%g152951152964%_ _%g152952152967%_)))) + (_%g152951152964%_ _%g152952152967%_))))) + (_%g152950153001%_ _%stx152949%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self152714%_ _%stx152715%_) - (let* ((_%g152717152734%_ - (lambda (_%g152718152731%_) + (lambda (_%self152873%_ _%stx152874%_) + (let* ((_%g152876152893%_ + (lambda (_%g152877152890%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152718152731%_)))) - (_%g152716152786%_ - (lambda (_%g152718152737%_) + _%g152877152890%_)))) + (_%g152875152945%_ + (lambda (_%g152877152896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152718152737%_)) - (let ((_%e152721152739%_ + (gx#stx-pair? _%g152877152896%_)) + (let ((_%e152880152898%_ (let () (declare (not safe)) - (gx#stx-e _%g152718152737%_)))) - (let ((_%hd152722152742%_ + (gx#stx-e _%g152877152896%_)))) + (let ((_%hd152881152901%_ (let () (declare (not safe)) - (##car _%e152721152739%_))) - (_%tl152723152744%_ + (##car _%e152880152898%_))) + (_%tl152882152903%_ (let () (declare (not safe)) - (##cdr _%e152721152739%_)))) + (##cdr _%e152880152898%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152723152744%_)) - (let ((_%e152724152747%_ + (gx#stx-pair? _%tl152882152903%_)) + (let ((_%e152883152906%_ (let () (declare (not safe)) - (gx#stx-e _%tl152723152744%_)))) - (let ((_%hd152725152750%_ + (gx#stx-e _%tl152882152903%_)))) + (let ((_%hd152884152909%_ (let () (declare (not safe)) - (##car _%e152724152747%_))) - (_%tl152726152752%_ + (##car _%e152883152906%_))) + (_%tl152885152911%_ (let () (declare (not safe)) - (##cdr _%e152724152747%_)))) + (##cdr _%e152883152906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152726152752%_)) - (let ((_%e152727152755%_ + (gx#stx-pair? _%tl152885152911%_)) + (let ((_%e152886152914%_ (let () (declare (not safe)) - (gx#stx-e _%tl152726152752%_)))) - (let ((_%hd152728152758%_ + (gx#stx-e _%tl152885152911%_)))) + (let ((_%hd152887152917%_ (let () (declare (not safe)) - (##car _%e152727152755%_))) - (_%tl152729152760%_ + (##car _%e152886152914%_))) + (_%tl152888152919%_ (let () (declare (not safe)) - (##cdr _%e152727152755%_)))) + (##cdr _%e152886152914%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152729152760%_)) - ((lambda (_%L152763%_ - _%L152764%_) - (let ((_%$e152783%_ - (let ((__tmp153748 - (lambda (_%g152778152780%_) + _%tl152888152919%_)) + ((lambda (_%L152922%_ + _%L152923%_) + (let ((_%$e152942%_ + (let ((__tmp153907 + (lambda (_%g152937152939%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L152764%_ - _%g152778152780%_)))) - (__tmp153747 + _%L152923%_ + _%g152937152939%_)))) + (__tmp153906 (let () (declare (not safe)) - (slot-ref__0 _%self152714%_ 'ids)))) + (slot-ref__0 _%self152873%_ 'ids)))) (declare (not safe)) - (__find __tmp153748 __tmp153747)))) + (__find __tmp153907 __tmp153906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e152783%_ - _%$e152783%_ + (if _%$e152942%_ + _%$e152942%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152714%_ - _%L152763%_))))) - _%hd152728152758%_ - _%hd152725152750%_) - (_%g152717152734%_ - _%g152718152737%_)))) - (_%g152717152734%_ _%g152718152737%_)))) - (_%g152717152734%_ _%g152718152737%_)))) - (_%g152717152734%_ _%g152718152737%_))))) - (_%g152716152786%_ _%stx152715%_)))))) + _%self152873%_ + _%L152922%_))))) + _%hd152887152917%_ + _%hd152884152909%_) + (_%g152876152893%_ + _%g152877152896%_)))) + (_%g152876152893%_ _%g152877152896%_)))) + (_%g152876152893%_ _%g152877152896%_)))) + (_%g152876152893%_ _%g152877152896%_))))) + (_%g152875152945%_ _%stx152874%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index b18c4e1ef..135d2ddc1 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]#_g153750_| + (define |gxc[1]#_g153909_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153752_| + (define |gxc[1]#_g153911_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153754_| + (define |gxc[1]#_g153913_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153756_| + (define |gxc[1]#_g153915_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153758_| + (define |gxc[1]#_g153917_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153760_| + (define |gxc[1]#_g153919_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153762_| + (define |gxc[1]#_g153921_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153764_| + (define |gxc[1]#_g153923_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153766_| + (define |gxc[1]#_g153925_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153767_| + (define |gxc[1]#_g153926_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153769_| + (define |gxc[1]#_g153928_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153770_| + (define |gxc[1]#_g153929_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153772_| + (define |gxc[1]#_g153931_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153773_| + (define |gxc[1]#_g153932_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153775_| + (define |gxc[1]#_g153934_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153776_| + (define |gxc[1]#_g153935_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153779_| + (define |gxc[1]#_g153938_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153781_| + (define |gxc[1]#_g153940_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153783_| + (define |gxc[1]#_g153942_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153785_| + (define |gxc[1]#_g153944_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153787_| + (define |gxc[1]#_g153946_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153789_| + (define |gxc[1]#_g153948_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153791_| + (define |gxc[1]#_g153950_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153793_| + (define |gxc[1]#_g153952_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153795_| + (define |gxc[1]#_g153954_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153797_| + (define |gxc[1]#_g153956_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153799_| + (define |gxc[1]#_g153958_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153801_| + (define |gxc[1]#_g153960_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153803_| + (define |gxc[1]#_g153962_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153805_| + (define |gxc[1]#_g153964_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153807_| + (define |gxc[1]#_g153966_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153809_| + (define |gxc[1]#_g153968_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153811_| + (define |gxc[1]#_g153970_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153813_| + (define |gxc[1]#_g153972_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153815_| + (define |gxc[1]#_g153974_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153817_| + (define |gxc[1]#_g153976_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153819_| + (define |gxc[1]#_g153978_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153821_| + (define |gxc[1]#_g153980_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153823_| + (define |gxc[1]#_g153982_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153825_| + (define |gxc[1]#_g153984_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153827_| + (define |gxc[1]#_g153986_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153829_| + (define |gxc[1]#_g153988_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153831_| + (define |gxc[1]#_g153990_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj153687 + (let ((__obj153846 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153687 + __obj153846 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153687 + __obj153846 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '6 '#f '#f)) - (let ((__tmp153749 (cons |gxc[1]#_g153750_| '()))) + (##unchecked-structure-set! __obj153846 '() '6 '#f '#f)) + (let ((__tmp153908 (cons |gxc[1]#_g153909_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153749 '3 '#f '#f)) + (##unchecked-structure-set! __obj153846 __tmp153908 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153846 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153846 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153846 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#f '11 '#f '#f)) - (let ((__tmp153751 |gxc[1]#_g153752_|)) + (##unchecked-structure-set! __obj153846 '#f '11 '#f '#f)) + (let ((__tmp153910 |gxc[1]#_g153911_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153751 '12 '#f '#f)) - (let ((__tmp153753 |gxc[1]#_g153754_|)) + (##unchecked-structure-set! __obj153846 __tmp153910 '12 '#f '#f)) + (let ((__tmp153912 |gxc[1]#_g153913_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153753 '13 '#f '#f)) - (let ((__tmp153755 |gxc[1]#_g153756_|)) + (##unchecked-structure-set! __obj153846 __tmp153912 '13 '#f '#f)) + (let ((__tmp153914 |gxc[1]#_g153915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153755 '14 '#f '#f)) + (##unchecked-structure-set! __obj153846 __tmp153914 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153846 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '20 '#f '#f)) - __obj153687)) + (##unchecked-structure-set! __obj153846 '() '20 '#f '#f)) + __obj153846)) (define |gxc[:0:]#::expression-subst| - (let ((__obj153689 + (let ((__obj153848 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153689 + __obj153848 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153689 + __obj153848 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj153848 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '(id new-id) '6 '#f '#f)) - (let ((__tmp153757 (cons |gxc[1]#_g153758_| '()))) + (##unchecked-structure-set! __obj153848 '(id new-id) '6 '#f '#f)) + (let ((__tmp153916 (cons |gxc[1]#_g153917_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153757 '3 '#f '#f)) + (##unchecked-structure-set! __obj153848 __tmp153916 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153848 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153848 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153848 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#f '11 '#f '#f)) - (let ((__tmp153759 |gxc[1]#_g153760_|)) + (##unchecked-structure-set! __obj153848 '#f '11 '#f '#f)) + (let ((__tmp153918 |gxc[1]#_g153919_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153759 '12 '#f '#f)) - (let ((__tmp153761 |gxc[1]#_g153762_|)) + (##unchecked-structure-set! __obj153848 __tmp153918 '12 '#f '#f)) + (let ((__tmp153920 |gxc[1]#_g153921_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153761 '13 '#f '#f)) - (let ((__tmp153763 |gxc[1]#_g153764_|)) + (##unchecked-structure-set! __obj153848 __tmp153920 '13 '#f '#f)) + (let ((__tmp153922 |gxc[1]#_g153923_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153763 '14 '#f '#f)) - (let ((__tmp153765 - (cons (cons 'id |gxc[1]#_g153766_|) - (cons (cons 'new-id |gxc[1]#_g153767_|) '())))) + (##unchecked-structure-set! __obj153848 __tmp153922 '14 '#f '#f)) + (let ((__tmp153924 + (cons (cons 'id |gxc[1]#_g153925_|) + (cons (cons 'new-id |gxc[1]#_g153926_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153765 '15 '#f '#f)) - (let ((__tmp153768 - (cons (cons 'id |gxc[1]#_g153769_|) - (cons (cons 'new-id |gxc[1]#_g153770_|) '())))) + (##unchecked-structure-set! __obj153848 __tmp153924 '15 '#f '#f)) + (let ((__tmp153927 + (cons (cons 'id |gxc[1]#_g153928_|) + (cons (cons 'new-id |gxc[1]#_g153929_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153768 '16 '#f '#f)) - (let ((__tmp153771 - (cons (cons 'id |gxc[1]#_g153772_|) - (cons (cons 'new-id |gxc[1]#_g153773_|) '())))) + (##unchecked-structure-set! __obj153848 __tmp153927 '16 '#f '#f)) + (let ((__tmp153930 + (cons (cons 'id |gxc[1]#_g153931_|) + (cons (cons 'new-id |gxc[1]#_g153932_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153771 '17 '#f '#f)) - (let ((__tmp153774 - (cons (cons 'id |gxc[1]#_g153775_|) - (cons (cons 'new-id |gxc[1]#_g153776_|) '())))) + (##unchecked-structure-set! __obj153848 __tmp153930 '17 '#f '#f)) + (let ((__tmp153933 + (cons (cons 'id |gxc[1]#_g153934_|) + (cons (cons 'new-id |gxc[1]#_g153935_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153774 '18 '#f '#f)) + (##unchecked-structure-set! __obj153848 __tmp153933 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153848 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153848 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '() '20 '#f '#f)) - __obj153689)) + (##unchecked-structure-set! __obj153848 '() '20 '#f '#f)) + __obj153848)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj153691 + (let ((__obj153850 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153691 + __obj153850 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153691 + __obj153850 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj153850 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '(subst) '6 '#f '#f)) - (let ((__tmp153777 (cons |gxc[1]#_g153758_| '()))) + (##unchecked-structure-set! __obj153850 '(subst) '6 '#f '#f)) + (let ((__tmp153936 (cons |gxc[1]#_g153917_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153777 '3 '#f '#f)) + (##unchecked-structure-set! __obj153850 __tmp153936 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153850 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153850 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153850 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#f '11 '#f '#f)) - (let ((__tmp153778 |gxc[1]#_g153779_|)) + (##unchecked-structure-set! __obj153850 '#f '11 '#f '#f)) + (let ((__tmp153937 |gxc[1]#_g153938_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153778 '12 '#f '#f)) - (let ((__tmp153780 |gxc[1]#_g153781_|)) + (##unchecked-structure-set! __obj153850 __tmp153937 '12 '#f '#f)) + (let ((__tmp153939 |gxc[1]#_g153940_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153780 '13 '#f '#f)) - (let ((__tmp153782 |gxc[1]#_g153783_|)) + (##unchecked-structure-set! __obj153850 __tmp153939 '13 '#f '#f)) + (let ((__tmp153941 |gxc[1]#_g153942_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153782 '14 '#f '#f)) - (let ((__tmp153784 (cons (cons 'subst |gxc[1]#_g153785_|) '()))) + (##unchecked-structure-set! __obj153850 __tmp153941 '14 '#f '#f)) + (let ((__tmp153943 (cons (cons 'subst |gxc[1]#_g153944_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153784 '15 '#f '#f)) - (let ((__tmp153786 (cons (cons 'subst |gxc[1]#_g153787_|) '()))) + (##unchecked-structure-set! __obj153850 __tmp153943 '15 '#f '#f)) + (let ((__tmp153945 (cons (cons 'subst |gxc[1]#_g153946_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153786 '16 '#f '#f)) - (let ((__tmp153788 (cons (cons 'subst |gxc[1]#_g153789_|) '()))) + (##unchecked-structure-set! __obj153850 __tmp153945 '16 '#f '#f)) + (let ((__tmp153947 (cons (cons 'subst |gxc[1]#_g153948_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153788 '17 '#f '#f)) - (let ((__tmp153790 (cons (cons 'subst |gxc[1]#_g153791_|) '()))) + (##unchecked-structure-set! __obj153850 __tmp153947 '17 '#f '#f)) + (let ((__tmp153949 (cons (cons 'subst |gxc[1]#_g153950_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153790 '18 '#f '#f)) + (##unchecked-structure-set! __obj153850 __tmp153949 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153850 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153850 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '() '20 '#f '#f)) - __obj153691)) + (##unchecked-structure-set! __obj153850 '() '20 '#f '#f)) + __obj153850)) (define |gxc[:0:]#::find-expression| - (let ((__obj153693 + (let ((__obj153852 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153693 + __obj153852 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153693 + __obj153852 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '6 '#f '#f)) - (let ((__tmp153792 (cons |gxc[1]#_g153793_| '()))) + (##unchecked-structure-set! __obj153852 '() '6 '#f '#f)) + (let ((__tmp153951 (cons |gxc[1]#_g153952_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153792 '3 '#f '#f)) + (##unchecked-structure-set! __obj153852 __tmp153951 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153852 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153852 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153852 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '11 '#f '#f)) - (let ((__tmp153794 |gxc[1]#_g153795_|)) + (##unchecked-structure-set! __obj153852 '#f '11 '#f '#f)) + (let ((__tmp153953 |gxc[1]#_g153954_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153794 '12 '#f '#f)) - (let ((__tmp153796 |gxc[1]#_g153797_|)) + (##unchecked-structure-set! __obj153852 __tmp153953 '12 '#f '#f)) + (let ((__tmp153955 |gxc[1]#_g153956_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153796 '13 '#f '#f)) - (let ((__tmp153798 |gxc[1]#_g153799_|)) + (##unchecked-structure-set! __obj153852 __tmp153955 '13 '#f '#f)) + (let ((__tmp153957 |gxc[1]#_g153958_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153798 '14 '#f '#f)) + (##unchecked-structure-set! __obj153852 __tmp153957 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153852 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '20 '#f '#f)) - __obj153693)) + (##unchecked-structure-set! __obj153852 '() '20 '#f '#f)) + __obj153852)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj153694 + (let ((__obj153853 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153694 + __obj153853 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj153853 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj153853 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '(ids) '6 '#f '#f)) - (let ((__tmp153800 (cons |gxc[1]#_g153801_| '()))) + (##unchecked-structure-set! __obj153853 '(ids) '6 '#f '#f)) + (let ((__tmp153959 (cons |gxc[1]#_g153960_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153800 '3 '#f '#f)) + (##unchecked-structure-set! __obj153853 __tmp153959 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153853 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153853 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153853 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#f '11 '#f '#f)) - (let ((__tmp153802 |gxc[1]#_g153803_|)) + (##unchecked-structure-set! __obj153853 '#f '11 '#f '#f)) + (let ((__tmp153961 |gxc[1]#_g153962_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153802 '12 '#f '#f)) - (let ((__tmp153804 |gxc[1]#_g153805_|)) + (##unchecked-structure-set! __obj153853 __tmp153961 '12 '#f '#f)) + (let ((__tmp153963 |gxc[1]#_g153964_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153804 '13 '#f '#f)) - (let ((__tmp153806 |gxc[1]#_g153807_|)) + (##unchecked-structure-set! __obj153853 __tmp153963 '13 '#f '#f)) + (let ((__tmp153965 |gxc[1]#_g153966_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153806 '14 '#f '#f)) - (let ((__tmp153808 (cons (cons 'ids |gxc[1]#_g153809_|) '()))) + (##unchecked-structure-set! __obj153853 __tmp153965 '14 '#f '#f)) + (let ((__tmp153967 (cons (cons 'ids |gxc[1]#_g153968_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153808 '15 '#f '#f)) - (let ((__tmp153810 (cons (cons 'ids |gxc[1]#_g153811_|) '()))) + (##unchecked-structure-set! __obj153853 __tmp153967 '15 '#f '#f)) + (let ((__tmp153969 (cons (cons 'ids |gxc[1]#_g153970_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153810 '16 '#f '#f)) - (let ((__tmp153812 (cons (cons 'ids |gxc[1]#_g153813_|) '()))) + (##unchecked-structure-set! __obj153853 __tmp153969 '16 '#f '#f)) + (let ((__tmp153971 (cons (cons 'ids |gxc[1]#_g153972_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153812 '17 '#f '#f)) - (let ((__tmp153814 (cons (cons 'ids |gxc[1]#_g153815_|) '()))) + (##unchecked-structure-set! __obj153853 __tmp153971 '17 '#f '#f)) + (let ((__tmp153973 (cons (cons 'ids |gxc[1]#_g153974_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153814 '18 '#f '#f)) + (##unchecked-structure-set! __obj153853 __tmp153973 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153853 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153853 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '() '20 '#f '#f)) - __obj153694)) + (##unchecked-structure-set! __obj153853 '() '20 '#f '#f)) + __obj153853)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj153696 + (let ((__obj153855 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153696 + __obj153855 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153696 + __obj153855 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153855 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '(table) '6 '#f '#f)) - (let ((__tmp153816 (cons |gxc[1]#_g153817_| '()))) + (##unchecked-structure-set! __obj153855 '(table) '6 '#f '#f)) + (let ((__tmp153975 (cons |gxc[1]#_g153976_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153816 '3 '#f '#f)) + (##unchecked-structure-set! __obj153855 __tmp153975 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153855 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153855 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153855 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#f '11 '#f '#f)) - (let ((__tmp153818 |gxc[1]#_g153819_|)) + (##unchecked-structure-set! __obj153855 '#f '11 '#f '#f)) + (let ((__tmp153977 |gxc[1]#_g153978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153818 '12 '#f '#f)) - (let ((__tmp153820 |gxc[1]#_g153821_|)) + (##unchecked-structure-set! __obj153855 __tmp153977 '12 '#f '#f)) + (let ((__tmp153979 |gxc[1]#_g153980_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153820 '13 '#f '#f)) - (let ((__tmp153822 |gxc[1]#_g153823_|)) + (##unchecked-structure-set! __obj153855 __tmp153979 '13 '#f '#f)) + (let ((__tmp153981 |gxc[1]#_g153982_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153822 '14 '#f '#f)) - (let ((__tmp153824 (cons (cons 'table |gxc[1]#_g153825_|) '()))) + (##unchecked-structure-set! __obj153855 __tmp153981 '14 '#f '#f)) + (let ((__tmp153983 (cons (cons 'table |gxc[1]#_g153984_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153824 '15 '#f '#f)) - (let ((__tmp153826 (cons (cons 'table |gxc[1]#_g153827_|) '()))) + (##unchecked-structure-set! __obj153855 __tmp153983 '15 '#f '#f)) + (let ((__tmp153985 (cons (cons 'table |gxc[1]#_g153986_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153826 '16 '#f '#f)) - (let ((__tmp153828 (cons (cons 'table |gxc[1]#_g153829_|) '()))) + (##unchecked-structure-set! __obj153855 __tmp153985 '16 '#f '#f)) + (let ((__tmp153987 (cons (cons 'table |gxc[1]#_g153988_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153828 '17 '#f '#f)) - (let ((__tmp153830 (cons (cons 'table |gxc[1]#_g153831_|) '()))) + (##unchecked-structure-set! __obj153855 __tmp153987 '17 '#f '#f)) + (let ((__tmp153989 (cons (cons 'table |gxc[1]#_g153990_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153830 '18 '#f '#f)) + (##unchecked-structure-set! __obj153855 __tmp153989 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153855 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153855 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '20 '#f '#f)) - __obj153696)))) + (##unchecked-structure-set! __obj153855 '() '20 '#f '#f)) + __obj153855)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 0b52dc0f4..ab709d710 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 1713631273) + (define gerbil/compiler/optimize::timestamp 1733687567) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp200552 - (let ((__obj200546 + (let ((__tmp200711 + (let ((__obj200705 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj200546)) - __obj200546))) + (gxc#optimizer-info:::init! __obj200705)) + __obj200705))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp200552))))) + (gxc#current-compile-optimizer-info __tmp200711))))) (define gxc#optimize! - (lambda (_%ctx200155%_) - (let ((__tmp200555 + (lambda (_%ctx200314%_) + (let ((__tmp200714 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx200155%_) - (gxc#optimizer-load-ssxi-deps _%ctx200155%_) - (let ((__tmp200557 + (gxc#optimizer-load-builtin-ssxi _%ctx200314%_) + (gxc#optimizer-load-ssxi-deps _%ctx200314%_) + (let ((__tmp200716 (##structure-ref (let () (declare (not safe)) @@ -36,41 +36,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200556 + (__tmp200715 (##structure-ref - _%ctx200155%_ + _%ctx200314%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp200557 __tmp200556 '#t)) - (let ((_%code200158%_ + (hash-put! __tmp200716 __tmp200715 '#t)) + (let ((_%code200317%_ (gxc#optimize-source (##structure-ref - _%ctx200155%_ + _%ctx200314%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx200155%_ - _%code200158%_ + _%ctx200314%_ + _%code200317%_ '11 gx#module-context::t '#f)))) - (__tmp200554 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp200553 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp200713 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp200712 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp200555 + __tmp200714 gxc#current-compile-mutators - __tmp200554 + __tmp200713 gxc#current-compile-local-type - __tmp200553)))) + __tmp200712)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx200141%_) - (letrec ((_%load-it!200143%_ - (lambda (_%id200153%_) - (if (let ((__tmp200558 + (lambda (_%ctx200300%_) + (letrec ((_%load-it!200302%_ + (lambda (_%id200312%_) + (if (let ((__tmp200717 (##structure-ref (let () (declare (not safe)) @@ -79,11 +79,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp200558 _%id200153%_)) + (hash-get __tmp200717 _%id200312%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id200153%_) - (let ((__tmp200559 + (gxc#optimizer-import-ssxi-by-id _%id200312%_) + (let ((__tmp200718 (##structure-ref (let () (declare (not safe)) @@ -92,29 +92,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp200559 _%id200153%_ '#t))))))) - (let* ((_%modid200145%_ + (hash-put! __tmp200718 _%id200312%_ '#t))))))) + (let* ((_%modid200304%_ (##structure-ref - _%ctx200141%_ + _%ctx200300%_ '1 gx#expander-context::t '#f)) - (_%modid-str200147%_ (symbol->string _%modid200145%_))) + (_%modid-str200306%_ (symbol->string _%modid200304%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str200147%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str200306%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str200147%_))) + (##string-prefix? '"gerbil/core" _%modid-str200306%_))) (let () (declare (not safe)) (##for-each - _%load-it!200143%_ + _%load-it!200302%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!200143%_ + _%load-it!200302%_ '(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 (_%ctx200078%_) - (letrec* ((_%deps200080%_ - (let* ((_%imports200131%_ + (lambda (_%ctx200237%_) + (letrec* ((_%deps200239%_ + (let* ((_%imports200290%_ (##structure-ref - _%ctx200078%_ + _%ctx200237%_ '8 gx#module-context::t '#f)) - (_%$e200133%_ + (_%$e200292%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx200078%_)))) - (if _%$e200133%_ - ((lambda (_%g200135200137%_) - (cons _%g200135200137%_ _%imports200131%_)) - _%$e200133%_) - _%imports200131%_)))) - (let _%lp200082%_ ((_%rest200084%_ _%deps200080%_)) - (let* ((_%rest200085200093%_ _%rest200084%_) - (_%else200087200101%_ (lambda () '#!void)) - (_%K200089200119%_ - (lambda (_%rest200104%_ _%hd200105%_) + (gx#core-context-prelude__% _%ctx200237%_)))) + (if _%$e200292%_ + ((lambda (_%g200294200296%_) + (cons _%g200294200296%_ _%imports200290%_)) + _%$e200292%_) + _%imports200290%_)))) + (let _%lp200241%_ ((_%rest200243%_ _%deps200239%_)) + (let* ((_%rest200244200252%_ _%rest200243%_) + (_%else200246200260%_ (lambda () '#!void)) + (_%K200248200278%_ + (lambda (_%rest200263%_ _%hd200264%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200105%_ + _%hd200264%_ 'gx#module-context::t)) (let () - (if (let ((__tmp200561 + (if (let ((__tmp200720 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200560 + (__tmp200719 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200561 __tmp200560)) + (hash-get __tmp200720 __tmp200719)) '#!void (begin - (let ((_%$e200108%_ + (let ((_%$e200267%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200105%_)))) - (if _%$e200108%_ - ((lambda (_%pre200111%_) - (_%lp200082%_ - (cons _%pre200111%_ + _%hd200264%_)))) + (if _%$e200267%_ + ((lambda (_%pre200270%_) + (_%lp200241%_ + (cons _%pre200270%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '8 '#f '#f))))) - _%$e200108%_) - (_%lp200082%_ + _%$e200267%_) + (_%lp200241%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd200105%_))) - (_%lp200082%_ _%rest200104%_)) + (gxc#optimizer-load-ssxi _%hd200264%_))) + (_%lp200241%_ _%rest200263%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200105%_ + _%hd200264%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp200563 + (if (let ((__tmp200722 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200562 + (__tmp200721 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200563 __tmp200562)) + (hash-get __tmp200722 __tmp200721)) '#!void (begin - (_%lp200082%_ + (_%lp200241%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd200105%_))) - (_%lp200082%_ _%rest200104%_)) + (gxc#optimizer-load-ssxi _%hd200264%_))) + (_%lp200241%_ _%rest200263%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200105%_ + _%hd200264%_ 'gx#module-import::t)) - (_%lp200082%_ + (_%lp200241%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '1 '#f '#f)) - _%rest200104%_)) + _%rest200263%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200105%_ + _%hd200264%_ 'gx#module-export::t)) - (_%lp200082%_ + (_%lp200241%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '1 '#f '#f)) - _%rest200104%_)) + _%rest200263%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200105%_ + _%hd200264%_ 'gx#import-set::t)) - (_%lp200082%_ + (_%lp200241%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd200264%_ '1 '#f '#f)) - _%rest200104%_)) + _%rest200263%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200105%_)))))))))) - (if (pair? _%rest200085200093%_) - (let ((_%hd200090200122%_ + _%hd200264%_)))))))))) + (if (pair? _%rest200244200252%_) + (let ((_%hd200249200281%_ (let () (declare (not safe)) - (##car _%rest200085200093%_))) - (_%tl200091200124%_ + (##car _%rest200244200252%_))) + (_%tl200250200283%_ (let () (declare (not safe)) - (##cdr _%rest200085200093%_)))) - (let* ((_%hd200127%_ _%hd200090200122%_) - (_%rest200129%_ _%tl200091200124%_)) - (_%K200089200119%_ _%rest200129%_ _%hd200127%_))) + (##cdr _%rest200244200252%_)))) + (let* ((_%hd200286%_ _%hd200249200281%_) + (_%rest200288%_ _%tl200250200283%_)) + (_%K200248200278%_ _%rest200288%_ _%hd200286%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx200058%_) + (lambda (_%ctx200217%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx200058%_ + _%ctx200217%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx200058%_ + _%ctx200217%_ '7 '#f '#f)))) '#!void - (let* ((_%ht200060%_ + (let* ((_%ht200219%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id200062%_ + (_%id200221%_ (##structure-ref - _%ctx200058%_ + _%ctx200217%_ '1 gx#expander-context::t '#f)) - (_%mod200064%_ + (_%mod200223%_ (let () (declare (not safe)) - (hash-get _%ht200060%_ _%id200062%_))) - (_%$e200067%_ _%mod200064%_)) - (if _%$e200067%_ - _%$e200067%_ - (let* ((_%mod200070%_ - (gxc#optimizer-import-ssxi _%ctx200058%_)) - (_%val200075%_ - (let ((_%$e200072%_ _%mod200070%_)) - (if _%$e200072%_ _%$e200072%_ '#!void)))) + (hash-get _%ht200219%_ _%id200221%_))) + (_%$e200226%_ _%mod200223%_)) + (if _%$e200226%_ + _%$e200226%_ + (let* ((_%mod200229%_ + (gxc#optimizer-import-ssxi _%ctx200217%_)) + (_%val200234%_ + (let ((_%$e200231%_ _%mod200229%_)) + (if _%$e200231%_ _%$e200231%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht200060%_ _%id200062%_ _%val200075%_)) - _%val200075%_)))))) + (hash-put! _%ht200219%_ _%id200221%_ _%val200234%_)) + _%val200234%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx200056%_) - (if (##structure-ref _%ctx200056%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx200215%_) + (if (##structure-ref _%ctx200215%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx200056%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx200215%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id200033%_) - (letrec ((_%catch-e200035%_ - (lambda (_%exn200054%_) + (lambda (_%id200192%_) + (letrec ((_%catch-e200194%_ + (lambda (_%exn200213%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn200054%_)) + (error-message _%exn200213%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn200054%_)) + (display-exception__0 _%exn200213%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id200033%_)))) + _%id200192%_)))) '#f)) - (_%import-e200036%_ + (_%import-e200195%_ (lambda () - (let* ((_%str-id200039%_ - (let ((__tmp200564 + (let* ((_%str-id200198%_ + (let ((__tmp200723 (let () (declare (not safe)) (gxc#module-id->path-string - _%id200033%_)))) + _%id200192%_)))) (declare (not safe)) - (##string-append __tmp200564 '".ssxi"))) - (_%artefact-path200047%_ - (let ((_%odir200040200042%_ + (##string-append __tmp200723 '".ssxi"))) + (_%artefact-path200206%_ + (let ((_%odir200199200201%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir200040200042%_ - (let ((_%odir200045%_ _%odir200040200042%_)) + (if _%odir200199200201%_ + (let ((_%odir200204%_ _%odir200199200201%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id200039%_ + _%str-id200198%_ '".ss")) - _%odir200045%_)) + _%odir200204%_)) '#f))) - (_%library-path200049%_ - (let ((__tmp200565 + (_%library-path200208%_ + (let ((__tmp200724 (let () (declare (not safe)) (##string-append '":" - _%str-id200039%_ + _%str-id200198%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp200565))) - (_%ssxi-path200051%_ - (if (and _%artefact-path200047%_ - (file-exists? _%artefact-path200047%_)) - _%artefact-path200047%_ - _%library-path200049%_))) + (##string->symbol __tmp200724))) + (_%ssxi-path200210%_ + (if (and _%artefact-path200206%_ + (file-exists? _%artefact-path200206%_)) + _%artefact-path200206%_ + _%library-path200208%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path200051%_)) + _%ssxi-path200210%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path200051%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path200210%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e200035%_ _%import-e200036%_))))) + (__with-catch _%catch-e200194%_ _%import-e200195%_))))) (define gxc#optimize-source - (lambda (_%stx200018%_) + (lambda (_%stx200177%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx200018%_)) + (gxc#apply-collect-mutators _%stx200177%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx200018%_)) - (let* ((_%stx200020%_ + (gxc#apply-collect-top-level-type-info _%stx200177%_)) + (let* ((_%stx200179%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx200018%_))) - (_%stx200022%_ + (gxc#apply-generate-method-specializers _%stx200177%_))) + (_%stx200181%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx200020%_)))) + (gxc#apply-lift-top-lambdas _%stx200179%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx200022%_)) + (gxc#apply-collect-type-info _%stx200181%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx200022%_)) - (let _%fixpoint200025%_ ((_%current200027%_ + (gxc#apply-collect-mutable-type-info _%stx200181%_)) + (let _%fixpoint200184%_ ((_%current200186%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx200022%_)) - (let ((_%refined200029%_ + (gxc#apply-refine-type-info _%stx200181%_)) + (let ((_%refined200188%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current200027%_ _%refined200029%_) + (if (equal? _%current200186%_ _%refined200188%_) '#!void - (_%fixpoint200025%_ _%refined200029%_)))) + (_%fixpoint200184%_ _%refined200188%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx200022%_)) + (gxc#apply-check-return-type _%stx200181%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx200022%_)) - (let ((_%stx200031%_ + (gxc#apply-collect-top-level-declarations _%stx200181%_)) + (let ((_%stx200190%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx200022%_)))) + (gxc#apply-optimize-annotated _%stx200181%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx200031%_))))) + (gxc#apply-optimize-call _%stx200190%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp200567 (list gxc#::generate-runtime-empty::t)) - (__tmp200566 (cons (cons 'final: '#t) '()))) + (let ((__tmp200726 (list gxc#::generate-runtime-empty::t)) + (__tmp200725 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp200567 + __tmp200726 '() - __tmp200566 + __tmp200725 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args200015%_ - (apply make-instance gxc#::generate-ssxi::t _%$args200015%_))) + (lambda _%$args200174%_ + (apply make-instance gxc#::generate-ssxi::t _%$args200174%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp200568 + (let ((__tmp200727 (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 __tmp200568))) + (__make-promise __tmp200727))) (define gxc#apply-generate-ssxi - (lambda (_%stx200007%_) + (lambda (_%stx200166%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self200010%_ - (let ((__obj200548 + (let* ((_%self200169%_ + (let ((__obj200707 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj200548)) - (__tmp200569 + __obj200707)) + (__tmp200728 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self200010%_ _%stx200007%_))))) + (gxc#compile-e__1 _%self200169%_ _%stx200166%_))))) (declare (not safe)) (__call-with-parameters - __tmp200569 + __tmp200728 gxc#current-compile-method - _%self200010%_)))) + _%self200169%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self199967%_ _%stx199968%_) - (let* ((_%g199970199980%_ - (lambda (_%g199971199977%_) + (lambda (_%self200126%_ _%stx200127%_) + (let* ((_%g200129200139%_ + (lambda (_%g200130200136%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199971199977%_)))) - (_%g199969200004%_ - (lambda (_%g199971199983%_) + _%g200130200136%_)))) + (_%g200128200163%_ + (lambda (_%g200130200142%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199971199983%_)) - (let ((_%e199973199985%_ + (gx#stx-pair? _%g200130200142%_)) + (let ((_%e200132200144%_ (let () (declare (not safe)) - (gx#stx-e _%g199971199983%_)))) - (let ((_%hd199974199988%_ + (gx#stx-e _%g200130200142%_)))) + (let ((_%hd200133200147%_ (let () (declare (not safe)) - (##car _%e199973199985%_))) - (_%tl199975199990%_ + (##car _%e200132200144%_))) + (_%tl200134200149%_ (let () (declare (not safe)) - (##cdr _%e199973199985%_)))) - ((lambda (_%L199993%_) - (let ((__tmp200572 + (##cdr _%e200132200144%_)))) + ((lambda (_%L200152%_) + (let ((__tmp200731 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self199967%_ - _%stx199968%_)))) - (__tmp200570 - (let ((__tmp200571 + _%self200126%_ + _%stx200127%_)))) + (__tmp200729 + (let ((__tmp200730 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp200571 '1)))) + (##fx+ __tmp200730 '1)))) (declare (not safe)) (__call-with-parameters - __tmp200572 + __tmp200731 gx#current-expander-phi - __tmp200570))) - _%tl199975199990%_))) - (_%g199970199980%_ _%g199971199983%_))))) - (_%g199969200004%_ _%stx199968%_)))) + __tmp200729))) + _%tl200134200149%_))) + (_%g200129200139%_ _%g200130200142%_))))) + (_%g200128200163%_ _%stx200127%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self199906%_ _%stx199907%_) - (let* ((_%g199909199923%_ - (lambda (_%g199910199920%_) + (lambda (_%self200065%_ _%stx200066%_) + (let* ((_%g200068200082%_ + (lambda (_%g200069200079%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199910199920%_)))) - (_%g199908199964%_ - (lambda (_%g199910199926%_) + _%g200069200079%_)))) + (_%g200067200123%_ + (lambda (_%g200069200085%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199910199926%_)) - (let ((_%e199913199928%_ + (gx#stx-pair? _%g200069200085%_)) + (let ((_%e200072200087%_ (let () (declare (not safe)) - (gx#stx-e _%g199910199926%_)))) - (let ((_%hd199914199931%_ + (gx#stx-e _%g200069200085%_)))) + (let ((_%hd200073200090%_ (let () (declare (not safe)) - (##car _%e199913199928%_))) - (_%tl199915199933%_ + (##car _%e200072200087%_))) + (_%tl200074200092%_ (let () (declare (not safe)) - (##cdr _%e199913199928%_)))) + (##cdr _%e200072200087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199915199933%_)) - (let ((_%e199916199936%_ + (gx#stx-pair? _%tl200074200092%_)) + (let ((_%e200075200095%_ (let () (declare (not safe)) - (gx#stx-e _%tl199915199933%_)))) - (let ((_%hd199917199939%_ + (gx#stx-e _%tl200074200092%_)))) + (let ((_%hd200076200098%_ (let () (declare (not safe)) - (##car _%e199916199936%_))) - (_%tl199918199941%_ + (##car _%e200075200095%_))) + (_%tl200077200100%_ (let () (declare (not safe)) - (##cdr _%e199916199936%_)))) - ((lambda (_%L199944%_ _%L199945%_) - (let* ((_%ctx199958%_ + (##cdr _%e200075200095%_)))) + ((lambda (_%L200103%_ _%L200104%_) + (let* ((_%ctx200117%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L199945%_))) - (_%code199960%_ + _%L200104%_))) + (_%code200119%_ (##structure-ref - _%ctx199958%_ + _%ctx200117%_ '11 gx#module-context::t '#f)) - (__tmp200573 + (__tmp200732 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self199906%_ - _%code199960%_))))) + _%self200065%_ + _%code200119%_))))) (declare (not safe)) (__call-with-parameters - __tmp200573 + __tmp200732 gx#current-expander-context - _%ctx199958%_))) - _%tl199918199941%_ - _%hd199917199939%_))) - (_%g199909199923%_ _%g199910199926%_)))) - (_%g199909199923%_ _%g199910199926%_))))) - (_%g199908199964%_ _%stx199907%_)))) + _%ctx200117%_))) + _%tl200077200100%_ + _%hd200076200098%_))) + (_%g200068200082%_ _%g200069200085%_)))) + (_%g200068200082%_ _%g200069200085%_))))) + (_%g200067200123%_ _%stx200066%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self199711%_ _%stx199712%_) - (letrec ((_%generate-e199714%_ - (lambda (_%id199891%_) - (let* ((_%sym199893%_ - (if (let ((__tmp200574 + (lambda (_%self199870%_ _%stx199871%_) + (letrec ((_%generate-e199873%_ + (lambda (_%id200050%_) + (let* ((_%sym200052%_ + (if (let ((__tmp200733 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp200574)) + (gx#identifier? __tmp200733)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id199891%_)) + (gxc#identifier-symbol _%id200050%_)) '#f)) - (_%$e199895%_ + (_%$e200054%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym199893%_)))) - (if _%$e199895%_ - ((lambda (_%klass199898%_) + (gxc#optimizer-lookup-class _%sym200052%_)))) + (if _%$e200054%_ + ((lambda (_%klass200057%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym199893%_)) + _%sym200052%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym199893%_ - (cons (let ((__method200549 + (cons _%sym200052%_ + (cons (let ((__method200708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass199898%_ 'typedecl)))) - (if __method200549 + (__method-ref _%klass200057%_ 'typedecl)))) + (if __method200708 (let () (declare (not safe)) - (__method200549 _%klass199898%_)) + (__method200708 _%klass200057%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass199898%_ + _%klass200057%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym199893%_ + (cons _%sym200052%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym199893%_ + (cons _%sym200052%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e199895%_) - (let ((_%$e199900%_ + _%$e200054%_) + (let ((_%$e200059%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym199893%_)))) - (if _%$e199900%_ - ((lambda (_%type199903%_) + (gxc#optimizer-lookup-type _%sym200052%_)))) + (if _%$e200059%_ + ((lambda (_%type200062%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym199893%_ + _%sym200052%_ '" " - _%type199903%_)) + _%type200062%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type199903%_ + _%type200062%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym199893%_ + (cons _%sym200052%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym199893%_ '())) + (cons _%sym200052%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type199903%_)) + _%type200062%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym199893%_ - (cons (let ((__method200550 + (cons _%sym200052%_ + (cons (let ((__method200709 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type199903%_ 'typedecl)))) - (if __method200550 + (__method-ref _%type200062%_ 'typedecl)))) + (if __method200709 (let () (declare (not safe)) - (__method200550 _%type199903%_)) + (__method200709 _%type200062%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type199903%_ 'typedecl)) + (error '"Missing method" _%type200062%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e199900%_) + _%$e200059%_) '(begin)))))))) - (let* ((_%__stx200161200162%_ _%stx199712%_) - (_%g199717199755%_ + (let* ((_%__stx200320200321%_ _%stx199871%_) + (_%g199876199914%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200161200162%_))))) - (let ((_%__kont200163200164%_ - (lambda (_%L199873%_) (_%generate-e199714%_ _%L199873%_))) - (_%__kont200165200166%_ - (lambda (_%L199808%_) - (let ((_%types199834%_ - (map _%generate-e199714%_ - (let ((__tmp200575 - (lambda (_%g199826199829%_ - _%g199827199831%_) - (cons _%g199826199829%_ - _%g199827199831%_)))) + _%__stx200320200321%_))))) + (let ((_%__kont200322200323%_ + (lambda (_%L200032%_) (_%generate-e199873%_ _%L200032%_))) + (_%__kont200324200325%_ + (lambda (_%L199967%_) + (let ((_%types199993%_ + (map _%generate-e199873%_ + (let ((__tmp200734 + (lambda (_%g199985199988%_ + _%g199986199990%_) + (cons _%g199985199988%_ + _%g199986199990%_)))) (declare (not safe)) - (__foldr1 __tmp200575 '() _%L199808%_))))) - (cons 'begin _%types199834%_))))) - (let ((_%__match200216200217%_ - (lambda (_%e199733199760%_ - _%hd199734199763%_ - _%tl199735199765%_ - _%e199736199768%_ - _%hd199737199771%_ - _%tl199738199773%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) - (letrec ((_%loop199742199781%_ - (lambda (_%hd199740199784%_ - _%id199746199786%_) + (__foldr1 __tmp200734 '() _%L199967%_))))) + (cons 'begin _%types199993%_))))) + (let ((_%__match200375200376%_ + (lambda (_%e199892199919%_ + _%hd199893199922%_ + _%tl199894199924%_ + _%e199895199927%_ + _%hd199896199930%_ + _%tl199897199932%_ + _%__splice200326200327%_ + _%target199898199935%_ + _%tl199900199937%_) + (letrec ((_%loop199901199940%_ + (lambda (_%hd199899199943%_ + _%id199905199945%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199740199784%_)) - (let ((_%e199743199789%_ + (gx#stx-pair? _%hd199899199943%_)) + (let ((_%e199902199948%_ (let () (declare (not safe)) (gx#stx-e - _%hd199740199784%_)))) - (let ((_%lp-tl199745199794%_ + _%hd199899199943%_)))) + (let ((_%lp-tl199904199953%_ (let () (declare (not safe)) - (##cdr _%e199743199789%_))) - (_%lp-hd199744199792%_ + (##cdr _%e199902199948%_))) + (_%lp-hd199903199951%_ (let () (declare (not safe)) - (##car _%e199743199789%_)))) - (_%loop199742199781%_ - _%lp-tl199745199794%_ - (cons _%lp-hd199744199792%_ - _%id199746199786%_)))) - (let ((_%id199747199797%_ - (reverse _%id199746199786%_))) + (##car _%e199902199948%_)))) + (_%loop199901199940%_ + _%lp-tl199904199953%_ + (cons _%lp-hd199903199951%_ + _%id199905199945%_)))) + (let ((_%id199906199956%_ + (reverse _%id199905199945%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199738199773%_)) - (let ((_%e199748199800%_ + _%tl199897199932%_)) + (let ((_%e199907199959%_ (let () (declare (not safe)) (gx#stx-e - _%tl199738199773%_)))) - (let ((_%tl199750199805%_ + _%tl199897199932%_)))) + (let ((_%tl199909199964%_ (let () (declare (not safe)) - (##cdr _%e199748199800%_))) - (_%hd199749199803%_ + (##cdr _%e199907199959%_))) + (_%hd199908199962%_ (let () (declare (not safe)) - (##car _%e199748199800%_)))) + (##car _%e199907199959%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199750199805%_)) - (_%__kont200165200166%_ - _%id199747199797%_) + _%tl199909199964%_)) + (_%__kont200324200325%_ + _%id199906199956%_) (let () (declare (not safe)) - (_%g199717199755%_))))) + (_%g199876199914%_))))) (let () (declare (not safe)) - (_%g199717199755%_)))))))) - (_%loop199742199781%_ _%target199739199776%_ '()))))) + (_%g199876199914%_)))))))) + (_%loop199901199940%_ _%target199898199935%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200161200162%_)) - (let ((_%e199720199841%_ + (gx#stx-pair? _%__stx200320200321%_)) + (let ((_%e199879200000%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200161200162%_)))) - (let ((_%tl199722199846%_ + (gx#stx-e _%__stx200320200321%_)))) + (let ((_%tl199881200005%_ (let () (declare (not safe)) - (##cdr _%e199720199841%_))) - (_%hd199721199844%_ + (##cdr _%e199879200000%_))) + (_%hd199880200003%_ (let () (declare (not safe)) - (##car _%e199720199841%_)))) + (##car _%e199879200000%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199722199846%_)) - (let ((_%e199723199849%_ + (gx#stx-pair? _%tl199881200005%_)) + (let ((_%e199882200008%_ (let () (declare (not safe)) - (gx#stx-e _%tl199722199846%_)))) - (let ((_%tl199725199854%_ + (gx#stx-e _%tl199881200005%_)))) + (let ((_%tl199884200013%_ (let () (declare (not safe)) - (##cdr _%e199723199849%_))) - (_%hd199724199852%_ + (##cdr _%e199882200008%_))) + (_%hd199883200011%_ (let () (declare (not safe)) - (##car _%e199723199849%_)))) + (##car _%e199882200008%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199724199852%_)) - (let ((_%e199726199857%_ + (gx#stx-pair? _%hd199883200011%_)) + (let ((_%e199885200016%_ (let () (declare (not safe)) - (gx#stx-e _%hd199724199852%_)))) - (let ((_%tl199728199862%_ + (gx#stx-e _%hd199883200011%_)))) + (let ((_%tl199887200021%_ (let () (declare (not safe)) - (##cdr _%e199726199857%_))) - (_%hd199727199860%_ + (##cdr _%e199885200016%_))) + (_%hd199886200019%_ (let () (declare (not safe)) - (##car _%e199726199857%_)))) + (##car _%e199885200016%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199728199862%_)) + _%tl199887200021%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199725199854%_)) - (let ((_%e199729199865%_ + _%tl199884200013%_)) + (let ((_%e199888200024%_ (let () (declare (not safe)) (gx#stx-e - _%tl199725199854%_)))) - (let ((_%tl199731199870%_ + _%tl199884200013%_)))) + (let ((_%tl199890200029%_ (let () (declare (not safe)) - (##cdr _%e199729199865%_))) - (_%hd199730199868%_ + (##cdr _%e199888200024%_))) + (_%hd199889200027%_ (let () (declare (not safe)) - (##car _%e199729199865%_)))) + (##car _%e199888200024%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199731199870%_)) - (_%__kont200163200164%_ - _%hd199727199860%_) + _%tl199890200029%_)) + (_%__kont200322200323%_ + _%hd199886200019%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd199883200011%_)) + (let ((_%__splice200326200327%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd199724199852%_ '0)))) - (let ((_%tl199741199778%_ + (gx#syntax-split-splice _%hd199883200011%_ '0)))) + (let ((_%tl199900199937%_ (let () (declare (not safe)) - (##vector-ref _%__splice200167200168%_ '1))) - (_%target199739199776%_ + (##vector-ref _%__splice200326200327%_ '1))) + (_%target199898199935%_ (let () (declare (not safe)) - (##vector-ref _%__splice200167200168%_ '0)))) + (##vector-ref _%__splice200326200327%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) + (gx#stx-null? _%tl199900199937%_)) + (_%__match200375200376%_ + _%e199879200000%_ + _%hd199880200003%_ + _%tl199881200005%_ + _%e199882200008%_ + _%hd199883200011%_ + _%tl199884200013%_ + _%__splice200326200327%_ + _%target199898199935%_ + _%tl199900199937%_) (let () (declare (not safe)) - (_%g199717199755%_))))) - (let () (declare (not safe)) (_%g199717199755%_)))))) + (_%g199876199914%_))))) + (let () (declare (not safe)) (_%g199876199914%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd199883200011%_)) + (let ((_%__splice200326200327%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199724199852%_ + _%hd199883200011%_ '0)))) - (let ((_%tl199741199778%_ + (let ((_%tl199900199937%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice200167200168%_ '1))) - (_%target199739199776%_ + (##vector-ref _%__splice200326200327%_ '1))) + (_%target199898199935%_ (let () (declare (not safe)) - (##vector-ref _%__splice200167200168%_ '0)))) + (##vector-ref _%__splice200326200327%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) - (let () (declare (not safe)) (_%g199717199755%_))))) + (gx#stx-null? _%tl199900199937%_)) + (_%__match200375200376%_ + _%e199879200000%_ + _%hd199880200003%_ + _%tl199881200005%_ + _%e199882200008%_ + _%hd199883200011%_ + _%tl199884200013%_ + _%__splice200326200327%_ + _%target199898199935%_ + _%tl199900199937%_) + (let () (declare (not safe)) (_%g199876199914%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199717199755%_)))) + (_%g199876199914%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd199883200011%_)) + (let ((_%__splice200326200327%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199724199852%_ + _%hd199883200011%_ '0)))) - (let ((_%tl199741199778%_ + (let ((_%tl199900199937%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice200326200327%_ '1))) - (_%target199739199776%_ + (_%target199898199935%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice200326200327%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) + _%tl199900199937%_)) + (_%__match200375200376%_ + _%e199879200000%_ + _%hd199880200003%_ + _%tl199881200005%_ + _%e199882200008%_ + _%hd199883200011%_ + _%tl199884200013%_ + _%__splice200326200327%_ + _%target199898199935%_ + _%tl199900199937%_) (let () (declare (not safe)) - (_%g199717199755%_))))) + (_%g199876199914%_))))) (let () (declare (not safe)) - (_%g199717199755%_)))))) + (_%g199876199914%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd199883200011%_)) + (let ((_%__splice200326200327%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199724199852%_ + _%hd199883200011%_ '0)))) - (let ((_%tl199741199778%_ + (let ((_%tl199900199937%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice200326200327%_ '1))) - (_%target199739199776%_ + (_%target199898199935%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice200326200327%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) + _%tl199900199937%_)) + (_%__match200375200376%_ + _%e199879200000%_ + _%hd199880200003%_ + _%tl199881200005%_ + _%e199882200008%_ + _%hd199883200011%_ + _%tl199884200013%_ + _%__splice200326200327%_ + _%target199898199935%_ + _%tl199900199937%_) (let () (declare (not safe)) - (_%g199717199755%_))))) + (_%g199876199914%_))))) (let () (declare (not safe)) - (_%g199717199755%_)))))) + (_%g199876199914%_)))))) (let () (declare (not safe)) - (_%g199717199755%_))))) - (let () (declare (not safe)) (_%g199717199755%_))))))))) + (_%g199876199914%_))))) + (let () (declare (not safe)) (_%g199876199914%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self199264%_ _%stx199265%_) - (let* ((_%__stx200219200220%_ _%stx199265%_) - (_%g199269199371%_ + (lambda (_%self199423%_ _%stx199424%_) + (let* ((_%__stx200378200379%_ _%stx199424%_) + (_%g199428199530%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200219200220%_))))) - (let ((_%__kont200221200222%_ - (lambda (_%L199661%_ - _%L199662%_ - _%L199663%_ - _%L199664%_ - _%L199665%_) + _%__stx200378200379%_))))) + (let ((_%__kont200380200381%_ + (lambda (_%L199820%_ + _%L199821%_ + _%L199822%_ + _%L199823%_ + _%L199824%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199664%_)) + (gxc#identifier-symbol _%L199823%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199663%_)) + (gx#stx-e _%L199822%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199662%_)) + _%L199821%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199661%_)) + (gx#stx-e _%L199820%_)) '()))))))) - (_%__kont200223200224%_ - (lambda (_%L199487%_ _%L199488%_ _%L199489%_ _%L199490%_) + (_%__kont200382200383%_ + (lambda (_%L199646%_ _%L199647%_ _%L199648%_ _%L199649%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199489%_)) + (gxc#identifier-symbol _%L199648%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199488%_)) + (gx#stx-e _%L199647%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199487%_)) + _%L199646%_)) (cons '#f '()))))))) - (_%__kont200225200226%_ (lambda () '(begin)))) - (let ((_%__match200354200355%_ - (lambda (_%e199276199533%_ - _%hd199277199536%_ - _%tl199278199538%_ - _%e199279199541%_ - _%hd199280199544%_ - _%tl199281199546%_ - _%e199282199549%_ - _%hd199283199552%_ - _%tl199284199554%_ - _%e199285199557%_ - _%hd199286199560%_ - _%tl199287199562%_ - _%e199288199565%_ - _%hd199289199568%_ - _%tl199290199570%_ - _%e199291199573%_ - _%hd199292199576%_ - _%tl199293199578%_ - _%e199294199581%_ - _%hd199295199584%_ - _%tl199296199586%_ - _%e199297199589%_ - _%hd199298199592%_ - _%tl199299199594%_ - _%e199300199597%_ - _%hd199301199600%_ - _%tl199302199602%_ - _%e199303199605%_ - _%hd199304199608%_ - _%tl199305199610%_ - _%e199306199613%_ - _%hd199307199616%_ - _%tl199308199618%_ - _%e199309199621%_ - _%hd199310199624%_ - _%tl199311199626%_ - _%e199312199629%_ - _%hd199313199632%_ - _%tl199314199634%_ - _%e199315199637%_ - _%hd199316199640%_ - _%tl199317199642%_ - _%e199318199645%_ - _%hd199319199648%_ - _%tl199320199650%_ - _%e199321199653%_ - _%hd199322199656%_ - _%tl199323199658%_) - (let ((_%L199661%_ _%hd199322199656%_) - (_%L199662%_ _%hd199313199632%_) - (_%L199663%_ _%hd199304199608%_) - (_%L199664%_ _%hd199295199584%_) - (_%L199665%_ _%hd199286199560%_)) + (_%__kont200384200385%_ (lambda () '(begin)))) + (let ((_%__match200513200514%_ + (lambda (_%e199435199692%_ + _%hd199436199695%_ + _%tl199437199697%_ + _%e199438199700%_ + _%hd199439199703%_ + _%tl199440199705%_ + _%e199441199708%_ + _%hd199442199711%_ + _%tl199443199713%_ + _%e199444199716%_ + _%hd199445199719%_ + _%tl199446199721%_ + _%e199447199724%_ + _%hd199448199727%_ + _%tl199449199729%_ + _%e199450199732%_ + _%hd199451199735%_ + _%tl199452199737%_ + _%e199453199740%_ + _%hd199454199743%_ + _%tl199455199745%_ + _%e199456199748%_ + _%hd199457199751%_ + _%tl199458199753%_ + _%e199459199756%_ + _%hd199460199759%_ + _%tl199461199761%_ + _%e199462199764%_ + _%hd199463199767%_ + _%tl199464199769%_ + _%e199465199772%_ + _%hd199466199775%_ + _%tl199467199777%_ + _%e199468199780%_ + _%hd199469199783%_ + _%tl199470199785%_ + _%e199471199788%_ + _%hd199472199791%_ + _%tl199473199793%_ + _%e199474199796%_ + _%hd199475199799%_ + _%tl199476199801%_ + _%e199477199804%_ + _%hd199478199807%_ + _%tl199479199809%_ + _%e199480199812%_ + _%hd199481199815%_ + _%tl199482199817%_) + (let ((_%L199820%_ _%hd199481199815%_) + (_%L199821%_ _%hd199472199791%_) + (_%L199822%_ _%hd199463199767%_) + (_%L199823%_ _%hd199454199743%_) + (_%L199824%_ _%hd199445199719%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L199665%_ + _%L199824%_ 'bind-method!)) - (_%__kont200221200222%_ - _%L199661%_ - _%L199662%_ - _%L199663%_ - _%L199664%_ - _%L199665%_) - (_%__kont200225200226%_)))))) + (_%__kont200380200381%_ + _%L199820%_ + _%L199821%_ + _%L199822%_ + _%L199823%_ + _%L199824%_) + (_%__kont200384200385%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200219200220%_)) - (let ((_%e199276199533%_ + (gx#stx-pair? _%__stx200378200379%_)) + (let ((_%e199435199692%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200219200220%_)))) - (let ((_%tl199278199538%_ + (gx#stx-e _%__stx200378200379%_)))) + (let ((_%tl199437199697%_ (let () (declare (not safe)) - (##cdr _%e199276199533%_))) - (_%hd199277199536%_ + (##cdr _%e199435199692%_))) + (_%hd199436199695%_ (let () (declare (not safe)) - (##car _%e199276199533%_)))) + (##car _%e199435199692%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199278199538%_)) - (let ((_%e199279199541%_ + (gx#stx-pair? _%tl199437199697%_)) + (let ((_%e199438199700%_ (let () (declare (not safe)) - (gx#stx-e _%tl199278199538%_)))) - (let ((_%tl199281199546%_ + (gx#stx-e _%tl199437199697%_)))) + (let ((_%tl199440199705%_ (let () (declare (not safe)) - (##cdr _%e199279199541%_))) - (_%hd199280199544%_ + (##cdr _%e199438199700%_))) + (_%hd199439199703%_ (let () (declare (not safe)) - (##car _%e199279199541%_)))) + (##car _%e199438199700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199280199544%_)) - (let ((_%e199282199549%_ + (gx#stx-pair? _%hd199439199703%_)) + (let ((_%e199441199708%_ (let () (declare (not safe)) - (gx#stx-e _%hd199280199544%_)))) - (let ((_%tl199284199554%_ + (gx#stx-e _%hd199439199703%_)))) + (let ((_%tl199443199713%_ (let () (declare (not safe)) - (##cdr _%e199282199549%_))) - (_%hd199283199552%_ + (##cdr _%e199441199708%_))) + (_%hd199442199711%_ (let () (declare (not safe)) - (##car _%e199282199549%_)))) + (##car _%e199441199708%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199283199552%_)) + _%hd199442199711%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199283199552%_)) + _%hd199442199711%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199284199554%_)) - (let ((_%e199285199557%_ + _%tl199443199713%_)) + (let ((_%e199444199716%_ (let () (declare (not safe)) (gx#stx-e - _%tl199284199554%_)))) - (let ((_%tl199287199562%_ + _%tl199443199713%_)))) + (let ((_%tl199446199721%_ (let () (declare (not safe)) - (##cdr _%e199285199557%_))) - (_%hd199286199560%_ + (##cdr _%e199444199716%_))) + (_%hd199445199719%_ (let () (declare (not safe)) - (##car _%e199285199557%_)))) + (##car _%e199444199716%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199287199562%_)) + _%tl199446199721%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl199281199546%_)) - (let ((_%e199288199565%_ + (gx#stx-pair? _%tl199440199705%_)) + (let ((_%e199447199724%_ (let () (declare (not safe)) - (gx#stx-e _%tl199281199546%_)))) - (let ((_%tl199290199570%_ + (gx#stx-e _%tl199440199705%_)))) + (let ((_%tl199449199729%_ (let () (declare (not safe)) - (##cdr _%e199288199565%_))) - (_%hd199289199568%_ + (##cdr _%e199447199724%_))) + (_%hd199448199727%_ (let () (declare (not safe)) - (##car _%e199288199565%_)))) + (##car _%e199447199724%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199289199568%_)) - (let ((_%e199291199573%_ + (gx#stx-pair? _%hd199448199727%_)) + (let ((_%e199450199732%_ (let () (declare (not safe)) - (gx#stx-e _%hd199289199568%_)))) - (let ((_%tl199293199578%_ + (gx#stx-e _%hd199448199727%_)))) + (let ((_%tl199452199737%_ (let () (declare (not safe)) - (##cdr _%e199291199573%_))) - (_%hd199292199576%_ + (##cdr _%e199450199732%_))) + (_%hd199451199735%_ (let () (declare (not safe)) - (##car _%e199291199573%_)))) + (##car _%e199450199732%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199292199576%_)) + (gx#identifier? _%hd199451199735%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199292199576%_)) + _%hd199451199735%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199293199578%_)) - (let ((_%e199294199581%_ + _%tl199452199737%_)) + (let ((_%e199453199740%_ (let () (declare (not safe)) (gx#stx-e - _%tl199293199578%_)))) - (let ((_%tl199296199586%_ + _%tl199452199737%_)))) + (let ((_%tl199455199745%_ (let () (declare (not safe)) - (##cdr _%e199294199581%_))) - (_%hd199295199584%_ + (##cdr _%e199453199740%_))) + (_%hd199454199743%_ (let () (declare (not safe)) - (##car _%e199294199581%_)))) + (##car _%e199453199740%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199296199586%_)) + _%tl199455199745%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199290199570%_)) - (let ((_%e199297199589%_ + _%tl199449199729%_)) + (let ((_%e199456199748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199290199570%_)))) - (let ((_%tl199299199594%_ + (gx#stx-e _%tl199449199729%_)))) + (let ((_%tl199458199753%_ (let () (declare (not safe)) - (##cdr _%e199297199589%_))) - (_%hd199298199592%_ + (##cdr _%e199456199748%_))) + (_%hd199457199751%_ (let () (declare (not safe)) - (##car _%e199297199589%_)))) + (##car _%e199456199748%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199298199592%_)) - (let ((_%e199300199597%_ + (gx#stx-pair? _%hd199457199751%_)) + (let ((_%e199459199756%_ (let () (declare (not safe)) - (gx#stx-e _%hd199298199592%_)))) - (let ((_%tl199302199602%_ + (gx#stx-e _%hd199457199751%_)))) + (let ((_%tl199461199761%_ (let () (declare (not safe)) - (##cdr _%e199300199597%_))) - (_%hd199301199600%_ + (##cdr _%e199459199756%_))) + (_%hd199460199759%_ (let () (declare (not safe)) - (##car _%e199300199597%_)))) + (##car _%e199459199756%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199301199600%_)) + (gx#identifier? _%hd199460199759%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199301199600%_)) + _%hd199460199759%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199302199602%_)) - (let ((_%e199303199605%_ + (gx#stx-pair? _%tl199461199761%_)) + (let ((_%e199462199764%_ (let () (declare (not safe)) (gx#stx-e - _%tl199302199602%_)))) - (let ((_%tl199305199610%_ + _%tl199461199761%_)))) + (let ((_%tl199464199769%_ (let () (declare (not safe)) - (##cdr _%e199303199605%_))) - (_%hd199304199608%_ + (##cdr _%e199462199764%_))) + (_%hd199463199767%_ (let () (declare (not safe)) - (##car _%e199303199605%_)))) + (##car _%e199462199764%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199305199610%_)) + _%tl199464199769%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199299199594%_)) - (let ((_%e199306199613%_ + _%tl199458199753%_)) + (let ((_%e199465199772%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl199299199594%_)))) - (let ((_%tl199308199618%_ - (let () (declare (not safe)) (##cdr _%e199306199613%_))) - (_%hd199307199616%_ + (gx#stx-e _%tl199458199753%_)))) + (let ((_%tl199467199777%_ + (let () (declare (not safe)) (##cdr _%e199465199772%_))) + (_%hd199466199775%_ (let () (declare (not safe)) - (##car _%e199306199613%_)))) + (##car _%e199465199772%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199307199616%_)) - (let ((_%e199309199621%_ + (gx#stx-pair? _%hd199466199775%_)) + (let ((_%e199468199780%_ (let () (declare (not safe)) - (gx#stx-e _%hd199307199616%_)))) - (let ((_%tl199311199626%_ + (gx#stx-e _%hd199466199775%_)))) + (let ((_%tl199470199785%_ (let () (declare (not safe)) - (##cdr _%e199309199621%_))) - (_%hd199310199624%_ + (##cdr _%e199468199780%_))) + (_%hd199469199783%_ (let () (declare (not safe)) - (##car _%e199309199621%_)))) + (##car _%e199468199780%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199310199624%_)) + (gx#identifier? _%hd199469199783%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd199310199624%_)) + (gx#stx-eq? '%#ref _%hd199469199783%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199311199626%_)) - (let ((_%e199312199629%_ + (gx#stx-pair? _%tl199470199785%_)) + (let ((_%e199471199788%_ (let () (declare (not safe)) - (gx#stx-e _%tl199311199626%_)))) - (let ((_%tl199314199634%_ + (gx#stx-e _%tl199470199785%_)))) + (let ((_%tl199473199793%_ (let () (declare (not safe)) - (##cdr _%e199312199629%_))) - (_%hd199313199632%_ + (##cdr _%e199471199788%_))) + (_%hd199472199791%_ (let () (declare (not safe)) - (##car _%e199312199629%_)))) + (##car _%e199471199788%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199314199634%_)) + _%tl199473199793%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199308199618%_)) - (let ((_%e199315199637%_ + _%tl199467199777%_)) + (let ((_%e199474199796%_ (let () (declare (not safe)) (gx#stx-e - _%tl199308199618%_)))) - (let ((_%tl199317199642%_ + _%tl199467199777%_)))) + (let ((_%tl199476199801%_ (let () (declare (not safe)) - (##cdr _%e199315199637%_))) - (_%hd199316199640%_ + (##cdr _%e199474199796%_))) + (_%hd199475199799%_ (let () (declare (not safe)) - (##car _%e199315199637%_)))) + (##car _%e199474199796%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199316199640%_)) - (let ((_%e199318199645%_ + _%hd199475199799%_)) + (let ((_%e199477199804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd199316199640%_)))) - (let ((_%tl199320199650%_ + (gx#stx-e _%hd199475199799%_)))) + (let ((_%tl199479199809%_ (let () (declare (not safe)) - (##cdr _%e199318199645%_))) - (_%hd199319199648%_ + (##cdr _%e199477199804%_))) + (_%hd199478199807%_ (let () (declare (not safe)) - (##car _%e199318199645%_)))) + (##car _%e199477199804%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199319199648%_)) + (gx#identifier? _%hd199478199807%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd199319199648%_)) + (gx#stx-eq? '%#quote _%hd199478199807%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199320199650%_)) - (let ((_%e199321199653%_ + (gx#stx-pair? _%tl199479199809%_)) + (let ((_%e199480199812%_ (let () (declare (not safe)) - (gx#stx-e _%tl199320199650%_)))) - (let ((_%tl199323199658%_ + (gx#stx-e _%tl199479199809%_)))) + (let ((_%tl199482199817%_ (let () (declare (not safe)) - (##cdr _%e199321199653%_))) - (_%hd199322199656%_ + (##cdr _%e199480199812%_))) + (_%hd199481199815%_ (let () (declare (not safe)) - (##car _%e199321199653%_)))) + (##car _%e199480199812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199323199658%_)) + (gx#stx-null? _%tl199482199817%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199317199642%_)) - (_%__match200354200355%_ - _%e199276199533%_ - _%hd199277199536%_ - _%tl199278199538%_ - _%e199279199541%_ - _%hd199280199544%_ - _%tl199281199546%_ - _%e199282199549%_ - _%hd199283199552%_ - _%tl199284199554%_ - _%e199285199557%_ - _%hd199286199560%_ - _%tl199287199562%_ - _%e199288199565%_ - _%hd199289199568%_ - _%tl199290199570%_ - _%e199291199573%_ - _%hd199292199576%_ - _%tl199293199578%_ - _%e199294199581%_ - _%hd199295199584%_ - _%tl199296199586%_ - _%e199297199589%_ - _%hd199298199592%_ - _%tl199299199594%_ - _%e199300199597%_ - _%hd199301199600%_ - _%tl199302199602%_ - _%e199303199605%_ - _%hd199304199608%_ - _%tl199305199610%_ - _%e199306199613%_ - _%hd199307199616%_ - _%tl199308199618%_ - _%e199309199621%_ - _%hd199310199624%_ - _%tl199311199626%_ - _%e199312199629%_ - _%hd199313199632%_ - _%tl199314199634%_ - _%e199315199637%_ - _%hd199316199640%_ - _%tl199317199642%_ - _%e199318199645%_ - _%hd199319199648%_ - _%tl199320199650%_ - _%e199321199653%_ - _%hd199322199656%_ - _%tl199323199658%_) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) + _%tl199476199801%_)) + (_%__match200513200514%_ + _%e199435199692%_ + _%hd199436199695%_ + _%tl199437199697%_ + _%e199438199700%_ + _%hd199439199703%_ + _%tl199440199705%_ + _%e199441199708%_ + _%hd199442199711%_ + _%tl199443199713%_ + _%e199444199716%_ + _%hd199445199719%_ + _%tl199446199721%_ + _%e199447199724%_ + _%hd199448199727%_ + _%tl199449199729%_ + _%e199450199732%_ + _%hd199451199735%_ + _%tl199452199737%_ + _%e199453199740%_ + _%hd199454199743%_ + _%tl199455199745%_ + _%e199456199748%_ + _%hd199457199751%_ + _%tl199458199753%_ + _%e199459199756%_ + _%hd199460199759%_ + _%tl199461199761%_ + _%e199462199764%_ + _%hd199463199767%_ + _%tl199464199769%_ + _%e199465199772%_ + _%hd199466199775%_ + _%tl199467199777%_ + _%e199468199780%_ + _%hd199469199783%_ + _%tl199470199785%_ + _%e199471199788%_ + _%hd199472199791%_ + _%tl199473199793%_ + _%e199474199796%_ + _%hd199475199799%_ + _%tl199476199801%_ + _%e199477199804%_ + _%hd199478199807%_ + _%tl199479199809%_ + _%e199480199812%_ + _%hd199481199815%_ + _%tl199482199817%_) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl199308199618%_)) - (if (let ((__tmp200576 + _%tl199467199777%_)) + (if (let ((__tmp200735 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp200576 'bind-method!)) - (let ((_%L199487%_ _%hd199313199632%_) - (_%L199488%_ _%hd199304199608%_) - (_%L199489%_ _%hd199295199584%_) - (_%L199490%_ _%hd199286199560%_)) - (_%__kont200223200224%_ - _%L199487%_ - _%L199488%_ - _%L199489%_ - _%L199490%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_))) + (gxc#runtime-identifier=? __tmp200735 'bind-method!)) + (let ((_%L199646%_ _%hd199472199791%_) + (_%L199647%_ _%hd199463199767%_) + (_%L199648%_ _%hd199454199743%_) + (_%L199649%_ _%hd199445199719%_)) + (_%__kont200382200383%_ + _%L199646%_ + _%L199647%_ + _%L199648%_ + _%L199649%_)) + (_%__kont200384200385%_)) + (_%__kont200384200385%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_))))))) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_)))) + (_%__kont200384200385%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self199088%_ _%stx199089%_) - (let* ((_%__stx200463200464%_ _%stx199089%_) - (_%g199092199132%_ + (lambda (_%self199247%_ _%stx199248%_) + (let* ((_%__stx200622200623%_ _%stx199248%_) + (_%g199251199291%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200463200464%_))))) - (let ((_%__kont200465200466%_ - (lambda (_%L199238%_ _%L199239%_) + _%__stx200622200623%_))))) + (let ((_%__kont200624200625%_ + (lambda (_%L199397%_ _%L199398%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199239%_)) - (cons _%L199238%_ '()))))) - (_%__kont200467200468%_ - (lambda (_%L199161%_ _%L199162%_) '(begin)))) + (gxc#identifier-symbol _%L199398%_)) + (cons _%L199397%_ '()))))) + (_%__kont200626200627%_ + (lambda (_%L199320%_ _%L199321%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200463200464%_)) - (let ((_%e199096199182%_ + (gx#stx-pair? _%__stx200622200623%_)) + (let ((_%e199255199341%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200463200464%_)))) - (let ((_%tl199098199187%_ + (gx#stx-e _%__stx200622200623%_)))) + (let ((_%tl199257199346%_ (let () (declare (not safe)) - (##cdr _%e199096199182%_))) - (_%hd199097199185%_ + (##cdr _%e199255199341%_))) + (_%hd199256199344%_ (let () (declare (not safe)) - (##car _%e199096199182%_)))) + (##car _%e199255199341%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199098199187%_)) - (let ((_%e199099199190%_ + (gx#stx-pair? _%tl199257199346%_)) + (let ((_%e199258199349%_ (let () (declare (not safe)) - (gx#stx-e _%tl199098199187%_)))) - (let ((_%tl199101199195%_ + (gx#stx-e _%tl199257199346%_)))) + (let ((_%tl199260199354%_ (let () (declare (not safe)) - (##cdr _%e199099199190%_))) - (_%hd199100199193%_ + (##cdr _%e199258199349%_))) + (_%hd199259199352%_ (let () (declare (not safe)) - (##car _%e199099199190%_)))) + (##car _%e199258199349%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199100199193%_)) - (let ((_%e199102199198%_ + (gx#stx-pair? _%hd199259199352%_)) + (let ((_%e199261199357%_ (let () (declare (not safe)) - (gx#stx-e _%hd199100199193%_)))) - (let ((_%tl199104199203%_ + (gx#stx-e _%hd199259199352%_)))) + (let ((_%tl199263199362%_ (let () (declare (not safe)) - (##cdr _%e199102199198%_))) - (_%hd199103199201%_ + (##cdr _%e199261199357%_))) + (_%hd199262199360%_ (let () (declare (not safe)) - (##car _%e199102199198%_)))) + (##car _%e199261199357%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199103199201%_)) + (gx#identifier? _%hd199262199360%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd199103199201%_)) + _%hd199262199360%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199104199203%_)) - (let ((_%e199105199206%_ + _%tl199263199362%_)) + (let ((_%e199264199365%_ (let () (declare (not safe)) (gx#stx-e - _%tl199104199203%_)))) - (let ((_%tl199107199211%_ + _%tl199263199362%_)))) + (let ((_%tl199266199370%_ (let () (declare (not safe)) - (##cdr _%e199105199206%_))) - (_%hd199106199209%_ + (##cdr _%e199264199365%_))) + (_%hd199265199368%_ (let () (declare (not safe)) - (##car _%e199105199206%_)))) + (##car _%e199264199365%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199107199211%_)) + _%tl199266199370%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199108199214%_ + _%tl199260199354%_)) + (let ((_%e199267199373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199101199195%_)))) - (let ((_%tl199110199219%_ + (gx#stx-e _%tl199260199354%_)))) + (let ((_%tl199269199378%_ (let () (declare (not safe)) - (##cdr _%e199108199214%_))) - (_%hd199109199217%_ + (##cdr _%e199267199373%_))) + (_%hd199268199376%_ (let () (declare (not safe)) - (##car _%e199108199214%_)))) + (##car _%e199267199373%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199109199217%_)) - (let ((_%e199111199222%_ + (gx#stx-pair? _%hd199268199376%_)) + (let ((_%e199270199381%_ (let () (declare (not safe)) - (gx#stx-e _%hd199109199217%_)))) - (let ((_%tl199113199227%_ + (gx#stx-e _%hd199268199376%_)))) + (let ((_%tl199272199386%_ (let () (declare (not safe)) - (##cdr _%e199111199222%_))) - (_%hd199112199225%_ + (##cdr _%e199270199381%_))) + (_%hd199271199384%_ (let () (declare (not safe)) - (##car _%e199111199222%_)))) + (##car _%e199270199381%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199112199225%_)) + (gx#identifier? _%hd199271199384%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199112199225%_)) + _%hd199271199384%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199113199227%_)) - (let ((_%e199114199230%_ + _%tl199272199386%_)) + (let ((_%e199273199389%_ (let () (declare (not safe)) (gx#stx-e - _%tl199113199227%_)))) - (let ((_%tl199116199235%_ + _%tl199272199386%_)))) + (let ((_%tl199275199394%_ (let () (declare (not safe)) - (##cdr _%e199114199230%_))) - (_%hd199115199233%_ + (##cdr _%e199273199389%_))) + (_%hd199274199392%_ (let () (declare (not safe)) - (##car _%e199114199230%_)))) + (##car _%e199273199389%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199116199235%_)) + _%tl199275199394%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200465200466%_ - _%hd199115199233%_ - _%hd199106199209%_) + _%tl199269199378%_)) + (_%__kont200624200625%_ + _%hd199274199392%_ + _%hd199265199368%_) (let () (declare (not safe)) - (_%g199092199132%_))) + (_%g199251199291%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + _%tl199269199378%_)) + (_%__kont200626200627%_ + _%hd199268199376%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_)))))) + (_%g199251199291%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + _%tl199269199378%_)) + (_%__kont200626200627%_ + _%hd199268199376%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g199251199291%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + _%tl199269199378%_)) + (_%__kont200626200627%_ + _%hd199268199376%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g199251199291%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + (gx#stx-null? _%tl199269199378%_)) + (_%__kont200626200627%_ + _%hd199268199376%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_)))))) + (_%g199251199291%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + (gx#stx-null? _%tl199269199378%_)) + (_%__kont200626200627%_ + _%hd199268199376%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_)))))) - (let () (declare (not safe)) (_%g199092199132%_))) + (_%g199251199291%_)))))) + (let () (declare (not safe)) (_%g199251199291%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199101199195%_)) - (let ((_%e199125199153%_ + (gx#stx-pair? _%tl199260199354%_)) + (let ((_%e199284199312%_ (let () (declare (not safe)) - (gx#stx-e _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + (gx#stx-e _%tl199260199354%_)))) + (let ((_%tl199286199317%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e199284199312%_))) + (_%hd199285199315%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e199284199312%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + (gx#stx-null? _%tl199286199317%_)) + (_%__kont200626200627%_ + _%hd199285199315%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_))))) - (let () (declare (not safe)) (_%g199092199132%_)))))) + (_%g199251199291%_))))) + (let () (declare (not safe)) (_%g199251199291%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199125199153%_ + _%tl199260199354%_)) + (let ((_%e199284199312%_ (let () (declare (not safe)) (gx#stx-e - _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + _%tl199260199354%_)))) + (let ((_%tl199286199317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ - (let () (declare (not safe)) (##car _%e199125199153%_)))) + (##cdr _%e199284199312%_))) + (_%hd199285199315%_ + (let () (declare (not safe)) (##car _%e199284199312%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) - (let () (declare (not safe)) (_%g199092199132%_))))) + (gx#stx-null? _%tl199286199317%_)) + (_%__kont200626200627%_ + _%hd199285199315%_ + _%hd199259199352%_) + (let () (declare (not safe)) (_%g199251199291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g199251199291%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199125199153%_ + _%tl199260199354%_)) + (let ((_%e199284199312%_ (let () (declare (not safe)) (gx#stx-e - _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + _%tl199260199354%_)))) + (let ((_%tl199286199317%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e199284199312%_))) + (_%hd199285199315%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e199284199312%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + _%tl199286199317%_)) + (_%__kont200626200627%_ + _%hd199285199315%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_))))) + (_%g199251199291%_))))) (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g199251199291%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199125199153%_ + _%tl199260199354%_)) + (let ((_%e199284199312%_ (let () (declare (not safe)) (gx#stx-e - _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + _%tl199260199354%_)))) + (let ((_%tl199286199317%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e199284199312%_))) + (_%hd199285199315%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e199284199312%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + _%tl199286199317%_)) + (_%__kont200626200627%_ + _%hd199285199315%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_))))) + (_%g199251199291%_))))) (let () (declare (not safe)) - (_%g199092199132%_)))))) + (_%g199251199291%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199101199195%_)) - (let ((_%e199125199153%_ + (gx#stx-pair? _%tl199260199354%_)) + (let ((_%e199284199312%_ (let () (declare (not safe)) - (gx#stx-e _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + (gx#stx-e _%tl199260199354%_)))) + (let ((_%tl199286199317%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e199284199312%_))) + (_%hd199285199315%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e199284199312%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + _%tl199286199317%_)) + (_%__kont200626200627%_ + _%hd199285199315%_ + _%hd199259199352%_) (let () (declare (not safe)) - (_%g199092199132%_))))) + (_%g199251199291%_))))) (let () (declare (not safe)) - (_%g199092199132%_)))))) - (let () (declare (not safe)) (_%g199092199132%_))))) - (let () (declare (not safe)) (_%g199092199132%_))))))) + (_%g199251199291%_)))))) + (let () (declare (not safe)) (_%g199251199291%_))))) + (let () (declare (not safe)) (_%g199251199291%_))))))) (define gxc#!alias::typedecl - (lambda (_%self197282199073%_) - (let* ((_%self199076%_ _%self197282199073%_) - (_%self199078%_ _%self199076%_)) + (lambda (_%self197441199232%_) + (let* ((_%self199235%_ _%self197441199232%_) + (_%self199237%_ _%self199235%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self199078%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199237%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self197283198844%_) - (let* ((_%self198847%_ _%self197283198844%_) - (_%self198849%_ _%self198847%_) - (_%self198858198874%_ _%self198849%_) - (_%E198860198878%_ + (lambda (_%self197442199003%_) + (let* ((_%self199006%_ _%self197442199003%_) + (_%self199008%_ _%self199006%_) + (_%self199017199033%_ _%self199008%_) + (_%E199019199037%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self198858198874%_ + _%self199017199033%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K198861198893%_ - (lambda (_%methods198881%_ - _%metaclass198882%_ - _%system?198883%_ - _%final?198884%_ - _%struct?198885%_ - _%constructor198886%_ - _%fields198887%_ - _%slots198888%_ - _%precendence-list198889%_ - _%super198890%_ - _%id198891%_) + (_%K199020199052%_ + (lambda (_%methods199040%_ + _%metaclass199041%_ + _%system?199042%_ + _%final?199043%_ + _%struct?199044%_ + _%constructor199045%_ + _%fields199046%_ + _%slots199047%_ + _%precendence-list199048%_ + _%super199049%_ + _%id199050%_) (cons '@class - (cons _%id198891%_ - (cons _%super198890%_ - (cons _%precendence-list198889%_ - (cons _%slots198888%_ - (cons _%fields198887%_ - (cons _%constructor198886%_ - (cons _%struct?198885%_ + (cons _%id199050%_ + (cons _%super199049%_ + (cons _%precendence-list199048%_ + (cons _%slots199047%_ + (cons _%fields199046%_ + (cons _%constructor199045%_ + (cons _%struct?199044%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?198884%_ - (cons _%system?198883%_ - (cons _%metaclass198882%_ - (cons (if _%methods198881%_ + (cons _%final?199043%_ + (cons _%system?199042%_ + (cons _%metaclass199041%_ + (cons (if _%methods199040%_ (let () (declare (not safe)) (hash->list - _%methods198881%_)) + _%methods199040%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e198862198896%_ + (_%e199021199055%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '1 '#f '#f))) - (_%id198899%_ _%e198862198896%_) - (_%e198863198901%_ + (##unchecked-structure-ref _%self199017199033%_ '1 '#f '#f))) + (_%id199058%_ _%e199021199055%_) + (_%e199022199060%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '2 '#f '#f))) - (_%super198904%_ _%e198863198901%_) - (_%e198864198906%_ + (##unchecked-structure-ref _%self199017199033%_ '2 '#f '#f))) + (_%super199063%_ _%e199022199060%_) + (_%e199023199065%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '3 '#f '#f))) - (_%precendence-list198909%_ _%e198864198906%_) - (_%e198865198911%_ + (##unchecked-structure-ref _%self199017199033%_ '3 '#f '#f))) + (_%precendence-list199068%_ _%e199023199065%_) + (_%e199024199070%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '4 '#f '#f))) - (_%slots198914%_ _%e198865198911%_) - (_%e198866198916%_ + (##unchecked-structure-ref _%self199017199033%_ '4 '#f '#f))) + (_%slots199073%_ _%e199024199070%_) + (_%e199025199075%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '5 '#f '#f))) - (_%fields198919%_ _%e198866198916%_) - (_%e198867198921%_ + (##unchecked-structure-ref _%self199017199033%_ '5 '#f '#f))) + (_%fields199078%_ _%e199025199075%_) + (_%e199026199080%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '6 '#f '#f))) - (_%constructor198924%_ _%e198867198921%_) - (_%e198868198926%_ + (##unchecked-structure-ref _%self199017199033%_ '6 '#f '#f))) + (_%constructor199083%_ _%e199026199080%_) + (_%e199027199085%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '7 '#f '#f))) - (_%struct?198929%_ _%e198868198926%_) - (_%e198869198931%_ + (##unchecked-structure-ref _%self199017199033%_ '7 '#f '#f))) + (_%struct?199088%_ _%e199027199085%_) + (_%e199028199090%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '8 '#f '#f))) - (_%final?198934%_ _%e198869198931%_) - (_%e198870198936%_ + (##unchecked-structure-ref _%self199017199033%_ '8 '#f '#f))) + (_%final?199093%_ _%e199028199090%_) + (_%e199029199095%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '9 '#f '#f))) - (_%system?198939%_ _%e198870198936%_) - (_%e198871198941%_ + (##unchecked-structure-ref _%self199017199033%_ '9 '#f '#f))) + (_%system?199098%_ _%e199029199095%_) + (_%e199030199100%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self198858198874%_ + _%self199017199033%_ '10 '#f '#f))) - (_%metaclass198944%_ _%e198871198941%_) - (_%e198872198946%_ + (_%metaclass199103%_ _%e199030199100%_) + (_%e199031199105%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self198858198874%_ + _%self199017199033%_ '11 '#f '#f))) - (_%methods198949%_ _%e198872198946%_)) - (_%K198861198893%_ - _%methods198949%_ - _%metaclass198944%_ - _%system?198939%_ - _%final?198934%_ - _%struct?198929%_ - _%constructor198924%_ - _%fields198919%_ - _%slots198914%_ - _%precendence-list198909%_ - _%super198904%_ - _%id198899%_)))) + (_%methods199108%_ _%e199031199105%_)) + (_%K199020199052%_ + _%methods199108%_ + _%metaclass199103%_ + _%system?199098%_ + _%final?199093%_ + _%struct?199088%_ + _%constructor199083%_ + _%fields199078%_ + _%slots199073%_ + _%precendence-list199068%_ + _%super199063%_ + _%id199058%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self197284198707%_) - (let* ((_%self198710%_ _%self197284198707%_) - (_%self198712%_ _%self198710%_)) + (lambda (_%self197443198866%_) + (let* ((_%self198869%_ _%self197443198866%_) + (_%self198871%_ _%self198869%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198712%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198871%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2181,13 +2181,13 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self197285198570%_) - (let* ((_%self198573%_ _%self197285198570%_) - (_%self198575%_ _%self198573%_)) + (lambda (_%self197444198729%_) + (let* ((_%self198732%_ _%self197444198729%_) + (_%self198734%_ _%self198732%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198575%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198734%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2197,24 +2197,24 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self197286198433%_) - (let* ((_%self198436%_ _%self197286198433%_) - (_%self198438%_ _%self198436%_)) + (lambda (_%self197445198592%_) + (let* ((_%self198595%_ _%self197445198592%_) + (_%self198597%_ _%self198595%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198438%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198597%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198438%_ + _%self198597%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198438%_ + _%self198597%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self197287198296%_) - (let* ((_%self198299%_ _%self197287198296%_) - (_%self198301%_ _%self198299%_)) + (lambda (_%self197446198455%_) + (let* ((_%self198458%_ _%self197446198455%_) + (_%self198460%_ _%self198458%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198301%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198460%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198301%_ + _%self198460%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198301%_ + _%self198460%_ '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 (_%self197288198159%_) - (let* ((_%self198162%_ _%self197288198159%_) - (_%self198164%_ _%self198162%_)) + (lambda (_%self197447198318%_) + (let* ((_%self198321%_ _%self197447198318%_) + (_%self198323%_ _%self198321%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198164%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198323%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198164%_ + _%self198323%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self197289197970%_) - (let* ((_%self197973%_ _%self197289197970%_) - (_%self197975%_ _%self197973%_) - (_%self197984197993%_ _%self197975%_) - (_%E197986197997%_ + (lambda (_%self197448198129%_) + (let* ((_%self198132%_ _%self197448198129%_) + (_%self198134%_ _%self198132%_) + (_%self198143198152%_ _%self198134%_) + (_%E198145198156%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self197984197993%_ + _%self198143198152%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K197987198016%_ - (lambda (_%dispatch198000%_ - _%arity198001%_ - _%signature198002%_) - (if _%signature198002%_ - (let ((_%signature198004%_ _%signature198002%_)) + (_%K198146198175%_ + (lambda (_%dispatch198159%_ + _%arity198160%_ + _%signature198161%_) + (if _%signature198161%_ + (let ((_%signature198163%_ _%signature198161%_)) (cons '@lambda - (cons _%arity198001%_ - (cons _%dispatch198000%_ + (cons _%arity198160%_ + (cons _%dispatch198159%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature198163%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature198163%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature198163%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature198163%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature198163%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity198001%_ - (cons _%dispatch198000%_ '())))))) - (_%e197988198019%_ + (cons _%arity198160%_ + (cons _%dispatch198159%_ '())))))) + (_%e198147198178%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '1 '#f '#f))) - (_%e197989198022%_ + (##unchecked-structure-ref _%self198143198152%_ '1 '#f '#f))) + (_%e198148198181%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '2 '#f '#f))) - (_%signature198025%_ _%e197989198022%_) - (_%e197990198027%_ + (##unchecked-structure-ref _%self198143198152%_ '2 '#f '#f))) + (_%signature198184%_ _%e198148198181%_) + (_%e198149198186%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '3 '#f '#f))) - (_%arity198030%_ _%e197990198027%_) - (_%e197991198032%_ + (##unchecked-structure-ref _%self198143198152%_ '3 '#f '#f))) + (_%arity198189%_ _%e198149198186%_) + (_%e198150198191%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '4 '#f '#f))) - (_%dispatch198035%_ _%e197991198032%_)) - (_%K197987198016%_ - _%dispatch198035%_ - _%arity198030%_ - _%signature198025%_)))) + (##unchecked-structure-ref _%self198143198152%_ '4 '#f '#f))) + (_%dispatch198194%_ _%e198150198191%_)) + (_%K198146198175%_ + _%dispatch198194%_ + _%arity198189%_ + _%signature198184%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self197290197829%_) - (let* ((_%self197832%_ _%self197290197829%_) - (_%self197834%_ _%self197832%_)) - (letrec ((_%clause-e197844%_ - (lambda (_%clause197846%_) - (cdr (let ((__method200551 + (lambda (_%self197449197988%_) + (let* ((_%self197991%_ _%self197449197988%_) + (_%self197993%_ _%self197991%_)) + (letrec ((_%clause-e198003%_ + (lambda (_%clause198005%_) + (cdr (let ((__method200710 (let () (declare (not safe)) (__method-ref - _%clause197846%_ + _%clause198005%_ 'typedecl)))) - (if __method200551 + (if __method200710 (let () (declare (not safe)) - (__method200551 _%clause197846%_)) + (__method200710 _%clause198005%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause197846%_ + _%clause198005%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e197844%_ + (map _%clause-e198003%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197834%_ + _%self197993%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self197291197692%_) - (let* ((_%self197695%_ _%self197291197692%_) - (_%self197697%_ _%self197695%_)) + (lambda (_%self197450197851%_) + (let* ((_%self197854%_ _%self197450197851%_) + (_%self197856%_ _%self197854%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197697%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197856%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197697%_ + _%self197856%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self197292197555%_) - (let* ((_%self197558%_ _%self197292197555%_) - (_%self197560%_ _%self197558%_)) + (lambda (_%self197451197714%_) + (let* ((_%self197717%_ _%self197451197714%_) + (_%self197719%_ _%self197717%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197560%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197719%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197560%_ + _%self197719%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self197293197418%_) - (let* ((_%self197421%_ _%self197293197418%_) - (_%self197423%_ _%self197421%_)) + (lambda (_%self197452197577%_) + (let* ((_%self197580%_ _%self197452197577%_) + (_%self197582%_ _%self197580%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197423%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197582%_ '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 532f1aae7..f57ae87d3 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]#_g200578_| + (define |gxc[1]#_g200737_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200580_| + (define |gxc[1]#_g200739_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200582_| + (define |gxc[1]#_g200741_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200584_| + (define |gxc[1]#_g200743_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj200547 + (let ((__obj200706 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj200547 + __obj200706 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj200706 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '6 '#f '#f)) - (let ((__tmp200577 (cons |gxc[1]#_g200578_| '()))) + (##unchecked-structure-set! __obj200706 '() '6 '#f '#f)) + (let ((__tmp200736 (cons |gxc[1]#_g200737_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200577 '3 '#f '#f)) + (##unchecked-structure-set! __obj200706 __tmp200736 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj200706 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj200706 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj200706 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#f '11 '#f '#f)) - (let ((__tmp200579 |gxc[1]#_g200580_|)) + (##unchecked-structure-set! __obj200706 '#f '11 '#f '#f)) + (let ((__tmp200738 |gxc[1]#_g200739_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200579 '12 '#f '#f)) - (let ((__tmp200581 |gxc[1]#_g200582_|)) + (##unchecked-structure-set! __obj200706 __tmp200738 '12 '#f '#f)) + (let ((__tmp200740 |gxc[1]#_g200741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200581 '13 '#f '#f)) - (let ((__tmp200583 |gxc[1]#_g200584_|)) + (##unchecked-structure-set! __obj200706 __tmp200740 '13 '#f '#f)) + (let ((__tmp200742 |gxc[1]#_g200743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200583 '14 '#f '#f)) + (##unchecked-structure-set! __obj200706 __tmp200742 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj200706 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '20 '#f '#f)) - __obj200547))) + (##unchecked-structure-set! __obj200706 '() '20 '#f '#f)) + __obj200706))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index 7b76de732..132cdbff1 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]#_g209065_| + (define |gxc[1]#_g209224_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209072_| + (define |gxc[1]#_g209231_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209074_| + (define |gxc[1]#_g209233_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209076_| + (define |gxc[1]#_g209235_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209078_| + (define |gxc[1]#_g209237_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209080_| + (define |gxc[1]#_g209239_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209092_| + (define |gxc[1]#_g209251_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209094_| + (define |gxc[1]#_g209253_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209096_| + (define |gxc[1]#_g209255_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209098_| + (define |gxc[1]#_g209257_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209100_| + (define |gxc[1]#_g209259_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx202483%_) - (let* ((_%g202487202505%_ - (lambda (_%g202488202501%_) + (lambda (_%$stx202642%_) + (let* ((_%g202646202664%_ + (lambda (_%g202647202660%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202488202501%_)))) - (_%g202486202560%_ - (lambda (_%g202488202509%_) + _%g202647202660%_)))) + (_%g202645202719%_ + (lambda (_%g202647202668%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202488202509%_)) - (let ((_%e202491202512%_ + (gx#stx-pair? _%g202647202668%_)) + (let ((_%e202650202671%_ (let () (declare (not safe)) - (gx#syntax-e _%g202488202509%_)))) - (let ((_%hd202492202516%_ + (gx#syntax-e _%g202647202668%_)))) + (let ((_%hd202651202675%_ (let () (declare (not safe)) - (##car _%e202491202512%_))) - (_%tl202493202519%_ + (##car _%e202650202671%_))) + (_%tl202652202678%_ (let () (declare (not safe)) - (##cdr _%e202491202512%_)))) + (##cdr _%e202650202671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202493202519%_)) - (let ((_%e202494202522%_ + (gx#stx-pair? _%tl202652202678%_)) + (let ((_%e202653202681%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202493202519%_)))) - (let ((_%hd202495202526%_ + (gx#syntax-e _%tl202652202678%_)))) + (let ((_%hd202654202685%_ (let () (declare (not safe)) - (##car _%e202494202522%_))) - (_%tl202496202529%_ + (##car _%e202653202681%_))) + (_%tl202655202688%_ (let () (declare (not safe)) - (##cdr _%e202494202522%_)))) + (##cdr _%e202653202681%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202496202529%_)) - (let ((_%e202497202532%_ + (gx#stx-pair? _%tl202655202688%_)) + (let ((_%e202656202691%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202496202529%_)))) - (let ((_%hd202498202536%_ + _%tl202655202688%_)))) + (let ((_%hd202657202695%_ (let () (declare (not safe)) - (##car _%e202497202532%_))) - (_%tl202499202539%_ + (##car _%e202656202691%_))) + (_%tl202658202698%_ (let () (declare (not safe)) - (##cdr _%e202497202532%_)))) + (##cdr _%e202656202691%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202499202539%_)) - ((lambda (_%L202542%_ - _%L202544%_) + _%tl202658202698%_)) + ((lambda (_%L202701%_ + _%L202703%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202544%_)) + _%L202703%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202544%_ '())) - (cons _%L202542%_ '()))) + (cons _%L202703%_ '())) + (cons _%L202701%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202487202505%_ - _%g202488202509%_))) - _%hd202498202536%_ - _%hd202495202526%_) - (_%g202487202505%_ - _%g202488202509%_)))) - (_%g202487202505%_ _%g202488202509%_)))) - (_%g202487202505%_ _%g202488202509%_)))) - (_%g202487202505%_ _%g202488202509%_))))) - (_%g202486202560%_ _%$stx202483%_)))) + (_%g202646202664%_ + _%g202647202668%_))) + _%hd202657202695%_ + _%hd202654202685%_) + (_%g202646202664%_ + _%g202647202668%_)))) + (_%g202646202664%_ _%g202647202668%_)))) + (_%g202646202664%_ _%g202647202668%_)))) + (_%g202646202664%_ _%g202647202668%_))))) + (_%g202645202719%_ _%$stx202642%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx202564%_) - (let* ((_%g202568202586%_ - (lambda (_%g202569202582%_) + (lambda (_%$stx202723%_) + (let* ((_%g202727202745%_ + (lambda (_%g202728202741%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202569202582%_)))) - (_%g202567202641%_ - (lambda (_%g202569202590%_) + _%g202728202741%_)))) + (_%g202726202800%_ + (lambda (_%g202728202749%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202569202590%_)) - (let ((_%e202572202593%_ + (gx#stx-pair? _%g202728202749%_)) + (let ((_%e202731202752%_ (let () (declare (not safe)) - (gx#syntax-e _%g202569202590%_)))) - (let ((_%hd202573202597%_ + (gx#syntax-e _%g202728202749%_)))) + (let ((_%hd202732202756%_ (let () (declare (not safe)) - (##car _%e202572202593%_))) - (_%tl202574202600%_ + (##car _%e202731202752%_))) + (_%tl202733202759%_ (let () (declare (not safe)) - (##cdr _%e202572202593%_)))) + (##cdr _%e202731202752%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202574202600%_)) - (let ((_%e202575202603%_ + (gx#stx-pair? _%tl202733202759%_)) + (let ((_%e202734202762%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202574202600%_)))) - (let ((_%hd202576202607%_ + (gx#syntax-e _%tl202733202759%_)))) + (let ((_%hd202735202766%_ (let () (declare (not safe)) - (##car _%e202575202603%_))) - (_%tl202577202610%_ + (##car _%e202734202762%_))) + (_%tl202736202769%_ (let () (declare (not safe)) - (##cdr _%e202575202603%_)))) + (##cdr _%e202734202762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202577202610%_)) - (let ((_%e202578202613%_ + (gx#stx-pair? _%tl202736202769%_)) + (let ((_%e202737202772%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202577202610%_)))) - (let ((_%hd202579202617%_ + _%tl202736202769%_)))) + (let ((_%hd202738202776%_ (let () (declare (not safe)) - (##car _%e202578202613%_))) - (_%tl202580202620%_ + (##car _%e202737202772%_))) + (_%tl202739202779%_ (let () (declare (not safe)) - (##cdr _%e202578202613%_)))) + (##cdr _%e202737202772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202580202620%_)) - ((lambda (_%L202623%_ - _%L202625%_) + _%tl202739202779%_)) + ((lambda (_%L202782%_ + _%L202784%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202625%_)) + _%L202784%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202625%_ '())) - (cons _%L202623%_ '()))) + (cons _%L202784%_ '())) + (cons _%L202782%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202568202586%_ - _%g202569202590%_))) - _%hd202579202617%_ - _%hd202576202607%_) - (_%g202568202586%_ - _%g202569202590%_)))) - (_%g202568202586%_ _%g202569202590%_)))) - (_%g202568202586%_ _%g202569202590%_)))) - (_%g202568202586%_ _%g202569202590%_))))) - (_%g202567202641%_ _%$stx202564%_)))) + (_%g202727202745%_ + _%g202728202749%_))) + _%hd202738202776%_ + _%hd202735202766%_) + (_%g202727202745%_ + _%g202728202749%_)))) + (_%g202727202745%_ _%g202728202749%_)))) + (_%g202727202745%_ _%g202728202749%_)))) + (_%g202727202745%_ _%g202728202749%_))))) + (_%g202726202800%_ _%$stx202723%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx202645%_) - (let* ((_%g202649202678%_ - (lambda (_%g202650202674%_) + (lambda (_%$stx202804%_) + (let* ((_%g202808202837%_ + (lambda (_%g202809202833%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202650202674%_)))) - (_%g202648202778%_ - (lambda (_%g202650202682%_) + _%g202809202833%_)))) + (_%g202807202937%_ + (lambda (_%g202809202841%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202650202682%_)) - (let ((_%e202653202685%_ + (gx#stx-pair? _%g202809202841%_)) + (let ((_%e202812202844%_ (let () (declare (not safe)) - (gx#syntax-e _%g202650202682%_)))) - (let ((_%hd202654202689%_ + (gx#syntax-e _%g202809202841%_)))) + (let ((_%hd202813202848%_ (let () (declare (not safe)) - (##car _%e202653202685%_))) - (_%tl202655202692%_ + (##car _%e202812202844%_))) + (_%tl202814202851%_ (let () (declare (not safe)) - (##cdr _%e202653202685%_)))) + (##cdr _%e202812202844%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202655202692%_)) - (let ((_g209043_ + (gx#stx-pair/null? _%tl202814202851%_)) + (let ((_g209202_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202655202692%_ + _%tl202814202851%_ '0)))) (begin - (let ((_g209044_ + (let ((_g209203_ (let () (declare (not safe)) - (if (##values? _g209043_) - (##vector-length _g209043_) + (if (##values? _g209202_) + (##vector-length _g209202_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209044_ 2))) + (##fx= _g209203_ 2))) (error "Context expects 2 values" - _g209044_))) - (let ((_%target202656202695%_ + _g209203_))) + (let ((_%target202815202854%_ (let () (declare (not safe)) - (##vector-ref _g209043_ 0))) - (_%tl202658202698%_ + (##vector-ref _g209202_ 0))) + (_%tl202817202857%_ (let () (declare (not safe)) - (##vector-ref _g209043_ 1)))) + (##vector-ref _g209202_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202658202698%_)) - (letrec ((_%loop202659202701%_ - (lambda (_%hd202657202705%_ - _%type202663202708%_ - _%symbol202664202710%_) + (gx#stx-null? _%tl202817202857%_)) + (letrec ((_%loop202818202860%_ + (lambda (_%hd202816202864%_ + _%type202822202867%_ + _%symbol202823202869%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd202657202705%_)) - (let ((_%e202660202713%_ + _%hd202816202864%_)) + (let ((_%e202819202872%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd202657202705%_)))) - (let ((_%lp-hd202661202717%_ + (gx#syntax-e _%hd202816202864%_)))) + (let ((_%lp-hd202820202876%_ (let () (declare (not safe)) - (##car _%e202660202713%_))) - (_%lp-tl202662202720%_ + (##car _%e202819202872%_))) + (_%lp-tl202821202879%_ (let () (declare (not safe)) - (##cdr _%e202660202713%_)))) + (##cdr _%e202819202872%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd202661202717%_)) - (let ((_%e202667202723%_ + (gx#stx-pair? _%lp-hd202820202876%_)) + (let ((_%e202826202882%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd202661202717%_)))) - (let ((_%hd202668202727%_ + (gx#syntax-e _%lp-hd202820202876%_)))) + (let ((_%hd202827202886%_ (let () (declare (not safe)) - (##car _%e202667202723%_))) - (_%tl202669202730%_ + (##car _%e202826202882%_))) + (_%tl202828202889%_ (let () (declare (not safe)) - (##cdr _%e202667202723%_)))) + (##cdr _%e202826202882%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202669202730%_)) - (let ((_%e202670202733%_ + (gx#stx-pair? _%tl202828202889%_)) + (let ((_%e202829202892%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202669202730%_)))) - (let ((_%hd202671202737%_ + (gx#syntax-e _%tl202828202889%_)))) + (let ((_%hd202830202896%_ (let () (declare (not safe)) - (##car _%e202670202733%_))) - (_%tl202672202740%_ + (##car _%e202829202892%_))) + (_%tl202831202899%_ (let () (declare (not safe)) - (##cdr _%e202670202733%_)))) + (##cdr _%e202829202892%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202672202740%_)) - (_%loop202659202701%_ - _%lp-tl202662202720%_ - (cons _%hd202671202737%_ - _%type202663202708%_) - (cons _%hd202668202727%_ - _%symbol202664202710%_)) - (_%g202649202678%_ - _%g202650202682%_)))) - (_%g202649202678%_ _%g202650202682%_)))) - (_%g202649202678%_ _%g202650202682%_)))) - (let ((_%type202665202743%_ (reverse _%type202663202708%_)) - (_%symbol202666202746%_ - (reverse _%symbol202664202710%_))) - ((lambda (_%L202749%_ _%L202751%_) + (gx#stx-null? _%tl202831202899%_)) + (_%loop202818202860%_ + _%lp-tl202821202879%_ + (cons _%hd202830202896%_ + _%type202822202867%_) + (cons _%hd202827202886%_ + _%symbol202823202869%_)) + (_%g202808202837%_ + _%g202809202841%_)))) + (_%g202808202837%_ _%g202809202841%_)))) + (_%g202808202837%_ _%g202809202841%_)))) + (let ((_%type202824202902%_ (reverse _%type202822202867%_)) + (_%symbol202825202905%_ + (reverse _%symbol202823202869%_))) + ((lambda (_%L202908%_ _%L202910%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L202749%_ - _%L202751%_)) - (let ((__tmp209045 - (lambda (_%g202766202770%_ - _%g202767202773%_ - _%g202768202775%_) + _%L202908%_ + _%L202910%_)) + (let ((__tmp209204 + (lambda (_%g202925202929%_ + _%g202926202932%_ + _%g202927202934%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g202767202773%_ - (cons _%g202766202770%_ + (cons _%g202926202932%_ + (cons _%g202925202929%_ '()))) - _%g202768202775%_)))) + _%g202927202934%_)))) (declare (not safe)) (__foldr2 - __tmp209045 + __tmp209204 '() - _%L202749%_ - _%L202751%_))))) - _%type202665202743%_ - _%symbol202666202746%_)))))) + _%L202908%_ + _%L202910%_))))) + _%type202824202902%_ + _%symbol202825202905%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop202659202701%_ - _%target202656202695%_ + (_%loop202818202860%_ + _%target202815202854%_ '() '())) - (_%g202649202678%_ - _%g202650202682%_))))) - (_%g202649202678%_ _%g202650202682%_)))) - (_%g202649202678%_ _%g202650202682%_))))) - (_%g202648202778%_ _%$stx202645%_)))) + (_%g202808202837%_ + _%g202809202841%_))))) + (_%g202808202837%_ _%g202809202841%_)))) + (_%g202808202837%_ _%g202809202841%_))))) + (_%g202807202937%_ _%$stx202804%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx202783%_) - (let* ((_%__stx208354208355%_ _%$stx202783%_) - (_%g202788202830%_ + (lambda (_%$stx202942%_) + (let* ((_%__stx208513208514%_ _%$stx202942%_) + (_%g202947202989%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208354208355%_))))) - (let ((_%__kont208357208358%_ - (lambda (_%L202958%_ _%L202960%_ _%L202961%_ _%L202962%_) + _%__stx208513208514%_))))) + (let ((_%__kont208516208517%_ + (lambda (_%L203117%_ _%L203119%_ _%L203120%_ _%L203121%_) (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 _%L202962%_ '())) + (cons _%L203121%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202961%_ '())) + (cons _%L203120%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202960%_ '())) - (cons _%L202958%_ '()))))))) - (_%__kont208359208360%_ - (lambda (_%L202877%_ _%L202879%_ _%L202880%_ _%L202881%_) - (cons _%L202881%_ - (cons _%L202880%_ - (cons _%L202879%_ - (cons _%L202877%_ + (cons _%L203119%_ '())) + (cons _%L203117%_ '()))))))) + (_%__kont208518208519%_ + (lambda (_%L203036%_ _%L203038%_ _%L203039%_ _%L203040%_) + (cons _%L203040%_ + (cons _%L203039%_ + (cons _%L203038%_ + (cons _%L203036%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match208393208394%_ - (lambda (_%e202794202908%_ - _%hd202795202912%_ - _%tl202796202915%_ - _%e202797202918%_ - _%hd202798202922%_ - _%tl202799202925%_ - _%e202800202928%_ - _%hd202801202932%_ - _%tl202802202935%_ - _%e202803202938%_ - _%hd202804202942%_ - _%tl202805202945%_ - _%e202806202948%_ - _%hd202807202952%_ - _%tl202808202955%_) - (let ((_%L202958%_ _%hd202807202952%_) - (_%L202960%_ _%hd202804202942%_) - (_%L202961%_ _%hd202801202932%_) - (_%L202962%_ _%hd202798202922%_)) + (let ((_%__match208552208553%_ + (lambda (_%e202953203067%_ + _%hd202954203071%_ + _%tl202955203074%_ + _%e202956203077%_ + _%hd202957203081%_ + _%tl202958203084%_ + _%e202959203087%_ + _%hd202960203091%_ + _%tl202961203094%_ + _%e202962203097%_ + _%hd202963203101%_ + _%tl202964203104%_ + _%e202965203107%_ + _%hd202966203111%_ + _%tl202967203114%_) + (let ((_%L203117%_ _%hd202966203111%_) + (_%L203119%_ _%hd202963203101%_) + (_%L203120%_ _%hd202960203091%_) + (_%L203121%_ _%hd202957203081%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L202962%_)) + (gx#identifier? _%L203121%_)) (let () (declare (not safe)) - (gx#identifier? _%L202961%_)) + (gx#identifier? _%L203120%_)) (let () (declare (not safe)) - (gx#identifier? _%L202960%_))) - (_%__kont208357208358%_ - _%L202958%_ - _%L202960%_ - _%L202961%_ - _%L202962%_) + (gx#identifier? _%L203119%_))) + (_%__kont208516208517%_ + _%L203117%_ + _%L203119%_ + _%L203120%_ + _%L203121%_) (let () (declare (not safe)) - (_%g202788202830%_))))))) + (_%g202947202989%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208354208355%_)) - (let ((_%e202794202908%_ + (gx#stx-pair? _%__stx208513208514%_)) + (let ((_%e202953203067%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208354208355%_)))) - (let ((_%tl202796202915%_ + (gx#syntax-e _%__stx208513208514%_)))) + (let ((_%tl202955203074%_ (let () (declare (not safe)) - (##cdr _%e202794202908%_))) - (_%hd202795202912%_ + (##cdr _%e202953203067%_))) + (_%hd202954203071%_ (let () (declare (not safe)) - (##car _%e202794202908%_)))) + (##car _%e202953203067%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202796202915%_)) - (let ((_%e202797202918%_ + (gx#stx-pair? _%tl202955203074%_)) + (let ((_%e202956203077%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202796202915%_)))) - (let ((_%tl202799202925%_ + (gx#syntax-e _%tl202955203074%_)))) + (let ((_%tl202958203084%_ (let () (declare (not safe)) - (##cdr _%e202797202918%_))) - (_%hd202798202922%_ + (##cdr _%e202956203077%_))) + (_%hd202957203081%_ (let () (declare (not safe)) - (##car _%e202797202918%_)))) + (##car _%e202956203077%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202799202925%_)) - (let ((_%e202800202928%_ + (gx#stx-pair? _%tl202958203084%_)) + (let ((_%e202959203087%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202799202925%_)))) - (let ((_%tl202802202935%_ + (gx#syntax-e _%tl202958203084%_)))) + (let ((_%tl202961203094%_ (let () (declare (not safe)) - (##cdr _%e202800202928%_))) - (_%hd202801202932%_ + (##cdr _%e202959203087%_))) + (_%hd202960203091%_ (let () (declare (not safe)) - (##car _%e202800202928%_)))) + (##car _%e202959203087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202802202935%_)) - (let ((_%e202803202938%_ + (gx#stx-pair? _%tl202961203094%_)) + (let ((_%e202962203097%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202802202935%_)))) - (let ((_%tl202805202945%_ + _%tl202961203094%_)))) + (let ((_%tl202964203104%_ (let () (declare (not safe)) - (##cdr _%e202803202938%_))) - (_%hd202804202942%_ + (##cdr _%e202962203097%_))) + (_%hd202963203101%_ (let () (declare (not safe)) - (##car _%e202803202938%_)))) + (##car _%e202962203097%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202805202945%_)) - (let ((_%e202806202948%_ + _%tl202964203104%_)) + (let ((_%e202965203107%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202805202945%_)))) - (let ((_%tl202808202955%_ + _%tl202964203104%_)))) + (let ((_%tl202967203114%_ (let () (declare (not safe)) - (##cdr _%e202806202948%_))) - (_%hd202807202952%_ + (##cdr _%e202965203107%_))) + (_%hd202966203111%_ (let () (declare (not safe)) - (##car _%e202806202948%_)))) + (##car _%e202965203107%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202808202955%_)) - (_%__match208393208394%_ - _%e202794202908%_ - _%hd202795202912%_ - _%tl202796202915%_ - _%e202797202918%_ - _%hd202798202922%_ - _%tl202799202925%_ - _%e202800202928%_ - _%hd202801202932%_ - _%tl202802202935%_ - _%e202803202938%_ - _%hd202804202942%_ - _%tl202805202945%_ - _%e202806202948%_ - _%hd202807202952%_ - _%tl202808202955%_) + _%tl202967203114%_)) + (_%__match208552208553%_ + _%e202953203067%_ + _%hd202954203071%_ + _%tl202955203074%_ + _%e202956203077%_ + _%hd202957203081%_ + _%tl202958203084%_ + _%e202959203087%_ + _%hd202960203091%_ + _%tl202961203094%_ + _%e202962203097%_ + _%hd202963203101%_ + _%tl202964203104%_ + _%e202965203107%_ + _%hd202966203111%_ + _%tl202967203114%_) (let () (declare (not safe)) - (_%g202788202830%_))))) + (_%g202947202989%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202805202945%_)) - (_%__kont208359208360%_ - _%hd202804202942%_ - _%hd202801202932%_ - _%hd202798202922%_ - _%hd202795202912%_) + _%tl202964203104%_)) + (_%__kont208518208519%_ + _%hd202963203101%_ + _%hd202960203091%_ + _%hd202957203081%_ + _%hd202954203071%_) (let () (declare (not safe)) - (_%g202788202830%_)))))) + (_%g202947202989%_)))))) (let () (declare (not safe)) - (_%g202788202830%_))))) + (_%g202947202989%_))))) (let () (declare (not safe)) - (_%g202788202830%_))))) - (let () (declare (not safe)) (_%g202788202830%_))))) - (let () (declare (not safe)) (_%g202788202830%_)))))))) + (_%g202947202989%_))))) + (let () (declare (not safe)) (_%g202947202989%_))))) + (let () (declare (not safe)) (_%g202947202989%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx202987%_) - (let* ((_%g202991203026%_ - (lambda (_%g202992203022%_) + (lambda (_%$stx203146%_) + (let* ((_%g203150203185%_ + (lambda (_%g203151203181%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202992203022%_)))) - (_%g202990203145%_ - (lambda (_%g202992203030%_) + _%g203151203181%_)))) + (_%g203149203304%_ + (lambda (_%g203151203189%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202992203030%_)) - (let ((_%e202996203033%_ + (gx#stx-pair? _%g203151203189%_)) + (let ((_%e203155203192%_ (let () (declare (not safe)) - (gx#syntax-e _%g202992203030%_)))) - (let ((_%hd202997203037%_ + (gx#syntax-e _%g203151203189%_)))) + (let ((_%hd203156203196%_ (let () (declare (not safe)) - (##car _%e202996203033%_))) - (_%tl202998203040%_ + (##car _%e203155203192%_))) + (_%tl203157203199%_ (let () (declare (not safe)) - (##cdr _%e202996203033%_)))) + (##cdr _%e203155203192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202998203040%_)) - (let ((_g209046_ + (gx#stx-pair/null? _%tl203157203199%_)) + (let ((_g209205_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202998203040%_ + _%tl203157203199%_ '0)))) (begin - (let ((_g209047_ + (let ((_g209206_ (let () (declare (not safe)) - (if (##values? _g209046_) - (##vector-length _g209046_) + (if (##values? _g209205_) + (##vector-length _g209205_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209047_ 2))) + (##fx= _g209206_ 2))) (error "Context expects 2 values" - _g209047_))) - (let ((_%target202999203043%_ + _g209206_))) + (let ((_%target203158203202%_ (let () (declare (not safe)) - (##vector-ref _g209046_ 0))) - (_%tl203001203046%_ + (##vector-ref _g209205_ 0))) + (_%tl203160203205%_ (let () (declare (not safe)) - (##vector-ref _g209046_ 1)))) + (##vector-ref _g209205_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203001203046%_)) - (letrec ((_%loop203002203049%_ - (lambda (_%hd203000203053%_ - _%symbol203006203056%_ - _%method203007203058%_ - _%type-t203008203060%_) + (gx#stx-null? _%tl203160203205%_)) + (letrec ((_%loop203161203208%_ + (lambda (_%hd203159203212%_ + _%symbol203165203215%_ + _%method203166203217%_ + _%type-t203167203219%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203000203053%_)) - (let ((_%e203003203063%_ + _%hd203159203212%_)) + (let ((_%e203162203222%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203000203053%_)))) - (let ((_%lp-hd203004203067%_ + (gx#syntax-e _%hd203159203212%_)))) + (let ((_%lp-hd203163203226%_ (let () (declare (not safe)) - (##car _%e203003203063%_))) - (_%lp-tl203005203070%_ + (##car _%e203162203222%_))) + (_%lp-tl203164203229%_ (let () (declare (not safe)) - (##cdr _%e203003203063%_)))) + (##cdr _%e203162203222%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203004203067%_)) - (let ((_%e203012203073%_ + (gx#stx-pair? _%lp-hd203163203226%_)) + (let ((_%e203171203232%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203004203067%_)))) - (let ((_%hd203013203077%_ + (gx#syntax-e _%lp-hd203163203226%_)))) + (let ((_%hd203172203236%_ (let () (declare (not safe)) - (##car _%e203012203073%_))) - (_%tl203014203080%_ + (##car _%e203171203232%_))) + (_%tl203173203239%_ (let () (declare (not safe)) - (##cdr _%e203012203073%_)))) + (##cdr _%e203171203232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203014203080%_)) - (let ((_%e203015203083%_ + (gx#stx-pair? _%tl203173203239%_)) + (let ((_%e203174203242%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203014203080%_)))) - (let ((_%hd203016203087%_ + (gx#syntax-e _%tl203173203239%_)))) + (let ((_%hd203175203246%_ (let () (declare (not safe)) - (##car _%e203015203083%_))) - (_%tl203017203090%_ + (##car _%e203174203242%_))) + (_%tl203176203249%_ (let () (declare (not safe)) - (##cdr _%e203015203083%_)))) + (##cdr _%e203174203242%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203017203090%_)) - (let ((_%e203018203093%_ + (gx#stx-pair? _%tl203176203249%_)) + (let ((_%e203177203252%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203017203090%_)))) - (let ((_%hd203019203097%_ + _%tl203176203249%_)))) + (let ((_%hd203178203256%_ (let () (declare (not safe)) - (##car _%e203018203093%_))) - (_%tl203020203100%_ + (##car _%e203177203252%_))) + (_%tl203179203259%_ (let () (declare (not safe)) - (##cdr _%e203018203093%_)))) + (##cdr _%e203177203252%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203020203100%_)) - (_%loop203002203049%_ - _%lp-tl203005203070%_ - (cons _%hd203019203097%_ - _%symbol203006203056%_) - (cons _%hd203016203087%_ - _%method203007203058%_) - (cons _%hd203013203077%_ - _%type-t203008203060%_)) - (_%g202991203026%_ - _%g202992203030%_)))) - (_%g202991203026%_ - _%g202992203030%_)))) - (_%g202991203026%_ _%g202992203030%_)))) - (_%g202991203026%_ _%g202992203030%_)))) - (let ((_%symbol203009203103%_ (reverse _%symbol203006203056%_)) - (_%method203010203106%_ (reverse _%method203007203058%_)) - (_%type-t203011203108%_ - (reverse _%type-t203008203060%_))) - ((lambda (_%L203111%_ _%L203113%_ _%L203114%_) + _%tl203179203259%_)) + (_%loop203161203208%_ + _%lp-tl203164203229%_ + (cons _%hd203178203256%_ + _%symbol203165203215%_) + (cons _%hd203175203246%_ + _%method203166203217%_) + (cons _%hd203172203236%_ + _%type-t203167203219%_)) + (_%g203150203185%_ + _%g203151203189%_)))) + (_%g203150203185%_ + _%g203151203189%_)))) + (_%g203150203185%_ _%g203151203189%_)))) + (_%g203150203185%_ _%g203151203189%_)))) + (let ((_%symbol203168203262%_ (reverse _%symbol203165203215%_)) + (_%method203169203265%_ (reverse _%method203166203217%_)) + (_%type-t203170203267%_ + (reverse _%type-t203167203219%_))) + ((lambda (_%L203270%_ _%L203272%_ _%L203273%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203111%_ - _%L203113%_ - _%L203114%_)) - (let ((__tmp209048 - (lambda (_%g203130203135%_ - _%g203131203138%_ - _%g203132203140%_ - _%g203133203142%_) + _%L203270%_ + _%L203272%_ + _%L203273%_)) + (let ((__tmp209207 + (lambda (_%g203289203294%_ + _%g203290203297%_ + _%g203291203299%_ + _%g203292203301%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g203132203140%_ - (cons _%g203131203138%_ - (cons _%g203130203135%_ + (cons _%g203291203299%_ + (cons _%g203290203297%_ + (cons _%g203289203294%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203133203142%_)))) + _%g203292203301%_)))) (declare (not safe)) (__foldr* - __tmp209048 + __tmp209207 '() - _%L203111%_ - _%L203113%_ - _%L203114%_))))) - _%symbol203009203103%_ - _%method203010203106%_ - _%type-t203011203108%_)))))) + _%L203270%_ + _%L203272%_ + _%L203273%_))))) + _%symbol203168203262%_ + _%method203169203265%_ + _%type-t203170203267%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203002203049%_ - _%target202999203043%_ + (_%loop203161203208%_ + _%target203158203202%_ '() '() '())) - (_%g202991203026%_ - _%g202992203030%_))))) - (_%g202991203026%_ _%g202992203030%_)))) - (_%g202991203026%_ _%g202992203030%_))))) - (_%g202990203145%_ _%$stx202987%_)))) + (_%g203150203185%_ + _%g203151203189%_))))) + (_%g203150203185%_ _%g203151203189%_)))) + (_%g203150203185%_ _%g203151203189%_))))) + (_%g203149203304%_ _%$stx203146%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx203150%_) - (let* ((_%g203154203187%_ - (lambda (_%g203155203183%_) + (lambda (_%$stx203309%_) + (let* ((_%g203313203346%_ + (lambda (_%g203314203342%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203155203183%_)))) - (_%g203153203301%_ - (lambda (_%g203155203191%_) + _%g203314203342%_)))) + (_%g203312203460%_ + (lambda (_%g203314203350%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203155203191%_)) - (let ((_%e203159203194%_ + (gx#stx-pair? _%g203314203350%_)) + (let ((_%e203318203353%_ (let () (declare (not safe)) - (gx#syntax-e _%g203155203191%_)))) - (let ((_%hd203160203198%_ + (gx#syntax-e _%g203314203350%_)))) + (let ((_%hd203319203357%_ (let () (declare (not safe)) - (##car _%e203159203194%_))) - (_%tl203161203201%_ + (##car _%e203318203353%_))) + (_%tl203320203360%_ (let () (declare (not safe)) - (##cdr _%e203159203194%_)))) + (##cdr _%e203318203353%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203161203201%_)) - (let ((_%e203162203204%_ + (gx#stx-pair? _%tl203320203360%_)) + (let ((_%e203321203363%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203161203201%_)))) - (let ((_%hd203163203208%_ + (gx#syntax-e _%tl203320203360%_)))) + (let ((_%hd203322203367%_ (let () (declare (not safe)) - (##car _%e203162203204%_))) - (_%tl203164203211%_ + (##car _%e203321203363%_))) + (_%tl203323203370%_ (let () (declare (not safe)) - (##cdr _%e203162203204%_)))) + (##cdr _%e203321203363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203164203211%_)) - (let ((_g209049_ + (gx#stx-pair/null? _%tl203323203370%_)) + (let ((_g209208_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203164203211%_ + _%tl203323203370%_ '0)))) (begin - (let ((_g209050_ + (let ((_g209209_ (let () (declare (not safe)) - (if (##values? _g209049_) + (if (##values? _g209208_) (##vector-length - _g209049_) + _g209208_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209050_ 2))) + (##fx= _g209209_ 2))) (error "Context expects 2 values" - _g209050_))) - (let ((_%target203165203214%_ + _g209209_))) + (let ((_%target203324203373%_ (let () (declare (not safe)) - (##vector-ref _g209049_ 0))) - (_%tl203167203217%_ + (##vector-ref _g209208_ 0))) + (_%tl203326203376%_ (let () (declare (not safe)) (##vector-ref - _g209049_ + _g209208_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203167203217%_)) - (letrec ((_%loop203168203220%_ - (lambda (_%hd203166203224%_ + _%tl203326203376%_)) + (letrec ((_%loop203327203379%_ + (lambda (_%hd203325203383%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol203172203227%_ - _%method203173203229%_) + _%symbol203331203386%_ + _%method203332203388%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203166203224%_)) - (let ((_%e203169203232%_ + (gx#stx-pair? _%hd203325203383%_)) + (let ((_%e203328203391%_ (let () (declare (not safe)) - (gx#syntax-e _%hd203166203224%_)))) - (let ((_%lp-hd203170203236%_ + (gx#syntax-e _%hd203325203383%_)))) + (let ((_%lp-hd203329203395%_ (let () (declare (not safe)) - (##car _%e203169203232%_))) - (_%lp-tl203171203239%_ + (##car _%e203328203391%_))) + (_%lp-tl203330203398%_ (let () (declare (not safe)) - (##cdr _%e203169203232%_)))) + (##cdr _%e203328203391%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203170203236%_)) - (let ((_%e203176203242%_ + (gx#stx-pair? _%lp-hd203329203395%_)) + (let ((_%e203335203401%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203170203236%_)))) - (let ((_%hd203177203246%_ + (gx#syntax-e _%lp-hd203329203395%_)))) + (let ((_%hd203336203405%_ (let () (declare (not safe)) - (##car _%e203176203242%_))) - (_%tl203178203249%_ + (##car _%e203335203401%_))) + (_%tl203337203408%_ (let () (declare (not safe)) - (##cdr _%e203176203242%_)))) + (##cdr _%e203335203401%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203178203249%_)) - (let ((_%e203179203252%_ + (gx#stx-pair? _%tl203337203408%_)) + (let ((_%e203338203411%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203178203249%_)))) - (let ((_%hd203180203256%_ + _%tl203337203408%_)))) + (let ((_%hd203339203415%_ (let () (declare (not safe)) - (##car _%e203179203252%_))) - (_%tl203181203259%_ + (##car _%e203338203411%_))) + (_%tl203340203418%_ (let () (declare (not safe)) - (##cdr _%e203179203252%_)))) + (##cdr _%e203338203411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203181203259%_)) - (_%loop203168203220%_ - _%lp-tl203171203239%_ - (cons _%hd203180203256%_ - _%symbol203172203227%_) - (cons _%hd203177203246%_ - _%method203173203229%_)) - (_%g203154203187%_ - _%g203155203191%_)))) - (_%g203154203187%_ - _%g203155203191%_)))) - (_%g203154203187%_ _%g203155203191%_)))) - (let ((_%symbol203174203262%_ - (reverse _%symbol203172203227%_)) - (_%method203175203265%_ - (reverse _%method203173203229%_))) - ((lambda (_%L203268%_ _%L203270%_ _%L203271%_) + _%tl203340203418%_)) + (_%loop203327203379%_ + _%lp-tl203330203398%_ + (cons _%hd203339203415%_ + _%symbol203331203386%_) + (cons _%hd203336203405%_ + _%method203332203388%_)) + (_%g203313203346%_ + _%g203314203350%_)))) + (_%g203313203346%_ + _%g203314203350%_)))) + (_%g203313203346%_ _%g203314203350%_)))) + (let ((_%symbol203333203421%_ + (reverse _%symbol203331203386%_)) + (_%method203334203424%_ + (reverse _%method203332203388%_))) + ((lambda (_%L203427%_ _%L203429%_ _%L203430%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203268%_ - _%L203270%_)) - (let ((__tmp209051 - (lambda (_%g203289203293%_ - _%g203290203296%_ - _%g203291203298%_) + _%L203427%_ + _%L203429%_)) + (let ((__tmp209210 + (lambda (_%g203448203452%_ + _%g203449203455%_ + _%g203450203457%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L203271%_ - (cons _%g203290203296%_ + (cons _%L203430%_ + (cons _%g203449203455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g203289203293%_ '())))) + (cons _%g203448203452%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203291203298%_)))) + _%g203450203457%_)))) (declare (not safe)) (__foldr2 - __tmp209051 + __tmp209210 '() - _%L203268%_ - _%L203270%_))))) - _%symbol203174203262%_ - _%method203175203265%_ - _%hd203163203208%_)))))) + _%L203427%_ + _%L203429%_))))) + _%symbol203333203421%_ + _%method203334203424%_ + _%hd203322203367%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203168203220%_ - _%target203165203214%_ + (_%loop203327203379%_ + _%target203324203373%_ '() '())) - (_%g203154203187%_ - _%g203155203191%_))))) - (_%g203154203187%_ _%g203155203191%_)))) - (_%g203154203187%_ _%g203155203191%_)))) - (_%g203154203187%_ _%g203155203191%_))))) - (_%g203153203301%_ _%$stx203150%_)))) + (_%g203313203346%_ + _%g203314203350%_))))) + (_%g203313203346%_ _%g203314203350%_)))) + (_%g203313203346%_ _%g203314203350%_)))) + (_%g203313203346%_ _%g203314203350%_))))) + (_%g203312203460%_ _%$stx203309%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx203306%_) - (let* ((_%g203310203324%_ - (lambda (_%g203311203320%_) + (lambda (_%$stx203465%_) + (let* ((_%g203469203483%_ + (lambda (_%g203470203479%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203311203320%_)))) - (_%g203309203365%_ - (lambda (_%g203311203328%_) + _%g203470203479%_)))) + (_%g203468203524%_ + (lambda (_%g203470203487%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203311203328%_)) - (let ((_%e203313203331%_ + (gx#stx-pair? _%g203470203487%_)) + (let ((_%e203472203490%_ (let () (declare (not safe)) - (gx#syntax-e _%g203311203328%_)))) - (let ((_%hd203314203335%_ + (gx#syntax-e _%g203470203487%_)))) + (let ((_%hd203473203494%_ (let () (declare (not safe)) - (##car _%e203313203331%_))) - (_%tl203315203338%_ + (##car _%e203472203490%_))) + (_%tl203474203497%_ (let () (declare (not safe)) - (##cdr _%e203313203331%_)))) + (##cdr _%e203472203490%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203315203338%_)) - (let ((_%e203316203341%_ + (gx#stx-pair? _%tl203474203497%_)) + (let ((_%e203475203500%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203315203338%_)))) - (let ((_%hd203317203345%_ + (gx#syntax-e _%tl203474203497%_)))) + (let ((_%hd203476203504%_ (let () (declare (not safe)) - (##car _%e203316203341%_))) - (_%tl203318203348%_ + (##car _%e203475203500%_))) + (_%tl203477203507%_ (let () (declare (not safe)) - (##cdr _%e203316203341%_)))) + (##cdr _%e203475203500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203318203348%_)) - ((lambda (_%L203351%_) + (gx#stx-null? _%tl203477203507%_)) + ((lambda (_%L203510%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203351%_ + (cons _%L203510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203317203345%_) - (_%g203310203324%_ _%g203311203328%_)))) - (_%g203310203324%_ _%g203311203328%_)))) - (_%g203310203324%_ _%g203311203328%_))))) - (_%g203309203365%_ _%$stx203306%_)))) + _%hd203476203504%_) + (_%g203469203483%_ _%g203470203487%_)))) + (_%g203469203483%_ _%g203470203487%_)))) + (_%g203469203483%_ _%g203470203487%_))))) + (_%g203468203524%_ _%$stx203465%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx203369%_) - (let* ((_%g203373203427%_ - (lambda (_%g203374203423%_) + (lambda (_%$stx203528%_) + (let* ((_%g203532203586%_ + (lambda (_%g203533203582%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203374203423%_)))) - (_%g203372203608%_ - (lambda (_%g203374203431%_) + _%g203533203582%_)))) + (_%g203531203767%_ + (lambda (_%g203533203590%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203374203431%_)) - (let ((_%e203386203434%_ + (gx#stx-pair? _%g203533203590%_)) + (let ((_%e203545203593%_ (let () (declare (not safe)) - (gx#syntax-e _%g203374203431%_)))) - (let ((_%hd203387203438%_ + (gx#syntax-e _%g203533203590%_)))) + (let ((_%hd203546203597%_ (let () (declare (not safe)) - (##car _%e203386203434%_))) - (_%tl203388203441%_ + (##car _%e203545203593%_))) + (_%tl203547203600%_ (let () (declare (not safe)) - (##cdr _%e203386203434%_)))) + (##cdr _%e203545203593%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203388203441%_)) - (let ((_%e203389203444%_ + (gx#stx-pair? _%tl203547203600%_)) + (let ((_%e203548203603%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203388203441%_)))) - (let ((_%hd203390203448%_ + (gx#syntax-e _%tl203547203600%_)))) + (let ((_%hd203549203607%_ (let () (declare (not safe)) - (##car _%e203389203444%_))) - (_%tl203391203451%_ + (##car _%e203548203603%_))) + (_%tl203550203610%_ (let () (declare (not safe)) - (##cdr _%e203389203444%_)))) + (##cdr _%e203548203603%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203391203451%_)) - (let ((_%e203392203454%_ + (gx#stx-pair? _%tl203550203610%_)) + (let ((_%e203551203613%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203391203451%_)))) - (let ((_%hd203393203458%_ + _%tl203550203610%_)))) + (let ((_%hd203552203617%_ (let () (declare (not safe)) - (##car _%e203392203454%_))) - (_%tl203394203461%_ + (##car _%e203551203613%_))) + (_%tl203553203620%_ (let () (declare (not safe)) - (##cdr _%e203392203454%_)))) + (##cdr _%e203551203613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203394203461%_)) - (let ((_%e203395203464%_ + _%tl203553203620%_)) + (let ((_%e203554203623%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203394203461%_)))) - (let ((_%hd203396203468%_ + _%tl203553203620%_)))) + (let ((_%hd203555203627%_ (let () (declare (not safe)) - (##car _%e203395203464%_))) - (_%tl203397203471%_ + (##car _%e203554203623%_))) + (_%tl203556203630%_ (let () (declare (not safe)) - (##cdr _%e203395203464%_)))) + (##cdr _%e203554203623%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203397203471%_)) - (let ((_%e203398203474%_ + _%tl203556203630%_)) + (let ((_%e203557203633%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203397203471%_)))) - (let ((_%hd203399203478%_ - (let () (declare (not safe)) (##car _%e203398203474%_))) - (_%tl203400203481%_ + (gx#syntax-e _%tl203556203630%_)))) + (let ((_%hd203558203637%_ + (let () (declare (not safe)) (##car _%e203557203633%_))) + (_%tl203559203640%_ (let () (declare (not safe)) - (##cdr _%e203398203474%_)))) + (##cdr _%e203557203633%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203400203481%_)) - (let ((_%e203401203484%_ + (gx#stx-pair? _%tl203559203640%_)) + (let ((_%e203560203643%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203400203481%_)))) - (let ((_%hd203402203488%_ + (gx#syntax-e _%tl203559203640%_)))) + (let ((_%hd203561203647%_ (let () (declare (not safe)) - (##car _%e203401203484%_))) - (_%tl203403203491%_ + (##car _%e203560203643%_))) + (_%tl203562203650%_ (let () (declare (not safe)) - (##cdr _%e203401203484%_)))) + (##cdr _%e203560203643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203403203491%_)) - (let ((_%e203404203494%_ + (gx#stx-pair? _%tl203562203650%_)) + (let ((_%e203563203653%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203403203491%_)))) - (let ((_%hd203405203498%_ + (gx#syntax-e _%tl203562203650%_)))) + (let ((_%hd203564203657%_ (let () (declare (not safe)) - (##car _%e203404203494%_))) - (_%tl203406203501%_ + (##car _%e203563203653%_))) + (_%tl203565203660%_ (let () (declare (not safe)) - (##cdr _%e203404203494%_)))) + (##cdr _%e203563203653%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203406203501%_)) - (let ((_%e203407203504%_ + (gx#stx-pair? _%tl203565203660%_)) + (let ((_%e203566203663%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203406203501%_)))) - (let ((_%hd203408203508%_ + _%tl203565203660%_)))) + (let ((_%hd203567203667%_ (let () (declare (not safe)) - (##car _%e203407203504%_))) - (_%tl203409203511%_ + (##car _%e203566203663%_))) + (_%tl203568203670%_ (let () (declare (not safe)) - (##cdr _%e203407203504%_)))) + (##cdr _%e203566203663%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203409203511%_)) - (let ((_%e203410203514%_ + _%tl203568203670%_)) + (let ((_%e203569203673%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203409203511%_)))) - (let ((_%hd203411203518%_ + _%tl203568203670%_)))) + (let ((_%hd203570203677%_ (let () (declare (not safe)) - (##car _%e203410203514%_))) - (_%tl203412203521%_ + (##car _%e203569203673%_))) + (_%tl203571203680%_ (let () (declare (not safe)) - (##cdr _%e203410203514%_)))) + (##cdr _%e203569203673%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203412203521%_)) - (let ((_%e203413203524%_ + _%tl203571203680%_)) + (let ((_%e203572203683%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203412203521%_)))) - (let ((_%hd203414203528%_ - (let () (declare (not safe)) (##car _%e203413203524%_))) - (_%tl203415203531%_ + (gx#syntax-e _%tl203571203680%_)))) + (let ((_%hd203573203687%_ + (let () (declare (not safe)) (##car _%e203572203683%_))) + (_%tl203574203690%_ (let () (declare (not safe)) - (##cdr _%e203413203524%_)))) + (##cdr _%e203572203683%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203415203531%_)) - (let ((_%e203416203534%_ + (gx#stx-pair? _%tl203574203690%_)) + (let ((_%e203575203693%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203415203531%_)))) - (let ((_%hd203417203538%_ + (gx#syntax-e _%tl203574203690%_)))) + (let ((_%hd203576203697%_ (let () (declare (not safe)) - (##car _%e203416203534%_))) - (_%tl203418203541%_ + (##car _%e203575203693%_))) + (_%tl203577203700%_ (let () (declare (not safe)) - (##cdr _%e203416203534%_)))) + (##cdr _%e203575203693%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203418203541%_)) - (let ((_%e203419203544%_ + (gx#stx-pair? _%tl203577203700%_)) + (let ((_%e203578203703%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203418203541%_)))) - (let ((_%hd203420203548%_ + (gx#syntax-e _%tl203577203700%_)))) + (let ((_%hd203579203707%_ (let () (declare (not safe)) - (##car _%e203419203544%_))) - (_%tl203421203551%_ + (##car _%e203578203703%_))) + (_%tl203580203710%_ (let () (declare (not safe)) - (##cdr _%e203419203544%_)))) + (##cdr _%e203578203703%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203421203551%_)) - ((lambda (_%L203554%_ - _%L203556%_ - _%L203557%_ - _%L203558%_ - _%L203559%_ - _%L203560%_ - _%L203561%_ - _%L203562%_ - _%L203563%_ - _%L203564%_ - _%L203565%_) + (gx#stx-null? _%tl203580203710%_)) + ((lambda (_%L203713%_ + _%L203715%_ + _%L203716%_ + _%L203717%_ + _%L203718%_ + _%L203719%_ + _%L203720%_ + _%L203721%_ + _%L203722%_ + _%L203723%_ + _%L203724%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203565%_ + (cons _%L203724%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203564%_ '())) + (cons _%L203723%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203563%_ '())) + (cons _%L203722%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203562%_ '())) + (cons _%L203721%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203561%_ '())) + (cons _%L203720%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203560%_ '())) - (cons _%L203559%_ - (cons _%L203558%_ - (cons _%L203557%_ + (cons _%L203719%_ '())) + (cons _%L203718%_ + (cons _%L203717%_ + (cons _%L203716%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203556%_ '())) + (cons _%L203715%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203554%_ '())) + (cons _%L203713%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203420203548%_ - _%hd203417203538%_ - _%hd203414203528%_ - _%hd203411203518%_ - _%hd203408203508%_ - _%hd203405203498%_ - _%hd203402203488%_ - _%hd203399203478%_ - _%hd203396203468%_ - _%hd203393203458%_ - _%hd203390203448%_) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) + _%hd203579203707%_ + _%hd203576203697%_ + _%hd203573203687%_ + _%hd203570203677%_ + _%hd203567203667%_ + _%hd203564203657%_ + _%hd203561203647%_ + _%hd203558203637%_ + _%hd203555203627%_ + _%hd203552203617%_ + _%hd203549203607%_) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203373203427%_ - _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) + (_%g203532203586%_ + _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203373203427%_ - _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_))))) - (_%g203372203608%_ _%$stx203369%_)))) + (_%g203532203586%_ + _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_)))) + (_%g203532203586%_ _%g203533203590%_))))) + (_%g203531203767%_ _%$stx203528%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx203612%_) - (let* ((_%g203616203630%_ - (lambda (_%g203617203626%_) + (lambda (_%$stx203771%_) + (let* ((_%g203775203789%_ + (lambda (_%g203776203785%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203617203626%_)))) - (_%g203615203671%_ - (lambda (_%g203617203634%_) + _%g203776203785%_)))) + (_%g203774203830%_ + (lambda (_%g203776203793%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203617203634%_)) - (let ((_%e203619203637%_ + (gx#stx-pair? _%g203776203793%_)) + (let ((_%e203778203796%_ (let () (declare (not safe)) - (gx#syntax-e _%g203617203634%_)))) - (let ((_%hd203620203641%_ + (gx#syntax-e _%g203776203793%_)))) + (let ((_%hd203779203800%_ (let () (declare (not safe)) - (##car _%e203619203637%_))) - (_%tl203621203644%_ + (##car _%e203778203796%_))) + (_%tl203780203803%_ (let () (declare (not safe)) - (##cdr _%e203619203637%_)))) + (##cdr _%e203778203796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203621203644%_)) - (let ((_%e203622203647%_ + (gx#stx-pair? _%tl203780203803%_)) + (let ((_%e203781203806%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203621203644%_)))) - (let ((_%hd203623203651%_ + (gx#syntax-e _%tl203780203803%_)))) + (let ((_%hd203782203810%_ (let () (declare (not safe)) - (##car _%e203622203647%_))) - (_%tl203624203654%_ + (##car _%e203781203806%_))) + (_%tl203783203813%_ (let () (declare (not safe)) - (##cdr _%e203622203647%_)))) + (##cdr _%e203781203806%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203624203654%_)) - ((lambda (_%L203657%_) + (gx#stx-null? _%tl203783203813%_)) + ((lambda (_%L203816%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203657%_ + (cons _%L203816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203623203651%_) - (_%g203616203630%_ _%g203617203634%_)))) - (_%g203616203630%_ _%g203617203634%_)))) - (_%g203616203630%_ _%g203617203634%_))))) - (_%g203615203671%_ _%$stx203612%_)))) + _%hd203782203810%_) + (_%g203775203789%_ _%g203776203793%_)))) + (_%g203775203789%_ _%g203776203793%_)))) + (_%g203775203789%_ _%g203776203793%_))))) + (_%g203774203830%_ _%$stx203771%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx203675%_) - (let* ((_%g203679203693%_ - (lambda (_%g203680203689%_) + (lambda (_%$stx203834%_) + (let* ((_%g203838203852%_ + (lambda (_%g203839203848%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203680203689%_)))) - (_%g203678203734%_ - (lambda (_%g203680203697%_) + _%g203839203848%_)))) + (_%g203837203893%_ + (lambda (_%g203839203856%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203680203697%_)) - (let ((_%e203682203700%_ + (gx#stx-pair? _%g203839203856%_)) + (let ((_%e203841203859%_ (let () (declare (not safe)) - (gx#syntax-e _%g203680203697%_)))) - (let ((_%hd203683203704%_ + (gx#syntax-e _%g203839203856%_)))) + (let ((_%hd203842203863%_ (let () (declare (not safe)) - (##car _%e203682203700%_))) - (_%tl203684203707%_ + (##car _%e203841203859%_))) + (_%tl203843203866%_ (let () (declare (not safe)) - (##cdr _%e203682203700%_)))) + (##cdr _%e203841203859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203684203707%_)) - (let ((_%e203685203710%_ + (gx#stx-pair? _%tl203843203866%_)) + (let ((_%e203844203869%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203684203707%_)))) - (let ((_%hd203686203714%_ + (gx#syntax-e _%tl203843203866%_)))) + (let ((_%hd203845203873%_ (let () (declare (not safe)) - (##car _%e203685203710%_))) - (_%tl203687203717%_ + (##car _%e203844203869%_))) + (_%tl203846203876%_ (let () (declare (not safe)) - (##cdr _%e203685203710%_)))) + (##cdr _%e203844203869%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203687203717%_)) - ((lambda (_%L203720%_) + (gx#stx-null? _%tl203846203876%_)) + ((lambda (_%L203879%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203720%_ + (cons _%L203879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203686203714%_) - (_%g203679203693%_ _%g203680203697%_)))) - (_%g203679203693%_ _%g203680203697%_)))) - (_%g203679203693%_ _%g203680203697%_))))) - (_%g203678203734%_ _%$stx203675%_)))) + _%hd203845203873%_) + (_%g203838203852%_ _%g203839203856%_)))) + (_%g203838203852%_ _%g203839203856%_)))) + (_%g203838203852%_ _%g203839203856%_))))) + (_%g203837203893%_ _%$stx203834%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx203738%_) - (let* ((_%g203742203764%_ - (lambda (_%g203743203760%_) + (lambda (_%$stx203897%_) + (let* ((_%g203901203923%_ + (lambda (_%g203902203919%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203743203760%_)))) - (_%g203741203833%_ - (lambda (_%g203743203768%_) + _%g203902203919%_)))) + (_%g203900203992%_ + (lambda (_%g203902203927%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203743203768%_)) - (let ((_%e203747203771%_ + (gx#stx-pair? _%g203902203927%_)) + (let ((_%e203906203930%_ (let () (declare (not safe)) - (gx#syntax-e _%g203743203768%_)))) - (let ((_%hd203748203775%_ + (gx#syntax-e _%g203902203927%_)))) + (let ((_%hd203907203934%_ (let () (declare (not safe)) - (##car _%e203747203771%_))) - (_%tl203749203778%_ + (##car _%e203906203930%_))) + (_%tl203908203937%_ (let () (declare (not safe)) - (##cdr _%e203747203771%_)))) + (##cdr _%e203906203930%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203749203778%_)) - (let ((_%e203750203781%_ + (gx#stx-pair? _%tl203908203937%_)) + (let ((_%e203909203940%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203749203778%_)))) - (let ((_%hd203751203785%_ + (gx#syntax-e _%tl203908203937%_)))) + (let ((_%hd203910203944%_ (let () (declare (not safe)) - (##car _%e203750203781%_))) - (_%tl203752203788%_ + (##car _%e203909203940%_))) + (_%tl203911203947%_ (let () (declare (not safe)) - (##cdr _%e203750203781%_)))) + (##cdr _%e203909203940%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203752203788%_)) - (let ((_%e203753203791%_ + (gx#stx-pair? _%tl203911203947%_)) + (let ((_%e203912203950%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203752203788%_)))) - (let ((_%hd203754203795%_ + _%tl203911203947%_)))) + (let ((_%hd203913203954%_ (let () (declare (not safe)) - (##car _%e203753203791%_))) - (_%tl203755203798%_ + (##car _%e203912203950%_))) + (_%tl203914203957%_ (let () (declare (not safe)) - (##cdr _%e203753203791%_)))) + (##cdr _%e203912203950%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203755203798%_)) - (let ((_%e203756203801%_ + _%tl203914203957%_)) + (let ((_%e203915203960%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203755203798%_)))) - (let ((_%hd203757203805%_ + _%tl203914203957%_)))) + (let ((_%hd203916203964%_ (let () (declare (not safe)) - (##car _%e203756203801%_))) - (_%tl203758203808%_ + (##car _%e203915203960%_))) + (_%tl203917203967%_ (let () (declare (not safe)) - (##cdr _%e203756203801%_)))) + (##cdr _%e203915203960%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203758203808%_)) - ((lambda (_%L203811%_ - _%L203813%_ - _%L203814%_) + _%tl203917203967%_)) + ((lambda (_%L203970%_ + _%L203972%_ + _%L203973%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203814%_ '())) + (cons _%L203973%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203813%_ '())) - (cons _%L203811%_ '()))))) - _%hd203757203805%_ - _%hd203754203795%_ - _%hd203751203785%_) - (_%g203742203764%_ _%g203743203768%_)))) + (cons _%L203972%_ '())) + (cons _%L203970%_ '()))))) + _%hd203916203964%_ + _%hd203913203954%_ + _%hd203910203944%_) + (_%g203901203923%_ _%g203902203927%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203742203764%_ - _%g203743203768%_)))) - (_%g203742203764%_ _%g203743203768%_)))) - (_%g203742203764%_ _%g203743203768%_)))) - (_%g203742203764%_ _%g203743203768%_))))) - (_%g203741203833%_ _%$stx203738%_)))) + (_%g203901203923%_ + _%g203902203927%_)))) + (_%g203901203923%_ _%g203902203927%_)))) + (_%g203901203923%_ _%g203902203927%_)))) + (_%g203901203923%_ _%g203902203927%_))))) + (_%g203900203992%_ _%$stx203897%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx203837%_) - (let* ((_%g203841203863%_ - (lambda (_%g203842203859%_) + (lambda (_%$stx203996%_) + (let* ((_%g204000204022%_ + (lambda (_%g204001204018%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203842203859%_)))) - (_%g203840203932%_ - (lambda (_%g203842203867%_) + _%g204001204018%_)))) + (_%g203999204091%_ + (lambda (_%g204001204026%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203842203867%_)) - (let ((_%e203846203870%_ + (gx#stx-pair? _%g204001204026%_)) + (let ((_%e204005204029%_ (let () (declare (not safe)) - (gx#syntax-e _%g203842203867%_)))) - (let ((_%hd203847203874%_ + (gx#syntax-e _%g204001204026%_)))) + (let ((_%hd204006204033%_ (let () (declare (not safe)) - (##car _%e203846203870%_))) - (_%tl203848203877%_ + (##car _%e204005204029%_))) + (_%tl204007204036%_ (let () (declare (not safe)) - (##cdr _%e203846203870%_)))) + (##cdr _%e204005204029%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203848203877%_)) - (let ((_%e203849203880%_ + (gx#stx-pair? _%tl204007204036%_)) + (let ((_%e204008204039%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203848203877%_)))) - (let ((_%hd203850203884%_ + (gx#syntax-e _%tl204007204036%_)))) + (let ((_%hd204009204043%_ (let () (declare (not safe)) - (##car _%e203849203880%_))) - (_%tl203851203887%_ + (##car _%e204008204039%_))) + (_%tl204010204046%_ (let () (declare (not safe)) - (##cdr _%e203849203880%_)))) + (##cdr _%e204008204039%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203851203887%_)) - (let ((_%e203852203890%_ + (gx#stx-pair? _%tl204010204046%_)) + (let ((_%e204011204049%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203851203887%_)))) - (let ((_%hd203853203894%_ + _%tl204010204046%_)))) + (let ((_%hd204012204053%_ (let () (declare (not safe)) - (##car _%e203852203890%_))) - (_%tl203854203897%_ + (##car _%e204011204049%_))) + (_%tl204013204056%_ (let () (declare (not safe)) - (##cdr _%e203852203890%_)))) + (##cdr _%e204011204049%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203854203897%_)) - (let ((_%e203855203900%_ + _%tl204013204056%_)) + (let ((_%e204014204059%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203854203897%_)))) - (let ((_%hd203856203904%_ + _%tl204013204056%_)))) + (let ((_%hd204015204063%_ (let () (declare (not safe)) - (##car _%e203855203900%_))) - (_%tl203857203907%_ + (##car _%e204014204059%_))) + (_%tl204016204066%_ (let () (declare (not safe)) - (##cdr _%e203855203900%_)))) + (##cdr _%e204014204059%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203857203907%_)) - ((lambda (_%L203910%_ - _%L203912%_ - _%L203913%_) + _%tl204016204066%_)) + ((lambda (_%L204069%_ + _%L204071%_ + _%L204072%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203913%_ '())) + (cons _%L204072%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203912%_ '())) - (cons _%L203910%_ '()))))) - _%hd203856203904%_ - _%hd203853203894%_ - _%hd203850203884%_) - (_%g203841203863%_ _%g203842203867%_)))) + (cons _%L204071%_ '())) + (cons _%L204069%_ '()))))) + _%hd204015204063%_ + _%hd204012204053%_ + _%hd204009204043%_) + (_%g204000204022%_ _%g204001204026%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203841203863%_ - _%g203842203867%_)))) - (_%g203841203863%_ _%g203842203867%_)))) - (_%g203841203863%_ _%g203842203867%_)))) - (_%g203841203863%_ _%g203842203867%_))))) - (_%g203840203932%_ _%$stx203837%_)))) + (_%g204000204022%_ + _%g204001204026%_)))) + (_%g204000204022%_ _%g204001204026%_)))) + (_%g204000204022%_ _%g204001204026%_)))) + (_%g204000204022%_ _%g204001204026%_))))) + (_%g203999204091%_ _%$stx203996%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx203936%_) - (let* ((_%g203940203954%_ - (lambda (_%g203941203950%_) + (lambda (_%$stx204095%_) + (let* ((_%g204099204113%_ + (lambda (_%g204100204109%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203941203950%_)))) - (_%g203939203995%_ - (lambda (_%g203941203958%_) + _%g204100204109%_)))) + (_%g204098204154%_ + (lambda (_%g204100204117%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203941203958%_)) - (let ((_%e203943203961%_ + (gx#stx-pair? _%g204100204117%_)) + (let ((_%e204102204120%_ (let () (declare (not safe)) - (gx#syntax-e _%g203941203958%_)))) - (let ((_%hd203944203965%_ + (gx#syntax-e _%g204100204117%_)))) + (let ((_%hd204103204124%_ (let () (declare (not safe)) - (##car _%e203943203961%_))) - (_%tl203945203968%_ + (##car _%e204102204120%_))) + (_%tl204104204127%_ (let () (declare (not safe)) - (##cdr _%e203943203961%_)))) + (##cdr _%e204102204120%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203945203968%_)) - (let ((_%e203946203971%_ + (gx#stx-pair? _%tl204104204127%_)) + (let ((_%e204105204130%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203945203968%_)))) - (let ((_%hd203947203975%_ + (gx#syntax-e _%tl204104204127%_)))) + (let ((_%hd204106204134%_ (let () (declare (not safe)) - (##car _%e203946203971%_))) - (_%tl203948203978%_ + (##car _%e204105204130%_))) + (_%tl204107204137%_ (let () (declare (not safe)) - (##cdr _%e203946203971%_)))) + (##cdr _%e204105204130%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203948203978%_)) - ((lambda (_%L203981%_) + (gx#stx-null? _%tl204107204137%_)) + ((lambda (_%L204140%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203981%_ + (cons _%L204140%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203947203975%_) - (_%g203940203954%_ _%g203941203958%_)))) - (_%g203940203954%_ _%g203941203958%_)))) - (_%g203940203954%_ _%g203941203958%_))))) - (_%g203939203995%_ _%$stx203936%_)))) + _%hd204106204134%_) + (_%g204099204113%_ _%g204100204117%_)))) + (_%g204099204113%_ _%g204100204117%_)))) + (_%g204099204113%_ _%g204100204117%_))))) + (_%g204098204154%_ _%$stx204095%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx203999%_) - (let* ((_%g204003204021%_ - (lambda (_%g204004204017%_) + (lambda (_%$stx204158%_) + (let* ((_%g204162204180%_ + (lambda (_%g204163204176%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204004204017%_)))) - (_%g204002204076%_ - (lambda (_%g204004204025%_) + _%g204163204176%_)))) + (_%g204161204235%_ + (lambda (_%g204163204184%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204004204025%_)) - (let ((_%e204007204028%_ + (gx#stx-pair? _%g204163204184%_)) + (let ((_%e204166204187%_ (let () (declare (not safe)) - (gx#syntax-e _%g204004204025%_)))) - (let ((_%hd204008204032%_ + (gx#syntax-e _%g204163204184%_)))) + (let ((_%hd204167204191%_ (let () (declare (not safe)) - (##car _%e204007204028%_))) - (_%tl204009204035%_ + (##car _%e204166204187%_))) + (_%tl204168204194%_ (let () (declare (not safe)) - (##cdr _%e204007204028%_)))) + (##cdr _%e204166204187%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204009204035%_)) - (let ((_%e204010204038%_ + (gx#stx-pair? _%tl204168204194%_)) + (let ((_%e204169204197%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204009204035%_)))) - (let ((_%hd204011204042%_ + (gx#syntax-e _%tl204168204194%_)))) + (let ((_%hd204170204201%_ (let () (declare (not safe)) - (##car _%e204010204038%_))) - (_%tl204012204045%_ + (##car _%e204169204197%_))) + (_%tl204171204204%_ (let () (declare (not safe)) - (##cdr _%e204010204038%_)))) + (##cdr _%e204169204197%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204012204045%_)) - (let ((_%e204013204048%_ + (gx#stx-pair? _%tl204171204204%_)) + (let ((_%e204172204207%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204012204045%_)))) - (let ((_%hd204014204052%_ + _%tl204171204204%_)))) + (let ((_%hd204173204211%_ (let () (declare (not safe)) - (##car _%e204013204048%_))) - (_%tl204015204055%_ + (##car _%e204172204207%_))) + (_%tl204174204214%_ (let () (declare (not safe)) - (##cdr _%e204013204048%_)))) + (##cdr _%e204172204207%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204015204055%_)) - ((lambda (_%L204058%_ - _%L204060%_) + _%tl204174204214%_)) + ((lambda (_%L204217%_ + _%L204219%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204060%_ '())) + (cons _%L204219%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204058%_ '())) + (cons _%L204217%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204014204052%_ - _%hd204011204042%_) - (_%g204003204021%_ - _%g204004204025%_)))) - (_%g204003204021%_ _%g204004204025%_)))) - (_%g204003204021%_ _%g204004204025%_)))) - (_%g204003204021%_ _%g204004204025%_))))) - (_%g204002204076%_ _%$stx203999%_)))) + _%hd204173204211%_ + _%hd204170204201%_) + (_%g204162204180%_ + _%g204163204184%_)))) + (_%g204162204180%_ _%g204163204184%_)))) + (_%g204162204180%_ _%g204163204184%_)))) + (_%g204162204180%_ _%g204163204184%_))))) + (_%g204161204235%_ _%$stx204158%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx204080%_) - (let* ((_%__stx208422208423%_ _%$stx204080%_) - (_%g204087204148%_ + (lambda (_%$stx204239%_) + (let* ((_%__stx208581208582%_ _%$stx204239%_) + (_%g204246204307%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208422208423%_))))) - (let ((_%__kont208425208426%_ - (lambda (_%L204386%_ _%L204388%_) + _%__stx208581208582%_))))) + (let ((_%__kont208584208585%_ + (lambda (_%L204545%_ _%L204547%_) (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 _%L204388%_ '())) + (cons _%L204547%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204386%_ '())) + (cons _%L204545%_ '())) '()))))) - (_%__kont208427208428%_ - (lambda (_%L204325%_ _%L204327%_ _%L204328%_) + (_%__kont208586208587%_ + (lambda (_%L204484%_ _%L204486%_ _%L204487%_) (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 _%L204328%_ '())) + (cons _%L204487%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204327%_ '())) + (cons _%L204486%_ '())) (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 _%L204325%_ '())) + (cons _%L204484%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont208429208430%_ - (lambda (_%L204249%_ _%L204251%_) - (cons _%L204251%_ (cons _%L204249%_ (cons '#f '()))))) - (_%__kont208431208432%_ - (lambda (_%L204199%_ _%L204201%_ _%L204202%_) - (cons _%L204202%_ - (cons _%L204201%_ + (_%__kont208588208589%_ + (lambda (_%L204408%_ _%L204410%_) + (cons _%L204410%_ (cons _%L204408%_ (cons '#f '()))))) + (_%__kont208590208591%_ + (lambda (_%L204358%_ _%L204360%_ _%L204361%_) + (cons _%L204361%_ + (cons _%L204360%_ (cons '#f (cons 'signature: - (cons _%L204199%_ '())))))))) + (cons _%L204358%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208422208423%_)) - (let ((_%e204091204356%_ + (gx#stx-pair? _%__stx208581208582%_)) + (let ((_%e204250204515%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208422208423%_)))) - (let ((_%tl204093204363%_ + (gx#syntax-e _%__stx208581208582%_)))) + (let ((_%tl204252204522%_ (let () (declare (not safe)) - (##cdr _%e204091204356%_))) - (_%hd204092204360%_ + (##cdr _%e204250204515%_))) + (_%hd204251204519%_ (let () (declare (not safe)) - (##car _%e204091204356%_)))) + (##car _%e204250204515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204093204363%_)) - (let ((_%e204094204366%_ + (gx#stx-pair? _%tl204252204522%_)) + (let ((_%e204253204525%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204093204363%_)))) - (let ((_%tl204096204373%_ + (gx#syntax-e _%tl204252204522%_)))) + (let ((_%tl204255204532%_ (let () (declare (not safe)) - (##cdr _%e204094204366%_))) - (_%hd204095204370%_ + (##cdr _%e204253204525%_))) + (_%hd204254204529%_ (let () (declare (not safe)) - (##car _%e204094204366%_)))) + (##car _%e204253204525%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204096204373%_)) - (let ((_%e204097204376%_ + (gx#stx-pair? _%tl204255204532%_)) + (let ((_%e204256204535%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204096204373%_)))) - (let ((_%tl204099204383%_ + (gx#syntax-e _%tl204255204532%_)))) + (let ((_%tl204258204542%_ (let () (declare (not safe)) - (##cdr _%e204097204376%_))) - (_%hd204098204380%_ + (##cdr _%e204256204535%_))) + (_%hd204257204539%_ (let () (declare (not safe)) - (##car _%e204097204376%_)))) + (##car _%e204256204535%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204099204383%_)) - (_%__kont208425208426%_ - _%hd204098204380%_ - _%hd204095204370%_) + (gx#stx-null? _%tl204258204542%_)) + (_%__kont208584208585%_ + _%hd204257204539%_ + _%hd204254204529%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204099204383%_)) - (let ((_%e204112204301%_ + _%tl204258204542%_)) + (let ((_%e204271204460%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204099204383%_)))) - (let ((_%tl204114204308%_ + _%tl204258204542%_)))) + (let ((_%tl204273204467%_ (let () (declare (not safe)) - (##cdr _%e204112204301%_))) - (_%hd204113204305%_ + (##cdr _%e204271204460%_))) + (_%hd204272204464%_ (let () (declare (not safe)) - (##car _%e204112204301%_)))) + (##car _%e204271204460%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204113204305%_)) - (let ((_%e204115204311%_ + _%hd204272204464%_)) + (let ((_%e204274204470%_ (let () (declare (not safe)) (gx#stx-e - _%hd204113204305%_)))) - (if (equal? _%e204115204311%_ + _%hd204272204464%_)))) + (if (equal? _%e204274204470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204114204308%_)) - (let ((_%e204116204315%_ + (gx#stx-pair? _%tl204273204467%_)) + (let ((_%e204275204474%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204114204308%_)))) - (let ((_%tl204118204322%_ + (gx#syntax-e _%tl204273204467%_)))) + (let ((_%tl204277204481%_ (let () (declare (not safe)) - (##cdr _%e204116204315%_))) - (_%hd204117204319%_ + (##cdr _%e204275204474%_))) + (_%hd204276204478%_ (let () (declare (not safe)) - (##car _%e204116204315%_)))) + (##car _%e204275204474%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204118204322%_)) - (_%__kont208427208428%_ - _%hd204117204319%_ - _%hd204098204380%_ - _%hd204095204370%_) + (gx#stx-null? _%tl204277204481%_)) + (_%__kont208586208587%_ + _%hd204276204478%_ + _%hd204257204539%_ + _%hd204254204529%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204098204380%_)) - (let ((_%e204139204185%_ + (gx#stx-datum? _%hd204257204539%_)) + (let ((_%e204298204344%_ (let () (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) + (gx#stx-e _%hd204257204539%_)))) (declare (not safe)) - (_%g204087204148%_)) + (_%g204246204307%_)) (let () (declare (not safe)) - (_%g204087204148%_)))))) + (_%g204246204307%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204098204380%_)) - (let ((_%e204139204185%_ + (gx#stx-datum? _%hd204257204539%_)) + (let ((_%e204298204344%_ (let () (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) - (if (equal? _%e204139204185%_ 'signature:) + (gx#stx-e _%hd204257204539%_)))) + (if (equal? _%e204298204344%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204114204308%_)) - (_%__kont208431208432%_ - _%hd204113204305%_ - _%hd204095204370%_ - _%hd204092204360%_) + (gx#stx-null? _%tl204273204467%_)) + (_%__kont208590208591%_ + _%hd204272204464%_ + _%hd204254204529%_ + _%hd204251204519%_) (let () (declare (not safe)) - (_%g204087204148%_))) + (_%g204246204307%_))) (let () (declare (not safe)) - (_%g204087204148%_)))) - (let () (declare (not safe)) (_%g204087204148%_)))) + (_%g204246204307%_)))) + (let () (declare (not safe)) (_%g204246204307%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204098204380%_)) - (let ((_%e204139204185%_ + (gx#stx-datum? _%hd204257204539%_)) + (let ((_%e204298204344%_ (let () (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) - (if (equal? _%e204139204185%_ 'signature:) + (gx#stx-e _%hd204257204539%_)))) + (if (equal? _%e204298204344%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204114204308%_)) - (_%__kont208431208432%_ - _%hd204113204305%_ - _%hd204095204370%_ - _%hd204092204360%_) + (gx#stx-null? _%tl204273204467%_)) + (_%__kont208590208591%_ + _%hd204272204464%_ + _%hd204254204529%_ + _%hd204251204519%_) (let () (declare (not safe)) - (_%g204087204148%_))) - (let () (declare (not safe)) (_%g204087204148%_)))) - (let () (declare (not safe)) (_%g204087204148%_))))) + (_%g204246204307%_))) + (let () (declare (not safe)) (_%g204246204307%_)))) + (let () (declare (not safe)) (_%g204246204307%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204098204380%_)) - (let ((_%e204139204185%_ + _%hd204257204539%_)) + (let ((_%e204298204344%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) - (if (equal? _%e204139204185%_ 'signature:) + (gx#stx-e _%hd204257204539%_)))) + (if (equal? _%e204298204344%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204114204308%_)) - (_%__kont208431208432%_ - _%hd204113204305%_ - _%hd204095204370%_ - _%hd204092204360%_) - (let () (declare (not safe)) (_%g204087204148%_))) - (let () (declare (not safe)) (_%g204087204148%_)))) - (let () (declare (not safe)) (_%g204087204148%_)))))) + (gx#stx-null? _%tl204273204467%_)) + (_%__kont208590208591%_ + _%hd204272204464%_ + _%hd204254204529%_ + _%hd204251204519%_) + (let () (declare (not safe)) (_%g204246204307%_))) + (let () (declare (not safe)) (_%g204246204307%_)))) + (let () (declare (not safe)) (_%g204246204307%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204098204380%_)) - (let ((_%e204139204185%_ + _%hd204257204539%_)) + (let ((_%e204298204344%_ (let () (declare (not safe)) (gx#stx-e - _%hd204098204380%_)))) + _%hd204257204539%_)))) (declare (not safe)) - (_%g204087204148%_)) + (_%g204246204307%_)) (let () (declare (not safe)) - (_%g204087204148%_))))))) + (_%g204246204307%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204096204373%_)) - (_%__kont208429208430%_ - _%hd204095204370%_ - _%hd204092204360%_) + (gx#stx-null? _%tl204255204532%_)) + (_%__kont208588208589%_ + _%hd204254204529%_ + _%hd204251204519%_) (let () (declare (not safe)) - (_%g204087204148%_)))))) - (let () (declare (not safe)) (_%g204087204148%_))))) - (let () (declare (not safe)) (_%g204087204148%_))))))) + (_%g204246204307%_)))))) + (let () (declare (not safe)) (_%g204246204307%_))))) + (let () (declare (not safe)) (_%g204246204307%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx204407%_) - (let* ((_%g204411204440%_ - (lambda (_%g204412204436%_) + (lambda (_%$stx204566%_) + (let* ((_%g204570204599%_ + (lambda (_%g204571204595%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204412204436%_)))) - (_%g204410204549%_ - (lambda (_%g204412204444%_) + _%g204571204595%_)))) + (_%g204569204708%_ + (lambda (_%g204571204603%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204412204444%_)) - (let ((_%e204414204447%_ + (gx#stx-pair? _%g204571204603%_)) + (let ((_%e204573204606%_ (let () (declare (not safe)) - (gx#syntax-e _%g204412204444%_)))) - (let ((_%hd204415204451%_ + (gx#syntax-e _%g204571204603%_)))) + (let ((_%hd204574204610%_ (let () (declare (not safe)) - (##car _%e204414204447%_))) - (_%tl204416204454%_ + (##car _%e204573204606%_))) + (_%tl204575204613%_ (let () (declare (not safe)) - (##cdr _%e204414204447%_)))) + (##cdr _%e204573204606%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204416204454%_)) - (let ((_g209052_ + (gx#stx-pair/null? _%tl204575204613%_)) + (let ((_g209211_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204416204454%_ + _%tl204575204613%_ '0)))) (begin - (let ((_g209053_ + (let ((_g209212_ (let () (declare (not safe)) - (if (##values? _g209052_) - (##vector-length _g209052_) + (if (##values? _g209211_) + (##vector-length _g209211_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209053_ 2))) + (##fx= _g209212_ 2))) (error "Context expects 2 values" - _g209053_))) - (let ((_%target204417204457%_ + _g209212_))) + (let ((_%target204576204616%_ (let () (declare (not safe)) - (##vector-ref _g209052_ 0))) - (_%tl204419204460%_ + (##vector-ref _g209211_ 0))) + (_%tl204578204619%_ (let () (declare (not safe)) - (##vector-ref _g209052_ 1)))) + (##vector-ref _g209211_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204419204460%_)) - (letrec ((_%loop204420204463%_ - (lambda (_%hd204418204467%_ - _%clause204424204470%_) + (gx#stx-null? _%tl204578204619%_)) + (letrec ((_%loop204579204622%_ + (lambda (_%hd204577204626%_ + _%clause204583204629%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204418204467%_)) - (let ((_%e204421204473%_ + _%hd204577204626%_)) + (let ((_%e204580204632%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204418204467%_)))) - (let ((_%lp-hd204422204477%_ + (gx#syntax-e _%hd204577204626%_)))) + (let ((_%lp-hd204581204636%_ (let () (declare (not safe)) - (##car _%e204421204473%_))) - (_%lp-tl204423204480%_ + (##car _%e204580204632%_))) + (_%lp-tl204582204639%_ (let () (declare (not safe)) - (##cdr _%e204421204473%_)))) + (##cdr _%e204580204632%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd204422204477%_)) - (let ((_g209054_ + (gx#stx-pair/null? _%lp-hd204581204636%_)) + (let ((_g209213_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd204422204477%_ + _%lp-hd204581204636%_ '0)))) (begin - (let ((_g209055_ + (let ((_g209214_ (let () (declare (not safe)) - (if (##values? _g209054_) - (##vector-length _g209054_) + (if (##values? _g209213_) + (##vector-length _g209213_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209055_ 2))) + (##fx= _g209214_ 2))) (error "Context expects 2 values" - _g209055_))) - (let ((_%target204426204483%_ + _g209214_))) + (let ((_%target204585204642%_ (let () (declare (not safe)) - (##vector-ref _g209054_ 0))) - (_%tl204428204486%_ + (##vector-ref _g209213_ 0))) + (_%tl204587204645%_ (let () (declare (not safe)) - (##vector-ref _g209054_ 1)))) + (##vector-ref _g209213_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204428204486%_)) - (letrec ((_%loop204429204489%_ - (lambda (_%hd204427204493%_ - _%clause204433204496%_) + (gx#stx-null? _%tl204587204645%_)) + (letrec ((_%loop204588204648%_ + (lambda (_%hd204586204652%_ + _%clause204592204655%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204427204493%_)) - (let ((_%e204430204499%_ + _%hd204586204652%_)) + (let ((_%e204589204658%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204427204493%_)))) - (let ((_%lp-hd204431204503%_ + _%hd204586204652%_)))) + (let ((_%lp-hd204590204662%_ (let () (declare (not safe)) - (##car _%e204430204499%_))) - (_%lp-tl204432204506%_ + (##car _%e204589204658%_))) + (_%lp-tl204591204665%_ (let () (declare (not safe)) - (##cdr _%e204430204499%_)))) - (_%loop204429204489%_ - _%lp-tl204432204506%_ - (cons _%lp-hd204431204503%_ - _%clause204433204496%_)))) - (let ((_%clause204434204509%_ - (reverse _%clause204433204496%_))) - (_%loop204420204463%_ - _%lp-tl204423204480%_ - (cons _%clause204434204509%_ - _%clause204424204470%_))))))) - (_%loop204429204489%_ - _%target204426204483%_ + (##cdr _%e204589204658%_)))) + (_%loop204588204648%_ + _%lp-tl204591204665%_ + (cons _%lp-hd204590204662%_ + _%clause204592204655%_)))) + (let ((_%clause204593204668%_ + (reverse _%clause204592204655%_))) + (_%loop204579204622%_ + _%lp-tl204582204639%_ + (cons _%clause204593204668%_ + _%clause204583204629%_))))))) + (_%loop204588204648%_ + _%target204585204642%_ '())) - (_%g204411204440%_ _%g204412204444%_))))) - (_%g204411204440%_ _%g204412204444%_)))) - (let ((_%clause204425204513%_ - (reverse _%clause204424204470%_))) - ((lambda (_%L204517%_) + (_%g204570204599%_ _%g204571204603%_))))) + (_%g204570204599%_ _%g204571204603%_)))) + (let ((_%clause204584204672%_ + (reverse _%clause204583204629%_))) + ((lambda (_%L204676%_) (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 ((__tmp209056 - (lambda (_%g204532204537%_ - _%g204533204540%_) + (let ((__tmp209215 + (lambda (_%g204691204696%_ + _%g204692204699%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp209057 + (let ((__tmp209216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g204534204543%_ _%g204535204546%_) - (cons _%g204534204543%_ _%g204535204546%_)))) + (lambda (_%g204693204702%_ _%g204694204705%_) + (cons _%g204693204702%_ _%g204694204705%_)))) (declare (not safe)) - (__foldr1 __tmp209057 '() _%g204532204537%_))) - _%g204533204540%_)))) + (__foldr1 __tmp209216 '() _%g204691204696%_))) + _%g204692204699%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp209056 + __tmp209215 '() - _%L204517%_))) + _%L204676%_))) '()))) - _%clause204425204513%_)))))) + _%clause204584204672%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204420204463%_ - _%target204417204457%_ + (_%loop204579204622%_ + _%target204576204616%_ '())) - (_%g204411204440%_ - _%g204412204444%_))))) - (_%g204411204440%_ _%g204412204444%_)))) - (_%g204411204440%_ _%g204412204444%_))))) - (_%g204410204549%_ _%$stx204407%_)))) + (_%g204570204599%_ + _%g204571204603%_))))) + (_%g204570204599%_ _%g204571204603%_)))) + (_%g204570204599%_ _%g204571204603%_))))) + (_%g204569204708%_ _%$stx204566%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx204555%_) - (let* ((_%g204559204577%_ - (lambda (_%g204560204573%_) + (lambda (_%$stx204714%_) + (let* ((_%g204718204736%_ + (lambda (_%g204719204732%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204560204573%_)))) - (_%g204558204632%_ - (lambda (_%g204560204581%_) + _%g204719204732%_)))) + (_%g204717204791%_ + (lambda (_%g204719204740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204560204581%_)) - (let ((_%e204563204584%_ + (gx#stx-pair? _%g204719204740%_)) + (let ((_%e204722204743%_ (let () (declare (not safe)) - (gx#syntax-e _%g204560204581%_)))) - (let ((_%hd204564204588%_ + (gx#syntax-e _%g204719204740%_)))) + (let ((_%hd204723204747%_ (let () (declare (not safe)) - (##car _%e204563204584%_))) - (_%tl204565204591%_ + (##car _%e204722204743%_))) + (_%tl204724204750%_ (let () (declare (not safe)) - (##cdr _%e204563204584%_)))) + (##cdr _%e204722204743%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204565204591%_)) - (let ((_%e204566204594%_ + (gx#stx-pair? _%tl204724204750%_)) + (let ((_%e204725204753%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204565204591%_)))) - (let ((_%hd204567204598%_ + (gx#syntax-e _%tl204724204750%_)))) + (let ((_%hd204726204757%_ (let () (declare (not safe)) - (##car _%e204566204594%_))) - (_%tl204568204601%_ + (##car _%e204725204753%_))) + (_%tl204727204760%_ (let () (declare (not safe)) - (##cdr _%e204566204594%_)))) + (##cdr _%e204725204753%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204568204601%_)) - (let ((_%e204569204604%_ + (gx#stx-pair? _%tl204727204760%_)) + (let ((_%e204728204763%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204568204601%_)))) - (let ((_%hd204570204608%_ + _%tl204727204760%_)))) + (let ((_%hd204729204767%_ (let () (declare (not safe)) - (##car _%e204569204604%_))) - (_%tl204571204611%_ + (##car _%e204728204763%_))) + (_%tl204730204770%_ (let () (declare (not safe)) - (##cdr _%e204569204604%_)))) + (##cdr _%e204728204763%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204571204611%_)) - ((lambda (_%L204614%_ - _%L204616%_) + _%tl204730204770%_)) + ((lambda (_%L204773%_ + _%L204775%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204616%_ '())) + (cons _%L204775%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204614%_ '())) + (cons _%L204773%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204570204608%_ - _%hd204567204598%_) - (_%g204559204577%_ - _%g204560204581%_)))) - (_%g204559204577%_ _%g204560204581%_)))) - (_%g204559204577%_ _%g204560204581%_)))) - (_%g204559204577%_ _%g204560204581%_))))) - (_%g204558204632%_ _%$stx204555%_)))) + _%hd204729204767%_ + _%hd204726204757%_) + (_%g204718204736%_ + _%g204719204740%_)))) + (_%g204718204736%_ _%g204719204740%_)))) + (_%g204718204736%_ _%g204719204740%_)))) + (_%g204718204736%_ _%g204719204740%_))))) + (_%g204717204791%_ _%$stx204714%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx204636%_) - (let* ((_%g204640204658%_ - (lambda (_%g204641204654%_) + (lambda (_%$stx204795%_) + (let* ((_%g204799204817%_ + (lambda (_%g204800204813%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204641204654%_)))) - (_%g204639204713%_ - (lambda (_%g204641204662%_) + _%g204800204813%_)))) + (_%g204798204872%_ + (lambda (_%g204800204821%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204641204662%_)) - (let ((_%e204644204665%_ + (gx#stx-pair? _%g204800204821%_)) + (let ((_%e204803204824%_ (let () (declare (not safe)) - (gx#syntax-e _%g204641204662%_)))) - (let ((_%hd204645204669%_ + (gx#syntax-e _%g204800204821%_)))) + (let ((_%hd204804204828%_ (let () (declare (not safe)) - (##car _%e204644204665%_))) - (_%tl204646204672%_ + (##car _%e204803204824%_))) + (_%tl204805204831%_ (let () (declare (not safe)) - (##cdr _%e204644204665%_)))) + (##cdr _%e204803204824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204646204672%_)) - (let ((_%e204647204675%_ + (gx#stx-pair? _%tl204805204831%_)) + (let ((_%e204806204834%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204646204672%_)))) - (let ((_%hd204648204679%_ + (gx#syntax-e _%tl204805204831%_)))) + (let ((_%hd204807204838%_ (let () (declare (not safe)) - (##car _%e204647204675%_))) - (_%tl204649204682%_ + (##car _%e204806204834%_))) + (_%tl204808204841%_ (let () (declare (not safe)) - (##cdr _%e204647204675%_)))) + (##cdr _%e204806204834%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204649204682%_)) - (let ((_%e204650204685%_ + (gx#stx-pair? _%tl204808204841%_)) + (let ((_%e204809204844%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204649204682%_)))) - (let ((_%hd204651204689%_ + _%tl204808204841%_)))) + (let ((_%hd204810204848%_ (let () (declare (not safe)) - (##car _%e204650204685%_))) - (_%tl204652204692%_ + (##car _%e204809204844%_))) + (_%tl204811204851%_ (let () (declare (not safe)) - (##cdr _%e204650204685%_)))) + (##cdr _%e204809204844%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204652204692%_)) - ((lambda (_%L204695%_ - _%L204697%_) + _%tl204811204851%_)) + ((lambda (_%L204854%_ + _%L204856%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204697%_ '())) + (cons _%L204856%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204695%_ '())) + (cons _%L204854%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204651204689%_ - _%hd204648204679%_) - (_%g204640204658%_ - _%g204641204662%_)))) - (_%g204640204658%_ _%g204641204662%_)))) - (_%g204640204658%_ _%g204641204662%_)))) - (_%g204640204658%_ _%g204641204662%_))))) - (_%g204639204713%_ _%$stx204636%_)))) + _%hd204810204848%_ + _%hd204807204838%_) + (_%g204799204817%_ + _%g204800204821%_)))) + (_%g204799204817%_ _%g204800204821%_)))) + (_%g204799204817%_ _%g204800204821%_)))) + (_%g204799204817%_ _%g204800204821%_))))) + (_%g204798204872%_ _%$stx204795%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx204717%_) - (let* ((_%g204721204750%_ - (lambda (_%g204722204746%_) + (lambda (_%$stx204876%_) + (let* ((_%g204880204909%_ + (lambda (_%g204881204905%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204722204746%_)))) - (_%g204720204850%_ - (lambda (_%g204722204754%_) + _%g204881204905%_)))) + (_%g204879205009%_ + (lambda (_%g204881204913%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204722204754%_)) - (let ((_%e204725204757%_ + (gx#stx-pair? _%g204881204913%_)) + (let ((_%e204884204916%_ (let () (declare (not safe)) - (gx#syntax-e _%g204722204754%_)))) - (let ((_%hd204726204761%_ + (gx#syntax-e _%g204881204913%_)))) + (let ((_%hd204885204920%_ (let () (declare (not safe)) - (##car _%e204725204757%_))) - (_%tl204727204764%_ + (##car _%e204884204916%_))) + (_%tl204886204923%_ (let () (declare (not safe)) - (##cdr _%e204725204757%_)))) + (##cdr _%e204884204916%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204727204764%_)) - (let ((_g209058_ + (gx#stx-pair/null? _%tl204886204923%_)) + (let ((_g209217_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204727204764%_ + _%tl204886204923%_ '0)))) (begin - (let ((_g209059_ + (let ((_g209218_ (let () (declare (not safe)) - (if (##values? _g209058_) - (##vector-length _g209058_) + (if (##values? _g209217_) + (##vector-length _g209217_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209059_ 2))) + (##fx= _g209218_ 2))) (error "Context expects 2 values" - _g209059_))) - (let ((_%target204728204767%_ + _g209218_))) + (let ((_%target204887204926%_ (let () (declare (not safe)) - (##vector-ref _g209058_ 0))) - (_%tl204730204770%_ + (##vector-ref _g209217_ 0))) + (_%tl204889204929%_ (let () (declare (not safe)) - (##vector-ref _g209058_ 1)))) + (##vector-ref _g209217_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204730204770%_)) - (letrec ((_%loop204731204773%_ - (lambda (_%hd204729204777%_ - _%rule204735204780%_ - _%proc204736204782%_) + (gx#stx-null? _%tl204889204929%_)) + (letrec ((_%loop204890204932%_ + (lambda (_%hd204888204936%_ + _%rule204894204939%_ + _%proc204895204941%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204729204777%_)) - (let ((_%e204732204785%_ + _%hd204888204936%_)) + (let ((_%e204891204944%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204729204777%_)))) - (let ((_%lp-hd204733204789%_ + (gx#syntax-e _%hd204888204936%_)))) + (let ((_%lp-hd204892204948%_ (let () (declare (not safe)) - (##car _%e204732204785%_))) - (_%lp-tl204734204792%_ + (##car _%e204891204944%_))) + (_%lp-tl204893204951%_ (let () (declare (not safe)) - (##cdr _%e204732204785%_)))) + (##cdr _%e204891204944%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd204733204789%_)) - (let ((_%e204739204795%_ + (gx#stx-pair? _%lp-hd204892204948%_)) + (let ((_%e204898204954%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd204733204789%_)))) - (let ((_%hd204740204799%_ + (gx#syntax-e _%lp-hd204892204948%_)))) + (let ((_%hd204899204958%_ (let () (declare (not safe)) - (##car _%e204739204795%_))) - (_%tl204741204802%_ + (##car _%e204898204954%_))) + (_%tl204900204961%_ (let () (declare (not safe)) - (##cdr _%e204739204795%_)))) + (##cdr _%e204898204954%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204741204802%_)) - (let ((_%e204742204805%_ + (gx#stx-pair? _%tl204900204961%_)) + (let ((_%e204901204964%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204741204802%_)))) - (let ((_%hd204743204809%_ + (gx#syntax-e _%tl204900204961%_)))) + (let ((_%hd204902204968%_ (let () (declare (not safe)) - (##car _%e204742204805%_))) - (_%tl204744204812%_ + (##car _%e204901204964%_))) + (_%tl204903204971%_ (let () (declare (not safe)) - (##cdr _%e204742204805%_)))) + (##cdr _%e204901204964%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204744204812%_)) - (_%loop204731204773%_ - _%lp-tl204734204792%_ - (cons _%hd204743204809%_ - _%rule204735204780%_) - (cons _%hd204740204799%_ - _%proc204736204782%_)) - (_%g204721204750%_ - _%g204722204754%_)))) - (_%g204721204750%_ _%g204722204754%_)))) - (_%g204721204750%_ _%g204722204754%_)))) - (let ((_%rule204737204815%_ (reverse _%rule204735204780%_)) - (_%proc204738204818%_ (reverse _%proc204736204782%_))) - ((lambda (_%L204821%_ _%L204823%_) + (gx#stx-null? _%tl204903204971%_)) + (_%loop204890204932%_ + _%lp-tl204893204951%_ + (cons _%hd204902204968%_ + _%rule204894204939%_) + (cons _%hd204899204958%_ + _%proc204895204941%_)) + (_%g204880204909%_ + _%g204881204913%_)))) + (_%g204880204909%_ _%g204881204913%_)))) + (_%g204880204909%_ _%g204881204913%_)))) + (let ((_%rule204896204974%_ (reverse _%rule204894204939%_)) + (_%proc204897204977%_ (reverse _%proc204895204941%_))) + ((lambda (_%L204980%_ _%L204982%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L204821%_ - _%L204823%_)) - (let ((__tmp209060 - (lambda (_%g204838204842%_ - _%g204839204845%_ - _%g204840204847%_) + _%L204980%_ + _%L204982%_)) + (let ((__tmp209219 + (lambda (_%g204997205001%_ + _%g204998205004%_ + _%g204999205006%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g204839204845%_ - (cons _%g204838204842%_ + (cons _%g204998205004%_ + (cons _%g204997205001%_ '()))) - _%g204840204847%_)))) + _%g204999205006%_)))) (declare (not safe)) (__foldr2 - __tmp209060 + __tmp209219 '() - _%L204821%_ - _%L204823%_))))) - _%rule204737204815%_ - _%proc204738204818%_)))))) + _%L204980%_ + _%L204982%_))))) + _%rule204896204974%_ + _%proc204897204977%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204731204773%_ - _%target204728204767%_ + (_%loop204890204932%_ + _%target204887204926%_ '() '())) - (_%g204721204750%_ - _%g204722204754%_))))) - (_%g204721204750%_ _%g204722204754%_)))) - (_%g204721204750%_ _%g204722204754%_))))) - (_%g204720204850%_ _%$stx204717%_)))) + (_%g204880204909%_ + _%g204881204913%_))))) + (_%g204880204909%_ _%g204881204913%_)))) + (_%g204880204909%_ _%g204881204913%_))))) + (_%g204879205009%_ _%$stx204876%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx204855%_) - (let* ((_%g204859204877%_ - (lambda (_%g204860204873%_) + (lambda (_%$stx205014%_) + (let* ((_%g205018205036%_ + (lambda (_%g205019205032%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204860204873%_)))) - (_%g204858204932%_ - (lambda (_%g204860204881%_) + _%g205019205032%_)))) + (_%g205017205091%_ + (lambda (_%g205019205040%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204860204881%_)) - (let ((_%e204863204884%_ + (gx#stx-pair? _%g205019205040%_)) + (let ((_%e205022205043%_ (let () (declare (not safe)) - (gx#syntax-e _%g204860204881%_)))) - (let ((_%hd204864204888%_ + (gx#syntax-e _%g205019205040%_)))) + (let ((_%hd205023205047%_ (let () (declare (not safe)) - (##car _%e204863204884%_))) - (_%tl204865204891%_ + (##car _%e205022205043%_))) + (_%tl205024205050%_ (let () (declare (not safe)) - (##cdr _%e204863204884%_)))) + (##cdr _%e205022205043%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204865204891%_)) - (let ((_%e204866204894%_ + (gx#stx-pair? _%tl205024205050%_)) + (let ((_%e205025205053%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204865204891%_)))) - (let ((_%hd204867204898%_ + (gx#syntax-e _%tl205024205050%_)))) + (let ((_%hd205026205057%_ (let () (declare (not safe)) - (##car _%e204866204894%_))) - (_%tl204868204901%_ + (##car _%e205025205053%_))) + (_%tl205027205060%_ (let () (declare (not safe)) - (##cdr _%e204866204894%_)))) + (##cdr _%e205025205053%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204868204901%_)) - (let ((_%e204869204904%_ + (gx#stx-pair? _%tl205027205060%_)) + (let ((_%e205028205063%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204868204901%_)))) - (let ((_%hd204870204908%_ + _%tl205027205060%_)))) + (let ((_%hd205029205067%_ (let () (declare (not safe)) - (##car _%e204869204904%_))) - (_%tl204871204911%_ + (##car _%e205028205063%_))) + (_%tl205030205070%_ (let () (declare (not safe)) - (##cdr _%e204869204904%_)))) + (##cdr _%e205028205063%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204871204911%_)) - ((lambda (_%L204914%_ - _%L204916%_) + _%tl205030205070%_)) + ((lambda (_%L205073%_ + _%L205075%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204916%_ '())) + (cons _%L205075%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L204914%_ '()))) + (cons _%L205073%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204916%_ '())) + (cons _%L205075%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204870204908%_ - _%hd204867204898%_) - (_%g204859204877%_ - _%g204860204881%_)))) - (_%g204859204877%_ _%g204860204881%_)))) - (_%g204859204877%_ _%g204860204881%_)))) - (_%g204859204877%_ _%g204860204881%_))))) - (_%g204858204932%_ _%$stx204855%_)))) + _%hd205029205067%_ + _%hd205026205057%_) + (_%g205018205036%_ + _%g205019205040%_)))) + (_%g205018205036%_ _%g205019205040%_)))) + (_%g205018205036%_ _%g205019205040%_)))) + (_%g205018205036%_ _%g205019205040%_))))) + (_%g205017205091%_ _%$stx205014%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx204936%_) - (let* ((_%__stx208540208541%_ _%$stx204936%_) - (_%g204941204966%_ + (lambda (_%$stx205095%_) + (let* ((_%__stx208699208700%_ _%$stx205095%_) + (_%g205100205125%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208540208541%_))))) - (let ((_%__kont208543208544%_ + _%__stx208699208700%_))))) + (let ((_%__kont208702208703%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208545208546%_ - (lambda (_%L205013%_ _%L205015%_ _%L205016%_) + (_%__kont208704208705%_ + (lambda (_%L205172%_ _%L205174%_ _%L205175%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L205016%_ (cons _%L205015%_ '()))) + (cons _%L205175%_ (cons _%L205174%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L205013%_) + _%L205172%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208540208541%_)) - (let ((_%e204943205042%_ + (gx#stx-pair? _%__stx208699208700%_)) + (let ((_%e205102205201%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208540208541%_)))) - (let ((_%tl204945205049%_ + (gx#syntax-e _%__stx208699208700%_)))) + (let ((_%tl205104205208%_ (let () (declare (not safe)) - (##cdr _%e204943205042%_))) - (_%hd204944205046%_ + (##cdr _%e205102205201%_))) + (_%hd205103205205%_ (let () (declare (not safe)) - (##car _%e204943205042%_)))) + (##car _%e205102205201%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204945205049%_)) - (_%__kont208543208544%_) + (gx#stx-null? _%tl205104205208%_)) + (_%__kont208702208703%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204945205049%_)) - (let ((_%e204952204983%_ + (gx#stx-pair? _%tl205104205208%_)) + (let ((_%e205111205142%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204945205049%_)))) - (let ((_%tl204954204990%_ + (gx#syntax-e _%tl205104205208%_)))) + (let ((_%tl205113205149%_ (let () (declare (not safe)) - (##cdr _%e204952204983%_))) - (_%hd204953204987%_ + (##cdr _%e205111205142%_))) + (_%hd205112205146%_ (let () (declare (not safe)) - (##car _%e204952204983%_)))) + (##car _%e205111205142%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204953204987%_)) - (let ((_%e204955204993%_ + (gx#stx-pair? _%hd205112205146%_)) + (let ((_%e205114205152%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204953204987%_)))) - (let ((_%tl204957205000%_ + _%hd205112205146%_)))) + (let ((_%tl205116205159%_ (let () (declare (not safe)) - (##cdr _%e204955204993%_))) - (_%hd204956204997%_ + (##cdr _%e205114205152%_))) + (_%hd205115205156%_ (let () (declare (not safe)) - (##car _%e204955204993%_)))) + (##car _%e205114205152%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204957205000%_)) - (let ((_%e204958205003%_ + _%tl205116205159%_)) + (let ((_%e205117205162%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204957205000%_)))) - (let ((_%tl204960205010%_ + _%tl205116205159%_)))) + (let ((_%tl205119205169%_ (let () (declare (not safe)) - (##cdr _%e204958205003%_))) - (_%hd204959205007%_ + (##cdr _%e205117205162%_))) + (_%hd205118205166%_ (let () (declare (not safe)) - (##car _%e204958205003%_)))) + (##car _%e205117205162%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204960205010%_)) - (_%__kont208545208546%_ - _%tl204954204990%_ - _%hd204959205007%_ - _%hd204956204997%_) + _%tl205119205169%_)) + (_%__kont208704208705%_ + _%tl205113205149%_ + _%hd205118205166%_ + _%hd205115205156%_) (let () (declare (not safe)) - (_%g204941204966%_))))) + (_%g205100205125%_))))) (let () (declare (not safe)) - (_%g204941204966%_))))) + (_%g205100205125%_))))) (let () (declare (not safe)) - (_%g204941204966%_))))) + (_%g205100205125%_))))) (let () (declare (not safe)) - (_%g204941204966%_)))))) - (let () (declare (not safe)) (_%g204941204966%_))))))) + (_%g205100205125%_)))))) + (let () (declare (not safe)) (_%g205100205125%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx205060%_) - (let* ((_%__stx208584208585%_ _%$stx205060%_) - (_%g205065205096%_ + (lambda (_%$stx205219%_) + (let* ((_%__stx208743208744%_ _%$stx205219%_) + (_%g205224205255%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208584208585%_))))) - (let ((_%__kont208587208588%_ + _%__stx208743208744%_))))) + (let ((_%__kont208746208747%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208589208590%_ - (lambda (_%L205163%_ _%L205165%_ _%L205166%_) + (_%__kont208748208749%_ + (lambda (_%L205322%_ _%L205324%_ _%L205325%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,883 +2981,883 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L205166%_ - (let ((__tmp209061 - (lambda (_%g205186205189%_ - _%g205187205192%_) - (cons _%g205186205189%_ - _%g205187205192%_)))) + (cons _%L205325%_ + (let ((__tmp209220 + (lambda (_%g205345205348%_ + _%g205346205351%_) + (cons _%g205345205348%_ + _%g205346205351%_)))) (declare (not safe)) (__foldr1 - __tmp209061 + __tmp209220 '() - _%L205165%_)))) + _%L205324%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L205163%_) + _%L205322%_) '())))))) - (let ((_%__match208627208628%_ - (lambda (_%e205073205103%_ - _%hd205074205107%_ - _%tl205075205110%_ - _%e205076205113%_ - _%hd205077205117%_ - _%tl205078205120%_ - _%e205079205123%_ - _%hd205080205127%_ - _%tl205081205130%_ - _%__splice208591208592%_ - _%target205082205133%_ - _%tl205084205136%_) - (letrec ((_%loop205085205139%_ - (lambda (_%hd205083205143%_ _%sig205089205146%_) + (let ((_%__match208786208787%_ + (lambda (_%e205232205262%_ + _%hd205233205266%_ + _%tl205234205269%_ + _%e205235205272%_ + _%hd205236205276%_ + _%tl205237205279%_ + _%e205238205282%_ + _%hd205239205286%_ + _%tl205240205289%_ + _%__splice208750208751%_ + _%target205241205292%_ + _%tl205243205295%_) + (letrec ((_%loop205244205298%_ + (lambda (_%hd205242205302%_ _%sig205248205305%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205083205143%_)) - (let ((_%e205086205149%_ + (gx#stx-pair? _%hd205242205302%_)) + (let ((_%e205245205308%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205083205143%_)))) - (let ((_%lp-tl205088205156%_ + _%hd205242205302%_)))) + (let ((_%lp-tl205247205315%_ (let () (declare (not safe)) - (##cdr _%e205086205149%_))) - (_%lp-hd205087205153%_ + (##cdr _%e205245205308%_))) + (_%lp-hd205246205312%_ (let () (declare (not safe)) - (##car _%e205086205149%_)))) - (_%loop205085205139%_ - _%lp-tl205088205156%_ - (cons _%lp-hd205087205153%_ - _%sig205089205146%_)))) - (let ((_%sig205090205159%_ - (reverse _%sig205089205146%_))) - (_%__kont208589208590%_ - _%tl205078205120%_ - _%sig205090205159%_ - _%hd205080205127%_)))))) - (_%loop205085205139%_ _%target205082205133%_ '()))))) + (##car _%e205245205308%_)))) + (_%loop205244205298%_ + _%lp-tl205247205315%_ + (cons _%lp-hd205246205312%_ + _%sig205248205305%_)))) + (let ((_%sig205249205318%_ + (reverse _%sig205248205305%_))) + (_%__kont208748208749%_ + _%tl205237205279%_ + _%sig205249205318%_ + _%hd205239205286%_)))))) + (_%loop205244205298%_ _%target205241205292%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208584208585%_)) - (let ((_%e205067205202%_ + (gx#stx-pair? _%__stx208743208744%_)) + (let ((_%e205226205361%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208584208585%_)))) - (let ((_%tl205069205209%_ + (gx#syntax-e _%__stx208743208744%_)))) + (let ((_%tl205228205368%_ (let () (declare (not safe)) - (##cdr _%e205067205202%_))) - (_%hd205068205206%_ + (##cdr _%e205226205361%_))) + (_%hd205227205365%_ (let () (declare (not safe)) - (##car _%e205067205202%_)))) + (##car _%e205226205361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205069205209%_)) - (_%__kont208587208588%_) + (gx#stx-null? _%tl205228205368%_)) + (_%__kont208746208747%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205069205209%_)) - (let ((_%e205076205113%_ + (gx#stx-pair? _%tl205228205368%_)) + (let ((_%e205235205272%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205069205209%_)))) - (let ((_%tl205078205120%_ + (gx#syntax-e _%tl205228205368%_)))) + (let ((_%tl205237205279%_ (let () (declare (not safe)) - (##cdr _%e205076205113%_))) - (_%hd205077205117%_ + (##cdr _%e205235205272%_))) + (_%hd205236205276%_ (let () (declare (not safe)) - (##car _%e205076205113%_)))) + (##car _%e205235205272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205077205117%_)) - (let ((_%e205079205123%_ + (gx#stx-pair? _%hd205236205276%_)) + (let ((_%e205238205282%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205077205117%_)))) - (let ((_%tl205081205130%_ + _%hd205236205276%_)))) + (let ((_%tl205240205289%_ (let () (declare (not safe)) - (##cdr _%e205079205123%_))) - (_%hd205080205127%_ + (##cdr _%e205238205282%_))) + (_%hd205239205286%_ (let () (declare (not safe)) - (##car _%e205079205123%_)))) + (##car _%e205238205282%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205081205130%_)) - (let ((_%__splice208591208592%_ + _%tl205240205289%_)) + (let ((_%__splice208750208751%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205081205130%_ + _%tl205240205289%_ '0)))) - (let ((_%tl205084205136%_ + (let ((_%tl205243205295%_ (let () (declare (not safe)) (##vector-ref - _%__splice208591208592%_ + _%__splice208750208751%_ '1))) - (_%target205082205133%_ + (_%target205241205292%_ (let () (declare (not safe)) (##vector-ref - _%__splice208591208592%_ + _%__splice208750208751%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205084205136%_)) - (_%__match208627208628%_ - _%e205067205202%_ - _%hd205068205206%_ - _%tl205069205209%_ - _%e205076205113%_ - _%hd205077205117%_ - _%tl205078205120%_ - _%e205079205123%_ - _%hd205080205127%_ - _%tl205081205130%_ - _%__splice208591208592%_ - _%target205082205133%_ - _%tl205084205136%_) + _%tl205243205295%_)) + (_%__match208786208787%_ + _%e205226205361%_ + _%hd205227205365%_ + _%tl205228205368%_ + _%e205235205272%_ + _%hd205236205276%_ + _%tl205237205279%_ + _%e205238205282%_ + _%hd205239205286%_ + _%tl205240205289%_ + _%__splice208750208751%_ + _%target205241205292%_ + _%tl205243205295%_) (let () (declare (not safe)) - (_%g205065205096%_))))) + (_%g205224205255%_))))) (let () (declare (not safe)) - (_%g205065205096%_))))) + (_%g205224205255%_))))) (let () (declare (not safe)) - (_%g205065205096%_))))) + (_%g205224205255%_))))) (let () (declare (not safe)) - (_%g205065205096%_)))))) - (let () (declare (not safe)) (_%g205065205096%_)))))))) + (_%g205224205255%_)))))) + (let () (declare (not safe)) (_%g205224205255%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx205221%_) - (let* ((_%__stx208630208631%_ _%$stx205221%_) - (_%g205226205273%_ + (lambda (_%$stx205380%_) + (let* ((_%__stx208789208790%_ _%$stx205380%_) + (_%g205385205432%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208630208631%_))))) - (let ((_%__kont208633208634%_ - (lambda (_%L205435%_ _%L205437%_) + _%__stx208789208790%_))))) + (let ((_%__kont208792208793%_ + (lambda (_%L205594%_ _%L205596%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L205437%_ - (let ((__tmp209062 - (lambda (_%g205457205460%_ - _%g205458205463%_) - (cons _%g205457205460%_ - _%g205458205463%_)))) + (cons _%L205596%_ + (let ((__tmp209221 + (lambda (_%g205616205619%_ + _%g205617205622%_) + (cons _%g205616205619%_ + _%g205617205622%_)))) (declare (not safe)) - (__foldr1 __tmp209062 '() _%L205435%_)))))) - (_%__kont208637208638%_ - (lambda (_%L205330%_ _%L205332%_) + (__foldr1 __tmp209221 '() _%L205594%_)))))) + (_%__kont208796208797%_ + (lambda (_%L205489%_ _%L205491%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L205332%_ - (let ((__tmp209063 - (lambda (_%g205349205352%_ - _%g205350205355%_) - (cons _%g205349205352%_ - _%g205350205355%_)))) + (cons _%L205491%_ + (let ((__tmp209222 + (lambda (_%g205508205511%_ + _%g205509205514%_) + (cons _%g205508205511%_ + _%g205509205514%_)))) (declare (not safe)) - (__foldr1 __tmp209063 '() _%L205330%_))))))) - (let* ((_%__match208697208698%_ - (lambda (_%e205253205280%_ - _%hd205254205284%_ - _%tl205255205287%_ - _%e205256205290%_ - _%hd205257205294%_ - _%tl205258205297%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) - (letrec ((_%loop205262205306%_ - (lambda (_%hd205260205310%_ - _%sig205266205313%_) + (__foldr1 __tmp209222 '() _%L205489%_))))))) + (let* ((_%__match208856208857%_ + (lambda (_%e205412205439%_ + _%hd205413205443%_ + _%tl205414205446%_ + _%e205415205449%_ + _%hd205416205453%_ + _%tl205417205456%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) + (letrec ((_%loop205421205465%_ + (lambda (_%hd205419205469%_ + _%sig205425205472%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205260205310%_)) - (let ((_%e205263205316%_ + (gx#stx-pair? _%hd205419205469%_)) + (let ((_%e205422205475%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205260205310%_)))) - (let ((_%lp-tl205265205323%_ + _%hd205419205469%_)))) + (let ((_%lp-tl205424205482%_ (let () (declare (not safe)) - (##cdr _%e205263205316%_))) - (_%lp-hd205264205320%_ + (##cdr _%e205422205475%_))) + (_%lp-hd205423205479%_ (let () (declare (not safe)) - (##car _%e205263205316%_)))) - (_%loop205262205306%_ - _%lp-tl205265205323%_ - (cons _%lp-hd205264205320%_ - _%sig205266205313%_)))) - (let ((_%sig205267205326%_ - (reverse _%sig205266205313%_))) - (_%__kont208637208638%_ - _%sig205267205326%_ - _%hd205257205294%_)))))) - (_%loop205262205306%_ _%target205259205300%_ '())))) - (_%__match208689208690%_ - (lambda (_%e205253205280%_ - _%hd205254205284%_ - _%tl205255205287%_ - _%e205256205290%_ - _%hd205257205294%_ - _%tl205258205297%_) + (##car _%e205422205475%_)))) + (_%loop205421205465%_ + _%lp-tl205424205482%_ + (cons _%lp-hd205423205479%_ + _%sig205425205472%_)))) + (let ((_%sig205426205485%_ + (reverse _%sig205425205472%_))) + (_%__kont208796208797%_ + _%sig205426205485%_ + _%hd205416205453%_)))))) + (_%loop205421205465%_ _%target205418205459%_ '())))) + (_%__match208848208849%_ + (lambda (_%e205412205439%_ + _%hd205413205443%_ + _%tl205414205446%_ + _%e205415205449%_ + _%hd205416205453%_ + _%tl205417205456%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205258205297%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl205417205456%_)) + (let ((_%__splice208798208799%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205258205297%_ + _%tl205417205456%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl205420205462%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '1))) - (_%target205259205300%_ + (_%target205418205459%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205253205280%_ - _%hd205254205284%_ - _%tl205255205287%_ - _%e205256205290%_ - _%hd205257205294%_ - _%tl205258205297%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + (gx#stx-null? _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205412205439%_ + _%hd205413205443%_ + _%tl205414205446%_ + _%e205415205449%_ + _%hd205416205453%_ + _%tl205417205456%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) (let () (declare (not safe)) - (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_))))) - (_%__match208677208678%_ - (lambda (_%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%e205236205385%_ - _%hd205237205389%_ - _%tl205238205392%_ - _%e205239205395%_ - _%hd205240205399%_ - _%tl205241205402%_ - _%__splice208635208636%_ - _%target205242205405%_ - _%tl205244205408%_) - (letrec ((_%loop205245205411%_ - (lambda (_%hd205243205415%_ - _%sig205249205418%_) + (_%g205385205432%_))))) + (let () (declare (not safe)) (_%g205385205432%_))))) + (_%__match208836208837%_ + (lambda (_%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%e205395205544%_ + _%hd205396205548%_ + _%tl205397205551%_ + _%e205398205554%_ + _%hd205399205558%_ + _%tl205400205561%_ + _%__splice208794208795%_ + _%target205401205564%_ + _%tl205403205567%_) + (letrec ((_%loop205404205570%_ + (lambda (_%hd205402205574%_ + _%sig205408205577%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205243205415%_)) - (let ((_%e205246205421%_ + (gx#stx-pair? _%hd205402205574%_)) + (let ((_%e205405205580%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205243205415%_)))) - (let ((_%lp-tl205248205428%_ + _%hd205402205574%_)))) + (let ((_%lp-tl205407205587%_ (let () (declare (not safe)) - (##cdr _%e205246205421%_))) - (_%lp-hd205247205425%_ + (##cdr _%e205405205580%_))) + (_%lp-hd205406205584%_ (let () (declare (not safe)) - (##car _%e205246205421%_)))) - (_%loop205245205411%_ - _%lp-tl205248205428%_ - (cons _%lp-hd205247205425%_ - _%sig205249205418%_)))) - (let ((_%sig205250205431%_ - (reverse _%sig205249205418%_))) + (##car _%e205405205580%_)))) + (_%loop205404205570%_ + _%lp-tl205407205587%_ + (cons _%lp-hd205406205584%_ + _%sig205408205577%_)))) + (let ((_%sig205409205590%_ + (reverse _%sig205408205577%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205238205392%_)) - (_%__kont208633208634%_ - _%sig205250205431%_ - _%hd205234205379%_) - (_%__match208689208690%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_))))))) - (_%loop205245205411%_ _%target205242205405%_ '()))))) + _%tl205397205551%_)) + (_%__kont208792208793%_ + _%sig205409205590%_ + _%hd205393205538%_) + (_%__match208848208849%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_))))))) + (_%loop205404205570%_ _%target205401205564%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208630208631%_)) - (let ((_%e205230205365%_ + (gx#stx-pair? _%__stx208789208790%_)) + (let ((_%e205389205524%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208630208631%_)))) - (let ((_%tl205232205372%_ + (gx#syntax-e _%__stx208789208790%_)))) + (let ((_%tl205391205531%_ (let () (declare (not safe)) - (##cdr _%e205230205365%_))) - (_%hd205231205369%_ + (##cdr _%e205389205524%_))) + (_%hd205390205528%_ (let () (declare (not safe)) - (##car _%e205230205365%_)))) + (##car _%e205389205524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205232205372%_)) - (let ((_%e205233205375%_ + (gx#stx-pair? _%tl205391205531%_)) + (let ((_%e205392205534%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205232205372%_)))) - (let ((_%tl205235205382%_ + (gx#syntax-e _%tl205391205531%_)))) + (let ((_%tl205394205541%_ (let () (declare (not safe)) - (##cdr _%e205233205375%_))) - (_%hd205234205379%_ + (##cdr _%e205392205534%_))) + (_%hd205393205538%_ (let () (declare (not safe)) - (##car _%e205233205375%_)))) + (##car _%e205392205534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205235205382%_)) - (let ((_%e205236205385%_ + (gx#stx-pair? _%tl205394205541%_)) + (let ((_%e205395205544%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205235205382%_)))) - (let ((_%tl205238205392%_ + (gx#syntax-e _%tl205394205541%_)))) + (let ((_%tl205397205551%_ (let () (declare (not safe)) - (##cdr _%e205236205385%_))) - (_%hd205237205389%_ + (##cdr _%e205395205544%_))) + (_%hd205396205548%_ (let () (declare (not safe)) - (##car _%e205236205385%_)))) + (##car _%e205395205544%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205237205389%_)) - (let ((_%e205239205395%_ + (gx#stx-pair? _%hd205396205548%_)) + (let ((_%e205398205554%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205237205389%_)))) - (let ((_%tl205241205402%_ + _%hd205396205548%_)))) + (let ((_%tl205400205561%_ (let () (declare (not safe)) - (##cdr _%e205239205395%_))) - (_%hd205240205399%_ + (##cdr _%e205398205554%_))) + (_%hd205399205558%_ (let () (declare (not safe)) - (##car _%e205239205395%_)))) + (##car _%e205398205554%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205240205399%_)) - (if (let ((__tmp209064 - |gxc[1]#_g209065_|)) + _%hd205399205558%_)) + (if (let ((__tmp209223 + |gxc[1]#_g209224_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209064 - _%hd205240205399%_)) + __tmp209223 + _%hd205399205558%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205241205402%_)) - (let ((_%__splice208635208636%_ + _%tl205400205561%_)) + (let ((_%__splice208794208795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205241205402%_ '0)))) - (let ((_%tl205244205408%_ + (gx#syntax-split-splice _%tl205400205561%_ '0)))) + (let ((_%tl205403205567%_ (let () (declare (not safe)) - (##vector-ref _%__splice208635208636%_ '1))) - (_%target205242205405%_ + (##vector-ref _%__splice208794208795%_ '1))) + (_%target205401205564%_ (let () (declare (not safe)) - (##vector-ref _%__splice208635208636%_ '0)))) + (##vector-ref _%__splice208794208795%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205244205408%_)) - (_%__match208677208678%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%e205236205385%_ - _%hd205237205389%_ - _%tl205238205392%_ - _%e205239205395%_ - _%hd205240205399%_ - _%tl205241205402%_ - _%__splice208635208636%_ - _%target205242205405%_ - _%tl205244205408%_) + (gx#stx-null? _%tl205403205567%_)) + (_%__match208836208837%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%e205395205544%_ + _%hd205396205548%_ + _%tl205397205551%_ + _%e205398205554%_ + _%hd205399205558%_ + _%tl205400205561%_ + _%__splice208794208795%_ + _%target205401205564%_ + _%tl205403205567%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl205394205541%_)) + (let ((_%__splice208798208799%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl205394205541%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl205420205462%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '1))) - (_%target205259205300%_ + (_%target205418205459%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + (gx#stx-null? _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) (let () (declare (not safe)) - (_%g205226205273%_))))) + (_%g205385205432%_))))) (let () (declare (not safe)) - (_%g205226205273%_)))))) + (_%g205385205432%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl205394205541%_)) + (let ((_%__splice208798208799%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl205394205541%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl205420205462%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '1))) - (_%target205259205300%_ + (##vector-ref _%__splice208798208799%_ '1))) + (_%target205418205459%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '0)))) + (##vector-ref _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + (gx#stx-null? _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) (let () (declare (not safe)) - (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))) + (_%g205385205432%_))))) + (let () (declare (not safe)) (_%g205385205432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl205394205541%_)) + (let ((_%__splice208798208799%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205235205382%_ '0)))) - (let ((_%tl205261205303%_ + (gx#syntax-split-splice _%tl205394205541%_ '0)))) + (let ((_%tl205420205462%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '1))) - (_%target205259205300%_ + (##vector-ref _%__splice208798208799%_ '1))) + (_%target205418205459%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '0)))) + (##vector-ref _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) - (let () (declare (not safe)) (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))) + (gx#stx-null? _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) + (let () (declare (not safe)) (_%g205385205432%_))))) + (let () (declare (not safe)) (_%g205385205432%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + _%tl205394205541%_)) + (let ((_%__splice208798208799%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl205235205382%_ '0)))) - (let ((_%tl205261205303%_ + (gx#syntax-split-splice _%tl205394205541%_ '0)))) + (let ((_%tl205420205462%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '1))) - (_%target205259205300%_ + (##vector-ref _%__splice208798208799%_ '1))) + (_%target205418205459%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '0)))) + (##vector-ref _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) - (let () (declare (not safe)) (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))))) + (gx#stx-null? _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) + (let () (declare (not safe)) (_%g205385205432%_))))) + (let () (declare (not safe)) (_%g205385205432%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + _%tl205394205541%_)) + (let ((_%__splice208798208799%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl205394205541%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl205420205462%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '1))) - (_%target205259205300%_ + (_%target205418205459%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) (let () (declare (not safe)) - (_%g205226205273%_))))) + (_%g205385205432%_))))) (let () (declare (not safe)) - (_%g205226205273%_)))))) + (_%g205385205432%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl205394205541%_)) + (let ((_%__splice208798208799%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl205394205541%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl205420205462%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '1))) - (_%target205259205300%_ + (_%target205418205459%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice208798208799%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + _%tl205420205462%_)) + (_%__match208856208857%_ + _%e205389205524%_ + _%hd205390205528%_ + _%tl205391205531%_ + _%e205392205534%_ + _%hd205393205538%_ + _%tl205394205541%_ + _%__splice208798208799%_ + _%target205418205459%_ + _%tl205420205462%_) (let () (declare (not safe)) - (_%g205226205273%_))))) + (_%g205385205432%_))))) (let () (declare (not safe)) - (_%g205226205273%_)))))) - (let () (declare (not safe)) (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))))))) + (_%g205385205432%_)))))) + (let () (declare (not safe)) (_%g205385205432%_))))) + (let () (declare (not safe)) (_%g205385205432%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx206620%_ _%id206622%_) - (let ((_%proc206626%_ - (let ((__tmp209066 + (lambda (_%ctx206779%_ _%id206781%_) + (let ((_%proc206785%_ + (let ((__tmp209225 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206622%_))))) + (gx#eval-syntax__0 _%id206781%_))))) (declare (not safe)) - (__with-catch false __tmp209066)))) - (if (procedure? _%proc206626%_) + (__with-catch false __tmp209225)))) + (if (procedure? _%proc206785%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx206620%_ - _%id206622%_)))))) + _%ctx206779%_ + _%id206781%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx206611%_ _%id206613%_) - (let ((_%klass206617%_ - (let ((__tmp209067 + (lambda (_%ctx206770%_ _%id206772%_) + (let ((_%klass206776%_ + (let ((__tmp209226 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206613%_))))) + (gx#eval-syntax__0 _%id206772%_))))) (declare (not safe)) - (__with-catch false __tmp209067)))) + (__with-catch false __tmp209226)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass206617%_ 'class)) + (##structure-instance-of? _%klass206776%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx206611%_ - _%id206613%_)))))) + _%ctx206770%_ + _%id206772%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx205861%_ _%proc205863%_ _%sig205864%_) - (letrec ((_%signature-arity205866%_ - (lambda (_%args206543%_) - (let _%loop206546%_ ((_%rest206549%_ _%args206543%_) - (_%count206551%_ '0)) - (let* ((_%rest206552206563%_ _%rest206549%_) - (_%E206556206569%_ + (lambda (_%ctx206020%_ _%proc206022%_ _%sig206023%_) + (letrec ((_%signature-arity206025%_ + (lambda (_%args206702%_) + (let _%loop206705%_ ((_%rest206708%_ _%args206702%_) + (_%count206710%_ '0)) + (let* ((_%rest206711206722%_ _%rest206708%_) + (_%E206715206728%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest206552206563%_ + _%rest206711206722%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K206559206600%_ - (lambda (_%rest206597%_) - (_%loop206546%_ - _%rest206597%_ + (let ((_%K206718206759%_ + (lambda (_%rest206756%_) + (_%loop206705%_ + _%rest206756%_ (let () (declare (not safe)) - (##fx+ _%count206551%_ '1))))) - (_%K206558206589%_ (lambda () _%count206551%_)) - (_%K206557206577%_ - (lambda () (cons _%count206551%_ '())))) - (let ((_%try-match206554206593%_ + (##fx+ _%count206710%_ '1))))) + (_%K206717206748%_ (lambda () _%count206710%_)) + (_%K206716206736%_ + (lambda () (cons _%count206710%_ '())))) + (let ((_%try-match206713206752%_ (lambda () - (if (null? _%rest206552206563%_) - (_%K206558206589%_) - (_%K206557206577%_))))) - (if (pair? _%rest206552206563%_) - (let* ((_%tl206561206604%_ + (if (null? _%rest206711206722%_) + (_%K206717206748%_) + (_%K206716206736%_))))) + (if (pair? _%rest206711206722%_) + (let* ((_%tl206720206763%_ (let () (declare (not safe)) - (##cdr _%rest206552206563%_))) - (_%rest206608%_ _%tl206561206604%_)) - (_%K206559206600%_ _%rest206608%_)) - (_%try-match206554206593%_)))))))) - (_%make-signature205868%_ - (lambda (_%args206425%_ - _%return206427%_ - _%effect206428%_ - _%unchecked206429%_) - (let ((__tmp209068 - (lambda (_%g206430206432%_) + (##cdr _%rest206711206722%_))) + (_%rest206767%_ _%tl206720206763%_)) + (_%K206718206759%_ _%rest206767%_)) + (_%try-match206713206752%_)))))))) + (_%make-signature206027%_ + (lambda (_%args206584%_ + _%return206586%_ + _%effect206587%_ + _%unchecked206588%_) + (let ((__tmp209227 + (lambda (_%g206589206591%_) (|gxc[1]#verify-class!| - _%ctx205861%_ - _%g206430206432%_)))) + _%ctx206020%_ + _%g206589206591%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp209068 _%args206425%_)) - (|gxc[1]#verify-class!| _%ctx205861%_ _%return206427%_) - (if _%unchecked206429%_ + (gx#stx-for-each1 __tmp209227 _%args206584%_)) + (|gxc[1]#verify-class!| _%ctx206020%_ _%return206586%_) + (if _%unchecked206588%_ (|gxc[1]#verify-procedure!| - _%ctx205861%_ - _%unchecked206429%_) + _%ctx206020%_ + _%unchecked206588%_) '#!void) - (let ((_%arity206436%_ - (_%signature-arity205866%_ + (let ((_%arity206595%_ + (_%signature-arity206025%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args206425%_))))) - (if _%effect206428%_ - (let ((_%effect206439%_ + (gx#stx-map1 gx#stx-e _%args206584%_))))) + (if _%effect206587%_ + (let ((_%effect206598%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect206428%_)))) - (if (and (list? _%effect206439%_) + (gx#syntax->datum _%effect206587%_)))) + (if (and (list? _%effect206598%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect206439%_))) + (__andmap1 symbol? _%effect206598%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx205861%_ - _%proc205863%_ - _%effect206439%_)))) + _%ctx206020%_ + _%proc206022%_ + _%effect206598%_)))) '#!void) - (cons _%arity206436%_ - (cons (let* ((_%g206442206465%_ - (lambda (_%g206443206461%_) + (cons _%arity206595%_ + (cons (let* ((_%g206601206624%_ + (lambda (_%g206602206620%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206443206461%_)))) - (_%g206441206539%_ - (lambda (_%g206443206469%_) + _%g206602206620%_)))) + (_%g206600206698%_ + (lambda (_%g206602206628%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206443206469%_)) - (let ((_%e206448206472%_ + _%g206602206628%_)) + (let ((_%e206607206631%_ (let () (declare (not safe)) (gx#syntax-e - _%g206443206469%_)))) - (let ((_%hd206449206476%_ + _%g206602206628%_)))) + (let ((_%hd206608206635%_ (let () (declare (not safe)) - (##car _%e206448206472%_))) - (_%tl206450206479%_ + (##car _%e206607206631%_))) + (_%tl206609206638%_ (let () (declare (not safe)) - (##cdr _%e206448206472%_)))) + (##cdr _%e206607206631%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206450206479%_)) - (let ((_%e206451206482%_ + _%tl206609206638%_)) + (let ((_%e206610206641%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206450206479%_)))) - (let ((_%hd206452206486%_ + (gx#syntax-e _%tl206609206638%_)))) + (let ((_%hd206611206645%_ (let () (declare (not safe)) - (##car _%e206451206482%_))) - (_%tl206453206489%_ + (##car _%e206610206641%_))) + (_%tl206612206648%_ (let () (declare (not safe)) - (##cdr _%e206451206482%_)))) + (##cdr _%e206610206641%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206453206489%_)) - (let ((_%e206454206492%_ + (gx#stx-pair? _%tl206612206648%_)) + (let ((_%e206613206651%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206453206489%_)))) - (let ((_%hd206455206496%_ + (gx#syntax-e _%tl206612206648%_)))) + (let ((_%hd206614206655%_ (let () (declare (not safe)) - (##car _%e206454206492%_))) - (_%tl206456206499%_ + (##car _%e206613206651%_))) + (_%tl206615206658%_ (let () (declare (not safe)) - (##cdr _%e206454206492%_)))) + (##cdr _%e206613206651%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206456206499%_)) - (let ((_%e206457206502%_ + (gx#stx-pair? _%tl206615206658%_)) + (let ((_%e206616206661%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206456206499%_)))) - (let ((_%hd206458206506%_ + (gx#syntax-e _%tl206615206658%_)))) + (let ((_%hd206617206665%_ (let () (declare (not safe)) - (##car _%e206457206502%_))) - (_%tl206459206509%_ + (##car _%e206616206661%_))) + (_%tl206618206668%_ (let () (declare (not safe)) - (##cdr _%e206457206502%_)))) + (##cdr _%e206616206661%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206459206509%_)) - ((lambda (_%L206512%_ - _%L206514%_ - _%L206515%_ - _%L206516%_) + (gx#stx-null? _%tl206618206668%_)) + ((lambda (_%L206671%_ + _%L206673%_ + _%L206674%_ + _%L206675%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3868,25 +3868,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206516%_ '())) + (cons _%L206675%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206515%_ '())) + (cons _%L206674%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206514%_ '())) + (cons _%L206673%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206512%_ '())) + (cons _%L206671%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3898,779 +3898,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206458206506%_ - _%hd206455206496%_ - _%hd206452206486%_ - _%hd206449206476%_) - (_%g206442206465%_ - _%g206443206469%_)))) - (_%g206442206465%_ _%g206443206469%_)))) - (_%g206442206465%_ _%g206443206469%_)))) - (_%g206442206465%_ _%g206443206469%_)))) + _%hd206617206665%_ + _%hd206614206655%_ + _%hd206611206645%_ + _%hd206608206635%_) + (_%g206601206624%_ + _%g206602206628%_)))) + (_%g206601206624%_ _%g206602206628%_)))) + (_%g206601206624%_ _%g206602206628%_)))) + (_%g206601206624%_ _%g206602206628%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206442206465%_ - _%g206443206469%_))))) - (_%g206441206539%_ - (list _%args206425%_ - _%return206427%_ - _%effect206428%_ - _%unchecked206429%_))) + (_%g206601206624%_ + _%g206602206628%_))))) + (_%g206600206698%_ + (list _%args206584%_ + _%return206586%_ + _%effect206587%_ + _%unchecked206588%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx205861%_ _%proc205863%_) - (let* ((_%__stx208708208709%_ _%sig205864%_) - (_%g205875205978%_ + (|gxc[1]#verify-procedure!| _%ctx206020%_ _%proc206022%_) + (let* ((_%__stx208867208868%_ _%sig206023%_) + (_%g206034206137%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208708208709%_))))) - (let ((_%__kont208711208712%_ - (lambda (_%L206406%_ _%L206408%_) - (_%make-signature205868%_ - _%L206408%_ - _%L206406%_ + _%__stx208867208868%_))))) + (let ((_%__kont208870208871%_ + (lambda (_%L206565%_ _%L206567%_) + (_%make-signature206027%_ + _%L206567%_ + _%L206565%_ '#f '#f))) - (_%__kont208713208714%_ - (lambda (_%L206357%_ _%L206359%_ _%L206360%_) - (_%make-signature205868%_ - _%L206360%_ - _%L206359%_ - _%L206357%_ + (_%__kont208872208873%_ + (lambda (_%L206516%_ _%L206518%_ _%L206519%_) + (_%make-signature206027%_ + _%L206519%_ + _%L206518%_ + _%L206516%_ '#f))) - (_%__kont208715208716%_ - (lambda (_%L206281%_ _%L206283%_ _%L206284%_) - (_%make-signature205868%_ - _%L206284%_ - _%L206283%_ - _%L206281%_ - (let ((__tmp209069 + (_%__kont208874208875%_ + (lambda (_%L206440%_ _%L206442%_ _%L206443%_) + (_%make-signature206027%_ + _%L206443%_ + _%L206442%_ + _%L206440%_ + (let ((__tmp209228 (let () (declare (not safe)) - (gx#stx-e _%proc205863%_)))) + (gx#stx-e _%proc206022%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209069))))) - (_%__kont208717208718%_ - (lambda (_%L206187%_ _%L206189%_ _%L206190%_ _%L206191%_) - (_%make-signature205868%_ - _%L206191%_ - _%L206190%_ + (make-symbol__1 '"##" __tmp209228))))) + (_%__kont208876208877%_ + (lambda (_%L206346%_ _%L206348%_ _%L206349%_ _%L206350%_) + (_%make-signature206027%_ + _%L206350%_ + _%L206349%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206187%_))))) - (_%__kont208719208720%_ - (lambda (_%L206094%_ _%L206096%_) - (_%make-signature205868%_ - _%L206096%_ - _%L206094%_ + (let () (declare (not safe)) (gx#stx-e _%L206346%_))))) + (_%__kont208878208879%_ + (lambda (_%L206253%_ _%L206255%_) + (_%make-signature206027%_ + _%L206255%_ + _%L206253%_ '#f - (let ((__tmp209070 + (let ((__tmp209229 (let () (declare (not safe)) - (gx#stx-e _%proc205863%_)))) + (gx#stx-e _%proc206022%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209070))))) - (_%__kont208721208722%_ - (lambda (_%L206029%_ _%L206031%_ _%L206032%_) - (_%make-signature205868%_ - _%L206032%_ - _%L206031%_ + (make-symbol__1 '"##" __tmp209229))))) + (_%__kont208880208881%_ + (lambda (_%L206188%_ _%L206190%_ _%L206191%_) + (_%make-signature206027%_ + _%L206191%_ + _%L206190%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206029%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L206188%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208708208709%_)) - (let ((_%e205879206386%_ + (gx#stx-pair? _%__stx208867208868%_)) + (let ((_%e206038206545%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208708208709%_)))) - (let ((_%tl205881206393%_ + (gx#syntax-e _%__stx208867208868%_)))) + (let ((_%tl206040206552%_ (let () (declare (not safe)) - (##cdr _%e205879206386%_))) - (_%hd205880206390%_ + (##cdr _%e206038206545%_))) + (_%hd206039206549%_ (let () (declare (not safe)) - (##car _%e205879206386%_)))) + (##car _%e206038206545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205881206393%_)) - (let ((_%e205882206396%_ + (gx#stx-pair? _%tl206040206552%_)) + (let ((_%e206041206555%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205881206393%_)))) - (let ((_%tl205884206403%_ + (gx#syntax-e _%tl206040206552%_)))) + (let ((_%tl206043206562%_ (let () (declare (not safe)) - (##cdr _%e205882206396%_))) - (_%hd205883206400%_ + (##cdr _%e206041206555%_))) + (_%hd206042206559%_ (let () (declare (not safe)) - (##car _%e205882206396%_)))) + (##car _%e206041206555%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205884206403%_)) - (_%__kont208711208712%_ - _%hd205883206400%_ - _%hd205880206390%_) + (gx#stx-null? _%tl206043206562%_)) + (_%__kont208870208871%_ + _%hd206042206559%_ + _%hd206039206549%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205884206403%_)) - (let ((_%e205894206333%_ + (gx#stx-pair? _%tl206043206562%_)) + (let ((_%e206053206492%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205884206403%_)))) - (let ((_%tl205896206340%_ + _%tl206043206562%_)))) + (let ((_%tl206055206499%_ (let () (declare (not safe)) - (##cdr _%e205894206333%_))) - (_%hd205895206337%_ + (##cdr _%e206053206492%_))) + (_%hd206054206496%_ (let () (declare (not safe)) - (##car _%e205894206333%_)))) + (##car _%e206053206492%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205895206337%_)) - (let ((_%e205897206343%_ + _%hd206054206496%_)) + (let ((_%e206056206502%_ (let () (declare (not safe)) (gx#stx-e - _%hd205895206337%_)))) - (if (equal? _%e205897206343%_ + _%hd206054206496%_)))) + (if (equal? _%e206056206502%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205896206340%_)) - (let ((_%e205898206347%_ + _%tl206055206499%_)) + (let ((_%e206057206506%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl205896206340%_)))) - (let ((_%tl205900206354%_ + (gx#syntax-e _%tl206055206499%_)))) + (let ((_%tl206059206513%_ (let () (declare (not safe)) - (##cdr _%e205898206347%_))) - (_%hd205899206351%_ + (##cdr _%e206057206506%_))) + (_%hd206058206510%_ (let () (declare (not safe)) - (##car _%e205898206347%_)))) + (##car _%e206057206506%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205900206354%_)) - (_%__kont208713208714%_ - _%hd205899206351%_ - _%hd205883206400%_ - _%hd205880206390%_) + (gx#stx-null? _%tl206059206513%_)) + (_%__kont208872208873%_ + _%hd206058206510%_ + _%hd206042206559%_ + _%hd206039206549%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205900206354%_)) - (let ((_%e205917206267%_ + (gx#stx-pair? _%tl206059206513%_)) + (let ((_%e206076206426%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205900206354%_)))) - (let ((_%tl205919206274%_ + (gx#syntax-e _%tl206059206513%_)))) + (let ((_%tl206078206433%_ (let () (declare (not safe)) - (##cdr _%e205917206267%_))) - (_%hd205918206271%_ + (##cdr _%e206076206426%_))) + (_%hd206077206430%_ (let () (declare (not safe)) - (##car _%e205917206267%_)))) + (##car _%e206076206426%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205918206271%_)) - (let ((_%e205920206277%_ + (gx#stx-datum? _%hd206077206430%_)) + (let ((_%e206079206436%_ (let () (declare (not safe)) - (gx#stx-e _%hd205918206271%_)))) - (if (equal? _%e205920206277%_ + (gx#stx-e _%hd206077206430%_)))) + (if (equal? _%e206079206436%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205919206274%_)) - (_%__kont208715208716%_ - _%hd205899206351%_ - _%hd205883206400%_ - _%hd205880206390%_) + _%tl206078206433%_)) + (_%__kont208874208875%_ + _%hd206058206510%_ + _%hd206042206559%_ + _%hd206039206549%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205919206274%_)) - (let ((_%e205942206177%_ + _%tl206078206433%_)) + (let ((_%e206101206336%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205919206274%_)))) - (let ((_%tl205944206184%_ + _%tl206078206433%_)))) + (let ((_%tl206103206343%_ (let () (declare (not safe)) - (##cdr _%e205942206177%_))) - (_%hd205943206181%_ + (##cdr _%e206101206336%_))) + (_%hd206102206340%_ (let () (declare (not safe)) - (##car _%e205942206177%_)))) + (##car _%e206101206336%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205944206184%_)) - (_%__kont208717208718%_ - _%hd205943206181%_ - _%hd205899206351%_ - _%hd205883206400%_ - _%hd205880206390%_) + _%tl206103206343%_)) + (_%__kont208876208877%_ + _%hd206102206340%_ + _%hd206058206510%_ + _%hd206042206559%_ + _%hd206039206549%_) (let () (declare (not safe)) - (_%g205875205978%_))))) + (_%g206034206137%_))))) (let () (declare (not safe)) - (_%g205875205978%_)))) + (_%g206034206137%_)))) (let () (declare (not safe)) - (_%g205875205978%_)))) + (_%g206034206137%_)))) (let () (declare (not safe)) - (_%g205875205978%_))))) + (_%g206034206137%_))))) (let () (declare (not safe)) - (_%g205875205978%_)))))) - (let () (declare (not safe)) (_%g205875205978%_))) + (_%g206034206137%_)))))) + (let () (declare (not safe)) (_%g206034206137%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e205897206343%_ + (if (equal? _%e206056206502%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205896206340%_)) - (_%__kont208719208720%_ - _%hd205883206400%_ - _%hd205880206390%_) + _%tl206055206499%_)) + (_%__kont208878208879%_ + _%hd206042206559%_ + _%hd206039206549%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl205896206340%_)) - (let ((_%e205970206019%_ + (gx#stx-pair? _%tl206055206499%_)) + (let ((_%e206129206178%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205896206340%_)))) - (let ((_%tl205972206026%_ + (gx#syntax-e _%tl206055206499%_)))) + (let ((_%tl206131206185%_ (let () (declare (not safe)) - (##cdr _%e205970206019%_))) - (_%hd205971206023%_ + (##cdr _%e206129206178%_))) + (_%hd206130206182%_ (let () (declare (not safe)) - (##car _%e205970206019%_)))) + (##car _%e206129206178%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205972206026%_)) - (_%__kont208721208722%_ - _%hd205971206023%_ - _%hd205883206400%_ - _%hd205880206390%_) + (gx#stx-null? _%tl206131206185%_)) + (_%__kont208880208881%_ + _%hd206130206182%_ + _%hd206042206559%_ + _%hd206039206549%_) (let () (declare (not safe)) - (_%g205875205978%_))))) - (let () (declare (not safe)) (_%g205875205978%_)))) - (let () (declare (not safe)) (_%g205875205978%_))))) + (_%g206034206137%_))))) + (let () (declare (not safe)) (_%g206034206137%_)))) + (let () (declare (not safe)) (_%g206034206137%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g205875205978%_))))) + (_%g206034206137%_))))) (let () (declare (not safe)) - (_%g205875205978%_)))))) - (let () (declare (not safe)) (_%g205875205978%_))))) - (let () (declare (not safe)) (_%g205875205978%_)))))))) + (_%g206034206137%_)))))) + (let () (declare (not safe)) (_%g206034206137%_))))) + (let () (declare (not safe)) (_%g206034206137%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig205472%_) - (let* ((_%g205475205555%_ - (lambda (_%g205476205551%_) + (lambda (_%sig205631%_) + (let* ((_%g205634205714%_ + (lambda (_%g205635205710%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205476205551%_)))) - (_%g205474205857%_ - (lambda (_%g205476205559%_) + _%g205635205710%_)))) + (_%g205633206016%_ + (lambda (_%g205635205718%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205476205559%_)) - (let ((_%e205482205562%_ + (gx#stx-pair? _%g205635205718%_)) + (let ((_%e205641205721%_ (let () (declare (not safe)) - (gx#syntax-e _%g205476205559%_)))) - (let ((_%hd205483205566%_ + (gx#syntax-e _%g205635205718%_)))) + (let ((_%hd205642205725%_ (let () (declare (not safe)) - (##car _%e205482205562%_))) - (_%tl205484205569%_ + (##car _%e205641205721%_))) + (_%tl205643205728%_ (let () (declare (not safe)) - (##cdr _%e205482205562%_)))) + (##cdr _%e205641205721%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205484205569%_)) - (let ((_%e205485205572%_ + (gx#stx-pair? _%tl205643205728%_)) + (let ((_%e205644205731%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205484205569%_)))) - (let ((_%hd205486205576%_ + (gx#syntax-e _%tl205643205728%_)))) + (let ((_%hd205645205735%_ (let () (declare (not safe)) - (##car _%e205485205572%_))) - (_%tl205487205579%_ + (##car _%e205644205731%_))) + (_%tl205646205738%_ (let () (declare (not safe)) - (##cdr _%e205485205572%_)))) + (##cdr _%e205644205731%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205486205576%_)) - (let ((_%e205488205582%_ + (gx#stx-datum? _%hd205645205735%_)) + (let ((_%e205647205741%_ (let () (declare (not safe)) - (gx#stx-e _%hd205486205576%_)))) - (if (equal? _%e205488205582%_ + (gx#stx-e _%hd205645205735%_)))) + (if (equal? _%e205647205741%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205487205579%_)) - (let ((_%e205489205586%_ + _%tl205646205738%_)) + (let ((_%e205648205745%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205487205579%_)))) - (let ((_%hd205490205590%_ + _%tl205646205738%_)))) + (let ((_%hd205649205749%_ (let () (declare (not safe)) - (##car _%e205489205586%_))) - (_%tl205491205593%_ + (##car _%e205648205745%_))) + (_%tl205650205752%_ (let () (declare (not safe)) - (##cdr _%e205489205586%_)))) + (##cdr _%e205648205745%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205490205590%_)) - (let ((_%e205492205596%_ + _%hd205649205749%_)) + (let ((_%e205651205755%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205490205590%_)))) - (let ((_%hd205493205600%_ + (gx#syntax-e _%hd205649205749%_)))) + (let ((_%hd205652205759%_ (let () (declare (not safe)) - (##car _%e205492205596%_))) - (_%tl205494205603%_ + (##car _%e205651205755%_))) + (_%tl205653205762%_ (let () (declare (not safe)) - (##cdr _%e205492205596%_)))) + (##cdr _%e205651205755%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205493205600%_)) - (if (let ((__tmp209071 |gxc[1]#_g209072_|)) + (gx#identifier? _%hd205652205759%_)) + (if (let ((__tmp209230 |gxc[1]#_g209231_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209071 - _%hd205493205600%_)) + __tmp209230 + _%hd205652205759%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205494205603%_)) - (let ((_%e205495205606%_ + (gx#stx-pair? _%tl205653205762%_)) + (let ((_%e205654205765%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205494205603%_)))) - (let ((_%hd205496205610%_ + (gx#syntax-e _%tl205653205762%_)))) + (let ((_%hd205655205769%_ (let () (declare (not safe)) - (##car _%e205495205606%_))) - (_%tl205497205613%_ + (##car _%e205654205765%_))) + (_%tl205656205772%_ (let () (declare (not safe)) - (##cdr _%e205495205606%_)))) + (##cdr _%e205654205765%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205497205613%_)) + (gx#stx-null? _%tl205656205772%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205491205593%_)) - (let ((_%e205498205616%_ + _%tl205650205752%_)) + (let ((_%e205657205775%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205491205593%_)))) - (let ((_%hd205499205620%_ + _%tl205650205752%_)))) + (let ((_%hd205658205779%_ (let () (declare (not safe)) - (##car _%e205498205616%_))) - (_%tl205500205623%_ + (##car _%e205657205775%_))) + (_%tl205659205782%_ (let () (declare (not safe)) - (##cdr _%e205498205616%_)))) + (##cdr _%e205657205775%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205499205620%_)) - (let ((_%e205501205626%_ + _%hd205658205779%_)) + (let ((_%e205660205785%_ (let () (declare (not safe)) (gx#stx-e - _%hd205499205620%_)))) - (if (equal? _%e205501205626%_ + _%hd205658205779%_)))) + (if (equal? _%e205660205785%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205500205623%_)) - (let ((_%e205502205630%_ + (gx#stx-pair? _%tl205659205782%_)) + (let ((_%e205661205789%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205500205623%_)))) - (let ((_%hd205503205634%_ + (gx#syntax-e _%tl205659205782%_)))) + (let ((_%hd205662205793%_ (let () (declare (not safe)) - (##car _%e205502205630%_))) - (_%tl205504205637%_ + (##car _%e205661205789%_))) + (_%tl205663205796%_ (let () (declare (not safe)) - (##cdr _%e205502205630%_)))) + (##cdr _%e205661205789%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205503205634%_)) - (let ((_%e205505205640%_ + (gx#stx-pair? _%hd205662205793%_)) + (let ((_%e205664205799%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205503205634%_)))) - (let ((_%hd205506205644%_ + (gx#syntax-e _%hd205662205793%_)))) + (let ((_%hd205665205803%_ (let () (declare (not safe)) - (##car _%e205505205640%_))) - (_%tl205507205647%_ + (##car _%e205664205799%_))) + (_%tl205666205806%_ (let () (declare (not safe)) - (##cdr _%e205505205640%_)))) + (##cdr _%e205664205799%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205506205644%_)) - (if (let ((__tmp209073 - |gxc[1]#_g209074_|)) + (gx#identifier? _%hd205665205803%_)) + (if (let ((__tmp209232 + |gxc[1]#_g209233_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209073 - _%hd205506205644%_)) + __tmp209232 + _%hd205665205803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205507205647%_)) - (let ((_%e205508205650%_ + _%tl205666205806%_)) + (let ((_%e205667205809%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205507205647%_)))) - (let ((_%hd205509205654%_ + _%tl205666205806%_)))) + (let ((_%hd205668205813%_ (let () (declare (not safe)) - (##car _%e205508205650%_))) - (_%tl205510205657%_ + (##car _%e205667205809%_))) + (_%tl205669205816%_ (let () (declare (not safe)) - (##cdr _%e205508205650%_)))) + (##cdr _%e205667205809%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205510205657%_)) + _%tl205669205816%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205504205637%_)) - (let ((_%e205511205660%_ + _%tl205663205796%_)) + (let ((_%e205670205819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205504205637%_)))) - (let ((_%hd205512205664%_ + (gx#syntax-e _%tl205663205796%_)))) + (let ((_%hd205671205823%_ (let () (declare (not safe)) - (##car _%e205511205660%_))) - (_%tl205513205667%_ + (##car _%e205670205819%_))) + (_%tl205672205826%_ (let () (declare (not safe)) - (##cdr _%e205511205660%_)))) + (##cdr _%e205670205819%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205512205664%_)) - (let ((_%e205514205670%_ + (gx#stx-datum? _%hd205671205823%_)) + (let ((_%e205673205829%_ (let () (declare (not safe)) - (gx#stx-e _%hd205512205664%_)))) - (if (equal? _%e205514205670%_ 'effect:) + (gx#stx-e _%hd205671205823%_)))) + (if (equal? _%e205673205829%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205513205667%_)) - (let ((_%e205515205674%_ + (gx#stx-pair? _%tl205672205826%_)) + (let ((_%e205674205833%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205513205667%_)))) - (let ((_%hd205516205678%_ + _%tl205672205826%_)))) + (let ((_%hd205675205837%_ (let () (declare (not safe)) - (##car _%e205515205674%_))) - (_%tl205517205681%_ + (##car _%e205674205833%_))) + (_%tl205676205840%_ (let () (declare (not safe)) - (##cdr _%e205515205674%_)))) + (##cdr _%e205674205833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205516205678%_)) - (let ((_%e205518205684%_ + _%hd205675205837%_)) + (let ((_%e205677205843%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205516205678%_)))) - (let ((_%hd205519205688%_ + _%hd205675205837%_)))) + (let ((_%hd205678205847%_ (let () (declare (not safe)) - (##car _%e205518205684%_))) - (_%tl205520205691%_ + (##car _%e205677205843%_))) + (_%tl205679205850%_ (let () (declare (not safe)) - (##cdr _%e205518205684%_)))) + (##cdr _%e205677205843%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205519205688%_)) - (if (let ((__tmp209075 - |gxc[1]#_g209076_|)) + _%hd205678205847%_)) + (if (let ((__tmp209234 + |gxc[1]#_g209235_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209075 - _%hd205519205688%_)) + __tmp209234 + _%hd205678205847%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205520205691%_)) - (let ((_%e205521205694%_ + _%tl205679205850%_)) + (let ((_%e205680205853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205520205691%_)))) - (let ((_%hd205522205698%_ + (gx#syntax-e _%tl205679205850%_)))) + (let ((_%hd205681205857%_ (let () (declare (not safe)) - (##car _%e205521205694%_))) - (_%tl205523205701%_ + (##car _%e205680205853%_))) + (_%tl205682205860%_ (let () (declare (not safe)) - (##cdr _%e205521205694%_)))) + (##cdr _%e205680205853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205523205701%_)) + (gx#stx-null? _%tl205682205860%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205517205681%_)) - (let ((_%e205524205704%_ + (gx#stx-pair? _%tl205676205840%_)) + (let ((_%e205683205863%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205517205681%_)))) - (let ((_%hd205525205708%_ + (gx#syntax-e _%tl205676205840%_)))) + (let ((_%hd205684205867%_ (let () (declare (not safe)) - (##car _%e205524205704%_))) - (_%tl205526205711%_ + (##car _%e205683205863%_))) + (_%tl205685205870%_ (let () (declare (not safe)) - (##cdr _%e205524205704%_)))) + (##cdr _%e205683205863%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205525205708%_)) - (let ((_%e205527205714%_ + (gx#stx-datum? _%hd205684205867%_)) + (let ((_%e205686205873%_ (let () (declare (not safe)) (gx#stx-e - _%hd205525205708%_)))) - (if (equal? _%e205527205714%_ + _%hd205684205867%_)))) + (if (equal? _%e205686205873%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205526205711%_)) - (let ((_%e205528205718%_ + _%tl205685205870%_)) + (let ((_%e205687205877%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205526205711%_)))) - (let ((_%hd205529205722%_ + _%tl205685205870%_)))) + (let ((_%hd205688205881%_ (let () (declare (not safe)) - (##car _%e205528205718%_))) - (_%tl205530205725%_ + (##car _%e205687205877%_))) + (_%tl205689205884%_ (let () (declare (not safe)) - (##cdr _%e205528205718%_)))) + (##cdr _%e205687205877%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205529205722%_)) - (let ((_%e205531205728%_ + _%hd205688205881%_)) + (let ((_%e205690205887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd205529205722%_)))) - (let ((_%hd205532205732%_ + (gx#syntax-e _%hd205688205881%_)))) + (let ((_%hd205691205891%_ (let () (declare (not safe)) - (##car _%e205531205728%_))) - (_%tl205533205735%_ + (##car _%e205690205887%_))) + (_%tl205692205894%_ (let () (declare (not safe)) - (##cdr _%e205531205728%_)))) + (##cdr _%e205690205887%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205532205732%_)) - (if (let ((__tmp209077 |gxc[1]#_g209078_|)) + (gx#identifier? _%hd205691205891%_)) + (if (let ((__tmp209236 |gxc[1]#_g209237_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209077 - _%hd205532205732%_)) + __tmp209236 + _%hd205691205891%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205533205735%_)) - (let ((_%e205534205738%_ + (gx#stx-pair? _%tl205692205894%_)) + (let ((_%e205693205897%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205533205735%_)))) - (let ((_%hd205535205742%_ + (gx#syntax-e _%tl205692205894%_)))) + (let ((_%hd205694205901%_ (let () (declare (not safe)) - (##car _%e205534205738%_))) - (_%tl205536205745%_ + (##car _%e205693205897%_))) + (_%tl205695205904%_ (let () (declare (not safe)) - (##cdr _%e205534205738%_)))) + (##cdr _%e205693205897%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205536205745%_)) + (gx#stx-null? _%tl205695205904%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205530205725%_)) - (let ((_%e205537205748%_ + _%tl205689205884%_)) + (let ((_%e205696205907%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205530205725%_)))) - (let ((_%hd205538205752%_ + _%tl205689205884%_)))) + (let ((_%hd205697205911%_ (let () (declare (not safe)) - (##car _%e205537205748%_))) - (_%tl205539205755%_ + (##car _%e205696205907%_))) + (_%tl205698205914%_ (let () (declare (not safe)) - (##cdr _%e205537205748%_)))) + (##cdr _%e205696205907%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205538205752%_)) - (let ((_%e205540205758%_ + _%hd205697205911%_)) + (let ((_%e205699205917%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd205538205752%_)))) - (if (equal? _%e205540205758%_ 'origin:) + (gx#stx-e _%hd205697205911%_)))) + (if (equal? _%e205699205917%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205539205755%_)) - (let ((_%e205541205762%_ + (gx#stx-pair? _%tl205698205914%_)) + (let ((_%e205700205921%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205539205755%_)))) - (let ((_%hd205542205766%_ + (gx#syntax-e _%tl205698205914%_)))) + (let ((_%hd205701205925%_ (let () (declare (not safe)) - (##car _%e205541205762%_))) - (_%tl205543205769%_ + (##car _%e205700205921%_))) + (_%tl205702205928%_ (let () (declare (not safe)) - (##cdr _%e205541205762%_)))) + (##cdr _%e205700205921%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205542205766%_)) - (let ((_%e205544205772%_ + (gx#stx-pair? _%hd205701205925%_)) + (let ((_%e205703205931%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205542205766%_)))) - (let ((_%hd205545205776%_ + (gx#syntax-e _%hd205701205925%_)))) + (let ((_%hd205704205935%_ (let () (declare (not safe)) - (##car _%e205544205772%_))) - (_%tl205546205779%_ + (##car _%e205703205931%_))) + (_%tl205705205938%_ (let () (declare (not safe)) - (##cdr _%e205544205772%_)))) + (##cdr _%e205703205931%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205545205776%_)) - (if (let ((__tmp209079 - |gxc[1]#_g209080_|)) + (gx#identifier? _%hd205704205935%_)) + (if (let ((__tmp209238 + |gxc[1]#_g209239_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209079 - _%hd205545205776%_)) + __tmp209238 + _%hd205704205935%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205546205779%_)) - (let ((_%e205547205782%_ + _%tl205705205938%_)) + (let ((_%e205706205941%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205546205779%_)))) - (let ((_%hd205548205786%_ + _%tl205705205938%_)))) + (let ((_%hd205707205945%_ (let () (declare (not safe)) - (##car _%e205547205782%_))) - (_%tl205549205789%_ + (##car _%e205706205941%_))) + (_%tl205708205948%_ (let () (declare (not safe)) - (##cdr _%e205547205782%_)))) + (##cdr _%e205706205941%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205549205789%_)) + _%tl205708205948%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205543205769%_)) - ((lambda (_%L205792%_ + _%tl205702205928%_)) + ((lambda (_%L205951%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L205794%_ - _%L205795%_ - _%L205796%_ - _%L205797%_) - (if (let () (declare (not safe)) (gx#stx-e _%L205794%_)) - (cons _%L205794%_ + _%L205953%_ + _%L205954%_ + _%L205955%_ + _%L205956%_) + (if (let () (declare (not safe)) (gx#stx-e _%L205953%_)) + (cons _%L205953%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4681,180 +4681,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205796%_ '())) + (cons _%L205955%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205792%_ '())) + (cons _%L205951%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd205548205786%_ - _%hd205535205742%_ - _%hd205522205698%_ - _%hd205509205654%_ - _%hd205496205610%_) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) + _%hd205707205945%_ + _%hd205694205901%_ + _%hd205681205857%_ + _%hd205668205813%_ + _%hd205655205769%_) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_))) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_))) + (_%g205634205714%_ _%g205635205718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_))) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_))) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_))) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_))) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_))))) - (_%g205474205857%_ _%sig205472%_)))) + (_%g205634205714%_ + _%g205635205718%_)) + (_%g205634205714%_ + _%g205635205718%_))) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_)))) + (_%g205634205714%_ _%g205635205718%_))))) + (_%g205633206016%_ _%sig205631%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx206629%_) - (let* ((_%g206632206650%_ - (lambda (_%g206633206646%_) + (lambda (_%stx206788%_) + (let* ((_%g206791206809%_ + (lambda (_%g206792206805%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206633206646%_)))) - (_%g206631206705%_ - (lambda (_%g206633206654%_) + _%g206792206805%_)))) + (_%g206790206864%_ + (lambda (_%g206792206813%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206633206654%_)) - (let ((_%e206636206657%_ + (gx#stx-pair? _%g206792206813%_)) + (let ((_%e206795206816%_ (let () (declare (not safe)) - (gx#syntax-e _%g206633206654%_)))) - (let ((_%hd206637206661%_ + (gx#syntax-e _%g206792206813%_)))) + (let ((_%hd206796206820%_ (let () (declare (not safe)) - (##car _%e206636206657%_))) - (_%tl206638206664%_ + (##car _%e206795206816%_))) + (_%tl206797206823%_ (let () (declare (not safe)) - (##cdr _%e206636206657%_)))) + (##cdr _%e206795206816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206638206664%_)) - (let ((_%e206639206667%_ + (gx#stx-pair? _%tl206797206823%_)) + (let ((_%e206798206826%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206638206664%_)))) - (let ((_%hd206640206671%_ + (gx#syntax-e _%tl206797206823%_)))) + (let ((_%hd206799206830%_ (let () (declare (not safe)) - (##car _%e206639206667%_))) - (_%tl206641206674%_ + (##car _%e206798206826%_))) + (_%tl206800206833%_ (let () (declare (not safe)) - (##cdr _%e206639206667%_)))) + (##cdr _%e206798206826%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206641206674%_)) - (let ((_%e206642206677%_ + (gx#stx-pair? _%tl206800206833%_)) + (let ((_%e206801206836%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206641206674%_)))) - (let ((_%hd206643206681%_ + _%tl206800206833%_)))) + (let ((_%hd206802206840%_ (let () (declare (not safe)) - (##car _%e206642206677%_))) - (_%tl206644206684%_ + (##car _%e206801206836%_))) + (_%tl206803206843%_ (let () (declare (not safe)) - (##cdr _%e206642206677%_)))) + (##cdr _%e206801206836%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206644206684%_)) - ((lambda (_%L206687%_ - _%L206689%_) + _%tl206803206843%_)) + ((lambda (_%L206846%_ + _%L206848%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L206689%_)) + _%L206848%_)) (let () (declare (not safe)) (gx#identifier? - _%L206687%_))) + _%L206846%_))) (begin (|gxc[1]#verify-procedure!| - _%stx206629%_ - _%L206689%_) + _%stx206788%_ + _%L206848%_) (|gxc[1]#verify-class!| - _%stx206629%_ - _%L206687%_) + _%stx206788%_ + _%L206846%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206689%_ + (cons _%L206848%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4865,268 +4865,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206687%_ '())) + (cons _%L206846%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206632206650%_ - _%g206633206654%_))) - _%hd206643206681%_ - _%hd206640206671%_) - (_%g206632206650%_ - _%g206633206654%_)))) - (_%g206632206650%_ _%g206633206654%_)))) - (_%g206632206650%_ _%g206633206654%_)))) - (_%g206632206650%_ _%g206633206654%_))))) - (_%g206631206705%_ _%stx206629%_)))) + (_%g206791206809%_ + _%g206792206813%_))) + _%hd206802206840%_ + _%hd206799206830%_) + (_%g206791206809%_ + _%g206792206813%_)))) + (_%g206791206809%_ _%g206792206813%_)))) + (_%g206791206809%_ _%g206792206813%_)))) + (_%g206791206809%_ _%g206792206813%_))))) + (_%g206790206864%_ _%stx206788%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx206709%_) - (let* ((_%g206712206736%_ - (lambda (_%g206713206732%_) + (lambda (_%stx206868%_) + (let* ((_%g206871206895%_ + (lambda (_%g206872206891%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206713206732%_)))) - (_%g206711207019%_ - (lambda (_%g206713206740%_) + _%g206872206891%_)))) + (_%g206870207178%_ + (lambda (_%g206872206899%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206713206740%_)) - (let ((_%e206716206743%_ + (gx#stx-pair? _%g206872206899%_)) + (let ((_%e206875206902%_ (let () (declare (not safe)) - (gx#syntax-e _%g206713206740%_)))) - (let ((_%hd206717206747%_ + (gx#syntax-e _%g206872206899%_)))) + (let ((_%hd206876206906%_ (let () (declare (not safe)) - (##car _%e206716206743%_))) - (_%tl206718206750%_ + (##car _%e206875206902%_))) + (_%tl206877206909%_ (let () (declare (not safe)) - (##cdr _%e206716206743%_)))) + (##cdr _%e206875206902%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206718206750%_)) - (let ((_%e206719206753%_ + (gx#stx-pair? _%tl206877206909%_)) + (let ((_%e206878206912%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206718206750%_)))) - (let ((_%hd206720206757%_ + (gx#syntax-e _%tl206877206909%_)))) + (let ((_%hd206879206916%_ (let () (declare (not safe)) - (##car _%e206719206753%_))) - (_%tl206721206760%_ + (##car _%e206878206912%_))) + (_%tl206880206919%_ (let () (declare (not safe)) - (##cdr _%e206719206753%_)))) + (##cdr _%e206878206912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl206721206760%_)) - (let ((_g209081_ + (gx#stx-pair/null? _%tl206880206919%_)) + (let ((_g209240_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl206721206760%_ + _%tl206880206919%_ '0)))) (begin - (let ((_g209082_ + (let ((_g209241_ (let () (declare (not safe)) - (if (##values? _g209081_) + (if (##values? _g209240_) (##vector-length - _g209081_) + _g209240_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209082_ 2))) + (##fx= _g209241_ 2))) (error "Context expects 2 values" - _g209082_))) - (let ((_%target206722206763%_ + _g209241_))) + (let ((_%target206881206922%_ (let () (declare (not safe)) - (##vector-ref _g209081_ 0))) - (_%tl206724206766%_ + (##vector-ref _g209240_ 0))) + (_%tl206883206925%_ (let () (declare (not safe)) (##vector-ref - _g209081_ + _g209240_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206724206766%_)) - (letrec ((_%loop206725206769%_ - (lambda (_%hd206723206773%_ + _%tl206883206925%_)) + (letrec ((_%loop206884206928%_ + (lambda (_%hd206882206932%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature206729206776%_) + _%signature206888206935%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206723206773%_)) - (let ((_%e206726206779%_ + (gx#stx-pair? _%hd206882206932%_)) + (let ((_%e206885206938%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206723206773%_)))) - (let ((_%lp-hd206727206783%_ + (gx#syntax-e _%hd206882206932%_)))) + (let ((_%lp-hd206886206942%_ (let () (declare (not safe)) - (##car _%e206726206779%_))) - (_%lp-tl206728206786%_ + (##car _%e206885206938%_))) + (_%lp-tl206887206945%_ (let () (declare (not safe)) - (##cdr _%e206726206779%_)))) - (_%loop206725206769%_ - _%lp-tl206728206786%_ - (cons _%lp-hd206727206783%_ - _%signature206729206776%_)))) - (let ((_%signature206730206789%_ - (reverse _%signature206729206776%_))) - ((lambda (_%L206793%_ _%L206795%_) + (##cdr _%e206885206938%_)))) + (_%loop206884206928%_ + _%lp-tl206887206945%_ + (cons _%lp-hd206886206942%_ + _%signature206888206935%_)))) + (let ((_%signature206889206948%_ + (reverse _%signature206888206935%_))) + ((lambda (_%L206952%_ _%L206954%_) (if (let () (declare (not safe)) - (gx#identifier? _%L206795%_)) - (let* ((_%g206813206828%_ - (lambda (_%g206814206824%_) + (gx#identifier? _%L206954%_)) + (let* ((_%g206972206987%_ + (lambda (_%g206973206983%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206814206824%_)))) - (_%g206812207007%_ - (lambda (_%g206814206832%_) + _%g206973206983%_)))) + (_%g206971207166%_ + (lambda (_%g206973206991%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206814206832%_)) - (let ((_%e206817206835%_ + _%g206973206991%_)) + (let ((_%e206976206994%_ (let () (declare (not safe)) (gx#syntax-e - _%g206814206832%_)))) - (let ((_%hd206818206839%_ + _%g206973206991%_)))) + (let ((_%hd206977206998%_ (let () (declare (not safe)) - (##car _%e206817206835%_))) - (_%tl206819206842%_ + (##car _%e206976206994%_))) + (_%tl206978207001%_ (let () (declare (not safe)) - (##cdr _%e206817206835%_)))) + (##cdr _%e206976206994%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206819206842%_)) - (let ((_%e206820206845%_ + _%tl206978207001%_)) + (let ((_%e206979207004%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl206819206842%_)))) - (let ((_%hd206821206849%_ + (gx#syntax-e _%tl206978207001%_)))) + (let ((_%hd206980207008%_ (let () (declare (not safe)) - (##car _%e206820206845%_))) - (_%tl206822206852%_ + (##car _%e206979207004%_))) + (_%tl206981207011%_ (let () (declare (not safe)) - (##cdr _%e206820206845%_)))) + (##cdr _%e206979207004%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206822206852%_)) - ((lambda (_%L206855%_ _%L206857%_) - (let* ((_%g206873206881%_ - (lambda (_%g206874206877%_) + (gx#stx-null? _%tl206981207011%_)) + ((lambda (_%L207014%_ _%L207016%_) + (let* ((_%g207032207040%_ + (lambda (_%g207033207036%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206874206877%_)))) - (_%g206872207003%_ - (lambda (_%g206874206885%_) - ((lambda (_%L206888%_) - (let* ((_%unchecked206901%_ + _%g207033207036%_)))) + (_%g207031207162%_ + (lambda (_%g207033207044%_) + ((lambda (_%L207047%_) + (let* ((_%unchecked207060%_ (|gxc[1]#signature->unchecked-signature| - _%L206855%_)) - (_%g206904206912%_ - (lambda (_%g206905206908%_) + _%L207014%_)) + (_%g207063207071%_ + (lambda (_%g207064207067%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206905206908%_)))) - (_%g206903206935%_ - (lambda (_%g206905206916%_) - ((lambda (_%L206919%_) + _%g207064207067%_)))) + (_%g207062207094%_ + (lambda (_%g207064207075%_) + ((lambda (_%L207078%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L206888%_ - (cons _%L206919%_ + (cons _%L207047%_ + (cons _%L207078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g206905206916%_)))) - (_%g206903206935%_ - (if _%unchecked206901%_ - (let* ((_%g206939206954%_ - (lambda (_%g206940206950%_) + _%g207064207075%_)))) + (_%g207062207094%_ + (if _%unchecked207060%_ + (let* ((_%g207098207113%_ + (lambda (_%g207099207109%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206940206950%_)))) - (_%g206938206999%_ - (lambda (_%g206940206958%_) + _%g207099207109%_)))) + (_%g207097207158%_ + (lambda (_%g207099207117%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206940206958%_)) - (let ((_%e206943206961%_ + _%g207099207117%_)) + (let ((_%e207102207120%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g206940206958%_)))) - (let ((_%hd206944206965%_ + (gx#syntax-e _%g207099207117%_)))) + (let ((_%hd207103207124%_ (let () (declare (not safe)) - (##car _%e206943206961%_))) - (_%tl206945206968%_ + (##car _%e207102207120%_))) + (_%tl207104207127%_ (let () (declare (not safe)) - (##cdr _%e206943206961%_)))) + (##cdr _%e207102207120%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206945206968%_)) - (let ((_%e206946206971%_ + (gx#stx-pair? _%tl207104207127%_)) + (let ((_%e207105207130%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206945206968%_)))) - (let ((_%hd206947206975%_ + (gx#syntax-e _%tl207104207127%_)))) + (let ((_%hd207106207134%_ (let () (declare (not safe)) - (##car _%e206946206971%_))) - (_%tl206948206978%_ + (##car _%e207105207130%_))) + (_%tl207107207137%_ (let () (declare (not safe)) - (##cdr _%e206946206971%_)))) + (##cdr _%e207105207130%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206948206978%_)) - ((lambda (_%L206981%_ _%L206983%_) + (gx#stx-null? _%tl207107207137%_)) + ((lambda (_%L207140%_ _%L207142%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206983%_ + (cons _%L207142%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5134,26 +5134,26 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206857%_ '())) + (cons _%L207016%_ '())) (cons '#f - (cons 'signature: (cons _%L206981%_ '()))))) + (cons 'signature: (cons _%L207140%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206947206975%_ - _%hd206944206965%_) - (_%g206939206954%_ _%g206940206958%_)))) - (_%g206939206954%_ _%g206940206958%_)))) - (_%g206939206954%_ _%g206940206958%_))))) + _%hd207106207134%_ + _%hd207103207124%_) + (_%g207098207113%_ _%g207099207117%_)))) + (_%g207098207113%_ _%g207099207117%_)))) + (_%g207098207113%_ _%g207099207117%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206938206999%_ - _%unchecked206901%_)) + (_%g207097207158%_ + _%unchecked207060%_)) '(begin))))) - _%g206874206885%_)))) - (_%g206872207003%_ + _%g207033207044%_)))) + (_%g207031207162%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206795%_ + (cons _%L206954%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5163,313 +5163,313 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206857%_ '())) - (cons '#f (cons 'signature: (cons _%L206855%_ '()))))) + (cons _%L207016%_ '())) + (cons '#f (cons 'signature: (cons _%L207014%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd206821206849%_ - _%hd206818206839%_) - (_%g206813206828%_ _%g206814206832%_)))) - (_%g206813206828%_ _%g206814206832%_)))) + _%hd206980207008%_ + _%hd206977206998%_) + (_%g206972206987%_ _%g206973206991%_)))) + (_%g206972206987%_ _%g206973206991%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206813206828%_ - _%g206814206832%_))))) - (_%g206812207007%_ + (_%g206972206987%_ + _%g206973206991%_))))) + (_%g206971207166%_ (|gxc[1]#parse-signature| - _%stx206709%_ - _%L206795%_ - (let ((__tmp209083 - (lambda (_%g207010207013%_ - _%g207011207016%_) - (cons _%g207010207013%_ - _%g207011207016%_)))) + _%stx206868%_ + _%L206954%_ + (let ((__tmp209242 + (lambda (_%g207169207172%_ + _%g207170207175%_) + (cons _%g207169207172%_ + _%g207170207175%_)))) (declare (not safe)) (__foldr1 - __tmp209083 + __tmp209242 '() - _%L206793%_))))) - (_%g206712206736%_ _%g206713206740%_))) - _%signature206730206789%_ - _%hd206720206757%_)))))) + _%L206952%_))))) + (_%g206871206895%_ _%g206872206899%_))) + _%signature206889206948%_ + _%hd206879206916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop206725206769%_ - _%target206722206763%_ + (_%loop206884206928%_ + _%target206881206922%_ '())) - (_%g206712206736%_ - _%g206713206740%_))))) - (_%g206712206736%_ _%g206713206740%_)))) - (_%g206712206736%_ _%g206713206740%_)))) - (_%g206712206736%_ _%g206713206740%_))))) - (_%g206711207019%_ _%stx206709%_)))) + (_%g206871206895%_ + _%g206872206899%_))))) + (_%g206871206895%_ _%g206872206899%_)))) + (_%g206871206895%_ _%g206872206899%_)))) + (_%g206871206895%_ _%g206872206899%_))))) + (_%g206870207178%_ _%stx206868%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx207024%_) - (let* ((_%g207027207051%_ - (lambda (_%g207028207047%_) + (lambda (_%stx207183%_) + (let* ((_%g207186207210%_ + (lambda (_%g207187207206%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207028207047%_)))) - (_%g207026207934%_ - (lambda (_%g207028207055%_) + _%g207187207206%_)))) + (_%g207185208093%_ + (lambda (_%g207187207214%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207028207055%_)) - (let ((_%e207031207058%_ + (gx#stx-pair? _%g207187207214%_)) + (let ((_%e207190207217%_ (let () (declare (not safe)) - (gx#syntax-e _%g207028207055%_)))) - (let ((_%hd207032207062%_ + (gx#syntax-e _%g207187207214%_)))) + (let ((_%hd207191207221%_ (let () (declare (not safe)) - (##car _%e207031207058%_))) - (_%tl207033207065%_ + (##car _%e207190207217%_))) + (_%tl207192207224%_ (let () (declare (not safe)) - (##cdr _%e207031207058%_)))) + (##cdr _%e207190207217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207033207065%_)) - (let ((_%e207034207068%_ + (gx#stx-pair? _%tl207192207224%_)) + (let ((_%e207193207227%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207033207065%_)))) - (let ((_%hd207035207072%_ + (gx#syntax-e _%tl207192207224%_)))) + (let ((_%hd207194207231%_ (let () (declare (not safe)) - (##car _%e207034207068%_))) - (_%tl207036207075%_ + (##car _%e207193207227%_))) + (_%tl207195207234%_ (let () (declare (not safe)) - (##cdr _%e207034207068%_)))) + (##cdr _%e207193207227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207036207075%_)) - (let ((_g209084_ + (gx#stx-pair/null? _%tl207195207234%_)) + (let ((_g209243_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207036207075%_ + _%tl207195207234%_ '0)))) (begin - (let ((_g209085_ + (let ((_g209244_ (let () (declare (not safe)) - (if (##values? _g209084_) + (if (##values? _g209243_) (##vector-length - _g209084_) + _g209243_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209085_ 2))) + (##fx= _g209244_ 2))) (error "Context expects 2 values" - _g209085_))) - (let ((_%target207037207078%_ + _g209244_))) + (let ((_%target207196207237%_ (let () (declare (not safe)) - (##vector-ref _g209084_ 0))) - (_%tl207039207081%_ + (##vector-ref _g209243_ 0))) + (_%tl207198207240%_ (let () (declare (not safe)) (##vector-ref - _g209084_ + _g209243_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207039207081%_)) - (letrec ((_%loop207040207084%_ - (lambda (_%hd207038207088%_ + _%tl207198207240%_)) + (letrec ((_%loop207199207243%_ + (lambda (_%hd207197207247%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature207044207091%_) + _%case-signature207203207250%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207038207088%_)) - (let ((_%e207041207094%_ + (gx#stx-pair? _%hd207197207247%_)) + (let ((_%e207200207253%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207038207088%_)))) - (let ((_%lp-hd207042207098%_ + (gx#syntax-e _%hd207197207247%_)))) + (let ((_%lp-hd207201207257%_ (let () (declare (not safe)) - (##car _%e207041207094%_))) - (_%lp-tl207043207101%_ + (##car _%e207200207253%_))) + (_%lp-tl207202207260%_ (let () (declare (not safe)) - (##cdr _%e207041207094%_)))) - (_%loop207040207084%_ - _%lp-tl207043207101%_ - (cons _%lp-hd207042207098%_ - _%case-signature207044207091%_)))) - (let ((_%case-signature207045207104%_ - (reverse _%case-signature207044207091%_))) - ((lambda (_%L207108%_ _%L207110%_) + (##cdr _%e207200207253%_)))) + (_%loop207199207243%_ + _%lp-tl207202207260%_ + (cons _%lp-hd207201207257%_ + _%case-signature207203207250%_)))) + (let ((_%case-signature207204207263%_ + (reverse _%case-signature207203207250%_))) + ((lambda (_%L207267%_ _%L207269%_) (if (let () (declare (not safe)) - (gx#identifier? _%L207110%_)) - (let* ((_%signatures207141%_ - (map (lambda (_%g207127207129%_) + (gx#identifier? _%L207269%_)) + (let* ((_%signatures207300%_ + (map (lambda (_%g207286207288%_) (|gxc[1]#parse-signature| - _%stx207024%_ - _%L207110%_ - _%g207127207129%_)) - (let ((__tmp209086 - (lambda (_%g207132207135%_ - _%g207133207138%_) - (cons _%g207132207135%_ - _%g207133207138%_)))) + _%stx207183%_ + _%L207269%_ + _%g207286207288%_)) + (let ((__tmp209245 + (lambda (_%g207291207294%_ + _%g207292207297%_) + (cons _%g207291207294%_ + _%g207292207297%_)))) (declare (not safe)) (__foldr1 - __tmp209086 + __tmp209245 '() - _%L207108%_)))) - (_%g207144207170%_ - (lambda (_%g207145207166%_) + _%L207267%_)))) + (_%g207303207329%_ + (lambda (_%g207304207325%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207145207166%_)))) - (_%g207143207930%_ - (lambda (_%g207145207174%_) + _%g207304207325%_)))) + (_%g207302208089%_ + (lambda (_%g207304207333%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g207145207174%_)) - (let ((_g209087_ + _%g207304207333%_)) + (let ((_g209246_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g207145207174%_ + _%g207304207333%_ '0)))) (begin - (let ((_g209088_ + (let ((_g209247_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g209087_) - (##vector-length _g209087_) + _g209246_) + (##vector-length _g209246_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g209088_ 2))) - (error "Context expects 2 values" _g209088_))) + (##fx= _g209247_ 2))) + (error "Context expects 2 values" _g209247_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target207148207177%_ + (let ((_%target207307207336%_ (let () (declare (not safe)) (##vector-ref - _g209087_ + _g209246_ 0))) - (_%tl207150207180%_ + (_%tl207309207339%_ (let () (declare (not safe)) (##vector-ref - _g209087_ + _g209246_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207150207180%_)) - (letrec ((_%loop207151207183%_ + _%tl207309207339%_)) + (letrec ((_%loop207310207342%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd207149207187%_ - _%sig207155207190%_ - _%arity207156207192%_) + (lambda (_%hd207308207346%_ + _%sig207314207349%_ + _%arity207315207351%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207149207187%_)) - (let ((_%e207152207195%_ + (gx#stx-pair? _%hd207308207346%_)) + (let ((_%e207311207354%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207149207187%_)))) - (let ((_%lp-hd207153207199%_ + (gx#syntax-e _%hd207308207346%_)))) + (let ((_%lp-hd207312207358%_ (let () (declare (not safe)) - (##car _%e207152207195%_))) - (_%lp-tl207154207202%_ + (##car _%e207311207354%_))) + (_%lp-tl207313207361%_ (let () (declare (not safe)) - (##cdr _%e207152207195%_)))) + (##cdr _%e207311207354%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd207153207199%_)) - (let ((_%e207159207205%_ + _%lp-hd207312207358%_)) + (let ((_%e207318207364%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd207153207199%_)))) - (let ((_%hd207160207209%_ + _%lp-hd207312207358%_)))) + (let ((_%hd207319207368%_ (let () (declare (not safe)) - (##car _%e207159207205%_))) - (_%tl207161207212%_ + (##car _%e207318207364%_))) + (_%tl207320207371%_ (let () (declare (not safe)) - (##cdr _%e207159207205%_)))) + (##cdr _%e207318207364%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207161207212%_)) - (let ((_%e207162207215%_ + _%tl207320207371%_)) + (let ((_%e207321207374%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207161207212%_)))) - (let ((_%hd207163207219%_ + _%tl207320207371%_)))) + (let ((_%hd207322207378%_ (let () (declare (not safe)) - (##car _%e207162207215%_))) - (_%tl207164207222%_ + (##car _%e207321207374%_))) + (_%tl207323207381%_ (let () (declare (not safe)) - (##cdr _%e207162207215%_)))) + (##cdr _%e207321207374%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207164207222%_)) - (_%loop207151207183%_ - _%lp-tl207154207202%_ - (cons _%hd207163207219%_ - _%sig207155207190%_) - (cons _%hd207160207209%_ - _%arity207156207192%_)) - (_%g207144207170%_ - _%g207145207174%_)))) - (_%g207144207170%_ - _%g207145207174%_)))) - (_%g207144207170%_ - _%g207145207174%_)))) - (let ((_%sig207157207225%_ - (reverse _%sig207155207190%_)) - (_%arity207158207228%_ - (reverse _%arity207156207192%_))) - ((lambda (_%L207231%_ _%L207233%_) - (let* ((_%g207250207258%_ - (lambda (_%g207251207254%_) + _%tl207323207381%_)) + (_%loop207310207342%_ + _%lp-tl207313207361%_ + (cons _%hd207322207378%_ + _%sig207314207349%_) + (cons _%hd207319207368%_ + _%arity207315207351%_)) + (_%g207303207329%_ + _%g207304207333%_)))) + (_%g207303207329%_ + _%g207304207333%_)))) + (_%g207303207329%_ + _%g207304207333%_)))) + (let ((_%sig207316207384%_ + (reverse _%sig207314207349%_)) + (_%arity207317207387%_ + (reverse _%arity207315207351%_))) + ((lambda (_%L207390%_ _%L207392%_) + (let* ((_%g207409207417%_ + (lambda (_%g207410207413%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207251207254%_)))) - (_%g207249207915%_ - (lambda (_%g207251207262%_) - ((lambda (_%L207265%_) - (let* ((_%g207278207286%_ - (lambda (_%g207279207282%_) + _%g207410207413%_)))) + (_%g207408208074%_ + (lambda (_%g207410207421%_) + ((lambda (_%L207424%_) + (let* ((_%g207437207445%_ + (lambda (_%g207438207441%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5477,551 +5477,551 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207279207282%_)))) - (_%g207277207308%_ - (lambda (_%g207279207290%_) - ((lambda (_%L207293%_) + _%g207438207441%_)))) + (_%g207436207467%_ + (lambda (_%g207438207449%_) + ((lambda (_%L207452%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207265%_ (cons _%L207293%_ '())))) - _%g207279207290%_)))) + (cons _%L207424%_ (cons _%L207452%_ '())))) + _%g207438207449%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207277207308%_ - (let ((_g209089_ - (let _%loop207312%_ ((_%rest207315%_ + (_%g207436207467%_ + (let ((_g209248_ + (let _%loop207471%_ ((_%rest207474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures207141%_) - (_%unchecked-proc207317%_ '#f) - (_%unchecked-clauses207318%_ '())) - (let* ((_%rest207319207327%_ _%rest207315%_) - (_%else207321207339%_ + _%signatures207300%_) + (_%unchecked-proc207476%_ '#f) + (_%unchecked-clauses207477%_ '())) + (let* ((_%rest207478207486%_ _%rest207474%_) + (_%else207480207498%_ (lambda () - (values _%unchecked-proc207317%_ + (values _%unchecked-proc207476%_ (reverse! - _%unchecked-clauses207318%_)))) - (_%K207323207780%_ - (lambda (_%rest207343%_ _%hd207345%_) - (let* ((_%g207347207434%_ - (lambda (_%g207348207430%_) + _%unchecked-clauses207477%_)))) + (_%K207482207939%_ + (lambda (_%rest207502%_ _%hd207504%_) + (let* ((_%g207506207593%_ + (lambda (_%g207507207589%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207348207430%_)))) - (_%g207346207776%_ - (lambda (_%g207348207438%_) + _%g207507207589%_)))) + (_%g207505207935%_ + (lambda (_%g207507207597%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207348207438%_)) - (let ((_%e207355207441%_ + _%g207507207597%_)) + (let ((_%e207514207600%_ (let () (declare (not safe)) (gx#syntax-e - _%g207348207438%_)))) - (let ((_%hd207356207445%_ + _%g207507207597%_)))) + (let ((_%hd207515207604%_ (let () (declare (not safe)) - (##car _%e207355207441%_))) - (_%tl207357207448%_ + (##car _%e207514207600%_))) + (_%tl207516207607%_ (let () (declare (not safe)) - (##cdr _%e207355207441%_)))) + (##cdr _%e207514207600%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207357207448%_)) - (let ((_%e207358207451%_ + _%tl207516207607%_)) + (let ((_%e207517207610%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207357207448%_)))) - (let ((_%hd207359207455%_ + (gx#syntax-e _%tl207516207607%_)))) + (let ((_%hd207518207614%_ (let () (declare (not safe)) - (##car _%e207358207451%_))) - (_%tl207360207458%_ + (##car _%e207517207610%_))) + (_%tl207519207617%_ (let () (declare (not safe)) - (##cdr _%e207358207451%_)))) + (##cdr _%e207517207610%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207359207455%_)) - (let ((_%e207361207461%_ + (gx#stx-pair? _%hd207518207614%_)) + (let ((_%e207520207620%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207359207455%_)))) - (let ((_%hd207362207465%_ + (gx#syntax-e _%hd207518207614%_)))) + (let ((_%hd207521207624%_ (let () (declare (not safe)) - (##car _%e207361207461%_))) - (_%tl207363207468%_ + (##car _%e207520207620%_))) + (_%tl207522207627%_ (let () (declare (not safe)) - (##cdr _%e207361207461%_)))) + (##cdr _%e207520207620%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207363207468%_)) - (let ((_%e207364207471%_ + (gx#stx-pair? _%tl207522207627%_)) + (let ((_%e207523207630%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207363207468%_)))) - (let ((_%hd207365207475%_ + (gx#syntax-e _%tl207522207627%_)))) + (let ((_%hd207524207634%_ (let () (declare (not safe)) - (##car _%e207364207471%_))) - (_%tl207366207478%_ + (##car _%e207523207630%_))) + (_%tl207525207637%_ (let () (declare (not safe)) - (##cdr _%e207364207471%_)))) + (##cdr _%e207523207630%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207365207475%_)) - (let ((_%e207367207481%_ + (gx#stx-datum? _%hd207524207634%_)) + (let ((_%e207526207640%_ (let () (declare (not safe)) (gx#stx-e - _%hd207365207475%_)))) - (if (equal? _%e207367207481%_ + _%hd207524207634%_)))) + (if (equal? _%e207526207640%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207366207478%_)) - (let ((_%e207368207485%_ + _%tl207525207637%_)) + (let ((_%e207527207644%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207366207478%_)))) - (let ((_%hd207369207489%_ + _%tl207525207637%_)))) + (let ((_%hd207528207648%_ (let () (declare (not safe)) - (##car _%e207368207485%_))) - (_%tl207370207492%_ + (##car _%e207527207644%_))) + (_%tl207529207651%_ (let () (declare (not safe)) - (##cdr _%e207368207485%_)))) + (##cdr _%e207527207644%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207369207489%_)) - (let ((_%e207371207495%_ + _%hd207528207648%_)) + (let ((_%e207530207654%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd207369207489%_)))) - (let ((_%hd207372207499%_ + (gx#syntax-e _%hd207528207648%_)))) + (let ((_%hd207531207658%_ (let () (declare (not safe)) - (##car _%e207371207495%_))) - (_%tl207373207502%_ + (##car _%e207530207654%_))) + (_%tl207532207661%_ (let () (declare (not safe)) - (##cdr _%e207371207495%_)))) + (##cdr _%e207530207654%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207372207499%_)) - (if (let ((__tmp209091 |gxc[1]#_g209092_|)) + (gx#identifier? _%hd207531207658%_)) + (if (let ((__tmp209250 |gxc[1]#_g209251_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209091 - _%hd207372207499%_)) + __tmp209250 + _%hd207531207658%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207373207502%_)) - (let ((_%e207374207505%_ + (gx#stx-pair? _%tl207532207661%_)) + (let ((_%e207533207664%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207373207502%_)))) - (let ((_%hd207375207509%_ + (gx#syntax-e _%tl207532207661%_)))) + (let ((_%hd207534207668%_ (let () (declare (not safe)) - (##car _%e207374207505%_))) - (_%tl207376207512%_ + (##car _%e207533207664%_))) + (_%tl207535207671%_ (let () (declare (not safe)) - (##cdr _%e207374207505%_)))) + (##cdr _%e207533207664%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207376207512%_)) + (gx#stx-null? _%tl207535207671%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207370207492%_)) - (let ((_%e207377207515%_ + _%tl207529207651%_)) + (let ((_%e207536207674%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207370207492%_)))) - (let ((_%hd207378207519%_ + _%tl207529207651%_)))) + (let ((_%hd207537207678%_ (let () (declare (not safe)) - (##car _%e207377207515%_))) - (_%tl207379207522%_ + (##car _%e207536207674%_))) + (_%tl207538207681%_ (let () (declare (not safe)) - (##cdr _%e207377207515%_)))) + (##cdr _%e207536207674%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207378207519%_)) - (let ((_%e207380207525%_ + _%hd207537207678%_)) + (let ((_%e207539207684%_ (let () (declare (not safe)) (gx#stx-e - _%hd207378207519%_)))) - (if (equal? _%e207380207525%_ + _%hd207537207678%_)))) + (if (equal? _%e207539207684%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207379207522%_)) - (let ((_%e207381207529%_ + (gx#stx-pair? _%tl207538207681%_)) + (let ((_%e207540207688%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207379207522%_)))) - (let ((_%hd207382207533%_ + (gx#syntax-e _%tl207538207681%_)))) + (let ((_%hd207541207692%_ (let () (declare (not safe)) - (##car _%e207381207529%_))) - (_%tl207383207536%_ + (##car _%e207540207688%_))) + (_%tl207542207695%_ (let () (declare (not safe)) - (##cdr _%e207381207529%_)))) + (##cdr _%e207540207688%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207382207533%_)) - (let ((_%e207384207539%_ + (gx#stx-pair? _%hd207541207692%_)) + (let ((_%e207543207698%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207382207533%_)))) - (let ((_%hd207385207543%_ + (gx#syntax-e _%hd207541207692%_)))) + (let ((_%hd207544207702%_ (let () (declare (not safe)) - (##car _%e207384207539%_))) - (_%tl207386207546%_ + (##car _%e207543207698%_))) + (_%tl207545207705%_ (let () (declare (not safe)) - (##cdr _%e207384207539%_)))) + (##cdr _%e207543207698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207385207543%_)) - (if (let ((__tmp209093 - |gxc[1]#_g209094_|)) + (gx#identifier? _%hd207544207702%_)) + (if (let ((__tmp209252 + |gxc[1]#_g209253_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209093 - _%hd207385207543%_)) + __tmp209252 + _%hd207544207702%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207386207546%_)) - (let ((_%e207387207549%_ + _%tl207545207705%_)) + (let ((_%e207546207708%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207386207546%_)))) - (let ((_%hd207388207553%_ + _%tl207545207705%_)))) + (let ((_%hd207547207712%_ (let () (declare (not safe)) - (##car _%e207387207549%_))) - (_%tl207389207556%_ + (##car _%e207546207708%_))) + (_%tl207548207715%_ (let () (declare (not safe)) - (##cdr _%e207387207549%_)))) + (##cdr _%e207546207708%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207389207556%_)) + _%tl207548207715%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207383207536%_)) - (let ((_%e207390207559%_ + _%tl207542207695%_)) + (let ((_%e207549207718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207383207536%_)))) - (let ((_%hd207391207563%_ + (gx#syntax-e _%tl207542207695%_)))) + (let ((_%hd207550207722%_ (let () (declare (not safe)) - (##car _%e207390207559%_))) - (_%tl207392207566%_ + (##car _%e207549207718%_))) + (_%tl207551207725%_ (let () (declare (not safe)) - (##cdr _%e207390207559%_)))) + (##cdr _%e207549207718%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207391207563%_)) - (let ((_%e207393207569%_ + (gx#stx-datum? _%hd207550207722%_)) + (let ((_%e207552207728%_ (let () (declare (not safe)) - (gx#stx-e _%hd207391207563%_)))) - (if (equal? _%e207393207569%_ 'effect:) + (gx#stx-e _%hd207550207722%_)))) + (if (equal? _%e207552207728%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207392207566%_)) - (let ((_%e207394207573%_ + (gx#stx-pair? _%tl207551207725%_)) + (let ((_%e207553207732%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207392207566%_)))) - (let ((_%hd207395207577%_ + _%tl207551207725%_)))) + (let ((_%hd207554207736%_ (let () (declare (not safe)) - (##car _%e207394207573%_))) - (_%tl207396207580%_ + (##car _%e207553207732%_))) + (_%tl207555207739%_ (let () (declare (not safe)) - (##cdr _%e207394207573%_)))) + (##cdr _%e207553207732%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207395207577%_)) - (let ((_%e207397207583%_ + _%hd207554207736%_)) + (let ((_%e207556207742%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207395207577%_)))) - (let ((_%hd207398207587%_ + _%hd207554207736%_)))) + (let ((_%hd207557207746%_ (let () (declare (not safe)) - (##car _%e207397207583%_))) - (_%tl207399207590%_ + (##car _%e207556207742%_))) + (_%tl207558207749%_ (let () (declare (not safe)) - (##cdr _%e207397207583%_)))) + (##cdr _%e207556207742%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd207398207587%_)) - (if (let ((__tmp209095 - |gxc[1]#_g209096_|)) + _%hd207557207746%_)) + (if (let ((__tmp209254 + |gxc[1]#_g209255_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209095 - _%hd207398207587%_)) + __tmp209254 + _%hd207557207746%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl207399207590%_)) - (let ((_%e207400207593%_ + (gx#stx-pair? _%tl207558207749%_)) + (let ((_%e207559207752%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207399207590%_)))) - (let ((_%hd207401207597%_ + (gx#syntax-e _%tl207558207749%_)))) + (let ((_%hd207560207756%_ (let () (declare (not safe)) - (##car _%e207400207593%_))) - (_%tl207402207600%_ + (##car _%e207559207752%_))) + (_%tl207561207759%_ (let () (declare (not safe)) - (##cdr _%e207400207593%_)))) + (##cdr _%e207559207752%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207402207600%_)) + (gx#stx-null? _%tl207561207759%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207396207580%_)) - (let ((_%e207403207603%_ + (gx#stx-pair? _%tl207555207739%_)) + (let ((_%e207562207762%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207396207580%_)))) - (let ((_%hd207404207607%_ + (gx#syntax-e _%tl207555207739%_)))) + (let ((_%hd207563207766%_ (let () (declare (not safe)) - (##car _%e207403207603%_))) - (_%tl207405207610%_ + (##car _%e207562207762%_))) + (_%tl207564207769%_ (let () (declare (not safe)) - (##cdr _%e207403207603%_)))) + (##cdr _%e207562207762%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207404207607%_)) - (let ((_%e207406207613%_ + (gx#stx-datum? _%hd207563207766%_)) + (let ((_%e207565207772%_ (let () (declare (not safe)) (gx#stx-e - _%hd207404207607%_)))) - (if (equal? _%e207406207613%_ + _%hd207563207766%_)))) + (if (equal? _%e207565207772%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207405207610%_)) - (let ((_%e207407207617%_ + _%tl207564207769%_)) + (let ((_%e207566207776%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207405207610%_)))) - (let ((_%hd207408207621%_ + _%tl207564207769%_)))) + (let ((_%hd207567207780%_ (let () (declare (not safe)) - (##car _%e207407207617%_))) - (_%tl207409207624%_ + (##car _%e207566207776%_))) + (_%tl207568207783%_ (let () (declare (not safe)) - (##cdr _%e207407207617%_)))) + (##cdr _%e207566207776%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207408207621%_)) - (let ((_%e207410207627%_ + _%hd207567207780%_)) + (let ((_%e207569207786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd207408207621%_)))) - (let ((_%hd207411207631%_ + (gx#syntax-e _%hd207567207780%_)))) + (let ((_%hd207570207790%_ (let () (declare (not safe)) - (##car _%e207410207627%_))) - (_%tl207412207634%_ + (##car _%e207569207786%_))) + (_%tl207571207793%_ (let () (declare (not safe)) - (##cdr _%e207410207627%_)))) + (##cdr _%e207569207786%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207411207631%_)) - (if (let ((__tmp209097 |gxc[1]#_g209098_|)) + (gx#identifier? _%hd207570207790%_)) + (if (let ((__tmp209256 |gxc[1]#_g209257_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209097 - _%hd207411207631%_)) + __tmp209256 + _%hd207570207790%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207412207634%_)) - (let ((_%e207413207637%_ + (gx#stx-pair? _%tl207571207793%_)) + (let ((_%e207572207796%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207412207634%_)))) - (let ((_%hd207414207641%_ + (gx#syntax-e _%tl207571207793%_)))) + (let ((_%hd207573207800%_ (let () (declare (not safe)) - (##car _%e207413207637%_))) - (_%tl207415207644%_ + (##car _%e207572207796%_))) + (_%tl207574207803%_ (let () (declare (not safe)) - (##cdr _%e207413207637%_)))) + (##cdr _%e207572207796%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207415207644%_)) + (gx#stx-null? _%tl207574207803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207409207624%_)) - (let ((_%e207416207647%_ + _%tl207568207783%_)) + (let ((_%e207575207806%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207409207624%_)))) - (let ((_%hd207417207651%_ + _%tl207568207783%_)))) + (let ((_%hd207576207810%_ (let () (declare (not safe)) - (##car _%e207416207647%_))) - (_%tl207418207654%_ + (##car _%e207575207806%_))) + (_%tl207577207813%_ (let () (declare (not safe)) - (##cdr _%e207416207647%_)))) + (##cdr _%e207575207806%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207417207651%_)) - (let ((_%e207419207657%_ + _%hd207576207810%_)) + (let ((_%e207578207816%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd207417207651%_)))) - (if (equal? _%e207419207657%_ 'origin:) + (gx#stx-e _%hd207576207810%_)))) + (if (equal? _%e207578207816%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207418207654%_)) - (let ((_%e207420207661%_ + (gx#stx-pair? _%tl207577207813%_)) + (let ((_%e207579207820%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207418207654%_)))) - (let ((_%hd207421207665%_ + (gx#syntax-e _%tl207577207813%_)))) + (let ((_%hd207580207824%_ (let () (declare (not safe)) - (##car _%e207420207661%_))) - (_%tl207422207668%_ + (##car _%e207579207820%_))) + (_%tl207581207827%_ (let () (declare (not safe)) - (##cdr _%e207420207661%_)))) + (##cdr _%e207579207820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207421207665%_)) - (let ((_%e207423207671%_ + (gx#stx-pair? _%hd207580207824%_)) + (let ((_%e207582207830%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207421207665%_)))) - (let ((_%hd207424207675%_ + (gx#syntax-e _%hd207580207824%_)))) + (let ((_%hd207583207834%_ (let () (declare (not safe)) - (##car _%e207423207671%_))) - (_%tl207425207678%_ + (##car _%e207582207830%_))) + (_%tl207584207837%_ (let () (declare (not safe)) - (##cdr _%e207423207671%_)))) + (##cdr _%e207582207830%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207424207675%_)) - (if (let ((__tmp209099 - |gxc[1]#_g209100_|)) + (gx#identifier? _%hd207583207834%_)) + (if (let ((__tmp209258 + |gxc[1]#_g209259_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209099 - _%hd207424207675%_)) + __tmp209258 + _%hd207583207834%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207425207678%_)) - (let ((_%e207426207681%_ + _%tl207584207837%_)) + (let ((_%e207585207840%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207425207678%_)))) - (let ((_%hd207427207685%_ + _%tl207584207837%_)))) + (let ((_%hd207586207844%_ (let () (declare (not safe)) - (##car _%e207426207681%_))) - (_%tl207428207688%_ + (##car _%e207585207840%_))) + (_%tl207587207847%_ (let () (declare (not safe)) - (##cdr _%e207426207681%_)))) + (##cdr _%e207585207840%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207428207688%_)) + _%tl207587207847%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl207422207668%_)) + (gx#stx-null? _%tl207581207827%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207360207458%_)) - ((lambda (_%L207691%_ - _%L207693%_ - _%L207694%_ - _%L207695%_ - _%L207696%_ - _%L207697%_) - (let ((_%clause207768%_ + (gx#stx-null? _%tl207519207617%_)) + ((lambda (_%L207850%_ + _%L207852%_ + _%L207853%_ + _%L207854%_ + _%L207855%_ + _%L207856%_) + (let ((_%clause207927%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6032,7 +6032,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207697%_ '())) + (cons _%L207856%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6045,256 +6045,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207695%_ '())) + (cons _%L207854%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207691%_ '())) + (cons _%L207850%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked207770%_ + (_%unchecked207929%_ (let () (declare (not safe)) - (gx#stx-e _%L207693%_)))) - (_%loop207312%_ - _%rest207343%_ - (let ((_%$e207772%_ _%unchecked207770%_)) - (if _%$e207772%_ - _%$e207772%_ - _%unchecked-proc207317%_)) - (cons _%clause207768%_ - _%unchecked-clauses207318%_)))) - _%hd207427207685%_ - _%hd207414207641%_ - _%hd207401207597%_ - _%hd207388207553%_ - _%hd207375207509%_ - _%hd207356207445%_) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) + (gx#stx-e _%L207852%_)))) + (_%loop207471%_ + _%rest207502%_ + (let ((_%$e207931%_ _%unchecked207929%_)) + (if _%$e207931%_ + _%$e207931%_ + _%unchecked-proc207476%_)) + (cons _%clause207927%_ + _%unchecked-clauses207477%_)))) + _%hd207586207844%_ + _%hd207573207800%_ + _%hd207560207756%_ + _%hd207547207712%_ + _%hd207534207668%_ + _%hd207515207604%_) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_))) + (_%g207506207593%_ _%g207507207597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_))) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_))) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_))) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_))) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g207506207593%_ + _%g207507207597%_)) + (_%g207506207593%_ + _%g207507207597%_))) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) + (_%g207506207593%_ _%g207507207597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_))))) - (_%g207346207776%_ _%hd207345%_))))) - (if (pair? _%rest207319207327%_) - (let ((_%hd207324207784%_ + (_%g207506207593%_ + _%g207507207597%_))))) + (_%g207505207935%_ _%hd207504%_))))) + (if (pair? _%rest207478207486%_) + (let ((_%hd207483207943%_ (let () (declare (not safe)) - (##car _%rest207319207327%_))) - (_%tl207325207787%_ + (##car _%rest207478207486%_))) + (_%tl207484207946%_ (let () (declare (not safe)) - (##cdr _%rest207319207327%_)))) - (let* ((_%hd207790%_ _%hd207324207784%_) - (_%rest207793%_ _%tl207325207787%_)) - (_%K207323207780%_ - _%rest207793%_ - _%hd207790%_))) - (_%else207321207339%_)))))) + (##cdr _%rest207478207486%_)))) + (let* ((_%hd207949%_ _%hd207483207943%_) + (_%rest207952%_ _%tl207484207946%_)) + (_%K207482207939%_ + _%rest207952%_ + _%hd207949%_))) + (_%else207480207498%_)))))) (begin - (let ((_g209090_ + (let ((_g209249_ (let () (declare (not safe)) - (if (##values? _g209089_) - (##vector-length _g209089_) + (if (##values? _g209248_) + (##vector-length _g209248_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209090_ 2))) - (error "Context expects 2 values" _g209090_))) - (let ((_%unchecked-proc207796%_ + (if (not (let () (declare (not safe)) (##fx= _g209249_ 2))) + (error "Context expects 2 values" _g209249_))) + (let ((_%unchecked-proc207955%_ (let () (declare (not safe)) - (##vector-ref _g209089_ 0))) - (_%unchecked-clauses207798%_ + (##vector-ref _g209248_ 0))) + (_%unchecked-clauses207957%_ (let () (declare (not safe)) - (##vector-ref _g209089_ 1)))) - (if _%unchecked-proc207796%_ - (let* ((_%g207800207824%_ - (lambda (_%g207801207820%_) + (##vector-ref _g209248_ 1)))) + (if _%unchecked-proc207955%_ + (let* ((_%g207959207983%_ + (lambda (_%g207960207979%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207801207820%_)))) - (_%g207799207911%_ - (lambda (_%g207801207828%_) + _%g207960207979%_)))) + (_%g207958208070%_ + (lambda (_%g207960207987%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207801207828%_)) - (let ((_%e207804207831%_ + (gx#stx-pair? _%g207960207987%_)) + (let ((_%e207963207990%_ (let () (declare (not safe)) (gx#syntax-e - _%g207801207828%_)))) - (let ((_%hd207805207835%_ + _%g207960207987%_)))) + (let ((_%hd207964207994%_ (let () (declare (not safe)) - (##car _%e207804207831%_))) - (_%tl207806207838%_ + (##car _%e207963207990%_))) + (_%tl207965207997%_ (let () (declare (not safe)) - (##cdr _%e207804207831%_)))) + (##cdr _%e207963207990%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207806207838%_)) - (let ((_%e207807207841%_ + _%tl207965207997%_)) + (let ((_%e207966208000%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207806207838%_)))) - (let ((_%hd207808207845%_ + _%tl207965207997%_)))) + (let ((_%hd207967208004%_ (let () (declare (not safe)) - (##car _%e207807207841%_))) - (_%tl207809207848%_ + (##car _%e207966208000%_))) + (_%tl207968208007%_ (let () (declare (not safe)) - (##cdr _%e207807207841%_)))) + (##cdr _%e207966208000%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd207808207845%_)) - (let ((_g209101_ + _%hd207967208004%_)) + (let ((_g209260_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd207808207845%_ '0)))) + (gx#syntax-split-splice _%hd207967208004%_ '0)))) (begin - (let ((_g209102_ + (let ((_g209261_ (let () (declare (not safe)) - (if (##values? _g209101_) - (##vector-length _g209101_) + (if (##values? _g209260_) + (##vector-length _g209260_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209102_ 2))) - (error "Context expects 2 values" _g209102_))) - (let ((_%target207810207851%_ + (if (not (let () (declare (not safe)) (##fx= _g209261_ 2))) + (error "Context expects 2 values" _g209261_))) + (let ((_%target207969208010%_ (let () (declare (not safe)) - (##vector-ref _g209101_ 0))) - (_%tl207812207854%_ + (##vector-ref _g209260_ 0))) + (_%tl207971208013%_ (let () (declare (not safe)) - (##vector-ref _g209101_ 1)))) + (##vector-ref _g209260_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207812207854%_)) - (letrec ((_%loop207813207857%_ - (lambda (_%hd207811207861%_ - _%clause207817207864%_) + (gx#stx-null? _%tl207971208013%_)) + (letrec ((_%loop207972208016%_ + (lambda (_%hd207970208020%_ + _%clause207976208023%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207811207861%_)) - (let ((_%e207814207867%_ + (gx#stx-pair? _%hd207970208020%_)) + (let ((_%e207973208026%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207811207861%_)))) - (let ((_%lp-hd207815207871%_ + _%hd207970208020%_)))) + (let ((_%lp-hd207974208030%_ (let () (declare (not safe)) - (##car _%e207814207867%_))) - (_%lp-tl207816207874%_ + (##car _%e207973208026%_))) + (_%lp-tl207975208033%_ (let () (declare (not safe)) - (##cdr _%e207814207867%_)))) - (_%loop207813207857%_ - _%lp-tl207816207874%_ - (cons _%lp-hd207815207871%_ - _%clause207817207864%_)))) - (let ((_%clause207818207877%_ - (reverse _%clause207817207864%_))) + (##cdr _%e207973208026%_)))) + (_%loop207972208016%_ + _%lp-tl207975208033%_ + (cons _%lp-hd207974208030%_ + _%clause207976208023%_)))) + (let ((_%clause207977208036%_ + (reverse _%clause207976208023%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207809207848%_)) - ((lambda (_%L207881%_ - _%L207883%_) + _%tl207968208007%_)) + ((lambda (_%L208040%_ + _%L208042%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207883%_ + (cons _%L208042%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6306,43 +6306,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp209103 - (lambda (_%g207902207905%_ - _%g207903207908%_) - (cons _%g207902207905%_ - _%g207903207908%_)))) + (let ((__tmp209262 + (lambda (_%g208061208064%_ + _%g208062208067%_) + (cons _%g208061208064%_ + _%g208062208067%_)))) (declare (not safe)) (__foldr1 - __tmp209103 + __tmp209262 '() - _%L207881%_))) + _%L208040%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause207818207877%_ - _%hd207805207835%_) - (_%g207800207824%_ - _%g207801207828%_))))))) - (_%loop207813207857%_ _%target207810207851%_ '())) - (_%g207800207824%_ _%g207801207828%_))))) - (_%g207800207824%_ _%g207801207828%_)))) + _%clause207977208036%_ + _%hd207964207994%_) + (_%g207959207983%_ + _%g207960207987%_))))))) + (_%loop207972208016%_ _%target207969208010%_ '())) + (_%g207959207983%_ _%g207960207987%_))))) + (_%g207959207983%_ _%g207960207987%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207800207824%_ - _%g207801207828%_)))) - (_%g207800207824%_ _%g207801207828%_))))) - (_%g207799207911%_ - (list _%unchecked-proc207796%_ - _%unchecked-clauses207798%_))) + (_%g207959207983%_ + _%g207960207987%_)))) + (_%g207959207983%_ _%g207960207987%_))))) + (_%g207958208070%_ + (list _%unchecked-proc207955%_ + _%unchecked-clauses207957%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207251207262%_)))) - (_%g207249207915%_ + _%g207410207421%_)))) + (_%g207408208074%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207110%_ + (cons _%L207269%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6356,12 +6356,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L207231%_ - _%L207233%_)) - (let ((__tmp209104 - (lambda (_%g207918207922%_ - _%g207919207925%_ - _%g207920207927%_) + _%L207390%_ + _%L207392%_)) + (let ((__tmp209263 + (lambda (_%g208077208081%_ + _%g208078208084%_ + _%g208079208086%_) (cons (cons (let () (declare (not safe)) @@ -6372,55 +6372,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g207919207925%_ '())) + (cons _%g208078208084%_ '())) (cons '#f (cons 'signature: - (cons _%g207918207922%_ '()))))) - _%g207920207927%_)))) + (cons _%g208077208081%_ '()))))) + _%g208079208086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp209104 + __tmp209263 '() - _%L207231%_ - _%L207233%_)))) + _%L207390%_ + _%L207392%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig207157207225%_ - _%arity207158207228%_)))))) - (_%loop207151207183%_ _%target207148207177%_ '() '())) - (_%g207144207170%_ _%g207145207174%_))))) + _%sig207316207384%_ + _%arity207317207387%_)))))) + (_%loop207310207342%_ _%target207307207336%_ '() '())) + (_%g207303207329%_ _%g207304207333%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207144207170%_ - _%g207145207174%_))))) - (_%g207143207930%_ _%signatures207141%_)) - (_%g207027207051%_ _%g207028207055%_))) - _%case-signature207045207104%_ - _%hd207035207072%_)))))) + (_%g207303207329%_ + _%g207304207333%_))))) + (_%g207302208089%_ _%signatures207300%_)) + (_%g207186207210%_ _%g207187207214%_))) + _%case-signature207204207263%_ + _%hd207194207231%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207040207084%_ - _%target207037207078%_ + (_%loop207199207243%_ + _%target207196207237%_ '())) - (_%g207027207051%_ - _%g207028207055%_))))) - (_%g207027207051%_ _%g207028207055%_)))) - (_%g207027207051%_ _%g207028207055%_)))) - (_%g207027207051%_ _%g207028207055%_))))) - (_%g207026207934%_ _%stx207024%_)))) + (_%g207186207210%_ + _%g207187207214%_))))) + (_%g207186207210%_ _%g207187207214%_)))) + (_%g207186207210%_ _%g207187207214%_)))) + (_%g207186207210%_ _%g207187207214%_))))) + (_%g207185208093%_ _%stx207183%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx207942%_) - (let* ((_%__stx208924208925%_ _%$stx207942%_) - (_%g207948208008%_ + (lambda (_%$stx208101%_) + (let* ((_%__stx209083209084%_ _%$stx208101%_) + (_%g208107208167%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208924208925%_))))) - (let ((_%__kont208927208928%_ - (lambda (_%L208230%_ _%L208232%_) + _%__stx209083209084%_))))) + (let ((_%__kont209086209087%_ + (lambda (_%L208389%_ _%L208391%_) (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 _%L208232%_ '())) + (cons _%L208391%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6440,13 +6440,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208232%_ '())) + (cons _%L208391%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208230%_ '())) + (cons _%L208389%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6455,8 +6455,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont208929208930%_ - (lambda (_%L208155%_ _%L208157%_ _%L208158%_) + (_%__kont209088209089%_ + (lambda (_%L208314%_ _%L208316%_ _%L208317%_) (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 _%L208158%_ '())) + (cons _%L208317%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6476,23 +6476,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208158%_ '())) + (cons _%L208317%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208157%_ '())) + (cons _%L208316%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208155%_ '())) + (cons _%L208314%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont208931208932%_ - (lambda (_%L208069%_ _%L208071%_ _%L208072%_) + (_%__kont209090209091%_ + (lambda (_%L208228%_ _%L208230%_ _%L208231%_) (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 _%L208072%_ '())) + (cons _%L208231%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6512,360 +6512,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208072%_ '())) + (cons _%L208231%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208071%_ '())) + (cons _%L208230%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208069%_ '())) + (cons _%L208228%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208924208925%_)) - (let ((_%e207952208186%_ + (gx#stx-pair? _%__stx209083209084%_)) + (let ((_%e208111208345%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208924208925%_)))) - (let ((_%tl207954208193%_ + (gx#syntax-e _%__stx209083209084%_)))) + (let ((_%tl208113208352%_ (let () (declare (not safe)) - (##cdr _%e207952208186%_))) - (_%hd207953208190%_ + (##cdr _%e208111208345%_))) + (_%hd208112208349%_ (let () (declare (not safe)) - (##car _%e207952208186%_)))) + (##car _%e208111208345%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207954208193%_)) - (let ((_%e207955208196%_ + (gx#stx-pair? _%tl208113208352%_)) + (let ((_%e208114208355%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207954208193%_)))) - (let ((_%tl207957208203%_ + (gx#syntax-e _%tl208113208352%_)))) + (let ((_%tl208116208362%_ (let () (declare (not safe)) - (##cdr _%e207955208196%_))) - (_%hd207956208200%_ + (##cdr _%e208114208355%_))) + (_%hd208115208359%_ (let () (declare (not safe)) - (##car _%e207955208196%_)))) + (##car _%e208114208355%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207956208200%_)) - (let ((_%e207958208206%_ + (gx#stx-datum? _%hd208115208359%_)) + (let ((_%e208117208365%_ (let () (declare (not safe)) - (gx#stx-e _%hd207956208200%_)))) - (if (equal? _%e207958208206%_ 'system:) + (gx#stx-e _%hd208115208359%_)))) + (if (equal? _%e208117208365%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207957208203%_)) - (let ((_%e207959208210%_ + (gx#stx-pair? _%tl208116208362%_)) + (let ((_%e208118208369%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207957208203%_)))) - (let ((_%tl207961208217%_ + _%tl208116208362%_)))) + (let ((_%tl208120208376%_ (let () (declare (not safe)) - (##cdr _%e207959208210%_))) - (_%hd207960208214%_ + (##cdr _%e208118208369%_))) + (_%hd208119208373%_ (let () (declare (not safe)) - (##car _%e207959208210%_)))) + (##car _%e208118208369%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207961208217%_)) - (let ((_%e207962208220%_ + _%tl208120208376%_)) + (let ((_%e208121208379%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207961208217%_)))) - (let ((_%tl207964208227%_ + _%tl208120208376%_)))) + (let ((_%tl208123208386%_ (let () (declare (not safe)) - (##cdr _%e207962208220%_))) - (_%hd207963208224%_ + (##cdr _%e208121208379%_))) + (_%hd208122208383%_ (let () (declare (not safe)) - (##car _%e207962208220%_)))) + (##car _%e208121208379%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207964208227%_)) - (_%__kont208927208928%_ - _%hd207963208224%_ - _%hd207960208214%_) + _%tl208123208386%_)) + (_%__kont209086209087%_ + _%hd208122208383%_ + _%hd208119208373%_) (let () (declare (not safe)) - (_%g207948208008%_))))) + (_%g208107208167%_))))) (let () (declare (not safe)) - (_%g207948208008%_))))) + (_%g208107208167%_))))) (let () (declare (not safe)) - (_%g207948208008%_))) - (if (equal? _%e207958208206%_ 'struct:) + (_%g208107208167%_))) + (if (equal? _%e208117208365%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207957208203%_)) - (let ((_%e207975208125%_ + _%tl208116208362%_)) + (let ((_%e208134208284%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207957208203%_)))) - (let ((_%tl207977208132%_ + _%tl208116208362%_)))) + (let ((_%tl208136208291%_ (let () (declare (not safe)) - (##cdr _%e207975208125%_))) - (_%hd207976208129%_ + (##cdr _%e208134208284%_))) + (_%hd208135208288%_ (let () (declare (not safe)) - (##car _%e207975208125%_)))) + (##car _%e208134208284%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207977208132%_)) - (let ((_%e207978208135%_ + _%tl208136208291%_)) + (let ((_%e208137208294%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207977208132%_)))) - (let ((_%tl207980208142%_ - (let () (declare (not safe)) (##cdr _%e207978208135%_))) - (_%hd207979208139%_ + (gx#syntax-e _%tl208136208291%_)))) + (let ((_%tl208139208301%_ + (let () (declare (not safe)) (##cdr _%e208137208294%_))) + (_%hd208138208298%_ (let () (declare (not safe)) - (##car _%e207978208135%_)))) + (##car _%e208137208294%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207980208142%_)) - (let ((_%e207981208145%_ + (gx#stx-pair? _%tl208139208301%_)) + (let ((_%e208140208304%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207980208142%_)))) - (let ((_%tl207983208152%_ + (gx#syntax-e _%tl208139208301%_)))) + (let ((_%tl208142208311%_ (let () (declare (not safe)) - (##cdr _%e207981208145%_))) - (_%hd207982208149%_ + (##cdr _%e208140208304%_))) + (_%hd208141208308%_ (let () (declare (not safe)) - (##car _%e207981208145%_)))) + (##car _%e208140208304%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207983208152%_)) - (_%__kont208929208930%_ - _%hd207982208149%_ - _%hd207979208139%_ - _%hd207976208129%_) + (gx#stx-null? _%tl208142208311%_)) + (_%__kont209088209089%_ + _%hd208141208308%_ + _%hd208138208298%_ + _%hd208135208288%_) (let () (declare (not safe)) - (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) + (_%g208107208167%_))))) + (let () (declare (not safe)) (_%g208107208167%_))))) + (let () (declare (not safe)) (_%g208107208167%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g207948208008%_))) - (if (equal? _%e207958208206%_ + (_%g208107208167%_))) + (if (equal? _%e208117208365%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207957208203%_)) - (let ((_%e207994208039%_ + _%tl208116208362%_)) + (let ((_%e208153208198%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207957208203%_)))) - (let ((_%tl207996208046%_ + _%tl208116208362%_)))) + (let ((_%tl208155208205%_ (let () (declare (not safe)) - (##cdr _%e207994208039%_))) - (_%hd207995208043%_ + (##cdr _%e208153208198%_))) + (_%hd208154208202%_ (let () (declare (not safe)) - (##car _%e207994208039%_)))) + (##car _%e208153208198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207996208046%_)) - (let ((_%e207997208049%_ + _%tl208155208205%_)) + (let ((_%e208156208208%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207996208046%_)))) - (let ((_%tl207999208056%_ + (gx#syntax-e _%tl208155208205%_)))) + (let ((_%tl208158208215%_ (let () (declare (not safe)) - (##cdr _%e207997208049%_))) - (_%hd207998208053%_ + (##cdr _%e208156208208%_))) + (_%hd208157208212%_ (let () (declare (not safe)) - (##car _%e207997208049%_)))) + (##car _%e208156208208%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207999208056%_)) - (let ((_%e208000208059%_ + (gx#stx-pair? _%tl208158208215%_)) + (let ((_%e208159208218%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207999208056%_)))) - (let ((_%tl208002208066%_ + (gx#syntax-e _%tl208158208215%_)))) + (let ((_%tl208161208225%_ (let () (declare (not safe)) - (##cdr _%e208000208059%_))) - (_%hd208001208063%_ + (##cdr _%e208159208218%_))) + (_%hd208160208222%_ (let () (declare (not safe)) - (##car _%e208000208059%_)))) + (##car _%e208159208218%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208002208066%_)) - (_%__kont208931208932%_ - _%hd208001208063%_ - _%hd207998208053%_ - _%hd207995208043%_) + (gx#stx-null? _%tl208161208225%_)) + (_%__kont209090209091%_ + _%hd208160208222%_ + _%hd208157208212%_ + _%hd208154208202%_) (let () (declare (not safe)) - (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) + (_%g208107208167%_))))) + (let () (declare (not safe)) (_%g208107208167%_))))) + (let () (declare (not safe)) (_%g208107208167%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g207948208008%_))) + (_%g208107208167%_))) (let () (declare (not safe)) - (_%g207948208008%_)))))) + (_%g208107208167%_)))))) (let () (declare (not safe)) - (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))))) + (_%g208107208167%_))))) + (let () (declare (not safe)) (_%g208107208167%_))))) + (let () (declare (not safe)) (_%g208107208167%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx208254%_) - (let* ((_%g208258208278%_ - (lambda (_%g208259208274%_) + (lambda (_%$stx208413%_) + (let* ((_%g208417208437%_ + (lambda (_%g208418208433%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208259208274%_)))) - (_%g208257208349%_ - (lambda (_%g208259208282%_) + _%g208418208433%_)))) + (_%g208416208508%_ + (lambda (_%g208418208441%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208259208282%_)) - (let ((_%e208261208285%_ + (gx#stx-pair? _%g208418208441%_)) + (let ((_%e208420208444%_ (let () (declare (not safe)) - (gx#syntax-e _%g208259208282%_)))) - (let ((_%hd208262208289%_ + (gx#syntax-e _%g208418208441%_)))) + (let ((_%hd208421208448%_ (let () (declare (not safe)) - (##car _%e208261208285%_))) - (_%tl208263208292%_ + (##car _%e208420208444%_))) + (_%tl208422208451%_ (let () (declare (not safe)) - (##cdr _%e208261208285%_)))) + (##cdr _%e208420208444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl208263208292%_)) - (let ((_g209105_ + (gx#stx-pair/null? _%tl208422208451%_)) + (let ((_g209264_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl208263208292%_ + _%tl208422208451%_ '0)))) (begin - (let ((_g209106_ + (let ((_g209265_ (let () (declare (not safe)) - (if (##values? _g209105_) - (##vector-length _g209105_) + (if (##values? _g209264_) + (##vector-length _g209264_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209106_ 2))) + (##fx= _g209265_ 2))) (error "Context expects 2 values" - _g209106_))) - (let ((_%target208264208295%_ + _g209265_))) + (let ((_%target208423208454%_ (let () (declare (not safe)) - (##vector-ref _g209105_ 0))) - (_%tl208266208298%_ + (##vector-ref _g209264_ 0))) + (_%tl208425208457%_ (let () (declare (not safe)) - (##vector-ref _g209105_ 1)))) + (##vector-ref _g209264_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208266208298%_)) - (letrec ((_%loop208267208301%_ - (lambda (_%hd208265208305%_ - _%decl208271208308%_) + (gx#stx-null? _%tl208425208457%_)) + (letrec ((_%loop208426208460%_ + (lambda (_%hd208424208464%_ + _%decl208430208467%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd208265208305%_)) - (let ((_%e208268208311%_ + _%hd208424208464%_)) + (let ((_%e208427208470%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd208265208305%_)))) - (let ((_%lp-hd208269208315%_ + (gx#syntax-e _%hd208424208464%_)))) + (let ((_%lp-hd208428208474%_ (let () (declare (not safe)) - (##car _%e208268208311%_))) - (_%lp-tl208270208318%_ + (##car _%e208427208470%_))) + (_%lp-tl208429208477%_ (let () (declare (not safe)) - (##cdr _%e208268208311%_)))) - (_%loop208267208301%_ - _%lp-tl208270208318%_ - (cons _%lp-hd208269208315%_ _%decl208271208308%_)))) - (let ((_%decl208272208321%_ (reverse _%decl208271208308%_))) - ((lambda (_%L208325%_) + (##cdr _%e208427208470%_)))) + (_%loop208426208460%_ + _%lp-tl208429208477%_ + (cons _%lp-hd208428208474%_ _%decl208430208467%_)))) + (let ((_%decl208431208480%_ (reverse _%decl208430208467%_))) + ((lambda (_%L208484%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp209107 - (lambda (_%g208340208343%_ _%g208341208346%_) + (let ((__tmp209266 + (lambda (_%g208499208502%_ _%g208500208505%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g208340208343%_) - _%g208341208346%_)))) + _%g208499208502%_) + _%g208500208505%_)))) (declare (not safe)) - (__foldr1 __tmp209107 '() _%L208325%_)))) - _%decl208272208321%_)))))) + (__foldr1 __tmp209266 '() _%L208484%_)))) + _%decl208431208480%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop208267208301%_ - _%target208264208295%_ + (_%loop208426208460%_ + _%target208423208454%_ '())) - (_%g208258208278%_ - _%g208259208282%_))))) - (_%g208258208278%_ _%g208259208282%_)))) - (_%g208258208278%_ _%g208259208282%_))))) - (_%g208257208349%_ _%$stx208254%_)))))) + (_%g208417208437%_ + _%g208418208441%_))))) + (_%g208417208437%_ _%g208418208441%_)))) + (_%g208417208437%_ _%g208418208441%_))))) + (_%g208416208508%_ _%$stx208413%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index a4c8206a5..2ace92e7a 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-3 0 MOP-3) - (0 MOP-2 0 MOP-2) (0 MOP-5 0 MOP-5) - (0 MOP-4 0 MOP-4) (0 MOP-1 0 MOP-1) + (0 MOP-4 0 MOP-4) + (0 MOP-2 0 MOP-2) + (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 define-class 0 define-class) (0 define-struct 0 define-struct) - (0 @-set! 0 @-set!) - (0 defmethod 0 defmethod) (0 @ 0 @) - (0 defclass 0 defclass) + (0 define-class 0 define-class) (0 defstruct 0 defstruct) - (0 :readtable 0 :readtable) - (0 :number 0 :number) - (0 :directory-port 0 :directory-port) + (0 defclass 0 defclass) + (0 defmethod 0 defmethod) + (0 @-set! 0 @-set!) + (0 :symbolic 0 :symbolic) + (0 :byte-port 0 :byte-port) (0 :real 0 :real) - (0 :f64vector 0 :f64vector) - (0 :class 0 :class) - (0 :thread 0 :thread) - (0 :u64vector 0 :u64vector) - (0 :processor 0 :processor) - (0 :s64vector 0 :s64vector) + (0 :s32vector 0 :s32vector) + (0 :list 0 :list) + (0 :string 0 :string) + (0 :false 0 :false) + (0 :boolean 0 :boolean) + (0 :pair 0 :pair) (0 :ratnum 0 :ratnum) - (0 :port 0 :port) + (0 :mutex 0 :mutex) + (0 :special 0 :special) + (0 :flonum 0 :flonum) + (0 :procedure 0 :procedure) + (0 :continuation 0 :continuation) + (0 :s16vector 0 :s16vector) + (0 :vector 0 :vector) + (0 :number 0 :number) + (0 :true 0 :true) + (0 :integer 0 :integer) + (0 :table 0 :table) (0 :bignum 0 :bignum) - (0 :writeenv 0 :writeenv) (0 :event-queue-port 0 :event-queue-port) - (0 :time 0 :time) + (0 :raw-device-port 0 :raw-device-port) + (0 :thread 0 :thread) + (0 :foreign 0 :foreign) (0 :promise 0 :promise) - (0 :eof 0 :eof) - (0 :s16vector 0 :s16vector) - (0 :t 0 :t) - (0 :weak 0 :weak) + (0 :frame 0 :frame) + (0 :box 0 :box) + (0 :f64vector 0 :f64vector) + (0 :s8vector 0 :s8vector) + (0 :object 0 :object) + (0 class 0 class) + (0 :keyword 0 :keyword) + (0 :directory-port 0 :directory-port) + (0 :udp-port 0 :udp-port) (0 :hvector 0 :hvector) - (0 :fixnum 0 :fixnum) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :immediate 0 :immediate) - (0 :readenv 0 :readenv) (0 :tcp-server-port 0 :tcp-server-port) + (0 :string-port 0 :string-port) + (0 :u64vector 0 :u64vector) + (0 :character-port 0 :character-port) + (0 :values 0 :values) + (0 :fixnum 0 :fixnum) (0 :u8vector 0 :u8vector) + (0 :weak 0 :weak) + (0 :t 0 :t) + (0 :void 0 :void) + (0 :cpxnum 0 :cpxnum) + (0 :char 0 :char) + (0 :sequence 0 :sequence) (0 :device-port 0 :device-port) - (0 :frame 0 :frame) - (0 :boolean 0 :boolean) + (0 :time 0 :time) + (0 :address-info 0 :address-info) + (0 :socket-info 0 :socket-info) + (0 :writeenv 0 :writeenv) + (0 :file-info 0 :file-info) + (0 :readtable 0 :readtable) + (0 :port 0 :port) + (0 :s64vector 0 :s64vector) + (0 :thread-group 0 :thread-group) + (0 :symbol 0 :symbol) + (0 :u16vector 0 :u16vector) (0 :object-port 0 :object-port) - (0 :pair 0 :pair) - (0 :continuation 0 :continuation) - (0 :mutex 0 :mutex) + (0 :immediate 0 :immediate) (0 :vm 0 :vm) + (0 :processor 0 :processor) (0 :f32vector 0 :f32vector) - (0 :s8vector 0 :s8vector) - (0 :values 0 :values) - (0 :vector 0 :vector) - (0 :void 0 :void) - (0 :char 0 :char) - (0 :atom 0 :atom) - (0 :object 0 :object) - (0 :thread-group 0 :thread-group) - (0 :false 0 :false) - (0 :address-info 0 :address-info) - (0 :table 0 :table) - (0 :flonum 0 :flonum) - (0 :s32vector 0 :s32vector) - (0 :null 0 :null) - (0 :keyword 0 :keyword) - (0 :true 0 :true) - (0 :symbolic 0 :symbolic) - (0 :cpxnum 0 :cpxnum) - (0 :special 0 :special) - (0 :integer 0 :integer) - (0 :udp-port 0 :udp-port) - (0 :raw-device-port 0 :raw-device-port) + (0 :readenv 0 :readenv) (0 :u8vector-port 0 :u8vector-port) - (0 :byte-port 0 :byte-port) - (0 :condvar 0 :condvar) - (0 :procedure 0 :procedure) (0 :u32vector 0 :u32vector) - (0 class 0 class) - (0 :foreign 0 :foreign) - (0 :sequence 0 :sequence) - (0 :box 0 :box) - (0 :u16vector 0 :u16vector) - (0 :string 0 :string) - (0 :list 0 :list) - (0 :symbol 0 :symbol) - (0 :socket-info 0 :socket-info) - (0 :file-info 0 :file-info) - (0 :string-port 0 :string-port) - (0 :character-port 0 :character-port) (0 :vector-port 0 :vector-port) + (0 :eof 0 :eof) + (0 :class 0 :class) + (0 :atom 0 :atom) + (0 defsystem-class-info 0 defsystem-class-info) + (0 :condvar 0 :condvar) + (0 :null 0 :null) (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-system?-set! 1 &!class-type-system?-set!) - (1 !class-type-descriptor 1 !class-type-descriptor) (1 - &!class-type-constructor-method + &!class-type-ordered-slots-set! 1 - &!class-type-constructor-method) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 !class-type-super-set! 1 !class-type-super-set!) + &!class-type-ordered-slots-set!) + (1 &!class-type-accessors 1 &!class-type-accessors) (1 !class-type-final? 1 !class-type-final?) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (1 !class-type-struct? 1 !class-type-struct?) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 !class-type-name 1 !class-type-name) + (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 class-type-info::t 1 class-type-info::t) (1 - &!class-type-unchecked-mutators-set! + &!class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators-set!) + &!class-type-slot-contracts-set!) + (1 &!class-type-final? 1 &!class-type-final?) + (1 !class-type-predicate 1 !class-type-predicate) + (1 &!class-type-super-set! 1 &!class-type-super-set!) (1 - &!class-type-constructor-method-set! + !class-type-unchecked-mutators-set! 1 - &!class-type-constructor-method-set!) - (1 &!class-type-predicate 1 &!class-type-predicate) + !class-type-unchecked-mutators-set!) + (1 make-class-type-info 1 make-class-type-info) + (1 class-type-info? 1 class-type-info?) + (1 &!class-type-mutators 1 &!class-type-mutators) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) + (1 !class-type-id 1 !class-type-id) + (1 !class-type-slots 1 !class-type-slots) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 &!class-type-name-set! 1 &!class-type-name-set!) + (1 !class-type-accessors 1 !class-type-accessors) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (1 !class-type-system?-set! 1 !class-type-system?-set!) + (1 !class-type-name-set! 1 !class-type-name-set!) (1 - &!class-type-slot-defaults-set! + &!class-type-unchecked-mutators 1 - &!class-type-slot-defaults-set!) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + &!class-type-unchecked-mutators) (1 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 &!class-type-id-set! 1 &!class-type-id-set!) - (1 !class-type-slots 1 !class-type-slots) - (1 &!class-type-slot-types 1 &!class-type-slot-types) - (1 - !class-type-unchecked-mutators-set! - 1 - !class-type-unchecked-mutators-set!) - (1 &!class-type-slots 1 &!class-type-slots) - (1 &!class-type-struct? 1 &!class-type-struct?) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-system? 1 !class-type-system?) + (1 &!class-type-system? 1 &!class-type-system?) + (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (1 !class-type-descriptor 1 !class-type-descriptor) + (1 !class-type-super 1 !class-type-super) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 !class-type-struct? 1 !class-type-struct?) (1 !class-type-precedence-list-set! 1 !class-type-precedence-list-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) + (1 !class-type-slot-types 1 !class-type-slot-types) + (1 !class-type-struct?-set! 1 !class-type-struct?-set!) + (1 &!class-type-name 1 &!class-type-name) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (1 &!class-type-slot-types 1 &!class-type-slot-types) + (1 &!class-type-struct? 1 &!class-type-struct?) + (1 &!class-type-slots 1 &!class-type-slots) (1 - !class-type-slot-contracts-set! + !class-type-constructor-method-set! 1 - !class-type-slot-contracts-set!) - (1 &!class-type-metaclass 1 &!class-type-metaclass) + !class-type-constructor-method-set!) + (1 !class-type-slots-set! 1 !class-type-slots-set!) + (1 !class-type-constructor-set! 1 !class-type-constructor-set!) (1 - &!class-type-unchecked-accessors + &!class-type-constructor-method-set! 1 - &!class-type-unchecked-accessors) - (1 !class-type-id 1 !class-type-id) - (1 &!class-type-id 1 &!class-type-id) + &!class-type-constructor-method-set!) + (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (1 &!class-type-predicate 1 &!class-type-predicate) + (1 !class-type-constructor-method 1 !class-type-constructor-method) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) (1 - &!class-type-slot-contracts-set! + class-type-info::apply-macro-expander 1 - &!class-type-slot-contracts-set!) - (1 !class-type-accessors-set! 1 !class-type-accessors-set!) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + class-type-info::apply-macro-expander) (1 - &!class-type-unchecked-accessors-set! + &!class-type-slot-defaults-set! 1 - &!class-type-unchecked-accessors-set!) - (1 !class-type-predicate 1 !class-type-predicate) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (1 &!class-type-precedence-list 1 &!class-type-precedence-list) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-slot-types 1 !class-type-slot-types) - (1 &!class-type-final? 1 &!class-type-final?) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + &!class-type-slot-defaults-set!) + (1 &!class-type-descriptor 1 &!class-type-descriptor) + (1 !class-type-mutators 1 !class-type-mutators) (1 - &!class-type-unchecked-mutators + &!class-type-unchecked-mutators-set! 1 - &!class-type-unchecked-mutators) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (1 !class-type-super 1 !class-type-super) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-system? 1 &!class-type-system?) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (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-metaclass 1 !class-type-metaclass) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 !class-type-accessors 1 !class-type-accessors) - (1 !class-type-system? 1 !class-type-system?) - (1 !class-type-name 1 !class-type-name) - (1 &!class-type-name 1 &!class-type-name) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + &!class-type-unchecked-mutators-set!) + (1 !class-type-super-set! 1 !class-type-super-set!) + (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + (1 &!class-type-super 1 &!class-type-super) + (1 &!class-type-id 1 &!class-type-id) + (1 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 &!class-type-constructor 1 &!class-type-constructor) + (1 + !class-type-slot-contracts-set! + 1 + !class-type-slot-contracts-set!) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) (1 !class-type-unchecked-accessors 1 !class-type-unchecked-accessors) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 !class-type-ordered-slots 1 !class-type-ordered-slots) (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) - (1 class-type-info? 1 class-type-info?) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) + (1 !class-type-constructor 1 !class-type-constructor) (1 - !class-type-constructor-method-set! + &!class-type-unchecked-accessors-set! 1 - !class-type-constructor-method-set!) - (1 make-class-type-info 1 make-class-type-info) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 &!class-type-super-set! 1 &!class-type-super-set!) + &!class-type-unchecked-accessors-set!) + (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) (1 - &!class-type-ordered-slots-set! + &!class-type-unchecked-accessors 1 - &!class-type-ordered-slots-set!) + &!class-type-unchecked-accessors) + (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) (1 - !class-type-unchecked-accessors-set! + &!class-type-constructor-method 1 - !class-type-unchecked-accessors-set!) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 class-type-info::t 1 class-type-info::t) + &!class-type-constructor-method) + (1 &!class-type-precedence-list 1 &!class-type-precedence-list) (1 class-type-info 1 class-type-info) - (1 define-class 1 define-class) (1 define-struct 1 define-struct) - (1 @-set! 1 @-set!) - (1 defmethod 1 defmethod) (1 @ 1 @) - (1 defclass 1 defclass) + (1 define-class 1 define-class) (1 defstruct 1 defstruct) - (1 :readtable 1 :readtable) - (1 :number 1 :number) - (1 :directory-port 1 :directory-port) + (1 defclass 1 defclass) + (1 defmethod 1 defmethod) + (1 @-set! 1 @-set!) + (1 :symbolic 1 :symbolic) + (1 :byte-port 1 :byte-port) (1 :real 1 :real) - (1 :f64vector 1 :f64vector) - (1 :class 1 :class) - (1 :thread 1 :thread) - (1 :u64vector 1 :u64vector) - (1 :processor 1 :processor) - (1 :s64vector 1 :s64vector) + (1 :s32vector 1 :s32vector) + (1 :list 1 :list) + (1 :string 1 :string) + (1 :false 1 :false) + (1 :boolean 1 :boolean) + (1 :pair 1 :pair) (1 :ratnum 1 :ratnum) - (1 :port 1 :port) + (1 :mutex 1 :mutex) + (1 :special 1 :special) + (1 :flonum 1 :flonum) + (1 :procedure 1 :procedure) + (1 :continuation 1 :continuation) + (1 :s16vector 1 :s16vector) + (1 :vector 1 :vector) + (1 :number 1 :number) + (1 :true 1 :true) + (1 :integer 1 :integer) + (1 :table 1 :table) (1 :bignum 1 :bignum) - (1 :writeenv 1 :writeenv) (1 :event-queue-port 1 :event-queue-port) - (1 :time 1 :time) + (1 :raw-device-port 1 :raw-device-port) + (1 :thread 1 :thread) + (1 :foreign 1 :foreign) (1 :promise 1 :promise) - (1 :eof 1 :eof) - (1 :s16vector 1 :s16vector) - (1 :t 1 :t) - (1 :weak 1 :weak) + (1 :frame 1 :frame) + (1 :box 1 :box) + (1 :f64vector 1 :f64vector) + (1 :s8vector 1 :s8vector) + (1 :object 1 :object) + (1 class 1 class) + (1 :keyword 1 :keyword) + (1 :directory-port 1 :directory-port) + (1 :udp-port 1 :udp-port) (1 :hvector 1 :hvector) - (1 :fixnum 1 :fixnum) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :immediate 1 :immediate) - (1 :readenv 1 :readenv) (1 :tcp-server-port 1 :tcp-server-port) + (1 :string-port 1 :string-port) + (1 :u64vector 1 :u64vector) + (1 :character-port 1 :character-port) + (1 :values 1 :values) + (1 :fixnum 1 :fixnum) (1 :u8vector 1 :u8vector) + (1 :weak 1 :weak) + (1 :t 1 :t) + (1 :void 1 :void) + (1 :cpxnum 1 :cpxnum) + (1 :char 1 :char) + (1 :sequence 1 :sequence) (1 :device-port 1 :device-port) - (1 :frame 1 :frame) - (1 :boolean 1 :boolean) + (1 :time 1 :time) + (1 :address-info 1 :address-info) + (1 :socket-info 1 :socket-info) + (1 :writeenv 1 :writeenv) + (1 :file-info 1 :file-info) + (1 :readtable 1 :readtable) + (1 :port 1 :port) + (1 :s64vector 1 :s64vector) + (1 :thread-group 1 :thread-group) + (1 :symbol 1 :symbol) + (1 :u16vector 1 :u16vector) (1 :object-port 1 :object-port) - (1 :pair 1 :pair) - (1 :continuation 1 :continuation) - (1 :mutex 1 :mutex) + (1 :immediate 1 :immediate) (1 :vm 1 :vm) + (1 :processor 1 :processor) (1 :f32vector 1 :f32vector) - (1 :s8vector 1 :s8vector) - (1 :values 1 :values) - (1 :vector 1 :vector) - (1 :void 1 :void) - (1 :char 1 :char) - (1 :atom 1 :atom) - (1 :object 1 :object) - (1 :thread-group 1 :thread-group) - (1 :false 1 :false) - (1 :address-info 1 :address-info) - (1 :table 1 :table) - (1 :flonum 1 :flonum) - (1 :s32vector 1 :s32vector) - (1 :null 1 :null) - (1 :keyword 1 :keyword) - (1 :true 1 :true) - (1 :symbolic 1 :symbolic) - (1 :cpxnum 1 :cpxnum) - (1 :special 1 :special) - (1 :integer 1 :integer) - (1 :udp-port 1 :udp-port) - (1 :raw-device-port 1 :raw-device-port) + (1 :readenv 1 :readenv) (1 :u8vector-port 1 :u8vector-port) - (1 :byte-port 1 :byte-port) - (1 :condvar 1 :condvar) - (1 :procedure 1 :procedure) (1 :u32vector 1 :u32vector) - (1 class 1 class) - (1 :foreign 1 :foreign) - (1 :sequence 1 :sequence) - (1 :box 1 :box) - (1 :u16vector 1 :u16vector) - (1 :string 1 :string) - (1 :list 1 :list) - (1 :symbol 1 :symbol) - (1 :socket-info 1 :socket-info) - (1 :file-info 1 :file-info) - (1 :string-port 1 :string-port) - (1 :character-port 1 :character-port) - (1 :vector-port 1 :vector-port)) + (1 :vector-port 1 :vector-port) + (1 :eof 1 :eof) + (1 :class 1 :class) + (1 :atom 1 :atom) + (1 defsystem-class-info 1 defsystem-class-info) + (1 :condvar 1 :condvar) + (1 :null 1 :null)) :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-3 0 MOP-3) - (1 MOP-2 0 MOP-2) (1 MOP-5 0 MOP-5) - (1 MOP-4 0 MOP-4) (1 MOP-1 0 MOP-1) + (1 MOP-4 0 MOP-4) + (1 MOP-2 0 MOP-2) + (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 define-class 0 define-class) (1 define-struct 0 define-struct) - (1 @-set! 0 @-set!) - (1 defmethod 0 defmethod) (1 @ 0 @) - (1 defclass 0 defclass) + (1 define-class 0 define-class) (1 defstruct 0 defstruct) - (1 :readtable 0 :readtable) - (1 :number 0 :number) - (1 :directory-port 0 :directory-port) + (1 defclass 0 defclass) + (1 defmethod 0 defmethod) + (1 @-set! 0 @-set!) + (1 :symbolic 0 :symbolic) + (1 :byte-port 0 :byte-port) (1 :real 0 :real) - (1 :f64vector 0 :f64vector) - (1 :class 0 :class) - (1 :thread 0 :thread) - (1 :u64vector 0 :u64vector) - (1 :processor 0 :processor) - (1 :s64vector 0 :s64vector) + (1 :s32vector 0 :s32vector) + (1 :list 0 :list) + (1 :string 0 :string) + (1 :false 0 :false) + (1 :boolean 0 :boolean) + (1 :pair 0 :pair) (1 :ratnum 0 :ratnum) - (1 :port 0 :port) - (1 :bignum 0 :bignum) - (1 :writeenv 0 :writeenv) - (1 :event-queue-port 0 :event-queue-port) - (1 :time 0 :time) - (1 :promise 0 :promise) - (1 :eof 0 :eof) - (1 :s16vector 0 :s16vector) - (1 :t 0 :t) - (1 :weak 0 :weak) - (1 :hvector 0 :hvector) - (1 :fixnum 0 :fixnum) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :immediate 0 :immediate) - (1 :readenv 0 :readenv) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :u8vector 0 :u8vector) - (1 :device-port 0 :device-port) - (1 :frame 0 :frame) - (1 :boolean 0 :boolean) - (1 :object-port 0 :object-port) - (1 :pair 0 :pair) - (1 :continuation 0 :continuation) (1 :mutex 0 :mutex) - (1 :vm 0 :vm) - (1 :f32vector 0 :f32vector) - (1 :s8vector 0 :s8vector) - (1 :values 0 :values) - (1 :vector 0 :vector) - (1 :void 0 :void) - (1 :char 0 :char) - (1 :atom 0 :atom) - (1 :object 0 :object) - (1 :thread-group 0 :thread-group) - (1 :false 0 :false) - (1 :address-info 0 :address-info) - (1 :table 0 :table) + (1 :special 0 :special) (1 :flonum 0 :flonum) - (1 :s32vector 0 :s32vector) - (1 :null 0 :null) - (1 :keyword 0 :keyword) + (1 :procedure 0 :procedure) + (1 :continuation 0 :continuation) + (1 :s16vector 0 :s16vector) + (1 :vector 0 :vector) + (1 :number 0 :number) (1 :true 0 :true) - (1 :symbolic 0 :symbolic) - (1 :cpxnum 0 :cpxnum) - (1 :special 0 :special) (1 :integer 0 :integer) - (1 :udp-port 0 :udp-port) + (1 :table 0 :table) + (1 :bignum 0 :bignum) + (1 :event-queue-port 0 :event-queue-port) (1 :raw-device-port 0 :raw-device-port) - (1 :u8vector-port 0 :u8vector-port) - (1 :byte-port 0 :byte-port) - (1 :condvar 0 :condvar) - (1 :procedure 0 :procedure) - (1 :u32vector 0 :u32vector) - (1 class 0 class) + (1 :thread 0 :thread) (1 :foreign 0 :foreign) - (1 :sequence 0 :sequence) + (1 :promise 0 :promise) + (1 :frame 0 :frame) (1 :box 0 :box) - (1 :u16vector 0 :u16vector) - (1 :string 0 :string) - (1 :list 0 :list) - (1 :symbol 0 :symbol) - (1 :socket-info 0 :socket-info) - (1 :file-info 0 :file-info) + (1 :f64vector 0 :f64vector) + (1 :s8vector 0 :s8vector) + (1 :object 0 :object) + (1 class 0 class) + (1 :keyword 0 :keyword) + (1 :directory-port 0 :directory-port) + (1 :udp-port 0 :udp-port) + (1 :hvector 0 :hvector) + (1 :tcp-server-port 0 :tcp-server-port) (1 :string-port 0 :string-port) + (1 :u64vector 0 :u64vector) (1 :character-port 0 :character-port) + (1 :values 0 :values) + (1 :fixnum 0 :fixnum) + (1 :u8vector 0 :u8vector) + (1 :weak 0 :weak) + (1 :t 0 :t) + (1 :void 0 :void) + (1 :cpxnum 0 :cpxnum) + (1 :char 0 :char) + (1 :sequence 0 :sequence) + (1 :device-port 0 :device-port) + (1 :time 0 :time) + (1 :address-info 0 :address-info) + (1 :socket-info 0 :socket-info) + (1 :writeenv 0 :writeenv) + (1 :file-info 0 :file-info) + (1 :readtable 0 :readtable) + (1 :port 0 :port) + (1 :s64vector 0 :s64vector) + (1 :thread-group 0 :thread-group) + (1 :symbol 0 :symbol) + (1 :u16vector 0 :u16vector) + (1 :object-port 0 :object-port) + (1 :immediate 0 :immediate) + (1 :vm 0 :vm) + (1 :processor 0 :processor) + (1 :f32vector 0 :f32vector) + (1 :readenv 0 :readenv) + (1 :u8vector-port 0 :u8vector-port) + (1 :u32vector 0 :u32vector) (1 :vector-port 0 :vector-port) + (1 :eof 0 :eof) + (1 :class 0 :class) + (1 :atom 0 :atom) + (1 defsystem-class-info 0 defsystem-class-info) + (1 :condvar 0 :condvar) + (1 :null 0 :null) (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-system?-set! 1 &!class-type-system?-set!) - (2 !class-type-descriptor 1 !class-type-descriptor) (2 - &!class-type-constructor-method + &!class-type-ordered-slots-set! 1 - &!class-type-constructor-method) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 !class-type-super-set! 1 !class-type-super-set!) + &!class-type-ordered-slots-set!) + (2 &!class-type-accessors 1 &!class-type-accessors) (2 !class-type-final? 1 !class-type-final?) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (2 !class-type-struct? 1 !class-type-struct?) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 !class-type-name 1 !class-type-name) + (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 class-type-info::t 1 class-type-info::t) (2 - &!class-type-unchecked-mutators-set! + &!class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators-set!) + &!class-type-slot-contracts-set!) + (2 &!class-type-final? 1 &!class-type-final?) + (2 !class-type-predicate 1 !class-type-predicate) + (2 &!class-type-super-set! 1 &!class-type-super-set!) (2 - &!class-type-constructor-method-set! + !class-type-unchecked-mutators-set! 1 - &!class-type-constructor-method-set!) - (2 &!class-type-predicate 1 &!class-type-predicate) + !class-type-unchecked-mutators-set!) + (2 make-class-type-info 1 make-class-type-info) + (2 class-type-info? 1 class-type-info?) + (2 &!class-type-mutators 1 &!class-type-mutators) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) + (2 !class-type-id 1 !class-type-id) + (2 !class-type-slots 1 !class-type-slots) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 !class-type-precedence-list 1 !class-type-precedence-list) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 !class-type-final?-set! 1 !class-type-final?-set!) + (2 &!class-type-name-set! 1 &!class-type-name-set!) + (2 !class-type-accessors 1 !class-type-accessors) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (2 !class-type-system?-set! 1 !class-type-system?-set!) + (2 !class-type-name-set! 1 !class-type-name-set!) (2 - &!class-type-slot-defaults-set! + &!class-type-unchecked-mutators 1 - &!class-type-slot-defaults-set!) - (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + &!class-type-unchecked-mutators) (2 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (2 &!class-type-name-set! 1 &!class-type-name-set!) - (2 &!class-type-id-set! 1 &!class-type-id-set!) - (2 !class-type-slots 1 !class-type-slots) - (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 !class-type-system? 1 !class-type-system?) + (2 &!class-type-system? 1 &!class-type-system?) + (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (2 !class-type-descriptor 1 !class-type-descriptor) + (2 !class-type-super 1 !class-type-super) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + (2 !class-type-struct? 1 !class-type-struct?) (2 - !class-type-unchecked-mutators-set! + !class-type-precedence-list-set! 1 - !class-type-unchecked-mutators-set!) - (2 &!class-type-slots 1 &!class-type-slots) - (2 &!class-type-struct? 1 &!class-type-struct?) + !class-type-precedence-list-set!) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (2 &!class-type-mutators 1 &!class-type-mutators) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-slot-types 1 !class-type-slot-types) + (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 &!class-type-name 1 &!class-type-name) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 &!class-type-struct? 1 &!class-type-struct?) + (2 &!class-type-slots 1 &!class-type-slots) (2 - !class-type-precedence-list-set! + !class-type-constructor-method-set! 1 - !class-type-precedence-list-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-mutators 1 !class-type-mutators) + !class-type-constructor-method-set!) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) + (2 + &!class-type-constructor-method-set! + 1 + &!class-type-constructor-method-set!) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (2 &!class-type-predicate 1 &!class-type-predicate) (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 !class-type-precedence-list 1 !class-type-precedence-list) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) (2 - !class-type-slot-contracts-set! + class-type-info::apply-macro-expander 1 - !class-type-slot-contracts-set!) - (2 &!class-type-metaclass 1 &!class-type-metaclass) + class-type-info::apply-macro-expander) (2 - &!class-type-unchecked-accessors + &!class-type-slot-defaults-set! 1 - &!class-type-unchecked-accessors) - (2 !class-type-id 1 !class-type-id) - (2 &!class-type-id 1 &!class-type-id) + &!class-type-slot-defaults-set!) + (2 &!class-type-descriptor 1 &!class-type-descriptor) + (2 !class-type-mutators 1 !class-type-mutators) (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-super-set! 1 !class-type-super-set!) (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 &!class-type-super 1 &!class-type-super) + (2 &!class-type-id 1 &!class-type-id) + (2 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (2 &!class-type-constructor 1 &!class-type-constructor) (2 - &!class-type-unchecked-accessors-set! + !class-type-slot-contracts-set! 1 - &!class-type-unchecked-accessors-set!) - (2 !class-type-predicate 1 !class-type-predicate) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 !class-type-constructor 1 !class-type-constructor) - (2 !class-type-slot-types 1 !class-type-slot-types) - (2 &!class-type-final? 1 &!class-type-final?) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + !class-type-slot-contracts-set!) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) (2 - &!class-type-unchecked-mutators + !class-type-unchecked-accessors 1 - &!class-type-unchecked-mutators) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (2 !class-type-super 1 !class-type-super) - (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (2 &!class-type-system? 1 &!class-type-system?) + !class-type-unchecked-accessors) (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (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-metaclass 1 !class-type-metaclass) - (2 !class-type-name-set! 1 !class-type-name-set!) - (2 !class-type-accessors 1 !class-type-accessors) - (2 !class-type-system? 1 !class-type-system?) - (2 !class-type-name 1 !class-type-name) - (2 &!class-type-name 1 &!class-type-name) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 - !class-type-unchecked-accessors - 1 - !class-type-unchecked-accessors) + (2 !class-type-slot-defaults 1 !class-type-slot-defaults) + (2 !class-type-ordered-slots 1 !class-type-ordered-slots) (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 class-type-info? 1 class-type-info?) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (2 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) + (2 !class-type-constructor 1 !class-type-constructor) (2 - !class-type-constructor-method-set! + &!class-type-unchecked-accessors-set! 1 - !class-type-constructor-method-set!) - (2 make-class-type-info 1 make-class-type-info) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 &!class-type-constructor 1 &!class-type-constructor) - (2 &!class-type-super-set! 1 &!class-type-super-set!) + &!class-type-unchecked-accessors-set!) + (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) (2 - &!class-type-ordered-slots-set! + &!class-type-unchecked-accessors 1 - &!class-type-ordered-slots-set!) + &!class-type-unchecked-accessors) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) (2 - !class-type-unchecked-accessors-set! + &!class-type-constructor-method 1 - !class-type-unchecked-accessors-set!) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 class-type-info::t 1 class-type-info::t) + &!class-type-constructor-method) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) (2 class-type-info 1 class-type-info) - (2 define-class 1 define-class) (2 define-struct 1 define-struct) - (2 @-set! 1 @-set!) - (2 defmethod 1 defmethod) (2 @ 1 @) - (2 defclass 1 defclass) + (2 define-class 1 define-class) (2 defstruct 1 defstruct) - (2 :readtable 1 :readtable) - (2 :number 1 :number) - (2 :directory-port 1 :directory-port) + (2 defclass 1 defclass) + (2 defmethod 1 defmethod) + (2 @-set! 1 @-set!) + (2 :symbolic 1 :symbolic) + (2 :byte-port 1 :byte-port) (2 :real 1 :real) - (2 :f64vector 1 :f64vector) - (2 :class 1 :class) - (2 :thread 1 :thread) - (2 :u64vector 1 :u64vector) - (2 :processor 1 :processor) - (2 :s64vector 1 :s64vector) + (2 :s32vector 1 :s32vector) + (2 :list 1 :list) + (2 :string 1 :string) + (2 :false 1 :false) + (2 :boolean 1 :boolean) + (2 :pair 1 :pair) (2 :ratnum 1 :ratnum) - (2 :port 1 :port) + (2 :mutex 1 :mutex) + (2 :special 1 :special) + (2 :flonum 1 :flonum) + (2 :procedure 1 :procedure) + (2 :continuation 1 :continuation) + (2 :s16vector 1 :s16vector) + (2 :vector 1 :vector) + (2 :number 1 :number) + (2 :true 1 :true) + (2 :integer 1 :integer) + (2 :table 1 :table) (2 :bignum 1 :bignum) - (2 :writeenv 1 :writeenv) (2 :event-queue-port 1 :event-queue-port) - (2 :time 1 :time) + (2 :raw-device-port 1 :raw-device-port) + (2 :thread 1 :thread) + (2 :foreign 1 :foreign) (2 :promise 1 :promise) - (2 :eof 1 :eof) - (2 :s16vector 1 :s16vector) - (2 :t 1 :t) - (2 :weak 1 :weak) + (2 :frame 1 :frame) + (2 :box 1 :box) + (2 :f64vector 1 :f64vector) + (2 :s8vector 1 :s8vector) + (2 :object 1 :object) + (2 class 1 class) + (2 :keyword 1 :keyword) + (2 :directory-port 1 :directory-port) + (2 :udp-port 1 :udp-port) (2 :hvector 1 :hvector) - (2 :fixnum 1 :fixnum) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :immediate 1 :immediate) - (2 :readenv 1 :readenv) (2 :tcp-server-port 1 :tcp-server-port) + (2 :string-port 1 :string-port) + (2 :u64vector 1 :u64vector) + (2 :character-port 1 :character-port) + (2 :values 1 :values) + (2 :fixnum 1 :fixnum) (2 :u8vector 1 :u8vector) + (2 :weak 1 :weak) + (2 :t 1 :t) + (2 :void 1 :void) + (2 :cpxnum 1 :cpxnum) + (2 :char 1 :char) + (2 :sequence 1 :sequence) (2 :device-port 1 :device-port) - (2 :frame 1 :frame) - (2 :boolean 1 :boolean) + (2 :time 1 :time) + (2 :address-info 1 :address-info) + (2 :socket-info 1 :socket-info) + (2 :writeenv 1 :writeenv) + (2 :file-info 1 :file-info) + (2 :readtable 1 :readtable) + (2 :port 1 :port) + (2 :s64vector 1 :s64vector) + (2 :thread-group 1 :thread-group) + (2 :symbol 1 :symbol) + (2 :u16vector 1 :u16vector) (2 :object-port 1 :object-port) - (2 :pair 1 :pair) - (2 :continuation 1 :continuation) - (2 :mutex 1 :mutex) + (2 :immediate 1 :immediate) (2 :vm 1 :vm) + (2 :processor 1 :processor) (2 :f32vector 1 :f32vector) - (2 :s8vector 1 :s8vector) - (2 :values 1 :values) - (2 :vector 1 :vector) - (2 :void 1 :void) - (2 :char 1 :char) - (2 :atom 1 :atom) - (2 :object 1 :object) - (2 :thread-group 1 :thread-group) - (2 :false 1 :false) - (2 :address-info 1 :address-info) - (2 :table 1 :table) - (2 :flonum 1 :flonum) - (2 :s32vector 1 :s32vector) - (2 :null 1 :null) - (2 :keyword 1 :keyword) - (2 :true 1 :true) - (2 :symbolic 1 :symbolic) - (2 :cpxnum 1 :cpxnum) - (2 :special 1 :special) - (2 :integer 1 :integer) - (2 :udp-port 1 :udp-port) - (2 :raw-device-port 1 :raw-device-port) + (2 :readenv 1 :readenv) (2 :u8vector-port 1 :u8vector-port) - (2 :byte-port 1 :byte-port) - (2 :condvar 1 :condvar) - (2 :procedure 1 :procedure) (2 :u32vector 1 :u32vector) - (2 class 1 class) - (2 :foreign 1 :foreign) - (2 :sequence 1 :sequence) - (2 :box 1 :box) - (2 :u16vector 1 :u16vector) - (2 :string 1 :string) - (2 :list 1 :list) - (2 :symbol 1 :symbol) - (2 :socket-info 1 :socket-info) - (2 :file-info 1 :file-info) - (2 :string-port 1 :string-port) - (2 :character-port 1 :character-port) - (2 :vector-port 1 :vector-port)) + (2 :vector-port 1 :vector-port) + (2 :eof 1 :eof) + (2 :class 1 :class) + (2 :atom 1 :atom) + (2 defsystem-class-info 1 defsystem-class-info) + (2 :condvar 1 :condvar) + (2 :null 1 :null)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -669,302 +669,306 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) + (spec: 1 &type-env-var-set! &type-env-var-set!) (spec: 1 type-env-type-set! type-env-type-set!) - (spec: 1 &type-env-type-set! &type-env-type-set!) + (spec: 1 &type-env-checked?-set! &type-env-checked?-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? type-env?) - (spec: 1 type-env-checked?-set! type-env-checked?-set!) (spec: 1 &type-env-type &type-env-type) - (spec: 1 &type-env-super-set! &type-env-super-set!) - (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 make-type-env make-type-env) (spec: 1 type-env-super type-env-super) - (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 type-env-lookup type-env-lookup) - (spec: 1 &type-env-super &type-env-super) - (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 1 type-env-type type-env-type) + (spec: 1 &type-env-super-set! &type-env-super-set!) (spec: 1 type-env-var type-env-var) (spec: 1 type-env-super-set! type-env-super-set!) + (spec: 1 make-type-env make-type-env) + (spec: 1 type-env-lookup type-env-lookup) + (spec: 1 type-env-var-set! type-env-var-set!) + (spec: 1 type-env? type-env?) + (spec: 1 &type-env-type-set! &type-env-type-set!) + (spec: 1 type-env-checked?-set! type-env-checked?-set!) (spec: 1 &type-env-checked? &type-env-checked?) (spec: 1 type-env type-env) + (spec: 1 &type-env-super &type-env-super) (spec: 1 type-env-checked? type-env-checked?) (spec: 1 &type-env-var &type-env-var) + (spec: 1 type-env::t type-env::t) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) - (spec: 1 interface-info::t interface-info::t) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 1 interface-info-interface-mixin-set! interface-info-interface-mixin-set!) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 1 interface-info-instance-type interface-info-instance-type) + interface-info-instance-type-set! + interface-info-instance-type-set!) + (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) + (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: 1 make-interface-info make-interface-info) + (spec: 1 interface-info? interface-info?) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) - (spec: 1 interface-info? interface-info?) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) - (spec: 1 &interface-info-name &interface-info-name) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 1 interface-info-instance-type interface-info-instance-type) + (spec: 1 interface-info::t interface-info::t) + (spec: + 1 + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 1 &interface-info-interface-methods &interface-info-interface-methods) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) + (spec: 1 interface-info-name interface-info-name) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) - (spec: 1 interface-info-name-set! interface-info-name-set!) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 1 &interface-info-instance-predicate-set! &interface-info-instance-predicate-set!) - (spec: 1 interface-info-name interface-info-name) + (spec: + 1 + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: + 1 + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 &interface-info-implementation-methods-set! &interface-info-implementation-methods-set!) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 1 interface-info interface-info) - (spec: - 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) (spec: 1 &interface-info-instance-try-constructor &interface-info-instance-try-constructor) - (spec: 1 make-interface-info make-interface-info) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 interface-info-implementation-methods interface-info-implementation-methods) - (spec: - 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) - (spec: - 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 is-signature? is-signature?) - (spec: 0 defstruct/c defstruct/c) - (spec: 0 do-while/c do-while/c) - (spec: 0 @method @method) - (spec: 0 defmethod/c defmethod/c) - (spec: 0 defclass/c defclass/c) - (spec: 0 def*/c def*/c) - (spec: 0 with-procedure-signature with-procedure-signature) (spec: 0 case-lambda/c case-lambda/c) - (spec: 0 do/c do/c) - (spec: 0 do-loop-step do-loop-step) - (spec: 0 def/c def/c) - (spec: 0 defmutable defmutable) - (spec: 0 do-loop-result do-loop-result) - (spec: 0 lambda/c lambda/c) - (spec: 0 with-procedure-contract with-procedure-contract) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) + (spec: 0 with-procedure-contract with-procedure-contract) + (spec: 0 defclass/c defclass/c) + (spec: 0 do-loop-step do-loop-step) + (spec: 0 defmethod/c defmethod/c) + (spec: 0 do-loop-result do-loop-result) + (spec: 0 do-while/c do-while/c) + (spec: 0 @method @method) + (spec: 0 defstruct/c defstruct/c) + (spec: 0 lambda/c lambda/c) (spec: 0 with-receiver with-receiver) - (spec: 0 defmutable* defmutable*) + (spec: 0 def/c def/c) (spec: 0 let/c let/c) - (spec: - 1 - compatible-signature-type-contract? - compatible-signature-type-contract?) + (spec: 0 defmutable* defmutable*) + (spec: 0 def*/c def*/c) + (spec: 0 with-procedure-signature with-procedure-signature) + (spec: 0 do/c do/c) + (spec: 0 defmutable defmutable) + (spec: 1 signature-contract? signature-contract?) (spec: 1 signature-arguments-out signature-arguments-out) - (spec: 1 check-signature-spec! check-signature-spec!) (spec: 1 make-interface-method-contract make-interface-method-contract) - (spec: 1 signature-contract? signature-contract?) - (spec: 1 compatible-type-contract? compatible-type-contract?) - (spec: 1 signature-has-keywords? signature-has-keywords?) - (spec: 1 signature-type-contract signature-type-contract) - (spec: 1 signature-arity signature-arity) + (spec: 1 symboltype-descriptor resolve-type->type-descriptor) (spec: 1 type-reference type-reference) - (spec: 1 type-reference-identifier type-reference-identifier) + (spec: 1 type-reference::t type-reference::t) + (spec: 1 type-reference? type-reference?) + (spec: 1 resolve-type->identifier resolve-type->identifier) (spec: 1 type-reference-identifier-set! @@ -973,64 +977,60 @@ namespace: gerbil/core 1 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 1 resolve-type resolve-type) - (spec: 1 type-reference? type-reference?) - (spec: 1 type-reference::t type-reference::t) (spec: 1 &type-reference-identifier &type-reference-identifier) - (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 1 resolve-type resolve-type) + (spec: 1 type-reference-identifier type-reference-identifier) (spec: 1 make-type-reference make-type-reference) - (spec: 1 type-identifier? type-identifier?) - (spec: 1 resolve-type->identifier resolve-type->identifier) (spec: 0 deftype deftype) + (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 ContractRules ContractRules) - (spec: 0 ClassMeta ClassMeta) - (spec: 0 TypeCast TypeCast) + (spec: 0 TypedDefinitions TypedDefinitions) (spec: 0 Interface Interface) + (spec: 0 ClassMeta ClassMeta) (spec: 0 TypeReference TypeReference) (spec: 0 TypeEnv TypeEnv) - (spec: 0 TypedDefinitions TypedDefinitions) + (spec: 0 TypeCast TypeCast) (spec: 0 Using Using) - (spec: 0 InterfaceInfo InterfaceInfo) - (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 for-template for-template) - (spec: 0 rename-in rename-in) - (spec: 0 group-in group-in) - (spec: 0 prefix-out prefix-out) - (spec: 0 defsyntax-for-export defsyntax-for-export) (spec: 0 except-out except-out) + (spec: 0 except-in except-in) + (spec: 0 group-in group-in) + (spec: 0 rename-in rename-in) + (spec: 0 rename-out rename-out) + (spec: 0 require require) + (spec: 0 prefix-out prefix-out) + (spec: 0 only-in only-in) + (spec: 0 for-syntax for-syntax) (spec: 0 struct-out struct-out) (spec: 0 prefix-in prefix-in) - (spec: 0 require require) + (spec: 0 for-template for-template) + (spec: 0 defsyntax-for-import defsyntax-for-import) (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) - (spec: 0 except-in except-in) - (spec: 0 for-syntax for-syntax) - (spec: 0 only-in only-in) - (spec: 0 rename-out rename-out) - (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 1 setf-macro::t setf-macro::t) + (spec: 0 defsyntax-for-export defsyntax-for-export) (spec: 1 setf-macro setf-macro) - (spec: 1 setq-macro::t setq-macro::t) (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 1 &setq-macro-macro &setq-macro-macro) - (spec: 1 setq-macro-macro setq-macro-macro) - (spec: 1 make-setf-macro make-setf-macro) + (spec: 1 setf-macro::t setf-macro::t) + (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 1 make-setq-macro make-setq-macro) (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 1 setq-macro? setq-macro?) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 make-setf-macro make-setf-macro) + (spec: 1 setq-macro-macro setq-macro-macro) + (spec: 1 expand-set! expand-set!) (spec: 1 &setf-macro-macro &setf-macro-macro) - (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 setf-macro-macro-set! setf-macro-macro-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 setq-macro::t setq-macro::t) + (spec: 1 setf-macro? setf-macro?) (spec: 1 setq-macro setq-macro) - (spec: 1 expand-set! expand-set!) - (spec: 1 setf-macro-macro setf-macro-macro) - (spec: 0 @bytes @bytes) - (spec: 0 let/cc let/cc) (spec: 0 unwind-protect unwind-protect) - (spec: 0 parameterize parameterize) (spec: 0 eval-when-compile eval-when-compile) + (spec: 0 parameterize parameterize) + (spec: 0 let/cc let/cc) (spec: 0 values-set! values-set!) + (spec: 0 @bytes @bytes) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) (spec: 1 match-macro? match-macro?) @@ -1038,2298 +1038,2299 @@ namespace: gerbil/core (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) (spec: 0 match* match*) - (spec: 0 defrules-for-match defrules-for-match) + (spec: 0 match match) + (spec: 0 with with) + (spec: 0 defsyntax-for-match defsyntax-for-match) (spec: 0 with* with*) + (spec: 0 defrules-for-match defrules-for-match) (spec: 0 ? ?) - (spec: 0 defsyntax-for-match defsyntax-for-match) - (spec: 0 with with) - (spec: 0 match match) + (spec: 0 :null :null) + (spec: 0 :condvar :condvar) + (spec: 0 defsystem-class-info defsystem-class-info) + (spec: 0 :atom :atom) + (spec: 0 :class :class) + (spec: 0 :eof :eof) (spec: 0 :vector-port :vector-port) - (spec: 0 :character-port :character-port) - (spec: 0 :string-port :string-port) - (spec: 0 :file-info :file-info) - (spec: 0 :socket-info :socket-info) - (spec: 0 :symbol :symbol) - (spec: 0 :list :list) - (spec: 0 :string :string) - (spec: 0 :u16vector :u16vector) - (spec: 0 :box :box) - (spec: 0 :sequence :sequence) - (spec: 0 :foreign :foreign) - (spec: 0 class class) (spec: 0 :u32vector :u32vector) - (spec: 0 :procedure :procedure) - (spec: 0 :condvar :condvar) - (spec: 0 :byte-port :byte-port) (spec: 0 :u8vector-port :u8vector-port) - (spec: 0 :raw-device-port :raw-device-port) - (spec: 0 :udp-port :udp-port) - (spec: 0 :integer :integer) - (spec: 0 :special :special) - (spec: 0 :cpxnum :cpxnum) - (spec: 0 :symbolic :symbolic) - (spec: 0 :true :true) - (spec: 0 :keyword :keyword) - (spec: 0 :null :null) - (spec: 0 :s32vector :s32vector) - (spec: 0 :flonum :flonum) - (spec: 0 :table :table) - (spec: 0 :address-info :address-info) - (spec: 0 :false :false) - (spec: 0 :thread-group :thread-group) - (spec: 0 :object :object) - (spec: 0 :atom :atom) - (spec: 0 :char :char) - (spec: 0 :void :void) - (spec: 0 :vector :vector) - (spec: 0 :values :values) - (spec: 0 :s8vector :s8vector) + (spec: 0 :readenv :readenv) (spec: 0 :f32vector :f32vector) + (spec: 0 :processor :processor) (spec: 0 :vm :vm) - (spec: 0 :mutex :mutex) - (spec: 0 :continuation :continuation) - (spec: 0 :pair :pair) + (spec: 0 :immediate :immediate) (spec: 0 :object-port :object-port) - (spec: 0 :boolean :boolean) - (spec: 0 :frame :frame) + (spec: 0 :u16vector :u16vector) + (spec: 0 :symbol :symbol) + (spec: 0 :thread-group :thread-group) + (spec: 0 :s64vector :s64vector) + (spec: 0 :port :port) + (spec: 0 :readtable :readtable) + (spec: 0 :file-info :file-info) + (spec: 0 :writeenv :writeenv) + (spec: 0 :socket-info :socket-info) + (spec: 0 :address-info :address-info) + (spec: 0 :time :time) (spec: 0 :device-port :device-port) + (spec: 0 :sequence :sequence) + (spec: 0 :char :char) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :void :void) + (spec: 0 :t :t) + (spec: 0 :weak :weak) (spec: 0 :u8vector :u8vector) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :readenv :readenv) - (spec: 0 :immediate :immediate) - (spec: 0 defsystem-class-info defsystem-class-info) (spec: 0 :fixnum :fixnum) + (spec: 0 :values :values) + (spec: 0 :character-port :character-port) + (spec: 0 :u64vector :u64vector) + (spec: 0 :string-port :string-port) + (spec: 0 :tcp-server-port :tcp-server-port) (spec: 0 :hvector :hvector) - (spec: 0 :weak :weak) - (spec: 0 :t :t) - (spec: 0 :s16vector :s16vector) - (spec: 0 :eof :eof) + (spec: 0 :udp-port :udp-port) + (spec: 0 :directory-port :directory-port) + (spec: 0 :keyword :keyword) + (spec: 0 class class) + (spec: 0 :object :object) + (spec: 0 :s8vector :s8vector) + (spec: 0 :f64vector :f64vector) + (spec: 0 :box :box) + (spec: 0 :frame :frame) (spec: 0 :promise :promise) - (spec: 0 :time :time) + (spec: 0 :foreign :foreign) + (spec: 0 :thread :thread) + (spec: 0 :raw-device-port :raw-device-port) (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :writeenv :writeenv) (spec: 0 :bignum :bignum) - (spec: 0 :port :port) + (spec: 0 :table :table) + (spec: 0 :integer :integer) + (spec: 0 :true :true) + (spec: 0 :number :number) + (spec: 0 :vector :vector) + (spec: 0 :s16vector :s16vector) + (spec: 0 :continuation :continuation) + (spec: 0 :procedure :procedure) + (spec: 0 :flonum :flonum) + (spec: 0 :special :special) + (spec: 0 :mutex :mutex) (spec: 0 :ratnum :ratnum) - (spec: 0 :s64vector :s64vector) - (spec: 0 :processor :processor) - (spec: 0 :u64vector :u64vector) - (spec: 0 :thread :thread) - (spec: 0 :class :class) - (spec: 0 :f64vector :f64vector) + (spec: 0 :pair :pair) + (spec: 0 :boolean :boolean) + (spec: 0 :false :false) + (spec: 0 :string :string) + (spec: 0 :list :list) + (spec: 0 :s32vector :s32vector) (spec: 0 :real :real) - (spec: 0 :directory-port :directory-port) - (spec: 0 :number :number) - (spec: 0 :readtable :readtable) - (spec: 0 @ @) + (spec: 0 :byte-port :byte-port) + (spec: 0 :symbolic :symbolic) (spec: 0 @-set! @-set!) - (spec: 0 define-struct define-struct) (spec: 0 define-class define-class) + (spec: 0 @ @) + (spec: 0 define-struct define-struct) (spec: 0 defstruct-type defstruct-type) (spec: 0 defclass-type defclass-type) - (spec: 0 MOP-1 MOP-1) + (spec: 0 MOP-3 MOP-3) + (spec: 0 MOP-2 MOP-2) (spec: 0 MOP-4 MOP-4) + (spec: 0 MOP-1 MOP-1) (spec: 0 MOP-5 MOP-5) - (spec: 0 MOP-2 MOP-2) - (spec: 0 MOP-3 MOP-3) - (spec: 0 defsyntax defsyntax) (spec: 0 defconst defconst) + (spec: 0 defsyntax defsyntax) (spec: 0 definline definline) + (spec: 0 ~case ~case) (spec: 0 ~case-dispatch* ~case-dispatch*) - (spec: 0 defvalues defvalues) + (spec: 0 begin0 begin0) + (spec: 0 cut cut) + (spec: 0 <...> <...>) (spec: 0 delay delay) - (spec: 0 case case) + (spec: 0 alet alet) (spec: 0 ~case-dispatch ~case-dispatch) - (spec: 0 quasiquote quasiquote) - (spec: 0 cut cut) - (spec: 0 begin0 begin0) (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 0 alet alet) - (spec: 0 <> <>) - (spec: 0 ~case ~case) - (spec: 0 <...> <...>) (spec: 0 ~case-test ~case-test) (spec: 0 rec rec) - (spec: 0 alet* alet*) (spec: 0 and-let* and-let*) (spec: 0 @list @list) + (spec: 0 quasiquote quasiquote) + (spec: 0 <> <>) + (spec: 0 defvalues defvalues) + (spec: 0 alet* alet*) + (spec: 0 case case) (spec: 0 letrec* letrec*) - (spec: 0 and and) - (spec: 0 defrules defrules) - (spec: 0 define-rules define-rules) - (spec: 0 cond cond) - (spec: 0 let* let*) + (spec: 0 defsyntax% defsyntax%) (spec: 0 unless unless) - (spec: 0 let*-values let*-values) - (spec: 0 ~let ~let) (spec: 0 syntax-error syntax-error) + (spec: 0 define define) + (spec: 0 when when) + (spec: 0 and and) (spec: 0 defalias defalias) + (spec: 0 cond cond) (spec: 0 defrule defrule) + (spec: 0 let* let*) + (spec: 0 ~let ~let) + (spec: 0 defrules defrules) + (spec: 0 define-rules define-rules) + (spec: 0 let*-values let*-values) (spec: 0 or or) - (spec: 0 when when) - (spec: 0 define define) - (spec: 0 defsyntax% defsyntax%) (spec: 0 letrec letrec) - (spec: 0 call/parameters call/parameters) - (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) - (spec: 0 string-ref-set! string-ref-set!) - (spec: 0 cdr-set! cdr-set!) - (spec: 0 s64vector-ref-set! s64vector-ref-set!) - (spec: 0 car-set! car-set!) (spec: 0 s16vector-ref-set! s16vector-ref-set!) - (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) - (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 f64vector-ref-set! f64vector-ref-set!) (spec: 0 u32vector-ref-set! u32vector-ref-set!) (spec: 0 call/values call/values) - (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 random-bytes random-bytes) + (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 cdr-set! cdr-set!) + (spec: 0 string-ref-set! string-ref-set!) (spec: 0 f32vector-ref-set! f32vector-ref-set!) + (spec: 0 s64vector-ref-set! s64vector-ref-set!) + (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 vector-ref-set! vector-ref-set!) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 random-source-make-bytes random-source-make-bytes) (spec: 0 u16vector-ref-set! u16vector-ref-set!) + (spec: 0 call/parameters call/parameters) + (spec: 0 car-set! car-set!) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) (spec: 0 box-set! box-set!) - (spec: 0 number::t number::t) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 hash-key? hash-key?) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 displayln displayln) - (spec: 0 string->bytes string->bytes) - (spec: 0 condvar::t condvar::t) - (spec: 0 AST-e AST-e) - (spec: 0 class-type-final? class-type-final?) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 foreign::t foreign::t) - (spec: 0 object::t object::t) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 char::t char::t) - (spec: 0 promise::t promise::t) - (spec: 0 error? error?) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 load-path load-path) - (spec: 0 class-instance? class-instance?) - (spec: 0 keyword::t keyword::t) - (spec: 0 remove1 remove1) - (spec: 0 read-u8vector read-u8vector) + (spec: 0 random-bytes random-bytes) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 list->hash-table list->hash-table) + (spec: 0 character-port::t character-port::t) + (spec: 0 procedure::t procedure::t) + (spec: 0 vector-port::t vector-port::t) + (spec: 0 raw-device-port::t raw-device-port::t) + (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 pget pget) - (spec: 0 fx1+ fx1+) - (spec: 0 make-promise make-promise) - (spec: 0 values-ref values-ref) - (spec: 0 immediate-instance-of? immediate-instance-of?) + (spec: 0 fx>=0? fx>=0?) + (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 hash-clear! hash-clear!) + (spec: 0 new-instance new-instance) + (spec: 0 file-info::t file-info::t) (spec: 0 object? object?) - (spec: 0 method-ref method-ref) - (spec: 0 string-split string-split) - (spec: 0 flonum::t flonum::t) - (spec: 0 andmap andmap) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 create-directory* create-directory*) - (spec: 0 slot-ref slot-ref) - (spec: 0 character-port::t character-port::t) - (spec: 0 event-queue-port::t event-queue-port::t) - (spec: 0 remv remv) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 max-char-code max-char-code) + (spec: 0 directory-port::t directory-port::t) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 spawn/name spawn/name) + (spec: 0 make-hash-table-eqv make-hash-table-eqv) (spec: 0 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 0 class-type? class-type?) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 try-cast try-cast) - (spec: 0 fx1- fx1-) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 &class-type-flags &class-type-flags) + (spec: 0 &class-type-super &class-type-super) + (spec: 0 values-ref values-ref) + (spec: 0 processor::t processor::t) + (spec: 0 character-port? character-port?) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 pair::t pair::t) + (spec: 0 hvector? hvector?) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 u8vector::t u8vector::t) + (spec: 0 byte-port::t byte-port::t) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 mutex::t mutex::t) + (spec: 0 file-newer? file-newer?) (spec: 0 object-port? object-port?) - (spec: 0 gerbil-path gerbil-path) - (spec: 0 values::t values::t) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 procedure::t procedure::t) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 string-rindex string-rindex) - (spec: 0 eof::t eof::t) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 error-message error-message) - (spec: 0 interface-instance? interface-instance?) + (spec: 0 foldr foldr) + (spec: 0 hash-copy hash-copy) (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 s8vector::t s8vector::t) + (spec: 0 eqv-hash eqv-hash) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 device-port? device-port?) + (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 replx replx) + (spec: 0 make-class-predicate make-class-predicate) + (spec: 0 satisfies? satisfies?) + (spec: 0 list->hash-table-eq list->hash-table-eq) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 promise::t promise::t) + (spec: 0 is-hash-table? is-hash-table?) + (spec: 0 false false) + (spec: 0 gerbil-system gerbil-system) + (spec: 0 exception? exception?) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 0 hash-find hash-find) + (spec: 0 filter-map filter-map) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 memf memf) + (spec: 0 dump-stack-trace! dump-stack-trace!) (spec: 0 string-empty? string-empty?) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: 0 class->list class->list) - (spec: 0 class::t class::t) - (spec: 0 remf remf) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 true? true?) - (spec: 0 object-type object-type) - (spec: 0 pair::t pair::t) - (spec: 0 values->list values->list) - (spec: 0 immediate? immediate?) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 hvector::t hvector::t) - (spec: 0 eq-hash eq-hash) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 processor::t processor::t) + (spec: 0 make-hash-table-string make-hash-table-string) + (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 s32vector::t s32vector::t) + (spec: 0 &class-type-id &class-type-id) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 class-type-flags class-type-flags) + (spec: 0 interface-descriptor-type interface-descriptor-type) + (spec: 0 ratnum::t ratnum::t) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) + (spec: 0 pget pget) + (spec: 0 fx>0? fx>0?) + (spec: 0 bytes->string bytes->string) + (spec: 0 udp-port? udp-port?) + (spec: 0 remv remv) + (spec: 0 t::t t::t) + (spec: 0 object::t object::t) + (spec: 0 thread::t thread::t) + (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) (spec: 0 symbol::t symbol::t) - (spec: 0 address-info::t address-info::t) - (spec: 0 file-info::t file-info::t) - (spec: 0 error-trace error-trace) - (spec: 0 1+ 1+) + (spec: 0 absent-value absent-value) (spec: 0 string-hash string-hash) - (spec: 0 make-keyword make-keyword) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 constructor-init! constructor-init!) + (spec: 0 error error) (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 with-catch with-catch) - (spec: 0 cast cast) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 pgetq pgetq) - (spec: 0 fx/ fx/) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 hvector? hvector?) - (spec: 0 values-count values-count) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 bytes->string bytes->string) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 satisfies? satisfies?) - (spec: 0 new-instance new-instance) - (spec: 0 foldl foldl) - (spec: 0 aget aget) (spec: 0 slot-set! slot-set!) - (spec: 0 false::t false::t) - (spec: 0 1- 1-) - (spec: 0 s32vector::t s32vector::t) - (spec: 0 HashTableLock::t HashTableLock::t) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 device-port::t device-port::t) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 hash-put! hash-put!) - (spec: 0 hash->list hash->list) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 boolean::t boolean::t) - (spec: 0 hash-map hash-map) - (spec: 0 fx=0? fx=0?) - (spec: 0 cons* cons*) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 integer::t integer::t) - (spec: 0 vector-port? vector-port?) - (spec: 0 hash-merge! hash-merge!) + (spec: 0 constructor-init! constructor-init!) + (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 display-exception display-exception) (spec: 0 spawn/group spawn/group) - (spec: 0 t::t t::t) - (spec: 0 mutex::t mutex::t) - (spec: 0 error-object? error-object?) - (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 class-type-super class-type-super) + (spec: 0 readenv? readenv?) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) (spec: 0 with-lock with-lock) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 device-port? device-port?) - (spec: 0 &class-type-fields &class-type-fields) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 class-type-methods class-type-methods) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 gerbil-system-version-string gerbil-system-version-string) + (spec: 0 vector-port? vector-port?) + (spec: 0 plist->hash-table-string plist->hash-table-string) + (spec: 0 boolean::t boolean::t) + (spec: 0 HashTableLock::interface HashTableLock::interface) + (spec: 0 table::t table::t) + (spec: 0 string::t string::t) + (spec: 0 display-as-string display-as-string) + (spec: 0 special? special?) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: + 0 + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 0 list->hash-table-string list->hash-table-string) + (spec: 0 raw-device-port? raw-device-port?) + (spec: 0 class-type-id class-type-id) + (spec: 0 vector::t vector::t) (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 class-of class-of) - (spec: 0 ratnum::t ratnum::t) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 spawn/name spawn/name) - (spec: 0 thread::t thread::t) - (spec: 0 fx>0? fx>0?) - (spec: 0 vector::t vector::t) - (spec: 0 gerbil-system gerbil-system) - (spec: 0 immediate::t immediate::t) - (spec: 0 eof-object eof-object) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 character-port? character-port?) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 as-string as-string) - (spec: 0 interface-cast-error? interface-cast-error?) + (spec: 0 raise raise) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 fxshift fxshift) + (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 next-method next-method) + (spec: 0 hash-fold hash-fold) (spec: 0 agetv agetv) + (spec: 0 hash-table? hash-table?) + (spec: 0 as-string as-string) + (spec: 0 struct->list struct->list) + (spec: 0 make-object make-object) + (spec: 0 directory-port? directory-port?) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 continuation::t continuation::t) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 class-type-system? class-type-system?) + (spec: 0 keyword->symbol keyword->symbol) + (spec: 0 class-type-name class-type-name) + (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 bignum::t bignum::t) + (spec: 0 pgetq pgetq) + (spec: 0 immediate-instance-of? immediate-instance-of?) + (spec: 0 andmap andmap) (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 string-index string-index) - (spec: 0 hash-copy hash-copy) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 hash-merge hash-merge) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 AST? AST?) - (spec: 0 make-AST make-AST) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 AST-source AST-source) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 replx replx) - (spec: 0 fx<0? fx<0?) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 udp-port? udp-port?) - (spec: 0 max-char-code max-char-code) - (spec: 0 reload-module! reload-module!) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 hash-find hash-find) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 agetq agetq) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 source-location-path source-location-path) - (spec: 0 display* display*) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 readtable::t readtable::t) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 box::t box::t) + (spec: 0 assgetq assgetq) + (spec: 0 foreign::t foreign::t) (spec: 0 struct-copy struct-copy) - (spec: 0 foldr foldr) - (spec: 0 file-newer? file-newer?) - (spec: 0 remq remq) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 table::t table::t) - (spec: 0 seal-class! seal-class!) - (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 method-ref method-ref) + (spec: 0 string-index string-index) (spec: 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 special::t special::t) - (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 hash->plist hash->plist) - (spec: 0 hash-fold hash-fold) + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 0 source-location-path source-location-path) (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 byte-port? byte-port?) - (spec: 0 build-manifest build-manifest) - (spec: 0 hash-ref hash-ref) - (spec: 0 ormap ormap) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 vm? vm?) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 absent-obj absent-obj) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 next-method next-method) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 filter-map filter-map) - (spec: 0 hash-clear! hash-clear!) - (spec: 0 continuation::t continuation::t) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 special? special?) - (spec: 0 directory-port? directory-port?) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 list->hash-table-eq list->hash-table-eq) (spec: 0 readenv::t readenv::t) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 void::t void::t) - (spec: 0 absent-value absent-value) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 string::t string::t) - (spec: 0 assget assget) - (spec: 0 find find) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 null::t null::t) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 spawn spawn) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 string-port::t string-port::t) - (spec: 0 class-type-id class-type-id) (spec: 0 list::t list::t) - (spec: 0 raise raise) + (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 interface-instance-object interface-instance-object) (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 readenv? readenv?) - (spec: 0 box::t box::t) - (spec: 0 pgetv pgetv) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 bignum::t bignum::t) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 c4-linearize c4-linearize) + (spec: 0 vm::t vm::t) (spec: 0 time::t time::t) - (spec: 0 port::t port::t) - (spec: 0 exception? exception?) - (spec: 0 struct->list struct->list) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 hash-table? hash-table?) - (spec: 0 symbolic? symbolic?) (spec: 0 HashTable::t HashTable::t) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 make-object make-object) - (spec: 0 string-port? string-port?) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 immediate-hash immediate-hash) + (spec: 0 find find) + (spec: 0 symbolic-table-ref symbolic-table-ref) + (spec: 0 frame::t frame::t) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 tcp-server-port::t tcp-server-port::t) + (spec: 0 struct-instance-init! struct-instance-init!) + (spec: 0 hash-get hash-get) + (spec: 0 display* display*) + (spec: 0 special::t special::t) + (spec: 0 seal-class! seal-class!) + (spec: 0 class-type? class-type?) + (spec: 0 class-type-fields class-type-fields) (spec: 0 keyword-rest keyword-rest) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 return::t return::t) - (spec: 0 class-type-name class-type-name) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 bind-method! bind-method!) - (spec: 0 fxshift fxshift) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 vm::t vm::t) - (spec: 0 error error) - (spec: 0 hash-update! hash-update!) - (spec: 0 make-symbol make-symbol) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: 0 hash-keys hash-keys) - (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 class-type-precedence-list class-type-precedence-list) (spec: 0 load-module load-module) - (spec: 0 source-location-path? source-location-path?) - (spec: - 0 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 0 display-as-string display-as-string) - (spec: 0 sequence::t sequence::t) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 read-syntax read-syntax) - (spec: 0 class-type=? class-type=?) - (spec: 0 writenv? writenv?) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 atom::t atom::t) - (spec: 0 true true) - (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 frame::t frame::t) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 memf memf) - (spec: 0 weak::t weak::t) + (spec: 0 gerbil-load-expander! gerbil-load-expander!) + (spec: 0 vm? vm?) + (spec: 0 make-promise make-promise) + (spec: 0 hash-values hash-values) + (spec: 0 u16vector::t u16vector::t) + (spec: 0 build-manifest build-manifest) (spec: 0 find-method find-method) - (spec: 0 object-fill! object-fill!) + (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 null::t null::t) (spec: 0 error-irritants error-irritants) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 display-exception display-exception) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 hash-key? hash-key?) + (spec: 0 subclass? subclass?) + (spec: 0 actor-thread? actor-thread?) + (spec: 0 cpxnum::t cpxnum::t) (spec: 0 sequence? sequence?) + (spec: 0 source-location? source-location?) + (spec: 0 readtable::t readtable::t) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 keyword::t keyword::t) + (spec: 0 load-path load-path) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 gerbil-greeting gerbil-greeting) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 call-method call-method) + (spec: 0 port::t port::t) + (spec: 0 void::t void::t) + (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 hash-update! hash-update!) + (spec: 0 build-manifest-set! build-manifest-set!) + (spec: 0 pgetv pgetv) + (spec: 0 assget assget) + (spec: 0 hash-keys hash-keys) + (spec: 0 error-message error-message) + (spec: 0 eof-object eof-object) + (spec: 0 make-symbol make-symbol) (spec: 0 display-build-manifest display-build-manifest) + (spec: 0 eof::t eof::t) (spec: 0 string-join string-join) - (spec: 0 make-class-type make-class-type) - (spec: 0 make-instance make-instance) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 class-type-super class-type-super) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 real::t real::t) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 assgetq assgetq) - (spec: 0 true::t true::t) - (spec: 0 false false) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 subclass? subclass?) - (spec: 0 call-method call-method) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 object-port::t object-port::t) - (spec: 0 substruct? substruct?) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 weak? weak?) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 hash-length hash-length) - (spec: 0 hash-get hash-get) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 source-location? source-location?) + (spec: 0 socket-info::t socket-info::t) + (spec: 0 class-type-final? class-type-final?) (spec: 0 write-u8vector write-u8vector) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 assgetv assgetv) - (spec: 0 hash-values hash-values) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 read-syntax read-syntax) + (spec: 0 cons* cons*) + (spec: 0 call-next-method call-next-method) + (spec: 0 class-instance-init! class-instance-init!) (spec: 0 void? void?) + (spec: 0 integer::t integer::t) + (spec: 0 true::t true::t) (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 call-next-method call-next-method) + (spec: 0 u64vector::t u64vector::t) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 symbolic::t symbolic::t) + (spec: 0 fx/ fx/) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 error-trace error-trace) + (spec: 0 hash-length hash-length) + (spec: 0 address-info::t address-info::t) + (spec: 0 error-object? error-object?) + (spec: 0 eq-hash eq-hash) + (spec: 0 string-port::t string-port::t) + (spec: 0 remq remq) + (spec: 0 class-type=? class-type=?) + (spec: 0 real::t real::t) + (spec: 0 &interface-instance-object &interface-instance-object) + (spec: 0 class-type-field-count class-type-field-count) + (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 call-with-parameters call-with-parameters) (spec: 0 unhandled-actor-exception-hook-set! unhandled-actor-exception-hook-set!) - (spec: 0 partition partition) - (spec: 0 time time) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 fxorc1 fxorc1) - (spec: 0 abort abort) - (spec: 0 list->table list->table) - (spec: - 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 flinteger? flinteger?) - (spec: - 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 vector-swap! vector-swap!) - (spec: - 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 flasinh flasinh) - (spec: 0 table-set! table-set!) - (spec: 0 open-process open-process) - (spec: - 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 thread-group-suspend! thread-group-suspend!) - (spec: 0 user-info user-info) - (spec: 0 open-dummy open-dummy) - (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 bind-method! bind-method!) + (spec: 0 ormap ormap) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 symbolic? symbolic?) + (spec: 0 assgetv assgetv) + (spec: 0 fx1+ fx1+) + (spec: 0 error? error?) + (spec: 0 hash-map hash-map) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 f32vector::t f32vector::t) + (spec: 0 substring->bytes substring->bytes) + (spec: 0 AST-e AST-e) + (spec: 0 make-instance make-instance) + (spec: 0 string-port? string-port?) + (spec: 0 make-class-type make-class-type) + (spec: 0 sequence::t sequence::t) + (spec: 0 source-location-path? source-location-path?) + (spec: 0 remf remf) + (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 values-count values-count) + (spec: 0 class-of class-of) + (spec: 0 weak::t weak::t) + (spec: 0 interned-keyword? interned-keyword?) + (spec: 0 hvector::t hvector::t) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 immediate? immediate?) + (spec: 0 flonum::t flonum::t) + (spec: 0 fx1- fx1-) + (spec: 0 object-port::t object-port::t) + (spec: 0 hash-merge hash-merge) + (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 thread-local-get thread-local-get) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 AST? AST?) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 string-rindex string-rindex) + (spec: 0 slot-ref slot-ref) + (spec: 0 device-port::t device-port::t) + (spec: 0 class::t class::t) + (spec: 0 make-AST make-AST) + (spec: 0 return::t return::t) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (spec: 0 class->list class->list) + (spec: 0 interned-symbol? interned-symbol?) + (spec: 0 weak? weak?) + (spec: 0 true true) + (spec: 0 writenv? writenv?) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 foldl foldl) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 move-file move-file) + (spec: 0 fx<0? fx<0?) + (spec: 0 atom::t atom::t) + (spec: 0 number::t number::t) + (spec: 0 event-queue-port? event-queue-port?) + (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 false::t false::t) + (spec: 0 AST-source AST-source) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 make-keyword make-keyword) + (spec: 0 hash-merge! hash-merge!) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 set-load-path! set-load-path!) + (spec: 0 create-directory* create-directory*) + (spec: 0 spawn spawn) + (spec: 0 remove1 remove1) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 1+ 1+) + (spec: 0 s16vector::t s16vector::t) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 read-u8vector read-u8vector) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 values::t values::t) + (spec: 0 cast cast) + (spec: 0 bind-specializer! bind-specializer!) + (spec: 0 try-cast try-cast) + (spec: 0 build-manifest/layer build-manifest/layer) + (spec: 0 udp-port::t udp-port::t) + (spec: 0 hash->list hash->list) + (spec: 0 object-type object-type) + (spec: 0 hash-put! hash-put!) + (spec: 0 byte-port? byte-port?) + (spec: 0 absent-obj absent-obj) + (spec: 0 agetq agetq) + (spec: 0 substruct? substruct?) + (spec: 0 string->bytes string->bytes) + (spec: 0 dssl-key-object? dssl-key-object?) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 direct-instance? direct-instance?) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 reload-module! reload-module!) + (spec: 0 condvar::t condvar::t) + (spec: 0 1- 1-) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 read-syntax-from-file read-syntax-from-file) + (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 gerbil-path gerbil-path) + (spec: 0 char::t char::t) + (spec: 0 values->list values->list) + (spec: 0 class-instance? class-instance?) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 third third) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 u64vector? u64vector?) - (spec: 0 file-attributes file-attributes) + raise-contract-violation-error + raise-contract-violation-error) + (spec: 0 procedure-hash procedure-hash) + (spec: 0 true? true?) + (spec: 0 with-catch with-catch) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 immediate::t immediate::t) + (spec: 0 hash->plist hash->plist) + (spec: 0 syntax-error? syntax-error?) + (spec: 0 fx=0? fx=0?) + (spec: 0 hash-ref hash-ref) + (spec: 0 object-fill! object-fill!) + (spec: 0 interface-cast-error? interface-cast-error?) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 aget aget) + (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 displayln displayln) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 string-split string-split) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 fl/ fl/) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 read-subu8vector read-subu8vector) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 0 system-stamp system-stamp) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 flcosh flcosh) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 readtable-max-write-length readtable-max-write-length) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 0 table-search table-search) + (spec: 0 break break) + (spec: 0 file-info? file-info?) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 random-u8vector random-u8vector) + (spec: 0 create-link create-link) + (spec: 0 filter! filter!) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: - 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 file-owner file-owner) - (spec: 0 network-info network-info) - (spec: 0 print print) - (spec: 0 circular-list? circular-list?) - (spec: 0 script-directory script-directory) - (spec: 0 u16vector u16vector) - (spec: 0 write-file-string write-file-string) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 string-suffix? string-suffix?) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 0 bits->list bits->list) + (spec: 0 continuation-capture continuation-capture) + (spec: 0 f64vector? f64vector?) + (spec: 0 subs64vector subs64vector) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 continuation? continuation?) + (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 ->char-set ->char-set) + (spec: 0 u64vector-set u64vector-set) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) + (spec: 0 group-info group-info) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 f32vector? f32vector?) + (spec: 0 u16vector-swap! u16vector-swap!) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 address-info? address-info?) + (spec: 0 list-sort list-sort) + (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 s64vector s64vector) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 tty-history tty-history) + (spec: 0 char-set? char-set?) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 0 vector-cumulate vector-cumulate) + (spec: 0 output-port-width output-port-width) + (spec: 0 char-set-contains? char-set-contains?) + (spec: 0 fxand fxand) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: 0 thread? thread?) + (spec: 0 list->s32vector list->s32vector) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 foreign-address foreign-address) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 os-exception-arguments os-exception-arguments) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 foreign? foreign?) + (spec: 0 flmin flmin) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) + (spec: 0 flsinh flsinh) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 display-exception-in-context display-exception-in-context) + (spec: 0 fl< fl<) (spec: 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 service-info? service-info?) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 make-thread make-thread) - (spec: 0 bit-count bit-count) - (spec: 0 subu16vector subu16vector) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 input-port-column input-port-column) + (spec: 0 call-with-input-vector call-with-input-vector) + (spec: 0 fldenominator fldenominator) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 table-merge table-merge) + (spec: 0 uncaught-exception? uncaught-exception?) (spec: 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 fxandc1 fxandc1) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 thread-receive thread-receive) - (spec: 0 fourth fourth) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 acosh acosh) - (spec: 0 s64vector-length s64vector-length) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 fxorc2 fxorc2) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 char-set-map char-set-map) - (spec: 0 partition! partition!) - (spec: 0 vector-unfold vector-unfold) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 flatan flatan) - (spec: 0 delete! delete!) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 file-inode file-inode) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 deadlock-exception? deadlock-exception?) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 f64vector-set! f64vector-set!) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 bit-set? bit-set?) + (spec: 0 subs64vector-fill! subs64vector-fill!) + (spec: 0 u32vector-ref u32vector-ref) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 file-group file-group) + (spec: 0 subu64vector-fill! subu64vector-fill!) + (spec: 0 u64vector-set! u64vector-set!) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 command-args command-args) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 f32vector-set! f32vector-set!) (spec: 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 0 group-info-gid group-info-gid) + (spec: 0 type-exception-type-id type-exception-type-id) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 open-string open-string) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 host-info host-info) + (spec: 0 address-infos address-infos) + (spec: 0 u16vector-set u16vector-set) + (spec: 0 top top) + (spec: 0 fxwrap+ fxwrap+) + (spec: 0 apropos apropos) + (spec: 0 list-sort! list-sort!) (spec: 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 take-right take-right) - (spec: 0 split-at split-at) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 flpositive? flpositive?) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 0 s64vector->list s64vector->list) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 0 s8vector s8vector) + (spec: 0 char-set-filter! char-set-filter!) + (spec: 0 eqv?-hash eqv?-hash) + (spec: 0 with-input-from-process with-input-from-process) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 file-info-device file-info-device) - (spec: 0 random-integer random-integer) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 copy-bit copy-bit) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 u8vector-shrink! u8vector-shrink!) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 defer-user-interrupts defer-user-interrupts) - (spec: 0 read-all read-all) - (spec: 0 file-last-modification-time file-last-modification-time) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 fx> fx>) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 s16vector-copy s16vector-copy) + (spec: 0 vector-concatenate vector-concatenate) + (spec: 0 fxlength fxlength) + (spec: 0 list->s64vector list->s64vector) + (spec: 0 s32vector-append s32vector-append) + (spec: 0 foreign-release! foreign-release!) + (spec: 0 thread-group-parent thread-group-parent) + (spec: 0 char-set-any char-set-any) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 foreign-released? foreign-released?) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 executable-path executable-path) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 println println) - (spec: 0 string-swap! string-swap!) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 get-output-u8vector get-output-u8vector) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 0 flnan? flnan?) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 0 null-list? null-list?) + (spec: 0 drop drop) + (spec: 0 flsqrt flsqrt) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 0 system-type-string system-type-string) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) + (spec: 0 read-subu8vector read-subu8vector) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 any any) - (spec: 0 u16vector-copy! u16vector-copy!) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 table? table?) + (spec: 0 fl<= fl<=) + (spec: 0 delete! delete!) (spec: 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 f64vector-append f64vector-append) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 service-info-name service-info-name) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 compilation-target compilation-target) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 subs16vector subs16vector) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 char-set-count char-set-count) - (spec: 0 fxbit-count fxbit-count) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 0 readtable-max-write-level readtable-max-write-level) + (spec: 0 file-info file-info) + (spec: 0 create-temporary-directory create-temporary-directory) + (spec: 0 mutex-lock! mutex-lock!) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 length+ length+) - (spec: 0 with-output-to-process with-output-to-process) - (spec: 0 write-file-string-list write-file-string-list) - (spec: - 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 fxzero? fxzero?) - (spec: 0 fxnot fxnot) - (spec: - 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 char-set-union char-set-union) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 step step) - (spec: 0 flilogb flilogb) - (spec: 0 path-extension path-extension) - (spec: 0 will? will?) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 0 bitwise-and bitwise-and) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 f64vector f64vector) + (spec: 0 bitwise-xor bitwise-xor) + (spec: 0 subvector subvector) + (spec: 0 shell-command shell-command) + (spec: 0 random-f64vector random-f64vector) + (spec: 0 u32vector? u32vector?) + (spec: 0 u64vector-shrink! u64vector-shrink!) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 group-info-members group-info-members) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 0 processor-id processor-id) + (spec: 0 service-info service-info) + (spec: 0 f32vector f32vector) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 make-table make-table) + (spec: 0 s64vector-append s64vector-append) + (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 0 list-tabulate list-tabulate) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 with-output-to-port with-output-to-port) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 fxandc2 fxandc2) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 delete-directory delete-directory) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 char-set-count char-set-count) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 err-code->string err-code->string) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 partition partition) + (spec: 0 s32vector-concatenate s32vector-concatenate) + (spec: 0 last last) + (spec: 0 flsquare flsquare) + (spec: 0 open-output-process open-output-process) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 vector-swap! vector-swap!) (spec: 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 fold-right fold-right) - (spec: 0 last-pair last-pair) - (spec: 0 not-pair? not-pair?) - (spec: 0 reverse! reverse!) - (spec: 0 thread-join! thread-join!) - (spec: 0 user-info? user-info?) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 0 os-exception-message os-exception-message) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 tcp-service-register! tcp-service-register!) (spec: 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 file-info-group file-info-group) - (spec: 0 u8vector-swap! u8vector-swap!) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 subvector-move! subvector-move!) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 fixnum->flonum fixnum->flonum) - (spec: 0 system-version-string system-version-string) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 0 fleven? fleven?) + (spec: 0 flnegative? flnegative?) + (spec: 0 repl-input-port repl-input-port) + (spec: 0 first first) (spec: 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 0 readtable-comment-handler readtable-comment-handler) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 0 call-with-output-process call-with-output-process) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 file-mode file-mode) - (spec: 0 make-random-source make-random-source) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 main main) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 process-pid process-pid) - (spec: 0 s8vector-copy! s8vector-copy!) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 table-ref table-ref) + (spec: 0 fl= fl=) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 subf64vector subf64vector) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 protocol-info protocol-info) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 thread-priority thread-priority) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 vector-fold vector-fold) - (spec: 0 fx* fx*) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 thread-start! thread-start!) - (spec: 0 with-exception-catcher with-exception-catcher) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 0 random-source? random-source?) + (spec: 0 create-fifo create-fifo) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 mutex-name mutex-name) + (spec: 0 current-time current-time) + (spec: 0 file-last-access-time file-last-access-time) + (spec: 0 bits bits) + (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 u32vector-set! u32vector-set!) + (spec: 0 subs8vector subs8vector) + (spec: 0 setenv setenv) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 continuation-return continuation-return) + (spec: 0 subu8vector subu8vector) + (spec: 0 asinh asinh) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 string-set string-set) + (spec: 0 group-info-name group-info-name) + (spec: 0 f32vector-swap! f32vector-swap!) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 fxodd? fxodd?) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 touch touch) - (spec: 0 path-normalize path-normalize) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 flinfinite? flinfinite?) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 object->string object->string) - (spec: 0 tenth tenth) - (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 flasin flasin) - (spec: 0 remove remove) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) + (spec: 0 processor? processor?) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 command-name command-name) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: 0 path-volume path-volume) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) + (spec: 0 s8vector-append s8vector-append) + (spec: 0 char-set= char-set=) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 output-port-timeout-set! output-port-timeout-set!) + (spec: 0 s16vector-fill! s16vector-fill!) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 fxabs fxabs) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 vector-set vector-set) + (spec: 0 s32vector-copy s32vector-copy) + (spec: 0 char-set-for-each char-set-for-each) + (spec: 0 error error) + (spec: 0 fxmin fxmin) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 drop-right! drop-right!) + (spec: 0 fltan fltan) + (spec: 0 thread-group-specific thread-group-specific) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 take take) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 0 thread-receive thread-receive) + (spec: 0 real-time real-time) + (spec: 0 flexp flexp) + (spec: 0 display-exception display-exception) + (spec: 0 flnumerator flnumerator) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 user-name user-name) - (spec: 0 open-udp open-udp) - (spec: 0 keyword->string keyword->string) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 0 system-version-string system-version-string) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 fixnum? fixnum?) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 0 first-set-bit first-set-bit) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) (spec: 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 network-info-number network-info-number) - (spec: 0 file-type file-type) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 0 take take) + (spec: 0 fl> fl>) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 write-substring write-substring) - (spec: 0 u16vector-concatenate u16vector-concatenate) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 range-exception-arguments range-exception-arguments) + (spec: 0 mutex-specific mutex-specific) + (spec: 0 file-info-creation-time file-info-creation-time) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 network-info network-info) + (spec: 0 file-last-change-time file-last-change-time) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: 0 bit-field bit-field) + (spec: 0 f64vector-append f64vector-append) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 second second) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 pp pp) - (spec: 0 console-port console-port) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 substring-move! substring-move!) - (spec: 0 atanh atanh) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 list->bits list->bits) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 char-set char-set) - (spec: 0 thread-state thread-state) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 will-execute! will-execute!) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 string-contains string-contains) - (spec: 0 trace trace) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 string->keyword string->keyword) - (spec: 0 fxremainder fxremainder) - (spec: 0 iota iota) - (spec: 0 timeout->time timeout->time) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 random-real random-real) + (spec: 0 copy-bit-field copy-bit-field) + (spec: 0 bitwise-andc1 bitwise-andc1) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 remove! remove!) - (spec: 0 flmax flmax) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 subvector-move! subvector-move!) + (spec: 0 u64vector? u64vector?) + (spec: 0 u16vector->list u16vector->list) + (spec: 0 group-info? group-info?) + (spec: 0 primordial-exception-handler primordial-exception-handler) + (spec: 0 circular-list circular-list) + (spec: 0 executable-path executable-path) + (spec: 0 subf32vector subf32vector) + (spec: 0 host-info-name host-info-name) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 f32vector-append f32vector-append) + (spec: 0 service-info-name service-info-name) + (spec: 0 u32vector u32vector) + (spec: 0 s64vector-copy s64vector-copy) + (spec: 0 abort abort) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 with-output-to-string with-output-to-string) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 s8vector-concatenate s8vector-concatenate) + (spec: 0 vector-fold-right vector-fold-right) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 flcos flcos) - (spec: 0 take! take!) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 thread-init! thread-init!) - (spec: 0 sixth sixth) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 flsin flsin) - (spec: 0 mutex? mutex?) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 range-exception? range-exception?) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 0 fl* fl*) + thread-state-running-processor + thread-state-running-processor) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 0 end-of-char-set? end-of-char-set?) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 time time) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 fxnot fxnot) + (spec: 0 list->table list->table) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 step step) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 socket-info-family socket-info-family) + (spec: 0 fltanh fltanh) + (spec: 0 os-exception? os-exception?) + (spec: 0 length+ length+) (spec: 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) - (spec: 0 u8vector u8vector) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 table-copy table-copy) - (spec: 0 integer-length integer-length) - (spec: 0 network-info? network-info?) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 tenth tenth) + (spec: 0 call-with-output-string call-with-output-string) + (spec: 0 flexpm1 flexpm1) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 0 thread-base-priority thread-base-priority) + (spec: 0 keyword->string keyword->string) + (spec: 0 system-type system-type) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 seconds->time seconds->time) - (spec: 0 u16vector-copy u16vector-copy) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 0 input-port-readtable-set! input-port-readtable-set!) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 f64vector-ref f64vector-ref) - (spec: 0 tty? tty?) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 concatenate! concatenate!) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 subs32vector subs32vector) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 char-set->list char-set->list) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 0 default-random-source default-random-source) + (spec: 0 read-substring read-substring) + (spec: 0 table-set! table-set!) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 s16vector? s16vector?) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 thread-specific thread-specific) - (spec: 0 fxxor fxxor) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 will-testator will-testator) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 void void) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 fxsquare fxsquare) - (spec: 0 car+cdr car+cdr) - (spec: 0 directory-files directory-files) - (spec: 0 path-expand path-expand) - (spec: 0 untrace untrace) - (spec: 0 flmin flmin) - (spec: 0 test-bit-field? test-bit-field?) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 0 flcosh flcosh) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 user-info-uid user-info-uid) - (spec: 0 foreign-address foreign-address) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 0 delete delete) + (spec: 0 fl>= fl>=) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 file-info-device file-info-device) + (spec: 0 udp-read-u8vector udp-read-u8vector) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 flsinh flsinh) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 box? box?) - (spec: 0 keyword? keyword?) - (spec: 0 open-input-process open-input-process) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 cosh cosh) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 bits->vector bits->vector) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 seventh seventh) + (spec: 0 u32vector-swap! u32vector-swap!) + (spec: 0 subu8vector-move! subu8vector-move!) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 thread-group->thread-list thread-group->thread-list) - (spec: 0 table-for-each table-for-each) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 integer-nth-root integer-nth-root) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 raise raise) + (spec: 0 bitwise-andc2 bitwise-andc2) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 print print) + (spec: 0 circular-list? circular-list?) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 subf32vector-fill! subf32vector-fill!) + (spec: 0 host-info? host-info?) + (spec: 0 u16vector? u16vector?) + (spec: 0 write-file-string write-file-string) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: - 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 input-port-char-position input-port-char-position) - (spec: - 0 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 script-file script-file) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 append! append!) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 cons* cons*) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 subs32vector-fill! subs32vector-fill!) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 list= list=) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 gensym gensym) + (spec: 0 poll-point poll-point) + (spec: 0 all-bits-set? all-bits-set?) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 fxandc1 fxandc1) + (spec: 0 vector-every vector-every) + (spec: 0 char-set-copy char-set-copy) + (spec: 0 time->seconds time->seconds) + (spec: 0 fxnand fxnand) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 char-set-intersection char-set-intersection) + (spec: 0 error-exception-message error-exception-message) + (spec: 0 s32vector-fill! s32vector-fill!) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 open-output-vector open-output-vector) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 char-set-delete! char-set-delete!) - (spec: 0 make-will make-will) - (spec: 0 vector-inc! vector-inc!) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 fltruncate fltruncate) + (spec: 0 socket-info-port-number socket-info-port-number) + (spec: 0 thread-send thread-send) + (spec: 0 fourth fourth) + (spec: 0 os-exception-code os-exception-code) + (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 0 vector-shrink! vector-shrink!) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 flexpt flexpt) + (spec: 0 third third) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 flodd? flodd?) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 fixnum->flonum fixnum->flonum) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 fx< fx<) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 string->char-set string->char-set) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 list-set list-set) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 fllog fllog) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 0 flatanh flatanh) - (spec: 0 null-list? null-list?) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 split-at! split-at!) - (spec: 0 force-output force-output) - (spec: 0 thread-name thread-name) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 flround flround) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 take-right take-right) (spec: 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 current-readtable current-readtable) - (spec: 0 file-device file-device) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 file-size file-size) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 ninth ninth) - (spec: 0 read-file-string read-file-string) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 0 flabs flabs) + (spec: 0 readtable-start-syntax readtable-start-syntax) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 help help) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 append-reverse append-reverse) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 pretty-print pretty-print) - (spec: 0 bit-set? bit-set?) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 identity identity) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 set-box! set-box!) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 fxif fxif) - (spec: 0 list->f32vector list->f32vector) - (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 fx<= fx<=) + uninitialized-thread-exception? + uninitialized-thread-exception?) + (spec: 0 range-exception? range-exception?) + (spec: 0 file-info-group file-info-group) + (spec: 0 mutex-state mutex-state) + (spec: 0 u8vector-ref u8vector-ref) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 file-mode file-mode) + (spec: 0 network-info-name network-info-name) (spec: 0 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 vector->bits vector->bits) - (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 string-concatenate string-concatenate) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 f64vector-copy f64vector-copy) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 u64vector->list u64vector->list) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 0 module-not-found-exception? module-not-found-exception?) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 write-file-string-list write-file-string-list) + (spec: 0 println println) + (spec: 0 string-suffix-ci? string-suffix-ci?) + (spec: 0 clear-bit-field clear-bit-field) + (spec: 0 u16vector-concatenate u16vector-concatenate) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 fxquotient fxquotient) - (spec: 0 link-incremental link-incremental) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 fllog1p fllog1p) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 0 service-info-protocol service-info-protocol) + (spec: 0 compilation-target compilation-target) + (spec: 0 f32vector-copy f32vector-copy) + (spec: 0 host-name host-name) + (spec: 0 atanh atanh) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 fxzero? fxzero?) + (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 subf32vector-move! subf32vector-move!) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 0 will-execute! will-execute!) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 s16vector-ref s16vector-ref) + (spec: 0 fxbit-count fxbit-count) + (spec: 0 vector-inc! vector-inc!) + (spec: 0 char-set-delete! char-set-delete!) + (spec: 0 fxorc1 fxorc1) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 socket-info? socket-info?) + (spec: 0 thread-interrupt! thread-interrupt!) + (spec: 0 time? time?) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 tanh tanh) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 0 thread-sleep! thread-sleep!) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 0 flceiling flceiling) - (spec: 0 readtable? readtable?) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 eighth eighth) - (spec: 0 open-output-process open-output-process) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) - (spec: 0 flscalbn flscalbn) - (spec: 0 dotted-list? dotted-list?) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 flfinite? flfinite?) + (spec: 0 directory-files directory-files) + (spec: 0 call-with-output-vector call-with-output-vector) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 u8vector? u8vector?) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 file-info-type file-info-type) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 u8vector-append u8vector-append) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) + (spec: 0 replace-bit-field replace-bit-field) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 0 open-directory open-directory) + (spec: 0 system-version system-version) + (spec: 0 defer-user-interrupts defer-user-interrupts) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 table->list table->list) - (spec: 0 fl- fl-) - (spec: 0 unbox unbox) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 filter filter) - (spec: 0 input-port-byte-position input-port-byte-position) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) - (spec: 0 help-browser help-browser) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 getenv getenv) - (spec: 0 s8vector? s8vector?) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 subu32vector subu32vector) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 fxeqv fxeqv) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 link-flat link-flat) - (spec: 0 vector-cas! vector-cas!) - (spec: 0 fx+ fx+) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 s64vector s64vector) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 object->u8vector object->u8vector) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 0 delete-directory delete-directory) + (spec: 0 compile-file compile-file) + (spec: 0 flacos flacos) + (spec: 0 range-exception-arg-id range-exception-arg-id) + (spec: 0 u8vector-set u8vector-set) + (spec: 0 file-info-inode file-info-inode) + (spec: 0 link-incremental link-incremental) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 read-all read-all) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 file-number-of-links file-number-of-links) + (spec: 0 network-info-number network-info-number) + (spec: 0 substring-fill! substring-fill!) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 flnumerator flnumerator) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 flexp flexp) - (spec: 0 open-vector open-vector) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 drop drop) - (spec: 0 fltan fltan) - (spec: 0 box box) - (spec: 0 keyword-hash keyword-hash) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 bit-count bit-count) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 random-integer random-integer) + (spec: 0 copy-bit copy-bit) + (spec: 0 fifth fifth) + (spec: 0 sinh sinh) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 subvector-fill! subvector-fill!) + (spec: 0 string-suffix-length string-suffix-length) + (spec: 0 u16vector u16vector) + (spec: 0 write-file-u8vector write-file-u8vector) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 file-info? file-info?) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 bitwise-nand bitwise-nand) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 0 proper-list? proper-list?) + (spec: 0 make-thread make-thread) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 subf64vector subf64vector) + (spec: 0 s64vector-length s64vector-length) + (spec: 0 every every) + (spec: 0 fxwrapquotient fxwrapquotient) + (spec: 0 touch touch) + (spec: 0 with-output-to-process with-output-to-process) (spec: 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 0 cpu-time cpu-time) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 unbreak unbreak) - (spec: 0 fl/ fl/) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 s8vector-fill! s8vector-fill!) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 filter! filter!) - (spec: 0 input-port-line input-port-line) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 process-status process-status) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 host-info host-info) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 f64vector-swap! f64vector-swap!) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 setenv setenv) - (spec: 0 u32vector-length u32vector-length) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 list->char-set list->char-set) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 fxeven? fxeven?) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 s32vector s32vector) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 char-set-any char-set-any) - (spec: 0 fx- fx-) - (spec: 0 s16vector-append s16vector-append) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 0 tty-type-set! tty-type-set!) + (spec: 0 vector-fold vector-fold) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 char-set-cursor char-set-cursor) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 0 partition! partition!) + (spec: 0 char-set-map char-set-map) + (spec: 0 error-exception? error-exception?) + (spec: 0 fxnor fxnor) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 reverse! reverse!) + (spec: 0 thread-group? thread-group?) + (spec: 0 flzero? flzero?) + (spec: 0 open-process open-process) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 top top) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 address-infos address-infos) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 list-sort! list-sort!) - (spec: 0 s32vector? s32vector?) - (spec: 0 remq remq) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 flexpm1 flexpm1) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 user-info user-info) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 thread-specific thread-specific) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 table-merge! table-merge!) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 fltanh fltanh) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 current-processor current-processor) - (spec: 0 subu8vector subu8vector) - (spec: 0 u64vector-set! u64vector-set!) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 0 vector-unfold vector-unfold) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) + (spec: 0 flfloor flfloor) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 compile-file compile-file) - (spec: 0 fl+ fl+) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 repl-output-port repl-output-port) + (spec: 0 display-procedure-environment display-procedure-environment) + (spec: 0 flonum? flonum?) + (spec: 0 open-dummy open-dummy) + (spec: 0 readtable-comment-handler readtable-comment-handler) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) + (spec: 0 thread thread) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 dead-end dead-end) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 process-times process-times) - (spec: 0 group-info-members group-info-members) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 apropos apropos) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 xcons xcons) - (spec: 0 bits->list bits->list) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 vector-any vector-any) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 fxmax fxmax) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 output-port-column output-port-column) - (spec: 0 char-set->string char-set->string) - (spec: 0 fx>= fx>=) - (spec: 0 address-info-family address-info-family) - (spec: 0 s16vector-concatenate s16vector-concatenate) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 s64vector? s64vector?) - (spec: 0 char-set? char-set?) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 flnan? flnan?) - (spec: 0 rename-file rename-file) - (spec: 0 table-ref table-ref) - (spec: 0 fldenominator fldenominator) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 0 tanh tanh) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 flsqrt flsqrt) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 flacosh flacosh) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 u8vector-set! u8vector-set!) + (spec: 0 mutex? mutex?) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 network-info? network-info?) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 random-u8vector random-u8vector) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 0 file-owner file-owner) + (spec: 0 substring-move! substring-move!) + (spec: 0 u64vector-concatenate u64vector-concatenate) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 conjugate conjugate) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 random-source-make-reals random-source-make-reals) + (spec: 0 module-search-order-add! module-search-order-add!) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 file-attributes file-attributes) + (spec: 0 u8vector u8vector) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 u16vector-copy! u16vector-copy!) + (spec: 0 script-file script-file) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: 0 make-u64vector make-u64vector) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 concatenate concatenate) + (spec: 0 f32vector-fill! f32vector-fill!) (spec: 0 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 0 file-info-size file-info-size) - (spec: 0 subu64vector subu64vector) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 create-link create-link) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 trace trace) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 integer-sqrt integer-sqrt) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 tty? tty?) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 fl+* fl+*) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 s8vector-length s8vector-length) + (spec: 0 will? will?) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 fxeqv fxeqv) + (spec: 0 s16vector-set! s16vector-set!) + (spec: 0 path-extension path-extension) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 char-set-union char-set-union) + (spec: 0 fxpositive? fxpositive?) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 string->char-set string->char-set) + (spec: 0 open-string open-string) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 command-name command-name) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 bits->vector bits->vector) - (spec: 0 continuation? continuation?) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 processor? processor?) - (spec: 0 u16vector? u16vector?) - (spec: 0 f32vector-set! f32vector-set!) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) (spec: 0 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 0 fxmin fxmin) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 char-set-every char-set-every) - (spec: 0 list->s64vector list->s64vector) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 0 fold fold) + (spec: 0 timeout->time timeout->time) + (spec: 0 output-port-byte-position output-port-byte-position) + (spec: 0 char-set char-set) + (spec: 0 fx+ fx+) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 fxabs fxabs) - (spec: 0 output-port-line output-port-line) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 s16vector s16vector) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 fxwrap+ fxwrap+) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 remove remove) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) + (spec: 0 flhypot flhypot) + (spec: 0 user-info-gid user-info-gid) + (spec: 0 user-info? user-info?) + (spec: 0 open-event-queue open-event-queue) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 flnegative? flnegative?) - (spec: 0 display-exception-in-context display-exception-in-context) + thread-group->thread-group-list + thread-group->thread-group-list) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 table-length table-length) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 fleven? fleven?) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 open-directory open-directory) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 0 flsquare flsquare) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 raise raise) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 read-substring read-substring) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 delete delete) - (spec: 0 fl= fl=) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 default-random-source default-random-source) - (spec: 0 input-port-column input-port-column) - (spec: 0 first first) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 f32vector f32vector) - (spec: 0 ->char-set ->char-set) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 poll-point poll-point) - (spec: 0 circular-list circular-list) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 group-info group-info) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 subs64vector subs64vector) - (spec: 0 type-exception? type-exception?) - (spec: 0 bit-swap bit-swap) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 service-info service-info) - (spec: 0 f64vector f64vector) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 0 take! take!) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 fxior fxior) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 output-port-width output-port-width) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 fx= fx=) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 char-set<= char-set<=) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 address-info? address-info?) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 list-sort list-sort) - (spec: 0 thread? thread?) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 0 flfloor flfloor) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 thread-priority thread-priority) + (spec: 0 u8vector-shrink! u8vector-shrink!) + (spec: 0 uninterned-symbol? uninterned-symbol?) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 current-directory current-directory) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 subu16vector subu16vector) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 u64vector u64vector) + (spec: 0 f64vector-concatenate f64vector-concatenate) + (spec: 0 bit-field-any? bit-field-any?) + (spec: 0 u8vector->list u8vector->list) + (spec: 0 module-search-order-reset! module-search-order-reset!) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 copy-file copy-file) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 string-suffix? string-suffix?) + (spec: 0 u16vector-append u16vector-append) + (spec: 0 make-mutex make-mutex) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 concatenate! concatenate!) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 fxxor fxxor) + (spec: 0 acosh acosh) + (spec: 0 s64vector-ref s64vector-ref) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 0 call-with-output-process call-with-output-process) - (spec: 0 flacos flacos) - (spec: 0 table-merge table-merge) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 flzero? flzero?) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 flonum? flonum?) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 current-thread current-thread) - (spec: 0 file-last-change-time file-last-change-time) - (spec: 0 break break) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 subvector subvector) - (spec: 0 create-directory create-directory) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 system-type-string system-type-string) - (spec: 0 fl> fl>) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 any any) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 char-set-delete char-set-delete) + (spec: 0 step-level-set! step-level-set!) + (spec: 0 fxodd? fxodd?) + (spec: 0 path-directory path-directory) + (spec: 0 char-set-size char-set-size) + (spec: 0 s32vector-set s32vector-set) + (spec: 0 thread-init! thread-init!) + (spec: 0 user-info-home user-info-home) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 0 fold-right fold-right) + (spec: 0 thread-start! thread-start!) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) (spec: 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 0 iota iota) + (spec: 0 call/cc call/cc) + (spec: 0 flilogb flilogb) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 open-file open-file) + (spec: 0 repl-result-history-ref repl-result-history-ref) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 command-args command-args) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 asinh asinh) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: 0 tty-history tty-history) - (spec: 0 with-input-from-string with-input-from-string) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 0 integer-length integer-length) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 bits bits) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 service-info-aliases service-info-aliases) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 0 flasin flasin) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 host-info? host-info?) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 error error) - (spec: 0 fxlength fxlength) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 fx> fx>) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 table-copy table-copy) + (spec: 0 u8vector-swap! u8vector-swap!) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 vector-every vector-every) - (spec: 0 char-set= char-set=) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 list= list=) - (spec: 0 vector-set vector-set) - (spec: 0 fxnor fxnor) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 time->seconds time->seconds) - (spec: 0 flhypot flhypot) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 file-size file-size) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 cons* cons*) + (spec: 0 bit-field-reverse bit-field-reverse) + (spec: 0 u64vector-copy! u64vector-copy!) (spec: 0 - display-continuation-environment - display-continuation-environment) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 0 file-device file-device) + (spec: 0 cpu-time cpu-time) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 module-whitelist-add! module-whitelist-add!) (spec: 0 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 tcp-service-register! tcp-service-register!) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 0 second second) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 flacosh flacosh) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 string-swap! string-swap!) + (spec: 0 subu32vector-fill! subu32vector-fill!) + (spec: 0 subs16vector subs16vector) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 u8vector->object u8vector->object) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 table? table?) - (spec: 0 fold fold) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 last last) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 drop-right drop-right) - (spec: 0 file-inode file-inode) - (spec: 0 current-time current-time) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 random-source? random-source?) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 file-group file-group) - (spec: 0 create-fifo create-fifo) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 string->keyword string->keyword) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 main main) + (spec: 0 any-bit-set? any-bit-set?) + (spec: 0 string-contains string-contains) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) + (spec: 0 list->bits list->bits) + (spec: 0 char-set-difference! char-set-difference!) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 vector-any vector-any) + (spec: 0 fxremainder fxremainder) + (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 char-set-xor char-set-xor) + (spec: 0 with-exception-handler with-exception-handler) (spec: 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 system-version system-version) - (spec: 0 fl< fl<) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 user-info-name user-info-name) + (spec: 0 open-tcp-client open-tcp-client) + (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 fx< fx<) + (spec: 0 output-port-column output-port-column) + (spec: 0 char-set->string char-set->string) + (spec: 0 thread-state thread-state) + (spec: 0 remq remq) + (spec: 0 flinfinite? flinfinite?) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 0 keyword? keyword?) + (spec: 0 test-bit-field? test-bit-field?) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 udp-read-u8vector udp-read-u8vector) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 s8vector s8vector) - (spec: 0 f64vector? f64vector?) - (spec: 0 continuation-return continuation-return) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 host-name host-name) - (spec: 0 f32vector? f32vector?) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 bit-field bit-field) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 fxandc2 fxandc2) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 processor-id processor-id) - (spec: 0 s16vector-length s16vector-length) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 0 unbox unbox) + (spec: 0 fixnum? fixnum?) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 u32vector u32vector) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 s64vector-copy s64vector-copy) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 0 flasinh flasinh) (spec: 0 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 time? time?) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 flexpt flexpt) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 0 call/cc call/cc) - (spec: 0 display-exception display-exception) - (spec: 0 real-time real-time) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 0 u8vector? u8vector?) + (spec: 0 current-exception-handler current-exception-handler) + (spec: 0 file-info-mode file-info-mode) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 file-type file-type) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 subu16vector-move! subu16vector-move!) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 random-source-make-integers random-source-make-integers) + (spec: 0 cosh cosh) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 u8vector-append u8vector-append) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 process-pid process-pid) + (spec: 0 script-directory script-directory) + (spec: 0 help help) + (spec: 0 protocol-info protocol-info) + (spec: 0 make-u32vector make-u32vector) + (spec: 0 identity identity) + (spec: 0 f32vector-copy! f32vector-copy!) + (spec: 0 service-info? service-info?) + (spec: 0 subs16vector-fill! subs16vector-fill!) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 u32vector-concatenate u32vector-concatenate) + (spec: 0 void void) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 get-output-u8vector get-output-u8vector) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: 0 s16vector? s16vector?) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) + (spec: 0 fxbit-set? fxbit-set?) + (spec: 0 list->char-set list->char-set) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 path-expand path-expand) + (spec: 0 char-set-unfold! char-set-unfold!) + (spec: 0 fxorc2 fxorc2) + (spec: 0 link-flat link-flat) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 vector->bits vector->bits) + (spec: 0 thread-join! thread-join!) + (spec: 0 last-pair last-pair) + (spec: 0 open-tcp-server open-tcp-server) + (spec: 0 user-info-shell user-info-shell) + (spec: 0 will-testator will-testator) + (spec: 0 fx* fx*) + (spec: 0 user-info-uid user-info-uid) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 fl>= fl>=) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 flinteger? flinteger?) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 fltruncate fltruncate) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 thread-group? thread-group?) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 thread thread) - (spec: 0 flodd? flodd?) - (spec: 0 open-file open-file) - (spec: 0 drop-right! drop-right!) - (spec: 0 user-info-home user-info-home) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 mutex-state mutex-state) - (spec: 0 range-exception-arguments range-exception-arguments) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) (spec: 0 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 random-real random-real) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 file-info file-info) - (spec: 0 shell-command shell-command) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 system-stamp system-stamp) - (spec: 0 fl<= fl<=) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 fl* fl*) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 0 read-file-string read-file-string) + (spec: 0 flatan flatan) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 table-length table-length) + (spec: 0 current-readtable current-readtable) + (spec: 0 box box) + (spec: 0 file-info-number-of-links file-info-number-of-links) + (spec: 0 u8vector-concatenate u8vector-concatenate) + (spec: 0 unbreak unbreak) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 udp-source-socket-info udp-source-socket-info) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 0 ucs-range->char-set ucs-range->char-set) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 console-port console-port) + (spec: 0 f64vector-set f64vector-set) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 bitwise-nand bitwise-nand) + (spec: 0 u64vector-fill! u64vector-fill!) + (spec: 0 help-browser help-browser) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 expression-parsing-exception? expression-parsing-exception?) + (spec: 0 subu64vector subu64vector) + (spec: 0 type-exception-procedure type-exception-procedure) + (spec: 0 make-will make-will) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 f32vector-set f32vector-set) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 write-substring write-substring) + (spec: 0 s64vector-shrink! s64vector-shrink!) + (spec: 0 address-info-family address-info-family) + (spec: 0 path-strip-extension path-strip-extension) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 list->char-set! list->char-set!) + (spec: 0 char-set-filter char-set-filter) + (spec: 0 fxior fxior) + (spec: 0 vector-cas! vector-cas!) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 network-info-name network-info-name) - (spec: 0 string-set string-set) - (spec: 0 group-info-name group-info-name) - (spec: 0 make-mutex make-mutex) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 subs8vector subs8vector) - (spec: 0 u64vector u64vector) - (spec: 0 seventh seventh) - (spec: 0 bitwise-eqv bitwise-eqv) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 proper-list? proper-list?) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 s16vector-copy s16vector-copy) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 thread-send thread-send) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 0 s32vector-swap! s32vector-swap!) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 thread-suspend! thread-suspend!) + (spec: 0 open-u8vector open-u8vector) + (spec: 0 eighth eighth) + (spec: 0 split-at split-at) + (spec: 0 thread-group-name thread-group-name) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 fx= fx=) + (spec: 0 thread-mailbox-next thread-mailbox-next) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 path-volume path-volume) - (spec: 0 every every) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 path-directory path-directory) - (spec: 0 char-set-size char-set-size) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 error-exception? error-exception?) - (spec: 0 fxnand fxnand) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 flfinite? flfinite?) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 car+cdr car+cdr) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 0 table-search table-search) + join-timeout-exception-arguments + join-timeout-exception-arguments) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 0 flabs flabs) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 socket-info? socket-info?) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 user-info-name user-info-name) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) + (spec: 0 readtable? readtable?) + (spec: 0 open-input-process open-input-process) + (spec: 0 dotted-list? dotted-list?) + (spec: 0 flpositive? flpositive?) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 untrace untrace) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 current-directory current-directory) - (spec: 0 mutex-name mutex-name) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 copy-file copy-file) - (spec: 0 sinh sinh) - (spec: 0 fifth fifth) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 fl+ fl+) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 system-type system-type) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 0 not-pair? not-pair?) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 group-info? group-info?) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 s8vector-fill! s8vector-fill!) - (spec: 0 gensym gensym) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 u32vector? u32vector?) - (spec: 0 subs8vector-fill! subs8vector-fill!) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 0 flatanh flatanh) + (spec: 0 table->list table->list) + (spec: 0 box? box?) + (spec: 0 file-info-owner file-info-owner) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 input-port-byte-position input-port-byte-position) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 conjugate conjugate) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 subf32vector subf32vector) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 make-table make-table) - (spec: 0 concatenate concatenate) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 host-info-name host-info-name) - (spec: 0 fxand fxand) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 err-code->string err-code->string) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) + (spec: 0 u64vector-copy u64vector-copy) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 bit-field-replace-same bit-field-replace-same) + (spec: 0 subs32vector subs32vector) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 thread-sleep! thread-sleep!) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 0 bitwise-nor bitwise-nor) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 os-exception? os-exception?) - (spec: 0 foreign? foreign?) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 0 subu32vector subu32vector) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 process-status process-status) + (spec: + 0 + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 0 make-random-source make-random-source) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 set-box! set-box!) + (spec: 0 protocol-info-name protocol-info-name) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: + 0 + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 string->char-set! string->char-set!) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 getenv getenv) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 append! append!) + (spec: 0 pp pp) + (spec: 0 s8vector-shrink! s8vector-shrink!) + (spec: 0 fxeven? fxeven?) + (spec: 0 list->f32vector list->f32vector) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 eq?-hash eq?-hash) + (spec: 0 string-concatenate string-concatenate) + (spec: + 0 + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 0 fxquotient fxquotient) + (spec: 0 path-normalize path-normalize) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 s32vector? s32vector?) + (spec: + 0 + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 split-at! split-at!) + (spec: 0 force-output force-output) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: + 0 + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 fx- fx-) + (spec: 0 output-port-char-position output-port-char-position) + (spec: 0 char-set->list char-set->list) + (spec: 0 s16vector s16vector) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 user-name user-name) + (spec: 0 object->serial-number object->serial-number) + (spec: 0 remove! remove!) + (spec: 0 fllog fllog) + (spec: + 0 + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 flround flround) + (spec: 0 fl+* fl+*) + (spec: 0 input-port-line input-port-line) + (spec: 0 flceiling flceiling) + (spec: 0 read-file-u8vector read-file-u8vector) + (spec: 0 call-with-input-process call-with-input-process) + (spec: 0 table-merge! table-merge!) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 file-info-size file-info-size) + (spec: 0 current-thread current-thread) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 u8vector-copy! u8vector-copy!) + (spec: 0 random-source-state-set! random-source-state-set!) + (spec: 0 ninth ninth) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 bit-swap bit-swap) + (spec: 0 xcons xcons) + (spec: 0 protocol-info-number protocol-info-number) + (spec: + 0 + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 create-directory create-directory) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 subu64vector-move! subu64vector-move!) + (spec: 0 r7rs-raise r7rs-raise) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 s8vector? s8vector?) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 type-exception? type-exception?) + (spec: 0 process-times process-times) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 char-set<= char-set<=) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 fxwrap- fxwrap-) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 append-reverse append-reverse) + (spec: 0 s64vector? s64vector?) + (spec: 0 with-input-from-string with-input-from-string) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 list->f64vector list->f64vector) + (spec: 0 fx>= fx>=) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) + (spec: 0 list-set list-set) + (spec: 0 s16vector->list s16vector->list) + (spec: 0 fxmax fxmax) + (spec: 0 thread-thread-group thread-thread-group) + (spec: 0 open-udp open-udp) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 char-set-complement char-set-complement) + (spec: 0 foreign-tags foreign-tags) + (spec: 0 fllog1p fllog1p) + (spec: + 0 + display-continuation-environment + display-continuation-environment) + (spec: 0 object->string object->string) + (spec: 0 thread-name thread-name) + (spec: + 0 + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 0 flscalbn flscalbn) + (spec: 0 drop-right drop-right) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 fl- fl-) + (spec: 0 integer-nth-root integer-nth-root) + (spec: 0 flcos flcos) + (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 0 current-processor current-processor) + (spec: 0 file-info-type file-info-type) + (spec: 0 table-for-each table-for-each) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 dead-end dead-end) + (spec: 0 filter filter) + (spec: 0 input-port-char-position input-port-char-position) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 u8vector-fill! u8vector-fill!) + (spec: 0 udp-destination-set! udp-destination-set!) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 f64vector-ref f64vector-ref) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) + (spec: 0 bitwise-orc1 bitwise-orc1) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 subs32vector-move! subs32vector-move!) + (spec: 0 subu32vector-move! subu32vector-move!) + (spec: 0 seconds->time seconds->time) + (spec: 0 u32vector-length u32vector-length) + (spec: + 0 + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 u64vector-ref u64vector-ref) + (spec: 0 pretty-print pretty-print) + (spec: 0 condition-variable-signal! condition-variable-signal!) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 gc-report-set! gc-report-set!) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 string-contains-ci string-contains-ci) + (spec: 0 char-set-every char-set-every) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 fxif fxif) + (spec: 0 list->s16vector list->s16vector) + (spec: 0 output-port-line output-port-line) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 fxsquare fxsquare) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 thread-state-initialized? thread-state-initialized?) + (spec: 0 s32vector s32vector) + (spec: 0 started-thread-exception? started-thread-exception?) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 open-vector open-vector) + (spec: 0 sixth sixth) + (spec: 0 char-set-adjoin char-set-adjoin) + (spec: 0 fx<= fx<=) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 flmax flmax) + (spec: 0 object->u8vector object->u8vector) (spec: 0 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 call-with-port call-with-port) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 floor/ floor/) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 flsin flsin) + (spec: 0 open-input-vector open-input-vector) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 0 rename-file rename-file) + (spec: 0 read-string read-string) + (spec: 0 bytevector bytevector) + (spec: 0 file-exists? file-exists?) + (spec: 0 utf8->string utf8->string) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 euclidean/ euclidean/) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 string->utf8 string->utf8) + (spec: 0 current-second current-second) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 string-foldcase string-foldcase) + (spec: 0 balanced/ balanced/) + (spec: 0 string-copy! string-copy!) + (spec: 0 vector-append vector-append) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 ceiling-quotient ceiling-quotient) + (spec: 0 finite? finite?) + (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 write-u8 write-u8) (spec: 0 binary-port? binary-port?) + (spec: 0 command-line command-line) + (spec: 0 get-environment-variable get-environment-variable) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 ceiling-remainder ceiling-remainder) + (spec: 0 digit-value digit-value) + (spec: 0 bytevector-copy! bytevector-copy!) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 read-line read-line) + (spec: 0 vector-copy! vector-copy!) + (spec: 0 emergency-exit emergency-exit) + (spec: 0 ceiling/ ceiling/) (spec: 0 bytevector-length bytevector-length) - (spec: 0 get-output-string get-output-string) + (spec: 0 delete-file delete-file) + (spec: 0 features features) + (spec: 0 inexact inexact) + (spec: 0 make-list make-list) + (spec: 0 open-output-string open-output-string) + (spec: 0 peek-u8 peek-u8) + (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 bytevector-u8-ref bytevector-u8-ref) + (spec: 0 read-bytevector read-bytevector) (spec: 0 promise? promise?) - (spec: 0 string->utf8 string->utf8) - (spec: 0 digit-value digit-value) (spec: 0 string->vector string->vector) (spec: 0 string-for-each string-for-each) + (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 current-error-port current-error-port) + (spec: 0 exit exit) + (spec: 0 make-parameter make-parameter) + (spec: 0 get-output-string get-output-string) + (spec: 0 flush-output-port flush-output-port) + (spec: 0 port? port?) (spec: 0 read-u8 read-u8) - (spec: 0 make-promise make-promise) - (spec: 0 vector-for-each vector-for-each) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 list-copy list-copy) - (spec: 0 floor-quotient floor-quotient) - (spec: 0 inexact inexact) - (spec: 0 open-input-string open-input-string) - (spec: 0 write-string write-string) - (spec: 0 current-jiffy current-jiffy) (spec: 0 bytevector? bytevector?) - (spec: 0 file-error? file-error?) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 make-parameter make-parameter) - (spec: 0 string-map string-map) - (spec: 0 square square) + (spec: 0 u8-ready? u8-ready?) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 call-with-port call-with-port) (spec: 0 boolean=? boolean=?) - (spec: 0 current-error-port current-error-port) - (spec: 0 infinite? infinite?) - (spec: 0 port? port?) + (spec: 0 make-promise make-promise) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 read-bytevector! read-bytevector!) (spec: 0 write-shared write-shared) + (spec: 0 exact exact) + (spec: 0 eof-object eof-object) (spec: 0 error-object-message error-object-message) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 floor-quotient floor-quotient) + (spec: 0 infinite? infinite?) + (spec: 0 read-error? read-error?) + (spec: 0 string-map string-map) + (spec: 0 error-object? error-object?) + (spec: 0 list-copy list-copy) + (spec: 0 floor-remainder floor-remainder) (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 vector->string vector->string) + (spec: 0 open-input-bytevector open-input-bytevector) + (spec: 0 file-error? file-error?) + (spec: 0 round-quotient round-quotient) + (spec: 0 square square) + (spec: 0 string-upcase string-upcase) + (spec: 0 vector-for-each vector-for-each) + (spec: 0 floor/ floor/) + (spec: 0 vector-map vector-map) + (spec: 0 symbol=? symbol=?) (spec: 0 write-simple write-simple) (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 error-object? error-object?) - (spec: 0 truncate/ truncate/) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 string-upcase string-upcase) - (spec: 0 balanced/ balanced/) - (spec: 0 eof-object eof-object) - (spec: 0 exact exact) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 current-second current-second) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 round/ round/) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 euclidean/ euclidean/) + (spec: 0 write-string write-string) (spec: 0 output-port-open? output-port-open?) (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 file-exists? file-exists?) - (spec: 0 read-error? read-error?) - (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 string-downcase string-downcase) - (spec: 0 vector-map vector-map) - (spec: 0 round-quotient round-quotient) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 bytevector-append bytevector-append) + (spec: 0 textual-port? textual-port?) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 vector->string vector->string) + (spec: 0 open-input-string open-input-string) (spec: 0 close-port close-port) - (spec: 0 write-u8 write-u8) + (spec: 0 make-bytevector make-bytevector) (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 open-binary-output-file open-binary-output-file) (spec: 0 round-remainder round-remainder) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 read-string read-string) - (spec: 0 symbol=? symbol=?) - (spec: 0 utf8->string utf8->string) - (spec: 0 list-set! list-set!) - (spec: 0 vector-append vector-append) - (spec: 0 emergency-exit emergency-exit) + (spec: 0 string-downcase string-downcase) + (spec: 0 truncate/ truncate/) (spec: 0 nan? nan?) - (spec: 0 textual-port? textual-port?) - (spec: 0 string-copy! string-copy!) - (spec: 0 ceiling/ ceiling/) - (spec: 0 open-output-string open-output-string) - (spec: 0 bytevector bytevector) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 features features) - (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 command-line command-line) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 make-list make-list) - (spec: 0 read-line read-line) (spec: 0 vector-copy vector-copy) - (spec: 0 u8-ready? u8-ready?) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 finite? finite?) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 vector-copy! vector-copy!) - (spec: 0 delete-file delete-file) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 flush-output-port flush-output-port) - (spec: 0 read-bytevector! read-bytevector!) - (spec: 0 exit exit) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 peek-u8 peek-u8) + (spec: 0 balanced-quotient balanced-quotient) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 euclidean-remainder euclidean-remainder) + (spec: 0 list-set! list-set!) + (spec: 0 round/ round/) + (spec: 0 caaar caaar) + (spec: 0 string>=? string>=?) + (spec: 0 apply apply) + (spec: 0 eqv? eqv?) + (spec: 0 vector-set! vector-set!) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 values values) + (spec: 0 real? real?) + (spec: 0 ceiling ceiling) + (spec: 0 caadar caadar) + (spec: 0 null-environment null-environment) + (spec: 0 integer? integer?) + (spec: 0 symbol? symbol?) + (spec: 0 expt expt) + (spec: 0 map map) + (spec: 0 string>? string>?) + (spec: 0 exact? exact?) + (spec: 0 string->symbol string->symbol) + (spec: 0 eval eval) + (spec: 0 char-ci>=? char-ci>=?) + (spec: 0 open-output-file open-output-file) + (spec: 0 cdaaar cdaaar) + (spec: 0 caaddr caaddr) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 read read) + (spec: 0 negative? negative?) + (spec: 0 zero? zero?) + (spec: 0 assq assq) + (spec: 0 string-ref string-ref) + (spec: 0 string? string?) + (spec: 0 peek-char peek-char) + (spec: 0 char-upcase char-upcase) + (spec: 0 string-append string-append) + (spec: 0 vector-fill! vector-fill!) + (spec: 0 char-ci>? char-ci>?) + (spec: 0 reverse reverse) + (spec: 0 cdaadr cdaadr) + (spec: 0 null? null?) + (spec: 0 write-char write-char) + (spec: 0 caadr caadr) + (spec: 0 even? even?) + (spec: 0 list-tail list-tail) + (spec: 0 string-fill! string-fill!) + (spec: 0 list->string list->string) + (spec: 0 char-downcase char-downcase) + (spec: 0 cdaar cdaar) + (spec: 0 length length) + (spec: 0 odd? odd?) + (spec: 0 caar caar) + (spec: 0 imag-part imag-part) + (spec: 0 string-set! string-set!) + (spec: 0 string-cistring number->string) + (spec: 0 cdadar cdadar) + (spec: 0 not not) + (spec: 0 cadaar cadaar) + (spec: 0 max max) + (spec: 0 assoc assoc) + (spec: 0 make-string make-string) + (spec: 0 abs abs) + (spec: 0 with-output-to-file with-output-to-file) + (spec: 0 output-port? output-port?) + (spec: 0 cdaddr cdaddr) + (spec: 0 denominator denominator) + (spec: 0 cadadr cadadr) + (spec: 0 read-char read-char) + (spec: 0 substring substring) + (spec: 0 member member) + (spec: 0 cos cos) + (spec: 0 sin sin) + (spec: 0 / /) + (spec: 0 list? list?) + (spec: 0 char<=? char<=?) + (spec: 0 vector vector) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 cdadr cdadr) + (spec: 0 input-port? input-port?) (spec: 0 cadar cadar) - (spec: 0 for-each for-each) - (spec: 0 cdar cdar) - (spec: 0 caar caar) - (spec: 0 read read) + (spec: 0 scheme-report-environment scheme-report-environment) + (spec: 0 complex? complex?) (spec: 0 assv assv) - (spec: 0 char-upcase char-upcase) - (spec: 0 exp exp) - (spec: 0 magnitude magnitude) - (spec: 0 = =) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 length length) - (spec: 0 list-tail list-tail) - (spec: 0 list->vector list->vector) - (spec: 0 string string) - (spec: 0 caddar caddar) - (spec: 0 force force) - (spec: 0 cddaar cddaar) - (spec: 0 reverse reverse) - (spec: 0 boolean? boolean?) - (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 transcript-off transcript-off) - (spec: 0 call-with-values call-with-values) + (spec: 0 < <) + (spec: 0 angle angle) (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 memq memq) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 peek-char peek-char) - (spec: 0 string-ciexact inexact->exact) - (spec: 0 rationalize rationalize) - (spec: 0 close-output-port close-output-port) - (spec: 0 angle angle) - (spec: 0 char>=? char>=?) - (spec: 0 <= <=) - (spec: 0 member member) - (spec: 0 set-car! set-car!) + (spec: 0 string-ci>? string-ci>?) (spec: 0 vector->list vector->list) (spec: 0 vector-length vector-length) - (spec: 0 car car) - (spec: 0 numerator numerator) + (spec: 0 call-with-values call-with-values) + (spec: 0 cddaar cddaar) + (spec: 0 floor floor) + (spec: 0 cadddr cadddr) + (spec: 0 boolean? boolean?) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 cons cons) + (spec: 0 procedure? procedure?) + (spec: 0 = =) + (spec: 0 atan atan) + (spec: 0 char-whitespace? char-whitespace?) + (spec: 0 list list) + (spec: 0 list->vector list->vector) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 transcript-off transcript-off) + (spec: 0 char-lower-case? char-lower-case?) + (spec: 0 vector? vector?) + (spec: 0 cddadr cddadr) + (spec: 0 caddr caddr) + (spec: 0 current-output-port current-output-port) + (spec: 0 symbol->string symbol->string) + (spec: 0 set-car! set-car!) + (spec: 0 exact->inexact exact->inexact) + (spec: 0 char>? char>?) + (spec: 0 eof-object? eof-object?) + (spec: 0 transcript-on transcript-on) + (spec: 0 lcm lcm) + (spec: 0 display display) + (spec: 0 number? number?) + (spec: 0 cddar cddar) + (spec: 0 tan tan) (spec: 0 cadr cadr) - (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 quotient quotient) + (spec: 0 make-polar make-polar) + (spec: 0 close-input-port close-input-port) + (spec: 0 string-ci>=? string-ci>=?) + (spec: 0 > >) + (spec: 0 charstring symbol->string) - (spec: 0 read-char read-char) - (spec: 0 make-polar make-polar) - (spec: 0 * *) - (spec: 0 char<=? char<=?) - (spec: 0 cons cons) - (spec: 0 procedure? procedure?) - (spec: 0 pair? pair?) - (spec: 0 load load) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 string->list string->list) - (spec: 0 list-ref list-ref) - (spec: 0 denominator denominator) (spec: 0 call-with-current-continuation call-with-current-continuation) - (spec: 0 cddddr cddddr) - (spec: 0 char->integer char->integer) - (spec: 0 lcm lcm) - (spec: 0 string? string-ci>?) - (spec: 0 cdaaar cdaaar) (spec: 0 remainder remainder) - (spec: 0 vector vector) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 open-output-file open-output-file) - (spec: 0 caaaar caaaar) - (spec: 0 write write) - (spec: 0 > >) - (spec: 0 map map) - (spec: 0 char-ready? char-ready?) (spec: 0 truncate truncate) - (spec: 0 cdaadr cdaadr) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 null? null?) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 sqrt sqrt) - (spec: 0 inexact? inexact?) - (spec: 0 integer->char integer->char) + (spec: 0 min min) + (spec: 0 modulo modulo) + (spec: 0 close-output-port close-output-port) (spec: 0 string<=? string<=?) (spec: 0 >= >=) - (spec: 0 eof-object? eof-object?) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 gcd gcd) - (spec: 0 char-ci? char>?) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 make-vector make-vector) - (spec: 0 string>? string>?) - (spec: 0 display display) - (spec: 0 null-environment null-environment) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 ceiling ceiling) - (spec: 0 caadar caadar) - (spec: 0 string-ref string-ref) - (spec: 0 char? char?) - (spec: 0 string-fill! string-fill!) - (spec: 0 string? string?) - (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 eqv? eqv?) - (spec: 0 vector-set! vector-set!) - (spec: 0 cdaddr cdaddr) - (spec: 0 not not) - (spec: 0 negative? negative?) - (spec: 0 caaddr caaddr) - (spec: 0 make-string make-string) - (spec: 0 - -) - (spec: 0 assoc assoc) - (spec: 0 expt expt) - (spec: 0 max max) (spec: 0 string-copy string-copy) - (spec: 0 even? even?) - (spec: 0 cdadr cdadr) - (spec: 0 real? real?) - (spec: 0 symbol? symbol?) - (spec: 0 caaadr caaadr) - (spec: 0 integer? integer?) + (spec: 0 eq? eq?) + (spec: 0 char->integer char->integer) + (spec: 0 force force) + (spec: 0 string->number string->number) + (spec: 0 cddddr cddddr) + (spec: 0 integer->char integer->char) + (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 inexact? inexact?) + (spec: 0 newline newline) + (spec: 0 rationalize rationalize) + (spec: 0 memv memv) + (spec: 0 * *) + (spec: 0 string=? char>=?) + (spec: 0 pair? pair?) + (spec: 0 list-ref list-ref) + (spec: 0 round round) + (spec: 0 char-alphabetic? char-alphabetic?) + (spec: 0 sqrt sqrt) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 cdddr cdddr) + (spec: 0 caaaar caaaar) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 + +) (spec: 0 asin asin) - (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 string>=? string>=?) + (spec: 0 log log) + (spec: 0 string=? string=?) (spec: 0 equal? equal?) - (spec: 0 values values) - (spec: 0 string->number string->number) - (spec: 0 vector-ref vector-ref) - (spec: 0 cdaar cdaar) - (spec: 0 odd? odd?) - (spec: 0 caaar caaar) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 apply apply) - (spec: 0 output-port? output-port?) - (spec: 0 string->symbol string->symbol) - (spec: 0 abs abs) - (spec: 0 cdadar cdadar) - (spec: 0 number->string number->string) - (spec: 0 char-downcase char-downcase) - (spec: 0 floor floor) + (spec: 0 gcd gcd) + (spec: 0 vector-ref vector-ref) + (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 cddr cddr) (spec: 0 real-part real-part) - (spec: 0 eval eval) - (spec: 0 cadaar cadaar) - (spec: 0 input-port? input-port?) - (spec: 0 / /) - (spec: 0 exact? exact?) - (spec: 0 string-length string-length) - (spec: 0 substring substring) - (spec: 0 write-char write-char) - (spec: 0 zero? zero?) - (spec: 0 string-append string-append) - (spec: 0 cadddr cadddr) - (spec: 0 cddadr cddadr) - (spec: 0 cadadr cadadr) - (spec: 0 atan atan) - (spec: 0 complex? complex?) - (spec: 0 string-ci<=? string-ci<=?) - (spec: 0 list->string list->string) - (spec: 0 number? number?) - (spec: 0 caddr caddr) - (spec: 0 vector? vector?) - (spec: 0 cddar cddar) - (spec: 0 caadr caadr) - (spec: 0 string-set! string-set!) - (spec: 0 assq assq) - (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 list? list?) + (spec: 0 caaadr caaadr) + (spec: 0 make-rectangular make-rectangular) + (spec: 0 - -) + (spec: 0 make-vector make-vector) + (spec: 0 char? char?) + (spec: 0 set-cdr! set-cdr!) + (spec: 0 string->list string->list) + (spec: 0 with-input-from-file with-input-from-file) + (spec: 0 char-cisyntax datum->syntax) - (spec: 1 alias-binding? alias-binding?) - (spec: 1 module-context? module-context?) - (spec: 1 stx-eq? stx-eq?) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 stx-string? stx-string?) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 expander-binding? expander-binding?) + (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 stx-char? stx-char?) + (spec: 1 expander-e expander-e) (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 eval-module eval-module) - (spec: 1 stx-source stx-source) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 module-import? module-import?) - (spec: 1 module-import-source module-import-source) - (spec: 1 raise-syntax-error raise-syntax-error) - (spec: 1 stx-for-each stx-for-each) + (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 stx-null? stx-null?) + (spec: 1 top-context? top-context?) (spec: 1 module-context-ns module-context-ns) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 import-module import-module) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 stx-map stx-map) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 stx-wrap-source stx-wrap-source) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 identifier? identifier?) + (spec: 1 stx-false? stx-false?) + (spec: 1 import-expander? import-expander?) + (spec: 1 stx-foldl stx-foldl) (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 top-context? top-context?) - (spec: 1 syntax->list syntax->list) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 macro-expand-syntax macro-expand-syntax) + (spec: 1 genident genident) + (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 core-resolve-identifier core-resolve-identifier) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 make-import-expander make-import-expander) + (spec: 1 module-export-weak? module-export-weak?) (spec: 1 current-expander-path current-expander-path) - (spec: 1 stx-null? stx-null?) - (spec: 1 module-binding? module-binding?) + (spec: 1 prelude-context? prelude-context?) + (spec: 1 expander-context-id expander-context-id) + (spec: 1 stx-car stx-car) + (spec: 1 eval-module eval-module) + (spec: 1 module-import? module-import?) (spec: 1 module-export? module-export?) - (spec: 1 make-user-expander make-user-expander) - (spec: 1 module-export-key module-export-key) - (spec: 1 stx-andmap stx-andmap) - (spec: 1 underscore? underscore?) - (spec: - 1 - core-resolve-library-module-path - core-resolve-library-module-path) - (spec: 1 module-context-import module-context-import) - (spec: 1 make-module-import make-module-import) - (spec: 1 export-set-phi export-set-phi) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 stx-pair? stx-pair?) (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 extern-binding? extern-binding?) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 expander-context-id expander-context-id) + (spec: 1 stx-foldr stx-foldr) (spec: 1 import-binding-e import-binding-e) + (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 module-import-phi module-import-phi) + (spec: 1 make-module-import make-module-import) + (spec: 1 make-export-expander make-export-expander) + (spec: 1 core-expand-export-source core-expand-export-source) (spec: 1 syntax-pattern? syntax-pattern?) - (spec: 1 stx-length stx-length) - (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 core-library-module-path? core-library-module-path?) (spec: 1 import-set-imports import-set-imports) - (spec: 1 stx-foldr stx-foldr) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 syntax->datum syntax->datum) + (spec: 1 export-set-source export-set-source) + (spec: 1 stx-equal? stx-equal?) + (spec: 1 datum->syntax datum->syntax) + (spec: 1 expander? expander?) + (spec: 1 macro-expand-syntax macro-expand-syntax) + (spec: 1 stx-last-pair stx-last-pair) + (spec: 1 current-module-reader-args current-module-reader-args) + (spec: 1 make-local-context make-local-context) + (spec: 1 stx-vector? stx-vector?) + (spec: 1 stx-cdr stx-cdr) (spec: 1 stx-list? stx-list?) - (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 core-identifier=? core-identifier=?) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 import-expander? import-expander?) - (spec: 1 core-context-top core-context-top) + (spec: 1 stx-map stx-map) + (spec: 1 underscore? underscore?) (spec: 1 module-context-code module-context-code) - (spec: 1 local-context? local-context?) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 stx-vector? stx-vector?) - (spec: 1 genident genident) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 stx-number? stx-number?) + (spec: + 1 + core-resolve-library-module-path + core-resolve-library-module-path) + (spec: 1 user-expander? user-expander?) + (spec: 1 gentemps gentemps) + (spec: 1 import-binding? import-binding?) + (spec: 1 stx-getq stx-getq) (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 export-expander? export-expander?) - (spec: 1 identifier? identifier?) - (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 syntax-local-pattern? syntax-local-pattern?) + (spec: 1 top-binding? top-binding?) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 module-import-source module-import-source) + (spec: 1 stx-source stx-source) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 import-module import-module) + (spec: 1 free-identifier=? free-identifier=?) + (spec: 1 stx-identifier stx-identifier) + (spec: 1 stx-andmap stx-andmap) + (spec: 1 syntax-local-introduce syntax-local-introduce) + (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 syntax->list syntax->list) (spec: 1 stx-reverse stx-reverse) - (spec: 1 module-export-name module-export-name) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 stx-last stx-last) - (spec: 1 module-context-export module-context-export) - (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 user-expander? user-expander?) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 stx-boolean? stx-boolean?) + (spec: 1 eval-syntax eval-syntax) + (spec: 1 stx-plist? stx-plist?) + (spec: 1 core-context-top core-context-top) + (spec: 1 module-export-key module-export-key) + (spec: 1 user-expander-context user-expander-context) + (spec: 1 import-set? import-set?) + (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 export-set-phi export-set-phi) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 syntax-binding-e syntax-binding-e) + (spec: 1 feature-expander? feature-expander?) + (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 core-resolve-module-path core-resolve-module-path) (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 export-set? export-set?) - (spec: 1 stx-equal? stx-equal?) (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 core-expand-head core-expand-head) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 module-export-context module-export-context) - (spec: 1 import-set? import-set?) - (spec: 1 gentemps gentemps) - (spec: 1 binding? binding?) - (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 import-binding? import-binding?) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 current-module-reader-args current-module-reader-args) (spec: 1 stx-box? stx-box?) - (spec: 1 stx-getq stx-getq) - (spec: 1 make-module-export make-module-export) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) + (spec: 1 stx-number? stx-number?) + (spec: 1 binding-id binding-id) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 raise-syntax-error raise-syntax-error) + (spec: 1 stx-for-each stx-for-each) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 extern-binding? extern-binding?) + (spec: 1 module-export-name module-export-name) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) + (spec: 1 syntax->datum syntax->datum) + (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 local-context? local-context?) + (spec: 1 core-expand-head core-expand-head) (spec: 1 import-set-source import-set-source) - (spec: 1 stx-char? stx-char?) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 module-import-name module-import-name) - (spec: 1 current-module-reader-path current-module-reader-path) (spec: 1 stx-ormap stx-ormap) - (spec: 1 stx-fixnum? stx-fixnum?) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 stx-false? stx-false?) - (spec: 1 syntax-e syntax-e) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 stx-datum? stx-datum?) + (spec: 1 export-set? export-set?) + (spec: 1 alias-binding? alias-binding?) (spec: 1 alias-binding-e alias-binding-e) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 expander-e expander-e) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 ExpanderRuntime ExpanderRuntime) + (spec: 1 module-context-export module-context-export) + (spec: 1 stx-string? stx-string?) + (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) + (spec: 1 syntax-e syntax-e) + (spec: 1 stx-e stx-e) + (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) + (spec: 1 core-expand core-expand) + (spec: 1 identifier-list? identifier-list?) + (spec: 1 binding? binding?) + (spec: 1 import-set-phi import-set-phi) + (spec: 1 module-binding? module-binding?) + (spec: 1 module-context? module-context?) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 stx-eq? stx-eq?) + (spec: 1 stx-last stx-last) (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-type-set! type-env-type-set!) - (spec: 2 &type-env-type-set! &type-env-type-set!) + (spec: 2 &type-env-checked?-set! &type-env-checked?-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? type-env?) - (spec: 2 type-env-checked?-set! type-env-checked?-set!) (spec: 2 &type-env-type &type-env-type) - (spec: 2 &type-env-super-set! &type-env-super-set!) - (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 make-type-env make-type-env) (spec: 2 type-env-super type-env-super) - (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 type-env-lookup type-env-lookup) - (spec: 2 &type-env-super &type-env-super) - (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 2 type-env-type type-env-type) + (spec: 2 &type-env-super-set! &type-env-super-set!) (spec: 2 type-env-var type-env-var) (spec: 2 type-env-super-set! type-env-super-set!) + (spec: 2 make-type-env make-type-env) + (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 type-env-var-set! type-env-var-set!) + (spec: 2 type-env? type-env?) + (spec: 2 &type-env-type-set! &type-env-type-set!) + (spec: 2 type-env-checked?-set! type-env-checked?-set!) (spec: 2 &type-env-checked? &type-env-checked?) (spec: 2 type-env type-env) + (spec: 2 &type-env-super &type-env-super) (spec: 2 type-env-checked? type-env-checked?) (spec: 2 &type-env-var &type-env-var) + (spec: 2 type-env::t type-env::t) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) - (spec: 2 interface-info::t interface-info::t) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 2 interface-info-interface-mixin-set! interface-info-interface-mixin-set!) (spec: 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) + (spec: + 2 + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 2 interface-info-instance-type interface-info-instance-type) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-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) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) + (spec: 2 interface-info-name-set! interface-info-name-set!) (spec: 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: 2 make-interface-info make-interface-info) + (spec: 2 interface-info? interface-info?) (spec: 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) - (spec: 2 interface-info? interface-info?) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) - (spec: 2 &interface-info-name &interface-info-name) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 2 interface-info-instance-type interface-info-instance-type) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 2 &interface-info-interface-methods &interface-info-interface-methods) + (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) + (spec: 2 interface-info-name interface-info-name) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) - (spec: 2 interface-info-name-set! interface-info-name-set!) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 2 &interface-info-instance-predicate-set! &interface-info-instance-predicate-set!) - (spec: 2 interface-info-name interface-info-name) + (spec: + 2 + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: + 2 + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 &interface-info-implementation-methods-set! &interface-info-implementation-methods-set!) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 2 interface-info interface-info) - (spec: - 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) (spec: 2 &interface-info-instance-try-constructor &interface-info-instance-try-constructor) - (spec: 2 make-interface-info make-interface-info) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 2 interface-info-implementation-methods interface-info-implementation-methods) - (spec: - 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) - (spec: - 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 is-signature? is-signature?) - (spec: 1 defstruct/c defstruct/c) - (spec: 1 do-while/c do-while/c) - (spec: 1 @method @method) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 defclass/c defclass/c) - (spec: 1 def*/c def*/c) - (spec: 1 with-procedure-signature with-procedure-signature) (spec: 1 case-lambda/c case-lambda/c) - (spec: 1 do/c do/c) - (spec: 1 do-loop-step do-loop-step) - (spec: 1 def/c def/c) - (spec: 1 defmutable defmutable) - (spec: 1 do-loop-result do-loop-result) - (spec: 1 lambda/c lambda/c) - (spec: 1 with-procedure-contract with-procedure-contract) (spec: 1 with-procedure-unchecked-contract with-procedure-unchecked-contract) + (spec: 1 with-procedure-contract with-procedure-contract) + (spec: 1 defclass/c defclass/c) + (spec: 1 do-loop-step do-loop-step) + (spec: 1 defmethod/c defmethod/c) + (spec: 1 do-loop-result do-loop-result) + (spec: 1 do-while/c do-while/c) + (spec: 1 @method @method) + (spec: 1 defstruct/c defstruct/c) + (spec: 1 lambda/c lambda/c) (spec: 1 with-receiver with-receiver) - (spec: 1 defmutable* defmutable*) + (spec: 1 def/c def/c) (spec: 1 let/c let/c) - (spec: - 2 - compatible-signature-type-contract? - compatible-signature-type-contract?) + (spec: 1 defmutable* defmutable*) + (spec: 1 def*/c def*/c) + (spec: 1 with-procedure-signature with-procedure-signature) + (spec: 1 do/c do/c) + (spec: 1 defmutable defmutable) + (spec: 2 signature-contract? signature-contract?) (spec: 2 signature-arguments-out signature-arguments-out) - (spec: 2 check-signature-spec! check-signature-spec!) (spec: 2 make-interface-method-contract make-interface-method-contract) - (spec: 2 signature-contract? signature-contract?) - (spec: 2 compatible-type-contract? compatible-type-contract?) - (spec: 2 signature-has-keywords? signature-has-keywords?) - (spec: 2 signature-type-contract signature-type-contract) - (spec: 2 signature-arity signature-arity) + (spec: 2 symboltype-descriptor resolve-type->type-descriptor) (spec: 2 type-reference type-reference) - (spec: 2 type-reference-identifier type-reference-identifier) + (spec: 2 type-reference::t type-reference::t) + (spec: 2 type-reference? type-reference?) + (spec: 2 resolve-type->identifier resolve-type->identifier) (spec: 2 type-reference-identifier-set! @@ -3825,49 +3830,45 @@ namespace: gerbil/core 2 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 2 resolve-type resolve-type) - (spec: 2 type-reference? type-reference?) - (spec: 2 type-reference::t type-reference::t) (spec: 2 &type-reference-identifier &type-reference-identifier) - (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 2 resolve-type resolve-type) + (spec: 2 type-reference-identifier type-reference-identifier) (spec: 2 make-type-reference make-type-reference) - (spec: 2 type-identifier? type-identifier?) - (spec: 2 resolve-type->identifier resolve-type->identifier) (spec: 1 deftype deftype) + (spec: 1 InterfaceInfo InterfaceInfo) (spec: 1 ContractRules ContractRules) - (spec: 1 ClassMeta ClassMeta) - (spec: 1 TypeCast TypeCast) + (spec: 1 TypedDefinitions TypedDefinitions) (spec: 1 Interface Interface) + (spec: 1 ClassMeta ClassMeta) (spec: 1 TypeReference TypeReference) (spec: 1 TypeEnv TypeEnv) - (spec: 1 TypedDefinitions TypedDefinitions) + (spec: 1 TypeCast TypeCast) (spec: 1 Using Using) - (spec: 1 InterfaceInfo InterfaceInfo) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 setf-macro::t setf-macro::t) (spec: 2 setf-macro setf-macro) - (spec: 2 setq-macro::t setq-macro::t) (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 2 &setq-macro-macro &setq-macro-macro) - (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 make-setf-macro make-setf-macro) + (spec: 2 setf-macro::t setf-macro::t) + (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 2 make-setq-macro make-setq-macro) (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 setq-macro? setq-macro?) - (spec: 2 setf-macro? setf-macro?) - (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 make-setf-macro make-setf-macro) + (spec: 2 setq-macro-macro setq-macro-macro) + (spec: 2 expand-set! expand-set!) (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 make-setq-macro make-setq-macro) + (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 setf-macro-macro-set! setf-macro-macro-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 setq-macro::t setq-macro::t) + (spec: 2 setf-macro? setf-macro?) (spec: 2 setq-macro setq-macro) - (spec: 2 expand-set! expand-set!) - (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 1 @bytes @bytes) - (spec: 1 let/cc let/cc) (spec: 1 unwind-protect unwind-protect) - (spec: 1 parameterize parameterize) (spec: 1 eval-when-compile eval-when-compile) + (spec: 1 parameterize parameterize) + (spec: 1 let/cc let/cc) (spec: 1 values-set! values-set!) + (spec: 1 @bytes @bytes) (spec: 2 match-pattern? match-pattern?) (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) (spec: 2 match-macro? match-macro?) @@ -3875,2536 +3876,2537 @@ namespace: gerbil/core (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) (spec: 1 match* match*) - (spec: 1 defrules-for-match defrules-for-match) + (spec: 1 match match) + (spec: 1 with with) + (spec: 1 defsyntax-for-match defsyntax-for-match) (spec: 1 with* with*) + (spec: 1 defrules-for-match defrules-for-match) (spec: 1 ? ?) - (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 with with) - (spec: 1 match match) + (spec: 1 :null :null) + (spec: 1 :condvar :condvar) + (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :atom :atom) + (spec: 1 :class :class) + (spec: 1 :eof :eof) (spec: 1 :vector-port :vector-port) - (spec: 1 :character-port :character-port) - (spec: 1 :string-port :string-port) - (spec: 1 :file-info :file-info) - (spec: 1 :socket-info :socket-info) - (spec: 1 :symbol :symbol) - (spec: 1 :list :list) - (spec: 1 :string :string) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :sequence :sequence) - (spec: 1 :foreign :foreign) - (spec: 1 class class) (spec: 1 :u32vector :u32vector) - (spec: 1 :procedure :procedure) - (spec: 1 :condvar :condvar) - (spec: 1 :byte-port :byte-port) (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :udp-port :udp-port) - (spec: 1 :integer :integer) - (spec: 1 :special :special) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :symbolic :symbolic) - (spec: 1 :true :true) - (spec: 1 :keyword :keyword) - (spec: 1 :null :null) - (spec: 1 :s32vector :s32vector) - (spec: 1 :flonum :flonum) - (spec: 1 :table :table) - (spec: 1 :address-info :address-info) - (spec: 1 :false :false) - (spec: 1 :thread-group :thread-group) - (spec: 1 :object :object) - (spec: 1 :atom :atom) - (spec: 1 :char :char) - (spec: 1 :void :void) - (spec: 1 :vector :vector) - (spec: 1 :values :values) - (spec: 1 :s8vector :s8vector) + (spec: 1 :readenv :readenv) (spec: 1 :f32vector :f32vector) + (spec: 1 :processor :processor) (spec: 1 :vm :vm) - (spec: 1 :mutex :mutex) - (spec: 1 :continuation :continuation) - (spec: 1 :pair :pair) + (spec: 1 :immediate :immediate) (spec: 1 :object-port :object-port) - (spec: 1 :boolean :boolean) - (spec: 1 :frame :frame) + (spec: 1 :u16vector :u16vector) + (spec: 1 :symbol :symbol) + (spec: 1 :thread-group :thread-group) + (spec: 1 :s64vector :s64vector) + (spec: 1 :port :port) + (spec: 1 :readtable :readtable) + (spec: 1 :file-info :file-info) + (spec: 1 :writeenv :writeenv) + (spec: 1 :socket-info :socket-info) + (spec: 1 :address-info :address-info) + (spec: 1 :time :time) (spec: 1 :device-port :device-port) + (spec: 1 :sequence :sequence) + (spec: 1 :char :char) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :void :void) + (spec: 1 :t :t) + (spec: 1 :weak :weak) (spec: 1 :u8vector :u8vector) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :readenv :readenv) - (spec: 1 :immediate :immediate) - (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :fixnum :fixnum) - (spec: 1 :hvector :hvector) - (spec: 1 :weak :weak) - (spec: 1 :t :t) - (spec: 1 :s16vector :s16vector) - (spec: 1 :eof :eof) + (spec: 1 :values :values) + (spec: 1 :character-port :character-port) + (spec: 1 :u64vector :u64vector) + (spec: 1 :string-port :string-port) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :hvector :hvector) + (spec: 1 :udp-port :udp-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :keyword :keyword) + (spec: 1 class class) + (spec: 1 :object :object) + (spec: 1 :s8vector :s8vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :box :box) + (spec: 1 :frame :frame) (spec: 1 :promise :promise) - (spec: 1 :time :time) + (spec: 1 :foreign :foreign) + (spec: 1 :thread :thread) + (spec: 1 :raw-device-port :raw-device-port) (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :writeenv :writeenv) (spec: 1 :bignum :bignum) - (spec: 1 :port :port) + (spec: 1 :table :table) + (spec: 1 :integer :integer) + (spec: 1 :true :true) + (spec: 1 :number :number) + (spec: 1 :vector :vector) + (spec: 1 :s16vector :s16vector) + (spec: 1 :continuation :continuation) + (spec: 1 :procedure :procedure) + (spec: 1 :flonum :flonum) + (spec: 1 :special :special) + (spec: 1 :mutex :mutex) (spec: 1 :ratnum :ratnum) - (spec: 1 :s64vector :s64vector) - (spec: 1 :processor :processor) - (spec: 1 :u64vector :u64vector) - (spec: 1 :thread :thread) - (spec: 1 :class :class) - (spec: 1 :f64vector :f64vector) + (spec: 1 :pair :pair) + (spec: 1 :boolean :boolean) + (spec: 1 :false :false) + (spec: 1 :string :string) + (spec: 1 :list :list) + (spec: 1 :s32vector :s32vector) (spec: 1 :real :real) - (spec: 1 :directory-port :directory-port) - (spec: 1 :number :number) - (spec: 1 :readtable :readtable) - (spec: 1 @ @) + (spec: 1 :byte-port :byte-port) + (spec: 1 :symbolic :symbolic) (spec: 1 @-set! @-set!) - (spec: 1 define-struct define-struct) (spec: 1 define-class define-class) + (spec: 1 @ @) + (spec: 1 define-struct define-struct) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) - (spec: 1 MOP-1 MOP-1) + (spec: 1 MOP-3 MOP-3) + (spec: 1 MOP-2 MOP-2) (spec: 1 MOP-4 MOP-4) + (spec: 1 MOP-1 MOP-1) (spec: 1 MOP-5 MOP-5) - (spec: 1 MOP-2 MOP-2) - (spec: 1 MOP-3 MOP-3) + (spec: 1 :null :null) + (spec: 1 :condvar :condvar) + (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :atom :atom) + (spec: 1 :class :class) + (spec: 1 :eof :eof) (spec: 1 :vector-port :vector-port) - (spec: 1 :character-port :character-port) - (spec: 1 :string-port :string-port) - (spec: 1 :file-info :file-info) - (spec: 1 :socket-info :socket-info) - (spec: 1 :symbol :symbol) - (spec: 1 :list :list) - (spec: 1 :string :string) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :sequence :sequence) - (spec: 1 :foreign :foreign) - (spec: 1 class class) (spec: 1 :u32vector :u32vector) - (spec: 1 :procedure :procedure) - (spec: 1 :condvar :condvar) - (spec: 1 :byte-port :byte-port) (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :udp-port :udp-port) - (spec: 1 :integer :integer) - (spec: 1 :special :special) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :symbolic :symbolic) - (spec: 1 :true :true) - (spec: 1 :keyword :keyword) - (spec: 1 :null :null) - (spec: 1 :s32vector :s32vector) - (spec: 1 :flonum :flonum) - (spec: 1 :table :table) - (spec: 1 :address-info :address-info) - (spec: 1 :false :false) - (spec: 1 :thread-group :thread-group) - (spec: 1 :object :object) - (spec: 1 :atom :atom) - (spec: 1 :char :char) - (spec: 1 :void :void) - (spec: 1 :vector :vector) - (spec: 1 :values :values) - (spec: 1 :s8vector :s8vector) + (spec: 1 :readenv :readenv) (spec: 1 :f32vector :f32vector) + (spec: 1 :processor :processor) (spec: 1 :vm :vm) - (spec: 1 :mutex :mutex) - (spec: 1 :continuation :continuation) - (spec: 1 :pair :pair) + (spec: 1 :immediate :immediate) (spec: 1 :object-port :object-port) - (spec: 1 :boolean :boolean) - (spec: 1 :frame :frame) + (spec: 1 :u16vector :u16vector) + (spec: 1 :symbol :symbol) + (spec: 1 :thread-group :thread-group) + (spec: 1 :s64vector :s64vector) + (spec: 1 :port :port) + (spec: 1 :readtable :readtable) + (spec: 1 :file-info :file-info) + (spec: 1 :writeenv :writeenv) + (spec: 1 :socket-info :socket-info) + (spec: 1 :address-info :address-info) + (spec: 1 :time :time) (spec: 1 :device-port :device-port) + (spec: 1 :sequence :sequence) + (spec: 1 :char :char) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :void :void) + (spec: 1 :t :t) + (spec: 1 :weak :weak) (spec: 1 :u8vector :u8vector) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :readenv :readenv) - (spec: 1 :immediate :immediate) - (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :fixnum :fixnum) + (spec: 1 :values :values) + (spec: 1 :character-port :character-port) + (spec: 1 :u64vector :u64vector) + (spec: 1 :string-port :string-port) + (spec: 1 :tcp-server-port :tcp-server-port) (spec: 1 :hvector :hvector) - (spec: 1 :weak :weak) - (spec: 1 :t :t) - (spec: 1 :s16vector :s16vector) - (spec: 1 :eof :eof) + (spec: 1 :udp-port :udp-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :keyword :keyword) + (spec: 1 class class) + (spec: 1 :object :object) + (spec: 1 :s8vector :s8vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :box :box) + (spec: 1 :frame :frame) (spec: 1 :promise :promise) - (spec: 1 :time :time) + (spec: 1 :foreign :foreign) + (spec: 1 :thread :thread) + (spec: 1 :raw-device-port :raw-device-port) (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :writeenv :writeenv) (spec: 1 :bignum :bignum) - (spec: 1 :port :port) + (spec: 1 :table :table) + (spec: 1 :integer :integer) + (spec: 1 :true :true) + (spec: 1 :number :number) + (spec: 1 :vector :vector) + (spec: 1 :s16vector :s16vector) + (spec: 1 :continuation :continuation) + (spec: 1 :procedure :procedure) + (spec: 1 :flonum :flonum) + (spec: 1 :special :special) + (spec: 1 :mutex :mutex) (spec: 1 :ratnum :ratnum) - (spec: 1 :s64vector :s64vector) - (spec: 1 :processor :processor) - (spec: 1 :u64vector :u64vector) - (spec: 1 :thread :thread) - (spec: 1 :class :class) - (spec: 1 :f64vector :f64vector) + (spec: 1 :pair :pair) + (spec: 1 :boolean :boolean) + (spec: 1 :false :false) + (spec: 1 :string :string) + (spec: 1 :list :list) + (spec: 1 :s32vector :s32vector) (spec: 1 :real :real) - (spec: 1 :directory-port :directory-port) - (spec: 1 :number :number) - (spec: 1 :readtable :readtable) - (spec: 1 @ @) + (spec: 1 :byte-port :byte-port) + (spec: 1 :symbolic :symbolic) (spec: 1 @-set! @-set!) - (spec: 1 define-struct define-struct) (spec: 1 define-class define-class) + (spec: 1 @ @) + (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-slots-set! !class-type-slots-set!) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) - (spec: - 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: - 1 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) (spec: 1 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) - (spec: 1 make-class-type-info make-class-type-info) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) (spec: 1 - !class-type-constructor-method-set! - !class-type-constructor-method-set!) + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) + (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) (spec: 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-id-set! !class-type-id-set!) + &!class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors-set!) + (spec: 1 !class-type-constructor !class-type-constructor) (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) - (spec: - 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 !class-type-system? !class-type-system?) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: 1 !class-type-name-set! !class-type-name-set!) - (spec: 1 !class-type-metaclass !class-type-metaclass) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) (spec: 1 !class-type-slot-defaults-set! !class-type-slot-defaults-set!) - (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 !class-type-super !class-type-super) (spec: - 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) - (spec: - 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 !class-type-slot-types !class-type-slot-types) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 &!class-type-accessors &!class-type-accessors) - (spec: 1 !class-type-predicate !class-type-predicate) + 1 + !class-type-unchecked-accessors + !class-type-unchecked-accessors) + (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) (spec: 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) + !class-type-slot-contracts-set! + !class-type-slot-contracts-set!) + (spec: 1 &!class-type-constructor &!class-type-constructor) (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) (spec: 1 - &!class-type-slot-contracts-set! - &!class-type-slot-contracts-set!) + !class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set!) (spec: 1 &!class-type-id &!class-type-id) - (spec: 1 !class-type-id !class-type-id) + (spec: 1 &!class-type-super &!class-type-super) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) + (spec: 1 !class-type-super-set! !class-type-super-set!) (spec: 1 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) (spec: 1 - !class-type-slot-contracts-set! - !class-type-slot-contracts-set!) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) + &!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-slot-contracts &!class-type-slot-contracts) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) (spec: 1 !class-type-constructor-method !class-type-constructor-method) - (spec: 1 !class-type-mutators !class-type-mutators) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 1 &!class-type-predicate &!class-type-predicate) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) (spec: 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) - (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) - (spec: 1 &!class-type-struct? &!class-type-struct?) - (spec: 1 &!class-type-slots &!class-type-slots) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) (spec: 1 - !class-type-unchecked-mutators-set! - !class-type-unchecked-mutators-set!) + !class-type-constructor-method-set! + !class-type-constructor-method-set!) + (spec: 1 &!class-type-slots &!class-type-slots) + (spec: 1 &!class-type-struct? &!class-type-struct?) (spec: 1 &!class-type-slot-types &!class-type-slot-types) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 &!class-type-name-set! &!class-type-name-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) + (spec: 1 &!class-type-name &!class-type-name) + (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) + (spec: 1 !class-type-slot-types !class-type-slot-types) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + (spec: + 1 + !class-type-precedence-list-set! + !class-type-precedence-list-set!) + (spec: 1 !class-type-struct? !class-type-struct?) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) + (spec: 1 !class-type-id-set! !class-type-id-set!) + (spec: 1 !class-type-super !class-type-super) + (spec: 1 !class-type-descriptor !class-type-descriptor) + (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + (spec: 1 &!class-type-system? &!class-type-system?) + (spec: 1 !class-type-system? !class-type-system?) (spec: 1 &!class-type-precedence-list-set! &!class-type-precedence-list-set!) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) (spec: 1 - &!class-type-slot-defaults-set! - &!class-type-slot-defaults-set!) - (spec: 1 &!class-type-predicate &!class-type-predicate) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: 1 !class-type-system?-set! !class-type-system?-set!) + (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) + (spec: 1 !class-type-accessors !class-type-accessors) + (spec: 1 &!class-type-name-set! &!class-type-name-set!) + (spec: 1 !class-type-final?-set! !class-type-final?-set!) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) (spec: 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) + !class-type-unchecked-mutators + !class-type-unchecked-mutators) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) + (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) + (spec: 1 !class-type-slots !class-type-slots) + (spec: 1 !class-type-id !class-type-id) + (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + (spec: 1 !class-type-metaclass !class-type-metaclass) + (spec: 1 &!class-type-mutators &!class-type-mutators) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 make-class-type-info make-class-type-info) + (spec: + 1 + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 !class-type-predicate !class-type-predicate) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: + 1 + &!class-type-slot-contracts-set! + &!class-type-slot-contracts-set!) + (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 1 !class-type-name !class-type-name) (spec: 1 !class-type-final? !class-type-final?) - (spec: 1 !class-type-super-set! !class-type-super-set!) - (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + (spec: 1 &!class-type-accessors &!class-type-accessors) (spec: 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-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 defsyntax defsyntax) (spec: 1 defconst defconst) + (spec: 1 defsyntax defsyntax) (spec: 1 definline definline) + (spec: 1 ~case ~case) (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 defvalues defvalues) + (spec: 1 begin0 begin0) + (spec: 1 cut cut) + (spec: 1 <...> <...>) (spec: 1 delay delay) - (spec: 1 case case) + (spec: 1 alet alet) (spec: 1 ~case-dispatch ~case-dispatch) - (spec: 1 quasiquote quasiquote) - (spec: 1 cut cut) - (spec: 1 begin0 begin0) (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 1 alet alet) - (spec: 1 <> <>) - (spec: 1 ~case ~case) - (spec: 1 <...> <...>) (spec: 1 ~case-test ~case-test) (spec: 1 rec rec) - (spec: 1 alet* alet*) (spec: 1 and-let* and-let*) (spec: 1 @list @list) + (spec: 1 quasiquote quasiquote) + (spec: 1 <> <>) + (spec: 1 defvalues defvalues) + (spec: 1 alet* alet*) + (spec: 1 case case) (spec: 1 letrec* letrec*) - (spec: 1 and and) - (spec: 1 defrules defrules) - (spec: 1 define-rules define-rules) - (spec: 1 cond cond) - (spec: 1 let* let*) + (spec: 1 defsyntax% defsyntax%) (spec: 1 unless unless) - (spec: 1 let*-values let*-values) - (spec: 1 ~let ~let) (spec: 1 syntax-error syntax-error) + (spec: 1 define define) + (spec: 1 when when) + (spec: 1 and and) (spec: 1 defalias defalias) + (spec: 1 cond cond) (spec: 1 defrule defrule) + (spec: 1 let* let*) + (spec: 1 ~let ~let) + (spec: 1 defrules defrules) + (spec: 1 define-rules define-rules) + (spec: 1 let*-values let*-values) (spec: 1 or or) - (spec: 1 when when) - (spec: 1 define define) - (spec: 1 defsyntax% defsyntax%) (spec: 1 letrec letrec) - (spec: 1 call/parameters call/parameters) - (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) - (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 cdr-set! cdr-set!) - (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 car-set! car-set!) (spec: 1 s16vector-ref-set! s16vector-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 f64vector-ref-set! f64vector-ref-set!) (spec: 1 u32vector-ref-set! u32vector-ref-set!) (spec: 1 call/values call/values) - (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 random-bytes random-bytes) + (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 cdr-set! cdr-set!) + (spec: 1 string-ref-set! string-ref-set!) (spec: 1 f32vector-ref-set! f32vector-ref-set!) + (spec: 1 s64vector-ref-set! s64vector-ref-set!) + (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 vector-ref-set! vector-ref-set!) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 random-source-make-bytes random-source-make-bytes) (spec: 1 u16vector-ref-set! u16vector-ref-set!) + (spec: 1 call/parameters call/parameters) + (spec: 1 car-set! car-set!) + (spec: 1 u8vector-ref-set! u8vector-ref-set!) (spec: 1 box-set! box-set!) - (spec: 1 number::t number::t) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 hash-key? hash-key?) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 displayln displayln) - (spec: 1 string->bytes string->bytes) - (spec: 1 condvar::t condvar::t) - (spec: 1 AST-e AST-e) - (spec: 1 class-type-final? class-type-final?) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 foreign::t foreign::t) - (spec: 1 object::t object::t) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 char::t char::t) - (spec: 1 promise::t promise::t) - (spec: 1 error? error?) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 load-path load-path) - (spec: 1 class-instance? class-instance?) - (spec: 1 keyword::t keyword::t) - (spec: 1 remove1 remove1) - (spec: 1 read-u8vector read-u8vector) + (spec: 1 random-bytes random-bytes) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 list->hash-table list->hash-table) + (spec: 1 character-port::t character-port::t) + (spec: 1 procedure::t procedure::t) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 raw-device-port::t raw-device-port::t) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 pget pget) - (spec: 1 fx1+ fx1+) - (spec: 1 make-promise make-promise) - (spec: 1 values-ref values-ref) - (spec: 1 immediate-instance-of? immediate-instance-of?) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 unbound-key-error? unbound-key-error?) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 new-instance new-instance) + (spec: 1 file-info::t file-info::t) (spec: 1 object? object?) - (spec: 1 method-ref method-ref) - (spec: 1 string-split string-split) - (spec: 1 flonum::t flonum::t) - (spec: 1 andmap andmap) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 create-directory* create-directory*) - (spec: 1 slot-ref slot-ref) - (spec: 1 character-port::t character-port::t) - (spec: 1 event-queue-port::t event-queue-port::t) - (spec: 1 remv remv) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 max-char-code max-char-code) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 spawn/name spawn/name) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) (spec: 1 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 1 class-type? class-type?) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 try-cast try-cast) - (spec: 1 fx1- fx1-) - (spec: 1 object-port? object-port?) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 values::t values::t) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 procedure::t procedure::t) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 string-rindex string-rindex) - (spec: 1 eof::t eof::t) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 error-message error-message) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 string-empty? string-empty?) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 class->list class->list) - (spec: 1 class::t class::t) - (spec: 1 remf remf) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 true? true?) - (spec: 1 object-type object-type) - (spec: 1 pair::t pair::t) - (spec: 1 values->list values->list) - (spec: 1 immediate? immediate?) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 hvector::t hvector::t) - (spec: 1 eq-hash eq-hash) - (spec: 1 u8vector-port::t u8vector-port::t) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 &class-type-flags &class-type-flags) + (spec: 1 &class-type-super &class-type-super) + (spec: 1 values-ref values-ref) (spec: 1 processor::t processor::t) - (spec: 1 symbol::t symbol::t) - (spec: 1 address-info::t address-info::t) - (spec: 1 file-info::t file-info::t) - (spec: 1 error-trace error-trace) - (spec: 1 1+ 1+) - (spec: 1 string-hash string-hash) - (spec: 1 make-keyword make-keyword) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 with-catch with-catch) - (spec: 1 cast cast) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 pgetq pgetq) - (spec: 1 fx/ fx/) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 hvector? hvector?) - (spec: 1 values-count values-count) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 bytes->string bytes->string) - (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 character-port? character-port?) (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 satisfies? satisfies?) - (spec: 1 new-instance new-instance) - (spec: 1 foldl foldl) - (spec: 1 aget aget) - (spec: 1 slot-set! slot-set!) - (spec: 1 false::t false::t) - (spec: 1 1- 1-) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 device-port::t device-port::t) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 raise-unbound-key-error raise-unbound-key-error) + (spec: 1 pair::t pair::t) + (spec: 1 hvector? hvector?) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 u8vector::t u8vector::t) + (spec: 1 byte-port::t byte-port::t) (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 hash-put! hash-put!) - (spec: 1 hash->list hash->list) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 boolean::t boolean::t) - (spec: 1 hash-map hash-map) - (spec: 1 fx=0? fx=0?) - (spec: 1 cons* cons*) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 integer::t integer::t) - (spec: 1 vector-port? vector-port?) - (spec: 1 hash-merge! hash-merge!) - (spec: 1 spawn/group spawn/group) - (spec: 1 t::t t::t) (spec: 1 mutex::t mutex::t) - (spec: 1 error-object? error-object?) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 with-lock with-lock) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 device-port? device-port?) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 class-of class-of) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 class-type-seal! class-type-seal!) - (spec: 1 spawn/name spawn/name) - (spec: 1 thread::t thread::t) - (spec: 1 fx>0? fx>0?) - (spec: 1 vector::t vector::t) - (spec: 1 gerbil-system gerbil-system) - (spec: 1 immediate::t immediate::t) - (spec: 1 eof-object eof-object) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 character-port? character-port?) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 as-string as-string) - (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 agetv agetv) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 string-index string-index) + (spec: 1 file-newer? file-newer?) + (spec: 1 object-port? object-port?) + (spec: 1 foldr foldr) (spec: 1 hash-copy hash-copy) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 hash-merge hash-merge) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 eqv-hash eqv-hash) (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 AST? AST?) - (spec: 1 make-AST make-AST) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 AST-source AST-source) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 replx replx) - (spec: 1 fx<0? fx<0?) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 udp-port? udp-port?) - (spec: 1 max-char-code max-char-code) - (spec: 1 reload-module! reload-module!) - (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 hash-find hash-find) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 agetq agetq) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 source-location-path source-location-path) - (spec: 1 display* display*) - (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 device-port? device-port?) + (spec: 1 dssl-rest-object? dssl-rest-object?) (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 readtable::t readtable::t) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 vector-port::t vector-port::t) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 struct-copy struct-copy) - (spec: 1 foldr foldr) - (spec: 1 file-newer? file-newer?) - (spec: 1 remq remq) + (spec: 1 replx replx) (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 table::t table::t) - (spec: 1 seal-class! seal-class!) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: - 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 special::t special::t) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 hash->plist hash->plist) - (spec: 1 hash-fold hash-fold) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 byte-port? byte-port?) - (spec: 1 build-manifest build-manifest) - (spec: 1 hash-ref hash-ref) - (spec: 1 ormap ormap) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 vm? vm?) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 absent-obj absent-obj) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 next-method next-method) - (spec: 1 hash-for-each hash-for-each) + (spec: 1 satisfies? satisfies?) + (spec: 1 list->hash-table-eq list->hash-table-eq) + (spec: 1 interface-descriptor? interface-descriptor?) + (spec: 1 promise::t promise::t) + (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 false false) + (spec: 1 gerbil-system gerbil-system) + (spec: 1 exception? exception?) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 1 hash-find hash-find) (spec: 1 filter-map filter-map) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 continuation::t continuation::t) + (spec: 1 hash-remove! hash-remove!) + (spec: 1 memf memf) (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 special? special?) - (spec: 1 directory-port? directory-port?) + (spec: 1 string-empty? string-empty?) + (spec: 1 make-hash-table-string make-hash-table-string) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 s32vector::t s32vector::t) (spec: 1 &class-type-id &class-type-id) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 readenv::t readenv::t) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) + (spec: 1 class-type-flags class-type-flags) (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 void::t void::t) + (spec: 1 ratnum::t ratnum::t) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 pget pget) + (spec: 1 fx>0? fx>0?) + (spec: 1 bytes->string bytes->string) + (spec: 1 udp-port? udp-port?) + (spec: 1 remv remv) + (spec: 1 t::t t::t) + (spec: 1 object::t object::t) + (spec: 1 thread::t thread::t) + (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 symbol::t symbol::t) (spec: 1 absent-value absent-value) - (spec: 1 eqv-hash eqv-hash) + (spec: 1 string-hash string-hash) + (spec: 1 error error) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 slot-set! slot-set!) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 1 display-exception display-exception) + (spec: 1 spawn/group spawn/group) + (spec: 1 class-type-super class-type-super) + (spec: 1 readenv? readenv?) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 with-lock with-lock) + (spec: 1 class-type-methods class-type-methods) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 gerbil-system-version-string gerbil-system-version-string) + (spec: 1 vector-port? vector-port?) + (spec: 1 plist->hash-table-string plist->hash-table-string) + (spec: 1 boolean::t boolean::t) + (spec: 1 HashTableLock::interface HashTableLock::interface) + (spec: 1 table::t table::t) (spec: 1 string::t string::t) - (spec: 1 assget assget) - (spec: 1 find find) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 null::t null::t) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 spawn spawn) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 string-port::t string-port::t) - (spec: 1 class-type-id class-type-id) - (spec: 1 list::t list::t) - (spec: 1 raise raise) - (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 display-as-string display-as-string) + (spec: 1 special? special?) (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 readenv? readenv?) - (spec: 1 box::t box::t) - (spec: 1 pgetv pgetv) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 bignum::t bignum::t) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 time::t time::t) - (spec: 1 port::t port::t) - (spec: 1 exception? exception?) - (spec: 1 struct->list struct->list) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 hash-table? hash-table?) - (spec: 1 symbolic? symbolic?) - (spec: 1 HashTable::t HashTable::t) - (spec: 1 thread-local-delete! thread-local-delete!) (spec: 1 make-class-slot-unchecked-accessor make-class-slot-unchecked-accessor) + (spec: 1 list->hash-table-string list->hash-table-string) + (spec: 1 raw-device-port? raw-device-port?) + (spec: 1 class-type-id class-type-id) + (spec: 1 vector::t vector::t) + (spec: 1 with-unwind-protect with-unwind-protect) + (spec: 1 raise raise) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 fxshift fxshift) + (spec: 1 HashTableLock::t HashTableLock::t) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 next-method next-method) + (spec: 1 hash-fold hash-fold) + (spec: 1 agetv agetv) + (spec: 1 hash-table? hash-table?) + (spec: 1 as-string as-string) + (spec: 1 struct->list struct->list) (spec: 1 make-object make-object) - (spec: 1 string-port? string-port?) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 keyword-rest keyword-rest) + (spec: 1 directory-port? directory-port?) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 continuation::t continuation::t) + (spec: 1 s8vector::t s8vector::t) (spec: 1 class-type-system? class-type-system?) - (spec: 1 return::t return::t) + (spec: 1 keyword->symbol keyword->symbol) (spec: 1 class-type-name class-type-name) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 bind-method! bind-method!) - (spec: 1 fxshift fxshift) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 vm::t vm::t) - (spec: 1 error error) - (spec: 1 hash-update! hash-update!) - (spec: 1 make-symbol make-symbol) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 hash-keys hash-keys) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 load-module load-module) - (spec: 1 source-location-path? source-location-path?) + (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 1 c4-linearize c4-linearize) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 bignum::t bignum::t) + (spec: 1 pgetq pgetq) + (spec: 1 immediate-instance-of? immediate-instance-of?) + (spec: 1 andmap andmap) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) + (spec: 1 box::t box::t) + (spec: 1 assgetq assgetq) + (spec: 1 foreign::t foreign::t) + (spec: 1 struct-copy struct-copy) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 method-ref method-ref) + (spec: 1 string-index string-index) (spec: 1 make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) - (spec: 1 display-as-string display-as-string) - (spec: 1 sequence::t sequence::t) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 read-syntax read-syntax) - (spec: 1 class-type=? class-type=?) - (spec: 1 writenv? writenv?) - (spec: 1 u32vector::t u32vector::t) - (spec: 1 atom::t atom::t) - (spec: 1 true true) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 procedure-hash procedure-hash) + (spec: 1 source-location-path source-location-path) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 readenv::t readenv::t) + (spec: 1 list::t list::t) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 vm::t vm::t) + (spec: 1 time::t time::t) + (spec: 1 HashTable::t HashTable::t) + (spec: 1 immediate-hash immediate-hash) + (spec: 1 find find) + (spec: 1 symbolic-table-ref symbolic-table-ref) (spec: 1 frame::t frame::t) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 memf memf) - (spec: 1 weak::t weak::t) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: 1 struct-instance-init! struct-instance-init!) + (spec: 1 hash-get hash-get) + (spec: 1 display* display*) + (spec: 1 special::t special::t) + (spec: 1 seal-class! seal-class!) + (spec: 1 class-type? class-type?) + (spec: 1 class-type-fields class-type-fields) + (spec: 1 keyword-rest keyword-rest) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 load-module load-module) + (spec: 1 gerbil-load-expander! gerbil-load-expander!) + (spec: 1 vm? vm?) + (spec: 1 make-promise make-promise) + (spec: 1 hash-values hash-values) + (spec: 1 u16vector::t u16vector::t) + (spec: 1 build-manifest build-manifest) (spec: 1 find-method find-method) - (spec: 1 object-fill! object-fill!) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 tcp-server-port? tcp-server-port?) + (spec: 1 null::t null::t) (spec: 1 error-irritants error-irritants) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 display-exception display-exception) - (spec: 1 sequence? sequence?) - (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 string-join string-join) - (spec: 1 make-class-type make-class-type) - (spec: 1 make-instance make-instance) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 class-type-super class-type-super) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 real::t real::t) - (spec: 1 immediate-hash immediate-hash) - (spec: 1 assgetq assgetq) - (spec: 1 true::t true::t) - (spec: 1 false false) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 subclass? subclass?) - (spec: 1 call-method call-method) (spec: 1 struct-instance? struct-instance?) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 object-port::t object-port::t) - (spec: 1 substruct? substruct?) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 weak? weak?) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 hash-length hash-length) - (spec: 1 hash-get hash-get) + (spec: 1 hash-key? hash-key?) + (spec: 1 subclass? subclass?) (spec: 1 actor-thread? actor-thread?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 cpxnum::t cpxnum::t) + (spec: 1 sequence? sequence?) (spec: 1 source-location? source-location?) + (spec: 1 readtable::t readtable::t) + (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 keyword::t keyword::t) + (spec: 1 load-path load-path) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 gerbil-greeting gerbil-greeting) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 call-method call-method) + (spec: 1 port::t port::t) + (spec: 1 void::t void::t) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 hash-update! hash-update!) + (spec: 1 build-manifest-set! build-manifest-set!) + (spec: 1 pgetv pgetv) + (spec: 1 assget assget) + (spec: 1 hash-keys hash-keys) + (spec: 1 error-message error-message) + (spec: 1 eof-object eof-object) + (spec: 1 make-symbol make-symbol) + (spec: 1 display-build-manifest display-build-manifest) + (spec: 1 eof::t eof::t) + (spec: 1 string-join string-join) + (spec: 1 socket-info::t socket-info::t) + (spec: 1 class-type-final? class-type-final?) (spec: 1 write-u8vector write-u8vector) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 assgetv assgetv) - (spec: 1 hash-values hash-values) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 read-syntax read-syntax) + (spec: 1 cons* cons*) + (spec: 1 call-next-method call-next-method) + (spec: 1 class-instance-init! class-instance-init!) (spec: 1 void? void?) + (spec: 1 integer::t integer::t) + (spec: 1 true::t true::t) (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 call-next-method call-next-method) + (spec: 1 u64vector::t u64vector::t) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 symbolic::t symbolic::t) + (spec: 1 fx/ fx/) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 error-trace error-trace) + (spec: 1 hash-length hash-length) + (spec: 1 address-info::t address-info::t) + (spec: 1 error-object? error-object?) + (spec: 1 eq-hash eq-hash) + (spec: 1 string-port::t string-port::t) + (spec: 1 remq remq) + (spec: 1 class-type=? class-type=?) + (spec: 1 real::t real::t) + (spec: 1 &interface-instance-object &interface-instance-object) + (spec: 1 class-type-field-count class-type-field-count) + (spec: 1 &class-type-properties &class-type-properties) + (spec: 1 gerbil-home gerbil-home) + (spec: 1 call-with-parameters call-with-parameters) (spec: 1 unhandled-actor-exception-hook-set! unhandled-actor-exception-hook-set!) - (spec: 1 partition partition) - (spec: 1 time time) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 fxorc1 fxorc1) - (spec: 1 abort abort) - (spec: 1 list->table list->table) - (spec: - 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 flinteger? flinteger?) - (spec: - 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 vector-swap! vector-swap!) - (spec: - 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 flasinh flasinh) - (spec: 1 table-set! table-set!) - (spec: 1 open-process open-process) - (spec: - 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 thread-group-suspend! thread-group-suspend!) - (spec: 1 user-info user-info) - (spec: 1 open-dummy open-dummy) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: - 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 third third) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 u64vector? u64vector?) - (spec: 1 file-attributes file-attributes) - (spec: - 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 read-subu8vector read-subu8vector) - (spec: - 1 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: - 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: - 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + (spec: 1 bind-method! bind-method!) + (spec: 1 ormap ormap) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 symbolic? symbolic?) + (spec: 1 assgetv assgetv) + (spec: 1 fx1+ fx1+) + (spec: 1 error? error?) + (spec: 1 hash-map hash-map) + (spec: 1 thread-local-delete! thread-local-delete!) + (spec: 1 f32vector::t f32vector::t) + (spec: 1 substring->bytes substring->bytes) + (spec: 1 AST-e AST-e) + (spec: 1 make-instance make-instance) + (spec: 1 string-port? string-port?) + (spec: 1 make-class-type make-class-type) + (spec: 1 sequence::t sequence::t) + (spec: 1 source-location-path? source-location-path?) + (spec: 1 remf remf) + (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 values-count values-count) + (spec: 1 class-of class-of) + (spec: 1 weak::t weak::t) + (spec: 1 interned-keyword? interned-keyword?) + (spec: 1 hvector::t hvector::t) + (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 immediate? immediate?) + (spec: 1 flonum::t flonum::t) + (spec: 1 fx1- fx1-) + (spec: 1 object-port::t object-port::t) + (spec: 1 hash-merge hash-merge) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 thread-local-get thread-local-get) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 AST? AST?) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 string-rindex string-rindex) + (spec: 1 slot-ref slot-ref) + (spec: 1 device-port::t device-port::t) + (spec: 1 class::t class::t) + (spec: 1 make-AST make-AST) + (spec: 1 return::t return::t) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 class->list class->list) + (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 weak? weak?) + (spec: 1 true true) + (spec: 1 writenv? writenv?) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 foldl foldl) + (spec: 1 u32vector::t u32vector::t) + (spec: 1 move-file move-file) + (spec: 1 fx<0? fx<0?) + (spec: 1 atom::t atom::t) + (spec: 1 number::t number::t) + (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 make-symbolic-table make-symbolic-table) + (spec: 1 false::t false::t) + (spec: 1 AST-source AST-source) + (spec: 1 add-load-path! add-load-path!) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 make-keyword make-keyword) + (spec: 1 hash-merge! hash-merge!) + (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 create-directory* create-directory*) + (spec: 1 spawn spawn) + (spec: 1 remove1 remove1) + (spec: 1 symblic-hash symblic-hash) + (spec: 1 1+ 1+) + (spec: 1 s16vector::t s16vector::t) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 read-u8vector read-u8vector) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 values::t values::t) + (spec: 1 cast cast) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 try-cast try-cast) + (spec: 1 build-manifest/layer build-manifest/layer) + (spec: 1 udp-port::t udp-port::t) + (spec: 1 hash->list hash->list) + (spec: 1 object-type object-type) + (spec: 1 hash-put! hash-put!) + (spec: 1 byte-port? byte-port?) + (spec: 1 absent-obj absent-obj) + (spec: 1 agetq agetq) + (spec: 1 substruct? substruct?) + (spec: 1 string->bytes string->bytes) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 reload-module! reload-module!) + (spec: 1 condvar::t condvar::t) + (spec: 1 1- 1-) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 &class-type-slot-vector &class-type-slot-vector) + (spec: 1 gerbil-path gerbil-path) + (spec: 1 char::t char::t) + (spec: 1 values->list values->list) + (spec: 1 class-instance? class-instance?) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 file-owner file-owner) - (spec: 1 network-info network-info) - (spec: 1 print print) - (spec: 1 circular-list? circular-list?) - (spec: 1 script-directory script-directory) - (spec: 1 u16vector u16vector) - (spec: 1 write-file-string write-file-string) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 string-suffix? string-suffix?) + raise-contract-violation-error + raise-contract-violation-error) + (spec: 1 procedure-hash procedure-hash) + (spec: 1 true? true?) + (spec: 1 with-catch with-catch) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 immediate::t immediate::t) + (spec: 1 hash->plist hash->plist) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 fx=0? fx=0?) + (spec: 1 hash-ref hash-ref) + (spec: 1 object-fill! object-fill!) + (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 aget aget) + (spec: 1 symbol->keyword symbol->keyword) + (spec: 1 displayln displayln) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 string-split string-split) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 fl/ fl/) (spec: 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 service-info? service-info?) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 make-thread make-thread) - (spec: 1 bit-count bit-count) - (spec: 1 subu16vector subu16vector) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 system-stamp system-stamp) + (spec: 1 call-with-input-u8vector call-with-input-u8vector) + (spec: 1 flcosh flcosh) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 readtable-max-write-length readtable-max-write-length) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 fxandc1 fxandc1) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 thread-receive thread-receive) - (spec: 1 fourth fourth) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 acosh acosh) - (spec: 1 s64vector-length s64vector-length) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 fxorc2 fxorc2) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 char-set-map char-set-map) - (spec: 1 partition! partition!) - (spec: 1 vector-unfold vector-unfold) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 1 table-search table-search) + (spec: 1 break break) + (spec: 1 file-info? file-info?) + (spec: 1 uncaught-exception-reason uncaught-exception-reason) + (spec: 1 random-u8vector random-u8vector) + (spec: 1 create-link create-link) + (spec: 1 filter! filter!) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 flatan flatan) - (spec: 1 delete! delete!) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 1 bits->list bits->list) + (spec: 1 continuation-capture continuation-capture) + (spec: 1 f64vector? f64vector?) + (spec: 1 subs64vector subs64vector) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 continuation? continuation?) + (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 ->char-set ->char-set) + (spec: 1 u64vector-set u64vector-set) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) + (spec: 1 group-info group-info) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 f32vector? f32vector?) + (spec: 1 u16vector-swap! u16vector-swap!) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 address-info? address-info?) + (spec: 1 list-sort list-sort) + (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 s64vector s64vector) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 tty-history tty-history) + (spec: 1 char-set? char-set?) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 1 vector-cumulate vector-cumulate) + (spec: 1 output-port-width output-port-width) + (spec: 1 char-set-contains? char-set-contains?) + (spec: 1 fxand fxand) + (spec: 1 s16vector-concatenate s16vector-concatenate) + (spec: 1 thread? thread?) + (spec: 1 list->s32vector list->s32vector) + (spec: 1 char-set-hash char-set-hash) + (spec: 1 foreign-address foreign-address) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 os-exception-arguments os-exception-arguments) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 foreign? foreign?) + (spec: 1 flmin flmin) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) + (spec: 1 flsinh flsinh) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 display-exception-in-context display-exception-in-context) + (spec: 1 fl< fl<) (spec: 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 open-string open-string) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 input-port-column input-port-column) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: 1 fldenominator fldenominator) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 table-merge table-merge) + (spec: 1 uncaught-exception? uncaught-exception?) (spec: 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 take-right take-right) - (spec: 1 split-at split-at) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 flpositive? flpositive?) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 file-info-device file-info-device) - (spec: 1 random-integer random-integer) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 copy-bit copy-bit) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 defer-user-interrupts defer-user-interrupts) - (spec: 1 read-all read-all) - (spec: 1 file-last-modification-time file-last-modification-time) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 1 file-inode file-inode) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 deadlock-exception? deadlock-exception?) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 f64vector-set! f64vector-set!) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 bit-set? bit-set?) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: 1 u32vector-ref u32vector-ref) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 file-group file-group) + (spec: 1 subu64vector-fill! subu64vector-fill!) + (spec: 1 u64vector-set! u64vector-set!) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 command-args command-args) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 f32vector-set! f32vector-set!) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 executable-path executable-path) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 println println) - (spec: 1 string-swap! string-swap!) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 get-output-u8vector get-output-u8vector) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 1 group-info-gid group-info-gid) + (spec: 1 type-exception-type-id type-exception-type-id) (spec: 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 host-info host-info) + (spec: 1 address-infos address-infos) + (spec: 1 u16vector-set u16vector-set) + (spec: 1 top top) + (spec: 1 fxwrap+ fxwrap+) + (spec: 1 apropos apropos) + (spec: 1 list-sort! list-sort!) (spec: 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 any any) - (spec: 1 u16vector-copy! u16vector-copy!) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 1 s64vector->list s64vector->list) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 1 s8vector s8vector) + (spec: 1 char-set-filter! char-set-filter!) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 with-input-from-process with-input-from-process) (spec: 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 f64vector-append f64vector-append) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 service-info-name service-info-name) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 compilation-target compilation-target) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 subs16vector subs16vector) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 char-set-count char-set-count) - (spec: 1 fxbit-count fxbit-count) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 fx> fx>) + (spec: 1 output-port-readtable output-port-readtable) + (spec: 1 s16vector-copy s16vector-copy) + (spec: 1 vector-concatenate vector-concatenate) + (spec: 1 fxlength fxlength) + (spec: 1 list->s64vector list->s64vector) + (spec: 1 s32vector-append s32vector-append) + (spec: 1 foreign-release! foreign-release!) + (spec: 1 thread-group-parent thread-group-parent) + (spec: 1 char-set-any char-set-any) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 foreign-released? foreign-released?) (spec: 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 length+ length+) - (spec: 1 with-output-to-process with-output-to-process) - (spec: 1 write-file-string-list write-file-string-list) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 1 flnan? flnan?) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 1 null-list? null-list?) + (spec: 1 drop drop) + (spec: 1 flsqrt flsqrt) (spec: 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 fxzero? fxzero?) - (spec: 1 fxnot fxnot) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 1 system-type-string system-type-string) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) + (spec: 1 read-subu8vector read-subu8vector) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 char-set-union char-set-union) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 step step) - (spec: 1 flilogb flilogb) - (spec: 1 path-extension path-extension) - (spec: 1 will? will?) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 table? table?) + (spec: 1 fl<= fl<=) + (spec: 1 delete! delete!) (spec: 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 1 readtable-max-write-level readtable-max-write-level) + (spec: 1 file-info file-info) + (spec: 1 create-temporary-directory create-temporary-directory) + (spec: 1 mutex-lock! mutex-lock!) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 delete-directory delete-directory) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 1 bitwise-and bitwise-and) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 condition-variable? condition-variable?) + (spec: 1 f64vector f64vector) + (spec: 1 bitwise-xor bitwise-xor) + (spec: 1 subvector subvector) + (spec: 1 shell-command shell-command) + (spec: 1 random-f64vector random-f64vector) + (spec: 1 u32vector? u32vector?) + (spec: 1 u64vector-shrink! u64vector-shrink!) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 group-info-members group-info-members) (spec: 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 fold-right fold-right) - (spec: 1 last-pair last-pair) - (spec: 1 not-pair? not-pair?) - (spec: 1 reverse! reverse!) - (spec: 1 thread-join! thread-join!) - (spec: 1 user-info? user-info?) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 1 processor-id processor-id) + (spec: 1 service-info service-info) + (spec: 1 f32vector f32vector) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 make-table make-table) + (spec: 1 s64vector-append s64vector-append) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 list-tabulate list-tabulate) + (spec: 1 s8vector->list s8vector->list) + (spec: 1 tty-history-set! tty-history-set!) + (spec: 1 with-output-to-port with-output-to-port) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 fxandc2 fxandc2) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 file-info-group file-info-group) - (spec: 1 u8vector-swap! u8vector-swap!) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 fixnum->flonum fixnum->flonum) - (spec: 1 system-version-string system-version-string) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 1 char-set-count char-set-count) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 err-code->string err-code->string) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 partition partition) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: 1 last last) + (spec: 1 flsquare flsquare) + (spec: 1 open-output-process open-output-process) + (spec: 1 thread-group-terminate! thread-group-terminate!) + (spec: 1 vector-swap! vector-swap!) (spec: 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 1 readtable-comment-handler readtable-comment-handler) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 1 os-exception-message os-exception-message) + (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 tcp-service-register! tcp-service-register!) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 file-mode file-mode) - (spec: 1 make-random-source make-random-source) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 main main) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 process-pid process-pid) - (spec: 1 s8vector-copy! s8vector-copy!) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 1 fleven? fleven?) + (spec: 1 flnegative? flnegative?) + (spec: 1 repl-input-port repl-input-port) + (spec: 1 first first) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 subf64vector subf64vector) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 protocol-info protocol-info) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 thread-priority thread-priority) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 vector-fold vector-fold) - (spec: 1 fx* fx*) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 thread-start! thread-start!) - (spec: 1 with-exception-catcher with-exception-catcher) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 1 call-with-output-process call-with-output-process) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 fxodd? fxodd?) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 touch touch) - (spec: 1 path-normalize path-normalize) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 flinfinite? flinfinite?) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 object->string object->string) - (spec: 1 tenth tenth) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 flasin flasin) - (spec: 1 remove remove) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 table-ref table-ref) + (spec: 1 fl= fl=) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 take take) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 1 random-source? random-source?) + (spec: 1 create-fifo create-fifo) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 mutex-name mutex-name) + (spec: 1 current-time current-time) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 bits bits) + (spec: 1 f64vector-swap! f64vector-swap!) + (spec: 1 u32vector-set! u32vector-set!) + (spec: 1 subs8vector subs8vector) + (spec: 1 setenv setenv) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 continuation-return continuation-return) + (spec: 1 subu8vector subu8vector) + (spec: 1 asinh asinh) + (spec: 1 extract-bit-field extract-bit-field) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 string-set string-set) + (spec: 1 group-info-name group-info-name) + (spec: 1 f32vector-swap! f32vector-swap!) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 user-name user-name) - (spec: 1 open-udp open-udp) - (spec: 1 keyword->string keyword->string) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 u8vector-set u8vector-set) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) + (spec: 1 processor? processor?) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 command-name command-name) + (spec: 1 host-info-aliases host-info-aliases) + (spec: 1 u16vector-shrink! u16vector-shrink!) + (spec: 1 path-volume path-volume) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) + (spec: 1 s8vector-append s8vector-append) + (spec: 1 char-set= char-set=) + (spec: 1 tty-mode-set! tty-mode-set!) + (spec: 1 output-port-timeout-set! output-port-timeout-set!) + (spec: 1 s16vector-fill! s16vector-fill!) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 fxabs fxabs) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 vector-set vector-set) + (spec: 1 s32vector-copy s32vector-copy) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 error error) + (spec: 1 fxmin fxmin) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 drop-right! drop-right!) + (spec: 1 fltan fltan) + (spec: 1 thread-group-specific thread-group-specific) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 fixnum? fixnum?) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 1 thread-receive thread-receive) + (spec: 1 real-time real-time) + (spec: 1 flexp flexp) + (spec: 1 display-exception display-exception) + (spec: 1 flnumerator flnumerator) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 network-info-number network-info-number) - (spec: 1 file-type file-type) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 1 system-version-string system-version-string) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 write-substring write-substring) - (spec: 1 u16vector-concatenate u16vector-concatenate) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 1 first-set-bit first-set-bit) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 second second) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 pp pp) - (spec: 1 console-port console-port) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 substring-move! substring-move!) - (spec: 1 atanh atanh) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 list->bits list->bits) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 char-set char-set) - (spec: 1 thread-state thread-state) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 will-execute! will-execute!) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 string-contains string-contains) - (spec: 1 trace trace) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 string->keyword string->keyword) - (spec: 1 fxremainder fxremainder) - (spec: 1 iota iota) - (spec: 1 timeout->time timeout->time) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 1 take take) + (spec: 1 fl> fl>) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 remove! remove!) - (spec: 1 flmax flmax) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 range-exception-arguments range-exception-arguments) + (spec: 1 mutex-specific mutex-specific) + (spec: 1 file-info-creation-time file-info-creation-time) + (spec: 1 udp-read-subu8vector udp-read-subu8vector) + (spec: 1 network-info network-info) + (spec: 1 file-last-change-time file-last-change-time) + (spec: 1 subs8vector-fill! subs8vector-fill!) + (spec: 1 bit-field bit-field) + (spec: 1 f64vector-append f64vector-append) (spec: 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 random-real random-real) + (spec: 1 copy-bit-field copy-bit-field) + (spec: 1 bitwise-andc1 bitwise-andc1) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 flcos flcos) - (spec: 1 take! take!) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 thread-init! thread-init!) - (spec: 1 sixth sixth) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 flsin flsin) - (spec: 1 mutex? mutex?) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 range-exception? range-exception?) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 1 fl* fl*) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 subvector-move! subvector-move!) + (spec: 1 u64vector? u64vector?) + (spec: 1 u16vector->list u16vector->list) + (spec: 1 group-info? group-info?) + (spec: 1 primordial-exception-handler primordial-exception-handler) + (spec: 1 circular-list circular-list) + (spec: 1 executable-path executable-path) + (spec: 1 subf32vector subf32vector) + (spec: 1 host-info-name host-info-name) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 service-info-name service-info-name) + (spec: 1 u32vector u32vector) + (spec: 1 s64vector-copy s64vector-copy) + (spec: 1 abort abort) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 with-output-to-string with-output-to-string) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) - (spec: 1 u8vector u8vector) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 table-copy table-copy) - (spec: 1 integer-length integer-length) - (spec: 1 network-info? network-info?) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 1 s8vector-concatenate s8vector-concatenate) + (spec: 1 vector-fold-right vector-fold-right) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + thread-state-running-processor + thread-state-running-processor) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 1 end-of-char-set? end-of-char-set?) + (spec: 1 s16vector-length s16vector-length) + (spec: 1 time time) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 fxnot fxnot) + (spec: 1 list->table list->table) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 step step) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 open-output-u8vector open-output-u8vector) + (spec: 1 socket-info-family socket-info-family) + (spec: 1 fltanh fltanh) + (spec: 1 os-exception? os-exception?) + (spec: 1 length+ length+) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 seconds->time seconds->time) - (spec: 1 u16vector-copy u16vector-copy) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 tenth tenth) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 flexpm1 flexpm1) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 f64vector-ref f64vector-ref) - (spec: 1 tty? tty?) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 concatenate! concatenate!) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 subs32vector subs32vector) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 char-set->list char-set->list) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 1 thread-base-priority thread-base-priority) + (spec: 1 keyword->string keyword->string) + (spec: 1 system-type system-type) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 s16vector? s16vector?) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 thread-specific thread-specific) - (spec: 1 fxxor fxxor) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 will-testator will-testator) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 void void) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 fxsquare fxsquare) - (spec: 1 car+cdr car+cdr) - (spec: 1 directory-files directory-files) - (spec: 1 path-expand path-expand) - (spec: 1 untrace untrace) - (spec: 1 flmin flmin) - (spec: 1 test-bit-field? test-bit-field?) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 1 input-port-readtable-set! input-port-readtable-set!) (spec: 1 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 1 flcosh flcosh) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 user-info-uid user-info-uid) - (spec: 1 foreign-address foreign-address) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 1 default-random-source default-random-source) + (spec: 1 read-substring read-substring) + (spec: 1 table-set! table-set!) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 flsinh flsinh) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 box? box?) - (spec: 1 keyword? keyword?) - (spec: 1 open-input-process open-input-process) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 cosh cosh) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 thread-group->thread-list thread-group->thread-list) - (spec: 1 table-for-each table-for-each) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 integer-nth-root integer-nth-root) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 1 delete delete) + (spec: 1 fl>= fl>=) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 file-info-device file-info-device) + (spec: 1 udp-read-u8vector udp-read-u8vector) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 bits->vector bits->vector) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 seventh seventh) + (spec: 1 u32vector-swap! u32vector-swap!) + (spec: 1 subu8vector-move! subu8vector-move!) (spec: 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 input-port-char-position input-port-char-position) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 raise raise) + (spec: 1 bitwise-andc2 bitwise-andc2) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 print print) + (spec: 1 circular-list? circular-list?) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 subf32vector-fill! subf32vector-fill!) + (spec: 1 host-info? host-info?) + (spec: 1 u16vector? u16vector?) + (spec: 1 write-file-string write-file-string) (spec: 1 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 script-file script-file) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 append! append!) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 cons* cons*) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 subs32vector-fill! subs32vector-fill!) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 list= list=) + (spec: 1 s64vector-copy! s64vector-copy!) + (spec: 1 gensym gensym) + (spec: 1 poll-point poll-point) + (spec: 1 all-bits-set? all-bits-set?) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 fxandc1 fxandc1) + (spec: 1 vector-every vector-every) + (spec: 1 char-set-copy char-set-copy) + (spec: 1 time->seconds time->seconds) + (spec: 1 fxnand fxnand) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 char-set-intersection char-set-intersection) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 open-output-vector open-output-vector) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 char-set-delete! char-set-delete!) - (spec: 1 make-will make-will) - (spec: 1 vector-inc! vector-inc!) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 fltruncate fltruncate) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 thread-send thread-send) + (spec: 1 fourth fourth) + (spec: 1 os-exception-code os-exception-code) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 vector-shrink! vector-shrink!) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) + (spec: 1 flexpt flexpt) + (spec: 1 third third) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 flodd? flodd?) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 fixnum->flonum fixnum->flonum) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 fx< fx<) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 string->char-set string->char-set) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 list-set list-set) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 fllog fllog) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 1 flatanh flatanh) - (spec: 1 null-list? null-list?) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 split-at! split-at!) - (spec: 1 force-output force-output) - (spec: 1 thread-name thread-name) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 flround flround) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 take-right take-right) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 current-readtable current-readtable) - (spec: 1 file-device file-device) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 file-size file-size) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 ninth ninth) - (spec: 1 read-file-string read-file-string) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 1 flabs flabs) + (spec: 1 readtable-start-syntax readtable-start-syntax) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 help help) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 append-reverse append-reverse) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 pretty-print pretty-print) - (spec: 1 bit-set? bit-set?) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 identity identity) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 set-box! set-box!) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 fxif fxif) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 fx<= fx<=) + uninitialized-thread-exception? + uninitialized-thread-exception?) + (spec: 1 range-exception? range-exception?) + (spec: 1 file-info-group file-info-group) + (spec: 1 mutex-state mutex-state) + (spec: 1 u8vector-ref u8vector-ref) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 file-mode file-mode) + (spec: 1 network-info-name network-info-name) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 vector->bits vector->bits) - (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 string-concatenate string-concatenate) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 f64vector-copy f64vector-copy) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 u64vector->list u64vector->list) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 module-not-found-exception? module-not-found-exception?) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 write-file-string-list write-file-string-list) + (spec: 1 println println) + (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 clear-bit-field clear-bit-field) + (spec: 1 u16vector-concatenate u16vector-concatenate) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 fxquotient fxquotient) - (spec: 1 link-incremental link-incremental) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 fllog1p fllog1p) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 1 service-info-protocol service-info-protocol) + (spec: 1 compilation-target compilation-target) + (spec: 1 f32vector-copy f32vector-copy) + (spec: 1 host-name host-name) + (spec: 1 atanh atanh) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 fxzero? fxzero?) + (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 subf32vector-move! subf32vector-move!) + (spec: 1 u32vector-append u32vector-append) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 will-execute! will-execute!) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 s16vector-ref s16vector-ref) + (spec: 1 fxbit-count fxbit-count) + (spec: 1 vector-inc! vector-inc!) + (spec: 1 char-set-delete! char-set-delete!) + (spec: 1 fxorc1 fxorc1) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 socket-info? socket-info?) + (spec: 1 thread-interrupt! thread-interrupt!) + (spec: 1 time? time?) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 tanh tanh) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 1 thread-sleep! thread-sleep!) (spec: 1 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 1 flceiling flceiling) - (spec: 1 readtable? readtable?) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 eighth eighth) - (spec: 1 open-output-process open-output-process) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) - (spec: 1 flscalbn flscalbn) - (spec: 1 dotted-list? dotted-list?) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 1 flfinite? flfinite?) + (spec: 1 directory-files directory-files) + (spec: 1 call-with-output-vector call-with-output-vector) (spec: 1 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 u8vector? u8vector?) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 file-info-type file-info-type) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 u8vector-append u8vector-append) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) + (spec: 1 replace-bit-field replace-bit-field) (spec: 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 1 open-directory open-directory) + (spec: 1 system-version system-version) + (spec: 1 defer-user-interrupts defer-user-interrupts) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 table->list table->list) - (spec: 1 fl- fl-) - (spec: 1 unbox unbox) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 filter filter) - (spec: 1 input-port-byte-position input-port-byte-position) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 help-browser help-browser) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 getenv getenv) - (spec: 1 s8vector? s8vector?) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 subu32vector subu32vector) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 fxeqv fxeqv) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 link-flat link-flat) - (spec: 1 vector-cas! vector-cas!) - (spec: 1 fx+ fx+) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 s64vector s64vector) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 object->u8vector object->u8vector) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 1 delete-directory delete-directory) + (spec: 1 compile-file compile-file) + (spec: 1 flacos flacos) + (spec: 1 range-exception-arg-id range-exception-arg-id) + (spec: 1 u8vector-set u8vector-set) + (spec: 1 file-info-inode file-info-inode) + (spec: 1 link-incremental link-incremental) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 read-all read-all) + (spec: 1 udp-write-subu8vector udp-write-subu8vector) + (spec: 1 file-number-of-links file-number-of-links) + (spec: 1 network-info-number network-info-number) + (spec: 1 substring-fill! substring-fill!) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 flnumerator flnumerator) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 flexp flexp) - (spec: 1 open-vector open-vector) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 drop drop) - (spec: 1 fltan fltan) - (spec: 1 box box) - (spec: 1 keyword-hash keyword-hash) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 bit-count bit-count) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 random-integer random-integer) + (spec: 1 copy-bit copy-bit) + (spec: 1 fifth fifth) + (spec: 1 sinh sinh) + (spec: 1 bitwise-fold bitwise-fold) + (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 string-suffix-length string-suffix-length) + (spec: 1 u16vector u16vector) + (spec: 1 write-file-u8vector write-file-u8vector) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 file-info? file-info?) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 bitwise-nand bitwise-nand) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 1 proper-list? proper-list?) + (spec: 1 make-thread make-thread) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 subf64vector subf64vector) + (spec: 1 s64vector-length s64vector-length) + (spec: 1 every every) + (spec: 1 fxwrapquotient fxwrapquotient) + (spec: 1 touch touch) + (spec: 1 with-output-to-process with-output-to-process) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 cpu-time cpu-time) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 unbreak unbreak) - (spec: 1 fl/ fl/) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 1 s8vector-fill! s8vector-fill!) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 filter! filter!) - (spec: 1 input-port-line input-port-line) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 process-status process-status) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 host-info host-info) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 setenv setenv) - (spec: 1 u32vector-length u32vector-length) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 list->char-set list->char-set) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 fxeven? fxeven?) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 s32vector s32vector) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 char-set-any char-set-any) - (spec: 1 fx- fx-) - (spec: 1 s16vector-append s16vector-append) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 tty-type-set! tty-type-set!) + (spec: 1 vector-fold vector-fold) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 char-set-cursor char-set-cursor) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 1 partition! partition!) + (spec: 1 char-set-map char-set-map) + (spec: 1 error-exception? error-exception?) + (spec: 1 fxnor fxnor) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 reverse! reverse!) + (spec: 1 thread-group? thread-group?) + (spec: 1 flzero? flzero?) + (spec: 1 open-process open-process) (spec: 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 top top) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 address-infos address-infos) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 list-sort! list-sort!) - (spec: 1 s32vector? s32vector?) - (spec: 1 remq remq) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 flexpm1 flexpm1) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 user-info user-info) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 thread-specific thread-specific) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 table-merge! table-merge!) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 fltanh fltanh) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 current-processor current-processor) - (spec: 1 subu8vector subu8vector) - (spec: 1 u64vector-set! u64vector-set!) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) + (spec: 1 flfloor flfloor) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 compile-file compile-file) - (spec: 1 fl+ fl+) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 repl-output-port repl-output-port) + (spec: 1 display-procedure-environment display-procedure-environment) + (spec: 1 flonum? flonum?) + (spec: 1 open-dummy open-dummy) + (spec: 1 readtable-comment-handler readtable-comment-handler) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) + (spec: 1 thread thread) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 dead-end dead-end) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 process-times process-times) - (spec: 1 group-info-members group-info-members) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 apropos apropos) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 xcons xcons) - (spec: 1 bits->list bits->list) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 vector-any vector-any) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 fxmax fxmax) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 output-port-column output-port-column) - (spec: 1 char-set->string char-set->string) - (spec: 1 fx>= fx>=) - (spec: 1 address-info-family address-info-family) - (spec: 1 s16vector-concatenate s16vector-concatenate) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 s64vector? s64vector?) - (spec: 1 char-set? char-set?) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 flnan? flnan?) - (spec: 1 rename-file rename-file) - (spec: 1 table-ref table-ref) - (spec: 1 fldenominator fldenominator) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: + 1 + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 1 tanh tanh) + (spec: + 1 + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 flacosh flacosh) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 u8vector-set! u8vector-set!) + (spec: 1 mutex? mutex?) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 network-info? network-info?) + (spec: + 1 + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 1 file-owner file-owner) + (spec: 1 substring-move! substring-move!) + (spec: 1 u64vector-concatenate u64vector-concatenate) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 conjugate conjugate) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 module-search-order-add! module-search-order-add!) + (spec: 1 bitwise-for-each bitwise-for-each) + (spec: 1 file-attributes file-attributes) + (spec: 1 u8vector u8vector) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 u16vector-copy! u16vector-copy!) + (spec: 1 script-file script-file) + (spec: 1 subf64vector-fill! subf64vector-fill!) + (spec: 1 make-u64vector make-u64vector) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 concatenate concatenate) + (spec: 1 f32vector-fill! f32vector-fill!) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 trace trace) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 flsqrt flsqrt) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 tty? tty?) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 random-u8vector random-u8vector) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 s8vector-length s8vector-length) + (spec: 1 will? will?) + (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 1 fxeqv fxeqv) + (spec: 1 s16vector-set! s16vector-set!) + (spec: 1 path-extension path-extension) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 char-set-union char-set-union) + (spec: 1 fxpositive? fxpositive?) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 string->char-set string->char-set) + (spec: 1 open-string open-string) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 1 file-info-size file-info-size) - (spec: 1 subu64vector subu64vector) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 create-link create-link) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) (spec: 1 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 integer-sqrt integer-sqrt) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 1 fold fold) + (spec: 1 timeout->time timeout->time) + (spec: 1 output-port-byte-position output-port-byte-position) + (spec: 1 char-set char-set) + (spec: 1 fx+ fx+) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 fl+* fl+*) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 1 thread-specific-set! thread-specific-set!) + (spec: 1 remove remove) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 command-name command-name) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 bits->vector bits->vector) - (spec: 1 continuation? continuation?) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 processor? processor?) - (spec: 1 u16vector? u16vector?) - (spec: 1 f32vector-set! f32vector-set!) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) + (spec: 1 flhypot flhypot) + (spec: 1 user-info-gid user-info-gid) + (spec: 1 user-info? user-info?) + (spec: 1 open-event-queue open-event-queue) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) (spec: 1 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 1 fxmin fxmin) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 char-set-every char-set-every) - (spec: 1 list->s64vector list->s64vector) + thread-group->thread-group-list + thread-group->thread-group-list) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 fxabs fxabs) - (spec: 1 output-port-line output-port-line) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 s16vector s16vector) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 fxwrap+ fxwrap+) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 1 take! take!) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 flnegative? flnegative?) - (spec: 1 display-exception-in-context display-exception-in-context) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 table-length table-length) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 fleven? fleven?) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 open-directory open-directory) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 thread-priority thread-priority) + (spec: 1 u8vector-shrink! u8vector-shrink!) + (spec: 1 uninterned-symbol? uninterned-symbol?) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 current-directory current-directory) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 subu16vector subu16vector) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 1 flsquare flsquare) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 raise raise) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 read-substring read-substring) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 delete delete) - (spec: 1 fl= fl=) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 default-random-source default-random-source) - (spec: 1 input-port-column input-port-column) - (spec: 1 first first) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 f32vector f32vector) - (spec: 1 ->char-set ->char-set) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 poll-point poll-point) - (spec: 1 circular-list circular-list) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 group-info group-info) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 subs64vector subs64vector) - (spec: 1 type-exception? type-exception?) - (spec: 1 bit-swap bit-swap) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 service-info service-info) - (spec: 1 f64vector f64vector) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 u64vector u64vector) + (spec: 1 f64vector-concatenate f64vector-concatenate) + (spec: 1 bit-field-any? bit-field-any?) + (spec: 1 u8vector->list u8vector->list) + (spec: 1 module-search-order-reset! module-search-order-reset!) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 copy-file copy-file) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 string-suffix? string-suffix?) + (spec: 1 u16vector-append u16vector-append) + (spec: 1 make-mutex make-mutex) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 concatenate! concatenate!) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 u32vector->list u32vector->list) + (spec: 1 fxxor fxxor) + (spec: 1 acosh acosh) + (spec: 1 s64vector-ref s64vector-ref) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 fxior fxior) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 output-port-width output-port-width) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 thread-quantum-set! thread-quantum-set!) - (spec: 1 fx= fx=) - (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 char-set<= char-set<=) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 address-info? address-info?) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 list-sort list-sort) - (spec: 1 thread? thread?) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 1 flfloor flfloor) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 any any) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 step-level-set! step-level-set!) + (spec: 1 fxodd? fxodd?) + (spec: 1 path-directory path-directory) + (spec: 1 char-set-size char-set-size) + (spec: 1 s32vector-set s32vector-set) + (spec: 1 thread-init! thread-init!) + (spec: 1 user-info-home user-info-home) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 1 fold-right fold-right) + (spec: 1 thread-start! thread-start!) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: + 1 + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 1 iota iota) + (spec: 1 call/cc call/cc) + (spec: 1 flilogb flilogb) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) + (spec: 1 open-file open-file) + (spec: 1 repl-result-history-ref repl-result-history-ref) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 1 integer-length integer-length) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 1 call-with-output-process call-with-output-process) - (spec: 1 flacos flacos) - (spec: 1 table-merge table-merge) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 flzero? flzero?) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 flonum? flonum?) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 current-thread current-thread) - (spec: 1 file-last-change-time file-last-change-time) - (spec: 1 break break) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 subvector subvector) - (spec: 1 create-directory create-directory) - (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 system-type-string system-type-string) - (spec: 1 fl> fl>) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 1 flasin flasin) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 table-copy table-copy) + (spec: 1 u8vector-swap! u8vector-swap!) (spec: 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 command-args command-args) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 asinh asinh) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: 1 tty-history tty-history) - (spec: 1 with-input-from-string with-input-from-string) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 1 file-size file-size) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 cons* cons*) + (spec: 1 bit-field-reverse bit-field-reverse) + (spec: 1 u64vector-copy! u64vector-copy!) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 bits bits) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 1 file-device file-device) + (spec: 1 cpu-time cpu-time) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 module-whitelist-add! module-whitelist-add!) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 service-info-aliases service-info-aliases) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 1 second second) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 host-info? host-info?) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 error error) - (spec: 1 fxlength fxlength) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 fx> fx>) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 string-swap! string-swap!) + (spec: 1 subu32vector-fill! subu32vector-fill!) + (spec: 1 subs16vector subs16vector) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 u8vector->object u8vector->object) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 vector-every vector-every) - (spec: 1 char-set= char-set=) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 list= list=) - (spec: 1 vector-set vector-set) - (spec: 1 fxnor fxnor) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 time->seconds time->seconds) - (spec: 1 flhypot flhypot) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 string->keyword string->keyword) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 main main) + (spec: 1 any-bit-set? any-bit-set?) + (spec: 1 string-contains string-contains) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) + (spec: 1 list->bits list->bits) + (spec: 1 char-set-difference! char-set-difference!) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 vector-any vector-any) + (spec: 1 fxremainder fxremainder) + (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 char-set-xor char-set-xor) + (spec: 1 with-exception-handler with-exception-handler) (spec: 1 - display-continuation-environment - display-continuation-environment) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 user-info-name user-info-name) + (spec: 1 open-tcp-client open-tcp-client) + (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 fx< fx<) + (spec: 1 output-port-column output-port-column) + (spec: 1 char-set->string char-set->string) + (spec: 1 thread-state thread-state) + (spec: 1 remq remq) + (spec: 1 flinfinite? flinfinite?) (spec: 1 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 tcp-service-register! tcp-service-register!) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 1 keyword? keyword?) + (spec: 1 test-bit-field? test-bit-field?) (spec: 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 flacosh flacosh) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 unbox unbox) + (spec: 1 fixnum? fixnum?) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 table? table?) - (spec: 1 fold fold) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 last last) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 drop-right drop-right) - (spec: 1 file-inode file-inode) - (spec: 1 current-time current-time) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 random-source? random-source?) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 file-group file-group) - (spec: 1 create-fifo create-fifo) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 1 flasinh flasinh) + (spec: + 1 + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: + 1 + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 1 u8vector? u8vector?) + (spec: 1 current-exception-handler current-exception-handler) + (spec: 1 file-info-mode file-info-mode) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 file-type file-type) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: 1 cosh cosh) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 bitwise-merge bitwise-merge) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 process-pid process-pid) + (spec: 1 script-directory script-directory) + (spec: 1 help help) + (spec: 1 protocol-info protocol-info) + (spec: 1 make-u32vector make-u32vector) + (spec: 1 identity identity) + (spec: 1 f32vector-copy! f32vector-copy!) + (spec: 1 service-info? service-info?) + (spec: 1 subs16vector-fill! subs16vector-fill!) + (spec: 1 s64vector-set! s64vector-set!) + (spec: 1 u32vector-concatenate u32vector-concatenate) + (spec: 1 void void) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 get-output-u8vector get-output-u8vector) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 compile-file-to-target compile-file-to-target) + (spec: 1 s16vector? s16vector?) + (spec: 1 char-set-diff+intersection char-set-diff+intersection) + (spec: 1 fxbit-set? fxbit-set?) + (spec: 1 list->char-set list->char-set) + (spec: 1 thread-state-waiting? thread-state-waiting?) + (spec: 1 path-expand path-expand) + (spec: 1 char-set-unfold! char-set-unfold!) + (spec: 1 fxorc2 fxorc2) + (spec: 1 link-flat link-flat) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 vector->bits vector->bits) + (spec: 1 thread-join! thread-join!) + (spec: 1 last-pair last-pair) + (spec: 1 open-tcp-server open-tcp-server) + (spec: 1 user-info-shell user-info-shell) + (spec: 1 will-testator will-testator) + (spec: 1 fx* fx*) + (spec: 1 user-info-uid user-info-uid) + (spec: + 1 + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 1 flinteger? flinteger?) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 system-version system-version) - (spec: 1 fl< fl<) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 udp-read-u8vector udp-read-u8vector) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 s8vector s8vector) - (spec: 1 f64vector? f64vector?) - (spec: 1 continuation-return continuation-return) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 host-name host-name) - (spec: 1 f32vector? f32vector?) - (spec: 1 condition-variable? condition-variable?) - (spec: 1 bit-field bit-field) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 fxandc2 fxandc2) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 processor-id processor-id) - (spec: 1 s16vector-length s16vector-length) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 fl* fl*) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 1 read-file-string read-file-string) + (spec: 1 flatan flatan) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 table-length table-length) + (spec: 1 current-readtable current-readtable) + (spec: 1 box box) + (spec: 1 file-info-number-of-links file-info-number-of-links) + (spec: 1 u8vector-concatenate u8vector-concatenate) + (spec: 1 unbreak unbreak) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 u32vector u32vector) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 s64vector-copy s64vector-copy) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 1 ucs-range->char-set ucs-range->char-set) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 console-port console-port) + (spec: 1 f64vector-set f64vector-set) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 bitwise-nand bitwise-nand) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: 1 help-browser help-browser) + (spec: 1 make-root-thread make-root-thread) + (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 expression-parsing-exception? expression-parsing-exception?) + (spec: 1 subu64vector subu64vector) + (spec: 1 type-exception-procedure type-exception-procedure) + (spec: 1 make-will make-will) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 write-substring write-substring) + (spec: 1 s64vector-shrink! s64vector-shrink!) + (spec: 1 address-info-family address-info-family) + (spec: 1 path-strip-extension path-strip-extension) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 with-input-from-port with-input-from-port) + (spec: 1 list->char-set! list->char-set!) + (spec: 1 char-set-filter char-set-filter) + (spec: 1 fxior fxior) + (spec: 1 vector-cas! vector-cas!) (spec: 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 time? time?) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 flexpt flexpt) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 s32vector-swap! s32vector-swap!) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 thread-suspend! thread-suspend!) + (spec: 1 open-u8vector open-u8vector) + (spec: 1 eighth eighth) + (spec: 1 split-at split-at) + (spec: 1 thread-group-name thread-group-name) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 fx= fx=) + (spec: 1 thread-mailbox-next thread-mailbox-next) (spec: 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 1 call/cc call/cc) - (spec: 1 display-exception display-exception) - (spec: 1 real-time real-time) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 car+cdr car+cdr) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 fl>= fl>=) + join-timeout-exception-arguments + join-timeout-exception-arguments) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) + (spec: 1 readtable? readtable?) + (spec: 1 open-input-process open-input-process) + (spec: 1 dotted-list? dotted-list?) + (spec: 1 flpositive? flpositive?) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 untrace untrace) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 fltruncate fltruncate) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 thread-group? thread-group?) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 thread thread) - (spec: 1 flodd? flodd?) - (spec: 1 open-file open-file) - (spec: 1 drop-right! drop-right!) - (spec: 1 user-info-home user-info-home) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 mutex-state mutex-state) - (spec: 1 range-exception-arguments range-exception-arguments) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 fl+ fl+) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 random-real random-real) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 file-info file-info) - (spec: 1 shell-command shell-command) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 system-stamp system-stamp) - (spec: 1 fl<= fl<=) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 1 not-pair? not-pair?) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 udp-source-socket-info udp-source-socket-info) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 1 flatanh flatanh) + (spec: 1 table->list table->list) + (spec: 1 box? box?) + (spec: 1 file-info-owner file-info-owner) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 input-port-byte-position input-port-byte-position) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 network-info-name network-info-name) - (spec: 1 string-set string-set) - (spec: 1 group-info-name group-info-name) - (spec: 1 make-mutex make-mutex) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 subs8vector subs8vector) - (spec: 1 u64vector u64vector) - (spec: 1 seventh seventh) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 proper-list? proper-list?) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 thread-send thread-send) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 u64vector-copy u64vector-copy) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 subs32vector subs32vector) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 path-volume path-volume) - (spec: 1 every every) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 path-directory path-directory) - (spec: 1 char-set-size char-set-size) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 error-exception? error-exception?) - (spec: 1 fxnand fxnand) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 flfinite? flfinite?) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 bitwise-nor bitwise-nor) + (spec: + 1 + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 1 subu32vector subu32vector) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 process-status process-status) + (spec: + 1 + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 1 make-random-source make-random-source) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 set-box! set-box!) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 u32vector-copy! u32vector-copy!) + (spec: + 1 + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 s64vector-swap! s64vector-swap!) + (spec: 1 string->char-set! string->char-set!) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 getenv getenv) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 append! append!) + (spec: 1 pp pp) + (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: 1 fxeven? fxeven?) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 string-concatenate string-concatenate) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 1 table-search table-search) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 1 fxquotient fxquotient) + (spec: 1 path-normalize path-normalize) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 s32vector? s32vector?) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 1 flabs flabs) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 socket-info? socket-info?) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 user-info-name user-info-name) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 thread-terminate! thread-terminate!) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 split-at! split-at!) + (spec: 1 force-output force-output) + (spec: 1 with-exception-catcher with-exception-catcher) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 current-directory current-directory) - (spec: 1 mutex-name mutex-name) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 copy-file copy-file) - (spec: 1 sinh sinh) - (spec: 1 fifth fifth) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 fx- fx-) + (spec: 1 output-port-char-position output-port-char-position) + (spec: 1 char-set->list char-set->list) + (spec: 1 s16vector s16vector) + (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 1 user-name user-name) + (spec: 1 object->serial-number object->serial-number) + (spec: 1 remove! remove!) + (spec: 1 fllog fllog) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 system-type system-type) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 flround flround) + (spec: 1 fl+* fl+*) + (spec: 1 input-port-line input-port-line) + (spec: 1 flceiling flceiling) + (spec: 1 read-file-u8vector read-file-u8vector) + (spec: 1 call-with-input-process call-with-input-process) + (spec: 1 table-merge! table-merge!) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 file-info-size file-info-size) + (spec: 1 current-thread current-thread) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 u8vector-copy! u8vector-copy!) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 ninth ninth) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 bit-swap bit-swap) + (spec: 1 xcons xcons) + (spec: 1 protocol-info-number protocol-info-number) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 group-info? group-info?) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 s8vector-fill! s8vector-fill!) - (spec: 1 gensym gensym) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 u32vector? u32vector?) - (spec: 1 subs8vector-fill! subs8vector-fill!) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 create-directory create-directory) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 subu64vector-move! subu64vector-move!) + (spec: 1 r7rs-raise r7rs-raise) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 s8vector? s8vector?) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 type-exception? type-exception?) + (spec: 1 process-times process-times) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 char-set<= char-set<=) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 fxwrap- fxwrap-) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 append-reverse append-reverse) + (spec: 1 s64vector? s64vector?) + (spec: 1 with-input-from-string with-input-from-string) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 list->f64vector list->f64vector) + (spec: 1 fx>= fx>=) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) + (spec: 1 list-set list-set) + (spec: 1 s16vector->list s16vector->list) + (spec: 1 fxmax fxmax) + (spec: 1 thread-thread-group thread-thread-group) + (spec: 1 open-udp open-udp) + (spec: 1 thread-group-resume! thread-group-resume!) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 foreign-tags foreign-tags) + (spec: 1 fllog1p fllog1p) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 conjugate conjugate) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 subf32vector subf32vector) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 make-table make-table) - (spec: 1 concatenate concatenate) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 host-info-name host-info-name) - (spec: 1 fxand fxand) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 err-code->string err-code->string) + display-continuation-environment + display-continuation-environment) + (spec: 1 object->string object->string) + (spec: 1 thread-name thread-name) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 thread-sleep! thread-sleep!) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 1 flscalbn flscalbn) + (spec: 1 drop-right drop-right) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 fl- fl-) + (spec: 1 integer-nth-root integer-nth-root) + (spec: 1 flcos flcos) + (spec: 1 call-with-input-string call-with-input-string) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 1 current-processor current-processor) + (spec: 1 file-info-type file-info-type) + (spec: 1 table-for-each table-for-each) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 dead-end dead-end) + (spec: 1 filter filter) + (spec: 1 input-port-char-position input-port-char-position) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 f64vector-ref f64vector-ref) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) + (spec: 1 bitwise-orc1 bitwise-orc1) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 subs32vector-move! subs32vector-move!) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 seconds->time seconds->time) + (spec: 1 u32vector-length u32vector-length) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 os-exception? os-exception?) - (spec: 1 foreign? foreign?) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 1 u64vector-ref u64vector-ref) + (spec: 1 pretty-print pretty-print) + (spec: 1 condition-variable-signal! condition-variable-signal!) + (spec: 1 string-prefix-length string-prefix-length) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 gc-report-set! gc-report-set!) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 path-strip-directory path-strip-directory) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 string-contains-ci string-contains-ci) + (spec: 1 char-set-every char-set-every) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 fxif fxif) + (spec: 1 list->s16vector list->s16vector) + (spec: 1 output-port-line output-port-line) + (spec: 1 char-set-xor! char-set-xor!) + (spec: 1 fxsquare fxsquare) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 thread-state-initialized? thread-state-initialized?) + (spec: 1 s32vector s32vector) + (spec: 1 started-thread-exception? started-thread-exception?) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 open-vector open-vector) + (spec: 1 sixth sixth) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 fx<= fx<=) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) + (spec: 1 open-vector-pipe open-vector-pipe) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 flmax flmax) + (spec: 1 object->u8vector object->u8vector) (spec: 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 call-with-port call-with-port) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 floor/ floor/) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 flsin flsin) + (spec: 1 open-input-vector open-input-vector) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 1 rename-file rename-file) + (spec: 1 read-string read-string) + (spec: 1 bytevector bytevector) + (spec: 1 file-exists? file-exists?) + (spec: 1 utf8->string utf8->string) + (spec: 1 exact-integer? exact-integer?) + (spec: 1 euclidean/ euclidean/) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 string->utf8 string->utf8) + (spec: 1 current-second current-second) + (spec: 1 bytevector-append bytevector-append) + (spec: 1 string-foldcase string-foldcase) + (spec: 1 balanced/ balanced/) + (spec: 1 string-copy! string-copy!) + (spec: 1 vector-append vector-append) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 ceiling-quotient ceiling-quotient) + (spec: 1 finite? finite?) + (spec: 1 bytevector-copy bytevector-copy) + (spec: 1 write-u8 write-u8) (spec: 1 binary-port? binary-port?) + (spec: 1 command-line command-line) + (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 char-foldcase char-foldcase) + (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 digit-value digit-value) + (spec: 1 bytevector-copy! bytevector-copy!) + (spec: 1 input-port-open? input-port-open?) + (spec: 1 read-line read-line) + (spec: 1 vector-copy! vector-copy!) + (spec: 1 emergency-exit emergency-exit) + (spec: 1 ceiling/ ceiling/) (spec: 1 bytevector-length bytevector-length) - (spec: 1 get-output-string get-output-string) + (spec: 1 delete-file delete-file) + (spec: 1 features features) + (spec: 1 inexact inexact) + (spec: 1 make-list make-list) + (spec: 1 open-output-string open-output-string) + (spec: 1 peek-u8 peek-u8) + (spec: 1 open-binary-input-file open-binary-input-file) + (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 read-bytevector read-bytevector) (spec: 1 promise? promise?) - (spec: 1 string->utf8 string->utf8) - (spec: 1 digit-value digit-value) (spec: 1 string->vector string->vector) (spec: 1 string-for-each string-for-each) + (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 current-error-port current-error-port) + (spec: 1 exit exit) + (spec: 1 make-parameter make-parameter) + (spec: 1 get-output-string get-output-string) + (spec: 1 flush-output-port flush-output-port) + (spec: 1 port? port?) (spec: 1 read-u8 read-u8) - (spec: 1 make-promise make-promise) - (spec: 1 vector-for-each vector-for-each) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 list-copy list-copy) - (spec: 1 floor-quotient floor-quotient) - (spec: 1 inexact inexact) - (spec: 1 open-input-string open-input-string) - (spec: 1 write-string write-string) - (spec: 1 current-jiffy current-jiffy) (spec: 1 bytevector? bytevector?) - (spec: 1 file-error? file-error?) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 make-parameter make-parameter) - (spec: 1 string-map string-map) - (spec: 1 square square) + (spec: 1 u8-ready? u8-ready?) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 call-with-port call-with-port) (spec: 1 boolean=? boolean=?) - (spec: 1 current-error-port current-error-port) - (spec: 1 infinite? infinite?) - (spec: 1 port? port?) + (spec: 1 make-promise make-promise) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 read-bytevector! read-bytevector!) (spec: 1 write-shared write-shared) + (spec: 1 exact exact) + (spec: 1 eof-object eof-object) (spec: 1 error-object-message error-object-message) + (spec: 1 get-output-bytevector get-output-bytevector) + (spec: 1 floor-quotient floor-quotient) + (spec: 1 infinite? infinite?) + (spec: 1 read-error? read-error?) + (spec: 1 string-map string-map) + (spec: 1 error-object? error-object?) + (spec: 1 list-copy list-copy) + (spec: 1 floor-remainder floor-remainder) (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 vector->string vector->string) + (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 file-error? file-error?) + (spec: 1 round-quotient round-quotient) + (spec: 1 square square) + (spec: 1 string-upcase string-upcase) + (spec: 1 vector-for-each vector-for-each) + (spec: 1 floor/ floor/) + (spec: 1 vector-map vector-map) + (spec: 1 symbol=? symbol=?) (spec: 1 write-simple write-simple) (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 error-object? error-object?) - (spec: 1 truncate/ truncate/) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 string-upcase string-upcase) - (spec: 1 balanced/ balanced/) - (spec: 1 eof-object eof-object) - (spec: 1 exact exact) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 ceiling-remainder ceiling-remainder) - (spec: 1 current-second current-second) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 round/ round/) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 euclidean/ euclidean/) + (spec: 1 write-string write-string) (spec: 1 output-port-open? output-port-open?) (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 file-exists? file-exists?) - (spec: 1 read-error? read-error?) - (spec: 1 balanced-quotient balanced-quotient) - (spec: 1 string-downcase string-downcase) - (spec: 1 vector-map vector-map) - (spec: 1 round-quotient round-quotient) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 input-port-open? input-port-open?) - (spec: 1 bytevector-append bytevector-append) + (spec: 1 textual-port? textual-port?) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 vector->string vector->string) + (spec: 1 open-input-string open-input-string) (spec: 1 close-port close-port) - (spec: 1 write-u8 write-u8) + (spec: 1 make-bytevector make-bytevector) (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 open-binary-output-file open-binary-output-file) (spec: 1 round-remainder round-remainder) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 read-string read-string) - (spec: 1 symbol=? symbol=?) - (spec: 1 utf8->string utf8->string) - (spec: 1 list-set! list-set!) - (spec: 1 vector-append vector-append) - (spec: 1 emergency-exit emergency-exit) + (spec: 1 string-downcase string-downcase) + (spec: 1 truncate/ truncate/) (spec: 1 nan? nan?) - (spec: 1 textual-port? textual-port?) - (spec: 1 string-copy! string-copy!) - (spec: 1 ceiling/ ceiling/) - (spec: 1 open-output-string open-output-string) - (spec: 1 bytevector bytevector) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 features features) - (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 command-line command-line) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 make-list make-list) - (spec: 1 read-line read-line) (spec: 1 vector-copy vector-copy) - (spec: 1 u8-ready? u8-ready?) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 finite? finite?) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 vector-copy! vector-copy!) - (spec: 1 delete-file delete-file) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 read-bytevector! read-bytevector!) - (spec: 1 exit exit) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 peek-u8 peek-u8) - (spec: 1 cadar cadar) - (spec: 1 for-each for-each) - (spec: 1 cdar cdar) - (spec: 1 caar caar) + (spec: 1 balanced-quotient balanced-quotient) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 list-set! list-set!) + (spec: 1 round/ round/) + (spec: 1 caaar caaar) + (spec: 1 string>=? string>=?) + (spec: 1 apply apply) + (spec: 1 eqv? eqv?) + (spec: 1 vector-set! vector-set!) + (spec: 1 char-ci=? char-ci=?) + (spec: 1 values values) + (spec: 1 real? real?) + (spec: 1 ceiling ceiling) + (spec: 1 caadar caadar) + (spec: 1 null-environment null-environment) + (spec: 1 integer? integer?) + (spec: 1 symbol? symbol?) + (spec: 1 expt expt) + (spec: 1 map map) + (spec: 1 string>? string>?) + (spec: 1 exact? exact?) + (spec: 1 string->symbol string->symbol) + (spec: 1 eval eval) + (spec: 1 char-ci>=? char-ci>=?) + (spec: 1 open-output-file open-output-file) + (spec: 1 cdaaar cdaaar) + (spec: 1 caaddr caaddr) + (spec: 1 call-with-output-file call-with-output-file) (spec: 1 read read) - (spec: 1 assv assv) + (spec: 1 negative? negative?) + (spec: 1 zero? zero?) + (spec: 1 assq assq) + (spec: 1 string-ref string-ref) + (spec: 1 string? string?) + (spec: 1 peek-char peek-char) (spec: 1 char-upcase char-upcase) - (spec: 1 exp exp) - (spec: 1 magnitude magnitude) - (spec: 1 = =) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 length length) - (spec: 1 list-tail list-tail) - (spec: 1 list->vector list->vector) - (spec: 1 string string) - (spec: 1 caddar caddar) - (spec: 1 force force) - (spec: 1 cddaar cddaar) + (spec: 1 string-append string-append) + (spec: 1 vector-fill! vector-fill!) + (spec: 1 char-ci>? char-ci>?) (spec: 1 reverse reverse) - (spec: 1 boolean? boolean?) - (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 transcript-off transcript-off) - (spec: 1 call-with-values call-with-values) + (spec: 1 cdaadr cdaadr) + (spec: 1 null? null?) + (spec: 1 write-char write-char) + (spec: 1 caadr caadr) + (spec: 1 even? even?) + (spec: 1 list-tail list-tail) + (spec: 1 string-fill! string-fill!) + (spec: 1 list->string list->string) + (spec: 1 char-downcase char-downcase) + (spec: 1 cdaar cdaar) + (spec: 1 length length) + (spec: 1 odd? odd?) + (spec: 1 caar caar) + (spec: 1 imag-part imag-part) + (spec: 1 string-set! string-set!) + (spec: 1 string-cistring number->string) + (spec: 1 cdadar cdadar) + (spec: 1 not not) + (spec: 1 cadaar cadaar) + (spec: 1 max max) + (spec: 1 assoc assoc) + (spec: 1 make-string make-string) + (spec: 1 abs abs) + (spec: 1 with-output-to-file with-output-to-file) + (spec: 1 output-port? output-port?) + (spec: 1 cdaddr cdaddr) + (spec: 1 denominator denominator) + (spec: 1 cadadr cadadr) + (spec: 1 read-char read-char) + (spec: 1 substring substring) + (spec: 1 member member) + (spec: 1 cos cos) + (spec: 1 sin sin) + (spec: 1 / /) + (spec: 1 list? list?) + (spec: 1 char<=? char<=?) + (spec: 1 vector vector) + (spec: 1 char-numeric? char-numeric?) + (spec: 1 cdadr cdadr) + (spec: 1 input-port? input-port?) + (spec: 1 cadar cadar) + (spec: 1 scheme-report-environment scheme-report-environment) + (spec: 1 complex? complex?) + (spec: 1 assv assv) + (spec: 1 < <) + (spec: 1 angle angle) (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 memq memq) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 peek-char peek-char) - (spec: 1 string-ciexact inexact->exact) - (spec: 1 rationalize rationalize) - (spec: 1 close-output-port close-output-port) - (spec: 1 angle angle) - (spec: 1 char>=? char>=?) - (spec: 1 <= <=) - (spec: 1 member member) - (spec: 1 set-car! set-car!) + (spec: 1 string-ci>? string-ci>?) (spec: 1 vector->list vector->list) (spec: 1 vector-length vector-length) - (spec: 1 car car) - (spec: 1 numerator numerator) + (spec: 1 call-with-values call-with-values) + (spec: 1 cddaar cddaar) + (spec: 1 floor floor) + (spec: 1 cadddr cadddr) + (spec: 1 boolean? boolean?) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 cons cons) + (spec: 1 procedure? procedure?) + (spec: 1 = =) + (spec: 1 atan atan) + (spec: 1 char-whitespace? char-whitespace?) + (spec: 1 list list) + (spec: 1 list->vector list->vector) + (spec: 1 string-ci=? string-ci=?) + (spec: 1 transcript-off transcript-off) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 vector? vector?) + (spec: 1 cddadr cddadr) + (spec: 1 caddr caddr) + (spec: 1 current-output-port current-output-port) + (spec: 1 symbol->string symbol->string) + (spec: 1 set-car! set-car!) + (spec: 1 exact->inexact exact->inexact) + (spec: 1 char>? char>?) + (spec: 1 eof-object? eof-object?) + (spec: 1 transcript-on transcript-on) + (spec: 1 lcm lcm) + (spec: 1 display display) + (spec: 1 number? number?) + (spec: 1 cddar cddar) + (spec: 1 tan tan) (spec: 1 cadr cadr) - (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 quotient quotient) + (spec: 1 make-polar make-polar) + (spec: 1 close-input-port close-input-port) + (spec: 1 string-ci>=? string-ci>=?) + (spec: 1 > >) + (spec: 1 charstring symbol->string) - (spec: 1 read-char read-char) - (spec: 1 make-polar make-polar) - (spec: 1 * *) - (spec: 1 char<=? char<=?) - (spec: 1 cons cons) - (spec: 1 procedure? procedure?) - (spec: 1 pair? pair?) - (spec: 1 load load) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 string->list string->list) - (spec: 1 list-ref list-ref) - (spec: 1 denominator denominator) (spec: 1 call-with-current-continuation call-with-current-continuation) - (spec: 1 cddddr cddddr) - (spec: 1 char->integer char->integer) - (spec: 1 lcm lcm) - (spec: 1 string? string-ci>?) - (spec: 1 cdaaar cdaaar) (spec: 1 remainder remainder) - (spec: 1 vector vector) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 open-output-file open-output-file) - (spec: 1 caaaar caaaar) - (spec: 1 write write) - (spec: 1 > >) - (spec: 1 map map) - (spec: 1 char-ready? char-ready?) (spec: 1 truncate truncate) - (spec: 1 cdaadr cdaadr) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 null? null?) - (spec: 1 char-ci>? char-ci>?) - (spec: 1 sqrt sqrt) - (spec: 1 inexact? inexact?) - (spec: 1 integer->char integer->char) + (spec: 1 min min) + (spec: 1 modulo modulo) + (spec: 1 close-output-port close-output-port) (spec: 1 string<=? string<=?) (spec: 1 >= >=) - (spec: 1 eof-object? eof-object?) - (spec: 1 exact->inexact exact->inexact) - (spec: 1 gcd gcd) - (spec: 1 char-ci? char>?) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 make-vector make-vector) - (spec: 1 string>? string>?) - (spec: 1 display display) - (spec: 1 null-environment null-environment) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 ceiling ceiling) - (spec: 1 caadar caadar) - (spec: 1 string-ref string-ref) - (spec: 1 char? char?) - (spec: 1 string-fill! string-fill!) - (spec: 1 string? string?) - (spec: 1 with-input-from-file with-input-from-file) - (spec: 1 eqv? eqv?) - (spec: 1 vector-set! vector-set!) - (spec: 1 cdaddr cdaddr) - (spec: 1 not not) - (spec: 1 negative? negative?) - (spec: 1 caaddr caaddr) - (spec: 1 make-string make-string) - (spec: 1 - -) - (spec: 1 assoc assoc) - (spec: 1 expt expt) - (spec: 1 max max) (spec: 1 string-copy string-copy) - (spec: 1 even? even?) - (spec: 1 cdadr cdadr) - (spec: 1 real? real?) - (spec: 1 symbol? symbol?) - (spec: 1 caaadr caaadr) - (spec: 1 integer? integer?) + (spec: 1 eq? eq?) + (spec: 1 char->integer char->integer) + (spec: 1 force force) + (spec: 1 string->number string->number) + (spec: 1 cddddr cddddr) + (spec: 1 integer->char integer->char) + (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 inexact? inexact?) + (spec: 1 newline newline) + (spec: 1 rationalize rationalize) + (spec: 1 memv memv) + (spec: 1 * *) + (spec: 1 string=? char>=?) + (spec: 1 pair? pair?) + (spec: 1 list-ref list-ref) + (spec: 1 round round) + (spec: 1 char-alphabetic? char-alphabetic?) + (spec: 1 sqrt sqrt) + (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 cdddr cdddr) + (spec: 1 caaaar caaaar) + (spec: 1 interaction-environment interaction-environment) + (spec: 1 + +) (spec: 1 asin asin) - (spec: 1 with-output-to-file with-output-to-file) - (spec: 1 string>=? string>=?) + (spec: 1 log log) + (spec: 1 string=? string=?) (spec: 1 equal? equal?) - (spec: 1 values values) - (spec: 1 string->number string->number) + (spec: 1 gcd gcd) (spec: 1 vector-ref vector-ref) - (spec: 1 cdaar cdaar) - (spec: 1 odd? odd?) - (spec: 1 caaar caaar) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 apply apply) - (spec: 1 output-port? output-port?) - (spec: 1 string->symbol string->symbol) - (spec: 1 abs abs) - (spec: 1 cdadar cdadar) - (spec: 1 number->string number->string) - (spec: 1 char-downcase char-downcase) - (spec: 1 floor floor) + (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 cddr cddr) (spec: 1 real-part real-part) - (spec: 1 eval eval) - (spec: 1 cadaar cadaar) - (spec: 1 input-port? input-port?) - (spec: 1 / /) - (spec: 1 exact? exact?) - (spec: 1 string-length string-length) - (spec: 1 substring substring) - (spec: 1 write-char write-char) - (spec: 1 zero? zero?) - (spec: 1 string-append string-append) - (spec: 1 cadddr cadddr) - (spec: 1 cddadr cddadr) - (spec: 1 cadadr cadadr) - (spec: 1 atan atan) - (spec: 1 complex? complex?) - (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 list->string list->string) - (spec: 1 number? number?) - (spec: 1 caddr caddr) - (spec: 1 vector? vector?) - (spec: 1 cddar cddar) - (spec: 1 caadr caadr) - (spec: 1 string-set! string-set!) - (spec: 1 assq assq) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 list? list?) + (spec: 1 caaadr caaadr) + (spec: 1 make-rectangular make-rectangular) + (spec: 1 - -) + (spec: 1 make-vector make-vector) + (spec: 1 char? char?) + (spec: 1 set-cdr! set-cdr!) + (spec: 1 string->list string->list) + (spec: 1 with-input-from-file with-input-from-file) + (spec: 1 char-ci>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83927 '15 '#f '#f)) - (let ((__tmp83939 + (##unchecked-structure-set! __obj83883 __tmp83973 '15 '#f '#f)) + (let ((__tmp83985 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83940_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83986_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83941_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83987_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83942_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83988_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83943_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83989_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83944_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83990_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83945_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83991_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83946_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83992_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83947_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83993_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83948_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83994_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83949_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83995_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83950_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83996_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83939 '16 '#f '#f)) - (let ((__tmp83951 + (##unchecked-structure-set! __obj83883 __tmp83985 '16 '#f '#f)) + (let ((__tmp83997 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83952_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83998_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83953_|) + |gerbil/core/contract~InterfaceInfo[1]#_g83999_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83954_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84000_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83955_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84001_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83956_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84002_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83957_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84003_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83958_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84004_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83959_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84005_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83960_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84006_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83961_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84007_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83962_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84008_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83951 '17 '#f '#f)) - (let ((__tmp83963 + (##unchecked-structure-set! __obj83883 __tmp83997 '17 '#f '#f)) + (let ((__tmp84009 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83964_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84010_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83965_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84011_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83966_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84012_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83967_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84013_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83968_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84014_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83969_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84015_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83970_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84016_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83971_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84017_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83972_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84018_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83973_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84019_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83974_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84020_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83963 '18 '#f '#f)) - __obj83837))) + (##unchecked-structure-set! __obj83883 __tmp84009 '18 '#f '#f)) + __obj83883))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index 6913a7d15..4afd7457d 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 _%$args45072%_ + (lambda _%$args45108%_ (apply make-instance |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%$args45072%_))) + _%$args45108%_))) (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 (_%id45053%_) - (if (gx#identifier? _%id45053%_) - (let ((_%t4505545057%_ (gx#syntax-local-value _%id45053%_ false))) - (if _%t4505545057%_ - (let* ((_%t45061%_ _%t4505545057%_) - (_%$e45064%_ + (lambda (_%id45089%_) + (if (gx#identifier? _%id45089%_) + (let ((_%t4509145093%_ (gx#syntax-local-value _%id45089%_ false))) + (if _%t4509145093%_ + (let* ((_%t45097%_ _%t4509145093%_) + (_%$e45100%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45061%_)))) - (if _%$e45064%_ - _%$e45064%_ - (let ((_%$e45068%_ + _%t45097%_)))) + (if _%$e45100%_ + _%$e45100%_ + (let ((_%$e45104%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45061%_)))) - (if _%$e45068%_ - _%$e45068%_ + _%t45097%_)))) + (if _%$e45104%_ + _%$e45104%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45061%_)))))) + _%t45097%_)))))) '#f)) '#f))) (define |gerbil/core/contract~TypeReference[1]#resolve-type| - (lambda (_%stx45033%_ _%id45035%_) - (let _%loop45037%_ ((_%t45040%_ - (gx#syntax-local-value _%id45035%_ false))) + (lambda (_%stx45069%_ _%id45071%_) + (let _%loop45073%_ ((_%t45076%_ + (gx#syntax-local-value _%id45071%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45040%_)) - _%t45040%_ + _%t45076%_)) + _%t45076%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45040%_)) - _%t45040%_ + _%t45076%_)) + _%t45076%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45040%_)) - (_%loop45037%_ + _%t45076%_)) + (_%loop45073%_ (gx#syntax-local-value - (let ((__obj83845 _%t45040%_)) + (let ((__obj83891 _%t45076%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83845 + __obj83891 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83845 + __obj83891 '1 '#f '#f)) - (unchecked-slot-ref __obj83845 'identifier))) + (unchecked-slot-ref __obj83891 'identifier))) false)) - (if (not _%t45040%_) + (if (not _%t45076%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45033%_ - _%id45035%_) + _%stx45069%_ + _%id45071%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45033%_ - _%id45035%_ - _%t45040%_)))))))) + _%stx45069%_ + _%id45071%_ + _%t45076%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (lambda (_%stx45009%_ _%id45011%_) - (let _%loop45013%_ ((_%id45016%_ _%id45011%_) - (_%t45018%_ - (gx#syntax-local-value _%id45011%_ false))) + (lambda (_%stx45045%_ _%id45047%_) + (let _%loop45049%_ ((_%id45052%_ _%id45047%_) + (_%t45054%_ + (gx#syntax-local-value _%id45047%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45018%_)) - _%id45016%_ + _%t45054%_)) + _%id45052%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45018%_)) - _%id45016%_ + _%t45054%_)) + _%id45052%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45018%_)) - (let ((_%id45026%_ - (let ((__obj83846 _%t45018%_)) + _%t45054%_)) + (let ((_%id45062%_ + (let ((__obj83892 _%t45054%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83846 + __obj83892 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83846 + __obj83892 '1 '#f '#f)) (unchecked-slot-ref - __obj83846 + __obj83892 'identifier))))) - (_%loop45013%_ - _%id45026%_ - (gx#syntax-local-value _%id45026%_ false))) - (if (not _%t45018%_) + (_%loop45049%_ + _%id45062%_ + (gx#syntax-local-value _%id45062%_ false))) + (if (not _%t45054%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45009%_ - _%id45016%_) + _%stx45045%_ + _%id45052%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45009%_ - _%id45016%_ - _%t45018%_)))))))) + _%stx45045%_ + _%id45052%_ + _%t45054%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (lambda (_%stx44996%_ _%id44998%_) - (let ((_%t45000%_ + (lambda (_%stx45032%_ _%id45034%_) + (let ((_%t45036%_ (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx44996%_ - _%id44998%_))) + _%stx45032%_ + _%id45034%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45000%_)) - (let ((__obj83848 _%t45000%_)) + _%t45036%_)) + (let ((__obj83894 _%t45036%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83848 + __obj83894 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83848 '12 '#f '#f)) - (unchecked-slot-ref __obj83848 'type-descriptor))) + (##unchecked-structure-ref __obj83894 '12 '#f '#f)) + (unchecked-slot-ref __obj83894 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45000%_)) - (let ((__obj83847 _%t45000%_)) + _%t45036%_)) + (let ((__obj83893 _%t45036%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83847 + __obj83893 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83847 '4 '#f '#f)) - (unchecked-slot-ref __obj83847 'instance-type))) + (##unchecked-structure-ref __obj83893 '4 '#f '#f)) + (unchecked-slot-ref __obj83893 'instance-type))) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx44996%_ - _%id44998%_ - _%t45000%_)))))) + _%stx45032%_ + _%id45034%_ + _%t45036%_)))))) (define |gerbil/core/contract~TypeReference[:0:]#deftype| - (lambda (_%$stx45076%_) - (let* ((_%g4508045098%_ - (lambda (_%g4508145094%_) + (lambda (_%$stx45112%_) + (let* ((_%g4511645134%_ + (lambda (_%g4511745130%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4508145094%_))) - (_%g4507945153%_ - (lambda (_%g4508145102%_) - (if (gx#stx-pair? _%g4508145102%_) - (let ((_%e4508445105%_ (gx#syntax-e _%g4508145102%_))) - (let ((_%hd4508545109%_ + _%g4511745130%_))) + (_%g4511545189%_ + (lambda (_%g4511745138%_) + (if (gx#stx-pair? _%g4511745138%_) + (let ((_%e4512045141%_ (gx#syntax-e _%g4511745138%_))) + (let ((_%hd4512145145%_ (let () (declare (not safe)) - (##car _%e4508445105%_))) - (_%tl4508645112%_ + (##car _%e4512045141%_))) + (_%tl4512245148%_ (let () (declare (not safe)) - (##cdr _%e4508445105%_)))) - (if (gx#stx-pair? _%tl4508645112%_) - (let ((_%e4508745115%_ - (gx#syntax-e _%tl4508645112%_))) - (let ((_%hd4508845119%_ + (##cdr _%e4512045141%_)))) + (if (gx#stx-pair? _%tl4512245148%_) + (let ((_%e4512345151%_ + (gx#syntax-e _%tl4512245148%_))) + (let ((_%hd4512445155%_ (let () (declare (not safe)) - (##car _%e4508745115%_))) - (_%tl4508945122%_ + (##car _%e4512345151%_))) + (_%tl4512545158%_ (let () (declare (not safe)) - (##cdr _%e4508745115%_)))) - (if (gx#stx-pair? _%tl4508945122%_) - (let ((_%e4509045125%_ - (gx#syntax-e _%tl4508945122%_))) - (let ((_%hd4509145129%_ + (##cdr _%e4512345151%_)))) + (if (gx#stx-pair? _%tl4512545158%_) + (let ((_%e4512645161%_ + (gx#syntax-e _%tl4512545158%_))) + (let ((_%hd4512745165%_ (let () (declare (not safe)) - (##car _%e4509045125%_))) - (_%tl4509245132%_ + (##car _%e4512645161%_))) + (_%tl4512845168%_ (let () (declare (not safe)) - (##cdr _%e4509045125%_)))) - (if (gx#stx-null? _%tl4509245132%_) - ((lambda (_%L45135%_ _%L45137%_) + (##cdr _%e4512645161%_)))) + (if (gx#stx-null? _%tl4512845168%_) + ((lambda (_%L45171%_ _%L45173%_) (if (and (gx#identifier? - _%L45137%_) + _%L45173%_) (gx#identifier? - _%L45135%_)) + _%L45171%_)) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45137%_ + (cons _%L45173%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -267,17 +267,17 @@ (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L45135%_ '())) + (cons _%L45171%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4508045098%_ - _%g4508145102%_))) - _%hd4509145129%_ - _%hd4508845119%_) - (_%g4508045098%_ - _%g4508145102%_)))) - (_%g4508045098%_ _%g4508145102%_)))) - (_%g4508045098%_ _%g4508145102%_)))) - (_%g4508045098%_ _%g4508145102%_))))) - (_%g4507945153%_ _%$stx45076%_))))) + (_%g4511645134%_ + _%g4511745138%_))) + _%hd4512745165%_ + _%hd4512445155%_) + (_%g4511645134%_ + _%g4511745138%_)))) + (_%g4511645134%_ _%g4511745138%_)))) + (_%g4511645134%_ _%g4511745138%_)))) + (_%g4511645134%_ _%g4511745138%_))))) + (_%g4511545189%_ _%$stx45112%_))))) diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index e5d7e0df3..c0cc47a7b 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]#_g83976_| + (define |gerbil/core/contract~TypeReference[2]#_g84022_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83978_| + (define |gerbil/core/contract~TypeReference[2]#_g84024_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83980_| + (define |gerbil/core/contract~TypeReference[2]#_g84026_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83982_| + (define |gerbil/core/contract~TypeReference[2]#_g84028_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83984_| + (define |gerbil/core/contract~TypeReference[2]#_g84030_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83986_| + (define |gerbil/core/contract~TypeReference[2]#_g84032_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83988_| + (define |gerbil/core/contract~TypeReference[2]#_g84034_| (##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 ((__obj83844 + (let ((__obj83890 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83844 + __obj83890 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj83890 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj83890 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83890 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj83890 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj83890 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83890 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '11 '#f '#f)) - (let ((__tmp83975 |gerbil/core/contract~TypeReference[2]#_g83976_|)) + (##unchecked-structure-set! __obj83890 '#f '11 '#f '#f)) + (let ((__tmp84021 |gerbil/core/contract~TypeReference[2]#_g84022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83975 '12 '#f '#f)) - (let ((__tmp83977 |gerbil/core/contract~TypeReference[2]#_g83978_|)) + (##unchecked-structure-set! __obj83890 __tmp84021 '12 '#f '#f)) + (let ((__tmp84023 |gerbil/core/contract~TypeReference[2]#_g84024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83977 '13 '#f '#f)) - (let ((__tmp83979 |gerbil/core/contract~TypeReference[2]#_g83980_|)) + (##unchecked-structure-set! __obj83890 __tmp84023 '13 '#f '#f)) + (let ((__tmp84025 |gerbil/core/contract~TypeReference[2]#_g84026_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83979 '14 '#f '#f)) - (let ((__tmp83981 + (##unchecked-structure-set! __obj83890 __tmp84025 '14 '#f '#f)) + (let ((__tmp84027 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83982_|) + |gerbil/core/contract~TypeReference[2]#_g84028_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83981 '15 '#f '#f)) - (let ((__tmp83983 + (##unchecked-structure-set! __obj83890 __tmp84027 '15 '#f '#f)) + (let ((__tmp84029 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83984_|) + |gerbil/core/contract~TypeReference[2]#_g84030_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83983 '16 '#f '#f)) - (let ((__tmp83985 + (##unchecked-structure-set! __obj83890 __tmp84029 '16 '#f '#f)) + (let ((__tmp84031 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83986_|) + |gerbil/core/contract~TypeReference[2]#_g84032_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83985 '17 '#f '#f)) - (let ((__tmp83987 + (##unchecked-structure-set! __obj83890 __tmp84031 '17 '#f '#f)) + (let ((__tmp84033 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83988_|) + |gerbil/core/contract~TypeReference[2]#_g84034_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83987 '18 '#f '#f)) - __obj83844))) + (##unchecked-structure-set! __obj83890 __tmp84033 '18 '#f '#f)) + __obj83890))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index 75eceba85..0d5d0f492 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]#_g83991_| + (define |gerbil/core/contract~TypeCast[1]#_g84037_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| - (lambda (_%stx45158%_) - (let* ((_%g4516145179%_ - (lambda (_%g4516245175%_) + (lambda (_%stx45194%_) + (let* ((_%g4519745215%_ + (lambda (_%g4519845211%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4516245175%_))) - (_%g4516045374%_ - (lambda (_%g4516245183%_) - (if (gx#stx-pair? _%g4516245183%_) - (let ((_%e4516545186%_ (gx#syntax-e _%g4516245183%_))) - (let ((_%hd4516645190%_ + _%g4519845211%_))) + (_%g4519645410%_ + (lambda (_%g4519845219%_) + (if (gx#stx-pair? _%g4519845219%_) + (let ((_%e4520145222%_ (gx#syntax-e _%g4519845219%_))) + (let ((_%hd4520245226%_ (let () (declare (not safe)) - (##car _%e4516545186%_))) - (_%tl4516745193%_ + (##car _%e4520145222%_))) + (_%tl4520345229%_ (let () (declare (not safe)) - (##cdr _%e4516545186%_)))) - (if (gx#stx-pair? _%tl4516745193%_) - (let ((_%e4516845196%_ - (gx#syntax-e _%tl4516745193%_))) - (let ((_%hd4516945200%_ + (##cdr _%e4520145222%_)))) + (if (gx#stx-pair? _%tl4520345229%_) + (let ((_%e4520445232%_ + (gx#syntax-e _%tl4520345229%_))) + (let ((_%hd4520545236%_ (let () (declare (not safe)) - (##car _%e4516845196%_))) - (_%tl4517045203%_ + (##car _%e4520445232%_))) + (_%tl4520645239%_ (let () (declare (not safe)) - (##cdr _%e4516845196%_)))) - (if (gx#stx-pair? _%tl4517045203%_) - (let ((_%e4517145206%_ - (gx#syntax-e _%tl4517045203%_))) - (let ((_%hd4517245210%_ + (##cdr _%e4520445232%_)))) + (if (gx#stx-pair? _%tl4520645239%_) + (let ((_%e4520745242%_ + (gx#syntax-e _%tl4520645239%_))) + (let ((_%hd4520845246%_ (let () (declare (not safe)) - (##car _%e4517145206%_))) - (_%tl4517345213%_ + (##car _%e4520745242%_))) + (_%tl4520945249%_ (let () (declare (not safe)) - (##cdr _%e4517145206%_)))) - (if (gx#stx-null? _%tl4517345213%_) - ((lambda (_%L45216%_ _%L45218%_) + (##cdr _%e4520745242%_)))) + (if (gx#stx-null? _%tl4520945249%_) + ((lambda (_%L45252%_ _%L45254%_) (if (gx#identifier? - _%L45216%_) - (let ((_%meta45235%_ + _%L45252%_) + (let ((_%meta45271%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45158%_ - _%L45216%_)))) + _%stx45194%_ + _%L45252%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45235%_)) - (let* ((_%g4524045255%_ + _%meta45271%_)) + (let* ((_%g4527645291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4524145251%_) + (lambda (_%g4527745287%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4524145251%_))) - (_%g4523945302%_ - (lambda (_%g4524145259%_) - (if (gx#stx-pair? _%g4524145259%_) - (let ((_%e4524445262%_ - (gx#syntax-e _%g4524145259%_))) - (let ((_%hd4524545266%_ + _%g4527745287%_))) + (_%g4527545338%_ + (lambda (_%g4527745295%_) + (if (gx#stx-pair? _%g4527745295%_) + (let ((_%e4528045298%_ + (gx#syntax-e _%g4527745295%_))) + (let ((_%hd4528145302%_ (let () (declare (not safe)) - (##car _%e4524445262%_))) - (_%tl4524645269%_ + (##car _%e4528045298%_))) + (_%tl4528245305%_ (let () (declare (not safe)) - (##cdr _%e4524445262%_)))) - (if (gx#stx-pair? _%tl4524645269%_) - (let ((_%e4524745272%_ + (##cdr _%e4528045298%_)))) + (if (gx#stx-pair? _%tl4528245305%_) + (let ((_%e4528345308%_ (gx#syntax-e - _%tl4524645269%_))) - (let ((_%hd4524845276%_ + _%tl4528245305%_))) + (let ((_%hd4528445312%_ (let () (declare (not safe)) - (##car _%e4524745272%_))) - (_%tl4524945279%_ + (##car _%e4528345308%_))) + (_%tl4528545315%_ (let () (declare (not safe)) - (##cdr _%e4524745272%_)))) + (##cdr _%e4528345308%_)))) (if (gx#stx-null? - _%tl4524945279%_) - ((lambda (_%L45282%_ - _%L45284%_) - (if (let ((__tmp83989 - (let ((__obj83850 + _%tl4528545315%_) + ((lambda (_%L45318%_ + _%L45320%_) + (if (let ((__tmp84035 + (let ((__obj83896 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45235%_)) + _%meta45271%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83850 + __obj83896 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83850 + __obj83896 '1 '#f '#f)) - (unchecked-slot-ref __obj83850 'id))))) + (unchecked-slot-ref __obj83896 'id))))) (declare (not safe)) - (##memq __tmp83989 '(t void))) + (##memq __tmp84035 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45284%_ '())) - (cons _%L45218%_ '()))) + (cons _%L45320%_ '())) + (cons _%L45254%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45284%_ '())) + (cons _%L45320%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45218%_ '())) + (cons _%L45254%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45282%_ + (cons (cons _%L45318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'val) '())) (cons (gx#datum->syntax '#f 'val) (cons (cons (gx#datum->syntax '#f 'error) (cons '"bad cast" - (cons _%L45284%_ + (cons _%L45320%_ (cons (gx#datum->syntax '#f 'val) @@ -146,85 +146,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4524845276%_ - _%hd4524545266%_) - (_%g4524045255%_ - _%g4524145259%_)))) - (_%g4524045255%_ _%g4524145259%_)))) - (_%g4524045255%_ _%g4524145259%_))))) - (_%g4523945302%_ - (list (let ((__obj83851 _%meta45235%_)) + _%hd4528445312%_ + _%hd4528145302%_) + (_%g4527645291%_ + _%g4527745295%_)))) + (_%g4527645291%_ _%g4527745295%_)))) + (_%g4527645291%_ _%g4527745295%_))))) + (_%g4527545338%_ + (list (let ((__obj83897 _%meta45271%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83851 + __obj83897 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83851 + __obj83897 '12 '#f '#f)) (unchecked-slot-ref - __obj83851 + __obj83897 'type-descriptor))) - (let ((__obj83852 _%meta45235%_)) + (let ((__obj83898 _%meta45271%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83852 + __obj83898 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83852 + __obj83898 '14 '#f '#f)) (unchecked-slot-ref - __obj83852 + __obj83898 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45235%_)) - (let* ((_%g4530845323%_ - (lambda (_%g4530945319%_) + _%meta45271%_)) + (let* ((_%g4534445359%_ + (lambda (_%g4534545355%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4530945319%_))) - (_%g4530745368%_ - (lambda (_%g4530945327%_) - (if (gx#stx-pair? _%g4530945327%_) - (let ((_%e4531245330%_ - (gx#syntax-e _%g4530945327%_))) - (let ((_%hd4531345334%_ + _%g4534545355%_))) + (_%g4534345404%_ + (lambda (_%g4534545363%_) + (if (gx#stx-pair? _%g4534545363%_) + (let ((_%e4534845366%_ + (gx#syntax-e _%g4534545363%_))) + (let ((_%hd4534945370%_ (let () (declare (not safe)) - (##car _%e4531245330%_))) - (_%tl4531445337%_ + (##car _%e4534845366%_))) + (_%tl4535045373%_ (let () (declare (not safe)) - (##cdr _%e4531245330%_)))) - (if (gx#stx-pair? _%tl4531445337%_) - (let ((_%e4531545340%_ + (##cdr _%e4534845366%_)))) + (if (gx#stx-pair? _%tl4535045373%_) + (let ((_%e4535145376%_ (gx#syntax-e - _%tl4531445337%_))) - (let ((_%hd4531645344%_ + _%tl4535045373%_))) + (let ((_%hd4535245380%_ (let () (declare (not safe)) - (##car _%e4531545340%_))) - (_%tl4531745347%_ + (##car _%e4535145376%_))) + (_%tl4535345383%_ (let () (declare (not safe)) - (##cdr _%e4531545340%_)))) + (##cdr _%e4535145376%_)))) (if (gx#stx-null? - _%tl4531745347%_) - ((lambda (_%L45350%_ - _%L45352%_) + _%tl4535345383%_) + ((lambda (_%L45386%_ + _%L45388%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -232,179 +232,179 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45352%_ '())) - (cons (cons _%L45350%_ (cons _%L45218%_ '())) + (cons _%L45388%_ '())) + (cons (cons _%L45386%_ (cons _%L45254%_ '())) '())))) - _%hd4531645344%_ - _%hd4531345334%_) + _%hd4535245380%_ + _%hd4534945370%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4530845323%_ - _%g4530945327%_)))) - (_%g4530845323%_ - _%g4530945327%_)))) - (_%g4530845323%_ _%g4530945327%_))))) - (_%g4530745368%_ - (list (let ((__obj83849 _%meta45235%_)) + (_%g4534445359%_ + _%g4534545363%_)))) + (_%g4534445359%_ + _%g4534545363%_)))) + (_%g4534445359%_ _%g4534545363%_))))) + (_%g4534345404%_ + (list (let ((__obj83895 _%meta45271%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83849 + __obj83895 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83849 + __obj83895 '4 '#f '#f)) (unchecked-slot-ref - __obj83849 + __obj83895 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45158%_ - _%L45216%_))))) + _%stx45194%_ + _%L45252%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45158%_ - _%L45216%_)))) + _%stx45194%_ + _%L45252%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4516145179%_ - _%g4516245183%_))) - _%hd4517245210%_ - _%hd4516945200%_) - (_%g4516145179%_ - _%g4516245183%_)))) - (_%g4516145179%_ _%g4516245183%_)))) - (_%g4516145179%_ _%g4516245183%_)))) - (_%g4516145179%_ _%g4516245183%_))))) - (_%g4516045374%_ _%stx45158%_)))) + (_%g4519745215%_ + _%g4519845219%_))) + _%hd4520845246%_ + _%hd4520545236%_) + (_%g4519745215%_ + _%g4519845219%_)))) + (_%g4519745215%_ _%g4519845219%_)))) + (_%g4519745215%_ _%g4519845219%_)))) + (_%g4519745215%_ _%g4519845219%_))))) + (_%g4519645410%_ _%stx45194%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:?| - (lambda (_%stx45378%_) - (let* ((_%g4538145399%_ - (lambda (_%g4538245395%_) + (lambda (_%stx45414%_) + (let* ((_%g4541745435%_ + (lambda (_%g4541845431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4538245395%_))) - (_%g4538045593%_ - (lambda (_%g4538245403%_) - (if (gx#stx-pair? _%g4538245403%_) - (let ((_%e4538545406%_ (gx#syntax-e _%g4538245403%_))) - (let ((_%hd4538645410%_ + _%g4541845431%_))) + (_%g4541645629%_ + (lambda (_%g4541845439%_) + (if (gx#stx-pair? _%g4541845439%_) + (let ((_%e4542145442%_ (gx#syntax-e _%g4541845439%_))) + (let ((_%hd4542245446%_ (let () (declare (not safe)) - (##car _%e4538545406%_))) - (_%tl4538745413%_ + (##car _%e4542145442%_))) + (_%tl4542345449%_ (let () (declare (not safe)) - (##cdr _%e4538545406%_)))) - (if (gx#stx-pair? _%tl4538745413%_) - (let ((_%e4538845416%_ - (gx#syntax-e _%tl4538745413%_))) - (let ((_%hd4538945420%_ + (##cdr _%e4542145442%_)))) + (if (gx#stx-pair? _%tl4542345449%_) + (let ((_%e4542445452%_ + (gx#syntax-e _%tl4542345449%_))) + (let ((_%hd4542545456%_ (let () (declare (not safe)) - (##car _%e4538845416%_))) - (_%tl4539045423%_ + (##car _%e4542445452%_))) + (_%tl4542645459%_ (let () (declare (not safe)) - (##cdr _%e4538845416%_)))) - (if (gx#stx-pair? _%tl4539045423%_) - (let ((_%e4539145426%_ - (gx#syntax-e _%tl4539045423%_))) - (let ((_%hd4539245430%_ + (##cdr _%e4542445452%_)))) + (if (gx#stx-pair? _%tl4542645459%_) + (let ((_%e4542745462%_ + (gx#syntax-e _%tl4542645459%_))) + (let ((_%hd4542845466%_ (let () (declare (not safe)) - (##car _%e4539145426%_))) - (_%tl4539345433%_ + (##car _%e4542745462%_))) + (_%tl4542945469%_ (let () (declare (not safe)) - (##cdr _%e4539145426%_)))) - (if (gx#stx-null? _%tl4539345433%_) - ((lambda (_%L45436%_ _%L45438%_) + (##cdr _%e4542745462%_)))) + (if (gx#stx-null? _%tl4542945469%_) + ((lambda (_%L45472%_ _%L45474%_) (if (gx#identifier? - _%L45436%_) - (let ((_%meta45454%_ + _%L45472%_) + (let ((_%meta45490%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45378%_ - _%L45436%_)))) + _%stx45414%_ + _%L45472%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45454%_)) - (let* ((_%g4545945474%_ + _%meta45490%_)) + (let* ((_%g4549545510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4546045470%_) + (lambda (_%g4549645506%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4546045470%_))) - (_%g4545845521%_ - (lambda (_%g4546045478%_) - (if (gx#stx-pair? _%g4546045478%_) - (let ((_%e4546345481%_ - (gx#syntax-e _%g4546045478%_))) - (let ((_%hd4546445485%_ + _%g4549645506%_))) + (_%g4549445557%_ + (lambda (_%g4549645514%_) + (if (gx#stx-pair? _%g4549645514%_) + (let ((_%e4549945517%_ + (gx#syntax-e _%g4549645514%_))) + (let ((_%hd4550045521%_ (let () (declare (not safe)) - (##car _%e4546345481%_))) - (_%tl4546545488%_ + (##car _%e4549945517%_))) + (_%tl4550145524%_ (let () (declare (not safe)) - (##cdr _%e4546345481%_)))) - (if (gx#stx-pair? _%tl4546545488%_) - (let ((_%e4546645491%_ + (##cdr _%e4549945517%_)))) + (if (gx#stx-pair? _%tl4550145524%_) + (let ((_%e4550245527%_ (gx#syntax-e - _%tl4546545488%_))) - (let ((_%hd4546745495%_ + _%tl4550145524%_))) + (let ((_%hd4550345531%_ (let () (declare (not safe)) - (##car _%e4546645491%_))) - (_%tl4546845498%_ + (##car _%e4550245527%_))) + (_%tl4550445534%_ (let () (declare (not safe)) - (##cdr _%e4546645491%_)))) + (##cdr _%e4550245527%_)))) (if (gx#stx-null? - _%tl4546845498%_) - ((lambda (_%L45501%_ - _%L45503%_) - (if (let ((__tmp83990 - (let ((__obj83854 + _%tl4550445534%_) + ((lambda (_%L45537%_ + _%L45539%_) + (if (let ((__tmp84036 + (let ((__obj83900 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45454%_)) + _%meta45490%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83854 + __obj83900 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83854 + __obj83900 '1 '#f '#f)) - (unchecked-slot-ref __obj83854 'id))))) + (unchecked-slot-ref __obj83900 'id))))) (declare (not safe)) - (##memq __tmp83990 '(t void))) + (##memq __tmp84036 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45503%_ '())) - (cons _%L45438%_ '()))) + (cons _%L45539%_ '())) + (cons _%L45474%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45503%_ '())) + (cons _%L45539%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45438%_ '())) + (cons _%L45474%_ '())) (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 _%L45501%_ + (cons (cons _%L45537%_ (cons (gx#datum->syntax '#f 'val) @@ -426,8 +426,8 @@ '#f 'contract-violation!) (cons '"bad cast" - (cons _%L45438%_ - (cons _%L45501%_ + (cons _%L45474%_ + (cons _%L45537%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -439,85 +439,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4546745495%_ - _%hd4546445485%_) - (_%g4545945474%_ - _%g4546045478%_)))) - (_%g4545945474%_ _%g4546045478%_)))) - (_%g4545945474%_ _%g4546045478%_))))) - (_%g4545845521%_ - (list (let ((__obj83855 _%meta45454%_)) + _%hd4550345531%_ + _%hd4550045521%_) + (_%g4549545510%_ + _%g4549645514%_)))) + (_%g4549545510%_ _%g4549645514%_)))) + (_%g4549545510%_ _%g4549645514%_))))) + (_%g4549445557%_ + (list (let ((__obj83901 _%meta45490%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83855 + __obj83901 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83855 + __obj83901 '12 '#f '#f)) (unchecked-slot-ref - __obj83855 + __obj83901 'type-descriptor))) - (let ((__obj83856 _%meta45454%_)) + (let ((__obj83902 _%meta45490%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83856 + __obj83902 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83856 + __obj83902 '14 '#f '#f)) (unchecked-slot-ref - __obj83856 + __obj83902 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45454%_)) - (let* ((_%g4552745542%_ - (lambda (_%g4552845538%_) + _%meta45490%_)) + (let* ((_%g4556345578%_ + (lambda (_%g4556445574%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4552845538%_))) - (_%g4552645587%_ - (lambda (_%g4552845546%_) - (if (gx#stx-pair? _%g4552845546%_) - (let ((_%e4553145549%_ - (gx#syntax-e _%g4552845546%_))) - (let ((_%hd4553245553%_ + _%g4556445574%_))) + (_%g4556245623%_ + (lambda (_%g4556445582%_) + (if (gx#stx-pair? _%g4556445582%_) + (let ((_%e4556745585%_ + (gx#syntax-e _%g4556445582%_))) + (let ((_%hd4556845589%_ (let () (declare (not safe)) - (##car _%e4553145549%_))) - (_%tl4553345556%_ + (##car _%e4556745585%_))) + (_%tl4556945592%_ (let () (declare (not safe)) - (##cdr _%e4553145549%_)))) - (if (gx#stx-pair? _%tl4553345556%_) - (let ((_%e4553445559%_ + (##cdr _%e4556745585%_)))) + (if (gx#stx-pair? _%tl4556945592%_) + (let ((_%e4557045595%_ (gx#syntax-e - _%tl4553345556%_))) - (let ((_%hd4553545563%_ + _%tl4556945592%_))) + (let ((_%hd4557145599%_ (let () (declare (not safe)) - (##car _%e4553445559%_))) - (_%tl4553645566%_ + (##car _%e4557045595%_))) + (_%tl4557245602%_ (let () (declare (not safe)) - (##cdr _%e4553445559%_)))) + (##cdr _%e4557045595%_)))) (if (gx#stx-null? - _%tl4553645566%_) - ((lambda (_%L45569%_ - _%L45571%_) + _%tl4557245602%_) + ((lambda (_%L45605%_ + _%L45607%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -525,10 +525,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45571%_ '())) + (cons _%L45607%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45438%_ '())) + (cons _%L45474%_ '())) (cons (cons (gx#datum->syntax '#f 'and) @@ -536,152 +536,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons (cons _%L45569%_ + (cons (cons _%L45605%_ (cons (gx#datum->syntax '#f 'val) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) - _%hd4553545563%_ - _%hd4553245553%_) + _%hd4557145599%_ + _%hd4556845589%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4552745542%_ - _%g4552845546%_)))) - (_%g4552745542%_ - _%g4552845546%_)))) - (_%g4552745542%_ _%g4552845546%_))))) - (_%g4552645587%_ - (list (let ((__obj83853 _%meta45454%_)) + (_%g4556345578%_ + _%g4556445582%_)))) + (_%g4556345578%_ + _%g4556445582%_)))) + (_%g4556345578%_ _%g4556445582%_))))) + (_%g4556245623%_ + (list (let ((__obj83899 _%meta45490%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83853 + __obj83899 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83853 + __obj83899 '4 '#f '#f)) (unchecked-slot-ref - __obj83853 + __obj83899 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45378%_ - _%L45436%_))))) + _%stx45414%_ + _%L45472%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45378%_ - _%L45436%_)))) + _%stx45414%_ + _%L45472%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4538145399%_ - _%g4538245403%_))) - _%hd4539245430%_ - _%hd4538945420%_) - (_%g4538145399%_ - _%g4538245403%_)))) - (_%g4538145399%_ _%g4538245403%_)))) - (_%g4538145399%_ _%g4538245403%_)))) - (_%g4538145399%_ _%g4538245403%_))))) - (_%g4538045593%_ _%stx45378%_)))) + (_%g4541745435%_ + _%g4541845439%_))) + _%hd4542845466%_ + _%hd4542545456%_) + (_%g4541745435%_ + _%g4541845439%_)))) + (_%g4541745435%_ _%g4541845439%_)))) + (_%g4541745435%_ _%g4541845439%_)))) + (_%g4541745435%_ _%g4541845439%_))))) + (_%g4541645629%_ _%stx45414%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:-| - (lambda (_%stx45597%_) - (let* ((_%g4560045618%_ - (lambda (_%g4560145614%_) + (lambda (_%stx45633%_) + (let* ((_%g4563645654%_ + (lambda (_%g4563745650%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4560145614%_))) - (_%g4559945704%_ - (lambda (_%g4560145622%_) - (if (gx#stx-pair? _%g4560145622%_) - (let ((_%e4560445625%_ (gx#syntax-e _%g4560145622%_))) - (let ((_%hd4560545629%_ + _%g4563745650%_))) + (_%g4563545740%_ + (lambda (_%g4563745658%_) + (if (gx#stx-pair? _%g4563745658%_) + (let ((_%e4564045661%_ (gx#syntax-e _%g4563745658%_))) + (let ((_%hd4564145665%_ (let () (declare (not safe)) - (##car _%e4560445625%_))) - (_%tl4560645632%_ + (##car _%e4564045661%_))) + (_%tl4564245668%_ (let () (declare (not safe)) - (##cdr _%e4560445625%_)))) - (if (gx#stx-pair? _%tl4560645632%_) - (let ((_%e4560745635%_ - (gx#syntax-e _%tl4560645632%_))) - (let ((_%hd4560845639%_ + (##cdr _%e4564045661%_)))) + (if (gx#stx-pair? _%tl4564245668%_) + (let ((_%e4564345671%_ + (gx#syntax-e _%tl4564245668%_))) + (let ((_%hd4564445675%_ (let () (declare (not safe)) - (##car _%e4560745635%_))) - (_%tl4560945642%_ + (##car _%e4564345671%_))) + (_%tl4564545678%_ (let () (declare (not safe)) - (##cdr _%e4560745635%_)))) - (if (gx#stx-pair? _%tl4560945642%_) - (let ((_%e4561045645%_ - (gx#syntax-e _%tl4560945642%_))) - (let ((_%hd4561145649%_ + (##cdr _%e4564345671%_)))) + (if (gx#stx-pair? _%tl4564545678%_) + (let ((_%e4564645681%_ + (gx#syntax-e _%tl4564545678%_))) + (let ((_%hd4564745685%_ (let () (declare (not safe)) - (##car _%e4561045645%_))) - (_%tl4561245652%_ + (##car _%e4564645681%_))) + (_%tl4564845688%_ (let () (declare (not safe)) - (##cdr _%e4561045645%_)))) - (if (gx#stx-null? _%tl4561245652%_) - ((lambda (_%L45655%_ _%L45657%_) + (##cdr _%e4564645681%_)))) + (if (gx#stx-null? _%tl4564845688%_) + ((lambda (_%L45691%_ _%L45693%_) (if (gx#identifier? - _%L45655%_) - (let* ((_%g4567345681%_ - (lambda (_%g4567445677%_) + _%L45691%_) + (let* ((_%g4570945717%_ + (lambda (_%g4571045713%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4567445677%_))) - (_%g4567245700%_ - (lambda (_%g4567445685%_) - ((lambda (_%L45688%_) + _%g4571045713%_))) + (_%g4570845736%_ + (lambda (_%g4571045721%_) + ((lambda (_%L45724%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45688%_ '())) - (cons _%L45657%_ '())))) - _%g4567445685%_)))) - (_%g4567245700%_ + (cons _%L45724%_ '())) + (cons _%L45693%_ '())))) + _%g4571045721%_)))) + (_%g4570845736%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx45597%_ - _%L45655%_)))) + _%stx45633%_ + _%L45691%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4560045618%_ - _%g4560145622%_))) - _%hd4561145649%_ - _%hd4560845639%_) - (_%g4560045618%_ - _%g4560145622%_)))) - (_%g4560045618%_ _%g4560145622%_)))) - (_%g4560045618%_ _%g4560145622%_)))) - (_%g4560045618%_ _%g4560145622%_))))) - (_%g4559945704%_ _%stx45597%_)))) + (_%g4563645654%_ + _%g4563745658%_))) + _%hd4564745685%_ + _%hd4564445675%_) + (_%g4563645654%_ + _%g4563745658%_)))) + (_%g4563645654%_ _%g4563745658%_)))) + (_%g4563645654%_ _%g4563745658%_)))) + (_%g4563645654%_ _%g4563745658%_))))) + (_%g4563545740%_ _%stx45633%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| - (lambda (_%$stx45708%_) - (let* ((_%__stx7837878379%_ _%$stx45708%_) - (_%g4571345749%_ + (lambda (_%$stx45744%_) + (let* ((_%__stx7842478425%_ _%$stx45744%_) + (_%g4574945785%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7837878379%_)))) - (let ((_%__kont7838178382%_ - (lambda (_%L45867%_ _%L45869%_) + _%__stx7842478425%_)))) + (let ((_%__kont7842778428%_ + (lambda (_%L45903%_ _%L45905%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45869%_ '())) + (cons _%L45905%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45867%_ + (cons (cons _%L45903%_ (cons (gx#datum->syntax '#f 'val) @@ -693,237 +693,237 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'contract-violation!) - (cons _%L45869%_ - (cons _%L45867%_ + (cons _%L45905%_ + (cons _%L45903%_ (cons (gx#datum->syntax '#f 'val) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7838378384%_ - (lambda (_%L45806%_ _%L45808%_ _%L45809%_) + (_%__kont7842978430%_ + (lambda (_%L45842%_ _%L45844%_ _%L45845%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) - (cons _%L45809%_ (cons _%L45808%_ '()))) - (cons _%L45806%_ '())))))) - (if (gx#stx-pair? _%__stx7837878379%_) - (let ((_%e4571745837%_ (gx#syntax-e _%__stx7837878379%_))) - (let ((_%tl4571945844%_ - (let () (declare (not safe)) (##cdr _%e4571745837%_))) - (_%hd4571845841%_ + (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%_ (let () (declare (not safe)) - (##car _%e4571745837%_)))) - (if (gx#stx-pair? _%tl4571945844%_) - (let ((_%e4572045847%_ (gx#syntax-e _%tl4571945844%_))) - (let ((_%tl4572245854%_ + (##car _%e4575345873%_)))) + (if (gx#stx-pair? _%tl4575545880%_) + (let ((_%e4575645883%_ (gx#syntax-e _%tl4575545880%_))) + (let ((_%tl4575845890%_ (let () (declare (not safe)) - (##cdr _%e4572045847%_))) - (_%hd4572145851%_ + (##cdr _%e4575645883%_))) + (_%hd4575745887%_ (let () (declare (not safe)) - (##car _%e4572045847%_)))) - (if (gx#stx-pair? _%tl4572245854%_) - (let ((_%e4572345857%_ - (gx#syntax-e _%tl4572245854%_))) - (let ((_%tl4572545864%_ + (##car _%e4575645883%_)))) + (if (gx#stx-pair? _%tl4575845890%_) + (let ((_%e4575945893%_ + (gx#syntax-e _%tl4575845890%_))) + (let ((_%tl4576145900%_ (let () (declare (not safe)) - (##cdr _%e4572345857%_))) - (_%hd4572445861%_ + (##cdr _%e4575945893%_))) + (_%hd4576045897%_ (let () (declare (not safe)) - (##car _%e4572345857%_)))) - (if (gx#stx-null? _%tl4572545864%_) - (_%__kont7838178382%_ - _%hd4572445861%_ - _%hd4572145851%_) - (if (gx#stx-pair? _%tl4572545864%_) - (let ((_%e4573845786%_ + (##car _%e4575945893%_)))) + (if (gx#stx-null? _%tl4576145900%_) + (_%__kont7842778428%_ + _%hd4576045897%_ + _%hd4575745887%_) + (if (gx#stx-pair? _%tl4576145900%_) + (let ((_%e4577445822%_ (gx#syntax-e - _%tl4572545864%_))) - (let ((_%tl4574045793%_ + _%tl4576145900%_))) + (let ((_%tl4577645829%_ (let () (declare (not safe)) - (##cdr _%e4573845786%_))) - (_%hd4573945790%_ + (##cdr _%e4577445822%_))) + (_%hd4577545826%_ (let () (declare (not safe)) - (##car _%e4573845786%_)))) + (##car _%e4577445822%_)))) (if (gx#identifier? - _%hd4573945790%_) + _%hd4577545826%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g83991_| - _%hd4573945790%_) + |gerbil/core/contract~TypeCast[1]#_g84037_| + _%hd4577545826%_) (if (gx#stx-pair? - _%tl4574045793%_) - (let ((_%e4574145796%_ + _%tl4577645829%_) + (let ((_%e4577745832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4574045793%_))) - (let ((_%tl4574345803%_ + (gx#syntax-e _%tl4577645829%_))) + (let ((_%tl4577945839%_ (let () (declare (not safe)) - (##cdr _%e4574145796%_))) - (_%hd4574245800%_ + (##cdr _%e4577745832%_))) + (_%hd4577845836%_ (let () (declare (not safe)) - (##car _%e4574145796%_)))) - (if (gx#stx-null? _%tl4574345803%_) - (_%__kont7838378384%_ - _%hd4574245800%_ - _%hd4572445861%_ - _%hd4572145851%_) - (let () (declare (not safe)) (_%g4571345749%_))))) - (let () (declare (not safe)) (_%g4571345749%_))) - (let () (declare (not safe)) (_%g4571345749%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4571345749%_))))) + (_%g4574945785%_))))) (let () (declare (not safe)) - (_%g4571345749%_)))))) + (_%g4574945785%_)))))) (let () (declare (not safe)) - (_%g4571345749%_))))) - (let () (declare (not safe)) (_%g4571345749%_))))) - (let () (declare (not safe)) (_%g4571345749%_))))))) + (_%g4574945785%_))))) + (let () (declare (not safe)) (_%g4574945785%_))))) + (let () (declare (not safe)) (_%g4574945785%_))))))) (define |gerbil/core/contract~TypeCast[:0:]#::-| - (lambda (_%$stx45888%_) - (let ((_%g4589145898%_ - (lambda (_%g4589245894%_) + (lambda (_%$stx45924%_) + (let ((_%g4592745934%_ + (lambda (_%g4592845930%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4589245894%_)))) - (_%g4589145898%_ _%$stx45888%_)))) + _%g4592845930%_)))) + (_%g4592745934%_ _%$stx45924%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:=| - (lambda (_%$stx45902%_) - (let ((_%g4590545912%_ - (lambda (_%g4590645908%_) + (lambda (_%$stx45938%_) + (let ((_%g4594145948%_ + (lambda (_%g4594245944%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4590645908%_)))) - (_%g4590545912%_ _%$stx45902%_)))) + _%g4594245944%_)))) + (_%g4594145948%_ _%$stx45938%_)))) (define |gerbil/core/contract~TypeCast[:0:]#check-nil!| - (lambda (_%$stx45916%_) - (let* ((_%g4592045934%_ - (lambda (_%g4592145930%_) + (lambda (_%$stx45952%_) + (let* ((_%g4595645970%_ + (lambda (_%g4595745966%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4592145930%_))) - (_%g4591945975%_ - (lambda (_%g4592145938%_) - (if (gx#stx-pair? _%g4592145938%_) - (let ((_%e4592345941%_ (gx#syntax-e _%g4592145938%_))) - (let ((_%hd4592445945%_ + _%g4595745966%_))) + (_%g4595546011%_ + (lambda (_%g4595745974%_) + (if (gx#stx-pair? _%g4595745974%_) + (let ((_%e4595945977%_ (gx#syntax-e _%g4595745974%_))) + (let ((_%hd4596045981%_ (let () (declare (not safe)) - (##car _%e4592345941%_))) - (_%tl4592545948%_ + (##car _%e4595945977%_))) + (_%tl4596145984%_ (let () (declare (not safe)) - (##cdr _%e4592345941%_)))) - (if (gx#stx-pair? _%tl4592545948%_) - (let ((_%e4592645951%_ - (gx#syntax-e _%tl4592545948%_))) - (let ((_%hd4592745955%_ + (##cdr _%e4595945977%_)))) + (if (gx#stx-pair? _%tl4596145984%_) + (let ((_%e4596245987%_ + (gx#syntax-e _%tl4596145984%_))) + (let ((_%hd4596345991%_ (let () (declare (not safe)) - (##car _%e4592645951%_))) - (_%tl4592845958%_ + (##car _%e4596245987%_))) + (_%tl4596445994%_ (let () (declare (not safe)) - (##cdr _%e4592645951%_)))) - (if (gx#stx-null? _%tl4592845958%_) - ((lambda (_%L45961%_) + (##cdr _%e4596245987%_)))) + (if (gx#stx-null? _%tl4596445994%_) + ((lambda (_%L45997%_) (cons (gx#datum->syntax '#f 'or) - (cons _%L45961%_ + (cons _%L45997%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'nil-dereference!) - (cons _%L45961%_ '())) + (cons _%L45997%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4592745955%_) - (_%g4592045934%_ _%g4592145938%_)))) - (_%g4592045934%_ _%g4592145938%_)))) - (_%g4592045934%_ _%g4592145938%_))))) - (_%g4591945975%_ _%$stx45916%_)))) + _%hd4596345991%_) + (_%g4595645970%_ _%g4595745974%_)))) + (_%g4595645970%_ _%g4595745974%_)))) + (_%g4595645970%_ _%g4595745974%_))))) + (_%g4595546011%_ _%$stx45952%_)))) (define |gerbil/core/contract~TypeCast[:0:]#contract-violation!| - (lambda (_%stx45979%_) - (let* ((_%g4598246005%_ - (lambda (_%g4598346001%_) + (lambda (_%stx46015%_) + (let* ((_%g4601846041%_ + (lambda (_%g4601946037%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4598346001%_))) - (_%g4598146129%_ - (lambda (_%g4598346009%_) - (if (gx#stx-pair? _%g4598346009%_) - (let ((_%e4598846012%_ (gx#syntax-e _%g4598346009%_))) - (let ((_%hd4598946016%_ + _%g4601946037%_))) + (_%g4601746165%_ + (lambda (_%g4601946045%_) + (if (gx#stx-pair? _%g4601946045%_) + (let ((_%e4602446048%_ (gx#syntax-e _%g4601946045%_))) + (let ((_%hd4602546052%_ (let () (declare (not safe)) - (##car _%e4598846012%_))) - (_%tl4599046019%_ + (##car _%e4602446048%_))) + (_%tl4602646055%_ (let () (declare (not safe)) - (##cdr _%e4598846012%_)))) - (if (gx#stx-pair? _%tl4599046019%_) - (let ((_%e4599146022%_ - (gx#syntax-e _%tl4599046019%_))) - (let ((_%hd4599246026%_ + (##cdr _%e4602446048%_)))) + (if (gx#stx-pair? _%tl4602646055%_) + (let ((_%e4602746058%_ + (gx#syntax-e _%tl4602646055%_))) + (let ((_%hd4602846062%_ (let () (declare (not safe)) - (##car _%e4599146022%_))) - (_%tl4599346029%_ + (##car _%e4602746058%_))) + (_%tl4602946065%_ (let () (declare (not safe)) - (##cdr _%e4599146022%_)))) - (if (gx#stx-pair? _%tl4599346029%_) - (let ((_%e4599446032%_ - (gx#syntax-e _%tl4599346029%_))) - (let ((_%hd4599546036%_ + (##cdr _%e4602746058%_)))) + (if (gx#stx-pair? _%tl4602946065%_) + (let ((_%e4603046068%_ + (gx#syntax-e _%tl4602946065%_))) + (let ((_%hd4603146072%_ (let () (declare (not safe)) - (##car _%e4599446032%_))) - (_%tl4599646039%_ + (##car _%e4603046068%_))) + (_%tl4603246075%_ (let () (declare (not safe)) - (##cdr _%e4599446032%_)))) - (if (gx#stx-pair? _%tl4599646039%_) - (let ((_%e4599746042%_ + (##cdr _%e4603046068%_)))) + (if (gx#stx-pair? _%tl4603246075%_) + (let ((_%e4603346078%_ (gx#syntax-e - _%tl4599646039%_))) - (let ((_%hd4599846046%_ + _%tl4603246075%_))) + (let ((_%hd4603446082%_ (let () (declare (not safe)) - (##car _%e4599746042%_))) - (_%tl4599946049%_ + (##car _%e4603346078%_))) + (_%tl4603546085%_ (let () (declare (not safe)) - (##cdr _%e4599746042%_)))) + (##cdr _%e4603346078%_)))) (if (gx#stx-null? - _%tl4599946049%_) - ((lambda (_%L46052%_ - _%L46054%_ - _%L46055%_ - _%L46056%_) - (let* ((_%g4607646084%_ + _%tl4603546085%_) + ((lambda (_%L46088%_ + _%L46090%_ + _%L46091%_ + _%L46092%_) + (let* ((_%g4611246120%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4607746080%_) + (lambda (_%g4611346116%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4607746080%_))) - (_%g4607546103%_ - (lambda (_%g4607746088%_) - ((lambda (_%L46091%_) + _%g4611346116%_))) + (_%g4611146139%_ + (lambda (_%g4611346124%_) + ((lambda (_%L46127%_) (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -934,92 +934,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L46091%_ '())) + (cons _%L46127%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46054%_ '())) + (cons _%L46090%_ '())) (cons 'value: - (cons _%L46052%_ '())))))))) + (cons _%L46088%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g4607746088%_)))) - (_%g4607546103%_ - (let ((_%$e46115%_ - (let ((_%$e46107%_ (gx#stx-source _%L46055%_))) - (if _%$e46107%_ - _%$e46107%_ - (let ((_%$e46111%_ - (gx#stx-source _%stx45979%_))) - (if _%$e46111%_ - _%$e46111%_ - (gx#stx-source _%L46056%_))))))) - (if _%$e46115%_ - ((lambda (_%locat46119%_) + _%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%_) (call-with-output-string '"" - (lambda (_%g4612146123%_) + (lambda (_%g4615746159%_) (let () (declare (not safe)) (##display-locat - _%locat46119%_ + _%locat46155%_ '#t - _%g4612146123%_))))) - _%$e46115%_) + _%g4615746159%_))))) + _%$e46151%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4599846046%_ - _%hd4599546036%_ - _%hd4599246026%_ - _%hd4598946016%_) - (_%g4598246005%_ _%g4598346009%_)))) + _%hd4603446082%_ + _%hd4603146072%_ + _%hd4602846062%_ + _%hd4602546052%_) + (_%g4601846041%_ _%g4601946045%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4598246005%_ - _%g4598346009%_)))) - (_%g4598246005%_ _%g4598346009%_)))) - (_%g4598246005%_ _%g4598346009%_)))) - (_%g4598246005%_ _%g4598346009%_))))) - (_%g4598146129%_ _%stx45979%_)))) + (_%g4601846041%_ + _%g4601946045%_)))) + (_%g4601846041%_ _%g4601946045%_)))) + (_%g4601846041%_ _%g4601946045%_)))) + (_%g4601846041%_ _%g4601946045%_))))) + (_%g4601746165%_ _%stx46015%_)))) (define |gerbil/core/contract~TypeCast[:0:]#nil-dereference!| - (lambda (_%stx46133%_) - (let* ((_%g4613646151%_ - (lambda (_%g4613746147%_) + (lambda (_%stx46169%_) + (let* ((_%g4617246187%_ + (lambda (_%g4617346183%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4613746147%_))) - (_%g4613546247%_ - (lambda (_%g4613746155%_) - (if (gx#stx-pair? _%g4613746155%_) - (let ((_%e4614046158%_ (gx#syntax-e _%g4613746155%_))) - (let ((_%hd4614146162%_ + _%g4617346183%_))) + (_%g4617146283%_ + (lambda (_%g4617346191%_) + (if (gx#stx-pair? _%g4617346191%_) + (let ((_%e4617646194%_ (gx#syntax-e _%g4617346191%_))) + (let ((_%hd4617746198%_ (let () (declare (not safe)) - (##car _%e4614046158%_))) - (_%tl4614246165%_ + (##car _%e4617646194%_))) + (_%tl4617846201%_ (let () (declare (not safe)) - (##cdr _%e4614046158%_)))) - (if (gx#stx-pair? _%tl4614246165%_) - (let ((_%e4614346168%_ - (gx#syntax-e _%tl4614246165%_))) - (let ((_%hd4614446172%_ + (##cdr _%e4617646194%_)))) + (if (gx#stx-pair? _%tl4617846201%_) + (let ((_%e4617946204%_ + (gx#syntax-e _%tl4617846201%_))) + (let ((_%hd4618046208%_ (let () (declare (not safe)) - (##car _%e4614346168%_))) - (_%tl4614546175%_ + (##car _%e4617946204%_))) + (_%tl4618146211%_ (let () (declare (not safe)) - (##cdr _%e4614346168%_)))) - (if (gx#stx-null? _%tl4614546175%_) - ((lambda (_%L46178%_ _%L46180%_) - (let* ((_%g4619446202%_ - (lambda (_%g4619546198%_) + (##cdr _%e4617946204%_)))) + (if (gx#stx-null? _%tl4618146211%_) + ((lambda (_%L46214%_ _%L46216%_) + (let* ((_%g4623046238%_ + (lambda (_%g4623146234%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4619546198%_))) - (_%g4619346221%_ - (lambda (_%g4619546206%_) - ((lambda (_%L46209%_) + _%g4623146234%_))) + (_%g4622946257%_ + (lambda (_%g4623146242%_) + ((lambda (_%L46245%_) (cons (gx#datum->syntax '#f 'abort!) @@ -1032,86 +1032,86 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46209%_ '())) + (cons _%L46245%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L46178%_ '())) + (cons _%L46214%_ '())) '())) (cons 'value: (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4619546206%_)))) - (_%g4619346221%_ - (let ((_%$e46233%_ - (let ((_%$e46225%_ + _%g4623146242%_)))) + (_%g4622946257%_ + (let ((_%$e46269%_ + (let ((_%$e46261%_ (gx#stx-source - _%L46178%_))) - (if _%$e46225%_ - _%$e46225%_ - (let ((_%$e46229%_ + _%L46214%_))) + (if _%$e46261%_ + _%$e46261%_ + (let ((_%$e46265%_ (gx#stx-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx46133%_))) - (if _%$e46229%_ _%$e46229%_ (gx#stx-source _%L46180%_))))))) + _%stx46169%_))) + (if _%$e46265%_ _%$e46265%_ (gx#stx-source _%L46216%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e46233%_ - ((lambda (_%locat46237%_) + (if _%$e46269%_ + ((lambda (_%locat46273%_) (call-with-output-string '"" - (lambda (_%g4623946241%_) + (lambda (_%g4627546277%_) (let () (declare (not safe)) (##display-locat - _%locat46237%_ + _%locat46273%_ '#t - _%g4623946241%_))))) - _%$e46233%_) + _%g4627546277%_))))) + _%$e46269%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4614446172%_ - _%hd4614146162%_) - (_%g4613646151%_ _%g4613746155%_)))) - (_%g4613646151%_ _%g4613746155%_)))) - (_%g4613646151%_ _%g4613746155%_))))) - (_%g4613546247%_ _%stx46133%_)))) + _%hd4618046208%_ + _%hd4617746198%_) + (_%g4617246187%_ _%g4617346191%_)))) + (_%g4617246187%_ _%g4617346191%_)))) + (_%g4617246187%_ _%g4617346191%_))))) + (_%g4617146283%_ _%stx46169%_)))) (define |gerbil/core/contract~TypeCast[:0:]#abort!| - (lambda (_%$stx46251%_) - (let* ((_%g4625546269%_ - (lambda (_%g4625646265%_) + (lambda (_%$stx46287%_) + (let* ((_%g4629146305%_ + (lambda (_%g4629246301%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4625646265%_))) - (_%g4625446310%_ - (lambda (_%g4625646273%_) - (if (gx#stx-pair? _%g4625646273%_) - (let ((_%e4625846276%_ (gx#syntax-e _%g4625646273%_))) - (let ((_%hd4625946280%_ + _%g4629246301%_))) + (_%g4629046346%_ + (lambda (_%g4629246309%_) + (if (gx#stx-pair? _%g4629246309%_) + (let ((_%e4629446312%_ (gx#syntax-e _%g4629246309%_))) + (let ((_%hd4629546316%_ (let () (declare (not safe)) - (##car _%e4625846276%_))) - (_%tl4626046283%_ + (##car _%e4629446312%_))) + (_%tl4629646319%_ (let () (declare (not safe)) - (##cdr _%e4625846276%_)))) - (if (gx#stx-pair? _%tl4626046283%_) - (let ((_%e4626146286%_ - (gx#syntax-e _%tl4626046283%_))) - (let ((_%hd4626246290%_ + (##cdr _%e4629446312%_)))) + (if (gx#stx-pair? _%tl4629646319%_) + (let ((_%e4629746322%_ + (gx#syntax-e _%tl4629646319%_))) + (let ((_%hd4629846326%_ (let () (declare (not safe)) - (##car _%e4626146286%_))) - (_%tl4626346293%_ + (##car _%e4629746322%_))) + (_%tl4629946329%_ (let () (declare (not safe)) - (##cdr _%e4626146286%_)))) - (if (gx#stx-null? _%tl4626346293%_) - ((lambda (_%L46296%_) + (##cdr _%e4629746322%_)))) + (if (gx#stx-null? _%tl4629946329%_) + ((lambda (_%L46332%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -1123,13 +1123,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L46296%_ + (cons _%L46332%_ (cons (cons (gx#datum->syntax '#f 'void) '()) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4626246290%_) - (_%g4625546269%_ _%g4625646273%_)))) - (_%g4625546269%_ _%g4625646273%_)))) - (_%g4625546269%_ _%g4625646273%_))))) - (_%g4625446310%_ _%$stx46251%_)))))) + _%hd4629846326%_) + (_%g4629146305%_ _%g4629246309%_)))) + (_%g4629146305%_ _%g4629246309%_)))) + (_%g4629146305%_ _%g4629246309%_))))) + (_%g4629046346%_ _%$stx46287%_)))))) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index 159789b7b..dc7c0a3f2 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]#_g83993_| + (define |gerbil/core/contract~TypeEnv[1]#_g84039_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g83995_| + (define |gerbil/core/contract~TypeEnv[1]#_g84041_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g83997_| + (define |gerbil/core/contract~TypeEnv[1]#_g84043_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g83999_| + (define |gerbil/core/contract~TypeEnv[1]#_g84045_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84000_| + (define |gerbil/core/contract~TypeEnv[1]#_g84046_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84001_| + (define |gerbil/core/contract~TypeEnv[1]#_g84047_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84002_| + (define |gerbil/core/contract~TypeEnv[1]#_g84048_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84004_| + (define |gerbil/core/contract~TypeEnv[1]#_g84050_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84005_| + (define |gerbil/core/contract~TypeEnv[1]#_g84051_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84006_| + (define |gerbil/core/contract~TypeEnv[1]#_g84052_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84007_| + (define |gerbil/core/contract~TypeEnv[1]#_g84053_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84009_| + (define |gerbil/core/contract~TypeEnv[1]#_g84055_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84010_| + (define |gerbil/core/contract~TypeEnv[1]#_g84056_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84011_| + (define |gerbil/core/contract~TypeEnv[1]#_g84057_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84012_| + (define |gerbil/core/contract~TypeEnv[1]#_g84058_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84014_| + (define |gerbil/core/contract~TypeEnv[1]#_g84060_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84015_| + (define |gerbil/core/contract~TypeEnv[1]#_g84061_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84016_| + (define |gerbil/core/contract~TypeEnv[1]#_g84062_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84017_| + (define |gerbil/core/contract~TypeEnv[1]#_g84063_| (##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 ((__obj83857 + (let ((__obj83903 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83857 + __obj83903 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj83903 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83857 + __obj83903 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83903 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj83903 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj83903 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83903 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#f '11 '#f '#f)) - (let ((__tmp83992 |gerbil/core/contract~TypeEnv[1]#_g83993_|)) + (##unchecked-structure-set! __obj83903 '#f '11 '#f '#f)) + (let ((__tmp84038 |gerbil/core/contract~TypeEnv[1]#_g84039_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83992 '12 '#f '#f)) - (let ((__tmp83994 |gerbil/core/contract~TypeEnv[1]#_g83995_|)) + (##unchecked-structure-set! __obj83903 __tmp84038 '12 '#f '#f)) + (let ((__tmp84040 |gerbil/core/contract~TypeEnv[1]#_g84041_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83994 '13 '#f '#f)) - (let ((__tmp83996 |gerbil/core/contract~TypeEnv[1]#_g83997_|)) + (##unchecked-structure-set! __obj83903 __tmp84040 '13 '#f '#f)) + (let ((__tmp84042 |gerbil/core/contract~TypeEnv[1]#_g84043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83996 '14 '#f '#f)) - (let ((__tmp83998 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g83999_|) + (##unchecked-structure-set! __obj83903 __tmp84042 '14 '#f '#f)) + (let ((__tmp84044 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84045_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84000_|) + |gerbil/core/contract~TypeEnv[1]#_g84046_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84001_|) + |gerbil/core/contract~TypeEnv[1]#_g84047_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84002_|) + |gerbil/core/contract~TypeEnv[1]#_g84048_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83998 '15 '#f '#f)) - (let ((__tmp84003 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84004_|) + (##unchecked-structure-set! __obj83903 __tmp84044 '15 '#f '#f)) + (let ((__tmp84049 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84050_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84005_|) + |gerbil/core/contract~TypeEnv[1]#_g84051_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84006_|) + |gerbil/core/contract~TypeEnv[1]#_g84052_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84007_|) + |gerbil/core/contract~TypeEnv[1]#_g84053_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp84003 '16 '#f '#f)) - (let ((__tmp84008 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84009_|) + (##unchecked-structure-set! __obj83903 __tmp84049 '16 '#f '#f)) + (let ((__tmp84054 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84055_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84010_|) + |gerbil/core/contract~TypeEnv[1]#_g84056_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84011_|) + |gerbil/core/contract~TypeEnv[1]#_g84057_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84012_|) + |gerbil/core/contract~TypeEnv[1]#_g84058_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp84008 '17 '#f '#f)) - (let ((__tmp84013 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84014_|) + (##unchecked-structure-set! __obj83903 __tmp84054 '17 '#f '#f)) + (let ((__tmp84059 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84060_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84015_|) + |gerbil/core/contract~TypeEnv[1]#_g84061_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84016_|) + |gerbil/core/contract~TypeEnv[1]#_g84062_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84017_|) + |gerbil/core/contract~TypeEnv[1]#_g84063_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp84013 '18 '#f '#f)) - __obj83857))) + (##unchecked-structure-set! __obj83903 __tmp84059 '18 '#f '#f)) + __obj83903))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 5c36ae108..2c2d0d78d 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]#_g84018_| + (define |gerbil/core/contract~Using[1]#_g84064_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84019_| + (define |gerbil/core/contract~Using[1]#_g84065_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84020_| + (define |gerbil/core/contract~Using[1]#_g84066_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84023_| + (define |gerbil/core/contract~Using[1]#_g84069_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84024_| + (define |gerbil/core/contract~Using[1]#_g84070_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84027_| + (define |gerbil/core/contract~Using[1]#_g84073_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84028_| + (define |gerbil/core/contract~Using[1]#_g84074_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84029_| + (define |gerbil/core/contract~Using[1]#_g84075_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84030_| + (define |gerbil/core/contract~Using[1]#_g84076_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84034_| + (define |gerbil/core/contract~Using[1]#_g84080_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84035_| + (define |gerbil/core/contract~Using[1]#_g84081_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84036_| + (define |gerbil/core/contract~Using[1]#_g84082_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84037_| + (define |gerbil/core/contract~Using[1]#_g84083_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84041_| + (define |gerbil/core/contract~Using[1]#_g84087_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -35,5012 +35,5012 @@ '())) (begin (define |gerbil/core/contract~Using[:0:]#using| - (lambda (_%stx46329%_) - (let* ((_%__stx7844478445%_ _%stx46329%_) - (_%g4633846547%_ + (lambda (_%stx46365%_) + (let* ((_%__stx7849078491%_ _%stx46365%_) + (_%g4637446583%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7844478445%_)))) - (let ((_%__kont7844778448%_ - (lambda (_%L47453%_ - _%L47455%_ - _%L47456%_ - _%L47457%_ - _%L47458%_) + _%__stx7849078491%_)))) + (let ((_%__kont7849378494%_ + (lambda (_%L47489%_ + _%L47491%_ + _%L47492%_ + _%L47493%_ + _%L47494%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47458%_ (cons _%L47457%_ '())) + (cons (cons _%L47494%_ (cons _%L47493%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47458%_ - (cons _%L47456%_ - (cons _%L47455%_ + (cons (cons _%L47494%_ + (cons _%L47492%_ + (cons _%L47491%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4750147504%_ + (foldr (lambda (_%g4753747540%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4750247507%_) - (cons _%g4750147504%_ _%g4750247507%_)) + _%g4753847543%_) + (cons _%g4753747540%_ _%g4753847543%_)) '() - _%L47453%_))) + _%L47489%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7845178452%_ - (lambda (_%L47297%_ - _%L47299%_ - _%L47300%_ - _%L47301%_ - _%L47302%_ - _%L47303%_) + (_%__kont7849778498%_ + (lambda (_%L47333%_ + _%L47335%_ + _%L47336%_ + _%L47337%_ + _%L47338%_ + _%L47339%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47303%_ (cons _%L47302%_ '())) + (cons (cons _%L47339%_ (cons _%L47338%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47303%_ + (cons (cons _%L47339%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47301%_ + (cons _%L47337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47303%_ + (cons (cons _%L47339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47300%_ (cons _%L47299%_ '()))) - (foldr (lambda (_%g4734747350%_ _%g4734847353%_) - (cons _%g4734747350%_ _%g4734847353%_)) + (cons _%L47336%_ (cons _%L47335%_ '()))) + (foldr (lambda (_%g4738347386%_ _%g4738447389%_) + (cons _%g4738347386%_ _%g4738447389%_)) '() - _%L47297%_))) + _%L47333%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7845578456%_ - (lambda (_%L47114%_ _%L47116%_ _%L47117%_ _%L47118%_) - (let ((_%meta47155%_ + (_%__kont7850178502%_ + (lambda (_%L47150%_ _%L47152%_ _%L47153%_ _%L47154%_) + (let ((_%meta47191%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx46329%_ - _%L47116%_)))) + _%stx46365%_ + _%L47152%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta47155%_)) + _%meta47191%_)) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L47118%_ - (cons _%L47117%_ - (cons _%L47116%_ '()))) - (foldr (lambda (_%g4715947162%_ - _%g4716047165%_) - (cons _%g4715947162%_ - _%g4716047165%_)) + (cons (cons _%L47154%_ + (cons _%L47153%_ + (cons _%L47152%_ '()))) + (foldr (lambda (_%g4719547198%_ + _%g4719647201%_) + (cons _%g4719547198%_ + _%g4719647201%_)) '() - _%L47114%_))) + _%L47150%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta47155%_)) + _%meta47191%_)) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L47118%_ - (cons _%L47117%_ - (cons _%L47116%_ '()))) - (foldr (lambda (_%g4716947172%_ - _%g4717047175%_) - (cons _%g4716947172%_ - _%g4717047175%_)) + (cons (cons _%L47154%_ + (cons _%L47153%_ + (cons _%L47152%_ '()))) + (foldr (lambda (_%g4720547208%_ + _%g4720647211%_) + (cons _%g4720547208%_ + _%g4720647211%_)) '() - _%L47114%_))) + _%L47150%_))) (gx#raise-syntax-error '#f '"unexpected type; must be a class type or interface" - _%stx46329%_ - _%L47116%_ - _%meta47155%_)))))) - (_%__kont7845978460%_ - (lambda (_%L46992%_ _%L46994%_ _%L46995%_) + _%stx46365%_ + _%L47152%_ + _%meta47191%_)))))) + (_%__kont7850578506%_ + (lambda (_%L47028%_ _%L47030%_ _%L47031%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L46995%_ + (cons (cons _%L47031%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L46994%_ '()))) - (foldr (lambda (_%g4701847021%_ _%g4701947024%_) - (cons _%g4701847021%_ _%g4701947024%_)) + (cons _%L47030%_ '()))) + (foldr (lambda (_%g4705447057%_ _%g4705547060%_) + (cons _%g4705447057%_ _%g4705547060%_)) '() - _%L46992%_))))) - (_%__kont7846378464%_ - (lambda (_%L46850%_ - _%L46852%_ - _%L46853%_ - _%L46854%_ - _%L46855%_) + _%L47028%_))))) + (_%__kont7850978510%_ + (lambda (_%L46886%_ + _%L46888%_ + _%L46889%_ + _%L46890%_ + _%L46891%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46855%_ + (cons (cons _%L46891%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L46854%_ '()))) + (cons _%L46890%_ '()))) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46855%_ - (cons _%L46853%_ - (cons _%L46852%_ + (cons (cons _%L46891%_ + (cons _%L46889%_ + (cons _%L46888%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4689646899%_ + (foldr (lambda (_%g4693246935%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4689746902%_) - (cons _%g4689646899%_ _%g4689746902%_)) + _%g4693346938%_) + (cons _%g4693246935%_ _%g4693346938%_)) '() - _%L46850%_))) + _%L46886%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7846778468%_ - (lambda (_%L46708%_ _%L46710%_ _%L46711%_ _%L46712%_) + (_%__kont7851378514%_ + (lambda (_%L46744%_ _%L46746%_ _%L46747%_ _%L46748%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46712%_ _%L46711%_) + (cons (cons _%L46748%_ _%L46747%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L46710%_ - (foldr (lambda (_%g4673446737%_ + (cons _%L46746%_ + (foldr (lambda (_%g4677046773%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4673546740%_) - (cons _%g4673446737%_ _%g4673546740%_)) + _%g4677146776%_) + (cons _%g4677046773%_ _%g4677146776%_)) '() - _%L46708%_))) + _%L46744%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7847178472%_ - (lambda (_%L46604%_) + (_%__kont7851778518%_ + (lambda (_%L46640%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4662246625%_ _%g4662346628%_) - (cons _%g4662246625%_ _%g4662346628%_)) + (foldr (lambda (_%g4665846661%_ _%g4665946664%_) + (cons _%g4665846661%_ _%g4665946664%_)) '() - _%L46604%_)))))) - (let* ((_%__match7877778778%_ - (lambda (_%e4652746554%_ - _%hd4652846558%_ - _%tl4652946561%_ - _%e4653046564%_ - _%hd4653146568%_ - _%tl4653246571%_ - _%__splice7847378474%_ - _%target4653346574%_ - _%tl4653546577%_) - (letrec ((_%loop4653646580%_ - (lambda (_%hd4653446584%_ _%body4654046587%_) - (if (gx#stx-pair? _%hd4653446584%_) - (let ((_%e4653746590%_ - (gx#syntax-e _%hd4653446584%_))) - (let ((_%lp-tl4653946597%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e4653746590%_))) - (_%lp-hd4653846594%_ + (##cdr _%e4657346626%_))) + (_%lp-hd4657446630%_ (let () (declare (not safe)) - (##car _%e4653746590%_)))) - (_%loop4653646580%_ - _%lp-tl4653946597%_ - (cons _%lp-hd4653846594%_ - _%body4654046587%_)))) - (let ((_%body4654146600%_ - (reverse _%body4654046587%_))) - (_%__kont7847178472%_ - _%body4654146600%_)))))) - (_%loop4653646580%_ _%target4653346574%_ '())))) - (_%__match7875578756%_ - (lambda (_%e4650546638%_ - _%hd4650646642%_ - _%tl4650746645%_ - _%e4650846648%_ - _%hd4650946652%_ - _%tl4651046655%_ - _%e4651146658%_ - _%hd4651246662%_ - _%tl4651346665%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (letrec ((_%loop4652046684%_ - (lambda (_%hd4651846688%_ _%body4652446691%_) - (if (gx#stx-pair? _%hd4651846688%_) - (let ((_%e4652146694%_ - (gx#syntax-e _%hd4651846688%_))) - (let ((_%lp-tl4652346701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4652146694%_))) - (_%lp-hd4652246698%_ + (##cdr _%e4655746730%_))) + (_%lp-hd4655846734%_ (let () (declare (not safe)) - (##car _%e4652146694%_)))) - (_%loop4652046684%_ - _%lp-tl4652346701%_ - (cons _%lp-hd4652246698%_ - _%body4652446691%_)))) - (let ((_%body4652546704%_ - (reverse _%body4652446691%_))) - (let ((_%L46708%_ _%body4652546704%_) - (_%L46710%_ _%tl4651346665%_) - (_%L46711%_ _%tl4651646675%_) - (_%L46712%_ _%hd4651546672%_)) - (if (gx#identifier? _%L46712%_) - (_%__kont7846778468%_ - _%L46708%_ - _%L46710%_ - _%L46711%_ - _%L46712%_) + (##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%_) (let () (declare (not safe)) - (_%g4633846547%_))))))))) - (_%loop4652046684%_ _%target4651746678%_ '())))) - (_%__match7874178742%_ - (lambda (_%e4650546638%_ - _%hd4650646642%_ - _%tl4650746645%_ - _%e4650846648%_ - _%hd4650946652%_ - _%tl4651046655%_ - _%e4651146658%_ - _%hd4651246662%_ - _%tl4651346665%_) - (if (gx#stx-pair? _%hd4651246662%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4651246662%_))) - (let ((_%tl4651646675%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4651046655%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4654646691%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4651046655%_ + _%tl4654646691%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4650546638%_ - _%hd4650646642%_ - _%tl4650746645%_ - _%e4650846648%_ - _%hd4650946652%_ - _%tl4651046655%_ - _%e4651146658%_ - _%hd4651246662%_ - _%tl4651346665%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4655546717%_) + (_%__match7880178802%_ + _%e4654146674%_ + _%hd4654246678%_ + _%tl4654346681%_ + _%e4654446684%_ + _%hd4654546688%_ + _%tl4654646691%_ + _%e4654746694%_ + _%hd4654846698%_ + _%tl4654946701%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (_%__match7872378724%_ - (lambda (_%e4647146750%_ - _%hd4647246754%_ - _%tl4647346757%_ - _%e4647446760%_ - _%hd4647546764%_ - _%tl4647646767%_ - _%e4647746770%_ - _%hd4647846774%_ - _%tl4647946777%_ - _%e4648046780%_ - _%hd4648146784%_ - _%tl4648246787%_ - _%e4648346790%_ - _%hd4648446794%_ - _%tl4648546797%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (letrec ((_%loop4649546826%_ - (lambda (_%hd4649346830%_ _%body4649946833%_) - (if (gx#stx-pair? _%hd4649346830%_) - (let ((_%e4649646836%_ - (gx#syntax-e _%hd4649346830%_))) - (let ((_%lp-tl4649846843%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4649646836%_))) - (_%lp-hd4649746840%_ + (##cdr _%e4653246872%_))) + (_%lp-hd4653346876%_ (let () (declare (not safe)) - (##car _%e4649646836%_)))) - (_%loop4649546826%_ - _%lp-tl4649846843%_ - (cons _%lp-hd4649746840%_ - _%body4649946833%_)))) - (let ((_%body4650046846%_ - (reverse _%body4649946833%_))) - (let ((_%L46850%_ _%body4650046846%_) - (_%L46852%_ _%hd4649046814%_) - (_%L46853%_ _%hd4648746804%_) - (_%L46854%_ _%hd4648446794%_) - (_%L46855%_ _%hd4647846774%_)) - (if (and (gx#identifier? _%L46855%_) - (gx#identifier? _%L46852%_) - (gx#identifier? _%L46853%_) + (##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%_) (or (gx#free-identifier=? - _%L46853%_ + _%L46889%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L46853%_ + _%L46889%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L46853%_ + _%L46889%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L46853%_ + _%L46889%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7846378464%_ - _%L46850%_ - _%L46852%_ - _%L46853%_ - _%L46854%_ - _%L46855%_) - (_%__match7874178742%_ - _%e4647146750%_ - _%hd4647246754%_ - _%tl4647346757%_ - _%e4647446760%_ - _%hd4647546764%_ - _%tl4647646767%_ - _%e4647746770%_ - _%hd4647846774%_ - _%tl4647946777%_)))))))) - (_%loop4649546826%_ _%target4649246820%_ '())))) - (_%__match7866778668%_ - (lambda (_%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_ - _%e4645446952%_ - _%hd4645546956%_ - _%tl4645646959%_ - _%__splice7846178462%_ - _%target4645746962%_ - _%tl4645946965%_) - (letrec ((_%loop4646046968%_ - (lambda (_%hd4645846972%_ _%body4646446975%_) - (if (gx#stx-pair? _%hd4645846972%_) - (let ((_%e4646146978%_ - (gx#syntax-e _%hd4645846972%_))) - (let ((_%lp-tl4646346985%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e4646146978%_))) - (_%lp-hd4646246982%_ + (##cdr _%e4649747014%_))) + (_%lp-hd4649847018%_ (let () (declare (not safe)) - (##car _%e4646146978%_)))) - (_%loop4646046968%_ - _%lp-tl4646346985%_ - (cons _%lp-hd4646246982%_ - _%body4646446975%_)))) - (let ((_%body4646546988%_ - (reverse _%body4646446975%_))) - (let ((_%L46992%_ _%body4646546988%_) - (_%L46994%_ _%hd4645546956%_) - (_%L46995%_ _%hd4644946936%_)) - (if (gx#identifier? _%L46995%_) - (_%__kont7845978460%_ - _%L46992%_ - _%L46994%_ - _%L46995%_) - (_%__match7874178742%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_)))))))) - (_%loop4646046968%_ _%target4645746962%_ '())))) - (_%__match7864778648%_ - (lambda (_%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_) - (if (gx#identifier? _%hd4645246946%_) + (##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%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4645246946%_) - (if (gx#stx-pair? _%tl4645346949%_) - (let ((_%e4645446952%_ - (gx#syntax-e _%tl4645346949%_))) - (let ((_%tl4645646959%_ + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4648846982%_) + (if (gx#stx-pair? _%tl4648946985%_) + (let ((_%e4649046988%_ + (gx#syntax-e _%tl4648946985%_))) + (let ((_%tl4649246995%_ (let () (declare (not safe)) - (##cdr _%e4645446952%_))) - (_%hd4645546956%_ + (##cdr _%e4649046988%_))) + (_%hd4649146992%_ (let () (declare (not safe)) - (##car _%e4645446952%_)))) - (if (gx#stx-null? _%tl4645646959%_) + (##car _%e4649046988%_)))) + (if (gx#stx-null? _%tl4649246995%_) (if (gx#stx-pair/null? - _%tl4644746929%_) - (let ((_%__splice7846178462%_ + _%tl4648346965%_) + (let ((_%__splice7850778508%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4648346965%_ '0))) - (let ((_%tl4645946965%_ + (let ((_%tl4649547001%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846178462%_ + _%__splice7850778508%_ '1))) - (_%target4645746962%_ + (_%target4649346998%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846178462%_ + _%__splice7850778508%_ '0)))) (if (gx#stx-null? - _%tl4645946965%_) - (_%__match7866778668%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_ - _%e4645446952%_ - _%hd4645546956%_ - _%tl4645646959%_ - _%__splice7846178462%_ - _%target4645746962%_ - _%tl4645946965%_) + _%tl4649547001%_) + (_%__match7871378714%_ + _%e4647846948%_ + _%hd4647946952%_ + _%tl4648046955%_ + _%e4648146958%_ + _%hd4648246962%_ + _%tl4648346965%_ + _%e4648446968%_ + _%hd4648546972%_ + _%tl4648646975%_ + _%e4648746978%_ + _%hd4648846982%_ + _%tl4648946985%_ + _%e4649046988%_ + _%hd4649146992%_ + _%tl4649246995%_ + _%__splice7850778508%_ + _%target4649346998%_ + _%tl4649547001%_) (if (gx#stx-pair? - _%hd4644946936%_) - (let ((_%e4651446668%_ + _%hd4648546972%_) + (let ((_%e4655046704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (##car _%e4655046704%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4644946936%_) - (let ((_%e4651446668%_ + _%hd4648546972%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4644946936%_))) - (let ((_%tl4651646675%_ + _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%tl4645646959%_) - (let ((_%e4648646800%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%tl4649246995%_) + (let ((_%e4652246836%_ (gx#syntax-e - _%tl4645646959%_))) - (let ((_%tl4648846807%_ + _%tl4649246995%_))) + (let ((_%tl4652446843%_ (let () (declare (not safe)) - (##cdr _%e4648646800%_))) - (_%hd4648746804%_ + (##cdr _%e4652246836%_))) + (_%hd4652346840%_ (let () (declare (not safe)) - (##car _%e4648646800%_)))) + (##car _%e4652246836%_)))) (if (gx#stx-pair? - _%tl4648846807%_) - (let ((_%e4648946810%_ + _%tl4652446843%_) + (let ((_%e4652546846%_ (gx#syntax-e - _%tl4648846807%_))) - (let ((_%tl4649146817%_ + _%tl4652446843%_))) + (let ((_%tl4652746853%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ - (let () (declare (not safe)) (##car _%e4648946810%_)))) - (if (gx#stx-null? _%tl4649146817%_) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846578466%_ - (gx#syntax-split-splice _%tl4644746929%_ '0))) - (let ((_%tl4649446823%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846578466%_ + _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_ - _%e4645446952%_ - _%hd4645546956%_ - _%tl4645646959%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4648546972%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4648546972%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4648346965%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4648346965%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4648546972%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4644746929%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4648346965%_) + (let ((_%__splice7851578516%_ + (gx#syntax-split-splice _%tl4648346965%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4644946936%_) - (let ((_%e4651446668%_ + _%hd4648546972%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4644946936%_))) - (let ((_%tl4651646675%_ + _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4644746929%_) - (let ((_%__splice7846978470%_ + _%tl4648346965%_) + (let ((_%__splice7851578516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4644746929%_ '0))) - (let ((_%tl4651946681%_ + (gx#syntax-split-splice _%tl4648346965%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_))))))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_))))))) + (if (gx#stx-pair? _%hd4648546972%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4644746929%_) - (let ((_%__splice7846978470%_ + _%tl4648346965%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4648346965%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4647846948%_ + _%hd4647946952%_ + _%tl4648046955%_ + _%e4648146958%_ + _%hd4648246962%_ + _%tl4648346965%_ + _%e4648446968%_ + _%hd4648546972%_ + _%tl4648646975%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4648546972%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4648346965%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4648346965%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4647846948%_ + _%hd4647946952%_ + _%tl4648046955%_ + _%e4648146958%_ + _%hd4648246962%_ + _%tl4648346965%_ + _%e4648446968%_ + _%hd4648546972%_ + _%tl4648646975%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4648546972%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4648546972%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4648346965%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4648346965%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (_%__match7862378624%_ - (lambda (_%e4641547034%_ - _%hd4641647038%_ - _%tl4641747041%_ - _%e4641847044%_ - _%hd4641947048%_ - _%tl4642047051%_ - _%e4642147054%_ - _%hd4642247058%_ - _%tl4642347061%_ - _%e4642447064%_ - _%hd4642547068%_ - _%tl4642647071%_ - _%e4642747074%_ - _%hd4642847078%_ - _%tl4642947081%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) - (letrec ((_%loop4643347090%_ - (lambda (_%hd4643147094%_ _%body4643747097%_) - (if (gx#stx-pair? _%hd4643147094%_) - (let ((_%e4643447100%_ - (gx#syntax-e _%hd4643147094%_))) - (let ((_%lp-tl4643647107%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4643447100%_))) - (_%lp-hd4643547104%_ + (##cdr _%e4647047136%_))) + (_%lp-hd4647147140%_ (let () (declare (not safe)) - (##car _%e4643447100%_)))) - (_%loop4643347090%_ - _%lp-tl4643647107%_ - (cons _%lp-hd4643547104%_ - _%body4643747097%_)))) - (let ((_%body4643847110%_ - (reverse _%body4643747097%_))) - (let ((_%L47114%_ _%body4643847110%_) - (_%L47116%_ _%hd4642847078%_) - (_%L47117%_ _%hd4642547068%_) - (_%L47118%_ _%hd4642247058%_)) - (if (and (gx#identifier? _%L47118%_) - (gx#identifier? _%L47116%_) - (gx#identifier? _%L47117%_) + (##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%_) (or (gx#free-identifier=? - _%L47117%_ + _%L47153%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47117%_ + _%L47153%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47117%_ + _%L47153%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47117%_ + _%L47153%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7845578456%_ - _%L47114%_ - _%L47116%_ - _%L47117%_ - _%L47118%_) - (_%__match7864778648%_ - _%e4641547034%_ - _%hd4641647038%_ - _%tl4641747041%_ - _%e4641847044%_ - _%hd4641947048%_ - _%tl4642047051%_ - _%e4642147054%_ - _%hd4642247058%_ - _%tl4642347061%_ - _%e4642447064%_ - _%hd4642547068%_ - _%tl4642647071%_)))))))) - (_%loop4643347090%_ _%target4643047084%_ '())))) - (_%__match7858378584%_ - (lambda (_%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4639347237%_ - _%hd4639447241%_ - _%tl4639547244%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%e4639947257%_ - _%hd4640047261%_ - _%tl4640147264%_ - _%__splice7845378454%_ - _%target4640247267%_ - _%tl4640447270%_) - (letrec ((_%loop4640547273%_ - (lambda (_%hd4640347277%_ _%body4640947280%_) - (if (gx#stx-pair? _%hd4640347277%_) - (let ((_%e4640647283%_ - (gx#syntax-e _%hd4640347277%_))) - (let ((_%lp-tl4640847290%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e4640647283%_))) - (_%lp-hd4640747287%_ + (##cdr _%e4644247319%_))) + (_%lp-hd4644347323%_ (let () (declare (not safe)) - (##car _%e4640647283%_)))) - (_%loop4640547273%_ - _%lp-tl4640847290%_ - (cons _%lp-hd4640747287%_ - _%body4640947280%_)))) - (let ((_%body4641047293%_ - (reverse _%body4640947280%_))) - (let ((_%L47297%_ _%body4641047293%_) - (_%L47299%_ _%hd4640047261%_) - (_%L47300%_ _%hd4639747251%_) - (_%L47301%_ _%hd4639447241%_) - (_%L47302%_ _%hd4638847221%_) - (_%L47303%_ _%hd4638547211%_)) - (if (and (gx#identifier? _%L47303%_) - (gx#identifier? _%L47299%_) - (gx#identifier? _%L47300%_) + (##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%_) (or (gx#free-identifier=? - _%L47300%_ + _%L47336%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47300%_ + _%L47336%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47300%_ + _%L47336%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47300%_ + _%L47336%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7845178452%_ - _%L47297%_ - _%L47299%_ - _%L47300%_ - _%L47301%_ - _%L47302%_ - _%L47303%_) - (_%__match7864778648%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_)))))))) - (_%loop4640547273%_ _%target4640247267%_ '())))) - (_%__match7855178552%_ - (lambda (_%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_) - (if (gx#identifier? _%hd4639147231%_) + (_%__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%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84019_| - _%hd4639147231%_) - (if (gx#stx-pair? _%tl4639247234%_) - (let ((_%e4639347237%_ - (gx#syntax-e _%tl4639247234%_))) - (let ((_%tl4639547244%_ + |gerbil/core/contract~Using[1]#_g84065_| + _%hd4642747267%_) + (if (gx#stx-pair? _%tl4642847270%_) + (let ((_%e4642947273%_ + (gx#syntax-e _%tl4642847270%_))) + (let ((_%tl4643147280%_ (let () (declare (not safe)) - (##cdr _%e4639347237%_))) - (_%hd4639447241%_ + (##cdr _%e4642947273%_))) + (_%hd4643047277%_ (let () (declare (not safe)) - (##car _%e4639347237%_)))) - (if (gx#stx-pair? _%tl4639547244%_) - (let ((_%e4639647247%_ + (##car _%e4642947273%_)))) + (if (gx#stx-pair? _%tl4643147280%_) + (let ((_%e4643247283%_ (gx#syntax-e - _%tl4639547244%_))) - (let ((_%tl4639847254%_ + _%tl4643147280%_))) + (let ((_%tl4643447290%_ (let () (declare (not safe)) - (##cdr _%e4639647247%_))) - (_%hd4639747251%_ + (##cdr _%e4643247283%_))) + (_%hd4643347287%_ (let () (declare (not safe)) - (##car _%e4639647247%_)))) + (##car _%e4643247283%_)))) (if (gx#stx-pair? - _%tl4639847254%_) - (let ((_%e4639947257%_ + _%tl4643447290%_) + (let ((_%e4643547293%_ (gx#syntax-e - _%tl4639847254%_))) - (let ((_%tl4640147264%_ + _%tl4643447290%_))) + (let ((_%tl4643747300%_ (let () (declare (not safe)) - (##cdr _%e4639947257%_))) - (_%hd4640047261%_ + (##cdr _%e4643547293%_))) + (_%hd4643647297%_ (let () (declare (not safe)) - (##car _%e4639947257%_)))) + (##car _%e4643547293%_)))) (if (gx#stx-null? - _%tl4640147264%_) + _%tl4643747300%_) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7845378454%_ + _%tl4641947240%_) + (let ((_%__splice7849978500%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4640447270%_ + (gx#syntax-split-splice _%tl4641947240%_ '0))) + (let ((_%tl4644047306%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '1))) - (_%target4640247267%_ + (##vector-ref _%__splice7849978500%_ '1))) + (_%target4643847303%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '0)))) - (if (gx#stx-null? _%tl4640447270%_) - (_%__match7858378584%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4639347237%_ - _%hd4639447241%_ - _%tl4639547244%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%e4639947257%_ - _%hd4640047261%_ - _%tl4640147264%_ - _%__splice7845378454%_ - _%target4640247267%_ - _%tl4640447270%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4638847221%_) + _%hd4642447257%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4638847221%_) + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4642447257%_) (if (gx#stx-null? - _%tl4639847254%_) + _%tl4643447290%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4638347204%_) - (let ((_%__splice7846578466%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4649446823%_ + _%tl4641947240%_) + (let ((_%__splice7851178512%_ + (gx#syntax-split-splice _%tl4641947240%_ '0))) + (let ((_%tl4653046859%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846578466%_ + _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4639347237%_ - _%hd4639447241%_ - _%tl4639547244%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ + (gx#syntax-split-splice _%tl4641947240%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-null? _%tl4639247234%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7845778458%_ + (_%g4637446583%_)))))) + (if (gx#stx-null? _%tl4642847270%_) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7850378504%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4643247087%_ + (let ((_%tl4646847123%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '1))) - (_%target4643047084%_ + (_%target4646647120%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '0)))) (if (gx#stx-null? - _%tl4643247087%_) - (_%__match7862378624%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) + _%tl4646847123%_) + (_%__match7866978670%_ + _%e4641447223%_ + _%hd4641547227%_ + _%tl4641647230%_ + _%e4641747233%_ + _%hd4641847237%_ + _%tl4641947240%_ + _%e4642047243%_ + _%hd4642147247%_ + _%tl4642247250%_ + _%e4642347253%_ + _%hd4642447257%_ + _%tl4642547260%_ + _%e4642647263%_ + _%hd4642747267%_ + _%tl4642847270%_ + _%__splice7850378504%_ + _%target4646647120%_ + _%tl4646847123%_) (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ + (let () (declare (not safe)) (##car _%e4655046704%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4641447223%_ + _%hd4641547227%_ + _%tl4641647230%_ + _%e4641747233%_ + _%hd4641847237%_ + _%tl4641947240%_ + _%e4642047243%_ + _%hd4642147247%_ + _%tl4642247250%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (if (gx#stx-null? _%tl4639247234%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7845778458%_ + (_%g4637446583%_))))) + (if (gx#stx-null? _%tl4642847270%_) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7850378504%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4643247087%_ + (let ((_%tl4646847123%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '1))) - (_%target4643047084%_ + (_%target4646647120%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '0)))) - (if (gx#stx-null? _%tl4643247087%_) - (_%__match7862378624%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) + (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? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4638847221%_) + (_%g4637446583%_)))) + (if (gx#identifier? _%hd4642447257%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4638847221%_) - (if (gx#stx-pair? _%tl4639247234%_) - (let ((_%e4648646800%_ + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4642447257%_) + (if (gx#stx-pair? _%tl4642847270%_) + (let ((_%e4652246836%_ (gx#syntax-e - _%tl4639247234%_))) - (let ((_%tl4648846807%_ + _%tl4642847270%_))) + (let ((_%tl4652446843%_ (let () (declare (not safe)) - (##cdr _%e4648646800%_))) - (_%hd4648746804%_ + (##cdr _%e4652246836%_))) + (_%hd4652346840%_ (let () (declare (not safe)) - (##car _%e4648646800%_)))) + (##car _%e4652246836%_)))) (if (gx#stx-pair? - _%tl4648846807%_) - (let ((_%e4648946810%_ + _%tl4652446843%_) + (let ((_%e4652546846%_ (gx#syntax-e - _%tl4648846807%_))) - (let ((_%tl4649146817%_ + _%tl4652446843%_))) + (let ((_%tl4652746853%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ - (let () (declare (not safe)) (##car _%e4648946810%_)))) - (if (gx#stx-null? _%tl4649146817%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846578466%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4649446823%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846578466%_ + _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ + (gx#syntax-split-splice _%tl4641947240%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (gx#syntax-split-splice _%tl4641947240%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4641447223%_ + _%hd4641547227%_ + _%tl4641647230%_ + _%e4641747233%_ + _%hd4641847237%_ + _%tl4641947240%_ + _%e4642047243%_ + _%hd4642147247%_ + _%tl4642247250%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-null? _%tl4639247234%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7845778458%_ + (_%g4637446583%_)))))) + (if (gx#stx-null? _%tl4642847270%_) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7850378504%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4643247087%_ + (let ((_%tl4646847123%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '1))) - (_%target4643047084%_ + (_%target4646647120%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '0)))) - (if (gx#stx-null? _%tl4643247087%_) - (_%__match7862378624%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (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%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4638847221%_) + (_%g4637446583%_)))) + (if (gx#identifier? _%hd4642447257%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4638847221%_) - (if (gx#stx-pair? _%tl4639247234%_) - (let ((_%e4648646800%_ + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4642447257%_) + (if (gx#stx-pair? _%tl4642847270%_) + (let ((_%e4652246836%_ (gx#syntax-e - _%tl4639247234%_))) - (let ((_%tl4648846807%_ + _%tl4642847270%_))) + (let ((_%tl4652446843%_ (let () (declare (not safe)) - (##cdr _%e4648646800%_))) - (_%hd4648746804%_ + (##cdr _%e4652246836%_))) + (_%hd4652346840%_ (let () (declare (not safe)) - (##car _%e4648646800%_)))) + (##car _%e4652246836%_)))) (if (gx#stx-pair? - _%tl4648846807%_) - (let ((_%e4648946810%_ + _%tl4652446843%_) + (let ((_%e4652546846%_ (gx#syntax-e - _%tl4648846807%_))) - (let ((_%tl4649146817%_ + _%tl4652446843%_))) + (let ((_%tl4652746853%_ (let () (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ + (##cdr _%e4652546846%_))) + (_%hd4652646850%_ (let () (declare (not safe)) - (##car _%e4648946810%_)))) + (##car _%e4652546846%_)))) (if (gx#stx-null? - _%tl4649146817%_) + _%tl4652746853%_) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846578466%_ + _%tl4641947240%_) + (let ((_%__splice7851178512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4649446823%_ + (gx#syntax-split-splice _%tl4641947240%_ '0))) + (let ((_%tl4653046859%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4641447223%_ + _%hd4641547227%_ + _%tl4641647230%_ + _%e4641747233%_ + _%hd4641847237%_ + _%tl4641947240%_ + _%e4642047243%_ + _%hd4642147247%_ + _%tl4642247250%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4642147247%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4642147247%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4641947240%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4641947240%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4641447223%_ + _%hd4641547227%_ + _%tl4641647230%_ + _%e4641747233%_ + _%hd4641847237%_ + _%tl4641947240%_ + _%e4642047243%_ + _%hd4642147247%_ + _%tl4642247250%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))))) - (_%__match7852178522%_ - (lambda (_%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%__splice7844978450%_ - _%target4636347423%_ - _%tl4636547426%_) - (letrec ((_%loop4636647429%_ - (lambda (_%hd4636447433%_ _%body4637047436%_) - (if (gx#stx-pair? _%hd4636447433%_) - (let ((_%e4636747439%_ - (gx#syntax-e _%hd4636447433%_))) - (let ((_%lp-tl4636947446%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4636747439%_))) - (_%lp-hd4636847443%_ + (##cdr _%e4640347475%_))) + (_%lp-hd4640447479%_ (let () (declare (not safe)) - (##car _%e4636747439%_)))) - (_%loop4636647429%_ - _%lp-tl4636947446%_ - (cons _%lp-hd4636847443%_ - _%body4637047436%_)))) - (let ((_%body4637147449%_ - (reverse _%body4637047436%_))) - (let ((_%L47453%_ _%body4637147449%_) - (_%L47455%_ _%hd4636147417%_) - (_%L47456%_ _%hd4635847407%_) - (_%L47457%_ _%hd4635547397%_) - (_%L47458%_ _%hd4635247387%_)) - (if (and (gx#identifier? _%L47458%_) - (gx#identifier? _%L47456%_) + (##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%_) (or (gx#free-identifier=? - _%L47456%_ + _%L47492%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47456%_ + _%L47492%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47456%_ + _%L47492%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47456%_ + _%L47492%_ (gx#datum->syntax '#f ':~)) (gx#free-identifier=? - _%L47456%_ + _%L47492%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7844778448%_ - _%L47453%_ - _%L47455%_ - _%L47456%_ - _%L47457%_ - _%L47458%_) - (_%__match7855178552%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_)))))))) - (_%loop4636647429%_ _%target4636347423%_ '()))))) - (if (gx#stx-pair? _%__stx7844478445%_) - (let ((_%e4634547363%_ (gx#syntax-e _%__stx7844478445%_))) - (let ((_%tl4634747370%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e4634547363%_))) - (_%hd4634647367%_ + (##cdr _%e4638147399%_))) + (_%hd4638247403%_ (let () (declare (not safe)) - (##car _%e4634547363%_)))) - (if (gx#stx-pair? _%tl4634747370%_) - (let ((_%e4634847373%_ - (gx#syntax-e _%tl4634747370%_))) - (let ((_%tl4635047380%_ + (##car _%e4638147399%_)))) + (if (gx#stx-pair? _%tl4638347406%_) + (let ((_%e4638447409%_ + (gx#syntax-e _%tl4638347406%_))) + (let ((_%tl4638647416%_ (let () (declare (not safe)) - (##cdr _%e4634847373%_))) - (_%hd4634947377%_ + (##cdr _%e4638447409%_))) + (_%hd4638547413%_ (let () (declare (not safe)) - (##car _%e4634847373%_)))) - (if (gx#stx-pair? _%hd4634947377%_) - (let ((_%e4635147383%_ - (gx#syntax-e _%hd4634947377%_))) - (let ((_%tl4635347390%_ + (##car _%e4638447409%_)))) + (if (gx#stx-pair? _%hd4638547413%_) + (let ((_%e4638747419%_ + (gx#syntax-e _%hd4638547413%_))) + (let ((_%tl4638947426%_ (let () (declare (not safe)) - (##cdr _%e4635147383%_))) - (_%hd4635247387%_ + (##cdr _%e4638747419%_))) + (_%hd4638847423%_ (let () (declare (not safe)) - (##car _%e4635147383%_)))) - (if (gx#stx-pair? _%tl4635347390%_) - (let ((_%e4635447393%_ + (##car _%e4638747419%_)))) + (if (gx#stx-pair? _%tl4638947426%_) + (let ((_%e4639047429%_ (gx#syntax-e - _%tl4635347390%_))) - (let ((_%tl4635647400%_ + _%tl4638947426%_))) + (let ((_%tl4639247436%_ (let () (declare (not safe)) - (##cdr _%e4635447393%_))) - (_%hd4635547397%_ + (##cdr _%e4639047429%_))) + (_%hd4639147433%_ (let () (declare (not safe)) - (##car _%e4635447393%_)))) + (##car _%e4639047429%_)))) (if (gx#stx-pair? - _%tl4635647400%_) - (let ((_%e4635747403%_ + _%tl4639247436%_) + (let ((_%e4639347439%_ (gx#syntax-e - _%tl4635647400%_))) - (let ((_%tl4635947410%_ + _%tl4639247436%_))) + (let ((_%tl4639547446%_ (let () (declare (not safe)) - (##cdr _%e4635747403%_))) - (_%hd4635847407%_ + (##cdr _%e4639347439%_))) + (_%hd4639447443%_ (let () (declare (not safe)) - (##car _%e4635747403%_)))) + (##car _%e4639347439%_)))) (if (gx#stx-pair? - _%tl4635947410%_) - (let ((_%e4636047413%_ + _%tl4639547446%_) + (let ((_%e4639647449%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4635947410%_))) - (let ((_%tl4636247420%_ + (gx#syntax-e _%tl4639547446%_))) + (let ((_%tl4639847456%_ (let () (declare (not safe)) - (##cdr _%e4636047413%_))) - (_%hd4636147417%_ + (##cdr _%e4639647449%_))) + (_%hd4639747453%_ (let () (declare (not safe)) - (##car _%e4636047413%_)))) - (if (gx#stx-null? _%tl4636247420%_) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7844978450%_ + (##car _%e4639647449%_)))) + (if (gx#stx-null? _%tl4639847456%_) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7849578496%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4636547426%_ + (let ((_%tl4640147462%_ (let () (declare (not safe)) (##vector-ref - _%__splice7844978450%_ + _%__splice7849578496%_ '1))) - (_%target4636347423%_ + (_%target4639947459%_ (let () (declare (not safe)) (##vector-ref - _%__splice7844978450%_ + _%__splice7849578496%_ '0)))) - (if (gx#stx-null? _%tl4636547426%_) - (_%__match7852178522%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%__splice7844978450%_ - _%target4636347423%_ - _%tl4636547426%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (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%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4635847407%_) + (_%g4637446583%_)))) + (if (gx#identifier? _%hd4639447443%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84019_| - _%hd4635847407%_) - (if (gx#stx-pair? _%tl4636247420%_) - (let ((_%e4639647247%_ - (gx#syntax-e _%tl4636247420%_))) - (let ((_%tl4639847254%_ + |gerbil/core/contract~Using[1]#_g84065_| + _%hd4639447443%_) + (if (gx#stx-pair? _%tl4639847456%_) + (let ((_%e4643247283%_ + (gx#syntax-e _%tl4639847456%_))) + (let ((_%tl4643447290%_ (let () (declare (not safe)) - (##cdr _%e4639647247%_))) - (_%hd4639747251%_ + (##cdr _%e4643247283%_))) + (_%hd4643347287%_ (let () (declare (not safe)) - (##car _%e4639647247%_)))) - (if (gx#stx-pair? _%tl4639847254%_) - (let ((_%e4639947257%_ + (##car _%e4643247283%_)))) + (if (gx#stx-pair? _%tl4643447290%_) + (let ((_%e4643547293%_ (gx#syntax-e - _%tl4639847254%_))) - (let ((_%tl4640147264%_ + _%tl4643447290%_))) + (let ((_%tl4643747300%_ (let () (declare (not safe)) - (##cdr _%e4639947257%_))) - (_%hd4640047261%_ + (##cdr _%e4643547293%_))) + (_%hd4643647297%_ (let () (declare (not safe)) - (##car _%e4639947257%_)))) + (##car _%e4643547293%_)))) (if (gx#stx-null? - _%tl4640147264%_) + _%tl4643747300%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7845378454%_ + _%tl4638647416%_) + (let ((_%__splice7849978500%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4640447270%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4644047306%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '1))) - (_%target4640247267%_ + (##vector-ref _%__splice7849978500%_ '1))) + (_%target4643847303%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '0)))) - (if (gx#stx-null? _%tl4640447270%_) - (_%__match7858378584%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%e4639947257%_ - _%hd4640047261%_ - _%tl4640147264%_ - _%__splice7845378454%_ - _%target4640247267%_ - _%tl4640447270%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7851578516%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4635547397%_) + _%hd4639147433%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4635547397%_) + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4639147433%_) (if (gx#stx-null? - _%tl4639847254%_) + _%tl4643447290%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846578466%_ + _%tl4638647416%_) + (let ((_%__splice7851178512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4649446823%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4653046859%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7851578516%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4638147399%_ + _%hd4638247403%_ + _%tl4638347406%_ + _%e4638447409%_ + _%hd4638547413%_ + _%tl4638647416%_ + _%e4638747419%_ + _%hd4638847423%_ + _%tl4638947426%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4635547397%_) + (_%g4637446583%_)))) + (if (gx#identifier? _%hd4639147433%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4635547397%_) - (if (gx#stx-pair? _%tl4636247420%_) - (let ((_%e4648946810%_ + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4639147433%_) + (if (gx#stx-pair? _%tl4639847456%_) + (let ((_%e4652546846%_ (gx#syntax-e - _%tl4636247420%_))) - (let ((_%tl4649146817%_ + _%tl4639847456%_))) + (let ((_%tl4652746853%_ (let () (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ + (##cdr _%e4652546846%_))) + (_%hd4652646850%_ (let () (declare (not safe)) - (##car _%e4648946810%_)))) + (##car _%e4652546846%_)))) (if (gx#stx-null? - _%tl4649146817%_) + _%tl4652746853%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846578466%_ + _%tl4638647416%_) + (let ((_%__splice7851178512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4649446823%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4653046859%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7851578516%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4655546717%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4638147399%_ + _%hd4638247403%_ + _%tl4638347406%_ + _%e4638447409%_ + _%hd4638547413%_ + _%tl4638647416%_ + _%e4638747419%_ + _%hd4638847423%_ + _%tl4638947426%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (if (gx#identifier? _%hd4635547397%_) + (_%g4637446583%_))))) + (if (gx#identifier? _%hd4639147433%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4635547397%_) - (if (gx#stx-pair? _%tl4636247420%_) - (let ((_%e4648946810%_ + |gerbil/core/contract~Using[1]#_g84064_| + _%hd4639147433%_) + (if (gx#stx-pair? _%tl4639847456%_) + (let ((_%e4652546846%_ (gx#syntax-e - _%tl4636247420%_))) - (let ((_%tl4649146817%_ + _%tl4639847456%_))) + (let ((_%tl4652746853%_ (let () (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ + (##cdr _%e4652546846%_))) + (_%hd4652646850%_ (let () (declare (not safe)) - (##car _%e4648946810%_)))) + (##car _%e4652546846%_)))) (if (gx#stx-null? - _%tl4649146817%_) + _%tl4652746853%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846578466%_ + _%tl4638647416%_) + (let ((_%__splice7851178512%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4649446823%_ + (let ((_%tl4653046859%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7851178512%_ '1))) + (_%target4652846856%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) + (##car _%e4655046704%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4638147399%_ + _%hd4638247403%_ + _%tl4638347406%_ + _%e4638447409%_ + _%hd4638547413%_ + _%tl4638647416%_ + _%e4638747419%_ + _%hd4638847423%_ + _%tl4638947426%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4655546717%_) + (_%__match7880178802%_ + _%e4638147399%_ + _%hd4638247403%_ + _%tl4638347406%_ + _%e4638447409%_ + _%hd4638547413%_ + _%tl4638647416%_ + _%e4638747419%_ + _%hd4638847423%_ + _%tl4638947426%_ + _%e4655046704%_ + _%hd4655146708%_ + _%tl4655246711%_ + _%__splice7851578516%_ + _%target4655346714%_ + _%tl4655546717%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))))) - (if (gx#stx-null? _%tl4635947410%_) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7845778458%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4643247087%_ + (_%g4637446583%_)))))))) + (if (gx#stx-null? _%tl4639547446%_) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7850378504%_ + (gx#syntax-split-splice _%tl4638647416%_ '0))) + (let ((_%tl4646847123%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845778458%_ '1))) - (_%target4643047084%_ + (##vector-ref _%__splice7850378504%_ '1))) + (_%target4646647120%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7850378504%_ '0)))) - (if (gx#stx-null? _%tl4643247087%_) - (_%__match7862378624%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4637446583%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4637446583%_)))) + (let () (declare (not safe)) (_%g4637446583%_)))) + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ + (gx#syntax-e _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ + (##car _%e4655046704%_)))) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '1))) - (_%target4651746678%_ + (_%target4655346714%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (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)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##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)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4638847423%_) + (let ((_%e4655046704%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4638847423%_))) + (let ((_%tl4655246711%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4655046704%_))) + (_%hd4655146708%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4655046704%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4638647416%_) + (let ((_%__splice7851578516%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4655546717%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7851578516%_ '1))) + (_%target4655346714%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-null? _%hd4634947377%_) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7847378474%_ + (_%g4637446583%_)))))) + (if (gx#stx-null? _%hd4638547413%_) + (if (gx#stx-pair/null? _%tl4638647416%_) + (let ((_%__splice7851978520%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4638647416%_ '0))) - (let ((_%tl4653546577%_ + (let ((_%tl4657146613%_ (let () (declare (not safe)) (##vector-ref - _%__splice7847378474%_ + _%__splice7851978520%_ '1))) - (_%target4653346574%_ + (_%target4656946610%_ (let () (declare (not safe)) (##vector-ref - _%__splice7847378474%_ + _%__splice7851978520%_ '0)))) (if (gx#stx-null? - _%tl4653546577%_) - (_%__match7877778778%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%__splice7847378474%_ - _%target4653346574%_ - _%tl4653546577%_) + _%tl4657146613%_) + (_%__match7882378824%_ + _%e4638147399%_ + _%hd4638247403%_ + _%tl4638347406%_ + _%e4638447409%_ + _%hd4638547413%_ + _%tl4638647416%_ + _%__splice7851978520%_ + _%target4656946610%_ + _%tl4657146613%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4637446583%_))))) (let () (declare (not safe)) - (_%g4633846547%_))) + (_%g4637446583%_))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))))) + (_%g4637446583%_)))))) + (let () (declare (not safe)) (_%g4637446583%_))))) + (let () (declare (not safe)) (_%g4637446583%_)))))))) (define |gerbil/core/contract~Using[:0:]#with-contract| - (lambda (_%$stx47521%_) - (let* ((_%g4752547559%_ - (lambda (_%g4752647555%_) + (lambda (_%$stx47557%_) + (let* ((_%g4756147595%_ + (lambda (_%g4756247591%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4752647555%_))) - (_%g4752447682%_ - (lambda (_%g4752647563%_) - (if (gx#stx-pair? _%g4752647563%_) - (let ((_%e4753047566%_ (gx#syntax-e _%g4752647563%_))) - (let ((_%hd4753147570%_ + _%g4756247591%_))) + (_%g4756047718%_ + (lambda (_%g4756247599%_) + (if (gx#stx-pair? _%g4756247599%_) + (let ((_%e4756647602%_ (gx#syntax-e _%g4756247599%_))) + (let ((_%hd4756747606%_ (let () (declare (not safe)) - (##car _%e4753047566%_))) - (_%tl4753247573%_ + (##car _%e4756647602%_))) + (_%tl4756847609%_ (let () (declare (not safe)) - (##cdr _%e4753047566%_)))) - (if (gx#stx-pair? _%tl4753247573%_) - (let ((_%e4753347576%_ - (gx#syntax-e _%tl4753247573%_))) - (let ((_%hd4753447580%_ + (##cdr _%e4756647602%_)))) + (if (gx#stx-pair? _%tl4756847609%_) + (let ((_%e4756947612%_ + (gx#syntax-e _%tl4756847609%_))) + (let ((_%hd4757047616%_ (let () (declare (not safe)) - (##car _%e4753347576%_))) - (_%tl4753547583%_ + (##car _%e4756947612%_))) + (_%tl4757147619%_ (let () (declare (not safe)) - (##cdr _%e4753347576%_)))) - (if (gx#stx-pair? _%hd4753447580%_) - (let ((_%e4753647586%_ - (gx#syntax-e _%hd4753447580%_))) - (let ((_%hd4753747590%_ + (##cdr _%e4756947612%_)))) + (if (gx#stx-pair? _%hd4757047616%_) + (let ((_%e4757247622%_ + (gx#syntax-e _%hd4757047616%_))) + (let ((_%hd4757347626%_ (let () (declare (not safe)) - (##car _%e4753647586%_))) - (_%tl4753847593%_ + (##car _%e4757247622%_))) + (_%tl4757447629%_ (let () (declare (not safe)) - (##cdr _%e4753647586%_)))) - (if (gx#stx-pair? _%tl4753847593%_) - (let ((_%e4753947596%_ + (##cdr _%e4757247622%_)))) + (if (gx#stx-pair? _%tl4757447629%_) + (let ((_%e4757547632%_ (gx#syntax-e - _%tl4753847593%_))) - (let ((_%hd4754047600%_ + _%tl4757447629%_))) + (let ((_%hd4757647636%_ (let () (declare (not safe)) - (##car _%e4753947596%_))) - (_%tl4754147603%_ + (##car _%e4757547632%_))) + (_%tl4757747639%_ (let () (declare (not safe)) - (##cdr _%e4753947596%_)))) + (##cdr _%e4757547632%_)))) (if (gx#identifier? - _%hd4754047600%_) + _%hd4757647636%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84020_| - _%hd4754047600%_) + |gerbil/core/contract~Using[1]#_g84066_| + _%hd4757647636%_) (if (gx#stx-pair? - _%tl4754147603%_) - (let ((_%e4754247606%_ + _%tl4757747639%_) + (let ((_%e4757847642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4754147603%_))) - (let ((_%hd4754347610%_ + (gx#syntax-e _%tl4757747639%_))) + (let ((_%hd4757947646%_ (let () (declare (not safe)) - (##car _%e4754247606%_))) - (_%tl4754447613%_ + (##car _%e4757847642%_))) + (_%tl4758047649%_ (let () (declare (not safe)) - (##cdr _%e4754247606%_)))) - (if (gx#stx-null? _%tl4754447613%_) - (if (gx#stx-pair/null? _%tl4753547583%_) - (let ((_g84021_ + (##cdr _%e4757847642%_)))) + (if (gx#stx-null? _%tl4758047649%_) + (if (gx#stx-pair/null? _%tl4757147619%_) + (let ((_g84067_ (gx#syntax-split-splice - _%tl4753547583%_ + _%tl4757147619%_ '0))) (begin - (let ((_g84022_ + (let ((_g84068_ (let () (declare (not safe)) - (if (##values? _g84021_) - (##vector-length _g84021_) + (if (##values? _g84067_) + (##vector-length _g84067_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84022_ 2))) + (##fx= _g84068_ 2))) (error "Context expects 2 values" - _g84022_))) - (let ((_%target4754547616%_ + _g84068_))) + (let ((_%target4758147652%_ (let () (declare (not safe)) - (##vector-ref _g84021_ 0))) - (_%tl4754747619%_ + (##vector-ref _g84067_ 0))) + (_%tl4758347655%_ (let () (declare (not safe)) - (##vector-ref _g84021_ 1)))) - (if (gx#stx-null? _%tl4754747619%_) - (letrec ((_%loop4754847622%_ - (lambda (_%hd4754647626%_ - _%body4755247629%_) + (##vector-ref _g84067_ 1)))) + (if (gx#stx-null? _%tl4758347655%_) + (letrec ((_%loop4758447658%_ + (lambda (_%hd4758247662%_ + _%body4758847665%_) (if (gx#stx-pair? - _%hd4754647626%_) - (let ((_%e4754947632%_ + _%hd4758247662%_) + (let ((_%e4758547668%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4754647626%_))) - (let ((_%lp-hd4755047636%_ + (gx#syntax-e _%hd4758247662%_))) + (let ((_%lp-hd4758647672%_ (let () (declare (not safe)) - (##car _%e4754947632%_))) - (_%lp-tl4755147639%_ + (##car _%e4758547668%_))) + (_%lp-tl4758747675%_ (let () (declare (not safe)) - (##cdr _%e4754947632%_)))) - (_%loop4754847622%_ - _%lp-tl4755147639%_ - (cons _%lp-hd4755047636%_ _%body4755247629%_)))) - (let ((_%body4755347642%_ (reverse _%body4755247629%_))) - ((lambda (_%L47646%_ _%L47648%_ _%L47649%_) - (if (gx#identifier? _%L47649%_) + (##cdr _%e4758547668%_)))) + (_%loop4758447658%_ + _%lp-tl4758747675%_ + (cons _%lp-hd4758647672%_ _%body4758847665%_)))) + (let ((_%body4758947678%_ (reverse _%body4758847665%_))) + ((lambda (_%L47682%_ _%L47684%_ _%L47685%_) + (if (gx#identifier? _%L47685%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L47648%_ - (cons _%L47649%_ '())) + (cons (cons _%L47684%_ + (cons _%L47685%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4767347676%_ + (foldr (lambda (_%g4770947712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4767447679%_) - (cons _%g4767347676%_ _%g4767447679%_)) + _%g4771047715%_) + (cons _%g4770947712%_ _%g4771047715%_)) '() - _%L47646%_))) + _%L47682%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'contract-violation!) - (cons _%L47649%_ + (cons _%L47685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47648%_ (cons _%L47649%_ '())))) + (cons _%L47684%_ (cons _%L47685%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%g4752547559%_ _%g4752647563%_))) - _%body4755347642%_ - _%hd4754347610%_ - _%hd4753747590%_)))))) + (_%g4756147595%_ _%g4756247599%_))) + _%body4758947678%_ + _%hd4757947646%_ + _%hd4757347626%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4754847622%_ - _%target4754547616%_ + (_%loop4758447658%_ + _%target4758147652%_ '())) - (_%g4752547559%_ - _%g4752647563%_))))) - (_%g4752547559%_ _%g4752647563%_)) - (_%g4752547559%_ _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_)) - (_%g4752547559%_ _%g4752647563%_)) - (_%g4752547559%_ _%g4752647563%_)))) + (_%g4756147595%_ + _%g4756247599%_))))) + (_%g4756147595%_ _%g4756247599%_)) + (_%g4756147595%_ _%g4756247599%_)))) + (_%g4756147595%_ _%g4756247599%_)) + (_%g4756147595%_ _%g4756247599%_)) + (_%g4756147595%_ _%g4756247599%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4752547559%_ - _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_))))) - (_%g4752447682%_ _%$stx47521%_)))) + (_%g4756147595%_ + _%g4756247599%_)))) + (_%g4756147595%_ _%g4756247599%_)))) + (_%g4756147595%_ _%g4756247599%_)))) + (_%g4756147595%_ _%g4756247599%_))))) + (_%g4756047718%_ _%$stx47557%_)))) (define |gerbil/core/contract~Using[1]#!class-slot-type| - (lambda (_%klass48249%_ _%slot48251%_) - (let ((_%$e48253%_ - (let ((__obj83858 _%klass48249%_)) + (lambda (_%klass48285%_ _%slot48287%_) + (let ((_%$e48289%_ + (let ((__obj83904 _%klass48285%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83858 + __obj83904 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83858 '19 '#f '#f)) + (##unchecked-structure-ref __obj83904 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83858 + __obj83904 'slot-types))))) - (if _%$e48253%_ - ((lambda (_%slot-types48257%_) - (agetq _%slot48251%_ _%slot-types48257%_)) - _%$e48253%_) + (if _%$e48289%_ + ((lambda (_%slot-types48293%_) + (agetq _%slot48287%_ _%slot-types48293%_)) + _%$e48289%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%klass48230%_ _%slot48232%_) - (let ((_%$e48234%_ - (let ((__obj83859 _%klass48230%_)) + (lambda (_%klass48266%_ _%slot48268%_) + (let ((_%$e48270%_ + (let ((__obj83905 _%klass48266%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83859 + __obj83905 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83859 '20 '#f '#f)) + (##unchecked-structure-ref __obj83905 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83859 + __obj83905 'slot-defaults))))) - (if _%$e48234%_ - ((lambda (_%slot-defaults48238%_) - (let ((_%$e48241%_ - (agetq _%slot48232%_ _%slot-defaults48238%_))) - (if _%$e48241%_ - (gx#syntax-local-introduce _%$e48241%_) + (if _%$e48270%_ + ((lambda (_%slot-defaults48274%_) + (let ((_%$e48277%_ + (agetq _%slot48268%_ _%slot-defaults48274%_))) + (if _%$e48277%_ + (gx#syntax-local-introduce _%$e48277%_) '#f))) - _%$e48234%_) + _%$e48270%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%klass48211%_ _%slot48213%_) - (let ((_%$e48215%_ - (let ((__obj83860 _%klass48211%_)) + (lambda (_%klass48247%_ _%slot48249%_) + (let ((_%$e48251%_ + (let ((__obj83906 _%klass48247%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83860 + __obj83906 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83860 '20 '#f '#f)) + (##unchecked-structure-ref __obj83906 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83860 + __obj83906 'slot-defaults))))) - (if _%$e48215%_ - ((lambda (_%slot-defaults48219%_) - (let ((_%$e48222%_ - (agetq _%slot48213%_ _%slot-defaults48219%_))) - (if _%$e48222%_ - (gx#syntax-local-introduce _%$e48222%_) + (if _%$e48251%_ + ((lambda (_%slot-defaults48255%_) + (let ((_%$e48258%_ + (agetq _%slot48249%_ _%slot-defaults48255%_))) + (if _%$e48258%_ + (gx#syntax-local-introduce _%$e48258%_) '#f))) - _%$e48215%_) + _%$e48251%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (lambda (_%klass47979%_ _%slot47981%_) - (let ((_%contract4798247984%_ + (lambda (_%klass48015%_ _%slot48017%_) + (let ((_%contract4801848020%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass47979%_ - _%slot47981%_))) - (if _%contract4798247984%_ - (let* ((_%contract47988%_ _%contract4798247984%_) - (_%__stx7878078781%_ _%contract47988%_) - (_%g4799348030%_ + _%klass48015%_ + _%slot48017%_))) + (if _%contract4801848020%_ + (let* ((_%contract48024%_ _%contract4801848020%_) + (_%__stx7882678827%_ _%contract48024%_) + (_%g4802948066%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7878078781%_)))) - (let ((_%__kont7878378784%_ - (lambda (_%L48180%_ _%L48182%_) + _%__stx7882678827%_)))) + (let ((_%__kont7882978830%_ + (lambda (_%L48216%_ _%L48218%_) (not (gx#free-identifier=? - _%L48182%_ + _%L48218%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7878578786%_ - (lambda (_%L48120%_ _%L48122%_ _%L48123%_) + (_%__kont7883178832%_ + (lambda (_%L48156%_ _%L48158%_ _%L48159%_) (not (gx#free-identifier=? - _%L48122%_ + _%L48158%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7878778788%_ (lambda (_%L48057%_) '#f))) - (let* ((_%__match7883378834%_ - (lambda (_%e4800648080%_ - _%hd4800748084%_ - _%tl4800848087%_ - _%e4800948090%_ - _%hd4801048094%_ - _%tl4801148097%_ - _%e4801248100%_ - _%hd4801348104%_ - _%tl4801448107%_ - _%e4801548110%_ - _%hd4801648114%_ - _%tl4801748117%_) - (let ((_%L48120%_ _%hd4801648114%_) - (_%L48122%_ _%hd4801348104%_) - (_%L48123%_ _%hd4801048094%_)) - (if (and (gx#identifier? _%L48122%_) + (_%__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%_) (or (gx#free-identifier=? - _%L48122%_ + _%L48158%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48122%_ + _%L48158%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48122%_ + _%L48158%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48122%_ + _%L48158%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7878578786%_ - _%L48120%_ - _%L48122%_ - _%L48123%_) + (_%__kont7883178832%_ + _%L48156%_ + _%L48158%_ + _%L48159%_) (let () (declare (not safe)) - (_%g4799348030%_)))))) - (_%__match7880378804%_ - (lambda (_%e4799748160%_ - _%hd4799848164%_ - _%tl4799948167%_ - _%e4800048170%_ - _%hd4800148174%_ - _%tl4800248177%_) - (let ((_%L48180%_ _%hd4800148174%_) - (_%L48182%_ _%hd4799848164%_)) - (if (and (gx#identifier? _%L48182%_) + (_%g4802948066%_)))))) + (_%__match7884978850%_ + (lambda (_%e4803348196%_ + _%hd4803448200%_ + _%tl4803548203%_ + _%e4803648206%_ + _%hd4803748210%_ + _%tl4803848213%_) + (let ((_%L48216%_ _%hd4803748210%_) + (_%L48218%_ _%hd4803448200%_)) + (if (and (gx#identifier? _%L48218%_) (or (gx#free-identifier=? - _%L48182%_ + _%L48218%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48182%_ + _%L48218%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48182%_ + _%L48218%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48182%_ + _%L48218%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7878378784%_ _%L48180%_ _%L48182%_) - (if (gx#identifier? _%hd4799848164%_) + (_%__kont7882978830%_ _%L48216%_ _%L48218%_) + (if (gx#identifier? _%hd4803448200%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84023_| - _%hd4799848164%_) - (_%__kont7878778788%_ - _%hd4800148174%_) + |gerbil/core/contract~Using[1]#_g84069_| + _%hd4803448200%_) + (_%__kont7883378834%_ + _%hd4803748210%_) (let () (declare (not safe)) - (_%g4799348030%_))) + (_%g4802948066%_))) (let () (declare (not safe)) - (_%g4799348030%_)))))))) - (if (gx#stx-pair? _%__stx7878078781%_) - (let ((_%e4799748160%_ - (gx#syntax-e _%__stx7878078781%_))) - (let ((_%tl4799948167%_ + (_%g4802948066%_)))))))) + (if (gx#stx-pair? _%__stx7882678827%_) + (let ((_%e4803348196%_ + (gx#syntax-e _%__stx7882678827%_))) + (let ((_%tl4803548203%_ (let () (declare (not safe)) - (##cdr _%e4799748160%_))) - (_%hd4799848164%_ + (##cdr _%e4803348196%_))) + (_%hd4803448200%_ (let () (declare (not safe)) - (##car _%e4799748160%_)))) - (if (gx#stx-pair? _%tl4799948167%_) - (let ((_%e4800048170%_ - (gx#syntax-e _%tl4799948167%_))) - (let ((_%tl4800248177%_ + (##car _%e4803348196%_)))) + (if (gx#stx-pair? _%tl4803548203%_) + (let ((_%e4803648206%_ + (gx#syntax-e _%tl4803548203%_))) + (let ((_%tl4803848213%_ (let () (declare (not safe)) - (##cdr _%e4800048170%_))) - (_%hd4800148174%_ + (##cdr _%e4803648206%_))) + (_%hd4803748210%_ (let () (declare (not safe)) - (##car _%e4800048170%_)))) - (if (gx#stx-null? _%tl4800248177%_) - (_%__match7880378804%_ - _%e4799748160%_ - _%hd4799848164%_ - _%tl4799948167%_ - _%e4800048170%_ - _%hd4800148174%_ - _%tl4800248177%_) - (if (gx#identifier? _%hd4799848164%_) + (##car _%e4803648206%_)))) + (if (gx#stx-null? _%tl4803848213%_) + (_%__match7884978850%_ + _%e4803348196%_ + _%hd4803448200%_ + _%tl4803548203%_ + _%e4803648206%_ + _%hd4803748210%_ + _%tl4803848213%_) + (if (gx#identifier? _%hd4803448200%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84023_| - _%hd4799848164%_) + |gerbil/core/contract~Using[1]#_g84069_| + _%hd4803448200%_) (if (gx#stx-pair? - _%tl4800248177%_) - (let ((_%e4801248100%_ + _%tl4803848213%_) + (let ((_%e4804848136%_ (gx#syntax-e - _%tl4800248177%_))) - (let ((_%tl4801448107%_ + _%tl4803848213%_))) + (let ((_%tl4805048143%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4801248100%_))) - (_%hd4801348104%_ - (let () (declare (not safe)) (##car _%e4801248100%_)))) - (if (gx#stx-pair? _%tl4801448107%_) - (let ((_%e4801548110%_ (gx#syntax-e _%tl4801448107%_))) - (let ((_%tl4801748117%_ + (##cdr _%e4804848136%_))) + (_%hd4804948140%_ + (let () (declare (not safe)) (##car _%e4804848136%_)))) + (if (gx#stx-pair? _%tl4805048143%_) + (let ((_%e4805148146%_ (gx#syntax-e _%tl4805048143%_))) + (let ((_%tl4805348153%_ (let () (declare (not safe)) - (##cdr _%e4801548110%_))) - (_%hd4801648114%_ + (##cdr _%e4805148146%_))) + (_%hd4805248150%_ (let () (declare (not safe)) - (##car _%e4801548110%_)))) - (if (gx#stx-null? _%tl4801748117%_) - (_%__match7883378834%_ - _%e4799748160%_ - _%hd4799848164%_ - _%tl4799948167%_ - _%e4800048170%_ - _%hd4800148174%_ - _%tl4800248177%_ - _%e4801248100%_ - _%hd4801348104%_ - _%tl4801448107%_ - _%e4801548110%_ - _%hd4801648114%_ - _%tl4801748117%_) - (let () (declare (not safe)) (_%g4799348030%_))))) - (let () (declare (not safe)) (_%g4799348030%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4799348030%_))) + (_%g4802948066%_))) (let () (declare (not safe)) - (_%g4799348030%_))) + (_%g4802948066%_))) (let () (declare (not safe)) - (_%g4799348030%_)))))) + (_%g4802948066%_)))))) (let () (declare (not safe)) - (_%g4799348030%_))))) - (let () (declare (not safe)) (_%g4799348030%_)))))) + (_%g4802948066%_))))) + (let () (declare (not safe)) (_%g4802948066%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (lambda (_%klass47747%_ _%slot47749%_) - (let ((_%contract4775047752%_ + (lambda (_%klass47783%_ _%slot47785%_) + (let ((_%contract4778647788%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass47747%_ - _%slot47749%_))) - (if _%contract4775047752%_ - (let* ((_%contract47756%_ _%contract4775047752%_) - (_%__stx7885478855%_ _%contract47756%_) - (_%g4776147798%_ + _%klass47783%_ + _%slot47785%_))) + (if _%contract4778647788%_ + (let* ((_%contract47792%_ _%contract4778647788%_) + (_%__stx7890078901%_ _%contract47792%_) + (_%g4779747834%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7885478855%_)))) - (let ((_%__kont7885778858%_ - (lambda (_%L47948%_ _%L47950%_) + _%__stx7890078901%_)))) + (let ((_%__kont7890378904%_ + (lambda (_%L47984%_ _%L47986%_) (not (gx#free-identifier=? - _%L47950%_ + _%L47986%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7885978860%_ - (lambda (_%L47888%_ _%L47890%_ _%L47891%_) '#t)) - (_%__kont7886178862%_ (lambda (_%L47825%_) '#t))) - (let* ((_%__match7890778908%_ - (lambda (_%e4777447848%_ - _%hd4777547852%_ - _%tl4777647855%_ - _%e4777747858%_ - _%hd4777847862%_ - _%tl4777947865%_ - _%e4778047868%_ - _%hd4778147872%_ - _%tl4778247875%_ - _%e4778347878%_ - _%hd4778447882%_ - _%tl4778547885%_) - (let ((_%L47888%_ _%hd4778447882%_) - (_%L47890%_ _%hd4778147872%_) - (_%L47891%_ _%hd4777847862%_)) - (if (and (gx#identifier? _%L47890%_) + (_%__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%_) (or (gx#free-identifier=? - _%L47890%_ + _%L47926%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47890%_ + _%L47926%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47890%_ + _%L47926%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47890%_ + _%L47926%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7885978860%_ - _%L47888%_ - _%L47890%_ - _%L47891%_) + (_%__kont7890578906%_ + _%L47924%_ + _%L47926%_ + _%L47927%_) (let () (declare (not safe)) - (_%g4776147798%_)))))) - (_%__match7887778878%_ - (lambda (_%e4776547928%_ - _%hd4776647932%_ - _%tl4776747935%_ - _%e4776847938%_ - _%hd4776947942%_ - _%tl4777047945%_) - (let ((_%L47948%_ _%hd4776947942%_) - (_%L47950%_ _%hd4776647932%_)) - (if (and (gx#identifier? _%L47950%_) + (_%g4779747834%_)))))) + (_%__match7892378924%_ + (lambda (_%e4780147964%_ + _%hd4780247968%_ + _%tl4780347971%_ + _%e4780447974%_ + _%hd4780547978%_ + _%tl4780647981%_) + (let ((_%L47984%_ _%hd4780547978%_) + (_%L47986%_ _%hd4780247968%_)) + (if (and (gx#identifier? _%L47986%_) (or (gx#free-identifier=? - _%L47950%_ + _%L47986%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47950%_ + _%L47986%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47950%_ + _%L47986%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47950%_ + _%L47986%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7885778858%_ _%L47948%_ _%L47950%_) - (if (gx#identifier? _%hd4776647932%_) + (_%__kont7890378904%_ _%L47984%_ _%L47986%_) + (if (gx#identifier? _%hd4780247968%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84024_| - _%hd4776647932%_) - (_%__kont7886178862%_ - _%hd4776947942%_) + |gerbil/core/contract~Using[1]#_g84070_| + _%hd4780247968%_) + (_%__kont7890778908%_ + _%hd4780547978%_) (let () (declare (not safe)) - (_%g4776147798%_))) + (_%g4779747834%_))) (let () (declare (not safe)) - (_%g4776147798%_)))))))) - (if (gx#stx-pair? _%__stx7885478855%_) - (let ((_%e4776547928%_ - (gx#syntax-e _%__stx7885478855%_))) - (let ((_%tl4776747935%_ + (_%g4779747834%_)))))))) + (if (gx#stx-pair? _%__stx7890078901%_) + (let ((_%e4780147964%_ + (gx#syntax-e _%__stx7890078901%_))) + (let ((_%tl4780347971%_ (let () (declare (not safe)) - (##cdr _%e4776547928%_))) - (_%hd4776647932%_ + (##cdr _%e4780147964%_))) + (_%hd4780247968%_ (let () (declare (not safe)) - (##car _%e4776547928%_)))) - (if (gx#stx-pair? _%tl4776747935%_) - (let ((_%e4776847938%_ - (gx#syntax-e _%tl4776747935%_))) - (let ((_%tl4777047945%_ + (##car _%e4780147964%_)))) + (if (gx#stx-pair? _%tl4780347971%_) + (let ((_%e4780447974%_ + (gx#syntax-e _%tl4780347971%_))) + (let ((_%tl4780647981%_ (let () (declare (not safe)) - (##cdr _%e4776847938%_))) - (_%hd4776947942%_ + (##cdr _%e4780447974%_))) + (_%hd4780547978%_ (let () (declare (not safe)) - (##car _%e4776847938%_)))) - (if (gx#stx-null? _%tl4777047945%_) - (_%__match7887778878%_ - _%e4776547928%_ - _%hd4776647932%_ - _%tl4776747935%_ - _%e4776847938%_ - _%hd4776947942%_ - _%tl4777047945%_) - (if (gx#identifier? _%hd4776647932%_) + (##car _%e4780447974%_)))) + (if (gx#stx-null? _%tl4780647981%_) + (_%__match7892378924%_ + _%e4780147964%_ + _%hd4780247968%_ + _%tl4780347971%_ + _%e4780447974%_ + _%hd4780547978%_ + _%tl4780647981%_) + (if (gx#identifier? _%hd4780247968%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84024_| - _%hd4776647932%_) + |gerbil/core/contract~Using[1]#_g84070_| + _%hd4780247968%_) (if (gx#stx-pair? - _%tl4777047945%_) - (let ((_%e4778047868%_ + _%tl4780647981%_) + (let ((_%e4781647904%_ (gx#syntax-e - _%tl4777047945%_))) - (let ((_%tl4778247875%_ + _%tl4780647981%_))) + (let ((_%tl4781847911%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4778047868%_))) - (_%hd4778147872%_ - (let () (declare (not safe)) (##car _%e4778047868%_)))) - (if (gx#stx-pair? _%tl4778247875%_) - (let ((_%e4778347878%_ (gx#syntax-e _%tl4778247875%_))) - (let ((_%tl4778547885%_ + (##cdr _%e4781647904%_))) + (_%hd4781747908%_ + (let () (declare (not safe)) (##car _%e4781647904%_)))) + (if (gx#stx-pair? _%tl4781847911%_) + (let ((_%e4781947914%_ (gx#syntax-e _%tl4781847911%_))) + (let ((_%tl4782147921%_ (let () (declare (not safe)) - (##cdr _%e4778347878%_))) - (_%hd4778447882%_ + (##cdr _%e4781947914%_))) + (_%hd4782047918%_ (let () (declare (not safe)) - (##car _%e4778347878%_)))) - (if (gx#stx-null? _%tl4778547885%_) - (_%__match7890778908%_ - _%e4776547928%_ - _%hd4776647932%_ - _%tl4776747935%_ - _%e4776847938%_ - _%hd4776947942%_ - _%tl4777047945%_ - _%e4778047868%_ - _%hd4778147872%_ - _%tl4778247875%_ - _%e4778347878%_ - _%hd4778447882%_ - _%tl4778547885%_) - (let () (declare (not safe)) (_%g4776147798%_))))) - (let () (declare (not safe)) (_%g4776147798%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4776147798%_))) + (_%g4779747834%_))) (let () (declare (not safe)) - (_%g4776147798%_))) + (_%g4779747834%_))) (let () (declare (not safe)) - (_%g4776147798%_)))))) + (_%g4779747834%_)))))) (let () (declare (not safe)) - (_%g4776147798%_))))) - (let () (declare (not safe)) (_%g4776147798%_)))))) + (_%g4779747834%_))))) + (let () (declare (not safe)) (_%g4779747834%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#dotted-identifier?| - (lambda (_%id47733%_) - (if (gx#identifier? _%id47733%_) - (let* ((_%str47736%_ (symbol->string (gx#stx-e _%id47733%_))) - (_%index4773847740%_ (string-index _%str47736%_ '#\.))) - (if _%index4773847740%_ - (let ((_%index47744%_ _%index4773847740%_)) - (if (let () (declare (not safe)) (##fx> _%index47744%_ '0)) + (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)) (not (ormap string-empty? - (string-split _%str47736%_ '#\.))) + (string-split _%str47772%_ '#\.))) '#f)) '#f)) '#f))) (define |gerbil/core/contract~Using[1]#split-dotted-identifier| - (lambda (_%stx47726%_ _%id47728%_) - (let ((_%parts47730%_ - (string-split (symbol->string (gx#stx-e _%id47728%_)) '#\.))) - (if (find string-empty? _%parts47730%_) + (lambda (_%stx47762%_ _%id47764%_) + (let ((_%parts47766%_ + (string-split (symbol->string (gx#stx-e _%id47764%_)) '#\.))) + (if (find string-empty? _%parts47766%_) (gx#raise-syntax-error '#f '"bad dotted identifier" - _%stx47726%_ - _%id47728%_) - (cons (gx#stx-identifier _%id47728%_ (car _%parts47730%_)) - (map string->symbol (cdr _%parts47730%_))))))) + _%stx47762%_ + _%id47764%_) + (cons (gx#stx-identifier _%id47764%_ (car _%parts47766%_)) + (map string->symbol (cdr _%parts47766%_))))))) (define |gerbil/core/contract~Using[1]#get-slot-accessor| - (lambda (_%stx47707%_ _%klass-or-id47709%_ _%slot47710%_) - (let* ((_%klass47712%_ - (if (gx#identifier? _%klass-or-id47709%_) + (lambda (_%stx47743%_ _%klass-or-id47745%_ _%slot47746%_) + (let* ((_%klass47748%_ + (if (gx#identifier? _%klass-or-id47745%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47707%_ - _%klass-or-id47709%_)) - _%klass-or-id47709%_)) - (_%accessors47715%_ - (let ((__obj83861 _%klass47712%_)) + _%stx47743%_ + _%klass-or-id47745%_)) + _%klass-or-id47745%_)) + (_%accessors47751%_ + (let ((__obj83907 _%klass47748%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83861 + __obj83907 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83861 '17 '#f '#f)) + (##unchecked-structure-ref __obj83907 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83861 + __obj83907 'unchecked-accessors)))) - (_%$e47720%_ (agetq _%slot47710%_ _%accessors47715%_))) - (if _%$e47720%_ - _%$e47720%_ + (_%$e47756%_ (agetq _%slot47746%_ _%accessors47751%_))) + (if _%$e47756%_ + _%$e47756%_ (gx#raise-syntax-error '#f '"no accessor for slot" - _%stx47707%_ - _%klass47712%_ - _%slot47710%_))))) + _%stx47743%_ + _%klass47748%_ + _%slot47746%_))))) (define |gerbil/core/contract~Using[1]#get-slot-mutator| - (lambda (_%stx47687%_ - _%klass-or-id47689%_ - _%slot47690%_ - _%checked?47691%_) - (let* ((_%klass47693%_ - (if (gx#identifier? _%klass-or-id47689%_) + (lambda (_%stx47723%_ + _%klass-or-id47725%_ + _%slot47726%_ + _%checked?47727%_) + (let* ((_%klass47729%_ + (if (gx#identifier? _%klass-or-id47725%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47687%_ - _%klass-or-id47689%_)) - _%klass-or-id47689%_)) - (_%mutators47696%_ - (if _%checked?47691%_ - (let ((__obj83862 _%klass47693%_)) + _%stx47723%_ + _%klass-or-id47725%_)) + _%klass-or-id47725%_)) + (_%mutators47732%_ + (if _%checked?47727%_ + (let ((__obj83908 _%klass47729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83862 + __obj83908 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83862 '16 '#f '#f)) + (##unchecked-structure-ref __obj83908 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83862 + __obj83908 'mutators))) - (let ((__obj83863 _%klass47693%_)) + (let ((__obj83909 _%klass47729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83863 + __obj83909 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83863 '18 '#f '#f)) + (##unchecked-structure-ref __obj83909 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83863 + __obj83909 'unchecked-mutators))))) - (_%$e47701%_ (agetq _%slot47690%_ _%mutators47696%_))) - (if _%$e47701%_ - _%$e47701%_ + (_%$e47737%_ (agetq _%slot47726%_ _%mutators47732%_))) + (if _%$e47737%_ + _%$e47737%_ (gx#raise-syntax-error '#f '"no mutator for slot" - _%stx47687%_ - _%klass47693%_ - _%slot47690%_))))) + _%stx47723%_ + _%klass47729%_ + _%slot47726%_))))) (define |gerbil/core/contract~Using[:0:]#with-class| - (lambda (_%stx48262%_) - (letrec ((_%expand-body48265%_ - (lambda (_%klass49173%_ - _%var49175%_ - _%Type49176%_ - _%body49177%_ - _%checked?49178%_) - (let* ((_%g4918049224%_ - (lambda (_%g4918149220%_) + (lambda (_%stx48298%_) + (letrec ((_%expand-body48301%_ + (lambda (_%klass49209%_ + _%var49211%_ + _%Type49212%_ + _%body49213%_ + _%checked?49214%_) + (let* ((_%g4921649260%_ + (lambda (_%g4921749256%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4918149220%_))) - (_%g4917949381%_ - (lambda (_%g4918149228%_) - (if (gx#stx-pair? _%g4918149228%_) - (let ((_%e4918949231%_ - (gx#syntax-e _%g4918149228%_))) - (let ((_%hd4919049235%_ + _%g4921749256%_))) + (_%g4921549417%_ + (lambda (_%g4921749264%_) + (if (gx#stx-pair? _%g4921749264%_) + (let ((_%e4922549267%_ + (gx#syntax-e _%g4921749264%_))) + (let ((_%hd4922649271%_ (let () (declare (not safe)) - (##car _%e4918949231%_))) - (_%tl4919149238%_ + (##car _%e4922549267%_))) + (_%tl4922749274%_ (let () (declare (not safe)) - (##cdr _%e4918949231%_)))) - (if (gx#stx-pair? _%tl4919149238%_) - (let ((_%e4919249241%_ + (##cdr _%e4922549267%_)))) + (if (gx#stx-pair? _%tl4922749274%_) + (let ((_%e4922849277%_ (gx#syntax-e - _%tl4919149238%_))) - (let ((_%hd4919349245%_ + _%tl4922749274%_))) + (let ((_%hd4922949281%_ (let () (declare (not safe)) - (##car _%e4919249241%_))) - (_%tl4919449248%_ + (##car _%e4922849277%_))) + (_%tl4923049284%_ (let () (declare (not safe)) - (##cdr _%e4919249241%_)))) + (##cdr _%e4922849277%_)))) (if (gx#stx-pair? - _%tl4919449248%_) - (let ((_%e4919549251%_ + _%tl4923049284%_) + (let ((_%e4923149287%_ (gx#syntax-e - _%tl4919449248%_))) - (let ((_%hd4919649255%_ + _%tl4923049284%_))) + (let ((_%hd4923249291%_ (let () (declare (not safe)) - (##car _%e4919549251%_))) - (_%tl4919749258%_ + (##car _%e4923149287%_))) + (_%tl4923349294%_ (let () (declare (not safe)) - (##cdr _%e4919549251%_)))) + (##cdr _%e4923149287%_)))) (if (gx#stx-pair? - _%tl4919749258%_) - (let ((_%e4919849261%_ + _%tl4923349294%_) + (let ((_%e4923449297%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4919749258%_))) - (let ((_%hd4919949265%_ + (gx#syntax-e _%tl4923349294%_))) + (let ((_%hd4923549301%_ (let () (declare (not safe)) - (##car _%e4919849261%_))) - (_%tl4920049268%_ + (##car _%e4923449297%_))) + (_%tl4923649304%_ (let () (declare (not safe)) - (##cdr _%e4919849261%_)))) - (if (gx#stx-pair? _%tl4920049268%_) - (let ((_%e4920149271%_ - (gx#syntax-e _%tl4920049268%_))) - (let ((_%hd4920249275%_ + (##cdr _%e4923449297%_)))) + (if (gx#stx-pair? _%tl4923649304%_) + (let ((_%e4923749307%_ + (gx#syntax-e _%tl4923649304%_))) + (let ((_%hd4923849311%_ (let () (declare (not safe)) - (##car _%e4920149271%_))) - (_%tl4920349278%_ + (##car _%e4923749307%_))) + (_%tl4923949314%_ (let () (declare (not safe)) - (##cdr _%e4920149271%_)))) - (if (gx#stx-pair? _%tl4920349278%_) - (let ((_%e4920449281%_ - (gx#syntax-e _%tl4920349278%_))) - (let ((_%hd4920549285%_ + (##cdr _%e4923749307%_)))) + (if (gx#stx-pair? _%tl4923949314%_) + (let ((_%e4924049317%_ + (gx#syntax-e _%tl4923949314%_))) + (let ((_%hd4924149321%_ (let () (declare (not safe)) - (##car _%e4920449281%_))) - (_%tl4920649288%_ + (##car _%e4924049317%_))) + (_%tl4924249324%_ (let () (declare (not safe)) - (##cdr _%e4920449281%_)))) - (if (gx#stx-pair? _%tl4920649288%_) - (let ((_%e4920749291%_ + (##cdr _%e4924049317%_)))) + (if (gx#stx-pair? _%tl4924249324%_) + (let ((_%e4924349327%_ (gx#syntax-e - _%tl4920649288%_))) - (let ((_%hd4920849295%_ + _%tl4924249324%_))) + (let ((_%hd4924449331%_ (let () (declare (not safe)) - (##car _%e4920749291%_))) - (_%tl4920949298%_ + (##car _%e4924349327%_))) + (_%tl4924549334%_ (let () (declare (not safe)) - (##cdr _%e4920749291%_)))) + (##cdr _%e4924349327%_)))) (if (gx#stx-pair/null? - _%hd4920849295%_) - (let ((_g84025_ + _%hd4924449331%_) + (let ((_g84071_ (gx#syntax-split-splice - _%hd4920849295%_ + _%hd4924449331%_ '0))) (begin - (let ((_g84026_ + (let ((_g84072_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84025_) - (##vector-length _g84025_) + (if (##values? _g84071_) + (##vector-length _g84071_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84026_ 2))) - (error "Context expects 2 values" _g84026_))) - (let ((_%target4921049301%_ - (let () (declare (not safe)) (##vector-ref _g84025_ 0))) - (_%tl4921249304%_ - (let () (declare (not safe)) (##vector-ref _g84025_ 1)))) - (if (gx#stx-null? _%tl4921249304%_) - (letrec ((_%loop4921349307%_ - (lambda (_%hd4921149311%_ _%body4921749314%_) - (if (gx#stx-pair? _%hd4921149311%_) - (let ((_%e4921449317%_ - (gx#syntax-e _%hd4921149311%_))) - (let ((_%lp-hd4921549321%_ + (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%_ (let () (declare (not safe)) - (##car _%e4921449317%_))) - (_%lp-tl4921649324%_ + (##car _%e4925049353%_))) + (_%lp-tl4925249360%_ (let () (declare (not safe)) - (##cdr _%e4921449317%_)))) - (_%loop4921349307%_ - _%lp-tl4921649324%_ - (cons _%lp-hd4921549321%_ - _%body4921749314%_)))) - (let ((_%body4921849327%_ - (reverse _%body4921749314%_))) - (if (gx#stx-null? _%tl4920949298%_) - ((lambda (_%L49331%_ - _%L49333%_ - _%L49334%_ - _%L49335%_ - _%L49336%_ - _%L49337%_ - _%L49338%_) + (##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%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L49336%_ + (cons (cons _%L49372%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49337%_ '())) - (cons _%L49336%_ '()))) + (cons _%L49373%_ '())) + (cons _%L49372%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L49338%_ + (cons (cons (cons _%L49374%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -5048,1101 +5048,1101 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L49336%_ '())) + (cons _%L49372%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49335%_ '())) - (cons _%L49334%_ + (cons _%L49371%_ '())) + (cons _%L49370%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49333%_ '())) + (cons _%L49369%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4937249375%_ + (foldr (lambda (_%g4940849411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4937349378%_) - (cons _%g4937249375%_ _%g4937349378%_)) + _%g4940949414%_) + (cons _%g4940849411%_ _%g4940949414%_)) '() - _%L49331%_))) + _%L49367%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body4921849327%_ - _%hd4920549285%_ - _%hd4920249275%_ - _%hd4919949265%_ - _%hd4919649255%_ - _%hd4919349245%_ - _%hd4919049235%_) - (_%g4918049224%_ - _%g4918149228%_))))))) - (_%loop4921349307%_ _%target4921049301%_ '())) - (_%g4918049224%_ _%g4918149228%_))))) + _%body4925449363%_ + _%hd4924149321%_ + _%hd4923849311%_ + _%hd4923549301%_ + _%hd4923249291%_ + _%hd4922949281%_ + _%hd4922649271%_) + (_%g4921649260%_ + _%g4921749264%_))))))) + (_%loop4924949343%_ _%target4924649337%_ '())) + (_%g4921649260%_ _%g4921749264%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4918049224%_ - _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) + (_%g4921649260%_ + _%g4921749264%_)))) + (_%g4921649260%_ _%g4921749264%_)))) + (_%g4921649260%_ _%g4921749264%_)))) + (_%g4921649260%_ _%g4921749264%_)))) + (_%g4921649260%_ _%g4921749264%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4918049224%_ - _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_))))) - (_%g4917949381%_ + (_%g4921649260%_ + _%g4921749264%_)))) + (_%g4921649260%_ _%g4921749264%_)))) + (_%g4921649260%_ _%g4921749264%_))))) + (_%g4921549417%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj83864 _%klass49173%_)) + (let ((__obj83910 _%klass49209%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83864 + __obj83910 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83864 + __obj83910 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83864 + __obj83910 'type-descriptor))) - _%var49175%_ - _%klass49173%_ - _%checked?49178%_ + _%var49211%_ + _%klass49209%_ + _%checked?49214%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body49177%_))))) - (_%expand48267%_ - (lambda (_%var49065%_ - _%Type49067%_ - _%body49068%_ - _%checked?49069%_ - _%checked-mutators?49070%_ - _%maybe?49071%_) - (let* ((_%klass49073%_ - (gx#syntax-local-value _%Type49067%_ false)) - (_%expr-body49080%_ - (_%expand-body48265%_ - _%klass49073%_ - _%var49065%_ - _%Type49067%_ - _%body49068%_ - (let ((_%$e49076%_ _%checked?49069%_)) - (if _%$e49076%_ - _%$e49076%_ - _%checked-mutators?49070%_))))) - (if _%checked?49069%_ - (let* ((_%g4908549104%_ - (lambda (_%g4908649100%_) + _%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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4908649100%_))) - (_%g4908449166%_ - (lambda (_%g4908649108%_) - (if (gx#stx-pair? _%g4908649108%_) - (let ((_%e4909049111%_ - (gx#syntax-e _%g4908649108%_))) - (let ((_%hd4909149115%_ + _%g4912249136%_))) + (_%g4912049202%_ + (lambda (_%g4912249144%_) + (if (gx#stx-pair? _%g4912249144%_) + (let ((_%e4912649147%_ + (gx#syntax-e _%g4912249144%_))) + (let ((_%hd4912749151%_ (let () (declare (not safe)) - (##car _%e4909049111%_))) - (_%tl4909249118%_ + (##car _%e4912649147%_))) + (_%tl4912849154%_ (let () (declare (not safe)) - (##cdr _%e4909049111%_)))) - (if (gx#stx-pair? _%tl4909249118%_) - (let ((_%e4909349121%_ + (##cdr _%e4912649147%_)))) + (if (gx#stx-pair? _%tl4912849154%_) + (let ((_%e4912949157%_ (gx#syntax-e - _%tl4909249118%_))) - (let ((_%hd4909449125%_ + _%tl4912849154%_))) + (let ((_%hd4913049161%_ (let () (declare (not safe)) - (##car _%e4909349121%_))) - (_%tl4909549128%_ + (##car _%e4912949157%_))) + (_%tl4913149164%_ (let () (declare (not safe)) - (##cdr _%e4909349121%_)))) + (##cdr _%e4912949157%_)))) (if (gx#stx-pair? - _%tl4909549128%_) - (let ((_%e4909649131%_ + _%tl4913149164%_) + (let ((_%e4913249167%_ (gx#syntax-e - _%tl4909549128%_))) - (let ((_%hd4909749135%_ + _%tl4913149164%_))) + (let ((_%hd4913349171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4909649131%_))) - (_%tl4909849138%_ + (let () (declare (not safe)) (##car _%e4913249167%_))) + (_%tl4913449174%_ (let () (declare (not safe)) - (##cdr _%e4909649131%_)))) - (if (gx#stx-null? _%tl4909849138%_) - ((lambda (_%L49141%_ _%L49143%_ _%L49144%_) + (##cdr _%e4913249167%_)))) + (if (gx#stx-null? _%tl4913449174%_) + ((lambda (_%L49177%_ _%L49179%_ _%L49180%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L49143%_ + (cons (cons _%L49179%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L49144%_ '()))) - (cons _%L49141%_ '())))) - _%hd4909749135%_ - _%hd4909449125%_ - _%hd4909149115%_) - (_%g4908549104%_ _%g4908649108%_)))) - (_%g4908549104%_ _%g4908649108%_)))) + (cons _%L49180%_ '()))) + (cons _%L49177%_ '())))) + _%hd4913349171%_ + _%hd4913049161%_ + _%hd4912749151%_) + (_%g4912149140%_ _%g4912249144%_)))) + (_%g4912149140%_ _%g4912249144%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4908549104%_ - _%g4908649108%_)))) - (_%g4908549104%_ _%g4908649108%_))))) - (_%g4908449166%_ - (list (let ((_%instance?49170%_ - (let ((__obj83865 _%klass49073%_)) + (_%g4912149140%_ + _%g4912249144%_)))) + (_%g4912149140%_ _%g4912249144%_))))) + (_%g4912049202%_ + (list (let ((_%instance?49206%_ + (let ((__obj83911 _%klass49109%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83865 + __obj83911 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83865 + __obj83911 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83865 + __obj83911 'predicate))))) - (if _%maybe?49071%_ + (if _%maybe?49107%_ (cons '? (cons (cons 'or (cons 'not ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%instance?49170%_ '()))) + (cons _%instance?49206%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _%instance?49170%_)) - _%var49065%_ - _%expr-body49080%_))) - _%expr-body49080%_))))) - (let* ((_%__stx7892878929%_ _%stx48262%_) - (_%g4827348416%_ + _%instance?49206%_)) + _%var49101%_ + _%expr-body49116%_))) + _%expr-body49116%_))))) + (let* ((_%__stx7897478975%_ _%stx48298%_) + (_%g4830948452%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7892878929%_)))) - (let ((_%__kont7893178932%_ - (lambda (_%L48993%_ _%L48995%_ _%L48996%_ _%L48997%_) - (let* ((_%g4902249030%_ - (lambda (_%g4902349026%_) + _%__stx7897478975%_)))) + (let ((_%__kont7897778978%_ + (lambda (_%L49029%_ _%L49031%_ _%L49032%_ _%L49033%_) + (let* ((_%g4905849066%_ + (lambda (_%g4905949062%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4902349026%_))) - (_%g4902149057%_ - (lambda (_%g4902349034%_) - ((lambda (_%L49037%_) + _%g4905949062%_))) + (_%g4905749093%_ + (lambda (_%g4905949070%_) + ((lambda (_%L49073%_) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L48997%_ - (cons _%L48996%_ - (cons _%L49037%_ + (cons (cons _%L49033%_ + (cons _%L49032%_ + (cons _%L49073%_ '()))) - (foldr (lambda (_%g4904849051%_ - _%g4904949054%_) - (cons _%g4904849051%_ - _%g4904949054%_)) + (foldr (lambda (_%g4908449087%_ + _%g4908549090%_) + (cons _%g4908449087%_ + _%g4908549090%_)) '() - _%L48993%_)))) - _%g4902349034%_)))) - (_%g4902149057%_ - (let ((__obj83866 (gx#syntax-local-value _%L48995%_))) + _%L49029%_)))) + _%g4905949070%_)))) + (_%g4905749093%_ + (let ((__obj83912 (gx#syntax-local-value _%L49031%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83866 + __obj83912 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83866 + __obj83912 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83866 + __obj83912 'identifier))))))) - (_%__kont7893578936%_ - (lambda (_%L48871%_ _%L48873%_ _%L48874%_) - (_%expand48267%_ - _%L48874%_ - _%L48873%_ - (foldr (lambda (_%g4889748900%_ _%g4889848903%_) - (cons _%g4889748900%_ _%g4889848903%_)) + (_%__kont7898178982%_ + (lambda (_%L48907%_ _%L48909%_ _%L48910%_) + (_%expand48303%_ + _%L48910%_ + _%L48909%_ + (foldr (lambda (_%g4893348936%_ _%g4893448939%_) + (cons _%g4893348936%_ _%g4893448939%_)) '() - _%L48871%_) + _%L48907%_) '#t '#t '#f))) - (_%__kont7893978940%_ - (lambda (_%L48749%_ _%L48751%_ _%L48752%_) - (_%expand48267%_ - _%L48752%_ - _%L48751%_ - (foldr (lambda (_%g4877548778%_ _%g4877648781%_) - (cons _%g4877548778%_ _%g4877648781%_)) + (_%__kont7898578986%_ + (lambda (_%L48785%_ _%L48787%_ _%L48788%_) + (_%expand48303%_ + _%L48788%_ + _%L48787%_ + (foldr (lambda (_%g4881148814%_ _%g4881248817%_) + (cons _%g4881148814%_ _%g4881248817%_)) '() - _%L48749%_) + _%L48785%_) '#t '#t '#t))) - (_%__kont7894378944%_ - (lambda (_%L48627%_ _%L48629%_ _%L48630%_) - (_%expand48267%_ - _%L48630%_ - _%L48629%_ - (foldr (lambda (_%g4865348656%_ _%g4865448659%_) - (cons _%g4865348656%_ _%g4865448659%_)) + (_%__kont7898978990%_ + (lambda (_%L48663%_ _%L48665%_ _%L48666%_) + (_%expand48303%_ + _%L48666%_ + _%L48665%_ + (foldr (lambda (_%g4868948692%_ _%g4869048695%_) + (cons _%g4868948692%_ _%g4869048695%_)) '() - _%L48627%_) + _%L48663%_) '#f '#f '#f))) - (_%__kont7894778948%_ - (lambda (_%L48503%_ _%L48505%_ _%L48506%_) - (_%expand48267%_ - _%L48506%_ - _%L48505%_ - (foldr (lambda (_%g4853148534%_ _%g4853248537%_) - (cons _%g4853148534%_ _%g4853248537%_)) + (_%__kont7899378994%_ + (lambda (_%L48539%_ _%L48541%_ _%L48542%_) + (_%expand48303%_ + _%L48542%_ + _%L48541%_ + (foldr (lambda (_%g4856748570%_ _%g4856848573%_) + (cons _%g4856748570%_ _%g4856848573%_)) '() - _%L48503%_) + _%L48539%_) '#f '#t '#f)))) - (let* ((_%__match7916779168%_ - (lambda (_%e4838748423%_ - _%hd4838848427%_ - _%tl4838948430%_ - _%e4839048433%_ - _%hd4839148437%_ - _%tl4839248440%_ - _%e4839348443%_ - _%hd4839448447%_ - _%tl4839548450%_ - _%e4839648453%_ - _%hd4839748457%_ - _%tl4839848460%_ - _%e4839948463%_ - _%hd4840048467%_ - _%tl4840148470%_ - _%__splice7894978950%_ - _%target4840248473%_ - _%tl4840448476%_) - (letrec ((_%loop4840548479%_ - (lambda (_%hd4840348483%_ _%body4840948486%_) - (if (gx#stx-pair? _%hd4840348483%_) - (let ((_%e4840648489%_ - (gx#syntax-e _%hd4840348483%_))) - (let ((_%lp-tl4840848496%_ + (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 () (declare (not safe)) - (##cdr _%e4840648489%_))) - (_%lp-hd4840748493%_ + (##cdr _%e4844248525%_))) + (_%lp-hd4844348529%_ (let () (declare (not safe)) - (##car _%e4840648489%_)))) - (_%loop4840548479%_ - _%lp-tl4840848496%_ - (cons _%lp-hd4840748493%_ - _%body4840948486%_)))) - (let ((_%body4841048499%_ - (reverse _%body4840948486%_))) - (let ((_%L48503%_ _%body4841048499%_) - (_%L48505%_ _%hd4840048467%_) - (_%L48506%_ _%hd4839448447%_)) + (##car _%e4844248525%_)))) + (_%loop4844148515%_ + _%lp-tl4844448532%_ + (cons _%lp-hd4844348529%_ + _%body4844548522%_)))) + (let ((_%body4844648535%_ + (reverse _%body4844548522%_))) + (let ((_%L48539%_ _%body4844648535%_) + (_%L48541%_ _%hd4843648503%_) + (_%L48542%_ _%hd4843048483%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48505%_)) - (_%__kont7894778948%_ - _%L48503%_ - _%L48505%_ - _%L48506%_) + _%L48541%_)) + (_%__kont7899378994%_ + _%L48539%_ + _%L48541%_ + _%L48542%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4840548479%_ _%target4840248473%_ '())))) - (_%__match7912379124%_ - (lambda (_%e4836048547%_ - _%hd4836148551%_ - _%tl4836248554%_ - _%e4836348557%_ - _%hd4836448561%_ - _%tl4836548564%_ - _%e4836648567%_ - _%hd4836748571%_ - _%tl4836848574%_ - _%e4836948577%_ - _%hd4837048581%_ - _%tl4837148584%_ - _%e4837248587%_ - _%hd4837348591%_ - _%tl4837448594%_ - _%__splice7894578946%_ - _%target4837548597%_ - _%tl4837748600%_) - (letrec ((_%loop4837848603%_ - (lambda (_%hd4837648607%_ _%body4838248610%_) - (if (gx#stx-pair? _%hd4837648607%_) - (let ((_%e4837948613%_ - (gx#syntax-e _%hd4837648607%_))) - (let ((_%lp-tl4838148620%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4837948613%_))) - (_%lp-hd4838048617%_ + (##cdr _%e4841548649%_))) + (_%lp-hd4841648653%_ (let () (declare (not safe)) - (##car _%e4837948613%_)))) - (_%loop4837848603%_ - _%lp-tl4838148620%_ - (cons _%lp-hd4838048617%_ - _%body4838248610%_)))) - (let ((_%body4838348623%_ - (reverse _%body4838248610%_))) - (let ((_%L48627%_ _%body4838348623%_) - (_%L48629%_ _%hd4837348591%_) - (_%L48630%_ _%hd4836748571%_)) + (##car _%e4841548649%_)))) + (_%loop4841448639%_ + _%lp-tl4841748656%_ + (cons _%lp-hd4841648653%_ + _%body4841848646%_)))) + (let ((_%body4841948659%_ + (reverse _%body4841848646%_))) + (let ((_%L48663%_ _%body4841948659%_) + (_%L48665%_ _%hd4840948627%_) + (_%L48666%_ _%hd4840348607%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48629%_)) - (_%__kont7894378944%_ - _%L48627%_ - _%L48629%_ - _%L48630%_) + _%L48665%_)) + (_%__kont7898978990%_ + _%L48663%_ + _%L48665%_ + _%L48666%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4837848603%_ _%target4837548597%_ '())))) - (_%__match7907979080%_ - (lambda (_%e4833348669%_ - _%hd4833448673%_ - _%tl4833548676%_ - _%e4833648679%_ - _%hd4833748683%_ - _%tl4833848686%_ - _%e4833948689%_ - _%hd4834048693%_ - _%tl4834148696%_ - _%e4834248699%_ - _%hd4834348703%_ - _%tl4834448706%_ - _%e4834548709%_ - _%hd4834648713%_ - _%tl4834748716%_ - _%__splice7894178942%_ - _%target4834848719%_ - _%tl4835048722%_) - (letrec ((_%loop4835148725%_ - (lambda (_%hd4834948729%_ _%body4835548732%_) - (if (gx#stx-pair? _%hd4834948729%_) - (let ((_%e4835248735%_ - (gx#syntax-e _%hd4834948729%_))) - (let ((_%lp-tl4835448742%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4835248735%_))) - (_%lp-hd4835348739%_ + (##cdr _%e4838848771%_))) + (_%lp-hd4838948775%_ (let () (declare (not safe)) - (##car _%e4835248735%_)))) - (_%loop4835148725%_ - _%lp-tl4835448742%_ - (cons _%lp-hd4835348739%_ - _%body4835548732%_)))) - (let ((_%body4835648745%_ - (reverse _%body4835548732%_))) - (let ((_%L48749%_ _%body4835648745%_) - (_%L48751%_ _%hd4834648713%_) - (_%L48752%_ _%hd4834048693%_)) + (##car _%e4838848771%_)))) + (_%loop4838748761%_ + _%lp-tl4839048778%_ + (cons _%lp-hd4838948775%_ + _%body4839148768%_)))) + (let ((_%body4839248781%_ + (reverse _%body4839148768%_))) + (let ((_%L48785%_ _%body4839248781%_) + (_%L48787%_ _%hd4838248749%_) + (_%L48788%_ _%hd4837648729%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48751%_)) - (_%__kont7893978940%_ - _%L48749%_ - _%L48751%_ - _%L48752%_) + _%L48787%_)) + (_%__kont7898578986%_ + _%L48785%_ + _%L48787%_ + _%L48788%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4835148725%_ _%target4834848719%_ '())))) - (_%__match7903579036%_ - (lambda (_%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4831848831%_ - _%hd4831948835%_ - _%tl4832048838%_ - _%__splice7893778938%_ - _%target4832148841%_ - _%tl4832348844%_) - (letrec ((_%loop4832448847%_ - (lambda (_%hd4832248851%_ _%body4832848854%_) - (if (gx#stx-pair? _%hd4832248851%_) - (let ((_%e4832548857%_ - (gx#syntax-e _%hd4832248851%_))) - (let ((_%lp-tl4832748864%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4832548857%_))) - (_%lp-hd4832648861%_ + (##cdr _%e4836148893%_))) + (_%lp-hd4836248897%_ (let () (declare (not safe)) - (##car _%e4832548857%_)))) - (_%loop4832448847%_ - _%lp-tl4832748864%_ - (cons _%lp-hd4832648861%_ - _%body4832848854%_)))) - (let ((_%body4832948867%_ - (reverse _%body4832848854%_))) - (let ((_%L48871%_ _%body4832948867%_) - (_%L48873%_ _%hd4831948835%_) - (_%L48874%_ _%hd4831348815%_)) + (##car _%e4836148893%_)))) + (_%loop4836048883%_ + _%lp-tl4836348900%_ + (cons _%lp-hd4836248897%_ + _%body4836448890%_)))) + (let ((_%body4836548903%_ + (reverse _%body4836448890%_))) + (let ((_%L48907%_ _%body4836548903%_) + (_%L48909%_ _%hd4835548871%_) + (_%L48910%_ _%hd4834948851%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48873%_)) - (_%__kont7893578936%_ - _%L48871%_ - _%L48873%_ - _%L48874%_) + _%L48909%_)) + (_%__kont7898178982%_ + _%L48907%_ + _%L48909%_ + _%L48910%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4832448847%_ _%target4832148841%_ '())))) - (_%__match7901579016%_ - (lambda (_%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_) - (if (gx#identifier? _%hd4831648825%_) + (_%g4830948452%_))))))))) + (_%loop4836048883%_ _%target4835748877%_ '())))) + (_%__match7906179062%_ + (lambda (_%e4834248827%_ + _%hd4834348831%_ + _%tl4834448834%_ + _%e4834548837%_ + _%hd4834648841%_ + _%tl4834748844%_ + _%e4834848847%_ + _%hd4834948851%_ + _%tl4835048854%_ + _%e4835148857%_ + _%hd4835248861%_ + _%tl4835348864%_) + (if (gx#identifier? _%hd4835248861%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84027_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4831848831%_ - (gx#syntax-e _%tl4831748828%_))) - (let ((_%tl4832048838%_ + |gerbil/core/contract~Using[1]#_g84073_| + _%hd4835248861%_) + (if (gx#stx-pair? _%tl4835348864%_) + (let ((_%e4835448867%_ + (gx#syntax-e _%tl4835348864%_))) + (let ((_%tl4835648874%_ (let () (declare (not safe)) - (##cdr _%e4831848831%_))) - (_%hd4831948835%_ + (##cdr _%e4835448867%_))) + (_%hd4835548871%_ (let () (declare (not safe)) - (##car _%e4831848831%_)))) - (if (gx#stx-null? _%tl4832048838%_) + (##car _%e4835448867%_)))) + (if (gx#stx-null? _%tl4835648874%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7893778938%_ + _%tl4834748844%_) + (let ((_%__splice7898378984%_ (gx#syntax-split-splice - _%tl4831148808%_ + _%tl4834748844%_ '0))) - (let ((_%tl4832348844%_ + (let ((_%tl4835948880%_ (let () (declare (not safe)) (##vector-ref - _%__splice7893778938%_ + _%__splice7898378984%_ '1))) - (_%target4832148841%_ + (_%target4835748877%_ (let () (declare (not safe)) (##vector-ref - _%__splice7893778938%_ + _%__splice7898378984%_ '0)))) (if (gx#stx-null? - _%tl4832348844%_) - (_%__match7903579036%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4831848831%_ - _%hd4831948835%_ - _%tl4832048838%_ - _%__splice7893778938%_ - _%target4832148841%_ - _%tl4832348844%_) + _%tl4835948880%_) + (_%__match7908179082%_ + _%e4834248827%_ + _%hd4834348831%_ + _%tl4834448834%_ + _%e4834548837%_ + _%hd4834648841%_ + _%tl4834748844%_ + _%e4834848847%_ + _%hd4834948851%_ + _%tl4835048854%_ + _%e4835148857%_ + _%hd4835248861%_ + _%tl4835348864%_ + _%e4835448867%_ + _%hd4835548871%_ + _%tl4835648874%_ + _%__splice7898378984%_ + _%target4835748877%_ + _%tl4835948880%_) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4830948452%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4830948452%_))) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4830948452%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4830948452%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84028_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4834548709%_ - (gx#syntax-e _%tl4831748828%_))) - (let ((_%tl4834748716%_ + |gerbil/core/contract~Using[1]#_g84074_| + _%hd4835248861%_) + (if (gx#stx-pair? _%tl4835348864%_) + (let ((_%e4838148745%_ + (gx#syntax-e _%tl4835348864%_))) + (let ((_%tl4838348752%_ (let () (declare (not safe)) - (##cdr _%e4834548709%_))) - (_%hd4834648713%_ + (##cdr _%e4838148745%_))) + (_%hd4838248749%_ (let () (declare (not safe)) - (##car _%e4834548709%_)))) - (if (gx#stx-null? _%tl4834748716%_) + (##car _%e4838148745%_)))) + (if (gx#stx-null? _%tl4838348752%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7894178942%_ + _%tl4834748844%_) + (let ((_%__splice7898778988%_ (gx#syntax-split-splice - _%tl4831148808%_ + _%tl4834748844%_ '0))) - (let ((_%tl4835048722%_ + (let ((_%tl4838648758%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7894178942%_ '1))) - (_%target4834848719%_ + (##vector-ref _%__splice7898778988%_ '1))) + (_%target4838448755%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894178942%_ '0)))) - (if (gx#stx-null? _%tl4835048722%_) - (_%__match7907979080%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4834548709%_ - _%hd4834648713%_ - _%tl4834748716%_ - _%__splice7894178942%_ - _%target4834848719%_ - _%tl4835048722%_) - (let () (declare (not safe)) (_%g4827348416%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4830948452%_))) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4830948452%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4830948452%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84029_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4837248587%_ + |gerbil/core/contract~Using[1]#_g84075_| + _%hd4835248861%_) + (if (gx#stx-pair? _%tl4835348864%_) + (let ((_%e4840848623%_ (gx#syntax-e - _%tl4831748828%_))) - (let ((_%tl4837448594%_ + _%tl4835348864%_))) + (let ((_%tl4841048630%_ (let () (declare (not safe)) - (##cdr _%e4837248587%_))) - (_%hd4837348591%_ + (##cdr _%e4840848623%_))) + (_%hd4840948627%_ (let () (declare (not safe)) - (##car _%e4837248587%_)))) + (##car _%e4840848623%_)))) (if (gx#stx-null? - _%tl4837448594%_) + _%tl4841048630%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7894578946%_ + _%tl4834748844%_) + (let ((_%__splice7899178992%_ (gx#syntax-split-splice - _%tl4831148808%_ + _%tl4834748844%_ '0))) - (let ((_%tl4837748600%_ + (let ((_%tl4841348636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7894578946%_ '1))) - (_%target4837548597%_ + (##vector-ref _%__splice7899178992%_ '1))) + (_%target4841148633%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894578946%_ '0)))) - (if (gx#stx-null? _%tl4837748600%_) - (_%__match7912379124%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4837248587%_ - _%hd4837348591%_ - _%tl4837448594%_ - _%__splice7894578946%_ - _%target4837548597%_ - _%tl4837748600%_) - (let () (declare (not safe)) (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4830948452%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4830948452%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84030_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4839948463%_ + |gerbil/core/contract~Using[1]#_g84076_| + _%hd4835248861%_) + (if (gx#stx-pair? _%tl4835348864%_) + (let ((_%e4843548499%_ (gx#syntax-e - _%tl4831748828%_))) - (let ((_%tl4840148470%_ + _%tl4835348864%_))) + (let ((_%tl4843748506%_ (let () (declare (not safe)) - (##cdr _%e4839948463%_))) - (_%hd4840048467%_ + (##cdr _%e4843548499%_))) + (_%hd4843648503%_ (let () (declare (not safe)) - (##car _%e4839948463%_)))) + (##car _%e4843548499%_)))) (if (gx#stx-null? - _%tl4840148470%_) + _%tl4843748506%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7894978950%_ + _%tl4834748844%_) + (let ((_%__splice7899578996%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4831148808%_ '0))) - (let ((_%tl4840448476%_ + (gx#syntax-split-splice _%tl4834748844%_ '0))) + (let ((_%tl4844048512%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894978950%_ '1))) - (_%target4840248473%_ + (##vector-ref _%__splice7899578996%_ '1))) + (_%target4843848509%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894978950%_ '0)))) - (if (gx#stx-null? _%tl4840448476%_) - (_%__match7916779168%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4839948463%_ - _%hd4840048467%_ - _%tl4840148470%_ - _%__splice7894978950%_ - _%target4840248473%_ - _%tl4840448476%_) - (let () (declare (not safe)) (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))) - (let () (declare (not safe)) (_%g4827348416%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4830948452%_))) (let () (declare (not safe)) - (_%g4827348416%_)))))) - (let () (declare (not safe)) (_%g4827348416%_))))) - (_%__match7899178992%_ - (lambda (_%e4827948913%_ - _%hd4828048917%_ - _%tl4828148920%_ - _%e4828248923%_ - _%hd4828348927%_ - _%tl4828448930%_ - _%e4828548933%_ - _%hd4828648937%_ - _%tl4828748940%_ - _%e4828848943%_ - _%hd4828948947%_ - _%tl4829048950%_ - _%e4829148953%_ - _%hd4829248957%_ - _%tl4829348960%_ - _%__splice7893378934%_ - _%target4829448963%_ - _%tl4829648966%_) - (letrec ((_%loop4829748969%_ - (lambda (_%hd4829548973%_ _%body4830148976%_) - (if (gx#stx-pair? _%hd4829548973%_) - (let ((_%e4829848979%_ - (gx#syntax-e _%hd4829548973%_))) - (let ((_%lp-tl4830048986%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4829848979%_))) - (_%lp-hd4829948983%_ + (##cdr _%e4833449015%_))) + (_%lp-hd4833549019%_ (let () (declare (not safe)) - (##car _%e4829848979%_)))) - (_%loop4829748969%_ - _%lp-tl4830048986%_ - (cons _%lp-hd4829948983%_ - _%body4830148976%_)))) - (let ((_%body4830248989%_ - (reverse _%body4830148976%_))) - (let ((_%L48993%_ _%body4830248989%_) - (_%L48995%_ _%hd4829248957%_) - (_%L48996%_ _%hd4828948947%_) - (_%L48997%_ _%hd4828648937%_)) - (if (let ((__tmp84031 + (##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 (gx#syntax-local-value - _%L48995%_ + _%L49031%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84031)) - (_%__kont7893178932%_ - _%L48993%_ - _%L48995%_ - _%L48996%_ - _%L48997%_) - (_%__match7901579016%_ - _%e4827948913%_ - _%hd4828048917%_ - _%tl4828148920%_ - _%e4828248923%_ - _%hd4828348927%_ - _%tl4828448930%_ - _%e4828548933%_ - _%hd4828648937%_ - _%tl4828748940%_ - _%e4828848943%_ - _%hd4828948947%_ - _%tl4829048950%_)))))))) - (_%loop4829748969%_ _%target4829448963%_ '()))))) - (if (gx#stx-pair? _%__stx7892878929%_) - (let ((_%e4827948913%_ (gx#syntax-e _%__stx7892878929%_))) - (let ((_%tl4828148920%_ + __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%_ (let () (declare (not safe)) - (##cdr _%e4827948913%_))) - (_%hd4828048917%_ + (##cdr _%e4831548949%_))) + (_%hd4831648953%_ (let () (declare (not safe)) - (##car _%e4827948913%_)))) - (if (gx#stx-pair? _%tl4828148920%_) - (let ((_%e4828248923%_ - (gx#syntax-e _%tl4828148920%_))) - (let ((_%tl4828448930%_ + (##car _%e4831548949%_)))) + (if (gx#stx-pair? _%tl4831748956%_) + (let ((_%e4831848959%_ + (gx#syntax-e _%tl4831748956%_))) + (let ((_%tl4832048966%_ (let () (declare (not safe)) - (##cdr _%e4828248923%_))) - (_%hd4828348927%_ + (##cdr _%e4831848959%_))) + (_%hd4831948963%_ (let () (declare (not safe)) - (##car _%e4828248923%_)))) - (if (gx#stx-pair? _%hd4828348927%_) - (let ((_%e4828548933%_ - (gx#syntax-e _%hd4828348927%_))) - (let ((_%tl4828748940%_ + (##car _%e4831848959%_)))) + (if (gx#stx-pair? _%hd4831948963%_) + (let ((_%e4832148969%_ + (gx#syntax-e _%hd4831948963%_))) + (let ((_%tl4832348976%_ (let () (declare (not safe)) - (##cdr _%e4828548933%_))) - (_%hd4828648937%_ + (##cdr _%e4832148969%_))) + (_%hd4832248973%_ (let () (declare (not safe)) - (##car _%e4828548933%_)))) - (if (gx#stx-pair? _%tl4828748940%_) - (let ((_%e4828848943%_ + (##car _%e4832148969%_)))) + (if (gx#stx-pair? _%tl4832348976%_) + (let ((_%e4832448979%_ (gx#syntax-e - _%tl4828748940%_))) - (let ((_%tl4829048950%_ + _%tl4832348976%_))) + (let ((_%tl4832648986%_ (let () (declare (not safe)) - (##cdr _%e4828848943%_))) - (_%hd4828948947%_ + (##cdr _%e4832448979%_))) + (_%hd4832548983%_ (let () (declare (not safe)) - (##car _%e4828848943%_)))) + (##car _%e4832448979%_)))) (if (gx#stx-pair? - _%tl4829048950%_) - (let ((_%e4829148953%_ + _%tl4832648986%_) + (let ((_%e4832748989%_ (gx#syntax-e - _%tl4829048950%_))) - (let ((_%tl4829348960%_ + _%tl4832648986%_))) + (let ((_%tl4832948996%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4829148953%_))) - (_%hd4829248957%_ - (let () (declare (not safe)) (##car _%e4829148953%_)))) - (if (gx#stx-null? _%tl4829348960%_) - (if (gx#stx-pair/null? _%tl4828448930%_) - (let ((_%__splice7893378934%_ - (gx#syntax-split-splice _%tl4828448930%_ '0))) - (let ((_%tl4829648966%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7893378934%_ '1))) - (_%target4829448963%_ + (##vector-ref _%__splice7897978980%_ '1))) + (_%target4833048999%_ (let () (declare (not safe)) - (##vector-ref _%__splice7893378934%_ '0)))) - (if (gx#stx-null? _%tl4829648966%_) - (_%__match7899178992%_ - _%e4827948913%_ - _%hd4828048917%_ - _%tl4828148920%_ - _%e4828248923%_ - _%hd4828348927%_ - _%tl4828448930%_ - _%e4828548933%_ - _%hd4828648937%_ - _%tl4828748940%_ - _%e4828848943%_ - _%hd4828948947%_ - _%tl4829048950%_ - _%e4829148953%_ - _%hd4829248957%_ - _%tl4829348960%_ - _%__splice7893378934%_ - _%target4829448963%_ - _%tl4829648966%_) + (##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%_) (let () (declare (not safe)) - (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))) - (let () (declare (not safe)) (_%g4827348416%_))))) + (_%g4830948452%_))))) + (let () (declare (not safe)) (_%g4830948452%_))) + (let () (declare (not safe)) (_%g4830948452%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4830948452%_))))) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4830948452%_))))) (let () (declare (not safe)) - (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))))))))) + (_%g4830948452%_))))) + (let () (declare (not safe)) (_%g4830948452%_))))) + (let () (declare (not safe)) (_%g4830948452%_))))))))) (define |gerbil/core/contract~Using[:0:]#with-interface| - (lambda (_%stx49391%_) - (letrec ((_%expand-body49394%_ - (lambda (_%var50395%_ - _%Interface50397%_ - _%body50398%_ - _%checked?50399%_) - (let* ((_%type50401%_ + (lambda (_%stx49427%_) + (letrec ((_%expand-body49430%_ + (lambda (_%var50431%_ + _%Interface50433%_ + _%body50434%_ + _%checked?50435%_) + (let* ((_%type50437%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx49391%_ - _%Interface50397%_))) - (_%g5040450448%_ - (lambda (_%g5040550444%_) + _%stx49427%_ + _%Interface50433%_))) + (_%g5044050484%_ + (lambda (_%g5044150480%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5040550444%_))) - (_%g5040350606%_ - (lambda (_%g5040550452%_) - (if (gx#stx-pair? _%g5040550452%_) - (let ((_%e5041350455%_ - (gx#syntax-e _%g5040550452%_))) - (let ((_%hd5041450459%_ + _%g5044150480%_))) + (_%g5043950642%_ + (lambda (_%g5044150488%_) + (if (gx#stx-pair? _%g5044150488%_) + (let ((_%e5044950491%_ + (gx#syntax-e _%g5044150488%_))) + (let ((_%hd5045050495%_ (let () (declare (not safe)) - (##car _%e5041350455%_))) - (_%tl5041550462%_ + (##car _%e5044950491%_))) + (_%tl5045150498%_ (let () (declare (not safe)) - (##cdr _%e5041350455%_)))) - (if (gx#stx-pair? _%tl5041550462%_) - (let ((_%e5041650465%_ + (##cdr _%e5044950491%_)))) + (if (gx#stx-pair? _%tl5045150498%_) + (let ((_%e5045250501%_ (gx#syntax-e - _%tl5041550462%_))) - (let ((_%hd5041750469%_ + _%tl5045150498%_))) + (let ((_%hd5045350505%_ (let () (declare (not safe)) - (##car _%e5041650465%_))) - (_%tl5041850472%_ + (##car _%e5045250501%_))) + (_%tl5045450508%_ (let () (declare (not safe)) - (##cdr _%e5041650465%_)))) + (##cdr _%e5045250501%_)))) (if (gx#stx-pair? - _%tl5041850472%_) - (let ((_%e5041950475%_ + _%tl5045450508%_) + (let ((_%e5045550511%_ (gx#syntax-e - _%tl5041850472%_))) - (let ((_%hd5042050479%_ + _%tl5045450508%_))) + (let ((_%hd5045650515%_ (let () (declare (not safe)) - (##car _%e5041950475%_))) - (_%tl5042150482%_ + (##car _%e5045550511%_))) + (_%tl5045750518%_ (let () (declare (not safe)) - (##cdr _%e5041950475%_)))) + (##cdr _%e5045550511%_)))) (if (gx#stx-pair? - _%tl5042150482%_) - (let ((_%e5042250485%_ + _%tl5045750518%_) + (let ((_%e5045850521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5042150482%_))) - (let ((_%hd5042350489%_ + (gx#syntax-e _%tl5045750518%_))) + (let ((_%hd5045950525%_ (let () (declare (not safe)) - (##car _%e5042250485%_))) - (_%tl5042450492%_ + (##car _%e5045850521%_))) + (_%tl5046050528%_ (let () (declare (not safe)) - (##cdr _%e5042250485%_)))) - (if (gx#stx-pair? _%tl5042450492%_) - (let ((_%e5042550495%_ - (gx#syntax-e _%tl5042450492%_))) - (let ((_%hd5042650499%_ + (##cdr _%e5045850521%_)))) + (if (gx#stx-pair? _%tl5046050528%_) + (let ((_%e5046150531%_ + (gx#syntax-e _%tl5046050528%_))) + (let ((_%hd5046250535%_ (let () (declare (not safe)) - (##car _%e5042550495%_))) - (_%tl5042750502%_ + (##car _%e5046150531%_))) + (_%tl5046350538%_ (let () (declare (not safe)) - (##cdr _%e5042550495%_)))) - (if (gx#stx-pair? _%tl5042750502%_) - (let ((_%e5042850505%_ - (gx#syntax-e _%tl5042750502%_))) - (let ((_%hd5042950509%_ + (##cdr _%e5046150531%_)))) + (if (gx#stx-pair? _%tl5046350538%_) + (let ((_%e5046450541%_ + (gx#syntax-e _%tl5046350538%_))) + (let ((_%hd5046550545%_ (let () (declare (not safe)) - (##car _%e5042850505%_))) - (_%tl5043050512%_ + (##car _%e5046450541%_))) + (_%tl5046650548%_ (let () (declare (not safe)) - (##cdr _%e5042850505%_)))) - (if (gx#stx-pair? _%tl5043050512%_) - (let ((_%e5043150515%_ + (##cdr _%e5046450541%_)))) + (if (gx#stx-pair? _%tl5046650548%_) + (let ((_%e5046750551%_ (gx#syntax-e - _%tl5043050512%_))) - (let ((_%hd5043250519%_ + _%tl5046650548%_))) + (let ((_%hd5046850555%_ (let () (declare (not safe)) - (##car _%e5043150515%_))) - (_%tl5043350522%_ + (##car _%e5046750551%_))) + (_%tl5046950558%_ (let () (declare (not safe)) - (##cdr _%e5043150515%_)))) + (##cdr _%e5046750551%_)))) (if (gx#stx-pair/null? - _%hd5043250519%_) - (let ((_g84032_ + _%hd5046850555%_) + (let ((_g84078_ (gx#syntax-split-splice - _%hd5043250519%_ + _%hd5046850555%_ '0))) (begin - (let ((_g84033_ + (let ((_g84079_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84032_) - (##vector-length _g84032_) + (if (##values? _g84078_) + (##vector-length _g84078_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84033_ 2))) - (error "Context expects 2 values" _g84033_))) - (let ((_%target5043450525%_ - (let () (declare (not safe)) (##vector-ref _g84032_ 0))) - (_%tl5043650528%_ - (let () (declare (not safe)) (##vector-ref _g84032_ 1)))) - (if (gx#stx-null? _%tl5043650528%_) - (letrec ((_%loop5043750531%_ - (lambda (_%hd5043550535%_ _%body5044150538%_) - (if (gx#stx-pair? _%hd5043550535%_) - (let ((_%e5043850541%_ - (gx#syntax-e _%hd5043550535%_))) - (let ((_%lp-hd5043950545%_ + (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%_ (let () (declare (not safe)) - (##car _%e5043850541%_))) - (_%lp-tl5044050548%_ + (##car _%e5047450577%_))) + (_%lp-tl5047650584%_ (let () (declare (not safe)) - (##cdr _%e5043850541%_)))) - (_%loop5043750531%_ - _%lp-tl5044050548%_ - (cons _%lp-hd5043950545%_ - _%body5044150538%_)))) - (let ((_%body5044250551%_ - (reverse _%body5044150538%_))) - (if (gx#stx-null? _%tl5043350522%_) - ((lambda (_%L50555%_ - _%L50557%_ - _%L50558%_ - _%L50559%_ - _%L50560%_ - _%L50561%_ - _%L50562%_) + (##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%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50559%_ + (cons (cons _%L50595%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L50560%_ '())) - (cons _%L50559%_ '()))) + (cons _%L50596%_ '())) + (cons _%L50595%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L50562%_ + (cons (cons (cons _%L50598%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -6150,131 +6150,131 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L50559%_ '())) + (cons _%L50595%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50561%_ '())) - (cons _%L50558%_ + (cons _%L50597%_ '())) + (cons _%L50594%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50557%_ '())) + (cons _%L50593%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5059750600%_ + (foldr (lambda (_%g5063350636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5059850603%_) - (cons _%g5059750600%_ _%g5059850603%_)) + _%g5063450639%_) + (cons _%g5063350636%_ _%g5063450639%_)) '() - _%L50555%_))) + _%L50591%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5044250551%_ - _%hd5042950509%_ - _%hd5042650499%_ - _%hd5042350489%_ - _%hd5042050479%_ - _%hd5041750469%_ - _%hd5041450459%_) - (_%g5040450448%_ - _%g5040550452%_))))))) - (_%loop5043750531%_ _%target5043450525%_ '())) - (_%g5040450448%_ _%g5040550452%_))))) + _%body5047850587%_ + _%hd5046550545%_ + _%hd5046250535%_ + _%hd5045950525%_ + _%hd5045650515%_ + _%hd5045350505%_ + _%hd5045050495%_) + (_%g5044050484%_ + _%g5044150488%_))))))) + (_%loop5047350567%_ _%target5047050561%_ '())) + (_%g5044050484%_ _%g5044150488%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5040450448%_ - _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) + (_%g5044050484%_ + _%g5044150488%_)))) + (_%g5044050484%_ _%g5044150488%_)))) + (_%g5044050484%_ _%g5044150488%_)))) + (_%g5044050484%_ _%g5044150488%_)))) + (_%g5044050484%_ _%g5044150488%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5040450448%_ - _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_))))) - (_%g5040350606%_ + (_%g5044050484%_ + _%g5044150488%_)))) + (_%g5044050484%_ _%g5044150488%_)))) + (_%g5044050484%_ _%g5044150488%_))))) + (_%g5043950642%_ (list (gx#syntax-local-introduce '@@type) - _%type50401%_ - (let ((__obj83867 _%type50401%_)) + _%type50437%_ + (let ((__obj83913 _%type50437%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83867 + __obj83913 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83867 + __obj83913 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83867 + __obj83913 'instance-type))) - _%var50395%_ - _%checked?50399%_ + _%var50431%_ + _%checked?50435%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body50398%_))))) - (_%expand49396%_ - (lambda (_%var50194%_ - _%Interface50196%_ - _%body50197%_ - _%checked?50198%_ - _%checked-methods?50199%_ - _%maybe?50200%_) - (let* ((_%g5020250210%_ - (lambda (_%g5020350206%_) + _%body50434%_))))) + (_%expand49432%_ + (lambda (_%var50230%_ + _%Interface50232%_ + _%body50233%_ + _%checked?50234%_ + _%checked-methods?50235%_ + _%maybe?50236%_) + (let* ((_%g5023850246%_ + (lambda (_%g5023950242%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5020350206%_))) - (_%g5020150387%_ - (lambda (_%g5020350214%_) - ((lambda (_%L50217%_) - (if _%checked?50198%_ - (if _%maybe?50200%_ - (let* ((_%g5022950244%_ - (lambda (_%g5023050240%_) + _%g5023950242%_))) + (_%g5023750423%_ + (lambda (_%g5023950250%_) + ((lambda (_%L50253%_) + (if _%checked?50234%_ + (if _%maybe?50236%_ + (let* ((_%g5026550280%_ + (lambda (_%g5026650276%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5023050240%_))) - (_%g5022850290%_ - (lambda (_%g5023050248%_) + _%g5026650276%_))) + (_%g5026450326%_ + (lambda (_%g5026650284%_) (if (gx#stx-pair? - _%g5023050248%_) - (let ((_%e5023350251%_ + _%g5026650284%_) + (let ((_%e5026950287%_ (gx#syntax-e - _%g5023050248%_))) - (let ((_%hd5023450255%_ + _%g5026650284%_))) + (let ((_%hd5027050291%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5023350251%_))) - (_%tl5023550258%_ - (let () (declare (not safe)) (##cdr _%e5023350251%_)))) - (if (gx#stx-pair? _%tl5023550258%_) - (let ((_%e5023650261%_ (gx#syntax-e _%tl5023550258%_))) - (let ((_%hd5023750265%_ + (##car _%e5026950287%_))) + (_%tl5027150294%_ + (let () (declare (not safe)) (##cdr _%e5026950287%_)))) + (if (gx#stx-pair? _%tl5027150294%_) + (let ((_%e5027250297%_ (gx#syntax-e _%tl5027150294%_))) + (let ((_%hd5027350301%_ (let () (declare (not safe)) - (##car _%e5023650261%_))) - (_%tl5023850268%_ + (##car _%e5027250297%_))) + (_%tl5027450304%_ (let () (declare (not safe)) - (##cdr _%e5023650261%_)))) - (if (gx#stx-null? _%tl5023850268%_) - ((lambda (_%L50271%_ _%L50273%_) + (##cdr _%e5027250297%_)))) + (if (gx#stx-null? _%tl5027450304%_) + ((lambda (_%L50307%_ _%L50309%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50273%_ - (cons (cons _%L50271%_ - (cons _%L50273%_ + (cons (cons _%L50309%_ + (cons (cons _%L50307%_ + (cons _%L50309%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -6282,2653 +6282,2653 @@ (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L50273%_ - (cons _%L50217%_ + (cons _%L50309%_ + (cons _%L50253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50273%_ '())) + (cons _%L50309%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd5023750265%_ - _%hd5023450255%_) - (_%g5022950244%_ _%g5023050248%_)))) - (_%g5022950244%_ _%g5023050248%_)))) - (_%g5022950244%_ _%g5023050248%_))))) + _%hd5027350301%_ + _%hd5027050291%_) + (_%g5026550280%_ _%g5026650284%_)))) + (_%g5026550280%_ _%g5026650284%_)))) + (_%g5026550280%_ _%g5026650284%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5022850290%_ - (list _%var50194%_ - _%Interface50196%_))) - (let* ((_%g5029450309%_ - (lambda (_%g5029550305%_) + (_%g5026450326%_ + (list _%var50230%_ + _%Interface50232%_))) + (let* ((_%g5033050345%_ + (lambda (_%g5033150341%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5029550305%_))) - (_%g5029350353%_ - (lambda (_%g5029550313%_) + _%g5033150341%_))) + (_%g5032950389%_ + (lambda (_%g5033150349%_) (if (gx#stx-pair? - _%g5029550313%_) - (let ((_%e5029850316%_ + _%g5033150349%_) + (let ((_%e5033450352%_ (gx#syntax-e - _%g5029550313%_))) - (let ((_%hd5029950320%_ + _%g5033150349%_))) + (let ((_%hd5033550356%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5029850316%_))) - (_%tl5030050323%_ - (let () (declare (not safe)) (##cdr _%e5029850316%_)))) - (if (gx#stx-pair? _%tl5030050323%_) - (let ((_%e5030150326%_ (gx#syntax-e _%tl5030050323%_))) - (let ((_%hd5030250330%_ + (##car _%e5033450352%_))) + (_%tl5033650359%_ + (let () (declare (not safe)) (##cdr _%e5033450352%_)))) + (if (gx#stx-pair? _%tl5033650359%_) + (let ((_%e5033750362%_ (gx#syntax-e _%tl5033650359%_))) + (let ((_%hd5033850366%_ (let () (declare (not safe)) - (##car _%e5030150326%_))) - (_%tl5030350333%_ + (##car _%e5033750362%_))) + (_%tl5033950369%_ (let () (declare (not safe)) - (##cdr _%e5030150326%_)))) - (if (gx#stx-null? _%tl5030350333%_) - ((lambda (_%L50336%_ _%L50338%_) + (##cdr _%e5033750362%_)))) + (if (gx#stx-null? _%tl5033950369%_) + ((lambda (_%L50372%_ _%L50374%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50338%_ - (cons (cons _%L50336%_ - (cons _%L50338%_ + (cons (cons _%L50374%_ + (cons (cons _%L50372%_ + (cons _%L50374%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L50217%_ '())))) - _%hd5030250330%_ - _%hd5029950320%_) - (_%g5029450309%_ _%g5029550313%_)))) - (_%g5029450309%_ _%g5029550313%_)))) - (_%g5029450309%_ _%g5029550313%_))))) + (cons _%L50253%_ '())))) + _%hd5033850366%_ + _%hd5033550356%_) + (_%g5033050345%_ _%g5033150349%_)))) + (_%g5033050345%_ _%g5033150349%_)))) + (_%g5033050345%_ _%g5033150349%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5029350353%_ - (list _%var50194%_ - _%Interface50196%_)))) - (if _%maybe?50200%_ - (let* ((_%g5035750365%_ - (lambda (_%g5035850361%_) + (_%g5032950389%_ + (list _%var50230%_ + _%Interface50232%_)))) + (if _%maybe?50236%_ + (let* ((_%g5039350401%_ + (lambda (_%g5039450397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5035850361%_))) - (_%g5035650383%_ - (lambda (_%g5035850369%_) - ((lambda (_%L50372%_) + _%g5039450397%_))) + (_%g5039250419%_ + (lambda (_%g5039450405%_) + ((lambda (_%L50408%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L50372%_ + (cons _%L50408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50217%_ + (cons _%L50253%_ (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50372%_ '())) + (cons _%L50408%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5035850369%_)))) - (_%g5035650383%_ _%var50194%_)) - _%L50217%_))) - _%g5020350214%_)))) - (_%g5020150387%_ - (_%expand-body49394%_ - _%var50194%_ - _%Interface50196%_ - _%body50197%_ - (let ((_%$e50391%_ _%checked?50198%_)) - (if _%$e50391%_ - _%$e50391%_ - _%checked-methods?50199%_)))))))) - (let* ((_%__stx7917079171%_ _%stx49391%_) - (_%g4940249545%_ + _%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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7917079171%_)))) - (let ((_%__kont7917379174%_ - (lambda (_%L50122%_ _%L50124%_ _%L50125%_ _%L50126%_) - (let* ((_%g5015150159%_ - (lambda (_%g5015250155%_) + _%__stx7921679217%_)))) + (let ((_%__kont7921979220%_ + (lambda (_%L50158%_ _%L50160%_ _%L50161%_ _%L50162%_) + (let* ((_%g5018750195%_ + (lambda (_%g5018850191%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5015250155%_))) - (_%g5015050186%_ - (lambda (_%g5015250163%_) - ((lambda (_%L50166%_) + _%g5018850191%_))) + (_%g5018650222%_ + (lambda (_%g5018850199%_) + ((lambda (_%L50202%_) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L50126%_ - (cons _%L50125%_ - (cons _%L50166%_ + (cons (cons _%L50162%_ + (cons _%L50161%_ + (cons _%L50202%_ '()))) - (foldr (lambda (_%g5017750180%_ - _%g5017850183%_) - (cons _%g5017750180%_ - _%g5017850183%_)) + (foldr (lambda (_%g5021350216%_ + _%g5021450219%_) + (cons _%g5021350216%_ + _%g5021450219%_)) '() - _%L50122%_)))) - _%g5015250163%_)))) - (_%g5015050186%_ - (let ((__obj83868 (gx#syntax-local-value _%L50124%_))) + _%L50158%_)))) + _%g5018850199%_)))) + (_%g5018650222%_ + (let ((__obj83914 (gx#syntax-local-value _%L50160%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83868 + __obj83914 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83868 + __obj83914 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83868 + __obj83914 'identifier))))))) - (_%__kont7917779178%_ - (lambda (_%L50000%_ _%L50002%_ _%L50003%_) - (_%expand49396%_ - _%L50003%_ - _%L50002%_ - (foldr (lambda (_%g5002650029%_ _%g5002750032%_) - (cons _%g5002650029%_ _%g5002750032%_)) + (_%__kont7922379224%_ + (lambda (_%L50036%_ _%L50038%_ _%L50039%_) + (_%expand49432%_ + _%L50039%_ + _%L50038%_ + (foldr (lambda (_%g5006250065%_ _%g5006350068%_) + (cons _%g5006250065%_ _%g5006350068%_)) '() - _%L50000%_) + _%L50036%_) '#t '#t '#f))) - (_%__kont7918179182%_ - (lambda (_%L49878%_ _%L49880%_ _%L49881%_) - (_%expand49396%_ - _%L49881%_ - _%L49880%_ - (foldr (lambda (_%g4990449907%_ _%g4990549910%_) - (cons _%g4990449907%_ _%g4990549910%_)) + (_%__kont7922779228%_ + (lambda (_%L49914%_ _%L49916%_ _%L49917%_) + (_%expand49432%_ + _%L49917%_ + _%L49916%_ + (foldr (lambda (_%g4994049943%_ _%g4994149946%_) + (cons _%g4994049943%_ _%g4994149946%_)) '() - _%L49878%_) + _%L49914%_) '#t '#t '#t))) - (_%__kont7918579186%_ - (lambda (_%L49756%_ _%L49758%_ _%L49759%_) - (_%expand49396%_ - _%L49759%_ - _%L49758%_ - (foldr (lambda (_%g4978249785%_ _%g4978349788%_) - (cons _%g4978249785%_ _%g4978349788%_)) + (_%__kont7923179232%_ + (lambda (_%L49792%_ _%L49794%_ _%L49795%_) + (_%expand49432%_ + _%L49795%_ + _%L49794%_ + (foldr (lambda (_%g4981849821%_ _%g4981949824%_) + (cons _%g4981849821%_ _%g4981949824%_)) '() - _%L49756%_) + _%L49792%_) '#f '#f '#f))) - (_%__kont7918979190%_ - (lambda (_%L49632%_ _%L49634%_ _%L49635%_) - (_%expand49396%_ - _%L49635%_ - _%L49634%_ - (foldr (lambda (_%g4966049663%_ _%g4966149666%_) - (cons _%g4966049663%_ _%g4966149666%_)) + (_%__kont7923579236%_ + (lambda (_%L49668%_ _%L49670%_ _%L49671%_) + (_%expand49432%_ + _%L49671%_ + _%L49670%_ + (foldr (lambda (_%g4969649699%_ _%g4969749702%_) + (cons _%g4969649699%_ _%g4969749702%_)) '() - _%L49632%_) + _%L49668%_) '#f '#t '#f)))) - (let* ((_%__match7940979410%_ - (lambda (_%e4951649552%_ - _%hd4951749556%_ - _%tl4951849559%_ - _%e4951949562%_ - _%hd4952049566%_ - _%tl4952149569%_ - _%e4952249572%_ - _%hd4952349576%_ - _%tl4952449579%_ - _%e4952549582%_ - _%hd4952649586%_ - _%tl4952749589%_ - _%e4952849592%_ - _%hd4952949596%_ - _%tl4953049599%_ - _%__splice7919179192%_ - _%target4953149602%_ - _%tl4953349605%_) - (letrec ((_%loop4953449608%_ - (lambda (_%hd4953249612%_ _%body4953849615%_) - (if (gx#stx-pair? _%hd4953249612%_) - (let ((_%e4953549618%_ - (gx#syntax-e _%hd4953249612%_))) - (let ((_%lp-tl4953749625%_ + (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 () (declare (not safe)) - (##cdr _%e4953549618%_))) - (_%lp-hd4953649622%_ + (##cdr _%e4957149654%_))) + (_%lp-hd4957249658%_ (let () (declare (not safe)) - (##car _%e4953549618%_)))) - (_%loop4953449608%_ - _%lp-tl4953749625%_ - (cons _%lp-hd4953649622%_ - _%body4953849615%_)))) - (let ((_%body4953949628%_ - (reverse _%body4953849615%_))) - (let ((_%L49632%_ _%body4953949628%_) - (_%L49634%_ _%hd4952949596%_) - (_%L49635%_ _%hd4952349576%_)) + (##car _%e4957149654%_)))) + (_%loop4957049644%_ + _%lp-tl4957349661%_ + (cons _%lp-hd4957249658%_ + _%body4957449651%_)))) + (let ((_%body4957549664%_ + (reverse _%body4957449651%_))) + (let ((_%L49668%_ _%body4957549664%_) + (_%L49670%_ _%hd4956549632%_) + (_%L49671%_ _%hd4955949612%_)) (if (and (gx#identifier? - _%L49635%_) + _%L49671%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49634%_))) - (_%__kont7918979190%_ - _%L49632%_ - _%L49634%_ - _%L49635%_) + _%L49670%_))) + (_%__kont7923579236%_ + _%L49668%_ + _%L49670%_ + _%L49671%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4953449608%_ _%target4953149602%_ '())))) - (_%__match7936579366%_ - (lambda (_%e4948949676%_ - _%hd4949049680%_ - _%tl4949149683%_ - _%e4949249686%_ - _%hd4949349690%_ - _%tl4949449693%_ - _%e4949549696%_ - _%hd4949649700%_ - _%tl4949749703%_ - _%e4949849706%_ - _%hd4949949710%_ - _%tl4950049713%_ - _%e4950149716%_ - _%hd4950249720%_ - _%tl4950349723%_ - _%__splice7918779188%_ - _%target4950449726%_ - _%tl4950649729%_) - (letrec ((_%loop4950749732%_ - (lambda (_%hd4950549736%_ _%body4951149739%_) - (if (gx#stx-pair? _%hd4950549736%_) - (let ((_%e4950849742%_ - (gx#syntax-e _%hd4950549736%_))) - (let ((_%lp-tl4951049749%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4950849742%_))) - (_%lp-hd4950949746%_ + (##cdr _%e4954449778%_))) + (_%lp-hd4954549782%_ (let () (declare (not safe)) - (##car _%e4950849742%_)))) - (_%loop4950749732%_ - _%lp-tl4951049749%_ - (cons _%lp-hd4950949746%_ - _%body4951149739%_)))) - (let ((_%body4951249752%_ - (reverse _%body4951149739%_))) - (let ((_%L49756%_ _%body4951249752%_) - (_%L49758%_ _%hd4950249720%_) - (_%L49759%_ _%hd4949649700%_)) + (##car _%e4954449778%_)))) + (_%loop4954349768%_ + _%lp-tl4954649785%_ + (cons _%lp-hd4954549782%_ + _%body4954749775%_)))) + (let ((_%body4954849788%_ + (reverse _%body4954749775%_))) + (let ((_%L49792%_ _%body4954849788%_) + (_%L49794%_ _%hd4953849756%_) + (_%L49795%_ _%hd4953249736%_)) (if (and (gx#identifier? - _%L49759%_) + _%L49795%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49758%_))) - (_%__kont7918579186%_ - _%L49756%_ - _%L49758%_ - _%L49759%_) + _%L49794%_))) + (_%__kont7923179232%_ + _%L49792%_ + _%L49794%_ + _%L49795%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4950749732%_ _%target4950449726%_ '())))) - (_%__match7932179322%_ - (lambda (_%e4946249798%_ - _%hd4946349802%_ - _%tl4946449805%_ - _%e4946549808%_ - _%hd4946649812%_ - _%tl4946749815%_ - _%e4946849818%_ - _%hd4946949822%_ - _%tl4947049825%_ - _%e4947149828%_ - _%hd4947249832%_ - _%tl4947349835%_ - _%e4947449838%_ - _%hd4947549842%_ - _%tl4947649845%_ - _%__splice7918379184%_ - _%target4947749848%_ - _%tl4947949851%_) - (letrec ((_%loop4948049854%_ - (lambda (_%hd4947849858%_ _%body4948449861%_) - (if (gx#stx-pair? _%hd4947849858%_) - (let ((_%e4948149864%_ - (gx#syntax-e _%hd4947849858%_))) - (let ((_%lp-tl4948349871%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4948149864%_))) - (_%lp-hd4948249868%_ + (##cdr _%e4951749900%_))) + (_%lp-hd4951849904%_ (let () (declare (not safe)) - (##car _%e4948149864%_)))) - (_%loop4948049854%_ - _%lp-tl4948349871%_ - (cons _%lp-hd4948249868%_ - _%body4948449861%_)))) - (let ((_%body4948549874%_ - (reverse _%body4948449861%_))) - (let ((_%L49878%_ _%body4948549874%_) - (_%L49880%_ _%hd4947549842%_) - (_%L49881%_ _%hd4946949822%_)) + (##car _%e4951749900%_)))) + (_%loop4951649890%_ + _%lp-tl4951949907%_ + (cons _%lp-hd4951849904%_ + _%body4952049897%_)))) + (let ((_%body4952149910%_ + (reverse _%body4952049897%_))) + (let ((_%L49914%_ _%body4952149910%_) + (_%L49916%_ _%hd4951149878%_) + (_%L49917%_ _%hd4950549858%_)) (if (and (gx#identifier? - _%L49881%_) + _%L49917%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49880%_))) - (_%__kont7918179182%_ - _%L49878%_ - _%L49880%_ - _%L49881%_) + _%L49916%_))) + (_%__kont7922779228%_ + _%L49914%_ + _%L49916%_ + _%L49917%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4948049854%_ _%target4947749848%_ '())))) - (_%__match7927779278%_ - (lambda (_%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4944749960%_ - _%hd4944849964%_ - _%tl4944949967%_ - _%__splice7917979180%_ - _%target4945049970%_ - _%tl4945249973%_) - (letrec ((_%loop4945349976%_ - (lambda (_%hd4945149980%_ _%body4945749983%_) - (if (gx#stx-pair? _%hd4945149980%_) - (let ((_%e4945449986%_ - (gx#syntax-e _%hd4945149980%_))) - (let ((_%lp-tl4945649993%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4945449986%_))) - (_%lp-hd4945549990%_ + (##cdr _%e4949050022%_))) + (_%lp-hd4949150026%_ (let () (declare (not safe)) - (##car _%e4945449986%_)))) - (_%loop4945349976%_ - _%lp-tl4945649993%_ - (cons _%lp-hd4945549990%_ - _%body4945749983%_)))) - (let ((_%body4945849996%_ - (reverse _%body4945749983%_))) - (let ((_%L50000%_ _%body4945849996%_) - (_%L50002%_ _%hd4944849964%_) - (_%L50003%_ _%hd4944249944%_)) + (##car _%e4949050022%_)))) + (_%loop4948950012%_ + _%lp-tl4949250029%_ + (cons _%lp-hd4949150026%_ + _%body4949350019%_)))) + (let ((_%body4949450032%_ + (reverse _%body4949350019%_))) + (let ((_%L50036%_ _%body4949450032%_) + (_%L50038%_ _%hd4948450000%_) + (_%L50039%_ _%hd4947849980%_)) (if (and (gx#identifier? - _%L50003%_) + _%L50039%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L50002%_))) - (_%__kont7917779178%_ - _%L50000%_ - _%L50002%_ - _%L50003%_) + _%L50038%_))) + (_%__kont7922379224%_ + _%L50036%_ + _%L50038%_ + _%L50039%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4945349976%_ _%target4945049970%_ '())))) - (_%__match7925779258%_ - (lambda (_%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_) - (if (gx#identifier? _%hd4944549954%_) + (_%g4943849581%_))))))))) + (_%loop4948950012%_ _%target4948650006%_ '())))) + (_%__match7930379304%_ + (lambda (_%e4947149956%_ + _%hd4947249960%_ + _%tl4947349963%_ + _%e4947449966%_ + _%hd4947549970%_ + _%tl4947649973%_ + _%e4947749976%_ + _%hd4947849980%_ + _%tl4947949983%_ + _%e4948049986%_ + _%hd4948149990%_ + _%tl4948249993%_) + (if (gx#identifier? _%hd4948149990%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84034_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4944749960%_ - (gx#syntax-e _%tl4944649957%_))) - (let ((_%tl4944949967%_ + |gerbil/core/contract~Using[1]#_g84080_| + _%hd4948149990%_) + (if (gx#stx-pair? _%tl4948249993%_) + (let ((_%e4948349996%_ + (gx#syntax-e _%tl4948249993%_))) + (let ((_%tl4948550003%_ (let () (declare (not safe)) - (##cdr _%e4944749960%_))) - (_%hd4944849964%_ + (##cdr _%e4948349996%_))) + (_%hd4948450000%_ (let () (declare (not safe)) - (##car _%e4944749960%_)))) - (if (gx#stx-null? _%tl4944949967%_) + (##car _%e4948349996%_)))) + (if (gx#stx-null? _%tl4948550003%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7917979180%_ + _%tl4947649973%_) + (let ((_%__splice7922579226%_ (gx#syntax-split-splice - _%tl4944049937%_ + _%tl4947649973%_ '0))) - (let ((_%tl4945249973%_ + (let ((_%tl4948850009%_ (let () (declare (not safe)) (##vector-ref - _%__splice7917979180%_ + _%__splice7922579226%_ '1))) - (_%target4945049970%_ + (_%target4948650006%_ (let () (declare (not safe)) (##vector-ref - _%__splice7917979180%_ + _%__splice7922579226%_ '0)))) (if (gx#stx-null? - _%tl4945249973%_) - (_%__match7927779278%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4944749960%_ - _%hd4944849964%_ - _%tl4944949967%_ - _%__splice7917979180%_ - _%target4945049970%_ - _%tl4945249973%_) + _%tl4948850009%_) + (_%__match7932379324%_ + _%e4947149956%_ + _%hd4947249960%_ + _%tl4947349963%_ + _%e4947449966%_ + _%hd4947549970%_ + _%tl4947649973%_ + _%e4947749976%_ + _%hd4947849980%_ + _%tl4947949983%_ + _%e4948049986%_ + _%hd4948149990%_ + _%tl4948249993%_ + _%e4948349996%_ + _%hd4948450000%_ + _%tl4948550003%_ + _%__splice7922579226%_ + _%target4948650006%_ + _%tl4948850009%_) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4943849581%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4943849581%_))) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4943849581%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4943849581%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84035_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4947449838%_ - (gx#syntax-e _%tl4944649957%_))) - (let ((_%tl4947649845%_ + |gerbil/core/contract~Using[1]#_g84081_| + _%hd4948149990%_) + (if (gx#stx-pair? _%tl4948249993%_) + (let ((_%e4951049874%_ + (gx#syntax-e _%tl4948249993%_))) + (let ((_%tl4951249881%_ (let () (declare (not safe)) - (##cdr _%e4947449838%_))) - (_%hd4947549842%_ + (##cdr _%e4951049874%_))) + (_%hd4951149878%_ (let () (declare (not safe)) - (##car _%e4947449838%_)))) - (if (gx#stx-null? _%tl4947649845%_) + (##car _%e4951049874%_)))) + (if (gx#stx-null? _%tl4951249881%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7918379184%_ + _%tl4947649973%_) + (let ((_%__splice7922979230%_ (gx#syntax-split-splice - _%tl4944049937%_ + _%tl4947649973%_ '0))) - (let ((_%tl4947949851%_ + (let ((_%tl4951549887%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7918379184%_ '1))) - (_%target4947749848%_ + (##vector-ref _%__splice7922979230%_ '1))) + (_%target4951349884%_ (let () (declare (not safe)) - (##vector-ref _%__splice7918379184%_ '0)))) - (if (gx#stx-null? _%tl4947949851%_) - (_%__match7932179322%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4947449838%_ - _%hd4947549842%_ - _%tl4947649845%_ - _%__splice7918379184%_ - _%target4947749848%_ - _%tl4947949851%_) - (let () (declare (not safe)) (_%g4940249545%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4943849581%_))) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4943849581%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4943849581%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84036_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4950149716%_ + |gerbil/core/contract~Using[1]#_g84082_| + _%hd4948149990%_) + (if (gx#stx-pair? _%tl4948249993%_) + (let ((_%e4953749752%_ (gx#syntax-e - _%tl4944649957%_))) - (let ((_%tl4950349723%_ + _%tl4948249993%_))) + (let ((_%tl4953949759%_ (let () (declare (not safe)) - (##cdr _%e4950149716%_))) - (_%hd4950249720%_ + (##cdr _%e4953749752%_))) + (_%hd4953849756%_ (let () (declare (not safe)) - (##car _%e4950149716%_)))) + (##car _%e4953749752%_)))) (if (gx#stx-null? - _%tl4950349723%_) + _%tl4953949759%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7918779188%_ + _%tl4947649973%_) + (let ((_%__splice7923379234%_ (gx#syntax-split-splice - _%tl4944049937%_ + _%tl4947649973%_ '0))) - (let ((_%tl4950649729%_ + (let ((_%tl4954249765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7918779188%_ '1))) - (_%target4950449726%_ + (##vector-ref _%__splice7923379234%_ '1))) + (_%target4954049762%_ (let () (declare (not safe)) - (##vector-ref _%__splice7918779188%_ '0)))) - (if (gx#stx-null? _%tl4950649729%_) - (_%__match7936579366%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4950149716%_ - _%hd4950249720%_ - _%tl4950349723%_ - _%__splice7918779188%_ - _%target4950449726%_ - _%tl4950649729%_) - (let () (declare (not safe)) (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4943849581%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4943849581%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84037_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4952849592%_ + |gerbil/core/contract~Using[1]#_g84083_| + _%hd4948149990%_) + (if (gx#stx-pair? _%tl4948249993%_) + (let ((_%e4956449628%_ (gx#syntax-e - _%tl4944649957%_))) - (let ((_%tl4953049599%_ + _%tl4948249993%_))) + (let ((_%tl4956649635%_ (let () (declare (not safe)) - (##cdr _%e4952849592%_))) - (_%hd4952949596%_ + (##cdr _%e4956449628%_))) + (_%hd4956549632%_ (let () (declare (not safe)) - (##car _%e4952849592%_)))) + (##car _%e4956449628%_)))) (if (gx#stx-null? - _%tl4953049599%_) + _%tl4956649635%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7919179192%_ + _%tl4947649973%_) + (let ((_%__splice7923779238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4944049937%_ '0))) - (let ((_%tl4953349605%_ + (gx#syntax-split-splice _%tl4947649973%_ '0))) + (let ((_%tl4956949641%_ (let () (declare (not safe)) - (##vector-ref _%__splice7919179192%_ '1))) - (_%target4953149602%_ + (##vector-ref _%__splice7923779238%_ '1))) + (_%target4956749638%_ (let () (declare (not safe)) - (##vector-ref _%__splice7919179192%_ '0)))) - (if (gx#stx-null? _%tl4953349605%_) - (_%__match7940979410%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4952849592%_ - _%hd4952949596%_ - _%tl4953049599%_ - _%__splice7919179192%_ - _%target4953149602%_ - _%tl4953349605%_) - (let () (declare (not safe)) (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))) - (let () (declare (not safe)) (_%g4940249545%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4943849581%_))) (let () (declare (not safe)) - (_%g4940249545%_)))))) - (let () (declare (not safe)) (_%g4940249545%_))))) - (_%__match7923379234%_ - (lambda (_%e4940850042%_ - _%hd4940950046%_ - _%tl4941050049%_ - _%e4941150052%_ - _%hd4941250056%_ - _%tl4941350059%_ - _%e4941450062%_ - _%hd4941550066%_ - _%tl4941650069%_ - _%e4941750072%_ - _%hd4941850076%_ - _%tl4941950079%_ - _%e4942050082%_ - _%hd4942150086%_ - _%tl4942250089%_ - _%__splice7917579176%_ - _%target4942350092%_ - _%tl4942550095%_) - (letrec ((_%loop4942650098%_ - (lambda (_%hd4942450102%_ _%body4943050105%_) - (if (gx#stx-pair? _%hd4942450102%_) - (let ((_%e4942750108%_ - (gx#syntax-e _%hd4942450102%_))) - (let ((_%lp-tl4942950115%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4942750108%_))) - (_%lp-hd4942850112%_ + (##cdr _%e4946350144%_))) + (_%lp-hd4946450148%_ (let () (declare (not safe)) - (##car _%e4942750108%_)))) - (_%loop4942650098%_ - _%lp-tl4942950115%_ - (cons _%lp-hd4942850112%_ - _%body4943050105%_)))) - (let ((_%body4943150118%_ - (reverse _%body4943050105%_))) - (let ((_%L50122%_ _%body4943150118%_) - (_%L50124%_ _%hd4942150086%_) - (_%L50125%_ _%hd4941850076%_) - (_%L50126%_ _%hd4941550066%_)) - (if (let ((__tmp84038 + (##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 (gx#syntax-local-value - _%L50124%_ + _%L50160%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84038)) - (_%__kont7917379174%_ - _%L50122%_ - _%L50124%_ - _%L50125%_ - _%L50126%_) - (_%__match7925779258%_ - _%e4940850042%_ - _%hd4940950046%_ - _%tl4941050049%_ - _%e4941150052%_ - _%hd4941250056%_ - _%tl4941350059%_ - _%e4941450062%_ - _%hd4941550066%_ - _%tl4941650069%_ - _%e4941750072%_ - _%hd4941850076%_ - _%tl4941950079%_)))))))) - (_%loop4942650098%_ _%target4942350092%_ '()))))) - (if (gx#stx-pair? _%__stx7917079171%_) - (let ((_%e4940850042%_ (gx#syntax-e _%__stx7917079171%_))) - (let ((_%tl4941050049%_ + __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%_ (let () (declare (not safe)) - (##cdr _%e4940850042%_))) - (_%hd4940950046%_ + (##cdr _%e4944450078%_))) + (_%hd4944550082%_ (let () (declare (not safe)) - (##car _%e4940850042%_)))) - (if (gx#stx-pair? _%tl4941050049%_) - (let ((_%e4941150052%_ - (gx#syntax-e _%tl4941050049%_))) - (let ((_%tl4941350059%_ + (##car _%e4944450078%_)))) + (if (gx#stx-pair? _%tl4944650085%_) + (let ((_%e4944750088%_ + (gx#syntax-e _%tl4944650085%_))) + (let ((_%tl4944950095%_ (let () (declare (not safe)) - (##cdr _%e4941150052%_))) - (_%hd4941250056%_ + (##cdr _%e4944750088%_))) + (_%hd4944850092%_ (let () (declare (not safe)) - (##car _%e4941150052%_)))) - (if (gx#stx-pair? _%hd4941250056%_) - (let ((_%e4941450062%_ - (gx#syntax-e _%hd4941250056%_))) - (let ((_%tl4941650069%_ + (##car _%e4944750088%_)))) + (if (gx#stx-pair? _%hd4944850092%_) + (let ((_%e4945050098%_ + (gx#syntax-e _%hd4944850092%_))) + (let ((_%tl4945250105%_ (let () (declare (not safe)) - (##cdr _%e4941450062%_))) - (_%hd4941550066%_ + (##cdr _%e4945050098%_))) + (_%hd4945150102%_ (let () (declare (not safe)) - (##car _%e4941450062%_)))) - (if (gx#stx-pair? _%tl4941650069%_) - (let ((_%e4941750072%_ + (##car _%e4945050098%_)))) + (if (gx#stx-pair? _%tl4945250105%_) + (let ((_%e4945350108%_ (gx#syntax-e - _%tl4941650069%_))) - (let ((_%tl4941950079%_ + _%tl4945250105%_))) + (let ((_%tl4945550115%_ (let () (declare (not safe)) - (##cdr _%e4941750072%_))) - (_%hd4941850076%_ + (##cdr _%e4945350108%_))) + (_%hd4945450112%_ (let () (declare (not safe)) - (##car _%e4941750072%_)))) + (##car _%e4945350108%_)))) (if (gx#stx-pair? - _%tl4941950079%_) - (let ((_%e4942050082%_ + _%tl4945550115%_) + (let ((_%e4945650118%_ (gx#syntax-e - _%tl4941950079%_))) - (let ((_%tl4942250089%_ + _%tl4945550115%_))) + (let ((_%tl4945850125%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4942050082%_))) - (_%hd4942150086%_ - (let () (declare (not safe)) (##car _%e4942050082%_)))) - (if (gx#stx-null? _%tl4942250089%_) - (if (gx#stx-pair/null? _%tl4941350059%_) - (let ((_%__splice7917579176%_ - (gx#syntax-split-splice _%tl4941350059%_ '0))) - (let ((_%tl4942550095%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7917579176%_ '1))) - (_%target4942350092%_ + (##vector-ref _%__splice7922179222%_ '1))) + (_%target4945950128%_ (let () (declare (not safe)) - (##vector-ref _%__splice7917579176%_ '0)))) - (if (gx#stx-null? _%tl4942550095%_) - (_%__match7923379234%_ - _%e4940850042%_ - _%hd4940950046%_ - _%tl4941050049%_ - _%e4941150052%_ - _%hd4941250056%_ - _%tl4941350059%_ - _%e4941450062%_ - _%hd4941550066%_ - _%tl4941650069%_ - _%e4941750072%_ - _%hd4941850076%_ - _%tl4941950079%_ - _%e4942050082%_ - _%hd4942150086%_ - _%tl4942250089%_ - _%__splice7917579176%_ - _%target4942350092%_ - _%tl4942550095%_) + (##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%_) (let () (declare (not safe)) - (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))) - (let () (declare (not safe)) (_%g4940249545%_))))) + (_%g4943849581%_))))) + (let () (declare (not safe)) (_%g4943849581%_))) + (let () (declare (not safe)) (_%g4943849581%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4943849581%_))))) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4943849581%_))))) (let () (declare (not safe)) - (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))))))))) + (_%g4943849581%_))))) + (let () (declare (not safe)) (_%g4943849581%_))))) + (let () (declare (not safe)) (_%g4943849581%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| - (lambda (_%stx50616%_) - (let* ((_%__stx7941279413%_ _%stx50616%_) - (_%g5062150681%_ + (lambda (_%stx50652%_) + (let* ((_%__stx7945879459%_ _%stx50652%_) + (_%g5065750717%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7941279413%_)))) - (let ((_%__kont7941579416%_ - (lambda (_%L51243%_ _%L51245%_) + _%__stx7945879459%_)))) + (let ((_%__kont7946179462%_ + (lambda (_%L51279%_ _%L51281%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) - (cons _%L51245%_ '())) - (foldr (lambda (_%g5126151264%_ _%g5126251267%_) - (cons _%g5126151264%_ _%g5126251267%_)) + (cons _%L51281%_ '())) + (foldr (lambda (_%g5129751300%_ _%g5129851303%_) + (cons _%g5129751300%_ _%g5129851303%_)) '() - _%L51243%_))))) - (_%__kont7941979420%_ - (lambda (_%L50829%_ _%L50831%_) + _%L51279%_))))) + (_%__kont7946579466%_ + (lambda (_%L50865%_ _%L50867%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L50831%_) - (let* ((_%g5085150858%_ + _%L50867%_) + (let* ((_%g5088750894%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx50616%_ - _%L50831%_)) - (_%E5085350864%_ + _%stx50652%_ + _%L50867%_)) + (_%E5088950900%_ (lambda () (error '"No clause matching" - _%g5085150858%_ + _%g5088750894%_ '([var . parts])) (void))) - (_%K5085451162%_ - (lambda (_%parts50868%_ _%var50870%_) - (let ((_%$e50872%_ + (_%K5089051198%_ + (lambda (_%parts50904%_ _%var50906%_) + (let ((_%$e50908%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var50870%_)))) - (if _%$e50872%_ - ((lambda (_%te50876%_) - (let _%loop50879%_ ((_%parts50882%_ - _%parts50868%_) - (_%type50884%_ + _%var50906%_)))) + (if _%$e50908%_ + ((lambda (_%te50912%_) + (let _%loop50915%_ ((_%parts50918%_ + _%parts50904%_) + (_%type50920%_ (##direct-structure-ref - _%te50876%_ + _%te50912%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object50885%_ - _%var50870%_) - (_%checked-method?50886%_ + (_%object50921%_ + _%var50906%_) + (_%checked-method?50922%_ (##direct-structure-ref - _%te50876%_ + _%te50912%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?50887%_ + (_%nil-check?50923%_ '#f)) - (let* ((_%parts5088850896%_ - _%parts50882%_) - (_%else5089050957%_ + (let* ((_%parts5092450932%_ + _%parts50918%_) + (_%else5092650993%_ (lambda () - (let* ((_%g5090850916%_ - (lambda (_%g5090950912%_) + (let* ((_%g5094450952%_ + (lambda (_%g5094550948%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g5090950912%_))) - (_%g5090750953%_ - (lambda (_%g5090950920%_) - ((lambda (_%L50923%_) + _%g5094550948%_))) + (_%g5094350989%_ + (lambda (_%g5094550956%_) + ((lambda (_%L50959%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50923%_ - (foldr (lambda (_%g5094450947%_ - _%g5094550950%_) - (cons _%g5094450947%_ - _%g5094550950%_)) + (cons _%L50959%_ + (foldr (lambda (_%g5098050983%_ + _%g5098150986%_) + (cons _%g5098050983%_ + _%g5098150986%_)) '() - _%L50829%_)))) - _%g5090950920%_)))) - (_%g5090750953%_ _%object50885%_)))) + _%L50865%_)))) + _%g5094550956%_)))) + (_%g5094350989%_ _%object50921%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5089251136%_ - (lambda (_%rest50961%_ - _%part50963%_) - (if (and (not _%nil-check?50887%_) - (let ((__tmp84039 + (_%K5092851172%_ + (lambda (_%rest50997%_ + _%part50999%_) + (if (and (not _%nil-check?50923%_) + (let ((__tmp84085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part50963%_))) + (symbol->string _%part50999%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84039))) - (let ((_%str50967%_ (symbol->string _%part50963%_))) - (_%loop50879%_ - (cons (let ((__tmp84040 + (##string-prefix? '"?" __tmp84085))) + (let ((_%str51003%_ (symbol->string _%part50999%_))) + (_%loop50915%_ + (cons (let ((__tmp84086 (substring - _%str50967%_ + _%str51003%_ '1 - (string-length _%str50967%_)))) + (string-length _%str51003%_)))) (declare (not safe)) - (##string->symbol __tmp84040)) - _%rest50961%_) - _%type50884%_ - _%object50885%_ - _%checked-method?50886%_ + (##string->symbol __tmp84086)) + _%rest50997%_) + _%type50920%_ + _%object50921%_ + _%checked-method?50922%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type50884%_)) - (let* ((_%g5097250987%_ - (lambda (_%g5097350983%_) + _%type50920%_)) + (let* ((_%g5100851023%_ + (lambda (_%g5100951019%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5097350983%_))) - (_%g5097151056%_ - (lambda (_%g5097350991%_) - (if (gx#stx-pair? _%g5097350991%_) - (let ((_%e5097650994%_ - (gx#syntax-e _%g5097350991%_))) - (let ((_%hd5097750998%_ + _%g5100951019%_))) + (_%g5100751092%_ + (lambda (_%g5100951027%_) + (if (gx#stx-pair? _%g5100951027%_) + (let ((_%e5101251030%_ + (gx#syntax-e _%g5100951027%_))) + (let ((_%hd5101351034%_ (let () (declare (not safe)) - (##car _%e5097650994%_))) - (_%tl5097851001%_ + (##car _%e5101251030%_))) + (_%tl5101451037%_ (let () (declare (not safe)) - (##cdr _%e5097650994%_)))) - (if (gx#stx-pair? _%tl5097851001%_) - (let ((_%e5097951004%_ + (##cdr _%e5101251030%_)))) + (if (gx#stx-pair? _%tl5101451037%_) + (let ((_%e5101551040%_ (gx#syntax-e - _%tl5097851001%_))) - (let ((_%hd5098051008%_ + _%tl5101451037%_))) + (let ((_%hd5101651044%_ (let () (declare (not safe)) - (##car _%e5097951004%_))) - (_%tl5098151011%_ + (##car _%e5101551040%_))) + (_%tl5101751047%_ (let () (declare (not safe)) - (##cdr _%e5097951004%_)))) + (##cdr _%e5101551040%_)))) (if (gx#stx-null? - _%tl5098151011%_) - ((lambda (_%L51014%_ - _%L51016%_) - (if (null? _%rest50961%_) + _%tl5101751047%_) + ((lambda (_%L51050%_ + _%L51052%_) + (if (null? _%rest50997%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%app) - (cons (cons _%L51014%_ (cons _%L51016%_ '())) - (foldr (lambda (_%g5103551038%_ _%g5103651041%_) - (cons _%g5103551038%_ _%g5103651041%_)) + (cons (cons _%L51050%_ (cons _%L51052%_ '())) + (foldr (lambda (_%g5107151074%_ _%g5107251077%_) + (cons _%g5107151074%_ _%g5107251077%_)) '() - _%L50829%_))) - (let ((_%$e51044%_ + _%L50865%_))) + (let ((_%$e51080%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type50884%_ - _%part50963%_))) - (if _%$e51044%_ - ((lambda (_%slot-type51048%_) - (let ((_%slot-type51051%_ + _%type50920%_ + _%part50999%_))) + (if _%$e51080%_ + ((lambda (_%slot-type51084%_) + (let ((_%slot-type51087%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx50616%_ - _%slot-type51048%_)))) - (_%loop50879%_ - _%rest50961%_ - _%slot-type51051%_ - (cons _%L51014%_ (cons _%L51016%_ '())) + _%stx50652%_ + _%slot-type51084%_)))) + (_%loop50915%_ + _%rest50997%_ + _%slot-type51087%_ + (cons _%L51050%_ (cons _%L51052%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - _%type50884%_ - _%part50963%_) + _%type50920%_ + _%part50999%_) '#f))) - _%$e51044%_) + _%$e51080%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx50616%_ - _%L50831%_ - _%part50963%_))))) + _%stx50652%_ + _%L50867%_ + _%part50999%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5098051008%_ - _%hd5097750998%_) - (_%g5097250987%_ - _%g5097350991%_)))) - (_%g5097250987%_ - _%g5097350991%_)))) - (_%g5097250987%_ _%g5097350991%_))))) - (_%g5097151056%_ - (list (if _%nil-check?50887%_ + _%hd5101651044%_ + _%hd5101351034%_) + (_%g5100851023%_ + _%g5100951027%_)))) + (_%g5100851023%_ + _%g5100951027%_)))) + (_%g5100851023%_ _%g5100951027%_))))) + (_%g5100751092%_ + (list (if _%nil-check?50923%_ (cons 'check-nil! - (cons _%object50885%_ '())) - _%object50885%_) + (cons _%object50921%_ '())) + _%object50921%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx50616%_ - _%type50884%_ - _%part50963%_)))) + _%stx50652%_ + _%type50920%_ + _%part50999%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type50884%_)) - (if (null? _%rest50961%_) - (let* ((_%g5106251077%_ - (lambda (_%g5106351073%_) + _%type50920%_)) + (if (null? _%rest50997%_) + (let* ((_%g5109851113%_ + (lambda (_%g5109951109%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5106351073%_))) - (_%g5106151130%_ - (lambda (_%g5106351081%_) - (if (gx#stx-pair? _%g5106351081%_) - (let ((_%e5106651084%_ + _%g5109951109%_))) + (_%g5109751166%_ + (lambda (_%g5109951117%_) + (if (gx#stx-pair? _%g5109951117%_) + (let ((_%e5110251120%_ (gx#syntax-e - _%g5106351081%_))) - (let ((_%hd5106751088%_ + _%g5109951117%_))) + (let ((_%hd5110351124%_ (let () (declare (not safe)) - (##car _%e5106651084%_))) - (_%tl5106851091%_ + (##car _%e5110251120%_))) + (_%tl5110451127%_ (let () (declare (not safe)) - (##cdr _%e5106651084%_)))) + (##cdr _%e5110251120%_)))) (if (gx#stx-pair? - _%tl5106851091%_) - (let ((_%e5106951094%_ + _%tl5110451127%_) + (let ((_%e5110551130%_ (gx#syntax-e - _%tl5106851091%_))) - (let ((_%hd5107051098%_ + _%tl5110451127%_))) + (let ((_%hd5110651134%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5106951094%_))) - (_%tl5107151101%_ - (let () (declare (not safe)) (##cdr _%e5106951094%_)))) - (if (gx#stx-null? _%tl5107151101%_) - ((lambda (_%L51104%_ _%L51106%_) - (cons _%L51104%_ - (cons _%L51106%_ - (foldr (lambda (_%g5112151124%_ - _%g5112251127%_) - (cons _%g5112151124%_ - _%g5112251127%_)) + (##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%_)) '() - _%L50829%_)))) - _%hd5107051098%_ - _%hd5106751088%_) - (_%g5106251077%_ _%g5106351081%_)))) + _%L50865%_)))) + _%hd5110651134%_ + _%hd5110351124%_) + (_%g5109851113%_ _%g5109951117%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5106251077%_ - _%g5106351081%_)))) - (_%g5106251077%_ - _%g5106351081%_))))) - (_%g5106151130%_ - (list (if _%nil-check?50887%_ + (_%g5109851113%_ + _%g5109951117%_)))) + (_%g5109851113%_ + _%g5109951117%_))))) + (_%g5109751166%_ + (list (if _%nil-check?50923%_ (cons 'check-nil! - (cons _%object50885%_ '())) - _%object50885%_) + (cons _%object50921%_ '())) + _%object50921%_) (gx#stx-identifier - _%L50831%_ - (if _%checked-method?50886%_ '"" '"&") - (let ((__obj83869 _%type50884%_)) + _%L50867%_ + (if _%checked-method?50922%_ '"" '"&") + (let ((__obj83915 _%type50920%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83869 + __obj83915 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83869 + __obj83915 '1 '#f '#f)) (unchecked-slot-ref - __obj83869 + __obj83915 'name))) '"-" - _%part50963%_)))) + _%part50999%_)))) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots" - _%stx50616%_ - _%L50831%_ - _%part50963%_)) + _%stx50652%_ + _%L50867%_ + _%part50999%_)) (gx#raise-syntax-error '#f '"unexpected type" - _%stx50616%_ - _%type50884%_))))))) + _%stx50652%_ + _%type50920%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5088850896%_) - (let ((_%hd5089351140%_ + (if (pair? _%parts5092450932%_) + (let ((_%hd5092951176%_ (let () (declare (not safe)) - (##car _%parts5088850896%_))) - (_%tl5089451143%_ + (##car _%parts5092450932%_))) + (_%tl5093051179%_ (let () (declare (not safe)) - (##cdr _%parts5088850896%_)))) - (let* ((_%part51146%_ - _%hd5089351140%_) - (_%rest51149%_ - _%tl5089451143%_)) - (_%K5089251136%_ - _%rest51149%_ - _%part51146%_))) - (_%else5089050957%_))))) - _%$e50872%_) + (##cdr _%parts5092450932%_)))) + (let* ((_%part51182%_ + _%hd5092951176%_) + (_%rest51185%_ + _%tl5093051179%_)) + (_%K5092851172%_ + _%rest51185%_ + _%part51182%_))) + (_%else5092650993%_))))) + _%$e50908%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50831%_ - (foldr (lambda (_%g5115351156%_ + (cons _%L50867%_ + (foldr (lambda (_%g5118951192%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5115451159%_) - (cons _%g5115351156%_ _%g5115451159%_)) + _%g5119051195%_) + (cons _%g5118951192%_ _%g5119051195%_)) '() - _%L50829%_)))))))) + _%L50865%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g5085150858%_) - (let ((_%hd5085551166%_ + (if (pair? _%g5088750894%_) + (let ((_%hd5089151202%_ (let () (declare (not safe)) - (##car _%g5085150858%_))) - (_%tl5085651169%_ + (##car _%g5088750894%_))) + (_%tl5089251205%_ (let () (declare (not safe)) - (##cdr _%g5085150858%_)))) - (let* ((_%var51172%_ _%hd5085551166%_) - (_%parts51175%_ _%tl5085651169%_)) - (_%K5085451162%_ - _%parts51175%_ - _%var51172%_))) - (_%E5085350864%_))) + (##cdr _%g5088750894%_)))) + (let* ((_%var51208%_ _%hd5089151202%_) + (_%parts51211%_ _%tl5089251205%_)) + (_%K5089051198%_ + _%parts51211%_ + _%var51208%_))) + (_%E5088950900%_))) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50831%_ - (foldr (lambda (_%g5117751180%_ - _%g5117851183%_) - (cons _%g5117751180%_ - _%g5117851183%_)) + (cons _%L50867%_ + (foldr (lambda (_%g5121351216%_ + _%g5121451219%_) + (cons _%g5121351216%_ + _%g5121451219%_)) '() - _%L50829%_)))))) - (_%__kont7942379424%_ - (lambda (_%L50728%_) + _%L50865%_)))))) + (_%__kont7946979470%_ + (lambda (_%L50764%_) (cons (gx#datum->syntax '#f '%%app) - (foldr (lambda (_%g5074350746%_ _%g5074450749%_) - (cons _%g5074350746%_ _%g5074450749%_)) + (foldr (lambda (_%g5077950782%_ _%g5078050785%_) + (cons _%g5077950782%_ _%g5078050785%_)) '() - _%L50728%_))))) - (let* ((_%__match7949979500%_ - (lambda (_%e5066450688%_ - _%hd5066550692%_ - _%tl5066650695%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (letrec ((_%loop5067050704%_ - (lambda (_%hd5066850708%_ _%arg5067450711%_) - (if (gx#stx-pair? _%hd5066850708%_) - (let ((_%e5067150714%_ - (gx#syntax-e _%hd5066850708%_))) - (let ((_%lp-tl5067350721%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5067150714%_))) - (_%lp-hd5067250718%_ + (##cdr _%e5070750750%_))) + (_%lp-hd5070850754%_ (let () (declare (not safe)) - (##car _%e5067150714%_)))) - (_%loop5067050704%_ - _%lp-tl5067350721%_ - (cons _%lp-hd5067250718%_ - _%arg5067450711%_)))) - (let ((_%arg5067550724%_ - (reverse _%arg5067450711%_))) - (_%__kont7942379424%_ - _%arg5067550724%_)))))) - (_%loop5067050704%_ _%target5066750698%_ '())))) - (_%__match7948579486%_ - (lambda (_%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%e5064550769%_ - _%hd5064650773%_ - _%tl5064750776%_ - _%e5064850779%_ - _%hd5064950783%_ - _%tl5065050786%_ - _%e5065150789%_ - _%hd5065250793%_ - _%tl5065350796%_ - _%__splice7942179422%_ - _%target5065450799%_ - _%tl5065650802%_) - (letrec ((_%loop5065750805%_ - (lambda (_%hd5065550809%_ _%rand5066150812%_) - (if (gx#stx-pair? _%hd5065550809%_) - (let ((_%e5065850815%_ - (gx#syntax-e _%hd5065550809%_))) - (let ((_%lp-tl5066050822%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5065850815%_))) - (_%lp-hd5065950819%_ + (##cdr _%e5069450851%_))) + (_%lp-hd5069550855%_ (let () (declare (not safe)) - (##car _%e5065850815%_)))) - (_%loop5065750805%_ - _%lp-tl5066050822%_ - (cons _%lp-hd5065950819%_ - _%rand5066150812%_)))) - (let ((_%rand5066250825%_ - (reverse _%rand5066150812%_))) - (_%__kont7941979420%_ - _%rand5066250825%_ - _%hd5065250793%_)))))) - (_%loop5065750805%_ _%target5065450799%_ '())))) - (_%__match7945979460%_ - (lambda (_%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%e5064550769%_ - _%hd5064650773%_ - _%tl5064750776%_) - (if (gx#stx-pair? _%hd5064650773%_) - (let ((_%e5064850779%_ - (gx#syntax-e _%hd5064650773%_))) - (let ((_%tl5065050786%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5064850779%_))) - (_%hd5064950783%_ + (##cdr _%e5068450815%_))) + (_%hd5068550819%_ (let () (declare (not safe)) - (##car _%e5064850779%_)))) - (if (gx#identifier? _%hd5064950783%_) + (##car _%e5068450815%_)))) + (if (gx#identifier? _%hd5068550819%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84041_| - _%hd5064950783%_) - (if (gx#stx-pair? _%tl5065050786%_) - (let ((_%e5065150789%_ + |gerbil/core/contract~Using[1]#_g84087_| + _%hd5068550819%_) + (if (gx#stx-pair? _%tl5068650822%_) + (let ((_%e5068750825%_ (gx#syntax-e - _%tl5065050786%_))) - (let ((_%tl5065350796%_ + _%tl5068650822%_))) + (let ((_%tl5068950832%_ (let () (declare (not safe)) - (##cdr _%e5065150789%_))) - (_%hd5065250793%_ + (##cdr _%e5068750825%_))) + (_%hd5068850829%_ (let () (declare (not safe)) - (##car _%e5065150789%_)))) + (##car _%e5068750825%_)))) (if (gx#stx-null? - _%tl5065350796%_) + _%tl5068950832%_) (if (gx#stx-pair/null? - _%tl5064750776%_) - (let ((_%__splice7942179422%_ + _%tl5068350812%_) + (let ((_%__splice7946779468%_ (gx#syntax-split-splice - _%tl5064750776%_ + _%tl5068350812%_ '0))) - (let ((_%tl5065650802%_ + (let ((_%tl5069250838%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7942179422%_ '1))) - (_%target5065450799%_ + (##vector-ref _%__splice7946779468%_ '1))) + (_%target5069050835%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942179422%_ '0)))) - (if (gx#stx-null? _%tl5065650802%_) - (_%__match7948579486%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%e5064550769%_ - _%hd5064650773%_ - _%tl5064750776%_ - _%e5064850779%_ - _%hd5064950783%_ - _%tl5065050786%_ - _%e5065150789%_ - _%hd5065250793%_ - _%tl5065350796%_ - _%__splice7942179422%_ - _%target5065450799%_ - _%tl5065650802%_) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5064450766%_ '0))) - (let ((_%tl5066950701%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5067850795%_ + _%hd5067950799%_ + _%tl5068050802%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5064450766%_ '0))) - (let ((_%tl5066950701%_ + (_%g5065750717%_))))) + (let () (declare (not safe)) (_%g5065750717%_)))))) + (if (gx#stx-pair/null? _%tl5068050802%_) + (let ((_%__splice7947179472%_ + (gx#syntax-split-splice _%tl5068050802%_ '0))) + (let ((_%tl5070550737%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5064450766%_) - (let ((_%__splice7942579426%_ + _%tl5068050802%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5068050802%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5064450766%_) - (let ((_%__splice7942579426%_ + _%tl5068050802%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5068050802%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5070550737%_) + (_%__match7954579546%_ + _%e5067850795%_ + _%hd5067950799%_ + _%tl5068050802%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ + (_%g5065750717%_)))) + (if (gx#stx-pair/null? _%tl5068050802%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5068050802%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5070550737%_) + (_%__match7954579546%_ + _%e5067850795%_ + _%hd5067950799%_ + _%tl5068050802%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ + (_%g5065750717%_)))) + (if (gx#stx-pair/null? _%tl5068050802%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5068050802%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5067850795%_ + _%hd5067950799%_ + _%tl5068050802%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ + (_%g5065750717%_)))))) + (if (gx#stx-pair/null? _%tl5068050802%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5068050802%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5067850795%_ + _%hd5067950799%_ + _%tl5068050802%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (_%__match7944779448%_ - (lambda (_%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%e5062851203%_ - _%hd5062951207%_ - _%tl5063051210%_ - _%__splice7941779418%_ - _%target5063151213%_ - _%tl5063351216%_) - (letrec ((_%loop5063451219%_ - (lambda (_%hd5063251223%_ _%rand5063851226%_) - (if (gx#stx-pair? _%hd5063251223%_) - (let ((_%e5063551229%_ - (gx#syntax-e _%hd5063251223%_))) - (let ((_%lp-tl5063751236%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5063551229%_))) - (_%lp-hd5063651233%_ + (##cdr _%e5067151265%_))) + (_%lp-hd5067251269%_ (let () (declare (not safe)) - (##car _%e5063551229%_)))) - (_%loop5063451219%_ - _%lp-tl5063751236%_ - (cons _%lp-hd5063651233%_ - _%rand5063851226%_)))) - (let ((_%rand5063951239%_ - (reverse _%rand5063851226%_))) - (let ((_%L51243%_ _%rand5063951239%_) - (_%L51245%_ _%hd5062951207%_)) - (if (gx#identifier? _%L51245%_) - (_%__kont7941579416%_ - _%L51243%_ - _%L51245%_) - (_%__match7945979460%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%e5062851203%_ - _%hd5062951207%_ - _%tl5063051210%_)))))))) - (_%loop5063451219%_ _%target5063151213%_ '()))))) - (if (gx#stx-pair? _%__stx7941279413%_) - (let ((_%e5062551193%_ (gx#syntax-e _%__stx7941279413%_))) - (let ((_%tl5062751200%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5062551193%_))) - (_%hd5062651197%_ + (##cdr _%e5066151229%_))) + (_%hd5066251233%_ (let () (declare (not safe)) - (##car _%e5062551193%_)))) - (if (gx#stx-pair? _%tl5062751200%_) - (let ((_%e5062851203%_ - (gx#syntax-e _%tl5062751200%_))) - (let ((_%tl5063051210%_ + (##car _%e5066151229%_)))) + (if (gx#stx-pair? _%tl5066351236%_) + (let ((_%e5066451239%_ + (gx#syntax-e _%tl5066351236%_))) + (let ((_%tl5066651246%_ (let () (declare (not safe)) - (##cdr _%e5062851203%_))) - (_%hd5062951207%_ + (##cdr _%e5066451239%_))) + (_%hd5066551243%_ (let () (declare (not safe)) - (##car _%e5062851203%_)))) - (if (gx#stx-pair/null? _%tl5063051210%_) - (let ((_%__splice7941779418%_ + (##car _%e5066451239%_)))) + (if (gx#stx-pair/null? _%tl5066651246%_) + (let ((_%__splice7946379464%_ (gx#syntax-split-splice - _%tl5063051210%_ + _%tl5066651246%_ '0))) - (let ((_%tl5063351216%_ + (let ((_%tl5066951252%_ (let () (declare (not safe)) (##vector-ref - _%__splice7941779418%_ + _%__splice7946379464%_ '1))) - (_%target5063151213%_ + (_%target5066751249%_ (let () (declare (not safe)) (##vector-ref - _%__splice7941779418%_ + _%__splice7946379464%_ '0)))) - (if (gx#stx-null? _%tl5063351216%_) - (_%__match7944779448%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%e5062851203%_ - _%hd5062951207%_ - _%tl5063051210%_ - _%__splice7941779418%_ - _%target5063151213%_ - _%tl5063351216%_) - (if (gx#stx-pair? _%hd5062951207%_) - (let ((_%e5064850779%_ + (if (gx#stx-null? _%tl5066951252%_) + (_%__match7949379494%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%e5066451239%_ + _%hd5066551243%_ + _%tl5066651246%_ + _%__splice7946379464%_ + _%target5066751249%_ + _%tl5066951252%_) + (if (gx#stx-pair? _%hd5066551243%_) + (let ((_%e5068450815%_ (gx#syntax-e - _%hd5062951207%_))) - (let ((_%tl5065050786%_ + _%hd5066551243%_))) + (let ((_%tl5068650822%_ (let () (declare (not safe)) - (##cdr _%e5064850779%_))) - (_%hd5064950783%_ + (##cdr _%e5068450815%_))) + (_%hd5068550819%_ (let () (declare (not safe)) - (##car _%e5064850779%_)))) + (##car _%e5068450815%_)))) (if (gx#identifier? - _%hd5064950783%_) + _%hd5068550819%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84041_| - _%hd5064950783%_) + |gerbil/core/contract~Using[1]#_g84087_| + _%hd5068550819%_) (if (gx#stx-pair? - _%tl5065050786%_) - (let ((_%e5065150789%_ + _%tl5068650822%_) + (let ((_%e5068750825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5065050786%_))) - (let ((_%tl5065350796%_ + (gx#syntax-e _%tl5068650822%_))) + (let ((_%tl5068950832%_ (let () (declare (not safe)) - (##cdr _%e5065150789%_))) - (_%hd5065250793%_ + (##cdr _%e5068750825%_))) + (_%hd5068850829%_ (let () (declare (not safe)) - (##car _%e5065150789%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ + (##car _%e5068750825%_)))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5066351236%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5065750717%_))))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ + (gx#syntax-split-splice _%tl5066351236%_ '0))) + (let ((_%tl5070550737%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5065750717%_))))) + (let () (declare (not safe)) (_%g5065750717%_)))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ + (gx#syntax-split-splice _%tl5066351236%_ '0))) + (let ((_%tl5070550737%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (##vector-ref _%__splice7947179472%_ '0)))) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5065750717%_))))) + (let () (declare (not safe)) (_%g5065750717%_)))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ + (gx#syntax-split-splice _%tl5066351236%_ '0))) + (let ((_%tl5070550737%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5062751200%_) - (let ((_%__splice7942579426%_ + _%tl5066351236%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5066351236%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_))))))) - (if (gx#stx-pair? _%hd5062951207%_) - (let ((_%e5064850779%_ - (gx#syntax-e _%hd5062951207%_))) - (let ((_%tl5065050786%_ + (_%g5065750717%_))))))) + (if (gx#stx-pair? _%hd5066551243%_) + (let ((_%e5068450815%_ + (gx#syntax-e _%hd5066551243%_))) + (let ((_%tl5068650822%_ (let () (declare (not safe)) - (##cdr _%e5064850779%_))) - (_%hd5064950783%_ + (##cdr _%e5068450815%_))) + (_%hd5068550819%_ (let () (declare (not safe)) - (##car _%e5064850779%_)))) - (if (gx#identifier? _%hd5064950783%_) + (##car _%e5068450815%_)))) + (if (gx#identifier? _%hd5068550819%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84041_| - _%hd5064950783%_) + |gerbil/core/contract~Using[1]#_g84087_| + _%hd5068550819%_) (if (gx#stx-pair? - _%tl5065050786%_) - (let ((_%e5065150789%_ + _%tl5068650822%_) + (let ((_%e5068750825%_ (gx#syntax-e - _%tl5065050786%_))) - (let ((_%tl5065350796%_ + _%tl5068650822%_))) + (let ((_%tl5068950832%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5065150789%_))) - (_%hd5065250793%_ - (let () (declare (not safe)) (##car _%e5065150789%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (##vector-ref _%__splice7947179472%_ '0)))) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5065750717%_))))) + (let () (declare (not safe)) (_%g5065750717%_))))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ + (gx#syntax-split-splice _%tl5066351236%_ '0))) + (let ((_%tl5070550737%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5062751200%_) - (let ((_%__splice7942579426%_ + _%tl5066351236%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5066351236%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice7947179472%_ '1))) + (_%target5070350734%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5062751200%_) - (let ((_%__splice7942579426%_ + _%tl5066351236%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5066351236%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ + (_%g5065750717%_)))))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5066351236%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_))))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ + (_%g5065750717%_))))))) + (if (gx#stx-pair/null? _%tl5066351236%_) + (let ((_%__splice7947179472%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5066351236%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5070550737%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '1))) - (_%target5066750698%_ + (_%target5070350734%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5070550737%_) + (_%__match7954579546%_ + _%e5066151229%_ + _%hd5066251233%_ + _%tl5066351236%_ + _%__splice7947179472%_ + _%target5070350734%_ + _%tl5070550737%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5065750717%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (let () (declare (not safe)) (_%g5062150681%_)))))))) + (_%g5065750717%_)))))) + (let () (declare (not safe)) (_%g5065750717%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| - (lambda (_%stx51277%_) - (let* ((_%__stx7950279503%_ _%stx51277%_) - (_%g5128151302%_ + (lambda (_%stx51313%_) + (let* ((_%__stx7954879549%_ _%stx51313%_) + (_%g5131751338%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7950279503%_)))) - (let ((_%__kont7950579506%_ - (lambda (_%L51370%_) - (let* ((_%g5138251389%_ + _%__stx7954879549%_)))) + (let ((_%__kont7955179552%_ + (lambda (_%L51406%_) + (let* ((_%g5141851425%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51277%_ - _%L51370%_)) - (_%E5138451395%_ + _%stx51313%_ + _%L51406%_)) + (_%E5142051431%_ (lambda () (error '"No clause matching" - _%g5138251389%_ + _%g5141851425%_ '([var . parts])) (void))) - (_%K5138551611%_ - (lambda (_%parts51399%_ _%var51401%_) - (let ((_%$e51403%_ + (_%K5142151647%_ + (lambda (_%parts51435%_ _%var51437%_) + (let ((_%$e51439%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51401%_)))) - (if _%$e51403%_ - ((lambda (_%te51407%_) - (let _%loop51410%_ ((_%parts51413%_ - _%parts51399%_) - (_%type51415%_ + _%var51437%_)))) + (if _%$e51439%_ + ((lambda (_%te51443%_) + (let _%loop51446%_ ((_%parts51449%_ + _%parts51435%_) + (_%type51451%_ (##direct-structure-ref - _%te51407%_ + _%te51443%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51416%_ - _%var51401%_) - (_%nil-check?51417%_ + (_%object51452%_ + _%var51437%_) + (_%nil-check?51453%_ '#f)) - (let* ((_%parts5141851426%_ - _%parts51413%_) - (_%else5142051438%_ - (lambda () _%object51416%_)) - (_%K5142251593%_ - (lambda (_%rest51442%_ - _%part51444%_) - (if (and (not _%nil-check?51417%_) - (let ((__tmp84042 + (let* ((_%parts5145451462%_ + _%parts51449%_) + (_%else5145651474%_ + (lambda () _%object51452%_)) + (_%K5145851629%_ + (lambda (_%rest51478%_ + _%part51480%_) + (if (and (not _%nil-check?51453%_) + (let ((__tmp84088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51444%_))) + (symbol->string _%part51480%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84042))) - (let ((_%str51448%_ (symbol->string _%part51444%_))) - (_%loop51410%_ - (cons (let ((__tmp84043 + (##string-prefix? '"?" __tmp84088))) + (let ((_%str51484%_ (symbol->string _%part51480%_))) + (_%loop51446%_ + (cons (let ((__tmp84089 (substring - _%str51448%_ + _%str51484%_ '1 - (string-length _%str51448%_)))) + (string-length _%str51484%_)))) (declare (not safe)) - (##string->symbol __tmp84043)) - _%rest51442%_) - _%type51415%_ - _%object51416%_ + (##string->symbol __tmp84089)) + _%rest51478%_) + _%type51451%_ + _%object51452%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51415%_)) - (let* ((_%g5145351468%_ - (lambda (_%g5145451464%_) + _%type51451%_)) + (let* ((_%g5148951504%_ + (lambda (_%g5149051500%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5145451464%_))) - (_%g5145251585%_ - (lambda (_%g5145451472%_) - (if (gx#stx-pair? _%g5145451472%_) - (let ((_%e5145751475%_ - (gx#syntax-e _%g5145451472%_))) - (let ((_%hd5145851479%_ + _%g5149051500%_))) + (_%g5148851621%_ + (lambda (_%g5149051508%_) + (if (gx#stx-pair? _%g5149051508%_) + (let ((_%e5149351511%_ + (gx#syntax-e _%g5149051508%_))) + (let ((_%hd5149451515%_ (let () (declare (not safe)) - (##car _%e5145751475%_))) - (_%tl5145951482%_ + (##car _%e5149351511%_))) + (_%tl5149551518%_ (let () (declare (not safe)) - (##cdr _%e5145751475%_)))) - (if (gx#stx-pair? _%tl5145951482%_) - (let ((_%e5146051485%_ - (gx#syntax-e _%tl5145951482%_))) - (let ((_%hd5146151489%_ + (##cdr _%e5149351511%_)))) + (if (gx#stx-pair? _%tl5149551518%_) + (let ((_%e5149651521%_ + (gx#syntax-e _%tl5149551518%_))) + (let ((_%hd5149751525%_ (let () (declare (not safe)) - (##car _%e5146051485%_))) - (_%tl5146251492%_ + (##car _%e5149651521%_))) + (_%tl5149851528%_ (let () (declare (not safe)) - (##cdr _%e5146051485%_)))) - (if (gx#stx-null? _%tl5146251492%_) - ((lambda (_%L51495%_ - _%L51497%_) - (if (null? _%rest51442%_) - (let ((_%$e51527%_ + (##cdr _%e5149651521%_)))) + (if (gx#stx-null? _%tl5149851528%_) + ((lambda (_%L51531%_ + _%L51533%_) + (if (null? _%rest51478%_) + (let ((_%$e51563%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51415%_ - _%part51444%_))) - (if _%$e51527%_ - ((lambda (_%slot-type51531%_) - (let* ((_%g5153451542%_ + _%type51451%_ + _%part51480%_))) + (if _%$e51563%_ + ((lambda (_%slot-type51567%_) + (let* ((_%g5157051578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g5153551538%_) + (lambda (_%g5157151574%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5153551538%_))) - (_%g5153351565%_ - (lambda (_%g5153551546%_) - ((lambda (_%L51549%_) + _%g5157151574%_))) + (_%g5156951601%_ + (lambda (_%g5157151582%_) + ((lambda (_%L51585%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L51549%_ '())) - (cons (cons _%L51495%_ - (cons _%L51497%_ + (cons _%L51585%_ '())) + (cons (cons _%L51531%_ + (cons _%L51533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5153551546%_)))) - (_%g5153351565%_ + _%g5157151582%_)))) + (_%g5156951601%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx51277%_ - _%slot-type51531%_))))) - _%$e51527%_) - (if _%nil-check?51417%_ - (cons _%L51495%_ + _%stx51313%_ + _%slot-type51567%_))))) + _%$e51563%_) + (if _%nil-check?51453%_ + (cons _%L51531%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51497%_ '())) + (cons _%L51533%_ '())) '())) - (cons _%L51495%_ (cons _%L51497%_ '()))))) - (let ((_%$e51573%_ + (cons _%L51531%_ (cons _%L51533%_ '()))))) + (let ((_%$e51609%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51415%_ - _%part51444%_))) - (if _%$e51573%_ - ((lambda (_%type51577%_) - (let ((_%type51580%_ + _%type51451%_ + _%part51480%_))) + (if _%$e51609%_ + ((lambda (_%type51613%_) + (let ((_%type51616%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51277%_ - _%type51577%_)))) - (if _%nil-check?51417%_ - (_%loop51410%_ - _%rest51442%_ - _%type51580%_ - (cons _%L51495%_ + _%stx51313%_ + _%type51613%_)))) + (if _%nil-check?51453%_ + (_%loop51446%_ + _%rest51478%_ + _%type51616%_ + (cons _%L51531%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51497%_ '())) + (cons _%L51533%_ '())) '())) '#f) - (_%loop51410%_ - _%rest51442%_ - _%type51580%_ - (cons _%L51495%_ (cons _%L51497%_ '())) + (_%loop51446%_ + _%rest51478%_ + _%type51616%_ + (cons _%L51531%_ (cons _%L51533%_ '())) '#f)))) - _%$e51573%_) + _%$e51609%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51277%_ - _%L51370%_ - _%part51444%_))))) + _%stx51313%_ + _%L51406%_ + _%part51480%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5146151489%_ - _%hd5145851479%_) - (_%g5145351468%_ - _%g5145451472%_)))) - (_%g5145351468%_ _%g5145451472%_)))) - (_%g5145351468%_ _%g5145451472%_))))) - (_%g5145251585%_ - (list (if _%nil-check?51417%_ - (cons 'check-nil! (cons _%object51416%_ '())) - _%object51416%_) + _%hd5149751525%_ + _%hd5149451515%_) + (_%g5148951504%_ + _%g5149051508%_)))) + (_%g5148951504%_ _%g5149051508%_)))) + (_%g5148951504%_ _%g5149051508%_))))) + (_%g5148851621%_ + (list (if _%nil-check?51453%_ + (cons 'check-nil! (cons _%object51452%_ '())) + _%object51452%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51277%_ - _%type51415%_ - _%part51444%_)))) + _%stx51313%_ + _%type51451%_ + _%part51480%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51415%_)) + _%type51451%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51277%_ - _%type51415%_))))))) + _%stx51313%_ + _%type51451%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5141851426%_) - (let ((_%hd5142351597%_ + (if (pair? _%parts5145451462%_) + (let ((_%hd5145951633%_ (let () (declare (not safe)) - (##car _%parts5141851426%_))) - (_%tl5142451600%_ + (##car _%parts5145451462%_))) + (_%tl5146051636%_ (let () (declare (not safe)) - (##cdr _%parts5141851426%_)))) - (let* ((_%part51603%_ - _%hd5142351597%_) - (_%rest51606%_ - _%tl5142451600%_)) - (_%K5142251593%_ - _%rest51606%_ - _%part51603%_))) - (_%else5142051438%_))))) - _%$e51403%_) + (##cdr _%parts5145451462%_)))) + (let* ((_%part51639%_ + _%hd5145951633%_) + (_%rest51642%_ + _%tl5146051636%_)) + (_%K5145851629%_ + _%rest51642%_ + _%part51639%_))) + (_%else5145651474%_))))) + _%$e51439%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51370%_ '()))))))) - (if (pair? _%g5138251389%_) - (let ((_%hd5138651615%_ + (cons _%L51406%_ '()))))))) + (if (pair? _%g5141851425%_) + (let ((_%hd5142251651%_ (let () (declare (not safe)) - (##car _%g5138251389%_))) - (_%tl5138751618%_ + (##car _%g5141851425%_))) + (_%tl5142351654%_ (let () (declare (not safe)) - (##cdr _%g5138251389%_)))) - (let* ((_%var51621%_ _%hd5138651615%_) - (_%parts51624%_ _%tl5138751618%_)) - (_%K5138551611%_ _%parts51624%_ _%var51621%_))) - (_%E5138451395%_))))) - (_%__kont7950779508%_ - (lambda (_%L51329%_) + (##cdr _%g5141851425%_)))) + (let* ((_%var51657%_ _%hd5142251651%_) + (_%parts51660%_ _%tl5142351654%_)) + (_%K5142151647%_ _%parts51660%_ _%var51657%_))) + (_%E5142051431%_))))) + (_%__kont7955379554%_ + (lambda (_%L51365%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51329%_ '()))))) - (let ((_%__match7952379524%_ - (lambda (_%e5128451350%_ - _%hd5128551354%_ - _%tl5128651357%_ - _%e5128751360%_ - _%hd5128851364%_ - _%tl5128951367%_) - (let ((_%L51370%_ _%hd5128851364%_)) + (cons _%L51365%_ '()))))) + (let ((_%__match7956979570%_ + (lambda (_%e5132051386%_ + _%hd5132151390%_ + _%tl5132251393%_ + _%e5132351396%_ + _%hd5132451400%_ + _%tl5132551403%_) + (let ((_%L51406%_ _%hd5132451400%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51370%_) - (_%__kont7950579506%_ _%L51370%_) - (_%__kont7950779508%_ _%hd5128851364%_)))))) - (if (gx#stx-pair? _%__stx7950279503%_) - (let ((_%e5128451350%_ (gx#syntax-e _%__stx7950279503%_))) - (let ((_%tl5128651357%_ + _%L51406%_) + (_%__kont7955179552%_ _%L51406%_) + (_%__kont7955379554%_ _%hd5132451400%_)))))) + (if (gx#stx-pair? _%__stx7954879549%_) + (let ((_%e5132051386%_ (gx#syntax-e _%__stx7954879549%_))) + (let ((_%tl5132251393%_ (let () (declare (not safe)) - (##cdr _%e5128451350%_))) - (_%hd5128551354%_ + (##cdr _%e5132051386%_))) + (_%hd5132151390%_ (let () (declare (not safe)) - (##car _%e5128451350%_)))) - (if (gx#stx-pair? _%tl5128651357%_) - (let ((_%e5128751360%_ - (gx#syntax-e _%tl5128651357%_))) - (let ((_%tl5128951367%_ + (##car _%e5132051386%_)))) + (if (gx#stx-pair? _%tl5132251393%_) + (let ((_%e5132351396%_ + (gx#syntax-e _%tl5132251393%_))) + (let ((_%tl5132551403%_ (let () (declare (not safe)) - (##cdr _%e5128751360%_))) - (_%hd5128851364%_ + (##cdr _%e5132351396%_))) + (_%hd5132451400%_ (let () (declare (not safe)) - (##car _%e5128751360%_)))) - (if (gx#stx-null? _%tl5128951367%_) - (_%__match7952379524%_ - _%e5128451350%_ - _%hd5128551354%_ - _%tl5128651357%_ - _%e5128751360%_ - _%hd5128851364%_ - _%tl5128951367%_) + (##car _%e5132351396%_)))) + (if (gx#stx-null? _%tl5132551403%_) + (_%__match7956979570%_ + _%e5132051386%_ + _%hd5132151390%_ + _%tl5132251393%_ + _%e5132351396%_ + _%hd5132451400%_ + _%tl5132551403%_) (let () (declare (not safe)) - (_%g5128151302%_))))) - (let () (declare (not safe)) (_%g5128151302%_))))) - (let () (declare (not safe)) (_%g5128151302%_)))))))) + (_%g5131751338%_))))) + (let () (declare (not safe)) (_%g5131751338%_))))) + (let () (declare (not safe)) (_%g5131751338%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| - (lambda (_%stx51631%_) - (let* ((_%__stx7954079541%_ _%stx51631%_) - (_%g5163551664%_ + (lambda (_%stx51667%_) + (let* ((_%__stx7958679587%_ _%stx51667%_) + (_%g5167151700%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7954079541%_)))) - (let ((_%__kont7954379544%_ - (lambda (_%L51756%_ _%L51758%_) - (let* ((_%g5177251779%_ + _%__stx7958679587%_)))) + (let ((_%__kont7958979590%_ + (lambda (_%L51792%_ _%L51794%_) + (let* ((_%g5180851815%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51631%_ - _%L51758%_)) - (_%E5177451785%_ + _%stx51667%_ + _%L51794%_)) + (_%E5181051821%_ (lambda () (error '"No clause matching" - _%g5177251779%_ + _%g5180851815%_ '([var . parts])) (void))) - (_%K5177552015%_ - (lambda (_%parts51789%_ _%var51791%_) - (let ((_%$e51793%_ + (_%K5181152051%_ + (lambda (_%parts51825%_ _%var51827%_) + (let ((_%$e51829%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51791%_)))) - (if _%$e51793%_ - ((lambda (_%te51797%_) - (let _%loop51800%_ ((_%parts51803%_ - _%parts51789%_) - (_%type51805%_ + _%var51827%_)))) + (if _%$e51829%_ + ((lambda (_%te51833%_) + (let _%loop51836%_ ((_%parts51839%_ + _%parts51825%_) + (_%type51841%_ (##direct-structure-ref - _%te51797%_ + _%te51833%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51806%_ - _%var51791%_) - (_%checked-mutator?51807%_ + (_%object51842%_ + _%var51827%_) + (_%checked-mutator?51843%_ (##direct-structure-ref - _%te51797%_ + _%te51833%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?51808%_ + (_%nil-check?51844%_ '#f)) - (let* ((_%parts5180951816%_ - _%parts51803%_) - (_%E5181151822%_ + (let* ((_%parts5184551852%_ + _%parts51839%_) + (_%E5184751858%_ (lambda () (error '"No clause matching" - _%parts5180951816%_ + _%parts5184551852%_ '([part . rest])) (void))) - (_%K5181251997%_ - (lambda (_%rest51826%_ - _%part51828%_) - (if (and (not _%nil-check?51808%_) - (let ((__tmp84044 + (_%K5184852033%_ + (lambda (_%rest51862%_ + _%part51864%_) + (if (and (not _%nil-check?51844%_) + (let ((__tmp84090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51828%_))) + (symbol->string _%part51864%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84044))) - (let ((_%str51832%_ (symbol->string _%part51828%_))) - (_%loop51800%_ - (cons (let ((__tmp84045 + (##string-prefix? '"?" __tmp84090))) + (let ((_%str51868%_ (symbol->string _%part51864%_))) + (_%loop51836%_ + (cons (let ((__tmp84091 (substring - _%str51832%_ + _%str51868%_ '1 - (string-length _%str51832%_)))) + (string-length _%str51868%_)))) (declare (not safe)) - (##string->symbol __tmp84045)) - _%rest51826%_) - _%type51805%_ - _%object51806%_ - _%checked-mutator?51807%_ + (##string->symbol __tmp84091)) + _%rest51862%_) + _%type51841%_ + _%object51842%_ + _%checked-mutator?51843%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51805%_)) - (if (null? _%rest51826%_) - (let* ((_%g5183951854%_ - (lambda (_%g5184051850%_) + _%type51841%_)) + (if (null? _%rest51862%_) + (let* ((_%g5187551890%_ + (lambda (_%g5187651886%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5184051850%_))) - (_%g5183851911%_ - (lambda (_%g5184051858%_) - (if (gx#stx-pair? _%g5184051858%_) - (let ((_%e5184351861%_ - (gx#syntax-e _%g5184051858%_))) - (let ((_%hd5184451865%_ + _%g5187651886%_))) + (_%g5187451947%_ + (lambda (_%g5187651894%_) + (if (gx#stx-pair? _%g5187651894%_) + (let ((_%e5187951897%_ + (gx#syntax-e _%g5187651894%_))) + (let ((_%hd5188051901%_ (let () (declare (not safe)) - (##car _%e5184351861%_))) - (_%tl5184551868%_ + (##car _%e5187951897%_))) + (_%tl5188151904%_ (let () (declare (not safe)) - (##cdr _%e5184351861%_)))) - (if (gx#stx-pair? _%tl5184551868%_) - (let ((_%e5184651871%_ + (##cdr _%e5187951897%_)))) + (if (gx#stx-pair? _%tl5188151904%_) + (let ((_%e5188251907%_ (gx#syntax-e - _%tl5184551868%_))) - (let ((_%hd5184751875%_ + _%tl5188151904%_))) + (let ((_%hd5188351911%_ (let () (declare (not safe)) - (##car _%e5184651871%_))) - (_%tl5184851878%_ + (##car _%e5188251907%_))) + (_%tl5188451914%_ (let () (declare (not safe)) - (##cdr _%e5184651871%_)))) + (##cdr _%e5188251907%_)))) (if (gx#stx-null? - _%tl5184851878%_) - ((lambda (_%L51881%_ - _%L51883%_) - (if _%nil-check?51808%_ - (cons _%L51881%_ + _%tl5188451914%_) + ((lambda (_%L51917%_ + _%L51919%_) + (if _%nil-check?51844%_ + (cons _%L51917%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51883%_ '())) - (cons _%L51756%_ '()))) - (cons _%L51881%_ (cons _%L51883%_ (cons _%L51756%_ '()))))) + (cons _%L51919%_ '())) + (cons _%L51792%_ '()))) + (cons _%L51917%_ (cons _%L51919%_ (cons _%L51792%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5184751875%_ - _%hd5184451865%_) - (_%g5183951854%_ - _%g5184051858%_)))) - (_%g5183951854%_ - _%g5184051858%_)))) - (_%g5183951854%_ _%g5184051858%_))))) - (_%g5183851911%_ - (list _%object51806%_ + _%hd5188351911%_ + _%hd5188051901%_) + (_%g5187551890%_ + _%g5187651894%_)))) + (_%g5187551890%_ + _%g5187651894%_)))) + (_%g5187551890%_ _%g5187651894%_))))) + (_%g5187451947%_ + (list _%object51842%_ (|gerbil/core/contract~Using[1]#get-slot-mutator| - _%stx51631%_ - _%type51805%_ - _%part51828%_ - (if _%checked-mutator?51807%_ + _%stx51667%_ + _%type51841%_ + _%part51864%_ + (if _%checked-mutator?51843%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%type51805%_ - _%part51828%_) + _%type51841%_ + _%part51864%_) '#f))))) - (let ((_%$e51915%_ + (let ((_%$e51951%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51805%_ - _%part51828%_))) - (if _%$e51915%_ - ((lambda (_%type51919%_) - (let* ((_%type51922%_ + _%type51841%_ + _%part51864%_))) + (if _%$e51951%_ + ((lambda (_%type51955%_) + (let* ((_%type51958%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51631%_ - _%type51919%_))) - (_%g5192551940%_ - (lambda (_%g5192651936%_) + _%stx51667%_ + _%type51955%_))) + (_%g5196151976%_ + (lambda (_%g5196251972%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5192651936%_))) - (_%g5192451987%_ - (lambda (_%g5192651944%_) - (if (gx#stx-pair? _%g5192651944%_) - (let ((_%e5192951947%_ + _%g5196251972%_))) + (_%g5196052023%_ + (lambda (_%g5196251980%_) + (if (gx#stx-pair? _%g5196251980%_) + (let ((_%e5196551983%_ (gx#syntax-e - _%g5192651944%_))) - (let ((_%hd5193051951%_ + _%g5196251980%_))) + (let ((_%hd5196651987%_ (let () (declare (not safe)) - (##car _%e5192951947%_))) - (_%tl5193151954%_ + (##car _%e5196551983%_))) + (_%tl5196751990%_ (let () (declare (not safe)) - (##cdr _%e5192951947%_)))) + (##cdr _%e5196551983%_)))) (if (gx#stx-pair? - _%tl5193151954%_) - (let ((_%e5193251957%_ + _%tl5196751990%_) + (let ((_%e5196851993%_ (gx#syntax-e - _%tl5193151954%_))) - (let ((_%hd5193351961%_ + _%tl5196751990%_))) + (let ((_%hd5196951997%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5193251957%_))) - (_%tl5193451964%_ - (let () (declare (not safe)) (##cdr _%e5193251957%_)))) - (if (gx#stx-null? _%tl5193451964%_) - ((lambda (_%L51967%_ _%L51969%_) - (_%loop51800%_ - _%rest51826%_ - _%type51922%_ - (cons _%L51967%_ (cons _%L51969%_ '())) + (##car _%e5196851993%_))) + (_%tl5197052000%_ + (let () (declare (not safe)) (##cdr _%e5196851993%_)))) + (if (gx#stx-null? _%tl5197052000%_) + ((lambda (_%L52003%_ _%L52005%_) + (_%loop51836%_ + _%rest51862%_ + _%type51958%_ + (cons _%L52003%_ (cons _%L52005%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - _%type51922%_ - _%part51828%_) + _%type51958%_ + _%part51864%_) '#f)) - _%hd5193351961%_ - _%hd5193051951%_) - (_%g5192551940%_ _%g5192651944%_)))) + _%hd5196951997%_ + _%hd5196651987%_) + (_%g5196151976%_ _%g5196251980%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5192551940%_ - _%g5192651944%_)))) - (_%g5192551940%_ - _%g5192651944%_))))) - (_%g5192451987%_ - (list (if _%nil-check?51808%_ + (_%g5196151976%_ + _%g5196251980%_)))) + (_%g5196151976%_ + _%g5196251980%_))))) + (_%g5196052023%_ + (list (if _%nil-check?51844%_ (cons 'check-nil! - (cons _%object51806%_ '())) - _%object51806%_) + (cons _%object51842%_ '())) + _%object51842%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51631%_ - _%type51922%_ - _%part51828%_))))) - _%$e51915%_) + _%stx51667%_ + _%type51958%_ + _%part51864%_))))) + _%$e51951%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51631%_ - _%L51758%_ - _%part51828%_)))) + _%stx51667%_ + _%L51794%_ + _%part51864%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51805%_)) + _%type51841%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51631%_ - _%type51805%_))))))) + _%stx51667%_ + _%type51841%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5180951816%_) - (let ((_%hd5181352001%_ + (if (pair? _%parts5184551852%_) + (let ((_%hd5184952037%_ (let () (declare (not safe)) - (##car _%parts5180951816%_))) - (_%tl5181452004%_ + (##car _%parts5184551852%_))) + (_%tl5185052040%_ (let () (declare (not safe)) - (##cdr _%parts5180951816%_)))) - (let* ((_%part52007%_ - _%hd5181352001%_) - (_%rest52010%_ - _%tl5181452004%_)) - (_%K5181251997%_ - _%rest52010%_ - _%part52007%_))) - (_%E5181151822%_))))) - _%$e51793%_) + (##cdr _%parts5184551852%_)))) + (let* ((_%part52043%_ + _%hd5184952037%_) + (_%rest52046%_ + _%tl5185052040%_)) + (_%K5184852033%_ + _%rest52046%_ + _%part52043%_))) + (_%E5184751858%_))))) + _%$e51829%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| - _%stx51631%_))))))) - (if (pair? _%g5177251779%_) - (let ((_%hd5177652019%_ + _%stx51667%_))))))) + (if (pair? _%g5180851815%_) + (let ((_%hd5181252055%_ (let () (declare (not safe)) - (##car _%g5177251779%_))) - (_%tl5177752022%_ + (##car _%g5180851815%_))) + (_%tl5181352058%_ (let () (declare (not safe)) - (##cdr _%g5177251779%_)))) - (let* ((_%var52025%_ _%hd5177652019%_) - (_%parts52028%_ _%tl5177752022%_)) - (_%K5177552015%_ _%parts52028%_ _%var52025%_))) - (_%E5177451785%_))))) - (_%__kont7954579546%_ - (lambda (_%L51701%_ _%L51703%_) + (##cdr _%g5180851815%_)))) + (let* ((_%var52061%_ _%hd5181252055%_) + (_%parts52064%_ _%tl5181352058%_)) + (_%K5181152051%_ _%parts52064%_ _%var52061%_))) + (_%E5181051821%_))))) + (_%__kont7959179592%_ + (lambda (_%L51737%_ _%L51739%_) (let () (declare (not safe)) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx51631%_))))) - (let ((_%__match7956779568%_ - (lambda (_%e5163951726%_ - _%hd5164051730%_ - _%tl5164151733%_ - _%e5164251736%_ - _%hd5164351740%_ - _%tl5164451743%_ - _%e5164551746%_ - _%hd5164651750%_ - _%tl5164751753%_) - (let ((_%L51756%_ _%hd5164651750%_) - (_%L51758%_ _%hd5164351740%_)) + (|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%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51758%_) - (_%__kont7954379544%_ _%L51756%_ _%L51758%_) - (_%__kont7954579546%_ - _%hd5164651750%_ - _%hd5164351740%_)))))) - (if (gx#stx-pair? _%__stx7954079541%_) - (let ((_%e5163951726%_ (gx#syntax-e _%__stx7954079541%_))) - (let ((_%tl5164151733%_ + _%L51794%_) + (_%__kont7958979590%_ _%L51792%_ _%L51794%_) + (_%__kont7959179592%_ + _%hd5168251786%_ + _%hd5167951776%_)))))) + (if (gx#stx-pair? _%__stx7958679587%_) + (let ((_%e5167551762%_ (gx#syntax-e _%__stx7958679587%_))) + (let ((_%tl5167751769%_ (let () (declare (not safe)) - (##cdr _%e5163951726%_))) - (_%hd5164051730%_ + (##cdr _%e5167551762%_))) + (_%hd5167651766%_ (let () (declare (not safe)) - (##car _%e5163951726%_)))) - (if (gx#stx-pair? _%tl5164151733%_) - (let ((_%e5164251736%_ - (gx#syntax-e _%tl5164151733%_))) - (let ((_%tl5164451743%_ + (##car _%e5167551762%_)))) + (if (gx#stx-pair? _%tl5167751769%_) + (let ((_%e5167851772%_ + (gx#syntax-e _%tl5167751769%_))) + (let ((_%tl5168051779%_ (let () (declare (not safe)) - (##cdr _%e5164251736%_))) - (_%hd5164351740%_ + (##cdr _%e5167851772%_))) + (_%hd5167951776%_ (let () (declare (not safe)) - (##car _%e5164251736%_)))) - (if (gx#stx-pair? _%tl5164451743%_) - (let ((_%e5164551746%_ - (gx#syntax-e _%tl5164451743%_))) - (let ((_%tl5164751753%_ + (##car _%e5167851772%_)))) + (if (gx#stx-pair? _%tl5168051779%_) + (let ((_%e5168151782%_ + (gx#syntax-e _%tl5168051779%_))) + (let ((_%tl5168351789%_ (let () (declare (not safe)) - (##cdr _%e5164551746%_))) - (_%hd5164651750%_ + (##cdr _%e5168151782%_))) + (_%hd5168251786%_ (let () (declare (not safe)) - (##car _%e5164551746%_)))) - (if (gx#stx-null? _%tl5164751753%_) - (_%__match7956779568%_ - _%e5163951726%_ - _%hd5164051730%_ - _%tl5164151733%_ - _%e5164251736%_ - _%hd5164351740%_ - _%tl5164451743%_ - _%e5164551746%_ - _%hd5164651750%_ - _%tl5164751753%_) + (##car _%e5168151782%_)))) + (if (gx#stx-null? _%tl5168351789%_) + (_%__match7961379614%_ + _%e5167551762%_ + _%hd5167651766%_ + _%tl5167751769%_ + _%e5167851772%_ + _%hd5167951776%_ + _%tl5168051779%_ + _%e5168151782%_ + _%hd5168251786%_ + _%tl5168351789%_) (let () (declare (not safe)) - (_%g5163551664%_))))) + (_%g5167151700%_))))) (let () (declare (not safe)) - (_%g5163551664%_))))) - (let () (declare (not safe)) (_%g5163551664%_))))) - (let () (declare (not safe)) (_%g5163551664%_)))))))))) + (_%g5167151700%_))))) + (let () (declare (not safe)) (_%g5167151700%_))))) + (let () (declare (not safe)) (_%g5167151700%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~7.scm b/src/bootstrap/gerbil/core/contract~7.scm index 67760e0bb..69f82adb7 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 (_%$stx52036%_) - (let* ((_%g5204052054%_ - (lambda (_%g5204152050%_) + (lambda (_%$stx52072%_) + (let* ((_%g5207652090%_ + (lambda (_%g5207752086%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5204152050%_))) - (_%g5203952096%_ - (lambda (_%g5204152058%_) - (if (gx#stx-pair? _%g5204152058%_) - (let ((_%e5204352061%_ (gx#syntax-e _%g5204152058%_))) - (let ((_%hd5204452065%_ + _%g5207752086%_))) + (_%g5207552132%_ + (lambda (_%g5207752094%_) + (if (gx#stx-pair? _%g5207752094%_) + (let ((_%e5207952097%_ (gx#syntax-e _%g5207752094%_))) + (let ((_%hd5208052101%_ (let () (declare (not safe)) - (##car _%e5204352061%_))) - (_%tl5204552068%_ + (##car _%e5207952097%_))) + (_%tl5208152104%_ (let () (declare (not safe)) - (##cdr _%e5204352061%_)))) - (if (gx#stx-pair? _%tl5204552068%_) - (let ((_%e5204652071%_ - (gx#syntax-e _%tl5204552068%_))) - (let ((_%hd5204752075%_ + (##cdr _%e5207952097%_)))) + (if (gx#stx-pair? _%tl5208152104%_) + (let ((_%e5208252107%_ + (gx#syntax-e _%tl5208152104%_))) + (let ((_%hd5208352111%_ (let () (declare (not safe)) - (##car _%e5204652071%_))) - (_%tl5204852078%_ + (##car _%e5208252107%_))) + (_%tl5208452114%_ (let () (declare (not safe)) - (##cdr _%e5204652071%_)))) - (if (gx#stx-null? _%tl5204852078%_) - ((lambda (_%L52081%_) + (##cdr _%e5208252107%_)))) + (if (gx#stx-null? _%tl5208452114%_) + ((lambda (_%L52117%_) (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f @@ -40,60 +40,60 @@ (cons (gx#datum->syntax '#f 'not) - (cons _%L52081%_ + (cons _%L52117%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd5204752075%_) - (_%g5204052054%_ _%g5204152058%_)))) - (_%g5204052054%_ _%g5204152058%_)))) - (_%g5204052054%_ _%g5204152058%_))))) - (_%g5203952096%_ _%$stx52036%_)))) + _%hd5208352111%_) + (_%g5207652090%_ _%g5207752094%_)))) + (_%g5207652090%_ _%g5207752094%_)))) + (_%g5207652090%_ _%g5207752094%_))))) + (_%g5207552132%_ _%$stx52072%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range?| - (lambda (_%$stx52100%_) - (let* ((_%g5210452122%_ - (lambda (_%g5210552118%_) + (lambda (_%$stx52136%_) + (let* ((_%g5214052158%_ + (lambda (_%g5214152154%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5210552118%_))) - (_%g5210352177%_ - (lambda (_%g5210552126%_) - (if (gx#stx-pair? _%g5210552126%_) - (let ((_%e5210852129%_ (gx#syntax-e _%g5210552126%_))) - (let ((_%hd5210952133%_ + _%g5214152154%_))) + (_%g5213952213%_ + (lambda (_%g5214152162%_) + (if (gx#stx-pair? _%g5214152162%_) + (let ((_%e5214452165%_ (gx#syntax-e _%g5214152162%_))) + (let ((_%hd5214552169%_ (let () (declare (not safe)) - (##car _%e5210852129%_))) - (_%tl5211052136%_ + (##car _%e5214452165%_))) + (_%tl5214652172%_ (let () (declare (not safe)) - (##cdr _%e5210852129%_)))) - (if (gx#stx-pair? _%tl5211052136%_) - (let ((_%e5211152139%_ - (gx#syntax-e _%tl5211052136%_))) - (let ((_%hd5211252143%_ + (##cdr _%e5214452165%_)))) + (if (gx#stx-pair? _%tl5214652172%_) + (let ((_%e5214752175%_ + (gx#syntax-e _%tl5214652172%_))) + (let ((_%hd5214852179%_ (let () (declare (not safe)) - (##car _%e5211152139%_))) - (_%tl5211352146%_ + (##car _%e5214752175%_))) + (_%tl5214952182%_ (let () (declare (not safe)) - (##cdr _%e5211152139%_)))) - (if (gx#stx-pair? _%tl5211352146%_) - (let ((_%e5211452149%_ - (gx#syntax-e _%tl5211352146%_))) - (let ((_%hd5211552153%_ + (##cdr _%e5214752175%_)))) + (if (gx#stx-pair? _%tl5214952182%_) + (let ((_%e5215052185%_ + (gx#syntax-e _%tl5214952182%_))) + (let ((_%hd5215152189%_ (let () (declare (not safe)) - (##car _%e5211452149%_))) - (_%tl5211652156%_ + (##car _%e5215052185%_))) + (_%tl5215252192%_ (let () (declare (not safe)) - (##cdr _%e5211452149%_)))) - (if (gx#stx-null? _%tl5211652156%_) - ((lambda (_%L52159%_ _%L52161%_) + (##cdr _%e5215052185%_)))) + (if (gx#stx-null? _%tl5215252192%_) + ((lambda (_%L52195%_ _%L52197%_) (cons (gx#datum->syntax '#f 'lambda) @@ -110,72 +110,72 @@ (cons (gx#datum->syntax '#f 'o) - (cons _%L52161%_ '()))) + (cons _%L52197%_ '()))) (cons (cons (gx#datum->syntax '#f 'fx<) (cons (gx#datum->syntax '#f 'o) - (cons _%L52159%_ + (cons _%L52195%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5211552153%_ - _%hd5211252143%_) - (_%g5210452122%_ - _%g5210552126%_)))) - (_%g5210452122%_ _%g5210552126%_)))) - (_%g5210452122%_ _%g5210552126%_)))) - (_%g5210452122%_ _%g5210552126%_))))) - (_%g5210352177%_ _%$stx52100%_)))) + _%hd5215152189%_ + _%hd5214852179%_) + (_%g5214052158%_ + _%g5214152162%_)))) + (_%g5214052158%_ _%g5214152162%_)))) + (_%g5214052158%_ _%g5214152162%_)))) + (_%g5214052158%_ _%g5214152162%_))))) + (_%g5213952213%_ _%$stx52136%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?| - (lambda (_%$stx52181%_) - (let* ((_%g5218552203%_ - (lambda (_%g5218652199%_) + (lambda (_%$stx52217%_) + (let* ((_%g5222152239%_ + (lambda (_%g5222252235%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5218652199%_))) - (_%g5218452258%_ - (lambda (_%g5218652207%_) - (if (gx#stx-pair? _%g5218652207%_) - (let ((_%e5218952210%_ (gx#syntax-e _%g5218652207%_))) - (let ((_%hd5219052214%_ + _%g5222252235%_))) + (_%g5222052294%_ + (lambda (_%g5222252243%_) + (if (gx#stx-pair? _%g5222252243%_) + (let ((_%e5222552246%_ (gx#syntax-e _%g5222252243%_))) + (let ((_%hd5222652250%_ (let () (declare (not safe)) - (##car _%e5218952210%_))) - (_%tl5219152217%_ + (##car _%e5222552246%_))) + (_%tl5222752253%_ (let () (declare (not safe)) - (##cdr _%e5218952210%_)))) - (if (gx#stx-pair? _%tl5219152217%_) - (let ((_%e5219252220%_ - (gx#syntax-e _%tl5219152217%_))) - (let ((_%hd5219352224%_ + (##cdr _%e5222552246%_)))) + (if (gx#stx-pair? _%tl5222752253%_) + (let ((_%e5222852256%_ + (gx#syntax-e _%tl5222752253%_))) + (let ((_%hd5222952260%_ (let () (declare (not safe)) - (##car _%e5219252220%_))) - (_%tl5219452227%_ + (##car _%e5222852256%_))) + (_%tl5223052263%_ (let () (declare (not safe)) - (##cdr _%e5219252220%_)))) - (if (gx#stx-pair? _%tl5219452227%_) - (let ((_%e5219552230%_ - (gx#syntax-e _%tl5219452227%_))) - (let ((_%hd5219652234%_ + (##cdr _%e5222852256%_)))) + (if (gx#stx-pair? _%tl5223052263%_) + (let ((_%e5223152266%_ + (gx#syntax-e _%tl5223052263%_))) + (let ((_%hd5223252270%_ (let () (declare (not safe)) - (##car _%e5219552230%_))) - (_%tl5219752237%_ + (##car _%e5223152266%_))) + (_%tl5223352273%_ (let () (declare (not safe)) - (##cdr _%e5219552230%_)))) - (if (gx#stx-null? _%tl5219752237%_) - ((lambda (_%L52240%_ _%L52242%_) + (##cdr _%e5223152266%_)))) + (if (gx#stx-null? _%tl5223352273%_) + ((lambda (_%L52276%_ _%L52278%_) (cons (gx#datum->syntax '#f 'lambda) @@ -189,58 +189,58 @@ (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'fx<=) - (cons _%L52242%_ + (cons _%L52278%_ (cons (gx#datum->syntax '#f 'o) - (cons _%L52240%_ + (cons _%L52276%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5219652234%_ - _%hd5219352224%_) - (_%g5218552203%_ - _%g5218652207%_)))) - (_%g5218552203%_ _%g5218652207%_)))) - (_%g5218552203%_ _%g5218652207%_)))) - (_%g5218552203%_ _%g5218652207%_))))) - (_%g5218452258%_ _%$stx52181%_)))) + _%hd5223252270%_ + _%hd5222952260%_) + (_%g5222152239%_ + _%g5222252243%_)))) + (_%g5222152239%_ _%g5222252243%_)))) + (_%g5222152239%_ _%g5222252243%_)))) + (_%g5222152239%_ _%g5222252243%_))))) + (_%g5222052294%_ _%$stx52217%_)))) (define |gerbil/core/contract~ContractRules[:0:]#list-of?| - (lambda (_%$stx52262%_) - (let* ((_%g5226652280%_ - (lambda (_%g5226752276%_) + (lambda (_%$stx52298%_) + (let* ((_%g5230252316%_ + (lambda (_%g5230352312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5226752276%_))) - (_%g5226552321%_ - (lambda (_%g5226752284%_) - (if (gx#stx-pair? _%g5226752284%_) - (let ((_%e5226952287%_ (gx#syntax-e _%g5226752284%_))) - (let ((_%hd5227052291%_ + _%g5230352312%_))) + (_%g5230152357%_ + (lambda (_%g5230352320%_) + (if (gx#stx-pair? _%g5230352320%_) + (let ((_%e5230552323%_ (gx#syntax-e _%g5230352320%_))) + (let ((_%hd5230652327%_ (let () (declare (not safe)) - (##car _%e5226952287%_))) - (_%tl5227152294%_ + (##car _%e5230552323%_))) + (_%tl5230752330%_ (let () (declare (not safe)) - (##cdr _%e5226952287%_)))) - (if (gx#stx-pair? _%tl5227152294%_) - (let ((_%e5227252297%_ - (gx#syntax-e _%tl5227152294%_))) - (let ((_%hd5227352301%_ + (##cdr _%e5230552323%_)))) + (if (gx#stx-pair? _%tl5230752330%_) + (let ((_%e5230852333%_ + (gx#syntax-e _%tl5230752330%_))) + (let ((_%hd5230952337%_ (let () (declare (not safe)) - (##car _%e5227252297%_))) - (_%tl5227452304%_ + (##car _%e5230852333%_))) + (_%tl5231052340%_ (let () (declare (not safe)) - (##cdr _%e5227252297%_)))) - (if (gx#stx-null? _%tl5227452304%_) - ((lambda (_%L52307%_) + (##cdr _%e5230852333%_)))) + (if (gx#stx-null? _%tl5231052340%_) + ((lambda (_%L52343%_) (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 _%L52307%_ + (cons _%L52343%_ (cons (gx#datum->syntax '#f 'o) '()))) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5227352301%_) - (_%g5226652280%_ _%g5226752284%_)))) - (_%g5226652280%_ _%g5226752284%_)))) - (_%g5226652280%_ _%g5226752284%_))))) - (_%g5226552321%_ _%$stx52262%_))))) + _%hd5230952337%_) + (_%g5230252316%_ _%g5230352320%_)))) + (_%g5230252316%_ _%g5230352320%_)))) + (_%g5230252316%_ _%g5230352320%_))))) + (_%g5230152357%_ _%$stx52298%_))))) diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index f7d56d81a..5ee4f042f 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]#_g84047_| + (define |gerbil/core/contract~Interface[1]#_g84093_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84049_| + (define |gerbil/core/contract~Interface[1]#_g84095_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84050_| + (define |gerbil/core/contract~Interface[1]#_g84096_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84051_| + (define |gerbil/core/contract~Interface[1]#_g84097_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84052_| + (define |gerbil/core/contract~Interface[1]#_g84098_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84053_| + (define |gerbil/core/contract~Interface[1]#_g84099_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84055_| + (define |gerbil/core/contract~Interface[1]#_g84101_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84057_| + (define |gerbil/core/contract~Interface[1]#_g84103_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84058_| + (define |gerbil/core/contract~Interface[1]#_g84104_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84059_| + (define |gerbil/core/contract~Interface[1]#_g84105_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84060_| + (define |gerbil/core/contract~Interface[1]#_g84106_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84061_| + (define |gerbil/core/contract~Interface[1]#_g84107_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84062_| + (define |gerbil/core/contract~Interface[1]#_g84108_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84063_| + (define |gerbil/core/contract~Interface[1]#_g84109_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84069_| + (define |gerbil/core/contract~Interface[1]#_g84115_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84070_| + (define |gerbil/core/contract~Interface[1]#_g84116_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84071_| + (define |gerbil/core/contract~Interface[1]#_g84117_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84072_| + (define |gerbil/core/contract~Interface[1]#_g84118_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84073_| + (define |gerbil/core/contract~Interface[1]#_g84119_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84074_| + (define |gerbil/core/contract~Interface[1]#_g84120_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84075_| + (define |gerbil/core/contract~Interface[1]#_g84121_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84076_| + (define |gerbil/core/contract~Interface[1]#_g84122_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84077_| + (define |gerbil/core/contract~Interface[1]#_g84123_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84078_| + (define |gerbil/core/contract~Interface[1]#_g84124_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84079_| + (define |gerbil/core/contract~Interface[1]#_g84125_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84080_| + (define |gerbil/core/contract~Interface[1]#_g84126_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84081_| + (define |gerbil/core/contract~Interface[1]#_g84127_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84082_| + (define |gerbil/core/contract~Interface[1]#_g84128_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84083_| + (define |gerbil/core/contract~Interface[1]#_g84129_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84084_| + (define |gerbil/core/contract~Interface[1]#_g84130_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84085_| + (define |gerbil/core/contract~Interface[1]#_g84131_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84086_| + (define |gerbil/core/contract~Interface[1]#_g84132_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84088_| + (define |gerbil/core/contract~Interface[1]#_g84134_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84096_| + (define |gerbil/core/contract~Interface[1]#_g84142_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| - (lambda (_%@@keywords60105%_ - _%optionals-allowed?6010160107%_ - _%keywords-allowed?6010260109%_ - _%stx60111%_ - _%args60112%_ - _%return60113%_) - (let* ((_%optionals-allowed?60115%_ - (if (eq? _%optionals-allowed?6010160107%_ absent-value) + (lambda (_%@@keywords60151%_ + _%optionals-allowed?6014760153%_ + _%keywords-allowed?6014860155%_ + _%stx60157%_ + _%args60158%_ + _%return60159%_) + (let* ((_%optionals-allowed?60161%_ + (if (eq? _%optionals-allowed?6014760153%_ absent-value) '#t - _%optionals-allowed?6010160107%_)) - (_%keywords-allowed?60118%_ - (if (eq? _%keywords-allowed?6010260109%_ absent-value) + _%optionals-allowed?6014760153%_)) + (_%keywords-allowed?60164%_ + (if (eq? _%keywords-allowed?6014860155%_ absent-value) '#t - _%keywords-allowed?6010260109%_))) - (if (gx#stx-e _%return60113%_) + _%keywords-allowed?6014860155%_))) + (if (gx#stx-e _%return60159%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx60111%_ - _%return60113%_) + _%stx60157%_ + _%return60159%_) '#!void) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f - _%optionals-allowed?60115%_ - _%keywords-allowed?60118%_ - _%stx60111%_ - _%args60112%_)))) + _%optionals-allowed?60161%_ + _%keywords-allowed?60164%_ + _%stx60157%_ + _%args60158%_)))) (define |gerbil/core/contract~Interface[1]#check-signature!__@| - (lambda (_%@@keywords60125%_ . _%args60127%_) + (lambda (_%@@keywords60171%_ . _%args60173%_) (apply |gerbil/core/contract~Interface[1]#check-signature!__%| - _%@@keywords60125%_ + _%@@keywords60171%_ (symbolic-table-ref - _%@@keywords60125%_ + _%@@keywords60171%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60125%_ 'keywords: absent-value) - _%args60127%_))) + (symbolic-table-ref _%@@keywords60171%_ 'keywords: absent-value) + _%args60173%_))) (define |gerbil/core/contract~Interface[1]#check-signature!| - (lambda _%args6010360134%_ + (lambda _%args6014960180%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature!__@| - _%args6010360134%_))) + _%args6014960180%_))) (define |gerbil/core/contract~Interface[1]#check-valid-type!| - (lambda (_%stx60077%_ _%id60079%_) - (let* ((_%info60081%_ (gx#syntax-local-value _%id60079%_ false)) - (_%$e60092%_ - (let ((_%$e60084%_ + (lambda (_%stx60123%_ _%id60125%_) + (let* ((_%info60127%_ (gx#syntax-local-value _%id60125%_ false)) + (_%$e60138%_ + (let ((_%$e60130%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info60081%_)))) - (if _%$e60084%_ - _%$e60084%_ - (let ((_%$e60088%_ + _%info60127%_)))) + (if _%$e60130%_ + _%$e60130%_ + (let ((_%$e60134%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info60081%_)))) - (if _%$e60088%_ - _%$e60088%_ + _%info60127%_)))) + (if _%$e60134%_ + _%$e60134%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%info60081%_)))))))) - (if _%$e60092%_ - _%$e60092%_ - (if (not _%info60081%_) + _%info60127%_)))))))) + (if _%$e60138%_ + _%$e60138%_ + (if (not _%info60127%_) (gx#raise-syntax-error '#f '"invalid signature; unknown type" - _%stx60077%_ - _%id60079%_) + _%stx60123%_ + _%id60125%_) (gx#raise-syntax-error '#f '"invalid signature; not a a class type or interface" - _%stx60077%_ - _%id60079%_ - _%info60081%_)))))) + _%stx60123%_ + _%id60125%_ + _%info60127%_)))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (lambda (_%@@keywords59312%_ - _%optionals-allowed?5930859314%_ - _%keywords-allowed?5930959316%_ - _%stx59318%_ - _%signature59319%_) - (let* ((_%optionals-allowed?59321%_ - (if (eq? _%optionals-allowed?5930859314%_ absent-value) + (lambda (_%@@keywords59358%_ + _%optionals-allowed?5935459360%_ + _%keywords-allowed?5935559362%_ + _%stx59364%_ + _%signature59365%_) + (let* ((_%optionals-allowed?59367%_ + (if (eq? _%optionals-allowed?5935459360%_ absent-value) '#t - _%optionals-allowed?5930859314%_)) - (_%keywords-allowed?59324%_ - (if (eq? _%keywords-allowed?5930959316%_ absent-value) + _%optionals-allowed?5935459360%_)) + (_%keywords-allowed?59370%_ + (if (eq? _%keywords-allowed?5935559362%_ absent-value) '#t - _%keywords-allowed?5930959316%_))) - (let _%lp59327%_ ((_%rest59330%_ _%signature59319%_) - (_%have-optional?59332%_ '#f) - (_%ids59333%_ '()) - (_%kws59334%_ '())) - (let* ((_%__stx7966679667%_ _%rest59330%_) - (_%g5934459414%_ + _%keywords-allowed?5935559362%_))) + (let _%lp59373%_ ((_%rest59376%_ _%signature59365%_) + (_%have-optional?59378%_ '#f) + (_%ids59379%_ '()) + (_%kws59380%_ '())) + (let* ((_%__stx7971279713%_ _%rest59376%_) + (_%g5939059460%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7966679667%_)))) - (let ((_%__kont7966979670%_ - (lambda (_%L60030%_ _%L60032%_) - (if _%have-optional?59332%_ + _%__stx7971279713%_)))) + (let ((_%__kont7971579716%_ + (lambda (_%L60076%_ _%L60078%_) + (if _%have-optional?59378%_ (gx#raise-syntax-error '#f '"invalid signature; required argument after optionals" - _%stx59318%_ - _%signature59319%_ - _%L60032%_) - (if (null? _%kws59334%_) - (if (find (lambda (_%g6004660048%_) + _%stx59364%_ + _%signature59365%_ + _%L60078%_) + (if (null? _%kws59380%_) + (if (find (lambda (_%g6009260094%_) (gx#bound-identifier=? - _%g6004660048%_ - _%L60032%_)) - _%ids59333%_) + _%g6009260094%_ + _%L60078%_)) + _%ids59379%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L60032%_) - (_%lp59327%_ - _%L60030%_ - _%have-optional?59332%_ - (cons _%L60032%_ _%ids59333%_) - _%kws59334%_)) + _%stx59364%_ + _%signature59365%_ + _%L60078%_) + (_%lp59373%_ + _%L60076%_ + _%have-optional?59378%_ + (cons _%L60078%_ _%ids59379%_) + _%kws59380%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7967179672%_ - (lambda (_%L59983%_ _%L59985%_) - (if (not _%optionals-allowed?59321%_) + (_%__kont7971779718%_ + (lambda (_%L60029%_ _%L60031%_) + (if (not _%optionals-allowed?59367%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59318%_ - _%signature59319%_) - (if (null? _%kws59334%_) - (if (find (lambda (_%g6000360005%_) + _%stx59364%_ + _%signature59365%_) + (if (null? _%kws59380%_) + (if (find (lambda (_%g6004960051%_) (gx#bound-identifier=? - _%g6000360005%_ - _%L59985%_)) - _%ids59333%_) + _%g6004960051%_ + _%L60031%_)) + _%ids59379%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59985%_) - (_%lp59327%_ - _%L59983%_ + _%stx59364%_ + _%signature59365%_ + _%L60031%_) + (_%lp59373%_ + _%L60029%_ '#t - (cons _%L59985%_ _%ids59333%_) - _%kws59334%_)) + (cons _%L60031%_ _%ids59379%_) + _%kws59380%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7967379674%_ - (lambda (_%L59695%_ _%L59697%_ _%L59698%_) - (if (not _%optionals-allowed?59321%_) - (let* ((_%__stx7959079591%_ _%L59697%_) - (_%g5971559736%_ + (_%__kont7971979720%_ + (lambda (_%L59741%_ _%L59743%_ _%L59744%_) + (if (not _%optionals-allowed?59367%_) + (let* ((_%__stx7963679637%_ _%L59743%_) + (_%g5976159782%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7959079591%_)))) - (let ((_%__kont7959379594%_ - (lambda (_%L59800%_) + _%__stx7963679637%_)))) + (let ((_%__kont7963979640%_ + (lambda (_%L59846%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59318%_ - _%signature59319%_))) - (_%__kont7959779598%_ (lambda () (void)))) - (let ((_%__match7962579626%_ - (lambda (_%__splice7959579596%_ - _%target5971859754%_ - _%tl5972059757%_ - _%e5972559760%_ - _%hd5972659764%_ - _%tl5972759767%_ - _%e5972859770%_ - _%hd5972959774%_ - _%tl5973059777%_) - (letrec ((_%loop5972159780%_ - (lambda (_%hd5971959784%_) + _%stx59364%_ + _%signature59365%_))) + (_%__kont7964379644%_ (lambda () (void)))) + (let ((_%__match7967179672%_ + (lambda (_%__splice7964179642%_ + _%target5976459800%_ + _%tl5976659803%_ + _%e5977159806%_ + _%hd5977259810%_ + _%tl5977359813%_ + _%e5977459816%_ + _%hd5977559820%_ + _%tl5977659823%_) + (letrec ((_%loop5976759826%_ + (lambda (_%hd5976559830%_) (if (gx#stx-pair? - _%hd5971959784%_) - (let ((_%e5972259788%_ + _%hd5976559830%_) + (let ((_%e5976859834%_ (gx#syntax-e - _%hd5971959784%_))) - (let ((_%lp-tl5972459795%_ + _%hd5976559830%_))) + (let ((_%lp-tl5977059841%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e5972259788%_))) - (_%lp-hd5972359792%_ + (let () (declare (not safe)) (##cdr _%e5976859834%_))) + (_%lp-hd5976959838%_ (let () (declare (not safe)) - (##car _%e5972259788%_)))) - (_%loop5972159780%_ _%lp-tl5972459795%_))) - (_%__kont7959379594%_ _%hd5972959774%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5972159780%_ - _%target5971859754%_))))) - (if (gx#stx-pair/null? _%__stx7959079591%_) - (if (let ((__tmp84046 + (##car _%e5976859834%_)))) + (_%loop5976759826%_ _%lp-tl5977059841%_))) + (_%__kont7963979640%_ _%hd5977559820%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5976759826%_ + _%target5976459800%_))))) + (if (gx#stx-pair/null? _%__stx7963679637%_) + (if (let ((__tmp84092 (gx#stx-length - _%__stx7959079591%_))) + _%__stx7963679637%_))) (declare (not safe)) - (##fx>= __tmp84046 '2)) - (let ((_%__splice7959579596%_ + (##fx>= __tmp84092 '2)) + (let ((_%__splice7964179642%_ (gx#syntax-split-splice - _%__stx7959079591%_ + _%__stx7963679637%_ '2))) - (let ((_%tl5972059757%_ + (let ((_%tl5976659803%_ (let () (declare (not safe)) (##vector-ref - _%__splice7959579596%_ + _%__splice7964179642%_ '1))) - (_%target5971859754%_ + (_%target5976459800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7959579596%_ + _%__splice7964179642%_ '0)))) (if (gx#stx-pair? - _%tl5972059757%_) - (let ((_%e5972559760%_ + _%tl5976659803%_) + (let ((_%e5977159806%_ (gx#syntax-e - _%tl5972059757%_))) - (let ((_%tl5972759767%_ + _%tl5976659803%_))) + (let ((_%tl5977359813%_ (let () (declare (not safe)) - (##cdr _%e5972559760%_))) - (_%hd5972659764%_ + (##cdr _%e5977159806%_))) + (_%hd5977259810%_ (let () (declare (not safe)) - (##car _%e5972559760%_)))) + (##car _%e5977159806%_)))) (if (gx#identifier? - _%hd5972659764%_) + _%hd5977259810%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84047_| - _%hd5972659764%_) + |gerbil/core/contract~Interface[1]#_g84093_| + _%hd5977259810%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5972759767%_) - (let ((_%e5972859770%_ - (gx#syntax-e _%tl5972759767%_))) - (let ((_%tl5973059777%_ + _%tl5977359813%_) + (let ((_%e5977459816%_ + (gx#syntax-e _%tl5977359813%_))) + (let ((_%tl5977659823%_ (let () (declare (not safe)) - (##cdr _%e5972859770%_))) - (_%hd5972959774%_ + (##cdr _%e5977459816%_))) + (_%hd5977559820%_ (let () (declare (not safe)) - (##car _%e5972859770%_)))) - (if (gx#stx-null? _%tl5973059777%_) - (_%__match7962579626%_ - _%__splice7959579596%_ - _%target5971859754%_ - _%tl5972059757%_ - _%e5972559760%_ - _%hd5972659764%_ - _%tl5972759767%_ - _%e5972859770%_ - _%hd5972959774%_ - _%tl5973059777%_) - (_%__kont7959779598%_)))) - (_%__kont7959779598%_)) - (_%__kont7959779598%_)) - (_%__kont7959779598%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7959779598%_)))) - (_%__kont7959779598%_)) - (_%__kont7959779598%_))))) - (if (null? _%kws59334%_) - (if _%have-optional?59332%_ - (let* ((_%__stx7962879629%_ _%L59697%_) - (_%g5982959850%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7962879629%_)))) - (let ((_%__kont7963179632%_ - (lambda (_%L59914%_) + _%__stx7967479675%_)))) + (let ((_%__kont7967779678%_ + (lambda (_%L59960%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59318%_ - _%L59697%_) - (_%lp59327%_ - _%L59695%_ + _%stx59364%_ + _%L59743%_) + (_%lp59373%_ + _%L59741%_ '#t - (cons _%L59698%_ _%ids59333%_) - _%kws59334%_))) - (_%__kont7963579636%_ + (cons _%L59744%_ _%ids59379%_) + _%kws59380%_))) + (_%__kont7968179682%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature; expected optional argument" - _%stx59318%_ - _%signature59319%_ - _%L59697%_)))) - (let ((_%__match7966379664%_ - (lambda (_%__splice7963379634%_ - _%target5983259868%_ - _%tl5983459871%_ - _%e5983959874%_ - _%hd5984059878%_ - _%tl5984159881%_ - _%e5984259884%_ - _%hd5984359888%_ - _%tl5984459891%_) - (letrec ((_%loop5983559894%_ - (lambda (_%hd5983359898%_) + _%stx59364%_ + _%signature59365%_ + _%L59743%_)))) + (let ((_%__match7970979710%_ + (lambda (_%__splice7967979680%_ + _%target5987859914%_ + _%tl5988059917%_ + _%e5988559920%_ + _%hd5988659924%_ + _%tl5988759927%_ + _%e5988859930%_ + _%hd5988959934%_ + _%tl5989059937%_) + (letrec ((_%loop5988159940%_ + (lambda (_%hd5987959944%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd5983359898%_) - (let ((_%e5983659902%_ (gx#syntax-e _%hd5983359898%_))) - (let ((_%lp-tl5983859909%_ + _%hd5987959944%_) + (let ((_%e5988259948%_ (gx#syntax-e _%hd5987959944%_))) + (let ((_%lp-tl5988459955%_ (let () (declare (not safe)) - (##cdr _%e5983659902%_))) - (_%lp-hd5983759906%_ + (##cdr _%e5988259948%_))) + (_%lp-hd5988359952%_ (let () (declare (not safe)) - (##car _%e5983659902%_)))) - (_%loop5983559894%_ _%lp-tl5983859909%_))) - (_%__kont7963179632%_ _%hd5984359888%_))))) + (##car _%e5988259948%_)))) + (_%loop5988159940%_ _%lp-tl5988459955%_))) + (_%__kont7967779678%_ _%hd5988959934%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5983559894%_ - _%target5983259868%_))))) + (_%loop5988159940%_ + _%target5987859914%_))))) (if (gx#stx-pair/null? - _%__stx7962879629%_) - (if (let ((__tmp84048 + _%__stx7967479675%_) + (if (let ((__tmp84094 (gx#stx-length - _%__stx7962879629%_))) + _%__stx7967479675%_))) (declare (not safe)) - (##fx>= __tmp84048 '2)) - (let ((_%__splice7963379634%_ + (##fx>= __tmp84094 '2)) + (let ((_%__splice7967979680%_ (gx#syntax-split-splice - _%__stx7962879629%_ + _%__stx7967479675%_ '2))) - (let ((_%tl5983459871%_ + (let ((_%tl5988059917%_ (let () (declare (not safe)) (##vector-ref - _%__splice7963379634%_ + _%__splice7967979680%_ '1))) - (_%target5983259868%_ + (_%target5987859914%_ (let () (declare (not safe)) (##vector-ref - _%__splice7963379634%_ + _%__splice7967979680%_ '0)))) (if (gx#stx-pair? - _%tl5983459871%_) - (let ((_%e5983959874%_ + _%tl5988059917%_) + (let ((_%e5988559920%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5983459871%_))) - (let ((_%tl5984159881%_ + _%tl5988059917%_))) + (let ((_%tl5988759927%_ (let () (declare (not safe)) - (##cdr _%e5983959874%_))) - (_%hd5984059878%_ + (##cdr _%e5988559920%_))) + (_%hd5988659924%_ (let () (declare (not safe)) - (##car _%e5983959874%_)))) - (if (gx#identifier? _%hd5984059878%_) + (##car _%e5988559920%_)))) + (if (gx#identifier? _%hd5988659924%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84049_| - _%hd5984059878%_) - (if (gx#stx-pair? _%tl5984159881%_) - (let ((_%e5984259884%_ - (gx#syntax-e _%tl5984159881%_))) - (let ((_%tl5984459891%_ + |gerbil/core/contract~Interface[1]#_g84095_| + _%hd5988659924%_) + (if (gx#stx-pair? _%tl5988759927%_) + (let ((_%e5988859930%_ + (gx#syntax-e _%tl5988759927%_))) + (let ((_%tl5989059937%_ (let () (declare (not safe)) - (##cdr _%e5984259884%_))) - (_%hd5984359888%_ + (##cdr _%e5988859930%_))) + (_%hd5988959934%_ (let () (declare (not safe)) - (##car _%e5984259884%_)))) - (if (gx#stx-null? _%tl5984459891%_) - (_%__match7966379664%_ - _%__splice7963379634%_ - _%target5983259868%_ - _%tl5983459871%_ - _%e5983959874%_ - _%hd5984059878%_ - _%tl5984159881%_ - _%e5984259884%_ - _%hd5984359888%_ - _%tl5984459891%_) - (_%__kont7963579636%_)))) - (_%__kont7963579636%_)) - (_%__kont7963579636%_)) - (_%__kont7963579636%_)))) - (_%__kont7963579636%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7963579636%_)) - (_%__kont7963579636%_))))) - (if (find (lambda (_%g5993659938%_) + (##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%_) (gx#bound-identifier=? - _%g5993659938%_ - _%L59698%_)) - _%ids59333%_) + _%g5998259984%_ + _%L59744%_)) + _%ids59379%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59698%_) + _%stx59364%_ + _%signature59365%_ + _%L59744%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59318%_ - _%L59697%_) - (_%lp59327%_ - _%L59695%_ - _%have-optional?59332%_ - (cons _%L59698%_ _%ids59333%_) - _%kws59334%_)))) + _%stx59364%_ + _%L59743%_) + (_%lp59373%_ + _%L59741%_ + _%have-optional?59378%_ + (cons _%L59744%_ _%ids59379%_) + _%kws59380%_)))) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7967579676%_ - (lambda (_%L59638%_ _%L59640%_ _%L59641%_) - (if (not _%keywords-allowed?59324%_) + (_%__kont7972179722%_ + (lambda (_%L59684%_ _%L59686%_ _%L59687%_) + (if (not _%keywords-allowed?59370%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59318%_ - _%signature59319%_) - (if (find (lambda (_%g5965659658%_) + _%stx59364%_ + _%signature59365%_) + (if (find (lambda (_%g5970259704%_) (gx#bound-identifier=? - _%g5965659658%_ - _%L59640%_)) - _%ids59333%_) + _%g5970259704%_ + _%L59686%_)) + _%ids59379%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59640%_) - (if (memq (gx#stx-e _%L59641%_) _%kws59334%_) + _%stx59364%_ + _%signature59365%_ + _%L59686%_) + (if (memq (gx#stx-e _%L59687%_) _%kws59380%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59318%_ - _%signature59319%_ - _%L59641%_) - (_%lp59327%_ - _%L59638%_ - _%have-optional?59332%_ - (cons _%L59640%_ _%ids59333%_) - (cons (gx#stx-e _%L59641%_) - _%kws59334%_))))))) - (_%__kont7967779678%_ - (lambda (_%L59577%_ _%L59579%_ _%L59580%_) - (if (not _%keywords-allowed?59324%_) + _%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%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59318%_ - _%signature59319%_) - (if (find (lambda (_%g5959959601%_) + _%stx59364%_ + _%signature59365%_) + (if (find (lambda (_%g5964559647%_) (gx#bound-identifier=? - _%g5959959601%_ - _%L59579%_)) - _%ids59333%_) + _%g5964559647%_ + _%L59625%_)) + _%ids59379%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59579%_) - (if (memq (gx#stx-e _%L59580%_) _%kws59334%_) + _%stx59364%_ + _%signature59365%_ + _%L59625%_) + (if (memq (gx#stx-e _%L59626%_) _%kws59380%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59318%_ - _%signature59319%_ - _%L59580%_) - (_%lp59327%_ - _%L59577%_ - _%have-optional?59332%_ - (cons _%L59579%_ _%ids59333%_) - (cons (gx#stx-e _%L59580%_) - _%kws59334%_))))))) - (_%__kont7967979680%_ - (lambda (_%L59496%_ _%L59498%_ _%L59499%_ _%L59500%_) - (if (not _%keywords-allowed?59324%_) + _%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%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59318%_ - _%signature59319%_) - (if (find (lambda (_%g5951859520%_) + _%stx59364%_ + _%signature59365%_) + (if (find (lambda (_%g5956459566%_) (gx#bound-identifier=? - _%g5951859520%_ - _%L59499%_)) - _%ids59333%_) + _%g5956459566%_ + _%L59545%_)) + _%ids59379%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59499%_) - (if (memq (gx#stx-e _%L59500%_) _%kws59334%_) + _%stx59364%_ + _%signature59365%_ + _%L59545%_) + (if (memq (gx#stx-e _%L59546%_) _%kws59380%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59318%_ - _%signature59319%_ - _%L59500%_) + _%stx59364%_ + _%signature59365%_ + _%L59546%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59318%_ - _%L59498%_) - (_%lp59327%_ - _%L59496%_ - _%have-optional?59332%_ - (cons _%L59499%_ _%ids59333%_) - (cons (gx#stx-e _%L59500%_) - _%kws59334%_)))))))) - (_%__kont7968179682%_ (lambda (_%L59443%_) '#t)) - (_%__kont7968379684%_ (lambda () '#t)) - (_%__kont7968579686%_ + _%stx59364%_ + _%L59544%_) + (_%lp59373%_ + _%L59542%_ + _%have-optional?59378%_ + (cons _%L59545%_ _%ids59379%_) + (cons (gx#stx-e _%L59546%_) + _%kws59380%_)))))))) + (_%__kont7972779728%_ (lambda (_%L59489%_) '#t)) + (_%__kont7972979730%_ (lambda () '#t)) + (_%__kont7973179732%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature" - _%stx59318%_ - _%signature59319%_ - _%rest59330%_)))) - (let* ((_%g5934259436%_ + _%stx59364%_ + _%signature59365%_ + _%rest59376%_)))) + (let* ((_%g5938859482%_ (lambda () - (if (gx#stx-null? _%__stx7966679667%_) - (_%__kont7968379684%_) - (_%__kont7968579686%_)))) - (_%g5934159459%_ + (if (gx#stx-null? _%__stx7971279713%_) + (_%__kont7972979730%_) + (_%__kont7973179732%_)))) + (_%g5938759505%_ (lambda () - (let ((_%L59443%_ _%__stx7966679667%_)) - (if (gx#identifier? _%L59443%_) - (_%__kont7968179682%_ _%L59443%_) + (let ((_%L59489%_ _%__stx7971279713%_)) + (if (gx#identifier? _%L59489%_) + (_%__kont7972779728%_ _%L59489%_) (let () (declare (not safe)) - (_%g5934259436%_)))))) - (_%__match7978179782%_ - (lambda (_%e5939959466%_ - _%hd5940059470%_ - _%tl5940159473%_ - _%e5940259476%_ - _%hd5940359480%_ - _%tl5940459483%_ - _%e5940559486%_ - _%hd5940659490%_ - _%tl5940759493%_) - (let ((_%L59496%_ _%tl5940459483%_) - (_%L59498%_ _%tl5940759493%_) - (_%L59499%_ _%hd5940659490%_) - (_%L59500%_ _%hd5940059470%_)) - (if (and (gx#stx-keyword? _%L59500%_) - (gx#identifier? _%L59499%_) + (_%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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59498%_)) - (_%__kont7967979680%_ - _%L59496%_ - _%L59498%_ - _%L59499%_ - _%L59500%_) + _%L59544%_)) + (_%__kont7972579726%_ + _%L59542%_ + _%L59544%_ + _%L59545%_ + _%L59546%_) (let () (declare (not safe)) - (_%g5934159459%_)))))) - (_%__match7976379764%_ - (lambda (_%e5938359537%_ - _%hd5938459541%_ - _%tl5938559544%_ - _%e5938659547%_ - _%hd5938759551%_ - _%tl5938859554%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_ - _%e5939259567%_ - _%hd5939359571%_ - _%tl5939459574%_) - (let ((_%L59577%_ _%tl5938859554%_) - (_%L59579%_ _%hd5939059561%_) - (_%L59580%_ _%hd5938459541%_)) - (if (and (gx#stx-keyword? _%L59580%_) - (gx#identifier? _%L59579%_)) - (_%__kont7967779678%_ - _%L59577%_ - _%L59579%_ - _%L59580%_) - (_%__match7978179782%_ - _%e5938359537%_ - _%hd5938459541%_ - _%tl5938559544%_ - _%e5938659547%_ - _%hd5938759551%_ - _%tl5938859554%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_))))) - (_%__match7973779738%_ - (lambda (_%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_) - (let ((_%L59638%_ _%tl5937959635%_) - (_%L59640%_ _%hd5937859632%_) - (_%L59641%_ _%hd5937559622%_)) - (if (and (gx#stx-keyword? _%L59641%_) - (gx#identifier? _%L59640%_)) - (_%__kont7967579676%_ - _%L59638%_ - _%L59640%_ - _%L59641%_) - (if (gx#stx-pair? _%hd5937859632%_) - (let ((_%e5938959557%_ - (gx#syntax-e _%hd5937859632%_))) - (let ((_%tl5939159564%_ + (_%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%_ + _%L59686%_ + _%L59687%_) + (if (gx#stx-pair? _%hd5942459678%_) + (let ((_%e5943559603%_ + (gx#syntax-e _%hd5942459678%_))) + (let ((_%tl5943759610%_ (let () (declare (not safe)) - (##cdr _%e5938959557%_))) - (_%hd5939059561%_ + (##cdr _%e5943559603%_))) + (_%hd5943659607%_ (let () (declare (not safe)) - (##car _%e5938959557%_)))) - (if (gx#stx-pair? _%tl5939159564%_) - (let ((_%e5939259567%_ + (##car _%e5943559603%_)))) + (if (gx#stx-pair? _%tl5943759610%_) + (let ((_%e5943859613%_ (gx#syntax-e - _%tl5939159564%_))) - (let ((_%tl5939459574%_ + _%tl5943759610%_))) + (let ((_%tl5944059620%_ (let () (declare (not safe)) - (##cdr _%e5939259567%_))) - (_%hd5939359571%_ + (##cdr _%e5943859613%_))) + (_%hd5943959617%_ (let () (declare (not safe)) - (##car _%e5939259567%_)))) + (##car _%e5943859613%_)))) (if (gx#stx-null? - _%tl5939459574%_) - (_%__match7976379764%_ - _%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_ - _%e5939259567%_ - _%hd5939359571%_ - _%tl5939459574%_) - (_%__match7978179782%_ - _%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_)))) - (_%__match7978179782%_ - _%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_)))) + _%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%_)))) (let () (declare (not safe)) - (_%g5934159459%_))))))) - (_%__match7972579726%_ - (lambda (_%e5936559675%_ - _%hd5936659679%_ - _%tl5936759682%_ - _%e5936859685%_ - _%hd5936959689%_ - _%tl5937059692%_) - (let ((_%L59695%_ _%tl5936759682%_) - (_%L59697%_ _%tl5937059692%_) - (_%L59698%_ _%hd5936959689%_)) - (if (and (gx#identifier? _%L59698%_) + (_%g5938759505%_))))))) + (_%__match7977179772%_ + (lambda (_%e5941159721%_ + _%hd5941259725%_ + _%tl5941359728%_ + _%e5941459731%_ + _%hd5941559735%_ + _%tl5941659738%_) + (let ((_%L59741%_ _%tl5941359728%_) + (_%L59743%_ _%tl5941659738%_) + (_%L59744%_ _%hd5941559735%_)) + (if (and (gx#identifier? _%L59744%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59697%_)) - (_%__kont7967379674%_ - _%L59695%_ - _%L59697%_ - _%L59698%_) - (if (gx#stx-pair? _%tl5936759682%_) - (let ((_%e5937759628%_ - (gx#syntax-e _%tl5936759682%_))) - (let ((_%tl5937959635%_ + _%L59743%_)) + (_%__kont7971979720%_ + _%L59741%_ + _%L59743%_ + _%L59744%_) + (if (gx#stx-pair? _%tl5941359728%_) + (let ((_%e5942359674%_ + (gx#syntax-e _%tl5941359728%_))) + (let ((_%tl5942559681%_ (let () (declare (not safe)) - (##cdr _%e5937759628%_))) - (_%hd5937859632%_ + (##cdr _%e5942359674%_))) + (_%hd5942459678%_ (let () (declare (not safe)) - (##car _%e5937759628%_)))) - (_%__match7973779738%_ - _%e5936559675%_ - _%hd5936659679%_ - _%tl5936759682%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_))) + (##car _%e5942359674%_)))) + (_%__match7978379784%_ + _%e5941159721%_ + _%hd5941259725%_ + _%tl5941359728%_ + _%e5942359674%_ + _%hd5942459678%_ + _%tl5942559681%_))) (let () (declare (not safe)) - (_%g5934159459%_))))))) - (_%__match7971379714%_ - (lambda (_%e5935359953%_ - _%hd5935459957%_ - _%tl5935559960%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_ - _%e5935959973%_ - _%hd5936059977%_ - _%tl5936159980%_) - (let ((_%L59983%_ _%tl5935559960%_) - (_%L59985%_ _%hd5935759967%_)) - (if (gx#identifier? _%L59985%_) - (_%__kont7967179672%_ _%L59983%_ _%L59985%_) - (_%__match7972579726%_ - _%e5935359953%_ - _%hd5935459957%_ - _%tl5935559960%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_))))) - (_%__match7969379694%_ - (lambda (_%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_) - (let ((_%L60030%_ _%tl5935060027%_) - (_%L60032%_ _%hd5934960024%_)) - (if (gx#identifier? _%L60032%_) - (_%__kont7966979670%_ _%L60030%_ _%L60032%_) - (if (gx#stx-pair? _%hd5934960024%_) - (let ((_%e5935659963%_ - (gx#syntax-e _%hd5934960024%_))) - (let ((_%tl5935859970%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5935659963%_))) - (_%hd5935759967%_ + (##cdr _%e5940260009%_))) + (_%hd5940360013%_ (let () (declare (not safe)) - (##car _%e5935659963%_)))) - (if (gx#stx-pair? _%tl5935859970%_) - (let ((_%e5935959973%_ + (##car _%e5940260009%_)))) + (if (gx#stx-pair? _%tl5940460016%_) + (let ((_%e5940560019%_ (gx#syntax-e - _%tl5935859970%_))) - (let ((_%tl5936159980%_ + _%tl5940460016%_))) + (let ((_%tl5940760026%_ (let () (declare (not safe)) - (##cdr _%e5935959973%_))) - (_%hd5936059977%_ + (##cdr _%e5940560019%_))) + (_%hd5940660023%_ (let () (declare (not safe)) - (##car _%e5935959973%_)))) + (##car _%e5940560019%_)))) (if (gx#stx-null? - _%tl5936159980%_) - (_%__match7971379714%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_ - _%e5935959973%_ - _%hd5936059977%_ - _%tl5936159980%_) - (_%__match7972579726%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_)))) - (_%__match7972579726%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_)))) - (if (gx#stx-pair? _%tl5935060027%_) - (let ((_%e5937759628%_ - (gx#syntax-e _%tl5935060027%_))) - (let ((_%tl5937959635%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5937759628%_))) - (_%hd5937859632%_ + (##cdr _%e5942359674%_))) + (_%hd5942459678%_ (let () (declare (not safe)) - (##car _%e5937759628%_)))) - (_%__match7973779738%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_))) + (##car _%e5942359674%_)))) + (_%__match7978379784%_ + _%e5939460066%_ + _%hd5939560070%_ + _%tl5939660073%_ + _%e5942359674%_ + _%hd5942459678%_ + _%tl5942559681%_))) (let () (declare (not safe)) - (_%g5934159459%_))))))))) - (if (gx#stx-pair? _%__stx7966679667%_) - (let ((_%e5934860020%_ - (gx#syntax-e _%__stx7966679667%_))) - (let ((_%tl5935060027%_ + (_%g5938759505%_))))))))) + (if (gx#stx-pair? _%__stx7971279713%_) + (let ((_%e5939460066%_ + (gx#syntax-e _%__stx7971279713%_))) + (let ((_%tl5939660073%_ (let () (declare (not safe)) - (##cdr _%e5934860020%_))) - (_%hd5934960024%_ + (##cdr _%e5939460066%_))) + (_%hd5939560070%_ (let () (declare (not safe)) - (##car _%e5934860020%_)))) - (_%__match7969379694%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_))) - (let () (declare (not safe)) (_%g5934159459%_)))))))))) + (##car _%e5939460066%_)))) + (_%__match7973979740%_ + _%e5939460066%_ + _%hd5939560070%_ + _%tl5939660073%_))) + (let () (declare (not safe)) (_%g5938759505%_)))))))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - (lambda (_%@@keywords60064%_ . _%args60066%_) + (lambda (_%@@keywords60110%_ . _%args60112%_) (apply |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - _%@@keywords60064%_ + _%@@keywords60110%_ (symbolic-table-ref - _%@@keywords60064%_ + _%@@keywords60110%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60064%_ 'keywords: absent-value) - _%args60066%_))) + (symbolic-table-ref _%@@keywords60110%_ 'keywords: absent-value) + _%args60112%_))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!| - (lambda _%args5931060073%_ + (lambda _%args5935660119%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - _%args5931060073%_))) + _%args5935660119%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| - (lambda (_%contract58767%_) - (let* ((_%__stx7978679787%_ _%contract58767%_) - (_%g5877658864%_ + (lambda (_%contract58813%_) + (let* ((_%__stx7983279833%_ _%contract58813%_) + (_%g5882258910%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7978679787%_)))) - (let ((_%__kont7978979790%_ - (lambda (_%L59276%_ _%L59278%_) (gx#identifier? _%L59276%_))) - (_%__kont7979179792%_ - (lambda (_%L59216%_ _%L59218%_ _%L59219%_) - (gx#identifier? _%L59218%_))) - (_%__kont7979379794%_ (lambda (_%L59156%_) '#t)) - (_%__kont7979579796%_ (lambda (_%L59110%_ _%L59112%_) '#t)) - (_%__kont7979779798%_ - (lambda (_%L59030%_ _%L59032%_ _%L59033%_) - (gx#identifier? _%L59030%_))) - (_%__kont7979979800%_ - (lambda (_%L58942%_ _%L58944%_ _%L58945%_ _%L58946%_) - (gx#identifier? _%L58944%_))) - (_%__kont7980179802%_ (lambda () '#f))) - (let* ((_%__match7997579976%_ - (lambda (_%e5884158882%_ - _%hd5884258886%_ - _%tl5884358889%_ - _%e5884458892%_ - _%hd5884558896%_ - _%tl5884658899%_ - _%e5884758902%_ - _%hd5884858906%_ - _%tl5884958909%_ - _%e5885058912%_ - _%hd5885158916%_ - _%tl5885258919%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (let ((_%L58942%_ _%hd5885758936%_) - (_%L58944%_ _%hd5885158916%_) - (_%L58945%_ _%hd5884858906%_) - (_%L58946%_ _%hd5884558896%_)) - (if (and (gx#identifier? _%L58945%_) + _%__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%_) (or (gx#free-identifier=? - _%L58945%_ + _%L58991%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58945%_ + _%L58991%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58945%_ + _%L58991%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58945%_ + _%L58991%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7979979800%_ - _%L58942%_ - _%L58944%_ - _%L58945%_ - _%L58946%_) - (_%__kont7980179802%_))))) - (_%__match7992979930%_ - (lambda (_%e5882558990%_ - _%hd5882658994%_ - _%tl5882758997%_ - _%e5882859000%_ - _%hd5882959004%_ - _%tl5883059007%_ - _%e5883159010%_ - _%hd5883259014%_ - _%tl5883359017%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_) - (let ((_%L59030%_ _%hd5883559024%_) - (_%L59032%_ _%hd5883259014%_) - (_%L59033%_ _%hd5882959004%_)) - (if (and (gx#identifier? _%L59032%_) + (_%__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%_) (or (gx#free-identifier=? - _%L59032%_ + _%L59078%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59032%_ + _%L59078%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59032%_ + _%L59078%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59032%_ + _%L59078%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7979779798%_ - _%L59030%_ - _%L59032%_ - _%L59033%_) - (_%__kont7980179802%_))))) - (_%__match7984779848%_ - (lambda (_%e5878959176%_ - _%hd5879059180%_ - _%tl5879159183%_ - _%e5879259186%_ - _%hd5879359190%_ - _%tl5879459193%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5879859206%_ - _%hd5879959210%_ - _%tl5880059213%_) - (let ((_%L59216%_ _%hd5879959210%_) - (_%L59218%_ _%hd5879359190%_) - (_%L59219%_ _%hd5879059180%_)) - (if (and (gx#identifier? _%L59219%_) + (_%__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%_) (or (gx#free-identifier=? - _%L59219%_ + _%L59265%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59219%_ + _%L59265%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59219%_ + _%L59265%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59219%_ + _%L59265%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7979179792%_ - _%L59216%_ - _%L59218%_ - _%L59219%_) - (if (gx#identifier? _%hd5879059180%_) + (_%__kont7983779838%_ + _%L59262%_ + _%L59264%_ + _%L59265%_) + (if (gx#identifier? _%hd5883659226%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5879059180%_) - (_%__kont7979579796%_ - _%hd5879959210%_ - _%hd5879359190%_) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))))) - (_%__match7981779818%_ - (lambda (_%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_) - (let ((_%L59276%_ _%hd5878459270%_) - (_%L59278%_ _%hd5878159260%_)) - (if (and (gx#identifier? _%L59278%_) + |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%_) (or (gx#free-identifier=? - _%L59278%_ + _%L59324%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59278%_ + _%L59324%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59278%_ + _%L59324%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59278%_ + _%L59324%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7978979790%_ _%L59276%_ _%L59278%_) - (if (gx#identifier? _%hd5878159260%_) + (_%__kont7983579836%_ _%L59322%_ _%L59324%_) + (if (gx#identifier? _%hd5882759306%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) - (_%__kont7979379794%_ _%hd5878459270%_) - (_%__kont7980179802%_)) - (_%__kont7980179802%_))))))) - (if (gx#stx-pair? _%__stx7978679787%_) - (let ((_%e5878059256%_ (gx#syntax-e _%__stx7978679787%_))) - (let ((_%tl5878259263%_ + |gerbil/core/contract~Interface[1]#_g84096_| + _%hd5882759306%_) + (_%__kont7983979840%_ _%hd5883059316%_) + (_%__kont7984779848%_)) + (_%__kont7984779848%_))))))) + (if (gx#stx-pair? _%__stx7983279833%_) + (let ((_%e5882659302%_ (gx#syntax-e _%__stx7983279833%_))) + (let ((_%tl5882859309%_ (let () (declare (not safe)) - (##cdr _%e5878059256%_))) - (_%hd5878159260%_ + (##cdr _%e5882659302%_))) + (_%hd5882759306%_ (let () (declare (not safe)) - (##car _%e5878059256%_)))) - (if (gx#stx-pair? _%tl5878259263%_) - (let ((_%e5878359266%_ - (gx#syntax-e _%tl5878259263%_))) - (let ((_%tl5878559273%_ + (##car _%e5882659302%_)))) + (if (gx#stx-pair? _%tl5882859309%_) + (let ((_%e5882959312%_ + (gx#syntax-e _%tl5882859309%_))) + (let ((_%tl5883159319%_ (let () (declare (not safe)) - (##cdr _%e5878359266%_))) - (_%hd5878459270%_ + (##cdr _%e5882959312%_))) + (_%hd5883059316%_ (let () (declare (not safe)) - (##car _%e5878359266%_)))) - (if (gx#stx-null? _%tl5878559273%_) - (_%__match7981779818%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_) - (if (gx#stx-pair? _%tl5878559273%_) - (let ((_%e5879559196%_ - (gx#syntax-e _%tl5878559273%_))) - (let ((_%tl5879759203%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5879559196%_))) - (_%hd5879659200%_ + (##cdr _%e5884159242%_))) + (_%hd5884259246%_ (let () (declare (not safe)) - (##car _%e5879559196%_)))) - (if (gx#identifier? _%hd5879659200%_) + (##car _%e5884159242%_)))) + (if (gx#identifier? _%hd5884259246%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84051_| - _%hd5879659200%_) + |gerbil/core/contract~Interface[1]#_g84097_| + _%hd5884259246%_) (if (gx#stx-pair? - _%tl5879759203%_) - (let ((_%e5879859206%_ + _%tl5884359249%_) + (let ((_%e5884459252%_ (gx#syntax-e - _%tl5879759203%_))) - (let ((_%tl5880059213%_ + _%tl5884359249%_))) + (let ((_%tl5884659259%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5879859206%_))) - (_%hd5879959210%_ - (let () (declare (not safe)) (##car _%e5879859206%_)))) - (if (gx#stx-null? _%tl5880059213%_) - (_%__match7984779848%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5879859206%_ - _%hd5879959210%_ - _%tl5880059213%_) - (if (gx#identifier? _%hd5878159260%_) + (##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%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) - (if (gx#stx-pair? _%tl5880059213%_) - (let ((_%e5885358922%_ - (gx#syntax-e _%tl5880059213%_))) - (let ((_%tl5885558929%_ + |gerbil/core/contract~Interface[1]#_g84096_| + _%hd5882759306%_) + (if (gx#stx-pair? _%tl5884659259%_) + (let ((_%e5889958968%_ + (gx#syntax-e _%tl5884659259%_))) + (let ((_%tl5890158975%_ (let () (declare (not safe)) - (##cdr _%e5885358922%_))) - (_%hd5885458926%_ + (##cdr _%e5889958968%_))) + (_%hd5890058972%_ (let () (declare (not safe)) - (##car _%e5885358922%_)))) - (if (gx#identifier? _%hd5885458926%_) + (##car _%e5889958968%_)))) + (if (gx#identifier? _%hd5890058972%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84052_| - _%hd5885458926%_) + |gerbil/core/contract~Interface[1]#_g84098_| + _%hd5890058972%_) (if (gx#stx-pair? - _%tl5885558929%_) - (let ((_%e5885658932%_ + _%tl5890158975%_) + (let ((_%e5890258978%_ (gx#syntax-e - _%tl5885558929%_))) - (let ((_%tl5885858939%_ + _%tl5890158975%_))) + (let ((_%tl5890458985%_ (let () (declare (not safe)) - (##cdr _%e5885658932%_))) - (_%hd5885758936%_ + (##cdr _%e5890258978%_))) + (_%hd5890358982%_ (let () (declare (not safe)) - (##car _%e5885658932%_)))) + (##car _%e5890258978%_)))) (if (gx#stx-null? - _%tl5885858939%_) - (_%__match7997579976%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5879859206%_ - _%hd5879959210%_ - _%tl5880059213%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)) + _%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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5878159260%_) + _%hd5882759306%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) + |gerbil/core/contract~Interface[1]#_g84096_| + _%hd5882759306%_) (if (gx#stx-pair? - _%tl5879759203%_) - (let ((_%e5883459020%_ + _%tl5884359249%_) + (let ((_%e5888059066%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5879759203%_))) - (let ((_%tl5883659027%_ + (gx#syntax-e _%tl5884359249%_))) + (let ((_%tl5888259073%_ (let () (declare (not safe)) - (##cdr _%e5883459020%_))) - (_%hd5883559024%_ + (##cdr _%e5888059066%_))) + (_%hd5888159070%_ (let () (declare (not safe)) - (##car _%e5883459020%_)))) - (if (gx#stx-null? _%tl5883659027%_) - (_%__match7992979930%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_) - (if (gx#stx-pair? _%tl5883659027%_) - (let ((_%e5885358922%_ - (gx#syntax-e _%tl5883659027%_))) - (let ((_%tl5885558929%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5885358922%_))) - (_%hd5885458926%_ + (##cdr _%e5889958968%_))) + (_%hd5890058972%_ (let () (declare (not safe)) - (##car _%e5885358922%_)))) - (if (gx#identifier? _%hd5885458926%_) + (##car _%e5889958968%_)))) + (if (gx#identifier? _%hd5890058972%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84052_| - _%hd5885458926%_) + |gerbil/core/contract~Interface[1]#_g84098_| + _%hd5890058972%_) (if (gx#stx-pair? - _%tl5885558929%_) - (let ((_%e5885658932%_ + _%tl5890158975%_) + (let ((_%e5890258978%_ (gx#syntax-e - _%tl5885558929%_))) - (let ((_%tl5885858939%_ + _%tl5890158975%_))) + (let ((_%tl5890458985%_ (let () (declare (not safe)) - (##cdr _%e5885658932%_))) - (_%hd5885758936%_ + (##cdr _%e5890258978%_))) + (_%hd5890358982%_ (let () (declare (not safe)) - (##car _%e5885658932%_)))) + (##car _%e5890258978%_)))) (if (gx#stx-null? - _%tl5885858939%_) - (_%__match7997579976%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_))) + _%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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5878159260%_) + _%hd5882759306%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) + |gerbil/core/contract~Interface[1]#_g84096_| + _%hd5882759306%_) (if (gx#stx-pair? - _%tl5879759203%_) - (let ((_%e5883459020%_ + _%tl5884359249%_) + (let ((_%e5888059066%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5879759203%_))) - (let ((_%tl5883659027%_ + (gx#syntax-e _%tl5884359249%_))) + (let ((_%tl5888259073%_ (let () (declare (not safe)) - (##cdr _%e5883459020%_))) - (_%hd5883559024%_ + (##cdr _%e5888059066%_))) + (_%hd5888159070%_ (let () (declare (not safe)) - (##car _%e5883459020%_)))) - (if (gx#stx-null? _%tl5883659027%_) - (_%__match7992979930%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_) - (if (gx#stx-pair? _%tl5883659027%_) - (let ((_%e5885358922%_ - (gx#syntax-e _%tl5883659027%_))) - (let ((_%tl5885558929%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5885358922%_))) - (_%hd5885458926%_ + (##cdr _%e5889958968%_))) + (_%hd5890058972%_ (let () (declare (not safe)) - (##car _%e5885358922%_)))) - (if (gx#identifier? _%hd5885458926%_) + (##car _%e5889958968%_)))) + (if (gx#identifier? _%hd5890058972%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84052_| - _%hd5885458926%_) - (if (gx#stx-pair? _%tl5885558929%_) - (let ((_%e5885658932%_ + |gerbil/core/contract~Interface[1]#_g84098_| + _%hd5890058972%_) + (if (gx#stx-pair? _%tl5890158975%_) + (let ((_%e5890258978%_ (gx#syntax-e - _%tl5885558929%_))) - (let ((_%tl5885858939%_ + _%tl5890158975%_))) + (let ((_%tl5890458985%_ (let () (declare (not safe)) - (##cdr _%e5885658932%_))) - (_%hd5885758936%_ + (##cdr _%e5890258978%_))) + (_%hd5890358982%_ (let () (declare (not safe)) - (##car _%e5885658932%_)))) + (##car _%e5890258978%_)))) (if (gx#stx-null? - _%tl5885858939%_) - (_%__match7997579976%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7980179802%_))))) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_))))))) + _%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%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| - (lambda (_%stx58574%_ _%contract58576%_) - (let* ((_%__stx7997879979%_ _%contract58576%_) - (_%g5858058612%_ + (lambda (_%stx58620%_ _%contract58622%_) + (let* ((_%__stx8002480025%_ _%contract58622%_) + (_%g5862658658%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7997879979%_)))) - (let ((_%__kont7998179982%_ - (lambda (_%L58734%_ _%L58736%_ _%L58737%_) + _%__stx8002480025%_)))) + (let ((_%__kont8002780028%_ + (lambda (_%L58780%_ _%L58782%_ _%L58783%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58574%_ - _%L58736%_))) - (_%__kont7998379984%_ - (lambda (_%L58670%_ _%L58672%_ _%L58673%_ _%L58674%_) + _%stx58620%_ + _%L58782%_))) + (_%__kont8002980030%_ + (lambda (_%L58716%_ _%L58718%_ _%L58719%_ _%L58720%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58574%_ - _%L58672%_))) - (_%__kont7998579986%_ (lambda () (void)))) - (let* ((_%__match8002780028%_ - (lambda (_%e5859558630%_ - _%hd5859658634%_ - _%tl5859758637%_ - _%e5859858640%_ - _%hd5859958644%_ - _%tl5860058647%_ - _%e5860158650%_ - _%hd5860258654%_ - _%tl5860358657%_ - _%e5860458660%_ - _%hd5860558664%_ - _%tl5860658667%_) - (let ((_%L58670%_ _%tl5860658667%_) - (_%L58672%_ _%hd5860558664%_) - (_%L58673%_ _%hd5860258654%_) - (_%L58674%_ _%hd5859958644%_)) - (if (and (gx#identifier? _%L58673%_) + _%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%_) (or (gx#free-identifier=? - _%L58673%_ + _%L58719%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58673%_ + _%L58719%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58673%_ + _%L58719%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58673%_ + _%L58719%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7998379984%_ - _%L58670%_ - _%L58672%_ - _%L58673%_ - _%L58674%_) - (_%__kont7998579986%_))))) - (_%__match7999980000%_ - (lambda (_%e5858558714%_ - _%hd5858658718%_ - _%tl5858758721%_ - _%e5858858724%_ - _%hd5858958728%_ - _%tl5859058731%_) - (let ((_%L58734%_ _%tl5859058731%_) - (_%L58736%_ _%hd5858958728%_) - (_%L58737%_ _%hd5858658718%_)) - (if (and (gx#identifier? _%L58737%_) + (_%__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%_) (or (gx#free-identifier=? - _%L58737%_ + _%L58783%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58737%_ + _%L58783%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58737%_ + _%L58783%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58737%_ + _%L58783%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7998179982%_ - _%L58734%_ - _%L58736%_ - _%L58737%_) - (if (gx#identifier? _%hd5858658718%_) + (_%__kont8002780028%_ + _%L58780%_ + _%L58782%_ + _%L58783%_) + (if (gx#identifier? _%hd5863258764%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84053_| - _%hd5858658718%_) - (if (gx#stx-pair? _%tl5859058731%_) - (let ((_%e5860158650%_ - (gx#syntax-e _%tl5859058731%_))) - (let ((_%tl5860358657%_ + |gerbil/core/contract~Interface[1]#_g84099_| + _%hd5863258764%_) + (if (gx#stx-pair? _%tl5863658777%_) + (let ((_%e5864758696%_ + (gx#syntax-e _%tl5863658777%_))) + (let ((_%tl5864958703%_ (let () (declare (not safe)) - (##cdr _%e5860158650%_))) - (_%hd5860258654%_ + (##cdr _%e5864758696%_))) + (_%hd5864858700%_ (let () (declare (not safe)) - (##car _%e5860158650%_)))) - (if (gx#stx-pair? _%tl5860358657%_) - (let ((_%e5860458660%_ + (##car _%e5864758696%_)))) + (if (gx#stx-pair? _%tl5864958703%_) + (let ((_%e5865058706%_ (gx#syntax-e - _%tl5860358657%_))) - (let ((_%tl5860658667%_ + _%tl5864958703%_))) + (let ((_%tl5865258713%_ (let () (declare (not safe)) - (##cdr _%e5860458660%_))) - (_%hd5860558664%_ + (##cdr _%e5865058706%_))) + (_%hd5865158710%_ (let () (declare (not safe)) - (##car _%e5860458660%_)))) - (_%__match8002780028%_ - _%e5858558714%_ - _%hd5858658718%_ - _%tl5858758721%_ - _%e5858858724%_ - _%hd5858958728%_ - _%tl5859058731%_ - _%e5860158650%_ - _%hd5860258654%_ - _%tl5860358657%_ - _%e5860458660%_ - _%hd5860558664%_ - _%tl5860658667%_))) - (_%__kont7998579986%_)))) - (_%__kont7998579986%_)) - (_%__kont7998579986%_)) - (_%__kont7998579986%_))))))) - (if (gx#stx-pair? _%__stx7997879979%_) - (let ((_%e5858558714%_ (gx#syntax-e _%__stx7997879979%_))) - (let ((_%tl5858758721%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5858558714%_))) - (_%hd5858658718%_ + (##cdr _%e5863158760%_))) + (_%hd5863258764%_ (let () (declare (not safe)) - (##car _%e5858558714%_)))) - (if (gx#stx-pair? _%tl5858758721%_) - (let ((_%e5858858724%_ - (gx#syntax-e _%tl5858758721%_))) - (let ((_%tl5859058731%_ + (##car _%e5863158760%_)))) + (if (gx#stx-pair? _%tl5863358767%_) + (let ((_%e5863458770%_ + (gx#syntax-e _%tl5863358767%_))) + (let ((_%tl5863658777%_ (let () (declare (not safe)) - (##cdr _%e5858858724%_))) - (_%hd5858958728%_ + (##cdr _%e5863458770%_))) + (_%hd5863558774%_ (let () (declare (not safe)) - (##car _%e5858858724%_)))) - (_%__match7999980000%_ - _%e5858558714%_ - _%hd5858658718%_ - _%tl5858758721%_ - _%e5858858724%_ - _%hd5858958728%_ - _%tl5859058731%_))) - (_%__kont7998579986%_)))) - (_%__kont7998579986%_))))))) + (##car _%e5863458770%_)))) + (_%__match8004580046%_ + _%e5863158760%_ + _%hd5863258764%_ + _%tl5863358767%_ + _%e5863458770%_ + _%hd5863558774%_ + _%tl5863658777%_))) + (_%__kont8003180032%_)))) + (_%__kont8003180032%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| - (lambda (_%signature57930%_) - (let _%loop57933%_ ((_%rest57936%_ _%signature57930%_) - (_%result57938%_ '())) - (let* ((_%__stx8010680107%_ _%rest57936%_) - (_%g5794758019%_ + (lambda (_%signature57976%_) + (let _%loop57979%_ ((_%rest57982%_ _%signature57976%_) + (_%result57984%_ '())) + (let* ((_%__stx8015280153%_ _%rest57982%_) + (_%g5799358065%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8010680107%_)))) - (let ((_%__kont8010980110%_ - (lambda (_%L58557%_ _%L58559%_) - (_%loop57933%_ - _%L58557%_ - (cons _%L58559%_ _%result57938%_)))) - (_%__kont8011180112%_ - (lambda (_%L58521%_ _%L58523%_ _%L58524%_) - (_%loop57933%_ - _%L58521%_ - (cons (cons _%L58524%_ (cons _%L58523%_ '())) - _%result57938%_)))) - (_%__kont8011380114%_ - (lambda (_%L58358%_ _%L58360%_ _%L58361%_) - (let* ((_%__stx8006880069%_ _%L58360%_) - (_%g5837658397%_ + _%__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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8006880069%_)))) - (let ((_%__kont8007180072%_ - (lambda (_%L58461%_) - (_%loop57933%_ - _%L58358%_ - (cons (cons _%L58361%_ (cons _%L58461%_ '())) - _%result57938%_)))) - (_%__kont8007580076%_ + _%__stx8011480115%_)))) + (let ((_%__kont8011780118%_ + (lambda (_%L58507%_) + (_%loop57979%_ + _%L58404%_ + (cons (cons _%L58407%_ (cons _%L58507%_ '())) + _%result57984%_)))) + (_%__kont8012180122%_ (lambda () - (_%loop57933%_ - _%L58358%_ - (cons _%L58361%_ _%result57938%_))))) - (let ((_%__match8010380104%_ - (lambda (_%__splice8007380074%_ - _%target5837958415%_ - _%tl5838158418%_ - _%e5838658421%_ - _%hd5838758425%_ - _%tl5838858428%_ - _%e5838958431%_ - _%hd5839058435%_ - _%tl5839158438%_) - (letrec ((_%loop5838258441%_ - (lambda (_%hd5838058445%_) + (_%loop57979%_ + _%L58404%_ + (cons _%L58407%_ _%result57984%_))))) + (let ((_%__match8014980150%_ + (lambda (_%__splice8011980120%_ + _%target5842558461%_ + _%tl5842758464%_ + _%e5843258467%_ + _%hd5843358471%_ + _%tl5843458474%_ + _%e5843558477%_ + _%hd5843658481%_ + _%tl5843758484%_) + (letrec ((_%loop5842858487%_ + (lambda (_%hd5842658491%_) (if (gx#stx-pair? - _%hd5838058445%_) - (let ((_%e5838358449%_ + _%hd5842658491%_) + (let ((_%e5842958495%_ (gx#syntax-e - _%hd5838058445%_))) - (let ((_%lp-tl5838558456%_ + _%hd5842658491%_))) + (let ((_%lp-tl5843158502%_ (let () (declare (not safe)) - (##cdr _%e5838358449%_))) - (_%lp-hd5838458453%_ + (##cdr _%e5842958495%_))) + (_%lp-hd5843058499%_ (let () (declare (not safe)) - (##car _%e5838358449%_)))) - (_%loop5838258441%_ - _%lp-tl5838558456%_))) - (_%__kont8007180072%_ - _%hd5839058435%_))))) - (_%loop5838258441%_ - _%target5837958415%_))))) - (if (gx#stx-pair/null? _%__stx8006880069%_) - (if (let ((__tmp84054 - (gx#stx-length _%__stx8006880069%_))) + (##car _%e5842958495%_)))) + (_%loop5842858487%_ + _%lp-tl5843158502%_))) + (_%__kont8011780118%_ + _%hd5843658481%_))))) + (_%loop5842858487%_ + _%target5842558461%_))))) + (if (gx#stx-pair/null? _%__stx8011480115%_) + (if (let ((__tmp84100 + (gx#stx-length _%__stx8011480115%_))) (declare (not safe)) - (##fx>= __tmp84054 '2)) - (let ((_%__splice8007380074%_ + (##fx>= __tmp84100 '2)) + (let ((_%__splice8011980120%_ (gx#syntax-split-splice - _%__stx8006880069%_ + _%__stx8011480115%_ '2))) - (let ((_%tl5838158418%_ + (let ((_%tl5842758464%_ (let () (declare (not safe)) (##vector-ref - _%__splice8007380074%_ + _%__splice8011980120%_ '1))) - (_%target5837958415%_ + (_%target5842558461%_ (let () (declare (not safe)) (##vector-ref - _%__splice8007380074%_ + _%__splice8011980120%_ '0)))) - (if (gx#stx-pair? _%tl5838158418%_) - (let ((_%e5838658421%_ + (if (gx#stx-pair? _%tl5842758464%_) + (let ((_%e5843258467%_ (gx#syntax-e - _%tl5838158418%_))) - (let ((_%tl5838858428%_ + _%tl5842758464%_))) + (let ((_%tl5843458474%_ (let () (declare (not safe)) - (##cdr _%e5838658421%_))) - (_%hd5838758425%_ + (##cdr _%e5843258467%_))) + (_%hd5843358471%_ (let () (declare (not safe)) - (##car _%e5838658421%_)))) + (##car _%e5843258467%_)))) (if (gx#identifier? - _%hd5838758425%_) + _%hd5843358471%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84055_| - _%hd5838758425%_) + |gerbil/core/contract~Interface[1]#_g84101_| + _%hd5843358471%_) (if (gx#stx-pair? - _%tl5838858428%_) - (let ((_%e5838958431%_ + _%tl5843458474%_) + (let ((_%e5843558477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5838858428%_))) - (let ((_%tl5839158438%_ + (gx#syntax-e _%tl5843458474%_))) + (let ((_%tl5843758484%_ (let () (declare (not safe)) - (##cdr _%e5838958431%_))) - (_%hd5839058435%_ + (##cdr _%e5843558477%_))) + (_%hd5843658481%_ (let () (declare (not safe)) - (##car _%e5838958431%_)))) - (if (gx#stx-null? _%tl5839158438%_) - (_%__match8010380104%_ - _%__splice8007380074%_ - _%target5837958415%_ - _%tl5838158418%_ - _%e5838658421%_ - _%hd5838758425%_ - _%tl5838858428%_ - _%e5838958431%_ - _%hd5839058435%_ - _%tl5839158438%_) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)) - (_%__kont8007580076%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)) - (_%__kont8007580076%_))))))) - (_%__kont8011580116%_ - (lambda (_%L58314%_ _%L58316%_ _%L58317%_) - (_%loop57933%_ - _%L58314%_ - (cons _%L58316%_ (cons _%L58317%_ _%result57938%_))))) - (_%__kont8011780118%_ - (lambda (_%L58264%_ _%L58266%_ _%L58267%_ _%L58268%_) - (_%loop57933%_ - _%L58264%_ - (cons (cons _%L58267%_ (cons _%L58266%_ '())) - (cons _%L58268%_ _%result57938%_))))) - (_%__kont8011980120%_ - (lambda (_%L58087%_ _%L58089%_ _%L58090%_ _%L58091%_) - (let* ((_%__stx8003080031%_ _%L58089%_) - (_%g5810958130%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8003080031%_)))) - (let ((_%__kont8003380034%_ - (lambda (_%L58194%_) - (_%loop57933%_ - _%L58087%_ - (cons (cons _%L58090%_ (cons _%L58194%_ '())) - (cons _%L58091%_ _%result57938%_))))) - (_%__kont8003780038%_ + _%__stx8007680077%_)))) + (let ((_%__kont8007980080%_ + (lambda (_%L58240%_) + (_%loop57979%_ + _%L58133%_ + (cons (cons _%L58136%_ (cons _%L58240%_ '())) + (cons _%L58137%_ _%result57984%_))))) + (_%__kont8008380084%_ (lambda () - (_%loop57933%_ - _%L58087%_ - (cons _%L58090%_ - (cons _%L58091%_ _%result57938%_)))))) - (let ((_%__match8006580066%_ - (lambda (_%__splice8003580036%_ - _%target5811258148%_ - _%tl5811458151%_ - _%e5811958154%_ - _%hd5812058158%_ - _%tl5812158161%_ - _%e5812258164%_ - _%hd5812358168%_ - _%tl5812458171%_) - (letrec ((_%loop5811558174%_ - (lambda (_%hd5811358178%_) + (_%loop57979%_ + _%L58133%_ + (cons _%L58136%_ + (cons _%L58137%_ _%result57984%_)))))) + (let ((_%__match8011180112%_ + (lambda (_%__splice8008180082%_ + _%target5815858194%_ + _%tl5816058197%_ + _%e5816558200%_ + _%hd5816658204%_ + _%tl5816758207%_ + _%e5816858210%_ + _%hd5816958214%_ + _%tl5817058217%_) + (letrec ((_%loop5816158220%_ + (lambda (_%hd5815958224%_) (if (gx#stx-pair? - _%hd5811358178%_) - (let ((_%e5811658182%_ + _%hd5815958224%_) + (let ((_%e5816258228%_ (gx#syntax-e - _%hd5811358178%_))) - (let ((_%lp-tl5811858189%_ + _%hd5815958224%_))) + (let ((_%lp-tl5816458235%_ (let () (declare (not safe)) - (##cdr _%e5811658182%_))) - (_%lp-hd5811758186%_ + (##cdr _%e5816258228%_))) + (_%lp-hd5816358232%_ (let () (declare (not safe)) - (##car _%e5811658182%_)))) - (_%loop5811558174%_ - _%lp-tl5811858189%_))) - (_%__kont8003380034%_ - _%hd5812358168%_))))) - (_%loop5811558174%_ - _%target5811258148%_))))) - (if (gx#stx-pair/null? _%__stx8003080031%_) - (if (let ((__tmp84056 - (gx#stx-length _%__stx8003080031%_))) + (##car _%e5816258228%_)))) + (_%loop5816158220%_ + _%lp-tl5816458235%_))) + (_%__kont8007980080%_ + _%hd5816958214%_))))) + (_%loop5816158220%_ + _%target5815858194%_))))) + (if (gx#stx-pair/null? _%__stx8007680077%_) + (if (let ((__tmp84102 + (gx#stx-length _%__stx8007680077%_))) (declare (not safe)) - (##fx>= __tmp84056 '2)) - (let ((_%__splice8003580036%_ + (##fx>= __tmp84102 '2)) + (let ((_%__splice8008180082%_ (gx#syntax-split-splice - _%__stx8003080031%_ + _%__stx8007680077%_ '2))) - (let ((_%tl5811458151%_ + (let ((_%tl5816058197%_ (let () (declare (not safe)) (##vector-ref - _%__splice8003580036%_ + _%__splice8008180082%_ '1))) - (_%target5811258148%_ + (_%target5815858194%_ (let () (declare (not safe)) (##vector-ref - _%__splice8003580036%_ + _%__splice8008180082%_ '0)))) - (if (gx#stx-pair? _%tl5811458151%_) - (let ((_%e5811958154%_ + (if (gx#stx-pair? _%tl5816058197%_) + (let ((_%e5816558200%_ (gx#syntax-e - _%tl5811458151%_))) - (let ((_%tl5812158161%_ + _%tl5816058197%_))) + (let ((_%tl5816758207%_ (let () (declare (not safe)) - (##cdr _%e5811958154%_))) - (_%hd5812058158%_ + (##cdr _%e5816558200%_))) + (_%hd5816658204%_ (let () (declare (not safe)) - (##car _%e5811958154%_)))) + (##car _%e5816558200%_)))) (if (gx#identifier? - _%hd5812058158%_) + _%hd5816658204%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84057_| - _%hd5812058158%_) + |gerbil/core/contract~Interface[1]#_g84103_| + _%hd5816658204%_) (if (gx#stx-pair? - _%tl5812158161%_) - (let ((_%e5812258164%_ + _%tl5816758207%_) + (let ((_%e5816858210%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5812158161%_))) - (let ((_%tl5812458171%_ + (gx#syntax-e _%tl5816758207%_))) + (let ((_%tl5817058217%_ (let () (declare (not safe)) - (##cdr _%e5812258164%_))) - (_%hd5812358168%_ + (##cdr _%e5816858210%_))) + (_%hd5816958214%_ (let () (declare (not safe)) - (##car _%e5812258164%_)))) - (if (gx#stx-null? _%tl5812458171%_) - (_%__match8006580066%_ - _%__splice8003580036%_ - _%target5811258148%_ - _%tl5811458151%_ - _%e5811958154%_ - _%hd5812058158%_ - _%tl5812158161%_ - _%e5812258164%_ - _%hd5812358168%_ - _%tl5812458171%_) - (_%__kont8003780038%_)))) - (_%__kont8003780038%_)) - (_%__kont8003780038%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8003780038%_)))) - (_%__kont8003780038%_)))) - (_%__kont8003780038%_)) - (_%__kont8003780038%_))))))) - (_%__kont8012180122%_ - (lambda (_%L58037%_) - (foldl cons _%L58037%_ _%result57938%_))) - (_%__kont8012380124%_ - (lambda () (reverse! _%result57938%_)))) - (let* ((_%g5794558050%_ + (##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%_ (lambda () - (let ((_%L58037%_ _%__stx8010680107%_)) - (if (gx#identifier? _%L58037%_) - (_%__kont8012180122%_ _%L58037%_) - (_%__kont8012380124%_))))) - (_%__match8021980220%_ - (lambda (_%e5800458057%_ - _%hd5800558061%_ - _%tl5800658064%_ - _%e5800758067%_ - _%hd5800858071%_ - _%tl5800958074%_ - _%e5801058077%_ - _%hd5801158081%_ - _%tl5801258084%_) - (let ((_%L58087%_ _%tl5800958074%_) - (_%L58089%_ _%tl5801258084%_) - (_%L58090%_ _%hd5801158081%_) - (_%L58091%_ _%hd5800558061%_)) - (if (and (gx#stx-keyword? _%L58091%_) - (gx#identifier? _%L58090%_) + (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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58089%_)) - (_%__kont8011980120%_ - _%L58087%_ - _%L58089%_ - _%L58090%_ - _%L58091%_) + _%L58135%_)) + (_%__kont8016580166%_ + _%L58133%_ + _%L58135%_ + _%L58136%_ + _%L58137%_) (let () (declare (not safe)) - (_%g5794558050%_)))))) - (_%__match8020180202%_ - (lambda (_%e5798858224%_ - _%hd5798958228%_ - _%tl5799058231%_ - _%e5799158234%_ - _%hd5799258238%_ - _%tl5799358241%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_ - _%e5799758254%_ - _%hd5799858258%_ - _%tl5799958261%_) - (let ((_%L58264%_ _%tl5799358241%_) - (_%L58266%_ _%hd5799858258%_) - (_%L58267%_ _%hd5799558248%_) - (_%L58268%_ _%hd5798958228%_)) - (if (and (gx#stx-keyword? _%L58268%_) - (gx#identifier? _%L58267%_)) - (_%__kont8011780118%_ - _%L58264%_ - _%L58266%_ - _%L58267%_ - _%L58268%_) - (_%__match8021980220%_ - _%e5798858224%_ - _%hd5798958228%_ - _%tl5799058231%_ - _%e5799158234%_ - _%hd5799258238%_ - _%tl5799358241%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_))))) - (_%__match8017580176%_ - (lambda (_%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_) - (let ((_%L58314%_ _%tl5798358311%_) - (_%L58316%_ _%hd5798258308%_) - (_%L58317%_ _%hd5797958298%_)) - (if (and (gx#stx-keyword? _%L58317%_) - (gx#identifier? _%L58316%_)) - (_%__kont8011580116%_ - _%L58314%_ - _%L58316%_ - _%L58317%_) - (if (gx#stx-pair? _%hd5798258308%_) - (let ((_%e5799458244%_ - (gx#syntax-e _%hd5798258308%_))) - (let ((_%tl5799658251%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5799458244%_))) - (_%hd5799558248%_ + (##cdr _%e5804058290%_))) + (_%hd5804158294%_ (let () (declare (not safe)) - (##car _%e5799458244%_)))) - (if (gx#stx-pair? _%tl5799658251%_) - (let ((_%e5799758254%_ + (##car _%e5804058290%_)))) + (if (gx#stx-pair? _%tl5804258297%_) + (let ((_%e5804358300%_ (gx#syntax-e - _%tl5799658251%_))) - (let ((_%tl5799958261%_ + _%tl5804258297%_))) + (let ((_%tl5804558307%_ (let () (declare (not safe)) - (##cdr _%e5799758254%_))) - (_%hd5799858258%_ + (##cdr _%e5804358300%_))) + (_%hd5804458304%_ (let () (declare (not safe)) - (##car _%e5799758254%_)))) + (##car _%e5804358300%_)))) (if (gx#stx-null? - _%tl5799958261%_) - (_%__match8020180202%_ - _%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_ - _%e5799758254%_ - _%hd5799858258%_ - _%tl5799958261%_) - (_%__match8021980220%_ - _%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_)))) - (_%__match8021980220%_ - _%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_)))) + _%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%_)))) (let () (declare (not safe)) - (_%g5794558050%_))))))) - (_%__match8016380164%_ - (lambda (_%e5796958338%_ - _%hd5797058342%_ - _%tl5797158345%_ - _%e5797258348%_ - _%hd5797358352%_ - _%tl5797458355%_) - (let ((_%L58358%_ _%tl5797158345%_) - (_%L58360%_ _%tl5797458355%_) - (_%L58361%_ _%hd5797358352%_)) - (if (and (gx#identifier? _%L58361%_) + (_%g5799158096%_))))))) + (_%__match8020980210%_ + (lambda (_%e5801558384%_ + _%hd5801658388%_ + _%tl5801758391%_ + _%e5801858394%_ + _%hd5801958398%_ + _%tl5802058401%_) + (let ((_%L58404%_ _%tl5801758391%_) + (_%L58406%_ _%tl5802058401%_) + (_%L58407%_ _%hd5801958398%_)) + (if (and (gx#identifier? _%L58407%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58360%_)) - (_%__kont8011380114%_ - _%L58358%_ - _%L58360%_ - _%L58361%_) - (if (gx#stx-pair? _%tl5797158345%_) - (let ((_%e5798158304%_ - (gx#syntax-e _%tl5797158345%_))) - (let ((_%tl5798358311%_ + _%L58406%_)) + (_%__kont8015980160%_ + _%L58404%_ + _%L58406%_ + _%L58407%_) + (if (gx#stx-pair? _%tl5801758391%_) + (let ((_%e5802758350%_ + (gx#syntax-e _%tl5801758391%_))) + (let ((_%tl5802958357%_ (let () (declare (not safe)) - (##cdr _%e5798158304%_))) - (_%hd5798258308%_ + (##cdr _%e5802758350%_))) + (_%hd5802858354%_ (let () (declare (not safe)) - (##car _%e5798158304%_)))) - (_%__match8017580176%_ - _%e5796958338%_ - _%hd5797058342%_ - _%tl5797158345%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_))) + (##car _%e5802758350%_)))) + (_%__match8022180222%_ + _%e5801558384%_ + _%hd5801658388%_ + _%tl5801758391%_ + _%e5802758350%_ + _%hd5802858354%_ + _%tl5802958357%_))) (let () (declare (not safe)) - (_%g5794558050%_))))))) - (_%__match8015180152%_ - (lambda (_%e5795758491%_ - _%hd5795858495%_ - _%tl5795958498%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_ - _%e5796358511%_ - _%hd5796458515%_ - _%tl5796558518%_) - (let ((_%L58521%_ _%tl5795958498%_) - (_%L58523%_ _%hd5796458515%_) - (_%L58524%_ _%hd5796158505%_)) - (if (gx#identifier? _%L58524%_) - (_%__kont8011180112%_ - _%L58521%_ - _%L58523%_ - _%L58524%_) - (_%__match8016380164%_ - _%e5795758491%_ - _%hd5795858495%_ - _%tl5795958498%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_))))) - (_%__match8013180132%_ - (lambda (_%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_) - (let ((_%L58557%_ _%tl5795358554%_) - (_%L58559%_ _%hd5795258551%_)) - (if (gx#identifier? _%L58559%_) - (_%__kont8010980110%_ _%L58557%_ _%L58559%_) - (if (gx#stx-pair? _%hd5795258551%_) - (let ((_%e5796058501%_ - (gx#syntax-e _%hd5795258551%_))) - (let ((_%tl5796258508%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5796058501%_))) - (_%hd5796158505%_ + (##cdr _%e5800658547%_))) + (_%hd5800758551%_ (let () (declare (not safe)) - (##car _%e5796058501%_)))) - (if (gx#stx-pair? _%tl5796258508%_) - (let ((_%e5796358511%_ + (##car _%e5800658547%_)))) + (if (gx#stx-pair? _%tl5800858554%_) + (let ((_%e5800958557%_ (gx#syntax-e - _%tl5796258508%_))) - (let ((_%tl5796558518%_ + _%tl5800858554%_))) + (let ((_%tl5801158564%_ (let () (declare (not safe)) - (##cdr _%e5796358511%_))) - (_%hd5796458515%_ + (##cdr _%e5800958557%_))) + (_%hd5801058561%_ (let () (declare (not safe)) - (##car _%e5796358511%_)))) + (##car _%e5800958557%_)))) (if (gx#stx-null? - _%tl5796558518%_) - (_%__match8015180152%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_ - _%e5796358511%_ - _%hd5796458515%_ - _%tl5796558518%_) - (_%__match8016380164%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_)))) - (_%__match8016380164%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_)))) - (if (gx#stx-pair? _%tl5795358554%_) - (let ((_%e5798158304%_ - (gx#syntax-e _%tl5795358554%_))) - (let ((_%tl5798358311%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5798158304%_))) - (_%hd5798258308%_ + (##cdr _%e5802758350%_))) + (_%hd5802858354%_ (let () (declare (not safe)) - (##car _%e5798158304%_)))) - (_%__match8017580176%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_))) + (##car _%e5802758350%_)))) + (_%__match8022180222%_ + _%e5799758593%_ + _%hd5799858597%_ + _%tl5799958600%_ + _%e5802758350%_ + _%hd5802858354%_ + _%tl5802958357%_))) (let () (declare (not safe)) - (_%g5794558050%_))))))))) - (if (gx#stx-pair? _%__stx8010680107%_) - (let ((_%e5795158547%_ (gx#syntax-e _%__stx8010680107%_))) - (let ((_%tl5795358554%_ + (_%g5799158096%_))))))))) + (if (gx#stx-pair? _%__stx8015280153%_) + (let ((_%e5799758593%_ (gx#syntax-e _%__stx8015280153%_))) + (let ((_%tl5799958600%_ (let () (declare (not safe)) - (##cdr _%e5795158547%_))) - (_%hd5795258551%_ + (##cdr _%e5799758593%_))) + (_%hd5799858597%_ (let () (declare (not safe)) - (##car _%e5795158547%_)))) - (_%__match8013180132%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_))) - (let () (declare (not safe)) (_%g5794558050%_))))))))) + (##car _%e5799758593%_)))) + (_%__match8017780178%_ + _%e5799758593%_ + _%hd5799858597%_ + _%tl5799958600%_))) + (let () (declare (not safe)) (_%g5799158096%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-out| - (lambda (_%signature57507%_) - (let _%loop57510%_ ((_%rest57513%_ _%signature57507%_) - (_%result57515%_ '())) - (let* ((_%__stx8022280223%_ _%rest57513%_) - (_%g5752457595%_ + (lambda (_%signature57553%_) + (let _%loop57556%_ ((_%rest57559%_ _%signature57553%_) + (_%result57561%_ '())) + (let* ((_%__stx8026880269%_ _%rest57559%_) + (_%g5757057641%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8022280223%_)))) - (let ((_%__kont8022580226%_ - (lambda (_%L57913%_ _%L57915%_) - (_%loop57510%_ - _%L57913%_ - (cons _%L57915%_ _%result57515%_)))) - (_%__kont8022780228%_ - (lambda (_%L57879%_ _%L57881%_) - (_%loop57510%_ - _%L57879%_ - (cons _%L57881%_ _%result57515%_)))) - (_%__kont8022980230%_ - (lambda (_%L57825%_ _%L57827%_ _%L57828%_) - (_%loop57510%_ - _%L57825%_ - (cons _%L57828%_ _%result57515%_)))) - (_%__kont8023180232%_ - (lambda (_%L57781%_ _%L57783%_ _%L57784%_) - (_%loop57510%_ - _%L57781%_ - (cons _%L57783%_ (cons _%L57784%_ _%result57515%_))))) - (_%__kont8023380234%_ - (lambda (_%L57731%_ _%L57733%_ _%L57734%_ _%L57735%_) - (_%loop57510%_ - _%L57731%_ - (cons _%L57734%_ (cons _%L57735%_ _%result57515%_))))) - (_%__kont8023580236%_ - (lambda (_%L57663%_ _%L57665%_ _%L57666%_ _%L57667%_) - (_%loop57510%_ - _%L57663%_ - (cons _%L57666%_ (cons _%L57667%_ _%result57515%_))))) - (_%__kont8023780238%_ - (lambda (_%L57613%_) - (foldl cons (cons _%L57613%_ '()) _%result57515%_))) - (_%__kont8023980240%_ - (lambda () (reverse! _%result57515%_)))) - (let* ((_%g5752257626%_ + _%__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%_ (lambda () - (let ((_%L57613%_ _%__stx8022280223%_)) - (if (gx#identifier? _%L57613%_) - (_%__kont8023780238%_ _%L57613%_) - (_%__kont8023980240%_))))) - (_%__match8033580336%_ - (lambda (_%e5758057633%_ - _%hd5758157637%_ - _%tl5758257640%_ - _%e5758357643%_ - _%hd5758457647%_ - _%tl5758557650%_ - _%e5758657653%_ - _%hd5758757657%_ - _%tl5758857660%_) - (let ((_%L57663%_ _%tl5758557650%_) - (_%L57665%_ _%tl5758857660%_) - (_%L57666%_ _%hd5758757657%_) - (_%L57667%_ _%hd5758157637%_)) - (if (and (gx#stx-keyword? _%L57667%_) - (gx#identifier? _%L57666%_) + (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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57665%_)) - (_%__kont8023580236%_ - _%L57663%_ - _%L57665%_ - _%L57666%_ - _%L57667%_) + _%L57711%_)) + (_%__kont8028180282%_ + _%L57709%_ + _%L57711%_ + _%L57712%_ + _%L57713%_) (let () (declare (not safe)) - (_%g5752257626%_)))))) - (_%__match8031780318%_ - (lambda (_%e5756457691%_ - _%hd5756557695%_ - _%tl5756657698%_ - _%e5756757701%_ - _%hd5756857705%_ - _%tl5756957708%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_ - _%e5757357721%_ - _%hd5757457725%_ - _%tl5757557728%_) - (let ((_%L57731%_ _%tl5756957708%_) - (_%L57733%_ _%hd5757457725%_) - (_%L57734%_ _%hd5757157715%_) - (_%L57735%_ _%hd5756557695%_)) - (if (and (gx#stx-keyword? _%L57735%_) - (gx#identifier? _%L57734%_)) - (_%__kont8023380234%_ - _%L57731%_ - _%L57733%_ - _%L57734%_ - _%L57735%_) - (_%__match8033580336%_ - _%e5756457691%_ - _%hd5756557695%_ - _%tl5756657698%_ - _%e5756757701%_ - _%hd5756857705%_ - _%tl5756957708%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_))))) - (_%__match8029180292%_ - (lambda (_%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_) - (let ((_%L57781%_ _%tl5755957778%_) - (_%L57783%_ _%hd5755857775%_) - (_%L57784%_ _%hd5755557765%_)) - (if (and (gx#stx-keyword? _%L57784%_) - (gx#identifier? _%L57783%_)) - (_%__kont8023180232%_ - _%L57781%_ - _%L57783%_ - _%L57784%_) - (if (gx#stx-pair? _%hd5755857775%_) - (let ((_%e5757057711%_ - (gx#syntax-e _%hd5755857775%_))) - (let ((_%tl5757257718%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5757057711%_))) - (_%hd5757157715%_ + (##cdr _%e5761657757%_))) + (_%hd5761757761%_ (let () (declare (not safe)) - (##car _%e5757057711%_)))) - (if (gx#stx-pair? _%tl5757257718%_) - (let ((_%e5757357721%_ + (##car _%e5761657757%_)))) + (if (gx#stx-pair? _%tl5761857764%_) + (let ((_%e5761957767%_ (gx#syntax-e - _%tl5757257718%_))) - (let ((_%tl5757557728%_ + _%tl5761857764%_))) + (let ((_%tl5762157774%_ (let () (declare (not safe)) - (##cdr _%e5757357721%_))) - (_%hd5757457725%_ + (##cdr _%e5761957767%_))) + (_%hd5762057771%_ (let () (declare (not safe)) - (##car _%e5757357721%_)))) + (##car _%e5761957767%_)))) (if (gx#stx-null? - _%tl5757557728%_) - (_%__match8031780318%_ - _%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_ - _%e5757357721%_ - _%hd5757457725%_ - _%tl5757557728%_) - (_%__match8033580336%_ - _%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_)))) - (_%__match8033580336%_ - _%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_)))) + _%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%_)))) (let () (declare (not safe)) - (_%g5752257626%_))))))) - (_%__match8027980280%_ - (lambda (_%e5754557805%_ - _%hd5754657809%_ - _%tl5754757812%_ - _%e5754857815%_ - _%hd5754957819%_ - _%tl5755057822%_) - (let ((_%L57825%_ _%tl5754757812%_) - (_%L57827%_ _%tl5755057822%_) - (_%L57828%_ _%hd5754957819%_)) - (if (and (gx#identifier? _%L57828%_) + (_%g5756857672%_))))))) + (_%__match8032580326%_ + (lambda (_%e5759157851%_ + _%hd5759257855%_ + _%tl5759357858%_ + _%e5759457861%_ + _%hd5759557865%_ + _%tl5759657868%_) + (let ((_%L57871%_ _%tl5759357858%_) + (_%L57873%_ _%tl5759657868%_) + (_%L57874%_ _%hd5759557865%_)) + (if (and (gx#identifier? _%L57874%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57827%_)) - (_%__kont8022980230%_ - _%L57825%_ - _%L57827%_ - _%L57828%_) - (if (gx#stx-pair? _%tl5754757812%_) - (let ((_%e5755757771%_ - (gx#syntax-e _%tl5754757812%_))) - (let ((_%tl5755957778%_ + _%L57873%_)) + (_%__kont8027580276%_ + _%L57871%_ + _%L57873%_ + _%L57874%_) + (if (gx#stx-pair? _%tl5759357858%_) + (let ((_%e5760357817%_ + (gx#syntax-e _%tl5759357858%_))) + (let ((_%tl5760557824%_ (let () (declare (not safe)) - (##cdr _%e5755757771%_))) - (_%hd5755857775%_ + (##cdr _%e5760357817%_))) + (_%hd5760457821%_ (let () (declare (not safe)) - (##car _%e5755757771%_)))) - (_%__match8029180292%_ - _%e5754557805%_ - _%hd5754657809%_ - _%tl5754757812%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_))) + (##car _%e5760357817%_)))) + (_%__match8033780338%_ + _%e5759157851%_ + _%hd5759257855%_ + _%tl5759357858%_ + _%e5760357817%_ + _%hd5760457821%_ + _%tl5760557824%_))) (let () (declare (not safe)) - (_%g5752257626%_))))))) - (_%__match8026780268%_ - (lambda (_%e5753357849%_ - _%hd5753457853%_ - _%tl5753557856%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_ - _%e5753957869%_ - _%hd5754057873%_ - _%tl5754157876%_) - (let ((_%L57879%_ _%tl5753557856%_) - (_%L57881%_ _%hd5753757863%_)) - (if (gx#identifier? _%L57881%_) - (_%__kont8022780228%_ _%L57879%_ _%L57881%_) - (_%__match8027980280%_ - _%e5753357849%_ - _%hd5753457853%_ - _%tl5753557856%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_))))) - (_%__match8024780248%_ - (lambda (_%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_) - (let ((_%L57913%_ _%tl5753057910%_) - (_%L57915%_ _%hd5752957907%_)) - (if (gx#identifier? _%L57915%_) - (_%__kont8022580226%_ _%L57913%_ _%L57915%_) - (if (gx#stx-pair? _%hd5752957907%_) - (let ((_%e5753657859%_ - (gx#syntax-e _%hd5752957907%_))) - (let ((_%tl5753857866%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5753657859%_))) - (_%hd5753757863%_ + (##cdr _%e5758257905%_))) + (_%hd5758357909%_ (let () (declare (not safe)) - (##car _%e5753657859%_)))) - (if (gx#stx-pair? _%tl5753857866%_) - (let ((_%e5753957869%_ + (##car _%e5758257905%_)))) + (if (gx#stx-pair? _%tl5758457912%_) + (let ((_%e5758557915%_ (gx#syntax-e - _%tl5753857866%_))) - (let ((_%tl5754157876%_ + _%tl5758457912%_))) + (let ((_%tl5758757922%_ (let () (declare (not safe)) - (##cdr _%e5753957869%_))) - (_%hd5754057873%_ + (##cdr _%e5758557915%_))) + (_%hd5758657919%_ (let () (declare (not safe)) - (##car _%e5753957869%_)))) + (##car _%e5758557915%_)))) (if (gx#stx-null? - _%tl5754157876%_) - (_%__match8026780268%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_ - _%e5753957869%_ - _%hd5754057873%_ - _%tl5754157876%_) - (_%__match8027980280%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_)))) - (_%__match8027980280%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_)))) - (if (gx#stx-pair? _%tl5753057910%_) - (let ((_%e5755757771%_ - (gx#syntax-e _%tl5753057910%_))) - (let ((_%tl5755957778%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5755757771%_))) - (_%hd5755857775%_ + (##cdr _%e5760357817%_))) + (_%hd5760457821%_ (let () (declare (not safe)) - (##car _%e5755757771%_)))) - (_%__match8029180292%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_))) + (##car _%e5760357817%_)))) + (_%__match8033780338%_ + _%e5757457949%_ + _%hd5757557953%_ + _%tl5757657956%_ + _%e5760357817%_ + _%hd5760457821%_ + _%tl5760557824%_))) (let () (declare (not safe)) - (_%g5752257626%_))))))))) - (if (gx#stx-pair? _%__stx8022280223%_) - (let ((_%e5752857903%_ (gx#syntax-e _%__stx8022280223%_))) - (let ((_%tl5753057910%_ + (_%g5756857672%_))))))))) + (if (gx#stx-pair? _%__stx8026880269%_) + (let ((_%e5757457949%_ (gx#syntax-e _%__stx8026880269%_))) + (let ((_%tl5757657956%_ (let () (declare (not safe)) - (##cdr _%e5752857903%_))) - (_%hd5752957907%_ + (##cdr _%e5757457949%_))) + (_%hd5757557953%_ (let () (declare (not safe)) - (##car _%e5752857903%_)))) - (_%__match8024780248%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_))) - (let () (declare (not safe)) (_%g5752257626%_))))))))) + (##car _%e5757457949%_)))) + (_%__match8029380294%_ + _%e5757457949%_ + _%hd5757557953%_ + _%tl5757657956%_))) + (let () (declare (not safe)) (_%g5756857672%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| - (lambda (_%signature57100%_) - (let _%loop57103%_ ((_%rest57106%_ _%signature57100%_)) - (let* ((_%__stx8033880339%_ _%rest57106%_) - (_%g5711557186%_ + (lambda (_%signature57146%_) + (let _%loop57149%_ ((_%rest57152%_ _%signature57146%_)) + (let* ((_%__stx8038480385%_ _%rest57152%_) + (_%g5716157232%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8033880339%_)))) - (let ((_%__kont8034180342%_ - (lambda (_%L57490%_ _%L57492%_) (_%loop57103%_ _%L57490%_))) - (_%__kont8034380344%_ - (lambda (_%L57454%_ _%L57456%_ _%L57457%_) - (_%loop57103%_ _%L57454%_))) - (_%__kont8034580346%_ - (lambda (_%L57400%_ _%L57402%_ _%L57403%_) - (_%loop57103%_ _%L57400%_))) - (_%__kont8034780348%_ - (lambda (_%L57356%_ _%L57358%_ _%L57359%_) '#t)) - (_%__kont8034980350%_ - (lambda (_%L57306%_ _%L57308%_ _%L57309%_ _%L57310%_) '#t)) - (_%__kont8035180352%_ - (lambda (_%L57234%_ _%L57236%_ _%L57237%_ _%L57238%_) '#t)) - (_%__kont8035380354%_ (lambda () '#f))) - (let* ((_%__match8044980450%_ - (lambda (_%e5717257204%_ - _%hd5717357208%_ - _%tl5717457211%_ - _%e5717557214%_ - _%hd5717657218%_ - _%tl5717757221%_ - _%e5717857224%_ - _%hd5717957228%_ - _%tl5718057231%_) - (let ((_%L57234%_ _%tl5717757221%_) - (_%L57236%_ _%tl5718057231%_) - (_%L57237%_ _%hd5717957228%_) - (_%L57238%_ _%hd5717357208%_)) - (if (and (gx#stx-keyword? _%L57238%_) - (gx#identifier? _%L57237%_) + _%__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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57236%_)) - (_%__kont8035180352%_ - _%L57234%_ - _%L57236%_ - _%L57237%_ - _%L57238%_) - (_%__kont8035380354%_))))) - (_%__match8043180432%_ - (lambda (_%e5715657266%_ - _%hd5715757270%_ - _%tl5715857273%_ - _%e5715957276%_ - _%hd5716057280%_ - _%tl5716157283%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_ - _%e5716557296%_ - _%hd5716657300%_ - _%tl5716757303%_) - (let ((_%L57306%_ _%tl5716157283%_) - (_%L57308%_ _%hd5716657300%_) - (_%L57309%_ _%hd5716357290%_) - (_%L57310%_ _%hd5715757270%_)) - (if (and (gx#stx-keyword? _%L57310%_) - (gx#identifier? _%L57309%_)) - (_%__kont8034980350%_ - _%L57306%_ - _%L57308%_ - _%L57309%_ - _%L57310%_) - (_%__match8044980450%_ - _%e5715657266%_ - _%hd5715757270%_ - _%tl5715857273%_ - _%e5715957276%_ - _%hd5716057280%_ - _%tl5716157283%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_))))) - (_%__match8040580406%_ - (lambda (_%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_) - (let ((_%L57356%_ _%tl5715157353%_) - (_%L57358%_ _%hd5715057350%_) - (_%L57359%_ _%hd5714757340%_)) - (if (and (gx#stx-keyword? _%L57359%_) - (gx#identifier? _%L57358%_)) - (_%__kont8034780348%_ - _%L57356%_ - _%L57358%_ - _%L57359%_) - (if (gx#stx-pair? _%hd5715057350%_) - (let ((_%e5716257286%_ - (gx#syntax-e _%hd5715057350%_))) - (let ((_%tl5716457293%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5716257286%_))) - (_%hd5716357290%_ + (##cdr _%e5720857332%_))) + (_%hd5720957336%_ (let () (declare (not safe)) - (##car _%e5716257286%_)))) - (if (gx#stx-pair? _%tl5716457293%_) - (let ((_%e5716557296%_ + (##car _%e5720857332%_)))) + (if (gx#stx-pair? _%tl5721057339%_) + (let ((_%e5721157342%_ (gx#syntax-e - _%tl5716457293%_))) - (let ((_%tl5716757303%_ + _%tl5721057339%_))) + (let ((_%tl5721357349%_ (let () (declare (not safe)) - (##cdr _%e5716557296%_))) - (_%hd5716657300%_ + (##cdr _%e5721157342%_))) + (_%hd5721257346%_ (let () (declare (not safe)) - (##car _%e5716557296%_)))) + (##car _%e5721157342%_)))) (if (gx#stx-null? - _%tl5716757303%_) - (_%__match8043180432%_ - _%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_ - _%e5716557296%_ - _%hd5716657300%_ - _%tl5716757303%_) - (_%__match8044980450%_ - _%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_)))) - (_%__match8044980450%_ - _%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_)))) - (_%__kont8035380354%_)))))) - (_%__match8039380394%_ - (lambda (_%e5713757380%_ - _%hd5713857384%_ - _%tl5713957387%_ - _%e5714057390%_ - _%hd5714157394%_ - _%tl5714257397%_) - (let ((_%L57400%_ _%tl5713957387%_) - (_%L57402%_ _%tl5714257397%_) - (_%L57403%_ _%hd5714157394%_)) - (if (and (gx#identifier? _%L57403%_) + _%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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57402%_)) - (_%__kont8034580346%_ - _%L57400%_ - _%L57402%_ - _%L57403%_) - (if (gx#stx-pair? _%tl5713957387%_) - (let ((_%e5714957346%_ - (gx#syntax-e _%tl5713957387%_))) - (let ((_%tl5715157353%_ + _%L57448%_)) + (_%__kont8039180392%_ + _%L57446%_ + _%L57448%_ + _%L57449%_) + (if (gx#stx-pair? _%tl5718557433%_) + (let ((_%e5719557392%_ + (gx#syntax-e _%tl5718557433%_))) + (let ((_%tl5719757399%_ (let () (declare (not safe)) - (##cdr _%e5714957346%_))) - (_%hd5715057350%_ + (##cdr _%e5719557392%_))) + (_%hd5719657396%_ (let () (declare (not safe)) - (##car _%e5714957346%_)))) - (_%__match8040580406%_ - _%e5713757380%_ - _%hd5713857384%_ - _%tl5713957387%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_))) - (_%__kont8035380354%_)))))) - (_%__match8038180382%_ - (lambda (_%e5712557424%_ - _%hd5712657428%_ - _%tl5712757431%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_ - _%e5713157444%_ - _%hd5713257448%_ - _%tl5713357451%_) - (let ((_%L57454%_ _%tl5712757431%_) - (_%L57456%_ _%hd5713257448%_) - (_%L57457%_ _%hd5712957438%_)) - (if (gx#identifier? _%L57457%_) - (_%__kont8034380344%_ - _%L57454%_ - _%L57456%_ - _%L57457%_) - (_%__match8039380394%_ - _%e5712557424%_ - _%hd5712657428%_ - _%tl5712757431%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_))))) - (_%__match8036180362%_ - (lambda (_%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_) - (let ((_%L57490%_ _%tl5712157487%_) - (_%L57492%_ _%hd5712057484%_)) - (if (gx#identifier? _%L57492%_) - (_%__kont8034180342%_ _%L57490%_ _%L57492%_) - (if (gx#stx-pair? _%hd5712057484%_) - (let ((_%e5712857434%_ - (gx#syntax-e _%hd5712057484%_))) - (let ((_%tl5713057441%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5712857434%_))) - (_%hd5712957438%_ + (##cdr _%e5717457480%_))) + (_%hd5717557484%_ (let () (declare (not safe)) - (##car _%e5712857434%_)))) - (if (gx#stx-pair? _%tl5713057441%_) - (let ((_%e5713157444%_ + (##car _%e5717457480%_)))) + (if (gx#stx-pair? _%tl5717657487%_) + (let ((_%e5717757490%_ (gx#syntax-e - _%tl5713057441%_))) - (let ((_%tl5713357451%_ + _%tl5717657487%_))) + (let ((_%tl5717957497%_ (let () (declare (not safe)) - (##cdr _%e5713157444%_))) - (_%hd5713257448%_ + (##cdr _%e5717757490%_))) + (_%hd5717857494%_ (let () (declare (not safe)) - (##car _%e5713157444%_)))) + (##car _%e5717757490%_)))) (if (gx#stx-null? - _%tl5713357451%_) - (_%__match8038180382%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_ - _%e5713157444%_ - _%hd5713257448%_ - _%tl5713357451%_) - (_%__match8039380394%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_)))) - (_%__match8039380394%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_)))) - (if (gx#stx-pair? _%tl5712157487%_) - (let ((_%e5714957346%_ - (gx#syntax-e _%tl5712157487%_))) - (let ((_%tl5715157353%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5714957346%_))) - (_%hd5715057350%_ + (##cdr _%e5719557392%_))) + (_%hd5719657396%_ (let () (declare (not safe)) - (##car _%e5714957346%_)))) - (_%__match8040580406%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_))) - (_%__kont8035380354%_)))))))) - (if (gx#stx-pair? _%__stx8033880339%_) - (let ((_%e5711957480%_ (gx#syntax-e _%__stx8033880339%_))) - (let ((_%tl5712157487%_ + (##car _%e5719557392%_)))) + (_%__match8045180452%_ + _%e5716557526%_ + _%hd5716657530%_ + _%tl5716757533%_ + _%e5719557392%_ + _%hd5719657396%_ + _%tl5719757399%_))) + (_%__kont8039980400%_)))))))) + (if (gx#stx-pair? _%__stx8038480385%_) + (let ((_%e5716557526%_ (gx#syntax-e _%__stx8038480385%_))) + (let ((_%tl5716757533%_ (let () (declare (not safe)) - (##cdr _%e5711957480%_))) - (_%hd5712057484%_ + (##cdr _%e5716557526%_))) + (_%hd5716657530%_ (let () (declare (not safe)) - (##car _%e5711957480%_)))) - (_%__match8036180362%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_))) - (_%__kont8035380354%_)))))))) + (##car _%e5716557526%_)))) + (_%__match8040780408%_ + _%e5716557526%_ + _%hd5716657530%_ + _%tl5716757533%_))) + (_%__kont8039980400%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (lambda (_%stx57089%_ - _%self57091%_ - _%Interface57092%_ - _%signature57093%_ - _%return57094%_ - _%unchecked-proc57095%_) - (if (gx#stx-e _%unchecked-proc57095%_) + (lambda (_%stx57135%_ + _%self57137%_ + _%Interface57138%_ + _%signature57139%_ + _%return57140%_ + _%unchecked-proc57141%_) + (if (gx#stx-e _%unchecked-proc57141%_) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx57089%_ - (cons (cons _%self57091%_ (cons ': (cons _%Interface57092%_ '()))) - _%signature57093%_) - _%return57094%_ - _%unchecked-proc57095%_) - (let ((_%return-type57097%_ + _%stx57135%_ + (cons (cons _%self57137%_ (cons ': (cons _%Interface57138%_ '()))) + _%signature57139%_) + _%return57140%_ + _%unchecked-proc57141%_) + (let ((_%return-type57143%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx57089%_ - _%return57094%_)))) - (cons 'return: (cons _%return-type57097%_ '())))))) + _%stx57135%_ + _%return57140%_)))) + (cons 'return: (cons _%return-type57143%_ '())))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (lambda (_%stx57082%_ - _%self57084%_ - _%Interface57085%_ - _%signature57086%_ - _%checked?57087%_) + (lambda (_%stx57128%_ + _%self57130%_ + _%Interface57131%_ + _%signature57132%_ + _%checked?57133%_) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx57082%_ - (cons (cons _%self57084%_ - (cons (if _%checked?57087%_ ': '::-) - (cons _%Interface57085%_ '()))) - _%signature57086%_) - _%checked?57087%_))) + _%stx57128%_ + (cons (cons _%self57130%_ + (cons (if _%checked?57133%_ ': '::-) + (cons _%Interface57131%_ '()))) + _%signature57132%_) + _%checked?57133%_))) (define |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (lambda (_%stx56321%_ - _%signature56323%_ - _%return56324%_ - _%unchecked56325%_) - (letrec ((_%type-e56327%_ - (lambda (_%contract56771%_) - (let* ((_%__stx8045280453%_ _%contract56771%_) - (_%g5677856833%_ + (lambda (_%stx56367%_ + _%signature56369%_ + _%return56370%_ + _%unchecked56371%_) + (letrec ((_%type-e56373%_ + (lambda (_%contract56817%_) + (let* ((_%__stx8049880499%_ _%contract56817%_) + (_%g5682456879%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8045280453%_)))) - (let ((_%__kont8045580456%_ - (lambda (_%L57063%_ _%L57065%_) + _%__stx8049880499%_)))) + (let ((_%__kont8050180502%_ + (lambda (_%L57109%_ _%L57111%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%L57065%_)))) - (_%__kont8045780458%_ - (lambda (_%L57015%_ _%L57017%_ _%L57018%_) + _%stx56367%_ + _%L57111%_)))) + (_%__kont8050380504%_ + (lambda (_%L57061%_ _%L57063%_ _%L57064%_) (gx#core-quote-syntax 't::t))) - (_%__kont8045980460%_ - (lambda (_%L56967%_ _%L56969%_ _%L56970%_) + (_%__kont8050580506%_ + (lambda (_%L57013%_ _%L57015%_ _%L57016%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%L56969%_)))) - (_%__kont8046180462%_ - (lambda (_%L56891%_ - _%L56893%_ - _%L56894%_ - _%L56895%_) + _%stx56367%_ + _%L57015%_)))) + (_%__kont8050780508%_ + (lambda (_%L56937%_ + _%L56939%_ + _%L56940%_ + _%L56941%_) (gx#core-quote-syntax 't::t))) - (_%__kont8046380464%_ (lambda () '#f))) - (let* ((_%__match8055380554%_ - (lambda (_%e5681656851%_ - _%hd5681756855%_ - _%tl5681856858%_ - _%e5681956861%_ - _%hd5682056865%_ - _%tl5682156868%_ - _%e5682256871%_ - _%hd5682356875%_ - _%tl5682456878%_ - _%e5682556881%_ - _%hd5682656885%_ - _%tl5682756888%_) - (let ((_%L56891%_ _%tl5682756888%_) - (_%L56893%_ _%hd5682656885%_) - (_%L56894%_ _%hd5682356875%_) - (_%L56895%_ _%hd5682056865%_)) - (if (and (gx#identifier? _%L56894%_) + (_%__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%_) (or (gx#free-identifier=? - _%L56894%_ + _%L56940%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L56894%_ + _%L56940%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8046180462%_ - _%L56891%_ - _%L56893%_ - _%L56894%_ - _%L56895%_) - (_%__kont8046380464%_))))) - (_%__match8049380494%_ - (lambda (_%e5679156995%_ - _%hd5679256999%_ - _%tl5679357002%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_) - (let ((_%L57015%_ _%tl5679657012%_) - (_%L57017%_ _%hd5679557009%_) - (_%L57018%_ _%hd5679256999%_)) - (if (and (gx#identifier? _%L57018%_) + (_%__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%_) (or (gx#free-identifier=? - _%L57018%_ + _%L57064%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L57018%_ + _%L57064%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8045780458%_ - _%L57015%_ - _%L57017%_ - _%L57018%_) - (if (gx#identifier? _%hd5679256999%_) + (_%__kont8050380504%_ + _%L57061%_ + _%L57063%_ + _%L57064%_) + (if (gx#identifier? _%hd5683857045%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84058_| - _%hd5679256999%_) + |gerbil/core/contract~Interface[1]#_g84104_| + _%hd5683857045%_) (if (gx#stx-pair? - _%tl5679657012%_) - (let ((_%e5680656947%_ + _%tl5684257058%_) + (let ((_%e5685256993%_ (gx#syntax-e - _%tl5679657012%_))) - (let ((_%tl5680856954%_ + _%tl5684257058%_))) + (let ((_%tl5685457000%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5680656947%_))) - (_%hd5680756951%_ - (let () (declare (not safe)) (##car _%e5680656947%_)))) - (if (gx#identifier? _%hd5680756951%_) + (##cdr _%e5685256993%_))) + (_%hd5685356997%_ + (let () (declare (not safe)) (##car _%e5685256993%_)))) + (if (gx#identifier? _%hd5685356997%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84059_| - _%hd5680756951%_) - (if (gx#stx-pair? _%tl5680856954%_) - (let ((_%e5680956957%_ - (gx#syntax-e _%tl5680856954%_))) - (let ((_%tl5681156964%_ + |gerbil/core/contract~Interface[1]#_g84105_| + _%hd5685356997%_) + (if (gx#stx-pair? _%tl5685457000%_) + (let ((_%e5685557003%_ + (gx#syntax-e _%tl5685457000%_))) + (let ((_%tl5685757010%_ (let () (declare (not safe)) - (##cdr _%e5680956957%_))) - (_%hd5681056961%_ + (##cdr _%e5685557003%_))) + (_%hd5685657007%_ (let () (declare (not safe)) - (##car _%e5680956957%_)))) - (_%__kont8045980460%_ - _%tl5681156964%_ - _%hd5681056961%_ - _%hd5679557009%_))) - (_%__kont8046380464%_)) - (if (gx#stx-pair? _%tl5680856954%_) - (let ((_%e5682556881%_ - (gx#syntax-e _%tl5680856954%_))) - (let ((_%tl5682756888%_ + (##car _%e5685557003%_)))) + (_%__kont8050580506%_ + _%tl5685757010%_ + _%hd5685657007%_ + _%hd5684157055%_))) + (_%__kont8050980510%_)) + (if (gx#stx-pair? _%tl5685457000%_) + (let ((_%e5687156927%_ + (gx#syntax-e _%tl5685457000%_))) + (let ((_%tl5687356934%_ (let () (declare (not safe)) - (##cdr _%e5682556881%_))) - (_%hd5682656885%_ + (##cdr _%e5687156927%_))) + (_%hd5687256931%_ (let () (declare (not safe)) - (##car _%e5682556881%_)))) - (_%__match8055380554%_ - _%e5679156995%_ - _%hd5679256999%_ - _%tl5679357002%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_ - _%e5680656947%_ - _%hd5680756951%_ - _%tl5680856954%_ - _%e5682556881%_ - _%hd5682656885%_ - _%tl5682756888%_))) - (_%__kont8046380464%_))) - (if (gx#stx-pair? _%tl5680856954%_) - (let ((_%e5682556881%_ (gx#syntax-e _%tl5680856954%_))) - (let ((_%tl5682756888%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5682556881%_))) - (_%hd5682656885%_ + (##cdr _%e5687156927%_))) + (_%hd5687256931%_ (let () (declare (not safe)) - (##car _%e5682556881%_)))) - (_%__match8055380554%_ - _%e5679156995%_ - _%hd5679256999%_ - _%tl5679357002%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_ - _%e5680656947%_ - _%hd5680756951%_ - _%tl5680856954%_ - _%e5682556881%_ - _%hd5682656885%_ - _%tl5682756888%_))) - (_%__kont8046380464%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8046380464%_)) - (_%__kont8046380464%_)) - (_%__kont8046380464%_))))))) - (if (gx#stx-pair? _%__stx8045280453%_) - (let ((_%e5678257043%_ - (gx#syntax-e _%__stx8045280453%_))) - (let ((_%tl5678457050%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5678257043%_))) - (_%hd5678357047%_ + (##cdr _%e5682857089%_))) + (_%hd5682957093%_ (let () (declare (not safe)) - (##car _%e5678257043%_)))) - (if (gx#identifier? _%hd5678357047%_) + (##car _%e5682857089%_)))) + (if (gx#identifier? _%hd5682957093%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84060_| - _%hd5678357047%_) - (if (gx#stx-pair? _%tl5678457050%_) - (let ((_%e5678557053%_ + |gerbil/core/contract~Interface[1]#_g84106_| + _%hd5682957093%_) + (if (gx#stx-pair? _%tl5683057096%_) + (let ((_%e5683157099%_ (gx#syntax-e - _%tl5678457050%_))) - (let ((_%tl5678757060%_ + _%tl5683057096%_))) + (let ((_%tl5683357106%_ (let () (declare (not safe)) - (##cdr _%e5678557053%_))) - (_%hd5678657057%_ + (##cdr _%e5683157099%_))) + (_%hd5683257103%_ (let () (declare (not safe)) - (##car _%e5678557053%_)))) - (_%__kont8045580456%_ - _%tl5678757060%_ - _%hd5678657057%_))) - (_%__kont8046380464%_)) - (if (gx#stx-pair? _%tl5678457050%_) - (let ((_%e5679457005%_ + (##car _%e5683157099%_)))) + (_%__kont8050180502%_ + _%tl5683357106%_ + _%hd5683257103%_))) + (_%__kont8050980510%_)) + (if (gx#stx-pair? _%tl5683057096%_) + (let ((_%e5684057051%_ (gx#syntax-e - _%tl5678457050%_))) - (let ((_%tl5679657012%_ + _%tl5683057096%_))) + (let ((_%tl5684257058%_ (let () (declare (not safe)) - (##cdr _%e5679457005%_))) - (_%hd5679557009%_ + (##cdr _%e5684057051%_))) + (_%hd5684157055%_ (let () (declare (not safe)) - (##car _%e5679457005%_)))) - (_%__match8049380494%_ - _%e5678257043%_ - _%hd5678357047%_ - _%tl5678457050%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_))) - (_%__kont8046380464%_))) - (if (gx#stx-pair? _%tl5678457050%_) - (let ((_%e5679457005%_ + (##car _%e5684057051%_)))) + (_%__match8053980540%_ + _%e5682857089%_ + _%hd5682957093%_ + _%tl5683057096%_ + _%e5684057051%_ + _%hd5684157055%_ + _%tl5684257058%_))) + (_%__kont8050980510%_))) + (if (gx#stx-pair? _%tl5683057096%_) + (let ((_%e5684057051%_ (gx#syntax-e - _%tl5678457050%_))) - (let ((_%tl5679657012%_ + _%tl5683057096%_))) + (let ((_%tl5684257058%_ (let () (declare (not safe)) - (##cdr _%e5679457005%_))) - (_%hd5679557009%_ + (##cdr _%e5684057051%_))) + (_%hd5684157055%_ (let () (declare (not safe)) - (##car _%e5679457005%_)))) - (_%__match8049380494%_ - _%e5678257043%_ - _%hd5678357047%_ - _%tl5678457050%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_))) - (_%__kont8046380464%_))))) - (_%__kont8046380464%_)))))))) - (let _%loop56330%_ ((_%rest56333%_ _%signature56323%_) - (_%has-keywords?56335%_ '#f) - (_%result56336%_ '())) - (let* ((_%__stx8055680557%_ _%rest56333%_) - (_%g5634556415%_ + (##car _%e5684057051%_)))) + (_%__match8053980540%_ + _%e5682857089%_ + _%hd5682957093%_ + _%tl5683057096%_ + _%e5684057051%_ + _%hd5684157055%_ + _%tl5684257058%_))) + (_%__kont8050980510%_))))) + (_%__kont8050980510%_)))))))) + (let _%loop56376%_ ((_%rest56379%_ _%signature56369%_) + (_%has-keywords?56381%_ '#f) + (_%result56382%_ '())) + (let* ((_%__stx8060280603%_ _%rest56379%_) + (_%g5639156461%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8055680557%_)))) - (let ((_%__kont8055980560%_ - (lambda (_%L56754%_ _%L56756%_) - (_%loop56330%_ - _%L56754%_ + _%__stx8060280603%_)))) + (let ((_%__kont8060580606%_ + (lambda (_%L56800%_ _%L56802%_) + (_%loop56376%_ + _%L56800%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056180562%_ - (lambda (_%L56720%_ _%L56722%_) - (_%loop56330%_ - _%L56720%_ + (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) + (_%__kont8060780608%_ + (lambda (_%L56766%_ _%L56768%_) + (_%loop56376%_ + _%L56766%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056380564%_ - (lambda (_%L56666%_ _%L56668%_ _%L56669%_) - (_%loop56330%_ - _%L56666%_ + (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) + (_%__kont8060980610%_ + (lambda (_%L56712%_ _%L56714%_ _%L56715%_) + (_%loop56376%_ + _%L56712%_ '#f - (cons (_%type-e56327%_ _%L56668%_) _%result56336%_)))) - (_%__kont8056580566%_ - (lambda (_%L56622%_ _%L56624%_ _%L56625%_) - (_%loop56330%_ - _%L56622%_ + (cons (_%type-e56373%_ _%L56714%_) _%result56382%_)))) + (_%__kont8061180612%_ + (lambda (_%L56668%_ _%L56670%_ _%L56671%_) + (_%loop56376%_ + _%L56668%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056780568%_ - (lambda (_%L56574%_ _%L56576%_ _%L56577%_) - (_%loop56330%_ - _%L56574%_ + (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) + (_%__kont8061380614%_ + (lambda (_%L56620%_ _%L56622%_ _%L56623%_) + (_%loop56376%_ + _%L56620%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056980570%_ - (lambda (_%L56506%_ _%L56508%_ _%L56509%_ _%L56510%_) - (_%loop56330%_ - _%L56506%_ + (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) + (_%__kont8061580616%_ + (lambda (_%L56552%_ _%L56554%_ _%L56555%_ _%L56556%_) + (_%loop56376%_ + _%L56552%_ '#t - (cons (_%type-e56327%_ _%L56508%_) _%result56336%_)))) - (_%__kont8057180572%_ - (lambda (_%L56444%_) - (let* ((_%arguments56458%_ - (if _%has-keywords?56335%_ + (cons (_%type-e56373%_ _%L56554%_) _%result56382%_)))) + (_%__kont8061780618%_ + (lambda (_%L56490%_) + (let* ((_%arguments56504%_ + (if _%has-keywords?56381%_ (gx#core-quote-syntax 't::t) (foldl cons (gx#core-quote-syntax 't::t) - _%result56336%_))) - (_%return-type56461%_ + _%result56382%_))) + (_%return-type56507%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%return56324%_))) - (_%unchecked56464%_ - (if (not _%has-keywords?56335%_) - (if (gx#stx-e _%unchecked56325%_) + _%stx56367%_ + _%return56370%_))) + (_%unchecked56510%_ + (if (not _%has-keywords?56381%_) + (if (gx#stx-e _%unchecked56371%_) (gx#core-quote-syntax - _%unchecked56325%_) + _%unchecked56371%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56458%_ + (cons _%arguments56504%_ (cons 'return: - (cons _%return-type56461%_ + (cons _%return-type56507%_ (cons 'unchecked: - (cons _%unchecked56464%_ + (cons _%unchecked56510%_ '()))))))))) - (_%__kont8057380574%_ + (_%__kont8061980620%_ (lambda () - (let* ((_%arguments56426%_ - (if _%has-keywords?56335%_ + (let* ((_%arguments56472%_ + (if _%has-keywords?56381%_ (gx#core-quote-syntax 't::t) - (reverse! _%result56336%_))) - (_%return-type56429%_ + (reverse! _%result56382%_))) + (_%return-type56475%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%return56324%_))) - (_%unchecked56432%_ - (if (not _%has-keywords?56335%_) - (if (gx#stx-e _%unchecked56325%_) + _%stx56367%_ + _%return56370%_))) + (_%unchecked56478%_ + (if (not _%has-keywords?56381%_) + (if (gx#stx-e _%unchecked56371%_) (gx#core-quote-syntax - _%unchecked56325%_) + _%unchecked56371%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56426%_ + (cons _%arguments56472%_ (cons 'return: - (cons _%return-type56429%_ + (cons _%return-type56475%_ (cons 'unchecked: - (cons _%unchecked56432%_ + (cons _%unchecked56478%_ '())))))))))) - (let* ((_%g5634456437%_ + (let* ((_%g5639056483%_ (lambda () - (if (gx#stx-null? _%__stx8055680557%_) - (_%__kont8057380574%_) + (if (gx#stx-null? _%__stx8060280603%_) + (_%__kont8061980620%_) (let () (declare (not safe)) - (_%g5634556415%_))))) - (_%g5634356469%_ + (_%g5639156461%_))))) + (_%g5638956515%_ (lambda () - (let ((_%L56444%_ _%__stx8055680557%_)) - (if (gx#identifier? _%L56444%_) - (_%__kont8057180572%_ _%L56444%_) + (let ((_%L56490%_ _%__stx8060280603%_)) + (if (gx#identifier? _%L56490%_) + (_%__kont8061780618%_ _%L56490%_) (let () (declare (not safe)) - (_%g5634456437%_)))))) - (_%__match8066980670%_ - (lambda (_%e5640056476%_ - _%hd5640156480%_ - _%tl5640256483%_ - _%e5640356486%_ - _%hd5640456490%_ - _%tl5640556493%_ - _%e5640656496%_ - _%hd5640756500%_ - _%tl5640856503%_) - (let ((_%L56506%_ _%tl5640556493%_) - (_%L56508%_ _%tl5640856503%_) - (_%L56509%_ _%hd5640756500%_) - (_%L56510%_ _%hd5640156480%_)) - (if (and (gx#stx-keyword? _%L56510%_) - (gx#identifier? _%L56509%_) + (_%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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56508%_)) - (_%__kont8056980570%_ - _%L56506%_ - _%L56508%_ - _%L56509%_ - _%L56510%_) + _%L56554%_)) + (_%__kont8061580616%_ + _%L56552%_ + _%L56554%_ + _%L56555%_ + _%L56556%_) (let () (declare (not safe)) - (_%g5634356469%_)))))) - (_%__match8065180652%_ - (lambda (_%e5638456534%_ - _%hd5638556538%_ - _%tl5638656541%_ - _%e5638756544%_ - _%hd5638856548%_ - _%tl5638956551%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_ - _%e5639356564%_ - _%hd5639456568%_ - _%tl5639556571%_) - (let ((_%L56574%_ _%tl5638956551%_) - (_%L56576%_ _%hd5639156558%_) - (_%L56577%_ _%hd5638556538%_)) - (if (and (gx#stx-keyword? _%L56577%_) - (gx#identifier? _%L56576%_)) - (_%__kont8056780568%_ - _%L56574%_ - _%L56576%_ - _%L56577%_) - (_%__match8066980670%_ - _%e5638456534%_ - _%hd5638556538%_ - _%tl5638656541%_ - _%e5638756544%_ - _%hd5638856548%_ - _%tl5638956551%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_))))) - (_%__match8062580626%_ - (lambda (_%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_) - (let ((_%L56622%_ _%tl5638056619%_) - (_%L56624%_ _%hd5637956616%_) - (_%L56625%_ _%hd5637656606%_)) - (if (and (gx#stx-keyword? _%L56625%_) - (gx#identifier? _%L56624%_)) - (_%__kont8056580566%_ + (_%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%_ - _%L56624%_ - _%L56625%_) - (if (gx#stx-pair? _%hd5637956616%_) - (let ((_%e5639056554%_ - (gx#syntax-e _%hd5637956616%_))) - (let ((_%tl5639256561%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5639056554%_))) - (_%hd5639156558%_ + (##cdr _%e5643656600%_))) + (_%hd5643756604%_ (let () (declare (not safe)) - (##car _%e5639056554%_)))) - (if (gx#stx-pair? _%tl5639256561%_) - (let ((_%e5639356564%_ + (##car _%e5643656600%_)))) + (if (gx#stx-pair? _%tl5643856607%_) + (let ((_%e5643956610%_ (gx#syntax-e - _%tl5639256561%_))) - (let ((_%tl5639556571%_ + _%tl5643856607%_))) + (let ((_%tl5644156617%_ (let () (declare (not safe)) - (##cdr _%e5639356564%_))) - (_%hd5639456568%_ + (##cdr _%e5643956610%_))) + (_%hd5644056614%_ (let () (declare (not safe)) - (##car _%e5639356564%_)))) + (##car _%e5643956610%_)))) (if (gx#stx-null? - _%tl5639556571%_) - (_%__match8065180652%_ - _%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_ - _%e5639356564%_ - _%hd5639456568%_ - _%tl5639556571%_) - (_%__match8066980670%_ - _%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_)))) - (_%__match8066980670%_ - _%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_)))) + _%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%_)))) (let () (declare (not safe)) - (_%g5634356469%_))))))) - (_%__match8061380614%_ - (lambda (_%e5636656646%_ - _%hd5636756650%_ - _%tl5636856653%_ - _%e5636956656%_ - _%hd5637056660%_ - _%tl5637156663%_) - (let ((_%L56666%_ _%tl5636856653%_) - (_%L56668%_ _%tl5637156663%_) - (_%L56669%_ _%hd5637056660%_)) - (if (and (gx#identifier? _%L56669%_) + (_%g5638956515%_))))))) + (_%__match8065980660%_ + (lambda (_%e5641256692%_ + _%hd5641356696%_ + _%tl5641456699%_ + _%e5641556702%_ + _%hd5641656706%_ + _%tl5641756709%_) + (let ((_%L56712%_ _%tl5641456699%_) + (_%L56714%_ _%tl5641756709%_) + (_%L56715%_ _%hd5641656706%_)) + (if (and (gx#identifier? _%L56715%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56668%_)) - (_%__kont8056380564%_ - _%L56666%_ - _%L56668%_ - _%L56669%_) - (if (gx#stx-pair? _%tl5636856653%_) - (let ((_%e5637856612%_ - (gx#syntax-e _%tl5636856653%_))) - (let ((_%tl5638056619%_ + _%L56714%_)) + (_%__kont8060980610%_ + _%L56712%_ + _%L56714%_ + _%L56715%_) + (if (gx#stx-pair? _%tl5641456699%_) + (let ((_%e5642456658%_ + (gx#syntax-e _%tl5641456699%_))) + (let ((_%tl5642656665%_ (let () (declare (not safe)) - (##cdr _%e5637856612%_))) - (_%hd5637956616%_ + (##cdr _%e5642456658%_))) + (_%hd5642556662%_ (let () (declare (not safe)) - (##car _%e5637856612%_)))) - (_%__match8062580626%_ - _%e5636656646%_ - _%hd5636756650%_ - _%tl5636856653%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_))) + (##car _%e5642456658%_)))) + (_%__match8067180672%_ + _%e5641256692%_ + _%hd5641356696%_ + _%tl5641456699%_ + _%e5642456658%_ + _%hd5642556662%_ + _%tl5642656665%_))) (let () (declare (not safe)) - (_%g5634356469%_))))))) - (_%__match8060180602%_ - (lambda (_%e5635456690%_ - _%hd5635556694%_ - _%tl5635656697%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_ - _%e5636056710%_ - _%hd5636156714%_ - _%tl5636256717%_) - (let ((_%L56720%_ _%tl5635656697%_) - (_%L56722%_ _%hd5635856704%_)) - (if (gx#identifier? _%L56722%_) - (_%__kont8056180562%_ _%L56720%_ _%L56722%_) - (_%__match8061380614%_ - _%e5635456690%_ - _%hd5635556694%_ - _%tl5635656697%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_))))) - (_%__match8058180582%_ - (lambda (_%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_) - (let ((_%L56754%_ _%tl5635156751%_) - (_%L56756%_ _%hd5635056748%_)) - (if (gx#identifier? _%L56756%_) - (_%__kont8055980560%_ _%L56754%_ _%L56756%_) - (if (gx#stx-pair? _%hd5635056748%_) - (let ((_%e5635756700%_ - (gx#syntax-e _%hd5635056748%_))) - (let ((_%tl5635956707%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e5635756700%_))) - (_%hd5635856704%_ + (##cdr _%e5640356746%_))) + (_%hd5640456750%_ (let () (declare (not safe)) - (##car _%e5635756700%_)))) - (if (gx#stx-pair? _%tl5635956707%_) - (let ((_%e5636056710%_ + (##car _%e5640356746%_)))) + (if (gx#stx-pair? _%tl5640556753%_) + (let ((_%e5640656756%_ (gx#syntax-e - _%tl5635956707%_))) - (let ((_%tl5636256717%_ + _%tl5640556753%_))) + (let ((_%tl5640856763%_ (let () (declare (not safe)) - (##cdr _%e5636056710%_))) - (_%hd5636156714%_ + (##cdr _%e5640656756%_))) + (_%hd5640756760%_ (let () (declare (not safe)) - (##car _%e5636056710%_)))) + (##car _%e5640656756%_)))) (if (gx#stx-null? - _%tl5636256717%_) - (_%__match8060180602%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_ - _%e5636056710%_ - _%hd5636156714%_ - _%tl5636256717%_) - (_%__match8061380614%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_)))) - (_%__match8061380614%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_)))) - (if (gx#stx-pair? _%tl5635156751%_) - (let ((_%e5637856612%_ - (gx#syntax-e _%tl5635156751%_))) - (let ((_%tl5638056619%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5637856612%_))) - (_%hd5637956616%_ + (##cdr _%e5642456658%_))) + (_%hd5642556662%_ (let () (declare (not safe)) - (##car _%e5637856612%_)))) - (_%__match8062580626%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_))) + (##car _%e5642456658%_)))) + (_%__match8067180672%_ + _%e5639556790%_ + _%hd5639656794%_ + _%tl5639756797%_ + _%e5642456658%_ + _%hd5642556662%_ + _%tl5642656665%_))) (let () (declare (not safe)) - (_%g5634356469%_))))))))) - (if (gx#stx-pair? _%__stx8055680557%_) - (let ((_%e5634956744%_ - (gx#syntax-e _%__stx8055680557%_))) - (let ((_%tl5635156751%_ + (_%g5638956515%_))))))))) + (if (gx#stx-pair? _%__stx8060280603%_) + (let ((_%e5639556790%_ + (gx#syntax-e _%__stx8060280603%_))) + (let ((_%tl5639756797%_ (let () (declare (not safe)) - (##cdr _%e5634956744%_))) - (_%hd5635056748%_ + (##cdr _%e5639556790%_))) + (_%hd5639656794%_ (let () (declare (not safe)) - (##car _%e5634956744%_)))) - (_%__match8058180582%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_))) - (let () (declare (not safe)) (_%g5634356469%_)))))))))) + (##car _%e5639556790%_)))) + (_%__match8062780628%_ + _%e5639556790%_ + _%hd5639656794%_ + _%tl5639756797%_))) + (let () (declare (not safe)) (_%g5638956515%_)))))))))) (define |gerbil/core/contract~Interface[1]#make-procedure-contract| - (lambda (_%stx55428%_ _%signature55430%_ _%checked?55431%_) - (letrec ((_%contract-e55433%_ - (lambda (_%id55836%_ _%contract55838%_) - (let* ((_%g5584055848%_ - (lambda (_%g5584155844%_) + (lambda (_%stx55474%_ _%signature55476%_ _%checked?55477%_) + (letrec ((_%contract-e55479%_ + (lambda (_%id55882%_ _%contract55884%_) + (let* ((_%g5588655894%_ + (lambda (_%g5588755890%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5584155844%_))) - (_%g5583956317%_ - (lambda (_%g5584155852%_) - ((lambda (_%L55855%_) - (let* ((_%__stx8067480675%_ _%contract55838%_) - (_%g5587255951%_ + _%g5588755890%_))) + (_%g5588556363%_ + (lambda (_%g5588755898%_) + ((lambda (_%L55901%_) + (let* ((_%__stx8072080721%_ _%contract55884%_) + (_%g5591855997%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8067480675%_)))) - (let ((_%__kont8067780678%_ - (lambda (_%L56288%_ - _%L56290%_ - _%L56291%_) - (if _%checked?55431%_ - (cons _%L55855%_ - (cons _%L56291%_ - (cons _%L56290%_ + _%__stx8072080721%_)))) + (let ((_%__kont8072380724%_ + (lambda (_%L56334%_ + _%L56336%_ + _%L56337%_) + (if _%checked?55477%_ + (cons _%L55901%_ + (cons _%L56337%_ + (cons _%L56336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56290%_ + (cons _%L56336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8067980680%_ - (lambda (_%L56246%_ _%L56248%_) - (cons _%L55855%_ + (_%__kont8072580726%_ + (lambda (_%L56292%_ _%L56294%_) + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56248%_ + (cons _%L56294%_ '()))))) - (_%__kont8068180682%_ - (lambda (_%L56188%_ - _%L56190%_ - _%L56191%_ - _%L56192%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8072780728%_ + (lambda (_%L56234%_ + _%L56236%_ + _%L56237%_ + _%L56238%_) + (if _%checked?55477%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56192%_ + (cons _%L56238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56191%_ (cons _%L56190%_ '()))))) + (cons _%L56237%_ (cons _%L56236%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56190%_ + (cons _%L56236%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8068380684%_ - (lambda (_%L56110%_ - _%L56112%_ - _%L56113%_ - _%L56114%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8072980730%_ + (lambda (_%L56156%_ + _%L56158%_ + _%L56159%_ + _%L56160%_) + (if _%checked?55477%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56114%_ + (cons _%L56160%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56113%_ (cons _%L56112%_ '()))))) + (cons _%L56159%_ (cons _%L56158%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56112%_ + (cons _%L56158%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8068580686%_ - (lambda (_%L56042%_ - _%L56044%_ - _%L56045%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8073180732%_ + (lambda (_%L56088%_ + _%L56090%_ + _%L56091%_) + (if _%checked?55477%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56045%_ + (cons _%L56091%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':-) - (cons _%L56044%_ '()))))) + (cons _%L56090%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56044%_ + (cons _%L56090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8068780688%_ - (lambda (_%L55978%_ _%L55980%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8073380734%_ + (lambda (_%L56024%_ _%L56026%_) + (if _%checked?55477%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L55980%_ + (cons _%L56026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55901%_ (cons (gx#datum->syntax '#f ':-) @@ -3639,1939 +3639,1958 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match8077380774%_ - (lambda (_%e5591156070%_ - _%hd5591256074%_ - _%tl5591356077%_ - _%e5591456080%_ - _%hd5591556084%_ - _%tl5591656087%_ - _%e5591756090%_ - _%hd5591856094%_ - _%tl5591956097%_ - _%e5592056100%_ - _%hd5592156104%_ - _%tl5592256107%_) - (let ((_%L56110%_ - _%tl5592256107%_) - (_%L56112%_ - _%hd5592156104%_) - (_%L56113%_ - _%hd5591856094%_) - (_%L56114%_ - _%hd5591556084%_)) + (let* ((_%__match8081980820%_ + (lambda (_%e5595756116%_ + _%hd5595856120%_ + _%tl5595956123%_ + _%e5596056126%_ + _%hd5596156130%_ + _%tl5596256133%_ + _%e5596356136%_ + _%hd5596456140%_ + _%tl5596556143%_ + _%e5596656146%_ + _%hd5596756150%_ + _%tl5596856153%_) + (let ((_%L56156%_ + _%tl5596856153%_) + (_%L56158%_ + _%hd5596756150%_) + (_%L56159%_ + _%hd5596456140%_) + (_%L56160%_ + _%hd5596156130%_)) (if (or (gx#free-identifier=? - _%L56113%_ + _%L56159%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56113%_ + _%L56159%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56113%_ + _%L56159%_ (gx#datum->syntax '#f ':?))) - (_%__kont8068380684%_ - _%L56110%_ - _%L56112%_ - _%L56113%_ - _%L56114%_) + (_%__kont8072980730%_ + _%L56156%_ + _%L56158%_ + _%L56159%_ + _%L56160%_) (if (gx#identifier? - _%hd5591856094%_) + _%hd5596456140%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84061_| - _%hd5591856094%_) - (_%__kont8068580686%_ - _%tl5592256107%_ - _%hd5592156104%_ - _%hd5591556084%_) - (_%__kont8068780688%_ - _%tl5591656087%_ - _%hd5591556084%_)) - (_%__kont8068780688%_ - _%tl5591656087%_ - _%hd5591556084%_)))))) - (_%__match8074580746%_ - (lambda (_%e5589556148%_ - _%hd5589656152%_ - _%tl5589756155%_ - _%e5589856158%_ - _%hd5589956162%_ - _%tl5590056165%_ - _%e5590156168%_ - _%hd5590256172%_ - _%tl5590356175%_ - _%e5590456178%_ - _%hd5590556182%_ - _%tl5590656185%_) - (let ((_%L56188%_ - _%tl5590656185%_) - (_%L56190%_ - _%hd5590556182%_) - (_%L56191%_ - _%hd5590256172%_) - (_%L56192%_ - _%hd5589956162%_)) + |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%_)) (if (or (gx#free-identifier=? - _%L56191%_ + _%L56237%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56191%_ + _%L56237%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56191%_ + _%L56237%_ (gx#datum->syntax '#f ':?))) - (_%__kont8068180682%_ - _%L56188%_ - _%L56190%_ - _%L56191%_ - _%L56192%_) - (_%__match8077380774%_ - _%e5589556148%_ - _%hd5589656152%_ - _%tl5589756155%_ - _%e5589856158%_ - _%hd5589956162%_ - _%tl5590056165%_ - _%e5590156168%_ - _%hd5590256172%_ - _%tl5590356175%_ - _%e5590456178%_ - _%hd5590556182%_ - _%tl5590656185%_))))) - (_%__match8070180702%_ - (lambda (_%e5587756268%_ - _%hd5587856272%_ - _%tl5587956275%_ - _%e5588056278%_ - _%hd5588156282%_ - _%tl5588256285%_) - (let ((_%L56288%_ - _%tl5588256285%_) - (_%L56290%_ - _%hd5588156282%_) - (_%L56291%_ - _%hd5587856272%_)) + (_%__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%_)) (if (or (gx#free-identifier=? - _%L56291%_ + _%L56337%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56291%_ + _%L56337%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56291%_ + _%L56337%_ (gx#datum->syntax '#f ':?))) - (_%__kont8067780678%_ - _%L56288%_ - _%L56290%_ - _%L56291%_) + (_%__kont8072380724%_ + _%L56334%_ + _%L56336%_ + _%L56337%_) (if (gx#identifier? - _%hd5587856272%_) + _%hd5592456318%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84062_| - _%hd5587856272%_) - (_%__kont8067980680%_ - _%tl5588256285%_ - _%hd5588156282%_) + |gerbil/core/contract~Interface[1]#_g84108_| + _%hd5592456318%_) + (_%__kont8072580726%_ + _%tl5592856331%_ + _%hd5592756328%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g84063_| - _%hd5587856272%_) - (if (gx#stx-pair? _%tl5588256285%_) - (let ((_%e5590156168%_ - (gx#syntax-e _%tl5588256285%_))) - (let ((_%tl5590356175%_ + |gerbil/core/contract~Interface[1]#_g84109_| + _%hd5592456318%_) + (if (gx#stx-pair? _%tl5592856331%_) + (let ((_%e5594756214%_ + (gx#syntax-e _%tl5592856331%_))) + (let ((_%tl5594956221%_ (let () (declare (not safe)) - (##cdr _%e5590156168%_))) - (_%hd5590256172%_ + (##cdr _%e5594756214%_))) + (_%hd5594856218%_ (let () (declare (not safe)) - (##car _%e5590156168%_)))) - (if (gx#stx-pair? _%tl5590356175%_) - (let ((_%e5590456178%_ - (gx#syntax-e _%tl5590356175%_))) - (let ((_%tl5590656185%_ + (##car _%e5594756214%_)))) + (if (gx#stx-pair? _%tl5594956221%_) + (let ((_%e5595056224%_ + (gx#syntax-e _%tl5594956221%_))) + (let ((_%tl5595256231%_ (let () (declare (not safe)) - (##cdr _%e5590456178%_))) - (_%hd5590556182%_ + (##cdr _%e5595056224%_))) + (_%hd5595156228%_ (let () (declare (not safe)) - (##car _%e5590456178%_)))) - (_%__match8074580746%_ - _%e5587756268%_ - _%hd5587856272%_ - _%tl5587956275%_ - _%e5588056278%_ - _%hd5588156282%_ - _%tl5588256285%_ - _%e5590156168%_ - _%hd5590256172%_ - _%tl5590356175%_ - _%e5590456178%_ - _%hd5590556182%_ - _%tl5590656185%_))) - (_%__kont8068780688%_ - _%tl5588256285%_ - _%hd5588156282%_)))) - (_%__kont8068780688%_ - _%tl5588256285%_ - _%hd5588156282%_)) - (let () (declare (not safe)) (_%g5587255951%_)))) - (let () (declare (not safe)) (_%g5587255951%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8067480675%_) - (let ((_%e5587756268%_ + (##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%_ (gx#syntax-e - _%__stx8067480675%_))) - (let ((_%tl5587956275%_ + _%__stx8072080721%_))) + (let ((_%tl5592556321%_ (let () (declare (not safe)) - (##cdr _%e5587756268%_))) - (_%hd5587856272%_ + (##cdr _%e5592356314%_))) + (_%hd5592456318%_ (let () (declare (not safe)) - (##car _%e5587756268%_)))) + (##car _%e5592356314%_)))) (if (gx#stx-pair? - _%tl5587956275%_) - (let ((_%e5588056278%_ + _%tl5592556321%_) + (let ((_%e5592656324%_ (gx#syntax-e - _%tl5587956275%_))) - (let ((_%tl5588256285%_ + _%tl5592556321%_))) + (let ((_%tl5592856331%_ (let () (declare (not safe)) - (##cdr _%e5588056278%_))) - (_%hd5588156282%_ + (##cdr _%e5592656324%_))) + (_%hd5592756328%_ (let () (declare (not safe)) - (##car _%e5588056278%_)))) - (_%__match8070180702%_ - _%e5587756268%_ - _%hd5587856272%_ - _%tl5587956275%_ - _%e5588056278%_ - _%hd5588156282%_ - _%tl5588256285%_))) + (##car _%e5592656324%_)))) + (_%__match8074780748%_ + _%e5592356314%_ + _%hd5592456318%_ + _%tl5592556321%_ + _%e5592656324%_ + _%hd5592756328%_ + _%tl5592856331%_))) (let () (declare (not safe)) - (_%g5587255951%_))))) + (_%g5591855997%_))))) (let () (declare (not safe)) - (_%g5587255951%_))))))) - _%g5584155852%_)))) - (_%g5583956317%_ _%id55836%_))))) - (let _%loop55436%_ ((_%rest55439%_ _%signature55430%_) - (_%result55441%_ '())) - (let* ((_%__stx8082480825%_ _%rest55439%_) - (_%g5544955518%_ + (_%g5591855997%_))))))) + _%g5588755898%_)))) + (_%g5588556363%_ _%id55882%_))))) + (let _%loop55482%_ ((_%rest55485%_ _%signature55476%_) + (_%result55487%_ '())) + (let* ((_%__stx8087080871%_ _%rest55485%_) + (_%g5549555564%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8082480825%_)))) - (let ((_%__kont8082780828%_ - (lambda (_%L55819%_ _%L55821%_) - (_%loop55436%_ _%L55819%_ _%result55441%_))) - (_%__kont8082980830%_ - (lambda (_%L55785%_ _%L55787%_) - (_%loop55436%_ _%L55785%_ _%result55441%_))) - (_%__kont8083180832%_ - (lambda (_%L55731%_ _%L55733%_ _%L55734%_) - (_%loop55436%_ - _%L55731%_ - (cons (_%contract-e55433%_ _%L55734%_ _%L55733%_) - _%result55441%_)))) - (_%__kont8083380834%_ - (lambda (_%L55687%_ _%L55689%_ _%L55690%_) - (_%loop55436%_ _%L55687%_ _%result55441%_))) - (_%__kont8083580836%_ - (lambda (_%L55639%_ _%L55641%_ _%L55642%_) - (_%loop55436%_ _%L55639%_ _%result55441%_))) - (_%__kont8083780838%_ - (lambda (_%L55566%_ _%L55568%_ _%L55569%_ _%L55570%_) - (_%loop55436%_ - _%L55566%_ - (cons (_%contract-e55433%_ _%L55569%_ _%L55568%_) - _%result55441%_)))) - (_%__kont8083980840%_ - (lambda () (reverse! (filter identity _%result55441%_))))) - (let* ((_%__match8093580936%_ - (lambda (_%e5550455536%_ - _%hd5550555540%_ - _%tl5550655543%_ - _%e5550755546%_ - _%hd5550855550%_ - _%tl5550955553%_ - _%e5551055556%_ - _%hd5551155560%_ - _%tl5551255563%_) - (let ((_%L55566%_ _%tl5550955553%_) - (_%L55568%_ _%tl5551255563%_) - (_%L55569%_ _%hd5551155560%_) - (_%L55570%_ _%hd5550555540%_)) - (if (and (gx#stx-keyword? _%L55570%_) - (gx#identifier? _%L55569%_) + _%__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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55568%_)) - (_%__kont8083780838%_ - _%L55566%_ - _%L55568%_ - _%L55569%_ - _%L55570%_) - (_%__kont8083980840%_))))) - (_%__match8091780918%_ - (lambda (_%e5548855599%_ - _%hd5548955603%_ - _%tl5549055606%_ - _%e5549155609%_ - _%hd5549255613%_ - _%tl5549355616%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_ - _%e5549755629%_ - _%hd5549855633%_ - _%tl5549955636%_) - (let ((_%L55639%_ _%tl5549355616%_) - (_%L55641%_ _%hd5549555623%_) - (_%L55642%_ _%hd5548955603%_)) - (if (and (gx#stx-keyword? _%L55642%_) - (gx#identifier? _%L55641%_)) - (_%__kont8083580836%_ - _%L55639%_ - _%L55641%_ - _%L55642%_) - (_%__match8093580936%_ - _%e5548855599%_ - _%hd5548955603%_ - _%tl5549055606%_ - _%e5549155609%_ - _%hd5549255613%_ - _%tl5549355616%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_))))) - (_%__match8089180892%_ - (lambda (_%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_) - (let ((_%L55687%_ _%tl5548455684%_) - (_%L55689%_ _%hd5548355681%_) - (_%L55690%_ _%hd5548055671%_)) - (if (and (gx#stx-keyword? _%L55690%_) - (gx#identifier? _%L55689%_)) - (_%__kont8083380834%_ + _%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%_ - _%L55689%_ - _%L55690%_) - (if (gx#stx-pair? _%hd5548355681%_) - (let ((_%e5549455619%_ - (gx#syntax-e _%hd5548355681%_))) - (let ((_%tl5549655626%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5549455619%_))) - (_%hd5549555623%_ + (##cdr _%e5554055665%_))) + (_%hd5554155669%_ (let () (declare (not safe)) - (##car _%e5549455619%_)))) - (if (gx#stx-pair? _%tl5549655626%_) - (let ((_%e5549755629%_ + (##car _%e5554055665%_)))) + (if (gx#stx-pair? _%tl5554255672%_) + (let ((_%e5554355675%_ (gx#syntax-e - _%tl5549655626%_))) - (let ((_%tl5549955636%_ + _%tl5554255672%_))) + (let ((_%tl5554555682%_ (let () (declare (not safe)) - (##cdr _%e5549755629%_))) - (_%hd5549855633%_ + (##cdr _%e5554355675%_))) + (_%hd5554455679%_ (let () (declare (not safe)) - (##car _%e5549755629%_)))) + (##car _%e5554355675%_)))) (if (gx#stx-null? - _%tl5549955636%_) - (_%__match8091780918%_ - _%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_ - _%e5549755629%_ - _%hd5549855633%_ - _%tl5549955636%_) - (_%__match8093580936%_ - _%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_)))) - (_%__match8093580936%_ - _%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_)))) - (_%__kont8083980840%_)))))) - (_%__match8087980880%_ - (lambda (_%e5547055711%_ - _%hd5547155715%_ - _%tl5547255718%_ - _%e5547355721%_ - _%hd5547455725%_ - _%tl5547555728%_) - (let ((_%L55731%_ _%tl5547255718%_) - (_%L55733%_ _%tl5547555728%_) - (_%L55734%_ _%hd5547455725%_)) - (if (and (gx#identifier? _%L55734%_) + _%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%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55733%_)) - (_%__kont8083180832%_ - _%L55731%_ - _%L55733%_ - _%L55734%_) - (if (gx#stx-pair? _%tl5547255718%_) - (let ((_%e5548255677%_ - (gx#syntax-e _%tl5547255718%_))) - (let ((_%tl5548455684%_ + _%L55779%_)) + (_%__kont8087780878%_ + _%L55777%_ + _%L55779%_ + _%L55780%_) + (if (gx#stx-pair? _%tl5551855764%_) + (let ((_%e5552855723%_ + (gx#syntax-e _%tl5551855764%_))) + (let ((_%tl5553055730%_ (let () (declare (not safe)) - (##cdr _%e5548255677%_))) - (_%hd5548355681%_ + (##cdr _%e5552855723%_))) + (_%hd5552955727%_ (let () (declare (not safe)) - (##car _%e5548255677%_)))) - (_%__match8089180892%_ - _%e5547055711%_ - _%hd5547155715%_ - _%tl5547255718%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_))) - (_%__kont8083980840%_)))))) - (_%__match8086780868%_ - (lambda (_%e5545855755%_ - _%hd5545955759%_ - _%tl5546055762%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_ - _%e5546455775%_ - _%hd5546555779%_ - _%tl5546655782%_) - (let ((_%L55785%_ _%tl5546055762%_) - (_%L55787%_ _%hd5546255769%_)) - (if (gx#identifier? _%L55787%_) - (_%__kont8082980830%_ _%L55785%_ _%L55787%_) - (_%__match8087980880%_ - _%e5545855755%_ - _%hd5545955759%_ - _%tl5546055762%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_))))) - (_%__match8084780848%_ - (lambda (_%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_) - (let ((_%L55819%_ _%tl5545555816%_) - (_%L55821%_ _%hd5545455813%_)) - (if (gx#identifier? _%L55821%_) - (_%__kont8082780828%_ _%L55819%_ _%L55821%_) - (if (gx#stx-pair? _%hd5545455813%_) - (let ((_%e5546155765%_ - (gx#syntax-e _%hd5545455813%_))) - (let ((_%tl5546355772%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5546155765%_))) - (_%hd5546255769%_ + (##cdr _%e5550755811%_))) + (_%hd5550855815%_ (let () (declare (not safe)) - (##car _%e5546155765%_)))) - (if (gx#stx-pair? _%tl5546355772%_) - (let ((_%e5546455775%_ + (##car _%e5550755811%_)))) + (if (gx#stx-pair? _%tl5550955818%_) + (let ((_%e5551055821%_ (gx#syntax-e - _%tl5546355772%_))) - (let ((_%tl5546655782%_ + _%tl5550955818%_))) + (let ((_%tl5551255828%_ (let () (declare (not safe)) - (##cdr _%e5546455775%_))) - (_%hd5546555779%_ + (##cdr _%e5551055821%_))) + (_%hd5551155825%_ (let () (declare (not safe)) - (##car _%e5546455775%_)))) + (##car _%e5551055821%_)))) (if (gx#stx-null? - _%tl5546655782%_) - (_%__match8086780868%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_ - _%e5546455775%_ - _%hd5546555779%_ - _%tl5546655782%_) - (_%__match8087980880%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_)))) - (_%__match8087980880%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_)))) - (if (gx#stx-pair? _%tl5545555816%_) - (let ((_%e5548255677%_ - (gx#syntax-e _%tl5545555816%_))) - (let ((_%tl5548455684%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e5548255677%_))) - (_%hd5548355681%_ + (##cdr _%e5552855723%_))) + (_%hd5552955727%_ (let () (declare (not safe)) - (##car _%e5548255677%_)))) - (_%__match8089180892%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_))) - (_%__kont8083980840%_)))))))) - (if (gx#stx-pair? _%__stx8082480825%_) - (let ((_%e5545355809%_ - (gx#syntax-e _%__stx8082480825%_))) - (let ((_%tl5545555816%_ + (##car _%e5552855723%_)))) + (_%__match8093780938%_ + _%e5549955855%_ + _%hd5550055859%_ + _%tl5550155862%_ + _%e5552855723%_ + _%hd5552955727%_ + _%tl5553055730%_))) + (_%__kont8088580886%_)))))))) + (if (gx#stx-pair? _%__stx8087080871%_) + (let ((_%e5549955855%_ + (gx#syntax-e _%__stx8087080871%_))) + (let ((_%tl5550155862%_ (let () (declare (not safe)) - (##cdr _%e5545355809%_))) - (_%hd5545455813%_ + (##cdr _%e5549955855%_))) + (_%hd5550055859%_ (let () (declare (not safe)) - (##car _%e5545355809%_)))) - (_%__match8084780848%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_))) - (_%__kont8083980840%_))))))))) + (##car _%e5549955855%_)))) + (_%__match8089380894%_ + _%e5549955855%_ + _%hd5550055859%_ + _%tl5550155862%_))) + (_%__kont8088580886%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| - (lambda (_%left55395%_ _%right55397%_) - (let ((__tmp84064 - (lambda (_%return55399%_) - (let ((_%left-arity55402%_ - (|gerbil/core/contract~Interface[1]#signature-arity| - _%left55395%_)) - (_%right-arity55404%_ - (|gerbil/core/contract~Interface[1]#signature-arity| - _%right55397%_))) - (if (equal? _%left-arity55402%_ _%right-arity55404%_) - '#!void - (_%return55399%_ '#f))) - (let ((_%left-kws55406%_ - (|gerbil/core/contract~Interface[1]#signature-keywords| - _%left55395%_)) - (_%right-kws55408%_ - (|gerbil/core/contract~Interface[1]#signature-keywords| - _%right55397%_))) - (if (equal? _%left-kws55406%_ _%right-kws55408%_) - '#!void - (_%return55399%_ '#f))) - (let ((_g84065_ - (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%left55395%_)) - (_g84067_ - (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%right55397%_))) - (begin - (let ((_g84066_ - (let () - (declare (not safe)) - (if (##values? _g84065_) - (##vector-length _g84065_) - 1)))) - (if (not (let () + (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%_ + (|gerbil/core/contract~Interface[1]#signature-arity| + _%left-args55439%_)) + (_%right-arity55450%_ + (|gerbil/core/contract~Interface[1]#signature-arity| + _%right-args55442%_))) + (if (equal? _%left-arity55448%_ _%right-arity55450%_) + '#!void + (_%return55445%_ '#f))) + (let ((_%left-kws55452%_ + (|gerbil/core/contract~Interface[1]#signature-keywords| + _%left-args55439%_)) + (_%right-kws55454%_ + (|gerbil/core/contract~Interface[1]#signature-keywords| + _%right-args55442%_))) + (if (equal? _%left-kws55452%_ _%right-kws55454%_) + '#!void + (_%return55445%_ '#f))) + (let ((_g84111_ + (|gerbil/core/contract~Interface[1]#signature-type-contract| + _%left-args55439%_)) + (_g84113_ + (|gerbil/core/contract~Interface[1]#signature-type-contract| + _%right-args55442%_))) + (begin + (let ((_g84112_ + (let () (declare (not safe)) - (##fx= _g84066_ 2))) - (error "Context expects 2 values" _g84066_))) - (let ((_g84068_ - (let () - (declare (not safe)) - (if (##values? _g84067_) - (##vector-length _g84067_) - 1)))) - (if (not (let () + (if (##values? _g84111_) + (##vector-length _g84111_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g84112_ 2))) + (error "Context expects 2 values" _g84112_))) + (let ((_g84114_ + (let () (declare (not safe)) - (##fx= _g84068_ 2))) - (error "Context expects 2 values" _g84068_))) - (let ((_%left-positional-contract55410%_ - (let () - (declare (not safe)) - (##vector-ref _g84065_ 0))) - (_%left-kw-contract55412%_ - (let () - (declare (not safe)) - (##vector-ref _g84065_ 1)))) - (let ((_%right-positional-contract55413%_ - (let () - (declare (not safe)) - (##vector-ref _g84067_ 0))) - (_%right-kw-contract55414%_ - (let () - (declare (not safe)) - (##vector-ref _g84067_ 1)))) - (let ((_%left-contract55424%_ - (append _%left-positional-contract55410%_ - (foldr (lambda (_%kwc55416%_ - _%r55418%_) - (cons (cdr _%kwc55416%_) - _%r55418%_)) - '() - _%left-kw-contract55412%_))) - (_%right-contract55426%_ - (append _%right-positional-contract55413%_ - (foldr (lambda (_%kwc55420%_ - _%r55422%_) - (cons (cdr _%kwc55420%_) - _%r55422%_)) - '() - _%right-kw-contract55414%_)))) - (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - _%left-contract55424%_ - _%right-contract55426%_) - '#!void - (_%return55399%_ '#f))))))) - '#t))) - (declare (not safe)) - (##call-with-current-continuation __tmp84064)))) + (if (##values? _g84113_) + (##vector-length _g84113_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g84114_ 2))) + (error "Context expects 2 values" _g84114_))) + (let ((_%left-positional-contract55456%_ + (let () + (declare (not safe)) + (##vector-ref _g84111_ 0))) + (_%left-kw-contract55458%_ + (let () + (declare (not safe)) + (##vector-ref _g84111_ 1)))) + (let ((_%right-positional-contract55459%_ + (let () + (declare (not safe)) + (##vector-ref _g84113_ 0))) + (_%right-kw-contract55460%_ + (let () + (declare (not safe)) + (##vector-ref _g84113_ 1)))) + (let ((_%left-contract55470%_ + (append _%left-positional-contract55456%_ + (foldr (lambda (_%kwc55462%_ + _%r55464%_) + (cons (cdr _%kwc55462%_) + _%r55464%_)) + '() + _%left-kw-contract55458%_))) + (_%right-contract55472%_ + (append _%right-positional-contract55459%_ + (foldr (lambda (_%kwc55466%_ + _%r55468%_) + (cons (cdr _%kwc55466%_) + _%r55468%_)) + '() + _%right-kw-contract55460%_)))) + (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| + _%left-contract55470%_ + _%right-contract55472%_) + '#!void + (_%return55445%_ '#f))))))) + (if (gx#free-identifier=? + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| + _%left55435%_ + _%left-return55441%_)) + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| + _%right55437%_ + _%right-return55443%_))) + '#!void + (_%return55445%_ '#f)) + '#t))) + (declare (not safe)) + (##call-with-current-continuation __tmp84110)))))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (lambda (_%left55298%_ _%right55300%_) - (let _%loop55302%_ ((_%left-rest55305%_ _%left55298%_) - (_%right-rest55307%_ _%right55300%_)) - (let* ((_%left-rest5530855316%_ _%left-rest55305%_) - (_%else5531055328%_ (lambda () (null? _%right-rest55307%_))) - (_%K5531255379%_ - (lambda (_%left-rest55332%_ _%left55334%_) - (let* ((_%right-rest5533555343%_ _%right-rest55307%_) - (_%else5533755355%_ (lambda () '#f)) - (_%K5533955363%_ - (lambda (_%right-rest55359%_ _%right55361%_) + (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%_) (if (|gerbil/core/contract~Interface[1]#compatible-type-contract?| - _%left55334%_ - _%right55361%_) - (_%loop55302%_ - _%left-rest55332%_ - _%right-rest55359%_) + _%left55370%_ + _%right55397%_) + (_%loop55338%_ + _%left-rest55368%_ + _%right-rest55395%_) '#f)))) - (if (pair? _%right-rest5533555343%_) - (let ((_%hd5534055367%_ + (if (pair? _%right-rest5537155379%_) + (let ((_%hd5537655403%_ (let () (declare (not safe)) - (##car _%right-rest5533555343%_))) - (_%tl5534155370%_ + (##car _%right-rest5537155379%_))) + (_%tl5537755406%_ (let () (declare (not safe)) - (##cdr _%right-rest5533555343%_)))) - (let* ((_%right55373%_ _%hd5534055367%_) - (_%right-rest55376%_ _%tl5534155370%_)) - (_%K5533955363%_ - _%right-rest55376%_ - _%right55373%_))) - (_%else5533755355%_)))))) - (if (pair? _%left-rest5530855316%_) - (let ((_%hd5531355383%_ + (##cdr _%right-rest5537155379%_)))) + (let* ((_%right55409%_ _%hd5537655403%_) + (_%right-rest55412%_ _%tl5537755406%_)) + (_%K5537555399%_ + _%right-rest55412%_ + _%right55409%_))) + (_%else5537355391%_)))))) + (if (pair? _%left-rest5534455352%_) + (let ((_%hd5534955419%_ (let () (declare (not safe)) - (##car _%left-rest5530855316%_))) - (_%tl5531455386%_ + (##car _%left-rest5534455352%_))) + (_%tl5535055422%_ (let () (declare (not safe)) - (##cdr _%left-rest5530855316%_)))) - (let* ((_%left55389%_ _%hd5531355383%_) - (_%left-rest55392%_ _%tl5531455386%_)) - (_%K5531255379%_ _%left-rest55392%_ _%left55389%_))) - (_%else5531055328%_)))))) + (##cdr _%left-rest5534455352%_)))) + (let* ((_%left55425%_ _%hd5534955419%_) + (_%left-rest55428%_ _%tl5535055422%_)) + (_%K5534855415%_ _%left-rest55428%_ _%left55425%_))) + (_%else5534655364%_)))))) (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (lambda (_%left53427%_ _%right53429%_) - (andmap (lambda (_%a53431%_ _%b53433%_) - (let* ((_%__stx8143081431%_ _%a53431%_) - (_%g5344153519%_ + (lambda (_%left53463%_ _%right53465%_) + (andmap (lambda (_%a53467%_ _%b53469%_) + (let* ((_%__stx8147681477%_ _%a53467%_) + (_%g5347753555%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8143081431%_)))) - (let ((_%__kont8143381434%_ - (lambda (_%L55032%_ _%L55034%_) - (let* ((_%__stx8134881349%_ _%b53433%_) - (_%g5505355097%_ + _%__stx8147681477%_)))) + (let ((_%__kont8147981480%_ + (lambda (_%L55068%_ _%L55070%_) + (let* ((_%__stx8139481395%_ _%b53469%_) + (_%g5508955133%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8134881349%_)))) - (let ((_%__kont8135181352%_ - (lambda (_%L55267%_ _%L55269%_) + _%__stx8139481395%_)))) + (let ((_%__kont8139781398%_ + (lambda (_%L55303%_ _%L55305%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55032%_ - _%L55267%_))) - (_%__kont8135381354%_ - (lambda (_%L55211%_ - _%L55213%_ - _%L55214%_) + _%L55068%_ + _%L55303%_))) + (_%__kont8139981400%_ + (lambda (_%L55247%_ + _%L55249%_ + _%L55250%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55032%_ - _%L55211%_))) - (_%__kont8135581356%_ - (lambda (_%L55144%_ _%L55146%_) '#t))) - (let* ((_%__match8139781398%_ - (lambda (_%e5506655171%_ - _%hd5506755175%_ - _%tl5506855178%_ - _%e5506955181%_ - _%hd5507055185%_ - _%tl5507155188%_ - _%e5507255191%_ - _%hd5507355195%_ - _%tl5507455198%_ - _%e5507555201%_ - _%hd5507655205%_ - _%tl5507755208%_) - (let ((_%L55211%_ _%hd5507655205%_) - (_%L55213%_ _%hd5507355195%_) - (_%L55214%_ _%hd5507055185%_)) + _%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%_)) (if (or (gx#free-identifier=? - _%L55213%_ + _%L55249%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55213%_ + _%L55249%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55213%_ + _%L55249%_ (gx#datum->syntax '#f ':-))) - (_%__kont8135381354%_ - _%L55211%_ - _%L55213%_ - _%L55214%_) + (_%__kont8139981400%_ + _%L55247%_ + _%L55249%_ + _%L55250%_) (if (gx#stx-null? - _%tl5507755208%_) - (_%__kont8135581356%_ - _%hd5507355195%_ - _%hd5507055185%_) + _%tl5511355244%_) + (_%__kont8140181402%_ + _%hd5510955231%_ + _%hd5510655221%_) (let () (declare (not safe)) - (_%g5505355097%_))))))) - (_%__match8136981370%_ - (lambda (_%e5505755247%_ - _%hd5505855251%_ - _%tl5505955254%_ - _%e5506055257%_ - _%hd5506155261%_ - _%tl5506255264%_) - (let ((_%L55267%_ _%hd5506155261%_) - (_%L55269%_ _%hd5505855251%_)) + (_%g5508955133%_))))))) + (_%__match8141581416%_ + (lambda (_%e5509355283%_ + _%hd5509455287%_ + _%tl5509555290%_ + _%e5509655293%_ + _%hd5509755297%_ + _%tl5509855300%_) + (let ((_%L55303%_ _%hd5509755297%_) + (_%L55305%_ _%hd5509455287%_)) (if (or (gx#free-identifier=? - _%L55269%_ + _%L55305%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55269%_ + _%L55305%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55269%_ + _%L55305%_ (gx#datum->syntax '#f ':-))) - (_%__kont8135181352%_ - _%L55267%_ - _%L55269%_) + (_%__kont8139781398%_ + _%L55303%_ + _%L55305%_) (if (gx#identifier? - _%hd5505855251%_) + _%hd5509455287%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84069_| - _%hd5505855251%_) + |gerbil/core/contract~Interface[1]#_g84115_| + _%hd5509455287%_) (if (gx#stx-pair? - _%tl5506255264%_) - (let ((_%e5507255191%_ + _%tl5509855300%_) + (let ((_%e5510855227%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5506255264%_))) - (let ((_%tl5507455198%_ + (gx#syntax-e _%tl5509855300%_))) + (let ((_%tl5511055234%_ (let () (declare (not safe)) - (##cdr _%e5507255191%_))) - (_%hd5507355195%_ + (##cdr _%e5510855227%_))) + (_%hd5510955231%_ (let () (declare (not safe)) - (##car _%e5507255191%_)))) - (if (gx#stx-pair? _%tl5507455198%_) - (let ((_%e5507555201%_ - (gx#syntax-e _%tl5507455198%_))) - (let ((_%tl5507755208%_ + (##car _%e5510855227%_)))) + (if (gx#stx-pair? _%tl5511055234%_) + (let ((_%e5511155237%_ + (gx#syntax-e _%tl5511055234%_))) + (let ((_%tl5511355244%_ (let () (declare (not safe)) - (##cdr _%e5507555201%_))) - (_%hd5507655205%_ + (##cdr _%e5511155237%_))) + (_%hd5511255241%_ (let () (declare (not safe)) - (##car _%e5507555201%_)))) - (_%__match8139781398%_ - _%e5505755247%_ - _%hd5505855251%_ - _%tl5505955254%_ - _%e5506055257%_ - _%hd5506155261%_ - _%tl5506255264%_ - _%e5507255191%_ - _%hd5507355195%_ - _%tl5507455198%_ - _%e5507555201%_ - _%hd5507655205%_ - _%tl5507755208%_))) - (let () (declare (not safe)) (_%g5505355097%_))))) - (let () (declare (not safe)) (_%g5505355097%_))) - (let () (declare (not safe)) (_%g5505355097%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5505355097%_)))))))) - (if (gx#stx-pair? _%__stx8134881349%_) - (let ((_%e5505755247%_ + (_%g5508955133%_)))))))) + (if (gx#stx-pair? _%__stx8139481395%_) + (let ((_%e5509355283%_ (gx#syntax-e - _%__stx8134881349%_))) - (let ((_%tl5505955254%_ + _%__stx8139481395%_))) + (let ((_%tl5509555290%_ (let () (declare (not safe)) - (##cdr _%e5505755247%_))) - (_%hd5505855251%_ + (##cdr _%e5509355283%_))) + (_%hd5509455287%_ (let () (declare (not safe)) - (##car _%e5505755247%_)))) - (if (gx#stx-pair? _%tl5505955254%_) - (let ((_%e5506055257%_ + (##car _%e5509355283%_)))) + (if (gx#stx-pair? _%tl5509555290%_) + (let ((_%e5509655293%_ (gx#syntax-e - _%tl5505955254%_))) - (let ((_%tl5506255264%_ + _%tl5509555290%_))) + (let ((_%tl5509855300%_ (let () (declare (not safe)) - (##cdr _%e5506055257%_))) - (_%hd5506155261%_ + (##cdr _%e5509655293%_))) + (_%hd5509755297%_ (let () (declare (not safe)) - (##car _%e5506055257%_)))) - (_%__match8136981370%_ - _%e5505755247%_ - _%hd5505855251%_ - _%tl5505955254%_ - _%e5506055257%_ - _%hd5506155261%_ - _%tl5506255264%_))) + (##car _%e5509655293%_)))) + (_%__match8141581416%_ + _%e5509355283%_ + _%hd5509455287%_ + _%tl5509555290%_ + _%e5509655293%_ + _%hd5509755297%_ + _%tl5509855300%_))) (let () (declare (not safe)) - (_%g5505355097%_))))) + (_%g5508955133%_))))) (let () (declare (not safe)) - (_%g5505355097%_)))))))) - (_%__kont8143581436%_ - (lambda (_%L54839%_) - (let* ((_%__stx8128881289%_ _%b53433%_) - (_%g5485454882%_ + (_%g5508955133%_)))))))) + (_%__kont8148181482%_ + (lambda (_%L54875%_) + (let* ((_%__stx8133481335%_ _%b53469%_) + (_%g5489054918%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8128881289%_)))) - (let ((_%__kont8129181292%_ - (lambda (_%L54988%_) + _%__stx8133481335%_)))) + (let ((_%__kont8133781338%_ + (lambda (_%L55024%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54839%_ - _%L54988%_))) - (_%__kont8129381294%_ - (lambda (_%L54940%_ _%L54942%_) + _%L54875%_ + _%L55024%_))) + (_%__kont8133981340%_ + (lambda (_%L54976%_ _%L54978%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54839%_ - _%L54940%_))) - (_%__kont8129581296%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8128881289%_) - (let ((_%e5485754968%_ - (gx#syntax-e _%__stx8128881289%_))) - (let ((_%tl5485954975%_ + _%L54875%_ + _%L54976%_))) + (_%__kont8134181342%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8133481335%_) + (let ((_%e5489355004%_ + (gx#syntax-e _%__stx8133481335%_))) + (let ((_%tl5489555011%_ (let () (declare (not safe)) - (##cdr _%e5485754968%_))) - (_%hd5485854972%_ + (##cdr _%e5489355004%_))) + (_%hd5489455008%_ (let () (declare (not safe)) - (##car _%e5485754968%_)))) - (if (gx#identifier? _%hd5485854972%_) + (##car _%e5489355004%_)))) + (if (gx#identifier? _%hd5489455008%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84070_| - _%hd5485854972%_) + |gerbil/core/contract~Interface[1]#_g84116_| + _%hd5489455008%_) (if (gx#stx-pair? - _%tl5485954975%_) - (let ((_%e5486054978%_ + _%tl5489555011%_) + (let ((_%e5489655014%_ (gx#syntax-e - _%tl5485954975%_))) - (let ((_%tl5486254985%_ + _%tl5489555011%_))) + (let ((_%tl5489855021%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5486054978%_))) - (_%hd5486154982%_ - (let () (declare (not safe)) (##car _%e5486054978%_)))) - (_%__kont8129181292%_ _%hd5486154982%_))) + (##cdr _%e5489655014%_))) + (_%hd5489755018%_ + (let () (declare (not safe)) (##car _%e5489655014%_)))) + (_%__kont8133781338%_ _%hd5489755018%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8129581296%_)) + (_%__kont8134181342%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84071_| - _%hd5485854972%_) + |gerbil/core/contract~Interface[1]#_g84117_| + _%hd5489455008%_) (if (gx#stx-pair? - _%tl5485954975%_) - (let ((_%e5486854910%_ + _%tl5489555011%_) + (let ((_%e5490454946%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5485954975%_))) - (let ((_%tl5487054917%_ + _%tl5489555011%_))) + (let ((_%tl5490654953%_ (let () (declare (not safe)) - (##cdr _%e5486854910%_))) - (_%hd5486954914%_ + (##cdr _%e5490454946%_))) + (_%hd5490554950%_ (let () (declare (not safe)) - (##car _%e5486854910%_)))) - (if (gx#stx-pair? _%tl5487054917%_) - (let ((_%e5487154920%_ - (gx#syntax-e _%tl5487054917%_))) - (let ((_%tl5487354927%_ + (##car _%e5490454946%_)))) + (if (gx#stx-pair? _%tl5490654953%_) + (let ((_%e5490754956%_ + (gx#syntax-e _%tl5490654953%_))) + (let ((_%tl5490954963%_ (let () (declare (not safe)) - (##cdr _%e5487154920%_))) - (_%hd5487254924%_ + (##cdr _%e5490754956%_))) + (_%hd5490854960%_ (let () (declare (not safe)) - (##car _%e5487154920%_)))) - (if (gx#identifier? _%hd5487254924%_) + (##car _%e5490754956%_)))) + (if (gx#identifier? _%hd5490854960%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84072_| - _%hd5487254924%_) - (if (gx#stx-pair? _%tl5487354927%_) - (let ((_%e5487454930%_ + |gerbil/core/contract~Interface[1]#_g84118_| + _%hd5490854960%_) + (if (gx#stx-pair? _%tl5490954963%_) + (let ((_%e5491054966%_ (gx#syntax-e - _%tl5487354927%_))) - (let ((_%tl5487654937%_ + _%tl5490954963%_))) + (let ((_%tl5491254973%_ (let () (declare (not safe)) - (##cdr _%e5487454930%_))) - (_%hd5487554934%_ + (##cdr _%e5491054966%_))) + (_%hd5491154970%_ (let () (declare (not safe)) - (##car _%e5487454930%_)))) - (_%__kont8129381294%_ - _%hd5487554934%_ - _%hd5486954914%_))) - (_%__kont8129581296%_)) - (_%__kont8129581296%_)) - (_%__kont8129581296%_)))) - (_%__kont8129581296%_)))) - (_%__kont8129581296%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8129581296%_))) - (_%__kont8129581296%_)))) - (_%__kont8129581296%_)))))) - (_%__kont8143781438%_ - (lambda (_%L54556%_) - (let* ((_%__stx8120281203%_ _%b53433%_) - (_%g5457154615%_ + (##car _%e5491054966%_)))) + (_%__kont8133981340%_ + _%hd5491154970%_ + _%hd5490554950%_))) + (_%__kont8134181342%_)) + (_%__kont8134181342%_)) + (_%__kont8134181342%_)))) + (_%__kont8134181342%_)))) + (_%__kont8134181342%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8134181342%_))) + (_%__kont8134181342%_)))) + (_%__kont8134181342%_)))))) + (_%__kont8148381484%_ + (lambda (_%L54592%_) + (let* ((_%__stx8124881249%_ _%b53469%_) + (_%g5460754651%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8120281203%_)))) - (let ((_%__kont8120581206%_ - (lambda (_%L54785%_ _%L54787%_) + _%__stx8124881249%_)))) + (let ((_%__kont8125181252%_ + (lambda (_%L54821%_ _%L54823%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54556%_ - _%L54785%_))) - (_%__kont8120781208%_ - (lambda (_%L54727%_ - _%L54729%_ - _%L54730%_ - _%L54731%_) + _%L54592%_ + _%L54821%_))) + (_%__kont8125381254%_ + (lambda (_%L54763%_ + _%L54765%_ + _%L54766%_ + _%L54767%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54556%_ - _%L54729%_))) - (_%__kont8120981210%_ - (lambda (_%L54662%_) '#t))) - (let* ((_%__match8125181252%_ - (lambda (_%e5458554687%_ - _%hd5458654691%_ - _%tl5458754694%_ - _%e5458854697%_ - _%hd5458954701%_ - _%tl5459054704%_ - _%e5459154707%_ - _%hd5459254711%_ - _%tl5459354714%_ - _%e5459454717%_ - _%hd5459554721%_ - _%tl5459654724%_) - (let ((_%L54727%_ _%tl5459654724%_) - (_%L54729%_ _%hd5459554721%_) - (_%L54730%_ _%hd5459254711%_) - (_%L54731%_ _%hd5458954701%_)) + _%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%_)) (if (or (gx#free-identifier=? - _%L54730%_ + _%L54766%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54730%_ + _%L54766%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54730%_ + _%L54766%_ (gx#datum->syntax '#f ':-))) - (_%__kont8120781208%_ - _%L54727%_ - _%L54729%_ - _%L54730%_ - _%L54731%_) + (_%__kont8125381254%_ + _%L54763%_ + _%L54765%_ + _%L54766%_ + _%L54767%_) (if (gx#identifier? - _%hd5459254711%_) + _%hd5462854747%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84073_| - _%hd5459254711%_) + |gerbil/core/contract~Interface[1]#_g84119_| + _%hd5462854747%_) (if (gx#stx-null? - _%tl5459654724%_) - (_%__kont8120981210%_ - _%hd5458954701%_) + _%tl5463254760%_) + (_%__kont8125581256%_ + _%hd5462554737%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g5457154615%_))) - (let () (declare (not safe)) (_%g5457154615%_))) + (_%g5460754651%_))) + (let () (declare (not safe)) (_%g5460754651%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5457154615%_))))))) - (_%__match8122381224%_ - (lambda (_%e5457554765%_ - _%hd5457654769%_ - _%tl5457754772%_ - _%e5457854775%_ - _%hd5457954779%_ - _%tl5458054782%_) - (let ((_%L54785%_ _%hd5457954779%_) - (_%L54787%_ _%hd5457654769%_)) + (_%g5460754651%_))))))) + (_%__match8126981270%_ + (lambda (_%e5461154801%_ + _%hd5461254805%_ + _%tl5461354808%_ + _%e5461454811%_ + _%hd5461554815%_ + _%tl5461654818%_) + (let ((_%L54821%_ _%hd5461554815%_) + (_%L54823%_ _%hd5461254805%_)) (if (or (gx#free-identifier=? - _%L54787%_ + _%L54823%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54787%_ + _%L54823%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54787%_ + _%L54823%_ (gx#datum->syntax '#f ':-))) - (_%__kont8120581206%_ - _%L54785%_ - _%L54787%_) + (_%__kont8125181252%_ + _%L54821%_ + _%L54823%_) (if (gx#identifier? - _%hd5457654769%_) + _%hd5461254805%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84074_| - _%hd5457654769%_) + |gerbil/core/contract~Interface[1]#_g84120_| + _%hd5461254805%_) (if (gx#stx-pair? - _%tl5458054782%_) - (let ((_%e5459154707%_ + _%tl5461654818%_) + (let ((_%e5462754743%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5458054782%_))) - (let ((_%tl5459354714%_ + (gx#syntax-e _%tl5461654818%_))) + (let ((_%tl5462954750%_ (let () (declare (not safe)) - (##cdr _%e5459154707%_))) - (_%hd5459254711%_ + (##cdr _%e5462754743%_))) + (_%hd5462854747%_ (let () (declare (not safe)) - (##car _%e5459154707%_)))) - (if (gx#stx-pair? _%tl5459354714%_) - (let ((_%e5459454717%_ - (gx#syntax-e _%tl5459354714%_))) - (let ((_%tl5459654724%_ + (##car _%e5462754743%_)))) + (if (gx#stx-pair? _%tl5462954750%_) + (let ((_%e5463054753%_ + (gx#syntax-e _%tl5462954750%_))) + (let ((_%tl5463254760%_ (let () (declare (not safe)) - (##cdr _%e5459454717%_))) - (_%hd5459554721%_ + (##cdr _%e5463054753%_))) + (_%hd5463154757%_ (let () (declare (not safe)) - (##car _%e5459454717%_)))) - (_%__match8125181252%_ - _%e5457554765%_ - _%hd5457654769%_ - _%tl5457754772%_ - _%e5457854775%_ - _%hd5457954779%_ - _%tl5458054782%_ - _%e5459154707%_ - _%hd5459254711%_ - _%tl5459354714%_ - _%e5459454717%_ - _%hd5459554721%_ - _%tl5459654724%_))) - (let () (declare (not safe)) (_%g5457154615%_))))) - (let () (declare (not safe)) (_%g5457154615%_))) - (let () (declare (not safe)) (_%g5457154615%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5457154615%_)))))))) - (if (gx#stx-pair? _%__stx8120281203%_) - (let ((_%e5457554765%_ + (_%g5460754651%_)))))))) + (if (gx#stx-pair? _%__stx8124881249%_) + (let ((_%e5461154801%_ (gx#syntax-e - _%__stx8120281203%_))) - (let ((_%tl5457754772%_ + _%__stx8124881249%_))) + (let ((_%tl5461354808%_ (let () (declare (not safe)) - (##cdr _%e5457554765%_))) - (_%hd5457654769%_ + (##cdr _%e5461154801%_))) + (_%hd5461254805%_ (let () (declare (not safe)) - (##car _%e5457554765%_)))) - (if (gx#stx-pair? _%tl5457754772%_) - (let ((_%e5457854775%_ + (##car _%e5461154801%_)))) + (if (gx#stx-pair? _%tl5461354808%_) + (let ((_%e5461454811%_ (gx#syntax-e - _%tl5457754772%_))) - (let ((_%tl5458054782%_ + _%tl5461354808%_))) + (let ((_%tl5461654818%_ (let () (declare (not safe)) - (##cdr _%e5457854775%_))) - (_%hd5457954779%_ + (##cdr _%e5461454811%_))) + (_%hd5461554815%_ (let () (declare (not safe)) - (##car _%e5457854775%_)))) - (_%__match8122381224%_ - _%e5457554765%_ - _%hd5457654769%_ - _%tl5457754772%_ - _%e5457854775%_ - _%hd5457954779%_ - _%tl5458054782%_))) + (##car _%e5461454811%_)))) + (_%__match8126981270%_ + _%e5461154801%_ + _%hd5461254805%_ + _%tl5461354808%_ + _%e5461454811%_ + _%hd5461554815%_ + _%tl5461654818%_))) (let () (declare (not safe)) - (_%g5457154615%_))))) + (_%g5460754651%_))))) (let () (declare (not safe)) - (_%g5457154615%_)))))))) - (_%__kont8143981440%_ - (lambda (_%L54275%_ _%L54277%_) - (let* ((_%__stx8112081121%_ _%b53433%_) - (_%g5429654340%_ + (_%g5460754651%_)))))))) + (_%__kont8148581486%_ + (lambda (_%L54311%_ _%L54313%_) + (let* ((_%__stx8116681167%_ _%b53469%_) + (_%g5433254376%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8112081121%_)))) - (let ((_%__kont8112381124%_ - (lambda (_%L54502%_ _%L54504%_) + _%__stx8116681167%_)))) + (let ((_%__kont8116981170%_ + (lambda (_%L54538%_ _%L54540%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54275%_ - _%L54502%_))) - (_%__kont8112581126%_ - (lambda (_%L54454%_ - _%L54456%_ - _%L54457%_) + _%L54311%_ + _%L54538%_))) + (_%__kont8117181172%_ + (lambda (_%L54490%_ + _%L54492%_ + _%L54493%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54275%_ - _%L54454%_))) - (_%__kont8112781128%_ - (lambda (_%L54387%_ _%L54389%_) '#t))) - (let ((_%__match8114181142%_ - (lambda (_%e5430054482%_ - _%hd5430154486%_ - _%tl5430254489%_ - _%e5430354492%_ - _%hd5430454496%_ - _%tl5430554499%_) - (let ((_%L54502%_ _%hd5430454496%_) - (_%L54504%_ _%hd5430154486%_)) + _%L54311%_ + _%L54490%_))) + (_%__kont8117381174%_ + (lambda (_%L54423%_ _%L54425%_) '#t))) + (let ((_%__match8118781188%_ + (lambda (_%e5433654518%_ + _%hd5433754522%_ + _%tl5433854525%_ + _%e5433954528%_ + _%hd5434054532%_ + _%tl5434154535%_) + (let ((_%L54538%_ _%hd5434054532%_) + (_%L54540%_ _%hd5433754522%_)) (if (or (gx#free-identifier=? - _%L54504%_ + _%L54540%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54504%_ + _%L54540%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54504%_ + _%L54540%_ (gx#datum->syntax '#f ':-))) - (_%__kont8112381124%_ - _%L54502%_ - _%L54504%_) + (_%__kont8116981170%_ + _%L54538%_ + _%L54540%_) (if (gx#identifier? - _%hd5430154486%_) + _%hd5433754522%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84075_| - _%hd5430154486%_) + |gerbil/core/contract~Interface[1]#_g84121_| + _%hd5433754522%_) (if (gx#stx-pair? - _%tl5430554499%_) - (let ((_%e5431554434%_ + _%tl5434154535%_) + (let ((_%e5435154470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5430554499%_))) - (let ((_%tl5431754441%_ + (gx#syntax-e _%tl5434154535%_))) + (let ((_%tl5435354477%_ (let () (declare (not safe)) - (##cdr _%e5431554434%_))) - (_%hd5431654438%_ + (##cdr _%e5435154470%_))) + (_%hd5435254474%_ (let () (declare (not safe)) - (##car _%e5431554434%_)))) - (if (gx#stx-pair? _%tl5431754441%_) - (let ((_%e5431854444%_ - (gx#syntax-e _%tl5431754441%_))) - (let ((_%tl5432054451%_ + (##car _%e5435154470%_)))) + (if (gx#stx-pair? _%tl5435354477%_) + (let ((_%e5435454480%_ + (gx#syntax-e _%tl5435354477%_))) + (let ((_%tl5435654487%_ (let () (declare (not safe)) - (##cdr _%e5431854444%_))) - (_%hd5431954448%_ + (##cdr _%e5435454480%_))) + (_%hd5435554484%_ (let () (declare (not safe)) - (##car _%e5431854444%_)))) - (_%__kont8112581126%_ - _%hd5431954448%_ - _%hd5431654438%_ - _%hd5430454496%_))) - (let () (declare (not safe)) (_%g5429654340%_))))) - (let () (declare (not safe)) (_%g5429654340%_))) - (let () (declare (not safe)) (_%g5429654340%_))) + (##car _%e5435454480%_)))) + (_%__kont8117181172%_ + _%hd5435554484%_ + _%hd5435254474%_ + _%hd5434054532%_))) + (let () (declare (not safe)) (_%g5433254376%_))))) + (let () (declare (not safe)) (_%g5433254376%_))) + (let () (declare (not safe)) (_%g5433254376%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5429654340%_)))))))) - (if (gx#stx-pair? _%__stx8112081121%_) - (let ((_%e5430054482%_ + (_%g5433254376%_)))))))) + (if (gx#stx-pair? _%__stx8116681167%_) + (let ((_%e5433654518%_ (gx#syntax-e - _%__stx8112081121%_))) - (let ((_%tl5430254489%_ + _%__stx8116681167%_))) + (let ((_%tl5433854525%_ (let () (declare (not safe)) - (##cdr _%e5430054482%_))) - (_%hd5430154486%_ + (##cdr _%e5433654518%_))) + (_%hd5433754522%_ (let () (declare (not safe)) - (##car _%e5430054482%_)))) - (if (gx#stx-pair? _%tl5430254489%_) - (let ((_%e5430354492%_ + (##car _%e5433654518%_)))) + (if (gx#stx-pair? _%tl5433854525%_) + (let ((_%e5433954528%_ (gx#syntax-e - _%tl5430254489%_))) - (let ((_%tl5430554499%_ + _%tl5433854525%_))) + (let ((_%tl5434154535%_ (let () (declare (not safe)) - (##cdr _%e5430354492%_))) - (_%hd5430454496%_ + (##cdr _%e5433954528%_))) + (_%hd5434054532%_ (let () (declare (not safe)) - (##car _%e5430354492%_)))) - (_%__match8114181142%_ - _%e5430054482%_ - _%hd5430154486%_ - _%tl5430254489%_ - _%e5430354492%_ - _%hd5430454496%_ - _%tl5430554499%_))) + (##car _%e5433954528%_)))) + (_%__match8118781188%_ + _%e5433654518%_ + _%hd5433754522%_ + _%tl5433854525%_ + _%e5433954528%_ + _%hd5434054532%_ + _%tl5434154535%_))) (let () (declare (not safe)) - (_%g5429654340%_))))) + (_%g5433254376%_))))) (let () (declare (not safe)) - (_%g5429654340%_)))))))) - (_%__kont8144181442%_ - (lambda (_%L54056%_ _%L54058%_) - (let* ((_%__stx8106081061%_ _%b53433%_) - (_%g5407754105%_ + (_%g5433254376%_)))))))) + (_%__kont8148781488%_ + (lambda (_%L54092%_ _%L54094%_) + (let* ((_%__stx8110681107%_ _%b53469%_) + (_%g5411354141%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8106081061%_)))) - (let ((_%__kont8106381064%_ - (lambda (_%L54211%_) + _%__stx8110681107%_)))) + (let ((_%__kont8110981110%_ + (lambda (_%L54247%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54056%_ - _%L54211%_))) - (_%__kont8106581066%_ - (lambda (_%L54163%_ _%L54165%_) + _%L54092%_ + _%L54247%_))) + (_%__kont8111181112%_ + (lambda (_%L54199%_ _%L54201%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54056%_ - _%L54163%_))) - (_%__kont8106781068%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8106081061%_) - (let ((_%e5408054191%_ - (gx#syntax-e _%__stx8106081061%_))) - (let ((_%tl5408254198%_ + _%L54092%_ + _%L54199%_))) + (_%__kont8111381114%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8110681107%_) + (let ((_%e5411654227%_ + (gx#syntax-e _%__stx8110681107%_))) + (let ((_%tl5411854234%_ (let () (declare (not safe)) - (##cdr _%e5408054191%_))) - (_%hd5408154195%_ + (##cdr _%e5411654227%_))) + (_%hd5411754231%_ (let () (declare (not safe)) - (##car _%e5408054191%_)))) - (if (gx#identifier? _%hd5408154195%_) + (##car _%e5411654227%_)))) + (if (gx#identifier? _%hd5411754231%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84076_| - _%hd5408154195%_) + |gerbil/core/contract~Interface[1]#_g84122_| + _%hd5411754231%_) (if (gx#stx-pair? - _%tl5408254198%_) - (let ((_%e5408354201%_ + _%tl5411854234%_) + (let ((_%e5411954237%_ (gx#syntax-e - _%tl5408254198%_))) - (let ((_%tl5408554208%_ + _%tl5411854234%_))) + (let ((_%tl5412154244%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5408354201%_))) - (_%hd5408454205%_ - (let () (declare (not safe)) (##car _%e5408354201%_)))) - (_%__kont8106381064%_ _%hd5408454205%_))) + (##cdr _%e5411954237%_))) + (_%hd5412054241%_ + (let () (declare (not safe)) (##car _%e5411954237%_)))) + (_%__kont8110981110%_ _%hd5412054241%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8106781068%_)) + (_%__kont8111381114%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84077_| - _%hd5408154195%_) + |gerbil/core/contract~Interface[1]#_g84123_| + _%hd5411754231%_) (if (gx#stx-pair? - _%tl5408254198%_) - (let ((_%e5409154133%_ + _%tl5411854234%_) + (let ((_%e5412754169%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5408254198%_))) - (let ((_%tl5409354140%_ + _%tl5411854234%_))) + (let ((_%tl5412954176%_ (let () (declare (not safe)) - (##cdr _%e5409154133%_))) - (_%hd5409254137%_ + (##cdr _%e5412754169%_))) + (_%hd5412854173%_ (let () (declare (not safe)) - (##car _%e5409154133%_)))) - (if (gx#stx-pair? _%tl5409354140%_) - (let ((_%e5409454143%_ - (gx#syntax-e _%tl5409354140%_))) - (let ((_%tl5409654150%_ + (##car _%e5412754169%_)))) + (if (gx#stx-pair? _%tl5412954176%_) + (let ((_%e5413054179%_ + (gx#syntax-e _%tl5412954176%_))) + (let ((_%tl5413254186%_ (let () (declare (not safe)) - (##cdr _%e5409454143%_))) - (_%hd5409554147%_ + (##cdr _%e5413054179%_))) + (_%hd5413154183%_ (let () (declare (not safe)) - (##car _%e5409454143%_)))) - (if (gx#identifier? _%hd5409554147%_) + (##car _%e5413054179%_)))) + (if (gx#identifier? _%hd5413154183%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84078_| - _%hd5409554147%_) - (if (gx#stx-pair? _%tl5409654150%_) - (let ((_%e5409754153%_ + |gerbil/core/contract~Interface[1]#_g84124_| + _%hd5413154183%_) + (if (gx#stx-pair? _%tl5413254186%_) + (let ((_%e5413354189%_ (gx#syntax-e - _%tl5409654150%_))) - (let ((_%tl5409954160%_ + _%tl5413254186%_))) + (let ((_%tl5413554196%_ (let () (declare (not safe)) - (##cdr _%e5409754153%_))) - (_%hd5409854157%_ + (##cdr _%e5413354189%_))) + (_%hd5413454193%_ (let () (declare (not safe)) - (##car _%e5409754153%_)))) - (_%__kont8106581066%_ - _%hd5409854157%_ - _%hd5409254137%_))) - (_%__kont8106781068%_)) - (_%__kont8106781068%_)) - (_%__kont8106781068%_)))) - (_%__kont8106781068%_)))) - (_%__kont8106781068%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8106781068%_))) - (_%__kont8106781068%_)))) - (_%__kont8106781068%_)))))) - (_%__kont8144381444%_ - (lambda (_%L53747%_ _%L53749%_) - (let* ((_%__stx8097880979%_ _%b53433%_) - (_%g5376853812%_ + (##car _%e5413354189%_)))) + (_%__kont8111181112%_ + _%hd5413454193%_ + _%hd5412854173%_))) + (_%__kont8111381114%_)) + (_%__kont8111381114%_)) + (_%__kont8111381114%_)))) + (_%__kont8111381114%_)))) + (_%__kont8111381114%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8111381114%_))) + (_%__kont8111381114%_)))) + (_%__kont8111381114%_)))))) + (_%__kont8148981490%_ + (lambda (_%L53783%_ _%L53785%_) + (let* ((_%__stx8102481025%_ _%b53469%_) + (_%g5380453848%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8097880979%_)))) - (let ((_%__kont8098180982%_ - (lambda (_%L53982%_ _%L53984%_) + _%__stx8102481025%_)))) + (let ((_%__kont8102781028%_ + (lambda (_%L54018%_ _%L54020%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53747%_ - _%L53982%_))) - (_%__kont8098380984%_ - (lambda (_%L53926%_ - _%L53928%_ - _%L53929%_) + _%L53783%_ + _%L54018%_))) + (_%__kont8102981030%_ + (lambda (_%L53962%_ + _%L53964%_ + _%L53965%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53747%_ - _%L53926%_))) - (_%__kont8098580986%_ - (lambda (_%L53859%_ _%L53861%_) '#t))) - (let* ((_%__match8102781028%_ - (lambda (_%e5378153886%_ - _%hd5378253890%_ - _%tl5378353893%_ - _%e5378453896%_ - _%hd5378553900%_ - _%tl5378653903%_ - _%e5378753906%_ - _%hd5378853910%_ - _%tl5378953913%_ - _%e5379053916%_ - _%hd5379153920%_ - _%tl5379253923%_) - (let ((_%L53926%_ _%hd5379153920%_) - (_%L53928%_ _%hd5378853910%_) - (_%L53929%_ _%hd5378553900%_)) + _%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%_)) (if (or (gx#free-identifier=? - _%L53928%_ + _%L53964%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53928%_ + _%L53964%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53928%_ + _%L53964%_ (gx#datum->syntax '#f ':-))) - (_%__kont8098380984%_ - _%L53926%_ - _%L53928%_ - _%L53929%_) + (_%__kont8102981030%_ + _%L53962%_ + _%L53964%_ + _%L53965%_) (if (gx#stx-null? - _%tl5379253923%_) - (_%__kont8098580986%_ - _%hd5378853910%_ - _%hd5378553900%_) + _%tl5382853959%_) + (_%__kont8103181032%_ + _%hd5382453946%_ + _%hd5382153936%_) (let () (declare (not safe)) - (_%g5376853812%_))))))) - (_%__match8099981000%_ - (lambda (_%e5377253962%_ - _%hd5377353966%_ - _%tl5377453969%_ - _%e5377553972%_ - _%hd5377653976%_ - _%tl5377753979%_) - (let ((_%L53982%_ _%hd5377653976%_) - (_%L53984%_ _%hd5377353966%_)) + (_%g5380453848%_))))))) + (_%__match8104581046%_ + (lambda (_%e5380853998%_ + _%hd5380954002%_ + _%tl5381054005%_ + _%e5381154008%_ + _%hd5381254012%_ + _%tl5381354015%_) + (let ((_%L54018%_ _%hd5381254012%_) + (_%L54020%_ _%hd5380954002%_)) (if (or (gx#free-identifier=? - _%L53984%_ + _%L54020%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53984%_ + _%L54020%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53984%_ + _%L54020%_ (gx#datum->syntax '#f ':-))) - (_%__kont8098180982%_ - _%L53982%_ - _%L53984%_) + (_%__kont8102781028%_ + _%L54018%_ + _%L54020%_) (if (gx#identifier? - _%hd5377353966%_) + _%hd5380954002%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84079_| - _%hd5377353966%_) + |gerbil/core/contract~Interface[1]#_g84125_| + _%hd5380954002%_) (if (gx#stx-pair? - _%tl5377753979%_) - (let ((_%e5378753906%_ + _%tl5381354015%_) + (let ((_%e5382353942%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5377753979%_))) - (let ((_%tl5378953913%_ + (gx#syntax-e _%tl5381354015%_))) + (let ((_%tl5382553949%_ (let () (declare (not safe)) - (##cdr _%e5378753906%_))) - (_%hd5378853910%_ + (##cdr _%e5382353942%_))) + (_%hd5382453946%_ (let () (declare (not safe)) - (##car _%e5378753906%_)))) - (if (gx#stx-pair? _%tl5378953913%_) - (let ((_%e5379053916%_ - (gx#syntax-e _%tl5378953913%_))) - (let ((_%tl5379253923%_ + (##car _%e5382353942%_)))) + (if (gx#stx-pair? _%tl5382553949%_) + (let ((_%e5382653952%_ + (gx#syntax-e _%tl5382553949%_))) + (let ((_%tl5382853959%_ (let () (declare (not safe)) - (##cdr _%e5379053916%_))) - (_%hd5379153920%_ + (##cdr _%e5382653952%_))) + (_%hd5382753956%_ (let () (declare (not safe)) - (##car _%e5379053916%_)))) - (_%__match8102781028%_ - _%e5377253962%_ - _%hd5377353966%_ - _%tl5377453969%_ - _%e5377553972%_ - _%hd5377653976%_ - _%tl5377753979%_ - _%e5378753906%_ - _%hd5378853910%_ - _%tl5378953913%_ - _%e5379053916%_ - _%hd5379153920%_ - _%tl5379253923%_))) - (let () (declare (not safe)) (_%g5376853812%_))))) - (let () (declare (not safe)) (_%g5376853812%_))) - (let () (declare (not safe)) (_%g5376853812%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5376853812%_)))))))) - (if (gx#stx-pair? _%__stx8097880979%_) - (let ((_%e5377253962%_ + (_%g5380453848%_)))))))) + (if (gx#stx-pair? _%__stx8102481025%_) + (let ((_%e5380853998%_ (gx#syntax-e - _%__stx8097880979%_))) - (let ((_%tl5377453969%_ + _%__stx8102481025%_))) + (let ((_%tl5381054005%_ (let () (declare (not safe)) - (##cdr _%e5377253962%_))) - (_%hd5377353966%_ + (##cdr _%e5380853998%_))) + (_%hd5380954002%_ (let () (declare (not safe)) - (##car _%e5377253962%_)))) - (if (gx#stx-pair? _%tl5377453969%_) - (let ((_%e5377553972%_ + (##car _%e5380853998%_)))) + (if (gx#stx-pair? _%tl5381054005%_) + (let ((_%e5381154008%_ (gx#syntax-e - _%tl5377453969%_))) - (let ((_%tl5377753979%_ + _%tl5381054005%_))) + (let ((_%tl5381354015%_ (let () (declare (not safe)) - (##cdr _%e5377553972%_))) - (_%hd5377653976%_ + (##cdr _%e5381154008%_))) + (_%hd5381254012%_ (let () (declare (not safe)) - (##car _%e5377553972%_)))) - (_%__match8099981000%_ - _%e5377253962%_ - _%hd5377353966%_ - _%tl5377453969%_ - _%e5377553972%_ - _%hd5377653976%_ - _%tl5377753979%_))) + (##car _%e5381154008%_)))) + (_%__match8104581046%_ + _%e5380853998%_ + _%hd5380954002%_ + _%tl5381054005%_ + _%e5381154008%_ + _%hd5381254012%_ + _%tl5381354015%_))) (let () (declare (not safe)) - (_%g5376853812%_))))) + (_%g5380453848%_))))) (let () (declare (not safe)) - (_%g5376853812%_)))))))) - (_%__kont8144581446%_ - (lambda (_%L53546%_) - (let* ((_%__stx8093880939%_ _%b53433%_) - (_%g5356353585%_ + (_%g5380453848%_)))))))) + (_%__kont8149181492%_ + (lambda (_%L53582%_) + (let* ((_%__stx8098480985%_ _%b53469%_) + (_%g5359953621%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8093880939%_)))) - (let ((_%__kont8094180942%_ - (lambda (_%L53677%_) '#f)) - (_%__kont8094380944%_ - (lambda (_%L53633%_ _%L53635%_) '#f)) - (_%__kont8094580946%_ (lambda () '#t))) - (let* ((_%__match8097580976%_ - (lambda (_%e5357153603%_ - _%hd5357253607%_ - _%tl5357353610%_ - _%e5357453613%_ - _%hd5357553617%_ - _%tl5357653620%_ - _%e5357753623%_ - _%hd5357853627%_ - _%tl5357953630%_) - (let ((_%L53633%_ _%hd5357853627%_) - (_%L53635%_ _%hd5357553617%_)) + _%__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%_)) (if (or (gx#free-identifier=? - _%L53633%_ + _%L53669%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53633%_ + _%L53669%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53633%_ + _%L53669%_ (gx#datum->syntax '#f ':-))) - (_%__kont8094380944%_ - _%L53633%_ - _%L53635%_) - (_%__kont8094580946%_))))) - (_%__match8095380954%_ - (lambda (_%e5356653667%_ - _%hd5356753671%_ - _%tl5356853674%_) - (let ((_%L53677%_ _%hd5356753671%_)) + (_%__kont8098980990%_ + _%L53669%_ + _%L53671%_) + (_%__kont8099180992%_))))) + (_%__match8099981000%_ + (lambda (_%e5360253703%_ + _%hd5360353707%_ + _%tl5360453710%_) + (let ((_%L53713%_ _%hd5360353707%_)) (if (or (gx#free-identifier=? - _%L53677%_ + _%L53713%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53677%_ + _%L53713%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53677%_ + _%L53713%_ (gx#datum->syntax '#f ':-))) - (_%__kont8094180942%_ - _%L53677%_) + (_%__kont8098780988%_ + _%L53713%_) (if (gx#identifier? - _%hd5356753671%_) + _%hd5360353707%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84080_| - _%hd5356753671%_) + |gerbil/core/contract~Interface[1]#_g84126_| + _%hd5360353707%_) (if (gx#stx-pair? - _%tl5356853674%_) - (let ((_%e5357453613%_ + _%tl5360453710%_) + (let ((_%e5361053649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5356853674%_))) - (let ((_%tl5357653620%_ + (gx#syntax-e _%tl5360453710%_))) + (let ((_%tl5361253656%_ (let () (declare (not safe)) - (##cdr _%e5357453613%_))) - (_%hd5357553617%_ + (##cdr _%e5361053649%_))) + (_%hd5361153653%_ (let () (declare (not safe)) - (##car _%e5357453613%_)))) - (if (gx#stx-pair? _%tl5357653620%_) - (let ((_%e5357753623%_ - (gx#syntax-e _%tl5357653620%_))) - (let ((_%tl5357953630%_ + (##car _%e5361053649%_)))) + (if (gx#stx-pair? _%tl5361253656%_) + (let ((_%e5361353659%_ + (gx#syntax-e _%tl5361253656%_))) + (let ((_%tl5361553666%_ (let () (declare (not safe)) - (##cdr _%e5357753623%_))) - (_%hd5357853627%_ + (##cdr _%e5361353659%_))) + (_%hd5361453663%_ (let () (declare (not safe)) - (##car _%e5357753623%_)))) - (_%__match8097580976%_ - _%e5356653667%_ - _%hd5356753671%_ - _%tl5356853674%_ - _%e5357453613%_ - _%hd5357553617%_ - _%tl5357653620%_ - _%e5357753623%_ - _%hd5357853627%_ - _%tl5357953630%_))) - (_%__kont8094580946%_)))) - (_%__kont8094580946%_)) - (_%__kont8094580946%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8094580946%_))))))) - (if (gx#stx-pair? _%__stx8093880939%_) - (let ((_%e5356653667%_ + (##car _%e5361353659%_)))) + (_%__match8102181022%_ + _%e5360253703%_ + _%hd5360353707%_ + _%tl5360453710%_ + _%e5361053649%_ + _%hd5361153653%_ + _%tl5361253656%_ + _%e5361353659%_ + _%hd5361453663%_ + _%tl5361553666%_))) + (_%__kont8099180992%_)))) + (_%__kont8099180992%_)) + (_%__kont8099180992%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8099180992%_))))))) + (if (gx#stx-pair? _%__stx8098480985%_) + (let ((_%e5360253703%_ (gx#syntax-e - _%__stx8093880939%_))) - (let ((_%tl5356853674%_ + _%__stx8098480985%_))) + (let ((_%tl5360453710%_ (let () (declare (not safe)) - (##cdr _%e5356653667%_))) - (_%hd5356753671%_ + (##cdr _%e5360253703%_))) + (_%hd5360353707%_ (let () (declare (not safe)) - (##car _%e5356653667%_)))) - (_%__match8095380954%_ - _%e5356653667%_ - _%hd5356753671%_ - _%tl5356853674%_))) - (_%__kont8094580946%_)))))))) - (let ((_%__match8145981460%_ - (lambda (_%e5344555012%_ - _%hd5344655016%_ - _%tl5344755019%_ - _%e5344855022%_ - _%hd5344955026%_ - _%tl5345055029%_) - (let ((_%L55032%_ _%hd5344955026%_) - (_%L55034%_ _%hd5344655016%_)) + (##car _%e5360253703%_)))) + (_%__match8099981000%_ + _%e5360253703%_ + _%hd5360353707%_ + _%tl5360453710%_))) + (_%__kont8099180992%_)))))))) + (let ((_%__match8150581506%_ + (lambda (_%e5348155048%_ + _%hd5348255052%_ + _%tl5348355055%_ + _%e5348455058%_ + _%hd5348555062%_ + _%tl5348655065%_) + (let ((_%L55068%_ _%hd5348555062%_) + (_%L55070%_ _%hd5348255052%_)) (if (or (gx#free-identifier=? - _%L55034%_ + _%L55070%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55034%_ + _%L55070%_ (gx#datum->syntax '#f ':-))) - (_%__kont8143381434%_ - _%L55032%_ - _%L55034%_) - (if (gx#identifier? _%hd5344655016%_) + (_%__kont8147981480%_ + _%L55068%_ + _%L55070%_) + (if (gx#identifier? _%hd5348255052%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84081_| - _%hd5344655016%_) - (_%__kont8143581436%_ - _%hd5344955026%_) + |gerbil/core/contract~Interface[1]#_g84127_| + _%hd5348255052%_) + (_%__kont8148181482%_ + _%hd5348555062%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84082_| - _%hd5344655016%_) - (_%__kont8143781438%_ - _%hd5344955026%_) + |gerbil/core/contract~Interface[1]#_g84128_| + _%hd5348255052%_) + (_%__kont8148381484%_ + _%hd5348555062%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84083_| - _%hd5344655016%_) + |gerbil/core/contract~Interface[1]#_g84129_| + _%hd5348255052%_) (if (gx#stx-pair? - _%tl5345055029%_) - (let ((_%e5347354255%_ + _%tl5348655065%_) + (let ((_%e5350954291%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5345055029%_))) - (let ((_%tl5347554262%_ + _%tl5348655065%_))) + (let ((_%tl5351154298%_ (let () (declare (not safe)) - (##cdr _%e5347354255%_))) - (_%hd5347454259%_ + (##cdr _%e5350954291%_))) + (_%hd5351054295%_ (let () (declare (not safe)) - (##car _%e5347354255%_)))) - (if (gx#identifier? _%hd5347454259%_) + (##car _%e5350954291%_)))) + (if (gx#identifier? _%hd5351054295%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84084_| - _%hd5347454259%_) - (if (gx#stx-pair? _%tl5347554262%_) - (let ((_%e5347654265%_ - (gx#syntax-e _%tl5347554262%_))) - (let ((_%tl5347854272%_ + |gerbil/core/contract~Interface[1]#_g84130_| + _%hd5351054295%_) + (if (gx#stx-pair? _%tl5351154298%_) + (let ((_%e5351254301%_ + (gx#syntax-e _%tl5351154298%_))) + (let ((_%tl5351454308%_ (let () (declare (not safe)) - (##cdr _%e5347654265%_))) - (_%hd5347754269%_ + (##cdr _%e5351254301%_))) + (_%hd5351354305%_ (let () (declare (not safe)) - (##car _%e5347654265%_)))) - (_%__kont8143981440%_ - _%hd5347754269%_ - _%hd5344955026%_))) - (_%__kont8144581446%_ _%hd5344955026%_)) + (##car _%e5351254301%_)))) + (_%__kont8148581486%_ + _%hd5351354305%_ + _%hd5348555062%_))) + (_%__kont8149181492%_ _%hd5348555062%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84085_| - _%hd5347454259%_) - (if (gx#stx-pair? _%tl5347554262%_) - (let ((_%e5349054046%_ - (gx#syntax-e _%tl5347554262%_))) - (let ((_%tl5349254053%_ + |gerbil/core/contract~Interface[1]#_g84131_| + _%hd5351054295%_) + (if (gx#stx-pair? _%tl5351154298%_) + (let ((_%e5352654082%_ + (gx#syntax-e _%tl5351154298%_))) + (let ((_%tl5352854089%_ (let () (declare (not safe)) - (##cdr _%e5349054046%_))) - (_%hd5349154050%_ + (##cdr _%e5352654082%_))) + (_%hd5352754086%_ (let () (declare (not safe)) - (##car _%e5349054046%_)))) - (_%__kont8144181442%_ - _%hd5349154050%_ - _%hd5344955026%_))) - (_%__kont8144581446%_ _%hd5344955026%_)) + (##car _%e5352654082%_)))) + (_%__kont8148781488%_ + _%hd5352754086%_ + _%hd5348555062%_))) + (_%__kont8149181492%_ _%hd5348555062%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84086_| - _%hd5347454259%_) - (if (gx#stx-pair? _%tl5347554262%_) - (let ((_%e5350453737%_ + |gerbil/core/contract~Interface[1]#_g84132_| + _%hd5351054295%_) + (if (gx#stx-pair? _%tl5351154298%_) + (let ((_%e5354053773%_ (gx#syntax-e - _%tl5347554262%_))) - (let ((_%tl5350653744%_ + _%tl5351154298%_))) + (let ((_%tl5354253780%_ (let () (declare (not safe)) - (##cdr _%e5350453737%_))) - (_%hd5350553741%_ + (##cdr _%e5354053773%_))) + (_%hd5354153777%_ (let () (declare (not safe)) - (##car _%e5350453737%_)))) - (_%__kont8144381444%_ - _%hd5350553741%_ - _%hd5344955026%_))) - (_%__kont8144581446%_ - _%hd5344955026%_)) - (_%__kont8144581446%_ _%hd5344955026%_)))) - (_%__kont8144581446%_ _%hd5344955026%_)))) - (_%__kont8144581446%_ _%hd5344955026%_)) + (##car _%e5354053773%_)))) + (_%__kont8148981490%_ + _%hd5354153777%_ + _%hd5348555062%_))) + (_%__kont8149181492%_ + _%hd5348555062%_)) + (_%__kont8149181492%_ _%hd5348555062%_)))) + (_%__kont8149181492%_ _%hd5348555062%_)))) + (_%__kont8149181492%_ _%hd5348555062%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5344153519%_))))) + (_%g5347753555%_))))) (let () (declare (not safe)) - (_%g5344153519%_)))))))) - (if (gx#stx-pair? _%__stx8143081431%_) - (let ((_%e5344555012%_ - (gx#syntax-e _%__stx8143081431%_))) - (let ((_%tl5344755019%_ + (_%g5347753555%_)))))))) + (if (gx#stx-pair? _%__stx8147681477%_) + (let ((_%e5348155048%_ + (gx#syntax-e _%__stx8147681477%_))) + (let ((_%tl5348355055%_ (let () (declare (not safe)) - (##cdr _%e5344555012%_))) - (_%hd5344655016%_ + (##cdr _%e5348155048%_))) + (_%hd5348255052%_ (let () (declare (not safe)) - (##car _%e5344555012%_)))) - (if (gx#stx-pair? _%tl5344755019%_) - (let ((_%e5344855022%_ - (gx#syntax-e _%tl5344755019%_))) - (let ((_%tl5345055029%_ + (##car _%e5348155048%_)))) + (if (gx#stx-pair? _%tl5348355055%_) + (let ((_%e5348455058%_ + (gx#syntax-e _%tl5348355055%_))) + (let ((_%tl5348655065%_ (let () (declare (not safe)) - (##cdr _%e5344855022%_))) - (_%hd5344955026%_ + (##cdr _%e5348455058%_))) + (_%hd5348555062%_ (let () (declare (not safe)) - (##car _%e5344855022%_)))) - (_%__match8145981460%_ - _%e5344555012%_ - _%hd5344655016%_ - _%tl5344755019%_ - _%e5344855022%_ - _%hd5344955026%_ - _%tl5345055029%_))) + (##car _%e5348455058%_)))) + (_%__match8150581506%_ + _%e5348155048%_ + _%hd5348255052%_ + _%tl5348355055%_ + _%e5348455058%_ + _%hd5348555062%_ + _%tl5348655065%_))) (let () (declare (not safe)) - (_%g5344153519%_))))) + (_%g5347753555%_))))) (let () (declare (not safe)) - (_%g5344153519%_))))))) - _%left53427%_ - _%right53429%_))) + (_%g5347753555%_))))))) + _%left53463%_ + _%right53465%_))) (define |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (lambda (_%type-a53330%_ _%type-b53332%_) - (if (not _%type-a53330%_) - (not _%type-b53332%_) - (if (not _%type-b53332%_) + (lambda (_%type-a53366%_ _%type-b53368%_) + (if (not _%type-a53366%_) + (not _%type-b53368%_) + (if (not _%type-b53368%_) '#f - (if (gx#free-identifier=? _%type-a53330%_ _%type-b53332%_) + (if (gx#free-identifier=? _%type-a53366%_ _%type-b53368%_) '#t - (let _%again53342%_ ((_%klass-a53345%_ + (let _%again53378%_ ((_%klass-a53381%_ (gx#syntax-local-value - _%type-a53330%_)) - (_%klass-b53347%_ + _%type-a53366%_)) + (_%klass-b53383%_ (gx#syntax-local-value - _%type-b53332%_))) - (if (eq? _%klass-a53345%_ _%klass-b53347%_) + _%type-b53368%_))) + (if (eq? _%klass-a53381%_ _%klass-b53383%_) '#t (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a53345%_)) + _%klass-a53381%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b53347%_)) - (if (eq? (let ((__obj83885 _%klass-a53345%_)) + _%klass-b53383%_)) + (if (eq? (let ((__obj83931 _%klass-a53381%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83885 + __obj83931 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83885 + __obj83931 '1 '#f '#f)) (unchecked-slot-ref - __obj83885 + __obj83931 'id))) - (let ((__obj83886 _%klass-b53347%_)) + (let ((__obj83932 _%klass-b53383%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83886 + __obj83932 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83886 + __obj83932 '1 '#f '#f)) (unchecked-slot-ref - __obj83886 + __obj83932 'id)))) '#t - (if (member _%type-b53332%_ + (if (member _%type-b53368%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a53345%_)) + _%klass-a53381%_)) gx#free-identifier=?) '#t '#f)) @@ -5579,51 +5598,51 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53347%_)) - (let ((_%$e53363%_ + _%klass-b53383%_)) + (let ((_%$e53399%_ (gx#syntax-local-value - (let ((__obj83883 - _%klass-b53347%_)) + (let ((__obj83929 + _%klass-b53383%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83883 + __obj83929 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83883 + __obj83929 '1 '#f '#f)) (unchecked-slot-ref - __obj83883 + __obj83929 'identifier))) false))) - (if _%$e53363%_ - ((lambda (_%klass-b53367%_) - (_%again53342%_ - _%klass-a53345%_ - _%klass-b53367%_)) - _%$e53363%_) + (if _%$e53399%_ + ((lambda (_%klass-b53403%_) + (_%again53378%_ + _%klass-a53381%_ + _%klass-b53403%_)) + _%$e53399%_) (if (gx#free-identifier=? - _%type-a53330%_ - (let ((__obj83884 - _%klass-b53347%_)) + _%type-a53366%_ + (let ((__obj83930 + _%klass-b53383%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83884 + __obj83930 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83884 + __obj83930 '1 '#f '#f)) (unchecked-slot-ref - __obj83884 + __obj83930 'identifier)))) '#t '#f))) @@ -5632,70 +5651,70 @@ (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a53345%_)) + _%klass-a53381%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b53347%_)) - (if (member _%type-b53332%_ + _%klass-b53383%_)) + (if (member _%type-b53368%_ (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a53345%_))) + _%klass-a53381%_))) '#t '#f) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53347%_)) - (let ((_%$e53386%_ + _%klass-b53383%_)) + (let ((_%$e53422%_ (gx#syntax-local-value - (let ((__obj83881 - _%klass-b53347%_)) + (let ((__obj83927 + _%klass-b53383%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83881 + __obj83927 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83881 + __obj83927 '1 '#f '#f)) (unchecked-slot-ref - __obj83881 + __obj83927 'identifier))) false))) - (if _%$e53386%_ - ((lambda (_%klass-b53390%_) - (_%again53342%_ - _%klass-a53345%_ - _%klass-b53390%_)) - _%$e53386%_) + (if _%$e53422%_ + ((lambda (_%klass-b53426%_) + (_%again53378%_ + _%klass-a53381%_ + _%klass-b53426%_)) + _%$e53422%_) (if (gx#free-identifier=? - _%type-a53330%_ - (let ((__obj83882 - _%klass-b53347%_)) + _%type-a53366%_ + (let ((__obj83928 + _%klass-b53383%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83882 + __obj83928 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83882 + __obj83928 '1 '#f '#f)) (unchecked-slot-ref - __obj83882 + __obj83928 'identifier)))) '#t '#f))) @@ -5704,1780 +5723,1780 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a53345%_)) - (let ((_%$e53401%_ + _%klass-a53381%_)) + (let ((_%$e53437%_ (gx#syntax-local-value - (let ((__obj83876 - _%klass-a53345%_)) + (let ((__obj83922 + _%klass-a53381%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83876 + __obj83922 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83876 + __obj83922 '1 '#f '#f)) (unchecked-slot-ref - __obj83876 + __obj83922 'identifier))) false))) - (if _%$e53401%_ - ((lambda (_%klass-a53405%_) - (_%again53342%_ - _%klass-a53405%_ - _%klass-b53347%_)) - _%$e53401%_) + (if _%$e53437%_ + ((lambda (_%klass-a53441%_) + (_%again53378%_ + _%klass-a53441%_ + _%klass-b53383%_)) + _%$e53437%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53347%_)) - (let ((_%$e53410%_ + _%klass-b53383%_)) + (let ((_%$e53446%_ (gx#syntax-local-value - (let ((__obj83878 - _%klass-b53347%_)) + (let ((__obj83924 + _%klass-b53383%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83878 + __obj83924 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83878 '1 '#f '#f)) - (unchecked-slot-ref __obj83878 'identifier))) + (##unchecked-structure-ref __obj83924 '1 '#f '#f)) + (unchecked-slot-ref __obj83924 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e53410%_ - ((lambda (_%klass-b53414%_) - (_%again53342%_ - _%klass-a53345%_ - _%klass-b53414%_)) - _%$e53410%_) + (if _%$e53446%_ + ((lambda (_%klass-b53450%_) + (_%again53378%_ + _%klass-a53381%_ + _%klass-b53450%_)) + _%$e53446%_) (if (gx#free-identifier=? - (let ((__obj83879 + (let ((__obj83925 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a53345%_)) + _%klass-a53381%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83879 + __obj83925 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83879 '1 '#f '#f)) - (unchecked-slot-ref __obj83879 'identifier))) - (let ((__obj83880 _%klass-b53347%_)) + (##unchecked-structure-ref __obj83925 '1 '#f '#f)) + (unchecked-slot-ref __obj83925 'identifier))) + (let ((__obj83926 _%klass-b53383%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83880 + __obj83926 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83880 '1 '#f '#f)) - (unchecked-slot-ref __obj83880 'identifier)))) + (##unchecked-structure-ref __obj83926 '1 '#f '#f)) + (unchecked-slot-ref __obj83926 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - _%type-b53332%_ - (let ((__obj83877 - _%klass-a53345%_)) + _%type-b53368%_ + (let ((__obj83923 + _%klass-a53381%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83877 + __obj83923 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83877 + __obj83923 '1 '#f '#f)) (unchecked-slot-ref - __obj83877 + __obj83923 'identifier)))) '#t '#f)))) '#f)))))))))) (define |gerbil/core/contract~Interface[1]#signature-type-contract| - (lambda (_%signature52935%_) - (let _%loop52938%_ ((_%rest52941%_ _%signature52935%_) - (_%positionals52943%_ '()) - (_%keywords52944%_ '())) - (let* ((_%__stx8160681607%_ (gx#datum->syntax '#f 'rest)) - (_%g5295253019%_ + (lambda (_%signature52971%_) + (let _%loop52974%_ ((_%rest52977%_ _%signature52971%_) + (_%positionals52979%_ '()) + (_%keywords52980%_ '())) + (let* ((_%__stx8165281653%_ (gx#datum->syntax '#f 'rest)) + (_%g5298853055%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8160681607%_)))) - (let ((_%__kont8160981610%_ - (lambda (_%L53313%_ _%L53315%_) - (_%loop52938%_ - _%L53313%_ + _%__stx8165281653%_)))) + (let ((_%__kont8165581656%_ + (lambda (_%L53349%_ _%L53351%_) + (_%loop52974%_ + _%L53349%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52943%_) - _%keywords52944%_))) - (_%__kont8161181612%_ - (lambda (_%L53277%_ _%L53279%_ _%L53280%_) - (_%loop52938%_ - _%L53277%_ + _%positionals52979%_) + _%keywords52980%_))) + (_%__kont8165781658%_ + (lambda (_%L53313%_ _%L53315%_ _%L53316%_) + (_%loop52974%_ + _%L53313%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52943%_) - _%keywords52944%_))) - (_%__kont8161381614%_ - (lambda (_%L53227%_ _%L53229%_) - (_%loop52938%_ + _%positionals52979%_) + _%keywords52980%_))) + (_%__kont8165981660%_ + (lambda (_%L53263%_ _%L53265%_) + (_%loop52974%_ (gx#datum->syntax '#f 'rest) - (cons _%L53227%_ _%positionals52943%_) - _%keywords52944%_))) - (_%__kont8161581616%_ - (lambda (_%L53193%_ _%L53195%_ _%L53196%_) - (_%loop52938%_ - _%L53193%_ - _%positionals52943%_ - (cons (cons (gx#stx-e _%L53196%_) - (cons _%L53195%_ + (cons _%L53263%_ _%positionals52979%_) + _%keywords52980%_))) + (_%__kont8166181662%_ + (lambda (_%L53229%_ _%L53231%_ _%L53232%_) + (_%loop52974%_ + _%L53229%_ + _%positionals52979%_ + (cons (cons (gx#stx-e _%L53232%_) + (cons _%L53231%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords52944%_)))) - (_%__kont8161781618%_ - (lambda (_%L53143%_ _%L53145%_ _%L53146%_ _%L53147%_) - (_%loop52938%_ - _%L53143%_ - _%positionals52943%_ - (cons (cons (gx#stx-e _%L53147%_) - (cons _%L53146%_ + _%keywords52980%_)))) + (_%__kont8166381664%_ + (lambda (_%L53179%_ _%L53181%_ _%L53182%_ _%L53183%_) + (_%loop52974%_ + _%L53179%_ + _%positionals52979%_ + (cons (cons (gx#stx-e _%L53183%_) + (cons _%L53182%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords52944%_)))) - (_%__kont8161981620%_ - (lambda (_%L53071%_ _%L53073%_ _%L53074%_ _%L53075%_) - (_%loop52938%_ - _%L53071%_ - _%positionals52943%_ - (cons (cons (gx#stx-e _%L53075%_) - (cons _%L53074%_ _%L53073%_)) - _%keywords52944%_)))) - (_%__kont8162181622%_ + _%keywords52980%_)))) + (_%__kont8166581666%_ + (lambda (_%L53107%_ _%L53109%_ _%L53110%_ _%L53111%_) + (_%loop52974%_ + _%L53107%_ + _%positionals52979%_ + (cons (cons (gx#stx-e _%L53111%_) + (cons _%L53110%_ _%L53109%_)) + _%keywords52980%_)))) + (_%__kont8166781668%_ (lambda () - (values (reverse! _%positionals52943%_) + (values (reverse! _%positionals52979%_) (list-sort - (lambda (_%a53030%_ _%b53032%_) + (lambda (_%a53066%_ _%b53068%_) (|gerbil/core/contract~Interface[1]#keyword= __tmp84087 '2)) - (let ((_%__splice8172381724%_ + (##fx>= __tmp84133 '2)) + (let ((_%__splice8176981770%_ (gx#syntax-split-splice - _%hd5259852856%_ + _%hd5263452892%_ '2))) - (let ((_%tl5261352781%_ + (let ((_%tl5264952817%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8176981770%_ '1))) - (_%target5261152778%_ + (_%target5264752814%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8176981770%_ '0)))) - (if (gx#stx-pair? _%tl5261352781%_) - (let ((_%e5261852784%_ + (if (gx#stx-pair? _%tl5264952817%_) + (let ((_%e5265452820%_ (gx#syntax-e - _%tl5261352781%_))) - (let ((_%tl5262052791%_ + _%tl5264952817%_))) + (let ((_%tl5265652827%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5265452820%_))) + (_%hd5265552824%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) + (##car _%e5265452820%_)))) (if (gx#identifier? - _%hd5261952788%_) + _%hd5265552824%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) + |gerbil/core/contract~Interface[1]#_g84134_| + _%hd5265552824%_) (if (gx#stx-pair? - _%tl5262052791%_) - (let ((_%e5262152794%_ + _%tl5265652827%_) + (let ((_%e5265752830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5262052791%_))) - (let ((_%tl5262352801%_ + (gx#syntax-e _%tl5265652827%_))) + (let ((_%tl5265952837%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5265752830%_))) + (_%hd5265852834%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) - (if (gx#stx-null? _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))))) - (_%__match8173981740%_ - (lambda (_%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_) - (let ((_%L52918%_ _%tl5259352915%_) - (_%L52920%_ _%hd5259252912%_)) - (if (gx#identifier? _%L52920%_) - (_%__kont8171781718%_ _%L52918%_ _%L52920%_) - (if (gx#stx-pair? _%hd5259252912%_) - (let ((_%e5260052862%_ - (gx#syntax-e _%hd5259252912%_))) - (let ((_%tl5260252869%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5260052862%_))) - (_%hd5260152866%_ + (##cdr _%e5263652898%_))) + (_%hd5263752902%_ (let () (declare (not safe)) - (##car _%e5260052862%_)))) - (if (gx#stx-pair? _%tl5260252869%_) - (let ((_%e5260352872%_ + (##car _%e5263652898%_)))) + (if (gx#stx-pair? _%tl5263852905%_) + (let ((_%e5263952908%_ (gx#syntax-e - _%tl5260252869%_))) - (let ((_%tl5260552879%_ + _%tl5263852905%_))) + (let ((_%tl5264152915%_ (let () (declare (not safe)) - (##cdr _%e5260352872%_))) - (_%hd5260452876%_ + (##cdr _%e5263952908%_))) + (_%hd5264052912%_ (let () (declare (not safe)) - (##car _%e5260352872%_)))) + (##car _%e5263952908%_)))) (if (gx#stx-null? - _%tl5260552879%_) - (_%__match8175981760%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_ - _%e5260352872%_ - _%hd5260452876%_ - _%tl5260552879%_) + _%tl5264152915%_) + (_%__match8180581806%_ + _%e5262752944%_ + _%hd5262852948%_ + _%tl5262952951%_ + _%e5263652898%_ + _%hd5263752902%_ + _%tl5263852905%_ + _%e5263952908%_ + _%hd5264052912%_ + _%tl5264152915%_) (if (gx#stx-pair/null? - _%hd5259252912%_) - (if (let ((__tmp84089 + _%hd5262852948%_) + (if (let ((__tmp84135 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%hd5259252912%_))) + (gx#stx-length _%hd5262852948%_))) (declare (not safe)) - (##fx>= __tmp84089 '2)) - (let ((_%__splice8172381724%_ - (gx#syntax-split-splice _%hd5259252912%_ '2))) - (let ((_%tl5261352781%_ + (##fx>= __tmp84135 '2)) + (let ((_%__splice8176981770%_ + (gx#syntax-split-splice _%hd5262852948%_ '2))) + (let ((_%tl5264952817%_ (let () (declare (not safe)) - (##vector-ref _%__splice8172381724%_ '1))) - (_%target5261152778%_ + (##vector-ref _%__splice8176981770%_ '1))) + (_%target5264752814%_ (let () (declare (not safe)) - (##vector-ref _%__splice8172381724%_ '0)))) - (if (gx#stx-pair? _%tl5261352781%_) - (let ((_%e5261852784%_ - (gx#syntax-e _%tl5261352781%_))) - (let ((_%tl5262052791%_ + (##vector-ref _%__splice8176981770%_ '0)))) + (if (gx#stx-pair? _%tl5264952817%_) + (let ((_%e5265452820%_ + (gx#syntax-e _%tl5264952817%_))) + (let ((_%tl5265652827%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5265452820%_))) + (_%hd5265552824%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) - (if (gx#identifier? _%hd5261952788%_) + (##car _%e5265452820%_)))) + (if (gx#identifier? _%hd5265552824%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) - (if (gx#stx-pair? _%tl5262052791%_) - (let ((_%e5262152794%_ + |gerbil/core/contract~Interface[1]#_g84134_| + _%hd5265552824%_) + (if (gx#stx-pair? _%tl5265652827%_) + (let ((_%e5265752830%_ (gx#syntax-e - _%tl5262052791%_))) - (let ((_%tl5262352801%_ + _%tl5265652827%_))) + (let ((_%tl5265952837%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5265752830%_))) + (_%hd5265852834%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) + (##car _%e5265752830%_)))) (if (gx#stx-null? - _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_))))) + _%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? - _%hd5259252912%_) - (if (let ((__tmp84090 + _%hd5262852948%_) + (if (let ((__tmp84136 (gx#stx-length - _%hd5259252912%_))) + _%hd5262852948%_))) (declare (not safe)) - (##fx>= __tmp84090 '2)) - (let ((_%__splice8172381724%_ + (##fx>= __tmp84136 '2)) + (let ((_%__splice8176981770%_ (gx#syntax-split-splice - _%hd5259252912%_ + _%hd5262852948%_ '2))) - (let ((_%tl5261352781%_ + (let ((_%tl5264952817%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8176981770%_ '1))) - (_%target5261152778%_ + (_%target5264752814%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8176981770%_ '0)))) (if (gx#stx-pair? - _%tl5261352781%_) - (let ((_%e5261852784%_ + _%tl5264952817%_) + (let ((_%e5265452820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5261352781%_))) - (let ((_%tl5262052791%_ + (gx#syntax-e _%tl5264952817%_))) + (let ((_%tl5265652827%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5265452820%_))) + (_%hd5265552824%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) - (if (gx#identifier? _%hd5261952788%_) + (##car _%e5265452820%_)))) + (if (gx#identifier? _%hd5265552824%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) - (if (gx#stx-pair? _%tl5262052791%_) - (let ((_%e5262152794%_ - (gx#syntax-e _%tl5262052791%_))) - (let ((_%tl5262352801%_ + |gerbil/core/contract~Interface[1]#_g84134_| + _%hd5265552824%_) + (if (gx#stx-pair? _%tl5265652827%_) + (let ((_%e5265752830%_ + (gx#syntax-e _%tl5265652827%_))) + (let ((_%tl5265952837%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5265752830%_))) + (_%hd5265852834%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) - (if (gx#stx-null? _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_))))) - (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp84091 + (##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 (gx#stx-length - _%hd5259252912%_))) + _%hd5262852948%_))) (declare (not safe)) - (##fx>= __tmp84091 '2)) - (let ((_%__splice8172381724%_ + (##fx>= __tmp84137 '2)) + (let ((_%__splice8176981770%_ (gx#syntax-split-splice - _%hd5259252912%_ + _%hd5262852948%_ '2))) - (let ((_%tl5261352781%_ + (let ((_%tl5264952817%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8176981770%_ '1))) - (_%target5261152778%_ + (_%target5264752814%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8176981770%_ '0)))) (if (gx#stx-pair? - _%tl5261352781%_) - (let ((_%e5261852784%_ + _%tl5264952817%_) + (let ((_%e5265452820%_ (gx#syntax-e - _%tl5261352781%_))) - (let ((_%tl5262052791%_ + _%tl5264952817%_))) + (let ((_%tl5265652827%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5265452820%_))) + (_%hd5265552824%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) + (##car _%e5265452820%_)))) (if (gx#identifier? - _%hd5261952788%_) + _%hd5265552824%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) + |gerbil/core/contract~Interface[1]#_g84134_| + _%hd5265552824%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5262052791%_) - (let ((_%e5262152794%_ - (gx#syntax-e _%tl5262052791%_))) - (let ((_%tl5262352801%_ + _%tl5265652827%_) + (let ((_%e5265752830%_ + (gx#syntax-e _%tl5265652827%_))) + (let ((_%tl5265952837%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5265752830%_))) + (_%hd5265852834%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) - (if (gx#stx-null? _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ - (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5267352730%_))) + (_%hd5267452734%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) + (##car _%e5267352730%_)))) + (_%__match8186181862%_ + _%e5262752944%_ + _%hd5262852948%_ + _%tl5262952951%_ + _%e5267352730%_ + _%hd5267452734%_ + _%tl5267552737%_))) (let () (declare (not safe)) - (_%g5258552677%_)))))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ - (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (_%g5262152713%_)))))) + (if (gx#stx-pair? _%tl5262952951%_) + (let ((_%e5267352730%_ + (gx#syntax-e _%tl5262952951%_))) + (let ((_%tl5267552737%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5267352730%_))) + (_%hd5267452734%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ - (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5267352730%_))) + (_%hd5267452734%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5267352730%_))) + (_%hd5267452734%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))))) + (##car _%e5267352730%_)))) + (_%__match8186181862%_ + _%e5262752944%_ + _%hd5262852948%_ + _%tl5262952951%_ + _%e5267352730%_ + _%hd5267452734%_ + _%tl5267552737%_))) + (let () (declare (not safe)) (_%g5262152713%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl5259352915%_) - (let ((_%e5263752694%_ + _%tl5262952951%_) + (let ((_%e5267352730%_ (gx#syntax-e - _%tl5259352915%_))) - (let ((_%tl5263952701%_ + _%tl5262952951%_))) + (let ((_%tl5267552737%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ - (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ + (##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%_ (gx#syntax-e - _%tl5259352915%_))) - (let ((_%tl5263952701%_ + _%tl5262952951%_))) + (let ((_%tl5267552737%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5267352730%_))) + (_%hd5267452734%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) + (##car _%e5267352730%_)))) + (_%__match8186181862%_ + _%e5262752944%_ + _%hd5262852948%_ + _%tl5262952951%_ + _%e5267352730%_ + _%hd5267452734%_ + _%tl5267552737%_))) (let () (declare (not safe)) - (_%g5258552677%_)))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ + (_%g5262152713%_)))) + (if (gx#stx-pair? _%tl5262952951%_) + (let ((_%e5267352730%_ (gx#syntax-e - _%tl5259352915%_))) - (let ((_%tl5263952701%_ + _%tl5262952951%_))) + (let ((_%tl5267552737%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5267352730%_))) + (_%hd5267452734%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) + (##car _%e5267352730%_)))) + (_%__match8186181862%_ + _%e5262752944%_ + _%hd5262852948%_ + _%tl5262952951%_ + _%e5267352730%_ + _%hd5267452734%_ + _%tl5267552737%_))) (let () (declare (not safe)) - (_%g5258552677%_)))))))))) - (if (gx#stx-pair? _%__stx8171481715%_) - (let ((_%e5259152908%_ (gx#syntax-e _%__stx8171481715%_))) - (let ((_%tl5259352915%_ + (_%g5262152713%_)))))))))) + (if (gx#stx-pair? _%__stx8176081761%_) + (let ((_%e5262752944%_ (gx#syntax-e _%__stx8176081761%_))) + (let ((_%tl5262952951%_ (let () (declare (not safe)) - (##cdr _%e5259152908%_))) - (_%hd5259252912%_ + (##cdr _%e5262752944%_))) + (_%hd5262852948%_ (let () (declare (not safe)) - (##car _%e5259152908%_)))) - (_%__match8173981740%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_))) - (let () (declare (not safe)) (_%g5258552677%_))))))))) + (##car _%e5262752944%_)))) + (_%__match8178581786%_ + _%e5262752944%_ + _%hd5262852948%_ + _%tl5262952951%_))) + (let () (declare (not safe)) (_%g5262152713%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-keywords| - (lambda (_%spec52395%_) - (let _%lp52398%_ ((_%rest52401%_ _%spec52395%_) - (_%keywords52403%_ '())) - (let* ((_%__stx8182081821%_ _%rest52401%_) - (_%g5240852436%_ + (lambda (_%spec52431%_) + (let _%lp52434%_ ((_%rest52437%_ _%spec52431%_) + (_%keywords52439%_ '())) + (let* ((_%__stx8186681867%_ _%rest52437%_) + (_%g5244452472%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8182081821%_)))) - (let ((_%__kont8182381824%_ - (lambda (_%L52553%_ _%L52555%_) - (_%lp52398%_ _%L52553%_ _%keywords52403%_))) - (_%__kont8182581826%_ - (lambda (_%L52521%_ _%L52523%_) - (_%lp52398%_ _%L52521%_ _%keywords52403%_))) - (_%__kont8182781828%_ - (lambda (_%L52474%_ _%L52476%_) - (_%lp52398%_ - _%L52474%_ - (cons (gx#stx-e _%L52476%_) _%keywords52403%_)))) - (_%__kont8182981830%_ + _%__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%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x52391%_))) - (__tmp84092 (symbol->string (gx#stx-e _%y52393%_)))) + (lambda (_%x52427%_ _%y52429%_) + (let ((__tmp84139 (symbol->string (gx#stx-e _%x52427%_))) + (__tmp84138 (symbol->string (gx#stx-e _%y52429%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x52387%_))) - (__tmp84094 (keyword->string (gx#stx-e _%y52389%_)))) + (lambda (_%x52423%_ _%y52425%_) + (let ((__tmp84141 (keyword->string (gx#stx-e _%x52423%_))) + (__tmp84140 (keyword->string (gx#stx-e _%y52425%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8191581916%_ - _%e6167061779%_ - _%hd6167161783%_ - _%tl6167261786%_ - _%e6167361789%_ - _%hd6167461793%_ - _%tl6167561796%_)))) - (_%__kont8187381874%_ - _%__stx8186481865%_)))) + (##car _%e6172561855%_)))) + (_%__match8194981950%_ + _%e6171661825%_ + _%hd6171761829%_ + _%tl6171861832%_ + _%e6171961835%_ + _%hd6172061839%_ + _%tl6172161842%_ + _%e6172261845%_ + _%hd6172361849%_ + _%tl6172461852%_ + _%e6172561855%_ + _%hd6172661859%_ + _%tl6172761862%_))) + (_%__match8196181962%_ + _%e6171661825%_ + _%hd6171761829%_ + _%tl6171861832%_ + _%e6171961835%_ + _%hd6172061839%_ + _%tl6172161842%_)) + (_%__match8196181962%_ + _%e6171661825%_ + _%hd6171761829%_ + _%tl6171861832%_ + _%e6171961835%_ + _%hd6172061839%_ + _%tl6172161842%_)) + (_%__match8196181962%_ + _%e6171661825%_ + _%hd6171761829%_ + _%tl6171861832%_ + _%e6171961835%_ + _%hd6172061839%_ + _%tl6172161842%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8196181962%_ + _%e6171661825%_ + _%hd6171761829%_ + _%tl6171861832%_ + _%e6171961835%_ + _%hd6172061839%_ + _%tl6172161842%_)))) + (_%__kont8191981920%_ + _%__stx8191081911%_)))) (let () (declare (not safe)) - (_%g6166261727%_))))))))) - (_%make-method-defs60152%_ - (lambda (_%Interface61444%_) - (lambda (_%method61447%_ _%offset61449%_) - (let* ((_%signature61451%_ - (gx#stx-car (gx#stx-cdr _%method61447%_))) - (_%g6145461494%_ - (lambda (_%g6145561490%_) + (_%g6170861773%_))))))))) + (_%make-method-defs60198%_ + (lambda (_%Interface61490%_) + (lambda (_%method61493%_ _%offset61495%_) + (let* ((_%signature61497%_ + (gx#stx-car (gx#stx-cdr _%method61493%_))) + (_%g6150061540%_ + (lambda (_%g6150161536%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6145561490%_))) - (_%g6145361647%_ - (lambda (_%g6145561498%_) - (if (gx#stx-pair? _%g6145561498%_) - (let ((_%e6146261501%_ - (gx#syntax-e _%g6145561498%_))) - (let ((_%hd6146361505%_ + _%g6150161536%_))) + (_%g6149961693%_ + (lambda (_%g6150161544%_) + (if (gx#stx-pair? _%g6150161544%_) + (let ((_%e6150861547%_ + (gx#syntax-e _%g6150161544%_))) + (let ((_%hd6150961551%_ (let () (declare (not safe)) - (##car _%e6146261501%_))) - (_%tl6146461508%_ + (##car _%e6150861547%_))) + (_%tl6151061554%_ (let () (declare (not safe)) - (##cdr _%e6146261501%_)))) - (if (gx#stx-pair? _%tl6146461508%_) - (let ((_%e6146561511%_ + (##cdr _%e6150861547%_)))) + (if (gx#stx-pair? _%tl6151061554%_) + (let ((_%e6151161557%_ (gx#syntax-e - _%tl6146461508%_))) - (let ((_%hd6146661515%_ + _%tl6151061554%_))) + (let ((_%hd6151261561%_ (let () (declare (not safe)) - (##car _%e6146561511%_))) - (_%tl6146761518%_ + (##car _%e6151161557%_))) + (_%tl6151361564%_ (let () (declare (not safe)) - (##cdr _%e6146561511%_)))) + (##cdr _%e6151161557%_)))) (if (gx#stx-pair? - _%tl6146761518%_) - (let ((_%e6146861521%_ + _%tl6151361564%_) + (let ((_%e6151461567%_ (gx#syntax-e - _%tl6146761518%_))) - (let ((_%hd6146961525%_ + _%tl6151361564%_))) + (let ((_%hd6151561571%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6146861521%_))) - (_%tl6147061528%_ - (let () (declare (not safe)) (##cdr _%e6146861521%_)))) - (if (gx#stx-pair? _%tl6147061528%_) - (let ((_%e6147161531%_ (gx#syntax-e _%tl6147061528%_))) - (let ((_%hd6147261535%_ + (##car _%e6151461567%_))) + (_%tl6151661574%_ + (let () (declare (not safe)) (##cdr _%e6151461567%_)))) + (if (gx#stx-pair? _%tl6151661574%_) + (let ((_%e6151761577%_ (gx#syntax-e _%tl6151661574%_))) + (let ((_%hd6151861581%_ (let () (declare (not safe)) - (##car _%e6147161531%_))) - (_%tl6147361538%_ + (##car _%e6151761577%_))) + (_%tl6151961584%_ (let () (declare (not safe)) - (##cdr _%e6147161531%_)))) - (if (gx#stx-pair? _%tl6147361538%_) - (let ((_%e6147461541%_ - (gx#syntax-e _%tl6147361538%_))) - (let ((_%hd6147561545%_ + (##cdr _%e6151761577%_)))) + (if (gx#stx-pair? _%tl6151961584%_) + (let ((_%e6152061587%_ + (gx#syntax-e _%tl6151961584%_))) + (let ((_%hd6152161591%_ (let () (declare (not safe)) - (##car _%e6147461541%_))) - (_%tl6147661548%_ + (##car _%e6152061587%_))) + (_%tl6152261594%_ (let () (declare (not safe)) - (##cdr _%e6147461541%_)))) - (if (gx#stx-pair? _%tl6147661548%_) - (let ((_%e6147761551%_ - (gx#syntax-e _%tl6147661548%_))) - (let ((_%hd6147861555%_ + (##cdr _%e6152061587%_)))) + (if (gx#stx-pair? _%tl6152261594%_) + (let ((_%e6152361597%_ + (gx#syntax-e _%tl6152261594%_))) + (let ((_%hd6152461601%_ (let () (declare (not safe)) - (##car _%e6147761551%_))) - (_%tl6147961558%_ + (##car _%e6152361597%_))) + (_%tl6152561604%_ (let () (declare (not safe)) - (##cdr _%e6147761551%_)))) + (##cdr _%e6152361597%_)))) (if (gx#stx-pair/null? - _%hd6147861555%_) - (let ((_g84097_ + _%hd6152461601%_) + (let ((_g84143_ (gx#syntax-split-splice - _%hd6147861555%_ + _%hd6152461601%_ '0))) (begin - (let ((_g84098_ + (let ((_g84144_ (let () (declare (not safe)) (if (##values? - _g84097_) + _g84143_) (##vector-length - _g84097_) + _g84143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84098_ + (##fx= _g84144_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84098_))) + (error "Context expects 2 values" _g84144_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6148061561%_ + (let ((_%target6152661607%_ (let () (declare (not safe)) (##vector-ref - _g84097_ + _g84143_ 0))) - (_%tl6148261564%_ + (_%tl6152861610%_ (let () (declare (not safe)) (##vector-ref - _g84097_ + _g84143_ 1)))) (if (gx#stx-null? - _%tl6148261564%_) - (letrec ((_%loop6148361567%_ - (lambda (_%hd6148161571%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6148761574%_) - (if (gx#stx-pair? _%hd6148161571%_) - (let ((_%e6148461577%_ - (gx#syntax-e _%hd6148161571%_))) - (let ((_%lp-hd6148561581%_ + _%tl6152861610%_) + (letrec ((_%loop6152961613%_ + (lambda (_%hd6152761617%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6153361620%_) + (if (gx#stx-pair? _%hd6152761617%_) + (let ((_%e6153061623%_ + (gx#syntax-e _%hd6152761617%_))) + (let ((_%lp-hd6153161627%_ (let () (declare (not safe)) - (##car _%e6148461577%_))) - (_%lp-tl6148661584%_ + (##car _%e6153061623%_))) + (_%lp-tl6153261630%_ (let () (declare (not safe)) - (##cdr _%e6148461577%_)))) - (_%loop6148361567%_ - _%lp-tl6148661584%_ - (cons _%lp-hd6148561581%_ - _%out6148761574%_)))) - (let ((_%out6148861587%_ - (reverse _%out6148761574%_))) - (if (gx#stx-null? _%tl6147961558%_) - ((lambda (_%L61591%_ - _%L61593%_ - _%L61594%_ - _%L61595%_ - _%L61596%_ - _%L61597%_) - (if (gx#stx-list? _%signature61451%_) + (##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%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61597%_ - (cons _%L61596%_ + (cons _%L61643%_ + (cons _%L61642%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7496,13 +7515,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61594%_ + (cons _%L61640%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61595%_ + (cons _%L61641%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7516,14 +7535,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61594%_ - (cons _%L61593%_ + (cons _%L61640%_ + (cons _%L61639%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61595%_ '())) + (cons _%L61641%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7536,21 +7555,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) - (foldr (lambda (_%g6163061633%_ _%g6163161636%_) - (cons _%g6163061633%_ _%g6163161636%_)) + (foldr (lambda (_%g6167661679%_ _%g6167761682%_) + (cons _%g6167661679%_ _%g6167761682%_)) '() - _%L61591%_))) + _%L61637%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60145%_)) + (gx#stx-source _%stx60191%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61597%_ - (cons _%L61596%_ + (cons _%L61643%_ + (cons _%L61642%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7569,13 +7588,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61594%_ + (cons _%L61640%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61595%_ + (cons _%L61641%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7589,14 +7608,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61594%_ - (cons _%L61593%_ + (cons _%L61640%_ + (cons _%L61639%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61595%_ '())) + (cons _%L61641%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7610,695 +7629,695 @@ '#f 'f) (cons (gx#datum->syntax '#f 'obj) - (foldr (lambda (_%g6163861641%_ _%g6163961644%_) - (cons _%g6163861641%_ _%g6163961644%_)) + (foldr (lambda (_%g6168461687%_ _%g6168561690%_) + (cons _%g6168461687%_ _%g6168561690%_)) '() - _%L61591%_)))) + _%L61637%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60145%_)))) - _%out6148861587%_ - _%hd6147561545%_ - _%hd6147261535%_ - _%hd6146961525%_ - _%hd6146661515%_ - _%hd6146361505%_) - (_%g6145461494%_ _%g6145561498%_))))))) - (_%loop6148361567%_ _%target6148061561%_ '())) - (_%g6145461494%_ _%g6145561498%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6145461494%_ - _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6145461494%_ - _%g6145561498%_)))) - (_%g6145461494%_ - _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_))))) - (_%g6145361647%_ - (list _%Interface61444%_ - _%method61447%_ - (gx#stx-car _%method61447%_) + (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#syntax-local-introduce 'self) - _%offset61449%_ + _%offset61495%_ (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature61451%_)))))))) - (let* ((_%g6015460178%_ - (lambda (_%g6015560174%_) + _%signature61497%_)))))))) + (let* ((_%g6020060224%_ + (lambda (_%g6020160220%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6015560174%_))) - (_%g6015361440%_ - (lambda (_%g6015560182%_) - (if (gx#stx-pair? _%g6015560182%_) - (let ((_%e6015860185%_ (gx#syntax-e _%g6015560182%_))) - (let ((_%hd6015960189%_ + _%g6020160220%_))) + (_%g6019961486%_ + (lambda (_%g6020160228%_) + (if (gx#stx-pair? _%g6020160228%_) + (let ((_%e6020460231%_ (gx#syntax-e _%g6020160228%_))) + (let ((_%hd6020560235%_ (let () (declare (not safe)) - (##car _%e6015860185%_))) - (_%tl6016060192%_ + (##car _%e6020460231%_))) + (_%tl6020660238%_ (let () (declare (not safe)) - (##cdr _%e6015860185%_)))) - (if (gx#stx-pair? _%tl6016060192%_) - (let ((_%e6016160195%_ - (gx#syntax-e _%tl6016060192%_))) - (let ((_%hd6016260199%_ + (##cdr _%e6020460231%_)))) + (if (gx#stx-pair? _%tl6020660238%_) + (let ((_%e6020760241%_ + (gx#syntax-e _%tl6020660238%_))) + (let ((_%hd6020860245%_ (let () (declare (not safe)) - (##car _%e6016160195%_))) - (_%tl6016360202%_ + (##car _%e6020760241%_))) + (_%tl6020960248%_ (let () (declare (not safe)) - (##cdr _%e6016160195%_)))) - (if (gx#stx-pair/null? _%tl6016360202%_) - (let ((_g84099_ + (##cdr _%e6020760241%_)))) + (if (gx#stx-pair/null? _%tl6020960248%_) + (let ((_g84145_ (gx#syntax-split-splice - _%tl6016360202%_ + _%tl6020960248%_ '0))) (begin - (let ((_g84100_ + (let ((_g84146_ (let () (declare (not safe)) - (if (##values? _g84099_) + (if (##values? _g84145_) (##vector-length - _g84099_) + _g84145_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84100_ 2))) + (##fx= _g84146_ 2))) (error "Context expects 2 values" - _g84100_))) - (let ((_%target6016460205%_ + _g84146_))) + (let ((_%target6021060251%_ (let () (declare (not safe)) (##vector-ref - _g84099_ + _g84145_ 0))) - (_%tl6016660208%_ + (_%tl6021260254%_ (let () (declare (not safe)) (##vector-ref - _g84099_ + _g84145_ 1)))) (if (gx#stx-null? - _%tl6016660208%_) - (letrec ((_%loop6016760211%_ - (lambda (_%hd6016560215%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%spec6017160218%_) - (if (gx#stx-pair? _%hd6016560215%_) - (let ((_%e6016860221%_ - (gx#syntax-e _%hd6016560215%_))) - (let ((_%lp-hd6016960225%_ + _%tl6021260254%_) + (letrec ((_%loop6021360257%_ + (lambda (_%hd6021160261%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%spec6021760264%_) + (if (gx#stx-pair? _%hd6021160261%_) + (let ((_%e6021460267%_ + (gx#syntax-e _%hd6021160261%_))) + (let ((_%lp-hd6021560271%_ (let () (declare (not safe)) - (##car _%e6016860221%_))) - (_%lp-tl6017060228%_ + (##car _%e6021460267%_))) + (_%lp-tl6021660274%_ (let () (declare (not safe)) - (##cdr _%e6016860221%_)))) - (_%loop6016760211%_ - _%lp-tl6017060228%_ - (cons _%lp-hd6016960225%_ _%spec6017160218%_)))) - (let ((_%spec6017260231%_ - (reverse _%spec6017160218%_))) - ((lambda (_%L60235%_ _%L60237%_) - (if (or (gx#identifier? _%L60237%_) - (gx#identifier-list? _%L60237%_)) - (let* ((_%g6026060268%_ - (lambda (_%g6026160264%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6026160264%_))) - (_%g6025961436%_ - (lambda (_%g6026160272%_) - ((lambda (_%L60275%_) - (let* ((_%g6028760295%_ - (lambda (_%g6028860291%_) + _%g6030760310%_))) + (_%g6030561482%_ + (lambda (_%g6030760318%_) + ((lambda (_%L60321%_) + (let* ((_%g6033360341%_ + (lambda (_%g6033460337%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6028860291%_))) - (_%g6028661432%_ - (lambda (_%g6028860299%_) - ((lambda (_%L60302%_) - (let* ((_%g6031560323%_ + _%g6033460337%_))) + (_%g6033261478%_ + (lambda (_%g6033460345%_) + ((lambda (_%L60348%_) + (let* ((_%g6036160369%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6031660319%_) + (lambda (_%g6036260365%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6031660319%_))) - (_%g6031461428%_ - (lambda (_%g6031660327%_) - ((lambda (_%L60330%_) - (let* ((_%g6034360351%_ - (lambda (_%g6034460347%_) + _%g6036260365%_))) + (_%g6036061474%_ + (lambda (_%g6036260373%_) + ((lambda (_%L60376%_) + (let* ((_%g6038960397%_ + (lambda (_%g6039060393%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6034460347%_))) - (_%g6034261424%_ - (lambda (_%g6034460355%_) - ((lambda (_%L60358%_) - (let* ((_%g6037160379%_ - (lambda (_%g6037260375%_) + _%g6039060393%_))) + (_%g6038861470%_ + (lambda (_%g6039060401%_) + ((lambda (_%L60404%_) + (let* ((_%g6041760425%_ + (lambda (_%g6041860421%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6037260375%_))) - (_%g6037061420%_ - (lambda (_%g6037260383%_) - ((lambda (_%L60386%_) - (let* ((_%g6039960407%_ + _%g6041860421%_))) + (_%g6041661466%_ + (lambda (_%g6041860429%_) + ((lambda (_%L60432%_) + (let* ((_%g6044560453%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6040060403%_) + (lambda (_%g6044660449%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6040060403%_))) - (_%g6039861416%_ - (lambda (_%g6040060411%_) - ((lambda (_%L60414%_) - (let* ((_%g6042760435%_ - (lambda (_%g6042860431%_) + _%g6044660449%_))) + (_%g6044461462%_ + (lambda (_%g6044660457%_) + ((lambda (_%L60460%_) + (let* ((_%g6047360481%_ + (lambda (_%g6047460477%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6042860431%_))) - (_%g6042661412%_ - (lambda (_%g6042860439%_) - ((lambda (_%L60442%_) - (let* ((_%g6045560463%_ - (lambda (_%g6045660459%_) + _%g6047460477%_))) + (_%g6047261458%_ + (lambda (_%g6047460485%_) + ((lambda (_%L60488%_) + (let* ((_%g6050160509%_ + (lambda (_%g6050260505%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6045660459%_))) - (_%g6045461408%_ - (lambda (_%g6045660467%_) - ((lambda (_%L60470%_) - (let* ((_%g6048360491%_ + _%g6050260505%_))) + (_%g6050061454%_ + (lambda (_%g6050260513%_) + ((lambda (_%L60516%_) + (let* ((_%g6052960537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6048460487%_) + (lambda (_%g6053060533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6048460487%_))) - (_%g6048261404%_ - (lambda (_%g6048460495%_) - ((lambda (_%L60498%_) - (let* ((_%g6051160528%_ - (lambda (_%g6051260524%_) + _%g6053060533%_))) + (_%g6052861450%_ + (lambda (_%g6053060541%_) + ((lambda (_%L60544%_) + (let* ((_%g6055760574%_ + (lambda (_%g6055860570%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6051260524%_))) - (_%g6051061400%_ - (lambda (_%g6051260532%_) + _%g6055860570%_))) + (_%g6055661446%_ + (lambda (_%g6055860578%_) (if (gx#stx-pair/null? - _%g6051260532%_) - (let ((_g84101_ + _%g6055860578%_) + (let ((_g84147_ (gx#syntax-split-splice - _%g6051260532%_ + _%g6055860578%_ '0))) (begin - (let ((_g84102_ + (let ((_g84148_ (let () (declare (not safe)) (if (##values? - _g84101_) + _g84147_) (##vector-length - _g84101_) + _g84147_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84102_ 2))) - (error "Context expects 2 values" _g84102_))) + (##fx= _g84148_ 2))) + (error "Context expects 2 values" _g84148_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6051460535%_ + (let ((_%target6056060581%_ (let () (declare (not safe)) (##vector-ref - _g84101_ + _g84147_ 0))) - (_%tl6051660538%_ + (_%tl6056260584%_ (let () (declare (not safe)) (##vector-ref - _g84101_ + _g84147_ 1)))) (if (gx#stx-null? - _%tl6051660538%_) - (letrec ((_%loop6051760541%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6051560545%_ _%mixin6052160548%_) - (if (gx#stx-pair? _%hd6051560545%_) - (let ((_%e6051860551%_ - (gx#syntax-e _%hd6051560545%_))) - (let ((_%lp-hd6051960555%_ + _%tl6056260584%_) + (letrec ((_%loop6056360587%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6056160591%_ _%mixin6056760594%_) + (if (gx#stx-pair? _%hd6056160591%_) + (let ((_%e6056460597%_ + (gx#syntax-e _%hd6056160591%_))) + (let ((_%lp-hd6056560601%_ (let () (declare (not safe)) - (##car _%e6051860551%_))) - (_%lp-tl6052060558%_ + (##car _%e6056460597%_))) + (_%lp-tl6056660604%_ (let () (declare (not safe)) - (##cdr _%e6051860551%_)))) - (_%loop6051760541%_ - _%lp-tl6052060558%_ - (cons _%lp-hd6051960555%_ - _%mixin6052160548%_)))) - (let ((_%mixin6052260561%_ - (reverse _%mixin6052160548%_))) - ((lambda (_%L60565%_) - (let* ((_%g6058260599%_ - (lambda (_%g6058360595%_) + (##cdr _%e6056460597%_)))) + (_%loop6056360587%_ + _%lp-tl6056660604%_ + (cons _%lp-hd6056560601%_ + _%mixin6056760594%_)))) + (let ((_%mixin6056860607%_ + (reverse _%mixin6056760594%_))) + ((lambda (_%L60611%_) + (let* ((_%g6062860645%_ + (lambda (_%g6062960641%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6058360595%_))) - (_%g6058161380%_ - (lambda (_%g6058360603%_) + _%g6062960641%_))) + (_%g6062761426%_ + (lambda (_%g6062960649%_) (if (gx#stx-pair/null? - _%g6058360603%_) - (let ((_g84103_ + _%g6062960649%_) + (let ((_g84149_ (gx#syntax-split-splice - _%g6058360603%_ + _%g6062960649%_ '0))) (begin - (let ((_g84104_ + (let ((_g84150_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84103_) - (##vector-length _g84103_) + (if (##values? _g84149_) + (##vector-length _g84149_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84104_ 2))) - (error "Context expects 2 values" _g84104_))) - (let ((_%target6058560606%_ - (let () (declare (not safe)) (##vector-ref _g84103_ 0))) - (_%tl6058760609%_ - (let () (declare (not safe)) (##vector-ref _g84103_ 1)))) - (if (gx#stx-null? _%tl6058760609%_) - (letrec ((_%loop6058860612%_ - (lambda (_%hd6058660616%_ _%method6059260619%_) - (if (gx#stx-pair? _%hd6058660616%_) - (let ((_%e6058960622%_ - (gx#syntax-e _%hd6058660616%_))) - (let ((_%lp-hd6059060626%_ + (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%_ (let () (declare (not safe)) - (##car _%e6058960622%_))) - (_%lp-tl6059160629%_ + (##car _%e6063560668%_))) + (_%lp-tl6063760675%_ (let () (declare (not safe)) - (##cdr _%e6058960622%_)))) - (_%loop6058860612%_ - _%lp-tl6059160629%_ - (cons _%lp-hd6059060626%_ - _%method6059260619%_)))) - (let ((_%method6059360632%_ - (reverse _%method6059260619%_))) - ((lambda (_%L60636%_) - (let* ((_%g6065360670%_ - (lambda (_%g6065460666%_) + (##cdr _%e6063560668%_)))) + (_%loop6063460658%_ + _%lp-tl6063760675%_ + (cons _%lp-hd6063660672%_ + _%method6063860665%_)))) + (let ((_%method6063960678%_ + (reverse _%method6063860665%_))) + ((lambda (_%L60682%_) + (let* ((_%g6069960716%_ + (lambda (_%g6070060712%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6065460666%_))) - (_%g6065261368%_ - (lambda (_%g6065460674%_) + _%g6070060712%_))) + (_%g6069861414%_ + (lambda (_%g6070060720%_) (if (gx#stx-pair/null? - _%g6065460674%_) - (let ((_g84105_ + _%g6070060720%_) + (let ((_g84151_ (gx#syntax-split-splice - _%g6065460674%_ + _%g6070060720%_ '0))) (begin - (let ((_g84106_ + (let ((_g84152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84105_) - (##vector-length _g84105_) + (if (##values? _g84151_) + (##vector-length _g84151_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84106_ 2))) - (error "Context expects 2 values" _g84106_))) - (let ((_%target6065660677%_ + (##fx= _g84152_ 2))) + (error "Context expects 2 values" _g84152_))) + (let ((_%target6070260723%_ (let () (declare (not safe)) - (##vector-ref _g84105_ 0))) - (_%tl6065860680%_ + (##vector-ref _g84151_ 0))) + (_%tl6070460726%_ (let () (declare (not safe)) - (##vector-ref _g84105_ 1)))) - (if (gx#stx-null? _%tl6065860680%_) - (letrec ((_%loop6065960683%_ - (lambda (_%hd6065760687%_ - _%method-name6066360690%_) - (if (gx#stx-pair? _%hd6065760687%_) - (let ((_%e6066060693%_ + (##vector-ref _g84151_ 1)))) + (if (gx#stx-null? _%tl6070460726%_) + (letrec ((_%loop6070560729%_ + (lambda (_%hd6070360733%_ + _%method-name6070960736%_) + (if (gx#stx-pair? _%hd6070360733%_) + (let ((_%e6070660739%_ (gx#syntax-e - _%hd6065760687%_))) - (let ((_%lp-hd6066160697%_ + _%hd6070360733%_))) + (let ((_%lp-hd6070760743%_ (let () (declare (not safe)) - (##car _%e6066060693%_))) - (_%lp-tl6066260700%_ + (##car _%e6070660739%_))) + (_%lp-tl6070860746%_ (let () (declare (not safe)) - (##cdr _%e6066060693%_)))) - (_%loop6065960683%_ - _%lp-tl6066260700%_ - (cons _%lp-hd6066160697%_ - _%method-name6066360690%_)))) - (let ((_%method-name6066460703%_ - (reverse _%method-name6066360690%_))) - ((lambda (_%L60707%_) - (let* ((_%g6072460741%_ - (lambda (_%g6072560737%_) + (##cdr _%e6070660739%_)))) + (_%loop6070560729%_ + _%lp-tl6070860746%_ + (cons _%lp-hd6070760743%_ + _%method-name6070960736%_)))) + (let ((_%method-name6071060749%_ + (reverse _%method-name6070960736%_))) + ((lambda (_%L60753%_) + (let* ((_%g6077060787%_ + (lambda (_%g6077160783%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6072560737%_))) - (_%g6072361356%_ - (lambda (_%g6072560745%_) + _%g6077160783%_))) + (_%g6076961402%_ + (lambda (_%g6077160791%_) (if (gx#stx-pair/null? - _%g6072560745%_) - (let ((_g84107_ + _%g6077160791%_) + (let ((_g84153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6072560745%_ '0))) + (gx#syntax-split-splice _%g6077160791%_ '0))) (begin - (let ((_g84108_ + (let ((_g84154_ (let () (declare (not safe)) - (if (##values? _g84107_) - (##vector-length _g84107_) + (if (##values? _g84153_) + (##vector-length _g84153_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84108_ 2))) - (error "Context expects 2 values" _g84108_))) - (let ((_%target6072760748%_ + (##fx= _g84154_ 2))) + (error "Context expects 2 values" _g84154_))) + (let ((_%target6077360794%_ (let () (declare (not safe)) - (##vector-ref _g84107_ 0))) - (_%tl6072960751%_ + (##vector-ref _g84153_ 0))) + (_%tl6077560797%_ (let () (declare (not safe)) - (##vector-ref _g84107_ 1)))) - (if (gx#stx-null? _%tl6072960751%_) - (letrec ((_%loop6073060754%_ - (lambda (_%hd6072860758%_ - _%method-signature6073460761%_) - (if (gx#stx-pair? _%hd6072860758%_) - (let ((_%e6073160764%_ + (##vector-ref _g84153_ 1)))) + (if (gx#stx-null? _%tl6077560797%_) + (letrec ((_%loop6077660800%_ + (lambda (_%hd6077460804%_ + _%method-signature6078060807%_) + (if (gx#stx-pair? _%hd6077460804%_) + (let ((_%e6077760810%_ (gx#syntax-e - _%hd6072860758%_))) - (let ((_%lp-hd6073260768%_ + _%hd6077460804%_))) + (let ((_%lp-hd6077860814%_ (let () (declare (not safe)) - (##car _%e6073160764%_))) - (_%lp-tl6073360771%_ + (##car _%e6077760810%_))) + (_%lp-tl6077960817%_ (let () (declare (not safe)) - (##cdr _%e6073160764%_)))) - (_%loop6073060754%_ - _%lp-tl6073360771%_ - (cons _%lp-hd6073260768%_ - _%method-signature6073460761%_)))) - (let ((_%method-signature6073560774%_ - (reverse _%method-signature6073460761%_))) - ((lambda (_%L60778%_) - (let* ((_%g6079560812%_ - (lambda (_%g6079660808%_) + (##cdr _%e6077760810%_)))) + (_%loop6077660800%_ + _%lp-tl6077960817%_ + (cons _%lp-hd6077860814%_ + _%method-signature6078060807%_)))) + (let ((_%method-signature6078160820%_ + (reverse _%method-signature6078060807%_))) + ((lambda (_%L60824%_) + (let* ((_%g6084160858%_ + (lambda (_%g6084260854%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6079660808%_))) - (_%g6079461341%_ - (lambda (_%g6079660816%_) + _%g6084260854%_))) + (_%g6084061387%_ + (lambda (_%g6084260862%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6079660816%_) - (let ((_g84109_ - (gx#syntax-split-splice _%g6079660816%_ '0))) + _%g6084260862%_) + (let ((_g84155_ + (gx#syntax-split-splice _%g6084260862%_ '0))) (begin - (let ((_g84110_ + (let ((_g84156_ (let () (declare (not safe)) - (if (##values? _g84109_) - (##vector-length _g84109_) + (if (##values? _g84155_) + (##vector-length _g84155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84110_ 2))) + (##fx= _g84156_ 2))) (error "Context expects 2 values" - _g84110_))) - (let ((_%target6079860819%_ + _g84156_))) + (let ((_%target6084460865%_ (let () (declare (not safe)) - (##vector-ref _g84109_ 0))) - (_%tl6080060822%_ + (##vector-ref _g84155_ 0))) + (_%tl6084660868%_ (let () (declare (not safe)) - (##vector-ref _g84109_ 1)))) - (if (gx#stx-null? _%tl6080060822%_) - (letrec ((_%loop6080160825%_ - (lambda (_%hd6079960829%_ - _%method-impl-name6080560832%_) + (##vector-ref _g84155_ 1)))) + (if (gx#stx-null? _%tl6084660868%_) + (letrec ((_%loop6084760871%_ + (lambda (_%hd6084560875%_ + _%method-impl-name6085160878%_) (if (gx#stx-pair? - _%hd6079960829%_) - (let ((_%e6080260835%_ + _%hd6084560875%_) + (let ((_%e6084860881%_ (gx#syntax-e - _%hd6079960829%_))) - (let ((_%lp-hd6080360839%_ + _%hd6084560875%_))) + (let ((_%lp-hd6084960885%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6080260835%_))) - (_%lp-tl6080460842%_ - (let () (declare (not safe)) (##cdr _%e6080260835%_)))) - (_%loop6080160825%_ - _%lp-tl6080460842%_ - (cons _%lp-hd6080360839%_ _%method-impl-name6080560832%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%method-impl-name6080660845%_ - (reverse _%method-impl-name6080560832%_))) - ((lambda (_%L60849%_) - (let* ((_%g6086660883%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6086760879%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6086760879%_))) - (_%g6086561326%_ - (lambda (_%g6086760887%_) - (if (gx#stx-pair/null? _%g6086760887%_) - (let ((_g84111_ + _%g6091360925%_))) + (_%g6091161372%_ + (lambda (_%g6091360933%_) + (if (gx#stx-pair/null? _%g6091360933%_) + (let ((_g84157_ (gx#syntax-split-splice - _%g6086760887%_ + _%g6091360933%_ '0))) (begin - (let ((_g84112_ + (let ((_g84158_ (let () (declare (not safe)) - (if (##values? _g84111_) - (##vector-length _g84111_) + (if (##values? _g84157_) + (##vector-length _g84157_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84112_ 2))) + (##fx= _g84158_ 2))) (error "Context expects 2 values" - _g84112_))) - (let ((_%target6086960890%_ + _g84158_))) + (let ((_%target6091560936%_ (let () (declare (not safe)) - (##vector-ref _g84111_ 0))) - (_%tl6087160893%_ + (##vector-ref _g84157_ 0))) + (_%tl6091760939%_ (let () (declare (not safe)) - (##vector-ref _g84111_ 1)))) - (if (gx#stx-null? _%tl6087160893%_) - (letrec ((_%loop6087260896%_ - (lambda (_%hd6087060900%_ - _%unchecked-method-impl-name6087660903%_) + (##vector-ref _g84157_ 1)))) + (if (gx#stx-null? _%tl6091760939%_) + (letrec ((_%loop6091860942%_ + (lambda (_%hd6091660946%_ + _%unchecked-method-impl-name6092260949%_) (if (gx#stx-pair? - _%hd6087060900%_) - (let ((_%e6087360906%_ + _%hd6091660946%_) + (let ((_%e6091960952%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd6087060900%_))) - (let ((_%lp-hd6087460910%_ + _%hd6091660946%_))) + (let ((_%lp-hd6092060956%_ (let () (declare (not safe)) - (##car _%e6087360906%_))) - (_%lp-tl6087560913%_ + (##car _%e6091960952%_))) + (_%lp-tl6092160959%_ (let () (declare (not safe)) - (##cdr _%e6087360906%_)))) - (_%loop6087260896%_ - _%lp-tl6087560913%_ - (cons _%lp-hd6087460910%_ - _%unchecked-method-impl-name6087660903%_)))) - (let ((_%unchecked-method-impl-name6087760916%_ - (reverse _%unchecked-method-impl-name6087660903%_))) - ((lambda (_%L60920%_) - (let* ((_%g6093760954%_ - (lambda (_%g6093860950%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6093860950%_))) - (_%g6093661306%_ - (lambda (_%g6093860958%_) - (if (gx#stx-pair/null? _%g6093860958%_) - (let ((_g84113_ + _%g6098460996%_))) + (_%g6098261352%_ + (lambda (_%g6098461004%_) + (if (gx#stx-pair/null? _%g6098461004%_) + (let ((_g84159_ (gx#syntax-split-splice - _%g6093860958%_ + _%g6098461004%_ '0))) (begin - (let ((_g84114_ + (let ((_g84160_ (let () (declare (not safe)) - (if (##values? _g84113_) - (##vector-length _g84113_) + (if (##values? _g84159_) + (##vector-length _g84159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84114_ 2))) + (##fx= _g84160_ 2))) (error "Context expects 2 values" - _g84114_))) - (let ((_%target6094060961%_ + _g84160_))) + (let ((_%target6098661007%_ (let () (declare (not safe)) - (##vector-ref _g84113_ 0))) - (_%tl6094260964%_ + (##vector-ref _g84159_ 0))) + (_%tl6098861010%_ (let () (declare (not safe)) - (##vector-ref _g84113_ 1)))) - (if (gx#stx-null? _%tl6094260964%_) - (letrec ((_%loop6094360967%_ - (lambda (_%hd6094160971%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defmethod-impl6094760974%_) - (if (gx#stx-pair? _%hd6094160971%_) - (let ((_%e6094460977%_ (gx#syntax-e _%hd6094160971%_))) - (let ((_%lp-hd6094560981%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6094460977%_))) - (_%lp-tl6094660984%_ + (##car _%e6099061023%_))) + (_%lp-tl6099261030%_ (let () (declare (not safe)) - (##cdr _%e6094460977%_)))) - (_%loop6094360967%_ - _%lp-tl6094660984%_ - (cons _%lp-hd6094560981%_ - _%defmethod-impl6094760974%_)))) - (let ((_%defmethod-impl6094860987%_ - (reverse _%defmethod-impl6094760974%_))) - ((lambda (_%L60991%_) - (let* ((_%g6100861016%_ - (lambda (_%g6100961012%_) + (##cdr _%e6099061023%_)))) + (_%loop6098961013%_ + _%lp-tl6099261030%_ + (cons _%lp-hd6099161027%_ + _%defmethod-impl6099361020%_)))) + (let ((_%defmethod-impl6099461033%_ + (reverse _%defmethod-impl6099361020%_))) + ((lambda (_%L61037%_) + (let* ((_%g6105461062%_ + (lambda (_%g6105561058%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6100961012%_))) - (_%g6100761286%_ - (lambda (_%g6100961020%_) - ((lambda (_%L61023%_) - (let* ((_%g6103661044%_ - (lambda (_%g6103761040%_) + _%g6105561058%_))) + (_%g6105361332%_ + (lambda (_%g6105561066%_) + ((lambda (_%L61069%_) + (let* ((_%g6108261090%_ + (lambda (_%g6108361086%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6103761040%_))) - (_%g6103561266%_ - (lambda (_%g6103761048%_) - ((lambda (_%L61051%_) - (let* ((_%g6106461072%_ - (lambda (_%g6106561068%_) + _%g6108361086%_))) + (_%g6108161312%_ + (lambda (_%g6108361094%_) + ((lambda (_%L61097%_) + (let* ((_%g6111061118%_ + (lambda (_%g6111161114%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6106561068%_))) - (_%g6106361262%_ - (lambda (_%g6106561076%_) - ((lambda (_%L61079%_) + _%g6111161114%_))) + (_%g6110961308%_ + (lambda (_%g6111161122%_) + ((lambda (_%L61125%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6109261100%_ - (lambda (_%g6109361096%_) + (let* ((_%g6113861146%_ + (lambda (_%g6113961142%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6109361096%_))) - (_%g6109161258%_ - (lambda (_%g6109361104%_) - ((lambda (_%L61107%_) - (let* ((_%g6112061128%_ - (lambda (_%g6112161124%_) + _%g6113961142%_))) + (_%g6113761304%_ + (lambda (_%g6113961150%_) + ((lambda (_%L61153%_) + (let* ((_%g6116661174%_ + (lambda (_%g6116761170%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6112161124%_))) - (_%g6111961254%_ - (lambda (_%g6112161132%_) - ((lambda (_%L61135%_) - (let* ((_%g6114861156%_ - (lambda (_%g6114961152%_) + _%g6116761170%_))) + (_%g6116561300%_ + (lambda (_%g6116761178%_) + ((lambda (_%L61181%_) + (let* ((_%g6119461202%_ + (lambda (_%g6119561198%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6114961152%_))) - (_%g6114761250%_ - (lambda (_%g6114961160%_) - ((lambda (_%L61163%_) + _%g6119561198%_))) + (_%g6119361296%_ + (lambda (_%g6119561206%_) + ((lambda (_%L61209%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6117661184%_ - (lambda (_%g6117761180%_) + (let* ((_%g6122261230%_ + (lambda (_%g6122361226%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6117761180%_))) - (_%g6117561214%_ - (lambda (_%g6117761188%_) - ((lambda (_%L61191%_) + _%g6122361226%_))) + (_%g6122161260%_ + (lambda (_%g6122361234%_) + ((lambda (_%L61237%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L61023%_ - (cons _%L61051%_ - (cons _%L61079%_ - (cons _%L61107%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L61135%_ - (cons _%L61163%_ - (cons _%L61191%_ - (foldr (lambda (_%g6120561208%_ - _%g6120661211%_) - (cons _%g6120561208%_ - _%g6120661211%_)) + (cons _%L61069%_ + (cons _%L61097%_ + (cons _%L61125%_ + (cons _%L61153%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L61181%_ + (cons _%L61209%_ + (cons _%L61237%_ + (foldr (lambda (_%g6125161254%_ + _%g6125261257%_) + (cons _%g6125161254%_ + _%g6125261257%_)) '() - _%L60991%_)))))))))) + _%L61037%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6117761188%_)))) - (_%g6117561214%_ + _%g6122361234%_)))) + (_%g6122161260%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L60275%_ + (cons _%L60321%_ (cons (cons (gx#datum->syntax '#f 'make-interface-info) @@ -8307,31 +8326,31 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L60275%_ '())) + (cons _%L60321%_ '())) (cons 'interface-mixin: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6122361226%_ - _%g6122461229%_) + (foldr (lambda (_%g6126961272%_ + _%g6127061275%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6122361226%_ + (cons _%g6126961272%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6122461229%_)) + _%g6127061275%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L60565%_)) + _%L60611%_)) (cons 'interface-methods: (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6122161232%_ + (cons (foldr (lambda (_%g6126761278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6122261235%_) - (cons _%g6122161232%_ _%g6122261235%_)) + _%g6126861281%_) + (cons _%g6126761278%_ _%g6126861281%_)) '() - _%L60636%_) + _%L60682%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'instance-type: @@ -8339,66 +8358,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L60302%_ '())) + (cons _%L60348%_ '())) (cons 'interface-descriptor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60386%_ '())) + (cons _%L60432%_ '())) (cons 'instance-constructor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60414%_ '())) + (cons _%L60460%_ '())) (cons 'instance-try-constructor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60442%_ + (cons _%L60488%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons 'instance-predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60470%_ '())) + (cons _%L60516%_ '())) (cons 'instance-satisfies-predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60498%_ '())) + (cons _%L60544%_ '())) (cons 'implementation-methods: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6121961238%_ + (foldr (lambda (_%g6126561284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6122061241%_) + _%g6126661287%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6121961238%_ '())) - _%g6122061241%_)) + (cons _%g6126561284%_ '())) + _%g6126661287%_)) '() - _%L60849%_)) + _%L60895%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'unchecked-implementation-methods: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) - (foldr (lambda (_%g6121761244%_ _%g6121861247%_) + (foldr (lambda (_%g6126361290%_ _%g6126461293%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6121761244%_ '())) - _%g6121861247%_)) + (cons _%g6126361290%_ '())) + _%g6126461293%_)) '() - _%L60920%_)) + _%L60966%_)) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%g6114961160%_)))) - (_%g6114761250%_ + _%g6119561206%_)))) + (_%g6119361296%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60498%_ + (cons (cons _%L60544%_ (cons (gx#datum->syntax '#f 'obj) '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax @@ -8425,23 +8444,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'satisfies?) - (cons _%L60386%_ + (cons _%L60432%_ (cons (gx#datum->syntax '#f 'obj) '()))) (cons '#t '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6112161132%_)))) - (_%g6111961254%_ + _%g6116761178%_)))) + (_%g6116561300%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L60470%_ + (cons _%L60516%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L60330%_ '())) + (cons _%L60376%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8450,7 +8469,7 @@ (cons (cons (gx#datum->syntax '#f 'direct-instance?) - (cons _%L60302%_ + (cons _%L60348%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'obj) '()))) '()))) @@ -8458,10 +8477,10 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6109361104%_)))) - (_%g6109161258%_ + _%g6113961150%_)))) + (_%g6113761304%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60442%_ + (cons (cons _%L60488%_ (cons (gx#datum->syntax '#f 'obj) @@ -8489,15 +8508,15 @@ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'try-cast) - (cons _%L60386%_ + (cons _%L60432%_ (cons (gx#datum->syntax '#f 'obj) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%g6106561076%_)))) - (_%g6106361262%_ + _%g6111161122%_)))) + (_%g6110961308%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60414%_ + (cons (cons _%L60460%_ (cons (gx#datum->syntax '#f 'obj) '())) (cons (cons (gx#datum->syntax '#f @@ -8506,7 +8525,7 @@ '#f '@type.signature) (cons 'return: - (cons _%L60330%_ + (cons _%L60376%_ (cons 'effect: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'cast) '()) @@ -8520,7 +8539,7 @@ (cons (cons (gx#datum->syntax '#f 'cast) - (cons _%L60386%_ + (cons _%L60432%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -8530,47 +8549,47 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6103761048%_)))) - (_%g6103561266%_ + _%g6108361094%_)))) + (_%g6108161312%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L60386%_ + (cons _%L60432%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@interface) - (cons _%L60330%_ - (cons (foldr (lambda (_%g6127161274%_ + (cons _%L60376%_ + (cons (foldr (lambda (_%g6131761320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6127261277%_) - (cons _%g6127161274%_ _%g6127261277%_)) + _%g6131861323%_) + (cons _%g6131761320%_ _%g6131861323%_)) '() - _%L60707%_) + _%L60753%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'make-interface-descriptor) - (cons _%L60302%_ + (cons _%L60348%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6126961280%_ + (cons (foldr (lambda (_%g6131561326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6127061283%_) - (cons _%g6126961280%_ _%g6127061283%_)) + _%g6131661329%_) + (cons _%g6131561326%_ _%g6131661329%_)) '() - _%L60707%_) + _%L60753%_) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6100961020%_)))) - (_%g6100761286%_ + _%g6105561066%_)))) + (_%g6105361332%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L60302%_ + (cons _%L60348%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -8578,17 +8597,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.class) - (cons _%L60358%_ + (cons _%L60404%_ (cons (cons (gx#datum->syntax '#f 'interface-instance::t) '()) - (cons (foldr (lambda (_%g6129161294%_ - _%g6129261297%_) - (cons _%g6129161294%_ - _%g6129261297%_)) + (cons (foldr (lambda (_%g6133761340%_ + _%g6133861343%_) + (cons _%g6133761340%_ + _%g6133861343%_)) '() - _%L60707%_) + _%L60753%_) (cons '#f (cons '#t (cons '#t @@ -8598,9 +8617,9 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L60358%_ '())) + (cons _%L60404%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L60275%_ '())) + (cons _%L60321%_ '())) (cons (cons (gx#datum->syntax '#f '@list) @@ -8611,12 +8630,12 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6128961300%_ + (cons (foldr (lambda (_%g6133561346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6129061303%_) - (cons _%g6128961300%_ _%g6129061303%_)) + _%g6133661349%_) + (cons _%g6133561346%_ _%g6133661349%_)) '() - _%L60707%_) + _%L60753%_) '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons (cons (cons 'final: '#t) @@ -8627,915 +8646,916 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%defmethod-impl6094860987%_)))))) + _%defmethod-impl6099461033%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6094360967%_ - _%target6094060961%_ + (_%loop6098961013%_ + _%target6098661007%_ '())) - (_%g6093760954%_ - _%g6093860958%_))))) - (_%g6093760954%_ _%g6093860958%_))))) - (_%g6093661306%_ - (map (_%make-method-defs60152%_ _%L60275%_) - (foldr (lambda (_%g6130961312%_ _%g6131061315%_) - (cons _%g6130961312%_ _%g6131061315%_)) + (_%g6098361000%_ + _%g6098461004%_))))) + (_%g6098361000%_ _%g6098461004%_))))) + (_%g6098261352%_ + (map (_%make-method-defs60198%_ _%L60321%_) + (foldr (lambda (_%g6135561358%_ _%g6135661361%_) + (cons _%g6135561358%_ _%g6135661361%_)) '() - _%L60636%_) - (let ((__tmp84115 - (length (foldr (lambda (_%g6131761320%_ - _%g6131861323%_) - (cons _%g6131761320%_ - _%g6131861323%_)) + _%L60682%_) + (let ((__tmp84161 + (length (foldr (lambda (_%g6136361366%_ + _%g6136461369%_) + (cons _%g6136361366%_ + _%g6136461369%_)) '() - _%L60707%_)))) + _%L60753%_)))) (declare (not safe)) - (##iota __tmp84115 '2)))))) - _%unchecked-method-impl-name6087760916%_)))))) + (##iota __tmp84161 '2)))))) + _%unchecked-method-impl-name6092360962%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6087260896%_ - _%target6086960890%_ + (_%loop6091860942%_ + _%target6091560936%_ '())) - (_%g6086660883%_ _%g6086760887%_))))) - (_%g6086660883%_ _%g6086760887%_))))) - (_%g6086561326%_ - (map (lambda (_%method-name61330%_) + (_%g6091260929%_ _%g6091360933%_))))) + (_%g6091260929%_ _%g6091360933%_))))) + (_%g6091161372%_ + (map (lambda (_%method-name61376%_) (gx#stx-identifier - _%L60275%_ + _%L60321%_ '"&" - _%L60275%_ + _%L60321%_ '"-" - _%method-name61330%_)) - (foldr (lambda (_%g6133261335%_ _%g6133361338%_) - (cons _%g6133261335%_ _%g6133361338%_)) + _%method-name61376%_)) + (foldr (lambda (_%g6137861381%_ _%g6137961384%_) + (cons _%g6137861381%_ _%g6137961384%_)) '() - _%L60707%_))))) - _%method-impl-name6080660845%_)))))) + _%L60753%_))))) + _%method-impl-name6085260891%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6080160825%_ - _%target6079860819%_ + (_%loop6084760871%_ + _%target6084460865%_ '())) - (_%g6079560812%_ _%g6079660816%_))))) - (_%g6079560812%_ _%g6079660816%_))))) - (_%g6079461341%_ - (map (lambda (_%method-name61345%_) + (_%g6084160858%_ _%g6084260862%_))))) + (_%g6084160858%_ _%g6084260862%_))))) + (_%g6084061387%_ + (map (lambda (_%method-name61391%_) (gx#stx-identifier - _%L60275%_ - _%L60275%_ + _%L60321%_ + _%L60321%_ '"-" - _%method-name61345%_)) - (foldr (lambda (_%g6134761350%_ _%g6134861353%_) - (cons _%g6134761350%_ _%g6134861353%_)) + _%method-name61391%_)) + (foldr (lambda (_%g6139361396%_ _%g6139461399%_) + (cons _%g6139361396%_ _%g6139461399%_)) '() - _%L60707%_))))) + _%L60753%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-signature6073560774%_)))))) - (_%loop6073060754%_ _%target6072760748%_ '())) - (_%g6072460741%_ _%g6072560745%_))))) - (_%g6072460741%_ _%g6072560745%_))))) + _%method-signature6078160820%_)))))) + (_%loop6077660800%_ _%target6077360794%_ '())) + (_%g6077060787%_ _%g6077160791%_))))) + (_%g6077060787%_ _%g6077160791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6072361356%_ + (_%g6076961402%_ (map gx#stx-cdr - (foldr (lambda (_%g6135961362%_ + (foldr (lambda (_%g6140561408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6136061365%_) - (cons _%g6135961362%_ _%g6136061365%_)) + _%g6140661411%_) + (cons _%g6140561408%_ _%g6140661411%_)) '() - _%L60636%_))))) + _%L60682%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-name6066460703%_)))))) - (_%loop6065960683%_ _%target6065660677%_ '())) - (_%g6065360670%_ _%g6065460674%_))))) - (_%g6065360670%_ _%g6065460674%_))))) + _%method-name6071060749%_)))))) + (_%loop6070560729%_ _%target6070260723%_ '())) + (_%g6069960716%_ _%g6070060720%_))))) + (_%g6069960716%_ _%g6070060720%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6065261368%_ + (_%g6069861414%_ (map gx#stx-car - (foldr (lambda (_%g6137161374%_ + (foldr (lambda (_%g6141761420%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6137261377%_) - (cons _%g6137161374%_ _%g6137261377%_)) + _%g6141861423%_) + (cons _%g6141761420%_ _%g6141861423%_)) '() - _%L60636%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method6059360632%_)))))) - (_%loop6058860612%_ _%target6058560606%_ '())) - (_%g6058260599%_ _%g6058360603%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6058260599%_ - _%g6058360603%_))))) - (_%g6058161380%_ - (_%fold-methods60148%_ - (foldr (lambda (_%g6138361386%_ - _%g6138461389%_) - (cons _%g6138361386%_ - _%g6138461389%_)) + _%L60682%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%method6063960678%_)))))) + (_%loop6063460658%_ _%target6063160652%_ '())) + (_%g6062860645%_ _%g6062960649%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6062860645%_ + _%g6062960649%_))))) + (_%g6062761426%_ + (_%fold-methods60194%_ + (foldr (lambda (_%g6142961432%_ + _%g6143061435%_) + (cons _%g6142961432%_ + _%g6143061435%_)) '() - _%L60565%_) - (foldr (lambda (_%g6139161394%_ - _%g6139261397%_) - (cons _%g6139161394%_ - _%g6139261397%_)) + _%L60611%_) + (foldr (lambda (_%g6143761440%_ + _%g6143861443%_) + (cons _%g6143761440%_ + _%g6143861443%_)) '() - _%L60235%_))))) - _%mixin6052260561%_)))))) - (_%loop6051760541%_ _%target6051460535%_ '())) - (_%g6051160528%_ _%g6051260532%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6051160528%_ - _%g6051260532%_))))) - (_%g6051061400%_ - (if (gx#identifier? _%L60237%_) + _%L60281%_))))) + _%mixin6056860607%_)))))) + (_%loop6056360587%_ _%target6056060581%_ '())) + (_%g6055760574%_ _%g6055860578%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6055760574%_ + _%g6055860578%_))))) + (_%g6055661446%_ + (if (gx#identifier? _%L60283%_) '() - (gx#stx-cdr _%L60237%_))))) - _%g6048460495%_)))) - (_%g6048261404%_ - (gx#stx-identifier _%L60275%_ '"is-" _%L60275%_ '"?")))) - _%g6045660467%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6045461408%_ + (gx#syntax->list + (gx#stx-cdr _%L60283%_)))))) + _%g6053060541%_)))) + (_%g6052861450%_ + (gx#stx-identifier _%L60321%_ '"is-" _%L60321%_ '"?")))) + _%g6050260513%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6050061454%_ (gx#stx-identifier - _%L60275%_ - _%L60275%_ + _%L60321%_ + _%L60321%_ '"?")))) - _%g6042860439%_)))) - (_%g6042661412%_ + _%g6047460485%_)))) + (_%g6047261458%_ (gx#stx-identifier - _%L60275%_ + _%L60321%_ '"try-" - _%L60275%_)))) - _%g6040060411%_)))) - (_%g6039861416%_ - (gx#stx-identifier _%L60275%_ '"make-" _%L60275%_)))) - _%g6037260383%_)))) + _%L60321%_)))) + _%g6044660457%_)))) + (_%g6044461462%_ + (gx#stx-identifier _%L60321%_ '"make-" _%L60321%_)))) + _%g6041860429%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6037061420%_ + (_%g6041661466%_ (gx#stx-identifier - _%L60275%_ - _%L60275%_ + _%L60321%_ + _%L60321%_ '"::interface")))) - _%g6034460355%_)))) - (_%g6034261424%_ + _%g6039060401%_)))) + (_%g6038861470%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L60275%_))))) - _%g6031660327%_)))) - (_%g6031461428%_ (gx#core-quote-syntax _%L60302%_)))) - _%g6028860299%_)))) + _%L60321%_))))) + _%g6036260373%_)))) + (_%g6036061474%_ (gx#core-quote-syntax _%L60348%_)))) + _%g6033460345%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6028661432%_ + (_%g6033261478%_ (gx#stx-identifier - _%L60275%_ - _%L60275%_ + _%L60321%_ + _%L60321%_ '"::t")))) - _%g6026160272%_)))) - (_%g6025961436%_ - (if (gx#identifier? _%L60237%_) - _%L60237%_ - (gx#stx-car _%L60237%_)))) - (_%g6015460178%_ _%g6015560182%_))) - _%spec6017260231%_ - _%hd6016260199%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6016760211%_ - _%target6016460205%_ + _%g6030760318%_)))) + (_%g6030561482%_ + (if (gx#identifier? _%L60283%_) + _%L60283%_ + (gx#stx-car _%L60283%_)))) + (_%g6020060224%_ _%g6020160228%_))) + _%spec6021860277%_ + _%hd6020860245%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6021360257%_ + _%target6021060251%_ '())) - (_%g6015460178%_ - _%g6015560182%_))))) - (_%g6015460178%_ _%g6015560182%_)))) - (_%g6015460178%_ _%g6015560182%_)))) - (_%g6015460178%_ _%g6015560182%_))))) - (_%g6015361440%_ _%stx60145%_))))) + (_%g6020060224%_ + _%g6020160228%_))))) + (_%g6020060224%_ _%g6020160228%_)))) + (_%g6020060224%_ _%g6020160228%_)))) + (_%g6020060224%_ _%g6020160228%_))))) + (_%g6019961486%_ _%stx60191%_))))) (define |gerbil/core/contract~Interface[:0:]#definterface-method| - (lambda (_%stx61950%_) - (letrec ((_%emit-raw-method?61953%_ - (lambda (_%return62936%_) - (let ((_%return-type62939%_ - (gx#syntax-local-value _%return62936%_))) + (lambda (_%stx61996%_) + (letrec ((_%emit-raw-method?61999%_ + (lambda (_%return62982%_) + (let ((_%return-type62985%_ + (gx#syntax-local-value _%return62982%_))) (if (and (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%return-type62939%_)) - (let ((__tmp84116 - (let ((__obj83888 _%return-type62939%_)) + _%return-type62985%_)) + (let ((__tmp84162 + (let ((__obj83934 _%return-type62985%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83888 + __obj83934 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83888 + __obj83934 '1 '#f '#f)) (unchecked-slot-ref - __obj83888 + __obj83934 'id))))) (declare (not safe)) - (##memq __tmp84116 '(t void)))) + (##memq __tmp84162 '(t void)))) '#f '#t)))) - (_%make-checked-method-def61955%_ - (lambda (_%Interface62697%_ - _%method-name62699%_ - _%raw-method-name62700%_ - _%unchecked-method-name62701%_ - _%signature62702%_ - _%return62703%_) - (let* ((_%g6270562753%_ - (lambda (_%g6270662749%_) + (_%make-checked-method-def62001%_ + (lambda (_%Interface62743%_ + _%method-name62745%_ + _%raw-method-name62746%_ + _%unchecked-method-name62747%_ + _%signature62748%_ + _%return62749%_) + (let* ((_%g6275162799%_ + (lambda (_%g6275262795%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6270662749%_))) - (_%g6270462932%_ - (lambda (_%g6270662757%_) - (if (gx#stx-pair? _%g6270662757%_) - (let ((_%e6271562760%_ - (gx#syntax-e _%g6270662757%_))) - (let ((_%hd6271662764%_ + _%g6275262795%_))) + (_%g6275062978%_ + (lambda (_%g6275262803%_) + (if (gx#stx-pair? _%g6275262803%_) + (let ((_%e6276162806%_ + (gx#syntax-e _%g6275262803%_))) + (let ((_%hd6276262810%_ (let () (declare (not safe)) - (##car _%e6271562760%_))) - (_%tl6271762767%_ + (##car _%e6276162806%_))) + (_%tl6276362813%_ (let () (declare (not safe)) - (##cdr _%e6271562760%_)))) - (if (gx#stx-pair? _%tl6271762767%_) - (let ((_%e6271862770%_ + (##cdr _%e6276162806%_)))) + (if (gx#stx-pair? _%tl6276362813%_) + (let ((_%e6276462816%_ (gx#syntax-e - _%tl6271762767%_))) - (let ((_%hd6271962774%_ + _%tl6276362813%_))) + (let ((_%hd6276562820%_ (let () (declare (not safe)) - (##car _%e6271862770%_))) - (_%tl6272062777%_ + (##car _%e6276462816%_))) + (_%tl6276662823%_ (let () (declare (not safe)) - (##cdr _%e6271862770%_)))) + (##cdr _%e6276462816%_)))) (if (gx#stx-pair? - _%tl6272062777%_) - (let ((_%e6272162780%_ + _%tl6276662823%_) + (let ((_%e6276762826%_ (gx#syntax-e - _%tl6272062777%_))) - (let ((_%hd6272262784%_ + _%tl6276662823%_))) + (let ((_%hd6276862830%_ (let () (declare (not safe)) - (##car _%e6272162780%_))) - (_%tl6272362787%_ + (##car _%e6276762826%_))) + (_%tl6276962833%_ (let () (declare (not safe)) - (##cdr _%e6272162780%_)))) + (##cdr _%e6276762826%_)))) (if (gx#stx-pair? - _%tl6272362787%_) - (let ((_%e6272462790%_ + _%tl6276962833%_) + (let ((_%e6277062836%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6272362787%_))) - (let ((_%hd6272562794%_ + (gx#syntax-e _%tl6276962833%_))) + (let ((_%hd6277162840%_ (let () (declare (not safe)) - (##car _%e6272462790%_))) - (_%tl6272662797%_ + (##car _%e6277062836%_))) + (_%tl6277262843%_ (let () (declare (not safe)) - (##cdr _%e6272462790%_)))) - (if (gx#stx-pair? _%tl6272662797%_) - (let ((_%e6272762800%_ - (gx#syntax-e _%tl6272662797%_))) - (let ((_%hd6272862804%_ + (##cdr _%e6277062836%_)))) + (if (gx#stx-pair? _%tl6277262843%_) + (let ((_%e6277362846%_ + (gx#syntax-e _%tl6277262843%_))) + (let ((_%hd6277462850%_ (let () (declare (not safe)) - (##car _%e6272762800%_))) - (_%tl6272962807%_ + (##car _%e6277362846%_))) + (_%tl6277562853%_ (let () (declare (not safe)) - (##cdr _%e6272762800%_)))) - (if (gx#stx-pair? _%tl6272962807%_) - (let ((_%e6273062810%_ - (gx#syntax-e _%tl6272962807%_))) - (let ((_%hd6273162814%_ + (##cdr _%e6277362846%_)))) + (if (gx#stx-pair? _%tl6277562853%_) + (let ((_%e6277662856%_ + (gx#syntax-e _%tl6277562853%_))) + (let ((_%hd6277762860%_ (let () (declare (not safe)) - (##car _%e6273062810%_))) - (_%tl6273262817%_ + (##car _%e6277662856%_))) + (_%tl6277862863%_ (let () (declare (not safe)) - (##cdr _%e6273062810%_)))) - (if (gx#stx-pair/null? _%hd6273162814%_) - (let ((_g84117_ + (##cdr _%e6277662856%_)))) + (if (gx#stx-pair/null? _%hd6277762860%_) + (let ((_g84163_ (gx#syntax-split-splice - _%hd6273162814%_ + _%hd6277762860%_ '0))) (begin - (let ((_g84118_ + (let ((_g84164_ (let () (declare (not safe)) - (if (##values? _g84117_) + (if (##values? _g84163_) (##vector-length - _g84117_) + _g84163_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84118_ 2))) + (##fx= _g84164_ 2))) (error "Context expects 2 values" - _g84118_))) - (let ((_%target6273362820%_ + _g84164_))) + (let ((_%target6277962866%_ (let () (declare (not safe)) (##vector-ref - _g84117_ + _g84163_ 0))) - (_%tl6273562823%_ + (_%tl6278162869%_ (let () (declare (not safe)) (##vector-ref - _g84117_ + _g84163_ 1)))) (if (gx#stx-null? - _%tl6273562823%_) - (letrec ((_%loop6273662826%_ - (lambda (_%hd6273462830%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6274062833%_) - (if (gx#stx-pair? _%hd6273462830%_) - (let ((_%e6273762836%_ - (gx#syntax-e _%hd6273462830%_))) - (let ((_%lp-hd6273862840%_ + _%tl6278162869%_) + (letrec ((_%loop6278262872%_ + (lambda (_%hd6278062876%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6278662879%_) + (if (gx#stx-pair? _%hd6278062876%_) + (let ((_%e6278362882%_ + (gx#syntax-e _%hd6278062876%_))) + (let ((_%lp-hd6278462886%_ (let () (declare (not safe)) - (##car _%e6273762836%_))) - (_%lp-tl6273962843%_ + (##car _%e6278362882%_))) + (_%lp-tl6278562889%_ (let () (declare (not safe)) - (##cdr _%e6273762836%_)))) - (_%loop6273662826%_ - _%lp-tl6273962843%_ - (cons _%lp-hd6273862840%_ - _%out6274062833%_)))) - (let ((_%out6274162846%_ - (reverse _%out6274062833%_))) - (if (gx#stx-pair? _%tl6273262817%_) - (let ((_%e6274262850%_ - (gx#syntax-e _%tl6273262817%_))) - (let ((_%hd6274362854%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6274262850%_))) - (_%tl6274462857%_ + (##car _%e6278862896%_))) + (_%tl6279062903%_ (let () (declare (not safe)) - (##cdr _%e6274262850%_)))) - (if (gx#stx-pair? _%tl6274462857%_) - (let ((_%e6274562860%_ + (##cdr _%e6278862896%_)))) + (if (gx#stx-pair? _%tl6279062903%_) + (let ((_%e6279162906%_ (gx#syntax-e - _%tl6274462857%_))) - (let ((_%hd6274662864%_ + _%tl6279062903%_))) + (let ((_%hd6279262910%_ (let () (declare (not safe)) - (##car _%e6274562860%_))) - (_%tl6274762867%_ + (##car _%e6279162906%_))) + (_%tl6279362913%_ (let () (declare (not safe)) - (##cdr _%e6274562860%_)))) + (##cdr _%e6279162906%_)))) (if (gx#stx-null? - _%tl6274762867%_) - ((lambda (_%L62870%_ - _%L62872%_ - _%L62873%_ - _%L62874%_ - _%L62875%_ - _%L62876%_ - _%L62877%_ - _%L62878%_) + _%tl6279362913%_) + ((lambda (_%L62916%_ + _%L62918%_ + _%L62919%_ + _%L62920%_ + _%L62921%_ + _%L62922%_ + _%L62923%_ + _%L62924%_) (if (gx#stx-list? - _%L62872%_) + _%L62918%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62877%_ (cons _%L62875%_ _%L62874%_)) + (cons (cons _%L62923%_ (cons _%L62921%_ _%L62920%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62875%_ - (cons (cons _%L62878%_ - (cons _%L62872%_ + (cons _%L62921%_ + (cons (cons _%L62924%_ + (cons _%L62918%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62870%_ (cons _%L62876%_ '())))) + (cons _%L62916%_ (cons _%L62922%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons _%L62876%_ - (cons _%L62875%_ - (foldr (lambda (_%g6291562918%_ - _%g6291662921%_) - (cons _%g6291562918%_ - _%g6291662921%_)) + (cons (cons _%L62922%_ + (cons _%L62921%_ + (foldr (lambda (_%g6296162964%_ + _%g6296262967%_) + (cons _%g6296162964%_ + _%g6296262967%_)) '() - _%L62873%_))) - (cons _%L62870%_ '()))) + _%L62919%_))) + (cons _%L62916%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)) + (gx#stx-source _%stx61996%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62877%_ (cons _%L62875%_ _%L62874%_)) + (cons (cons _%L62923%_ (cons _%L62921%_ _%L62920%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62875%_ - (cons (cons _%L62878%_ - (cons _%L62872%_ + (cons _%L62921%_ + (cons (cons _%L62924%_ + (cons _%L62918%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62870%_ (cons _%L62876%_ '())))) + (cons _%L62916%_ (cons _%L62922%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62876%_ - (cons _%L62875%_ - (foldr (lambda (_%g6292362926%_ + (cons _%L62922%_ + (cons _%L62921%_ + (foldr (lambda (_%g6296962972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6292462929%_) - (cons _%g6292362926%_ _%g6292462929%_)) + _%g6297062975%_) + (cons _%g6296962972%_ _%g6297062975%_)) '() - _%L62873%_)))) + _%L62919%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62870%_ '()))) + (cons _%L62916%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6274662864%_ - _%hd6274362854%_ - _%out6274162846%_ - _%hd6272862804%_ - _%hd6272562794%_ - _%hd6272262784%_ - _%hd6271962774%_ - _%hd6271662764%_) - (_%g6270562753%_ - _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_))))))) - (_%loop6273662826%_ _%target6273362820%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6270562753%_ - _%g6270662757%_))))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6270562753%_ - _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_))))) - (_%g6270462932%_ - (list _%Interface62697%_ - _%method-name62699%_ - (if (_%emit-raw-method?61953%_ _%return62703%_) - _%raw-method-name62700%_ - _%unchecked-method-name62701%_) + (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#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62702%_) + _%signature62748%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62702%_) - _%signature62702%_ - _%return62703%_))))) - (_%make-raw-method-def61956%_ - (lambda (_%Interface62459%_ - _%raw-method-name62461%_ - _%unchecked-method-name62462%_ - _%signature62463%_ - _%return62464%_) - (if (_%emit-raw-method?61953%_ _%return62464%_) - (let* ((_%g6246662514%_ - (lambda (_%g6246762510%_) + _%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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6246762510%_))) - (_%g6246562693%_ - (lambda (_%g6246762518%_) - (if (gx#stx-pair? _%g6246762518%_) - (let ((_%e6247662521%_ - (gx#syntax-e _%g6246762518%_))) - (let ((_%hd6247762525%_ + _%g6251362556%_))) + (_%g6251162739%_ + (lambda (_%g6251362564%_) + (if (gx#stx-pair? _%g6251362564%_) + (let ((_%e6252262567%_ + (gx#syntax-e _%g6251362564%_))) + (let ((_%hd6252362571%_ (let () (declare (not safe)) - (##car _%e6247662521%_))) - (_%tl6247862528%_ + (##car _%e6252262567%_))) + (_%tl6252462574%_ (let () (declare (not safe)) - (##cdr _%e6247662521%_)))) - (if (gx#stx-pair? _%tl6247862528%_) - (let ((_%e6247962531%_ + (##cdr _%e6252262567%_)))) + (if (gx#stx-pair? _%tl6252462574%_) + (let ((_%e6252562577%_ (gx#syntax-e - _%tl6247862528%_))) - (let ((_%hd6248062535%_ + _%tl6252462574%_))) + (let ((_%hd6252662581%_ (let () (declare (not safe)) - (##car _%e6247962531%_))) - (_%tl6248162538%_ + (##car _%e6252562577%_))) + (_%tl6252762584%_ (let () (declare (not safe)) - (##cdr _%e6247962531%_)))) + (##cdr _%e6252562577%_)))) (if (gx#stx-pair? - _%tl6248162538%_) - (let ((_%e6248262541%_ + _%tl6252762584%_) + (let ((_%e6252862587%_ (gx#syntax-e - _%tl6248162538%_))) - (let ((_%hd6248362545%_ + _%tl6252762584%_))) + (let ((_%hd6252962591%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6248262541%_))) - (_%tl6248462548%_ - (let () (declare (not safe)) (##cdr _%e6248262541%_)))) - (if (gx#stx-pair? _%tl6248462548%_) - (let ((_%e6248562551%_ (gx#syntax-e _%tl6248462548%_))) - (let ((_%hd6248662555%_ + (##car _%e6252862587%_))) + (_%tl6253062594%_ + (let () (declare (not safe)) (##cdr _%e6252862587%_)))) + (if (gx#stx-pair? _%tl6253062594%_) + (let ((_%e6253162597%_ (gx#syntax-e _%tl6253062594%_))) + (let ((_%hd6253262601%_ (let () (declare (not safe)) - (##car _%e6248562551%_))) - (_%tl6248762558%_ + (##car _%e6253162597%_))) + (_%tl6253362604%_ (let () (declare (not safe)) - (##cdr _%e6248562551%_)))) - (if (gx#stx-pair? _%tl6248762558%_) - (let ((_%e6248862561%_ - (gx#syntax-e _%tl6248762558%_))) - (let ((_%hd6248962565%_ + (##cdr _%e6253162597%_)))) + (if (gx#stx-pair? _%tl6253362604%_) + (let ((_%e6253462607%_ + (gx#syntax-e _%tl6253362604%_))) + (let ((_%hd6253562611%_ (let () (declare (not safe)) - (##car _%e6248862561%_))) - (_%tl6249062568%_ + (##car _%e6253462607%_))) + (_%tl6253662614%_ (let () (declare (not safe)) - (##cdr _%e6248862561%_)))) - (if (gx#stx-pair? _%tl6249062568%_) - (let ((_%e6249162571%_ - (gx#syntax-e _%tl6249062568%_))) - (let ((_%hd6249262575%_ + (##cdr _%e6253462607%_)))) + (if (gx#stx-pair? _%tl6253662614%_) + (let ((_%e6253762617%_ + (gx#syntax-e _%tl6253662614%_))) + (let ((_%hd6253862621%_ (let () (declare (not safe)) - (##car _%e6249162571%_))) - (_%tl6249362578%_ + (##car _%e6253762617%_))) + (_%tl6253962624%_ (let () (declare (not safe)) - (##cdr _%e6249162571%_)))) + (##cdr _%e6253762617%_)))) (if (gx#stx-pair/null? - _%hd6249262575%_) - (let ((_g84119_ + _%hd6253862621%_) + (let ((_g84165_ (gx#syntax-split-splice - _%hd6249262575%_ + _%hd6253862621%_ '0))) (begin - (let ((_g84120_ + (let ((_g84166_ (let () (declare (not safe)) (if (##values? - _g84119_) + _g84165_) (##vector-length - _g84119_) + _g84165_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84120_ 2))) - (error "Context expects 2 values" _g84120_))) + (##fx= _g84166_ 2))) + (error "Context expects 2 values" _g84166_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6249462581%_ + (let ((_%target6254062627%_ (let () (declare (not safe)) (##vector-ref - _g84119_ + _g84165_ 0))) - (_%tl6249662584%_ + (_%tl6254262630%_ (let () (declare (not safe)) (##vector-ref - _g84119_ + _g84165_ 1)))) (if (gx#stx-null? - _%tl6249662584%_) - (letrec ((_%loop6249762587%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6249562591%_ _%out6250162594%_) - (if (gx#stx-pair? _%hd6249562591%_) - (let ((_%e6249862597%_ - (gx#syntax-e _%hd6249562591%_))) - (let ((_%lp-hd6249962601%_ + _%tl6254262630%_) + (letrec ((_%loop6254362633%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6254162637%_ _%out6254762640%_) + (if (gx#stx-pair? _%hd6254162637%_) + (let ((_%e6254462643%_ + (gx#syntax-e _%hd6254162637%_))) + (let ((_%lp-hd6254562647%_ (let () (declare (not safe)) - (##car _%e6249862597%_))) - (_%lp-tl6250062604%_ + (##car _%e6254462643%_))) + (_%lp-tl6254662650%_ (let () (declare (not safe)) - (##cdr _%e6249862597%_)))) - (_%loop6249762587%_ - _%lp-tl6250062604%_ - (cons _%lp-hd6249962601%_ - _%out6250162594%_)))) - (let ((_%out6250262607%_ - (reverse _%out6250162594%_))) - (if (gx#stx-pair? _%tl6249362578%_) - (let ((_%e6250362611%_ - (gx#syntax-e _%tl6249362578%_))) - (let ((_%hd6250462615%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6250362611%_))) - (_%tl6250562618%_ + (##car _%e6254962657%_))) + (_%tl6255162664%_ (let () (declare (not safe)) - (##cdr _%e6250362611%_)))) - (if (gx#stx-pair? _%tl6250562618%_) - (let ((_%e6250662621%_ + (##cdr _%e6254962657%_)))) + (if (gx#stx-pair? _%tl6255162664%_) + (let ((_%e6255262667%_ (gx#syntax-e - _%tl6250562618%_))) - (let ((_%hd6250762625%_ + _%tl6255162664%_))) + (let ((_%hd6255362671%_ (let () (declare (not safe)) - (##car _%e6250662621%_))) - (_%tl6250862628%_ + (##car _%e6255262667%_))) + (_%tl6255462674%_ (let () (declare (not safe)) - (##cdr _%e6250662621%_)))) + (##cdr _%e6255262667%_)))) (if (gx#stx-null? - _%tl6250862628%_) - ((lambda (_%L62631%_ - _%L62633%_ - _%L62634%_ - _%L62635%_ - _%L62636%_ - _%L62637%_ - _%L62638%_ - _%L62639%_) + _%tl6255462674%_) + ((lambda (_%L62677%_ + _%L62679%_ + _%L62680%_ + _%L62681%_ + _%L62682%_ + _%L62683%_ + _%L62684%_ + _%L62685%_) (if (gx#stx-list? - _%L62633%_) + _%L62679%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62638%_ - (cons _%L62636%_ _%L62635%_)) + (cons (cons _%L62684%_ + (cons _%L62682%_ _%L62681%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62636%_ - (cons (cons _%L62639%_ - (cons _%L62633%_ + (cons _%L62682%_ + (cons (cons _%L62685%_ + (cons _%L62679%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62631%_ '()))) + (cons _%L62677%_ '()))) (cons (cons (gx#datum->syntax '#f ':) - (cons (cons _%L62637%_ - (cons _%L62636%_ - (foldr (lambda (_%g6267662679%_ - _%g6267762682%_) - (cons _%g6267662679%_ - _%g6267762682%_)) + (cons (cons _%L62683%_ + (cons _%L62682%_ + (foldr (lambda (_%g6272262725%_ + _%g6272362728%_) + (cons _%g6272262725%_ + _%g6272362728%_)) '() - _%L62634%_))) - (cons _%L62631%_ '()))) + _%L62680%_))) + (cons _%L62677%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)) + (gx#stx-source _%stx61996%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62638%_ - (cons _%L62636%_ _%L62635%_)) + (cons (cons _%L62684%_ + (cons _%L62682%_ _%L62681%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62636%_ - (cons (cons _%L62639%_ - (cons _%L62633%_ + (cons _%L62682%_ + (cons (cons _%L62685%_ + (cons _%L62679%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62631%_ '()))) + (cons _%L62677%_ '()))) (cons (cons (gx#datum->syntax '#f ':) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62637%_ - (cons _%L62636%_ - (foldr (lambda (_%g6268462687%_ + (cons _%L62683%_ + (cons _%L62682%_ + (foldr (lambda (_%g6273062733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6268562690%_) - (cons _%g6268462687%_ _%g6268562690%_)) + _%g6273162736%_) + (cons _%g6273062733%_ _%g6273162736%_)) '() - _%L62634%_)))) + _%L62680%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62631%_ '()))) + (cons _%L62677%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)))) - _%hd6250762625%_ - _%hd6250462615%_ - _%out6250262607%_ - _%hd6248962565%_ - _%hd6248662555%_ - _%hd6248362545%_ - _%hd6248062535%_ - _%hd6247762525%_) - (_%g6246662514%_ _%g6246762518%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6246662514%_ - _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_))))))) - (_%loop6249762587%_ _%target6249462581%_ '())) - (_%g6246662514%_ _%g6246762518%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6246662514%_ - _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6246662514%_ - _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_))))) - (_%g6246562693%_ - (list _%Interface62459%_ - _%raw-method-name62461%_ - _%unchecked-method-name62462%_ + (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#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62463%_) + _%signature62509%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62463%_) - _%signature62463%_ - _%return62464%_))) + _%signature62509%_) + _%signature62509%_ + _%return62510%_))) '(begin)))) - (_%make-unchecked-method-def61957%_ - (lambda (_%Interface62247%_ - _%unchecked-method-name62249%_ - _%signature62250%_ - _%return62251%_ - _%body62252%_) - (let* ((_%g6225462298%_ - (lambda (_%g6225562294%_) + (_%make-unchecked-method-def62003%_ + (lambda (_%Interface62293%_ + _%unchecked-method-name62295%_ + _%signature62296%_ + _%return62297%_ + _%body62298%_) + (let* ((_%g6230062344%_ + (lambda (_%g6230162340%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6225562294%_))) - (_%g6225362455%_ - (lambda (_%g6225562302%_) - (if (gx#stx-pair? _%g6225562302%_) - (let ((_%e6226362305%_ - (gx#syntax-e _%g6225562302%_))) - (let ((_%hd6226462309%_ + _%g6230162340%_))) + (_%g6229962501%_ + (lambda (_%g6230162348%_) + (if (gx#stx-pair? _%g6230162348%_) + (let ((_%e6230962351%_ + (gx#syntax-e _%g6230162348%_))) + (let ((_%hd6231062355%_ (let () (declare (not safe)) - (##car _%e6226362305%_))) - (_%tl6226562312%_ + (##car _%e6230962351%_))) + (_%tl6231162358%_ (let () (declare (not safe)) - (##cdr _%e6226362305%_)))) - (if (gx#stx-pair? _%tl6226562312%_) - (let ((_%e6226662315%_ + (##cdr _%e6230962351%_)))) + (if (gx#stx-pair? _%tl6231162358%_) + (let ((_%e6231262361%_ (gx#syntax-e - _%tl6226562312%_))) - (let ((_%hd6226762319%_ + _%tl6231162358%_))) + (let ((_%hd6231362365%_ (let () (declare (not safe)) - (##car _%e6226662315%_))) - (_%tl6226862322%_ + (##car _%e6231262361%_))) + (_%tl6231462368%_ (let () (declare (not safe)) - (##cdr _%e6226662315%_)))) + (##cdr _%e6231262361%_)))) (if (gx#stx-pair? - _%tl6226862322%_) - (let ((_%e6226962325%_ + _%tl6231462368%_) + (let ((_%e6231562371%_ (gx#syntax-e - _%tl6226862322%_))) - (let ((_%hd6227062329%_ + _%tl6231462368%_))) + (let ((_%hd6231662375%_ (let () (declare (not safe)) - (##car _%e6226962325%_))) - (_%tl6227162332%_ + (##car _%e6231562371%_))) + (_%tl6231762378%_ (let () (declare (not safe)) - (##cdr _%e6226962325%_)))) + (##cdr _%e6231562371%_)))) (if (gx#stx-pair? - _%tl6227162332%_) - (let ((_%e6227262335%_ + _%tl6231762378%_) + (let ((_%e6231862381%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6227162332%_))) - (let ((_%hd6227362339%_ + (gx#syntax-e _%tl6231762378%_))) + (let ((_%hd6231962385%_ (let () (declare (not safe)) - (##car _%e6227262335%_))) - (_%tl6227462342%_ + (##car _%e6231862381%_))) + (_%tl6232062388%_ (let () (declare (not safe)) - (##cdr _%e6227262335%_)))) - (if (gx#stx-pair? _%tl6227462342%_) - (let ((_%e6227562345%_ - (gx#syntax-e _%tl6227462342%_))) - (let ((_%hd6227662349%_ + (##cdr _%e6231862381%_)))) + (if (gx#stx-pair? _%tl6232062388%_) + (let ((_%e6232162391%_ + (gx#syntax-e _%tl6232062388%_))) + (let ((_%hd6232262395%_ (let () (declare (not safe)) - (##car _%e6227562345%_))) - (_%tl6227762352%_ + (##car _%e6232162391%_))) + (_%tl6232362398%_ (let () (declare (not safe)) - (##cdr _%e6227562345%_)))) - (if (gx#stx-pair? _%tl6227762352%_) - (let ((_%e6227862355%_ - (gx#syntax-e _%tl6227762352%_))) - (let ((_%hd6227962359%_ + (##cdr _%e6232162391%_)))) + (if (gx#stx-pair? _%tl6232362398%_) + (let ((_%e6232462401%_ + (gx#syntax-e _%tl6232362398%_))) + (let ((_%hd6232562405%_ (let () (declare (not safe)) - (##car _%e6227862355%_))) - (_%tl6228062362%_ + (##car _%e6232462401%_))) + (_%tl6232662408%_ (let () (declare (not safe)) - (##cdr _%e6227862355%_)))) - (if (gx#stx-pair? _%tl6228062362%_) - (let ((_%e6228162365%_ + (##cdr _%e6232462401%_)))) + (if (gx#stx-pair? _%tl6232662408%_) + (let ((_%e6232762411%_ (gx#syntax-e - _%tl6228062362%_))) - (let ((_%hd6228262369%_ + _%tl6232662408%_))) + (let ((_%hd6232862415%_ (let () (declare (not safe)) - (##car _%e6228162365%_))) - (_%tl6228362372%_ + (##car _%e6232762411%_))) + (_%tl6232962418%_ (let () (declare (not safe)) - (##cdr _%e6228162365%_)))) + (##cdr _%e6232762411%_)))) (if (gx#stx-pair/null? - _%hd6228262369%_) - (let ((_g84121_ + _%hd6232862415%_) + (let ((_g84167_ (gx#syntax-split-splice - _%hd6228262369%_ + _%hd6232862415%_ '0))) (begin - (let ((_g84122_ + (let ((_g84168_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84121_) - (##vector-length _g84121_) + (if (##values? _g84167_) + (##vector-length _g84167_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84122_ 2))) - (error "Context expects 2 values" _g84122_))) - (let ((_%target6228462375%_ - (let () (declare (not safe)) (##vector-ref _g84121_ 0))) - (_%tl6228662378%_ - (let () (declare (not safe)) (##vector-ref _g84121_ 1)))) - (if (gx#stx-null? _%tl6228662378%_) - (letrec ((_%loop6228762381%_ - (lambda (_%hd6228562385%_ _%body6229162388%_) - (if (gx#stx-pair? _%hd6228562385%_) - (let ((_%e6228862391%_ - (gx#syntax-e _%hd6228562385%_))) - (let ((_%lp-hd6228962395%_ + (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%_ (let () (declare (not safe)) - (##car _%e6228862391%_))) - (_%lp-tl6229062398%_ + (##car _%e6233462437%_))) + (_%lp-tl6233662444%_ (let () (declare (not safe)) - (##cdr _%e6228862391%_)))) - (_%loop6228762381%_ - _%lp-tl6229062398%_ - (cons _%lp-hd6228962395%_ - _%body6229162388%_)))) - (let ((_%body6229262401%_ - (reverse _%body6229162388%_))) - (if (gx#stx-null? _%tl6228362372%_) - ((lambda (_%L62405%_ - _%L62407%_ - _%L62408%_ - _%L62409%_ - _%L62410%_ - _%L62411%_ - _%L62412%_) + (##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%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62411%_ - (cons _%L62410%_ + (cons (cons _%L62457%_ + (cons _%L62456%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L62409%_)) + _%L62455%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62410%_ - (cons (cons _%L62412%_ - (cons _%L62408%_ - (cons _%L62407%_ '()))) + (cons _%L62456%_ + (cons (cons _%L62458%_ + (cons _%L62454%_ + (cons _%L62453%_ '()))) (cons (cons (gx#datum->syntax '#f ':-) @@ -9544,1020 +9564,1020 @@ '#f 'let) (cons '() - (foldr (lambda (_%g6244662449%_ - _%g6244762452%_) - (cons _%g6244662449%_ - _%g6244762452%_)) + (foldr (lambda (_%g6249262495%_ + _%g6249362498%_) + (cons _%g6249262495%_ + _%g6249362498%_)) '() - _%L62405%_))) - (cons _%L62407%_ '()))) + _%L62451%_))) + (cons _%L62453%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx61950%_))) - _%body6229262401%_ - _%hd6227962359%_ - _%hd6227662349%_ - _%hd6227362339%_ - _%hd6227062329%_ - _%hd6226762319%_ - _%hd6226462309%_) - (_%g6225462298%_ - _%g6225562302%_))))))) - (_%loop6228762381%_ _%target6228462375%_ '())) - (_%g6225462298%_ _%g6225562302%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6225462298%_ - _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6225462298%_ - _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_))))) - (_%g6225362455%_ - (list _%Interface62247%_ - _%unchecked-method-name62249%_ + (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#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62250%_) - _%signature62250%_ - _%return62251%_ - _%body62252%_)))))) - (let* ((_%g6195961998%_ - (lambda (_%g6196061994%_) + _%signature62296%_) + _%signature62296%_ + _%return62297%_ + _%body62298%_)))))) + (let* ((_%g6200562044%_ + (lambda (_%g6200662040%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6196061994%_))) - (_%g6195862243%_ - (lambda (_%g6196062002%_) - (if (gx#stx-pair? _%g6196062002%_) - (let ((_%e6196662005%_ (gx#syntax-e _%g6196062002%_))) - (let ((_%hd6196762009%_ + _%g6200662040%_))) + (_%g6200462289%_ + (lambda (_%g6200662048%_) + (if (gx#stx-pair? _%g6200662048%_) + (let ((_%e6201262051%_ (gx#syntax-e _%g6200662048%_))) + (let ((_%hd6201362055%_ (let () (declare (not safe)) - (##car _%e6196662005%_))) - (_%tl6196862012%_ + (##car _%e6201262051%_))) + (_%tl6201462058%_ (let () (declare (not safe)) - (##cdr _%e6196662005%_)))) - (if (gx#stx-pair? _%tl6196862012%_) - (let ((_%e6196962015%_ - (gx#syntax-e _%tl6196862012%_))) - (let ((_%hd6197062019%_ + (##cdr _%e6201262051%_)))) + (if (gx#stx-pair? _%tl6201462058%_) + (let ((_%e6201562061%_ + (gx#syntax-e _%tl6201462058%_))) + (let ((_%hd6201662065%_ (let () (declare (not safe)) - (##car _%e6196962015%_))) - (_%tl6197162022%_ + (##car _%e6201562061%_))) + (_%tl6201762068%_ (let () (declare (not safe)) - (##cdr _%e6196962015%_)))) - (if (gx#stx-pair? _%tl6197162022%_) - (let ((_%e6197262025%_ - (gx#syntax-e _%tl6197162022%_))) - (let ((_%hd6197362029%_ + (##cdr _%e6201562061%_)))) + (if (gx#stx-pair? _%tl6201762068%_) + (let ((_%e6201862071%_ + (gx#syntax-e _%tl6201762068%_))) + (let ((_%hd6201962075%_ (let () (declare (not safe)) - (##car _%e6197262025%_))) - (_%tl6197462032%_ + (##car _%e6201862071%_))) + (_%tl6202062078%_ (let () (declare (not safe)) - (##cdr _%e6197262025%_)))) - (if (gx#stx-pair? _%hd6197362029%_) - (let ((_%e6197562035%_ + (##cdr _%e6201862071%_)))) + (if (gx#stx-pair? _%hd6201962075%_) + (let ((_%e6202162081%_ (gx#syntax-e - _%hd6197362029%_))) - (let ((_%hd6197662039%_ + _%hd6201962075%_))) + (let ((_%hd6202262085%_ (let () (declare (not safe)) - (##car _%e6197562035%_))) - (_%tl6197762042%_ + (##car _%e6202162081%_))) + (_%tl6202362088%_ (let () (declare (not safe)) - (##cdr _%e6197562035%_)))) + (##cdr _%e6202162081%_)))) (if (gx#stx-pair? - _%tl6197762042%_) - (let ((_%e6197862045%_ + _%tl6202362088%_) + (let ((_%e6202462091%_ (gx#syntax-e - _%tl6197762042%_))) - (let ((_%hd6197962049%_ + _%tl6202362088%_))) + (let ((_%hd6202562095%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e6197862045%_))) - (_%tl6198062052%_ + (let () (declare (not safe)) (##car _%e6202462091%_))) + (_%tl6202662098%_ (let () (declare (not safe)) - (##cdr _%e6197862045%_)))) - (if (gx#stx-pair? _%tl6198062052%_) - (let ((_%e6198162055%_ (gx#syntax-e _%tl6198062052%_))) - (let ((_%hd6198262059%_ + (##cdr _%e6202462091%_)))) + (if (gx#stx-pair? _%tl6202662098%_) + (let ((_%e6202762101%_ (gx#syntax-e _%tl6202662098%_))) + (let ((_%hd6202862105%_ (let () (declare (not safe)) - (##car _%e6198162055%_))) - (_%tl6198362062%_ + (##car _%e6202762101%_))) + (_%tl6202962108%_ (let () (declare (not safe)) - (##cdr _%e6198162055%_)))) - (if (gx#stx-null? _%tl6198362062%_) - (if (gx#stx-pair/null? _%tl6197462032%_) - (let ((_g84123_ + (##cdr _%e6202762101%_)))) + (if (gx#stx-null? _%tl6202962108%_) + (if (gx#stx-pair/null? _%tl6202062078%_) + (let ((_g84169_ (gx#syntax-split-splice - _%tl6197462032%_ + _%tl6202062078%_ '0))) (begin - (let ((_g84124_ + (let ((_g84170_ (let () (declare (not safe)) - (if (##values? _g84123_) - (##vector-length _g84123_) + (if (##values? _g84169_) + (##vector-length _g84169_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84124_ 2))) + (##fx= _g84170_ 2))) (error "Context expects 2 values" - _g84124_))) - (let ((_%target6198462065%_ + _g84170_))) + (let ((_%target6203062111%_ (let () (declare (not safe)) - (##vector-ref _g84123_ 0))) - (_%tl6198662068%_ + (##vector-ref _g84169_ 0))) + (_%tl6203262114%_ (let () (declare (not safe)) - (##vector-ref _g84123_ 1)))) - (if (gx#stx-null? _%tl6198662068%_) - (letrec ((_%loop6198762071%_ - (lambda (_%hd6198562075%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6199162078%_) - (if (gx#stx-pair? _%hd6198562075%_) - (let ((_%e6198862081%_ (gx#syntax-e _%hd6198562075%_))) - (let ((_%lp-hd6198962085%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6198862081%_))) - (_%lp-tl6199062088%_ + (##car _%e6203462127%_))) + (_%lp-tl6203662134%_ (let () (declare (not safe)) - (##cdr _%e6198862081%_)))) - (_%loop6198762071%_ - _%lp-tl6199062088%_ - (cons _%lp-hd6198962085%_ _%body6199162078%_)))) - (let ((_%body6199262091%_ (reverse _%body6199162078%_))) - ((lambda (_%L62095%_ - _%L62097%_ - _%L62098%_ - _%L62099%_ - _%L62100%_) + (##cdr _%e6203462127%_)))) + (_%loop6203362117%_ + _%lp-tl6203662134%_ + (cons _%lp-hd6203562131%_ _%body6203762124%_)))) + (let ((_%body6203862137%_ (reverse _%body6203762124%_))) + ((lambda (_%L62141%_ + _%L62143%_ + _%L62144%_ + _%L62145%_ + _%L62146%_) (if (and (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L62100%_)) - (gx#identifier? _%L62099%_)) - (let* ((_%info62130%_ - (gx#syntax-local-value _%L62100%_)) - (_%interface-name62133%_ - (let ((__obj83889 _%info62130%_)) + _%L62146%_)) + (gx#identifier? _%L62145%_)) + (let* ((_%info62176%_ + (gx#syntax-local-value _%L62146%_)) + (_%interface-name62179%_ + (let ((__obj83935 _%info62176%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83889 + __obj83935 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83889 + __obj83935 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83889 + __obj83935 'name)))) - (_%method-name62136%_ + (_%method-name62182%_ (gx#stx-identifier - _%L62100%_ - _%interface-name62133%_ + _%L62146%_ + _%interface-name62179%_ '"-" - _%L62099%_)) - (_%raw-method-name62139%_ + _%L62145%_)) + (_%raw-method-name62185%_ (gx#stx-identifier - _%L62100%_ + _%L62146%_ '"__" - _%method-name62136%_)) - (_%unchecked-method-name62142%_ + _%method-name62182%_)) + (_%unchecked-method-name62188%_ (gx#stx-identifier - _%L62100%_ + _%L62146%_ '"&" - _%method-name62136%_))) + _%method-name62182%_))) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx61950%_ - _%L62098%_ - _%L62097%_) - (let* ((_%g6214762166%_ - (lambda (_%g6214862162%_) + _%stx61996%_ + _%L62144%_ + _%L62143%_) + (let* ((_%g6219362212%_ + (lambda (_%g6219462208%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6214862162%_))) - (_%g6214662231%_ - (lambda (_%g6214862170%_) - (if (gx#stx-pair? _%g6214862170%_) - (let ((_%e6215262173%_ + _%g6219462208%_))) + (_%g6219262277%_ + (lambda (_%g6219462216%_) + (if (gx#stx-pair? _%g6219462216%_) + (let ((_%e6219862219%_ (gx#syntax-e - _%g6214862170%_))) - (let ((_%hd6215362177%_ + _%g6219462216%_))) + (let ((_%hd6219962223%_ (let () (declare (not safe)) - (##car _%e6215262173%_))) - (_%tl6215462180%_ + (##car _%e6219862219%_))) + (_%tl6220062226%_ (let () (declare (not safe)) - (##cdr _%e6215262173%_)))) + (##cdr _%e6219862219%_)))) (if (gx#stx-pair? - _%tl6215462180%_) - (let ((_%e6215562183%_ + _%tl6220062226%_) + (let ((_%e6220162229%_ (gx#syntax-e - _%tl6215462180%_))) - (let ((_%hd6215662187%_ + _%tl6220062226%_))) + (let ((_%hd6220262233%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6215562183%_))) - (_%tl6215762190%_ - (let () (declare (not safe)) (##cdr _%e6215562183%_)))) - (if (gx#stx-pair? _%tl6215762190%_) - (let ((_%e6215862193%_ (gx#syntax-e _%tl6215762190%_))) - (let ((_%hd6215962197%_ + (##car _%e6220162229%_))) + (_%tl6220362236%_ + (let () (declare (not safe)) (##cdr _%e6220162229%_)))) + (if (gx#stx-pair? _%tl6220362236%_) + (let ((_%e6220462239%_ (gx#syntax-e _%tl6220362236%_))) + (let ((_%hd6220562243%_ (let () (declare (not safe)) - (##car _%e6215862193%_))) - (_%tl6216062200%_ + (##car _%e6220462239%_))) + (_%tl6220662246%_ (let () (declare (not safe)) - (##cdr _%e6215862193%_)))) - (if (gx#stx-null? _%tl6216062200%_) - ((lambda (_%L62203%_ _%L62205%_ _%L62206%_) + (##cdr _%e6220462239%_)))) + (if (gx#stx-null? _%tl6220662246%_) + ((lambda (_%L62249%_ _%L62251%_ _%L62252%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L62206%_ - (cons _%L62205%_ - (cons _%L62203%_ '()))))) - _%hd6215962197%_ - _%hd6215662187%_ - _%hd6215362177%_) - (_%g6214762166%_ _%g6214862170%_)))) - (_%g6214762166%_ _%g6214862170%_)))) - (_%g6214762166%_ _%g6214862170%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6214762166%_ - _%g6214862170%_))))) - (_%g6214662231%_ - (list (_%make-checked-method-def61955%_ - _%L62100%_ - _%method-name62136%_ - _%raw-method-name62139%_ - _%unchecked-method-name62142%_ - _%L62098%_ - _%L62097%_) - (_%make-raw-method-def61956%_ - _%L62100%_ - _%raw-method-name62139%_ - _%unchecked-method-name62142%_ - _%L62098%_ - _%L62097%_) - (_%make-unchecked-method-def61957%_ - _%L62100%_ - _%unchecked-method-name62142%_ - _%L62098%_ - _%L62097%_ - (foldr (lambda (_%g6223462237%_ - _%g6223562240%_) - (cons _%g6223462237%_ - _%g6223562240%_)) + (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%_)) '() - _%L62095%_)))))) - (_%g6195961998%_ _%g6196062002%_))) - _%body6199262091%_ - _%hd6198262059%_ - _%hd6197962049%_ - _%hd6197662039%_ - _%hd6197062019%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6198762071%_ - _%target6198462065%_ + _%L62141%_)))))) + (_%g6200562044%_ _%g6200662048%_))) + _%body6203862137%_ + _%hd6202862105%_ + _%hd6202562095%_ + _%hd6202262085%_ + _%hd6201662065%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6203362117%_ + _%target6203062111%_ '())) - (_%g6195961998%_ - _%g6196062002%_))))) - (_%g6195961998%_ _%g6196062002%_)) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6195961998%_ - _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_))))) - (_%g6195862243%_ _%stx61950%_))))) + (_%g6200562044%_ + _%g6200662048%_))))) + (_%g6200562044%_ _%g6200662048%_)) + (_%g6200562044%_ _%g6200662048%_)))) + (_%g6200562044%_ _%g6200662048%_)))) + (_%g6200562044%_ _%g6200662048%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6200562044%_ + _%g6200662048%_)))) + (_%g6200562044%_ _%g6200662048%_)))) + (_%g6200562044%_ _%g6200662048%_)))) + (_%g6200562044%_ _%g6200662048%_))))) + (_%g6200462289%_ _%stx61996%_))))) (define |gerbil/core/contract~Interface[:0:]#with-interface-method| - (lambda (_%stx62946%_) - (let* ((_%g6294962992%_ - (lambda (_%g6295062988%_) + (lambda (_%stx62992%_) + (let* ((_%g6299563038%_ + (lambda (_%g6299663034%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6295062988%_))) - (_%g6294863213%_ - (lambda (_%g6295062996%_) - (if (gx#stx-pair? _%g6295062996%_) - (let ((_%e6295762999%_ (gx#syntax-e _%g6295062996%_))) - (let ((_%hd6295863003%_ + _%g6299663034%_))) + (_%g6299463259%_ + (lambda (_%g6299663042%_) + (if (gx#stx-pair? _%g6299663042%_) + (let ((_%e6300363045%_ (gx#syntax-e _%g6299663042%_))) + (let ((_%hd6300463049%_ (let () (declare (not safe)) - (##car _%e6295762999%_))) - (_%tl6295963006%_ + (##car _%e6300363045%_))) + (_%tl6300563052%_ (let () (declare (not safe)) - (##cdr _%e6295762999%_)))) - (if (gx#stx-pair? _%tl6295963006%_) - (let ((_%e6296063009%_ - (gx#syntax-e _%tl6295963006%_))) - (let ((_%hd6296163013%_ + (##cdr _%e6300363045%_)))) + (if (gx#stx-pair? _%tl6300563052%_) + (let ((_%e6300663055%_ + (gx#syntax-e _%tl6300563052%_))) + (let ((_%hd6300763059%_ (let () (declare (not safe)) - (##car _%e6296063009%_))) - (_%tl6296263016%_ + (##car _%e6300663055%_))) + (_%tl6300863062%_ (let () (declare (not safe)) - (##cdr _%e6296063009%_)))) - (if (gx#stx-pair? _%tl6296263016%_) - (let ((_%e6296363019%_ - (gx#syntax-e _%tl6296263016%_))) - (let ((_%hd6296463023%_ + (##cdr _%e6300663055%_)))) + (if (gx#stx-pair? _%tl6300863062%_) + (let ((_%e6300963065%_ + (gx#syntax-e _%tl6300863062%_))) + (let ((_%hd6301063069%_ (let () (declare (not safe)) - (##car _%e6296363019%_))) - (_%tl6296563026%_ + (##car _%e6300963065%_))) + (_%tl6301163072%_ (let () (declare (not safe)) - (##cdr _%e6296363019%_)))) - (if (gx#stx-pair? _%hd6296463023%_) - (let ((_%e6296663029%_ + (##cdr _%e6300963065%_)))) + (if (gx#stx-pair? _%hd6301063069%_) + (let ((_%e6301263075%_ (gx#syntax-e - _%hd6296463023%_))) - (let ((_%hd6296763033%_ + _%hd6301063069%_))) + (let ((_%hd6301363079%_ (let () (declare (not safe)) - (##car _%e6296663029%_))) - (_%tl6296863036%_ + (##car _%e6301263075%_))) + (_%tl6301463082%_ (let () (declare (not safe)) - (##cdr _%e6296663029%_)))) + (##cdr _%e6301263075%_)))) (if (gx#stx-pair? - _%tl6296863036%_) - (let ((_%e6296963039%_ + _%tl6301463082%_) + (let ((_%e6301563085%_ (gx#syntax-e - _%tl6296863036%_))) - (let ((_%hd6297063043%_ + _%tl6301463082%_))) + (let ((_%hd6301663089%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6296963039%_))) - (_%tl6297163046%_ - (let () (declare (not safe)) (##cdr _%e6296963039%_)))) - (if (gx#stx-pair? _%tl6297163046%_) - (let ((_%e6297263049%_ (gx#syntax-e _%tl6297163046%_))) - (let ((_%hd6297363053%_ + (##car _%e6301563085%_))) + (_%tl6301763092%_ + (let () (declare (not safe)) (##cdr _%e6301563085%_)))) + (if (gx#stx-pair? _%tl6301763092%_) + (let ((_%e6301863095%_ (gx#syntax-e _%tl6301763092%_))) + (let ((_%hd6301963099%_ (let () (declare (not safe)) - (##car _%e6297263049%_))) - (_%tl6297463056%_ + (##car _%e6301863095%_))) + (_%tl6302063102%_ (let () (declare (not safe)) - (##cdr _%e6297263049%_)))) - (if (gx#stx-pair? _%tl6297463056%_) - (let ((_%e6297563059%_ - (gx#syntax-e _%tl6297463056%_))) - (let ((_%hd6297663063%_ + (##cdr _%e6301863095%_)))) + (if (gx#stx-pair? _%tl6302063102%_) + (let ((_%e6302163105%_ + (gx#syntax-e _%tl6302063102%_))) + (let ((_%hd6302263109%_ (let () (declare (not safe)) - (##car _%e6297563059%_))) - (_%tl6297763066%_ + (##car _%e6302163105%_))) + (_%tl6302363112%_ (let () (declare (not safe)) - (##cdr _%e6297563059%_)))) - (if (gx#stx-null? _%tl6297763066%_) - (if (gx#stx-pair/null? _%tl6296563026%_) - (let ((_g84125_ + (##cdr _%e6302163105%_)))) + (if (gx#stx-null? _%tl6302363112%_) + (if (gx#stx-pair/null? _%tl6301163072%_) + (let ((_g84171_ (gx#syntax-split-splice - _%tl6296563026%_ + _%tl6301163072%_ '0))) (begin - (let ((_g84126_ + (let ((_g84172_ (let () (declare (not safe)) - (if (##values? _g84125_) + (if (##values? _g84171_) (##vector-length - _g84125_) + _g84171_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84126_ 2))) + (##fx= _g84172_ 2))) (error "Context expects 2 values" - _g84126_))) - (let ((_%target6297863069%_ + _g84172_))) + (let ((_%target6302463115%_ (let () (declare (not safe)) (##vector-ref - _g84125_ + _g84171_ 0))) - (_%tl6298063072%_ + (_%tl6302663118%_ (let () (declare (not safe)) (##vector-ref - _g84125_ + _g84171_ 1)))) (if (gx#stx-null? - _%tl6298063072%_) - (letrec ((_%loop6298163075%_ - (lambda (_%hd6297963079%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6298563082%_) - (if (gx#stx-pair? _%hd6297963079%_) - (let ((_%e6298263085%_ - (gx#syntax-e _%hd6297963079%_))) - (let ((_%lp-hd6298363089%_ + _%tl6302663118%_) + (letrec ((_%loop6302763121%_ + (lambda (_%hd6302563125%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6303163128%_) + (if (gx#stx-pair? _%hd6302563125%_) + (let ((_%e6302863131%_ + (gx#syntax-e _%hd6302563125%_))) + (let ((_%lp-hd6302963135%_ (let () (declare (not safe)) - (##car _%e6298263085%_))) - (_%lp-tl6298463092%_ + (##car _%e6302863131%_))) + (_%lp-tl6303063138%_ (let () (declare (not safe)) - (##cdr _%e6298263085%_)))) - (_%loop6298163075%_ - _%lp-tl6298463092%_ - (cons _%lp-hd6298363089%_ - _%body6298563082%_)))) - (let ((_%body6298663095%_ - (reverse _%body6298563082%_))) - ((lambda (_%L63099%_ - _%L63101%_ - _%L63102%_ - _%L63103%_ - _%L63104%_ - _%L63105%_) - (let* ((_%checked?63137%_ - (if (gx#stx-e _%L63101%_) '#t '#f)) - (_%g6314063155%_ - (lambda (_%g6314163151%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6314163151%_))) - (_%g6313963209%_ - (lambda (_%g6314163159%_) - (if (gx#stx-pair? _%g6314163159%_) - (let ((_%e6314463162%_ + _%g6318763197%_))) + (_%g6318563255%_ + (lambda (_%g6318763205%_) + (if (gx#stx-pair? _%g6318763205%_) + (let ((_%e6319063208%_ (gx#syntax-e - _%g6314163159%_))) - (let ((_%hd6314563166%_ + _%g6318763205%_))) + (let ((_%hd6319163212%_ (let () (declare (not safe)) - (##car _%e6314463162%_))) - (_%tl6314663169%_ + (##car _%e6319063208%_))) + (_%tl6319263215%_ (let () (declare (not safe)) - (##cdr _%e6314463162%_)))) + (##cdr _%e6319063208%_)))) (if (gx#stx-pair? - _%tl6314663169%_) - (let ((_%e6314763172%_ + _%tl6319263215%_) + (let ((_%e6319363218%_ (gx#syntax-e - _%tl6314663169%_))) - (let ((_%hd6314863176%_ + _%tl6319263215%_))) + (let ((_%hd6319463222%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6314763172%_))) - (_%tl6314963179%_ - (let () (declare (not safe)) (##cdr _%e6314763172%_)))) - (if (gx#stx-null? _%tl6314963179%_) - ((lambda (_%L63182%_ _%L63184%_) + (##car _%e6319363218%_))) + (_%tl6319563225%_ + (let () (declare (not safe)) (##cdr _%e6319363218%_)))) + (if (gx#stx-null? _%tl6319563225%_) + ((lambda (_%L63228%_ _%L63230%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L63184%_) + _%L63230%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L63182%_ - (foldr (lambda (_%g6320063203%_ + (cons _%L63228%_ + (foldr (lambda (_%g6324663249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6320163206%_) - (cons _%g6320063203%_ _%g6320163206%_)) + _%g6324763252%_) + (cons _%g6324663249%_ _%g6324763252%_)) '() - _%L63099%_))) + _%L63145%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd6314863176%_ - _%hd6314563166%_) - (_%g6314063155%_ _%g6314163159%_)))) - (_%g6314063155%_ _%g6314163159%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6314063155%_ - _%g6314163159%_))))) - (_%g6313963209%_ + _%hd6319463222%_ + _%hd6319163212%_) + (_%g6318663201%_ _%g6318763205%_)))) + (_%g6318663201%_ _%g6318763205%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6318663201%_ + _%g6318763205%_))))) + (_%g6318563255%_ (list (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - _%stx62946%_ - _%L63105%_ - _%L63104%_ - _%L63103%_ - _%L63102%_ - _%L63101%_) + _%stx62992%_ + _%L63151%_ + _%L63150%_ + _%L63149%_ + _%L63148%_ + _%L63147%_) (|gerbil/core/contract~Interface[1]#make-interface-method-contract| - _%stx62946%_ - _%L63105%_ - _%L63104%_ - _%L63103%_ - _%checked?63137%_))))) - _%body6298663095%_ - _%hd6297663063%_ - _%hd6297363053%_ - _%hd6297063043%_ - _%hd6296763033%_ - _%hd6296163013%_)))))) - (_%loop6298163075%_ _%target6297863069%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6294962992%_ - _%g6295062996%_))))) - (_%g6294962992%_ _%g6295062996%_)) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6294962992%_ - _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_))))) - (_%g6294863213%_ _%stx62946%_)))) + _%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%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-checked-method| - (lambda (_%$stx63218%_) - (let* ((_%g6322263265%_ - (lambda (_%g6322363261%_) + (lambda (_%$stx63264%_) + (let* ((_%g6326863311%_ + (lambda (_%g6326963307%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6322363261%_))) - (_%g6322163418%_ - (lambda (_%g6322363269%_) - (if (gx#stx-pair? _%g6322363269%_) - (let ((_%e6323063272%_ (gx#syntax-e _%g6322363269%_))) - (let ((_%hd6323163276%_ + _%g6326963307%_))) + (_%g6326763464%_ + (lambda (_%g6326963315%_) + (if (gx#stx-pair? _%g6326963315%_) + (let ((_%e6327663318%_ (gx#syntax-e _%g6326963315%_))) + (let ((_%hd6327763322%_ (let () (declare (not safe)) - (##car _%e6323063272%_))) - (_%tl6323263279%_ + (##car _%e6327663318%_))) + (_%tl6327863325%_ (let () (declare (not safe)) - (##cdr _%e6323063272%_)))) - (if (gx#stx-pair? _%tl6323263279%_) - (let ((_%e6323363282%_ - (gx#syntax-e _%tl6323263279%_))) - (let ((_%hd6323463286%_ + (##cdr _%e6327663318%_)))) + (if (gx#stx-pair? _%tl6327863325%_) + (let ((_%e6327963328%_ + (gx#syntax-e _%tl6327863325%_))) + (let ((_%hd6328063332%_ (let () (declare (not safe)) - (##car _%e6323363282%_))) - (_%tl6323563289%_ + (##car _%e6327963328%_))) + (_%tl6328163335%_ (let () (declare (not safe)) - (##cdr _%e6323363282%_)))) - (if (gx#stx-pair? _%tl6323563289%_) - (let ((_%e6323663292%_ - (gx#syntax-e _%tl6323563289%_))) - (let ((_%hd6323763296%_ + (##cdr _%e6327963328%_)))) + (if (gx#stx-pair? _%tl6328163335%_) + (let ((_%e6328263338%_ + (gx#syntax-e _%tl6328163335%_))) + (let ((_%hd6328363342%_ (let () (declare (not safe)) - (##car _%e6323663292%_))) - (_%tl6323863299%_ + (##car _%e6328263338%_))) + (_%tl6328463345%_ (let () (declare (not safe)) - (##cdr _%e6323663292%_)))) - (if (gx#stx-pair? _%hd6323763296%_) - (let ((_%e6323963302%_ + (##cdr _%e6328263338%_)))) + (if (gx#stx-pair? _%hd6328363342%_) + (let ((_%e6328563348%_ (gx#syntax-e - _%hd6323763296%_))) - (let ((_%hd6324063306%_ + _%hd6328363342%_))) + (let ((_%hd6328663352%_ (let () (declare (not safe)) - (##car _%e6323963302%_))) - (_%tl6324163309%_ + (##car _%e6328563348%_))) + (_%tl6328763355%_ (let () (declare (not safe)) - (##cdr _%e6323963302%_)))) + (##cdr _%e6328563348%_)))) (if (gx#stx-pair? - _%tl6324163309%_) - (let ((_%e6324263312%_ + _%tl6328763355%_) + (let ((_%e6328863358%_ (gx#syntax-e - _%tl6324163309%_))) - (let ((_%hd6324363316%_ + _%tl6328763355%_))) + (let ((_%hd6328963362%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6324263312%_))) - (_%tl6324463319%_ - (let () (declare (not safe)) (##cdr _%e6324263312%_)))) - (if (gx#stx-pair? _%tl6324463319%_) - (let ((_%e6324563322%_ (gx#syntax-e _%tl6324463319%_))) - (let ((_%hd6324663326%_ + (##car _%e6328863358%_))) + (_%tl6329063365%_ + (let () (declare (not safe)) (##cdr _%e6328863358%_)))) + (if (gx#stx-pair? _%tl6329063365%_) + (let ((_%e6329163368%_ (gx#syntax-e _%tl6329063365%_))) + (let ((_%hd6329263372%_ (let () (declare (not safe)) - (##car _%e6324563322%_))) - (_%tl6324763329%_ + (##car _%e6329163368%_))) + (_%tl6329363375%_ (let () (declare (not safe)) - (##cdr _%e6324563322%_)))) - (if (gx#stx-pair? _%tl6324763329%_) - (let ((_%e6324863332%_ - (gx#syntax-e _%tl6324763329%_))) - (let ((_%hd6324963336%_ + (##cdr _%e6329163368%_)))) + (if (gx#stx-pair? _%tl6329363375%_) + (let ((_%e6329463378%_ + (gx#syntax-e _%tl6329363375%_))) + (let ((_%hd6329563382%_ (let () (declare (not safe)) - (##car _%e6324863332%_))) - (_%tl6325063339%_ + (##car _%e6329463378%_))) + (_%tl6329663385%_ (let () (declare (not safe)) - (##cdr _%e6324863332%_)))) - (if (gx#stx-null? _%tl6325063339%_) - (if (gx#stx-pair/null? _%tl6323863299%_) - (let ((_g84127_ + (##cdr _%e6329463378%_)))) + (if (gx#stx-null? _%tl6329663385%_) + (if (gx#stx-pair/null? _%tl6328463345%_) + (let ((_g84173_ (gx#syntax-split-splice - _%tl6323863299%_ + _%tl6328463345%_ '0))) (begin - (let ((_g84128_ + (let ((_g84174_ (let () (declare (not safe)) - (if (##values? _g84127_) + (if (##values? _g84173_) (##vector-length - _g84127_) + _g84173_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84128_ 2))) + (##fx= _g84174_ 2))) (error "Context expects 2 values" - _g84128_))) - (let ((_%target6325163342%_ + _g84174_))) + (let ((_%target6329763388%_ (let () (declare (not safe)) (##vector-ref - _g84127_ + _g84173_ 0))) - (_%tl6325363345%_ + (_%tl6329963391%_ (let () (declare (not safe)) (##vector-ref - _g84127_ + _g84173_ 1)))) (if (gx#stx-null? - _%tl6325363345%_) - (letrec ((_%loop6325463348%_ - (lambda (_%hd6325263352%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6325863355%_) - (if (gx#stx-pair? _%hd6325263352%_) - (let ((_%e6325563358%_ - (gx#syntax-e _%hd6325263352%_))) - (let ((_%lp-hd6325663362%_ + _%tl6329963391%_) + (letrec ((_%loop6330063394%_ + (lambda (_%hd6329863398%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6330463401%_) + (if (gx#stx-pair? _%hd6329863398%_) + (let ((_%e6330163404%_ + (gx#syntax-e _%hd6329863398%_))) + (let ((_%lp-hd6330263408%_ (let () (declare (not safe)) - (##car _%e6325563358%_))) - (_%lp-tl6325763365%_ + (##car _%e6330163404%_))) + (_%lp-tl6330363411%_ (let () (declare (not safe)) - (##cdr _%e6325563358%_)))) - (_%loop6325463348%_ - _%lp-tl6325763365%_ - (cons _%lp-hd6325663362%_ - _%body6325863355%_)))) - (let ((_%body6325963368%_ - (reverse _%body6325863355%_))) - ((lambda (_%L63372%_ - _%L63374%_ - _%L63375%_ - _%L63376%_ - _%L63377%_ - _%L63378%_) + (##cdr _%e6330163404%_)))) + (_%loop6330063394%_ + _%lp-tl6330363411%_ + (cons _%lp-hd6330263408%_ + _%body6330463401%_)))) + (let ((_%body6330563414%_ + (reverse _%body6330463401%_))) + ((lambda (_%L63418%_ + _%L63420%_ + _%L63421%_ + _%L63422%_ + _%L63423%_ + _%L63424%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63378%_ - (cons (cons _%L63377%_ - (cons _%L63376%_ - (cons _%L63375%_ + (cons _%L63424%_ + (cons (cons _%L63423%_ + (cons _%L63422%_ + (cons _%L63421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L63374%_ '())))) + (cons _%L63420%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6340963412%_ + (foldr (lambda (_%g6345563458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6341063415%_) - (cons _%g6340963412%_ _%g6341063415%_)) + _%g6345663461%_) + (cons _%g6345563458%_ _%g6345663461%_)) '() - _%L63372%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body6325963368%_ - _%hd6324963336%_ - _%hd6324663326%_ - _%hd6324363316%_ - _%hd6324063306%_ - _%hd6323463286%_)))))) - (_%loop6325463348%_ _%target6325163342%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6322263265%_ - _%g6322363269%_))))) - (_%g6322263265%_ _%g6322363269%_)) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6322263265%_ - _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_))))) - (_%g6322163418%_ _%$stx63218%_)))) + _%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%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-unchecked-method| - (lambda (_%$stx63423%_) - (let* ((_%g6342763466%_ - (lambda (_%g6342863462%_) + (lambda (_%$stx63469%_) + (let* ((_%g6347363512%_ + (lambda (_%g6347463508%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6342863462%_))) - (_%g6342663605%_ - (lambda (_%g6342863470%_) - (if (gx#stx-pair? _%g6342863470%_) - (let ((_%e6343463473%_ (gx#syntax-e _%g6342863470%_))) - (let ((_%hd6343563477%_ + _%g6347463508%_))) + (_%g6347263651%_ + (lambda (_%g6347463516%_) + (if (gx#stx-pair? _%g6347463516%_) + (let ((_%e6348063519%_ (gx#syntax-e _%g6347463516%_))) + (let ((_%hd6348163523%_ (let () (declare (not safe)) - (##car _%e6343463473%_))) - (_%tl6343663480%_ + (##car _%e6348063519%_))) + (_%tl6348263526%_ (let () (declare (not safe)) - (##cdr _%e6343463473%_)))) - (if (gx#stx-pair? _%tl6343663480%_) - (let ((_%e6343763483%_ - (gx#syntax-e _%tl6343663480%_))) - (let ((_%hd6343863487%_ + (##cdr _%e6348063519%_)))) + (if (gx#stx-pair? _%tl6348263526%_) + (let ((_%e6348363529%_ + (gx#syntax-e _%tl6348263526%_))) + (let ((_%hd6348463533%_ (let () (declare (not safe)) - (##car _%e6343763483%_))) - (_%tl6343963490%_ + (##car _%e6348363529%_))) + (_%tl6348563536%_ (let () (declare (not safe)) - (##cdr _%e6343763483%_)))) - (if (gx#stx-pair? _%tl6343963490%_) - (let ((_%e6344063493%_ - (gx#syntax-e _%tl6343963490%_))) - (let ((_%hd6344163497%_ + (##cdr _%e6348363529%_)))) + (if (gx#stx-pair? _%tl6348563536%_) + (let ((_%e6348663539%_ + (gx#syntax-e _%tl6348563536%_))) + (let ((_%hd6348763543%_ (let () (declare (not safe)) - (##car _%e6344063493%_))) - (_%tl6344263500%_ + (##car _%e6348663539%_))) + (_%tl6348863546%_ (let () (declare (not safe)) - (##cdr _%e6344063493%_)))) - (if (gx#stx-pair? _%hd6344163497%_) - (let ((_%e6344363503%_ + (##cdr _%e6348663539%_)))) + (if (gx#stx-pair? _%hd6348763543%_) + (let ((_%e6348963549%_ (gx#syntax-e - _%hd6344163497%_))) - (let ((_%hd6344463507%_ + _%hd6348763543%_))) + (let ((_%hd6349063553%_ (let () (declare (not safe)) - (##car _%e6344363503%_))) - (_%tl6344563510%_ + (##car _%e6348963549%_))) + (_%tl6349163556%_ (let () (declare (not safe)) - (##cdr _%e6344363503%_)))) + (##cdr _%e6348963549%_)))) (if (gx#stx-pair? - _%tl6344563510%_) - (let ((_%e6344663513%_ + _%tl6349163556%_) + (let ((_%e6349263559%_ (gx#syntax-e - _%tl6344563510%_))) - (let ((_%hd6344763517%_ + _%tl6349163556%_))) + (let ((_%hd6349363563%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6344663513%_))) - (_%tl6344863520%_ - (let () (declare (not safe)) (##cdr _%e6344663513%_)))) - (if (gx#stx-pair? _%tl6344863520%_) - (let ((_%e6344963523%_ (gx#syntax-e _%tl6344863520%_))) - (let ((_%hd6345063527%_ + (##car _%e6349263559%_))) + (_%tl6349463566%_ + (let () (declare (not safe)) (##cdr _%e6349263559%_)))) + (if (gx#stx-pair? _%tl6349463566%_) + (let ((_%e6349563569%_ (gx#syntax-e _%tl6349463566%_))) + (let ((_%hd6349663573%_ (let () (declare (not safe)) - (##car _%e6344963523%_))) - (_%tl6345163530%_ + (##car _%e6349563569%_))) + (_%tl6349763576%_ (let () (declare (not safe)) - (##cdr _%e6344963523%_)))) - (if (gx#stx-null? _%tl6345163530%_) - (if (gx#stx-pair/null? _%tl6344263500%_) - (let ((_g84129_ + (##cdr _%e6349563569%_)))) + (if (gx#stx-null? _%tl6349763576%_) + (if (gx#stx-pair/null? _%tl6348863546%_) + (let ((_g84175_ (gx#syntax-split-splice - _%tl6344263500%_ + _%tl6348863546%_ '0))) (begin - (let ((_g84130_ + (let ((_g84176_ (let () (declare (not safe)) - (if (##values? _g84129_) - (##vector-length _g84129_) + (if (##values? _g84175_) + (##vector-length _g84175_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84130_ 2))) + (##fx= _g84176_ 2))) (error "Context expects 2 values" - _g84130_))) - (let ((_%target6345263533%_ + _g84176_))) + (let ((_%target6349863579%_ (let () (declare (not safe)) - (##vector-ref _g84129_ 0))) - (_%tl6345463536%_ + (##vector-ref _g84175_ 0))) + (_%tl6350063582%_ (let () (declare (not safe)) - (##vector-ref _g84129_ 1)))) - (if (gx#stx-null? _%tl6345463536%_) - (letrec ((_%loop6345563539%_ - (lambda (_%hd6345363543%_ - _%body6345963546%_) + (##vector-ref _g84175_ 1)))) + (if (gx#stx-null? _%tl6350063582%_) + (letrec ((_%loop6350163585%_ + (lambda (_%hd6349963589%_ + _%body6350563592%_) (if (gx#stx-pair? - _%hd6345363543%_) - (let ((_%e6345663549%_ + _%hd6349963589%_) + (let ((_%e6350263595%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6345363543%_))) - (let ((_%lp-hd6345763553%_ + (gx#syntax-e _%hd6349963589%_))) + (let ((_%lp-hd6350363599%_ (let () (declare (not safe)) - (##car _%e6345663549%_))) - (_%lp-tl6345863556%_ + (##car _%e6350263595%_))) + (_%lp-tl6350463602%_ (let () (declare (not safe)) - (##cdr _%e6345663549%_)))) - (_%loop6345563539%_ - _%lp-tl6345863556%_ - (cons _%lp-hd6345763553%_ _%body6345963546%_)))) - (let ((_%body6346063559%_ (reverse _%body6345963546%_))) - ((lambda (_%L63563%_ - _%L63565%_ - _%L63566%_ - _%L63567%_ - _%L63568%_) + (##cdr _%e6350263595%_)))) + (_%loop6350163585%_ + _%lp-tl6350463602%_ + (cons _%lp-hd6350363599%_ _%body6350563592%_)))) + (let ((_%body6350663605%_ (reverse _%body6350563592%_))) + ((lambda (_%L63609%_ + _%L63611%_ + _%L63612%_ + _%L63613%_ + _%L63614%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63568%_ - (cons (cons _%L63567%_ - (cons _%L63566%_ - (cons _%L63565%_ + (cons _%L63614%_ + (cons (cons _%L63613%_ + (cons _%L63612%_ + (cons _%L63611%_ (cons '#f '())))) - (foldr (lambda (_%g6359663599%_ - _%g6359763602%_) - (cons _%g6359663599%_ - _%g6359763602%_)) + (foldr (lambda (_%g6364263645%_ + _%g6364363648%_) + (cons _%g6364263645%_ + _%g6364363648%_)) '() - _%L63563%_))))) - _%body6346063559%_ - _%hd6345063527%_ - _%hd6344763517%_ - _%hd6344463507%_ - _%hd6343863487%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6345563539%_ - _%target6345263533%_ + _%L63609%_))))) + _%body6350663605%_ + _%hd6349663573%_ + _%hd6349363563%_ + _%hd6349063553%_ + _%hd6348463533%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6350163585%_ + _%target6349863579%_ '())) - (_%g6342763466%_ - _%g6342863470%_))))) - (_%g6342763466%_ _%g6342863470%_)) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6342763466%_ - _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_))))) - (_%g6342663605%_ _%$stx63423%_)))) + (_%g6347363512%_ + _%g6347463516%_))))) + (_%g6347363512%_ _%g6347463516%_)) + (_%g6347363512%_ _%g6347463516%_)))) + (_%g6347363512%_ _%g6347463516%_)))) + (_%g6347363512%_ _%g6347463516%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6347363512%_ + _%g6347463516%_)))) + (_%g6347363512%_ _%g6347463516%_)))) + (_%g6347363512%_ _%g6347463516%_)))) + (_%g6347363512%_ _%g6347463516%_))))) + (_%g6347263651%_ _%$stx63469%_)))) (define |gerbil/core/contract~Interface[:0:]#interface-out| (gx#make-export-expander - (lambda (_%stx63610%_) - (letrec ((_%expand63613%_ - (lambda (_%body63835%_ _%unchecked?63837%_) - (let* ((_%g6383963856%_ - (lambda (_%g6384063852%_) + (lambda (_%stx63656%_) + (letrec ((_%expand63659%_ + (lambda (_%body63881%_ _%unchecked?63883%_) + (let* ((_%g6388563902%_ + (lambda (_%g6388663898%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6384063852%_))) - (_%g6383864087%_ - (lambda (_%g6384063860%_) - (if (gx#stx-pair/null? _%g6384063860%_) - (let ((_g84131_ + _%g6388663898%_))) + (_%g6388464133%_ + (lambda (_%g6388663906%_) + (if (gx#stx-pair/null? _%g6388663906%_) + (let ((_g84177_ (gx#syntax-split-splice - _%g6384063860%_ + _%g6388663906%_ '0))) (begin - (let ((_g84132_ + (let ((_g84178_ (let () (declare (not safe)) - (if (##values? _g84131_) - (##vector-length _g84131_) + (if (##values? _g84177_) + (##vector-length _g84177_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84132_ 2))) + (##fx= _g84178_ 2))) (error "Context expects 2 values" - _g84132_))) - (let ((_%target6384263863%_ + _g84178_))) + (let ((_%target6388863909%_ (let () (declare (not safe)) - (##vector-ref _g84131_ 0))) - (_%tl6384463866%_ + (##vector-ref _g84177_ 0))) + (_%tl6389063912%_ (let () (declare (not safe)) - (##vector-ref _g84131_ 1)))) - (if (gx#stx-null? _%tl6384463866%_) - (letrec ((_%loop6384563869%_ - (lambda (_%hd6384363873%_ - _%id6384963876%_) + (##vector-ref _g84177_ 1)))) + (if (gx#stx-null? _%tl6389063912%_) + (letrec ((_%loop6389163915%_ + (lambda (_%hd6388963919%_ + _%id6389563922%_) (if (gx#stx-pair? - _%hd6384363873%_) - (let ((_%e6384663879%_ + _%hd6388963919%_) + (let ((_%e6389263925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6384363873%_))) - (let ((_%lp-hd6384763883%_ + (gx#syntax-e _%hd6388963919%_))) + (let ((_%lp-hd6389363929%_ (let () (declare (not safe)) - (##car _%e6384663879%_))) - (_%lp-tl6384863886%_ + (##car _%e6389263925%_))) + (_%lp-tl6389463932%_ (let () (declare (not safe)) - (##cdr _%e6384663879%_)))) - (_%loop6384563869%_ - _%lp-tl6384863886%_ - (cons _%lp-hd6384763883%_ _%id6384963876%_)))) - (let ((_%id6385063889%_ (reverse _%id6384963876%_))) - ((lambda (_%L63893%_) + (##cdr _%e6389263925%_)))) + (_%loop6389163915%_ + _%lp-tl6389463932%_ + (cons _%lp-hd6389363929%_ _%id6389563922%_)))) + (let ((_%id6389663935%_ (reverse _%id6389563922%_))) + ((lambda (_%L63939%_) (if (gx#identifier-list? - (foldr (lambda (_%g6390663909%_ _%g6390763912%_) - (cons _%g6390663909%_ _%g6390763912%_)) + (foldr (lambda (_%g6395263955%_ _%g6395363958%_) + (cons _%g6395263955%_ _%g6395363958%_)) '() - _%L63893%_)) - (let _%lp63915%_ ((_%rest63918%_ - (foldr (lambda (_%g6407864081%_ + _%L63939%_)) + (let _%lp63961%_ ((_%rest63964%_ + (foldr (lambda (_%g6412464127%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6407964084%_) - (cons _%g6407864081%_ _%g6407964084%_)) + _%g6412564130%_) + (cons _%g6412464127%_ _%g6412564130%_)) '() - _%L63893%_)) + _%L63939%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ids63920%_ '())) - (let* ((_%__stx8192081921%_ _%rest63918%_) - (_%g6392363935%_ + (_%ids63966%_ '())) + (let* ((_%__stx8196681967%_ _%rest63964%_) + (_%g6396963981%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8192081921%_)))) - (let ((_%__kont8192381924%_ - (lambda (_%L63963%_ _%L63965%_) - (let ((_%info63980%_ + _%__stx8196681967%_)))) + (let ((_%__kont8196981970%_ + (lambda (_%L64009%_ _%L64011%_) + (let ((_%info64026%_ (gx#syntax-local-value - _%L63965%_ + _%L64011%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info63980%_)) + _%info64026%_)) '#!void (gx#raise-syntax-error '#f '"not an interface type" - _%stx63610%_ - _%L63965%_)) - (let* ((_%info6398263995%_ - _%info63980%_) - (_%E6398464001%_ + _%stx63656%_ + _%L64011%_)) + (let* ((_%info6402864041%_ + _%info64026%_) + (_%E6403064047%_ (lambda () (error '"No clause matching" - _%info6398263995%_ + _%info6402864041%_ '((interface-info ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< instance-type: @@ -10578,492 +10598,492 @@ unchecked-impl))) (void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K6398564015%_ - (lambda (_%unchecked-impl64005%_ - _%method-impl64007%_ - _%satisfies-predicate64008%_ - _%predicate64009%_ - _%try-constructor64010%_ - _%constructor64011%_ - _%descriptor64012%_ - _%type64013%_) - (_%lp63915%_ - _%L63963%_ - (cons _%L63965%_ - (cons _%type64013%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%descriptor64012%_ - (cons _%constructor64011%_ - (cons _%try-constructor64010%_ - (cons _%predicate64009%_ - (cons _%satisfies-predicate64008%_ + (_%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%_ (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons - _%ids63920%_ - (if _%unchecked?63837%_ - _%unchecked-impl64005%_ + _%ids63966%_ + (if _%unchecked?63883%_ + _%unchecked-impl64051%_ '())) - _%method-impl64007%_)))))))))))) + _%method-impl64053%_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info6398263995%_)) - (let* ((_%e6398664019%_ + _%info6402864041%_)) + (let* ((_%e6403264065%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'instance-type))) - (_%type64023%_ - _%e6398664019%_) - (_%e6398764026%_ + (_%type64069%_ + _%e6403264065%_) + (_%e6403364072%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'interface-descriptor))) - (_%descriptor64030%_ - _%e6398764026%_) - (_%e6398864033%_ + (_%descriptor64076%_ + _%e6403364072%_) + (_%e6403464079%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'instance-constructor))) - (_%constructor64037%_ - _%e6398864033%_) - (_%e6398964040%_ + (_%constructor64083%_ + _%e6403464079%_) + (_%e6403564086%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'instance-try-constructor))) - (_%try-constructor64044%_ - _%e6398964040%_) - (_%e6399064047%_ + (_%try-constructor64090%_ + _%e6403564086%_) + (_%e6403664093%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'instance-predicate))) - (_%predicate64051%_ - _%e6399064047%_) - (_%e6399164054%_ + (_%predicate64097%_ + _%e6403664093%_) + (_%e6403764100%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'instance-satisfies-predicate))) - (_%satisfies-predicate64058%_ - _%e6399164054%_) - (_%e6399264061%_ + (_%satisfies-predicate64104%_ + _%e6403764100%_) + (_%e6403864107%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'implementation-methods))) - (_%method-impl64065%_ - _%e6399264061%_) - (_%e6399364068%_ + (_%method-impl64111%_ + _%e6403864107%_) + (_%e6403964114%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6402864041%_ 'unchecked-implementation-methods))) - (_%unchecked-impl64072%_ - _%e6399364068%_)) - (_%K6398564015%_ - _%unchecked-impl64072%_ - _%method-impl64065%_ - _%satisfies-predicate64058%_ - _%predicate64051%_ - _%try-constructor64044%_ - _%constructor64037%_ - _%descriptor64030%_ - _%type64023%_)) - (_%E6398464001%_)))))) - (_%__kont8192581926%_ + (_%unchecked-impl64118%_ + _%e6403964114%_)) + (_%K6403164061%_ + _%unchecked-impl64118%_ + _%method-impl64111%_ + _%satisfies-predicate64104%_ + _%predicate64097%_ + _%try-constructor64090%_ + _%constructor64083%_ + _%descriptor64076%_ + _%type64069%_)) + (_%E6403064047%_)))))) + (_%__kont8197181972%_ (lambda () - (cons 'begin: _%ids63920%_)))) - (if (gx#stx-pair? _%__stx8192081921%_) - (let ((_%e6392763953%_ + (cons 'begin: _%ids63966%_)))) + (if (gx#stx-pair? _%__stx8196681967%_) + (let ((_%e6397363999%_ (gx#syntax-e - _%__stx8192081921%_))) - (let ((_%tl6392963960%_ + _%__stx8196681967%_))) + (let ((_%tl6397564006%_ (let () (declare (not safe)) - (##cdr _%e6392763953%_))) - (_%hd6392863957%_ + (##cdr _%e6397363999%_))) + (_%hd6397464003%_ (let () (declare (not safe)) - (##car _%e6392763953%_)))) - (_%__kont8192381924%_ - _%tl6392963960%_ - _%hd6392863957%_))) - (_%__kont8192581926%_))))) - (_%g6383963856%_ _%g6384063860%_))) - _%id6385063889%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6384563869%_ - _%target6384263863%_ + (##car _%e6397363999%_)))) + (_%__kont8196981970%_ + _%tl6397564006%_ + _%hd6397464003%_))) + (_%__kont8197181972%_))))) + (_%g6388563902%_ _%g6388663906%_))) + _%id6389663935%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6389163915%_ + _%target6388863909%_ '())) - (_%g6383963856%_ - _%g6384063860%_))))) - (_%g6383963856%_ _%g6384063860%_))))) - (_%g6383864087%_ _%body63835%_))))) - (let* ((_%__stx8193681937%_ _%stx63610%_) - (_%g6361763658%_ + (_%g6388563902%_ + _%g6388663906%_))))) + (_%g6388563902%_ _%g6388663906%_))))) + (_%g6388464133%_ _%body63881%_))))) + (let* ((_%__stx8198281983%_ _%stx63656%_) + (_%g6366363704%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8193681937%_)))) - (let ((_%__kont8193981940%_ - (lambda (_%L63801%_ _%L63803%_) - (_%expand63613%_ - (foldr (lambda (_%g6382263825%_ _%g6382363828%_) - (cons _%g6382263825%_ _%g6382363828%_)) + _%__stx8198281983%_)))) + (let ((_%__kont8198581986%_ + (lambda (_%L63847%_ _%L63849%_) + (_%expand63659%_ + (foldr (lambda (_%g6386863871%_ _%g6386963874%_) + (cons _%g6386863871%_ _%g6386963874%_)) '() - _%L63801%_) - (gx#stx-e _%L63803%_)))) - (_%__kont8194381944%_ - (lambda (_%L63705%_) - (_%expand63613%_ - (foldr (lambda (_%g6372163724%_ _%g6372263727%_) - (cons _%g6372163724%_ _%g6372263727%_)) + _%L63847%_) + (gx#stx-e _%L63849%_)))) + (_%__kont8198981990%_ + (lambda (_%L63751%_) + (_%expand63659%_ + (foldr (lambda (_%g6376763770%_ _%g6376863773%_) + (cons _%g6376763770%_ _%g6376863773%_)) '() - _%L63705%_) + _%L63751%_) '#t)))) - (let* ((_%__match8199381994%_ - (lambda (_%e6364163665%_ - _%hd6364263669%_ - _%tl6364363672%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) - (letrec ((_%loop6364763681%_ - (lambda (_%hd6364563685%_ - _%body6365163688%_) - (if (gx#stx-pair? _%hd6364563685%_) - (let ((_%e6364863691%_ + (let* ((_%__match8203982040%_ + (lambda (_%e6368763711%_ + _%hd6368863715%_ + _%tl6368963718%_ + _%__splice8199181992%_ + _%target6369063721%_ + _%tl6369263724%_) + (letrec ((_%loop6369363727%_ + (lambda (_%hd6369163731%_ + _%body6369763734%_) + (if (gx#stx-pair? _%hd6369163731%_) + (let ((_%e6369463737%_ (gx#syntax-e - _%hd6364563685%_))) - (let ((_%lp-tl6365063698%_ + _%hd6369163731%_))) + (let ((_%lp-tl6369663744%_ (let () (declare (not safe)) - (##cdr _%e6364863691%_))) - (_%lp-hd6364963695%_ + (##cdr _%e6369463737%_))) + (_%lp-hd6369563741%_ (let () (declare (not safe)) - (##car _%e6364863691%_)))) - (_%loop6364763681%_ - _%lp-tl6365063698%_ - (cons _%lp-hd6364963695%_ - _%body6365163688%_)))) - (let ((_%body6365263701%_ - (reverse _%body6365163688%_))) - (_%__kont8194381944%_ - _%body6365263701%_)))))) - (_%loop6364763681%_ _%target6364463675%_ '())))) - (_%__match8197981980%_ - (lambda (_%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%e6362463747%_ - _%hd6362563751%_ - _%tl6362663754%_ - _%e6362763757%_ - _%e6362863761%_ - _%hd6362963765%_ - _%tl6363063768%_ - _%__splice8194181942%_ - _%target6363163771%_ - _%tl6363363774%_) - (letrec ((_%loop6363463777%_ - (lambda (_%hd6363263781%_ - _%body6363863784%_) - (if (gx#stx-pair? _%hd6363263781%_) - (let ((_%e6363563787%_ + (##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%_ (gx#syntax-e - _%hd6363263781%_))) - (let ((_%lp-tl6363763794%_ + _%hd6367863827%_))) + (let ((_%lp-tl6368363840%_ (let () (declare (not safe)) - (##cdr _%e6363563787%_))) - (_%lp-hd6363663791%_ + (##cdr _%e6368163833%_))) + (_%lp-hd6368263837%_ (let () (declare (not safe)) - (##car _%e6363563787%_)))) - (_%loop6363463777%_ - _%lp-tl6363763794%_ - (cons _%lp-hd6363663791%_ - _%body6363863784%_)))) - (let ((_%body6363963797%_ - (reverse _%body6363863784%_))) - (_%__kont8193981940%_ - _%body6363963797%_ - _%hd6362963765%_)))))) - (_%loop6363463777%_ _%target6363163771%_ '()))))) - (if (gx#stx-pair? _%__stx8193681937%_) - (let ((_%e6362163737%_ (gx#syntax-e _%__stx8193681937%_))) - (let ((_%tl6362363744%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6362163737%_))) - (_%hd6362263741%_ + (##cdr _%e6366763783%_))) + (_%hd6366863787%_ (let () (declare (not safe)) - (##car _%e6362163737%_)))) - (if (gx#stx-pair? _%tl6362363744%_) - (let ((_%e6362463747%_ - (gx#syntax-e _%tl6362363744%_))) - (let ((_%tl6362663754%_ + (##car _%e6366763783%_)))) + (if (gx#stx-pair? _%tl6366963790%_) + (let ((_%e6367063793%_ + (gx#syntax-e _%tl6366963790%_))) + (let ((_%tl6367263800%_ (let () (declare (not safe)) - (##cdr _%e6362463747%_))) - (_%hd6362563751%_ + (##cdr _%e6367063793%_))) + (_%hd6367163797%_ (let () (declare (not safe)) - (##car _%e6362463747%_)))) - (if (gx#stx-datum? _%hd6362563751%_) - (let ((_%e6362763757%_ - (gx#stx-e _%hd6362563751%_))) - (if (equal? _%e6362763757%_ 'unchecked:) - (if (gx#stx-pair? _%tl6362663754%_) - (let ((_%e6362863761%_ + (##car _%e6367063793%_)))) + (if (gx#stx-datum? _%hd6367163797%_) + (let ((_%e6367363803%_ + (gx#stx-e _%hd6367163797%_))) + (if (equal? _%e6367363803%_ 'unchecked:) + (if (gx#stx-pair? _%tl6367263800%_) + (let ((_%e6367463807%_ (gx#syntax-e - _%tl6362663754%_))) - (let ((_%tl6363063768%_ + _%tl6367263800%_))) + (let ((_%tl6367663814%_ (let () (declare (not safe)) - (##cdr _%e6362863761%_))) - (_%hd6362963765%_ + (##cdr _%e6367463807%_))) + (_%hd6367563811%_ (let () (declare (not safe)) - (##car _%e6362863761%_)))) + (##car _%e6367463807%_)))) (if (gx#stx-pair/null? - _%tl6363063768%_) - (let ((_%__splice8194181942%_ + _%tl6367663814%_) + (let ((_%__splice8198781988%_ (gx#syntax-split-splice - _%tl6363063768%_ + _%tl6367663814%_ '0))) - (let ((_%tl6363363774%_ + (let ((_%tl6367963820%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8194181942%_ '1))) - (_%target6363163771%_ + (##vector-ref _%__splice8198781988%_ '1))) + (_%target6367763817%_ (let () (declare (not safe)) - (##vector-ref _%__splice8194181942%_ '0)))) - (if (gx#stx-null? _%tl6363363774%_) - (_%__match8197981980%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%e6362463747%_ - _%hd6362563751%_ - _%tl6362663754%_ - _%e6362763757%_ - _%e6362863761%_ - _%hd6362963765%_ - _%tl6363063768%_ - _%__splice8194181942%_ - _%target6363163771%_ - _%tl6363363774%_) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ + (##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%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6366963790%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6369263724%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '1))) - (_%target6364463675%_ + (_%target6369063721%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '0)))) - (if (gx#stx-null? _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + (if (gx#stx-null? _%tl6369263724%_) + (_%__match8203982040%_ + _%e6366763783%_ + _%hd6366863787%_ + _%tl6366963790%_ + _%__splice8199181992%_ + _%target6369063721%_ + _%tl6369263724%_) (let () (declare (not safe)) - (_%g6361763658%_))))) - (let () (declare (not safe)) (_%g6361763658%_)))))) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ - (gx#syntax-split-splice _%tl6362363744%_ '0))) - (let ((_%tl6364663678%_ + (_%g6366363704%_))))) + (let () (declare (not safe)) (_%g6366363704%_)))))) + (if (gx#stx-pair/null? _%tl6366963790%_) + (let ((_%__splice8199181992%_ + (gx#syntax-split-splice _%tl6366963790%_ '0))) + (let ((_%tl6369263724%_ (let () (declare (not safe)) - (##vector-ref _%__splice8194581946%_ '1))) - (_%target6364463675%_ + (##vector-ref _%__splice8199181992%_ '1))) + (_%target6369063721%_ (let () (declare (not safe)) - (##vector-ref _%__splice8194581946%_ '0)))) - (if (gx#stx-null? _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) - (let () (declare (not safe)) (_%g6361763658%_))))) - (let () (declare (not safe)) (_%g6361763658%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6362363744%_) - (let ((_%__splice8194581946%_ + _%tl6366963790%_) + (let ((_%__splice8199181992%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6366963790%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6369263724%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '1))) - (_%target6364463675%_ + (_%target6369063721%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '0)))) (if (gx#stx-null? - _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + _%tl6369263724%_) + (_%__match8203982040%_ + _%e6366763783%_ + _%hd6366863787%_ + _%tl6366963790%_ + _%__splice8199181992%_ + _%target6369063721%_ + _%tl6369263724%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6366363704%_))))) (let () (declare (not safe)) - (_%g6361763658%_)))) + (_%g6366363704%_)))) (if (gx#stx-pair/null? - _%tl6362363744%_) - (let ((_%__splice8194581946%_ + _%tl6366963790%_) + (let ((_%__splice8199181992%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6366963790%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6369263724%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '1))) - (_%target6364463675%_ + (_%target6369063721%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '0)))) (if (gx#stx-null? - _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + _%tl6369263724%_) + (_%__match8203982040%_ + _%e6366763783%_ + _%hd6366863787%_ + _%tl6366963790%_ + _%__splice8199181992%_ + _%target6369063721%_ + _%tl6369263724%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6366363704%_))))) (let () (declare (not safe)) - (_%g6361763658%_))))) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ + (_%g6366363704%_))))) + (if (gx#stx-pair/null? _%tl6366963790%_) + (let ((_%__splice8199181992%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6366963790%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6369263724%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '1))) - (_%target6364463675%_ + (_%target6369063721%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '0)))) (if (gx#stx-null? - _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + _%tl6369263724%_) + (_%__match8203982040%_ + _%e6366763783%_ + _%hd6366863787%_ + _%tl6366963790%_ + _%__splice8199181992%_ + _%target6369063721%_ + _%tl6369263724%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6366363704%_))))) (let () (declare (not safe)) - (_%g6361763658%_)))))) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ + (_%g6366363704%_)))))) + (if (gx#stx-pair/null? _%tl6366963790%_) + (let ((_%__splice8199181992%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6366963790%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6369263724%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '1))) - (_%target6364463675%_ + (_%target6369063721%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8199181992%_ '0)))) - (if (gx#stx-null? _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + (if (gx#stx-null? _%tl6369263724%_) + (_%__match8203982040%_ + _%e6366763783%_ + _%hd6366863787%_ + _%tl6366963790%_ + _%__splice8199181992%_ + _%target6369063721%_ + _%tl6369263724%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6366363704%_))))) (let () (declare (not safe)) - (_%g6361763658%_)))))) - (let () (declare (not safe)) (_%g6361763658%_)))))))))))) + (_%g6366363704%_)))))) + (let () (declare (not safe)) (_%g6366363704%_)))))))))))) diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index 113f3b355..15c358dab 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]#_g84139_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84185_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84146_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84192_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84149_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84195_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84150_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84196_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84158_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84204_| (##structure gx#syntax-quote::t 'lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84159_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84205_| (##structure gx#syntax-quote::t 'case-lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84160_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84206_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84162_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84208_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84163_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84209_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84164_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84210_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84166_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84212_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84167_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84213_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84168_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84214_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84170_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84216_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84171_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84217_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84172_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84218_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84173_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84219_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84174_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84220_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84175_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84221_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84176_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84222_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84177_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84223_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84178_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84224_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84179_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84225_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84180_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84226_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84181_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84227_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84182_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84228_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84183_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84229_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84184_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84230_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84185_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84231_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84186_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84232_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84187_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84233_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (lambda (_%formals64095%_) - (let _%lp64098%_ ((_%rest64101%_ _%formals64095%_)) - (let* ((_%__stx8199681997%_ _%rest64101%_) - (_%g6411064179%_ + (lambda (_%formals64141%_) + (let _%lp64144%_ ((_%rest64147%_ _%formals64141%_)) + (let* ((_%__stx8204282043%_ _%rest64147%_) + (_%g6415664225%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8199681997%_)))) - (let ((_%__kont8199982000%_ - (lambda (_%L64480%_ _%L64482%_) (_%lp64098%_ _%L64480%_))) - (_%__kont8200182002%_ - (lambda (_%L64446%_ _%L64448%_) (_%lp64098%_ _%L64446%_))) - (_%__kont8200382004%_ - (lambda (_%L64392%_ _%L64394%_ _%L64395%_) '#t)) - (_%__kont8200582006%_ - (lambda (_%L64348%_ _%L64350%_ _%L64351%_) - (_%lp64098%_ _%L64348%_))) - (_%__kont8200782008%_ - (lambda (_%L64300%_ _%L64302%_ _%L64303%_) - (_%lp64098%_ _%L64300%_))) - (_%__kont8200982010%_ - (lambda (_%L64227%_ _%L64229%_ _%L64230%_ _%L64231%_) '#t)) - (_%__kont8201182012%_ (lambda () '#f))) - (let* ((_%__match8210782108%_ - (lambda (_%e6416564197%_ - _%hd6416664201%_ - _%tl6416764204%_ - _%e6416864207%_ - _%hd6416964211%_ - _%tl6417064214%_ - _%e6417164217%_ - _%hd6417264221%_ - _%tl6417364224%_) - (let ((_%L64227%_ _%tl6417064214%_) - (_%L64229%_ _%tl6417364224%_) - (_%L64230%_ _%hd6417264221%_) - (_%L64231%_ _%hd6416664201%_)) - (if (and (gx#stx-keyword? _%L64231%_) - (gx#identifier? _%L64230%_) + _%__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%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L64229%_))) - (_%__kont8200982010%_ - _%L64227%_ - _%L64229%_ - _%L64230%_ - _%L64231%_) - (_%__kont8201182012%_))))) - (_%__match8208982090%_ - (lambda (_%e6414964260%_ - _%hd6415064264%_ - _%tl6415164267%_ - _%e6415264270%_ - _%hd6415364274%_ - _%tl6415464277%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_ - _%e6415864290%_ - _%hd6415964294%_ - _%tl6416064297%_) - (let ((_%L64300%_ _%tl6415464277%_) - (_%L64302%_ _%hd6415664284%_) - (_%L64303%_ _%hd6415064264%_)) - (if (and (gx#stx-keyword? _%L64303%_) - (gx#identifier? _%L64302%_)) - (_%__kont8200782008%_ - _%L64300%_ - _%L64302%_ - _%L64303%_) - (_%__match8210782108%_ - _%e6414964260%_ - _%hd6415064264%_ - _%tl6415164267%_ - _%e6415264270%_ - _%hd6415364274%_ - _%tl6415464277%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_))))) - (_%__match8206382064%_ - (lambda (_%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_) - (let ((_%L64348%_ _%tl6414564345%_) - (_%L64350%_ _%hd6414464342%_) - (_%L64351%_ _%hd6414164332%_)) - (if (and (gx#stx-keyword? _%L64351%_) - (gx#identifier? _%L64350%_)) - (_%__kont8200582006%_ + _%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%_ - _%L64350%_ - _%L64351%_) - (if (gx#stx-pair? _%hd6414464342%_) - (let ((_%e6415564280%_ - (gx#syntax-e _%hd6414464342%_))) - (let ((_%tl6415764287%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6415564280%_))) - (_%hd6415664284%_ + (##cdr _%e6420164326%_))) + (_%hd6420264330%_ (let () (declare (not safe)) - (##car _%e6415564280%_)))) - (if (gx#stx-pair? _%tl6415764287%_) - (let ((_%e6415864290%_ + (##car _%e6420164326%_)))) + (if (gx#stx-pair? _%tl6420364333%_) + (let ((_%e6420464336%_ (gx#syntax-e - _%tl6415764287%_))) - (let ((_%tl6416064297%_ + _%tl6420364333%_))) + (let ((_%tl6420664343%_ (let () (declare (not safe)) - (##cdr _%e6415864290%_))) - (_%hd6415964294%_ + (##cdr _%e6420464336%_))) + (_%hd6420564340%_ (let () (declare (not safe)) - (##car _%e6415864290%_)))) + (##car _%e6420464336%_)))) (if (gx#stx-null? - _%tl6416064297%_) - (_%__match8208982090%_ - _%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_ - _%e6415864290%_ - _%hd6415964294%_ - _%tl6416064297%_) - (_%__match8210782108%_ - _%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_)))) - (_%__match8210782108%_ - _%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_)))) - (_%__kont8201182012%_)))))) - (_%__match8205182052%_ - (lambda (_%e6413164372%_ - _%hd6413264376%_ - _%tl6413364379%_ - _%e6413464382%_ - _%hd6413564386%_ - _%tl6413664389%_) - (let ((_%L64392%_ _%tl6413364379%_) - (_%L64394%_ _%tl6413664389%_) - (_%L64395%_ _%hd6413564386%_)) - (if (and (gx#identifier? _%L64395%_) + _%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%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L64394%_))) - (_%__kont8200382004%_ - _%L64392%_ - _%L64394%_ - _%L64395%_) - (if (gx#stx-pair? _%tl6413364379%_) - (let ((_%e6414364338%_ - (gx#syntax-e _%tl6413364379%_))) - (let ((_%tl6414564345%_ + _%L64440%_))) + (_%__kont8204982050%_ + _%L64438%_ + _%L64440%_ + _%L64441%_) + (if (gx#stx-pair? _%tl6417964425%_) + (let ((_%e6418964384%_ + (gx#syntax-e _%tl6417964425%_))) + (let ((_%tl6419164391%_ (let () (declare (not safe)) - (##cdr _%e6414364338%_))) - (_%hd6414464342%_ + (##cdr _%e6418964384%_))) + (_%hd6419064388%_ (let () (declare (not safe)) - (##car _%e6414364338%_)))) - (_%__match8206382064%_ - _%e6413164372%_ - _%hd6413264376%_ - _%tl6413364379%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_))) - (_%__kont8201182012%_)))))) - (_%__match8201982020%_ - (lambda (_%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_) - (let ((_%L64480%_ _%tl6411664477%_) - (_%L64482%_ _%hd6411564474%_)) - (if (gx#identifier? _%L64482%_) - (_%__kont8199982000%_ _%L64480%_ _%L64482%_) - (if (gx#stx-pair? _%hd6411564474%_) - (let ((_%e6412264426%_ - (gx#syntax-e _%hd6411564474%_))) - (let ((_%tl6412464433%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6412264426%_))) - (_%hd6412364430%_ + (##cdr _%e6416864472%_))) + (_%hd6416964476%_ (let () (declare (not safe)) - (##car _%e6412264426%_)))) - (if (gx#stx-pair? _%tl6412464433%_) - (let ((_%e6412564436%_ + (##car _%e6416864472%_)))) + (if (gx#stx-pair? _%tl6417064479%_) + (let ((_%e6417164482%_ (gx#syntax-e - _%tl6412464433%_))) - (let ((_%tl6412764443%_ + _%tl6417064479%_))) + (let ((_%tl6417364489%_ (let () (declare (not safe)) - (##cdr _%e6412564436%_))) - (_%hd6412664440%_ + (##cdr _%e6417164482%_))) + (_%hd6417264486%_ (let () (declare (not safe)) - (##car _%e6412564436%_)))) + (##car _%e6417164482%_)))) (if (gx#stx-null? - _%tl6412764443%_) - (_%__kont8200182002%_ - _%tl6411664477%_ - _%hd6412364430%_) - (_%__match8205182052%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_ - _%e6412264426%_ - _%hd6412364430%_ - _%tl6412464433%_)))) - (_%__match8205182052%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_ - _%e6412264426%_ - _%hd6412364430%_ - _%tl6412464433%_)))) - (if (gx#stx-pair? _%tl6411664477%_) - (let ((_%e6414364338%_ - (gx#syntax-e _%tl6411664477%_))) - (let ((_%tl6414564345%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6414364338%_))) - (_%hd6414464342%_ + (##cdr _%e6418964384%_))) + (_%hd6419064388%_ (let () (declare (not safe)) - (##car _%e6414364338%_)))) - (_%__match8206382064%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_))) - (_%__kont8201182012%_)))))))) - (if (gx#stx-pair? _%__stx8199681997%_) - (let ((_%e6411464470%_ (gx#syntax-e _%__stx8199681997%_))) - (let ((_%tl6411664477%_ + (##car _%e6418964384%_)))) + (_%__match8210982110%_ + _%e6416064516%_ + _%hd6416164520%_ + _%tl6416264523%_ + _%e6418964384%_ + _%hd6419064388%_ + _%tl6419164391%_))) + (_%__kont8205782058%_)))))))) + (if (gx#stx-pair? _%__stx8204282043%_) + (let ((_%e6416064516%_ (gx#syntax-e _%__stx8204282043%_))) + (let ((_%tl6416264523%_ (let () (declare (not safe)) - (##cdr _%e6411464470%_))) - (_%hd6411564474%_ + (##cdr _%e6416064516%_))) + (_%hd6416164520%_ (let () (declare (not safe)) - (##car _%e6411464470%_)))) - (_%__match8201982020%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_))) - (_%__kont8201182012%_)))))))) + (##car _%e6416064516%_)))) + (_%__match8206582066%_ + _%e6416064516%_ + _%hd6416164520%_ + _%tl6416264523%_))) + (_%__kont8205782058%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| - (lambda (_%stx64497%_) - (letrec ((_%make-definition64500%_ - (lambda (_%id65598%_ - _%args65600%_ - _%return65601%_ - _%body65602%_) + (lambda (_%stx64543%_) + (letrec ((_%make-definition64546%_ + (lambda (_%id65644%_ + _%args65646%_ + _%return65647%_ + _%body65648%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx64497%_ - _%args65600%_ - _%return65601%_)) + _%stx64543%_ + _%args65646%_ + _%return65647%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-has-keywords?| - _%args65600%_)) - (_%make-keyword-def64502%_ - _%id65598%_ - _%args65600%_ - _%return65601%_ - _%body65602%_) - (let* ((_%unchecked-id65604%_ + _%args65646%_)) + (_%make-keyword-def64548%_ + _%id65644%_ + _%args65646%_ + _%return65647%_ + _%body65648%_) + (let* ((_%unchecked-id65650%_ (gx#stx-identifier - _%id65598%_ + _%id65644%_ '"__" - _%id65598%_)) - (_%g6560765622%_ - (lambda (_%g6560865618%_) + _%id65644%_)) + (_%g6565365668%_ + (lambda (_%g6565465664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6560865618%_))) - (_%g6560665668%_ - (lambda (_%g6560865626%_) - (if (gx#stx-pair? _%g6560865626%_) - (let ((_%e6561165629%_ - (gx#syntax-e _%g6560865626%_))) - (let ((_%hd6561265633%_ + _%g6565465664%_))) + (_%g6565265714%_ + (lambda (_%g6565465672%_) + (if (gx#stx-pair? _%g6565465672%_) + (let ((_%e6565765675%_ + (gx#syntax-e _%g6565465672%_))) + (let ((_%hd6565865679%_ (let () (declare (not safe)) - (##car _%e6561165629%_))) - (_%tl6561365636%_ + (##car _%e6565765675%_))) + (_%tl6565965682%_ (let () (declare (not safe)) - (##cdr _%e6561165629%_)))) - (if (gx#stx-pair? _%tl6561365636%_) - (let ((_%e6561465639%_ + (##cdr _%e6565765675%_)))) + (if (gx#stx-pair? _%tl6565965682%_) + (let ((_%e6566065685%_ (gx#syntax-e - _%tl6561365636%_))) - (let ((_%hd6561565643%_ + _%tl6565965682%_))) + (let ((_%hd6566165689%_ (let () (declare (not safe)) - (##car _%e6561465639%_))) - (_%tl6561665646%_ + (##car _%e6566065685%_))) + (_%tl6566265692%_ (let () (declare (not safe)) - (##cdr _%e6561465639%_)))) + (##cdr _%e6566065685%_)))) (if (gx#stx-null? - _%tl6561665646%_) - ((lambda (_%L65649%_ - _%L65651%_) + _%tl6566265692%_) + ((lambda (_%L65695%_ + _%L65697%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L65651%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65649%_ '())))) - _%hd6561565643%_ - _%hd6561265633%_) - (_%g6560765622%_ _%g6560865626%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6560765622%_ - _%g6560865626%_)))) - (_%g6560765622%_ _%g6560865626%_))))) - (_%g6560665668%_ - (list (_%make-checked-def64503%_ - _%id65598%_ - _%unchecked-id65604%_ - _%args65600%_ - _%return65601%_) - (_%make-unchecked-def64504%_ - _%unchecked-id65604%_ - _%args65600%_ - _%return65601%_ - _%body65602%_))))))) - (_%make-keyword-def64502%_ - (lambda (_%id65405%_ - _%signature65407%_ - _%return65408%_ - _%body65409%_) - (let* ((_%g6541165451%_ - (lambda (_%g6541265447%_) + (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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6541265447%_))) - (_%g6541065594%_ - (lambda (_%g6541265455%_) - (if (gx#stx-pair? _%g6541265455%_) - (let ((_%e6541965458%_ - (gx#syntax-e _%g6541265455%_))) - (let ((_%hd6542065462%_ + _%g6545865493%_))) + (_%g6545665640%_ + (lambda (_%g6545865501%_) + (if (gx#stx-pair? _%g6545865501%_) + (let ((_%e6546565504%_ + (gx#syntax-e _%g6545865501%_))) + (let ((_%hd6546665508%_ (let () (declare (not safe)) - (##car _%e6541965458%_))) - (_%tl6542165465%_ + (##car _%e6546565504%_))) + (_%tl6546765511%_ (let () (declare (not safe)) - (##cdr _%e6541965458%_)))) - (if (gx#stx-pair? _%tl6542165465%_) - (let ((_%e6542265468%_ + (##cdr _%e6546565504%_)))) + (if (gx#stx-pair? _%tl6546765511%_) + (let ((_%e6546865514%_ (gx#syntax-e - _%tl6542165465%_))) - (let ((_%hd6542365472%_ + _%tl6546765511%_))) + (let ((_%hd6546965518%_ (let () (declare (not safe)) - (##car _%e6542265468%_))) - (_%tl6542465475%_ + (##car _%e6546865514%_))) + (_%tl6547065521%_ (let () (declare (not safe)) - (##cdr _%e6542265468%_)))) + (##cdr _%e6546865514%_)))) (if (gx#stx-pair? - _%tl6542465475%_) - (let ((_%e6542565478%_ + _%tl6547065521%_) + (let ((_%e6547165524%_ (gx#syntax-e - _%tl6542465475%_))) - (let ((_%hd6542665482%_ + _%tl6547065521%_))) + (let ((_%hd6547265528%_ (let () (declare (not safe)) - (##car _%e6542565478%_))) - (_%tl6542765485%_ + (##car _%e6547165524%_))) + (_%tl6547365531%_ (let () (declare (not safe)) - (##cdr _%e6542565478%_)))) + (##cdr _%e6547165524%_)))) (if (gx#stx-pair? - _%tl6542765485%_) - (let ((_%e6542865488%_ + _%tl6547365531%_) + (let ((_%e6547465534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6542765485%_))) - (let ((_%hd6542965492%_ + (gx#syntax-e _%tl6547365531%_))) + (let ((_%hd6547565538%_ (let () (declare (not safe)) - (##car _%e6542865488%_))) - (_%tl6543065495%_ + (##car _%e6547465534%_))) + (_%tl6547665541%_ (let () (declare (not safe)) - (##cdr _%e6542865488%_)))) - (if (gx#stx-pair? _%tl6543065495%_) - (let ((_%e6543165498%_ - (gx#syntax-e _%tl6543065495%_))) - (let ((_%hd6543265502%_ + (##cdr _%e6547465534%_)))) + (if (gx#stx-pair? _%tl6547665541%_) + (let ((_%e6547765544%_ + (gx#syntax-e _%tl6547665541%_))) + (let ((_%hd6547865548%_ (let () (declare (not safe)) - (##car _%e6543165498%_))) - (_%tl6543365505%_ + (##car _%e6547765544%_))) + (_%tl6547965551%_ (let () (declare (not safe)) - (##cdr _%e6543165498%_)))) - (if (gx#stx-pair? _%tl6543365505%_) - (let ((_%e6543465508%_ - (gx#syntax-e _%tl6543365505%_))) - (let ((_%hd6543565512%_ + (##cdr _%e6547765544%_)))) + (if (gx#stx-pair? _%tl6547965551%_) + (let ((_%e6548065554%_ + (gx#syntax-e _%tl6547965551%_))) + (let ((_%hd6548165558%_ (let () (declare (not safe)) - (##car _%e6543465508%_))) - (_%tl6543665515%_ + (##car _%e6548065554%_))) + (_%tl6548265561%_ (let () (declare (not safe)) - (##cdr _%e6543465508%_)))) - (if (gx#stx-pair/null? _%hd6543565512%_) - (let ((_g84133_ + (##cdr _%e6548065554%_)))) + (if (gx#stx-pair/null? _%hd6548165558%_) + (let ((_g84179_ (gx#syntax-split-splice - _%hd6543565512%_ + _%hd6548165558%_ '0))) (begin - (let ((_g84134_ + (let ((_g84180_ (let () (declare (not safe)) - (if (##values? _g84133_) + (if (##values? _g84179_) (##vector-length - _g84133_) + _g84179_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84134_ 2))) + (##fx= _g84180_ 2))) (error "Context expects 2 values" - _g84134_))) - (let ((_%target6543765518%_ + _g84180_))) + (let ((_%target6548365564%_ (let () (declare (not safe)) (##vector-ref - _g84133_ + _g84179_ 0))) - (_%tl6543965521%_ + (_%tl6548565567%_ (let () (declare (not safe)) (##vector-ref - _g84133_ + _g84179_ 1)))) (if (gx#stx-null? - _%tl6543965521%_) - (letrec ((_%loop6544065524%_ - (lambda (_%hd6543865528%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6544465531%_) - (if (gx#stx-pair? _%hd6543865528%_) - (let ((_%e6544165534%_ - (gx#syntax-e _%hd6543865528%_))) - (let ((_%lp-hd6544265538%_ + _%tl6548565567%_) + (letrec ((_%loop6548665570%_ + (lambda (_%hd6548465574%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6549065577%_) + (if (gx#stx-pair? _%hd6548465574%_) + (let ((_%e6548765580%_ + (gx#syntax-e _%hd6548465574%_))) + (let ((_%lp-hd6548865584%_ (let () (declare (not safe)) - (##car _%e6544165534%_))) - (_%lp-tl6544365541%_ + (##car _%e6548765580%_))) + (_%lp-tl6548965587%_ (let () (declare (not safe)) - (##cdr _%e6544165534%_)))) - (_%loop6544065524%_ - _%lp-tl6544365541%_ - (cons _%lp-hd6544265538%_ - _%body6544465531%_)))) - (let ((_%body6544565544%_ - (reverse _%body6544465531%_))) - (if (gx#stx-null? _%tl6543665515%_) - ((lambda (_%L65548%_ - _%L65550%_ - _%L65551%_ - _%L65552%_ - _%L65553%_ - _%L65554%_) + (##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%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65554%_ _%L65553%_) + (cons (cons _%L65600%_ _%L65599%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65552%_ + (cons (cons _%L65598%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65551%_ (cons '#f '()))) + (cons _%L65597%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L65550%_ '())) + (cons _%L65596%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65552%_ - (foldr (lambda (_%g6558565588%_ + (cons _%L65598%_ + (foldr (lambda (_%g6563165634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6558665591%_) - (cons _%g6558565588%_ _%g6558665591%_)) + _%g6563265637%_) + (cons _%g6563165634%_ _%g6563265637%_)) '() - _%L65548%_))) + _%L65594%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64497%_))) - _%body6544565544%_ - _%hd6543265502%_ - _%hd6542965492%_ - _%hd6542665482%_ - _%hd6542365472%_ - _%hd6542065462%_) - (_%g6541165451%_ _%g6541265455%_))))))) - (_%loop6544065524%_ _%target6543765518%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6541165451%_ - _%g6541265455%_))))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6541165451%_ - _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_))))) - (_%g6541065594%_ - (list _%id65405%_ + (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%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65407%_)) - _%signature65407%_ - _%return65408%_ + _%signature65453%_)) + _%signature65453%_ + _%return65454%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64497%_ - _%return65408%_)) - _%body65409%_))))) - (_%make-checked-def64503%_ - (lambda (_%id65186%_ - _%unchecked-id65188%_ - _%signature65189%_ - _%return65190%_) - (let* ((_%g6519265236%_ - (lambda (_%g6519365232%_) + _%stx64543%_ + _%return65454%_)) + _%body65455%_))))) + (_%make-checked-def64549%_ + (lambda (_%id65232%_ + _%unchecked-id65234%_ + _%signature65235%_ + _%return65236%_) + (let* ((_%g6523865282%_ + (lambda (_%g6523965278%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6519365232%_))) - (_%g6519165401%_ - (lambda (_%g6519365240%_) - (if (gx#stx-pair? _%g6519365240%_) - (let ((_%e6520165243%_ - (gx#syntax-e _%g6519365240%_))) - (let ((_%hd6520265247%_ + _%g6523965278%_))) + (_%g6523765447%_ + (lambda (_%g6523965286%_) + (if (gx#stx-pair? _%g6523965286%_) + (let ((_%e6524765289%_ + (gx#syntax-e _%g6523965286%_))) + (let ((_%hd6524865293%_ (let () (declare (not safe)) - (##car _%e6520165243%_))) - (_%tl6520365250%_ + (##car _%e6524765289%_))) + (_%tl6524965296%_ (let () (declare (not safe)) - (##cdr _%e6520165243%_)))) - (if (gx#stx-pair? _%tl6520365250%_) - (let ((_%e6520465253%_ + (##cdr _%e6524765289%_)))) + (if (gx#stx-pair? _%tl6524965296%_) + (let ((_%e6525065299%_ (gx#syntax-e - _%tl6520365250%_))) - (let ((_%hd6520565257%_ + _%tl6524965296%_))) + (let ((_%hd6525165303%_ (let () (declare (not safe)) - (##car _%e6520465253%_))) - (_%tl6520665260%_ + (##car _%e6525065299%_))) + (_%tl6525265306%_ (let () (declare (not safe)) - (##cdr _%e6520465253%_)))) + (##cdr _%e6525065299%_)))) (if (gx#stx-pair? - _%tl6520665260%_) - (let ((_%e6520765263%_ + _%tl6525265306%_) + (let ((_%e6525365309%_ (gx#syntax-e - _%tl6520665260%_))) - (let ((_%hd6520865267%_ + _%tl6525265306%_))) + (let ((_%hd6525465313%_ (let () (declare (not safe)) - (##car _%e6520765263%_))) - (_%tl6520965270%_ + (##car _%e6525365309%_))) + (_%tl6525565316%_ (let () (declare (not safe)) - (##cdr _%e6520765263%_)))) + (##cdr _%e6525365309%_)))) (if (gx#stx-pair? - _%tl6520965270%_) - (let ((_%e6521065273%_ + _%tl6525565316%_) + (let ((_%e6525665319%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6520965270%_))) - (let ((_%hd6521165277%_ + (gx#syntax-e _%tl6525565316%_))) + (let ((_%hd6525765323%_ (let () (declare (not safe)) - (##car _%e6521065273%_))) - (_%tl6521265280%_ + (##car _%e6525665319%_))) + (_%tl6525865326%_ (let () (declare (not safe)) - (##cdr _%e6521065273%_)))) - (if (gx#stx-pair/null? _%hd6521165277%_) - (let ((_g84135_ - (gx#syntax-split-splice _%hd6521165277%_ '0))) + (##cdr _%e6525665319%_)))) + (if (gx#stx-pair/null? _%hd6525765323%_) + (let ((_g84181_ + (gx#syntax-split-splice _%hd6525765323%_ '0))) (begin - (let ((_g84136_ + (let ((_g84182_ (let () (declare (not safe)) - (if (##values? _g84135_) - (##vector-length _g84135_) + (if (##values? _g84181_) + (##vector-length _g84181_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84136_ 2))) + (##fx= _g84182_ 2))) (error "Context expects 2 values" - _g84136_))) - (let ((_%target6521365283%_ + _g84182_))) + (let ((_%target6525965329%_ (let () (declare (not safe)) - (##vector-ref _g84135_ 0))) - (_%tl6521565286%_ + (##vector-ref _g84181_ 0))) + (_%tl6526165332%_ (let () (declare (not safe)) - (##vector-ref _g84135_ 1)))) - (if (gx#stx-null? _%tl6521565286%_) - (letrec ((_%loop6521665289%_ - (lambda (_%hd6521465293%_ - _%out6522065296%_) + (##vector-ref _g84181_ 1)))) + (if (gx#stx-null? _%tl6526165332%_) + (letrec ((_%loop6526265335%_ + (lambda (_%hd6526065339%_ + _%out6526665342%_) (if (gx#stx-pair? - _%hd6521465293%_) - (let ((_%e6521765299%_ + _%hd6526065339%_) + (let ((_%e6526365345%_ (gx#syntax-e - _%hd6521465293%_))) - (let ((_%lp-hd6521865303%_ + _%hd6526065339%_))) + (let ((_%lp-hd6526465349%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6521765299%_))) - (_%lp-tl6521965306%_ - (let () (declare (not safe)) (##cdr _%e6521765299%_)))) - (_%loop6521665289%_ - _%lp-tl6521965306%_ - (cons _%lp-hd6521865303%_ _%out6522065296%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%out6522165309%_ - (reverse _%out6522065296%_))) + (##car _%e6526365345%_))) + (_%lp-tl6526565352%_ + (let () (declare (not safe)) (##cdr _%e6526365345%_)))) + (_%loop6526265335%_ + _%lp-tl6526565352%_ + (cons _%lp-hd6526465349%_ _%out6526665342%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%out6526765355%_ + (reverse _%out6526665342%_))) (if (gx#stx-pair? - _%tl6521265280%_) - (let ((_%e6522265313%_ + _%tl6525865326%_) + (let ((_%e6526865359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6521265280%_))) - (let ((_%hd6522365317%_ + (gx#syntax-e _%tl6525865326%_))) + (let ((_%hd6526965363%_ (let () (declare (not safe)) - (##car _%e6522265313%_))) - (_%tl6522465320%_ + (##car _%e6526865359%_))) + (_%tl6527065366%_ (let () (declare (not safe)) - (##cdr _%e6522265313%_)))) - (if (gx#stx-pair? _%tl6522465320%_) - (let ((_%e6522565323%_ - (gx#syntax-e _%tl6522465320%_))) - (let ((_%hd6522665327%_ + (##cdr _%e6526865359%_)))) + (if (gx#stx-pair? _%tl6527065366%_) + (let ((_%e6527165369%_ + (gx#syntax-e _%tl6527065366%_))) + (let ((_%hd6527265373%_ (let () (declare (not safe)) - (##car _%e6522565323%_))) - (_%tl6522765330%_ + (##car _%e6527165369%_))) + (_%tl6527365376%_ (let () (declare (not safe)) - (##cdr _%e6522565323%_)))) - (if (gx#stx-pair? _%tl6522765330%_) - (let ((_%e6522865333%_ - (gx#syntax-e _%tl6522765330%_))) - (let ((_%hd6522965337%_ + (##cdr _%e6527165369%_)))) + (if (gx#stx-pair? _%tl6527365376%_) + (let ((_%e6527465379%_ + (gx#syntax-e _%tl6527365376%_))) + (let ((_%hd6527565383%_ (let () (declare (not safe)) - (##car _%e6522865333%_))) - (_%tl6523065340%_ + (##car _%e6527465379%_))) + (_%tl6527665386%_ (let () (declare (not safe)) - (##cdr _%e6522865333%_)))) - (if (gx#stx-null? _%tl6523065340%_) - ((lambda (_%L65343%_ - _%L65345%_ - _%L65346%_ - _%L65347%_ - _%L65348%_ - _%L65349%_ - _%L65350%_) - (if (gx#stx-list? _%L65346%_) + (##cdr _%e6527465379%_)))) + (if (gx#stx-null? _%tl6527665386%_) + ((lambda (_%L65389%_ + _%L65391%_ + _%L65392%_ + _%L65393%_ + _%L65394%_ + _%L65395%_ + _%L65396%_) + (if (gx#stx-list? _%L65392%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65350%_ + (cons (cons _%L65396%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65348%_) + _%L65394%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65346%_ - (cons _%L65345%_ - (cons _%L65349%_ '()))) + (cons (cons _%L65392%_ + (cons _%L65391%_ + (cons _%L65395%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -828,36 +828,36 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65343%_ '())) + (cons _%L65389%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65346%_ - (cons (cons _%L65349%_ - (foldr (lambda (_%g6538465387%_ - _%g6538565390%_) - (cons _%g6538465387%_ - _%g6538565390%_)) + (cons _%L65392%_ + (cons (cons _%L65395%_ + (foldr (lambda (_%g6543065433%_ + _%g6543165436%_) + (cons _%g6543065433%_ + _%g6543165436%_)) '() - _%L65347%_)) + _%L65393%_)) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64497%_)) + (gx#stx-source _%stx64543%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65350%_ + (cons (cons _%L65396%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65348%_) + _%L65394%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65346%_ - (cons _%L65345%_ - (cons _%L65349%_ '()))) + (cons (cons _%L65392%_ + (cons _%L65391%_ + (cons _%L65395%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -865,17 +865,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65343%_ '())) + (cons _%L65389%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65346%_ + (cons _%L65392%_ (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L65349%_ - (foldr (lambda (_%g6539265395%_ + (cons _%L65395%_ + (foldr (lambda (_%g6543865441%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6539365398%_) - (cons _%g6539265395%_ _%g6539365398%_)) + _%g6543965444%_) + (cons _%g6543865441%_ _%g6543965444%_)) '() - _%L65347%_))) + _%L65393%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) @@ -884,2311 +884,2311 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx64497%_)))) - _%hd6522965337%_ - _%hd6522665327%_ - _%hd6522365317%_ - _%out6522165309%_ - _%hd6520865267%_ - _%hd6520565257%_ - _%hd6520265247%_) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6521665289%_ - _%target6521365283%_ + _%stx64543%_)))) + _%hd6527565383%_ + _%hd6527265373%_ + _%hd6526965363%_ + _%out6526765355%_ + _%hd6525465313%_ + _%hd6525165303%_ + _%hd6524865293%_) + (_%g6523865282%_ _%g6523965286%_)))) + (_%g6523865282%_ _%g6523965286%_)))) + (_%g6523865282%_ _%g6523965286%_)))) + (_%g6523865282%_ _%g6523965286%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6526265335%_ + _%target6525965329%_ '())) - (_%g6519265236%_ _%g6519365240%_))))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6519265236%_ - _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_))))) - (_%g6519165401%_ - (list _%id65186%_ - _%unchecked-id65188%_ + (_%g6523865282%_ _%g6523965286%_))))) + (_%g6523865282%_ _%g6523965286%_)))) + (_%g6523865282%_ _%g6523965286%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6523865282%_ + _%g6523965286%_)))) + (_%g6523865282%_ _%g6523965286%_)))) + (_%g6523865282%_ _%g6523965286%_))))) + (_%g6523765447%_ + (list _%id65232%_ + _%unchecked-id65234%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65189%_)) + _%signature65235%_)) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature65189%_)) - _%signature65189%_ - _%return65190%_ + _%signature65235%_)) + _%signature65235%_ + _%return65236%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64497%_ - _%return65190%_))))))) - (_%make-unchecked-def64504%_ - (lambda (_%unchecked-id65011%_ - _%signature65013%_ - _%return65014%_ - _%body65015%_) - (let* ((_%g6501765053%_ - (lambda (_%g6501865049%_) + _%stx64543%_ + _%return65236%_))))))) + (_%make-unchecked-def64550%_ + (lambda (_%unchecked-id65057%_ + _%signature65059%_ + _%return65060%_ + _%body65061%_) + (let* ((_%g6506365099%_ + (lambda (_%g6506465095%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6501865049%_))) - (_%g6501665182%_ - (lambda (_%g6501865057%_) - (if (gx#stx-pair? _%g6501865057%_) - (let ((_%e6502465060%_ - (gx#syntax-e _%g6501865057%_))) - (let ((_%hd6502565064%_ + _%g6506465095%_))) + (_%g6506265228%_ + (lambda (_%g6506465103%_) + (if (gx#stx-pair? _%g6506465103%_) + (let ((_%e6507065106%_ + (gx#syntax-e _%g6506465103%_))) + (let ((_%hd6507165110%_ (let () (declare (not safe)) - (##car _%e6502465060%_))) - (_%tl6502665067%_ + (##car _%e6507065106%_))) + (_%tl6507265113%_ (let () (declare (not safe)) - (##cdr _%e6502465060%_)))) - (if (gx#stx-pair? _%tl6502665067%_) - (let ((_%e6502765070%_ + (##cdr _%e6507065106%_)))) + (if (gx#stx-pair? _%tl6507265113%_) + (let ((_%e6507365116%_ (gx#syntax-e - _%tl6502665067%_))) - (let ((_%hd6502865074%_ + _%tl6507265113%_))) + (let ((_%hd6507465120%_ (let () (declare (not safe)) - (##car _%e6502765070%_))) - (_%tl6502965077%_ + (##car _%e6507365116%_))) + (_%tl6507565123%_ (let () (declare (not safe)) - (##cdr _%e6502765070%_)))) + (##cdr _%e6507365116%_)))) (if (gx#stx-pair? - _%tl6502965077%_) - (let ((_%e6503065080%_ + _%tl6507565123%_) + (let ((_%e6507665126%_ (gx#syntax-e - _%tl6502965077%_))) - (let ((_%hd6503165084%_ + _%tl6507565123%_))) + (let ((_%hd6507765130%_ (let () (declare (not safe)) - (##car _%e6503065080%_))) - (_%tl6503265087%_ + (##car _%e6507665126%_))) + (_%tl6507865133%_ (let () (declare (not safe)) - (##cdr _%e6503065080%_)))) + (##cdr _%e6507665126%_)))) (if (gx#stx-pair? - _%tl6503265087%_) - (let ((_%e6503365090%_ + _%tl6507865133%_) + (let ((_%e6507965136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6503265087%_))) - (let ((_%hd6503465094%_ + (gx#syntax-e _%tl6507865133%_))) + (let ((_%hd6508065140%_ (let () (declare (not safe)) - (##car _%e6503365090%_))) - (_%tl6503565097%_ + (##car _%e6507965136%_))) + (_%tl6508165143%_ (let () (declare (not safe)) - (##cdr _%e6503365090%_)))) - (if (gx#stx-pair? _%tl6503565097%_) - (let ((_%e6503665100%_ - (gx#syntax-e _%tl6503565097%_))) - (let ((_%hd6503765104%_ + (##cdr _%e6507965136%_)))) + (if (gx#stx-pair? _%tl6508165143%_) + (let ((_%e6508265146%_ + (gx#syntax-e _%tl6508165143%_))) + (let ((_%hd6508365150%_ (let () (declare (not safe)) - (##car _%e6503665100%_))) - (_%tl6503865107%_ + (##car _%e6508265146%_))) + (_%tl6508465153%_ (let () (declare (not safe)) - (##cdr _%e6503665100%_)))) - (if (gx#stx-pair/null? _%hd6503765104%_) - (let ((_g84137_ + (##cdr _%e6508265146%_)))) + (if (gx#stx-pair/null? _%hd6508365150%_) + (let ((_g84183_ (gx#syntax-split-splice - _%hd6503765104%_ + _%hd6508365150%_ '0))) (begin - (let ((_g84138_ + (let ((_g84184_ (let () (declare (not safe)) - (if (##values? _g84137_) - (##vector-length _g84137_) + (if (##values? _g84183_) + (##vector-length _g84183_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84138_ 2))) + (##fx= _g84184_ 2))) (error "Context expects 2 values" - _g84138_))) - (let ((_%target6503965110%_ + _g84184_))) + (let ((_%target6508565156%_ (let () (declare (not safe)) - (##vector-ref _g84137_ 0))) - (_%tl6504165113%_ + (##vector-ref _g84183_ 0))) + (_%tl6508765159%_ (let () (declare (not safe)) - (##vector-ref _g84137_ 1)))) - (if (gx#stx-null? _%tl6504165113%_) - (letrec ((_%loop6504265116%_ - (lambda (_%hd6504065120%_ - _%body6504665123%_) + (##vector-ref _g84183_ 1)))) + (if (gx#stx-null? _%tl6508765159%_) + (letrec ((_%loop6508865162%_ + (lambda (_%hd6508665166%_ + _%body6509265169%_) (if (gx#stx-pair? - _%hd6504065120%_) - (let ((_%e6504365126%_ + _%hd6508665166%_) + (let ((_%e6508965172%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6504065120%_))) - (let ((_%lp-hd6504465130%_ + (gx#syntax-e _%hd6508665166%_))) + (let ((_%lp-hd6509065176%_ (let () (declare (not safe)) - (##car _%e6504365126%_))) - (_%lp-tl6504565133%_ + (##car _%e6508965172%_))) + (_%lp-tl6509165179%_ (let () (declare (not safe)) - (##cdr _%e6504365126%_)))) - (_%loop6504265116%_ - _%lp-tl6504565133%_ - (cons _%lp-hd6504465130%_ _%body6504665123%_)))) - (let ((_%body6504765136%_ (reverse _%body6504665123%_))) - (if (gx#stx-null? _%tl6503865107%_) - ((lambda (_%L65140%_ - _%L65142%_ - _%L65143%_ - _%L65144%_ - _%L65145%_) + (##cdr _%e6508965172%_)))) + (_%loop6508865162%_ + _%lp-tl6509165179%_ + (cons _%lp-hd6509065176%_ _%body6509265169%_)))) + (let ((_%body6509365182%_ (reverse _%body6509265169%_))) + (if (gx#stx-null? _%tl6508465153%_) + ((lambda (_%L65186%_ + _%L65188%_ + _%L65189%_ + _%L65190%_ + _%L65191%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65145%_ _%L65144%_) + (cons (cons _%L65191%_ _%L65190%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65142%_ (cons '#f '()))) + (cons _%L65188%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-unchecked-contract) - (cons _%L65143%_ - (foldr (lambda (_%g6517365176%_ - _%g6517465179%_) - (cons _%g6517365176%_ - _%g6517465179%_)) + (cons _%L65189%_ + (foldr (lambda (_%g6521965222%_ + _%g6522065225%_) + (cons _%g6521965222%_ + _%g6522065225%_)) '() - _%L65140%_))) + _%L65186%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx64497%_))) - _%body6504765136%_ - _%hd6503465094%_ - _%hd6503165084%_ - _%hd6502865074%_ - _%hd6502565064%_) - (_%g6501765053%_ _%g6501865057%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6504265116%_ - _%target6503965110%_ + (gx#stx-source _%stx64543%_))) + _%body6509365182%_ + _%hd6508065140%_ + _%hd6507765130%_ + _%hd6507465120%_ + _%hd6507165110%_) + (_%g6506365099%_ _%g6506465103%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6508865162%_ + _%target6508565156%_ '())) - (_%g6501765053%_ - _%g6501865057%_))))) - (_%g6501765053%_ _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6501765053%_ - _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_))))) - (_%g6501665182%_ - (list _%unchecked-id65011%_ + (_%g6506365099%_ + _%g6506465103%_))))) + (_%g6506365099%_ _%g6506465103%_)))) + (_%g6506365099%_ _%g6506465103%_)))) + (_%g6506365099%_ _%g6506465103%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6506365099%_ + _%g6506465103%_)))) + (_%g6506365099%_ _%g6506465103%_)))) + (_%g6506365099%_ _%g6506465103%_))))) + (_%g6506265228%_ + (list _%unchecked-id65057%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65013%_)) - _%signature65013%_ - _%return65014%_ - _%body65015%_)))))) - (let* ((_%__stx8211082111%_ _%stx64497%_) - (_%g6450964601%_ + _%signature65059%_)) + _%signature65059%_ + _%return65060%_ + _%body65061%_)))))) + (let* ((_%__stx8215682157%_ _%stx64543%_) + (_%g6455564647%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8211082111%_)))) - (let ((_%__kont8211382114%_ - (lambda (_%L64962%_ _%L64964%_ _%L64965%_ _%L64966%_) + _%__stx8215682157%_)))) + (let ((_%__kont8215982160%_ + (lambda (_%L65008%_ _%L65010%_ _%L65011%_ _%L65012%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64965%_) - (_%make-definition64500%_ - _%L64966%_ - _%L64965%_ - _%L64964%_ - (foldr (lambda (_%g6499064993%_ _%g6499164996%_) - (cons _%g6499064993%_ _%g6499164996%_)) + _%L65011%_) + (_%make-definition64546%_ + _%L65012%_ + _%L65011%_ + _%L65010%_ + (foldr (lambda (_%g6503665039%_ _%g6503765042%_) + (cons _%g6503665039%_ _%g6503765042%_)) '() - _%L64962%_)) + _%L65008%_)) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64966%_ _%L64965%_) + (cons (cons _%L65012%_ _%L65011%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L64964%_ + (cons _%L65010%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6499865001%_ _%g6499965004%_) - (cons _%g6499865001%_ _%g6499965004%_)) + (foldr (lambda (_%g6504465047%_ _%g6504565050%_) + (cons _%g6504465047%_ _%g6504565050%_)) '() - _%L64962%_))) + _%L65008%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8211782118%_ - (lambda (_%L64836%_ _%L64838%_ _%L64839%_) + (_%__kont8216382164%_ + (lambda (_%L64882%_ _%L64884%_ _%L64885%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64838%_) + _%L64884%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64839%_ _%L64838%_) + (cons (cons _%L64885%_ _%L64884%_) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6485864861%_ + (foldr (lambda (_%g6490464907%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6485964864%_) - (cons _%g6485864861%_ _%g6485964864%_)) + _%g6490564910%_) + (cons _%g6490464907%_ _%g6490564910%_)) '() - _%L64836%_))))) + _%L64882%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64839%_ _%L64838%_) - (foldr (lambda (_%g6486664869%_ - _%g6486764872%_) - (cons _%g6486664869%_ - _%g6486764872%_)) + (cons (cons _%L64885%_ _%L64884%_) + (foldr (lambda (_%g6491264915%_ + _%g6491364918%_) + (cons _%g6491264915%_ + _%g6491364918%_)) '() - _%L64836%_)))))) - (_%__kont8212182122%_ - (lambda (_%L64734%_ _%L64736%_ _%L64737%_ _%L64738%_) + _%L64882%_)))))) + (_%__kont8216782168%_ + (lambda (_%L64780%_ _%L64782%_ _%L64783%_ _%L64784%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64738%_ _%L64737%_) + (cons (cons _%L64784%_ _%L64783%_) (cons (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L64736%_ - (foldr (lambda (_%g6476064763%_ + (cons _%L64782%_ + (foldr (lambda (_%g6480664809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6476164766%_) - (cons _%g6476064763%_ _%g6476164766%_)) + _%g6480764812%_) + (cons _%g6480664809%_ _%g6480764812%_)) '() - _%L64734%_))) + _%L64780%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8212582126%_ - (lambda (_%L64638%_ _%L64640%_) + (_%__kont8217182172%_ + (lambda (_%L64684%_ _%L64686%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L64640%_ (cons _%L64638%_ '())))))) - (let* ((_%__match8224782248%_ - (lambda (_%e6458764608%_ - _%hd6458864612%_ - _%tl6458964615%_ - _%e6459064618%_ - _%hd6459164622%_ - _%tl6459264625%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) - (let ((_%L64638%_ _%hd6459464632%_) - (_%L64640%_ _%hd6459164622%_)) - (if (gx#identifier? _%L64640%_) - (_%__kont8212582126%_ _%L64638%_ _%L64640%_) + (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%_) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (_%__match8222782228%_ - (lambda (_%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6457064684%_ - _%hd6457164688%_ - _%tl6457264691%_ - _%e6457364694%_ - _%hd6457464698%_ - _%tl6457564701%_ - _%__splice8212382124%_ - _%target6457664704%_ - _%tl6457864707%_) - (letrec ((_%loop6457964710%_ - (lambda (_%hd6457764714%_ _%body6458364717%_) - (if (gx#stx-pair? _%hd6457764714%_) - (let ((_%e6458064720%_ - (gx#syntax-e _%hd6457764714%_))) - (let ((_%lp-tl6458264727%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e6458064720%_))) - (_%lp-hd6458164724%_ + (##cdr _%e6462664766%_))) + (_%lp-hd6462764770%_ (let () (declare (not safe)) - (##car _%e6458064720%_)))) - (_%loop6457964710%_ - _%lp-tl6458264727%_ - (cons _%lp-hd6458164724%_ - _%body6458364717%_)))) - (let ((_%body6458464730%_ - (reverse _%body6458364717%_))) - (_%__kont8212182122%_ - _%body6458464730%_ - _%tl6457264691%_ - _%tl6457564701%_ - _%hd6457464698%_)))))) - (_%loop6457964710%_ _%target6457664704%_ '())))) - (_%__match8221382214%_ - (lambda (_%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6457064684%_ - _%hd6457164688%_ - _%tl6457264691%_) - (if (gx#stx-pair? _%hd6457164688%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6457164688%_))) - (let ((_%tl6457564701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-pair/null? _%tl6456964681%_) - (let ((_%__splice8212382124%_ + (##car _%e6461964740%_)))) + (if (gx#stx-pair/null? _%tl6461564727%_) + (let ((_%__splice8216982170%_ (gx#syntax-split-splice - _%tl6456964681%_ + _%tl6461564727%_ '0))) - (let ((_%tl6457864707%_ + (let ((_%tl6462464753%_ (let () (declare (not safe)) (##vector-ref - _%__splice8212382124%_ + _%__splice8216982170%_ '1))) - (_%target6457664704%_ + (_%target6462264750%_ (let () (declare (not safe)) (##vector-ref - _%__splice8212382124%_ + _%__splice8216982170%_ '0)))) - (if (gx#stx-null? _%tl6457864707%_) - (_%__match8222782228%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6457064684%_ - _%hd6457164688%_ - _%tl6457264691%_ - _%e6457364694%_ - _%hd6457464698%_ - _%tl6457564701%_ - _%__splice8212382124%_ - _%target6457664704%_ - _%tl6457864707%_) - (if (gx#stx-pair? _%tl6456964681%_) - (let ((_%e6459364628%_ + (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%_ (gx#syntax-e - _%tl6456964681%_))) - (let ((_%tl6459564635%_ + _%tl6461564727%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) + (##car _%e6463964674%_)))) (if (gx#stx-null? - _%tl6459564635%_) - (_%__match8224782248%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + _%tl6464164681%_) + (_%__match8229382294%_ + _%e6461064710%_ + _%hd6461164714%_ + _%tl6461264717%_ + _%e6461364720%_ + _%hd6461464724%_ + _%tl6461564727%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%tl6456964681%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6456964681%_))) - (let ((_%tl6459564635%_ + (_%g6455564647%_)))))) + (if (gx#stx-pair? _%tl6461564727%_) + (let ((_%e6463964674%_ + (gx#syntax-e _%tl6461564727%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6463964674%_)))) + (if (gx#stx-null? _%tl6464164681%_) + (_%__match8229382294%_ + _%e6461064710%_ + _%hd6461164714%_ + _%tl6461264717%_ + _%e6461364720%_ + _%hd6461464724%_ + _%tl6461564727%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%tl6456964681%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6456964681%_))) - (let ((_%tl6459564635%_ + (_%g6455564647%_)))))) + (if (gx#stx-pair? _%tl6461564727%_) + (let ((_%e6463964674%_ + (gx#syntax-e _%tl6461564727%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6463964674%_)))) + (if (gx#stx-null? _%tl6464164681%_) + (_%__match8229382294%_ + _%e6461064710%_ + _%hd6461164714%_ + _%tl6461264717%_ + _%e6461364720%_ + _%hd6461464724%_ + _%tl6461564727%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (_%__match8219582196%_ - (lambda (_%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (letrec ((_%loop6455464812%_ - (lambda (_%hd6455264816%_ _%body6455864819%_) - (if (gx#stx-pair? _%hd6455264816%_) - (let ((_%e6455564822%_ - (gx#syntax-e _%hd6455264816%_))) - (let ((_%lp-tl6455764829%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e6455564822%_))) - (_%lp-hd6455664826%_ + (##cdr _%e6460164868%_))) + (_%lp-hd6460264872%_ (let () (declare (not safe)) - (##car _%e6455564822%_)))) - (_%loop6455464812%_ - _%lp-tl6455764829%_ - (cons _%lp-hd6455664826%_ - _%body6455864819%_)))) - (let ((_%body6455964832%_ - (reverse _%body6455864819%_))) - (let ((_%L64836%_ _%body6455964832%_) - (_%L64838%_ _%tl6455064803%_) - (_%L64839%_ _%hd6454964800%_)) - (if (gx#identifier? _%L64839%_) - (_%__kont8211782118%_ - _%L64836%_ - _%L64838%_ - _%L64839%_) - (_%__match8221382214%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_)))))))) - (_%loop6455464812%_ _%target6455164806%_ '())))) - (_%__match8218782188%_ - (lambda (_%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_) - (if (gx#stx-pair/null? _%tl6454764793%_) - (let ((_%__splice8211982120%_ + (##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%_ (gx#syntax-split-splice - _%tl6454764793%_ + _%tl6459364839%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6459964855%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '1))) - (_%target6455164806%_ + (_%target6459764852%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6454964800%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6454964800%_))) - (let ((_%tl6457564701%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ + (##car _%e6461964740%_)))) + (if (gx#stx-pair? _%tl6459364839%_) + (let ((_%e6463964674%_ (gx#syntax-e - _%tl6454764793%_))) - (let ((_%tl6459564635%_ + _%tl6459364839%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) + (##car _%e6463964674%_)))) (if (gx#stx-null? - _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + _%tl6464164681%_) + (_%__match8229382294%_ + _%e6458864822%_ + _%hd6458964826%_ + _%tl6459064829%_ + _%e6459164832%_ + _%hd6459264836%_ + _%tl6459364839%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ + (_%g6455564647%_))))) + (if (gx#stx-pair? _%tl6459364839%_) + (let ((_%e6463964674%_ (gx#syntax-e - _%tl6454764793%_))) - (let ((_%tl6459564635%_ + _%tl6459364839%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) + (##car _%e6463964674%_)))) (if (gx#stx-null? - _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + _%tl6464164681%_) + (_%__match8229382294%_ + _%e6458864822%_ + _%hd6458964826%_ + _%tl6459064829%_ + _%e6459164832%_ + _%hd6459264836%_ + _%tl6459364839%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6454964800%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6454964800%_))) - (let ((_%tl6457564701%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair? _%hd6459564846%_) + (let ((_%e6461964740%_ + (gx#syntax-e _%hd6459564846%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6454764793%_))) - (let ((_%tl6459564635%_ + (##car _%e6461964740%_)))) + (if (gx#stx-pair? _%tl6459364839%_) + (let ((_%e6463964674%_ + (gx#syntax-e _%tl6459364839%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6463964674%_)))) + (if (gx#stx-null? _%tl6464164681%_) + (_%__match8229382294%_ + _%e6458864822%_ + _%hd6458964826%_ + _%tl6459064829%_ + _%e6459164832%_ + _%hd6459264836%_ + _%tl6459364839%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6454764793%_))) - (let ((_%tl6459564635%_ + (_%g6455564647%_))))) + (if (gx#stx-pair? _%tl6459364839%_) + (let ((_%e6463964674%_ + (gx#syntax-e _%tl6459364839%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6463964674%_)))) + (if (gx#stx-null? _%tl6464164681%_) + (_%__match8229382294%_ + _%e6458864822%_ + _%hd6458964826%_ + _%tl6459064829%_ + _%e6459164832%_ + _%hd6459264836%_ + _%tl6459364839%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (_%__match8216982170%_ - (lambda (_%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_ - _%e6452764922%_ - _%hd6452864926%_ - _%tl6452964929%_ - _%__splice8211582116%_ - _%target6453064932%_ - _%tl6453264935%_) - (letrec ((_%loop6453364938%_ - (lambda (_%hd6453164942%_ _%body6453764945%_) - (if (gx#stx-pair? _%hd6453164942%_) - (let ((_%e6453464948%_ - (gx#syntax-e _%hd6453164942%_))) - (let ((_%lp-tl6453664955%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e6453464948%_))) - (_%lp-hd6453564952%_ + (##cdr _%e6458064994%_))) + (_%lp-hd6458164998%_ (let () (declare (not safe)) - (##car _%e6453464948%_)))) - (_%loop6453364938%_ - _%lp-tl6453664955%_ - (cons _%lp-hd6453564952%_ - _%body6453764945%_)))) - (let ((_%body6453864958%_ - (reverse _%body6453764945%_))) - (let ((_%L64962%_ _%body6453864958%_) - (_%L64964%_ _%hd6452864926%_) - (_%L64965%_ _%tl6452364909%_) - (_%L64966%_ _%hd6452264906%_)) - (if (gx#identifier? _%L64966%_) - (_%__kont8211382114%_ - _%L64962%_ - _%L64964%_ - _%L64965%_ - _%L64966%_) - (_%__match8218782188%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_)))))))) - (_%loop6453364938%_ _%target6453064932%_ '()))))) - (if (gx#stx-pair? _%__stx8211082111%_) - (let ((_%e6451564882%_ (gx#syntax-e _%__stx8211082111%_))) - (let ((_%tl6451764889%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6451564882%_))) - (_%hd6451664886%_ + (##cdr _%e6456164928%_))) + (_%hd6456264932%_ (let () (declare (not safe)) - (##car _%e6451564882%_)))) - (if (gx#stx-pair? _%tl6451764889%_) - (let ((_%e6451864892%_ - (gx#syntax-e _%tl6451764889%_))) - (let ((_%tl6452064899%_ + (##car _%e6456164928%_)))) + (if (gx#stx-pair? _%tl6456364935%_) + (let ((_%e6456464938%_ + (gx#syntax-e _%tl6456364935%_))) + (let ((_%tl6456664945%_ (let () (declare (not safe)) - (##cdr _%e6451864892%_))) - (_%hd6451964896%_ + (##cdr _%e6456464938%_))) + (_%hd6456564942%_ (let () (declare (not safe)) - (##car _%e6451864892%_)))) - (if (gx#stx-pair? _%hd6451964896%_) - (let ((_%e6452164902%_ - (gx#syntax-e _%hd6451964896%_))) - (let ((_%tl6452364909%_ + (##car _%e6456464938%_)))) + (if (gx#stx-pair? _%hd6456564942%_) + (let ((_%e6456764948%_ + (gx#syntax-e _%hd6456564942%_))) + (let ((_%tl6456964955%_ (let () (declare (not safe)) - (##cdr _%e6452164902%_))) - (_%hd6452264906%_ + (##cdr _%e6456764948%_))) + (_%hd6456864952%_ (let () (declare (not safe)) - (##car _%e6452164902%_)))) - (if (gx#stx-pair? _%tl6452064899%_) - (let ((_%e6452464912%_ + (##car _%e6456764948%_)))) + (if (gx#stx-pair? _%tl6456664945%_) + (let ((_%e6457064958%_ (gx#syntax-e - _%tl6452064899%_))) - (let ((_%tl6452664919%_ + _%tl6456664945%_))) + (let ((_%tl6457264965%_ (let () (declare (not safe)) - (##cdr _%e6452464912%_))) - (_%hd6452564916%_ + (##cdr _%e6457064958%_))) + (_%hd6457164962%_ (let () (declare (not safe)) - (##car _%e6452464912%_)))) + (##car _%e6457064958%_)))) (if (gx#identifier? - _%hd6452564916%_) + _%hd6457164962%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84139_| - _%hd6452564916%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84185_| + _%hd6457164962%_) (if (gx#stx-pair? - _%tl6452664919%_) - (let ((_%e6452764922%_ + _%tl6457264965%_) + (let ((_%e6457364968%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6452664919%_))) - (let ((_%tl6452964929%_ + (gx#syntax-e _%tl6457264965%_))) + (let ((_%tl6457564975%_ (let () (declare (not safe)) - (##cdr _%e6452764922%_))) - (_%hd6452864926%_ + (##cdr _%e6457364968%_))) + (_%hd6457464972%_ (let () (declare (not safe)) - (##car _%e6452764922%_)))) - (if (gx#stx-pair/null? _%tl6452964929%_) - (let ((_%__splice8211582116%_ + (##car _%e6457364968%_)))) + (if (gx#stx-pair/null? _%tl6457564975%_) + (let ((_%__splice8216182162%_ (gx#syntax-split-splice - _%tl6452964929%_ + _%tl6457564975%_ '0))) - (let ((_%tl6453264935%_ + (let ((_%tl6457864981%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211582116%_ + _%__splice8216182162%_ '1))) - (_%target6453064932%_ + (_%target6457664978%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211582116%_ + _%__splice8216182162%_ '0)))) - (if (gx#stx-null? _%tl6453264935%_) - (_%__match8216982170%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_ - _%e6452764922%_ - _%hd6452864926%_ - _%tl6452964929%_ - _%__splice8211582116%_ - _%target6453064932%_ - _%tl6453264935%_) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ + (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%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6456664945%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6459964855%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '1))) - (_%target6455164806%_ + (_%target6459764852%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) + (if (gx#stx-null? _%tl6459964855%_) + (_%__match8224182242%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6456764948%_ + _%hd6456864952%_ + _%tl6456964955%_ + _%__splice8216582166%_ + _%target6459764852%_ + _%tl6459964855%_) (if (gx#stx-pair? - _%hd6452264906%_) - (let ((_%e6457364694%_ + _%hd6456864952%_) + (let ((_%e6461964740%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ - (let () (declare (not safe)) (##car _%e6457364694%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))) + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ + (let () (declare (not safe)) (##car _%e6461964740%_)))) + (let () (declare (not safe)) (_%g6455564647%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ + (_%g6455564647%_)))))) + (if (gx#stx-pair? _%hd6456864952%_) + (let ((_%e6461964740%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) + (##car _%e6461964740%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))) + (_%g6455564647%_)))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair/null? _%tl6456664945%_) + (let ((_%__splice8216582166%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6456664945%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6459964855%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '1))) - (_%target6455164806%_ + (_%target6459764852%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ + (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 - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) + (##car _%e6461964740%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))) + (_%g6455564647%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6455564647%_)))))) + (if (gx#stx-pair? _%hd6456864952%_) + (let ((_%e6461964740%_ + (gx#syntax-e _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) + (##car _%e6461964740%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))) + (_%g6455564647%_)))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ - (gx#syntax-split-splice _%tl6452064899%_ '0))) - (let ((_%tl6455364809%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair/null? _%tl6456664945%_) + (let ((_%__splice8216582166%_ + (gx#syntax-split-splice _%tl6456664945%_ '0))) + (let ((_%tl6459964855%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '1))) - (_%target6455164806%_ + (##vector-ref _%__splice8216582166%_ '1))) + (_%target6459764852%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6461964740%_)))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6455564647%_))))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair? _%hd6456864952%_) + (let ((_%e6461964740%_ + (gx#syntax-e _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6461964740%_)))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6455564647%_))))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ - (gx#syntax-split-splice _%tl6452064899%_ '0))) - (let ((_%tl6455364809%_ + (_%g6455564647%_)))))) + (if (gx#stx-pair/null? _%tl6456664945%_) + (let ((_%__splice8216582166%_ + (gx#syntax-split-splice _%tl6456664945%_ '0))) + (let ((_%tl6459964855%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '1))) - (_%target6455164806%_ + (##vector-ref _%__splice8216582166%_ '1))) + (_%target6459764852%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6461964740%_)))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6455564647%_))))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair? _%hd6456864952%_) + (let ((_%e6461964740%_ (gx#syntax-e _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6461964740%_)))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) - (let () (declare (not safe)) (_%g6450964601%_)))))) + (_%g6455564647%_))))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) + (let () (declare (not safe)) (_%g6455564647%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6452064899%_) - (let ((_%__splice8211982120%_ + _%tl6456664945%_) + (let ((_%__splice8216582166%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6456664945%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6459964855%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '1))) - (_%target6455164806%_ + (##vector-ref _%__splice8216582166%_ '1))) + (_%target6459764852%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6461964740%_)))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6455564647%_))))) + (if (gx#stx-null? _%tl6457264965%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6457064958%_ + _%hd6457164962%_ + _%tl6457264965%_) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair? _%hd6456864952%_) + (let ((_%e6461964740%_ (gx#syntax-e _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) - (let () (declare (not safe)) (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) - (let () (declare (not safe)) (_%g6450964601%_)))))))) + (##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%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6452064899%_) - (let ((_%__splice8211982120%_ + _%tl6456664945%_) + (let ((_%__splice8216582166%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6456664945%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6459964855%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '1))) - (_%target6455164806%_ + (_%target6459764852%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8216582166%_ '0)))) (if (gx#stx-null? - _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) + _%tl6459964855%_) + (_%__match8224182242%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6456764948%_ + _%hd6456864952%_ + _%tl6456964955%_ + _%__splice8216582166%_ + _%target6459764852%_ + _%tl6459964855%_) (if (gx#stx-pair? - _%hd6452264906%_) - (let ((_%e6457364694%_ + _%hd6456864952%_) + (let ((_%e6461964740%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (gx#syntax-e _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))))) + (##car _%e6461964740%_)))) + (let () (declare (not safe)) (_%g6455564647%_)))) + (let () (declare (not safe)) (_%g6455564647%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd6452264906%_) - (let ((_%e6457364694%_ + _%hd6456864952%_) + (let ((_%e6461964740%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6456864952%_))) + (let ((_%tl6462164747%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ - (let () (declare (not safe)) (##car _%e6457364694%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))) + (##cdr _%e6461964740%_))) + (_%hd6462064744%_ + (let () (declare (not safe)) (##car _%e6461964740%_)))) + (let () (declare (not safe)) (_%g6455564647%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%tl6452064899%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6452064899%_))) - (let ((_%tl6459564635%_ + (_%g6455564647%_))))))) + (if (gx#stx-pair? _%tl6456664945%_) + (let ((_%e6463964674%_ + (gx#syntax-e _%tl6456664945%_))) + (let ((_%tl6464164681%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6463964674%_))) + (_%hd6464064678%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6463964674%_)))) + (if (gx#stx-null? _%tl6464164681%_) + (_%__match8229382294%_ + _%e6456164928%_ + _%hd6456264932%_ + _%tl6456364935%_ + _%e6456464938%_ + _%hd6456564942%_ + _%tl6456664945%_ + _%e6463964674%_ + _%hd6464064678%_ + _%tl6464164681%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6455564647%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (let () (declare (not safe)) (_%g6450964601%_))))) - (let () (declare (not safe)) (_%g6450964601%_))))))))) + (_%g6455564647%_)))))) + (let () (declare (not safe)) (_%g6455564647%_))))) + (let () (declare (not safe)) (_%g6455564647%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| - (lambda (_%stx65678%_) - (let* ((_%__stx8225082251%_ _%stx65678%_) - (_%g6568265745%_ + (lambda (_%stx65724%_) + (let* ((_%__stx8229682297%_ _%stx65724%_) + (_%g6572865791%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8225082251%_)))) - (let ((_%__kont8225382254%_ - (lambda (_%L65996%_ _%L65998%_) - (let* ((_%g6602366031%_ - (lambda (_%g6602466027%_) + _%__stx8229682297%_)))) + (let ((_%__kont8229982300%_ + (lambda (_%L66042%_ _%L66044%_) + (let* ((_%g6606966077%_ + (lambda (_%g6607066073%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6602466027%_))) - (_%g6602266058%_ - (lambda (_%g6602466035%_) - ((lambda (_%L66038%_) + _%g6607066073%_))) + (_%g6606866104%_ + (lambda (_%g6607066081%_) + ((lambda (_%L66084%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) (cons 'return: - (cons _%L66038%_ '()))) + (cons _%L66084%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6604966052%_ + (foldr (lambda (_%g6609566098%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6605066055%_) - (cons _%g6604966052%_ _%g6605066055%_)) + _%g6609666101%_) + (cons _%g6609566098%_ _%g6609666101%_)) '() - _%L65996%_))) + _%L66042%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6602466035%_)))) - (_%g6602266058%_ + _%g6607066081%_)))) + (_%g6606866104%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx65678%_ - _%L65998%_)))))) - (_%__kont8225782258%_ - (lambda (_%L65832%_ _%L65834%_ _%L65835%_ _%L65836%_) - (let* ((_%g6586265870%_ - (lambda (_%g6586365866%_) + _%stx65724%_ + _%L66044%_)))))) + (_%__kont8230382304%_ + (lambda (_%L65878%_ _%L65880%_ _%L65881%_ _%L65882%_) + (let* ((_%g6590865916%_ + (lambda (_%g6590965912%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6586365866%_))) - (_%g6586165897%_ - (lambda (_%g6586365874%_) - ((lambda (_%L65877%_) + _%g6590965912%_))) + (_%g6590765943%_ + (lambda (_%g6590965920%_) + ((lambda (_%L65923%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L65877%_) + _%L65923%_) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6588865891%_ + (foldr (lambda (_%g6593465937%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6588965894%_) - (cons _%g6588865891%_ _%g6588965894%_)) + _%g6593565940%_) + (cons _%g6593465937%_ _%g6593565940%_)) '() - _%L65832%_))) + _%L65878%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6586365874%_)))) - (_%g6586165897%_ + _%g6590965920%_)))) + (_%g6590765943%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx65678%_ - _%L65836%_ - _%L65835%_ - _%L65834%_))))))) - (let* ((_%__match8235382354%_ - (lambda (_%e6571665752%_ - _%hd6571765756%_ - _%tl6571865759%_ - _%e6571965762%_ - _%hd6572065766%_ - _%tl6572165769%_ - _%e6572265772%_ - _%hd6572365776%_ - _%tl6572465779%_ - _%e6572565782%_ - _%hd6572665786%_ - _%tl6572765789%_ - _%e6572865792%_ - _%hd6572965796%_ - _%tl6573065799%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) - (letrec ((_%loop6573465808%_ - (lambda (_%hd6573265812%_ _%body6573865815%_) - (if (gx#stx-pair? _%hd6573265812%_) - (let ((_%e6573565818%_ - (gx#syntax-e _%hd6573265812%_))) - (let ((_%lp-tl6573765825%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6573565818%_))) - (_%lp-hd6573665822%_ + (##cdr _%e6578165864%_))) + (_%lp-hd6578265868%_ (let () (declare (not safe)) - (##car _%e6573565818%_)))) - (_%loop6573465808%_ - _%lp-tl6573765825%_ - (cons _%lp-hd6573665822%_ - _%body6573865815%_)))) - (let ((_%body6573965828%_ - (reverse _%body6573865815%_))) - (_%__kont8225782258%_ - _%body6573965828%_ - _%hd6572965796%_ - _%hd6572665786%_ - _%hd6572365776%_)))))) - (_%loop6573465808%_ _%target6573165802%_ '())))) - (_%__match8231382314%_ - (lambda (_%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569565938%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%e6570265962%_ - _%__splice8225582256%_ - _%target6570365966%_ - _%tl6570565969%_) - (letrec ((_%loop6570665972%_ - (lambda (_%hd6570465976%_ _%body6571065979%_) - (if (gx#stx-pair? _%hd6570465976%_) - (let ((_%e6570765982%_ - (gx#syntax-e _%hd6570465976%_))) - (let ((_%lp-tl6570965989%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6570765982%_))) - (_%lp-hd6570865986%_ + (##cdr _%e6575366028%_))) + (_%lp-hd6575466032%_ (let () (declare (not safe)) - (##car _%e6570765982%_)))) - (_%loop6570665972%_ - _%lp-tl6570965989%_ - (cons _%lp-hd6570865986%_ - _%body6571065979%_)))) - (let ((_%body6571165992%_ - (reverse _%body6571065979%_))) - (_%__kont8225382254%_ - _%body6571165992%_ - _%hd6569765946%_)))))) - (_%loop6570665972%_ _%target6570365966%_ '()))))) - (if (gx#stx-pair? _%__stx8225082251%_) - (let ((_%e6568665908%_ (gx#syntax-e _%__stx8225082251%_))) - (let ((_%tl6568865915%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6568665908%_))) - (_%hd6568765912%_ + (##cdr _%e6573265954%_))) + (_%hd6573365958%_ (let () (declare (not safe)) - (##car _%e6568665908%_)))) - (if (gx#stx-pair? _%tl6568865915%_) - (let ((_%e6568965918%_ - (gx#syntax-e _%tl6568865915%_))) - (let ((_%tl6569165925%_ + (##car _%e6573265954%_)))) + (if (gx#stx-pair? _%tl6573465961%_) + (let ((_%e6573565964%_ + (gx#syntax-e _%tl6573465961%_))) + (let ((_%tl6573765971%_ (let () (declare (not safe)) - (##cdr _%e6568965918%_))) - (_%hd6569065922%_ + (##cdr _%e6573565964%_))) + (_%hd6573665968%_ (let () (declare (not safe)) - (##car _%e6568965918%_)))) - (if (gx#stx-pair? _%hd6569065922%_) - (let ((_%e6569265928%_ - (gx#syntax-e _%hd6569065922%_))) - (let ((_%tl6569465935%_ + (##car _%e6573565964%_)))) + (if (gx#stx-pair? _%hd6573665968%_) + (let ((_%e6573865974%_ + (gx#syntax-e _%hd6573665968%_))) + (let ((_%tl6574065981%_ (let () (declare (not safe)) - (##cdr _%e6569265928%_))) - (_%hd6569365932%_ + (##cdr _%e6573865974%_))) + (_%hd6573965978%_ (let () (declare (not safe)) - (##car _%e6569265928%_)))) - (if (gx#stx-datum? _%hd6569365932%_) - (let ((_%e6569565938%_ - (gx#stx-e _%hd6569365932%_))) - (if (equal? _%e6569565938%_ '#f) + (##car _%e6573865974%_)))) + (if (gx#stx-datum? _%hd6573965978%_) + (let ((_%e6574165984%_ + (gx#stx-e _%hd6573965978%_))) + (if (equal? _%e6574165984%_ '#f) (if (gx#stx-pair? - _%tl6569465935%_) - (let ((_%e6569665942%_ + _%tl6574065981%_) + (let ((_%e6574265988%_ (gx#syntax-e - _%tl6569465935%_))) - (let ((_%tl6569865949%_ + _%tl6574065981%_))) + (let ((_%tl6574465995%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6569665942%_))) - (_%hd6569765946%_ - (let () (declare (not safe)) (##car _%e6569665942%_)))) - (if (gx#stx-pair? _%tl6569865949%_) - (let ((_%e6569965952%_ (gx#syntax-e _%tl6569865949%_))) - (let ((_%tl6570165959%_ + (##cdr _%e6574265988%_))) + (_%hd6574365992%_ + (let () (declare (not safe)) (##car _%e6574265988%_)))) + (if (gx#stx-pair? _%tl6574465995%_) + (let ((_%e6574565998%_ (gx#syntax-e _%tl6574465995%_))) + (let ((_%tl6574766005%_ (let () (declare (not safe)) - (##cdr _%e6569965952%_))) - (_%hd6570065956%_ + (##cdr _%e6574565998%_))) + (_%hd6574666002%_ (let () (declare (not safe)) - (##car _%e6569965952%_)))) - (if (gx#stx-datum? _%hd6570065956%_) - (let ((_%e6570265962%_ - (gx#stx-e _%hd6570065956%_))) - (if (equal? _%e6570265962%_ '#f) - (if (gx#stx-null? _%tl6570165959%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225582256%_ + (##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%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6573765971%_ '0))) - (let ((_%tl6570565969%_ + (let ((_%tl6575166015%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225582256%_ + _%__splice8230182302%_ '1))) - (_%target6570365966%_ + (_%target6574966012%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225582256%_ + _%__splice8230182302%_ '0)))) (if (gx#stx-null? - _%tl6570565969%_) - (_%__match8231382314%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569565938%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%e6570265962%_ - _%__splice8225582256%_ - _%target6570365966%_ - _%tl6570565969%_) + _%tl6575166015%_) + (_%__match8235982360%_ + _%e6573265954%_ + _%hd6573365958%_ + _%tl6573465961%_ + _%e6573565964%_ + _%hd6573665968%_ + _%tl6573765971%_ + _%e6573865974%_ + _%hd6573965978%_ + _%tl6574065981%_ + _%e6574165984%_ + _%e6574265988%_ + _%hd6574365992%_ + _%tl6574465995%_ + _%e6574565998%_ + _%hd6574666002%_ + _%tl6574766005%_ + _%e6574866008%_ + _%__splice8230182302%_ + _%target6574966012%_ + _%tl6575166015%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6572865791%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6572865791%_))) (let () (declare (not safe)) - (_%g6568265745%_))) - (if (gx#stx-null? _%tl6570165959%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ + (_%g6572865791%_))) + (if (gx#stx-null? _%tl6574766005%_) + (if (gx#stx-pair/null? _%tl6573765971%_) + (let ((_%__splice8230582306%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6573765971%_ '0))) - (let ((_%tl6573365805%_ + (let ((_%tl6577965851%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '1))) - (_%target6573165802%_ + (_%target6577765848%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '0)))) (if (gx#stx-null? - _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + _%tl6577965851%_) + (_%__match8239982400%_ + _%e6573265954%_ + _%hd6573365958%_ + _%tl6573465961%_ + _%e6573565964%_ + _%hd6573665968%_ + _%tl6573765971%_ + _%e6573865974%_ + _%hd6573965978%_ + _%tl6574065981%_ + _%e6574265988%_ + _%hd6574365992%_ + _%tl6574465995%_ + _%e6574565998%_ + _%hd6574666002%_ + _%tl6574766005%_ + _%__splice8230582306%_ + _%target6577765848%_ + _%tl6577965851%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6572865791%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6572865791%_))) (let () (declare (not safe)) - (_%g6568265745%_))))) - (if (gx#stx-null? _%tl6570165959%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ + (_%g6572865791%_))))) + (if (gx#stx-null? _%tl6574766005%_) + (if (gx#stx-pair/null? _%tl6573765971%_) + (let ((_%__splice8230582306%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6573765971%_ '0))) - (let ((_%tl6573365805%_ + (let ((_%tl6577965851%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '1))) - (_%target6573165802%_ + (_%target6577765848%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '0)))) - (if (gx#stx-null? _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + (if (gx#stx-null? _%tl6577965851%_) + (_%__match8239982400%_ + _%e6573265954%_ + _%hd6573365958%_ + _%tl6573465961%_ + _%e6573565964%_ + _%hd6573665968%_ + _%tl6573765971%_ + _%e6573865974%_ + _%hd6573965978%_ + _%tl6574065981%_ + _%e6574265988%_ + _%hd6574365992%_ + _%tl6574465995%_ + _%e6574565998%_ + _%hd6574666002%_ + _%tl6574766005%_ + _%__splice8230582306%_ + _%target6577765848%_ + _%tl6577965851%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6572865791%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6572865791%_))) (let () (declare (not safe)) - (_%g6568265745%_)))))) - (let () (declare (not safe)) (_%g6568265745%_))))) + (_%g6572865791%_)))))) + (let () (declare (not safe)) (_%g6572865791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6572865791%_))) (if (gx#stx-pair? - _%tl6569465935%_) - (let ((_%e6572565782%_ + _%tl6574065981%_) + (let ((_%e6577165828%_ (gx#syntax-e - _%tl6569465935%_))) - (let ((_%tl6572765789%_ + _%tl6574065981%_))) + (let ((_%tl6577365835%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6572565782%_))) - (_%hd6572665786%_ - (let () (declare (not safe)) (##car _%e6572565782%_)))) - (if (gx#stx-pair? _%tl6572765789%_) - (let ((_%e6572865792%_ (gx#syntax-e _%tl6572765789%_))) - (let ((_%tl6573065799%_ + (##cdr _%e6577165828%_))) + (_%hd6577265832%_ + (let () (declare (not safe)) (##car _%e6577165828%_)))) + (if (gx#stx-pair? _%tl6577365835%_) + (let ((_%e6577465838%_ (gx#syntax-e _%tl6577365835%_))) + (let ((_%tl6577665845%_ (let () (declare (not safe)) - (##cdr _%e6572865792%_))) - (_%hd6572965796%_ + (##cdr _%e6577465838%_))) + (_%hd6577565842%_ (let () (declare (not safe)) - (##car _%e6572865792%_)))) - (if (gx#stx-null? _%tl6573065799%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ + (##car _%e6577465838%_)))) + (if (gx#stx-null? _%tl6577665845%_) + (if (gx#stx-pair/null? _%tl6573765971%_) + (let ((_%__splice8230582306%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6573765971%_ '0))) - (let ((_%tl6573365805%_ + (let ((_%tl6577965851%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '1))) - (_%target6573165802%_ + (_%target6577765848%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '0)))) - (if (gx#stx-null? _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6572565782%_ - _%hd6572665786%_ - _%tl6572765789%_ - _%e6572865792%_ - _%hd6572965796%_ - _%tl6573065799%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + (if (gx#stx-null? _%tl6577965851%_) + (_%__match8239982400%_ + _%e6573265954%_ + _%hd6573365958%_ + _%tl6573465961%_ + _%e6573565964%_ + _%hd6573665968%_ + _%tl6573765971%_ + _%e6573865974%_ + _%hd6573965978%_ + _%tl6574065981%_ + _%e6577165828%_ + _%hd6577265832%_ + _%tl6577365835%_ + _%e6577465838%_ + _%hd6577565842%_ + _%tl6577665845%_ + _%__splice8230582306%_ + _%target6577765848%_ + _%tl6577965851%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6572865791%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) - (let () (declare (not safe)) (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))))) + (_%g6572865791%_))) + (let () (declare (not safe)) (_%g6572865791%_))))) + (let () (declare (not safe)) (_%g6572865791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6568265745%_))))) - (if (gx#stx-pair? _%tl6569465935%_) - (let ((_%e6572565782%_ + (_%g6572865791%_))))) + (if (gx#stx-pair? _%tl6574065981%_) + (let ((_%e6577165828%_ (gx#syntax-e - _%tl6569465935%_))) - (let ((_%tl6572765789%_ + _%tl6574065981%_))) + (let ((_%tl6577365835%_ (let () (declare (not safe)) - (##cdr _%e6572565782%_))) - (_%hd6572665786%_ + (##cdr _%e6577165828%_))) + (_%hd6577265832%_ (let () (declare (not safe)) - (##car _%e6572565782%_)))) + (##car _%e6577165828%_)))) (if (gx#stx-pair? - _%tl6572765789%_) - (let ((_%e6572865792%_ + _%tl6577365835%_) + (let ((_%e6577465838%_ (gx#syntax-e - _%tl6572765789%_))) - (let ((_%tl6573065799%_ + _%tl6577365835%_))) + (let ((_%tl6577665845%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6572865792%_))) - (_%hd6572965796%_ - (let () (declare (not safe)) (##car _%e6572865792%_)))) - (if (gx#stx-null? _%tl6573065799%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ - (gx#syntax-split-splice _%tl6569165925%_ '0))) - (let ((_%tl6573365805%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice8225982260%_ '1))) - (_%target6573165802%_ + (##vector-ref _%__splice8230582306%_ '1))) + (_%target6577765848%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8230582306%_ '0)))) - (if (gx#stx-null? _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6572565782%_ - _%hd6572665786%_ - _%tl6572765789%_ - _%e6572865792%_ - _%hd6572965796%_ - _%tl6573065799%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + (if (gx#stx-null? _%tl6577965851%_) + (_%__match8239982400%_ + _%e6573265954%_ + _%hd6573365958%_ + _%tl6573465961%_ + _%e6573565964%_ + _%hd6573665968%_ + _%tl6573765971%_ + _%e6573865974%_ + _%hd6573965978%_ + _%tl6574065981%_ + _%e6577165828%_ + _%hd6577265832%_ + _%tl6577365835%_ + _%e6577465838%_ + _%hd6577565842%_ + _%tl6577665845%_ + _%__splice8230582306%_ + _%target6577765848%_ + _%tl6577965851%_) (let () (declare (not safe)) - (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))) - (let () (declare (not safe)) (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))))) + (_%g6572865791%_))))) + (let () (declare (not safe)) (_%g6572865791%_))) + (let () (declare (not safe)) (_%g6572865791%_))))) + (let () (declare (not safe)) (_%g6572865791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6568265745%_)))))) + (_%g6572865791%_)))))) (let () (declare (not safe)) - (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_)))))))) + (_%g6572865791%_))))) + (let () (declare (not safe)) (_%g6572865791%_))))) + (let () (declare (not safe)) (_%g6572865791%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-contract| - (lambda (_%stx66068%_) - (let* ((_%g6607166095%_ - (lambda (_%g6607266091%_) + (lambda (_%stx66114%_) + (let* ((_%g6611766141%_ + (lambda (_%g6611866137%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6607266091%_))) - (_%g6607066211%_ - (lambda (_%g6607266099%_) - (if (gx#stx-pair? _%g6607266099%_) - (let ((_%e6607566102%_ (gx#syntax-e _%g6607266099%_))) - (let ((_%hd6607666106%_ + _%g6611866137%_))) + (_%g6611666257%_ + (lambda (_%g6611866145%_) + (if (gx#stx-pair? _%g6611866145%_) + (let ((_%e6612166148%_ (gx#syntax-e _%g6611866145%_))) + (let ((_%hd6612266152%_ (let () (declare (not safe)) - (##car _%e6607566102%_))) - (_%tl6607766109%_ + (##car _%e6612166148%_))) + (_%tl6612366155%_ (let () (declare (not safe)) - (##cdr _%e6607566102%_)))) - (if (gx#stx-pair? _%tl6607766109%_) - (let ((_%e6607866112%_ - (gx#syntax-e _%tl6607766109%_))) - (let ((_%hd6607966116%_ + (##cdr _%e6612166148%_)))) + (if (gx#stx-pair? _%tl6612366155%_) + (let ((_%e6612466158%_ + (gx#syntax-e _%tl6612366155%_))) + (let ((_%hd6612566162%_ (let () (declare (not safe)) - (##car _%e6607866112%_))) - (_%tl6608066119%_ + (##car _%e6612466158%_))) + (_%tl6612666165%_ (let () (declare (not safe)) - (##cdr _%e6607866112%_)))) - (if (gx#stx-pair/null? _%tl6608066119%_) - (let ((_g84140_ + (##cdr _%e6612466158%_)))) + (if (gx#stx-pair/null? _%tl6612666165%_) + (let ((_g84186_ (gx#syntax-split-splice - _%tl6608066119%_ + _%tl6612666165%_ '0))) (begin - (let ((_g84141_ + (let ((_g84187_ (let () (declare (not safe)) - (if (##values? _g84140_) + (if (##values? _g84186_) (##vector-length - _g84140_) + _g84186_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84141_ 2))) + (##fx= _g84187_ 2))) (error "Context expects 2 values" - _g84141_))) - (let ((_%target6608166122%_ + _g84187_))) + (let ((_%target6612766168%_ (let () (declare (not safe)) - (##vector-ref _g84140_ 0))) - (_%tl6608366125%_ + (##vector-ref _g84186_ 0))) + (_%tl6612966171%_ (let () (declare (not safe)) - (##vector-ref _g84140_ 1)))) - (if (gx#stx-null? _%tl6608366125%_) - (letrec ((_%loop6608466128%_ - (lambda (_%hd6608266132%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6608866135%_) - (if (gx#stx-pair? _%hd6608266132%_) - (let ((_%e6608566138%_ (gx#syntax-e _%hd6608266132%_))) - (let ((_%lp-hd6608666142%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6608566138%_))) - (_%lp-tl6608766145%_ + (##car _%e6613166184%_))) + (_%lp-tl6613366191%_ (let () (declare (not safe)) - (##cdr _%e6608566138%_)))) - (_%loop6608466128%_ - _%lp-tl6608766145%_ - (cons _%lp-hd6608666142%_ _%body6608866135%_)))) - (let ((_%body6608966148%_ - (reverse _%body6608866135%_))) - ((lambda (_%L66152%_ _%L66154%_) - (let* ((_%g6617266180%_ - (lambda (_%g6617366176%_) + (##cdr _%e6613166184%_)))) + (_%loop6613066174%_ + _%lp-tl6613366191%_ + (cons _%lp-hd6613266188%_ _%body6613466181%_)))) + (let ((_%body6613566194%_ + (reverse _%body6613466181%_))) + ((lambda (_%L66198%_ _%L66200%_) + (let* ((_%g6621866226%_ + (lambda (_%g6621966222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6617366176%_))) - (_%g6617166207%_ - (lambda (_%g6617366184%_) - ((lambda (_%L66187%_) + _%g6621966222%_))) + (_%g6621766253%_ + (lambda (_%g6621966230%_) + ((lambda (_%L66233%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66187%_ - (foldr (lambda (_%g6619866201%_ + (cons _%L66233%_ + (foldr (lambda (_%g6624466247%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6619966204%_) - (cons _%g6619866201%_ _%g6619966204%_)) + _%g6624566250%_) + (cons _%g6624466247%_ _%g6624566250%_)) '() - _%L66152%_)))) + _%L66198%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6617366184%_)))) - (_%g6617166207%_ + _%g6621966230%_)))) + (_%g6621766253%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66068%_ - _%L66154%_ + _%stx66114%_ + _%L66200%_ '#t))))) - _%body6608966148%_ - _%hd6607966116%_)))))) + _%body6613566194%_ + _%hd6612566162%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6608466128%_ - _%target6608166122%_ + (_%loop6613066174%_ + _%target6612766168%_ '())) - (_%g6607166095%_ - _%g6607266099%_))))) - (_%g6607166095%_ _%g6607266099%_)))) - (_%g6607166095%_ _%g6607266099%_)))) - (_%g6607166095%_ _%g6607266099%_))))) - (_%g6607066211%_ _%stx66068%_)))) + (_%g6611766141%_ + _%g6611866145%_))))) + (_%g6611766141%_ _%g6611866145%_)))) + (_%g6611766141%_ _%g6611866145%_)))) + (_%g6611766141%_ _%g6611866145%_))))) + (_%g6611666257%_ _%stx66114%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-unchecked-contract| - (lambda (_%stx66216%_) - (let* ((_%g6621966243%_ - (lambda (_%g6622066239%_) + (lambda (_%stx66262%_) + (let* ((_%g6626566289%_ + (lambda (_%g6626666285%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6622066239%_))) - (_%g6621866359%_ - (lambda (_%g6622066247%_) - (if (gx#stx-pair? _%g6622066247%_) - (let ((_%e6622366250%_ (gx#syntax-e _%g6622066247%_))) - (let ((_%hd6622466254%_ + _%g6626666285%_))) + (_%g6626466405%_ + (lambda (_%g6626666293%_) + (if (gx#stx-pair? _%g6626666293%_) + (let ((_%e6626966296%_ (gx#syntax-e _%g6626666293%_))) + (let ((_%hd6627066300%_ (let () (declare (not safe)) - (##car _%e6622366250%_))) - (_%tl6622566257%_ + (##car _%e6626966296%_))) + (_%tl6627166303%_ (let () (declare (not safe)) - (##cdr _%e6622366250%_)))) - (if (gx#stx-pair? _%tl6622566257%_) - (let ((_%e6622666260%_ - (gx#syntax-e _%tl6622566257%_))) - (let ((_%hd6622766264%_ + (##cdr _%e6626966296%_)))) + (if (gx#stx-pair? _%tl6627166303%_) + (let ((_%e6627266306%_ + (gx#syntax-e _%tl6627166303%_))) + (let ((_%hd6627366310%_ (let () (declare (not safe)) - (##car _%e6622666260%_))) - (_%tl6622866267%_ + (##car _%e6627266306%_))) + (_%tl6627466313%_ (let () (declare (not safe)) - (##cdr _%e6622666260%_)))) - (if (gx#stx-pair/null? _%tl6622866267%_) - (let ((_g84142_ + (##cdr _%e6627266306%_)))) + (if (gx#stx-pair/null? _%tl6627466313%_) + (let ((_g84188_ (gx#syntax-split-splice - _%tl6622866267%_ + _%tl6627466313%_ '0))) (begin - (let ((_g84143_ + (let ((_g84189_ (let () (declare (not safe)) - (if (##values? _g84142_) + (if (##values? _g84188_) (##vector-length - _g84142_) + _g84188_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84143_ 2))) + (##fx= _g84189_ 2))) (error "Context expects 2 values" - _g84143_))) - (let ((_%target6622966270%_ + _g84189_))) + (let ((_%target6627566316%_ (let () (declare (not safe)) - (##vector-ref _g84142_ 0))) - (_%tl6623166273%_ + (##vector-ref _g84188_ 0))) + (_%tl6627766319%_ (let () (declare (not safe)) - (##vector-ref _g84142_ 1)))) - (if (gx#stx-null? _%tl6623166273%_) - (letrec ((_%loop6623266276%_ - (lambda (_%hd6623066280%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6623666283%_) - (if (gx#stx-pair? _%hd6623066280%_) - (let ((_%e6623366286%_ (gx#syntax-e _%hd6623066280%_))) - (let ((_%lp-hd6623466290%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6623366286%_))) - (_%lp-tl6623566293%_ + (##car _%e6627966332%_))) + (_%lp-tl6628166339%_ (let () (declare (not safe)) - (##cdr _%e6623366286%_)))) - (_%loop6623266276%_ - _%lp-tl6623566293%_ - (cons _%lp-hd6623466290%_ _%body6623666283%_)))) - (let ((_%body6623766296%_ - (reverse _%body6623666283%_))) - ((lambda (_%L66300%_ _%L66302%_) - (let* ((_%g6632066328%_ - (lambda (_%g6632166324%_) + (##cdr _%e6627966332%_)))) + (_%loop6627866322%_ + _%lp-tl6628166339%_ + (cons _%lp-hd6628066336%_ _%body6628266329%_)))) + (let ((_%body6628366342%_ + (reverse _%body6628266329%_))) + ((lambda (_%L66346%_ _%L66348%_) + (let* ((_%g6636666374%_ + (lambda (_%g6636766370%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6632166324%_))) - (_%g6631966355%_ - (lambda (_%g6632166332%_) - ((lambda (_%L66335%_) + _%g6636766370%_))) + (_%g6636566401%_ + (lambda (_%g6636766378%_) + ((lambda (_%L66381%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66335%_ - (foldr (lambda (_%g6634666349%_ + (cons _%L66381%_ + (foldr (lambda (_%g6639266395%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6634766352%_) - (cons _%g6634666349%_ _%g6634766352%_)) + _%g6639366398%_) + (cons _%g6639266395%_ _%g6639366398%_)) '() - _%L66300%_)))) + _%L66346%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6632166332%_)))) - (_%g6631966355%_ + _%g6636766378%_)))) + (_%g6636566401%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66216%_ - _%L66302%_ + _%stx66262%_ + _%L66348%_ '#f))))) - _%body6623766296%_ - _%hd6622766264%_)))))) + _%body6628366342%_ + _%hd6627366310%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6623266276%_ - _%target6622966270%_ + (_%loop6627866322%_ + _%target6627566316%_ '())) - (_%g6621966243%_ - _%g6622066247%_))))) - (_%g6621966243%_ _%g6622066247%_)))) - (_%g6621966243%_ _%g6622066247%_)))) - (_%g6621966243%_ _%g6622066247%_))))) - (_%g6621866359%_ _%stx66216%_)))) + (_%g6626566289%_ + _%g6626666293%_))))) + (_%g6626566289%_ _%g6626666293%_)))) + (_%g6626566289%_ _%g6626666293%_)))) + (_%g6626566289%_ _%g6626666293%_))))) + (_%g6626466405%_ _%stx66262%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#lambda/c| - (lambda (_%stx66364%_) - (letrec ((_%make-lambda66367%_ - (lambda (_%signature66635%_ _%return66637%_ _%body66638%_) - (let* ((_%g6664066672%_ - (lambda (_%g6664166668%_) + (lambda (_%stx66410%_) + (letrec ((_%make-lambda66413%_ + (lambda (_%signature66681%_ _%return66683%_ _%body66684%_) + (let* ((_%g6668666718%_ + (lambda (_%g6668766714%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6664166668%_))) - (_%g6663966787%_ - (lambda (_%g6664166676%_) - (if (gx#stx-pair? _%g6664166676%_) - (let ((_%e6664666679%_ - (gx#syntax-e _%g6664166676%_))) - (let ((_%hd6664766683%_ + _%g6668766714%_))) + (_%g6668566833%_ + (lambda (_%g6668766722%_) + (if (gx#stx-pair? _%g6668766722%_) + (let ((_%e6669266725%_ + (gx#syntax-e _%g6668766722%_))) + (let ((_%hd6669366729%_ (let () (declare (not safe)) - (##car _%e6664666679%_))) - (_%tl6664866686%_ + (##car _%e6669266725%_))) + (_%tl6669466732%_ (let () (declare (not safe)) - (##cdr _%e6664666679%_)))) - (if (gx#stx-pair? _%tl6664866686%_) - (let ((_%e6664966689%_ + (##cdr _%e6669266725%_)))) + (if (gx#stx-pair? _%tl6669466732%_) + (let ((_%e6669566735%_ (gx#syntax-e - _%tl6664866686%_))) - (let ((_%hd6665066693%_ + _%tl6669466732%_))) + (let ((_%hd6669666739%_ (let () (declare (not safe)) - (##car _%e6664966689%_))) - (_%tl6665166696%_ + (##car _%e6669566735%_))) + (_%tl6669766742%_ (let () (declare (not safe)) - (##cdr _%e6664966689%_)))) + (##cdr _%e6669566735%_)))) (if (gx#stx-pair? - _%tl6665166696%_) - (let ((_%e6665266699%_ + _%tl6669766742%_) + (let ((_%e6669866745%_ (gx#syntax-e - _%tl6665166696%_))) - (let ((_%hd6665366703%_ + _%tl6669766742%_))) + (let ((_%hd6669966749%_ (let () (declare (not safe)) - (##car _%e6665266699%_))) - (_%tl6665466706%_ + (##car _%e6669866745%_))) + (_%tl6670066752%_ (let () (declare (not safe)) - (##cdr _%e6665266699%_)))) + (##cdr _%e6669866745%_)))) (if (gx#stx-pair? - _%tl6665466706%_) - (let ((_%e6665566709%_ + _%tl6670066752%_) + (let ((_%e6670166755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6665466706%_))) - (let ((_%hd6665666713%_ + (gx#syntax-e _%tl6670066752%_))) + (let ((_%hd6670266759%_ (let () (declare (not safe)) - (##car _%e6665566709%_))) - (_%tl6665766716%_ + (##car _%e6670166755%_))) + (_%tl6670366762%_ (let () (declare (not safe)) - (##cdr _%e6665566709%_)))) - (if (gx#stx-pair/null? _%hd6665666713%_) - (let ((_g84144_ - (gx#syntax-split-splice _%hd6665666713%_ '0))) + (##cdr _%e6670166755%_)))) + (if (gx#stx-pair/null? _%hd6670266759%_) + (let ((_g84190_ + (gx#syntax-split-splice _%hd6670266759%_ '0))) (begin - (let ((_g84145_ + (let ((_g84191_ (let () (declare (not safe)) - (if (##values? _g84144_) - (##vector-length _g84144_) + (if (##values? _g84190_) + (##vector-length _g84190_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84145_ 2))) + (##fx= _g84191_ 2))) (error "Context expects 2 values" - _g84145_))) - (let ((_%target6665866719%_ + _g84191_))) + (let ((_%target6670466765%_ (let () (declare (not safe)) - (##vector-ref _g84144_ 0))) - (_%tl6666066722%_ + (##vector-ref _g84190_ 0))) + (_%tl6670666768%_ (let () (declare (not safe)) - (##vector-ref _g84144_ 1)))) - (if (gx#stx-null? _%tl6666066722%_) - (letrec ((_%loop6666166725%_ - (lambda (_%hd6665966729%_ - _%body6666566732%_) + (##vector-ref _g84190_ 1)))) + (if (gx#stx-null? _%tl6670666768%_) + (letrec ((_%loop6670766771%_ + (lambda (_%hd6670566775%_ + _%body6671166778%_) (if (gx#stx-pair? - _%hd6665966729%_) - (let ((_%e6666266735%_ + _%hd6670566775%_) + (let ((_%e6670866781%_ (gx#syntax-e - _%hd6665966729%_))) - (let ((_%lp-hd6666366739%_ + _%hd6670566775%_))) + (let ((_%lp-hd6670966785%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6666266735%_))) - (_%lp-tl6666466742%_ - (let () (declare (not safe)) (##cdr _%e6666266735%_)))) - (_%loop6666166725%_ - _%lp-tl6666466742%_ - (cons _%lp-hd6666366739%_ _%body6666566732%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6666666745%_ - (reverse _%body6666566732%_))) + (##car _%e6670866781%_))) + (_%lp-tl6671066788%_ + (let () (declare (not safe)) (##cdr _%e6670866781%_)))) + (_%loop6670766771%_ + _%lp-tl6671066788%_ + (cons _%lp-hd6670966785%_ _%body6671166778%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6671266791%_ + (reverse _%body6671166778%_))) (if (gx#stx-null? - _%tl6665766716%_) - ((lambda (_%L66749%_ + _%tl6670366762%_) + ((lambda (_%L66795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L66751%_ - _%L66752%_ - _%L66753%_) + _%L66797%_ + _%L66798%_ + _%L66799%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66753%_ + (cons _%L66799%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L66752%_ - (cons _%L66751%_ + (cons (cons _%L66798%_ + (cons _%L66797%_ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) @@ -3197,892 +3197,892 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-contract) - (cons _%L66752%_ - (foldr (lambda (_%g6677866781%_ _%g6677966784%_) - (cons _%g6677866781%_ _%g6677966784%_)) + (cons _%L66798%_ + (foldr (lambda (_%g6682466827%_ _%g6682566830%_) + (cons _%g6682466827%_ _%g6682566830%_)) '() - _%L66749%_))) + _%L66795%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx66364%_))) - _%body6666666745%_ - _%hd6665366703%_ - _%hd6665066693%_ - _%hd6664766683%_) - (_%g6664066672%_ _%g6664166676%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6666166725%_ - _%target6665866719%_ + (gx#stx-source _%stx66410%_))) + _%body6671266791%_ + _%hd6669966749%_ + _%hd6669666739%_ + _%hd6669366729%_) + (_%g6668666718%_ _%g6668766722%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6670766771%_ + _%target6670466765%_ '())) - (_%g6664066672%_ _%g6664166676%_))))) - (_%g6664066672%_ _%g6664166676%_)))) - (_%g6664066672%_ _%g6664166676%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6664066672%_ - _%g6664166676%_)))) - (_%g6664066672%_ _%g6664166676%_)))) - (_%g6664066672%_ _%g6664166676%_))))) - (_%g6663966787%_ + (_%g6668666718%_ _%g6668766722%_))))) + (_%g6668666718%_ _%g6668766722%_)))) + (_%g6668666718%_ _%g6668766722%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6668666718%_ + _%g6668766722%_)))) + (_%g6668666718%_ _%g6668766722%_)))) + (_%g6668666718%_ _%g6668766722%_))))) + (_%g6668566833%_ (list (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature66635%_)) - _%signature66635%_ - _%return66637%_ - _%body66638%_)))))) - (let* ((_%__stx8235682357%_ _%stx66364%_) - (_%g6637166419%_ + _%signature66681%_)) + _%signature66681%_ + _%return66683%_ + _%body66684%_)))))) + (let* ((_%__stx8240282403%_ _%stx66410%_) + (_%g6641766465%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8235682357%_)))) - (let ((_%__kont8235982360%_ - (lambda (_%L66590%_ _%L66592%_ _%L66593%_) + _%__stx8240282403%_)))) + (let ((_%__kont8240582406%_ + (lambda (_%L66636%_ _%L66638%_ _%L66639%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66593%_) - (_%make-lambda66367%_ - _%L66593%_ - _%L66592%_ - (foldr (lambda (_%g6661466617%_ _%g6661566620%_) - (cons _%g6661466617%_ _%g6661566620%_)) + _%L66639%_) + (_%make-lambda66413%_ + _%L66639%_ + _%L66638%_ + (foldr (lambda (_%g6666066663%_ _%g6666166666%_) + (cons _%g6666066663%_ _%g6666166666%_)) '() - _%L66590%_)) + _%L66636%_)) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66593%_ + (cons _%L66639%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L66592%_ + (cons _%L66638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6662266625%_ _%g6662366628%_) - (cons _%g6662266625%_ _%g6662366628%_)) + (foldr (lambda (_%g6666866671%_ _%g6666966674%_) + (cons _%g6666866671%_ _%g6666966674%_)) '() - _%L66590%_))) + _%L66636%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8236382364%_ - (lambda (_%L66476%_ _%L66478%_) + (_%__kont8240982410%_ + (lambda (_%L66522%_ _%L66524%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66478%_) + _%L66524%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L66478%_ + (cons _%L66524%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6649666499%_ + (foldr (lambda (_%g6654266545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6649766502%_) - (cons _%g6649666499%_ _%g6649766502%_)) + _%g6654366548%_) + (cons _%g6654266545%_ _%g6654366548%_)) '() - _%L66476%_))))) + _%L66522%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66478%_ - (foldr (lambda (_%g6650466507%_ - _%g6650566510%_) - (cons _%g6650466507%_ - _%g6650566510%_)) + (cons _%L66524%_ + (foldr (lambda (_%g6655066553%_ + _%g6655166556%_) + (cons _%g6655066553%_ + _%g6655166556%_)) '() - _%L66476%_))))))) - (let* ((_%__match8242382424%_ - (lambda (_%e6639966426%_ - _%hd6640066430%_ - _%tl6640166433%_ - _%e6640266436%_ - _%hd6640366440%_ - _%tl6640466443%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) - (letrec ((_%loop6640866452%_ - (lambda (_%hd6640666456%_ _%body6641266459%_) - (if (gx#stx-pair? _%hd6640666456%_) - (let ((_%e6640966462%_ - (gx#syntax-e _%hd6640666456%_))) - (let ((_%lp-tl6641166469%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6640966462%_))) - (_%lp-hd6641066466%_ + (##cdr _%e6645566508%_))) + (_%lp-hd6645666512%_ (let () (declare (not safe)) - (##car _%e6640966462%_)))) - (_%loop6640866452%_ - _%lp-tl6641166469%_ - (cons _%lp-hd6641066466%_ - _%body6641266459%_)))) - (let ((_%body6641366472%_ - (reverse _%body6641266459%_))) - (_%__kont8236382364%_ - _%body6641366472%_ - _%hd6640366440%_)))))) - (_%loop6640866452%_ _%target6640566446%_ '())))) - (_%__match8240382404%_ - (lambda (_%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%e6638266540%_ - _%hd6638366544%_ - _%tl6638466547%_ - _%e6638566550%_ - _%hd6638666554%_ - _%tl6638766557%_ - _%__splice8236182362%_ - _%target6638866560%_ - _%tl6639066563%_) - (letrec ((_%loop6639166566%_ - (lambda (_%hd6638966570%_ _%body6639566573%_) - (if (gx#stx-pair? _%hd6638966570%_) - (let ((_%e6639266576%_ - (gx#syntax-e _%hd6638966570%_))) - (let ((_%lp-tl6639466583%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6639266576%_))) - (_%lp-hd6639366580%_ + (##cdr _%e6643866622%_))) + (_%lp-hd6643966626%_ (let () (declare (not safe)) - (##car _%e6639266576%_)))) - (_%loop6639166566%_ - _%lp-tl6639466583%_ - (cons _%lp-hd6639366580%_ - _%body6639566573%_)))) - (let ((_%body6639666586%_ - (reverse _%body6639566573%_))) - (_%__kont8235982360%_ - _%body6639666586%_ - _%hd6638666554%_ - _%hd6638066534%_)))))) - (_%loop6639166566%_ _%target6638866560%_ '()))))) - (if (gx#stx-pair? _%__stx8235682357%_) - (let ((_%e6637666520%_ (gx#syntax-e _%__stx8235682357%_))) - (let ((_%tl6637866527%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6637666520%_))) - (_%hd6637766524%_ + (##cdr _%e6642266566%_))) + (_%hd6642366570%_ (let () (declare (not safe)) - (##car _%e6637666520%_)))) - (if (gx#stx-pair? _%tl6637866527%_) - (let ((_%e6637966530%_ - (gx#syntax-e _%tl6637866527%_))) - (let ((_%tl6638166537%_ + (##car _%e6642266566%_)))) + (if (gx#stx-pair? _%tl6642466573%_) + (let ((_%e6642566576%_ + (gx#syntax-e _%tl6642466573%_))) + (let ((_%tl6642766583%_ (let () (declare (not safe)) - (##cdr _%e6637966530%_))) - (_%hd6638066534%_ + (##cdr _%e6642566576%_))) + (_%hd6642666580%_ (let () (declare (not safe)) - (##car _%e6637966530%_)))) - (if (gx#stx-pair? _%tl6638166537%_) - (let ((_%e6638266540%_ - (gx#syntax-e _%tl6638166537%_))) - (let ((_%tl6638466547%_ + (##car _%e6642566576%_)))) + (if (gx#stx-pair? _%tl6642766583%_) + (let ((_%e6642866586%_ + (gx#syntax-e _%tl6642766583%_))) + (let ((_%tl6643066593%_ (let () (declare (not safe)) - (##cdr _%e6638266540%_))) - (_%hd6638366544%_ + (##cdr _%e6642866586%_))) + (_%hd6642966590%_ (let () (declare (not safe)) - (##car _%e6638266540%_)))) - (if (gx#identifier? _%hd6638366544%_) + (##car _%e6642866586%_)))) + (if (gx#identifier? _%hd6642966590%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84146_| - _%hd6638366544%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84192_| + _%hd6642966590%_) (if (gx#stx-pair? - _%tl6638466547%_) - (let ((_%e6638566550%_ + _%tl6643066593%_) + (let ((_%e6643166596%_ (gx#syntax-e - _%tl6638466547%_))) - (let ((_%tl6638766557%_ + _%tl6643066593%_))) + (let ((_%tl6643366603%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6638566550%_))) - (_%hd6638666554%_ - (let () (declare (not safe)) (##car _%e6638566550%_)))) - (if (gx#stx-pair/null? _%tl6638766557%_) - (let ((_%__splice8236182362%_ - (gx#syntax-split-splice _%tl6638766557%_ '0))) - (let ((_%tl6639066563%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236182362%_ '1))) - (_%target6638866560%_ + (##vector-ref _%__splice8240782408%_ '1))) + (_%target6643466606%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236182362%_ '0)))) - (if (gx#stx-null? _%tl6639066563%_) - (_%__match8240382404%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%e6638266540%_ - _%hd6638366544%_ - _%tl6638466547%_ - _%e6638566550%_ - _%hd6638666554%_ - _%tl6638766557%_ - _%__splice8236182362%_ - _%target6638866560%_ - _%tl6639066563%_) - (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8236582366%_ + (##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%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6642766583%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6645366495%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8241182412%_ '1))) - (_%target6640566446%_ + (_%target6645166492%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8241182412%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + (if (gx#stx-null? _%tl6645366495%_) + (_%__match8246982470%_ + _%e6642266566%_ + _%hd6642366570%_ + _%tl6642466573%_ + _%e6642566576%_ + _%hd6642666580%_ + _%tl6642766583%_ + _%__splice8241182412%_ + _%target6645166492%_ + _%tl6645366495%_) (let () (declare (not safe)) - (_%g6637166419%_))))) + (_%g6641766465%_))))) (let () (declare (not safe)) - (_%g6637166419%_)))))) - (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8236582366%_ - (gx#syntax-split-splice _%tl6638166537%_ '0))) - (let ((_%tl6640766449%_ + (_%g6641766465%_)))))) + (if (gx#stx-pair/null? _%tl6642766583%_) + (let ((_%__splice8241182412%_ + (gx#syntax-split-splice _%tl6642766583%_ '0))) + (let ((_%tl6645366495%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '1))) - (_%target6640566446%_ + (##vector-ref _%__splice8241182412%_ '1))) + (_%target6645166492%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + (##vector-ref _%__splice8241182412%_ '0)))) + (if (gx#stx-null? _%tl6645366495%_) + (_%__match8246982470%_ + _%e6642266566%_ + _%hd6642366570%_ + _%tl6642466573%_ + _%e6642566576%_ + _%hd6642666580%_ + _%tl6642766583%_ + _%__splice8241182412%_ + _%target6645166492%_ + _%tl6645366495%_) (let () (declare (not safe)) - (_%g6637166419%_))))) - (let () (declare (not safe)) (_%g6637166419%_)))))) + (_%g6641766465%_))))) + (let () (declare (not safe)) (_%g6641766465%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6638166537%_) - (let ((_%__splice8236582366%_ + _%tl6642766583%_) + (let ((_%__splice8241182412%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6642766583%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6645366495%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '1))) - (_%target6640566446%_ + (##vector-ref _%__splice8241182412%_ '1))) + (_%target6645166492%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) - (let () (declare (not safe)) (_%g6637166419%_))))) - (let () (declare (not safe)) (_%g6637166419%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6638166537%_) - (let ((_%__splice8236582366%_ + _%tl6642766583%_) + (let ((_%__splice8241182412%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6642766583%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6645366495%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8236582366%_ '1))) - (_%target6640566446%_ + (##vector-ref _%__splice8241182412%_ '1))) + (_%target6645166492%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) - (let () (declare (not safe)) (_%g6637166419%_))))) + (##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)) - (_%g6637166419%_)))) + (_%g6641766465%_)))) (if (gx#stx-pair/null? - _%tl6638166537%_) - (let ((_%__splice8236582366%_ + _%tl6642766583%_) + (let ((_%__splice8241182412%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6642766583%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6645366495%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8241182412%_ '1))) - (_%target6640566446%_ + (_%target6645166492%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8241182412%_ '0)))) (if (gx#stx-null? - _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + _%tl6645366495%_) + (_%__match8246982470%_ + _%e6642266566%_ + _%hd6642366570%_ + _%tl6642466573%_ + _%e6642566576%_ + _%hd6642666580%_ + _%tl6642766583%_ + _%__splice8241182412%_ + _%target6645166492%_ + _%tl6645366495%_) (let () (declare (not safe)) - (_%g6637166419%_))))) + (_%g6641766465%_))))) (let () (declare (not safe)) - (_%g6637166419%_)))))) - (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8236582366%_ + (_%g6641766465%_)))))) + (if (gx#stx-pair/null? _%tl6642766583%_) + (let ((_%__splice8241182412%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6642766583%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6645366495%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8241182412%_ '1))) - (_%target6640566446%_ + (_%target6645166492%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8241182412%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + (if (gx#stx-null? _%tl6645366495%_) + (_%__match8246982470%_ + _%e6642266566%_ + _%hd6642366570%_ + _%tl6642466573%_ + _%e6642566576%_ + _%hd6642666580%_ + _%tl6642766583%_ + _%__splice8241182412%_ + _%target6645166492%_ + _%tl6645366495%_) (let () (declare (not safe)) - (_%g6637166419%_))))) + (_%g6641766465%_))))) (let () (declare (not safe)) - (_%g6637166419%_)))))) - (let () (declare (not safe)) (_%g6637166419%_))))) - (let () (declare (not safe)) (_%g6637166419%_))))))))) + (_%g6641766465%_)))))) + (let () (declare (not safe)) (_%g6641766465%_))))) + (let () (declare (not safe)) (_%g6641766465%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def*/c| - (lambda (_%$stx66794%_) - (let* ((_%g6679866822%_ - (lambda (_%g6679966818%_) + (lambda (_%$stx66840%_) + (let* ((_%g6684466868%_ + (lambda (_%g6684566864%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6679966818%_))) - (_%g6679766907%_ - (lambda (_%g6679966826%_) - (if (gx#stx-pair? _%g6679966826%_) - (let ((_%e6680266829%_ (gx#syntax-e _%g6679966826%_))) - (let ((_%hd6680366833%_ + _%g6684566864%_))) + (_%g6684366953%_ + (lambda (_%g6684566872%_) + (if (gx#stx-pair? _%g6684566872%_) + (let ((_%e6684866875%_ (gx#syntax-e _%g6684566872%_))) + (let ((_%hd6684966879%_ (let () (declare (not safe)) - (##car _%e6680266829%_))) - (_%tl6680466836%_ + (##car _%e6684866875%_))) + (_%tl6685066882%_ (let () (declare (not safe)) - (##cdr _%e6680266829%_)))) - (if (gx#stx-pair? _%tl6680466836%_) - (let ((_%e6680566839%_ - (gx#syntax-e _%tl6680466836%_))) - (let ((_%hd6680666843%_ + (##cdr _%e6684866875%_)))) + (if (gx#stx-pair? _%tl6685066882%_) + (let ((_%e6685166885%_ + (gx#syntax-e _%tl6685066882%_))) + (let ((_%hd6685266889%_ (let () (declare (not safe)) - (##car _%e6680566839%_))) - (_%tl6680766846%_ + (##car _%e6685166885%_))) + (_%tl6685366892%_ (let () (declare (not safe)) - (##cdr _%e6680566839%_)))) - (if (gx#stx-pair/null? _%tl6680766846%_) - (let ((_g84147_ + (##cdr _%e6685166885%_)))) + (if (gx#stx-pair/null? _%tl6685366892%_) + (let ((_g84193_ (gx#syntax-split-splice - _%tl6680766846%_ + _%tl6685366892%_ '0))) (begin - (let ((_g84148_ + (let ((_g84194_ (let () (declare (not safe)) - (if (##values? _g84147_) + (if (##values? _g84193_) (##vector-length - _g84147_) + _g84193_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84148_ 2))) + (##fx= _g84194_ 2))) (error "Context expects 2 values" - _g84148_))) - (let ((_%target6680866849%_ + _g84194_))) + (let ((_%target6685466895%_ (let () (declare (not safe)) - (##vector-ref _g84147_ 0))) - (_%tl6681066852%_ + (##vector-ref _g84193_ 0))) + (_%tl6685666898%_ (let () (declare (not safe)) - (##vector-ref _g84147_ 1)))) - (if (gx#stx-null? _%tl6681066852%_) - (letrec ((_%loop6681166855%_ - (lambda (_%hd6680966859%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause6681566862%_) - (if (gx#stx-pair? _%hd6680966859%_) - (let ((_%e6681266865%_ (gx#syntax-e _%hd6680966859%_))) - (let ((_%lp-hd6681366869%_ + (##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%_ (let () (declare (not safe)) - (##car _%e6681266865%_))) - (_%lp-tl6681466872%_ + (##car _%e6685866911%_))) + (_%lp-tl6686066918%_ (let () (declare (not safe)) - (##cdr _%e6681266865%_)))) - (_%loop6681166855%_ - _%lp-tl6681466872%_ - (cons _%lp-hd6681366869%_ _%clause6681566862%_)))) - (let ((_%clause6681666875%_ - (reverse _%clause6681566862%_))) - ((lambda (_%L66879%_ _%L66881%_) + (##cdr _%e6685866911%_)))) + (_%loop6685766901%_ + _%lp-tl6686066918%_ + (cons _%lp-hd6685966915%_ _%clause6686166908%_)))) + (let ((_%clause6686266921%_ + (reverse _%clause6686166908%_))) + ((lambda (_%L66925%_ _%L66927%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L66881%_ + (cons _%L66927%_ (cons (cons (gx#datum->syntax '#f 'case-lambda/c) - (foldr (lambda (_%g6689866901%_ + (foldr (lambda (_%g6694466947%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6689966904%_) - (cons _%g6689866901%_ _%g6689966904%_)) + _%g6694566950%_) + (cons _%g6694466947%_ _%g6694566950%_)) '() - _%L66879%_)) + _%L66925%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause6681666875%_ - _%hd6680666843%_)))))) + _%clause6686266921%_ + _%hd6685266889%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6681166855%_ - _%target6680866849%_ + (_%loop6685766901%_ + _%target6685466895%_ '())) - (_%g6679866822%_ - _%g6679966826%_))))) - (_%g6679866822%_ _%g6679966826%_)))) - (_%g6679866822%_ _%g6679966826%_)))) - (_%g6679866822%_ _%g6679966826%_))))) - (_%g6679766907%_ _%$stx66794%_)))) + (_%g6684466868%_ + _%g6684566872%_))))) + (_%g6684466868%_ _%g6684566872%_)))) + (_%g6684466868%_ _%g6684566872%_)))) + (_%g6684466868%_ _%g6684566872%_))))) + (_%g6684366953%_ _%$stx66840%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#case-lambda/c| - (lambda (_%stx66912%_) - (letrec ((_%is-clause-signature?66915%_ - (lambda (_%clause67449%_) - (let* ((_%__stx8242682427%_ _%clause67449%_) - (_%g6745367495%_ + (lambda (_%stx66958%_) + (letrec ((_%is-clause-signature?66961%_ + (lambda (_%clause67495%_) + (let* ((_%__stx8247282473%_ _%clause67495%_) + (_%g6749967541%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8242682427%_)))) - (let ((_%__kont8242982430%_ - (lambda (_%L67627%_ _%L67629%_ _%L67630%_) '#t)) - (_%__kont8243382434%_ - (lambda (_%L67542%_ _%L67544%_) + _%__stx8247282473%_)))) + (let ((_%__kont8247582476%_ + (lambda (_%L67673%_ _%L67675%_ _%L67676%_) '#t)) + (_%__kont8247982480%_ + (lambda (_%L67588%_ _%L67590%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67544%_)))) - (let* ((_%__match8248182482%_ - (lambda (_%e6747867502%_ - _%hd6747967506%_ - _%tl6748067509%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) - (letrec ((_%loop6748467518%_ - (lambda (_%hd6748267522%_ - _%body6748867525%_) + _%L67590%_)))) + (let* ((_%__match8252782528%_ + (lambda (_%e6752467548%_ + _%hd6752567552%_ + _%tl6752667555%_ + _%__splice8248182482%_ + _%target6752767558%_ + _%tl6752967561%_) + (letrec ((_%loop6753067564%_ + (lambda (_%hd6752867568%_ + _%body6753467571%_) (if (gx#stx-pair? - _%hd6748267522%_) - (let ((_%e6748567528%_ + _%hd6752867568%_) + (let ((_%e6753167574%_ (gx#syntax-e - _%hd6748267522%_))) - (let ((_%lp-tl6748767535%_ + _%hd6752867568%_))) + (let ((_%lp-tl6753367581%_ (let () (declare (not safe)) - (##cdr _%e6748567528%_))) - (_%lp-hd6748667532%_ + (##cdr _%e6753167574%_))) + (_%lp-hd6753267578%_ (let () (declare (not safe)) - (##car _%e6748567528%_)))) - (_%loop6748467518%_ - _%lp-tl6748767535%_ - (cons _%lp-hd6748667532%_ - _%body6748867525%_)))) - (let ((_%body6748967538%_ - (reverse _%body6748867525%_))) - (_%__kont8243382434%_ - _%body6748967538%_ - _%hd6747967506%_)))))) - (_%loop6748467518%_ - _%target6748167512%_ + (##car _%e6753167574%_)))) + (_%loop6753067564%_ + _%lp-tl6753367581%_ + (cons _%lp-hd6753267578%_ + _%body6753467571%_)))) + (let ((_%body6753567584%_ + (reverse _%body6753467571%_))) + (_%__kont8247982480%_ + _%body6753567584%_ + _%hd6752567552%_)))))) + (_%loop6753067564%_ + _%target6752767558%_ '())))) - (_%__match8246782468%_ - (lambda (_%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%e6746167577%_ - _%hd6746267581%_ - _%tl6746367584%_ - _%e6746467587%_ - _%hd6746567591%_ - _%tl6746667594%_ - _%__splice8243182432%_ - _%target6746767597%_ - _%tl6746967600%_) - (letrec ((_%loop6747067603%_ - (lambda (_%hd6746867607%_ - _%body6747467610%_) + (_%__match8251382514%_ + (lambda (_%e6750467613%_ + _%hd6750567617%_ + _%tl6750667620%_ + _%e6750767623%_ + _%hd6750867627%_ + _%tl6750967630%_ + _%e6751067633%_ + _%hd6751167637%_ + _%tl6751267640%_ + _%__splice8247782478%_ + _%target6751367643%_ + _%tl6751567646%_) + (letrec ((_%loop6751667649%_ + (lambda (_%hd6751467653%_ + _%body6752067656%_) (if (gx#stx-pair? - _%hd6746867607%_) - (let ((_%e6747167613%_ + _%hd6751467653%_) + (let ((_%e6751767659%_ (gx#syntax-e - _%hd6746867607%_))) - (let ((_%lp-tl6747367620%_ + _%hd6751467653%_))) + (let ((_%lp-tl6751967666%_ (let () (declare (not safe)) - (##cdr _%e6747167613%_))) - (_%lp-hd6747267617%_ + (##cdr _%e6751767659%_))) + (_%lp-hd6751867663%_ (let () (declare (not safe)) - (##car _%e6747167613%_)))) - (_%loop6747067603%_ - _%lp-tl6747367620%_ - (cons _%lp-hd6747267617%_ - _%body6747467610%_)))) - (let ((_%body6747567623%_ - (reverse _%body6747467610%_))) - (_%__kont8242982430%_ - _%body6747567623%_ - _%hd6746567591%_ - _%hd6745967571%_)))))) - (_%loop6747067603%_ - _%target6746767597%_ + (##car _%e6751767659%_)))) + (_%loop6751667649%_ + _%lp-tl6751967666%_ + (cons _%lp-hd6751867663%_ + _%body6752067656%_)))) + (let ((_%body6752167669%_ + (reverse _%body6752067656%_))) + (_%__kont8247582476%_ + _%body6752167669%_ + _%hd6751167637%_ + _%hd6750567617%_)))))) + (_%loop6751667649%_ + _%target6751367643%_ '()))))) - (if (gx#stx-pair? _%__stx8242682427%_) - (let ((_%e6745867567%_ - (gx#syntax-e _%__stx8242682427%_))) - (let ((_%tl6746067574%_ + (if (gx#stx-pair? _%__stx8247282473%_) + (let ((_%e6750467613%_ + (gx#syntax-e _%__stx8247282473%_))) + (let ((_%tl6750667620%_ (let () (declare (not safe)) - (##cdr _%e6745867567%_))) - (_%hd6745967571%_ + (##cdr _%e6750467613%_))) + (_%hd6750567617%_ (let () (declare (not safe)) - (##car _%e6745867567%_)))) - (if (gx#stx-pair? _%tl6746067574%_) - (let ((_%e6746167577%_ - (gx#syntax-e _%tl6746067574%_))) - (let ((_%tl6746367584%_ + (##car _%e6750467613%_)))) + (if (gx#stx-pair? _%tl6750667620%_) + (let ((_%e6750767623%_ + (gx#syntax-e _%tl6750667620%_))) + (let ((_%tl6750967630%_ (let () (declare (not safe)) - (##cdr _%e6746167577%_))) - (_%hd6746267581%_ + (##cdr _%e6750767623%_))) + (_%hd6750867627%_ (let () (declare (not safe)) - (##car _%e6746167577%_)))) - (if (gx#identifier? _%hd6746267581%_) + (##car _%e6750767623%_)))) + (if (gx#identifier? _%hd6750867627%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84149_| - _%hd6746267581%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84195_| + _%hd6750867627%_) (if (gx#stx-pair? - _%tl6746367584%_) - (let ((_%e6746467587%_ + _%tl6750967630%_) + (let ((_%e6751067633%_ (gx#syntax-e - _%tl6746367584%_))) - (let ((_%tl6746667594%_ + _%tl6750967630%_))) + (let ((_%tl6751267640%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6746467587%_))) - (_%hd6746567591%_ - (let () (declare (not safe)) (##car _%e6746467587%_)))) - (if (gx#stx-pair/null? _%tl6746667594%_) - (let ((_%__splice8243182432%_ - (gx#syntax-split-splice _%tl6746667594%_ '0))) - (let ((_%tl6746967600%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243182432%_ '1))) - (_%target6746767597%_ + (##vector-ref _%__splice8247782478%_ '1))) + (_%target6751367643%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243182432%_ '0)))) - (if (gx#stx-null? _%tl6746967600%_) - (_%__match8246782468%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%e6746167577%_ - _%hd6746267581%_ - _%tl6746367584%_ - _%e6746467587%_ - _%hd6746567591%_ - _%tl6746667594%_ - _%__splice8243182432%_ - _%target6746767597%_ - _%tl6746967600%_) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ + (##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%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6750667620%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6752967561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '1))) - (_%target6748167512%_ + (_%target6752767558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + (if (gx#stx-null? _%tl6752967561%_) + (_%__match8252782528%_ + _%e6750467613%_ + _%hd6750567617%_ + _%tl6750667620%_ + _%__splice8248182482%_ + _%target6752767558%_ + _%tl6752967561%_) (let () (declare (not safe)) - (_%g6745367495%_))))) + (_%g6749967541%_))))) (let () (declare (not safe)) - (_%g6745367495%_)))))) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ - (gx#syntax-split-splice _%tl6746067574%_ '0))) - (let ((_%tl6748367515%_ + (_%g6749967541%_)))))) + (if (gx#stx-pair/null? _%tl6750667620%_) + (let ((_%__splice8248182482%_ + (gx#syntax-split-splice _%tl6750667620%_ '0))) + (let ((_%tl6752967561%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '1))) - (_%target6748167512%_ + (##vector-ref _%__splice8248182482%_ '1))) + (_%target6752767558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + (if (gx#stx-null? _%tl6752967561%_) + (_%__match8252782528%_ + _%e6750467613%_ + _%hd6750567617%_ + _%tl6750667620%_ + _%__splice8248182482%_ + _%target6752767558%_ + _%tl6752967561%_) (let () (declare (not safe)) - (_%g6745367495%_))))) - (let () (declare (not safe)) (_%g6745367495%_)))))) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ - (gx#syntax-split-splice _%tl6746067574%_ '0))) - (let ((_%tl6748367515%_ + (_%g6749967541%_))))) + (let () (declare (not safe)) (_%g6749967541%_)))))) + (if (gx#stx-pair/null? _%tl6750667620%_) + (let ((_%__splice8248182482%_ + (gx#syntax-split-splice _%tl6750667620%_ '0))) + (let ((_%tl6752967561%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '1))) - (_%target6748167512%_ + (##vector-ref _%__splice8248182482%_ '1))) + (_%target6752767558%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) - (let () (declare (not safe)) (_%g6745367495%_))))) - (let () (declare (not safe)) (_%g6745367495%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6746067574%_) - (let ((_%__splice8243582436%_ + _%tl6750667620%_) + (let ((_%__splice8248182482%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6750667620%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6752967561%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '1))) - (_%target6748167512%_ + (##vector-ref _%__splice8248182482%_ '1))) + (_%target6752767558%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) - (let () (declare (not safe)) (_%g6745367495%_))))) - (let () (declare (not safe)) (_%g6745367495%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6746067574%_) - (let ((_%__splice8243582436%_ + _%tl6750667620%_) + (let ((_%__splice8248182482%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6750667620%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6752967561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '1))) - (_%target6748167512%_ + (_%target6752767558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '0)))) (if (gx#stx-null? - _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + _%tl6752967561%_) + (_%__match8252782528%_ + _%e6750467613%_ + _%hd6750567617%_ + _%tl6750667620%_ + _%__splice8248182482%_ + _%target6752767558%_ + _%tl6752967561%_) (let () (declare (not safe)) - (_%g6745367495%_))))) + (_%g6749967541%_))))) (let () (declare (not safe)) - (_%g6745367495%_)))))) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ + (_%g6749967541%_)))))) + (if (gx#stx-pair/null? _%tl6750667620%_) + (let ((_%__splice8248182482%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6750667620%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6752967561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '1))) - (_%target6748167512%_ + (_%target6752767558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8248182482%_ '0)))) (if (gx#stx-null? - _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + _%tl6752967561%_) + (_%__match8252782528%_ + _%e6750467613%_ + _%hd6750567617%_ + _%tl6750667620%_ + _%__splice8248182482%_ + _%target6752767558%_ + _%tl6752967561%_) (let () (declare (not safe)) - (_%g6745367495%_))))) + (_%g6749967541%_))))) (let () (declare (not safe)) - (_%g6745367495%_)))))) + (_%g6749967541%_)))))) (let () (declare (not safe)) - (_%g6745367495%_)))))))) - (_%clause-e66917%_ - (lambda (_%clause67189%_) - (let* ((_%__stx8248482485%_ _%clause67189%_) - (_%g6719367235%_ + (_%g6749967541%_)))))))) + (_%clause-e66963%_ + (lambda (_%clause67235%_) + (let* ((_%__stx8253082531%_ _%clause67235%_) + (_%g6723967281%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8248482485%_)))) - (let ((_%__kont8248782488%_ - (lambda (_%L67375%_ _%L67377%_ _%L67378%_) + _%__stx8253082531%_)))) + (let ((_%__kont8253382534%_ + (lambda (_%L67421%_ _%L67423%_ _%L67424%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67378%_) + _%L67424%_) (begin (let () (declare (not safe)) @@ -4090,652 +4090,652 @@ '#f '#f '#f - _%stx66912%_ - _%L67378%_ - _%L67377%_)) - (let* ((_%g6739867406%_ - (lambda (_%g6739967402%_) + _%stx66958%_ + _%L67424%_ + _%L67423%_)) + (let* ((_%g6744467452%_ + (lambda (_%g6744567448%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6739967402%_))) - (_%g6739767433%_ - (lambda (_%g6739967410%_) - ((lambda (_%L67413%_) - (cons _%L67413%_ + _%g6744567448%_))) + (_%g6744367479%_ + (lambda (_%g6744567456%_) + ((lambda (_%L67459%_) + (cons _%L67459%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-signature) - (cons (cons _%L67378%_ - (cons _%L67377%_ (cons '#f '()))) + (cons (cons _%L67424%_ + (cons _%L67423%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L67378%_ - (foldr (lambda (_%g6742467427%_ + (cons _%L67424%_ + (foldr (lambda (_%g6747067473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6742567430%_) - (cons _%g6742467427%_ _%g6742567430%_)) + _%g6747167476%_) + (cons _%g6747067473%_ _%g6747167476%_)) '() - _%L67375%_))) + _%L67421%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6739967410%_)))) - (_%g6739767433%_ + _%g6744567456%_)))) + (_%g6744367479%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%L67378%_))))) - (cons _%L67378%_ + _%L67424%_))))) + (cons _%L67424%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L67377%_ (cons '#f '()))) - (foldr (lambda (_%g6743667439%_ _%g6743767442%_) - (cons _%g6743667439%_ _%g6743767442%_)) + (cons _%L67423%_ (cons '#f '()))) + (foldr (lambda (_%g6748267485%_ _%g6748367488%_) + (cons _%g6748267485%_ _%g6748367488%_)) '() - _%L67375%_))) + _%L67421%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8249182492%_ - (lambda (_%L67282%_ _%L67284%_) + (_%__kont8253782538%_ + (lambda (_%L67328%_ _%L67330%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67284%_) - (_%clause-e66917%_ - (cons _%L67284%_ + _%L67330%_) + (_%clause-e66963%_ + (cons _%L67330%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6729967302%_ + (foldr (lambda (_%g6734567348%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6730067305%_) - (cons _%g6729967302%_ _%g6730067305%_)) + _%g6734667351%_) + (cons _%g6734567348%_ _%g6734667351%_)) '() - _%L67282%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause67189%_)))) - (let* ((_%__match8253982540%_ - (lambda (_%e6721867242%_ - _%hd6721967246%_ - _%tl6722067249%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) - (letrec ((_%loop6722467258%_ - (lambda (_%hd6722267262%_ - _%body6722867265%_) + _%L67328%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%clause67235%_)))) + (let* ((_%__match8258582586%_ + (lambda (_%e6726467288%_ + _%hd6726567292%_ + _%tl6726667295%_ + _%__splice8253982540%_ + _%target6726767298%_ + _%tl6726967301%_) + (letrec ((_%loop6727067304%_ + (lambda (_%hd6726867308%_ + _%body6727467311%_) (if (gx#stx-pair? - _%hd6722267262%_) - (let ((_%e6722567268%_ + _%hd6726867308%_) + (let ((_%e6727167314%_ (gx#syntax-e - _%hd6722267262%_))) - (let ((_%lp-tl6722767275%_ + _%hd6726867308%_))) + (let ((_%lp-tl6727367321%_ (let () (declare (not safe)) - (##cdr _%e6722567268%_))) - (_%lp-hd6722667272%_ + (##cdr _%e6727167314%_))) + (_%lp-hd6727267318%_ (let () (declare (not safe)) - (##car _%e6722567268%_)))) - (_%loop6722467258%_ - _%lp-tl6722767275%_ - (cons _%lp-hd6722667272%_ - _%body6722867265%_)))) - (let ((_%body6722967278%_ - (reverse _%body6722867265%_))) - (_%__kont8249182492%_ - _%body6722967278%_ - _%hd6721967246%_)))))) - (_%loop6722467258%_ - _%target6722167252%_ + (##car _%e6727167314%_)))) + (_%loop6727067304%_ + _%lp-tl6727367321%_ + (cons _%lp-hd6727267318%_ + _%body6727467311%_)))) + (let ((_%body6727567324%_ + (reverse _%body6727467311%_))) + (_%__kont8253782538%_ + _%body6727567324%_ + _%hd6726567292%_)))))) + (_%loop6727067304%_ + _%target6726767298%_ '())))) - (_%__match8252582526%_ - (lambda (_%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%e6720167325%_ - _%hd6720267329%_ - _%tl6720367332%_ - _%e6720467335%_ - _%hd6720567339%_ - _%tl6720667342%_ - _%__splice8248982490%_ - _%target6720767345%_ - _%tl6720967348%_) - (letrec ((_%loop6721067351%_ - (lambda (_%hd6720867355%_ - _%body6721467358%_) + (_%__match8257182572%_ + (lambda (_%e6724467361%_ + _%hd6724567365%_ + _%tl6724667368%_ + _%e6724767371%_ + _%hd6724867375%_ + _%tl6724967378%_ + _%e6725067381%_ + _%hd6725167385%_ + _%tl6725267388%_ + _%__splice8253582536%_ + _%target6725367391%_ + _%tl6725567394%_) + (letrec ((_%loop6725667397%_ + (lambda (_%hd6725467401%_ + _%body6726067404%_) (if (gx#stx-pair? - _%hd6720867355%_) - (let ((_%e6721167361%_ + _%hd6725467401%_) + (let ((_%e6725767407%_ (gx#syntax-e - _%hd6720867355%_))) - (let ((_%lp-tl6721367368%_ + _%hd6725467401%_))) + (let ((_%lp-tl6725967414%_ (let () (declare (not safe)) - (##cdr _%e6721167361%_))) - (_%lp-hd6721267365%_ + (##cdr _%e6725767407%_))) + (_%lp-hd6725867411%_ (let () (declare (not safe)) - (##car _%e6721167361%_)))) - (_%loop6721067351%_ - _%lp-tl6721367368%_ - (cons _%lp-hd6721267365%_ - _%body6721467358%_)))) - (let ((_%body6721567371%_ - (reverse _%body6721467358%_))) - (_%__kont8248782488%_ - _%body6721567371%_ - _%hd6720567339%_ - _%hd6719967319%_)))))) - (_%loop6721067351%_ - _%target6720767345%_ + (##car _%e6725767407%_)))) + (_%loop6725667397%_ + _%lp-tl6725967414%_ + (cons _%lp-hd6725867411%_ + _%body6726067404%_)))) + (let ((_%body6726167417%_ + (reverse _%body6726067404%_))) + (_%__kont8253382534%_ + _%body6726167417%_ + _%hd6725167385%_ + _%hd6724567365%_)))))) + (_%loop6725667397%_ + _%target6725367391%_ '()))))) - (if (gx#stx-pair? _%__stx8248482485%_) - (let ((_%e6719867315%_ - (gx#syntax-e _%__stx8248482485%_))) - (let ((_%tl6720067322%_ + (if (gx#stx-pair? _%__stx8253082531%_) + (let ((_%e6724467361%_ + (gx#syntax-e _%__stx8253082531%_))) + (let ((_%tl6724667368%_ (let () (declare (not safe)) - (##cdr _%e6719867315%_))) - (_%hd6719967319%_ + (##cdr _%e6724467361%_))) + (_%hd6724567365%_ (let () (declare (not safe)) - (##car _%e6719867315%_)))) - (if (gx#stx-pair? _%tl6720067322%_) - (let ((_%e6720167325%_ - (gx#syntax-e _%tl6720067322%_))) - (let ((_%tl6720367332%_ + (##car _%e6724467361%_)))) + (if (gx#stx-pair? _%tl6724667368%_) + (let ((_%e6724767371%_ + (gx#syntax-e _%tl6724667368%_))) + (let ((_%tl6724967378%_ (let () (declare (not safe)) - (##cdr _%e6720167325%_))) - (_%hd6720267329%_ + (##cdr _%e6724767371%_))) + (_%hd6724867375%_ (let () (declare (not safe)) - (##car _%e6720167325%_)))) - (if (gx#identifier? _%hd6720267329%_) + (##car _%e6724767371%_)))) + (if (gx#identifier? _%hd6724867375%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84150_| - _%hd6720267329%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84196_| + _%hd6724867375%_) (if (gx#stx-pair? - _%tl6720367332%_) - (let ((_%e6720467335%_ + _%tl6724967378%_) + (let ((_%e6725067381%_ (gx#syntax-e - _%tl6720367332%_))) - (let ((_%tl6720667342%_ + _%tl6724967378%_))) + (let ((_%tl6725267388%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6720467335%_))) - (_%hd6720567339%_ - (let () (declare (not safe)) (##car _%e6720467335%_)))) - (if (gx#stx-pair/null? _%tl6720667342%_) - (let ((_%__splice8248982490%_ - (gx#syntax-split-splice _%tl6720667342%_ '0))) - (let ((_%tl6720967348%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248982490%_ '1))) - (_%target6720767345%_ + (##vector-ref _%__splice8253582536%_ '1))) + (_%target6725367391%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248982490%_ '0)))) - (if (gx#stx-null? _%tl6720967348%_) - (_%__match8252582526%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%e6720167325%_ - _%hd6720267329%_ - _%tl6720367332%_ - _%e6720467335%_ - _%hd6720567339%_ - _%tl6720667342%_ - _%__splice8248982490%_ - _%target6720767345%_ - _%tl6720967348%_) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ + (##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%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6724667368%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6726967301%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '1))) - (_%target6722167252%_ + (_%target6726767298%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + (if (gx#stx-null? _%tl6726967301%_) + (_%__match8258582586%_ + _%e6724467361%_ + _%hd6724567365%_ + _%tl6724667368%_ + _%__splice8253982540%_ + _%target6726767298%_ + _%tl6726967301%_) (let () (declare (not safe)) - (_%g6719367235%_))))) + (_%g6723967281%_))))) (let () (declare (not safe)) - (_%g6719367235%_)))))) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ - (gx#syntax-split-splice _%tl6720067322%_ '0))) - (let ((_%tl6722367255%_ + (_%g6723967281%_)))))) + (if (gx#stx-pair/null? _%tl6724667368%_) + (let ((_%__splice8253982540%_ + (gx#syntax-split-splice _%tl6724667368%_ '0))) + (let ((_%tl6726967301%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '1))) - (_%target6722167252%_ + (##vector-ref _%__splice8253982540%_ '1))) + (_%target6726767298%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + (if (gx#stx-null? _%tl6726967301%_) + (_%__match8258582586%_ + _%e6724467361%_ + _%hd6724567365%_ + _%tl6724667368%_ + _%__splice8253982540%_ + _%target6726767298%_ + _%tl6726967301%_) (let () (declare (not safe)) - (_%g6719367235%_))))) - (let () (declare (not safe)) (_%g6719367235%_)))))) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ - (gx#syntax-split-splice _%tl6720067322%_ '0))) - (let ((_%tl6722367255%_ + (_%g6723967281%_))))) + (let () (declare (not safe)) (_%g6723967281%_)))))) + (if (gx#stx-pair/null? _%tl6724667368%_) + (let ((_%__splice8253982540%_ + (gx#syntax-split-splice _%tl6724667368%_ '0))) + (let ((_%tl6726967301%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '1))) - (_%target6722167252%_ + (##vector-ref _%__splice8253982540%_ '1))) + (_%target6726767298%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) - (let () (declare (not safe)) (_%g6719367235%_))))) - (let () (declare (not safe)) (_%g6719367235%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6720067322%_) - (let ((_%__splice8249382494%_ + _%tl6724667368%_) + (let ((_%__splice8253982540%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6724667368%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6726967301%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '1))) - (_%target6722167252%_ + (##vector-ref _%__splice8253982540%_ '1))) + (_%target6726767298%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) - (let () (declare (not safe)) (_%g6719367235%_))))) - (let () (declare (not safe)) (_%g6719367235%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6720067322%_) - (let ((_%__splice8249382494%_ + _%tl6724667368%_) + (let ((_%__splice8253982540%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6724667368%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6726967301%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '1))) - (_%target6722167252%_ + (_%target6726767298%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '0)))) (if (gx#stx-null? - _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + _%tl6726967301%_) + (_%__match8258582586%_ + _%e6724467361%_ + _%hd6724567365%_ + _%tl6724667368%_ + _%__splice8253982540%_ + _%target6726767298%_ + _%tl6726967301%_) (let () (declare (not safe)) - (_%g6719367235%_))))) + (_%g6723967281%_))))) (let () (declare (not safe)) - (_%g6719367235%_)))))) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ + (_%g6723967281%_)))))) + (if (gx#stx-pair/null? _%tl6724667368%_) + (let ((_%__splice8253982540%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6724667368%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6726967301%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '1))) - (_%target6722167252%_ + (_%target6726767298%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8253982540%_ '0)))) (if (gx#stx-null? - _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + _%tl6726967301%_) + (_%__match8258582586%_ + _%e6724467361%_ + _%hd6724567365%_ + _%tl6724667368%_ + _%__splice8253982540%_ + _%target6726767298%_ + _%tl6726967301%_) (let () (declare (not safe)) - (_%g6719367235%_))))) + (_%g6723967281%_))))) (let () (declare (not safe)) - (_%g6719367235%_)))))) + (_%g6723967281%_)))))) (let () (declare (not safe)) - (_%g6719367235%_))))))))) - (let* ((_%__stx8254282543%_ _%stx66912%_) - (_%g6692066953%_ + (_%g6723967281%_))))))))) + (let* ((_%__stx8258882589%_ _%stx66958%_) + (_%g6696666999%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8254282543%_)))) - (let ((_%__kont8254582546%_ - (lambda (_%L67072%_) - (let* ((_%g6709567112%_ - (lambda (_%g6709667108%_) + _%__stx8258882589%_)))) + (let ((_%__kont8259182592%_ + (lambda (_%L67118%_) + (let* ((_%g6714167158%_ + (lambda (_%g6714267154%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6709667108%_))) - (_%g6709467173%_ - (lambda (_%g6709667116%_) - (if (gx#stx-pair/null? _%g6709667116%_) - (let ((_g84151_ + _%g6714267154%_))) + (_%g6714067219%_ + (lambda (_%g6714267162%_) + (if (gx#stx-pair/null? _%g6714267162%_) + (let ((_g84197_ (gx#syntax-split-splice - _%g6709667116%_ + _%g6714267162%_ '0))) (begin - (let ((_g84152_ + (let ((_g84198_ (let () (declare (not safe)) - (if (##values? _g84151_) - (##vector-length _g84151_) + (if (##values? _g84197_) + (##vector-length _g84197_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84152_ 2))) + (##fx= _g84198_ 2))) (error "Context expects 2 values" - _g84152_))) - (let ((_%target6709867119%_ + _g84198_))) + (let ((_%target6714467165%_ (let () (declare (not safe)) - (##vector-ref _g84151_ 0))) - (_%tl6710067122%_ + (##vector-ref _g84197_ 0))) + (_%tl6714667168%_ (let () (declare (not safe)) - (##vector-ref _g84151_ 1)))) - (if (gx#stx-null? _%tl6710067122%_) - (letrec ((_%loop6710167125%_ - (lambda (_%hd6709967129%_ - _%clause6710567132%_) + (##vector-ref _g84197_ 1)))) + (if (gx#stx-null? _%tl6714667168%_) + (letrec ((_%loop6714767171%_ + (lambda (_%hd6714567175%_ + _%clause6715167178%_) (if (gx#stx-pair? - _%hd6709967129%_) - (let ((_%e6710267135%_ + _%hd6714567175%_) + (let ((_%e6714867181%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6709967129%_))) - (let ((_%lp-hd6710367139%_ + (gx#syntax-e _%hd6714567175%_))) + (let ((_%lp-hd6714967185%_ (let () (declare (not safe)) - (##car _%e6710267135%_))) - (_%lp-tl6710467142%_ + (##car _%e6714867181%_))) + (_%lp-tl6715067188%_ (let () (declare (not safe)) - (##cdr _%e6710267135%_)))) - (_%loop6710167125%_ - _%lp-tl6710467142%_ - (cons _%lp-hd6710367139%_ _%clause6710567132%_)))) - (let ((_%clause6710667145%_ - (reverse _%clause6710567132%_))) - ((lambda (_%L67149%_) + (##cdr _%e6714867181%_)))) + (_%loop6714767171%_ + _%lp-tl6715067188%_ + (cons _%lp-hd6714967185%_ _%clause6715167178%_)))) + (let ((_%clause6715267191%_ + (reverse _%clause6715167178%_))) + ((lambda (_%L67195%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6716467167%_ - _%g6716567170%_) - (cons _%g6716467167%_ - _%g6716567170%_)) + (foldr (lambda (_%g6721067213%_ + _%g6721167216%_) + (cons _%g6721067213%_ + _%g6721167216%_)) '() - _%L67149%_))) - _%clause6710667145%_)))))) + _%L67195%_))) + _%clause6715267191%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6710167125%_ - _%target6709867119%_ + (_%loop6714767171%_ + _%target6714467165%_ '())) - (_%g6709567112%_ - _%g6709667116%_))))) - (_%g6709567112%_ _%g6709667116%_))))) - (_%g6709467173%_ - (map _%clause-e66917%_ - (foldr (lambda (_%g6717667179%_ _%g6717767182%_) - (cons _%g6717667179%_ _%g6717767182%_)) + (_%g6714167158%_ + _%g6714267162%_))))) + (_%g6714167158%_ _%g6714267162%_))))) + (_%g6714067219%_ + (map _%clause-e66963%_ + (foldr (lambda (_%g6722267225%_ _%g6722367228%_) + (cons _%g6722267225%_ _%g6722367228%_)) '() - _%L67072%_)))))) - (_%__kont8254982550%_ - (lambda (_%L67000%_) + _%L67118%_)))))) + (_%__kont8259582596%_ + (lambda (_%L67046%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6701667019%_ _%g6701767022%_) - (cons _%g6701667019%_ _%g6701767022%_)) + (foldr (lambda (_%g6706267065%_ _%g6706367068%_) + (cons _%g6706267065%_ _%g6706367068%_)) '() - _%L67000%_))))) - (let* ((_%__match8258182582%_ - (lambda (_%e6693666960%_ - _%hd6693766964%_ - _%tl6693866967%_ - _%__splice8255182552%_ - _%target6693966970%_ - _%tl6694166973%_) - (letrec ((_%loop6694266976%_ - (lambda (_%hd6694066980%_ - _%clause6694666983%_) - (if (gx#stx-pair? _%hd6694066980%_) - (let ((_%e6694366986%_ - (gx#syntax-e _%hd6694066980%_))) - (let ((_%lp-tl6694566993%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6694366986%_))) - (_%lp-hd6694466990%_ + (##cdr _%e6698967032%_))) + (_%lp-hd6699067036%_ (let () (declare (not safe)) - (##car _%e6694366986%_)))) - (_%loop6694266976%_ - _%lp-tl6694566993%_ - (cons _%lp-hd6694466990%_ - _%clause6694666983%_)))) - (let ((_%clause6694766996%_ - (reverse _%clause6694666983%_))) - (_%__kont8254982550%_ - _%clause6694766996%_)))))) - (_%loop6694266976%_ _%target6693966970%_ '())))) - (_%__match8256782568%_ - (lambda (_%e6692367032%_ - _%hd6692467036%_ - _%tl6692567039%_ - _%__splice8254782548%_ - _%target6692667042%_ - _%tl6692867045%_) - (letrec ((_%loop6692967048%_ - (lambda (_%hd6692767052%_ - _%clause6693367055%_) - (if (gx#stx-pair? _%hd6692767052%_) - (let ((_%e6693067058%_ - (gx#syntax-e _%hd6692767052%_))) - (let ((_%lp-tl6693267065%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6693067058%_))) - (_%lp-hd6693167062%_ + (##cdr _%e6697667104%_))) + (_%lp-hd6697767108%_ (let () (declare (not safe)) - (##car _%e6693067058%_)))) - (_%loop6692967048%_ - _%lp-tl6693267065%_ - (cons _%lp-hd6693167062%_ - _%clause6693367055%_)))) - (let* ((_%clause6693467068%_ - (reverse _%clause6693367055%_)) - (_%L67072%_ - _%clause6693467068%_)) - (if (ormap _%is-clause-signature?66915%_ - (foldr (lambda (_%g6708667089%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6708767092%_) - (cons _%g6708667089%_ _%g6708767092%_)) + (##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%_)) '() - _%L67072%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8254582546%_ _%L67072%_) - (_%__match8258182582%_ - _%e6692367032%_ - _%hd6692467036%_ - _%tl6692567039%_ - _%__splice8254782548%_ - _%target6692667042%_ - _%tl6692867045%_))))))) - (_%loop6692967048%_ _%target6692667042%_ '()))))) - (if (gx#stx-pair? _%__stx8254282543%_) - (let ((_%e6692367032%_ (gx#syntax-e _%__stx8254282543%_))) - (let ((_%tl6692567039%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6692367032%_))) - (_%hd6692467036%_ + (##cdr _%e6696967078%_))) + (_%hd6697067082%_ (let () (declare (not safe)) - (##car _%e6692367032%_)))) - (if (gx#stx-pair/null? _%tl6692567039%_) - (let ((_%__splice8254782548%_ + (##car _%e6696967078%_)))) + (if (gx#stx-pair/null? _%tl6697167085%_) + (let ((_%__splice8259382594%_ (gx#syntax-split-splice - _%tl6692567039%_ + _%tl6697167085%_ '0))) - (let ((_%tl6692867045%_ + (let ((_%tl6697467091%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254782548%_ + _%__splice8259382594%_ '1))) - (_%target6692667042%_ + (_%target6697267088%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254782548%_ + _%__splice8259382594%_ '0)))) - (if (gx#stx-null? _%tl6692867045%_) - (_%__match8256782568%_ - _%e6692367032%_ - _%hd6692467036%_ - _%tl6692567039%_ - _%__splice8254782548%_ - _%target6692667042%_ - _%tl6692867045%_) + (if (gx#stx-null? _%tl6697467091%_) + (_%__match8261382614%_ + _%e6696967078%_ + _%hd6697067082%_ + _%tl6697167085%_ + _%__splice8259382594%_ + _%target6697267088%_ + _%tl6697467091%_) (let () (declare (not safe)) - (_%g6692066953%_))))) - (let () (declare (not safe)) (_%g6692066953%_))))) - (let () (declare (not safe)) (_%g6692066953%_))))))))) + (_%g6696666999%_))))) + (let () (declare (not safe)) (_%g6696666999%_))))) + (let () (declare (not safe)) (_%g6696666999%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| - (lambda (_%stx67661%_) - (let* ((_%__stx8258482585%_ _%stx67661%_) - (_%g6766567710%_ + (lambda (_%stx67707%_) + (let* ((_%__stx8263082631%_ _%stx67707%_) + (_%g6771167756%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8258482585%_)))) - (let ((_%__kont8258782588%_ - (lambda (_%L67866%_ _%L67868%_) - (let* ((_%str67885%_ (symbol->string (gx#stx-e _%L67868%_))) - (_%ix67888%_ (string-rindex _%str67885%_ '#\.)) - (_%g6789367908%_ - (lambda (_%g6789467904%_) + _%__stx8263082631%_)))) + (let ((_%__kont8263382634%_ + (lambda (_%L67912%_ _%L67914%_) + (let* ((_%str67931%_ (symbol->string (gx#stx-e _%L67914%_))) + (_%ix67934%_ (string-rindex _%str67931%_ '#\.)) + (_%g6793967954%_ + (lambda (_%g6794067950%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6789467904%_))) - (_%g6789267964%_ - (lambda (_%g6789467912%_) - (if (gx#stx-pair? _%g6789467912%_) - (let ((_%e6789767915%_ - (gx#syntax-e _%g6789467912%_))) - (let ((_%hd6789867919%_ + _%g6794067950%_))) + (_%g6793868010%_ + (lambda (_%g6794067958%_) + (if (gx#stx-pair? _%g6794067958%_) + (let ((_%e6794367961%_ + (gx#syntax-e _%g6794067958%_))) + (let ((_%hd6794467965%_ (let () (declare (not safe)) - (##car _%e6789767915%_))) - (_%tl6789967922%_ + (##car _%e6794367961%_))) + (_%tl6794567968%_ (let () (declare (not safe)) - (##cdr _%e6789767915%_)))) - (if (gx#stx-pair? _%tl6789967922%_) - (let ((_%e6790067925%_ + (##cdr _%e6794367961%_)))) + (if (gx#stx-pair? _%tl6794567968%_) + (let ((_%e6794667971%_ (gx#syntax-e - _%tl6789967922%_))) - (let ((_%hd6790167929%_ + _%tl6794567968%_))) + (let ((_%hd6794767975%_ (let () (declare (not safe)) - (##car _%e6790067925%_))) - (_%tl6790267932%_ + (##car _%e6794667971%_))) + (_%tl6794867978%_ (let () (declare (not safe)) - (##cdr _%e6790067925%_)))) + (##cdr _%e6794667971%_)))) (if (gx#stx-null? - _%tl6790267932%_) - ((lambda (_%L67935%_ - _%L67937%_) + _%tl6794867978%_) + ((lambda (_%L67981%_ + _%L67983%_) (cons (gx#datum->syntax '#f 'call-method) @@ -4743,1970 +4743,1970 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%ref-dotted) - (cons _%L67937%_ '())) + (cons _%L67983%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67935%_ '())) - (foldr (lambda (_%g6795567958%_ _%g6795667961%_) - (cons _%g6795567958%_ _%g6795667961%_)) + (cons _%L67981%_ '())) + (foldr (lambda (_%g6800168004%_ _%g6800268007%_) + (cons _%g6800168004%_ _%g6800268007%_)) '() - _%L67866%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6790167929%_ - _%hd6789867919%_) - (_%g6789367908%_ - _%g6789467912%_)))) - (_%g6789367908%_ _%g6789467912%_)))) - (_%g6789367908%_ _%g6789467912%_))))) - (_%g6789267964%_ + _%L67912%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6794767975%_ + _%hd6794467965%_) + (_%g6793967954%_ + _%g6794067958%_)))) + (_%g6793967954%_ _%g6794067958%_)))) + (_%g6793967954%_ _%g6794067958%_))))) + (_%g6793868010%_ (list (gx#stx-identifier - _%L67868%_ - (substring _%str67885%_ '0 _%ix67888%_)) - (let ((__tmp84153 + _%L67914%_ + (substring _%str67931%_ '0 _%ix67934%_)) + (let ((__tmp84199 (substring - _%str67885%_ - (fx1+ _%ix67888%_) - (string-length _%str67885%_)))) + _%str67931%_ + (fx1+ _%ix67934%_) + (string-length _%str67931%_)))) (declare (not safe)) - (##string->symbol __tmp84153))))))) - (_%__kont8259182592%_ - (lambda (_%L67777%_ _%L67779%_ _%L67780%_) + (##string->symbol __tmp84199))))))) + (_%__kont8263782638%_ + (lambda (_%L67823%_ _%L67825%_ _%L67826%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L67779%_ + (cons _%L67825%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67780%_ '())) - (foldr (lambda (_%g6780067803%_ - _%g6780167806%_) - (cons _%g6780067803%_ - _%g6780167806%_)) + (cons _%L67826%_ '())) + (foldr (lambda (_%g6784667849%_ + _%g6784767852%_) + (cons _%g6784667849%_ + _%g6784767852%_)) '() - _%L67777%_))))))) - (let* ((_%__match8264182642%_ - (lambda (_%e6768767717%_ - _%hd6768867721%_ - _%tl6768967724%_ - _%e6769067727%_ - _%hd6769167731%_ - _%tl6769267734%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) - (letrec ((_%loop6769967753%_ - (lambda (_%hd6769767757%_ _%arg6770367760%_) - (if (gx#stx-pair? _%hd6769767757%_) - (let ((_%e6770067763%_ - (gx#syntax-e _%hd6769767757%_))) - (let ((_%lp-tl6770267770%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6770067763%_))) - (_%lp-hd6770167767%_ + (##cdr _%e6774667809%_))) + (_%lp-hd6774767813%_ (let () (declare (not safe)) - (##car _%e6770067763%_)))) - (_%loop6769967753%_ - _%lp-tl6770267770%_ - (cons _%lp-hd6770167767%_ - _%arg6770367760%_)))) - (let ((_%arg6770467773%_ - (reverse _%arg6770367760%_))) - (_%__kont8259182592%_ - _%arg6770467773%_ - _%hd6769467741%_ - _%hd6769167731%_)))))) - (_%loop6769967753%_ _%target6769667747%_ '())))) - (_%__match8262782628%_ - (lambda (_%e6768767717%_ - _%hd6768867721%_ - _%tl6768967724%_ - _%e6769067727%_ - _%hd6769167731%_ - _%tl6769267734%_) - (if (gx#stx-pair? _%tl6769267734%_) - (let ((_%e6769367737%_ - (gx#syntax-e _%tl6769267734%_))) - (let ((_%tl6769567744%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6769367737%_))) - (_%hd6769467741%_ + (##cdr _%e6773967783%_))) + (_%hd6774067787%_ (let () (declare (not safe)) - (##car _%e6769367737%_)))) - (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8259382594%_ + (##car _%e6773967783%_)))) + (if (gx#stx-pair/null? _%tl6774167790%_) + (let ((_%__splice8263982640%_ (gx#syntax-split-splice - _%tl6769567744%_ + _%tl6774167790%_ '0))) - (let ((_%tl6769867750%_ + (let ((_%tl6774467796%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8263982640%_ '1))) - (_%target6769667747%_ + (_%target6774267793%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8263982640%_ '0)))) - (if (gx#stx-null? _%tl6769867750%_) - (_%__match8264182642%_ - _%e6768767717%_ - _%hd6768867721%_ - _%tl6768967724%_ - _%e6769067727%_ - _%hd6769167731%_ - _%tl6769267734%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) + (if (gx#stx-null? _%tl6774467796%_) + (_%__match8268782688%_ + _%e6773367763%_ + _%hd6773467767%_ + _%tl6773567770%_ + _%e6773667773%_ + _%hd6773767777%_ + _%tl6773867780%_ + _%e6773967783%_ + _%hd6774067787%_ + _%tl6774167790%_ + _%__splice8263982640%_ + _%target6774267793%_ + _%tl6774467796%_) (let () (declare (not safe)) - (_%g6766567710%_))))) + (_%g6771167756%_))))) (let () (declare (not safe)) - (_%g6766567710%_))))) - (let () (declare (not safe)) (_%g6766567710%_))))) - (_%__match8261582616%_ - (lambda (_%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%__splice8258982590%_ - _%target6767567836%_ - _%tl6767767839%_) - (letrec ((_%loop6767867842%_ - (lambda (_%hd6767667846%_ _%arg6768267849%_) - (if (gx#stx-pair? _%hd6767667846%_) - (let ((_%e6767967852%_ - (gx#syntax-e _%hd6767667846%_))) - (let ((_%lp-tl6768167859%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e6767967852%_))) - (_%lp-hd6768067856%_ + (##cdr _%e6772567898%_))) + (_%lp-hd6772667902%_ (let () (declare (not safe)) - (##car _%e6767967852%_)))) - (_%loop6767867842%_ - _%lp-tl6768167859%_ - (cons _%lp-hd6768067856%_ - _%arg6768267849%_)))) - (let ((_%arg6768367862%_ - (reverse _%arg6768267849%_))) - (let ((_%L67866%_ _%arg6768367862%_) - (_%L67868%_ _%hd6767367830%_)) + (##car _%e6772567898%_)))) + (_%loop6772467888%_ + _%lp-tl6772767905%_ + (cons _%lp-hd6772667902%_ + _%arg6772867895%_)))) + (let ((_%arg6772967908%_ + (reverse _%arg6772867895%_))) + (let ((_%L67912%_ _%arg6772967908%_) + (_%L67914%_ _%hd6771967876%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L67868%_)) - (_%__kont8258782588%_ - _%L67866%_ - _%L67868%_) - (_%__match8262782628%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_)))))))) - (_%loop6767867842%_ _%target6767567836%_ '()))))) - (if (gx#stx-pair? _%__stx8258482585%_) - (let ((_%e6766967816%_ (gx#syntax-e _%__stx8258482585%_))) - (let ((_%tl6767167823%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6766967816%_))) - (_%hd6767067820%_ + (##cdr _%e6771567862%_))) + (_%hd6771667866%_ (let () (declare (not safe)) - (##car _%e6766967816%_)))) - (if (gx#stx-pair? _%tl6767167823%_) - (let ((_%e6767267826%_ - (gx#syntax-e _%tl6767167823%_))) - (let ((_%tl6767467833%_ + (##car _%e6771567862%_)))) + (if (gx#stx-pair? _%tl6771767869%_) + (let ((_%e6771867872%_ + (gx#syntax-e _%tl6771767869%_))) + (let ((_%tl6772067879%_ (let () (declare (not safe)) - (##cdr _%e6767267826%_))) - (_%hd6767367830%_ + (##cdr _%e6771867872%_))) + (_%hd6771967876%_ (let () (declare (not safe)) - (##car _%e6767267826%_)))) - (if (gx#stx-pair/null? _%tl6767467833%_) - (let ((_%__splice8258982590%_ + (##car _%e6771867872%_)))) + (if (gx#stx-pair/null? _%tl6772067879%_) + (let ((_%__splice8263582636%_ (gx#syntax-split-splice - _%tl6767467833%_ + _%tl6772067879%_ '0))) - (let ((_%tl6767767839%_ + (let ((_%tl6772367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8258982590%_ + _%__splice8263582636%_ '1))) - (_%target6767567836%_ + (_%target6772167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8258982590%_ + _%__splice8263582636%_ '0)))) - (if (gx#stx-null? _%tl6767767839%_) - (_%__match8261582616%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%__splice8258982590%_ - _%target6767567836%_ - _%tl6767767839%_) - (if (gx#stx-pair? _%tl6767467833%_) - (let ((_%e6769367737%_ + (if (gx#stx-null? _%tl6772367885%_) + (_%__match8266182662%_ + _%e6771567862%_ + _%hd6771667866%_ + _%tl6771767869%_ + _%e6771867872%_ + _%hd6771967876%_ + _%tl6772067879%_ + _%__splice8263582636%_ + _%target6772167882%_ + _%tl6772367885%_) + (if (gx#stx-pair? _%tl6772067879%_) + (let ((_%e6773967783%_ (gx#syntax-e - _%tl6767467833%_))) - (let ((_%tl6769567744%_ + _%tl6772067879%_))) + (let ((_%tl6774167790%_ (let () (declare (not safe)) - (##cdr _%e6769367737%_))) - (_%hd6769467741%_ + (##cdr _%e6773967783%_))) + (_%hd6774067787%_ (let () (declare (not safe)) - (##car _%e6769367737%_)))) + (##car _%e6773967783%_)))) (if (gx#stx-pair/null? - _%tl6769567744%_) - (let ((_%__splice8259382594%_ + _%tl6774167790%_) + (let ((_%__splice8263982640%_ (gx#syntax-split-splice - _%tl6769567744%_ + _%tl6774167790%_ '0))) - (let ((_%tl6769867750%_ + (let ((_%tl6774467796%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8259382594%_ '1))) - (_%target6769667747%_ + (##vector-ref _%__splice8263982640%_ '1))) + (_%target6774267793%_ (let () (declare (not safe)) - (##vector-ref _%__splice8259382594%_ '0)))) - (if (gx#stx-null? _%tl6769867750%_) - (_%__match8264182642%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) - (let () (declare (not safe)) (_%g6766567710%_))))) - (let () (declare (not safe)) (_%g6766567710%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6766567710%_)))))) - (if (gx#stx-pair? _%tl6767467833%_) - (let ((_%e6769367737%_ - (gx#syntax-e _%tl6767467833%_))) - (let ((_%tl6769567744%_ + (_%g6771167756%_)))))) + (if (gx#stx-pair? _%tl6772067879%_) + (let ((_%e6773967783%_ + (gx#syntax-e _%tl6772067879%_))) + (let ((_%tl6774167790%_ (let () (declare (not safe)) - (##cdr _%e6769367737%_))) - (_%hd6769467741%_ + (##cdr _%e6773967783%_))) + (_%hd6774067787%_ (let () (declare (not safe)) - (##car _%e6769367737%_)))) + (##car _%e6773967783%_)))) (if (gx#stx-pair/null? - _%tl6769567744%_) - (let ((_%__splice8259382594%_ + _%tl6774167790%_) + (let ((_%__splice8263982640%_ (gx#syntax-split-splice - _%tl6769567744%_ + _%tl6774167790%_ '0))) - (let ((_%tl6769867750%_ + (let ((_%tl6774467796%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8263982640%_ '1))) - (_%target6769667747%_ + (_%target6774267793%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8263982640%_ '0)))) (if (gx#stx-null? - _%tl6769867750%_) - (_%__match8264182642%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) + _%tl6774467796%_) + (_%__match8268782688%_ + _%e6771567862%_ + _%hd6771667866%_ + _%tl6771767869%_ + _%e6771867872%_ + _%hd6771967876%_ + _%tl6772067879%_ + _%e6773967783%_ + _%hd6774067787%_ + _%tl6774167790%_ + _%__splice8263982640%_ + _%target6774267793%_ + _%tl6774467796%_) (let () (declare (not safe)) - (_%g6766567710%_))))) + (_%g6771167756%_))))) (let () (declare (not safe)) - (_%g6766567710%_))))) + (_%g6771167756%_))))) (let () (declare (not safe)) - (_%g6766567710%_)))))) - (let () (declare (not safe)) (_%g6766567710%_))))) - (let () (declare (not safe)) (_%g6766567710%_)))))))) + (_%g6771167756%_)))))) + (let () (declare (not safe)) (_%g6771167756%_))))) + (let () (declare (not safe)) (_%g6771167756%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| - (lambda (_%stx67974%_) - (let* ((_%__stx8264482645%_ _%stx67974%_) - (_%g6797968104%_ + (lambda (_%stx68020%_) + (let* ((_%__stx8269082691%_ _%stx68020%_) + (_%g6802568150%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8264482645%_)))) - (let ((_%__kont8264782648%_ - (lambda (_%L68673%_ - _%L68675%_ - _%L68676%_ - _%L68677%_ - _%L68678%_ - _%L68679%_ - _%L68680%_) - (let* ((_%g6871668724%_ - (lambda (_%g6871768720%_) + _%__stx8269082691%_)))) + (let ((_%__kont8269382694%_ + (lambda (_%L68719%_ + _%L68721%_ + _%L68722%_ + _%L68723%_ + _%L68724%_ + _%L68725%_ + _%L68726%_) + (let* ((_%g6876268770%_ + (lambda (_%g6876368766%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6871768720%_))) - (_%g6871568785%_ - (lambda (_%g6871768728%_) - ((lambda (_%L68731%_) - (let* ((_%g6874368751%_ - (lambda (_%g6874468747%_) + _%g6876368766%_))) + (_%g6876168831%_ + (lambda (_%g6876368774%_) + ((lambda (_%L68777%_) + (let* ((_%g6878968797%_ + (lambda (_%g6879068793%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6874468747%_))) - (_%g6874268773%_ - (lambda (_%g6874468755%_) - ((lambda (_%L68758%_) + _%g6879068793%_))) + (_%g6878868819%_ + (lambda (_%g6879068801%_) + ((lambda (_%L68804%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68679%_ + (cons _%L68725%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68678%_ '()))) - (cons _%L68758%_ _%L68673%_)))) + (cons _%L68724%_ '()))) + (cons _%L68804%_ _%L68719%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6874468755%_)))) - (_%g6874268773%_ + _%g6879068801%_)))) + (_%g6878868819%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (cons _%L68731%_ _%L68676%_) + (cons (cons _%L68777%_ _%L68722%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L68677%_ + (cons (cons _%L68723%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68731%_ + (cons _%L68777%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L68678%_ '())))) + (cons _%L68724%_ '())))) (cons (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%L68677%_ + (cons _%L68723%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6877668779%_ + (foldr (lambda (_%g6882268825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6877768782%_) - (cons _%g6877668779%_ _%g6877768782%_)) + _%g6882368828%_) + (cons _%g6882268825%_ _%g6882368828%_)) '() - _%L68675%_))) + _%L68721%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx67974%_))))) - _%g6871768728%_)))) - (_%g6871568785%_ (gx#genident _%L68677%_))))) - (_%__kont8265182652%_ - (lambda (_%L68352%_ - _%L68354%_ - _%L68355%_ - _%L68356%_ - _%L68357%_ - _%L68358%_ - _%L68359%_) - (let* ((_%g6839968416%_ - (lambda (_%g6840068412%_) + (gx#stx-source _%stx68020%_))))) + _%g6876368774%_)))) + (_%g6876168831%_ (gx#genident _%L68723%_))))) + (_%__kont8269782698%_ + (lambda (_%L68398%_ + _%L68400%_ + _%L68401%_ + _%L68402%_ + _%L68403%_ + _%L68404%_ + _%L68405%_) + (let* ((_%g6844568462%_ + (lambda (_%g6844668458%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6840068412%_))) - (_%g6839868534%_ - (lambda (_%g6840068420%_) - (if (gx#stx-pair/null? _%g6840068420%_) - (let ((_g84154_ + _%g6844668458%_))) + (_%g6844468580%_ + (lambda (_%g6844668466%_) + (if (gx#stx-pair/null? _%g6844668466%_) + (let ((_g84200_ (gx#syntax-split-splice - _%g6840068420%_ + _%g6844668466%_ '0))) (begin - (let ((_g84155_ + (let ((_g84201_ (let () (declare (not safe)) - (if (##values? _g84154_) - (##vector-length _g84154_) + (if (##values? _g84200_) + (##vector-length _g84200_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84155_ 2))) + (##fx= _g84201_ 2))) (error "Context expects 2 values" - _g84155_))) - (let ((_%target6840268423%_ + _g84201_))) + (let ((_%target6844868469%_ (let () (declare (not safe)) - (##vector-ref _g84154_ 0))) - (_%tl6840468426%_ + (##vector-ref _g84200_ 0))) + (_%tl6845068472%_ (let () (declare (not safe)) - (##vector-ref _g84154_ 1)))) - (if (gx#stx-null? _%tl6840468426%_) - (letrec ((_%loop6840568429%_ - (lambda (_%hd6840368433%_ - _%receiver6840968436%_) + (##vector-ref _g84200_ 1)))) + (if (gx#stx-null? _%tl6845068472%_) + (letrec ((_%loop6845168475%_ + (lambda (_%hd6844968479%_ + _%receiver6845568482%_) (if (gx#stx-pair? - _%hd6840368433%_) - (let ((_%e6840668439%_ + _%hd6844968479%_) + (let ((_%e6845268485%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6840368433%_))) - (let ((_%lp-hd6840768443%_ + (gx#syntax-e _%hd6844968479%_))) + (let ((_%lp-hd6845368489%_ (let () (declare (not safe)) - (##car _%e6840668439%_))) - (_%lp-tl6840868446%_ + (##car _%e6845268485%_))) + (_%lp-tl6845468492%_ (let () (declare (not safe)) - (##cdr _%e6840668439%_)))) - (_%loop6840568429%_ - _%lp-tl6840868446%_ - (cons _%lp-hd6840768443%_ _%receiver6840968436%_)))) - (let ((_%receiver6841068449%_ - (reverse _%receiver6840968436%_))) - ((lambda (_%L68453%_) - (let* ((_%g6846968477%_ - (lambda (_%g6847068473%_) + (##cdr _%e6845268485%_)))) + (_%loop6845168475%_ + _%lp-tl6845468492%_ + (cons _%lp-hd6845368489%_ _%receiver6845568482%_)))) + (let ((_%receiver6845668495%_ + (reverse _%receiver6845568482%_))) + ((lambda (_%L68499%_) + (let* ((_%g6851568523%_ + (lambda (_%g6851668519%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6847068473%_))) - (_%g6846868499%_ - (lambda (_%g6847068481%_) - ((lambda (_%L68484%_) + _%g6851668519%_))) + (_%g6851468545%_ + (lambda (_%g6851668527%_) + ((lambda (_%L68530%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68358%_ - (cons _%L68357%_ + (cons _%L68404%_ + (cons _%L68403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L68484%_ - _%L68352%_)))) - _%g6847068481%_)))) - (_%g6846868499%_ + (cons _%L68530%_ + _%L68398%_)))) + _%g6851668527%_)))) + (_%g6851468545%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda/c) (begin (gx#syntax-check-splice-targets - _%L68354%_ - _%L68356%_ - _%L68453%_ - _%L68356%_ - _%L68355%_ - _%L68453%_) - (foldr (lambda (_%g6850268512%_ - _%g6850368515%_ - _%g6850468517%_ - _%g6850568519%_ - _%g6850668521%_ - _%g6850768523%_ - _%g6850868525%_) - (cons (cons (cons _%g6850468517%_ - _%g6850668521%_) + _%L68400%_ + _%L68402%_ + _%L68499%_ + _%L68402%_ + _%L68401%_ + _%L68499%_) + (foldr (lambda (_%g6854868558%_ + _%g6854968561%_ + _%g6855068563%_ + _%g6855168565%_ + _%g6855268567%_ + _%g6855368569%_ + _%g6855468571%_) + (cons (cons (cons _%g6855068563%_ + _%g6855268567%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'using) - (cons (cons _%g6850368515%_ - (cons _%g6850468517%_ + (cons (cons _%g6854968561%_ + (cons _%g6855068563%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L68357%_ '())))) + (cons _%L68403%_ '())))) (cons (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%g6850368515%_ + (cons _%g6854968561%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) (cons '() - (foldr (lambda (_%g6850968528%_ _%g6851068531%_) - (cons _%g6850968528%_ _%g6851068531%_)) + (foldr (lambda (_%g6855568574%_ _%g6855668577%_) + (cons _%g6855568574%_ _%g6855668577%_)) '() - _%g6850268512%_))) + _%g6854868558%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6850868525%_)) + _%g6855468571%_)) '() - _%L68354%_ - _%L68356%_ - _%L68453%_ - _%L68356%_ - _%L68355%_ - _%L68453%_))) - (gx#stx-source _%stx67974%_))))) - _%receiver6841068449%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6840568429%_ - _%target6840268423%_ + _%L68400%_ + _%L68402%_ + _%L68499%_ + _%L68402%_ + _%L68401%_ + _%L68499%_))) + (gx#stx-source _%stx68020%_))))) + _%receiver6845668495%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6845168475%_ + _%target6844868469%_ '())) - (_%g6839968416%_ - _%g6840068420%_))))) - (_%g6839968416%_ _%g6840068420%_))))) - (_%g6839868534%_ + (_%g6844568462%_ + _%g6844668466%_))))) + (_%g6844568462%_ _%g6844668466%_))))) + (_%g6844468580%_ (map gx#genident - (foldr (lambda (_%g6853768540%_ _%g6853868543%_) - (cons _%g6853768540%_ _%g6853868543%_)) + (foldr (lambda (_%g6858368586%_ _%g6858468589%_) + (cons _%g6858368586%_ _%g6858468589%_)) '() - _%L68356%_)))))) - (_%__kont8265582656%_ - (lambda (_%L68161%_ _%L68163%_ _%L68164%_ _%L68165%_) + _%L68402%_)))))) + (_%__kont8270182702%_ + (lambda (_%L68207%_ _%L68209%_ _%L68210%_ _%L68211%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68164%_ (cons _%L68163%_ '()))) - _%L68161%_))))) - (let* ((_%g6797868187%_ + (cons _%L68210%_ (cons _%L68209%_ '()))) + _%L68207%_))))) + (let* ((_%g6802468233%_ (lambda () - (let ((_%e6808468111%_ - (gx#syntax-e _%__stx8264482645%_))) - (let ((_%tl6808668118%_ + (let ((_%e6813068157%_ + (gx#syntax-e _%__stx8269082691%_))) + (let ((_%tl6813268164%_ (let () (declare (not safe)) - (##cdr _%e6808468111%_))) - (_%hd6808568115%_ + (##cdr _%e6813068157%_))) + (_%hd6813168161%_ (let () (declare (not safe)) - (##car _%e6808468111%_)))) - (if (gx#stx-pair? _%tl6808668118%_) - (let ((_%e6808768121%_ - (gx#syntax-e _%tl6808668118%_))) - (let ((_%tl6808968128%_ + (##car _%e6813068157%_)))) + (if (gx#stx-pair? _%tl6813268164%_) + (let ((_%e6813368167%_ + (gx#syntax-e _%tl6813268164%_))) + (let ((_%tl6813568174%_ (let () (declare (not safe)) - (##cdr _%e6808768121%_))) - (_%hd6808868125%_ + (##cdr _%e6813368167%_))) + (_%hd6813468171%_ (let () (declare (not safe)) - (##car _%e6808768121%_)))) - (if (gx#stx-pair? _%hd6808868125%_) - (let ((_%e6809068131%_ - (gx#syntax-e _%hd6808868125%_))) - (let ((_%tl6809268138%_ + (##car _%e6813368167%_)))) + (if (gx#stx-pair? _%hd6813468171%_) + (let ((_%e6813668177%_ + (gx#syntax-e _%hd6813468171%_))) + (let ((_%tl6813868184%_ (let () (declare (not safe)) - (##cdr _%e6809068131%_))) - (_%hd6809168135%_ + (##cdr _%e6813668177%_))) + (_%hd6813768181%_ (let () (declare (not safe)) - (##car _%e6809068131%_)))) - (if (gx#stx-pair? _%tl6809268138%_) - (let ((_%e6809368141%_ + (##car _%e6813668177%_)))) + (if (gx#stx-pair? _%tl6813868184%_) + (let ((_%e6813968187%_ (gx#syntax-e - _%tl6809268138%_))) - (let ((_%tl6809568148%_ + _%tl6813868184%_))) + (let ((_%tl6814168194%_ (let () (declare (not safe)) - (##cdr _%e6809368141%_))) - (_%hd6809468145%_ + (##cdr _%e6813968187%_))) + (_%hd6814068191%_ (let () (declare (not safe)) - (##car _%e6809368141%_)))) + (##car _%e6813968187%_)))) (if (gx#stx-pair? - _%tl6809568148%_) - (let ((_%e6809668151%_ + _%tl6814168194%_) + (let ((_%e6814268197%_ (gx#syntax-e - _%tl6809568148%_))) - (let ((_%tl6809868158%_ + _%tl6814168194%_))) + (let ((_%tl6814468204%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6809668151%_))) - (_%hd6809768155%_ - (let () (declare (not safe)) (##car _%e6809668151%_)))) - (if (gx#stx-null? _%tl6809868158%_) - (_%__kont8265582656%_ - _%tl6808968128%_ - _%hd6809768155%_ - _%hd6809468145%_ - _%hd6809168135%_) - (let () (declare (not safe)) (_%g6797968104%_))))) - (let () (declare (not safe)) (_%g6797968104%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6797968104%_))))) + (_%g6802568150%_))))) (let () (declare (not safe)) - (_%g6797968104%_))))) + (_%g6802568150%_))))) (let () (declare (not safe)) - (_%g6797968104%_))))))) - (_%__match8278182782%_ - (lambda (_%e6803168194%_ - _%hd6803268198%_ - _%tl6803368201%_ - _%e6803468204%_ - _%hd6803568208%_ - _%tl6803668211%_ - _%e6803768214%_ - _%hd6803868218%_ - _%tl6803968221%_ - _%e6804068224%_ - _%hd6804168228%_ - _%tl6804268231%_ - _%e6804368234%_ - _%hd6804468238%_ - _%tl6804568241%_ - _%e6804668244%_ - _%hd6804768248%_ - _%tl6804868251%_ - _%e6804968254%_ - _%hd6805068258%_ - _%tl6805168261%_ - _%__splice8265382654%_ - _%target6805268264%_ - _%tl6805468267%_) - (letrec ((_%loop6805568270%_ - (lambda (_%hd6805368274%_ - _%body6805968277%_ - _%args6806068279%_ - _%self6806168281%_) - (if (gx#stx-pair? _%hd6805368274%_) - (let ((_%e6805668284%_ - (gx#syntax-e _%hd6805368274%_))) - (let ((_%lp-tl6805868291%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e6805668284%_))) - (_%lp-hd6805768288%_ + (##cdr _%e6810268330%_))) + (_%lp-hd6810368334%_ (let () (declare (not safe)) - (##car _%e6805668284%_)))) + (##car _%e6810268330%_)))) (if (gx#stx-pair? - _%lp-hd6805768288%_) - (let ((_%e6806568294%_ + _%lp-hd6810368334%_) + (let ((_%e6811168340%_ (gx#syntax-e - _%lp-hd6805768288%_))) - (let ((_%tl6806768301%_ + _%lp-hd6810368334%_))) + (let ((_%tl6811368347%_ (let () (declare (not safe)) - (##cdr _%e6806568294%_))) - (_%hd6806668298%_ + (##cdr _%e6811168340%_))) + (_%hd6811268344%_ (let () (declare (not safe)) - (##car _%e6806568294%_)))) + (##car _%e6811168340%_)))) (if (gx#stx-pair? - _%hd6806668298%_) - (let ((_%e6806868304%_ + _%hd6811268344%_) + (let ((_%e6811468350%_ (gx#syntax-e - _%hd6806668298%_))) - (let ((_%tl6807068311%_ + _%hd6811268344%_))) + (let ((_%tl6811668357%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6806868304%_))) - (_%hd6806968308%_ - (let () (declare (not safe)) (##car _%e6806868304%_)))) - (if (gx#stx-pair/null? _%tl6806768301%_) - (let ((_g84156_ - (gx#syntax-split-splice _%tl6806768301%_ '0))) + (##cdr _%e6811468350%_))) + (_%hd6811568354%_ + (let () (declare (not safe)) (##car _%e6811468350%_)))) + (if (gx#stx-pair/null? _%tl6811368347%_) + (let ((_g84202_ + (gx#syntax-split-splice _%tl6811368347%_ '0))) (begin - (let ((_g84157_ + (let ((_g84203_ (let () (declare (not safe)) - (if (##values? _g84156_) - (##vector-length _g84156_) + (if (##values? _g84202_) + (##vector-length _g84202_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84157_ 2))) - (error "Context expects 2 values" _g84157_))) - (let ((_%target6807168314%_ + (##fx= _g84203_ 2))) + (error "Context expects 2 values" _g84203_))) + (let ((_%target6811768360%_ (let () (declare (not safe)) - (##vector-ref _g84156_ 0))) - (_%tl6807368317%_ + (##vector-ref _g84202_ 0))) + (_%tl6811968363%_ (let () (declare (not safe)) - (##vector-ref _g84156_ 1)))) - (if (gx#stx-null? _%tl6807368317%_) - (letrec ((_%loop6807468320%_ - (lambda (_%hd6807268324%_ - _%body6807868327%_) - (if (gx#stx-pair? _%hd6807268324%_) - (let ((_%e6807568330%_ + (##vector-ref _g84202_ 1)))) + (if (gx#stx-null? _%tl6811968363%_) + (letrec ((_%loop6812068366%_ + (lambda (_%hd6811868370%_ + _%body6812468373%_) + (if (gx#stx-pair? _%hd6811868370%_) + (let ((_%e6812168376%_ (gx#syntax-e - _%hd6807268324%_))) - (let ((_%lp-hd6807668334%_ + _%hd6811868370%_))) + (let ((_%lp-hd6812268380%_ (let () (declare (not safe)) - (##car _%e6807568330%_))) - (_%lp-tl6807768337%_ + (##car _%e6812168376%_))) + (_%lp-tl6812368383%_ (let () (declare (not safe)) - (##cdr _%e6807568330%_)))) - (_%loop6807468320%_ - _%lp-tl6807768337%_ - (cons _%lp-hd6807668334%_ - _%body6807868327%_)))) - (let ((_%body6807968340%_ - (reverse _%body6807868327%_))) - (_%loop6805568270%_ - _%lp-tl6805868291%_ - (cons _%body6807968340%_ - _%body6805968277%_) - (cons _%tl6807068311%_ - _%args6806068279%_) - (cons _%hd6806968308%_ - _%self6806168281%_))))))) - (_%loop6807468320%_ - _%target6807168314%_ + (##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%_ '())) (let () (declare (not safe)) - (_%g6797868187%_)))))) - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))) - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))) - (let ((_%self6806468349%_ - (reverse _%self6806168281%_)) - (_%args6806368347%_ - (reverse _%args6806068279%_)) - (_%body6806268344%_ - (reverse _%body6805968277%_))) - (let ((_%L68352%_ _%tl6804868251%_) - (_%L68354%_ _%body6806268344%_) - (_%L68355%_ _%args6806368347%_) - (_%L68356%_ _%self6806468349%_) - (_%L68357%_ _%hd6804468238%_) - (_%L68358%_ _%hd6804168228%_) - (_%L68359%_ _%hd6803868218%_)) + (_%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%_)) (if (and (gx#identifier-list? - (foldr (lambda (_%g6839068393%_ + (foldr (lambda (_%g6843668439%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6839168396%_) - (cons _%g6839068393%_ _%g6839168396%_)) + _%g6843768442%_) + (cons _%g6843668439%_ _%g6843768442%_)) '() - _%L68356%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#identifier? _%L68358%_)) - (_%__kont8265182652%_ - _%L68352%_ - _%L68354%_ - _%L68355%_ - _%L68356%_ - _%L68357%_ - _%L68358%_ - _%L68359%_) - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))))))) - (_%loop6805568270%_ - _%target6805268264%_ + _%L68402%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#identifier? _%L68404%_)) + (_%__kont8269782698%_ + _%L68398%_ + _%L68400%_ + _%L68401%_ + _%L68402%_ + _%L68403%_ + _%L68404%_ + _%L68405%_) + (_%__kont8270182702%_ + _%tl6808268257%_ + _%hd6809068284%_ + _%hd6808768274%_ + _%hd6808468264%_)))))))) + (_%loop6810168316%_ + _%target6809868310%_ '() '() '())))) - (_%__match8272582726%_ - (lambda (_%e6798868553%_ - _%hd6798968557%_ - _%tl6799068560%_ - _%e6799168563%_ - _%hd6799268567%_ - _%tl6799368570%_ - _%e6799468573%_ - _%hd6799568577%_ - _%tl6799668580%_ - _%e6799768583%_ - _%hd6799868587%_ - _%tl6799968590%_ - _%e6800068593%_ - _%hd6800168597%_ - _%tl6800268600%_ - _%e6800368603%_ - _%hd6800468607%_ - _%tl6800568610%_ - _%e6800668613%_ - _%hd6800768617%_ - _%tl6800868620%_ - _%e6800968623%_ - _%hd6801068627%_ - _%tl6801168630%_ - _%e6801268633%_ - _%hd6801368637%_ - _%tl6801468640%_ - _%__splice8264982650%_ - _%target6801568643%_ - _%tl6801768646%_) - (letrec ((_%loop6801868649%_ - (lambda (_%hd6801668653%_ _%body6802268656%_) - (if (gx#stx-pair? _%hd6801668653%_) - (let ((_%e6801968659%_ - (gx#syntax-e _%hd6801668653%_))) - (let ((_%lp-tl6802168666%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e6801968659%_))) - (_%lp-hd6802068663%_ + (##cdr _%e6806568705%_))) + (_%lp-hd6806668709%_ (let () (declare (not safe)) - (##car _%e6801968659%_)))) - (_%loop6801868649%_ - _%lp-tl6802168666%_ - (cons _%lp-hd6802068663%_ - _%body6802268656%_)))) - (let ((_%body6802368669%_ - (reverse _%body6802268656%_))) - (let ((_%L68673%_ _%tl6800568610%_) - (_%L68675%_ _%body6802368669%_) - (_%L68676%_ _%tl6801468640%_) - (_%L68677%_ _%hd6801368637%_) - (_%L68678%_ _%hd6800168597%_) - (_%L68679%_ _%hd6799868587%_) - (_%L68680%_ _%hd6799568577%_)) - (if (and (gx#identifier? _%L68677%_) - (gx#identifier? _%L68679%_)) - (_%__kont8264782648%_ - _%L68673%_ - _%L68675%_ - _%L68676%_ - _%L68677%_ - _%L68678%_ - _%L68679%_ - _%L68680%_) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))))))) - (_%loop6801868649%_ _%target6801568643%_ '()))))) - (if (gx#stx-pair? _%__stx8264482645%_) - (let ((_%e6798868553%_ (gx#syntax-e _%__stx8264482645%_))) - (let ((_%tl6799068560%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e6798868553%_))) - (_%hd6798968557%_ + (##cdr _%e6803468599%_))) + (_%hd6803568603%_ (let () (declare (not safe)) - (##car _%e6798868553%_)))) - (if (gx#stx-pair? _%tl6799068560%_) - (let ((_%e6799168563%_ - (gx#syntax-e _%tl6799068560%_))) - (let ((_%tl6799368570%_ + (##car _%e6803468599%_)))) + (if (gx#stx-pair? _%tl6803668606%_) + (let ((_%e6803768609%_ + (gx#syntax-e _%tl6803668606%_))) + (let ((_%tl6803968616%_ (let () (declare (not safe)) - (##cdr _%e6799168563%_))) - (_%hd6799268567%_ + (##cdr _%e6803768609%_))) + (_%hd6803868613%_ (let () (declare (not safe)) - (##car _%e6799168563%_)))) - (if (gx#stx-pair? _%hd6799268567%_) - (let ((_%e6799468573%_ - (gx#syntax-e _%hd6799268567%_))) - (let ((_%tl6799668580%_ + (##car _%e6803768609%_)))) + (if (gx#stx-pair? _%hd6803868613%_) + (let ((_%e6804068619%_ + (gx#syntax-e _%hd6803868613%_))) + (let ((_%tl6804268626%_ (let () (declare (not safe)) - (##cdr _%e6799468573%_))) - (_%hd6799568577%_ + (##cdr _%e6804068619%_))) + (_%hd6804168623%_ (let () (declare (not safe)) - (##car _%e6799468573%_)))) - (if (gx#stx-pair? _%tl6799668580%_) - (let ((_%e6799768583%_ + (##car _%e6804068619%_)))) + (if (gx#stx-pair? _%tl6804268626%_) + (let ((_%e6804368629%_ (gx#syntax-e - _%tl6799668580%_))) - (let ((_%tl6799968590%_ + _%tl6804268626%_))) + (let ((_%tl6804568636%_ (let () (declare (not safe)) - (##cdr _%e6799768583%_))) - (_%hd6799868587%_ + (##cdr _%e6804368629%_))) + (_%hd6804468633%_ (let () (declare (not safe)) - (##car _%e6799768583%_)))) + (##car _%e6804368629%_)))) (if (gx#stx-pair? - _%tl6799968590%_) - (let ((_%e6800068593%_ + _%tl6804568636%_) + (let ((_%e6804668639%_ (gx#syntax-e - _%tl6799968590%_))) - (let ((_%tl6800268600%_ + _%tl6804568636%_))) + (let ((_%tl6804868646%_ (let () (declare (not safe)) - (##cdr _%e6800068593%_))) - (_%hd6800168597%_ + (##cdr _%e6804668639%_))) + (_%hd6804768643%_ (let () (declare (not safe)) - (##car _%e6800068593%_)))) + (##car _%e6804668639%_)))) (if (gx#stx-null? - _%tl6800268600%_) + _%tl6804868646%_) (if (gx#stx-pair? - _%tl6799368570%_) - (let ((_%e6800368603%_ + _%tl6803968616%_) + (let ((_%e6804968649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6799368570%_))) - (let ((_%tl6800568610%_ + (gx#syntax-e _%tl6803968616%_))) + (let ((_%tl6805168656%_ (let () (declare (not safe)) - (##cdr _%e6800368603%_))) - (_%hd6800468607%_ + (##cdr _%e6804968649%_))) + (_%hd6805068653%_ (let () (declare (not safe)) - (##car _%e6800368603%_)))) - (if (gx#stx-pair? _%hd6800468607%_) - (let ((_%e6800668613%_ - (gx#syntax-e _%hd6800468607%_))) - (let ((_%tl6800868620%_ + (##car _%e6804968649%_)))) + (if (gx#stx-pair? _%hd6805068653%_) + (let ((_%e6805268659%_ + (gx#syntax-e _%hd6805068653%_))) + (let ((_%tl6805468666%_ (let () (declare (not safe)) - (##cdr _%e6800668613%_))) - (_%hd6800768617%_ + (##cdr _%e6805268659%_))) + (_%hd6805368663%_ (let () (declare (not safe)) - (##car _%e6800668613%_)))) - (if (gx#identifier? _%hd6800768617%_) + (##car _%e6805268659%_)))) + (if (gx#identifier? _%hd6805368663%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84158_| - _%hd6800768617%_) - (if (gx#stx-pair? _%tl6800868620%_) - (let ((_%e6800968623%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84204_| + _%hd6805368663%_) + (if (gx#stx-pair? _%tl6805468666%_) + (let ((_%e6805568669%_ (gx#syntax-e - _%tl6800868620%_))) - (let ((_%tl6801168630%_ + _%tl6805468666%_))) + (let ((_%tl6805768676%_ (let () (declare (not safe)) - (##cdr _%e6800968623%_))) - (_%hd6801068627%_ + (##cdr _%e6805568669%_))) + (_%hd6805668673%_ (let () (declare (not safe)) - (##car _%e6800968623%_)))) + (##car _%e6805568669%_)))) (if (gx#stx-pair? - _%hd6801068627%_) - (let ((_%e6801268633%_ + _%hd6805668673%_) + (let ((_%e6805868679%_ (gx#syntax-e - _%hd6801068627%_))) - (let ((_%tl6801468640%_ + _%hd6805668673%_))) + (let ((_%tl6806068686%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6801268633%_))) - (_%hd6801368637%_ - (let () (declare (not safe)) (##car _%e6801268633%_)))) - (if (gx#stx-pair/null? _%tl6801168630%_) - (let ((_%__splice8264982650%_ - (gx#syntax-split-splice _%tl6801168630%_ '0))) - (let ((_%tl6801768646%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice8264982650%_ '1))) - (_%target6801568643%_ + (##vector-ref _%__splice8269582696%_ '1))) + (_%target6806168689%_ (let () (declare (not safe)) - (##vector-ref _%__splice8264982650%_ '0)))) - (if (gx#stx-null? _%tl6801768646%_) - (_%__match8272582726%_ - _%e6798868553%_ - _%hd6798968557%_ - _%tl6799068560%_ - _%e6799168563%_ - _%hd6799268567%_ - _%tl6799368570%_ - _%e6799468573%_ - _%hd6799568577%_ - _%tl6799668580%_ - _%e6799768583%_ - _%hd6799868587%_ - _%tl6799968590%_ - _%e6800068593%_ - _%hd6800168597%_ - _%tl6800268600%_ - _%e6800368603%_ - _%hd6800468607%_ - _%tl6800568610%_ - _%e6800668613%_ - _%hd6800768617%_ - _%tl6800868620%_ - _%e6800968623%_ - _%hd6801068627%_ - _%tl6801168630%_ - _%e6801268633%_ - _%hd6801368637%_ - _%tl6801468640%_ - _%__splice8264982650%_ - _%target6801568643%_ - _%tl6801768646%_) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)) + (##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%_)) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84159_| - _%hd6800768617%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84205_| + _%hd6805368663%_) (if (gx#stx-pair/null? - _%tl6800868620%_) - (let ((_%__splice8265382654%_ + _%tl6805468666%_) + (let ((_%__splice8269982700%_ (gx#syntax-split-splice - _%tl6800868620%_ + _%tl6805468666%_ '0))) - (let ((_%tl6805468267%_ + (let ((_%tl6810068313%_ (let () (declare (not safe)) (##vector-ref - _%__splice8265382654%_ + _%__splice8269982700%_ '1))) - (_%target6805268264%_ + (_%target6809868310%_ (let () (declare (not safe)) (##vector-ref - _%__splice8265382654%_ + _%__splice8269982700%_ '0)))) (if (gx#stx-null? - _%tl6805468267%_) - (_%__match8278182782%_ - _%e6798868553%_ - _%hd6798968557%_ - _%tl6799068560%_ - _%e6799168563%_ - _%hd6799268567%_ - _%tl6799368570%_ - _%e6799468573%_ - _%hd6799568577%_ - _%tl6799668580%_ - _%e6799768583%_ - _%hd6799868587%_ - _%tl6799968590%_ - _%e6800068593%_ - _%hd6800168597%_ - _%tl6800268600%_ - _%e6800368603%_ - _%hd6800468607%_ - _%tl6800568610%_ - _%e6800668613%_ - _%hd6800768617%_ - _%tl6800868620%_ - _%__splice8265382654%_ - _%target6805268264%_ - _%tl6805468267%_) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)) - (let () (declare (not safe)) (_%g6797968104%_))))) + _%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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6797968104%_))))) + (_%g6802568150%_))))) (let () (declare (not safe)) - (_%g6797968104%_))))) + (_%g6802568150%_))))) (let () (declare (not safe)) - (_%g6797968104%_))))) - (let () (declare (not safe)) (_%g6797968104%_))))) - (let () (declare (not safe)) (_%g6797968104%_)))))))) + (_%g6802568150%_))))) + (let () (declare (not safe)) (_%g6802568150%_))))) + (let () (declare (not safe)) (_%g6802568150%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-receiver| - (lambda (_%stx68797%_) - (let* ((_%g6880068818%_ - (lambda (_%g6880168814%_) + (lambda (_%stx68843%_) + (let* ((_%g6884668864%_ + (lambda (_%g6884768860%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6880168814%_))) - (_%g6879968904%_ - (lambda (_%g6880168822%_) - (if (gx#stx-pair? _%g6880168822%_) - (let ((_%e6880468825%_ (gx#syntax-e _%g6880168822%_))) - (let ((_%hd6880568829%_ + _%g6884768860%_))) + (_%g6884568950%_ + (lambda (_%g6884768868%_) + (if (gx#stx-pair? _%g6884768868%_) + (let ((_%e6885068871%_ (gx#syntax-e _%g6884768868%_))) + (let ((_%hd6885168875%_ (let () (declare (not safe)) - (##car _%e6880468825%_))) - (_%tl6880668832%_ + (##car _%e6885068871%_))) + (_%tl6885268878%_ (let () (declare (not safe)) - (##cdr _%e6880468825%_)))) - (if (gx#stx-pair? _%tl6880668832%_) - (let ((_%e6880768835%_ - (gx#syntax-e _%tl6880668832%_))) - (let ((_%hd6880868839%_ + (##cdr _%e6885068871%_)))) + (if (gx#stx-pair? _%tl6885268878%_) + (let ((_%e6885368881%_ + (gx#syntax-e _%tl6885268878%_))) + (let ((_%hd6885468885%_ (let () (declare (not safe)) - (##car _%e6880768835%_))) - (_%tl6880968842%_ + (##car _%e6885368881%_))) + (_%tl6885568888%_ (let () (declare (not safe)) - (##cdr _%e6880768835%_)))) - (if (gx#stx-pair? _%tl6880968842%_) - (let ((_%e6881068845%_ - (gx#syntax-e _%tl6880968842%_))) - (let ((_%hd6881168849%_ + (##cdr _%e6885368881%_)))) + (if (gx#stx-pair? _%tl6885568888%_) + (let ((_%e6885668891%_ + (gx#syntax-e _%tl6885568888%_))) + (let ((_%hd6885768895%_ (let () (declare (not safe)) - (##car _%e6881068845%_))) - (_%tl6881268852%_ + (##car _%e6885668891%_))) + (_%tl6885868898%_ (let () (declare (not safe)) - (##cdr _%e6881068845%_)))) - (if (gx#stx-null? _%tl6881268852%_) - ((lambda (_%L68855%_ _%L68857%_) - (let* ((_%g6887368881%_ - (lambda (_%g6887468877%_) + (##cdr _%e6885668891%_)))) + (if (gx#stx-null? _%tl6885868898%_) + ((lambda (_%L68901%_ _%L68903%_) + (let* ((_%g6891968927%_ + (lambda (_%g6892068923%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6887468877%_))) - (_%g6887268900%_ - (lambda (_%g6887468885%_) - ((lambda (_%L68888%_) + _%g6892068923%_))) + (_%g6891868946%_ + (lambda (_%g6892068931%_) + ((lambda (_%L68934%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@receiver) - (cons _%L68888%_ '())) - (cons _%L68855%_ '())))) - _%g6887468885%_)))) + (cons _%L68934%_ '())) + (cons _%L68901%_ '())))) + _%g6892068931%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6887268900%_ + (_%g6891868946%_ (gx#core-quote-syntax - _%L68857%_)))) - _%hd6881168849%_ - _%hd6880868839%_) - (_%g6880068818%_ - _%g6880168822%_)))) - (_%g6880068818%_ _%g6880168822%_)))) - (_%g6880068818%_ _%g6880168822%_)))) - (_%g6880068818%_ _%g6880168822%_))))) - (_%g6879968904%_ _%stx68797%_)))) + _%L68903%_)))) + _%hd6885768895%_ + _%hd6885468885%_) + (_%g6884668864%_ + _%g6884768868%_)))) + (_%g6884668864%_ _%g6884768868%_)))) + (_%g6884668864%_ _%g6884768868%_)))) + (_%g6884668864%_ _%g6884768868%_))))) + (_%g6884568950%_ _%stx68843%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| - (lambda (_%stx68908%_) - (let* ((_%__stx8282482825%_ _%stx68908%_) - (_%g6891369009%_ + (lambda (_%stx68954%_) + (let* ((_%__stx8287082871%_ _%stx68954%_) + (_%g6895969055%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8282482825%_)))) - (let ((_%__kont8282782828%_ - (lambda (_%L69356%_ - _%L69358%_ - _%L69359%_ - _%L69360%_ - _%L69361%_) - (let* ((_%g6939169399%_ - (lambda (_%g6939269395%_) + _%__stx8287082871%_)))) + (let ((_%__kont8287382874%_ + (lambda (_%L69402%_ + _%L69404%_ + _%L69405%_ + _%L69406%_ + _%L69407%_) + (let* ((_%g6943769445%_ + (lambda (_%g6943869441%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6939269395%_))) - (_%g6939069426%_ - (lambda (_%g6939269403%_) - ((lambda (_%L69406%_) + _%g6943869441%_))) + (_%g6943669472%_ + (lambda (_%g6943869449%_) + ((lambda (_%L69452%_) (cons (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L69361%_ - (cons _%L69406%_ + (cons (cons (cons _%L69407%_ + (cons _%L69452%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L69361%_ '()))) - (foldr (lambda (_%g6941769420%_ - _%g6941869423%_) - (cons _%g6941769420%_ - _%g6941869423%_)) + (cons _%L69407%_ '()))) + (foldr (lambda (_%g6946369466%_ + _%g6946469469%_) + (cons _%g6946369466%_ + _%g6946469469%_)) '() - _%L69359%_))) - _%g6939269403%_)))) - (_%g6939069426%_ + _%L69405%_))) + _%g6943869449%_)))) + (_%g6943669472%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (foldr (lambda (_%g6943169434%_ - _%g6943269437%_) - (cons _%g6943169434%_ - _%g6943269437%_)) + (cons (foldr (lambda (_%g6947769480%_ + _%g6947869483%_) + (cons _%g6947769480%_ + _%g6947869483%_)) '() - _%L69360%_) + _%L69406%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69358%_ - (foldr (lambda (_%g6942969440%_ - _%g6943069443%_) - (cons _%g6942969440%_ - _%g6943069443%_)) + (cons _%L69404%_ + (foldr (lambda (_%g6947569486%_ + _%g6947669489%_) + (cons _%g6947569486%_ + _%g6947669489%_)) '() - _%L69356%_))))) - (gx#stx-source _%stx68908%_)))))) - (_%__kont8283382834%_ - (lambda (_%L69159%_ _%L69161%_ _%L69162%_ _%L69163%_) + _%L69402%_))))) + (gx#stx-source _%stx68954%_)))))) + (_%__kont8287982880%_ + (lambda (_%L69205%_ _%L69207%_ _%L69208%_ _%L69209%_) (cons (gx#datum->syntax '#f 'let/c) - (cons _%L69163%_ + (cons _%L69209%_ (cons (begin (gx#syntax-check-splice-targets - _%L69161%_ - _%L69162%_) - (foldr (lambda (_%g6919769201%_ - _%g6919869204%_ - _%g6919969206%_) - (cons (cons _%g6919869204%_ - (cons _%g6919769201%_ + _%L69207%_ + _%L69208%_) + (foldr (lambda (_%g6924369247%_ + _%g6924469250%_ + _%g6924569252%_) + (cons (cons _%g6924469250%_ + (cons _%g6924369247%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6919969206%_)) + _%g6924569252%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L69161%_ - _%L69162%_)) + _%L69207%_ + _%L69208%_)) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6919569209%_ + (foldr (lambda (_%g6924169255%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6919669212%_) - (cons _%g6919569209%_ _%g6919669212%_)) + _%g6924269258%_) + (cons _%g6924169255%_ _%g6924269258%_)) '() - _%L69159%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8283982840%_ - (lambda (_%L69026%_) - (cons (gx#datum->syntax '#f 'let) _%L69026%_)))) - (let* ((_%__match8289382894%_ - (lambda (_%e6896569045%_ - _%hd6896669049%_ - _%tl6896769052%_ - _%e6896869055%_ - _%hd6896969059%_ - _%tl6897069062%_ - _%e6897169065%_ - _%hd6897269069%_ - _%tl6897369072%_ - _%__splice8283582836%_ - _%target6897469075%_ - _%tl6897669078%_) - (letrec ((_%loop6897769081%_ - (lambda (_%hd6897569085%_ - _%init6898169088%_ - _%var6898269090%_) - (if (gx#stx-pair? _%hd6897569085%_) - (let ((_%e6897869093%_ - (gx#syntax-e _%hd6897569085%_))) - (let ((_%lp-tl6898069100%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6897869093%_))) - (_%lp-hd6897969097%_ + (##cdr _%e6902469139%_))) + (_%lp-hd6902569143%_ (let () (declare (not safe)) - (##car _%e6897869093%_)))) + (##car _%e6902469139%_)))) (if (gx#stx-pair? - _%lp-hd6897969097%_) - (let ((_%e6899469103%_ + _%lp-hd6902569143%_) + (let ((_%e6904069149%_ (gx#syntax-e - _%lp-hd6897969097%_))) - (let ((_%tl6899669110%_ + _%lp-hd6902569143%_))) + (let ((_%tl6904269156%_ (let () (declare (not safe)) - (##cdr _%e6899469103%_))) - (_%hd6899569107%_ + (##cdr _%e6904069149%_))) + (_%hd6904169153%_ (let () (declare (not safe)) - (##car _%e6899469103%_)))) + (##car _%e6904069149%_)))) (if (gx#stx-pair? - _%tl6899669110%_) - (let ((_%e6899769113%_ + _%tl6904269156%_) + (let ((_%e6904369159%_ (gx#syntax-e - _%tl6899669110%_))) - (let ((_%tl6899969120%_ + _%tl6904269156%_))) + (let ((_%tl6904569166%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6899769113%_))) - (_%hd6899869117%_ - (let () (declare (not safe)) (##car _%e6899769113%_)))) - (if (gx#stx-null? _%tl6899969120%_) - (_%loop6897769081%_ - _%lp-tl6898069100%_ - (cons _%hd6899869117%_ _%init6898169088%_) - (cons _%hd6899569107%_ _%var6898269090%_)) - (_%__kont8283982840%_ _%tl6896769052%_)))) - (_%__kont8283982840%_ _%tl6896769052%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8283982840%_ - _%tl6896769052%_)))) - (let ((_%var6898469126%_ - (reverse _%var6898269090%_)) - (_%init6898369123%_ - (reverse _%init6898169088%_))) + (##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%_))) (if (gx#stx-pair/null? - _%tl6897369072%_) - (let ((_%__splice8283782838%_ + _%tl6901969118%_) + (let ((_%__splice8288382884%_ (gx#syntax-split-splice - _%tl6897369072%_ + _%tl6901969118%_ '0))) - (let ((_%tl6898769132%_ + (let ((_%tl6903369178%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283782838%_ + _%__splice8288382884%_ '1))) - (_%target6898569129%_ + (_%target6903169175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283782838%_ + _%__splice8288382884%_ '0)))) (if (gx#stx-null? - _%tl6898769132%_) - (letrec ((_%loop6898869135%_ - (lambda (_%hd6898669139%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6899269142%_) - (if (gx#stx-pair? _%hd6898669139%_) - (let ((_%e6898969145%_ - (gx#syntax-e _%hd6898669139%_))) - (let ((_%lp-tl6899169152%_ + _%tl6903369178%_) + (letrec ((_%loop6903469181%_ + (lambda (_%hd6903269185%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6903869188%_) + (if (gx#stx-pair? _%hd6903269185%_) + (let ((_%e6903569191%_ + (gx#syntax-e _%hd6903269185%_))) + (let ((_%lp-tl6903769198%_ (let () (declare (not safe)) - (##cdr _%e6898969145%_))) - (_%lp-hd6899069149%_ + (##cdr _%e6903569191%_))) + (_%lp-hd6903669195%_ (let () (declare (not safe)) - (##car _%e6898969145%_)))) - (_%loop6898869135%_ - _%lp-tl6899169152%_ - (cons _%lp-hd6899069149%_ - _%body6899269142%_)))) - (let ((_%body6899369155%_ - (reverse _%body6899269142%_))) - (let ((_%L69159%_ _%body6899369155%_) - (_%L69161%_ _%init6898369123%_) - (_%L69162%_ _%var6898469126%_) - (_%L69163%_ _%hd6896969059%_)) - (if (and (gx#identifier? _%L69163%_) + (##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%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (foldr (lambda (_%g6918769190%_ - _%g6918869193%_) - (cons _%g6918769190%_ - _%g6918869193%_)) + (foldr (lambda (_%g6923369236%_ + _%g6923469239%_) + (cons _%g6923369236%_ + _%g6923469239%_)) '() - _%L69162%_))) - (_%__kont8283382834%_ - _%L69159%_ - _%L69161%_ - _%L69162%_ - _%L69163%_) - (_%__kont8283982840%_ - _%tl6896769052%_)))))))) - (_%loop6898869135%_ _%target6898569129%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8283982840%_ - _%tl6896769052%_)))) - (_%__kont8283982840%_ - _%tl6896769052%_))))))) - (_%loop6897769081%_ _%target6897469075%_ '() '())))) - (_%__match8286782868%_ - (lambda (_%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_) - (letrec ((_%loop6893269258%_ - (lambda (_%hd6893069262%_ - _%init6893669265%_ - _%var6893769267%_) - (if (gx#stx-pair? _%hd6893069262%_) - (let ((_%e6893369270%_ - (gx#syntax-e _%hd6893069262%_))) - (let ((_%lp-tl6893569277%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e6893369270%_))) - (_%lp-hd6893469274%_ + (##cdr _%e6897969316%_))) + (_%lp-hd6898069320%_ (let () (declare (not safe)) - (##car _%e6893369270%_)))) + (##car _%e6897969316%_)))) (if (gx#stx-pair? - _%lp-hd6893469274%_) - (let ((_%e6895569280%_ + _%lp-hd6898069320%_) + (let ((_%e6900169326%_ (gx#syntax-e - _%lp-hd6893469274%_))) - (let ((_%tl6895769287%_ + _%lp-hd6898069320%_))) + (let ((_%tl6900369333%_ (let () (declare (not safe)) - (##cdr _%e6895569280%_))) - (_%hd6895669284%_ + (##cdr _%e6900169326%_))) + (_%hd6900269330%_ (let () (declare (not safe)) - (##car _%e6895569280%_)))) + (##car _%e6900169326%_)))) (if (gx#stx-pair? - _%tl6895769287%_) - (let ((_%e6895869290%_ + _%tl6900369333%_) + (let ((_%e6900469336%_ (gx#syntax-e - _%tl6895769287%_))) - (let ((_%tl6896069297%_ + _%tl6900369333%_))) + (let ((_%tl6900669343%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6895869290%_))) - (_%hd6895969294%_ - (let () (declare (not safe)) (##car _%e6895869290%_)))) - (if (gx#stx-null? _%tl6896069297%_) - (_%loop6893269258%_ - _%lp-tl6893569277%_ - (cons _%hd6895969294%_ _%init6893669265%_) - (cons _%hd6895669284%_ _%var6893769267%_)) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (let ((_%var6893969303%_ - (reverse _%var6893769267%_)) - (_%init6893869300%_ - (reverse _%init6893669265%_))) - (if (gx#stx-pair? _%tl6892869249%_) - (let ((_%e6894069306%_ + (##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%_ (gx#syntax-e - _%tl6892869249%_))) - (let ((_%tl6894269313%_ + _%tl6897469295%_))) + (let ((_%tl6898869359%_ (let () (declare (not safe)) - (##cdr _%e6894069306%_))) - (_%hd6894169310%_ + (##cdr _%e6898669352%_))) + (_%hd6898769356%_ (let () (declare (not safe)) - (##car _%e6894069306%_)))) + (##car _%e6898669352%_)))) (if (gx#identifier? - _%hd6894169310%_) + _%hd6898769356%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84160_| - _%hd6894169310%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84206_| + _%hd6898769356%_) (if (gx#stx-pair? - _%tl6894269313%_) - (let ((_%e6894369316%_ + _%tl6898869359%_) + (let ((_%e6898969362%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6894269313%_))) - (let ((_%tl6894569323%_ + (gx#syntax-e _%tl6898869359%_))) + (let ((_%tl6899169369%_ (let () (declare (not safe)) - (##cdr _%e6894369316%_))) - (_%hd6894469320%_ + (##cdr _%e6898969362%_))) + (_%hd6899069366%_ (let () (declare (not safe)) - (##car _%e6894369316%_)))) - (if (gx#stx-pair/null? _%tl6894569323%_) - (let ((_%__splice8283182832%_ + (##car _%e6898969362%_)))) + (if (gx#stx-pair/null? _%tl6899169369%_) + (let ((_%__splice8287782878%_ (gx#syntax-split-splice - _%tl6894569323%_ + _%tl6899169369%_ '0))) - (let ((_%tl6894869329%_ + (let ((_%tl6899469375%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283182832%_ + _%__splice8287782878%_ '1))) - (_%target6894669326%_ + (_%target6899269372%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283182832%_ + _%__splice8287782878%_ '0)))) - (if (gx#stx-null? _%tl6894869329%_) - (letrec ((_%loop6894969332%_ - (lambda (_%hd6894769336%_ - _%body6895369339%_) + (if (gx#stx-null? _%tl6899469375%_) + (letrec ((_%loop6899569378%_ + (lambda (_%hd6899369382%_ + _%body6899969385%_) (if (gx#stx-pair? - _%hd6894769336%_) - (let ((_%e6895069342%_ + _%hd6899369382%_) + (let ((_%e6899669388%_ (gx#syntax-e - _%hd6894769336%_))) - (let ((_%lp-tl6895269349%_ + _%hd6899369382%_))) + (let ((_%lp-tl6899869395%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6895069342%_))) - (_%lp-hd6895169346%_ - (let () (declare (not safe)) (##car _%e6895069342%_)))) - (_%loop6894969332%_ - _%lp-tl6895269349%_ - (cons _%lp-hd6895169346%_ _%body6895369339%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6895469352%_ - (reverse _%body6895369339%_))) - (let ((_%L69356%_ - _%body6895469352%_) - (_%L69358%_ - _%hd6894469320%_) - (_%L69359%_ - _%init6893869300%_) - (_%L69360%_ - _%var6893969303%_) - (_%L69361%_ - _%hd6892469236%_)) + (##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%_)) (if (gx#identifier? - _%L69361%_) - (_%__kont8282782828%_ - _%L69356%_ - _%L69358%_ - _%L69359%_ - _%L69360%_ - _%L69361%_) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))))))) - (_%loop6894969332%_ - _%target6894669326%_ + _%L69407%_) + (_%__kont8287382874%_ + _%L69402%_ + _%L69404%_ + _%L69405%_ + _%L69406%_ + _%L69407%_) + (_%__match8293982940%_ + _%e6896669268%_ + _%hd6896769272%_ + _%tl6896869275%_ + _%e6896969278%_ + _%hd6897069282%_ + _%tl6897169285%_ + _%e6897269288%_ + _%hd6897369292%_ + _%tl6897469295%_ + _%__splice8287582876%_ + _%target6897569298%_ + _%tl6897769301%_)))))))) + (_%loop6899569378%_ + _%target6899269372%_ '())) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_))))))) - (_%loop6893269258%_ _%target6892969252%_ '() '()))))) - (if (gx#stx-pair? _%__stx8282482825%_) - (let ((_%e6892069222%_ (gx#syntax-e _%__stx8282482825%_))) - (let ((_%tl6892269229%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e6892069222%_))) - (_%hd6892169226%_ + (##cdr _%e6896669268%_))) + (_%hd6896769272%_ (let () (declare (not safe)) - (##car _%e6892069222%_)))) - (if (gx#stx-pair? _%tl6892269229%_) - (let ((_%e6892369232%_ - (gx#syntax-e _%tl6892269229%_))) - (let ((_%tl6892569239%_ + (##car _%e6896669268%_)))) + (if (gx#stx-pair? _%tl6896869275%_) + (let ((_%e6896969278%_ + (gx#syntax-e _%tl6896869275%_))) + (let ((_%tl6897169285%_ (let () (declare (not safe)) - (##cdr _%e6892369232%_))) - (_%hd6892469236%_ + (##cdr _%e6896969278%_))) + (_%hd6897069282%_ (let () (declare (not safe)) - (##car _%e6892369232%_)))) - (if (gx#stx-pair? _%tl6892569239%_) - (let ((_%e6892669242%_ - (gx#syntax-e _%tl6892569239%_))) - (let ((_%tl6892869249%_ + (##car _%e6896969278%_)))) + (if (gx#stx-pair? _%tl6897169285%_) + (let ((_%e6897269288%_ + (gx#syntax-e _%tl6897169285%_))) + (let ((_%tl6897469295%_ (let () (declare (not safe)) - (##cdr _%e6892669242%_))) - (_%hd6892769246%_ + (##cdr _%e6897269288%_))) + (_%hd6897369292%_ (let () (declare (not safe)) - (##car _%e6892669242%_)))) - (if (gx#stx-pair/null? _%hd6892769246%_) - (let ((_%__splice8282982830%_ + (##car _%e6897269288%_)))) + (if (gx#stx-pair/null? _%hd6897369292%_) + (let ((_%__splice8287582876%_ (gx#syntax-split-splice - _%hd6892769246%_ + _%hd6897369292%_ '0))) - (let ((_%tl6893169255%_ + (let ((_%tl6897769301%_ (let () (declare (not safe)) (##vector-ref - _%__splice8282982830%_ + _%__splice8287582876%_ '1))) - (_%target6892969252%_ + (_%target6897569298%_ (let () (declare (not safe)) (##vector-ref - _%__splice8282982830%_ + _%__splice8287582876%_ '0)))) (if (gx#stx-null? - _%tl6893169255%_) - (_%__match8286782868%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_) - (_%__kont8283982840%_ - _%tl6892269229%_)))) - (_%__kont8283982840%_ - _%tl6892269229%_)))) - (_%__kont8283982840%_ _%tl6892269229%_)))) - (_%__kont8283982840%_ _%tl6892269229%_)))) - (let () (declare (not safe)) (_%g6891369009%_)))))))) + _%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%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| - (lambda (_%stx69454%_) - (letrec ((_%generate69457%_ - (lambda (_%hd76628%_ _%slots76630%_ _%body76631%_) - (let* ((_%__stx8290282903%_ _%hd76628%_) - (_%g7663576657%_ + (lambda (_%stx69500%_) + (letrec ((_%generate69503%_ + (lambda (_%hd76674%_ _%slots76676%_ _%body76677%_) + (let* ((_%__stx8294882949%_ _%hd76674%_) + (_%g7668176703%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8290282903%_)))) - (let ((_%__kont8290582906%_ - (lambda (_%L76733%_ _%L76735%_) - (_%generate-defclass69478%_ - _%L76735%_ - (foldr (lambda (_%g7675776760%_ - _%g7675876763%_) - (cons _%g7675776760%_ - _%g7675876763%_)) + _%__stx8294882949%_)))) + (let ((_%__kont8295182952%_ + (lambda (_%L76779%_ _%L76781%_) + (_%generate-defclass69524%_ + _%L76781%_ + (foldr (lambda (_%g7680376806%_ + _%g7680476809%_) + (cons _%g7680376806%_ + _%g7680476809%_)) '() - _%L76733%_) - _%slots76630%_ - _%body76631%_))) - (_%__kont8290982910%_ - (lambda (_%L76675%_) - (_%generate-defclass69478%_ - _%L76675%_ + _%L76779%_) + _%slots76676%_ + _%body76677%_))) + (_%__kont8295582956%_ + (lambda (_%L76721%_) + (_%generate-defclass69524%_ + _%L76721%_ '() - _%slots76630%_ - _%body76631%_))) - (_%__kont8291182912%_ + _%slots76676%_ + _%body76677%_))) + (_%__kont8295782958%_ (lambda () (gx#raise-syntax-error '#f '"bad class head" - _%stx69454%_ - _%hd76628%_)))) - (let* ((_%g7663376686%_ + _%stx69500%_ + _%hd76674%_)))) + (let* ((_%g7667976732%_ (lambda () - (let ((_%L76675%_ _%__stx8290282903%_)) - (if (gx#identifier? _%L76675%_) - (_%__kont8290982910%_ _%L76675%_) - (_%__kont8291182912%_))))) - (_%__match8292782928%_ - (lambda (_%e7663976693%_ - _%hd7664076697%_ - _%tl7664176700%_ - _%__splice8290782908%_ - _%target7664276703%_ - _%tl7664476706%_) - (letrec ((_%loop7664576709%_ - (lambda (_%hd7664376713%_ - _%super7664976716%_) + (let ((_%L76721%_ _%__stx8294882949%_)) + (if (gx#identifier? _%L76721%_) + (_%__kont8295582956%_ _%L76721%_) + (_%__kont8295782958%_))))) + (_%__match8297382974%_ + (lambda (_%e7668576739%_ + _%hd7668676743%_ + _%tl7668776746%_ + _%__splice8295382954%_ + _%target7668876749%_ + _%tl7669076752%_) + (letrec ((_%loop7669176755%_ + (lambda (_%hd7668976759%_ + _%super7669576762%_) (if (gx#stx-pair? - _%hd7664376713%_) - (let ((_%e7664676719%_ + _%hd7668976759%_) + (let ((_%e7669276765%_ (gx#syntax-e - _%hd7664376713%_))) - (let ((_%lp-tl7664876726%_ + _%hd7668976759%_))) + (let ((_%lp-tl7669476772%_ (let () (declare (not safe)) - (##cdr _%e7664676719%_))) - (_%lp-hd7664776723%_ + (##cdr _%e7669276765%_))) + (_%lp-hd7669376769%_ (let () (declare (not safe)) - (##car _%e7664676719%_)))) - (_%loop7664576709%_ - _%lp-tl7664876726%_ - (cons _%lp-hd7664776723%_ - _%super7664976716%_)))) - (let ((_%super7665076729%_ - (reverse _%super7664976716%_))) - (let ((_%L76733%_ - _%super7665076729%_) - (_%L76735%_ - _%hd7664076697%_)) + (##car _%e7669276765%_)))) + (_%loop7669176755%_ + _%lp-tl7669476772%_ + (cons _%lp-hd7669376769%_ + _%super7669576762%_)))) + (let ((_%super7669676775%_ + (reverse _%super7669576762%_))) + (let ((_%L76779%_ + _%super7669676775%_) + (_%L76781%_ + _%hd7668676743%_)) (if (and (gx#identifier? - _%L76735%_) + _%L76781%_) (andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g7674976752%_ _%g7675076755%_) - (cons _%g7674976752%_ _%g7675076755%_)) + (foldr (lambda (_%g7679576798%_ _%g7679676801%_) + (cons _%g7679576798%_ _%g7679676801%_)) '() - _%L76733%_))) - (_%__kont8290582906%_ _%L76733%_ _%L76735%_) - (let () (declare (not safe)) (_%g7663376686%_))))))))) + _%L76779%_))) + (_%__kont8295182952%_ _%L76779%_ _%L76781%_) + (let () (declare (not safe)) (_%g7667976732%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7664576709%_ - _%target7664276703%_ + (_%loop7669176755%_ + _%target7668876749%_ '()))))) - (if (gx#stx-pair? _%__stx8290282903%_) - (let ((_%e7663976693%_ - (gx#syntax-e _%__stx8290282903%_))) - (let ((_%tl7664176700%_ + (if (gx#stx-pair? _%__stx8294882949%_) + (let ((_%e7668576739%_ + (gx#syntax-e _%__stx8294882949%_))) + (let ((_%tl7668776746%_ (let () (declare (not safe)) - (##cdr _%e7663976693%_))) - (_%hd7664076697%_ + (##cdr _%e7668576739%_))) + (_%hd7668676743%_ (let () (declare (not safe)) - (##car _%e7663976693%_)))) - (if (gx#stx-pair/null? _%tl7664176700%_) - (let ((_%__splice8290782908%_ + (##car _%e7668576739%_)))) + (if (gx#stx-pair/null? _%tl7668776746%_) + (let ((_%__splice8295382954%_ (gx#syntax-split-splice - _%tl7664176700%_ + _%tl7668776746%_ '0))) - (let ((_%tl7664476706%_ + (let ((_%tl7669076752%_ (let () (declare (not safe)) (##vector-ref - _%__splice8290782908%_ + _%__splice8295382954%_ '1))) - (_%target7664276703%_ + (_%target7668876749%_ (let () (declare (not safe)) (##vector-ref - _%__splice8290782908%_ + _%__splice8295382954%_ '0)))) - (if (gx#stx-null? _%tl7664476706%_) - (_%__match8292782928%_ - _%e7663976693%_ - _%hd7664076697%_ - _%tl7664176700%_ - _%__splice8290782908%_ - _%target7664276703%_ - _%tl7664476706%_) + (if (gx#stx-null? _%tl7669076752%_) + (_%__match8297382974%_ + _%e7668576739%_ + _%hd7668676743%_ + _%tl7668776746%_ + _%__splice8295382954%_ + _%target7668876749%_ + _%tl7669076752%_) (let () (declare (not safe)) - (_%g7663376686%_))))) + (_%g7667976732%_))))) (let () (declare (not safe)) - (_%g7663376686%_))))) + (_%g7667976732%_))))) (let () (declare (not safe)) - (_%g7663376686%_)))))))) - (_%check-typedef-body!69459%_ - (lambda (_%body76619%_) - (letrec ((_%body-opt?76622%_ - (lambda (_%key76625%_) - (let ((__tmp84161 (gx#stx-e _%key76625%_))) + (_%g7667976732%_)))))))) + (_%check-typedef-body!69505%_ + (lambda (_%body76665%_) + (letrec ((_%body-opt?76668%_ + (lambda (_%key76671%_) + (let ((__tmp84207 (gx#stx-e _%key76671%_))) (declare (not safe)) - (##memq __tmp84161 + (##memq __tmp84207 '(id: struct: name: @@ -6716,107 +6716,107 @@ print: equal: metaclass:)))))) - (if (gx#stx-plist? _%body76619%_ _%body-opt?76622%_) + (if (gx#stx-plist? _%body76665%_ _%body-opt?76668%_) '#!void (gx#raise-syntax-error '#f '"invalid defclass body" - _%stx69454%_ - _%body76619%_))))) - (_%slot-name69460%_ - (lambda (_%slot-spec76616%_) + _%stx69500%_ + _%body76665%_))))) + (_%slot-name69506%_ + (lambda (_%slot-spec76662%_) (gx#stx-e - (if (gx#identifier? _%slot-spec76616%_) - _%slot-spec76616%_ - (gx#stx-car _%slot-spec76616%_))))) - (_%slot-contract69461%_ - (lambda (_%slot-spec76497%_) - (let* ((_%__stx8293082931%_ _%slot-spec76497%_) - (_%g7650276523%_ + (if (gx#identifier? _%slot-spec76662%_) + _%slot-spec76662%_ + (gx#stx-car _%slot-spec76662%_))))) + (_%slot-contract69507%_ + (lambda (_%slot-spec76543%_) + (let* ((_%__stx8297682977%_ _%slot-spec76543%_) + (_%g7654876569%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8293082931%_)))) - (let ((_%__kont8293382934%_ (lambda (_%L76603%_) '#f)) - (_%__kont8293582936%_ - (lambda (_%L76581%_ _%L76583%_) '#f)) - (_%__kont8293782938%_ - (lambda (_%L76540%_ _%L76542%_) _%L76540%_))) - (let* ((_%g7650076596%_ + _%__stx8297682977%_)))) + (let ((_%__kont8297982980%_ (lambda (_%L76649%_) '#f)) + (_%__kont8298182982%_ + (lambda (_%L76627%_ _%L76629%_) '#f)) + (_%__kont8298382984%_ + (lambda (_%L76586%_ _%L76588%_) _%L76586%_))) + (let* ((_%g7654676642%_ (lambda () - (if (gx#stx-pair? _%__stx8293082931%_) - (let ((_%e7650776561%_ + (if (gx#stx-pair? _%__stx8297682977%_) + (let ((_%e7655376607%_ (gx#syntax-e - _%__stx8293082931%_))) - (let ((_%tl7650976568%_ + _%__stx8297682977%_))) + (let ((_%tl7655576614%_ (let () (declare (not safe)) - (##cdr _%e7650776561%_))) - (_%hd7650876565%_ + (##cdr _%e7655376607%_))) + (_%hd7655476611%_ (let () (declare (not safe)) - (##car _%e7650776561%_)))) - (if (gx#stx-pair? _%tl7650976568%_) - (let ((_%e7651076571%_ + (##car _%e7655376607%_)))) + (if (gx#stx-pair? _%tl7655576614%_) + (let ((_%e7655676617%_ (gx#syntax-e - _%tl7650976568%_))) - (let ((_%tl7651276578%_ + _%tl7655576614%_))) + (let ((_%tl7655876624%_ (let () (declare (not safe)) - (##cdr _%e7651076571%_))) - (_%hd7651176575%_ + (##cdr _%e7655676617%_))) + (_%hd7655776621%_ (let () (declare (not safe)) - (##car _%e7651076571%_)))) + (##car _%e7655676617%_)))) (if (gx#stx-null? - _%tl7651276578%_) - (_%__kont8293582936%_ - _%hd7651176575%_ - _%hd7650876565%_) - (_%__kont8293782938%_ - _%tl7650976568%_ - _%hd7650876565%_)))) - (_%__kont8293782938%_ - _%tl7650976568%_ - _%hd7650876565%_)))) + _%tl7655876624%_) + (_%__kont8298182982%_ + _%hd7655776621%_ + _%hd7655476611%_) + (_%__kont8298382984%_ + _%tl7655576614%_ + _%hd7655476611%_)))) + (_%__kont8298382984%_ + _%tl7655576614%_ + _%hd7655476611%_)))) (let () (declare (not safe)) - (_%g7650276523%_))))) - (_%L76603%_ _%__stx8293082931%_)) - (if (gx#identifier? _%L76603%_) - (_%__kont8293382934%_ _%L76603%_) + (_%g7654876569%_))))) + (_%L76649%_ _%__stx8297682977%_)) + (if (gx#identifier? _%L76649%_) + (_%__kont8297982980%_ _%L76649%_) (let () (declare (not safe)) - (_%g7650076596%_)))))))) - (_%slot-contract-normalize69462%_ - (lambda (_%slot-spec76486%_) - (let ((_%contract7648876490%_ - (_%slot-contract69461%_ _%slot-spec76486%_))) - (if _%contract7648876490%_ - (let ((_%contract76494%_ _%contract7648876490%_)) - (_%contract-normalize69463%_ _%contract76494%_)) + (_%g7654676642%_)))))))) + (_%slot-contract-normalize69508%_ + (lambda (_%slot-spec76532%_) + (let ((_%contract7653476536%_ + (_%slot-contract69507%_ _%slot-spec76532%_))) + (if _%contract7653476536%_ + (let ((_%contract76540%_ _%contract7653476536%_)) + (_%contract-normalize69509%_ _%contract76540%_)) '#f)))) - (_%contract-normalize69463%_ - (lambda (_%contract76231%_) - (let* ((_%__stx8296282963%_ _%contract76231%_) - (_%g7623776281%_ + (_%contract-normalize69509%_ + (lambda (_%contract76277%_) + (let* ((_%__stx8300883009%_ _%contract76277%_) + (_%g7628376327%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8296282963%_)))) - (let ((_%__kont8296582966%_ - (lambda (_%L76457%_) - (_%contract-normalize69463%_ - (foldr (lambda (_%g7647376476%_ - _%g7647476479%_) - (cons _%g7647376476%_ - _%g7647476479%_)) + _%__stx8300883009%_)))) + (let ((_%__kont8301183012%_ + (lambda (_%L76503%_) + (_%contract-normalize69509%_ + (foldr (lambda (_%g7651976522%_ + _%g7652076525%_) + (cons _%g7651976522%_ + _%g7652076525%_)) '() - _%L76457%_)))) - (_%__kont8296982970%_ - (lambda (_%L76381%_ _%L76383%_) + _%L76503%_)))) + (_%__kont8301583016%_ + (lambda (_%L76427%_ _%L76429%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax @@ -6826,4275 +6826,4275 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'not) - (cons _%L76383%_ '()))) + (cons _%L76429%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) - (cons _%L76381%_ '())))))) - (_%__kont8297182972%_ (lambda (_%L76319%_) '#f)) - (_%__kont8297382974%_ - (lambda () _%contract76231%_))) - (let* ((_%g7623476400%_ + (cons _%L76427%_ '())))))) + (_%__kont8301783018%_ (lambda (_%L76365%_) '#f)) + (_%__kont8301983020%_ + (lambda () _%contract76277%_))) + (let* ((_%g7628076446%_ (lambda () - (if (gx#stx-pair? _%__stx8296282963%_) - (let ((_%e7625776341%_ + (if (gx#stx-pair? _%__stx8300883009%_) + (let ((_%e7630376387%_ (gx#syntax-e - _%__stx8296282963%_))) - (let ((_%tl7625976348%_ + _%__stx8300883009%_))) + (let ((_%tl7630576394%_ (let () (declare (not safe)) - (##cdr _%e7625776341%_))) - (_%hd7625876345%_ + (##cdr _%e7630376387%_))) + (_%hd7630476391%_ (let () (declare (not safe)) - (##car _%e7625776341%_)))) - (if (gx#identifier? _%hd7625876345%_) + (##car _%e7630376387%_)))) + (if (gx#identifier? _%hd7630476391%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84162_| - _%hd7625876345%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84208_| + _%hd7630476391%_) (if (gx#stx-pair? - _%tl7625976348%_) - (let ((_%e7626076351%_ + _%tl7630576394%_) + (let ((_%e7630676397%_ (gx#syntax-e - _%tl7625976348%_))) - (let ((_%tl7626276358%_ + _%tl7630576394%_))) + (let ((_%tl7630876404%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7626076351%_))) - (_%hd7626176355%_ - (let () (declare (not safe)) (##car _%e7626076351%_)))) - (if (gx#stx-pair? _%tl7626276358%_) - (let ((_%e7626376361%_ (gx#syntax-e _%tl7626276358%_))) - (let ((_%tl7626576368%_ + (##cdr _%e7630676397%_))) + (_%hd7630776401%_ + (let () (declare (not safe)) (##car _%e7630676397%_)))) + (if (gx#stx-pair? _%tl7630876404%_) + (let ((_%e7630976407%_ (gx#syntax-e _%tl7630876404%_))) + (let ((_%tl7631176414%_ (let () (declare (not safe)) - (##cdr _%e7626376361%_))) - (_%hd7626476365%_ + (##cdr _%e7630976407%_))) + (_%hd7631076411%_ (let () (declare (not safe)) - (##car _%e7626376361%_)))) - (if (gx#identifier? _%hd7626476365%_) + (##car _%e7630976407%_)))) + (if (gx#identifier? _%hd7631076411%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84163_| - _%hd7626476365%_) - (if (gx#stx-pair? _%tl7626576368%_) - (let ((_%e7626676371%_ - (gx#syntax-e _%tl7626576368%_))) - (let ((_%tl7626876378%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84209_| + _%hd7631076411%_) + (if (gx#stx-pair? _%tl7631176414%_) + (let ((_%e7631276417%_ + (gx#syntax-e _%tl7631176414%_))) + (let ((_%tl7631476424%_ (let () (declare (not safe)) - (##cdr _%e7626676371%_))) - (_%hd7626776375%_ + (##cdr _%e7631276417%_))) + (_%hd7631376421%_ (let () (declare (not safe)) - (##car _%e7626676371%_)))) - (if (gx#stx-null? _%tl7626876378%_) - (_%__kont8296982970%_ - _%hd7626776375%_ - _%hd7626176355%_) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)) - (_%__kont8297382974%_)) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)) + (##car _%e7631276417%_)))) + (if (gx#stx-null? _%tl7631476424%_) + (_%__kont8301583016%_ + _%hd7631376421%_ + _%hd7630776401%_) + (_%__kont8301983020%_)))) + (_%__kont8301983020%_)) + (_%__kont8301983020%_)) + (_%__kont8301983020%_)))) + (_%__kont8301983020%_)))) + (_%__kont8301983020%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84164_| - _%hd7625876345%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84210_| + _%hd7630476391%_) (if (gx#stx-pair? - _%tl7625976348%_) - (let ((_%e7627376309%_ + _%tl7630576394%_) + (let ((_%e7631976355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7625976348%_))) - (let ((_%tl7627576316%_ + (gx#syntax-e _%tl7630576394%_))) + (let ((_%tl7632176362%_ (let () (declare (not safe)) - (##cdr _%e7627376309%_))) - (_%hd7627476313%_ + (##cdr _%e7631976355%_))) + (_%hd7632076359%_ (let () (declare (not safe)) - (##car _%e7627376309%_)))) - (if (gx#stx-null? _%tl7627576316%_) - (_%__kont8297182972%_ _%hd7627476313%_) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)) - (_%__kont8297382974%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)))) - (_%__match8300183002%_ - (lambda (_%__splice8296782968%_ - _%target7624076407%_ - _%tl7624276410%_ - _%e7624976413%_ - _%hd7625076417%_ - _%tl7625176420%_ - _%e7625276423%_ - _%hd7625376427%_ - _%tl7625476430%_) - (letrec ((_%loop7624376433%_ - (lambda (_%hd7624176437%_ - _%pre7624776440%_) + (##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%_) (if (gx#stx-pair? - _%hd7624176437%_) - (let ((_%e7624476443%_ + _%hd7628776483%_) + (let ((_%e7629076489%_ (gx#syntax-e - _%hd7624176437%_))) - (let ((_%lp-tl7624676450%_ + _%hd7628776483%_))) + (let ((_%lp-tl7629276496%_ (let () (declare (not safe)) - (##cdr _%e7624476443%_))) - (_%lp-hd7624576447%_ + (##cdr _%e7629076489%_))) + (_%lp-hd7629176493%_ (let () (declare (not safe)) - (##car _%e7624476443%_)))) - (_%loop7624376433%_ - _%lp-tl7624676450%_ - (cons _%lp-hd7624576447%_ - _%pre7624776440%_)))) - (let ((_%pre7624876453%_ - (reverse _%pre7624776440%_))) - (_%__kont8296582966%_ - _%pre7624876453%_)))))) - (_%loop7624376433%_ - _%target7624076407%_ + (##car _%e7629076489%_)))) + (_%loop7628976479%_ + _%lp-tl7629276496%_ + (cons _%lp-hd7629176493%_ + _%pre7629376486%_)))) + (let ((_%pre7629476499%_ + (reverse _%pre7629376486%_))) + (_%__kont8301183012%_ + _%pre7629476499%_)))))) + (_%loop7628976479%_ + _%target7628676453%_ '()))))) - (if (gx#stx-pair/null? _%__stx8296282963%_) - (if (let ((__tmp84165 - (gx#stx-length _%__stx8296282963%_))) + (if (gx#stx-pair/null? _%__stx8300883009%_) + (if (let ((__tmp84211 + (gx#stx-length _%__stx8300883009%_))) (declare (not safe)) - (##fx>= __tmp84165 '2)) - (let ((_%__splice8296782968%_ + (##fx>= __tmp84211 '2)) + (let ((_%__splice8301383014%_ (gx#syntax-split-splice - _%__stx8296282963%_ + _%__stx8300883009%_ '2))) - (let ((_%tl7624276410%_ + (let ((_%tl7628876456%_ (let () (declare (not safe)) (##vector-ref - _%__splice8296782968%_ + _%__splice8301383014%_ '1))) - (_%target7624076407%_ + (_%target7628676453%_ (let () (declare (not safe)) (##vector-ref - _%__splice8296782968%_ + _%__splice8301383014%_ '0)))) - (if (gx#stx-pair? _%tl7624276410%_) - (let ((_%e7624976413%_ + (if (gx#stx-pair? _%tl7628876456%_) + (let ((_%e7629576459%_ (gx#syntax-e - _%tl7624276410%_))) - (let ((_%tl7625176420%_ + _%tl7628876456%_))) + (let ((_%tl7629776466%_ (let () (declare (not safe)) - (##cdr _%e7624976413%_))) - (_%hd7625076417%_ + (##cdr _%e7629576459%_))) + (_%hd7629676463%_ (let () (declare (not safe)) - (##car _%e7624976413%_)))) + (##car _%e7629576459%_)))) (if (gx#identifier? - _%hd7625076417%_) + _%hd7629676463%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84166_| - _%hd7625076417%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84212_| + _%hd7629676463%_) (if (gx#stx-pair? - _%tl7625176420%_) - (let ((_%e7625276423%_ + _%tl7629776466%_) + (let ((_%e7629876469%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7625176420%_))) - (let ((_%tl7625476430%_ + (gx#syntax-e _%tl7629776466%_))) + (let ((_%tl7630076476%_ (let () (declare (not safe)) - (##cdr _%e7625276423%_))) - (_%hd7625376427%_ + (##cdr _%e7629876469%_))) + (_%hd7629976473%_ (let () (declare (not safe)) - (##car _%e7625276423%_)))) - (if (gx#stx-null? _%tl7625476430%_) - (_%__match8300183002%_ - _%__splice8296782968%_ - _%target7624076407%_ - _%tl7624276410%_ - _%e7624976413%_ - _%hd7625076417%_ - _%tl7625176420%_ - _%e7625276423%_ - _%hd7625376427%_ - _%tl7625476430%_) - (let () (declare (not safe)) (_%g7623476400%_))))) - (let () (declare (not safe)) (_%g7623476400%_))) - (let () (declare (not safe)) (_%g7623476400%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7623476400%_))))) + (_%g7628076446%_))))) (let () (declare (not safe)) - (_%g7623476400%_))))) + (_%g7628076446%_))))) (let () (declare (not safe)) - (_%g7623476400%_))) + (_%g7628076446%_))) (let () (declare (not safe)) - (_%g7623476400%_)))))))) - (_%slot-contract-type69464%_ - (lambda (_%slot-spec76220%_) - (let ((_%contract7622276224%_ - (_%slot-contract69461%_ _%slot-spec76220%_))) - (if _%contract7622276224%_ - (let ((_%contract76228%_ _%contract7622276224%_)) - (_%contract-type69465%_ _%contract76228%_)) + (_%g7628076446%_)))))))) + (_%slot-contract-type69510%_ + (lambda (_%slot-spec76266%_) + (let ((_%contract7626876270%_ + (_%slot-contract69507%_ _%slot-spec76266%_))) + (if _%contract7626876270%_ + (let ((_%contract76274%_ _%contract7626876270%_)) + (_%contract-type69511%_ _%contract76274%_)) '#f)))) - (_%contract-type69465%_ - (lambda (_%contract76028%_) - (let* ((_%__stx8305683057%_ _%contract76028%_) - (_%g7603376065%_ + (_%contract-type69511%_ + (lambda (_%contract76074%_) + (let* ((_%__stx8310283103%_ _%contract76074%_) + (_%g7607976111%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8305683057%_)))) - (let ((_%__kont8305983060%_ - (lambda (_%L76187%_ _%L76189%_ _%L76190%_) - _%L76189%_)) - (_%__kont8306183062%_ - (lambda (_%L76123%_ - _%L76125%_ - _%L76126%_ - _%L76127%_) - _%L76125%_)) - (_%__kont8306383064%_ (lambda () '#f))) - (let* ((_%__match8310583106%_ - (lambda (_%e7604876083%_ - _%hd7604976087%_ - _%tl7605076090%_ - _%e7605176093%_ - _%hd7605276097%_ - _%tl7605376100%_ - _%e7605476103%_ - _%hd7605576107%_ - _%tl7605676110%_ - _%e7605776113%_ - _%hd7605876117%_ - _%tl7605976120%_) - (let ((_%L76123%_ _%tl7605976120%_) - (_%L76125%_ _%hd7605876117%_) - (_%L76126%_ _%hd7605576107%_) - (_%L76127%_ _%hd7605276097%_)) - (if (and (gx#identifier? _%L76126%_) + _%__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%_) (or (gx#free-identifier=? - _%L76126%_ + _%L76172%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76126%_ + _%L76172%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76126%_ + _%L76172%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76126%_ + _%L76172%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8306183062%_ - _%L76123%_ - _%L76125%_ - _%L76126%_ - _%L76127%_) - (_%__kont8306383064%_))))) - (_%__match8307783078%_ - (lambda (_%e7603876167%_ - _%hd7603976171%_ - _%tl7604076174%_ - _%e7604176177%_ - _%hd7604276181%_ - _%tl7604376184%_) - (let ((_%L76187%_ _%tl7604376184%_) - (_%L76189%_ _%hd7604276181%_) - (_%L76190%_ _%hd7603976171%_)) - (if (and (gx#identifier? _%L76190%_) + (_%__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%_) (or (gx#free-identifier=? - _%L76190%_ + _%L76236%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76190%_ + _%L76236%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76190%_ + _%L76236%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76190%_ + _%L76236%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8305983060%_ - _%L76187%_ - _%L76189%_ - _%L76190%_) - (if (gx#identifier? _%hd7603976171%_) + (_%__kont8310583106%_ + _%L76233%_ + _%L76235%_ + _%L76236%_) + (if (gx#identifier? _%hd7608576217%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84167_| - _%hd7603976171%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84213_| + _%hd7608576217%_) (if (gx#stx-pair? - _%tl7604376184%_) - (let ((_%e7605476103%_ + _%tl7608976230%_) + (let ((_%e7610076149%_ (gx#syntax-e - _%tl7604376184%_))) - (let ((_%tl7605676110%_ + _%tl7608976230%_))) + (let ((_%tl7610276156%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7605476103%_))) - (_%hd7605576107%_ - (let () (declare (not safe)) (##car _%e7605476103%_)))) - (if (gx#stx-pair? _%tl7605676110%_) - (let ((_%e7605776113%_ (gx#syntax-e _%tl7605676110%_))) - (let ((_%tl7605976120%_ + (##cdr _%e7610076149%_))) + (_%hd7610176153%_ + (let () (declare (not safe)) (##car _%e7610076149%_)))) + (if (gx#stx-pair? _%tl7610276156%_) + (let ((_%e7610376159%_ (gx#syntax-e _%tl7610276156%_))) + (let ((_%tl7610576166%_ (let () (declare (not safe)) - (##cdr _%e7605776113%_))) - (_%hd7605876117%_ + (##cdr _%e7610376159%_))) + (_%hd7610476163%_ (let () (declare (not safe)) - (##car _%e7605776113%_)))) - (_%__match8310583106%_ - _%e7603876167%_ - _%hd7603976171%_ - _%tl7604076174%_ - _%e7604176177%_ - _%hd7604276181%_ - _%tl7604376184%_ - _%e7605476103%_ - _%hd7605576107%_ - _%tl7605676110%_ - _%e7605776113%_ - _%hd7605876117%_ - _%tl7605976120%_))) - (_%__kont8306383064%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8306383064%_)) - (_%__kont8306383064%_)) - (_%__kont8306383064%_))))))) - (if (gx#stx-pair? _%__stx8305683057%_) - (let ((_%e7603876167%_ - (gx#syntax-e _%__stx8305683057%_))) - (let ((_%tl7604076174%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e7603876167%_))) - (_%hd7603976171%_ + (##cdr _%e7608476213%_))) + (_%hd7608576217%_ (let () (declare (not safe)) - (##car _%e7603876167%_)))) - (if (gx#stx-pair? _%tl7604076174%_) - (let ((_%e7604176177%_ - (gx#syntax-e _%tl7604076174%_))) - (let ((_%tl7604376184%_ + (##car _%e7608476213%_)))) + (if (gx#stx-pair? _%tl7608676220%_) + (let ((_%e7608776223%_ + (gx#syntax-e _%tl7608676220%_))) + (let ((_%tl7608976230%_ (let () (declare (not safe)) - (##cdr _%e7604176177%_))) - (_%hd7604276181%_ + (##cdr _%e7608776223%_))) + (_%hd7608876227%_ (let () (declare (not safe)) - (##car _%e7604176177%_)))) - (_%__match8307783078%_ - _%e7603876167%_ - _%hd7603976171%_ - _%tl7604076174%_ - _%e7604176177%_ - _%hd7604276181%_ - _%tl7604376184%_))) - (_%__kont8306383064%_)))) - (_%__kont8306383064%_))))))) - (_%slot-contract-predicate69466%_ - (lambda (_%slot-spec76017%_) - (let ((_%contract7601976021%_ - (_%slot-contract69461%_ _%slot-spec76017%_))) - (if _%contract7601976021%_ - (let ((_%contract76025%_ _%contract7601976021%_)) - (_%contract-predicate69467%_ _%contract76025%_)) + (##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%_)) '#f)))) - (_%contract-predicate69467%_ - (lambda (_%contract75939%_) - (let* ((_%__stx8310883109%_ _%contract75939%_) - (_%g7594375958%_ + (_%contract-predicate69513%_ + (lambda (_%contract75985%_) + (let* ((_%__stx8315483155%_ _%contract75985%_) + (_%g7598976004%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8310883109%_)))) - (let ((_%__kont8311183112%_ - (lambda (_%L75996%_ _%L75998%_) _%L75998%_)) - (_%__kont8311383114%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8310883109%_) - (let ((_%e7594775976%_ - (gx#syntax-e _%__stx8310883109%_))) - (let ((_%tl7594975983%_ + _%__stx8315483155%_)))) + (let ((_%__kont8315783158%_ + (lambda (_%L76042%_ _%L76044%_) _%L76044%_)) + (_%__kont8315983160%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8315483155%_) + (let ((_%e7599376022%_ + (gx#syntax-e _%__stx8315483155%_))) + (let ((_%tl7599576029%_ (let () (declare (not safe)) - (##cdr _%e7594775976%_))) - (_%hd7594875980%_ + (##cdr _%e7599376022%_))) + (_%hd7599476026%_ (let () (declare (not safe)) - (##car _%e7594775976%_)))) - (if (gx#identifier? _%hd7594875980%_) + (##car _%e7599376022%_)))) + (if (gx#identifier? _%hd7599476026%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84168_| - _%hd7594875980%_) - (if (gx#stx-pair? _%tl7594975983%_) - (let ((_%e7595075986%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84214_| + _%hd7599476026%_) + (if (gx#stx-pair? _%tl7599576029%_) + (let ((_%e7599676032%_ (gx#syntax-e - _%tl7594975983%_))) - (let ((_%tl7595275993%_ + _%tl7599576029%_))) + (let ((_%tl7599876039%_ (let () (declare (not safe)) - (##cdr _%e7595075986%_))) - (_%hd7595175990%_ + (##cdr _%e7599676032%_))) + (_%hd7599776036%_ (let () (declare (not safe)) - (##car _%e7595075986%_)))) - (_%__kont8311183112%_ - _%tl7595275993%_ - _%hd7595175990%_))) - (_%__kont8311383114%_)) - (_%__kont8311383114%_)) - (_%__kont8311383114%_)))) - (_%__kont8311383114%_)))))) - (_%slot-default69468%_ - (lambda (_%slot-spec75767%_) - (let* ((_%__stx8313483135%_ _%slot-spec75767%_) - (_%g7577275804%_ + (##car _%e7599676032%_)))) + (_%__kont8315783158%_ + _%tl7599876039%_ + _%hd7599776036%_))) + (_%__kont8315983160%_)) + (_%__kont8315983160%_)) + (_%__kont8315983160%_)))) + (_%__kont8315983160%_)))))) + (_%slot-default69514%_ + (lambda (_%slot-spec75813%_) + (let* ((_%__stx8318083181%_ _%slot-spec75813%_) + (_%g7581875850%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8313483135%_)))) - (let ((_%__kont8313783138%_ - (lambda (_%L75920%_ _%L75922%_) _%L75920%_)) - (_%__kont8313983140%_ - (lambda (_%L75872%_ _%L75874%_) _%L75872%_)) - (_%__kont8314383144%_ (lambda () '#f))) - (let* ((_%__match8318583186%_ - (lambda (_%__splice8314183142%_ - _%target7578475822%_ - _%tl7578675825%_ - _%e7579375828%_ - _%hd7579475832%_ - _%tl7579575835%_ - _%e7579675838%_ - _%hd7579775842%_ - _%tl7579875845%_) - (letrec ((_%loop7578775848%_ - (lambda (_%hd7578575852%_ - _%id7579175855%_) + _%__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%_) (if (gx#stx-pair? - _%hd7578575852%_) - (let ((_%e7578875858%_ + _%hd7583175898%_) + (let ((_%e7583475904%_ (gx#syntax-e - _%hd7578575852%_))) - (let ((_%lp-tl7579075865%_ + _%hd7583175898%_))) + (let ((_%lp-tl7583675911%_ (let () (declare (not safe)) - (##cdr _%e7578875858%_))) - (_%lp-hd7578975862%_ + (##cdr _%e7583475904%_))) + (_%lp-hd7583575908%_ (let () (declare (not safe)) - (##car _%e7578875858%_)))) - (_%loop7578775848%_ - _%lp-tl7579075865%_ - (cons _%lp-hd7578975862%_ - _%id7579175855%_)))) - (let ((_%id7579275868%_ - (reverse _%id7579175855%_))) - (_%__kont8313983140%_ - _%hd7579775842%_ - _%id7579275868%_)))))) - (_%loop7578775848%_ - _%target7578475822%_ + (##car _%e7583475904%_)))) + (_%loop7583375894%_ + _%lp-tl7583675911%_ + (cons _%lp-hd7583575908%_ + _%id7583775901%_)))) + (let ((_%id7583875914%_ + (reverse _%id7583775901%_))) + (_%__kont8318583186%_ + _%hd7584375888%_ + _%id7583875914%_)))))) + (_%loop7583375894%_ + _%target7583075868%_ '())))) - (_%g7577075893%_ + (_%g7581675939%_ (lambda () - (if (gx#stx-pair/null? _%__stx8313483135%_) - (if (let ((__tmp84169 + (if (gx#stx-pair/null? _%__stx8318083181%_) + (if (let ((__tmp84215 (gx#stx-length - _%__stx8313483135%_))) + _%__stx8318083181%_))) (declare (not safe)) - (##fx>= __tmp84169 '2)) - (let ((_%__splice8314183142%_ + (##fx>= __tmp84215 '2)) + (let ((_%__splice8318783188%_ (gx#syntax-split-splice - _%__stx8313483135%_ + _%__stx8318083181%_ '2))) - (let ((_%tl7578675825%_ + (let ((_%tl7583275871%_ (let () (declare (not safe)) (##vector-ref - _%__splice8314183142%_ + _%__splice8318783188%_ '1))) - (_%target7578475822%_ + (_%target7583075868%_ (let () (declare (not safe)) (##vector-ref - _%__splice8314183142%_ + _%__splice8318783188%_ '0)))) (if (gx#stx-pair? - _%tl7578675825%_) - (let ((_%e7579375828%_ + _%tl7583275871%_) + (let ((_%e7583975874%_ (gx#syntax-e - _%tl7578675825%_))) - (let ((_%tl7579575835%_ + _%tl7583275871%_))) + (let ((_%tl7584175881%_ (let () (declare (not safe)) - (##cdr _%e7579375828%_))) - (_%hd7579475832%_ + (##cdr _%e7583975874%_))) + (_%hd7584075878%_ (let () (declare (not safe)) - (##car _%e7579375828%_)))) + (##car _%e7583975874%_)))) (if (gx#identifier? - _%hd7579475832%_) + _%hd7584075878%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84170_| - _%hd7579475832%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84216_| + _%hd7584075878%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7579575835%_) - (let ((_%e7579675838%_ - (gx#syntax-e _%tl7579575835%_))) - (let ((_%tl7579875845%_ + _%tl7584175881%_) + (let ((_%e7584275884%_ + (gx#syntax-e _%tl7584175881%_))) + (let ((_%tl7584475891%_ (let () (declare (not safe)) - (##cdr _%e7579675838%_))) - (_%hd7579775842%_ + (##cdr _%e7584275884%_))) + (_%hd7584375888%_ (let () (declare (not safe)) - (##car _%e7579675838%_)))) - (if (gx#stx-null? _%tl7579875845%_) - (_%__match8318583186%_ - _%__splice8314183142%_ - _%target7578475822%_ - _%tl7578675825%_ - _%e7579375828%_ - _%hd7579475832%_ - _%tl7579575835%_ - _%e7579675838%_ - _%hd7579775842%_ - _%tl7579875845%_) - (_%__kont8314383144%_)))) - (_%__kont8314383144%_)) - (_%__kont8314383144%_)) - (_%__kont8314383144%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8314383144%_)))) - (_%__kont8314383144%_)) - (_%__kont8314383144%_))))) - (if (gx#stx-pair? _%__stx8313483135%_) - (let ((_%e7577675900%_ - (gx#syntax-e _%__stx8313483135%_))) - (let ((_%tl7577875907%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e7577675900%_))) - (_%hd7577775904%_ + (##cdr _%e7582275946%_))) + (_%hd7582375950%_ (let () (declare (not safe)) - (##car _%e7577675900%_)))) - (if (gx#stx-pair? _%tl7577875907%_) - (let ((_%e7577975910%_ - (gx#syntax-e _%tl7577875907%_))) - (let ((_%tl7578175917%_ + (##car _%e7582275946%_)))) + (if (gx#stx-pair? _%tl7582475953%_) + (let ((_%e7582575956%_ + (gx#syntax-e _%tl7582475953%_))) + (let ((_%tl7582775963%_ (let () (declare (not safe)) - (##cdr _%e7577975910%_))) - (_%hd7578075914%_ + (##cdr _%e7582575956%_))) + (_%hd7582675960%_ (let () (declare (not safe)) - (##car _%e7577975910%_)))) - (if (gx#stx-null? _%tl7578175917%_) - (_%__kont8313783138%_ - _%hd7578075914%_ - _%hd7577775904%_) + (##car _%e7582575956%_)))) + (if (gx#stx-null? _%tl7582775963%_) + (_%__kont8318383184%_ + _%hd7582675960%_ + _%hd7582375950%_) (let () (declare (not safe)) - (_%g7577075893%_))))) + (_%g7581675939%_))))) (let () (declare (not safe)) - (_%g7577075893%_))))) + (_%g7581675939%_))))) (let () (declare (not safe)) - (_%g7577075893%_)))))))) - (_%infer-slot-type69469%_ - (lambda (_%slot75665%_ _%type-a75667%_ _%type-b75668%_) - (if (not _%type-a75667%_) - _%type-b75668%_ - (if (not _%type-b75668%_) - _%type-a75667%_ + (_%g7581675939%_)))))))) + (_%infer-slot-type69515%_ + (lambda (_%slot75711%_ _%type-a75713%_ _%type-b75714%_) + (if (not _%type-a75713%_) + _%type-b75714%_ + (if (not _%type-b75714%_) + _%type-a75713%_ (if (gx#free-identifier=? - _%type-a75667%_ - _%type-b75668%_) - _%type-a75667%_ - (let _%again75678%_ ((_%klass-a75681%_ + _%type-a75713%_ + _%type-b75714%_) + _%type-a75713%_ + (let _%again75724%_ ((_%klass-a75727%_ (gx#syntax-local-value - _%type-a75667%_)) - (_%klass-b75683%_ + _%type-a75713%_)) + (_%klass-b75729%_ (gx#syntax-local-value - _%type-b75668%_))) - (if (eq? _%klass-a75681%_ _%klass-b75683%_) - _%type-a75667%_ + _%type-b75714%_))) + (if (eq? _%klass-a75727%_ _%klass-b75729%_) + _%type-a75713%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a75681%_)) + _%klass-a75727%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b75683%_)) - (if (eq? (let ((__obj83899 - _%klass-a75681%_)) + _%klass-b75729%_)) + (if (eq? (let ((__obj83945 + _%klass-a75727%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83899 + __obj83945 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83899 '1 '#f '#f)) - (unchecked-slot-ref __obj83899 'id))) - (let ((__obj83900 _%klass-b75683%_)) + (##unchecked-structure-ref __obj83945 '1 '#f '#f)) + (unchecked-slot-ref __obj83945 'id))) + (let ((__obj83946 _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83900 + __obj83946 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83900 '1 '#f '#f)) - (unchecked-slot-ref __obj83900 'id)))) + (##unchecked-structure-ref __obj83946 '1 '#f '#f)) + (unchecked-slot-ref __obj83946 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-a75667%_ - (if (member _%type-a75667%_ + _%type-a75713%_ + (if (member _%type-a75713%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-b75683%_)) + _%klass-b75729%_)) gx#free-identifier=?) - _%type-b75668%_ - (if (member _%type-b75668%_ + _%type-b75714%_ + (if (member _%type-b75714%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a75681%_)) + _%klass-a75727%_)) gx#free-identifier=?) - _%type-a75667%_ + _%type-a75713%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75683%_)) - (let ((_%$e75701%_ + _%klass-b75729%_)) + (let ((_%$e75747%_ (gx#syntax-local-value - (let ((__obj83897 + (let ((__obj83943 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75683%_)) + _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83897 + __obj83943 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83897 '1 '#f '#f)) - (unchecked-slot-ref __obj83897 'identifier))) + (##unchecked-structure-ref __obj83943 '1 '#f '#f)) + (unchecked-slot-ref __obj83943 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75701%_ - ((lambda (_%klass-b75705%_) - (_%again75678%_ - _%klass-a75681%_ - _%klass-b75705%_)) - _%$e75701%_) + (if _%$e75747%_ + ((lambda (_%klass-b75751%_) + (_%again75724%_ + _%klass-a75727%_ + _%klass-b75751%_)) + _%$e75747%_) (if (gx#free-identifier=? - _%type-a75667%_ - (let ((__obj83898 + _%type-a75713%_ + (let ((__obj83944 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75683%_)) + _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83898 + __obj83944 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83898 '1 '#f '#f)) - (unchecked-slot-ref __obj83898 'identifier)))) - _%type-a75667%_ + (##unchecked-structure-ref __obj83944 '1 '#f '#f)) + (unchecked-slot-ref __obj83944 'identifier)))) + _%type-a75713%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a75681%_)) + _%klass-a75727%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b75683%_)) - (if (member _%type-a75667%_ + _%klass-b75729%_)) + (if (member _%type-a75713%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-b75683%_))) - _%type-b75668%_ - (if (member _%type-b75668%_ + _%klass-b75729%_))) + _%type-b75714%_ + (if (member _%type-b75714%_ (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a75681%_))) - _%type-a75667%_ + _%klass-a75727%_))) + _%type-a75713%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75683%_)) - (let ((_%$e75726%_ + _%klass-b75729%_)) + (let ((_%$e75772%_ (gx#syntax-local-value - (let ((__obj83895 + (let ((__obj83941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75683%_)) + _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83895 + __obj83941 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83895 + __obj83941 '1 '#f '#f)) - (unchecked-slot-ref __obj83895 'identifier))) + (unchecked-slot-ref __obj83941 'identifier))) false))) - (if _%$e75726%_ - ((lambda (_%klass-b75730%_) - (_%again75678%_ _%klass-a75681%_ _%klass-b75730%_)) - _%$e75726%_) + (if _%$e75772%_ + ((lambda (_%klass-b75776%_) + (_%again75724%_ _%klass-a75727%_ _%klass-b75776%_)) + _%$e75772%_) (if (gx#free-identifier=? - _%type-a75667%_ - (let ((__obj83896 _%klass-b75683%_)) + _%type-a75713%_ + (let ((__obj83942 _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83896 + __obj83942 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83896 + __obj83942 '1 '#f '#f)) - (unchecked-slot-ref __obj83896 'identifier)))) - _%type-a75667%_ + (unchecked-slot-ref __obj83942 'identifier)))) + _%type-a75713%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_)))) (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a75681%_)) - (let ((_%$e75741%_ + _%klass-a75727%_)) + (let ((_%$e75787%_ (gx#syntax-local-value - (let ((__obj83890 + (let ((__obj83936 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a75681%_)) + _%klass-a75727%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83890 + __obj83936 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83890 '1 '#f '#f)) - (unchecked-slot-ref __obj83890 'identifier))) + (##unchecked-structure-ref __obj83936 '1 '#f '#f)) + (unchecked-slot-ref __obj83936 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75741%_ - ((lambda (_%klass-a75745%_) - (_%again75678%_ - _%klass-a75745%_ - _%klass-b75683%_)) - _%$e75741%_) + (if _%$e75787%_ + ((lambda (_%klass-a75791%_) + (_%again75724%_ + _%klass-a75791%_ + _%klass-b75729%_)) + _%$e75787%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75683%_)) - (let ((_%$e75750%_ + _%klass-b75729%_)) + (let ((_%$e75796%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj83892 _%klass-b75683%_)) + (let ((__obj83938 _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83892 + __obj83938 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83892 + __obj83938 '1 '#f '#f)) - (unchecked-slot-ref __obj83892 'identifier))) + (unchecked-slot-ref __obj83938 'identifier))) false))) - (if _%$e75750%_ - ((lambda (_%klass-b75754%_) - (_%again75678%_ - _%klass-a75681%_ - _%klass-b75754%_)) - _%$e75750%_) + (if _%$e75796%_ + ((lambda (_%klass-b75800%_) + (_%again75724%_ + _%klass-a75727%_ + _%klass-b75800%_)) + _%$e75796%_) (if (gx#free-identifier=? - (let ((__obj83893 _%klass-a75681%_)) + (let ((__obj83939 _%klass-a75727%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83893 + __obj83939 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83893 + __obj83939 '1 '#f '#f)) (unchecked-slot-ref - __obj83893 + __obj83939 'identifier))) - (let ((__obj83894 _%klass-b75683%_)) + (let ((__obj83940 _%klass-b75729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83894 + __obj83940 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83894 + __obj83940 '1 '#f '#f)) (unchecked-slot-ref - __obj83894 + __obj83940 'identifier)))) - _%type-a75667%_ + _%type-a75713%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_)))) (if (gx#free-identifier=? - _%type-b75668%_ - (let ((__obj83891 _%klass-a75681%_)) + _%type-b75714%_ + (let ((__obj83937 _%klass-a75727%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83891 + __obj83937 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83891 + __obj83937 '1 '#f '#f)) - (unchecked-slot-ref __obj83891 'identifier)))) - _%type-b75668%_ + (unchecked-slot-ref __obj83937 'identifier)))) + _%type-b75714%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))))) + _%stx69500%_ + _%slot75711%_ + _%type-a75713%_ + _%type-b75714%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"unexpected slot type" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%klass-a75681%_))))))))))) - (_%get-mixin-slots69470%_ - (lambda (_%super75536%_) - (letrec* ((_%tab75539%_ (make-hash-table-eq))) - (let _%loop75542%_ ((_%rest75545%_ _%super75536%_) - (_%result75547%_ '())) - (let* ((_%rest7554875556%_ _%rest75545%_) - (_%else7555075568%_ + _%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%_ (lambda () - (values (reverse! _%result75547%_) - _%tab75539%_))) - (_%K7555275649%_ - (lambda (_%rest75572%_ _%type-id75574%_) - (let* ((_%klass75576%_ + (values (reverse! _%result75593%_) + _%tab75585%_))) + (_%K7559875695%_ + (lambda (_%rest75618%_ _%type-id75620%_) + (let* ((_%klass75622%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx69454%_ - _%type-id75574%_))) - (_%slots75579%_ - (let ((__obj83901 _%klass75576%_)) + _%stx69500%_ + _%type-id75620%_))) + (_%slots75625%_ + (let ((__obj83947 _%klass75622%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83901 + __obj83947 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83901 + __obj83947 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83901 + __obj83947 'slots))))) - (let _%loop-inner75584%_ ((_%rest-slots75587%_ - _%slots75579%_) - (_%result75589%_ - _%result75547%_)) - (let* ((_%rest-slots7559075598%_ - _%rest-slots75587%_) - (_%else7559275610%_ + (let _%loop-inner75630%_ ((_%rest-slots75633%_ + _%slots75625%_) + (_%result75635%_ + _%result75593%_)) + (let* ((_%rest-slots7563675644%_ + _%rest-slots75633%_) + (_%else7563875656%_ (lambda () - (_%loop75542%_ + (_%loop75588%_ (foldr cons - _%rest75572%_ - (let ((__obj83902 - _%klass75576%_)) + _%rest75618%_ + (let ((__obj83948 + _%klass75622%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83902 + __obj83948 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83902 '3 '#f '#f)) + (##unchecked-structure-ref __obj83948 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83902 + __obj83948 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%result75589%_))) - (_%K7559475633%_ - (lambda (_%rest-slots75614%_ - _%slot75616%_) - (let ((_%slot-type75618%_ + _%result75635%_))) + (_%K7564075679%_ + (lambda (_%rest-slots75660%_ + _%slot75662%_) + (let ((_%slot-type75664%_ (hash-ref - _%tab75539%_ - _%slot75616%_ + _%tab75585%_ + _%slot75662%_ absent-value))) - (if (eq? _%slot-type75618%_ + (if (eq? _%slot-type75664%_ absent-value) (let () (hash-put! - _%tab75539%_ - _%slot75616%_ + _%tab75585%_ + _%slot75662%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75576%_ - _%slot75616%_))) - (_%loop-inner75584%_ - _%rest-slots75614%_ - (cons _%slot75616%_ - _%result75589%_))) - (if (not _%slot-type75618%_) + _%klass75622%_ + _%slot75662%_))) + (_%loop-inner75630%_ + _%rest-slots75660%_ + (cons _%slot75662%_ + _%result75635%_))) + (if (not _%slot-type75664%_) (let () (hash-put! - _%tab75539%_ - _%slot75616%_ + _%tab75585%_ + _%slot75662%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75576%_ - _%slot75616%_))) - (_%loop-inner75584%_ _%rest-slots75614%_ _%result75589%_)) - (let* ((_%other-slot-type75627%_ + _%klass75622%_ + _%slot75662%_))) + (_%loop-inner75630%_ _%rest-slots75660%_ _%result75635%_)) + (let* ((_%other-slot-type75673%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75576%_ - _%slot75616%_))) - (_%slot-type75630%_ - (_%infer-slot-type69469%_ - _%slot75616%_ - _%other-slot-type75627%_ - _%slot-type75618%_))) - (hash-put! _%tab75539%_ _%slot75616%_ _%slot-type75630%_) - (_%loop-inner75584%_ - _%rest-slots75614%_ - _%result75589%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest-slots7559075598%_) - (let ((_%hd7559575637%_ + _%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%_ (let () (declare (not safe)) - (##car _%rest-slots7559075598%_))) - (_%tl7559675640%_ + (##car _%rest-slots7563675644%_))) + (_%tl7564275686%_ (let () (declare (not safe)) - (##cdr _%rest-slots7559075598%_)))) - (let* ((_%slot75643%_ - _%hd7559575637%_) - (_%rest-slots75646%_ - _%tl7559675640%_)) - (_%K7559475633%_ - _%rest-slots75646%_ - _%slot75643%_))) - (_%else7559275610%_)))))))) - (if (pair? _%rest7554875556%_) - (let ((_%hd7555375653%_ + (##cdr _%rest-slots7563675644%_)))) + (let* ((_%slot75689%_ + _%hd7564175683%_) + (_%rest-slots75692%_ + _%tl7564275686%_)) + (_%K7564075679%_ + _%rest-slots75692%_ + _%slot75689%_))) + (_%else7563875656%_)))))))) + (if (pair? _%rest7559475602%_) + (let ((_%hd7559975699%_ (let () (declare (not safe)) - (##car _%rest7554875556%_))) - (_%tl7555475656%_ + (##car _%rest7559475602%_))) + (_%tl7560075702%_ (let () (declare (not safe)) - (##cdr _%rest7554875556%_)))) - (let* ((_%type-id75659%_ _%hd7555375653%_) - (_%rest75662%_ _%tl7555475656%_)) - (_%K7555275649%_ - _%rest75662%_ - _%type-id75659%_))) - (_%else7555075568%_))))))) - (_%get-slot-table69471%_ - (lambda (_%slots75479%_ - _%mixin-slots75481%_ - _%super75482%_ - _%contract-e75483%_ - _%getf75484%_ - _%mixf75485%_) - (letrec* ((_%tab75487%_ (make-hash-table-eq))) + (##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))) (for-each - (lambda (_%slot75490%_) + (lambda (_%slot75536%_) (for-each - (lambda (_%super-type75493%_) - (let* ((_%klass75496%_ + (lambda (_%super-type75539%_) + (let* ((_%klass75542%_ (gx#syntax-local-value - _%super-type75493%_)) - (_%$e75499%_ - (hash-get _%tab75487%_ _%slot75490%_))) - (if _%$e75499%_ - ((lambda (_%a75503%_) - (let ((_%$e75506%_ - (_%getf75484%_ - _%klass75496%_ - _%slot75490%_))) - (if _%$e75506%_ - ((lambda (_%b75510%_) + _%super-type75539%_)) + (_%$e75545%_ + (hash-get _%tab75533%_ _%slot75536%_))) + (if _%$e75545%_ + ((lambda (_%a75549%_) + (let ((_%$e75552%_ + (_%getf75530%_ + _%klass75542%_ + _%slot75536%_))) + (if _%$e75552%_ + ((lambda (_%b75556%_) (hash-put! - _%tab75487%_ - _%slot75490%_ - (_%mixf75485%_ - _%slot75490%_ - _%a75503%_ - _%b75510%_))) - _%$e75506%_) + _%tab75533%_ + _%slot75536%_ + (_%mixf75531%_ + _%slot75536%_ + _%a75549%_ + _%b75556%_))) + _%$e75552%_) '#!void))) - _%$e75499%_) - (let ((_%$e75513%_ - (_%getf75484%_ - _%klass75496%_ - _%slot75490%_))) - (if _%$e75513%_ - ((lambda (_%a75517%_) + _%$e75545%_) + (let ((_%$e75559%_ + (_%getf75530%_ + _%klass75542%_ + _%slot75536%_))) + (if _%$e75559%_ + ((lambda (_%a75563%_) (hash-put! - _%tab75487%_ - _%slot75490%_ - _%a75517%_)) - _%$e75513%_) + _%tab75533%_ + _%slot75536%_ + _%a75563%_)) + _%$e75559%_) '#!void))))) - _%super75482%_)) - _%mixin-slots75481%_) + _%super75528%_)) + _%mixin-slots75527%_) (for-each - (lambda (_%slot-spec75520%_) - (let ((_%slot75523%_ - (_%slot-name69460%_ _%slot-spec75520%_)) - (_%a75525%_ - (_%contract-e75483%_ _%slot-spec75520%_))) - (if _%a75525%_ - (let ((_%$e75527%_ - (hash-get _%tab75487%_ _%slot75523%_))) - (if _%$e75527%_ - ((lambda (_%b75531%_) + (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%_) (hash-put! - _%tab75487%_ - _%slot75523%_ - (_%mixf75485%_ - _%slot75523%_ - _%a75525%_ - _%b75531%_))) - _%$e75527%_) + _%tab75533%_ + _%slot75569%_ + (_%mixf75531%_ + _%slot75569%_ + _%a75571%_ + _%b75577%_))) + _%$e75573%_) (hash-put! - _%tab75487%_ - _%slot75523%_ - _%a75525%_))) + _%tab75533%_ + _%slot75569%_ + _%a75571%_))) '#!void))) - _%slots75479%_) - _%tab75487%_))) - (_%get-slot-contracts69472%_ - (lambda (_%slots73915%_ - _%mixin-slots73917%_ - _%super73918%_ - _%slot-type-table73919%_) - (_%get-slot-table69471%_ - _%slots73915%_ - _%mixin-slots73917%_ - _%super73918%_ - _%slot-contract-normalize69462%_ + _%slots75525%_) + _%tab75533%_))) + (_%get-slot-contracts69518%_ + (lambda (_%slots73961%_ + _%mixin-slots73963%_ + _%super73964%_ + _%slot-type-table73965%_) + (_%get-slot-table69517%_ + _%slots73961%_ + _%mixin-slots73963%_ + _%super73964%_ + _%slot-contract-normalize69508%_ |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%slot73921%_ _%a73923%_ _%b73924%_) - (let* ((_%__stx8345683457%_ _%a73923%_) - (_%g7398674039%_ + (lambda (_%slot73967%_ _%a73969%_ _%b73970%_) + (let* ((_%__stx8350283503%_ _%a73969%_) + (_%g7403274085%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8345683457%_)))) - (let ((_%__kont8345983460%_ + _%__stx8350283503%_)))) + (let ((_%__kont8350583506%_ (lambda () - (let* ((_%__stx8342483425%_ _%b73924%_) - (_%g7530975327%_ + (let* ((_%__stx8347083471%_ _%b73970%_) + (_%g7535575373%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8342483425%_)))) - (let ((_%__kont8342783428%_ - (lambda (_%L75421%_) - (let* ((_%g7544075448%_ - (lambda (_%g7544175444%_) + _%__stx8347083471%_)))) + (let ((_%__kont8347383474%_ + (lambda (_%L75467%_) + (let* ((_%g7548675494%_ + (lambda (_%g7548775490%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7544175444%_))) - (_%g7543975467%_ - (lambda (_%g7544175452%_) - ((lambda (_%L75455%_) + _%g7548775490%_))) + (_%g7548575513%_ + (lambda (_%g7548775498%_) + ((lambda (_%L75501%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':) - (cons _%L75455%_ '()))) - _%g7544175452%_)))) + (cons _%L75501%_ '()))) + _%g7548775498%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7543975467%_ + (_%g7548575513%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8342983430%_ - (lambda (_%L75354%_) - (let* ((_%g7537375381%_ - (lambda (_%g7537475377%_) + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8347583476%_ + (lambda (_%L75400%_) + (let* ((_%g7541975427%_ + (lambda (_%g7542075423%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7537475377%_))) - (_%g7537275400%_ - (lambda (_%g7537475385%_) - ((lambda (_%L75388%_) + _%g7542075423%_))) + (_%g7541875446%_ + (lambda (_%g7542075431%_) + ((lambda (_%L75434%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75354%_ + (cons _%L75400%_ (cons (gx#datum->syntax '#f ':) - (cons _%L75388%_ '()))))) - _%g7537475385%_)))) + (cons _%L75434%_ '()))))) + _%g7542075431%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7537275400%_ + (_%g7541875446%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (let ((_%__match8343783438%_ - (lambda (_%e7531275411%_ - _%hd7531375415%_ - _%tl7531475418%_) - (let ((_%L75421%_ - _%hd7531375415%_)) + _%slot-type-table73965%_ + _%slot73967%_)))))) + (let ((_%__match8348383484%_ + (lambda (_%e7535875457%_ + _%hd7535975461%_ + _%tl7536075464%_) + (let ((_%L75467%_ + _%hd7535975461%_)) (if (or (gx#free-identifier=? - _%L75421%_ + _%L75467%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75421%_ + _%L75467%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75421%_ + _%L75467%_ (gx#datum->syntax '#f ':-))) - (_%__kont8342783428%_ - _%L75421%_) + (_%__kont8347383474%_ + _%L75467%_) (if (gx#identifier? - _%hd7531375415%_) + _%hd7535975461%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84171_| - _%hd7531375415%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84217_| + _%hd7535975461%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7531475418%_) - (let ((_%e7531975344%_ - (gx#syntax-e _%tl7531475418%_))) - (let ((_%tl7532175351%_ + _%tl7536075464%_) + (let ((_%e7536575390%_ + (gx#syntax-e _%tl7536075464%_))) + (let ((_%tl7536775397%_ (let () (declare (not safe)) - (##cdr _%e7531975344%_))) - (_%hd7532075348%_ + (##cdr _%e7536575390%_))) + (_%hd7536675394%_ (let () (declare (not safe)) - (##car _%e7531975344%_)))) - (_%__kont8342983430%_ _%hd7532075348%_))) - (let () (declare (not safe)) (_%g7530975327%_))) - (let () (declare (not safe)) (_%g7530975327%_))) - (let () (declare (not safe)) (_%g7530975327%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8342483425%_) - (let ((_%e7531275411%_ + (##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%_ (gx#syntax-e - _%__stx8342483425%_))) - (let ((_%tl7531475418%_ + _%__stx8347083471%_))) + (let ((_%tl7536075464%_ (let () (declare (not safe)) - (##cdr _%e7531275411%_))) - (_%hd7531375415%_ + (##cdr _%e7535875457%_))) + (_%hd7535975461%_ (let () (declare (not safe)) - (##car _%e7531275411%_)))) - (_%__match8343783438%_ - _%e7531275411%_ - _%hd7531375415%_ - _%tl7531475418%_))) + (##car _%e7535875457%_)))) + (_%__match8348383484%_ + _%e7535875457%_ + _%hd7535975461%_ + _%tl7536075464%_))) (let () (declare (not safe)) - (_%g7530975327%_)))))))) - (_%__kont8346183462%_ + (_%g7535575373%_)))))))) + (_%__kont8350783508%_ (lambda () - (let* ((_%__stx8337683377%_ _%b73924%_) - (_%g7510575125%_ + (let* ((_%__stx8342283423%_ _%b73970%_) + (_%g7515175171%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8337683377%_)))) - (let ((_%__kont8337983380%_ + _%__stx8342283423%_)))) + (let ((_%__kont8342583426%_ (lambda () - (let* ((_%g7524775255%_ - (lambda (_%g7524875251%_) + (let* ((_%g7529375301%_ + (lambda (_%g7529475297%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7524875251%_))) - (_%g7524675279%_ - (lambda (_%g7524875259%_) - ((lambda (_%L75262%_) + _%g7529475297%_))) + (_%g7529275325%_ + (lambda (_%g7529475305%_) + ((lambda (_%L75308%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':?) - (cons _%L75262%_ '()))) - _%g7524875259%_)))) + (cons _%L75308%_ '()))) + _%g7529475305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7524675279%_ + (_%g7529275325%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8338183382%_ - (lambda (_%L75173%_) - (let* ((_%g7519575203%_ - (lambda (_%g7519675199%_) + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8342783428%_ + (lambda (_%L75219%_) + (let* ((_%g7524175249%_ + (lambda (_%g7524275245%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7519675199%_))) - (_%g7519475222%_ - (lambda (_%g7519675207%_) - ((lambda (_%L75210%_) + _%g7524275245%_))) + (_%g7524075268%_ + (lambda (_%g7524275253%_) + ((lambda (_%L75256%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75173%_ + (cons _%L75219%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L75210%_ '()))))) - _%g7519675207%_)))) + (cons _%L75256%_ '()))))) + _%g7524275253%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7519475222%_ + (_%g7524075268%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8338383384%_ + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8342983430%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69454%_ - _%slot73921%_ - _%a73923%_ - _%b73924%_)))) - (if (gx#stx-pair? _%__stx8337683377%_) - (let ((_%e7510775233%_ + _%stx69500%_ + _%slot73967%_ + _%a73969%_ + _%b73970%_)))) + (if (gx#stx-pair? _%__stx8342283423%_) + (let ((_%e7515375279%_ (gx#syntax-e - _%__stx8337683377%_))) - (let ((_%tl7510975240%_ + _%__stx8342283423%_))) + (let ((_%tl7515575286%_ (let () (declare (not safe)) - (##cdr _%e7510775233%_))) - (_%hd7510875237%_ + (##cdr _%e7515375279%_))) + (_%hd7515475283%_ (let () (declare (not safe)) - (##car _%e7510775233%_)))) + (##car _%e7515375279%_)))) (if (gx#identifier? - _%hd7510875237%_) + _%hd7515475283%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84172_| - _%hd7510875237%_) - (_%__kont8337983380%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84218_| + _%hd7515475283%_) + (_%__kont8342583426%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84173_| - _%hd7510875237%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84219_| + _%hd7515475283%_) (if (gx#stx-pair? - _%tl7510975240%_) - (let ((_%e7511475153%_ + _%tl7515575286%_) + (let ((_%e7516075199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7510975240%_))) - (let ((_%tl7511675160%_ + (gx#syntax-e _%tl7515575286%_))) + (let ((_%tl7516275206%_ (let () (declare (not safe)) - (##cdr _%e7511475153%_))) - (_%hd7511575157%_ + (##cdr _%e7516075199%_))) + (_%hd7516175203%_ (let () (declare (not safe)) - (##car _%e7511475153%_)))) - (if (gx#stx-pair? _%tl7511675160%_) - (let ((_%e7511775163%_ - (gx#syntax-e _%tl7511675160%_))) - (let ((_%tl7511975170%_ + (##car _%e7516075199%_)))) + (if (gx#stx-pair? _%tl7516275206%_) + (let ((_%e7516375209%_ + (gx#syntax-e _%tl7516275206%_))) + (let ((_%tl7516575216%_ (let () (declare (not safe)) - (##cdr _%e7511775163%_))) - (_%hd7511875167%_ + (##cdr _%e7516375209%_))) + (_%hd7516475213%_ (let () (declare (not safe)) - (##car _%e7511775163%_)))) - (if (gx#identifier? _%hd7511875167%_) + (##car _%e7516375209%_)))) + (if (gx#identifier? _%hd7516475213%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84174_| - _%hd7511875167%_) - (_%__kont8338183382%_ - _%hd7511575157%_) - (_%__kont8338383384%_)) - (_%__kont8338383384%_)))) - (_%__kont8338383384%_)))) - (_%__kont8338383384%_)) - (_%__kont8338383384%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8338383384%_)))) - (_%__kont8338383384%_)))))) - (_%__kont8346383464%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84220_| + _%hd7516475213%_) + (_%__kont8342783428%_ + _%hd7516175203%_) + (_%__kont8342983430%_)) + (_%__kont8342983430%_)))) + (_%__kont8342983430%_)))) + (_%__kont8342983430%_)) + (_%__kont8342983430%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8342983430%_)))) + (_%__kont8342983430%_)))))) + (_%__kont8350983510%_ (lambda () - (let* ((_%__stx8334483345%_ _%b73924%_) - (_%g7491374932%_ + (let* ((_%__stx8339083391%_ _%b73970%_) + (_%g7495974978%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8334483345%_)))) - (let ((_%__kont8334783348%_ - (lambda (_%L75028%_) - (let* ((_%g7504775055%_ - (lambda (_%g7504875051%_) + _%__stx8339083391%_)))) + (let ((_%__kont8339383394%_ + (lambda (_%L75074%_) + (let* ((_%g7509375101%_ + (lambda (_%g7509475097%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7504875051%_))) - (_%g7504675074%_ - (lambda (_%g7504875059%_) - ((lambda (_%L75062%_) + _%g7509475097%_))) + (_%g7509275120%_ + (lambda (_%g7509475105%_) + ((lambda (_%L75108%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':-) - (cons _%L75062%_ '()))) - _%g7504875059%_)))) + (cons _%L75108%_ '()))) + _%g7509475105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7504675074%_ + (_%g7509275120%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8334983350%_ - (lambda (_%L74959%_ _%L74961%_) - (let* ((_%g7498074988%_ - (lambda (_%g7498174984%_) + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8339583396%_ + (lambda (_%L75005%_ _%L75007%_) + (let* ((_%g7502675034%_ + (lambda (_%g7502775030%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7498174984%_))) - (_%g7497975007%_ - (lambda (_%g7498174992%_) - ((lambda (_%L74995%_) + _%g7502775030%_))) + (_%g7502575053%_ + (lambda (_%g7502775038%_) + ((lambda (_%L75041%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74961%_ + (cons _%L75007%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L74995%_ '()))))) - _%g7498174992%_)))) + (cons _%L75041%_ '()))))) + _%g7502775038%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7497975007%_ + (_%g7502575053%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (let ((_%__match8335783358%_ - (lambda (_%e7491675018%_ - _%hd7491775022%_ - _%tl7491875025%_) - (let ((_%L75028%_ - _%hd7491775022%_)) + _%slot-type-table73965%_ + _%slot73967%_)))))) + (let ((_%__match8340383404%_ + (lambda (_%e7496275064%_ + _%hd7496375068%_ + _%tl7496475071%_) + (let ((_%L75074%_ + _%hd7496375068%_)) (if (or (gx#free-identifier=? - _%L75028%_ + _%L75074%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75028%_ + _%L75074%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75028%_ + _%L75074%_ (gx#datum->syntax '#f ':-))) - (_%__kont8334783348%_ - _%L75028%_) + (_%__kont8339383394%_ + _%L75074%_) (if (gx#identifier? - _%hd7491775022%_) + _%hd7496375068%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84175_| - _%hd7491775022%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84221_| + _%hd7496375068%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7491875025%_) - (let ((_%e7492474949%_ - (gx#syntax-e _%tl7491875025%_))) - (let ((_%tl7492674956%_ + _%tl7496475071%_) + (let ((_%e7497074995%_ + (gx#syntax-e _%tl7496475071%_))) + (let ((_%tl7497275002%_ (let () (declare (not safe)) - (##cdr _%e7492474949%_))) - (_%hd7492574953%_ + (##cdr _%e7497074995%_))) + (_%hd7497174999%_ (let () (declare (not safe)) - (##car _%e7492474949%_)))) - (_%__kont8334983350%_ - _%tl7492674956%_ - _%hd7492574953%_))) - (let () (declare (not safe)) (_%g7491374932%_))) - (let () (declare (not safe)) (_%g7491374932%_))) - (let () (declare (not safe)) (_%g7491374932%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8334483345%_) - (let ((_%e7491675018%_ + (##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%_ (gx#syntax-e - _%__stx8334483345%_))) - (let ((_%tl7491875025%_ + _%__stx8339083391%_))) + (let ((_%tl7496475071%_ (let () (declare (not safe)) - (##cdr _%e7491675018%_))) - (_%hd7491775022%_ + (##cdr _%e7496275064%_))) + (_%hd7496375068%_ (let () (declare (not safe)) - (##car _%e7491675018%_)))) - (_%__match8335783358%_ - _%e7491675018%_ - _%hd7491775022%_ - _%tl7491875025%_))) + (##car _%e7496275064%_)))) + (_%__match8340383404%_ + _%e7496275064%_ + _%hd7496375068%_ + _%tl7496475071%_))) (let () (declare (not safe)) - (_%g7491374932%_)))))))) - (_%__kont8346583466%_ - (lambda (_%L74740%_) - (let* ((_%__stx8331883319%_ _%b73924%_) - (_%g7475674770%_ + (_%g7495974978%_)))))))) + (_%__kont8351183512%_ + (lambda (_%L74786%_) + (let* ((_%__stx8336483365%_ _%b73970%_) + (_%g7480274816%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8331883319%_)))) - (let ((_%__kont8332183322%_ - (lambda (_%L74843%_) - (let* ((_%g7485674864%_ - (lambda (_%g7485774860%_) + _%__stx8336483365%_)))) + (let ((_%__kont8336783368%_ + (lambda (_%L74889%_) + (let* ((_%g7490274910%_ + (lambda (_%g7490374906%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7485774860%_))) - (_%g7485574883%_ - (lambda (_%g7485774868%_) - ((lambda (_%L74871%_) + _%g7490374906%_))) + (_%g7490174929%_ + (lambda (_%g7490374914%_) + ((lambda (_%L74917%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74740%_ - (cons _%L74843%_ '()))) + (cons _%L74786%_ + (cons _%L74889%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74871%_ '()))))) - _%g7485774868%_)))) + (cons _%L74917%_ '()))))) + _%g7490374914%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7485574883%_ + (_%g7490174929%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8332383324%_ + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8336983370%_ (lambda () - (let* ((_%g7478174789%_ - (lambda (_%g7478274785%_) + (let* ((_%g7482774835%_ + (lambda (_%g7482874831%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7478274785%_))) - (_%g7478074812%_ - (lambda (_%g7478274793%_) - ((lambda (_%L74796%_) + _%g7482874831%_))) + (_%g7482674858%_ + (lambda (_%g7482874839%_) + ((lambda (_%L74842%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74740%_ + (cons _%L74786%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74796%_ '()))))) - _%g7478274793%_)))) + (cons _%L74842%_ '()))))) + _%g7482874839%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7478074812%_ + (_%g7482674858%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8331883319%_) - (let ((_%e7475974823%_ + _%slot-type-table73965%_ + _%slot73967%_)))))) + (if (gx#stx-pair? _%__stx8336483365%_) + (let ((_%e7480574869%_ (gx#syntax-e - _%__stx8331883319%_))) - (let ((_%tl7476174830%_ + _%__stx8336483365%_))) + (let ((_%tl7480774876%_ (let () (declare (not safe)) - (##cdr _%e7475974823%_))) - (_%hd7476074827%_ + (##cdr _%e7480574869%_))) + (_%hd7480674873%_ (let () (declare (not safe)) - (##car _%e7475974823%_)))) + (##car _%e7480574869%_)))) (if (gx#identifier? - _%hd7476074827%_) + _%hd7480674873%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84176_| - _%hd7476074827%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84222_| + _%hd7480674873%_) (if (gx#stx-pair? - _%tl7476174830%_) - (let ((_%e7476274833%_ + _%tl7480774876%_) + (let ((_%e7480874879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7476174830%_))) - (let ((_%tl7476474840%_ + (gx#syntax-e _%tl7480774876%_))) + (let ((_%tl7481074886%_ (let () (declare (not safe)) - (##cdr _%e7476274833%_))) - (_%hd7476374837%_ + (##cdr _%e7480874879%_))) + (_%hd7480974883%_ (let () (declare (not safe)) - (##car _%e7476274833%_)))) - (_%__kont8332183322%_ _%hd7476374837%_))) - (_%__kont8332383324%_)) - (_%__kont8332383324%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8332383324%_)))) - (_%__kont8332383324%_)))))) - (_%__kont8346783468%_ - (lambda (_%L74461%_) - (let* ((_%__stx8325283253%_ _%b73924%_) - (_%g7447974506%_ + (##car _%e7480874879%_)))) + (_%__kont8336783368%_ _%hd7480974883%_))) + (_%__kont8336983370%_)) + (_%__kont8336983370%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8336983370%_)))) + (_%__kont8336983370%_)))))) + (_%__kont8351383514%_ + (lambda (_%L74507%_) + (let* ((_%__stx8329883299%_ _%b73970%_) + (_%g7452574552%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8325283253%_)))) - (let ((_%__kont8325583256%_ + _%__stx8329883299%_)))) + (let ((_%__kont8330183302%_ (lambda () - (let* ((_%g7466374671%_ - (lambda (_%g7466474667%_) + (let* ((_%g7470974717%_ + (lambda (_%g7471074713%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7466474667%_))) - (_%g7466274695%_ - (lambda (_%g7466474675%_) - ((lambda (_%L74678%_) + _%g7471074713%_))) + (_%g7470874741%_ + (lambda (_%g7471074721%_) + ((lambda (_%L74724%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74461%_ + (cons _%L74507%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L74678%_ '()))))) - _%g7466474675%_)))) + (cons _%L74724%_ '()))))) + _%g7471074721%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7466274695%_ + (_%g7470874741%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8325783258%_ - (lambda (_%L74596%_) - (let* ((_%g7461174619%_ - (lambda (_%g7461274615%_) + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8330383304%_ + (lambda (_%L74642%_) + (let* ((_%g7465774665%_ + (lambda (_%g7465874661%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7461274615%_))) - (_%g7461074638%_ - (lambda (_%g7461274623%_) - ((lambda (_%L74626%_) + _%g7465874661%_))) + (_%g7465674684%_ + (lambda (_%g7465874669%_) + ((lambda (_%L74672%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74461%_ - (cons _%L74596%_ '()))) + (cons _%L74507%_ + (cons _%L74642%_ '()))) '())) (cons (gx#datum->syntax '#f ':?) - (cons _%L74626%_ '()))))) - _%g7461274623%_)))) + (cons _%L74672%_ '()))))) + _%g7465874669%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7461074638%_ + (_%g7465674684%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8325983260%_ - (lambda (_%L74544%_) + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8330583306%_ + (lambda (_%L74590%_) (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69454%_ - _%slot73921%_ - _%a73923%_ - _%b73924%_))) - (_%__kont8326183262%_ + _%stx69500%_ + _%slot73967%_ + _%a73969%_ + _%b73970%_))) + (_%__kont8330783308%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69454%_ - _%slot73921%_ - _%a73923%_ - _%b73924%_)))) - (if (gx#stx-pair? _%__stx8325283253%_) - (let ((_%e7448174649%_ + _%stx69500%_ + _%slot73967%_ + _%a73969%_ + _%b73970%_)))) + (if (gx#stx-pair? _%__stx8329883299%_) + (let ((_%e7452774695%_ (gx#syntax-e - _%__stx8325283253%_))) - (let ((_%tl7448374656%_ + _%__stx8329883299%_))) + (let ((_%tl7452974702%_ (let () (declare (not safe)) - (##cdr _%e7448174649%_))) - (_%hd7448274653%_ + (##cdr _%e7452774695%_))) + (_%hd7452874699%_ (let () (declare (not safe)) - (##car _%e7448174649%_)))) + (##car _%e7452774695%_)))) (if (gx#identifier? - _%hd7448274653%_) + _%hd7452874699%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84177_| - _%hd7448274653%_) - (_%__kont8325583256%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84223_| + _%hd7452874699%_) + (_%__kont8330183302%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84178_| - _%hd7448274653%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84224_| + _%hd7452874699%_) (if (gx#stx-pair? - _%tl7448374656%_) - (let ((_%e7448874576%_ + _%tl7452974702%_) + (let ((_%e7453474622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7448374656%_))) - (let ((_%tl7449074583%_ + (gx#syntax-e _%tl7452974702%_))) + (let ((_%tl7453674629%_ (let () (declare (not safe)) - (##cdr _%e7448874576%_))) - (_%hd7448974580%_ + (##cdr _%e7453474622%_))) + (_%hd7453574626%_ (let () (declare (not safe)) - (##car _%e7448874576%_)))) - (if (gx#stx-pair? _%tl7449074583%_) - (let ((_%e7449174586%_ - (gx#syntax-e _%tl7449074583%_))) - (let ((_%tl7449374593%_ + (##car _%e7453474622%_)))) + (if (gx#stx-pair? _%tl7453674629%_) + (let ((_%e7453774632%_ + (gx#syntax-e _%tl7453674629%_))) + (let ((_%tl7453974639%_ (let () (declare (not safe)) - (##cdr _%e7449174586%_))) - (_%hd7449274590%_ + (##cdr _%e7453774632%_))) + (_%hd7453874636%_ (let () (declare (not safe)) - (##car _%e7449174586%_)))) - (if (gx#identifier? _%hd7449274590%_) + (##car _%e7453774632%_)))) + (if (gx#identifier? _%hd7453874636%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84179_| - _%hd7449274590%_) - (_%__kont8325783258%_ - _%hd7448974580%_) - (_%__kont8325983260%_ - _%hd7448974580%_)) - (_%__kont8325983260%_ - _%hd7448974580%_)))) - (_%__kont8325983260%_ _%hd7448974580%_)))) - (_%__kont8326183262%_)) - (_%__kont8326183262%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8326183262%_)))) - (_%__kont8326183262%_)))))) - (_%__kont8346983470%_ - (lambda (_%L74278%_) - (let* ((_%__stx8322083221%_ _%b73924%_) - (_%g7429474312%_ + |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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8322083221%_)))) - (let ((_%__kont8322383224%_ - (lambda (_%L74401%_) - (let ((_%$e74412%_ + _%__stx8326683267%_)))) + (let ((_%__kont8326983270%_ + (lambda (_%L74447%_) + (let ((_%$e74458%_ (gx#free-identifier=? - _%L74401%_ + _%L74447%_ (gx#datum->syntax '#f ':)))) - (if _%$e74412%_ - _%$e74412%_ - (let ((_%$e74416%_ + (if _%$e74458%_ + _%$e74458%_ + (let ((_%$e74462%_ (gx#free-identifier=? - _%L74401%_ + _%L74447%_ (gx#datum->syntax '#f ':?)))) - (if _%$e74416%_ - _%$e74416%_ + (if _%$e74462%_ + _%$e74462%_ (gx#free-identifier=? - _%L74401%_ + _%L74447%_ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8322583226%_ - (lambda (_%L74339%_) - (let* ((_%g7435374361%_ - (lambda (_%g7435474357%_) + (_%__kont8327183272%_ + (lambda (_%L74385%_) + (let* ((_%g7439974407%_ + (lambda (_%g7440074403%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7435474357%_))) - (_%g7435274380%_ - (lambda (_%g7435474365%_) - ((lambda (_%L74368%_) + _%g7440074403%_))) + (_%g7439874426%_ + (lambda (_%g7440074411%_) + ((lambda (_%L74414%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74278%_ - (cons _%L74339%_ '()))) + (cons _%L74324%_ + (cons _%L74385%_ '()))) '())) (cons (gx#datum->syntax '#f ':-) - (cons _%L74368%_ '()))))) - _%g7435474365%_)))) + (cons _%L74414%_ '()))))) + _%g7440074411%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7435274380%_ + (_%g7439874426%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8322083221%_) - (let ((_%e7429774391%_ + _%slot-type-table73965%_ + _%slot73967%_)))))) + (if (gx#stx-pair? _%__stx8326683267%_) + (let ((_%e7434374437%_ (gx#syntax-e - _%__stx8322083221%_))) - (let ((_%tl7429974398%_ + _%__stx8326683267%_))) + (let ((_%tl7434574444%_ (let () (declare (not safe)) - (##cdr _%e7429774391%_))) - (_%hd7429874395%_ + (##cdr _%e7434374437%_))) + (_%hd7434474441%_ (let () (declare (not safe)) - (##car _%e7429774391%_)))) - (_%__kont8322383224%_ - _%hd7429874395%_))) + (##car _%e7434374437%_)))) + (_%__kont8326983270%_ + _%hd7434474441%_))) (let () (declare (not safe)) - (_%g7429474312%_))))))) - (_%__kont8347183472%_ - (lambda (_%L74066%_) - (let* ((_%__stx8318883189%_ _%b73924%_) - (_%g7408074098%_ + (_%g7434074358%_))))))) + (_%__kont8351783518%_ + (lambda (_%L74112%_) + (let* ((_%__stx8323483235%_ _%b73970%_) + (_%g7412674144%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8318883189%_)))) - (let ((_%__kont8319183192%_ - (lambda (_%L74181%_ _%L74183%_) - (let* ((_%g7420674214%_ - (lambda (_%g7420774210%_) + _%__stx8323483235%_)))) + (let ((_%__kont8323783238%_ + (lambda (_%L74227%_ _%L74229%_) + (let* ((_%g7425274260%_ + (lambda (_%g7425374256%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7420774210%_))) - (_%g7420574233%_ - (lambda (_%g7420774218%_) - ((lambda (_%L74221%_) + _%g7425374256%_))) + (_%g7425174279%_ + (lambda (_%g7425374264%_) + ((lambda (_%L74267%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74066%_ - (cons _%L74183%_ '()))) + (cons _%L74112%_ + (cons _%L74229%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74221%_ '()))))) - _%g7420774218%_)))) + (cons _%L74267%_ '()))))) + _%g7425374264%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7420574233%_ + (_%g7425174279%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8319383194%_ + _%slot-type-table73965%_ + _%slot73967%_))))) + (_%__kont8323983240%_ (lambda () - (let* ((_%g7410974117%_ - (lambda (_%g7411074113%_) + (let* ((_%g7415574163%_ + (lambda (_%g7415674159%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7411074113%_))) - (_%g7410874140%_ - (lambda (_%g7411074121%_) - ((lambda (_%L74124%_) + _%g7415674159%_))) + (_%g7415474186%_ + (lambda (_%g7415674167%_) + ((lambda (_%L74170%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74066%_ + (cons _%L74112%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74124%_ '()))))) - _%g7411074121%_)))) + (cons _%L74170%_ '()))))) + _%g7415674167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7410874140%_ + (_%g7415474186%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (let ((_%__match8321783218%_ - (lambda (_%e7408474151%_ - _%hd7408574155%_ - _%tl7408674158%_ - _%e7408774161%_ - _%hd7408874165%_ - _%tl7408974168%_ - _%e7409074171%_ - _%hd7409174175%_ - _%tl7409274178%_) - (let ((_%L74181%_ - _%hd7409174175%_) - (_%L74183%_ - _%hd7408874165%_)) + _%slot-type-table73965%_ + _%slot73967%_)))))) + (let ((_%__match8326383264%_ + (lambda (_%e7413074197%_ + _%hd7413174201%_ + _%tl7413274204%_ + _%e7413374207%_ + _%hd7413474211%_ + _%tl7413574214%_ + _%e7413674217%_ + _%hd7413774221%_ + _%tl7413874224%_) + (let ((_%L74227%_ + _%hd7413774221%_) + (_%L74229%_ + _%hd7413474211%_)) (if (or (gx#free-identifier=? - _%L74181%_ + _%L74227%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74181%_ + _%L74227%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74181%_ + _%L74227%_ (gx#datum->syntax '#f ':-))) - (_%__kont8319183192%_ - _%L74181%_ - _%L74183%_) - (_%__kont8319383194%_)))))) - (if (gx#stx-pair? _%__stx8318883189%_) - (let ((_%e7408474151%_ + (_%__kont8323783238%_ + _%L74227%_ + _%L74229%_) + (_%__kont8323983240%_)))))) + (if (gx#stx-pair? _%__stx8323483235%_) + (let ((_%e7413074197%_ (gx#syntax-e - _%__stx8318883189%_))) - (let ((_%tl7408674158%_ + _%__stx8323483235%_))) + (let ((_%tl7413274204%_ (let () (declare (not safe)) - (##cdr _%e7408474151%_))) - (_%hd7408574155%_ + (##cdr _%e7413074197%_))) + (_%hd7413174201%_ (let () (declare (not safe)) - (##car _%e7408474151%_)))) + (##car _%e7413074197%_)))) (if (gx#identifier? - _%hd7408574155%_) + _%hd7413174201%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84180_| - _%hd7408574155%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84226_| + _%hd7413174201%_) (if (gx#stx-pair? - _%tl7408674158%_) - (let ((_%e7408774161%_ + _%tl7413274204%_) + (let ((_%e7413374207%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7408674158%_))) - (let ((_%tl7408974168%_ + (gx#syntax-e _%tl7413274204%_))) + (let ((_%tl7413574214%_ (let () (declare (not safe)) - (##cdr _%e7408774161%_))) - (_%hd7408874165%_ + (##cdr _%e7413374207%_))) + (_%hd7413474211%_ (let () (declare (not safe)) - (##car _%e7408774161%_)))) - (if (gx#stx-pair? _%tl7408974168%_) - (let ((_%e7409074171%_ - (gx#syntax-e _%tl7408974168%_))) - (let ((_%tl7409274178%_ + (##car _%e7413374207%_)))) + (if (gx#stx-pair? _%tl7413574214%_) + (let ((_%e7413674217%_ + (gx#syntax-e _%tl7413574214%_))) + (let ((_%tl7413874224%_ (let () (declare (not safe)) - (##cdr _%e7409074171%_))) - (_%hd7409174175%_ + (##cdr _%e7413674217%_))) + (_%hd7413774221%_ (let () (declare (not safe)) - (##car _%e7409074171%_)))) - (_%__match8321783218%_ - _%e7408474151%_ - _%hd7408574155%_ - _%tl7408674158%_ - _%e7408774161%_ - _%hd7408874165%_ - _%tl7408974168%_ - _%e7409074171%_ - _%hd7409174175%_ - _%tl7409274178%_))) - (_%__kont8319383194%_)))) - (_%__kont8319383194%_)) - (_%__kont8319383194%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8319383194%_)))) - (_%__kont8319383194%_)))))))) - (if (gx#stx-pair? _%__stx8345683457%_) - (let ((_%e7398875294%_ - (gx#syntax-e _%__stx8345683457%_))) - (let ((_%tl7399075301%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e7398875294%_))) - (_%hd7398975298%_ + (##cdr _%e7403475340%_))) + (_%hd7403575344%_ (let () (declare (not safe)) - (##car _%e7398875294%_)))) - (if (gx#identifier? _%hd7398975298%_) + (##car _%e7403475340%_)))) + (if (gx#identifier? _%hd7403575344%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84181_| - _%hd7398975298%_) - (_%__kont8345983460%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84227_| + _%hd7403575344%_) + (_%__kont8350583506%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84182_| - _%hd7398975298%_) - (_%__kont8346183462%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84228_| + _%hd7403575344%_) + (_%__kont8350783508%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84183_| - _%hd7398975298%_) - (_%__kont8346383464%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84229_| + _%hd7403575344%_) + (_%__kont8350983510%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84184_| - _%hd7398975298%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84230_| + _%hd7403575344%_) (if (gx#stx-pair? - _%tl7399075301%_) - (let ((_%e7400174720%_ + _%tl7403675347%_) + (let ((_%e7404774766%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7399075301%_))) - (let ((_%tl7400374727%_ + (gx#syntax-e _%tl7403675347%_))) + (let ((_%tl7404974773%_ (let () (declare (not safe)) - (##cdr _%e7400174720%_))) - (_%hd7400274724%_ + (##cdr _%e7404774766%_))) + (_%hd7404874770%_ (let () (declare (not safe)) - (##car _%e7400174720%_)))) - (if (gx#stx-pair? _%tl7400374727%_) - (let ((_%e7400474730%_ - (gx#syntax-e _%tl7400374727%_))) - (let ((_%tl7400674737%_ + (##car _%e7404774766%_)))) + (if (gx#stx-pair? _%tl7404974773%_) + (let ((_%e7405074776%_ + (gx#syntax-e _%tl7404974773%_))) + (let ((_%tl7405274783%_ (let () (declare (not safe)) - (##cdr _%e7400474730%_))) - (_%hd7400574734%_ + (##cdr _%e7405074776%_))) + (_%hd7405174780%_ (let () (declare (not safe)) - (##car _%e7400474730%_)))) - (if (gx#identifier? _%hd7400574734%_) + (##car _%e7405074776%_)))) + (if (gx#identifier? _%hd7405174780%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84185_| - _%hd7400574734%_) - (_%__kont8346583466%_ _%hd7400274724%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84231_| + _%hd7405174780%_) + (_%__kont8351183512%_ _%hd7404874770%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84186_| - _%hd7400574734%_) - (_%__kont8346783468%_ - _%hd7400274724%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84232_| + _%hd7405174780%_) + (_%__kont8351383514%_ + _%hd7404874770%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84187_| - _%hd7400574734%_) - (_%__kont8346983470%_ - _%hd7400274724%_) - (_%__kont8347183472%_ - _%hd7400274724%_)))) - (_%__kont8347183472%_ _%hd7400274724%_)))) - (_%__kont8347183472%_ _%hd7400274724%_)))) - (let () (declare (not safe)) (_%g7398674039%_))) - (let () (declare (not safe)) (_%g7398674039%_)))))) + |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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7398674039%_))))) + (_%g7403274085%_))))) (let () (declare (not safe)) - (_%g7398674039%_))))))))) - (_%get-slot-defaults69473%_ - (lambda (_%slots73905%_ _%mixin-slots73907%_ _%super73908%_) - (_%get-slot-table69471%_ - _%slots73905%_ - _%mixin-slots73907%_ - _%super73908%_ - _%slot-default69468%_ + (_%g7403274085%_))))))))) + (_%get-slot-defaults69519%_ + (lambda (_%slots73951%_ _%mixin-slots73953%_ _%super73954%_) + (_%get-slot-table69517%_ + _%slots73951%_ + _%mixin-slots73953%_ + _%super73954%_ + _%slot-default69514%_ |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%slot73910%_ _%a73912%_ _%b73913%_) - _%a73912%_)))) - (_%update-slot-types!69474%_ - (lambda (_%slots73875%_ _%slot-type-table73877%_) + (lambda (_%slot73956%_ _%a73958%_ _%b73959%_) + _%a73958%_)))) + (_%update-slot-types!69520%_ + (lambda (_%slots73921%_ _%slot-type-table73923%_) (for-each - (lambda (_%slot-spec73879%_) - (let* ((_%slot73882%_ - (_%slot-name69460%_ _%slot-spec73879%_)) - (_%slot-type7388473886%_ - (_%slot-contract-type69464%_ - _%slot-spec73879%_))) - (if _%slot-type7388473886%_ - (let* ((_%slot-type73890%_ - _%slot-type7388473886%_) - (_%$e73893%_ + (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%_ (hash-get - _%slot-type-table73877%_ - _%slot73882%_))) - (if _%$e73893%_ - ((lambda (_%other-slot-type73897%_) - (let ((_%slot-type73900%_ - (_%infer-slot-type69469%_ - _%slot73882%_ - _%other-slot-type73897%_ - _%slot-type73890%_))) + _%slot-type-table73923%_ + _%slot73928%_))) + (if _%$e73939%_ + ((lambda (_%other-slot-type73943%_) + (let ((_%slot-type73946%_ + (_%infer-slot-type69515%_ + _%slot73928%_ + _%other-slot-type73943%_ + _%slot-type73936%_))) (hash-put! - _%slot-type-table73877%_ - _%slot73882%_ - _%slot-type73900%_))) - _%$e73893%_) + _%slot-type-table73923%_ + _%slot73928%_ + _%slot-type73946%_))) + _%$e73939%_) (hash-put! - _%slot-type-table73877%_ - _%slot73882%_ - _%slot-type73890%_))) + _%slot-type-table73923%_ + _%slot73928%_ + _%slot-type73936%_))) '#f))) - _%slots73875%_))) - (_%syntax-local-value/context69475%_ - (lambda (_%id73869%_) + _%slots73921%_))) + (_%syntax-local-value/context69521%_ + (lambda (_%id73915%_) (gx#syntax-local-value - _%id73869%_ - (lambda (_%id73872%_) + _%id73915%_ + (lambda (_%id73918%_) (gx#raise-syntax-error '#f '"not a class meta type binding" - _%stx69454%_ - _%id73872%_))))) - (_%order-slots69476%_ - (lambda (_%slots73800%_ _%super73802%_) - (let ((_g84188_ + _%stx69500%_ + _%id73918%_))))) + (_%order-slots69522%_ + (lambda (_%slots73846%_ _%super73848%_) + (let ((_g84234_ (c4-linearize '() - _%super73802%_ + _%super73848%_ 'get-precedence-list: - (lambda (_%klass-id73804%_) - (cons _%klass-id73804%_ - (let ((__tmp84190 - (_%syntax-local-value/context69475%_ - _%klass-id73804%_))) + (lambda (_%klass-id73850%_) + (cons _%klass-id73850%_ + (let ((__tmp84236 + (_%syntax-local-value/context69521%_ + _%klass-id73850%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp84190)))) + __tmp84236)))) 'struct: - (lambda (_%klass-id73807%_) - (let ((__obj83903 - (_%syntax-local-value/context69475%_ - _%klass-id73807%_))) + (lambda (_%klass-id73853%_) + (let ((__obj83949 + (_%syntax-local-value/context69521%_ + _%klass-id73853%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83903 + __obj83949 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83903 + __obj83949 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83903 + __obj83949 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g84189_ + (let ((_g84235_ (let () (declare (not safe)) - (if (##values? _g84188_) - (##vector-length _g84188_) + (if (##values? _g84234_) + (##vector-length _g84234_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84189_ 2))) - (error "Context expects 2 values" _g84189_))) - (let ((_%precedence-list73810%_ + (##fx= _g84235_ 2))) + (error "Context expects 2 values" _g84235_))) + (let ((_%precedence-list73856%_ (let () (declare (not safe)) - (##vector-ref _g84188_ 0))) - (_%base-struct73812%_ + (##vector-ref _g84234_ 0))) + (_%base-struct73858%_ (let () (declare (not safe)) - (##vector-ref _g84188_ 1)))) - (let* ((_%base-fields73826%_ - (if _%base-struct73812%_ - (let* ((_%klass73814%_ + (##vector-ref _g84234_ 1)))) + (let* ((_%base-fields73872%_ + (if _%base-struct73858%_ + (let* ((_%klass73860%_ (gx#syntax-local-value - _%base-struct73812%_)) - (_%$e73817%_ - (let ((__obj83904 - _%klass73814%_)) + _%base-struct73858%_)) + (_%$e73863%_ + (let ((__obj83950 + _%klass73860%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83904 + __obj83950 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83904 + __obj83950 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83904 + __obj83950 'ordered-slots))))) - (if _%$e73817%_ - _%$e73817%_ - (let ((_%ordered73823%_ - (_%order-slots69476%_ - (let ((__obj83905 - _%klass73814%_)) + (if _%$e73863%_ + _%$e73863%_ + (let ((_%ordered73869%_ + (_%order-slots69522%_ + (let ((__obj83951 + _%klass73860%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83905 + __obj83951 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83905 + __obj83951 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83905 + __obj83951 'slots))) - (let ((__obj83906 - _%klass73814%_)) + (let ((__obj83952 + _%klass73860%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83906 + __obj83952 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83906 + __obj83952 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83906 + __obj83952 'super)))))) - (let ((__obj83907 - _%klass73814%_)) + (let ((__obj83953 + _%klass73860%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83907 + __obj83953 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83907 - _%ordered73823%_ + __obj83953 + _%ordered73869%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83907 + __obj83953 'ordered-slots - _%ordered73823%_))) - _%ordered73823%_))) + _%ordered73869%_))) + _%ordered73869%_))) '())) - (_%r-fields73829%_ - (reverse _%base-fields73826%_)) - (_%seen-slots73840%_ - (let ((_%tab73832%_ (make-hash-table-eq))) + (_%r-fields73875%_ + (reverse _%base-fields73872%_)) + (_%seen-slots73886%_ + (let ((_%tab73878%_ (make-hash-table-eq))) (for-each - (lambda (_%g7383473836%_) + (lambda (_%g7388073882%_) (hash-put! - _%tab73832%_ - _%g7383473836%_ + _%tab73878%_ + _%g7388073882%_ '#t)) - _%base-fields73826%_) - _%tab73832%_)) - (_%process-slot73846%_ - (lambda (_%slot73843%_) + _%base-fields73872%_) + _%tab73878%_)) + (_%process-slot73892%_ + (lambda (_%slot73889%_) (if (hash-get - _%seen-slots73840%_ - _%slot73843%_) + _%seen-slots73886%_ + _%slot73889%_) '#!void (begin (hash-put! - _%seen-slots73840%_ - _%slot73843%_ + _%seen-slots73886%_ + _%slot73889%_ '#t) - (set! _%r-fields73829%_ - (cons _%slot73843%_ - _%r-fields73829%_))))))) + (set! _%r-fields73875%_ + (cons _%slot73889%_ + _%r-fields73875%_))))))) (for-each - (lambda (_%mixin73851%_) - (let ((_%klass73854%_ - (gx#syntax-local-value _%mixin73851%_))) - (if (let ((__obj83908 _%klass73854%_)) + (lambda (_%mixin73897%_) + (let ((_%klass73900%_ + (gx#syntax-local-value _%mixin73897%_))) + (if (let ((__obj83954 _%klass73900%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83908 + __obj83954 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83908 + __obj83954 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83908 + __obj83954 'struct?))) '#!void - (let ((_%$e73857%_ - (let ((__obj83909 _%klass73854%_)) + (let ((_%$e73903%_ + (let ((__obj83955 _%klass73900%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83909 + __obj83955 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83909 + __obj83955 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83909 + __obj83955 'ordered-slots))))) - (if _%$e73857%_ - ((lambda (_%ordered73861%_) + (if _%$e73903%_ + ((lambda (_%ordered73907%_) (for-each - _%process-slot73846%_ - _%ordered73861%_)) - _%$e73857%_) - (let ((_%ordered73866%_ - (_%order-slots69476%_ - (let ((__obj83910 - _%klass73854%_)) + _%process-slot73892%_ + _%ordered73907%_)) + _%$e73903%_) + (let ((_%ordered73912%_ + (_%order-slots69522%_ + (let ((__obj83956 + _%klass73900%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83910 + __obj83956 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83910 + __obj83956 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83910 + __obj83956 'slots))) - (let ((__obj83911 - _%klass73854%_)) + (let ((__obj83957 + _%klass73900%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83911 + __obj83957 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83911 + __obj83957 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83911 + __obj83957 'super)))))) - (let ((__obj83912 _%klass73854%_)) + (let ((__obj83958 _%klass73900%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83912 + __obj83958 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83912 - _%ordered73866%_ + __obj83958 + _%ordered73912%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83912 + __obj83958 'ordered-slots - _%ordered73866%_))) + _%ordered73912%_))) (for-each - _%process-slot73846%_ - _%ordered73866%_))))))) - _%precedence-list73810%_) - (for-each _%process-slot73846%_ _%slots73800%_) - (reverse _%r-fields73829%_))))))) - (_%wrap69477%_ - (lambda (_%e-stx73797%_) + _%process-slot73892%_ + _%ordered73912%_))))))) + _%precedence-list73856%_) + (for-each _%process-slot73892%_ _%slots73846%_) + (reverse _%r-fields73875%_))))))) + (_%wrap69523%_ + (lambda (_%e-stx73843%_) (gx#stx-wrap-source - _%e-stx73797%_ - (gx#stx-source _%stx69454%_)))) - (_%generate-defclass69478%_ - (lambda (_%id69612%_ - _%super-ref69614%_ - _%slots69615%_ - _%body69616%_) - (letrec ((_%make-id69618%_ - (lambda _%args73794%_ + _%e-stx73843%_ + (gx#stx-source _%stx69500%_)))) + (_%generate-defclass69524%_ + (lambda (_%id69658%_ + _%super-ref69660%_ + _%slots69661%_ + _%body69662%_) + (letrec ((_%make-id69664%_ + (lambda _%args73840%_ (apply gx#stx-identifier - _%id69612%_ - _%args73794%_)))) + _%id69658%_ + _%args73840%_)))) (gx#check-duplicate-identifiers - (map _%slot-name69460%_ _%slots69615%_) - _%stx69454%_) + (map _%slot-name69506%_ _%slots69661%_) + _%stx69500%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f absent-value '#f - _%stx69454%_ - _%slots69615%_)) - (_%check-typedef-body!69459%_ _%body69616%_) - (let ((_g84191_ - (_%get-mixin-slots69470%_ _%super-ref69614%_))) + _%stx69500%_ + _%slots69661%_)) + (_%check-typedef-body!69505%_ _%body69662%_) + (let ((_g84237_ + (_%get-mixin-slots69516%_ _%super-ref69660%_))) (begin - (let ((_g84192_ + (let ((_g84238_ (let () (declare (not safe)) - (if (##values? _g84191_) - (##vector-length _g84191_) + (if (##values? _g84237_) + (##vector-length _g84237_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84192_ 2))) - (error "Context expects 2 values" _g84192_))) - (let ((_%mixin-slots69621%_ + (##fx= _g84238_ 2))) + (error "Context expects 2 values" _g84238_))) + (let ((_%mixin-slots69667%_ (let () (declare (not safe)) - (##vector-ref _g84191_ 0))) - (_%slot-type-table69623%_ + (##vector-ref _g84237_ 0))) + (_%slot-type-table69669%_ (let () (declare (not safe)) - (##vector-ref _g84191_ 1)))) - (let* ((_%slot-contract-table69625%_ - (_%get-slot-contracts69472%_ - _%slots69615%_ - _%mixin-slots69621%_ - _%super-ref69614%_ - _%slot-type-table69623%_)) - (_%slot-default-table69628%_ - (_%get-slot-defaults69473%_ - _%slots69615%_ - _%mixin-slots69621%_ - _%super-ref69614%_)) - (_%ordered-slots69631%_ - (_%order-slots69476%_ - (map _%slot-name69460%_ _%slots69615%_) - _%super-ref69614%_))) - (_%update-slot-types!69474%_ - _%slots69615%_ - _%slot-type-table69623%_) - (let* ((_%slots69636%_ - (map _%slot-name69460%_ _%slots69615%_)) - (_%mixin-slots69642%_ - (filter (lambda (_%slot69639%_) - (not (memq _%slot69639%_ - _%slots69636%_))) - _%mixin-slots69621%_)) - (_%name69645%_ - (symbol->string (gx#stx-e _%id69612%_))) - (_%super69648%_ + (##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%_ (map gx#syntax-local-value - _%super-ref69614%_)) - (_%struct?69651%_ - (gx#stx-getq 'struct: _%body69616%_)) - (_%g6965469662%_ - (lambda (_%g6965569658%_) + _%super-ref69660%_)) + (_%struct?69697%_ + (gx#stx-getq 'struct: _%body69662%_)) + (_%g6970069708%_ + (lambda (_%g6970169704%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6965569658%_))) - (_%g6965373790%_ - (lambda (_%g6965569666%_) - ((lambda (_%L69669%_) - (let* ((_%g6969269700%_ - (lambda (_%g6969369696%_) + _%g6970169704%_))) + (_%g6969973836%_ + (lambda (_%g6970169712%_) + ((lambda (_%L69715%_) + (let* ((_%g6973869746%_ + (lambda (_%g6973969742%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6969369696%_))) - (_%g6969173786%_ - (lambda (_%g6969369704%_) - ((lambda (_%L69707%_) - (let* ((_%g6972069728%_ - (lambda (_%g6972169724%_) + _%g6973969742%_))) + (_%g6973773832%_ + (lambda (_%g6973969750%_) + ((lambda (_%L69753%_) + (let* ((_%g6976669774%_ + (lambda (_%g6976769770%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6972169724%_))) - (_%g6971973782%_ - (lambda (_%g6972169732%_) - ((lambda (_%L69735%_) - (let* ((_%g6974869756%_ - (lambda (_%g6974969752%_) + _%g6976769770%_))) + (_%g6976573828%_ + (lambda (_%g6976769778%_) + ((lambda (_%L69781%_) + (let* ((_%g6979469802%_ + (lambda (_%g6979569798%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6974969752%_))) - (_%g6974773778%_ - (lambda (_%g6974969760%_) - ((lambda (_%L69763%_) - (let* ((_%g6977669784%_ - (lambda (_%g6977769780%_) + _%g6979569798%_))) + (_%g6979373824%_ + (lambda (_%g6979569806%_) + ((lambda (_%L69809%_) + (let* ((_%g6982269830%_ + (lambda (_%g6982369826%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6977769780%_))) - (_%g6977573774%_ - (lambda (_%g6977769788%_) - ((lambda (_%L69791%_) - (let* ((_%g6980469821%_ - (lambda (_%g6980569817%_) + _%g6982369826%_))) + (_%g6982173820%_ + (lambda (_%g6982369834%_) + ((lambda (_%L69837%_) + (let* ((_%g6985069867%_ + (lambda (_%g6985169863%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6980569817%_))) - (_%g6980373770%_ - (lambda (_%g6980569825%_) - (if (gx#stx-pair/null? _%g6980569825%_) - (let ((_g84193_ + _%g6985169863%_))) + (_%g6984973816%_ + (lambda (_%g6985169871%_) + (if (gx#stx-pair/null? _%g6985169871%_) + (let ((_g84239_ (gx#syntax-split-splice - _%g6980569825%_ + _%g6985169871%_ '0))) (begin - (let ((_g84194_ + (let ((_g84240_ (let () (declare (not safe)) - (if (##values? _g84193_) - (##vector-length _g84193_) + (if (##values? _g84239_) + (##vector-length _g84239_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84194_ 2))) + (##fx= _g84240_ 2))) (error "Context expects 2 values" - _g84194_))) - (let ((_%target6980769828%_ + _g84240_))) + (let ((_%target6985369874%_ (let () (declare (not safe)) - (##vector-ref _g84193_ 0))) - (_%tl6980969831%_ + (##vector-ref _g84239_ 0))) + (_%tl6985569877%_ (let () (declare (not safe)) - (##vector-ref _g84193_ 1)))) - (if (gx#stx-null? _%tl6980969831%_) - (letrec ((_%loop6981069834%_ - (lambda (_%hd6980869838%_ - _%slot6981469841%_) + (##vector-ref _g84239_ 1)))) + (if (gx#stx-null? _%tl6985569877%_) + (letrec ((_%loop6985669880%_ + (lambda (_%hd6985469884%_ + _%slot6986069887%_) (if (gx#stx-pair? - _%hd6980869838%_) - (let ((_%e6981169844%_ + _%hd6985469884%_) + (let ((_%e6985769890%_ (gx#syntax-e - _%hd6980869838%_))) - (let ((_%lp-hd6981269848%_ + _%hd6985469884%_))) + (let ((_%lp-hd6985869894%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6981169844%_))) - (_%lp-tl6981369851%_ - (let () (declare (not safe)) (##cdr _%e6981169844%_)))) - (_%loop6981069834%_ - _%lp-tl6981369851%_ - (cons _%lp-hd6981269848%_ _%slot6981469841%_)))) - (let ((_%slot6981569854%_ (reverse _%slot6981469841%_))) - ((lambda (_%L69858%_) - (let* ((_%g6987569892%_ - (lambda (_%g6987669888%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6987669888%_))) - (_%g6987473766%_ - (lambda (_%g6987669896%_) - (if (gx#stx-pair/null? _%g6987669896%_) - (let ((_g84195_ + _%g6992269934%_))) + (_%g6992073812%_ + (lambda (_%g6992269942%_) + (if (gx#stx-pair/null? _%g6992269942%_) + (let ((_g84241_ (gx#syntax-split-splice - _%g6987669896%_ + _%g6992269942%_ '0))) (begin - (let ((_g84196_ + (let ((_g84242_ (let () (declare (not safe)) - (if (##values? _g84195_) - (##vector-length _g84195_) + (if (##values? _g84241_) + (##vector-length _g84241_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84196_ 2))) + (##fx= _g84242_ 2))) (error "Context expects 2 values" - _g84196_))) - (let ((_%target6987869899%_ + _g84242_))) + (let ((_%target6992469945%_ (let () (declare (not safe)) - (##vector-ref _g84195_ 0))) - (_%tl6988069902%_ + (##vector-ref _g84241_ 0))) + (_%tl6992669948%_ (let () (declare (not safe)) - (##vector-ref _g84195_ 1)))) - (if (gx#stx-null? _%tl6988069902%_) - (letrec ((_%loop6988169905%_ - (lambda (_%hd6987969909%_ - _%ordered-slot6988569912%_) + (##vector-ref _g84241_ 1)))) + (if (gx#stx-null? _%tl6992669948%_) + (letrec ((_%loop6992769951%_ + (lambda (_%hd6992569955%_ + _%ordered-slot6993169958%_) (if (gx#stx-pair? - _%hd6987969909%_) - (let ((_%e6988269915%_ + _%hd6992569955%_) + (let ((_%e6992869961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6987969909%_))) - (let ((_%lp-hd6988369919%_ + (gx#syntax-e _%hd6992569955%_))) + (let ((_%lp-hd6992969965%_ (let () (declare (not safe)) - (##car _%e6988269915%_))) - (_%lp-tl6988469922%_ + (##car _%e6992869961%_))) + (_%lp-tl6993069968%_ (let () (declare (not safe)) - (##cdr _%e6988269915%_)))) - (_%loop6988169905%_ - _%lp-tl6988469922%_ - (cons _%lp-hd6988369919%_ - _%ordered-slot6988569912%_)))) - (let ((_%ordered-slot6988669925%_ - (reverse _%ordered-slot6988569912%_))) - ((lambda (_%L69929%_) - (let* ((_%g6994669963%_ - (lambda (_%g6994769959%_) + (##cdr _%e6992869961%_)))) + (_%loop6992769951%_ + _%lp-tl6993069968%_ + (cons _%lp-hd6992969965%_ + _%ordered-slot6993169958%_)))) + (let ((_%ordered-slot6993269971%_ + (reverse _%ordered-slot6993169958%_))) + ((lambda (_%L69975%_) + (let* ((_%g6999270009%_ + (lambda (_%g6999370005%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6994769959%_))) - (_%g6994573757%_ - (lambda (_%g6994769967%_) - (if (gx#stx-pair/null? _%g6994769967%_) - (let ((_g84197_ + _%g6999370005%_))) + (_%g6999173803%_ + (lambda (_%g6999370013%_) + (if (gx#stx-pair/null? _%g6999370013%_) + (let ((_g84243_ (gx#syntax-split-splice - _%g6994769967%_ + _%g6999370013%_ '0))) (begin - (let ((_g84198_ + (let ((_g84244_ (let () (declare (not safe)) - (if (##values? _g84197_) + (if (##values? _g84243_) (##vector-length - _g84197_) + _g84243_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84198_ 2))) + (##fx= _g84244_ 2))) (error "Context expects 2 values" - _g84198_))) - (let ((_%target6994969970%_ + _g84244_))) + (let ((_%target6999570016%_ (let () (declare (not safe)) - (##vector-ref _g84197_ 0))) - (_%tl6995169973%_ + (##vector-ref _g84243_ 0))) + (_%tl6999770019%_ (let () (declare (not safe)) (##vector-ref - _g84197_ + _g84243_ 1)))) (if (gx#stx-null? - _%tl6995169973%_) - (letrec ((_%loop6995269976%_ - (lambda (_%hd6995069980%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf6995669983%_) - (if (gx#stx-pair? _%hd6995069980%_) - (let ((_%e6995369986%_ - (gx#syntax-e _%hd6995069980%_))) - (let ((_%lp-hd6995469990%_ + _%tl6999770019%_) + (letrec ((_%loop6999870022%_ + (lambda (_%hd6999670026%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf7000270029%_) + (if (gx#stx-pair? _%hd6999670026%_) + (let ((_%e6999970032%_ + (gx#syntax-e _%hd6999670026%_))) + (let ((_%lp-hd7000070036%_ (let () (declare (not safe)) - (##car _%e6995369986%_))) - (_%lp-tl6995569993%_ + (##car _%e6999970032%_))) + (_%lp-tl7000170039%_ (let () (declare (not safe)) - (##cdr _%e6995369986%_)))) - (_%loop6995269976%_ - _%lp-tl6995569993%_ - (cons _%lp-hd6995469990%_ _%getf6995669983%_)))) - (let ((_%getf6995769996%_ - (reverse _%getf6995669983%_))) - ((lambda (_%L70000%_) - (let* ((_%g7001770034%_ - (lambda (_%g7001870030%_) + (##cdr _%e6999970032%_)))) + (_%loop6999870022%_ + _%lp-tl7000170039%_ + (cons _%lp-hd7000070036%_ _%getf7000270029%_)))) + (let ((_%getf7000370042%_ + (reverse _%getf7000270029%_))) + ((lambda (_%L70046%_) + (let* ((_%g7006370080%_ + (lambda (_%g7006470076%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7001870030%_))) - (_%g7001673748%_ - (lambda (_%g7001870038%_) - (if (gx#stx-pair/null? _%g7001870038%_) - (let ((_g84199_ + _%g7006470076%_))) + (_%g7006273794%_ + (lambda (_%g7006470084%_) + (if (gx#stx-pair/null? _%g7006470084%_) + (let ((_g84245_ (gx#syntax-split-splice - _%g7001870038%_ + _%g7006470084%_ '0))) (begin - (let ((_g84200_ + (let ((_g84246_ (let () (declare (not safe)) (if (##values? - _g84199_) + _g84245_) (##vector-length - _g84199_) + _g84245_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84200_ + (##fx= _g84246_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84200_))) + (error "Context expects 2 values" _g84246_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7002070041%_ + (let ((_%target7006670087%_ (let () (declare (not safe)) (##vector-ref - _g84199_ + _g84245_ 0))) - (_%tl7002270044%_ + (_%tl7006870090%_ (let () (declare (not safe)) (##vector-ref - _g84199_ + _g84245_ 1)))) (if (gx#stx-null? - _%tl7002270044%_) - (letrec ((_%loop7002370047%_ - (lambda (_%hd7002170051%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%setf7002770054%_) - (if (gx#stx-pair? _%hd7002170051%_) - (let ((_%e7002470057%_ - (gx#syntax-e _%hd7002170051%_))) - (let ((_%lp-hd7002570061%_ + _%tl7006870090%_) + (letrec ((_%loop7006970093%_ + (lambda (_%hd7006770097%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%setf7007370100%_) + (if (gx#stx-pair? _%hd7006770097%_) + (let ((_%e7007070103%_ + (gx#syntax-e _%hd7006770097%_))) + (let ((_%lp-hd7007170107%_ (let () (declare (not safe)) - (##car _%e7002470057%_))) - (_%lp-tl7002670064%_ + (##car _%e7007070103%_))) + (_%lp-tl7007270110%_ (let () (declare (not safe)) - (##cdr _%e7002470057%_)))) - (_%loop7002370047%_ - _%lp-tl7002670064%_ - (cons _%lp-hd7002570061%_ - _%setf7002770054%_)))) - (let ((_%setf7002870067%_ - (reverse _%setf7002770054%_))) - ((lambda (_%L70071%_) - (let* ((_%g7008870105%_ - (lambda (_%g7008970101%_) + (##cdr _%e7007070103%_)))) + (_%loop7006970093%_ + _%lp-tl7007270110%_ + (cons _%lp-hd7007170107%_ + _%setf7007370100%_)))) + (let ((_%setf7007470113%_ + (reverse _%setf7007370100%_))) + ((lambda (_%L70117%_) + (let* ((_%g7013470151%_ + (lambda (_%g7013570147%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7008970101%_))) - (_%g7008773739%_ - (lambda (_%g7008970109%_) + _%g7013570147%_))) + (_%g7013373785%_ + (lambda (_%g7013570155%_) (if (gx#stx-pair/null? - _%g7008970109%_) - (let ((_g84201_ + _%g7013570155%_) + (let ((_g84247_ (gx#syntax-split-splice - _%g7008970109%_ + _%g7013570155%_ '0))) (begin - (let ((_g84202_ + (let ((_g84248_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84201_) - (##vector-length _g84201_) + _g84247_) + (##vector-length _g84247_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84202_ 2))) - (error "Context expects 2 values" _g84202_))) + (if (not (let () (declare (not safe)) (##fx= _g84248_ 2))) + (error "Context expects 2 values" _g84248_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7009170112%_ + (let ((_%target7013770158%_ (let () (declare (not safe)) (##vector-ref - _g84201_ + _g84247_ 0))) - (_%tl7009370115%_ + (_%tl7013970161%_ (let () (declare (not safe)) (##vector-ref - _g84201_ + _g84247_ 1)))) (if (gx#stx-null? - _%tl7009370115%_) - (letrec ((_%loop7009470118%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7009270122%_ _%rawsetf7009870125%_) - (if (gx#stx-pair? _%hd7009270122%_) - (let ((_%e7009570128%_ - (gx#syntax-e _%hd7009270122%_))) - (let ((_%lp-hd7009670132%_ + _%tl7013970161%_) + (letrec ((_%loop7014070164%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7013870168%_ _%rawsetf7014470171%_) + (if (gx#stx-pair? _%hd7013870168%_) + (let ((_%e7014170174%_ + (gx#syntax-e _%hd7013870168%_))) + (let ((_%lp-hd7014270178%_ (let () (declare (not safe)) - (##car _%e7009570128%_))) - (_%lp-tl7009770135%_ + (##car _%e7014170174%_))) + (_%lp-tl7014370181%_ (let () (declare (not safe)) - (##cdr _%e7009570128%_)))) - (_%loop7009470118%_ - _%lp-tl7009770135%_ - (cons _%lp-hd7009670132%_ - _%rawsetf7009870125%_)))) - (let ((_%rawsetf7009970138%_ - (reverse _%rawsetf7009870125%_))) - ((lambda (_%L70142%_) - (let* ((_%g7015970176%_ - (lambda (_%g7016070172%_) + (##cdr _%e7014170174%_)))) + (_%loop7014070164%_ + _%lp-tl7014370181%_ + (cons _%lp-hd7014270178%_ + _%rawsetf7014470171%_)))) + (let ((_%rawsetf7014570184%_ + (reverse _%rawsetf7014470171%_))) + ((lambda (_%L70188%_) + (let* ((_%g7020570222%_ + (lambda (_%g7020670218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7016070172%_))) - (_%g7015873735%_ - (lambda (_%g7016070180%_) + _%g7020670218%_))) + (_%g7020473781%_ + (lambda (_%g7020670226%_) (if (gx#stx-pair/null? - _%g7016070180%_) - (let ((_g84203_ + _%g7020670226%_) + (let ((_g84249_ (gx#syntax-split-splice - _%g7016070180%_ + _%g7020670226%_ '0))) (begin - (let ((_g84204_ + (let ((_g84250_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84203_) - (##vector-length _g84203_) + (if (##values? _g84249_) + (##vector-length _g84249_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84204_ 2))) - (error "Context expects 2 values" _g84204_))) - (let ((_%target7016270183%_ + (if (not (let () (declare (not safe)) (##fx= _g84250_ 2))) + (error "Context expects 2 values" _g84250_))) + (let ((_%target7020870229%_ (let () (declare (not safe)) - (##vector-ref _g84203_ 0))) - (_%tl7016470186%_ + (##vector-ref _g84249_ 0))) + (_%tl7021070232%_ (let () (declare (not safe)) - (##vector-ref _g84203_ 1)))) - (if (gx#stx-null? _%tl7016470186%_) - (letrec ((_%loop7016570189%_ - (lambda (_%hd7016370193%_ - _%mixin-slot7016970196%_) - (if (gx#stx-pair? _%hd7016370193%_) - (let ((_%e7016670199%_ - (gx#syntax-e _%hd7016370193%_))) - (let ((_%lp-hd7016770203%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7016670199%_))) - (_%lp-tl7016870206%_ + (##car _%e7021270245%_))) + (_%lp-tl7021470252%_ (let () (declare (not safe)) - (##cdr _%e7016670199%_)))) - (_%loop7016570189%_ - _%lp-tl7016870206%_ - (cons _%lp-hd7016770203%_ - _%mixin-slot7016970196%_)))) - (let ((_%mixin-slot7017070209%_ - (reverse _%mixin-slot7016970196%_))) - ((lambda (_%L70213%_) - (let* ((_%g7023070247%_ - (lambda (_%g7023170243%_) + (##cdr _%e7021270245%_)))) + (_%loop7021170235%_ + _%lp-tl7021470252%_ + (cons _%lp-hd7021370249%_ + _%mixin-slot7021570242%_)))) + (let ((_%mixin-slot7021670255%_ + (reverse _%mixin-slot7021570242%_))) + ((lambda (_%L70259%_) + (let* ((_%g7027670293%_ + (lambda (_%g7027770289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7023170243%_))) - (_%g7022973726%_ - (lambda (_%g7023170251%_) + _%g7027770289%_))) + (_%g7027573772%_ + (lambda (_%g7027770297%_) (if (gx#stx-pair/null? - _%g7023170251%_) - (let ((_g84205_ + _%g7027770297%_) + (let ((_g84251_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7023170251%_ '0))) + (gx#syntax-split-splice _%g7027770297%_ '0))) (begin - (let ((_g84206_ + (let ((_g84252_ (let () (declare (not safe)) - (if (##values? _g84205_) - (##vector-length _g84205_) + (if (##values? _g84251_) + (##vector-length _g84251_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84206_ 2))) - (error "Context expects 2 values" _g84206_))) - (let ((_%target7023370254%_ + (##fx= _g84252_ 2))) + (error "Context expects 2 values" _g84252_))) + (let ((_%target7027970300%_ (let () (declare (not safe)) - (##vector-ref _g84205_ 0))) - (_%tl7023570257%_ + (##vector-ref _g84251_ 0))) + (_%tl7028170303%_ (let () (declare (not safe)) - (##vector-ref _g84205_ 1)))) - (if (gx#stx-null? _%tl7023570257%_) - (letrec ((_%loop7023670260%_ - (lambda (_%hd7023470264%_ - _%mixin-getf7024070267%_) - (if (gx#stx-pair? _%hd7023470264%_) - (let ((_%e7023770270%_ + (##vector-ref _g84251_ 1)))) + (if (gx#stx-null? _%tl7028170303%_) + (letrec ((_%loop7028270306%_ + (lambda (_%hd7028070310%_ + _%mixin-getf7028670313%_) + (if (gx#stx-pair? _%hd7028070310%_) + (let ((_%e7028370316%_ (gx#syntax-e - _%hd7023470264%_))) - (let ((_%lp-hd7023870274%_ + _%hd7028070310%_))) + (let ((_%lp-hd7028470320%_ (let () (declare (not safe)) - (##car _%e7023770270%_))) - (_%lp-tl7023970277%_ + (##car _%e7028370316%_))) + (_%lp-tl7028570323%_ (let () (declare (not safe)) - (##cdr _%e7023770270%_)))) - (_%loop7023670260%_ - _%lp-tl7023970277%_ - (cons _%lp-hd7023870274%_ - _%mixin-getf7024070267%_)))) - (let ((_%mixin-getf7024170280%_ - (reverse _%mixin-getf7024070267%_))) - ((lambda (_%L70284%_) - (let* ((_%g7030170318%_ - (lambda (_%g7030270314%_) + (##cdr _%e7028370316%_)))) + (_%loop7028270306%_ + _%lp-tl7028570323%_ + (cons _%lp-hd7028470320%_ + _%mixin-getf7028670313%_)))) + (let ((_%mixin-getf7028770326%_ + (reverse _%mixin-getf7028670313%_))) + ((lambda (_%L70330%_) + (let* ((_%g7034770364%_ + (lambda (_%g7034870360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7030270314%_))) - (_%g7030073717%_ - (lambda (_%g7030270322%_) + _%g7034870360%_))) + (_%g7034673763%_ + (lambda (_%g7034870368%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7030270322%_) - (let ((_g84207_ - (gx#syntax-split-splice _%g7030270322%_ '0))) + _%g7034870368%_) + (let ((_g84253_ + (gx#syntax-split-splice _%g7034870368%_ '0))) (begin - (let ((_g84208_ + (let ((_g84254_ (let () (declare (not safe)) - (if (##values? _g84207_) - (##vector-length _g84207_) + (if (##values? _g84253_) + (##vector-length _g84253_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84208_ 2))) - (error "Context expects 2 values" _g84208_))) - (let ((_%target7030470325%_ + (##fx= _g84254_ 2))) + (error "Context expects 2 values" _g84254_))) + (let ((_%target7035070371%_ (let () (declare (not safe)) - (##vector-ref _g84207_ 0))) - (_%tl7030670328%_ + (##vector-ref _g84253_ 0))) + (_%tl7035270374%_ (let () (declare (not safe)) - (##vector-ref _g84207_ 1)))) - (if (gx#stx-null? _%tl7030670328%_) - (letrec ((_%loop7030770331%_ - (lambda (_%hd7030570335%_ - _%mixin-setf7031170338%_) + (##vector-ref _g84253_ 1)))) + (if (gx#stx-null? _%tl7035270374%_) + (letrec ((_%loop7035370377%_ + (lambda (_%hd7035170381%_ + _%mixin-setf7035770384%_) (if (gx#stx-pair? - _%hd7030570335%_) - (let ((_%e7030870341%_ + _%hd7035170381%_) + (let ((_%e7035470387%_ (gx#syntax-e - _%hd7030570335%_))) - (let ((_%lp-hd7030970345%_ + _%hd7035170381%_))) + (let ((_%lp-hd7035570391%_ (let () (declare (not safe)) - (##car _%e7030870341%_))) - (_%lp-tl7031070348%_ + (##car _%e7035470387%_))) + (_%lp-tl7035670394%_ (let () (declare (not safe)) - (##cdr _%e7030870341%_)))) - (_%loop7030770331%_ - _%lp-tl7031070348%_ - (cons _%lp-hd7030970345%_ - _%mixin-setf7031170338%_)))) - (let ((_%mixin-setf7031270351%_ - (reverse _%mixin-setf7031170338%_))) - ((lambda (_%L70355%_) - (let* ((_%g7037270389%_ - (lambda (_%g7037370385%_) + (##cdr _%e7035470387%_)))) + (_%loop7035370377%_ + _%lp-tl7035670394%_ + (cons _%lp-hd7035570391%_ + _%mixin-setf7035770384%_)))) + (let ((_%mixin-setf7035870397%_ + (reverse _%mixin-setf7035770384%_))) + ((lambda (_%L70401%_) + (let* ((_%g7041870435%_ + (lambda (_%g7041970431%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7037370385%_))) - (_%g7037173708%_ - (lambda (_%g7037370393%_) - (if (gx#stx-pair/null? _%g7037370393%_) - (let ((_g84209_ + _%g7041970431%_))) + (_%g7041773754%_ + (lambda (_%g7041970439%_) + (if (gx#stx-pair/null? _%g7041970439%_) + (let ((_g84255_ (gx#syntax-split-splice - _%g7037370393%_ + _%g7041970439%_ '0))) (begin - (let ((_g84210_ + (let ((_g84256_ (let () (declare (not safe)) - (if (##values? _g84209_) - (##vector-length _g84209_) + (if (##values? _g84255_) + (##vector-length _g84255_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84210_ 2))) + (##fx= _g84256_ 2))) (error "Context expects 2 values" - _g84210_))) - (let ((_%target7037570396%_ + _g84256_))) + (let ((_%target7042170442%_ (let () (declare (not safe)) - (##vector-ref _g84209_ 0))) - (_%tl7037770399%_ + (##vector-ref _g84255_ 0))) + (_%tl7042370445%_ (let () (declare (not safe)) - (##vector-ref _g84209_ 1)))) - (if (gx#stx-null? _%tl7037770399%_) - (letrec ((_%loop7037870402%_ - (lambda (_%hd7037670406%_ - _%mixin-rawsetf7038270409%_) + (##vector-ref _g84255_ 1)))) + (if (gx#stx-null? _%tl7042370445%_) + (letrec ((_%loop7042470448%_ + (lambda (_%hd7042270452%_ + _%mixin-rawsetf7042870455%_) (if (gx#stx-pair? - _%hd7037670406%_) - (let ((_%e7037970412%_ + _%hd7042270452%_) + (let ((_%e7042570458%_ (gx#syntax-e - _%hd7037670406%_))) - (let ((_%lp-hd7038070416%_ + _%hd7042270452%_))) + (let ((_%lp-hd7042670462%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7037970412%_))) - (_%lp-tl7038170419%_ - (let () (declare (not safe)) (##cdr _%e7037970412%_)))) - (_%loop7037870402%_ - _%lp-tl7038170419%_ - (cons _%lp-hd7038070416%_ _%mixin-rawsetf7038270409%_)))) - (let ((_%mixin-rawsetf7038370422%_ - (reverse _%mixin-rawsetf7038270409%_))) - ((lambda (_%L70426%_) - (let* ((_%g7044370460%_ - (lambda (_%g7044470456%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7044470456%_))) - (_%g7044273691%_ - (lambda (_%g7044470464%_) - (if (gx#stx-pair/null? _%g7044470464%_) - (let ((_g84211_ + _%g7049070502%_))) + (_%g7048873737%_ + (lambda (_%g7049070510%_) + (if (gx#stx-pair/null? _%g7049070510%_) + (let ((_g84257_ (gx#syntax-split-splice - _%g7044470464%_ + _%g7049070510%_ '0))) (begin - (let ((_g84212_ + (let ((_g84258_ (let () (declare (not safe)) - (if (##values? _g84211_) - (##vector-length _g84211_) + (if (##values? _g84257_) + (##vector-length _g84257_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84212_ 2))) + (##fx= _g84258_ 2))) (error "Context expects 2 values" - _g84212_))) - (let ((_%target7044670467%_ + _g84258_))) + (let ((_%target7049270513%_ (let () (declare (not safe)) - (##vector-ref _g84211_ 0))) - (_%tl7044870470%_ + (##vector-ref _g84257_ 0))) + (_%tl7049470516%_ (let () (declare (not safe)) - (##vector-ref _g84211_ 1)))) - (if (gx#stx-null? _%tl7044870470%_) - (letrec ((_%loop7044970473%_ - (lambda (_%hd7044770477%_ - _%ugetf7045370480%_) + (##vector-ref _g84257_ 1)))) + (if (gx#stx-null? _%tl7049470516%_) + (letrec ((_%loop7049570519%_ + (lambda (_%hd7049370523%_ + _%ugetf7049970526%_) (if (gx#stx-pair? - _%hd7044770477%_) - (let ((_%e7045070483%_ + _%hd7049370523%_) + (let ((_%e7049670529%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7044770477%_))) - (let ((_%lp-hd7045170487%_ + (gx#syntax-e _%hd7049370523%_))) + (let ((_%lp-hd7049770533%_ (let () (declare (not safe)) - (##car _%e7045070483%_))) - (_%lp-tl7045270490%_ + (##car _%e7049670529%_))) + (_%lp-tl7049870536%_ (let () (declare (not safe)) - (##cdr _%e7045070483%_)))) - (_%loop7044970473%_ - _%lp-tl7045270490%_ - (cons _%lp-hd7045170487%_ _%ugetf7045370480%_)))) - (let ((_%ugetf7045470493%_ (reverse _%ugetf7045370480%_))) - ((lambda (_%L70497%_) - (let* ((_%g7051470531%_ - (lambda (_%g7051570527%_) + (##cdr _%e7049670529%_)))) + (_%loop7049570519%_ + _%lp-tl7049870536%_ + (cons _%lp-hd7049770533%_ _%ugetf7049970526%_)))) + (let ((_%ugetf7050070539%_ (reverse _%ugetf7049970526%_))) + ((lambda (_%L70543%_) + (let* ((_%g7056070577%_ + (lambda (_%g7056170573%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7051570527%_))) - (_%g7051373674%_ - (lambda (_%g7051570535%_) - (if (gx#stx-pair/null? _%g7051570535%_) - (let ((_g84213_ + _%g7056170573%_))) + (_%g7055973720%_ + (lambda (_%g7056170581%_) + (if (gx#stx-pair/null? _%g7056170581%_) + (let ((_g84259_ (gx#syntax-split-splice - _%g7051570535%_ + _%g7056170581%_ '0))) (begin - (let ((_g84214_ + (let ((_g84260_ (let () (declare (not safe)) - (if (##values? _g84213_) + (if (##values? _g84259_) (##vector-length - _g84213_) + _g84259_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84214_ 2))) + (##fx= _g84260_ 2))) (error "Context expects 2 values" - _g84214_))) - (let ((_%target7051770538%_ + _g84260_))) + (let ((_%target7056370584%_ (let () (declare (not safe)) - (##vector-ref _g84213_ 0))) - (_%tl7051970541%_ + (##vector-ref _g84259_ 0))) + (_%tl7056570587%_ (let () (declare (not safe)) (##vector-ref - _g84213_ + _g84259_ 1)))) (if (gx#stx-null? - _%tl7051970541%_) - (letrec ((_%loop7052070544%_ - (lambda (_%hd7051870548%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf7052470551%_) - (if (gx#stx-pair? _%hd7051870548%_) - (let ((_%e7052170554%_ - (gx#syntax-e _%hd7051870548%_))) - (let ((_%lp-hd7052270558%_ + _%tl7056570587%_) + (letrec ((_%loop7056670590%_ + (lambda (_%hd7056470594%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf7057070597%_) + (if (gx#stx-pair? _%hd7056470594%_) + (let ((_%e7056770600%_ + (gx#syntax-e _%hd7056470594%_))) + (let ((_%lp-hd7056870604%_ (let () (declare (not safe)) - (##car _%e7052170554%_))) - (_%lp-tl7052370561%_ + (##car _%e7056770600%_))) + (_%lp-tl7056970607%_ (let () (declare (not safe)) - (##cdr _%e7052170554%_)))) - (_%loop7052070544%_ - _%lp-tl7052370561%_ - (cons _%lp-hd7052270558%_ _%usetf7052470551%_)))) - (let ((_%usetf7052570564%_ - (reverse _%usetf7052470551%_))) - ((lambda (_%L70568%_) - (let* ((_%g7058570602%_ - (lambda (_%g7058670598%_) + (##cdr _%e7056770600%_)))) + (_%loop7056670590%_ + _%lp-tl7056970607%_ + (cons _%lp-hd7056870604%_ _%usetf7057070597%_)))) + (let ((_%usetf7057170610%_ + (reverse _%usetf7057070597%_))) + ((lambda (_%L70614%_) + (let* ((_%g7063170648%_ + (lambda (_%g7063270644%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7058670598%_))) - (_%g7058473657%_ - (lambda (_%g7058670606%_) - (if (gx#stx-pair/null? _%g7058670606%_) - (let ((_g84215_ + _%g7063270644%_))) + (_%g7063073703%_ + (lambda (_%g7063270652%_) + (if (gx#stx-pair/null? _%g7063270652%_) + (let ((_g84261_ (gx#syntax-split-splice - _%g7058670606%_ + _%g7063270652%_ '0))) (begin - (let ((_g84216_ + (let ((_g84262_ (let () (declare (not safe)) (if (##values? - _g84215_) + _g84261_) (##vector-length - _g84215_) + _g84261_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84216_ + (##fx= _g84262_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84216_))) + (error "Context expects 2 values" _g84262_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7058870609%_ + (let ((_%target7063470655%_ (let () (declare (not safe)) (##vector-ref - _g84215_ + _g84261_ 0))) - (_%tl7059070612%_ + (_%tl7063670658%_ (let () (declare (not safe)) (##vector-ref - _g84215_ + _g84261_ 1)))) (if (gx#stx-null? - _%tl7059070612%_) - (letrec ((_%loop7059170615%_ - (lambda (_%hd7058970619%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-ugetf7059570622%_) - (if (gx#stx-pair? _%hd7058970619%_) - (let ((_%e7059270625%_ - (gx#syntax-e _%hd7058970619%_))) - (let ((_%lp-hd7059370629%_ + _%tl7063670658%_) + (letrec ((_%loop7063770661%_ + (lambda (_%hd7063570665%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%mixin-ugetf7064170668%_) + (if (gx#stx-pair? _%hd7063570665%_) + (let ((_%e7063870671%_ + (gx#syntax-e _%hd7063570665%_))) + (let ((_%lp-hd7063970675%_ (let () (declare (not safe)) - (##car _%e7059270625%_))) - (_%lp-tl7059470632%_ + (##car _%e7063870671%_))) + (_%lp-tl7064070678%_ (let () (declare (not safe)) - (##cdr _%e7059270625%_)))) - (_%loop7059170615%_ - _%lp-tl7059470632%_ - (cons _%lp-hd7059370629%_ - _%mixin-ugetf7059570622%_)))) - (let ((_%mixin-ugetf7059670635%_ - (reverse _%mixin-ugetf7059570622%_))) - ((lambda (_%L70639%_) - (let* ((_%g7065670673%_ - (lambda (_%g7065770669%_) + (##cdr _%e7063870671%_)))) + (_%loop7063770661%_ + _%lp-tl7064070678%_ + (cons _%lp-hd7063970675%_ + _%mixin-ugetf7064170668%_)))) + (let ((_%mixin-ugetf7064270681%_ + (reverse _%mixin-ugetf7064170668%_))) + ((lambda (_%L70685%_) + (let* ((_%g7070270719%_ + (lambda (_%g7070370715%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7065770669%_))) - (_%g7065573640%_ - (lambda (_%g7065770677%_) + _%g7070370715%_))) + (_%g7070173686%_ + (lambda (_%g7070370723%_) (if (gx#stx-pair/null? - _%g7065770677%_) - (let ((_g84217_ + _%g7070370723%_) + (let ((_g84263_ (gx#syntax-split-splice - _%g7065770677%_ + _%g7070370723%_ '0))) (begin - (let ((_g84218_ + (let ((_g84264_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84217_) - (##vector-length _g84217_) + _g84263_) + (##vector-length _g84263_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84218_ 2))) - (error "Context expects 2 values" _g84218_))) + (if (not (let () (declare (not safe)) (##fx= _g84264_ 2))) + (error "Context expects 2 values" _g84264_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7065970680%_ + (let ((_%target7070570726%_ (let () (declare (not safe)) (##vector-ref - _g84217_ + _g84263_ 0))) - (_%tl7066170683%_ + (_%tl7070770729%_ (let () (declare (not safe)) (##vector-ref - _g84217_ + _g84263_ 1)))) (if (gx#stx-null? - _%tl7066170683%_) - (letrec ((_%loop7066270686%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7066070690%_ - _%mixin-usetf7066670693%_) - (if (gx#stx-pair? _%hd7066070690%_) - (let ((_%e7066370696%_ - (gx#syntax-e _%hd7066070690%_))) - (let ((_%lp-hd7066470700%_ + _%tl7070770729%_) + (letrec ((_%loop7070870732%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7070670736%_ + _%mixin-usetf7071270739%_) + (if (gx#stx-pair? _%hd7070670736%_) + (let ((_%e7070970742%_ + (gx#syntax-e _%hd7070670736%_))) + (let ((_%lp-hd7071070746%_ (let () (declare (not safe)) - (##car _%e7066370696%_))) - (_%lp-tl7066570703%_ + (##car _%e7070970742%_))) + (_%lp-tl7071170749%_ (let () (declare (not safe)) - (##cdr _%e7066370696%_)))) - (_%loop7066270686%_ - _%lp-tl7066570703%_ - (cons _%lp-hd7066470700%_ - _%mixin-usetf7066670693%_)))) - (let ((_%mixin-usetf7066770706%_ - (reverse _%mixin-usetf7066670693%_))) - ((lambda (_%L70710%_) - (let* ((_%type-slots70872%_ + (##cdr _%e7070970742%_)))) + (_%loop7070870732%_ + _%lp-tl7071170749%_ + (cons _%lp-hd7071070746%_ + _%mixin-usetf7071270739%_)))) + (let ((_%mixin-usetf7071370752%_ + (reverse _%mixin-usetf7071270739%_))) + ((lambda (_%L70756%_) + (let* ((_%type-slots70918%_ (if (gx#stx-null? - _%slots69636%_) + _%slots69682%_) '() (cons 'slots: - (cons (map (lambda (_%slot70731%_ + (cons (map (lambda (_%slot70777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70733%_ - _%setf70734%_ - _%rawsetf70735%_) - (let* ((_%g7073770760%_ - (lambda (_%g7073870756%_) + _%getf70779%_ + _%setf70780%_ + _%rawsetf70781%_) + (let* ((_%g7078370806%_ + (lambda (_%g7078470802%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7073870756%_))) - (_%g7073670836%_ - (lambda (_%g7073870764%_) - (if (gx#stx-pair? _%g7073870764%_) - (let ((_%e7074370767%_ + _%g7078470802%_))) + (_%g7078270882%_ + (lambda (_%g7078470810%_) + (if (gx#stx-pair? _%g7078470810%_) + (let ((_%e7078970813%_ (gx#syntax-e - _%g7073870764%_))) - (let ((_%hd7074470771%_ + _%g7078470810%_))) + (let ((_%hd7079070817%_ (let () (declare (not safe)) - (##car _%e7074370767%_))) - (_%tl7074570774%_ + (##car _%e7078970813%_))) + (_%tl7079170820%_ (let () (declare (not safe)) - (##cdr _%e7074370767%_)))) + (##cdr _%e7078970813%_)))) (if (gx#stx-pair? - _%tl7074570774%_) - (let ((_%e7074670777%_ + _%tl7079170820%_) + (let ((_%e7079270823%_ (gx#syntax-e - _%tl7074570774%_))) - (let ((_%hd7074770781%_ + _%tl7079170820%_))) + (let ((_%hd7079370827%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7074670777%_))) - (_%tl7074870784%_ - (let () (declare (not safe)) (##cdr _%e7074670777%_)))) - (if (gx#stx-pair? _%tl7074870784%_) - (let ((_%e7074970787%_ (gx#syntax-e _%tl7074870784%_))) - (let ((_%hd7075070791%_ + (##car _%e7079270823%_))) + (_%tl7079470830%_ + (let () (declare (not safe)) (##cdr _%e7079270823%_)))) + (if (gx#stx-pair? _%tl7079470830%_) + (let ((_%e7079570833%_ (gx#syntax-e _%tl7079470830%_))) + (let ((_%hd7079670837%_ (let () (declare (not safe)) - (##car _%e7074970787%_))) - (_%tl7075170794%_ + (##car _%e7079570833%_))) + (_%tl7079770840%_ (let () (declare (not safe)) - (##cdr _%e7074970787%_)))) - (if (gx#stx-pair? _%tl7075170794%_) - (let ((_%e7075270797%_ - (gx#syntax-e _%tl7075170794%_))) - (let ((_%hd7075370801%_ + (##cdr _%e7079570833%_)))) + (if (gx#stx-pair? _%tl7079770840%_) + (let ((_%e7079870843%_ + (gx#syntax-e _%tl7079770840%_))) + (let ((_%hd7079970847%_ (let () (declare (not safe)) - (##car _%e7075270797%_))) - (_%tl7075470804%_ + (##car _%e7079870843%_))) + (_%tl7080070850%_ (let () (declare (not safe)) - (##cdr _%e7075270797%_)))) - (if (gx#stx-null? _%tl7075470804%_) - ((lambda (_%L70807%_ - _%L70809%_ - _%L70810%_ - _%L70811%_) + (##cdr _%e7079870843%_)))) + (if (gx#stx-null? _%tl7080070850%_) + ((lambda (_%L70853%_ + _%L70855%_ + _%L70856%_ + _%L70857%_) (if (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%L70811%_)) - (cons _%L70811%_ - (cons _%L70810%_ - (cons _%L70807%_ '()))) - (cons _%L70811%_ - (cons _%L70810%_ - (cons _%L70809%_ + _%slot-contract-table69671%_ + (gx#stx-e _%L70857%_)) + (cons _%L70857%_ + (cons _%L70856%_ + (cons _%L70853%_ '()))) + (cons _%L70857%_ + (cons _%L70856%_ + (cons _%L70855%_ '()))))) - _%hd7075370801%_ - _%hd7075070791%_ - _%hd7074770781%_ - _%hd7074470771%_) - (_%g7073770760%_ _%g7073870764%_)))) - (_%g7073770760%_ _%g7073870764%_)))) - (_%g7073770760%_ _%g7073870764%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7073770760%_ - _%g7073870764%_)))) - (_%g7073770760%_ - _%g7073870764%_))))) - (_%g7073670836%_ - (list _%slot70731%_ - _%getf70733%_ - _%setf70734%_ - _%rawsetf70735%_)))) - (foldr (lambda (_%g7083970842%_ _%g7084070845%_) - (cons _%g7083970842%_ _%g7084070845%_)) + _%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%_)) '() - _%L69858%_) - (foldr (lambda (_%g7084770850%_ _%g7084870853%_) - (cons _%g7084770850%_ _%g7084870853%_)) + _%L69904%_) + (foldr (lambda (_%g7089370896%_ _%g7089470899%_) + (cons _%g7089370896%_ _%g7089470899%_)) '() - _%L70000%_) - (foldr (lambda (_%g7085570858%_ _%g7085670861%_) - (cons _%g7085570858%_ _%g7085670861%_)) + _%L70046%_) + (foldr (lambda (_%g7090170904%_ _%g7090270907%_) + (cons _%g7090170904%_ _%g7090270907%_)) '() - _%L70071%_) - (foldr (lambda (_%g7086370866%_ _%g7086470869%_) - (cons _%g7086370866%_ _%g7086470869%_)) + _%L70117%_) + (foldr (lambda (_%g7090970912%_ _%g7091070915%_) + (cons _%g7090970912%_ _%g7091070915%_)) '() - _%L70142%_)) + _%L70188%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots71019%_ + (_%type-mixin-slots71065%_ (if (gx#stx-null? - _%mixin-slots69642%_) + _%mixin-slots69688%_) '() (cons 'mixin: - (cons (map (lambda (_%slot70879%_ + (cons (map (lambda (_%slot70925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70881%_ - _%setf70882%_ - _%rawsetf70883%_) - (let* ((_%g7088570908%_ - (lambda (_%g7088670904%_) + _%getf70927%_ + _%setf70928%_ + _%rawsetf70929%_) + (let* ((_%g7093170954%_ + (lambda (_%g7093270950%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7088670904%_))) - (_%g7088470983%_ - (lambda (_%g7088670912%_) - (if (gx#stx-pair? _%g7088670912%_) - (let ((_%e7089170915%_ + _%g7093270950%_))) + (_%g7093071029%_ + (lambda (_%g7093270958%_) + (if (gx#stx-pair? _%g7093270958%_) + (let ((_%e7093770961%_ (gx#syntax-e - _%g7088670912%_))) - (let ((_%hd7089270919%_ + _%g7093270958%_))) + (let ((_%hd7093870965%_ (let () (declare (not safe)) - (##car _%e7089170915%_))) - (_%tl7089370922%_ + (##car _%e7093770961%_))) + (_%tl7093970968%_ (let () (declare (not safe)) - (##cdr _%e7089170915%_)))) + (##cdr _%e7093770961%_)))) (if (gx#stx-pair? - _%tl7089370922%_) - (let ((_%e7089470925%_ + _%tl7093970968%_) + (let ((_%e7094070971%_ (gx#syntax-e - _%tl7089370922%_))) - (let ((_%hd7089570929%_ + _%tl7093970968%_))) + (let ((_%hd7094170975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7089470925%_))) - (_%tl7089670932%_ - (let () (declare (not safe)) (##cdr _%e7089470925%_)))) - (if (gx#stx-pair? _%tl7089670932%_) - (let ((_%e7089770935%_ (gx#syntax-e _%tl7089670932%_))) - (let ((_%hd7089870939%_ + (##car _%e7094070971%_))) + (_%tl7094270978%_ + (let () (declare (not safe)) (##cdr _%e7094070971%_)))) + (if (gx#stx-pair? _%tl7094270978%_) + (let ((_%e7094370981%_ (gx#syntax-e _%tl7094270978%_))) + (let ((_%hd7094470985%_ (let () (declare (not safe)) - (##car _%e7089770935%_))) - (_%tl7089970942%_ + (##car _%e7094370981%_))) + (_%tl7094570988%_ (let () (declare (not safe)) - (##cdr _%e7089770935%_)))) - (if (gx#stx-pair? _%tl7089970942%_) - (let ((_%e7090070945%_ - (gx#syntax-e _%tl7089970942%_))) - (let ((_%hd7090170949%_ + (##cdr _%e7094370981%_)))) + (if (gx#stx-pair? _%tl7094570988%_) + (let ((_%e7094670991%_ + (gx#syntax-e _%tl7094570988%_))) + (let ((_%hd7094770995%_ (let () (declare (not safe)) - (##car _%e7090070945%_))) - (_%tl7090270952%_ + (##car _%e7094670991%_))) + (_%tl7094870998%_ (let () (declare (not safe)) - (##cdr _%e7090070945%_)))) - (if (gx#stx-null? _%tl7090270952%_) - ((lambda (_%L70955%_ - _%L70957%_ - _%L70958%_ - _%L70959%_) + (##cdr _%e7094670991%_)))) + (if (gx#stx-null? _%tl7094870998%_) + ((lambda (_%L71001%_ + _%L71003%_ + _%L71004%_ + _%L71005%_) (if (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%L70959%_)) - (cons _%L70959%_ - (cons _%L70958%_ - (cons _%L70955%_ '()))) - (cons _%L70959%_ - (cons _%L70958%_ - (cons _%L70957%_ + _%slot-contract-table69671%_ + (gx#stx-e _%L71005%_)) + (cons _%L71005%_ + (cons _%L71004%_ + (cons _%L71001%_ '()))) + (cons _%L71005%_ + (cons _%L71004%_ + (cons _%L71003%_ '()))))) - _%hd7090170949%_ - _%hd7089870939%_ - _%hd7089570929%_ - _%hd7089270919%_) - (_%g7088570908%_ _%g7088670912%_)))) - (_%g7088570908%_ _%g7088670912%_)))) - (_%g7088570908%_ _%g7088670912%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7088570908%_ - _%g7088670912%_)))) - (_%g7088570908%_ - _%g7088670912%_))))) - (_%g7088470983%_ - (list _%slot70879%_ - _%getf70881%_ - _%setf70882%_ - _%rawsetf70883%_)))) - (foldr (lambda (_%g7098670989%_ _%g7098770992%_) - (cons _%g7098670989%_ _%g7098770992%_)) + _%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%_)) '() - _%L70213%_) - (foldr (lambda (_%g7099470997%_ _%g7099571000%_) - (cons _%g7099470997%_ _%g7099571000%_)) + _%L70259%_) + (foldr (lambda (_%g7104071043%_ _%g7104171046%_) + (cons _%g7104071043%_ _%g7104171046%_)) '() - _%L70284%_) - (foldr (lambda (_%g7100271005%_ _%g7100371008%_) - (cons _%g7100271005%_ _%g7100371008%_)) + _%L70330%_) + (foldr (lambda (_%g7104871051%_ _%g7104971054%_) + (cons _%g7104871051%_ _%g7104971054%_)) '() - _%L70355%_) - (foldr (lambda (_%g7101071013%_ _%g7101171016%_) - (cons _%g7101071013%_ _%g7101171016%_)) + _%L70401%_) + (foldr (lambda (_%g7105671059%_ _%g7105771062%_) + (cons _%g7105671059%_ _%g7105771062%_)) '() - _%L70426%_)) + _%L70472%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name71026%_ + (_%type-name71072%_ (cons 'name: - (cons (let ((_%$e71022%_ + (cons (let ((_%$e71068%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body69616%_))) - (if _%$e71022%_ _%$e71022%_ _%id69612%_)) + (gx#stx-getq 'name: _%body69662%_))) + (if _%$e71068%_ _%$e71068%_ _%id69658%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id71033%_ + (_%type-id71079%_ (cons 'id: - (cons (let ((_%$e71029%_ + (cons (let ((_%$e71075%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body69616%_))) - (if _%$e71029%_ - _%$e71029%_ + (gx#stx-getq 'id: _%body69662%_))) + (if _%$e71075%_ + _%$e71075%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L69669%_)))) + _%L69715%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor71048%_ - (let ((_%$e71044%_ - (let ((_%e7103571037%_ + (_%type-constructor71094%_ + (let ((_%$e71090%_ + (let ((_%e7108171083%_ (gx#stx-getq 'constructor: - _%body69616%_))) - (if _%e7103571037%_ - (let ((_%e71041%_ + _%body69662%_))) + (if _%e7108171083%_ + (let ((_%e71087%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e7103571037%_)) - (cons 'constructor: (cons _%e71041%_ '()))) + _%e7108171083%_)) + (cons 'constructor: (cons _%e71087%_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e71044%_ - _%$e71044%_ + (if _%$e71090%_ + _%$e71090%_ '()))) - (_%properties71102%_ - (let* ((_%properties71051%_ + (_%properties71148%_ + (let* ((_%properties71097%_ (if (gx#stx-e (gx#stx-getq 'transparent: - _%body69616%_)) + _%body69662%_)) (cons (cons 'transparent: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t) '()) '())) - (_%properties71074%_ - (let ((_%$e71054%_ - (gx#stx-e (gx#stx-getq 'print: _%body69616%_)))) - (if _%$e71054%_ - ((lambda (_%print71058%_) - (let ((_%print71069%_ - (if (eq? _%print71058%_ '#t) - (foldr (lambda (_%g7106071063%_ - _%g7106171066%_) - (cons _%g7106071063%_ - _%g7106171066%_)) + (_%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%_)) '() - _%L69858%_) - _%print71058%_))) - (cons (cons 'print: _%print71069%_) - _%properties71051%_))) - _%$e71054%_) - _%properties71051%_))) - (_%properties71097%_ - (let ((_%$e71077%_ - (gx#stx-e (gx#stx-getq 'equal: _%body69616%_)))) - (if _%$e71077%_ - ((lambda (_%equal71081%_) - (let ((_%equal71092%_ - (if (eq? _%equal71081%_ '#t) - (foldr (lambda (_%g7108371086%_ - _%g7108471089%_) - (cons _%g7108371086%_ - _%g7108471089%_)) + _%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%_)) '() - _%L69858%_) - _%equal71081%_))) - (cons (cons 'equal: _%equal71092%_) - _%properties71074%_))) - _%$e71077%_) - _%properties71074%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties71097%_)) - (_%type-properties71140%_ - (if (null? _%properties71102%_) + _%L69904%_) + _%equal71127%_))) + (cons (cons 'equal: _%equal71138%_) + _%properties71120%_))) + _%$e71123%_) + _%properties71120%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%properties71143%_)) + (_%type-properties71186%_ + (if (null? _%properties71148%_) '() - (let* ((_%g7110571113%_ - (lambda (_%g7110671109%_) + (let* ((_%g7115171159%_ + (lambda (_%g7115271155%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7110671109%_))) - (_%g7110471136%_ - (lambda (_%g7110671117%_) - ((lambda (_%L71120%_) + _%g7115271155%_))) + (_%g7115071182%_ + (lambda (_%g7115271163%_) + ((lambda (_%L71166%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71120%_ '())) + (cons _%L71166%_ '())) '()))) - _%g7110671117%_)))) - (_%g7110471136%_ _%properties71102%_)))) + _%g7115271163%_)))) + (_%g7115071182%_ _%properties71148%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass71152%_ - (let ((_%$e71143%_ + (_%metaclass71198%_ + (let ((_%$e71189%_ (gx#stx-getq 'metaclass: - _%body69616%_))) - (if _%$e71143%_ - ((lambda (_%metaclass71147%_) + _%body69662%_))) + (if _%$e71189%_ + ((lambda (_%metaclass71193%_) (if (gx#identifier? - _%metaclass71147%_) - _%metaclass71147%_ + _%metaclass71193%_) + _%metaclass71193%_ '#f)) - _%$e71143%_) + _%$e71189%_) '#f))) - (_%final?71155%_ + (_%final?71201%_ (gx#stx-e (gx#stx-getq 'final: - _%body69616%_))) - (_%type-struct71158%_ + _%body69662%_))) + (_%type-struct71204%_ (cons 'struct: - (cons _%struct?69651%_ + (cons _%struct?69697%_ '()))) - (_%type-final71161%_ + (_%type-final71207%_ (cons 'final: - (cons _%final?71155%_ + (cons _%final?71201%_ '()))) - (_%type-metaclass71164%_ - (if _%metaclass71152%_ + (_%type-metaclass71210%_ + (if _%metaclass71198%_ (cons 'metaclass: - (cons _%metaclass71152%_ + (cons _%metaclass71198%_ '())) '())) - (_%g7116771184%_ - (lambda (_%g7116871180%_) + (_%g7121371230%_ + (lambda (_%g7121471226%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7116871180%_))) - (_%g7116673636%_ - (lambda (_%g7116871188%_) + _%g7121471226%_))) + (_%g7121273682%_ + (lambda (_%g7121471234%_) (if (gx#stx-pair/null? - _%g7116871188%_) - (let ((_g84219_ + _%g7121471234%_) + (let ((_g84265_ (gx#syntax-split-splice - _%g7116871188%_ + _%g7121471234%_ '0))) (begin - (let ((_g84220_ + (let ((_g84266_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84219_) - (##vector-length _g84219_) + (if (##values? _g84265_) + (##vector-length _g84265_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84220_ 2))) - (error "Context expects 2 values" _g84220_))) - (let ((_%target7117071191%_ + (if (not (let () (declare (not safe)) (##fx= _g84266_ 2))) + (error "Context expects 2 values" _g84266_))) + (let ((_%target7121671237%_ (let () (declare (not safe)) - (##vector-ref _g84219_ 0))) - (_%tl7117271194%_ + (##vector-ref _g84265_ 0))) + (_%tl7121871240%_ (let () (declare (not safe)) - (##vector-ref _g84219_ 1)))) - (if (gx#stx-null? _%tl7117271194%_) - (letrec ((_%loop7117371197%_ - (lambda (_%hd7117171201%_ - _%type-body7117771204%_) - (if (gx#stx-pair? _%hd7117171201%_) - (let ((_%e7117471207%_ - (gx#syntax-e _%hd7117171201%_))) - (let ((_%lp-hd7117571211%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7117471207%_))) - (_%lp-tl7117671214%_ + (##car _%e7122071253%_))) + (_%lp-tl7122271260%_ (let () (declare (not safe)) - (##cdr _%e7117471207%_)))) - (_%loop7117371197%_ - _%lp-tl7117671214%_ - (cons _%lp-hd7117571211%_ - _%type-body7117771204%_)))) - (let ((_%type-body7117871217%_ - (reverse _%type-body7117771204%_))) - ((lambda (_%L71221%_) - (let* ((_%g7124271250%_ - (lambda (_%g7124371246%_) + (##cdr _%e7122071253%_)))) + (_%loop7121971243%_ + _%lp-tl7122271260%_ + (cons _%lp-hd7122171257%_ + _%type-body7122371250%_)))) + (let ((_%type-body7122471263%_ + (reverse _%type-body7122371250%_))) + ((lambda (_%L71267%_) + (let* ((_%g7128871296%_ + (lambda (_%g7128971292%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7124371246%_))) - (_%g7124173624%_ - (lambda (_%g7124371254%_) - ((lambda (_%L71257%_) - (let* ((_%g7127071278%_ + _%g7128971292%_))) + (_%g7128773670%_ + (lambda (_%g7128971300%_) + ((lambda (_%L71303%_) + (let* ((_%g7131671324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7127171274%_) + (lambda (_%g7131771320%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7127171274%_))) - (_%g7126973612%_ - (lambda (_%g7127171282%_) - ((lambda (_%L71285%_) - (let* ((_%g7129871306%_ - (lambda (_%g7129971302%_) + _%g7131771320%_))) + (_%g7131573658%_ + (lambda (_%g7131771328%_) + ((lambda (_%L71331%_) + (let* ((_%g7134471352%_ + (lambda (_%g7134571348%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7129971302%_))) - (_%g7129773541%_ - (lambda (_%g7129971310%_) - ((lambda (_%L71313%_) - (let* ((_%g7132671334%_ - (lambda (_%g7132771330%_) + _%g7134571348%_))) + (_%g7134373587%_ + (lambda (_%g7134571356%_) + ((lambda (_%L71359%_) + (let* ((_%g7137271380%_ + (lambda (_%g7137371376%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7132771330%_))) - (_%g7132573506%_ - (lambda (_%g7132771338%_) - ((lambda (_%L71341%_) - (let* ((_%g7135471362%_ + _%g7137371376%_))) + (_%g7137173552%_ + (lambda (_%g7137371384%_) + ((lambda (_%L71387%_) + (let* ((_%g7140071408%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7135571358%_) + (lambda (_%g7140171404%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7135571358%_))) - (_%g7135373420%_ - (lambda (_%g7135571366%_) - ((lambda (_%L71369%_) - (let* ((_%g7138271390%_ - (lambda (_%g7138371386%_) + _%g7140171404%_))) + (_%g7139973466%_ + (lambda (_%g7140171412%_) + ((lambda (_%L71415%_) + (let* ((_%g7142871436%_ + (lambda (_%g7142971432%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7138371386%_))) - (_%g7138173408%_ - (lambda (_%g7138371394%_) - ((lambda (_%L71397%_) - (let* ((_%g7141071418%_ - (lambda (_%g7141171414%_) + _%g7142971432%_))) + (_%g7142773454%_ + (lambda (_%g7142971440%_) + ((lambda (_%L71443%_) + (let* ((_%g7145671464%_ + (lambda (_%g7145771460%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7141171414%_))) - (_%g7140973396%_ - (lambda (_%g7141171422%_) - ((lambda (_%L71425%_) - (let* ((_%g7143871446%_ - (lambda (_%g7143971442%_) + _%g7145771460%_))) + (_%g7145573442%_ + (lambda (_%g7145771468%_) + ((lambda (_%L71471%_) + (let* ((_%g7148471492%_ + (lambda (_%g7148571488%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7143971442%_))) - (_%g7143773282%_ - (lambda (_%g7143971450%_) - ((lambda (_%L71453%_) - (let* ((_%g7146671474%_ - (lambda (_%g7146771470%_) + _%g7148571488%_))) + (_%g7148373328%_ + (lambda (_%g7148571496%_) + ((lambda (_%L71499%_) + (let* ((_%g7151271520%_ + (lambda (_%g7151371516%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7146771470%_))) - (_%g7146573171%_ - (lambda (_%g7146771478%_) - ((lambda (_%L71481%_) - (let* ((_%g7149471502%_ - (lambda (_%g7149571498%_) + _%g7151371516%_))) + (_%g7151173217%_ + (lambda (_%g7151371524%_) + ((lambda (_%L71527%_) + (let* ((_%g7154071548%_ + (lambda (_%g7154171544%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7149571498%_))) - (_%g7149373060%_ - (lambda (_%g7149571506%_) - ((lambda (_%L71509%_) - (let* ((_%g7152271530%_ - (lambda (_%g7152371526%_) + _%g7154171544%_))) + (_%g7153973106%_ + (lambda (_%g7154171552%_) + ((lambda (_%L71555%_) + (let* ((_%g7156871576%_ + (lambda (_%g7156971572%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7152371526%_))) - (_%g7152173056%_ - (lambda (_%g7152371534%_) - ((lambda (_%L71537%_) - (let* ((_%g7155071558%_ - (lambda (_%g7155171554%_) + _%g7156971572%_))) + (_%g7156773102%_ + (lambda (_%g7156971580%_) + ((lambda (_%L71583%_) + (let* ((_%g7159671604%_ + (lambda (_%g7159771600%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7155171554%_))) - (_%g7154973052%_ - (lambda (_%g7155171562%_) - ((lambda (_%L71565%_) - (let* ((_%g7157871586%_ - (lambda (_%g7157971582%_) + _%g7159771600%_))) + (_%g7159573098%_ + (lambda (_%g7159771608%_) + ((lambda (_%L71611%_) + (let* ((_%g7162471632%_ + (lambda (_%g7162571628%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7157971582%_))) - (_%g7157773017%_ - (lambda (_%g7157971590%_) - ((lambda (_%L71593%_) - (let* ((_%g7160671614%_ - (lambda (_%g7160771610%_) + _%g7162571628%_))) + (_%g7162373063%_ + (lambda (_%g7162571636%_) + ((lambda (_%L71639%_) + (let* ((_%g7165271660%_ + (lambda (_%g7165371656%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g7160771610%_))) - (_%g7160572946%_ - (lambda (_%g7160771618%_) - ((lambda (_%L71621%_) - (let* ((_%g7163471642%_ - (lambda (_%g7163571638%_) + _%g7165371656%_))) + (_%g7165172992%_ + (lambda (_%g7165371664%_) + ((lambda (_%L71667%_) + (let* ((_%g7168071688%_ + (lambda (_%g7168171684%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7163571638%_))) - (_%g7163372942%_ - (lambda (_%g7163571646%_) - ((lambda (_%L71649%_) - (let* ((_%g7166271670%_ - (lambda (_%g7166371666%_) + _%g7168171684%_))) + (_%g7167972988%_ + (lambda (_%g7168171692%_) + ((lambda (_%L71695%_) + (let* ((_%g7170871716%_ + (lambda (_%g7170971712%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7166371666%_))) - (_%g7166172938%_ - (lambda (_%g7166371674%_) - ((lambda (_%L71677%_) - (let* ((_%g7169071698%_ - (lambda (_%g7169171694%_) + _%g7170971712%_))) + (_%g7170772984%_ + (lambda (_%g7170971720%_) + ((lambda (_%L71723%_) + (let* ((_%g7173671744%_ + (lambda (_%g7173771740%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7169171694%_))) - (_%g7168972934%_ - (lambda (_%g7169171702%_) - ((lambda (_%L71705%_) + _%g7173771740%_))) + (_%g7173572980%_ + (lambda (_%g7173771748%_) + ((lambda (_%L71751%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g7171871726%_ - (lambda (_%g7171971722%_) + (let* ((_%g7176471772%_ + (lambda (_%g7176571768%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7171971722%_))) - (_%g7171772908%_ - (lambda (_%g7171971730%_) - ((lambda (_%L71733%_) - (let* ((_%g7174671754%_ - (lambda (_%g7174771750%_) + _%g7176571768%_))) + (_%g7176372954%_ + (lambda (_%g7176571776%_) + ((lambda (_%L71779%_) + (let* ((_%g7179271800%_ + (lambda (_%g7179371796%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7174771750%_))) - (_%g7174572882%_ - (lambda (_%g7174771758%_) - ((lambda (_%L71761%_) - (let* ((_%g7177471782%_ - (lambda (_%g7177571778%_) + _%g7179371796%_))) + (_%g7179172928%_ + (lambda (_%g7179371804%_) + ((lambda (_%L71807%_) + (let* ((_%g7182071828%_ + (lambda (_%g7182171824%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7177571778%_))) - (_%g7177372856%_ - (lambda (_%g7177571786%_) - ((lambda (_%L71789%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%map-slot-usetf71807%_ - (lambda (_%slot71802%_ - _%setf71804%_ - _%rawsetf71805%_) + _%g7182171824%_))) + (_%g7181972902%_ + (lambda (_%g7182171832%_) + ((lambda (_%L71835%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%map-slot-usetf71853%_ + (lambda (_%slot71848%_ + _%setf71850%_ + _%rawsetf71851%_) (cons 'cons (cons (cons 'quote - (cons _%slot71802%_ '())) + (cons _%slot71848%_ '())) (cons (if (hash-get - _%slot-contract-table69625%_ + _%slot-contract-table69671%_ (gx#stx-e - _%slot71802%_)) + _%slot71848%_)) (cons 'quote-syntax (cons (gx#stx-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rawsetf71805%_ + _%rawsetf71851%_ '"&" - _%rawsetf71805%_) + _%rawsetf71851%_) '())) - (cons 'quote-syntax (cons _%setf71804%_ '()))) + (cons 'quote-syntax (cons _%setf71850%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%g7181071818%_ - (lambda (_%g7181171814%_) + (_%g7185671864%_ + (lambda (_%g7185771860%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7181171814%_))) - (_%g7180972638%_ - (lambda (_%g7181171822%_) - ((lambda (_%L71825%_) - (let* ((_%g7183971847%_ - (lambda (_%g7184071843%_) + _%g7185771860%_))) + (_%g7185572684%_ + (lambda (_%g7185771868%_) + ((lambda (_%L71871%_) + (let* ((_%g7188571893%_ + (lambda (_%g7188671889%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7184071843%_))) - (_%g7183872634%_ - (lambda (_%g7184071851%_) - ((lambda (_%L71854%_) - (let* ((_%g7186771875%_ - (lambda (_%g7186871871%_) + _%g7188671889%_))) + (_%g7188472680%_ + (lambda (_%g7188671897%_) + ((lambda (_%L71900%_) + (let* ((_%g7191371921%_ + (lambda (_%g7191471917%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7186871871%_))) - (_%g7186672120%_ - (lambda (_%g7186871879%_) - ((lambda (_%L71882%_) - (let* ((_%g7189571912%_ + _%g7191471917%_))) + (_%g7191272166%_ + (lambda (_%g7191471925%_) + ((lambda (_%L71928%_) + (let* ((_%g7194171958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7189671908%_) + (lambda (_%g7194271954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7189671908%_))) - (_%g7189471976%_ - (lambda (_%g7189671916%_) - (if (gx#stx-pair/null? _%g7189671916%_) - (let ((_g84221_ + _%g7194271954%_))) + (_%g7194072022%_ + (lambda (_%g7194271962%_) + (if (gx#stx-pair/null? _%g7194271962%_) + (let ((_g84267_ (gx#syntax-split-splice - _%g7189671916%_ + _%g7194271962%_ '0))) (begin - (let ((_g84222_ + (let ((_g84268_ (let () (declare (not safe)) - (if (##values? _g84221_) + (if (##values? _g84267_) (##vector-length - _g84221_) + _g84267_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84222_ 2))) + (##fx= _g84268_ 2))) (error "Context expects 2 values" - _g84222_))) - (let ((_%target7189871919%_ + _g84268_))) + (let ((_%target7194471965%_ (let () (declare (not safe)) - (##vector-ref _g84221_ 0))) - (_%tl7190071922%_ + (##vector-ref _g84267_ 0))) + (_%tl7194671968%_ (let () (declare (not safe)) - (##vector-ref _g84221_ 1)))) - (if (gx#stx-null? _%tl7190071922%_) - (letrec ((_%loop7190171925%_ - (lambda (_%hd7189971929%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defsetf7190571932%_) - (if (gx#stx-pair? _%hd7189971929%_) - (let ((_%e7190271935%_ (gx#syntax-e _%hd7189971929%_))) - (let ((_%lp-hd7190371939%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7190271935%_))) - (_%lp-tl7190471942%_ + (##car _%e7194871981%_))) + (_%lp-tl7195071988%_ (let () (declare (not safe)) - (##cdr _%e7190271935%_)))) - (_%loop7190171925%_ - _%lp-tl7190471942%_ - (cons _%lp-hd7190371939%_ - _%defsetf7190571932%_)))) - (let ((_%defsetf7190671945%_ - (reverse _%defsetf7190571932%_))) - ((lambda (_%L71949%_) + (##cdr _%e7194871981%_)))) + (_%loop7194771971%_ + _%lp-tl7195071988%_ + (cons _%lp-hd7194971985%_ + _%defsetf7195171978%_)))) + (let ((_%defsetf7195271991%_ + (reverse _%defsetf7195171978%_))) + ((lambda (_%L71995%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L71285%_ - (cons _%L71854%_ - (cons _%L71882%_ - (foldr (lambda (_%g7196771970%_ + (cons _%L71331%_ + (cons _%L71900%_ + (cons _%L71928%_ + (foldr (lambda (_%g7201372016%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7196871973%_) - (cons _%g7196771970%_ _%g7196871973%_)) + _%g7201472019%_) + (cons _%g7201372016%_ _%g7201472019%_)) '() - _%L71949%_)))))) + _%L71995%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defsetf7190671945%_)))))) + _%defsetf7195271991%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7190171925%_ - _%target7189871919%_ + (_%loop7194771971%_ + _%target7194471965%_ '())) - (_%g7189571912%_ - _%g7189671916%_))))) - (_%g7189571912%_ _%g7189671916%_))))) - (_%g7189471976%_ - (let ((__tmp84223 - (map (lambda (_%slot71980%_ - _%setf71982%_ - _%rawsetf71983%_) - (let ((_%contract7198471986%_ + (_%g7194171958%_ + _%g7194271962%_))))) + (_%g7194171958%_ _%g7194271962%_))))) + (_%g7194072022%_ + (let ((__tmp84269 + (map (lambda (_%slot72026%_ + _%setf72028%_ + _%rawsetf72029%_) + (let ((_%contract7203072032%_ (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%slot71980%_)))) - (if _%contract7198471986%_ - (let* ((_%contract71990%_ - _%contract7198471986%_) - (_%g7199372016%_ - (lambda (_%g7199472012%_) + _%slot-contract-table69671%_ + (gx#stx-e _%slot72026%_)))) + (if _%contract7203072032%_ + (let* ((_%contract72036%_ + _%contract7203072032%_) + (_%g7203972062%_ + (lambda (_%g7204072058%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7199472012%_))) - (_%g7199272092%_ - (lambda (_%g7199472020%_) + _%g7204072058%_))) + (_%g7203872138%_ + (lambda (_%g7204072066%_) (if (gx#stx-pair? - _%g7199472020%_) - (let ((_%e7199972023%_ + _%g7204072066%_) + (let ((_%e7204572069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7199472020%_))) - (let ((_%hd7200072027%_ + (gx#syntax-e _%g7204072066%_))) + (let ((_%hd7204672073%_ (let () (declare (not safe)) - (##car _%e7199972023%_))) - (_%tl7200172030%_ + (##car _%e7204572069%_))) + (_%tl7204772076%_ (let () (declare (not safe)) - (##cdr _%e7199972023%_)))) - (if (gx#stx-pair? _%tl7200172030%_) - (let ((_%e7200272033%_ - (gx#syntax-e _%tl7200172030%_))) - (let ((_%hd7200372037%_ + (##cdr _%e7204572069%_)))) + (if (gx#stx-pair? _%tl7204772076%_) + (let ((_%e7204872079%_ + (gx#syntax-e _%tl7204772076%_))) + (let ((_%hd7204972083%_ (let () (declare (not safe)) - (##car _%e7200272033%_))) - (_%tl7200472040%_ + (##car _%e7204872079%_))) + (_%tl7205072086%_ (let () (declare (not safe)) - (##cdr _%e7200272033%_)))) - (if (gx#stx-pair? _%tl7200472040%_) - (let ((_%e7200572043%_ - (gx#syntax-e _%tl7200472040%_))) - (let ((_%hd7200672047%_ + (##cdr _%e7204872079%_)))) + (if (gx#stx-pair? _%tl7205072086%_) + (let ((_%e7205172089%_ + (gx#syntax-e _%tl7205072086%_))) + (let ((_%hd7205272093%_ (let () (declare (not safe)) - (##car _%e7200572043%_))) - (_%tl7200772050%_ + (##car _%e7205172089%_))) + (_%tl7205372096%_ (let () (declare (not safe)) - (##cdr _%e7200572043%_)))) - (if (gx#stx-pair? _%tl7200772050%_) - (let ((_%e7200872053%_ + (##cdr _%e7205172089%_)))) + (if (gx#stx-pair? _%tl7205372096%_) + (let ((_%e7205472099%_ (gx#syntax-e - _%tl7200772050%_))) - (let ((_%hd7200972057%_ + _%tl7205372096%_))) + (let ((_%hd7205572103%_ (let () (declare (not safe)) - (##car _%e7200872053%_))) - (_%tl7201072060%_ + (##car _%e7205472099%_))) + (_%tl7205672106%_ (let () (declare (not safe)) - (##cdr _%e7200872053%_)))) + (##cdr _%e7205472099%_)))) (if (gx#stx-null? - _%tl7201072060%_) - ((lambda (_%L72063%_ - _%L72065%_ - _%L72066%_ - _%L72067%_) - (_%wrap69477%_ + _%tl7205672106%_) + ((lambda (_%L72109%_ + _%L72111%_ + _%L72112%_ + _%L72113%_) + (_%wrap69523%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L72065%_ + (cons (cons _%L72111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '$obj) (cons (gx#datum->syntax '#f ':) - (cons _%L69669%_ '()))) - (cons _%L72067%_ '()))) + (cons _%L69715%_ '()))) + (cons _%L72113%_ '()))) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':void) - (cons (cons _%L72063%_ + (cons (cons _%L72109%_ (cons (gx#datum->syntax '#f '$obj) - (cons _%L72066%_ + (cons _%L72112%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%hd7200972057%_ - _%hd7200672047%_ - _%hd7200372037%_ - _%hd7200072027%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7199372016%_ - _%g7199472020%_)))) - (_%g7199372016%_ - _%g7199472020%_)))) - (_%g7199372016%_ _%g7199472020%_)))) - (_%g7199372016%_ _%g7199472020%_)))) - (_%g7199372016%_ _%g7199472020%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7199272092%_ - (list (cons _%slot71980%_ - _%contract71990%_) - _%slot71980%_ - _%setf71982%_ + _%hd7205572103%_ + _%hd7205272093%_ + _%hd7204972083%_ + _%hd7204672073%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7203972062%_ + _%g7204072066%_)))) + (_%g7203972062%_ + _%g7204072066%_)))) + (_%g7203972062%_ _%g7204072066%_)))) + (_%g7203972062%_ _%g7204072066%_)))) + (_%g7203972062%_ _%g7204072066%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7203872138%_ + (list (cons _%slot72026%_ + _%contract72036%_) + _%slot72026%_ + _%setf72028%_ (gx#stx-identifier - _%rawsetf71983%_ + _%rawsetf72029%_ '"&" - _%rawsetf71983%_)))) + _%rawsetf72029%_)))) '#f))) - (foldr (lambda (_%g7209572098%_ - _%g7209672101%_) - (cons _%g7209572098%_ - _%g7209672101%_)) + (foldr (lambda (_%g7214172144%_ + _%g7214272147%_) + (cons _%g7214172144%_ + _%g7214272147%_)) '() - _%L69858%_) - (foldr (lambda (_%g7210372106%_ - _%g7210472109%_) - (cons _%g7210372106%_ - _%g7210472109%_)) + _%L69904%_) + (foldr (lambda (_%g7214972152%_ + _%g7215072155%_) + (cons _%g7214972152%_ + _%g7215072155%_)) '() - _%L70071%_) - (foldr (lambda (_%g7211172114%_ - _%g7211272117%_) - (cons _%g7211172114%_ - _%g7211272117%_)) + _%L70117%_) + (foldr (lambda (_%g7215772160%_ + _%g7215872163%_) + (cons _%g7215772160%_ + _%g7215872163%_)) '() - _%L70142%_)))) + _%L70188%_)))) (declare (not safe)) - (##filter identity __tmp84223))))) - _%g7186871879%_)))) + (##filter identity __tmp84269))))) + _%g7191471925%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7186672120%_ - (if (or (not (null? _%type-constructor71048%_)) + (_%g7191272166%_ + (if (or (not (null? _%type-constructor71094%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69625%_)) - (zero? (hash-length _%slot-default-table69628%_))) - _%metaclass71152%_) + _%slot-contract-table69671%_)) + (zero? (hash-length _%slot-default-table69674%_))) + _%metaclass71198%_) (cons (gx#datum->syntax '#f 'begin) '()) - (if (and _%struct?69651%_ - (zero? (hash-length _%slot-default-table69628%_))) - (let* ((_%g7213672151%_ - (lambda (_%g7213772147%_) + (if (and _%struct?69697%_ + (zero? (hash-length _%slot-default-table69674%_))) + (let* ((_%g7218272197%_ + (lambda (_%g7218372193%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7213772147%_))) - (_%g7213572205%_ - (lambda (_%g7213772155%_) - (if (gx#stx-pair? _%g7213772155%_) - (let ((_%e7214072158%_ - (gx#syntax-e _%g7213772155%_))) - (let ((_%hd7214172162%_ + _%g7218372193%_))) + (_%g7218172251%_ + (lambda (_%g7218372201%_) + (if (gx#stx-pair? _%g7218372201%_) + (let ((_%e7218672204%_ + (gx#syntax-e _%g7218372201%_))) + (let ((_%hd7218772208%_ (let () (declare (not safe)) - (##car _%e7214072158%_))) - (_%tl7214272165%_ + (##car _%e7218672204%_))) + (_%tl7218872211%_ (let () (declare (not safe)) - (##cdr _%e7214072158%_)))) - (if (gx#stx-pair? _%tl7214272165%_) - (let ((_%e7214372168%_ + (##cdr _%e7218672204%_)))) + (if (gx#stx-pair? _%tl7218872211%_) + (let ((_%e7218972214%_ (gx#syntax-e - _%tl7214272165%_))) - (let ((_%hd7214472172%_ + _%tl7218872211%_))) + (let ((_%hd7219072218%_ (let () (declare (not safe)) - (##car _%e7214372168%_))) - (_%tl7214572175%_ + (##car _%e7218972214%_))) + (_%tl7219172221%_ (let () (declare (not safe)) - (##cdr _%e7214372168%_)))) + (##cdr _%e7218972214%_)))) (if (gx#stx-null? - _%tl7214572175%_) - ((lambda (_%L72178%_ - _%L72180%_) - (_%wrap69477%_ + _%tl7219172221%_) + ((lambda (_%L72224%_ + _%L72226%_) + (_%wrap69523%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69735%_ + (cons (cons _%L69781%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72180%_) + _%L72226%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69669%_ + (cons _%L69715%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11102,198 +11102,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72178%_ '())) + (cons _%L72224%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72178%_ - (foldr (lambda (_%g7219672199%_ - _%g7219772202%_) - (cons _%g7219672199%_ - _%g7219772202%_)) + (cons _%L72224%_ + (foldr (lambda (_%g7224272245%_ + _%g7224372248%_) + (cons _%g7224272245%_ + _%g7224372248%_)) '() - _%L69929%_))) + _%L69975%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7214472172%_ - _%hd7214172162%_) - (_%g7213672151%_ - _%g7213772155%_)))) - (_%g7213672151%_ - _%g7213772155%_)))) - (_%g7213672151%_ _%g7213772155%_))))) - (_%g7213572205%_ - (list (foldr (lambda (_%slot72209%_ _%r72211%_) - (let ((_%$e72213%_ + _%hd7219072218%_ + _%hd7218772208%_) + (_%g7218272197%_ + _%g7218372201%_)))) + (_%g7218272197%_ + _%g7218372201%_)))) + (_%g7218272197%_ _%g7218372201%_))))) + (_%g7218172251%_ + (list (foldr (lambda (_%slot72255%_ _%r72257%_) + (let ((_%$e72259%_ (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%slot72209%_)))) - (if _%$e72213%_ - ((lambda (_%contract72217%_) - (let* ((_%g7222072244%_ - (lambda (_%g7222172240%_) + _%slot-contract-table69671%_ + (gx#stx-e _%slot72255%_)))) + (if _%$e72259%_ + ((lambda (_%contract72263%_) + (let* ((_%g7226672290%_ + (lambda (_%g7226772286%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7222172240%_))) - (_%g7221972334%_ - (lambda (_%g7222172248%_) + _%g7226772286%_))) + (_%g7226572380%_ + (lambda (_%g7226772294%_) (if (gx#stx-pair? - _%g7222172248%_) - (let ((_%e7222472251%_ + _%g7226772294%_) + (let ((_%e7227072297%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7222172248%_))) - (let ((_%hd7222572255%_ + (gx#syntax-e _%g7226772294%_))) + (let ((_%hd7227172301%_ (let () (declare (not safe)) - (##car _%e7222472251%_))) - (_%tl7222672258%_ + (##car _%e7227072297%_))) + (_%tl7227272304%_ (let () (declare (not safe)) - (##cdr _%e7222472251%_)))) - (if (gx#stx-pair? _%tl7222672258%_) - (let ((_%e7222772261%_ - (gx#syntax-e _%tl7222672258%_))) - (let ((_%hd7222872265%_ + (##cdr _%e7227072297%_)))) + (if (gx#stx-pair? _%tl7227272304%_) + (let ((_%e7227372307%_ + (gx#syntax-e _%tl7227272304%_))) + (let ((_%hd7227472311%_ (let () (declare (not safe)) - (##car _%e7222772261%_))) - (_%tl7222972268%_ + (##car _%e7227372307%_))) + (_%tl7227572314%_ (let () (declare (not safe)) - (##cdr _%e7222772261%_)))) - (if (gx#stx-pair/null? _%hd7222872265%_) - (let ((_g84224_ + (##cdr _%e7227372307%_)))) + (if (gx#stx-pair/null? _%hd7227472311%_) + (let ((_g84270_ (gx#syntax-split-splice - _%hd7222872265%_ + _%hd7227472311%_ '0))) (begin - (let ((_g84225_ + (let ((_g84271_ (let () (declare (not safe)) - (if (##values? _g84224_) + (if (##values? _g84270_) (##vector-length - _g84224_) + _g84270_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84225_ 2))) + (##fx= _g84271_ 2))) (error "Context expects 2 values" - _g84225_))) - (let ((_%target7223072271%_ + _g84271_))) + (let ((_%target7227672317%_ (let () (declare (not safe)) - (##vector-ref _g84224_ 0))) - (_%tl7223272274%_ + (##vector-ref _g84270_ 0))) + (_%tl7227872320%_ (let () (declare (not safe)) (##vector-ref - _g84224_ + _g84270_ 1)))) (if (gx#stx-null? - _%tl7223272274%_) - (letrec ((_%loop7223372277%_ - (lambda (_%hd7223172281%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7223772284%_) - (if (gx#stx-pair? _%hd7223172281%_) - (let ((_%e7223472287%_ - (gx#syntax-e _%hd7223172281%_))) - (let ((_%lp-hd7223572291%_ + _%tl7227872320%_) + (letrec ((_%loop7227972323%_ + (lambda (_%hd7227772327%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7228372330%_) + (if (gx#stx-pair? _%hd7227772327%_) + (let ((_%e7228072333%_ + (gx#syntax-e _%hd7227772327%_))) + (let ((_%lp-hd7228172337%_ (let () (declare (not safe)) - (##car _%e7223472287%_))) - (_%lp-tl7223672294%_ + (##car _%e7228072333%_))) + (_%lp-tl7228272340%_ (let () (declare (not safe)) - (##cdr _%e7223472287%_)))) - (_%loop7223372277%_ - _%lp-tl7223672294%_ - (cons _%lp-hd7223572291%_ - _%contract7223772284%_)))) - (let ((_%contract7223872297%_ - (reverse _%contract7223772284%_))) - (if (gx#stx-null? _%tl7222972268%_) - ((lambda (_%L72301%_ _%L72303%_) - (cons (cons _%L72303%_ - (foldr (lambda (_%g7232572328%_ - _%g7232672331%_) - (cons _%g7232572328%_ - _%g7232672331%_)) + (##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%_)) '() - _%L72301%_)) - _%r72211%_)) - _%contract7223872297%_ - _%hd7222572255%_) - (_%g7222072244%_ _%g7222172248%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7223372277%_ - _%target7223072271%_ + _%L72347%_)) + _%r72257%_)) + _%contract7228472343%_ + _%hd7227172301%_) + (_%g7226672290%_ _%g7226772294%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7227972323%_ + _%target7227672317%_ '())) - (_%g7222072244%_ - _%g7222172248%_))))) - (_%g7222072244%_ _%g7222172248%_)))) - (_%g7222072244%_ _%g7222172248%_)))) - (_%g7222072244%_ _%g7222172248%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7221972334%_ - (list _%slot72209%_ - _%contract72217%_)))) - _%$e72213%_) - (cons _%slot72209%_ - _%r72211%_)))) + (_%g7226672290%_ + _%g7226772294%_))))) + (_%g7226672290%_ _%g7226772294%_)))) + (_%g7226672290%_ _%g7226772294%_)))) + (_%g7226672290%_ _%g7226772294%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7226572380%_ + (list _%slot72255%_ + _%contract72263%_)))) + _%$e72259%_) + (cons _%slot72255%_ + _%r72257%_)))) '() - (foldr (lambda (_%g7233972342%_ - _%g7234072345%_) - (cons _%g7233972342%_ - _%g7234072345%_)) + (foldr (lambda (_%g7238572388%_ + _%g7238672391%_) + (cons _%g7238572388%_ + _%g7238672391%_)) '() - _%L69929%_)) - (gx#core-quote-syntax _%L69707%_)))) - (let* ((_%g7235072365%_ - (lambda (_%g7235172361%_) + _%L69975%_)) + (gx#core-quote-syntax _%L69753%_)))) + (let* ((_%g7239672411%_ + (lambda (_%g7239772407%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7235172361%_))) - (_%g7234972418%_ - (lambda (_%g7235172369%_) - (if (gx#stx-pair? _%g7235172369%_) - (let ((_%e7235472372%_ - (gx#syntax-e _%g7235172369%_))) - (let ((_%hd7235572376%_ + _%g7239772407%_))) + (_%g7239572464%_ + (lambda (_%g7239772415%_) + (if (gx#stx-pair? _%g7239772415%_) + (let ((_%e7240072418%_ + (gx#syntax-e _%g7239772415%_))) + (let ((_%hd7240172422%_ (let () (declare (not safe)) - (##car _%e7235472372%_))) - (_%tl7235672379%_ + (##car _%e7240072418%_))) + (_%tl7240272425%_ (let () (declare (not safe)) - (##cdr _%e7235472372%_)))) - (if (gx#stx-pair? _%tl7235672379%_) - (let ((_%e7235772382%_ + (##cdr _%e7240072418%_)))) + (if (gx#stx-pair? _%tl7240272425%_) + (let ((_%e7240372428%_ (gx#syntax-e - _%tl7235672379%_))) - (let ((_%hd7235872386%_ + _%tl7240272425%_))) + (let ((_%hd7240472432%_ (let () (declare (not safe)) - (##car _%e7235772382%_))) - (_%tl7235972389%_ + (##car _%e7240372428%_))) + (_%tl7240572435%_ (let () (declare (not safe)) - (##cdr _%e7235772382%_)))) + (##cdr _%e7240372428%_)))) (if (gx#stx-null? - _%tl7235972389%_) - ((lambda (_%L72392%_ - _%L72394%_) - (_%wrap69477%_ + _%tl7240572435%_) + ((lambda (_%L72438%_ + _%L72440%_) + (_%wrap69523%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69735%_ + (cons (cons _%L69781%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72394%_) + _%L72440%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69669%_ + (cons _%L69715%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11301,301 +11301,301 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72392%_ '())) + (cons _%L72438%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72392%_ - (foldr (lambda (_%g7240972412%_ - _%g7241072415%_) - (cons _%g7240972412%_ - _%g7241072415%_)) + (cons _%L72438%_ + (foldr (lambda (_%g7245572458%_ + _%g7245672461%_) + (cons _%g7245572458%_ + _%g7245672461%_)) '() - _%L69929%_))) + _%L69975%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7235872386%_ - _%hd7235572376%_) - (_%g7235072365%_ - _%g7235172369%_)))) - (_%g7235072365%_ - _%g7235172369%_)))) - (_%g7235072365%_ _%g7235172369%_))))) - (_%g7234972418%_ - (list (foldr (lambda (_%slot72422%_ _%r72424%_) - (let* ((_%default72426%_ + _%hd7240472432%_ + _%hd7240172422%_) + (_%g7239672411%_ + _%g7239772415%_)))) + (_%g7239672411%_ + _%g7239772415%_)))) + (_%g7239672411%_ _%g7239772415%_))))) + (_%g7239572464%_ + (list (foldr (lambda (_%slot72468%_ _%r72470%_) + (let* ((_%default72472%_ (hash-get - _%slot-default-table69628%_ - (gx#stx-e _%slot72422%_))) - (_%$e72429%_ + _%slot-default-table69674%_ + (gx#stx-e _%slot72468%_))) + (_%$e72475%_ (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%slot72422%_)))) - (if _%$e72429%_ - ((lambda (_%contract72433%_) - (let* ((_%g7243672473%_ - (lambda (_%g7243772469%_) + _%slot-contract-table69671%_ + (gx#stx-e _%slot72468%_)))) + (if _%$e72475%_ + ((lambda (_%contract72479%_) + (let* ((_%g7248272519%_ + (lambda (_%g7248372515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7243772469%_))) - (_%g7243572620%_ - (lambda (_%g7243772477%_) + _%g7248372515%_))) + (_%g7248172666%_ + (lambda (_%g7248372523%_) (if (gx#stx-pair? - _%g7243772477%_) - (let ((_%e7244172480%_ + _%g7248372523%_) + (let ((_%e7248772526%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7243772477%_))) - (let ((_%hd7244272484%_ + (gx#syntax-e _%g7248372523%_))) + (let ((_%hd7248872530%_ (let () (declare (not safe)) - (##car _%e7244172480%_))) - (_%tl7244372487%_ + (##car _%e7248772526%_))) + (_%tl7248972533%_ (let () (declare (not safe)) - (##cdr _%e7244172480%_)))) - (if (gx#stx-pair? _%tl7244372487%_) - (let ((_%e7244472490%_ - (gx#syntax-e _%tl7244372487%_))) - (let ((_%hd7244572494%_ + (##cdr _%e7248772526%_)))) + (if (gx#stx-pair? _%tl7248972533%_) + (let ((_%e7249072536%_ + (gx#syntax-e _%tl7248972533%_))) + (let ((_%hd7249172540%_ (let () (declare (not safe)) - (##car _%e7244472490%_))) - (_%tl7244672497%_ + (##car _%e7249072536%_))) + (_%tl7249272543%_ (let () (declare (not safe)) - (##cdr _%e7244472490%_)))) - (if (gx#stx-pair/null? _%hd7244572494%_) - (let ((_g84226_ + (##cdr _%e7249072536%_)))) + (if (gx#stx-pair/null? _%hd7249172540%_) + (let ((_g84272_ (gx#syntax-split-splice - _%hd7244572494%_ + _%hd7249172540%_ '0))) (begin - (let ((_g84227_ + (let ((_g84273_ (let () (declare (not safe)) - (if (##values? _g84226_) + (if (##values? _g84272_) (##vector-length - _g84226_) + _g84272_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84227_ 2))) + (##fx= _g84273_ 2))) (error "Context expects 2 values" - _g84227_))) - (let ((_%target7244772500%_ + _g84273_))) + (let ((_%target7249372546%_ (let () (declare (not safe)) - (##vector-ref _g84226_ 0))) - (_%tl7244972503%_ + (##vector-ref _g84272_ 0))) + (_%tl7249572549%_ (let () (declare (not safe)) (##vector-ref - _g84226_ + _g84272_ 1)))) (if (gx#stx-null? - _%tl7244972503%_) - (letrec ((_%loop7245072506%_ - (lambda (_%hd7244872510%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7245472513%_) - (if (gx#stx-pair? _%hd7244872510%_) - (let ((_%e7245172516%_ - (gx#syntax-e _%hd7244872510%_))) - (let ((_%lp-hd7245272520%_ + _%tl7249572549%_) + (letrec ((_%loop7249672552%_ + (lambda (_%hd7249472556%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7250072559%_) + (if (gx#stx-pair? _%hd7249472556%_) + (let ((_%e7249772562%_ + (gx#syntax-e _%hd7249472556%_))) + (let ((_%lp-hd7249872566%_ (let () (declare (not safe)) - (##car _%e7245172516%_))) - (_%lp-tl7245372523%_ + (##car _%e7249772562%_))) + (_%lp-tl7249972569%_ (let () (declare (not safe)) - (##cdr _%e7245172516%_)))) - (_%loop7245072506%_ - _%lp-tl7245372523%_ - (cons _%lp-hd7245272520%_ - _%contract7245472513%_)))) - (let ((_%contract7245572526%_ - (reverse _%contract7245472513%_))) - (if (gx#stx-pair? _%tl7244672497%_) - (let ((_%e7245672530%_ - (gx#syntax-e _%tl7244672497%_))) - (let ((_%hd7245772534%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7245672530%_))) - (_%tl7245872537%_ + (##car _%e7250272576%_))) + (_%tl7250472583%_ (let () (declare (not safe)) - (##cdr _%e7245672530%_)))) - (if (gx#stx-pair/null? _%hd7245772534%_) - (let ((_g84228_ + (##cdr _%e7250272576%_)))) + (if (gx#stx-pair/null? _%hd7250372580%_) + (let ((_g84274_ (gx#syntax-split-splice - _%hd7245772534%_ + _%hd7250372580%_ '0))) (begin - (let ((_g84229_ + (let ((_g84275_ (let () (declare (not safe)) - (if (##values? _g84228_) + (if (##values? _g84274_) (##vector-length - _g84228_) + _g84274_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84229_ 2))) + (##fx= _g84275_ 2))) (error "Context expects 2 values" - _g84229_))) - (let ((_%target7245972540%_ + _g84275_))) + (let ((_%target7250572586%_ (let () (declare (not safe)) - (##vector-ref _g84228_ 0))) - (_%tl7246172543%_ + (##vector-ref _g84274_ 0))) + (_%tl7250772589%_ (let () (declare (not safe)) (##vector-ref - _g84228_ + _g84274_ 1)))) (if (gx#stx-null? - _%tl7246172543%_) - (letrec ((_%loop7246272546%_ - (lambda (_%hd7246072550%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%default7246672553%_) - (if (gx#stx-pair? _%hd7246072550%_) - (let ((_%e7246372556%_ - (gx#syntax-e _%hd7246072550%_))) - (let ((_%lp-hd7246472560%_ + _%tl7250772589%_) + (letrec ((_%loop7250872592%_ + (lambda (_%hd7250672596%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%default7251272599%_) + (if (gx#stx-pair? _%hd7250672596%_) + (let ((_%e7250972602%_ + (gx#syntax-e _%hd7250672596%_))) + (let ((_%lp-hd7251072606%_ (let () (declare (not safe)) - (##car _%e7246372556%_))) - (_%lp-tl7246572563%_ + (##car _%e7250972602%_))) + (_%lp-tl7251172609%_ (let () (declare (not safe)) - (##cdr _%e7246372556%_)))) - (_%loop7246272546%_ - _%lp-tl7246572563%_ - (cons _%lp-hd7246472560%_ - _%default7246672553%_)))) - (let ((_%default7246772566%_ - (reverse _%default7246672553%_))) - (if (gx#stx-null? _%tl7245872537%_) - ((lambda (_%L72570%_ _%L72572%_ _%L72573%_) - (cons (symbol->keyword (gx#stx-e _%L72573%_)) - (cons (cons _%L72573%_ - (foldr (lambda (_%g7260372608%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7260472611%_) - (cons _%g7260372608%_ _%g7260472611%_)) - (foldr (lambda (_%g7260572614%_ _%g7260672617%_) - (cons _%g7260572614%_ _%g7260672617%_)) + (##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%_)) '() - _%L72570%_) - _%L72572%_)) + _%L72616%_) + _%L72618%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r72424%_))) - _%default7246772566%_ - _%contract7245572526%_ - _%hd7244272484%_) - (_%g7243672473%_ _%g7243772477%_))))))) + _%r72470%_))) + _%default7251372612%_ + _%contract7250172572%_ + _%hd7248872530%_) + (_%g7248272519%_ _%g7248372523%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7246272546%_ - _%target7245972540%_ + (_%loop7250872592%_ + _%target7250572586%_ '())) - (_%g7243672473%_ - _%g7243772477%_))))) - (_%g7243672473%_ _%g7243772477%_)))) - (_%g7243672473%_ _%g7243772477%_))))))) + (_%g7248272519%_ + _%g7248372523%_))))) + (_%g7248272519%_ _%g7248372523%_)))) + (_%g7248272519%_ _%g7248372523%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7245072506%_ - _%target7244772500%_ + (_%loop7249672552%_ + _%target7249372546%_ '())) - (_%g7243672473%_ - _%g7243772477%_))))) - (_%g7243672473%_ _%g7243772477%_)))) - (_%g7243672473%_ _%g7243772477%_)))) - (_%g7243672473%_ _%g7243772477%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7243572620%_ - (list _%slot72422%_ - _%contract72433%_ - (if _%default72426%_ + (_%g7248272519%_ + _%g7248372523%_))))) + (_%g7248272519%_ _%g7248372523%_)))) + (_%g7248272519%_ _%g7248372523%_)))) + (_%g7248272519%_ _%g7248372523%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7248172666%_ + (list _%slot72468%_ + _%contract72479%_ + (if _%default72472%_ (cons ':= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%default72426%_ '())) + (cons _%default72472%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e72429%_) + _%$e72475%_) (cons (symbol->keyword - (gx#stx-e _%slot72422%_)) - (cons (cons _%slot72422%_ - (cons _%default72426%_ + (gx#stx-e _%slot72468%_)) + (cons (cons _%slot72468%_ + (cons _%default72472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%r72424%_))))) + _%r72470%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - (foldr (lambda (_%g7262572628%_ - _%g7262672631%_) - (cons _%g7262572628%_ - _%g7262672631%_)) + (foldr (lambda (_%g7267172674%_ + _%g7267272677%_) + (cons _%g7267172674%_ + _%g7267272677%_)) '() - _%L69929%_)) - (gx#core-quote-syntax _%L69707%_))))))))) + _%L69975%_)) + (gx#core-quote-syntax _%L69753%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7184071851%_)))) - (_%g7183872634%_ - (_%wrap69477%_ + _%g7188671897%_)))) + (_%g7188472680%_ + (_%wrap69523%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L69669%_ + (cons _%L69715%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-type-info) (cons 'id: - (cons _%L71313%_ + (cons _%L71359%_ (cons 'name: - (cons _%L71341%_ + (cons _%L71387%_ (cons 'slots: - (cons _%L71397%_ + (cons _%L71443%_ (cons 'ordered-slots: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71425%_ + (cons _%L71471%_ (cons 'super: - (cons _%L71369%_ + (cons _%L71415%_ (cons 'struct?: - (cons _%L71537%_ + (cons _%L71583%_ (cons 'final?: - (cons _%L71565%_ + (cons _%L71611%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'metaclass: - (cons _%L71593%_ + (cons _%L71639%_ (cons 'constructor-method: - (cons _%L71621%_ + (cons _%L71667%_ (cons 'type-descriptor: - (cons _%L71649%_ + (cons _%L71695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'constructor: - (cons _%L71677%_ + (cons _%L71723%_ (cons 'predicate: - (cons _%L71705%_ + (cons _%L71751%_ (cons 'accessors: - (cons _%L71733%_ + (cons _%L71779%_ (cons 'mutators: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71789%_ + (cons _%L71835%_ (cons 'unchecked-accessors: - (cons _%L71761%_ + (cons _%L71807%_ (cons 'unchecked-mutators: - (cons _%L71825%_ + (cons _%L71871%_ (cons 'slot-types: - (cons _%L71453%_ + (cons _%L71499%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slot-contracts: - (cons _%L71481%_ + (cons _%L71527%_ (cons 'slot-defaults: - (cons _%L71509%_ + (cons _%L71555%_ '()))))))))))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11604,225 +11604,225 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7181171822%_)))) - (_%g7180972638%_ - (let* ((_%g7264272675%_ - (lambda (_%g7264372671%_) + _%g7185771868%_)))) + (_%g7185572684%_ + (let* ((_%g7268872721%_ + (lambda (_%g7268972717%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7264372671%_))) - (_%g7264172804%_ - (lambda (_%g7264372679%_) - (if (gx#stx-pair? _%g7264372679%_) - (let ((_%e7264672682%_ + _%g7268972717%_))) + (_%g7268772850%_ + (lambda (_%g7268972725%_) + (if (gx#stx-pair? _%g7268972725%_) + (let ((_%e7269272728%_ (gx#syntax-e - _%g7264372679%_))) - (let ((_%hd7264772686%_ + _%g7268972725%_))) + (let ((_%hd7269372732%_ (let () (declare (not safe)) - (##car _%e7264672682%_))) - (_%tl7264872689%_ + (##car _%e7269272728%_))) + (_%tl7269472735%_ (let () (declare (not safe)) - (##cdr _%e7264672682%_)))) + (##cdr _%e7269272728%_)))) (if (gx#stx-pair/null? - _%hd7264772686%_) - (let ((_g84230_ + _%hd7269372732%_) + (let ((_g84276_ (gx#syntax-split-splice - _%hd7264772686%_ + _%hd7269372732%_ '0))) (begin - (let ((_g84231_ + (let ((_g84277_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84230_) - (##vector-length _g84230_) + (if (##values? _g84276_) + (##vector-length _g84276_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84231_ 2))) - (error "Context expects 2 values" _g84231_))) - (let ((_%target7264972692%_ - (let () (declare (not safe)) (##vector-ref _g84230_ 0))) - (_%tl7265172695%_ - (let () (declare (not safe)) (##vector-ref _g84230_ 1)))) - (if (gx#stx-null? _%tl7265172695%_) - (letrec ((_%loop7265272698%_ - (lambda (_%hd7265072702%_ - _%slot-usetf7265672705%_) - (if (gx#stx-pair? _%hd7265072702%_) - (let ((_%e7265372708%_ - (gx#syntax-e _%hd7265072702%_))) - (let ((_%lp-hd7265472712%_ + (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%_ (let () (declare (not safe)) - (##car _%e7265372708%_))) - (_%lp-tl7265572715%_ + (##car _%e7269972754%_))) + (_%lp-tl7270172761%_ (let () (declare (not safe)) - (##cdr _%e7265372708%_)))) - (_%loop7265272698%_ - _%lp-tl7265572715%_ - (cons _%lp-hd7265472712%_ - _%slot-usetf7265672705%_)))) - (let ((_%slot-usetf7265772718%_ - (reverse _%slot-usetf7265672705%_))) - (if (gx#stx-pair? _%tl7264872689%_) - (let ((_%e7265872722%_ + (##cdr _%e7269972754%_)))) + (_%loop7269872744%_ + _%lp-tl7270172761%_ + (cons _%lp-hd7270072758%_ + _%slot-usetf7270272751%_)))) + (let ((_%slot-usetf7270372764%_ + (reverse _%slot-usetf7270272751%_))) + (if (gx#stx-pair? _%tl7269472735%_) + (let ((_%e7270472768%_ (gx#syntax-e - _%tl7264872689%_))) - (let ((_%hd7265972726%_ + _%tl7269472735%_))) + (let ((_%hd7270572772%_ (let () (declare (not safe)) - (##car _%e7265872722%_))) - (_%tl7266072729%_ + (##car _%e7270472768%_))) + (_%tl7270672775%_ (let () (declare (not safe)) - (##cdr _%e7265872722%_)))) + (##cdr _%e7270472768%_)))) (if (gx#stx-pair/null? - _%hd7265972726%_) - (let ((_g84232_ + _%hd7270572772%_) + (let ((_g84278_ (gx#syntax-split-splice - _%hd7265972726%_ + _%hd7270572772%_ '0))) (begin - (let ((_g84233_ + (let ((_g84279_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84232_) - (##vector-length _g84232_) + (if (##values? _g84278_) + (##vector-length _g84278_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84233_ 2))) - (error "Context expects 2 values" _g84233_))) - (let ((_%target7266172732%_ - (let () (declare (not safe)) (##vector-ref _g84232_ 0))) - (_%tl7266372735%_ - (let () (declare (not safe)) (##vector-ref _g84232_ 1)))) - (if (gx#stx-null? _%tl7266372735%_) - (letrec ((_%loop7266472738%_ - (lambda (_%hd7266272742%_ - _%mixin-slot-usetf7266872745%_) - (if (gx#stx-pair? _%hd7266272742%_) - (let ((_%e7266572748%_ - (gx#syntax-e _%hd7266272742%_))) - (let ((_%lp-hd7266672752%_ + (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%_ (let () (declare (not safe)) - (##car _%e7266572748%_))) - (_%lp-tl7266772755%_ + (##car _%e7271172794%_))) + (_%lp-tl7271372801%_ (let () (declare (not safe)) - (##cdr _%e7266572748%_)))) - (_%loop7266472738%_ - _%lp-tl7266772755%_ - (cons _%lp-hd7266672752%_ - _%mixin-slot-usetf7266872745%_)))) - (let ((_%mixin-slot-usetf7266972758%_ - (reverse _%mixin-slot-usetf7266872745%_))) - (if (gx#stx-null? _%tl7266072729%_) - ((lambda (_%L72762%_ _%L72764%_) + (##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%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7278772792%_ + (foldr (lambda (_%g7283372838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7278872795%_) - (cons _%g7278772792%_ _%g7278872795%_)) - (foldr (lambda (_%g7278972798%_ _%g7279072801%_) - (cons _%g7278972798%_ _%g7279072801%_)) + _%g7283472841%_) + (cons _%g7283372838%_ _%g7283472841%_)) + (foldr (lambda (_%g7283572844%_ _%g7283672847%_) + (cons _%g7283572844%_ _%g7283672847%_)) '() - _%L72762%_) - _%L72764%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot-usetf7266972758%_ - _%slot-usetf7265772718%_) - (_%g7264272675%_ - _%g7264372679%_))))))) - (_%loop7266472738%_ _%target7266172732%_ '())) - (_%g7264272675%_ _%g7264372679%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7264272675%_ - _%g7264372679%_)))) - (_%g7264272675%_ - _%g7264372679%_))))))) - (_%loop7265272698%_ _%target7264972692%_ '())) - (_%g7264272675%_ _%g7264372679%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7264272675%_ - _%g7264372679%_)))) - (_%g7264272675%_ _%g7264372679%_))))) - (_%g7264172804%_ - (list (map _%map-slot-usetf71807%_ - (foldr (lambda (_%g7280772810%_ - _%g7280872813%_) - (cons _%g7280772810%_ - _%g7280872813%_)) + _%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%_)) '() - _%L69858%_) - (foldr (lambda (_%g7281572818%_ - _%g7281672821%_) - (cons _%g7281572818%_ - _%g7281672821%_)) + _%L69904%_) + (foldr (lambda (_%g7286172864%_ + _%g7286272867%_) + (cons _%g7286172864%_ + _%g7286272867%_)) '() - _%L70568%_) - (foldr (lambda (_%g7282372826%_ - _%g7282472829%_) - (cons _%g7282372826%_ - _%g7282472829%_)) + _%L70614%_) + (foldr (lambda (_%g7286972872%_ + _%g7287072875%_) + (cons _%g7286972872%_ + _%g7287072875%_)) '() - _%L70142%_)) - (map _%map-slot-usetf71807%_ - (foldr (lambda (_%g7283172834%_ - _%g7283272837%_) - (cons _%g7283172834%_ - _%g7283272837%_)) + _%L70188%_)) + (map _%map-slot-usetf71853%_ + (foldr (lambda (_%g7287772880%_ + _%g7287872883%_) + (cons _%g7287772880%_ + _%g7287872883%_)) '() - _%L70213%_) - (foldr (lambda (_%g7283972842%_ - _%g7284072845%_) - (cons _%g7283972842%_ - _%g7284072845%_)) + _%L70259%_) + (foldr (lambda (_%g7288572888%_ + _%g7288672891%_) + (cons _%g7288572888%_ + _%g7288672891%_)) '() - _%L70710%_) - (foldr (lambda (_%g7284772850%_ - _%g7284872853%_) - (cons _%g7284772850%_ - _%g7284872853%_)) + _%L70756%_) + (foldr (lambda (_%g7289372896%_ + _%g7289472899%_) + (cons _%g7289372896%_ + _%g7289472899%_)) '() - _%L70426%_)))))))) - _%g7177571786%_)))) - (_%g7177372856%_ + _%L70472%_)))))))) + _%g7182171832%_)))) + (_%g7181972902%_ (cons (gx#datum->syntax '#f '@list) (begin - (gx#syntax-check-splice-targets _%L70071%_ _%L69858%_) - (foldr (lambda (_%g7285972866%_ - _%g7286072869%_ - _%g7286172871%_) + (gx#syntax-check-splice-targets _%L70117%_ _%L69904%_) + (foldr (lambda (_%g7290572912%_ + _%g7290672915%_ + _%g7290772917%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7286072869%_ + (cons _%g7290672915%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7285972866%_ '())) + (cons _%g7290572912%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7286172871%_)) + _%g7290772917%_)) (begin (gx#syntax-check-splice-targets - _%L70355%_ - _%L70213%_) - (foldr (lambda (_%g7286272874%_ - _%g7286372877%_ - _%g7286472879%_) + _%L70401%_ + _%L70259%_) + (foldr (lambda (_%g7290872920%_ + _%g7290972923%_ + _%g7291072925%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11830,76 +11830,76 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7286372877%_ '())) + (cons _%g7290972923%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7286272874%_ '())) + (cons _%g7290872920%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7286472879%_)) + _%g7291072925%_)) '() - _%L70355%_ - _%L70213%_)) - _%L70071%_ - _%L69858%_)))))) + _%L70401%_ + _%L70259%_)) + _%L70117%_ + _%L69904%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7174771758%_)))) - (_%g7174572882%_ + _%g7179371804%_)))) + (_%g7179172928%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70497%_ - _%L69858%_) - (foldr (lambda (_%g7288572892%_ + _%L70543%_ + _%L69904%_) + (foldr (lambda (_%g7293172938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7288672895%_ - _%g7288772897%_) + _%g7293272941%_ + _%g7293372943%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7288672895%_ '())) + (cons _%g7293272941%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7288572892%_ + (cons _%g7293172938%_ '())) '())))) - _%g7288772897%_)) + _%g7293372943%_)) (begin - (gx#syntax-check-splice-targets _%L70639%_ _%L70213%_) - (foldr (lambda (_%g7288872900%_ - _%g7288972903%_ - _%g7289072905%_) + (gx#syntax-check-splice-targets _%L70685%_ _%L70259%_) + (foldr (lambda (_%g7293472946%_ + _%g7293572949%_ + _%g7293672951%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7288972903%_ '())) + (cons _%g7293572949%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7288872900%_ '())) + (cons _%g7293472946%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7289072905%_)) + _%g7293672951%_)) '() - _%L70639%_ - _%L70213%_)) - _%L70497%_ - _%L69858%_)))))) + _%L70685%_ + _%L70259%_)) + _%L70543%_ + _%L69904%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7171971730%_)))) - (_%g7171772908%_ + _%g7176571776%_)))) + (_%g7176372954%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70000%_ - _%L69858%_) - (foldr (lambda (_%g7291172918%_ - _%g7291272921%_ - _%g7291372923%_) + _%L70046%_ + _%L69904%_) + (foldr (lambda (_%g7295772964%_ + _%g7295872967%_ + _%g7295972969%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11907,454 +11907,454 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7291272921%_ '())) + (cons _%g7295872967%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7291172918%_ '())) + (cons _%g7295772964%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7291372923%_)) + _%g7295972969%_)) (begin (gx#syntax-check-splice-targets - _%L70284%_ - _%L70213%_) - (foldr (lambda (_%g7291472926%_ - _%g7291572929%_ - _%g7291672931%_) + _%L70330%_ + _%L70259%_) + (foldr (lambda (_%g7296072972%_ + _%g7296172975%_ + _%g7296272977%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7291572929%_ '())) + (cons _%g7296172975%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7291472926%_ '())) + (cons _%g7296072972%_ '())) '())))) - _%g7291672931%_)) + _%g7296272977%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L70284%_ - _%L70213%_)) - _%L70000%_ - _%L69858%_)))))) - _%g7169171702%_)))) - (_%g7168972934%_ + _%L70330%_ + _%L70259%_)) + _%L70046%_ + _%L69904%_)))))) + _%g7173771748%_)))) + (_%g7173572980%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69763%_ '()))))) + (cons _%L69809%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7166371674%_)))) - (_%g7166172938%_ + _%g7170971720%_)))) + (_%g7170772984%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69735%_ '()))))) - _%g7163571646%_)))) - (_%g7163372942%_ + (cons _%L69781%_ '()))))) + _%g7168171692%_)))) + (_%g7167972988%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69707%_ '()))))) - _%g7160771618%_)))) - (_%g7160572946%_ - (if (null? _%type-constructor71048%_) + (cons _%L69753%_ '()))))) + _%g7165371664%_)))) + (_%g7165172992%_ + (if (null? _%type-constructor71094%_) '#f - (let* ((_%g7295072965%_ - (lambda (_%g7295172961%_) + (let* ((_%g7299673011%_ + (lambda (_%g7299773007%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7295172961%_))) - (_%g7294973013%_ - (lambda (_%g7295172969%_) - (if (gx#stx-pair? _%g7295172969%_) - (let ((_%e7295372972%_ - (gx#syntax-e _%g7295172969%_))) - (let ((_%hd7295472976%_ + _%g7299773007%_))) + (_%g7299573059%_ + (lambda (_%g7299773015%_) + (if (gx#stx-pair? _%g7299773015%_) + (let ((_%e7299973018%_ + (gx#syntax-e _%g7299773015%_))) + (let ((_%hd7300073022%_ (let () (declare (not safe)) - (##car _%e7295372972%_))) - (_%tl7295572979%_ + (##car _%e7299973018%_))) + (_%tl7300173025%_ (let () (declare (not safe)) - (##cdr _%e7295372972%_)))) - (if (gx#stx-datum? _%hd7295472976%_) - (let ((_%e7295672982%_ - (gx#stx-e _%hd7295472976%_))) - (if (equal? _%e7295672982%_ + (##cdr _%e7299973018%_)))) + (if (gx#stx-datum? _%hd7300073022%_) + (let ((_%e7300273028%_ + (gx#stx-e _%hd7300073022%_))) + (if (equal? _%e7300273028%_ 'constructor:) (if (gx#stx-pair? - _%tl7295572979%_) - (let ((_%e7295772986%_ + _%tl7300173025%_) + (let ((_%e7300373032%_ (gx#syntax-e - _%tl7295572979%_))) - (let ((_%hd7295872990%_ + _%tl7300173025%_))) + (let ((_%hd7300473036%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7295772986%_))) - (_%tl7295972993%_ - (let () (declare (not safe)) (##cdr _%e7295772986%_)))) - (if (gx#stx-null? _%tl7295972993%_) - ((lambda (_%L72996%_) + (##car _%e7300373032%_))) + (_%tl7300573039%_ + (let () (declare (not safe)) (##cdr _%e7300373032%_)))) + (if (gx#stx-null? _%tl7300573039%_) + ((lambda (_%L73042%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L72996%_ '()))) - _%hd7295872990%_) - (_%g7295072965%_ _%g7295172969%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7295072965%_ - _%g7295172969%_)) - (_%g7295072965%_ - _%g7295172969%_))) - (_%g7295072965%_ _%g7295172969%_)))) - (_%g7295072965%_ _%g7295172969%_))))) - (_%g7294973013%_ _%type-constructor71048%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7157971590%_)))) - (_%g7157773017%_ - (if _%metaclass71152%_ - (let* ((_%g7302173029%_ - (lambda (_%g7302273025%_) + (cons _%L73042%_ '()))) + _%hd7300473036%_) + (_%g7299673011%_ _%g7299773015%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7299673011%_ + _%g7299773015%_)) + (_%g7299673011%_ + _%g7299773015%_))) + (_%g7299673011%_ _%g7299773015%_)))) + (_%g7299673011%_ _%g7299773015%_))))) + (_%g7299573059%_ _%type-constructor71094%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7162571636%_)))) + (_%g7162373063%_ + (if _%metaclass71198%_ + (let* ((_%g7306773075%_ + (lambda (_%g7306873071%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7302273025%_))) - (_%g7302073048%_ - (lambda (_%g7302273033%_) - ((lambda (_%L73036%_) + _%g7306873071%_))) + (_%g7306673094%_ + (lambda (_%g7306873079%_) + ((lambda (_%L73082%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L73036%_ '()))) - _%g7302273033%_)))) + (cons _%L73082%_ '()))) + _%g7306873079%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7302073048%_ - _%metaclass71152%_)) + (_%g7306673094%_ + _%metaclass71198%_)) '#f)))) - _%g7155171562%_)))) - (_%g7154973052%_ _%final?71155%_))) - _%g7152371534%_)))) - (_%g7152173056%_ _%struct?69651%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7149571506%_)))) - (_%g7149373060%_ - (let* ((_%g7306473087%_ - (lambda (_%g7306573083%_) + _%g7159771608%_)))) + (_%g7159573098%_ _%final?71201%_))) + _%g7156971580%_)))) + (_%g7156773102%_ _%struct?69697%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7154171552%_)))) + (_%g7153973106%_ + (let* ((_%g7311073133%_ + (lambda (_%g7311173129%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7306573083%_))) - (_%g7306373167%_ - (lambda (_%g7306573091%_) + _%g7311173129%_))) + (_%g7310973213%_ + (lambda (_%g7311173137%_) (if (gx#stx-pair/null? - _%g7306573091%_) - (let ((_g84234_ + _%g7311173137%_) + (let ((_g84280_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7306573091%_ '0))) + (gx#syntax-split-splice _%g7311173137%_ '0))) (begin - (let ((_g84235_ + (let ((_g84281_ (let () (declare (not safe)) - (if (##values? _g84234_) - (##vector-length _g84234_) + (if (##values? _g84280_) + (##vector-length _g84280_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84235_ 2))) - (error "Context expects 2 values" _g84235_))) - (let ((_%target7306873094%_ + (##fx= _g84281_ 2))) + (error "Context expects 2 values" _g84281_))) + (let ((_%target7311473140%_ (let () (declare (not safe)) - (##vector-ref _g84234_ 0))) - (_%tl7307073097%_ + (##vector-ref _g84280_ 0))) + (_%tl7311673143%_ (let () (declare (not safe)) - (##vector-ref _g84234_ 1)))) - (if (gx#stx-null? _%tl7307073097%_) - (letrec ((_%loop7307173100%_ - (lambda (_%hd7306973104%_ - _%default7307573107%_ - _%slot7307673109%_) - (if (gx#stx-pair? _%hd7306973104%_) - (let ((_%e7307273112%_ + (##vector-ref _g84280_ 1)))) + (if (gx#stx-null? _%tl7311673143%_) + (letrec ((_%loop7311773146%_ + (lambda (_%hd7311573150%_ + _%default7312173153%_ + _%slot7312273155%_) + (if (gx#stx-pair? _%hd7311573150%_) + (let ((_%e7311873158%_ (gx#syntax-e - _%hd7306973104%_))) - (let ((_%lp-hd7307373116%_ + _%hd7311573150%_))) + (let ((_%lp-hd7311973162%_ (let () (declare (not safe)) - (##car _%e7307273112%_))) - (_%lp-tl7307473119%_ + (##car _%e7311873158%_))) + (_%lp-tl7312073165%_ (let () (declare (not safe)) - (##cdr _%e7307273112%_)))) + (##cdr _%e7311873158%_)))) (if (gx#stx-pair? - _%lp-hd7307373116%_) - (let ((_%e7307973122%_ + _%lp-hd7311973162%_) + (let ((_%e7312573168%_ (gx#syntax-e - _%lp-hd7307373116%_))) - (let ((_%hd7308073126%_ + _%lp-hd7311973162%_))) + (let ((_%hd7312673172%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7307973122%_))) - (_%tl7308173129%_ - (let () (declare (not safe)) (##cdr _%e7307973122%_)))) - (_%loop7307173100%_ - _%lp-tl7307473119%_ - (cons _%tl7308173129%_ _%default7307573107%_) - (cons _%hd7308073126%_ _%slot7307673109%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7306473087%_ - _%g7306573091%_)))) - (let ((_%default7307773132%_ - (reverse _%default7307573107%_)) - (_%slot7307873135%_ - (reverse _%slot7307673109%_))) - ((lambda (_%L73138%_ _%L73140%_) + (##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%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73138%_ - _%L73140%_) - (foldr (lambda (_%g7315573159%_ + _%L73184%_ + _%L73186%_) + (foldr (lambda (_%g7320173205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7315673162%_ - _%g7315773164%_) + _%g7320273208%_ + _%g7320373210%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7315673162%_ '())) + (cons _%g7320273208%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7315573159%_ + (cons _%g7320173205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7315773164%_)) + _%g7320373210%_)) '() - _%L73138%_ - _%L73140%_)))) + _%L73184%_ + _%L73186%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default7307773132%_ - _%slot7307873135%_)))))) - (_%loop7307173100%_ - _%target7306873094%_ + _%default7312373178%_ + _%slot7312473181%_)))))) + (_%loop7311773146%_ + _%target7311473140%_ '() '())) - (_%g7306473087%_ _%g7306573091%_))))) - (_%g7306473087%_ _%g7306573091%_))))) + (_%g7311073133%_ _%g7311173137%_))))) + (_%g7311073133%_ _%g7311173137%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7306373167%_ + (_%g7310973213%_ (hash->list - _%slot-default-table69628%_)))))) - _%g7146771478%_)))) - (_%g7146573171%_ - (let* ((_%g7317573198%_ - (lambda (_%g7317673194%_) + _%slot-default-table69674%_)))))) + _%g7151371524%_)))) + (_%g7151173217%_ + (let* ((_%g7322173244%_ + (lambda (_%g7322273240%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7317673194%_))) - (_%g7317473278%_ - (lambda (_%g7317673202%_) + _%g7322273240%_))) + (_%g7322073324%_ + (lambda (_%g7322273248%_) (if (gx#stx-pair/null? - _%g7317673202%_) - (let ((_g84236_ + _%g7322273248%_) + (let ((_g84282_ (gx#syntax-split-splice - _%g7317673202%_ + _%g7322273248%_ '0))) (begin - (let ((_g84237_ + (let ((_g84283_ (let () (declare (not safe)) (if (##values? - _g84236_) + _g84282_) (##vector-length - _g84236_) + _g84282_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84237_ 2))) - (error "Context expects 2 values" _g84237_))) + (##fx= _g84283_ 2))) + (error "Context expects 2 values" _g84283_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7317973205%_ + (let ((_%target7322573251%_ (let () (declare (not safe)) (##vector-ref - _g84236_ + _g84282_ 0))) - (_%tl7318173208%_ + (_%tl7322773254%_ (let () (declare (not safe)) (##vector-ref - _g84236_ + _g84282_ 1)))) (if (gx#stx-null? - _%tl7318173208%_) - (letrec ((_%loop7318273211%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7318073215%_ - _%contract7318673218%_ - _%slot7318773220%_) - (if (gx#stx-pair? _%hd7318073215%_) - (let ((_%e7318373223%_ - (gx#syntax-e _%hd7318073215%_))) - (let ((_%lp-hd7318473227%_ + _%tl7322773254%_) + (letrec ((_%loop7322873257%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7322673261%_ + _%contract7323273264%_ + _%slot7323373266%_) + (if (gx#stx-pair? _%hd7322673261%_) + (let ((_%e7322973269%_ + (gx#syntax-e _%hd7322673261%_))) + (let ((_%lp-hd7323073273%_ (let () (declare (not safe)) - (##car _%e7318373223%_))) - (_%lp-tl7318573230%_ + (##car _%e7322973269%_))) + (_%lp-tl7323173276%_ (let () (declare (not safe)) - (##cdr _%e7318373223%_)))) - (if (gx#stx-pair? _%lp-hd7318473227%_) - (let ((_%e7319073233%_ + (##cdr _%e7322973269%_)))) + (if (gx#stx-pair? _%lp-hd7323073273%_) + (let ((_%e7323673279%_ (gx#syntax-e - _%lp-hd7318473227%_))) - (let ((_%hd7319173237%_ + _%lp-hd7323073273%_))) + (let ((_%hd7323773283%_ (let () (declare (not safe)) - (##car _%e7319073233%_))) - (_%tl7319273240%_ + (##car _%e7323673279%_))) + (_%tl7323873286%_ (let () (declare (not safe)) - (##cdr _%e7319073233%_)))) - (_%loop7318273211%_ - _%lp-tl7318573230%_ - (cons _%tl7319273240%_ - _%contract7318673218%_) - (cons _%hd7319173237%_ - _%slot7318773220%_)))) - (_%g7317573198%_ _%g7317673202%_)))) - (let ((_%contract7318873243%_ - (reverse _%contract7318673218%_)) - (_%slot7318973246%_ - (reverse _%slot7318773220%_))) - ((lambda (_%L73249%_ _%L73251%_) + (##cdr _%e7323673279%_)))) + (_%loop7322873257%_ + _%lp-tl7323173276%_ + (cons _%tl7323873286%_ + _%contract7323273264%_) + (cons _%hd7323773283%_ + _%slot7323373266%_)))) + (_%g7322173244%_ _%g7322273248%_)))) + (let ((_%contract7323473289%_ + (reverse _%contract7323273264%_)) + (_%slot7323573292%_ + (reverse _%slot7323373266%_))) + ((lambda (_%L73295%_ _%L73297%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73249%_ - _%L73251%_) - (foldr (lambda (_%g7326673270%_ - _%g7326773273%_ - _%g7326873275%_) + _%L73295%_ + _%L73297%_) + (foldr (lambda (_%g7331273316%_ + _%g7331373319%_ + _%g7331473321%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7326773273%_ '())) + (cons _%g7331373319%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7326673270%_ '())) + (cons _%g7331273316%_ '())) '())))) - _%g7326873275%_)) + _%g7331473321%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L73249%_ - _%L73251%_)))) - _%contract7318873243%_ - _%slot7318973246%_)))))) - (_%loop7318273211%_ _%target7317973205%_ '() '())) - (_%g7317573198%_ _%g7317673202%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7317573198%_ - _%g7317673202%_))))) - (_%g7317473278%_ + _%L73295%_ + _%L73297%_)))) + _%contract7323473289%_ + _%slot7323573292%_)))))) + (_%loop7322873257%_ _%target7322573251%_ '() '())) + (_%g7322173244%_ _%g7322273248%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7322173244%_ + _%g7322273248%_))))) + (_%g7322073324%_ (hash->list - _%slot-contract-table69625%_)))))) - _%g7143971450%_)))) - (_%g7143773282%_ - (let* ((_%g7328673309%_ - (lambda (_%g7328773305%_) + _%slot-contract-table69671%_)))))) + _%g7148571496%_)))) + (_%g7148373328%_ + (let* ((_%g7333273355%_ + (lambda (_%g7333373351%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7328773305%_))) - (_%g7328573389%_ - (lambda (_%g7328773313%_) - (if (gx#stx-pair/null? _%g7328773313%_) - (let ((_g84238_ + _%g7333373351%_))) + (_%g7333173435%_ + (lambda (_%g7333373359%_) + (if (gx#stx-pair/null? _%g7333373359%_) + (let ((_g84284_ (gx#syntax-split-splice - _%g7328773313%_ + _%g7333373359%_ '0))) (begin - (let ((_g84239_ + (let ((_g84285_ (let () (declare (not safe)) - (if (##values? _g84238_) - (##vector-length _g84238_) + (if (##values? _g84284_) + (##vector-length _g84284_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84239_ 2))) + (##fx= _g84285_ 2))) (error "Context expects 2 values" - _g84239_))) - (let ((_%target7329073316%_ + _g84285_))) + (let ((_%target7333673362%_ (let () (declare (not safe)) - (##vector-ref _g84238_ 0))) - (_%tl7329273319%_ + (##vector-ref _g84284_ 0))) + (_%tl7333873365%_ (let () (declare (not safe)) - (##vector-ref _g84238_ 1)))) - (if (gx#stx-null? _%tl7329273319%_) - (letrec ((_%loop7329373322%_ - (lambda (_%hd7329173326%_ - _%type7329773329%_ - _%slot7329873331%_) + (##vector-ref _g84284_ 1)))) + (if (gx#stx-null? _%tl7333873365%_) + (letrec ((_%loop7333973368%_ + (lambda (_%hd7333773372%_ + _%type7334373375%_ + _%slot7334473377%_) (if (gx#stx-pair? - _%hd7329173326%_) - (let ((_%e7329473334%_ + _%hd7333773372%_) + (let ((_%e7334073380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7329173326%_))) - (let ((_%lp-hd7329573338%_ + (gx#syntax-e _%hd7333773372%_))) + (let ((_%lp-hd7334173384%_ (let () (declare (not safe)) - (##car _%e7329473334%_))) - (_%lp-tl7329673341%_ + (##car _%e7334073380%_))) + (_%lp-tl7334273387%_ (let () (declare (not safe)) - (##cdr _%e7329473334%_)))) - (if (gx#stx-pair? _%lp-hd7329573338%_) - (let ((_%e7330173344%_ - (gx#syntax-e _%lp-hd7329573338%_))) - (let ((_%hd7330273348%_ + (##cdr _%e7334073380%_)))) + (if (gx#stx-pair? _%lp-hd7334173384%_) + (let ((_%e7334773390%_ + (gx#syntax-e _%lp-hd7334173384%_))) + (let ((_%hd7334873394%_ (let () (declare (not safe)) - (##car _%e7330173344%_))) - (_%tl7330373351%_ + (##car _%e7334773390%_))) + (_%tl7334973397%_ (let () (declare (not safe)) - (##cdr _%e7330173344%_)))) - (_%loop7329373322%_ - _%lp-tl7329673341%_ - (cons _%tl7330373351%_ _%type7329773329%_) - (cons _%hd7330273348%_ _%slot7329873331%_)))) - (_%g7328673309%_ _%g7328773313%_)))) - (let ((_%type7329973354%_ (reverse _%type7329773329%_)) - (_%slot7330073357%_ (reverse _%slot7329873331%_))) - ((lambda (_%L73360%_ _%L73362%_) + (##cdr _%e7334773390%_)))) + (_%loop7333973368%_ + _%lp-tl7334273387%_ + (cons _%tl7334973397%_ _%type7334373375%_) + (cons _%hd7334873394%_ _%slot7334473377%_)))) + (_%g7333273355%_ _%g7333373359%_)))) + (let ((_%type7334573400%_ (reverse _%type7334373375%_)) + (_%slot7334673403%_ (reverse _%slot7334473377%_))) + ((lambda (_%L73406%_ _%L73408%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73360%_ - _%L73362%_) - (foldr (lambda (_%g7337773381%_ - _%g7337873384%_ - _%g7337973386%_) + _%L73406%_ + _%L73408%_) + (foldr (lambda (_%g7342373427%_ + _%g7342473430%_ + _%g7342573432%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -12362,239 +12362,239 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7337873384%_ '())) + (cons _%g7342473430%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7337773381%_ '())) + (cons _%g7342373427%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7337973386%_)) + _%g7342573432%_)) '() - _%L73360%_ - _%L73362%_)))) - _%type7329973354%_ - _%slot7330073357%_)))))) + _%L73406%_ + _%L73408%_)))) + _%type7334573400%_ + _%slot7334673403%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7329373322%_ - _%target7329073316%_ + (_%loop7333973368%_ + _%target7333673362%_ '() '())) - (_%g7328673309%_ - _%g7328773313%_))))) - (_%g7328673309%_ _%g7328773313%_))))) - (_%g7328573389%_ - (filter (lambda (_%st73393%_) (cdr _%st73393%_)) - (hash->list _%slot-type-table69623%_))))))) - _%g7141171422%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7140973396%_ + (_%g7333273355%_ + _%g7333373359%_))))) + (_%g7333273355%_ _%g7333373359%_))))) + (_%g7333173435%_ + (filter (lambda (_%st73439%_) (cdr _%st73439%_)) + (hash->list _%slot-type-table69669%_))))))) + _%g7145771468%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7145573442%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7339973402%_ + (cons (foldr (lambda (_%g7344573448%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7340073405%_) - (cons _%g7339973402%_ _%g7340073405%_)) + _%g7344673451%_) + (cons _%g7344573448%_ _%g7344673451%_)) '() - _%L69929%_) + _%L69975%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7138371394%_)))) - (_%g7138173408%_ + _%g7142971440%_)))) + (_%g7142773454%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7341173414%_ - _%g7341273417%_) - (cons _%g7341173414%_ - _%g7341273417%_)) + (cons (foldr (lambda (_%g7345773460%_ + _%g7345873463%_) + (cons _%g7345773460%_ + _%g7345873463%_)) '() - _%L69858%_) + _%L69904%_) '()))))) - _%g7135571366%_)))) - (_%g7135373420%_ - (let* ((_%g7342473441%_ - (lambda (_%g7342573437%_) + _%g7140171412%_)))) + (_%g7139973466%_ + (let* ((_%g7347073487%_ + (lambda (_%g7347173483%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7342573437%_))) - (_%g7342373502%_ - (lambda (_%g7342573445%_) - (if (gx#stx-pair/null? _%g7342573445%_) - (let ((_g84240_ + _%g7347173483%_))) + (_%g7346973548%_ + (lambda (_%g7347173491%_) + (if (gx#stx-pair/null? _%g7347173491%_) + (let ((_g84286_ (gx#syntax-split-splice - _%g7342573445%_ + _%g7347173491%_ '0))) (begin - (let ((_g84241_ + (let ((_g84287_ (let () (declare (not safe)) - (if (##values? _g84240_) - (##vector-length _g84240_) + (if (##values? _g84286_) + (##vector-length _g84286_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84241_ 2))) + (##fx= _g84287_ 2))) (error "Context expects 2 values" - _g84241_))) - (let ((_%target7342773448%_ + _g84287_))) + (let ((_%target7347373494%_ (let () (declare (not safe)) - (##vector-ref _g84240_ 0))) - (_%tl7342973451%_ + (##vector-ref _g84286_ 0))) + (_%tl7347573497%_ (let () (declare (not safe)) - (##vector-ref _g84240_ 1)))) - (if (gx#stx-null? _%tl7342973451%_) - (letrec ((_%loop7343073454%_ - (lambda (_%hd7342873458%_ - _%super-id7343473461%_) + (##vector-ref _g84286_ 1)))) + (if (gx#stx-null? _%tl7347573497%_) + (letrec ((_%loop7347673500%_ + (lambda (_%hd7347473504%_ + _%super-id7348073507%_) (if (gx#stx-pair? - _%hd7342873458%_) - (let ((_%e7343173464%_ + _%hd7347473504%_) + (let ((_%e7347773510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7342873458%_))) - (let ((_%lp-hd7343273468%_ + (gx#syntax-e _%hd7347473504%_))) + (let ((_%lp-hd7347873514%_ (let () (declare (not safe)) - (##car _%e7343173464%_))) - (_%lp-tl7343373471%_ + (##car _%e7347773510%_))) + (_%lp-tl7347973517%_ (let () (declare (not safe)) - (##cdr _%e7343173464%_)))) - (_%loop7343073454%_ - _%lp-tl7343373471%_ - (cons _%lp-hd7343273468%_ _%super-id7343473461%_)))) - (let ((_%super-id7343573474%_ - (reverse _%super-id7343473461%_))) - ((lambda (_%L73478%_) + (##cdr _%e7347773510%_)))) + (_%loop7347673500%_ + _%lp-tl7347973517%_ + (cons _%lp-hd7347873514%_ _%super-id7348073507%_)))) + (let ((_%super-id7348173520%_ + (reverse _%super-id7348073507%_))) + ((lambda (_%L73524%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7349373496%_ _%g7349473499%_) + (foldr (lambda (_%g7353973542%_ _%g7354073545%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7349373496%_ '())) - _%g7349473499%_)) + (cons _%g7353973542%_ '())) + _%g7354073545%_)) '() - _%L73478%_))) - _%super-id7343573474%_)))))) + _%L73524%_))) + _%super-id7348173520%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7343073454%_ - _%target7342773448%_ + (_%loop7347673500%_ + _%target7347373494%_ '())) - (_%g7342473441%_ - _%g7342573445%_))))) - (_%g7342473441%_ _%g7342573445%_))))) - (_%g7342373502%_ _%super-ref69614%_))))) - _%g7132771338%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7132573506%_ - (let* ((_%g7351073518%_ - (lambda (_%g7351173514%_) + (_%g7347073487%_ + _%g7347173491%_))))) + (_%g7347073487%_ _%g7347173491%_))))) + (_%g7346973548%_ _%super-ref69660%_))))) + _%g7137371384%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7137173552%_ + (let* ((_%g7355673564%_ + (lambda (_%g7355773560%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7351173514%_))) - (_%g7350973537%_ - (lambda (_%g7351173522%_) - ((lambda (_%L73525%_) + _%g7355773560%_))) + (_%g7355573583%_ + (lambda (_%g7355773568%_) + ((lambda (_%L73571%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L73525%_ '()))) - _%g7351173522%_)))) + (cons _%L73571%_ '()))) + _%g7355773568%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7350973537%_ + (_%g7355573583%_ (gx#stx-car (gx#stx-cdr - _%type-name71026%_))))))) - _%g7129971310%_)))) - (_%g7129773541%_ - (let* ((_%g7354573560%_ - (lambda (_%g7354673556%_) + _%type-name71072%_))))))) + _%g7134571356%_)))) + (_%g7134373587%_ + (let* ((_%g7359173606%_ + (lambda (_%g7359273602%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7354673556%_))) - (_%g7354473608%_ - (lambda (_%g7354673564%_) - (if (gx#stx-pair? _%g7354673564%_) - (let ((_%e7354873567%_ + _%g7359273602%_))) + (_%g7359073654%_ + (lambda (_%g7359273610%_) + (if (gx#stx-pair? _%g7359273610%_) + (let ((_%e7359473613%_ (gx#syntax-e - _%g7354673564%_))) - (let ((_%hd7354973571%_ + _%g7359273610%_))) + (let ((_%hd7359573617%_ (let () (declare (not safe)) - (##car _%e7354873567%_))) - (_%tl7355073574%_ + (##car _%e7359473613%_))) + (_%tl7359673620%_ (let () (declare (not safe)) - (##cdr _%e7354873567%_)))) + (##cdr _%e7359473613%_)))) (if (gx#stx-datum? - _%hd7354973571%_) - (let ((_%e7355173577%_ + _%hd7359573617%_) + (let ((_%e7359773623%_ (gx#stx-e - _%hd7354973571%_))) - (if (equal? _%e7355173577%_ + _%hd7359573617%_))) + (if (equal? _%e7359773623%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id:) - (if (gx#stx-pair? _%tl7355073574%_) - (let ((_%e7355273581%_ - (gx#syntax-e _%tl7355073574%_))) - (let ((_%hd7355373585%_ + (if (gx#stx-pair? _%tl7359673620%_) + (let ((_%e7359873627%_ + (gx#syntax-e _%tl7359673620%_))) + (let ((_%hd7359973631%_ (let () (declare (not safe)) - (##car _%e7355273581%_))) - (_%tl7355473588%_ + (##car _%e7359873627%_))) + (_%tl7360073634%_ (let () (declare (not safe)) - (##cdr _%e7355273581%_)))) - (if (gx#stx-null? _%tl7355473588%_) - ((lambda (_%L73591%_) + (##cdr _%e7359873627%_)))) + (if (gx#stx-null? _%tl7360073634%_) + ((lambda (_%L73637%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L73591%_ '()))) - _%hd7355373585%_) - (_%g7354573560%_ _%g7354673564%_)))) - (_%g7354573560%_ _%g7354673564%_)) - (_%g7354573560%_ _%g7354673564%_))) - (_%g7354573560%_ _%g7354673564%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7354573560%_ - _%g7354673564%_))))) - (_%g7354473608%_ _%type-id71033%_))))) - _%g7127171282%_)))) - (_%g7126973612%_ - (_%wrap69477%_ + (cons _%L73637%_ '()))) + _%hd7359973631%_) + (_%g7359173606%_ _%g7359273610%_)))) + (_%g7359173606%_ _%g7359273610%_)) + (_%g7359173606%_ _%g7359273610%_))) + (_%g7359173606%_ _%g7359273610%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7359173606%_ + _%g7359273610%_))))) + (_%g7359073654%_ _%type-id71079%_))))) + _%g7131771328%_)))) + (_%g7131573658%_ + (_%wrap69523%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L69707%_ - (cons _%L69791%_ - (cons _%L71257%_ - (cons _%L69763%_ - (foldr (lambda (_%g7361573618%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7361673621%_) - (cons _%g7361573618%_ _%g7361673621%_)) + (cons _%L69753%_ + (cons _%L69837%_ + (cons _%L71303%_ + (cons _%L69809%_ + (foldr (lambda (_%g7366173664%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7366273667%_) + (cons _%g7366173664%_ _%g7366273667%_)) '() - _%L71221%_)))))))))) + _%L71267%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7124371254%_)))) + _%g7128971300%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7124173624%_ - (if (or (not (null? _%type-constructor71048%_)) + (_%g7128773670%_ + (if (or (not (null? _%type-constructor71094%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69625%_)) - (zero? (hash-length _%slot-default-table69628%_))) - _%metaclass71152%_) + _%slot-contract-table69671%_)) + (zero? (hash-length _%slot-default-table69674%_))) + _%metaclass71198%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L69735%_ + _%L69781%_ '#f)))) - _%type-body7117871217%_)))))) - (_%loop7117371197%_ _%target7117071191%_ '())) - (_%g7116771184%_ _%g7116871188%_))))) - (_%g7116771184%_ _%g7116871188%_))))) + _%type-body7122471263%_)))))) + (_%loop7121971243%_ _%target7121671237%_ '())) + (_%g7121371230%_ _%g7121471234%_))))) + (_%g7121371230%_ _%g7121471234%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7116673636%_ + (_%g7121273682%_ (foldr cons (foldr cons (foldr cons @@ -12604,1257 +12604,1257 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots71019%_ - _%type-slots70872%_) - _%type-properties71140%_) - _%type-metaclass71164%_) - _%type-final71161%_) - _%type-struct71158%_) - _%type-constructor71048%_) - _%type-name71026%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-id71033%_)))) - _%mixin-usetf7066770706%_)))))) - (_%loop7066270686%_ _%target7065970680%_ '())) - (_%g7065670673%_ _%g7065770677%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7065670673%_ - _%g7065770677%_))))) - (_%g7065573640%_ + _%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%_ (gx#stx-map - (lambda (_%g7364373645%_) - (_%make-id69618%_ + (lambda (_%g7368973691%_) + (_%make-id69664%_ '"&" - _%g7364373645%_)) - (foldr (lambda (_%g7364873651%_ - _%g7364973654%_) - (cons _%g7364873651%_ - _%g7364973654%_)) + _%g7368973691%_)) + (foldr (lambda (_%g7369473697%_ + _%g7369573700%_) + (cons _%g7369473697%_ + _%g7369573700%_)) '() - _%L70355%_))))) - _%mixin-ugetf7059670635%_)))))) - (_%loop7059170615%_ _%target7058870609%_ '())) - (_%g7058570602%_ _%g7058670606%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7058570602%_ - _%g7058670606%_))))) - (_%g7058473657%_ + _%L70401%_))))) + _%mixin-ugetf7064270681%_)))))) + (_%loop7063770661%_ _%target7063470655%_ '())) + (_%g7063170648%_ _%g7063270652%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7063170648%_ + _%g7063270652%_))))) + (_%g7063073703%_ (gx#stx-map - (lambda (_%g7366073662%_) - (_%make-id69618%_ '"&" _%g7366073662%_)) - (foldr (lambda (_%g7366573668%_ - _%g7366673671%_) - (cons _%g7366573668%_ - _%g7366673671%_)) + (lambda (_%g7370673708%_) + (_%make-id69664%_ '"&" _%g7370673708%_)) + (foldr (lambda (_%g7371173714%_ + _%g7371273717%_) + (cons _%g7371173714%_ + _%g7371273717%_)) '() - _%L70284%_))))) - _%usetf7052570564%_)))))) + _%L70330%_))))) + _%usetf7057170610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7052070544%_ - _%target7051770538%_ + (_%loop7056670590%_ + _%target7056370584%_ '())) - (_%g7051470531%_ - _%g7051570535%_))))) - (_%g7051470531%_ _%g7051570535%_))))) - (_%g7051373674%_ + (_%g7056070577%_ + _%g7056170581%_))))) + (_%g7056070577%_ _%g7056170581%_))))) + (_%g7055973720%_ (gx#stx-map - (lambda (_%g7367773679%_) - (_%make-id69618%_ '"&" _%g7367773679%_)) - (foldr (lambda (_%g7368273685%_ _%g7368373688%_) - (cons _%g7368273685%_ _%g7368373688%_)) + (lambda (_%g7372373725%_) + (_%make-id69664%_ '"&" _%g7372373725%_)) + (foldr (lambda (_%g7372873731%_ _%g7372973734%_) + (cons _%g7372873731%_ _%g7372973734%_)) '() - _%L70071%_))))) - _%ugetf7045470493%_)))))) + _%L70117%_))))) + _%ugetf7050070539%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7044970473%_ - _%target7044670467%_ + (_%loop7049570519%_ + _%target7049270513%_ '())) - (_%g7044370460%_ - _%g7044470464%_))))) - (_%g7044370460%_ _%g7044470464%_))))) - (_%g7044273691%_ + (_%g7048970506%_ + _%g7049070510%_))))) + (_%g7048970506%_ _%g7049070510%_))))) + (_%g7048873737%_ (gx#stx-map - (lambda (_%g7369473696%_) - (_%make-id69618%_ '"&" _%g7369473696%_)) - (foldr (lambda (_%g7369973702%_ _%g7370073705%_) - (cons _%g7369973702%_ _%g7370073705%_)) + (lambda (_%g7374073742%_) + (_%make-id69664%_ '"&" _%g7374073742%_)) + (foldr (lambda (_%g7374573748%_ _%g7374673751%_) + (cons _%g7374573748%_ _%g7374673751%_)) '() - _%L70000%_))))) - _%mixin-rawsetf7038370422%_)))))) + _%L70046%_))))) + _%mixin-rawsetf7042970468%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7037870402%_ - _%target7037570396%_ + (_%loop7042470448%_ + _%target7042170442%_ '())) - (_%g7037270389%_ _%g7037370393%_))))) - (_%g7037270389%_ _%g7037370393%_))))) - (_%g7037173708%_ + (_%g7041870435%_ _%g7041970439%_))))) + (_%g7041870435%_ _%g7041970439%_))))) + (_%g7041773754%_ (gx#stx-map - (lambda (_%g7371173713%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7375773759%_) + (_%make-id69664%_ + _%name69691%_ '"-unchecked-" - _%g7371173713%_ + _%g7375773759%_ '"-set!")) - _%mixin-slots69642%_)))) + _%mixin-slots69688%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-setf7031270351%_)))))) - (_%loop7030770331%_ - _%target7030470325%_ + _%mixin-setf7035870397%_)))))) + (_%loop7035370377%_ + _%target7035070371%_ '())) - (_%g7030170318%_ _%g7030270322%_))))) - (_%g7030170318%_ _%g7030270322%_))))) + (_%g7034770364%_ _%g7034870368%_))))) + (_%g7034770364%_ _%g7034870368%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7030073717%_ + (_%g7034673763%_ (gx#stx-map - (lambda (_%g7372073722%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7376673768%_) + (_%make-id69664%_ + _%name69691%_ '"-" - _%g7372073722%_ + _%g7376673768%_ '"-set!")) - _%mixin-slots69642%_)))) - _%mixin-getf7024170280%_)))))) - (_%loop7023670260%_ _%target7023370254%_ '())) - (_%g7023070247%_ _%g7023170251%_))))) - (_%g7023070247%_ _%g7023170251%_))))) + _%mixin-slots69688%_)))) + _%mixin-getf7028770326%_)))))) + (_%loop7028270306%_ _%target7027970300%_ '())) + (_%g7027670293%_ _%g7027770297%_))))) + (_%g7027670293%_ _%g7027770297%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7022973726%_ + (_%g7027573772%_ (gx#stx-map - (lambda (_%g7372973731%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7377573777%_) + (_%make-id69664%_ + _%name69691%_ '"-" - _%g7372973731%_)) - _%mixin-slots69642%_)))) - _%mixin-slot7017070209%_)))))) - (_%loop7016570189%_ _%target7016270183%_ '())) - (_%g7015970176%_ _%g7016070180%_))))) - (_%g7015970176%_ _%g7016070180%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7015873735%_ - _%mixin-slots69642%_))) - _%rawsetf7009970138%_)))))) - (_%loop7009470118%_ _%target7009170112%_ '())) - (_%g7008870105%_ _%g7008970109%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7008870105%_ - _%g7008970109%_))))) - (_%g7008773739%_ + _%g7377573777%_)) + _%mixin-slots69688%_)))) + _%mixin-slot7021670255%_)))))) + (_%loop7021170235%_ _%target7020870229%_ '())) + (_%g7020570222%_ _%g7020670226%_))))) + (_%g7020570222%_ _%g7020670226%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7020473781%_ + _%mixin-slots69688%_))) + _%rawsetf7014570184%_)))))) + (_%loop7014070164%_ _%target7013770158%_ '())) + (_%g7013470151%_ _%g7013570155%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7013470151%_ + _%g7013570155%_))))) + (_%g7013373785%_ (gx#stx-map - (lambda (_%g7374273744%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7378873790%_) + (_%make-id69664%_ + _%name69691%_ '"-unchecked-" - _%g7374273744%_ + _%g7378873790%_ '"-set!")) - _%slots69636%_)))) - _%setf7002870067%_)))))) - (_%loop7002370047%_ _%target7002070041%_ '())) - (_%g7001770034%_ _%g7001870038%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7001770034%_ - _%g7001870038%_))))) - (_%g7001673748%_ + _%slots69682%_)))) + _%setf7007470113%_)))))) + (_%loop7006970093%_ _%target7006670087%_ '())) + (_%g7006370080%_ _%g7006470084%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7006370080%_ + _%g7006470084%_))))) + (_%g7006273794%_ (gx#stx-map - (lambda (_%g7375173753%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7379773799%_) + (_%make-id69664%_ + _%name69691%_ '"-" - _%g7375173753%_ + _%g7379773799%_ '"-set!")) - _%slots69636%_)))) - _%getf6995769996%_)))))) + _%slots69682%_)))) + _%getf7000370042%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6995269976%_ - _%target6994969970%_ + (_%loop6999870022%_ + _%target6999570016%_ '())) - (_%g6994669963%_ - _%g6994769967%_))))) - (_%g6994669963%_ _%g6994769967%_))))) - (_%g6994573757%_ + (_%g6999270009%_ + _%g6999370013%_))))) + (_%g6999270009%_ _%g6999370013%_))))) + (_%g6999173803%_ (gx#stx-map - (lambda (_%g7376073762%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7380673808%_) + (_%make-id69664%_ + _%name69691%_ '"-" - _%g7376073762%_)) - _%slots69636%_)))) - _%ordered-slot6988669925%_)))))) + _%g7380673808%_)) + _%slots69682%_)))) + _%ordered-slot6993269971%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6988169905%_ - _%target6987869899%_ + (_%loop6992769951%_ + _%target6992469945%_ '())) - (_%g6987569892%_ - _%g6987669896%_))))) - (_%g6987569892%_ _%g6987669896%_))))) - (_%g6987473766%_ _%ordered-slots69631%_))) - _%slot6981569854%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6981069834%_ - _%target6980769828%_ + (_%g6992169938%_ + _%g6992269942%_))))) + (_%g6992169938%_ _%g6992269942%_))))) + (_%g6992073812%_ _%ordered-slots69677%_))) + _%slot6986169900%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6985669880%_ + _%target6985369874%_ '())) - (_%g6980469821%_ _%g6980569825%_))))) - (_%g6980469821%_ _%g6980569825%_))))) - (_%g6980373770%_ _%slots69636%_))) + (_%g6985069867%_ _%g6985169871%_))))) + (_%g6985069867%_ _%g6985169871%_))))) + (_%g6984973816%_ _%slots69682%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6977769788%_)))) - (_%g6977573774%_ + _%g6982369834%_)))) + (_%g6982173820%_ (map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super69648%_)))) - _%g6974969760%_)))) - (_%g6974773778%_ - (_%make-id69618%_ _%name69645%_ '"?")))) - _%g6972169732%_)))) - (_%g6971973782%_ (_%make-id69618%_ '"make-" _%name69645%_)))) - _%g6969369704%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6969173786%_ - (_%make-id69618%_ - _%name69645%_ + _%super69694%_)))) + _%g6979569806%_)))) + (_%g6979373824%_ + (_%make-id69664%_ _%name69691%_ '"?")))) + _%g6976769778%_)))) + (_%g6976573828%_ (_%make-id69664%_ '"make-" _%name69691%_)))) + _%g6973969750%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6973773832%_ + (_%make-id69664%_ + _%name69691%_ '"::t")))) - _%g6965569666%_)))) - (_%g6965373790%_ _%id69612%_)))))))))) - (let* ((_%g6948069508%_ - (lambda (_%g6948169504%_) + _%g6970169712%_)))) + (_%g6969973836%_ _%id69658%_)))))))))) + (let* ((_%g6952669554%_ + (lambda (_%g6952769550%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6948169504%_))) - (_%g6947969608%_ - (lambda (_%g6948169512%_) - (if (gx#stx-pair? _%g6948169512%_) - (let ((_%e6948569515%_ (gx#syntax-e _%g6948169512%_))) - (let ((_%hd6948669519%_ + _%g6952769550%_))) + (_%g6952569654%_ + (lambda (_%g6952769558%_) + (if (gx#stx-pair? _%g6952769558%_) + (let ((_%e6953169561%_ (gx#syntax-e _%g6952769558%_))) + (let ((_%hd6953269565%_ (let () (declare (not safe)) - (##car _%e6948569515%_))) - (_%tl6948769522%_ + (##car _%e6953169561%_))) + (_%tl6953369568%_ (let () (declare (not safe)) - (##cdr _%e6948569515%_)))) - (if (gx#stx-pair? _%tl6948769522%_) - (let ((_%e6948869525%_ - (gx#syntax-e _%tl6948769522%_))) - (let ((_%hd6948969529%_ + (##cdr _%e6953169561%_)))) + (if (gx#stx-pair? _%tl6953369568%_) + (let ((_%e6953469571%_ + (gx#syntax-e _%tl6953369568%_))) + (let ((_%hd6953569575%_ (let () (declare (not safe)) - (##car _%e6948869525%_))) - (_%tl6949069532%_ + (##car _%e6953469571%_))) + (_%tl6953669578%_ (let () (declare (not safe)) - (##cdr _%e6948869525%_)))) - (if (gx#stx-pair? _%tl6949069532%_) - (let ((_%e6949169535%_ - (gx#syntax-e _%tl6949069532%_))) - (let ((_%hd6949269539%_ + (##cdr _%e6953469571%_)))) + (if (gx#stx-pair? _%tl6953669578%_) + (let ((_%e6953769581%_ + (gx#syntax-e _%tl6953669578%_))) + (let ((_%hd6953869585%_ (let () (declare (not safe)) - (##car _%e6949169535%_))) - (_%tl6949369542%_ + (##car _%e6953769581%_))) + (_%tl6953969588%_ (let () (declare (not safe)) - (##cdr _%e6949169535%_)))) + (##cdr _%e6953769581%_)))) (if (gx#stx-pair/null? - _%hd6949269539%_) - (let ((_g84242_ + _%hd6953869585%_) + (let ((_g84288_ (gx#syntax-split-splice - _%hd6949269539%_ + _%hd6953869585%_ '0))) (begin - (let ((_g84243_ + (let ((_g84289_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84242_) - (##vector-length _g84242_) + _g84288_) + (##vector-length _g84288_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84243_ 2))) - (error "Context expects 2 values" _g84243_))) + (if (not (let () (declare (not safe)) (##fx= _g84289_ 2))) + (error "Context expects 2 values" _g84289_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6949469545%_ + (let ((_%target6954069591%_ (let () (declare (not safe)) (##vector-ref - _g84242_ + _g84288_ 0))) - (_%tl6949669548%_ + (_%tl6954269594%_ (let () (declare (not safe)) (##vector-ref - _g84242_ + _g84288_ 1)))) (if (gx#stx-null? - _%tl6949669548%_) - (letrec ((_%loop6949769551%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6949569555%_ _%slot6950169558%_) - (if (gx#stx-pair? _%hd6949569555%_) - (let ((_%e6949869561%_ - (gx#syntax-e _%hd6949569555%_))) - (let ((_%lp-hd6949969565%_ + _%tl6954269594%_) + (letrec ((_%loop6954369597%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6954169601%_ _%slot6954769604%_) + (if (gx#stx-pair? _%hd6954169601%_) + (let ((_%e6954469607%_ + (gx#syntax-e _%hd6954169601%_))) + (let ((_%lp-hd6954569611%_ (let () (declare (not safe)) - (##car _%e6949869561%_))) - (_%lp-tl6950069568%_ + (##car _%e6954469607%_))) + (_%lp-tl6954669614%_ (let () (declare (not safe)) - (##cdr _%e6949869561%_)))) - (_%loop6949769551%_ - _%lp-tl6950069568%_ - (cons _%lp-hd6949969565%_ - _%slot6950169558%_)))) - (let ((_%slot6950269571%_ - (reverse _%slot6950169558%_))) - ((lambda (_%L69575%_ _%L69577%_ _%L69578%_) - (_%generate69457%_ - _%L69578%_ - (foldr (lambda (_%g6959969602%_ - _%g6960069605%_) - (cons _%g6959969602%_ - _%g6960069605%_)) + (##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%_)) '() - _%L69577%_) - _%L69575%_)) - _%tl6949369542%_ - _%slot6950269571%_ - _%hd6948969529%_)))))) - (_%loop6949769551%_ _%target6949469545%_ '())) - (_%g6948069508%_ _%g6948169512%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6948069508%_ - _%g6948169512%_)))) - (_%g6948069508%_ _%g6948169512%_)))) - (_%g6948069508%_ _%g6948169512%_)))) - (_%g6948069508%_ _%g6948169512%_))))) - (_%g6947969608%_ _%stx69454%_))))) + _%L69623%_) + _%L69621%_)) + _%tl6953969588%_ + _%slot6954869617%_ + _%hd6953569575%_)))))) + (_%loop6954369597%_ _%target6954069591%_ '())) + (_%g6952669554%_ _%g6952769558%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6952669554%_ + _%g6952769558%_)))) + (_%g6952669554%_ _%g6952769558%_)))) + (_%g6952669554%_ _%g6952769558%_)))) + (_%g6952669554%_ _%g6952769558%_))))) + (_%g6952569654%_ _%stx69500%_))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c| - (lambda (_%$stx76800%_) - (let* ((_%g7680476823%_ - (lambda (_%g7680576819%_) + (lambda (_%$stx76846%_) + (let* ((_%g7685076869%_ + (lambda (_%g7685176865%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7680576819%_))) - (_%g7680376880%_ - (lambda (_%g7680576827%_) - (if (gx#stx-pair? _%g7680576827%_) - (let ((_%e7680976830%_ (gx#syntax-e _%g7680576827%_))) - (let ((_%hd7681076834%_ + _%g7685176865%_))) + (_%g7684976926%_ + (lambda (_%g7685176873%_) + (if (gx#stx-pair? _%g7685176873%_) + (let ((_%e7685576876%_ (gx#syntax-e _%g7685176873%_))) + (let ((_%hd7685676880%_ (let () (declare (not safe)) - (##car _%e7680976830%_))) - (_%tl7681176837%_ + (##car _%e7685576876%_))) + (_%tl7685776883%_ (let () (declare (not safe)) - (##cdr _%e7680976830%_)))) - (if (gx#stx-pair? _%tl7681176837%_) - (let ((_%e7681276840%_ - (gx#syntax-e _%tl7681176837%_))) - (let ((_%hd7681376844%_ + (##cdr _%e7685576876%_)))) + (if (gx#stx-pair? _%tl7685776883%_) + (let ((_%e7685876886%_ + (gx#syntax-e _%tl7685776883%_))) + (let ((_%hd7685976890%_ (let () (declare (not safe)) - (##car _%e7681276840%_))) - (_%tl7681476847%_ + (##car _%e7685876886%_))) + (_%tl7686076893%_ (let () (declare (not safe)) - (##cdr _%e7681276840%_)))) - (if (gx#stx-pair? _%tl7681476847%_) - (let ((_%e7681576850%_ - (gx#syntax-e _%tl7681476847%_))) - (let ((_%hd7681676854%_ + (##cdr _%e7685876886%_)))) + (if (gx#stx-pair? _%tl7686076893%_) + (let ((_%e7686176896%_ + (gx#syntax-e _%tl7686076893%_))) + (let ((_%hd7686276900%_ (let () (declare (not safe)) - (##car _%e7681576850%_))) - (_%tl7681776857%_ + (##car _%e7686176896%_))) + (_%tl7686376903%_ (let () (declare (not safe)) - (##cdr _%e7681576850%_)))) - ((lambda (_%L76860%_ - _%L76862%_ - _%L76863%_) + (##cdr _%e7686176896%_)))) + ((lambda (_%L76906%_ + _%L76908%_ + _%L76909%_) (cons (gx#datum->syntax '#f 'defclass/c) - (cons _%L76863%_ - (cons _%L76862%_ + (cons _%L76909%_ + (cons _%L76908%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L76860%_)))))) + (cons '#t _%L76906%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7681776857%_ - _%hd7681676854%_ - _%hd7681376844%_))) - (_%g7680476823%_ _%g7680576827%_)))) - (_%g7680476823%_ _%g7680576827%_)))) - (_%g7680476823%_ _%g7680576827%_))))) - (_%g7680376880%_ _%$stx76800%_)))) + _%tl7686376903%_ + _%hd7686276900%_ + _%hd7685976890%_))) + (_%g7685076869%_ _%g7685176873%_)))) + (_%g7685076869%_ _%g7685176873%_)))) + (_%g7685076869%_ _%g7685176873%_))))) + (_%g7684976926%_ _%$stx76846%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do/c| - (lambda (_%stx76884%_) - (let* ((_%g7688776958%_ - (lambda (_%g7688876954%_) + (lambda (_%stx76930%_) + (let* ((_%g7693377004%_ + (lambda (_%g7693477000%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7688876954%_))) - (_%g7688677324%_ - (lambda (_%g7688876962%_) - (if (gx#stx-pair? _%g7688876962%_) - (let ((_%e7689576965%_ (gx#syntax-e _%g7688876962%_))) - (let ((_%hd7689676969%_ + _%g7693477000%_))) + (_%g7693277370%_ + (lambda (_%g7693477008%_) + (if (gx#stx-pair? _%g7693477008%_) + (let ((_%e7694177011%_ (gx#syntax-e _%g7693477008%_))) + (let ((_%hd7694277015%_ (let () (declare (not safe)) - (##car _%e7689576965%_))) - (_%tl7689776972%_ + (##car _%e7694177011%_))) + (_%tl7694377018%_ (let () (declare (not safe)) - (##cdr _%e7689576965%_)))) - (if (gx#stx-pair? _%tl7689776972%_) - (let ((_%e7689876975%_ - (gx#syntax-e _%tl7689776972%_))) - (let ((_%hd7689976979%_ + (##cdr _%e7694177011%_)))) + (if (gx#stx-pair? _%tl7694377018%_) + (let ((_%e7694477021%_ + (gx#syntax-e _%tl7694377018%_))) + (let ((_%hd7694577025%_ (let () (declare (not safe)) - (##car _%e7689876975%_))) - (_%tl7690076982%_ + (##car _%e7694477021%_))) + (_%tl7694677028%_ (let () (declare (not safe)) - (##cdr _%e7689876975%_)))) - (if (gx#stx-pair/null? _%hd7689976979%_) - (let ((_g84244_ + (##cdr _%e7694477021%_)))) + (if (gx#stx-pair/null? _%hd7694577025%_) + (let ((_g84290_ (gx#syntax-split-splice - _%hd7689976979%_ + _%hd7694577025%_ '0))) (begin - (let ((_g84245_ + (let ((_g84291_ (let () (declare (not safe)) - (if (##values? _g84244_) + (if (##values? _g84290_) (##vector-length - _g84244_) + _g84290_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84245_ 2))) + (##fx= _g84291_ 2))) (error "Context expects 2 values" - _g84245_))) - (let ((_%target7690176985%_ + _g84291_))) + (let ((_%target7694777031%_ (let () (declare (not safe)) - (##vector-ref _g84244_ 0))) - (_%tl7690376988%_ + (##vector-ref _g84290_ 0))) + (_%tl7694977034%_ (let () (declare (not safe)) - (##vector-ref _g84244_ 1)))) - (if (gx#stx-null? _%tl7690376988%_) - (letrec ((_%loop7690476991%_ - (lambda (_%hd7690276995%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step7690876998%_ - _%init7690977000%_ - _%var/c7691077002%_) - (if (gx#stx-pair? _%hd7690276995%_) - (let ((_%e7690577005%_ (gx#syntax-e _%hd7690276995%_))) - (let ((_%lp-hd7690677009%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7690577005%_))) - (_%lp-tl7690777012%_ + (##car _%e7695177051%_))) + (_%lp-tl7695377058%_ (let () (declare (not safe)) - (##cdr _%e7690577005%_)))) - (if (gx#stx-pair? _%lp-hd7690677009%_) - (let ((_%e7693877015%_ - (gx#syntax-e _%lp-hd7690677009%_))) - (let ((_%hd7693977019%_ + (##cdr _%e7695177051%_)))) + (if (gx#stx-pair? _%lp-hd7695277055%_) + (let ((_%e7698477061%_ + (gx#syntax-e _%lp-hd7695277055%_))) + (let ((_%hd7698577065%_ (let () (declare (not safe)) - (##car _%e7693877015%_))) - (_%tl7694077022%_ + (##car _%e7698477061%_))) + (_%tl7698677068%_ (let () (declare (not safe)) - (##cdr _%e7693877015%_)))) - (if (gx#stx-pair? _%tl7694077022%_) - (let ((_%e7694177025%_ - (gx#syntax-e _%tl7694077022%_))) - (let ((_%hd7694277029%_ + (##cdr _%e7698477061%_)))) + (if (gx#stx-pair? _%tl7698677068%_) + (let ((_%e7698777071%_ + (gx#syntax-e _%tl7698677068%_))) + (let ((_%hd7698877075%_ (let () (declare (not safe)) - (##car _%e7694177025%_))) - (_%tl7694377032%_ + (##car _%e7698777071%_))) + (_%tl7698977078%_ (let () (declare (not safe)) - (##cdr _%e7694177025%_)))) + (##cdr _%e7698777071%_)))) (if (gx#stx-pair/null? - _%tl7694377032%_) - (let ((_g84246_ + _%tl7698977078%_) + (let ((_g84292_ (gx#syntax-split-splice - _%tl7694377032%_ + _%tl7698977078%_ '0))) (begin - (let ((_g84247_ + (let ((_g84293_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84246_) - (##vector-length _g84246_) + _g84292_) + (##vector-length _g84292_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84247_ 2))) - (error "Context expects 2 values" _g84247_))) + (if (not (let () (declare (not safe)) (##fx= _g84293_ 2))) + (error "Context expects 2 values" _g84293_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7694477035%_ + (let ((_%target7699077081%_ (let () (declare (not safe)) (##vector-ref - _g84246_ + _g84292_ 0))) - (_%tl7694677038%_ + (_%tl7699277084%_ (let () (declare (not safe)) (##vector-ref - _g84246_ + _g84292_ 1)))) (if (gx#stx-null? - _%tl7694677038%_) - (letrec ((_%loop7694777041%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7694577045%_ _%step7695177048%_) - (if (gx#stx-pair? _%hd7694577045%_) - (let ((_%e7694877051%_ - (gx#syntax-e _%hd7694577045%_))) - (let ((_%lp-hd7694977055%_ + _%tl7699277084%_) + (letrec ((_%loop7699377087%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7699177091%_ _%step7699777094%_) + (if (gx#stx-pair? _%hd7699177091%_) + (let ((_%e7699477097%_ + (gx#syntax-e _%hd7699177091%_))) + (let ((_%lp-hd7699577101%_ (let () (declare (not safe)) - (##car _%e7694877051%_))) - (_%lp-tl7695077058%_ + (##car _%e7699477097%_))) + (_%lp-tl7699677104%_ (let () (declare (not safe)) - (##cdr _%e7694877051%_)))) - (_%loop7694777041%_ - _%lp-tl7695077058%_ - (cons _%lp-hd7694977055%_ - _%step7695177048%_)))) - (let ((_%step7695277061%_ - (reverse _%step7695177048%_))) - (_%loop7690476991%_ - _%lp-tl7690777012%_ - (cons _%step7695277061%_ - _%step7690876998%_) - (cons _%hd7694277029%_ _%init7690977000%_) - (cons _%hd7693977019%_ - _%var/c7691077002%_))))))) - (_%loop7694777041%_ _%target7694477035%_ '())) - (_%g7688776958%_ _%g7688876962%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7688776958%_ - _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (let ((_%step7691177065%_ (reverse _%step7690876998%_)) - (_%init7691277068%_ (reverse _%init7690977000%_)) - (_%var/c7691377070%_ - (reverse _%var/c7691077002%_))) - (if (gx#stx-pair? _%tl7690076982%_) - (let ((_%e7691477073%_ - (gx#syntax-e _%tl7690076982%_))) - (let ((_%hd7691577077%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7691477073%_))) - (_%tl7691677080%_ + (##car _%e7696077119%_))) + (_%tl7696277126%_ (let () (declare (not safe)) - (##cdr _%e7691477073%_)))) - (if (gx#stx-pair? _%hd7691577077%_) - (let ((_%e7691777083%_ - (gx#syntax-e _%hd7691577077%_))) - (let ((_%hd7691877087%_ + (##cdr _%e7696077119%_)))) + (if (gx#stx-pair? _%hd7696177123%_) + (let ((_%e7696377129%_ + (gx#syntax-e _%hd7696177123%_))) + (let ((_%hd7696477133%_ (let () (declare (not safe)) - (##car _%e7691777083%_))) - (_%tl7691977090%_ + (##car _%e7696377129%_))) + (_%tl7696577136%_ (let () (declare (not safe)) - (##cdr _%e7691777083%_)))) + (##cdr _%e7696377129%_)))) (if (gx#stx-pair/null? - _%tl7691977090%_) - (let ((_g84248_ + _%tl7696577136%_) + (let ((_g84294_ (gx#syntax-split-splice - _%tl7691977090%_ + _%tl7696577136%_ '0))) (begin - (let ((_g84249_ + (let ((_g84295_ (let () (declare (not safe)) (if (##values? - _g84248_) + _g84294_) (##vector-length - _g84248_) + _g84294_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84249_ 2))) - (error "Context expects 2 values" _g84249_))) + (##fx= _g84295_ 2))) + (error "Context expects 2 values" _g84295_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7692077093%_ + (let ((_%target7696677139%_ (let () (declare (not safe)) (##vector-ref - _g84248_ + _g84294_ 0))) - (_%tl7692277096%_ + (_%tl7696877142%_ (let () (declare (not safe)) (##vector-ref - _g84248_ + _g84294_ 1)))) (if (gx#stx-null? - _%tl7692277096%_) - (letrec ((_%loop7692377099%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7692177103%_ _%fini7692777106%_) - (if (gx#stx-pair? _%hd7692177103%_) - (let ((_%e7692477109%_ - (gx#syntax-e _%hd7692177103%_))) - (let ((_%lp-hd7692577113%_ + _%tl7696877142%_) + (letrec ((_%loop7696977145%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7696777149%_ _%fini7697377152%_) + (if (gx#stx-pair? _%hd7696777149%_) + (let ((_%e7697077155%_ + (gx#syntax-e _%hd7696777149%_))) + (let ((_%lp-hd7697177159%_ (let () (declare (not safe)) - (##car _%e7692477109%_))) - (_%lp-tl7692677116%_ + (##car _%e7697077155%_))) + (_%lp-tl7697277162%_ (let () (declare (not safe)) - (##cdr _%e7692477109%_)))) - (_%loop7692377099%_ - _%lp-tl7692677116%_ - (cons _%lp-hd7692577113%_ - _%fini7692777106%_)))) - (let ((_%fini7692877119%_ - (reverse _%fini7692777106%_))) - (if (gx#stx-pair/null? _%tl7691677080%_) - (let ((_g84250_ + (##cdr _%e7697077155%_)))) + (_%loop7696977145%_ + _%lp-tl7697277162%_ + (cons _%lp-hd7697177159%_ + _%fini7697377152%_)))) + (let ((_%fini7697477165%_ + (reverse _%fini7697377152%_))) + (if (gx#stx-pair/null? _%tl7696277126%_) + (let ((_g84296_ (gx#syntax-split-splice - _%tl7691677080%_ + _%tl7696277126%_ '0))) (begin - (let ((_g84251_ + (let ((_g84297_ (let () (declare (not safe)) - (if (##values? _g84250_) + (if (##values? _g84296_) (##vector-length - _g84250_) + _g84296_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84251_ 2))) + (##fx= _g84297_ 2))) (error "Context expects 2 values" - _g84251_))) - (let ((_%target7692977123%_ + _g84297_))) + (let ((_%target7697577169%_ (let () (declare (not safe)) - (##vector-ref _g84250_ 0))) - (_%tl7693177126%_ + (##vector-ref _g84296_ 0))) + (_%tl7697777172%_ (let () (declare (not safe)) - (##vector-ref _g84250_ 1)))) - (if (gx#stx-null? _%tl7693177126%_) - (letrec ((_%loop7693277129%_ - (lambda (_%hd7693077133%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7693677136%_) - (if (gx#stx-pair? _%hd7693077133%_) - (let ((_%e7693377139%_ (gx#syntax-e _%hd7693077133%_))) - (let ((_%lp-hd7693477143%_ + (##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%_ (let () (declare (not safe)) - (##car _%e7693377139%_))) - (_%lp-tl7693577146%_ + (##car _%e7697977185%_))) + (_%lp-tl7698177192%_ (let () (declare (not safe)) - (##cdr _%e7693377139%_)))) - (_%loop7693277129%_ - _%lp-tl7693577146%_ - (cons _%lp-hd7693477143%_ _%body7693677136%_)))) - (let ((_%body7693777149%_ - (reverse _%body7693677136%_))) - ((lambda (_%L77153%_ - _%L77155%_ - _%L77156%_ - _%L77157%_ - _%L77158%_ - _%L77159%_) - (let* ((_%g7719377210%_ - (lambda (_%g7719477206%_) + (##cdr _%e7697977185%_)))) + (_%loop7697877175%_ + _%lp-tl7698177192%_ + (cons _%lp-hd7698077189%_ _%body7698277182%_)))) + (let ((_%body7698377195%_ + (reverse _%body7698277182%_))) + ((lambda (_%L77199%_ + _%L77201%_ + _%L77202%_ + _%L77203%_ + _%L77204%_ + _%L77205%_) + (let* ((_%g7723977256%_ + (lambda (_%g7724077252%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7719477206%_))) - (_%g7719277309%_ - (lambda (_%g7719477214%_) - (if (gx#stx-pair/null? _%g7719477214%_) - (let ((_g84252_ + _%g7724077252%_))) + (_%g7723877355%_ + (lambda (_%g7724077260%_) + (if (gx#stx-pair/null? _%g7724077260%_) + (let ((_g84298_ (gx#syntax-split-splice - _%g7719477214%_ + _%g7724077260%_ '0))) (begin - (let ((_g84253_ + (let ((_g84299_ (let () (declare (not safe)) (if (##values? - _g84252_) + _g84298_) (##vector-length - _g84252_) + _g84298_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84253_ + (##fx= _g84299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g84253_))) - (let ((_%target7719677217%_ + _g84299_))) + (let ((_%target7724277263%_ (let () (declare (not safe)) (##vector-ref - _g84252_ + _g84298_ 0))) - (_%tl7719877220%_ + (_%tl7724477266%_ (let () (declare (not safe)) (##vector-ref - _g84252_ + _g84298_ 1)))) (if (gx#stx-null? - _%tl7719877220%_) - (letrec ((_%loop7719977223%_ - (lambda (_%hd7719777227%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var7720377230%_) - (if (gx#stx-pair? _%hd7719777227%_) - (let ((_%e7720077233%_ - (gx#syntax-e _%hd7719777227%_))) - (let ((_%lp-hd7720177237%_ + _%tl7724477266%_) + (letrec ((_%loop7724577269%_ + (lambda (_%hd7724377273%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%var7724977276%_) + (if (gx#stx-pair? _%hd7724377273%_) + (let ((_%e7724677279%_ + (gx#syntax-e _%hd7724377273%_))) + (let ((_%lp-hd7724777283%_ (let () (declare (not safe)) - (##car _%e7720077233%_))) - (_%lp-tl7720277240%_ + (##car _%e7724677279%_))) + (_%lp-tl7724877286%_ (let () (declare (not safe)) - (##cdr _%e7720077233%_)))) - (_%loop7719977223%_ - _%lp-tl7720277240%_ - (cons _%lp-hd7720177237%_ - _%var7720377230%_)))) - (let ((_%var7720477243%_ - (reverse _%var7720377230%_))) - ((lambda (_%L77247%_) + (##cdr _%e7724677279%_)))) + (_%loop7724577269%_ + _%lp-tl7724877286%_ + (cons _%lp-hd7724777283%_ + _%var7724977276%_)))) + (let ((_%var7725077289%_ + (reverse _%var7724977276%_))) + ((lambda (_%L77293%_) (cons (gx#datum->syntax '#f 'let/c) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L77158%_ - _%L77159%_) - (foldr (lambda (_%g7727177275%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7727277278%_ - _%g7727377280%_) - (cons (cons _%g7727277278%_ (cons _%g7727177275%_ '())) - _%g7727377280%_)) + _%L77204%_ + _%L77205%_) + (foldr (lambda (_%g7731777321%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7731877324%_ + _%g7731977326%_) + (cons (cons _%g7731877324%_ (cons _%g7731777321%_ '())) + _%g7731977326%_)) '() - _%L77158%_ - _%L77159%_)) + _%L77204%_ + _%L77205%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if) - (cons _%L77156%_ + (cons _%L77202%_ (cons (cons (gx#datum->syntax '#f 'do-loop-result) - (foldr (lambda (_%g7726977283%_ - _%g7727077286%_) - (cons _%g7726977283%_ - _%g7727077286%_)) + (foldr (lambda (_%g7731577329%_ + _%g7731677332%_) + (cons _%g7731577329%_ + _%g7731677332%_)) '() - _%L77155%_)) + _%L77201%_)) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g7726277289%_ + (foldr (lambda (_%g7730877335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7726377292%_) - (cons _%g7726277289%_ _%g7726377292%_)) + _%g7730977338%_) + (cons _%g7730877335%_ _%g7730977338%_)) (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L77157%_ - _%L77247%_) - (foldr (lambda (_%g7726477295%_ - _%g7726577298%_ - _%g7726677300%_) + _%L77203%_ + _%L77293%_) + (foldr (lambda (_%g7731077341%_ + _%g7731177344%_ + _%g7731277346%_) (cons (cons (gx#datum->syntax '#f 'do-loop-step) - (cons _%g7726577298%_ - (foldr (lambda (_%g7726777303%_ + (cons _%g7731177344%_ + (foldr (lambda (_%g7731377349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7726877306%_) - (cons _%g7726777303%_ _%g7726877306%_)) + _%g7731477352%_) + (cons _%g7731377349%_ _%g7731477352%_)) '() - _%g7726477295%_))) + _%g7731077341%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7726677300%_)) + _%g7731277346%_)) '() - _%L77157%_ - _%L77247%_))) + _%L77203%_ + _%L77293%_))) '()) - _%L77153%_))) + _%L77199%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var7720477243%_)))))) - (_%loop7719977223%_ _%target7719677217%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7719377210%_ - _%g7719477214%_))))) - (_%g7719377210%_ - _%g7719477214%_))))) - (_%g7719277309%_ - (map (lambda (_%b77313%_) - (if (gx#identifier? _%b77313%_) - _%b77313%_ - (gx#stx-car _%b77313%_))) - (foldr (lambda (_%g7731577318%_ - _%g7731677321%_) - (cons _%g7731577318%_ - _%g7731677321%_)) + _%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%_)) '() - _%L77159%_))))) - _%body7693777149%_ - _%fini7692877119%_ - _%hd7691877087%_ - _%step7691177065%_ - _%init7691277068%_ - _%var/c7691377070%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7693277129%_ - _%target7692977123%_ + _%L77205%_))))) + _%body7698377195%_ + _%fini7697477165%_ + _%hd7696477133%_ + _%step7695777111%_ + _%init7695877114%_ + _%var/c7695977116%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7697877175%_ + _%target7697577169%_ '())) - (_%g7688776958%_ - _%g7688876962%_))))) - (_%g7688776958%_ _%g7688876962%_))))))) - (_%loop7692377099%_ _%target7692077093%_ '())) - (_%g7688776958%_ _%g7688876962%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7688776958%_ - _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7690476991%_ - _%target7690176985%_ + (_%g7693377004%_ + _%g7693477008%_))))) + (_%g7693377004%_ _%g7693477008%_))))))) + (_%loop7696977145%_ _%target7696677139%_ '())) + (_%g7693377004%_ _%g7693477008%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7693377004%_ + _%g7693477008%_)))) + (_%g7693377004%_ _%g7693477008%_)))) + (_%g7693377004%_ _%g7693477008%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7695077037%_ + _%target7694777031%_ '() '() '())) - (_%g7688776958%_ - _%g7688876962%_))))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_))))) - (_%g7688677324%_ _%stx76884%_)))) + (_%g7693377004%_ + _%g7693477008%_))))) + (_%g7693377004%_ _%g7693477008%_)))) + (_%g7693377004%_ _%g7693477008%_)))) + (_%g7693377004%_ _%g7693477008%_))))) + (_%g7693277370%_ _%stx76930%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result| - (lambda (_%$stx77333%_) - (let* ((_%__stx8360083601%_ _%$stx77333%_) - (_%g7733977373%_ + (lambda (_%$stx77379%_) + (let* ((_%__stx8364683647%_ _%$stx77379%_) + (_%g7738577419%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8360083601%_)))) - (let ((_%__kont8360383604%_ (lambda () '#!void)) - (_%__kont8360583606%_ (lambda (_%L77485%_) _%L77485%_)) - (_%__kont8360783608%_ - (lambda (_%L77430%_ _%L77432%_) + _%__stx8364683647%_)))) + (let ((_%__kont8364983650%_ (lambda () '#!void)) + (_%__kont8365183652%_ (lambda (_%L77531%_) _%L77531%_)) + (_%__kont8365383654%_ + (lambda (_%L77476%_ _%L77478%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77432%_ - (foldr (lambda (_%g7744977452%_ _%g7745077455%_) - (cons _%g7744977452%_ _%g7745077455%_)) + (cons _%L77478%_ + (foldr (lambda (_%g7749577498%_ _%g7749677501%_) + (cons _%g7749577498%_ _%g7749677501%_)) '() - _%L77430%_)))))) - (let ((_%__match8365383654%_ - (lambda (_%e7735377380%_ - _%hd7735477384%_ - _%tl7735577387%_ - _%e7735677390%_ - _%hd7735777394%_ - _%tl7735877397%_ - _%__splice8360983610%_ - _%target7735977400%_ - _%tl7736177403%_) - (letrec ((_%loop7736277406%_ - (lambda (_%hd7736077410%_ _%rest7736677413%_) - (if (gx#stx-pair? _%hd7736077410%_) - (let ((_%e7736377416%_ - (gx#syntax-e _%hd7736077410%_))) - (let ((_%lp-tl7736577423%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e7736377416%_))) - (_%lp-hd7736477420%_ + (##cdr _%e7740977462%_))) + (_%lp-hd7741077466%_ (let () (declare (not safe)) - (##car _%e7736377416%_)))) - (_%loop7736277406%_ - _%lp-tl7736577423%_ - (cons _%lp-hd7736477420%_ - _%rest7736677413%_)))) - (let ((_%rest7736777426%_ - (reverse _%rest7736677413%_))) - (_%__kont8360783608%_ - _%rest7736777426%_ - _%hd7735777394%_)))))) - (_%loop7736277406%_ _%target7735977400%_ '()))))) - (if (gx#stx-pair? _%__stx8360083601%_) - (let ((_%e7734177505%_ (gx#syntax-e _%__stx8360083601%_))) - (let ((_%tl7734377512%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e7734177505%_))) - (_%hd7734277509%_ + (##cdr _%e7738777551%_))) + (_%hd7738877555%_ (let () (declare (not safe)) - (##car _%e7734177505%_)))) - (if (gx#stx-null? _%tl7734377512%_) - (_%__kont8360383604%_) - (if (gx#stx-pair? _%tl7734377512%_) - (let ((_%e7734877475%_ - (gx#syntax-e _%tl7734377512%_))) - (let ((_%tl7735077482%_ + (##car _%e7738777551%_)))) + (if (gx#stx-null? _%tl7738977558%_) + (_%__kont8364983650%_) + (if (gx#stx-pair? _%tl7738977558%_) + (let ((_%e7739477521%_ + (gx#syntax-e _%tl7738977558%_))) + (let ((_%tl7739677528%_ (let () (declare (not safe)) - (##cdr _%e7734877475%_))) - (_%hd7734977479%_ + (##cdr _%e7739477521%_))) + (_%hd7739577525%_ (let () (declare (not safe)) - (##car _%e7734877475%_)))) - (if (gx#stx-null? _%tl7735077482%_) - (_%__kont8360583606%_ _%hd7734977479%_) - (if (gx#stx-pair/null? _%tl7735077482%_) - (let ((_%__splice8360983610%_ + (##car _%e7739477521%_)))) + (if (gx#stx-null? _%tl7739677528%_) + (_%__kont8365183652%_ _%hd7739577525%_) + (if (gx#stx-pair/null? _%tl7739677528%_) + (let ((_%__splice8365583656%_ (gx#syntax-split-splice - _%tl7735077482%_ + _%tl7739677528%_ '0))) - (let ((_%tl7736177403%_ + (let ((_%tl7740777449%_ (let () (declare (not safe)) (##vector-ref - _%__splice8360983610%_ + _%__splice8365583656%_ '1))) - (_%target7735977400%_ + (_%target7740577446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8360983610%_ + _%__splice8365583656%_ '0)))) (if (gx#stx-null? - _%tl7736177403%_) - (_%__match8365383654%_ - _%e7734177505%_ - _%hd7734277509%_ - _%tl7734377512%_ - _%e7734877475%_ - _%hd7734977479%_ - _%tl7735077482%_ - _%__splice8360983610%_ - _%target7735977400%_ - _%tl7736177403%_) + _%tl7740777449%_) + (_%__match8369983700%_ + _%e7738777551%_ + _%hd7738877555%_ + _%tl7738977558%_ + _%e7739477521%_ + _%hd7739577525%_ + _%tl7739677528%_ + _%__splice8365583656%_ + _%target7740577446%_ + _%tl7740777449%_) (let () (declare (not safe)) - (_%g7733977373%_))))) + (_%g7738577419%_))))) (let () (declare (not safe)) - (_%g7733977373%_)))))) + (_%g7738577419%_)))))) (let () (declare (not safe)) - (_%g7733977373%_)))))) - (let () (declare (not safe)) (_%g7733977373%_)))))))) + (_%g7738577419%_)))))) + (let () (declare (not safe)) (_%g7738577419%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step| - (lambda (_%$stx77524%_) - (let* ((_%__stx8365683657%_ _%$stx77524%_) - (_%g7753077576%_ + (lambda (_%$stx77570%_) + (let* ((_%__stx8370283703%_ _%$stx77570%_) + (_%g7757677622%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8365683657%_)))) - (let ((_%__kont8365983660%_ (lambda (_%L77756%_) _%L77756%_)) - (_%__kont8366183662%_ - (lambda (_%L77712%_ _%L77714%_) _%L77712%_)) - (_%__kont8366383664%_ - (lambda (_%L77643%_ _%L77645%_ _%L77646%_) + _%__stx8370283703%_)))) + (let ((_%__kont8370583706%_ (lambda (_%L77802%_) _%L77802%_)) + (_%__kont8370783708%_ + (lambda (_%L77758%_ _%L77760%_) _%L77758%_)) + (_%__kont8370983710%_ + (lambda (_%L77689%_ _%L77691%_ _%L77692%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77645%_ - (foldr (lambda (_%g7766677669%_ _%g7766777672%_) - (cons _%g7766677669%_ _%g7766777672%_)) + (cons _%L77691%_ + (foldr (lambda (_%g7771277715%_ _%g7771377718%_) + (cons _%g7771277715%_ _%g7771377718%_)) '() - _%L77643%_)))))) - (let ((_%__match8372783728%_ - (lambda (_%e7755377583%_ - _%hd7755477587%_ - _%tl7755577590%_ - _%e7755677593%_ - _%hd7755777597%_ - _%tl7755877600%_ - _%e7755977603%_ - _%hd7756077607%_ - _%tl7756177610%_ - _%__splice8366583666%_ - _%target7756277613%_ - _%tl7756477616%_) - (letrec ((_%loop7756577619%_ - (lambda (_%hd7756377623%_ _%rest7756977626%_) - (if (gx#stx-pair? _%hd7756377623%_) - (let ((_%e7756677629%_ - (gx#syntax-e _%hd7756377623%_))) - (let ((_%lp-tl7756877636%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e7756677629%_))) - (_%lp-hd7756777633%_ + (##cdr _%e7761277675%_))) + (_%lp-hd7761377679%_ (let () (declare (not safe)) - (##car _%e7756677629%_)))) - (_%loop7756577619%_ - _%lp-tl7756877636%_ - (cons _%lp-hd7756777633%_ - _%rest7756977626%_)))) - (let ((_%rest7757077639%_ - (reverse _%rest7756977626%_))) - (_%__kont8366383664%_ - _%rest7757077639%_ - _%hd7756077607%_ - _%hd7755777597%_)))))) - (_%loop7756577619%_ _%target7756277613%_ '()))))) - (if (gx#stx-pair? _%__stx8365683657%_) - (let ((_%e7753377736%_ (gx#syntax-e _%__stx8365683657%_))) - (let ((_%tl7753577743%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e7753377736%_))) - (_%hd7753477740%_ + (##cdr _%e7757977782%_))) + (_%hd7758077786%_ (let () (declare (not safe)) - (##car _%e7753377736%_)))) - (if (gx#stx-pair? _%tl7753577743%_) - (let ((_%e7753677746%_ - (gx#syntax-e _%tl7753577743%_))) - (let ((_%tl7753877753%_ + (##car _%e7757977782%_)))) + (if (gx#stx-pair? _%tl7758177789%_) + (let ((_%e7758277792%_ + (gx#syntax-e _%tl7758177789%_))) + (let ((_%tl7758477799%_ (let () (declare (not safe)) - (##cdr _%e7753677746%_))) - (_%hd7753777750%_ + (##cdr _%e7758277792%_))) + (_%hd7758377796%_ (let () (declare (not safe)) - (##car _%e7753677746%_)))) - (if (gx#stx-null? _%tl7753877753%_) - (_%__kont8365983660%_ _%hd7753777750%_) - (if (gx#stx-pair? _%tl7753877753%_) - (let ((_%e7754777702%_ - (gx#syntax-e _%tl7753877753%_))) - (let ((_%tl7754977709%_ + (##car _%e7758277792%_)))) + (if (gx#stx-null? _%tl7758477799%_) + (_%__kont8370583706%_ _%hd7758377796%_) + (if (gx#stx-pair? _%tl7758477799%_) + (let ((_%e7759377748%_ + (gx#syntax-e _%tl7758477799%_))) + (let ((_%tl7759577755%_ (let () (declare (not safe)) - (##cdr _%e7754777702%_))) - (_%hd7754877706%_ + (##cdr _%e7759377748%_))) + (_%hd7759477752%_ (let () (declare (not safe)) - (##car _%e7754777702%_)))) - (if (gx#stx-null? _%tl7754977709%_) - (_%__kont8366183662%_ - _%hd7754877706%_ - _%hd7753777750%_) + (##car _%e7759377748%_)))) + (if (gx#stx-null? _%tl7759577755%_) + (_%__kont8370783708%_ + _%hd7759477752%_ + _%hd7758377796%_) (if (gx#stx-pair/null? - _%tl7754977709%_) - (let ((_%__splice8366583666%_ + _%tl7759577755%_) + (let ((_%__splice8371183712%_ (gx#syntax-split-splice - _%tl7754977709%_ + _%tl7759577755%_ '0))) - (let ((_%tl7756477616%_ + (let ((_%tl7761077662%_ (let () (declare (not safe)) (##vector-ref - _%__splice8366583666%_ + _%__splice8371183712%_ '1))) - (_%target7756277613%_ + (_%target7760877659%_ (let () (declare (not safe)) (##vector-ref - _%__splice8366583666%_ + _%__splice8371183712%_ '0)))) (if (gx#stx-null? - _%tl7756477616%_) - (_%__match8372783728%_ - _%e7753377736%_ - _%hd7753477740%_ - _%tl7753577743%_ - _%e7753677746%_ - _%hd7753777750%_ - _%tl7753877753%_ - _%e7754777702%_ - _%hd7754877706%_ - _%tl7754977709%_ - _%__splice8366583666%_ - _%target7756277613%_ - _%tl7756477616%_) + _%tl7761077662%_) + (_%__match8377383774%_ + _%e7757977782%_ + _%hd7758077786%_ + _%tl7758177789%_ + _%e7758277792%_ + _%hd7758377796%_ + _%tl7758477799%_ + _%e7759377748%_ + _%hd7759477752%_ + _%tl7759577755%_ + _%__splice8371183712%_ + _%target7760877659%_ + _%tl7761077662%_) (let () (declare (not safe)) - (_%g7753077576%_))))) + (_%g7757677622%_))))) (let () (declare (not safe)) - (_%g7753077576%_)))))) + (_%g7757677622%_)))))) (let () (declare (not safe)) - (_%g7753077576%_)))))) - (let () (declare (not safe)) (_%g7753077576%_))))) - (let () (declare (not safe)) (_%g7753077576%_)))))))) + (_%g7757677622%_)))))) + (let () (declare (not safe)) (_%g7757677622%_))))) + (let () (declare (not safe)) (_%g7757677622%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c| - (lambda (_%$stx77774%_) - (let* ((_%g7777877801%_ - (lambda (_%g7777977797%_) + (lambda (_%$stx77820%_) + (let* ((_%g7782477847%_ + (lambda (_%g7782577843%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7777977797%_))) - (_%g7777777872%_ - (lambda (_%g7777977805%_) - (if (gx#stx-pair? _%g7777977805%_) - (let ((_%e7778477808%_ (gx#syntax-e _%g7777977805%_))) - (let ((_%hd7778577812%_ + _%g7782577843%_))) + (_%g7782377918%_ + (lambda (_%g7782577851%_) + (if (gx#stx-pair? _%g7782577851%_) + (let ((_%e7783077854%_ (gx#syntax-e _%g7782577851%_))) + (let ((_%hd7783177858%_ (let () (declare (not safe)) - (##car _%e7778477808%_))) - (_%tl7778677815%_ + (##car _%e7783077854%_))) + (_%tl7783277861%_ (let () (declare (not safe)) - (##cdr _%e7778477808%_)))) - (if (gx#stx-pair? _%tl7778677815%_) - (let ((_%e7778777818%_ - (gx#syntax-e _%tl7778677815%_))) - (let ((_%hd7778877822%_ + (##cdr _%e7783077854%_)))) + (if (gx#stx-pair? _%tl7783277861%_) + (let ((_%e7783377864%_ + (gx#syntax-e _%tl7783277861%_))) + (let ((_%hd7783477868%_ (let () (declare (not safe)) - (##car _%e7778777818%_))) - (_%tl7778977825%_ + (##car _%e7783377864%_))) + (_%tl7783577871%_ (let () (declare (not safe)) - (##cdr _%e7778777818%_)))) - (if (gx#stx-pair? _%tl7778977825%_) - (let ((_%e7779077828%_ - (gx#syntax-e _%tl7778977825%_))) - (let ((_%hd7779177832%_ + (##cdr _%e7783377864%_)))) + (if (gx#stx-pair? _%tl7783577871%_) + (let ((_%e7783677874%_ + (gx#syntax-e _%tl7783577871%_))) + (let ((_%hd7783777878%_ (let () (declare (not safe)) - (##car _%e7779077828%_))) - (_%tl7779277835%_ + (##car _%e7783677874%_))) + (_%tl7783877881%_ (let () (declare (not safe)) - (##cdr _%e7779077828%_)))) - (if (gx#stx-pair? _%hd7779177832%_) - (let ((_%e7779377838%_ + (##cdr _%e7783677874%_)))) + (if (gx#stx-pair? _%hd7783777878%_) + (let ((_%e7783977884%_ (gx#syntax-e - _%hd7779177832%_))) - (let ((_%hd7779477842%_ + _%hd7783777878%_))) + (let ((_%hd7784077888%_ (let () (declare (not safe)) - (##car _%e7779377838%_))) - (_%tl7779577845%_ + (##car _%e7783977884%_))) + (_%tl7784177891%_ (let () (declare (not safe)) - (##cdr _%e7779377838%_)))) - ((lambda (_%L77848%_ - _%L77850%_ - _%L77851%_ - _%L77852%_) + (##cdr _%e7783977884%_)))) + ((lambda (_%L77894%_ + _%L77896%_ + _%L77897%_ + _%L77898%_) (cons (gx#datum->syntax '#f 'do/c) - (cons _%L77852%_ + (cons _%L77898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L77851%_ '())) - _%L77850%_) - _%L77848%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7779277835%_ - _%tl7779577845%_ - _%hd7779477842%_ - _%hd7778877822%_))) - (_%g7777877801%_ - _%g7777977805%_)))) - (_%g7777877801%_ _%g7777977805%_)))) - (_%g7777877801%_ _%g7777977805%_)))) - (_%g7777877801%_ _%g7777977805%_))))) - (_%g7777777872%_ _%$stx77774%_)))) + (cons _%L77897%_ '())) + _%L77896%_) + _%L77894%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl7783877881%_ + _%tl7784177891%_ + _%hd7784077888%_ + _%hd7783477868%_))) + (_%g7782477847%_ + _%g7782577851%_)))) + (_%g7782477847%_ _%g7782577851%_)))) + (_%g7782477847%_ _%g7782577851%_)))) + (_%g7782477847%_ _%g7782577851%_))))) + (_%g7782377918%_ _%$stx77820%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| - (lambda (_%stx77876%_) - (let* ((_%__stx8373083731%_ _%stx77876%_) - (_%g7788077914%_ + (lambda (_%stx77922%_) + (let* ((_%__stx8377683777%_ _%stx77922%_) + (_%g7792677960%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8373083731%_)))) - (let ((_%__kont8373383734%_ - (lambda (_%L78016%_ _%L78018%_ _%L78019%_ _%L78020%_) - (let* ((_%g7804778062%_ - (lambda (_%g7804878058%_) + _%__stx8377683777%_)))) + (let ((_%__kont8377983780%_ + (lambda (_%L78062%_ _%L78064%_ _%L78065%_ _%L78066%_) + (let* ((_%g7809378108%_ + (lambda (_%g7809478104%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7804878058%_))) - (_%g7804678107%_ - (lambda (_%g7804878066%_) - (if (gx#stx-pair? _%g7804878066%_) - (let ((_%e7805178069%_ - (gx#syntax-e _%g7804878066%_))) - (let ((_%hd7805278073%_ + _%g7809478104%_))) + (_%g7809278153%_ + (lambda (_%g7809478112%_) + (if (gx#stx-pair? _%g7809478112%_) + (let ((_%e7809778115%_ + (gx#syntax-e _%g7809478112%_))) + (let ((_%hd7809878119%_ (let () (declare (not safe)) - (##car _%e7805178069%_))) - (_%tl7805378076%_ + (##car _%e7809778115%_))) + (_%tl7809978122%_ (let () (declare (not safe)) - (##cdr _%e7805178069%_)))) - (if (gx#stx-pair? _%tl7805378076%_) - (let ((_%e7805478079%_ + (##cdr _%e7809778115%_)))) + (if (gx#stx-pair? _%tl7809978122%_) + (let ((_%e7810078125%_ (gx#syntax-e - _%tl7805378076%_))) - (let ((_%hd7805578083%_ + _%tl7809978122%_))) + (let ((_%hd7810178129%_ (let () (declare (not safe)) - (##car _%e7805478079%_))) - (_%tl7805678086%_ + (##car _%e7810078125%_))) + (_%tl7810278132%_ (let () (declare (not safe)) - (##cdr _%e7805478079%_)))) + (##cdr _%e7810078125%_)))) (if (gx#stx-null? - _%tl7805678086%_) - ((lambda (_%L78089%_ - _%L78091%_) + _%tl7810278132%_) + ((lambda (_%L78135%_ + _%L78137%_) (cons (gx#datum->syntax '#f 'begin) @@ -13862,198 +13862,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78091%_ (cons _%L78019%_ '()))) + (cons _%L78137%_ (cons _%L78065%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L78020%_ '()) - (cons _%L78091%_ '()))) + (cons (cons _%L78066%_ '()) + (cons _%L78137%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78089%_ + (cons (cons _%L78135%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L78018%_ _%L78016%_)) + (cons _%L78064%_ _%L78062%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78091%_ + (cons _%L78137%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7805578083%_ - _%hd7805278073%_) - (_%g7804778062%_ - _%g7804878066%_)))) - (_%g7804778062%_ _%g7804878066%_)))) - (_%g7804778062%_ _%g7804878066%_))))) - (_%g7804678107%_ - (list (gx#stx-identifier _%L78020%_ '"__" _%L78020%_) + _%hd7810178129%_ + _%hd7809878119%_) + (_%g7809378108%_ + _%g7809478112%_)))) + (_%g7809378108%_ _%g7809478112%_)))) + (_%g7809378108%_ _%g7809478112%_))))) + (_%g7809278153%_ + (list (gx#stx-identifier _%L78066%_ '"__" _%L78066%_) (gx#stx-identifier - _%L78020%_ - _%L78020%_ + _%L78066%_ + _%L78066%_ '"-set!")))))) - (_%__kont8373583736%_ - (lambda (_%L77951%_ _%L77953%_) + (_%__kont8378183782%_ + (lambda (_%L77997%_ _%L77999%_) (cons (gx#datum->syntax '#f 'defmutable*) - (cons _%L77953%_ - (cons _%L77951%_ + (cons _%L77999%_ + (cons _%L77997%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8376183762%_ - (lambda (_%e7788677976%_ - _%hd7788777980%_ - _%tl7788877983%_ - _%e7788977986%_ - _%hd7789077990%_ - _%tl7789177993%_ - _%e7789277996%_ - _%hd7789378000%_ - _%tl7789478003%_ - _%e7789578006%_ - _%hd7789678010%_ - _%tl7789778013%_) - (let ((_%L78016%_ _%tl7789778013%_) - (_%L78018%_ _%hd7789678010%_) - (_%L78019%_ _%hd7789378000%_) - (_%L78020%_ _%hd7789077990%_)) - (if (and (gx#identifier? _%L78020%_) - (gx#identifier? _%L78018%_) + (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%_) (or (gx#free-identifier=? - _%L78018%_ + _%L78064%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78018%_ + _%L78064%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78018%_ + _%L78064%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8373383734%_ - _%L78016%_ - _%L78018%_ - _%L78019%_ - _%L78020%_) - (let () (declare (not safe)) (_%g7788077914%_))))))) - (if (gx#stx-pair? _%__stx8373083731%_) - (let ((_%e7788677976%_ (gx#syntax-e _%__stx8373083731%_))) - (let ((_%tl7788877983%_ + (_%__kont8377983780%_ + _%L78062%_ + _%L78064%_ + _%L78065%_ + _%L78066%_) + (let () (declare (not safe)) (_%g7792677960%_))))))) + (if (gx#stx-pair? _%__stx8377683777%_) + (let ((_%e7793278022%_ (gx#syntax-e _%__stx8377683777%_))) + (let ((_%tl7793478029%_ (let () (declare (not safe)) - (##cdr _%e7788677976%_))) - (_%hd7788777980%_ + (##cdr _%e7793278022%_))) + (_%hd7793378026%_ (let () (declare (not safe)) - (##car _%e7788677976%_)))) - (if (gx#stx-pair? _%tl7788877983%_) - (let ((_%e7788977986%_ - (gx#syntax-e _%tl7788877983%_))) - (let ((_%tl7789177993%_ + (##car _%e7793278022%_)))) + (if (gx#stx-pair? _%tl7793478029%_) + (let ((_%e7793578032%_ + (gx#syntax-e _%tl7793478029%_))) + (let ((_%tl7793778039%_ (let () (declare (not safe)) - (##cdr _%e7788977986%_))) - (_%hd7789077990%_ + (##cdr _%e7793578032%_))) + (_%hd7793678036%_ (let () (declare (not safe)) - (##car _%e7788977986%_)))) - (if (gx#stx-pair? _%tl7789177993%_) - (let ((_%e7789277996%_ - (gx#syntax-e _%tl7789177993%_))) - (let ((_%tl7789478003%_ + (##car _%e7793578032%_)))) + (if (gx#stx-pair? _%tl7793778039%_) + (let ((_%e7793878042%_ + (gx#syntax-e _%tl7793778039%_))) + (let ((_%tl7794078049%_ (let () (declare (not safe)) - (##cdr _%e7789277996%_))) - (_%hd7789378000%_ + (##cdr _%e7793878042%_))) + (_%hd7793978046%_ (let () (declare (not safe)) - (##car _%e7789277996%_)))) - (if (gx#stx-pair? _%tl7789478003%_) - (let ((_%e7789578006%_ + (##car _%e7793878042%_)))) + (if (gx#stx-pair? _%tl7794078049%_) + (let ((_%e7794178052%_ (gx#syntax-e - _%tl7789478003%_))) - (let ((_%tl7789778013%_ + _%tl7794078049%_))) + (let ((_%tl7794378059%_ (let () (declare (not safe)) - (##cdr _%e7789578006%_))) - (_%hd7789678010%_ + (##cdr _%e7794178052%_))) + (_%hd7794278056%_ (let () (declare (not safe)) - (##car _%e7789578006%_)))) - (_%__match8376183762%_ - _%e7788677976%_ - _%hd7788777980%_ - _%tl7788877983%_ - _%e7788977986%_ - _%hd7789077990%_ - _%tl7789177993%_ - _%e7789277996%_ - _%hd7789378000%_ - _%tl7789478003%_ - _%e7789578006%_ - _%hd7789678010%_ - _%tl7789778013%_))) - (if (gx#stx-null? _%tl7789478003%_) - (_%__kont8373583736%_ - _%hd7789378000%_ - _%hd7789077990%_) + (##car _%e7794178052%_)))) + (_%__match8380783808%_ + _%e7793278022%_ + _%hd7793378026%_ + _%tl7793478029%_ + _%e7793578032%_ + _%hd7793678036%_ + _%tl7793778039%_ + _%e7793878042%_ + _%hd7793978046%_ + _%tl7794078049%_ + _%e7794178052%_ + _%hd7794278056%_ + _%tl7794378059%_))) + (if (gx#stx-null? _%tl7794078049%_) + (_%__kont8378183782%_ + _%hd7793978046%_ + _%hd7793678036%_) (let () (declare (not safe)) - (_%g7788077914%_)))))) + (_%g7792677960%_)))))) (let () (declare (not safe)) - (_%g7788077914%_))))) - (let () (declare (not safe)) (_%g7788077914%_))))) - (let () (declare (not safe)) (_%g7788077914%_)))))))) + (_%g7792677960%_))))) + (let () (declare (not safe)) (_%g7792677960%_))))) + (let () (declare (not safe)) (_%g7792677960%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| - (lambda (_%stx78115%_) - (let* ((_%__stx8378483785%_ _%stx78115%_) - (_%g7811978153%_ + (lambda (_%stx78161%_) + (let* ((_%__stx8383083831%_ _%stx78161%_) + (_%g7816578199%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8378483785%_)))) - (let ((_%__kont8378783788%_ - (lambda (_%L78255%_ _%L78257%_ _%L78258%_ _%L78259%_) - (let* ((_%g7828678301%_ - (lambda (_%g7828778297%_) + _%__stx8383083831%_)))) + (let ((_%__kont8383383834%_ + (lambda (_%L78301%_ _%L78303%_ _%L78304%_ _%L78305%_) + (let* ((_%g7833278347%_ + (lambda (_%g7833378343%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7828778297%_))) - (_%g7828578346%_ - (lambda (_%g7828778305%_) - (if (gx#stx-pair? _%g7828778305%_) - (let ((_%e7829078308%_ - (gx#syntax-e _%g7828778305%_))) - (let ((_%hd7829178312%_ + _%g7833378343%_))) + (_%g7833178392%_ + (lambda (_%g7833378351%_) + (if (gx#stx-pair? _%g7833378351%_) + (let ((_%e7833678354%_ + (gx#syntax-e _%g7833378351%_))) + (let ((_%hd7833778358%_ (let () (declare (not safe)) - (##car _%e7829078308%_))) - (_%tl7829278315%_ + (##car _%e7833678354%_))) + (_%tl7833878361%_ (let () (declare (not safe)) - (##cdr _%e7829078308%_)))) - (if (gx#stx-pair? _%tl7829278315%_) - (let ((_%e7829378318%_ + (##cdr _%e7833678354%_)))) + (if (gx#stx-pair? _%tl7833878361%_) + (let ((_%e7833978364%_ (gx#syntax-e - _%tl7829278315%_))) - (let ((_%hd7829478322%_ + _%tl7833878361%_))) + (let ((_%hd7834078368%_ (let () (declare (not safe)) - (##car _%e7829378318%_))) - (_%tl7829578325%_ + (##car _%e7833978364%_))) + (_%tl7834178371%_ (let () (declare (not safe)) - (##cdr _%e7829378318%_)))) + (##cdr _%e7833978364%_)))) (if (gx#stx-null? - _%tl7829578325%_) - ((lambda (_%L78328%_ - _%L78330%_) + _%tl7834178371%_) + ((lambda (_%L78374%_ + _%L78376%_) (cons (gx#datum->syntax '#f 'begin) @@ -14061,21 +14061,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78330%_ (cons _%L78258%_ '()))) + (cons _%L78376%_ (cons _%L78304%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78328%_ + (cons (cons _%L78374%_ (cons (cons (gx#datum->syntax '#f 'new-value) - (cons _%L78257%_ + (cons _%L78303%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L78255%_)) + _%L78301%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78330%_ + (cons _%L78376%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -14084,7 +14084,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L78259%_ + (cons _%L78305%_ (cons (cons (gx#datum->syntax '#f 'identifier-rules) @@ -14102,7 +14102,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78328%_ + (cons (cons _%L78374%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14118,7 +14118,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78328%_ + (cons (cons _%L78374%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14136,7 +14136,7 @@ 'syntax) (cons (gx#datum->syntax '#f 'the-var) '())) '())) - (cons _%L78330%_ '()))) + (cons _%L78376%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f @@ -14146,7 +14146,7 @@ '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) - (cons (cons _%L78330%_ + (cons (cons _%L78376%_ (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) '())) @@ -14156,126 +14156,126 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7829478322%_ - _%hd7829178312%_) - (_%g7828678301%_ - _%g7828778305%_)))) - (_%g7828678301%_ _%g7828778305%_)))) - (_%g7828678301%_ _%g7828778305%_))))) - (_%g7828578346%_ - (list (gx#stx-identifier _%L78259%_ '"__" _%L78259%_) + _%hd7834078368%_ + _%hd7833778358%_) + (_%g7833278347%_ + _%g7833378351%_)))) + (_%g7833278347%_ _%g7833378351%_)))) + (_%g7833278347%_ _%g7833378351%_))))) + (_%g7833178392%_ + (list (gx#stx-identifier _%L78305%_ '"__" _%L78305%_) (gx#stx-identifier - _%L78259%_ - _%L78259%_ + _%L78305%_ + _%L78305%_ '"-set!")))))) - (_%__kont8378983790%_ - (lambda (_%L78190%_ _%L78192%_) + (_%__kont8383583836%_ + (lambda (_%L78236%_ _%L78238%_) (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L78192%_ - (cons _%L78190%_ + (cons _%L78238%_ + (cons _%L78236%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8381583816%_ - (lambda (_%e7812578215%_ - _%hd7812678219%_ - _%tl7812778222%_ - _%e7812878225%_ - _%hd7812978229%_ - _%tl7813078232%_ - _%e7813178235%_ - _%hd7813278239%_ - _%tl7813378242%_ - _%e7813478245%_ - _%hd7813578249%_ - _%tl7813678252%_) - (let ((_%L78255%_ _%tl7813678252%_) - (_%L78257%_ _%hd7813578249%_) - (_%L78258%_ _%hd7813278239%_) - (_%L78259%_ _%hd7812978229%_)) - (if (and (gx#identifier? _%L78259%_) - (gx#identifier? _%L78257%_) + (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%_) (or (gx#free-identifier=? - _%L78257%_ + _%L78303%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78257%_ + _%L78303%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78257%_ + _%L78303%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8378783788%_ - _%L78255%_ - _%L78257%_ - _%L78258%_ - _%L78259%_) - (let () (declare (not safe)) (_%g7811978153%_))))))) - (if (gx#stx-pair? _%__stx8378483785%_) - (let ((_%e7812578215%_ (gx#syntax-e _%__stx8378483785%_))) - (let ((_%tl7812778222%_ + (_%__kont8383383834%_ + _%L78301%_ + _%L78303%_ + _%L78304%_ + _%L78305%_) + (let () (declare (not safe)) (_%g7816578199%_))))))) + (if (gx#stx-pair? _%__stx8383083831%_) + (let ((_%e7817178261%_ (gx#syntax-e _%__stx8383083831%_))) + (let ((_%tl7817378268%_ (let () (declare (not safe)) - (##cdr _%e7812578215%_))) - (_%hd7812678219%_ + (##cdr _%e7817178261%_))) + (_%hd7817278265%_ (let () (declare (not safe)) - (##car _%e7812578215%_)))) - (if (gx#stx-pair? _%tl7812778222%_) - (let ((_%e7812878225%_ - (gx#syntax-e _%tl7812778222%_))) - (let ((_%tl7813078232%_ + (##car _%e7817178261%_)))) + (if (gx#stx-pair? _%tl7817378268%_) + (let ((_%e7817478271%_ + (gx#syntax-e _%tl7817378268%_))) + (let ((_%tl7817678278%_ (let () (declare (not safe)) - (##cdr _%e7812878225%_))) - (_%hd7812978229%_ + (##cdr _%e7817478271%_))) + (_%hd7817578275%_ (let () (declare (not safe)) - (##car _%e7812878225%_)))) - (if (gx#stx-pair? _%tl7813078232%_) - (let ((_%e7813178235%_ - (gx#syntax-e _%tl7813078232%_))) - (let ((_%tl7813378242%_ + (##car _%e7817478271%_)))) + (if (gx#stx-pair? _%tl7817678278%_) + (let ((_%e7817778281%_ + (gx#syntax-e _%tl7817678278%_))) + (let ((_%tl7817978288%_ (let () (declare (not safe)) - (##cdr _%e7813178235%_))) - (_%hd7813278239%_ + (##cdr _%e7817778281%_))) + (_%hd7817878285%_ (let () (declare (not safe)) - (##car _%e7813178235%_)))) - (if (gx#stx-pair? _%tl7813378242%_) - (let ((_%e7813478245%_ + (##car _%e7817778281%_)))) + (if (gx#stx-pair? _%tl7817978288%_) + (let ((_%e7818078291%_ (gx#syntax-e - _%tl7813378242%_))) - (let ((_%tl7813678252%_ + _%tl7817978288%_))) + (let ((_%tl7818278298%_ (let () (declare (not safe)) - (##cdr _%e7813478245%_))) - (_%hd7813578249%_ + (##cdr _%e7818078291%_))) + (_%hd7818178295%_ (let () (declare (not safe)) - (##car _%e7813478245%_)))) - (_%__match8381583816%_ - _%e7812578215%_ - _%hd7812678219%_ - _%tl7812778222%_ - _%e7812878225%_ - _%hd7812978229%_ - _%tl7813078232%_ - _%e7813178235%_ - _%hd7813278239%_ - _%tl7813378242%_ - _%e7813478245%_ - _%hd7813578249%_ - _%tl7813678252%_))) - (if (gx#stx-null? _%tl7813378242%_) - (_%__kont8378983790%_ - _%hd7813278239%_ - _%hd7812978229%_) + (##car _%e7818078291%_)))) + (_%__match8386183862%_ + _%e7817178261%_ + _%hd7817278265%_ + _%tl7817378268%_ + _%e7817478271%_ + _%hd7817578275%_ + _%tl7817678278%_ + _%e7817778281%_ + _%hd7817878285%_ + _%tl7817978288%_ + _%e7818078291%_ + _%hd7818178295%_ + _%tl7818278298%_))) + (if (gx#stx-null? _%tl7817978288%_) + (_%__kont8383583836%_ + _%hd7817878285%_ + _%hd7817578275%_) (let () (declare (not safe)) - (_%g7811978153%_)))))) + (_%g7816578199%_)))))) (let () (declare (not safe)) - (_%g7811978153%_))))) - (let () (declare (not safe)) (_%g7811978153%_))))) - (let () (declare (not safe)) (_%g7811978153%_)))))))))) + (_%g7816578199%_))))) + (let () (declare (not safe)) (_%g7816578199%_))))) + (let () (declare (not safe)) (_%g7816578199%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index 8ea07059e..f45734443 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 1713631261) + (define gerbil/core/contract~ClassMeta::timestamp 1733687555) (define gerbil/core/contract~ClassMeta#!class-precedence-list - (lambda (_%klass52327%_) - (let ((_%$e52329%_ - (let ((__obj83870 _%klass52327%_)) + (lambda (_%klass52363%_) + (let ((_%$e52365%_ + (let ((__obj83916 _%klass52363%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83870 + __obj83916 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83870 '5 '#f '#f)) + (##unchecked-structure-ref __obj83916 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83870 + __obj83916 'precedence-list))))) - (if _%$e52329%_ - _%$e52329%_ - (let ((_g83917_ + (if _%$e52365%_ + _%$e52365%_ + (let ((_g83963_ (c4-linearize '() - (let ((__obj83871 _%klass52327%_)) + (let ((__obj83917 _%klass52363%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83871 + __obj83917 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83871 '3 '#f '#f)) + (##unchecked-structure-ref __obj83917 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83871 + __obj83917 'super))) 'get-precedence-list: - (lambda (_%klass-id52333%_) - (cons _%klass-id52333%_ + (lambda (_%klass-id52369%_) + (cons _%klass-id52369%_ (gerbil/core/contract~ClassMeta#!class-precedence-list - (gx#syntax-local-value _%klass-id52333%_)))) + (gx#syntax-local-value _%klass-id52369%_)))) 'struct: - (lambda (_%klass-id52335%_) - (let ((__obj83872 - (gx#syntax-local-value _%klass-id52335%_))) + (lambda (_%klass-id52371%_) + (let ((__obj83918 + (gx#syntax-local-value _%klass-id52371%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83872 + __obj83918 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83872 + __obj83918 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83872 + __obj83918 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g83918_ + (let ((_g83964_ (let () (declare (not safe)) - (if (##values? _g83917_) - (##vector-length _g83917_) + (if (##values? _g83963_) + (##vector-length _g83963_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83918_ 2))) - (error "Context expects 2 values" _g83918_))) - (let ((_%precedence-list52337%_ - (let () (declare (not safe)) (##vector-ref _g83917_ 0))) - (_%base-struct52338%_ + (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%_ (let () (declare (not safe)) - (##vector-ref _g83917_ 1)))) - (let ((_%precedence-list52382%_ - (if (let ((__tmp83919 - (let ((__obj83873 _%klass52327%_)) + (##vector-ref _g83963_ 1)))) + (let ((_%precedence-list52418%_ + (if (let ((__tmp83965 + (let ((__obj83919 _%klass52363%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83873 + __obj83919 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83873 + __obj83919 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83873 + __obj83919 'id))))) (declare (not safe)) - (##memq __tmp83919 '(t object class))) - _%precedence-list52337%_ + (##memq __tmp83965 '(t object class))) + _%precedence-list52373%_ (if (member ':object - _%precedence-list52337%_ + _%precedence-list52373%_ gx#free-identifier=?) - _%precedence-list52337%_ - (if (let ((__obj83874 _%klass52327%_)) + _%precedence-list52373%_ + (if (let ((__obj83920 _%klass52363%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83874 + __obj83920 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83874 + __obj83920 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83874 + __obj83920 'system?))) (if (member ':t - _%precedence-list52337%_ + _%precedence-list52373%_ gx#free-identifier=?) - _%precedence-list52337%_ - (let ((__tmp83920 + _%precedence-list52373%_ + (let ((__tmp83966 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append - _%precedence-list52337%_ - __tmp83920))) - (let _%loop52344%_ ((_%tail52346%_ - _%precedence-list52337%_) - (_%head52347%_ '())) - (let* ((_%tail5234852356%_ - _%tail52346%_) - (_%else5235052364%_ + _%precedence-list52373%_ + __tmp83966))) + (let _%loop52380%_ ((_%tail52382%_ + _%precedence-list52373%_) + (_%head52383%_ '())) + (let* ((_%tail5238452392%_ + _%tail52382%_) + (_%else5238652400%_ (lambda () (foldl cons (cons (gx#core-quote-syntax @@ -148,59 +148,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':t) '())) - _%head52347%_))) + _%head52383%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5235252370%_ - (lambda (_%rest52367%_ - _%hd52368%_) + (_%K5238852406%_ + (lambda (_%rest52403%_ + _%hd52404%_) (if (gx#free-identifier=? - _%hd52368%_ + _%hd52404%_ ':t) (foldl cons (cons (gx#core-quote-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':object) - _%tail52346%_) - _%head52347%_) + _%tail52382%_) + _%head52383%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop52344%_ - _%rest52367%_ - (cons _%hd52368%_ - _%head52347%_)))))) - (if (pair? _%tail5234852356%_) - (let ((_%hd5235352373%_ + (_%loop52380%_ + _%rest52403%_ + (cons _%hd52404%_ + _%head52383%_)))))) + (if (pair? _%tail5238452392%_) + (let ((_%hd5238952409%_ (let () (declare (not safe)) - (##car _%tail5234852356%_))) - (_%tl5235452375%_ + (##car _%tail5238452392%_))) + (_%tl5239052411%_ (let () (declare (not safe)) - (##cdr _%tail5234852356%_)))) - (let* ((_%hd52378%_ - _%hd5235352373%_) - (_%rest52380%_ - _%tl5235452375%_)) - (_%K5235252370%_ - _%rest52380%_ - _%hd52378%_))) - (_%else5235052364%_))))))))) - (let ((__obj83875 _%klass52327%_)) + (##cdr _%tail5238452392%_)))) + (let* ((_%hd52414%_ + _%hd5238952409%_) + (_%rest52416%_ + _%tl5239052411%_)) + (_%K5238852406%_ + _%rest52416%_ + _%hd52414%_))) + (_%else5238652400%_))))))))) + (let ((__obj83921 _%klass52363%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83875 + __obj83921 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83875 - _%precedence-list52382%_ + __obj83921 + _%precedence-list52418%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83875 + __obj83921 'precedence-list - _%precedence-list52382%_))) - _%precedence-list52382%_))))))))) + _%precedence-list52418%_))) + _%precedence-list52418%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index 873f4fd06..61d87b225 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 1713631261) + (define gerbil/core/contract~InterfaceInfo::timestamp 1733687555) (begin - (define gerbil/core/contract~InterfaceInfo#_g83913_ + (define gerbil/core/contract~InterfaceInfo#_g83959_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g83914_ + (define gerbil/core/contract~InterfaceInfo#_g83960_ (##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 _%$args44989%_ + (lambda _%$args45025%_ (apply make-instance gerbil/core/contract~InterfaceInfo#interface-info::t - _%$args44989%_))) + _%$args45025%_))) (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* ((_%g4477844792%_ - (lambda (_%g4477944789%_) + (let* ((_%g4481444828%_ + (lambda (_%g4481544825%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4477944789%_))) - (_%g4477744986%_ - (lambda (_%g4477944795%_) - (if (gx#stx-pair? _%g4477944795%_) - (let ((_%e4478244797%_ (gx#syntax-e _%g4477944795%_))) - (let ((_%hd4478344800%_ + _%g4481544825%_))) + (_%g4481345022%_ + (lambda (_%g4481544831%_) + (if (gx#stx-pair? _%g4481544831%_) + (let ((_%e4481844833%_ (gx#syntax-e _%g4481544831%_))) + (let ((_%hd4481944836%_ (let () (declare (not safe)) - (##car _%e4478244797%_))) - (_%tl4478444802%_ + (##car _%e4481844833%_))) + (_%tl4482044838%_ (let () (declare (not safe)) - (##cdr _%e4478244797%_)))) - (if (gx#stx-pair? _%tl4478444802%_) - (let ((_%e4478544805%_ - (gx#syntax-e _%tl4478444802%_))) - (let ((_%hd4478644808%_ + (##cdr _%e4481844833%_)))) + (if (gx#stx-pair? _%tl4482044838%_) + (let ((_%e4482144841%_ + (gx#syntax-e _%tl4482044838%_))) + (let ((_%hd4482244844%_ (let () (declare (not safe)) - (##car _%e4478544805%_))) - (_%tl4478744810%_ + (##car _%e4482144841%_))) + (_%tl4482344846%_ (let () (declare (not safe)) - (##cdr _%e4478544805%_)))) - (if (gx#stx-null? _%tl4478744810%_) - ((lambda (_%L44813%_ _%L44814%_) - (lambda (_%self44828%_ _%stx44829%_) - (let* ((_%__stx7835478355%_ - _%stx44829%_) - (_%g4483244845%_ + (##cdr _%e4482144841%_)))) + (if (gx#stx-null? _%tl4482344846%_) + ((lambda (_%L44849%_ _%L44850%_) + (lambda (_%self44864%_ _%stx44865%_) + (let* ((_%__stx7840078401%_ + _%stx44865%_) + (_%g4486844881%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7835478355%_)))) - (let ((_%__kont7835678357%_ - (lambda (_%L44903%_) - (let* ((_%g4491444932%_ - (lambda (_%g4491544929%_) + _%__stx7840078401%_)))) + (let ((_%__kont7840278403%_ + (lambda (_%L44939%_) + (let* ((_%g4495044968%_ + (lambda (_%g4495144965%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4491544929%_))) - (_%g4491344980%_ - (lambda (_%g4491544935%_) - (if (gx#stx-pair? _%g4491544935%_) - (let ((_%e4491944937%_ - (gx#syntax-e _%g4491544935%_))) - (let ((_%hd4492044940%_ + _%g4495144965%_))) + (_%g4494945016%_ + (lambda (_%g4495144971%_) + (if (gx#stx-pair? _%g4495144971%_) + (let ((_%e4495544973%_ + (gx#syntax-e _%g4495144971%_))) + (let ((_%hd4495644976%_ (let () (declare (not safe)) - (##car _%e4491944937%_))) - (_%tl4492144942%_ + (##car _%e4495544973%_))) + (_%tl4495744978%_ (let () (declare (not safe)) - (##cdr _%e4491944937%_)))) - (if (gx#stx-pair? _%tl4492144942%_) - (let ((_%e4492244945%_ - (gx#syntax-e _%tl4492144942%_))) - (let ((_%hd4492344948%_ + (##cdr _%e4495544973%_)))) + (if (gx#stx-pair? _%tl4495744978%_) + (let ((_%e4495844981%_ + (gx#syntax-e _%tl4495744978%_))) + (let ((_%hd4495944984%_ (let () (declare (not safe)) - (##car _%e4492244945%_))) - (_%tl4492444950%_ + (##car _%e4495844981%_))) + (_%tl4496044986%_ (let () (declare (not safe)) - (##cdr _%e4492244945%_)))) - (if (gx#stx-pair? _%tl4492444950%_) - (let ((_%e4492544953%_ + (##cdr _%e4495844981%_)))) + (if (gx#stx-pair? _%tl4496044986%_) + (let ((_%e4496144989%_ (gx#syntax-e - _%tl4492444950%_))) - (let ((_%hd4492644956%_ + _%tl4496044986%_))) + (let ((_%hd4496244992%_ (let () (declare (not safe)) - (##car _%e4492544953%_))) - (_%tl4492744958%_ + (##car _%e4496144989%_))) + (_%tl4496344994%_ (let () (declare (not safe)) - (##cdr _%e4492544953%_)))) + (##cdr _%e4496144989%_)))) (if (gx#stx-null? - _%tl4492744958%_) - ((lambda (_%L44961%_ - _%L44962%_ - _%L44963%_) + _%tl4496344994%_) + ((lambda (_%L44997%_ + _%L44998%_ + _%L44999%_) (cons (gx#datum->syntax '#f 'let) @@ -316,22 +316,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) - (cons _%L44903%_ '())) + (cons _%L44939%_ '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L44961%_ '())) + (cons _%L44997%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L44813%_ + (cons (cons _%L44849%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L44963%_ + (cons _%L44999%_ (cons (gx#datum->syntax '#f '$obj) '()))) (cons (gx#datum->syntax '#f '$obj) - (cons (cons _%L44814%_ - (cons _%L44962%_ + (cons (cons _%L44850%_ + (cons _%L44998%_ (cons (gx#datum->syntax '#f '$obj) @@ -341,246 +341,246 @@ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4492644956%_ - _%hd4492344948%_ - _%hd4492044940%_) - (_%g4491444932%_ - _%g4491544935%_)))) - (_%g4491444932%_ - _%g4491544935%_)))) - (_%g4491444932%_ _%g4491544935%_)))) - (_%g4491444932%_ _%g4491544935%_))))) - (_%g4491344980%_ - (list (let ((__obj83838 _%self44828%_)) + _%hd4496244992%_ + _%hd4495944984%_ + _%hd4495644976%_) + (_%g4495044968%_ + _%g4495144971%_)))) + (_%g4495044968%_ + _%g4495144971%_)))) + (_%g4495044968%_ _%g4495144971%_)))) + (_%g4495044968%_ _%g4495144971%_))))) + (_%g4494945016%_ + (list (let ((__obj83884 _%self44864%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83838 + __obj83884 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83838 + __obj83884 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83838 + __obj83884 'instance-type))) - (let ((__obj83839 _%self44828%_)) + (let ((__obj83885 _%self44864%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83839 + __obj83885 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83839 + __obj83885 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83839 + __obj83885 'interface-descriptor))) - (let ((__obj83840 _%self44828%_)) + (let ((__obj83886 _%self44864%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83840 + __obj83886 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83840 + __obj83886 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83840 + __obj83886 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7835878359%_ + (_%__kont7840478405%_ (lambda () - (let* ((_%g4485244859%_ - (lambda (_%g4485344856%_) + (let* ((_%g4488844895%_ + (lambda (_%g4488944892%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4485344856%_))) - (_%g4485144879%_ - (lambda (_%g4485344862%_) - ((lambda (_%L44864%_) _%L44864%_) _%g4485344862%_)))) - (_%g4485144879%_ - (let ((__obj83841 _%self44828%_)) + _%g4488944892%_))) + (_%g4488744915%_ + (lambda (_%g4488944898%_) + ((lambda (_%L44900%_) _%L44900%_) _%g4488944898%_)))) + (_%g4488744915%_ + (let ((__obj83887 _%self44864%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83841 + __obj83887 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83841 '5 '#f '#f)) + (##unchecked-structure-ref __obj83887 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83841 + __obj83887 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g4483144882%_ + (let ((_%g4486744918%_ (lambda () (if (gx#identifier? - _%stx44829%_) - (_%__kont7835878359%_) + _%stx44865%_) + (_%__kont7840478405%_) (let () (declare (not safe)) - (_%g4483244845%_)))))) + (_%g4486844881%_)))))) (if (gx#stx-pair? - _%__stx7835478355%_) - (let ((_%e4483544887%_ + _%__stx7840078401%_) + (let ((_%e4487144923%_ (gx#syntax-e - _%__stx7835478355%_))) - (let ((_%tl4483744892%_ + _%__stx7840078401%_))) + (let ((_%tl4487344928%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4483544887%_))) - (_%hd4483644890%_ - (let () (declare (not safe)) (##car _%e4483544887%_)))) - (if (gx#stx-pair? _%tl4483744892%_) - (let ((_%e4483844895%_ (gx#syntax-e _%tl4483744892%_))) - (let ((_%tl4484044900%_ + (##cdr _%e4487144923%_))) + (_%hd4487244926%_ + (let () (declare (not safe)) (##car _%e4487144923%_)))) + (if (gx#stx-pair? _%tl4487344928%_) + (let ((_%e4487444931%_ (gx#syntax-e _%tl4487344928%_))) + (let ((_%tl4487644936%_ (let () (declare (not safe)) - (##cdr _%e4483844895%_))) - (_%hd4483944898%_ + (##cdr _%e4487444931%_))) + (_%hd4487544934%_ (let () (declare (not safe)) - (##car _%e4483844895%_)))) - (if (gx#stx-null? _%tl4484044900%_) - (_%__kont7835678357%_ _%hd4483944898%_) - (let () (declare (not safe)) (_%g4483144882%_))))) - (let () (declare (not safe)) (_%g4483144882%_))))) + (##car _%e4487444931%_)))) + (if (gx#stx-null? _%tl4487644936%_) + (_%__kont7840278403%_ _%hd4487544934%_) + (let () (declare (not safe)) (_%g4486744918%_))))) + (let () (declare (not safe)) (_%g4486744918%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4483144882%_)))))))) - _%hd4478644808%_ - _%hd4478344800%_) - (_%g4477844792%_ _%g4477944795%_)))) - (_%g4477844792%_ _%g4477944795%_)))) - (_%g4477844792%_ _%g4477944795%_))))) - (_%g4477744986%_ - (list gerbil/core/contract~InterfaceInfo#_g83913_ - gerbil/core/contract~InterfaceInfo#_g83914_)))) + (_%g4486744918%_)))))))) + _%hd4482244844%_ + _%hd4481944836%_) + (_%g4481444828%_ _%g4481544831%_)))) + (_%g4481444828%_ _%g4481544831%_)))) + (_%g4481444828%_ _%g4481544831%_))))) + (_%g4481345022%_ + (list gerbil/core/contract~InterfaceInfo#_g83959_ + gerbil/core/contract~InterfaceInfo#_g83960_)))) (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 (_%info44611%_) - (let _%loop44613%_ ((_%rest44615%_ - (let ((__obj83843 _%info44611%_)) + (lambda (_%info44647%_) + (let _%loop44649%_ ((_%rest44651%_ + (let ((__obj83889 _%info44647%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83843 + __obj83889 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83843 + __obj83889 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83843 + __obj83889 'interface-mixin)))) - (_%result44616%_ '())) - (let* ((_%rest4461744625%_ _%rest44615%_) - (_%else4461944633%_ (lambda () _%result44616%_)) - (_%K4462144643%_ - (lambda (_%rest44636%_ _%id44637%_) - (let* ((_%mixin44639%_ - (let ((__obj83842 - (gx#syntax-local-value _%id44637%_))) + (_%result44652%_ '())) + (let* ((_%rest4465344661%_ _%rest44651%_) + (_%else4465544669%_ (lambda () _%result44652%_)) + (_%K4465744679%_ + (lambda (_%rest44672%_ _%id44673%_) + (let* ((_%mixin44675%_ + (let ((__obj83888 + (gx#syntax-local-value _%id44673%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83842 + __obj83888 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83842 + __obj83888 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83842 + __obj83888 'interface-mixin)))) - (_%result44641%_ - (if (member _%id44637%_ - _%result44616%_ + (_%result44677%_ + (if (member _%id44673%_ + _%result44652%_ gx#free-identifier=?) - _%result44616%_ - (cons _%id44637%_ _%result44616%_)))) - (_%loop44613%_ - (foldl cons _%rest44636%_ _%mixin44639%_) - _%result44641%_))))) - (if (pair? _%rest4461744625%_) - (let ((_%hd4462244646%_ + _%result44652%_ + (cons _%id44673%_ _%result44652%_)))) + (_%loop44649%_ + (foldl cons _%rest44672%_ _%mixin44675%_) + _%result44677%_))))) + (if (pair? _%rest4465344661%_) + (let ((_%hd4465844682%_ (let () (declare (not safe)) - (##car _%rest4461744625%_))) - (_%tl4462344648%_ + (##car _%rest4465344661%_))) + (_%tl4465944684%_ (let () (declare (not safe)) - (##cdr _%rest4461744625%_)))) - (let* ((_%id44651%_ _%hd4462244646%_) - (_%rest44653%_ _%tl4462344648%_)) - (_%K4462144643%_ _%rest44653%_ _%id44651%_))) - (_%else4461944633%_)))))) + (##cdr _%rest4465344661%_)))) + (let* ((_%id44687%_ _%hd4465844682%_) + (_%rest44689%_ _%tl4465944684%_)) + (_%K4465744679%_ _%rest44689%_ _%id44687%_))) + (_%else4465544669%_)))))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - (lambda (_%stx44592%_ _%is?44593%_) - (if (gx#identifier? _%stx44592%_) - (let ((_%e4459444596%_ - (gx#syntax-local-value _%stx44592%_ false))) - (if _%e4459444596%_ - (let ((_%e44599%_ _%e4459444596%_)) + (lambda (_%stx44628%_ _%is?44629%_) + (if (gx#identifier? _%stx44628%_) + (let ((_%e4463044632%_ + (gx#syntax-local-value _%stx44628%_ false))) + (if _%e4463044632%_ + (let ((_%e44635%_ _%e4463044632%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%e44599%_)) - (_%is?44593%_ _%e44599%_) + _%e44635%_)) + (_%is?44629%_ _%e44635%_) '#f)) '#f)) '#f))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - (lambda (_%stx44604%_) - (let ((_%is?44606%_ true)) + (lambda (_%stx44640%_) + (let ((_%is?44642%_ true)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _%stx44604%_ - _%is?44606%_)))) + _%stx44640%_ + _%is?44642%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g83916_ - (let ((_g83915_ (let () (declare (not safe)) (##length _g83916_)))) - (cond ((let () (declare (not safe)) (##fx= _g83915_ 1)) + (lambda _g83962_ + (let ((_g83961_ (let () (declare (not safe)) (##length _g83962_)))) + (cond ((let () (declare (not safe)) (##fx= _g83961_ 1)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _g83916_)) - ((let () (declare (not safe)) (##fx= _g83915_ 2)) + _g83962_)) + ((let () (declare (not safe)) (##fx= _g83961_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g83916_)) + _g83962_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g83916_))))))))) + _g83962_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index 219e127a2..47aacf5a3 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 1713631261) + (define gerbil/core/contract~TypeEnv::timestamp 1733687555) (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 _%$args46325%_ + (lambda _%$args46361%_ (apply make-instance gerbil/core/contract~TypeEnv#type-env::t - _%$args46325%_))) + _%$args46361%_))) (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 (_%var46315%_) - (let _%loop46317%_ ((_%te46319%_ + (lambda (_%var46351%_) + (let _%loop46353%_ ((_%te46355%_ (gerbil/core/contract~TypeEnv#current-type-env))) - (if (not _%te46319%_) + (if (not _%te46355%_) '#f (if (gx#free-identifier=? - _%var46315%_ + _%var46351%_ (##direct-structure-ref - _%te46319%_ + _%te46355%_ '1 gerbil/core/contract~TypeEnv#type-env::t '#f)) - _%te46319%_ - (_%loop46317%_ + _%te46355%_ + (_%loop46353%_ (##direct-structure-ref - _%te46319%_ + _%te46355%_ '4 gerbil/core/contract~TypeEnv#type-env::t '#f))))))))) diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 6ffec1682..68b869ce5 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 1713631261) + (define gerbil/core/macro-object::timestamp 1733687554) (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 _%$args27788%_ + (lambda _%$args27824%_ (apply make-instance gerbil/core/macro-object#macro-object::t - _%$args27788%_))) + _%$args27824%_))) (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 (_%self27785%_ _%stx27786%_) + (lambda (_%self27821%_ _%stx27822%_) (gx#core-apply-expander - (let ((__obj27795 _%self27785%_)) + (let ((__obj27831 _%self27821%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27795 + __obj27831 'gerbil.core#macro-object::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj27795 '1 '#f '#f)) + (##unchecked-structure-ref __obj27831 '1 '#f '#f)) (class-slot-ref gerbil/core/macro-object#macro-object::t - __obj27795 + __obj27831 'macro))) - _%stx27786%_))) + _%stx27822%_))) (define gerbil/core/macro-object#macro-object::apply-macro-expander::specialize - (lambda (__klass27790 __method-table27791) - (let ((__macro27792 - (let ((__slot27793 (class-slot-offset __klass27790 'macro))) - (if __slot27793 __slot27793 (error '"Unknown slot" 'macro))))) - (lambda (_%self27785%_ _%stx27786%_) + (lambda (__klass27826 __method-table27827) + (let ((__macro27828 + (let ((__slot27829 (class-slot-offset __klass27826 'macro))) + (if __slot27829 __slot27829 (error '"Unknown slot" 'macro))))) + (lambda (_%self27821%_ _%stx27822%_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _%self27785%_ __macro27792 '#f '#f)) - _%stx27786%_))))) + (##unchecked-structure-ref _%self27821%_ __macro27828 '#f '#f)) + _%stx27822%_))))) (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 62e64af39..48cd7af18 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]#_g27797_| + (define |gerbil/core/macro-object[1]#_g27833_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27799_| + (define |gerbil/core/macro-object[1]#_g27835_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27801_| + (define |gerbil/core/macro-object[1]#_g27837_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27803_| + (define |gerbil/core/macro-object[1]#_g27839_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27805_| + (define |gerbil/core/macro-object[1]#_g27841_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27807_| + (define |gerbil/core/macro-object[1]#_g27843_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27809_| + (define |gerbil/core/macro-object[1]#_g27845_| (##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 ((__obj27794 + (let ((__obj27830 (let () (declare (not safe)) (##structure @@ -79,55 +79,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27794 + __obj27830 'gerbil.core#macro-object::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 'macro-object '2 '#f '#f)) + (##unchecked-structure-set! __obj27830 'macro-object '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '(macro) '4 '#f '#f)) + (##unchecked-structure-set! __obj27830 '(macro) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27830 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27830 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27830 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj27830 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '11 '#f '#f)) - (let ((__tmp27796 |gerbil/core/macro-object[1]#_g27797_|)) + (##unchecked-structure-set! __obj27830 '#f '11 '#f '#f)) + (let ((__tmp27832 |gerbil/core/macro-object[1]#_g27833_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27796 '12 '#f '#f)) - (let ((__tmp27798 |gerbil/core/macro-object[1]#_g27799_|)) + (##unchecked-structure-set! __obj27830 __tmp27832 '12 '#f '#f)) + (let ((__tmp27834 |gerbil/core/macro-object[1]#_g27835_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27798 '13 '#f '#f)) - (let ((__tmp27800 |gerbil/core/macro-object[1]#_g27801_|)) + (##unchecked-structure-set! __obj27830 __tmp27834 '13 '#f '#f)) + (let ((__tmp27836 |gerbil/core/macro-object[1]#_g27837_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27800 '14 '#f '#f)) - (let ((__tmp27802 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27803_|) '()))) + (##unchecked-structure-set! __obj27830 __tmp27836 '14 '#f '#f)) + (let ((__tmp27838 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27839_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27802 '15 '#f '#f)) - (let ((__tmp27804 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27805_|) '()))) + (##unchecked-structure-set! __obj27830 __tmp27838 '15 '#f '#f)) + (let ((__tmp27840 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27841_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27804 '16 '#f '#f)) - (let ((__tmp27806 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27807_|) '()))) + (##unchecked-structure-set! __obj27830 __tmp27840 '16 '#f '#f)) + (let ((__tmp27842 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27843_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27806 '17 '#f '#f)) - (let ((__tmp27808 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27809_|) '()))) + (##unchecked-structure-set! __obj27830 __tmp27842 '17 '#f '#f)) + (let ((__tmp27844 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27845_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27808 '18 '#f '#f)) - __obj27794))) + (##unchecked-structure-set! __obj27830 __tmp27844 '18 '#f '#f)) + __obj27830))) diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 3aa51156a..1c55d1261 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]#_g39838_| + (define |gerbil/core/match[1]#_g39874_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39839_| + (define |gerbil/core/match[1]#_g39875_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39840_| + (define |gerbil/core/match[1]#_g39876_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39841_| + (define |gerbil/core/match[1]#_g39877_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39842_| + (define |gerbil/core/match[1]#_g39878_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39843_| + (define |gerbil/core/match[1]#_g39879_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39844_| + (define |gerbil/core/match[1]#_g39880_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39845_| + (define |gerbil/core/match[1]#_g39881_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39846_| + (define |gerbil/core/match[1]#_g39882_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39847_| + (define |gerbil/core/match[1]#_g39883_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39848_| + (define |gerbil/core/match[1]#_g39884_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39849_| + (define |gerbil/core/match[1]#_g39885_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39850_| + (define |gerbil/core/match[1]#_g39886_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39851_| + (define |gerbil/core/match[1]#_g39887_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39852_| + (define |gerbil/core/match[1]#_g39888_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39865_| + (define |gerbil/core/match[1]#_g39901_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39873_| + (define |gerbil/core/match[1]#_g39909_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39874_| + (define |gerbil/core/match[1]#_g39910_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39875_| + (define |gerbil/core/match[1]#_g39911_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39880_| + (define |gerbil/core/match[1]#_g39916_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39881_| + (define |gerbil/core/match[1]#_g39917_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39882_| + (define |gerbil/core/match[1]#_g39918_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39883_| + (define |gerbil/core/match[1]#_g39919_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39884_| + (define |gerbil/core/match[1]#_g39920_| (##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 _%$args35137%_ + (lambda _%$args35173%_ (apply make-instance |gerbil/core/match[1]#match-macro::t| - _%$args35137%_))) + _%$args35173%_))) (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 (_%stx35134%_) - (if (gx#identifier? _%stx35134%_) - (let ((__tmp39837 (gx#syntax-local-value _%stx35134%_ false))) + (lambda (_%stx35170%_) + (if (gx#identifier? _%stx35170%_) + (let ((__tmp39873 (gx#syntax-local-value _%stx35170%_ false))) (declare (not safe)) (class-instance? |gerbil/core/match[1]#match-macro::t| - __tmp39837)) + __tmp39873)) '#f))) (define |gerbil/core/match[1]#parse-match-pattern__%| - (lambda (_%stx33434%_ _%match-stx33436%_) - (letrec ((_%parse133438%_ - (lambda (_%hd33797%_) - (let* ((_%__stx3762537626%_ _%hd33797%_) - (_%g3382333965%_ + (lambda (_%stx33470%_ _%match-stx33472%_) + (letrec ((_%parse133474%_ + (lambda (_%hd33833%_) + (let* ((_%__stx3766137662%_ _%hd33833%_) + (_%g3385934001%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3762537626%_)))) - (let ((_%__kont3762837629%_ - (lambda (_%L34897%_ _%L34899%_) - (let* ((_%__stx3754537546%_ _%L34897%_) - (_%g3491634949%_ + _%__stx3766137662%_)))) + (let ((_%__kont3766437665%_ + (lambda (_%L34933%_ _%L34935%_) + (let* ((_%__stx3758137582%_ _%L34933%_) + (_%g3495234985%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3754537546%_)))) - (let ((_%__kont3754837549%_ + _%__stx3758137582%_)))) + (let ((_%__kont3758437585%_ (lambda () - (cons '?: (cons _%L34899%_ '())))) - (_%__kont3755037551%_ - (lambda (_%L35090%_) + (cons '?: (cons _%L34935%_ '())))) + (_%__kont3758637587%_ + (lambda (_%L35126%_) (cons '?: - (cons _%L34899%_ - (cons (_%parse133438%_ - _%L35090%_) + (cons _%L34935%_ + (cons (_%parse133474%_ + _%L35126%_) '()))))) - (_%__kont3755237553%_ - (lambda (_%L35060%_) + (_%__kont3758837589%_ + (lambda (_%L35096%_) (cons '?: - (cons _%L34899%_ + (cons _%L34935%_ (cons '=>: - (cons (_%parse133438%_ + (cons (_%parse133474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L35060%_) + _%L35096%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755437555%_ - (lambda (_%L35011%_ _%L35013%_) + (_%__kont3759037591%_ + (lambda (_%L35047%_ _%L35049%_) (cons '?: - (cons _%L34899%_ + (cons _%L34935%_ (cons ':: - (cons _%L35013%_ + (cons _%L35049%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: - (cons (_%parse133438%_ _%L35011%_) '())))))))) + (cons (_%parse133474%_ _%L35047%_) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755637557%_ + (_%__kont3759237593%_ (lambda () - (_%parse-error33445%_ _%hd33797%_)))) - (let ((_%g3491235101%_ + (_%parse-error33481%_ _%hd33833%_)))) + (let ((_%g3494835137%_ (lambda () (if (gx#stx-pair? - _%__stx3754537546%_) - (let ((_%e3491935080%_ + _%__stx3758137582%_) + (let ((_%e3495535116%_ (gx#syntax-e - _%__stx3754537546%_))) - (let ((_%tl3492135087%_ + _%__stx3758137582%_))) + (let ((_%tl3495735123%_ (let () (declare (not safe)) - (##cdr _%e3491935080%_))) - (_%hd3492035084%_ + (##cdr _%e3495535116%_))) + (_%hd3495635120%_ (let () (declare (not safe)) - (##car _%e3491935080%_)))) + (##car _%e3495535116%_)))) (if (gx#stx-null? - _%tl3492135087%_) - (_%__kont3755037551%_ - _%hd3492035084%_) + _%tl3495735123%_) + (_%__kont3758637587%_ + _%hd3495635120%_) (if (gx#identifier? - _%hd3492035084%_) + _%hd3495635120%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39838_| - _%hd3492035084%_) - (if (gx#stx-pair? _%tl3492135087%_) - (let ((_%e3492635050%_ - (gx#syntax-e _%tl3492135087%_))) - (let ((_%tl3492835057%_ + |gerbil/core/match[1]#_g39874_| + _%hd3495635120%_) + (if (gx#stx-pair? _%tl3495735123%_) + (let ((_%e3496235086%_ + (gx#syntax-e _%tl3495735123%_))) + (let ((_%tl3496435093%_ (let () (declare (not safe)) - (##cdr _%e3492635050%_))) - (_%hd3492735054%_ + (##cdr _%e3496235086%_))) + (_%hd3496335090%_ (let () (declare (not safe)) - (##car _%e3492635050%_)))) - (if (gx#stx-null? _%tl3492835057%_) - (_%__kont3755237553%_ _%hd3492735054%_) - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)) - (_%__kont3755637557%_)) - (if (gx#stx-datum? _%hd3492035084%_) - (let ((_%e3493434977%_ (gx#stx-e _%hd3492035084%_))) - (if (equal? _%e3493434977%_ '::) - (if (gx#stx-pair? _%tl3492135087%_) - (let ((_%e3493534981%_ - (gx#syntax-e _%tl3492135087%_))) - (let ((_%tl3493734988%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3493534981%_))) - (_%hd3493634985%_ + (##cdr _%e3497135017%_))) + (_%hd3497235021%_ (let () (declare (not safe)) - (##car _%e3493534981%_)))) - (if (gx#stx-pair? _%tl3493734988%_) - (let ((_%e3493834991%_ + (##car _%e3497135017%_)))) + (if (gx#stx-pair? _%tl3497335024%_) + (let ((_%e3497435027%_ (gx#syntax-e - _%tl3493734988%_))) - (let ((_%tl3494034998%_ + _%tl3497335024%_))) + (let ((_%tl3497635034%_ (let () (declare (not safe)) - (##cdr _%e3493834991%_))) - (_%hd3493934995%_ + (##cdr _%e3497435027%_))) + (_%hd3497535031%_ (let () (declare (not safe)) - (##car _%e3493834991%_)))) + (##car _%e3497435027%_)))) (if (gx#identifier? - _%hd3493934995%_) + _%hd3497535031%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39839_| - _%hd3493934995%_) + |gerbil/core/match[1]#_g39875_| + _%hd3497535031%_) (if (gx#stx-pair? - _%tl3494034998%_) - (let ((_%e3494135001%_ + _%tl3497635034%_) + (let ((_%e3497735037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3494034998%_))) - (let ((_%tl3494335008%_ + (gx#syntax-e _%tl3497635034%_))) + (let ((_%tl3497935044%_ (let () (declare (not safe)) - (##cdr _%e3494135001%_))) - (_%hd3494235005%_ + (##cdr _%e3497735037%_))) + (_%hd3497835041%_ (let () (declare (not safe)) - (##car _%e3494135001%_)))) - (if (gx#stx-null? _%tl3494335008%_) - (_%__kont3755437555%_ - _%hd3494235005%_ - _%hd3493634985%_) - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)) - (_%__kont3755637557%_)) + (##car _%e3497735037%_)))) + (if (gx#stx-null? _%tl3497935044%_) + (_%__kont3759037591%_ + _%hd3497835041%_ + _%hd3497235021%_) + (_%__kont3759237593%_)))) + (_%__kont3759237593%_)) + (_%__kont3759237593%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)) - (_%__kont3755637557%_))) - (_%__kont3755637557%_)))))) + (_%__kont3759237593%_)))) + (_%__kont3759237593%_)))) + (_%__kont3759237593%_)) + (_%__kont3759237593%_))) + (_%__kont3759237593%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755637557%_))))) - (if (gx#stx-null? _%__stx3754537546%_) - (_%__kont3754837549%_) + (_%__kont3759237593%_))))) + (if (gx#stx-null? _%__stx3758137582%_) + (_%__kont3758437585%_) (let () (declare (not safe)) - (_%g3491235101%_)))))))) - (_%__kont3763037631%_ - (lambda (_%L34802%_) - (let* ((_%__stx3752737528%_ _%L34802%_) - (_%g3481434825%_ + (_%g3494835137%_)))))))) + (_%__kont3766637667%_ + (lambda (_%L34838%_) + (let* ((_%__stx3756337564%_ _%L34838%_) + (_%g3485034861%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3752737528%_)))) - (let ((_%__kont3753037531%_ - (lambda (_%L34853%_) - (_%parse133438%_ _%L34853%_))) - (_%__kont3753237533%_ + _%__stx3756337564%_)))) + (let ((_%__kont3756637567%_ + (lambda (_%L34889%_) + (_%parse133474%_ _%L34889%_))) + (_%__kont3756837569%_ (lambda () (cons 'and: (gx#stx-map - _%parse133438%_ - _%L34802%_))))) - (if (gx#stx-pair? _%__stx3752737528%_) - (let ((_%e3481734843%_ + _%parse133474%_ + _%L34838%_))))) + (if (gx#stx-pair? _%__stx3756337564%_) + (let ((_%e3485334879%_ (gx#syntax-e - _%__stx3752737528%_))) - (let ((_%tl3481934850%_ + _%__stx3756337564%_))) + (let ((_%tl3485534886%_ (let () (declare (not safe)) - (##cdr _%e3481734843%_))) - (_%hd3481834847%_ + (##cdr _%e3485334879%_))) + (_%hd3485434883%_ (let () (declare (not safe)) - (##car _%e3481734843%_)))) - (if (gx#stx-null? _%tl3481934850%_) - (_%__kont3753037531%_ - _%hd3481834847%_) - (_%__kont3753237533%_)))) - (_%__kont3753237533%_)))))) - (_%__kont3763237633%_ - (lambda (_%L34717%_) - (let* ((_%__stx3750937510%_ _%L34717%_) - (_%g3472934740%_ + (##car _%e3485334879%_)))) + (if (gx#stx-null? _%tl3485534886%_) + (_%__kont3756637567%_ + _%hd3485434883%_) + (_%__kont3756837569%_)))) + (_%__kont3756837569%_)))))) + (_%__kont3766837669%_ + (lambda (_%L34753%_) + (let* ((_%__stx3754537546%_ _%L34753%_) + (_%g3476534776%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3750937510%_)))) - (let ((_%__kont3751237513%_ - (lambda (_%L34768%_) - (_%parse133438%_ _%L34768%_))) - (_%__kont3751437515%_ + _%__stx3754537546%_)))) + (let ((_%__kont3754837549%_ + (lambda (_%L34804%_) + (_%parse133474%_ _%L34804%_))) + (_%__kont3755037551%_ (lambda () (cons 'or: (gx#stx-map - _%parse133438%_ - _%L34717%_))))) - (if (gx#stx-pair? _%__stx3750937510%_) - (let ((_%e3473234758%_ + _%parse133474%_ + _%L34753%_))))) + (if (gx#stx-pair? _%__stx3754537546%_) + (let ((_%e3476834794%_ (gx#syntax-e - _%__stx3750937510%_))) - (let ((_%tl3473434765%_ + _%__stx3754537546%_))) + (let ((_%tl3477034801%_ (let () (declare (not safe)) - (##cdr _%e3473234758%_))) - (_%hd3473334762%_ + (##cdr _%e3476834794%_))) + (_%hd3476934798%_ (let () (declare (not safe)) - (##car _%e3473234758%_)))) - (if (gx#stx-null? _%tl3473434765%_) - (_%__kont3751237513%_ - _%hd3473334762%_) - (_%__kont3751437515%_)))) - (_%__kont3751437515%_)))))) - (_%__kont3763437635%_ - (lambda (_%L34687%_) + (##car _%e3476834794%_)))) + (if (gx#stx-null? _%tl3477034801%_) + (_%__kont3754837549%_ + _%hd3476934798%_) + (_%__kont3755037551%_)))) + (_%__kont3755037551%_)))))) + (_%__kont3767037671%_ + (lambda (_%L34723%_) (cons 'not: - (cons (_%parse133438%_ _%L34687%_) '())))) - (_%__kont3763637637%_ - (lambda (_%L34643%_ _%L34645%_) + (cons (_%parse133474%_ _%L34723%_) '())))) + (_%__kont3767237673%_ + (lambda (_%L34679%_ _%L34681%_) (cons 'cons: - (cons (_%parse133438%_ _%L34645%_) - (cons (_%parse133438%_ _%L34643%_) + (cons (_%parse133474%_ _%L34681%_) + (cons (_%parse133474%_ _%L34679%_) '()))))) - (_%__kont3763837639%_ - (lambda (_%L34587%_ _%L34589%_ _%L34590%_) - (if (gx#stx-null? _%L34587%_) + (_%__kont3767437675%_ + (lambda (_%L34623%_ _%L34625%_ _%L34626%_) + (if (gx#stx-null? _%L34623%_) (cons 'cons: - (cons (_%parse133438%_ _%L34590%_) - (cons (_%parse133438%_ - _%L34589%_) + (cons (_%parse133474%_ _%L34626%_) + (cons (_%parse133474%_ + _%L34625%_) '()))) (cons 'cons: - (cons (_%parse133438%_ _%L34590%_) - (cons (_%parse133438%_ + (cons (_%parse133474%_ _%L34626%_) + (cons (_%parse133474%_ (cons (gx#datum->syntax '#f 'cons*) - (cons _%L34589%_ + (cons _%L34625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L34587%_))) + _%L34623%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont3764037641%_ - (lambda (_%L34539%_) - (_%parse-list33440%_ _%L34539%_))) - (_%__kont3764237643%_ - (lambda (_%L34509%_) + (_%__kont3767637677%_ + (lambda (_%L34575%_) + (_%parse-list33476%_ _%L34575%_))) + (_%__kont3767837679%_ + (lambda (_%L34545%_) (cons 'box: - (cons (_%parse133438%_ _%L34509%_) '())))) - (_%__kont3764437645%_ - (lambda (_%L34472%_) + (cons (_%parse133474%_ _%L34545%_) '())))) + (_%__kont3768037681%_ + (lambda (_%L34508%_) (cons 'box: - (cons (_%parse133438%_ _%L34472%_) '())))) - (_%__kont3764637647%_ - (lambda (_%L34448%_) - (_%parse133438%_ _%L34448%_))) - (_%__kont3764837649%_ - (lambda (_%L34410%_) + (cons (_%parse133474%_ _%L34508%_) '())))) + (_%__kont3768237683%_ + (lambda (_%L34484%_) + (_%parse133474%_ _%L34484%_))) + (_%__kont3768437685%_ + (lambda (_%L34446%_) (cons 'values: - (cons (_%parse-vector33441%_ _%L34410%_) + (cons (_%parse-vector33477%_ _%L34446%_) '())))) - (_%__kont3765037651%_ - (lambda (_%L34382%_) + (_%__kont3768637687%_ + (lambda (_%L34418%_) (cons 'vector: - (cons (_%parse-vector33441%_ _%L34382%_) + (cons (_%parse-vector33477%_ _%L34418%_) '())))) - (_%__kont3765237653%_ - (lambda (_%L34343%_) + (_%__kont3768837689%_ + (lambda (_%L34379%_) (cons 'vector: - (cons (_%parse-vector33441%_ - (foldr (lambda (_%g3435634359%_ - _%g3435734362%_) - (cons _%g3435634359%_ - _%g3435734362%_)) + (cons (_%parse-vector33477%_ + (foldr (lambda (_%g3439234395%_ + _%g3439334398%_) + (cons _%g3439234395%_ + _%g3439334398%_)) '() - _%L34343%_)) + _%L34379%_)) '())))) - (_%__kont3765637657%_ - (lambda (_%L34289%_ _%L34291%_) + (_%__kont3769237693%_ + (lambda (_%L34325%_ _%L34327%_) (cons 'struct: - (cons (gx#syntax-local-value _%L34291%_) - (cons (_%parse-vector33441%_ - _%L34289%_) + (cons (gx#syntax-local-value _%L34327%_) + (cons (_%parse-vector33477%_ + _%L34325%_) '()))))) - (_%__kont3765837659%_ - (lambda (_%L34259%_ _%L34261%_) + (_%__kont3769437695%_ + (lambda (_%L34295%_ _%L34297%_) (cons 'class: - (cons (gx#syntax-local-value _%L34261%_) - (cons (_%parse-class-body33443%_ - _%L34259%_) + (cons (gx#syntax-local-value _%L34297%_) + (cons (_%parse-class-body33479%_ + _%L34295%_) '()))))) - (_%__kont3766037661%_ - (lambda (_%L34219%_ _%L34221%_) + (_%__kont3769637697%_ + (lambda (_%L34255%_ _%L34257%_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L34221%_ + (cons _%L34257%_ (cons (gx#datum->syntax '#f '<>) - (cons _%L34219%_ + (cons _%L34255%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%__kont3766237663%_ - (lambda (_%L34179%_) + (_%__kont3769837699%_ + (lambda (_%L34215%_) (cons 'datum: - (cons (gx#stx-e _%L34179%_) '())))) - (_%__kont3766437665%_ - (lambda (_%L34139%_) - (_%parse-qq33444%_ _%L34139%_))) - (_%__kont3766637667%_ - (lambda (_%L34095%_ _%L34097%_) + (cons (gx#stx-e _%L34215%_) '())))) + (_%__kont3770037701%_ + (lambda (_%L34175%_) + (_%parse-qq33480%_ _%L34175%_))) + (_%__kont3770237703%_ + (lambda (_%L34131%_ _%L34133%_) (cons 'apply: - (cons _%L34097%_ - (cons (_%parse133438%_ _%L34095%_) + (cons _%L34133%_ + (cons (_%parse133474%_ _%L34131%_) '()))))) - (_%__kont3766837669%_ - (lambda (_%L34043%_) - (_%parse133438%_ + (_%__kont3770437705%_ + (lambda (_%L34079%_) + (_%parse133474%_ (gx#core-apply-expander - (gx#syntax-local-e _%L34043%_) + (gx#syntax-local-e _%L34079%_) (gx#stx-wrap-source - (cons 'match: _%hd33797%_) - (let ((_%$e34054%_ - (gx#stx-source _%hd33797%_))) - (if _%$e34054%_ - _%$e34054%_ - (gx#stx-source _%stx33434%_)))))))) - (_%__kont3767037671%_ - (lambda (_%L34017%_) (cons 'any: '()))) - (_%__kont3767237673%_ - (lambda (_%L34001%_) - (cons 'var: (cons _%L34001%_ '())))) - (_%__kont3767437675%_ - (lambda (_%L33983%_) + (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 'datum: - (cons (gx#stx-e _%L33983%_) '())))) - (_%__kont3767637677%_ - (lambda () (_%parse-error33445%_ _%hd33797%_)))) - (let* ((_%g3382133994%_ + (cons (gx#stx-e _%L34019%_) '())))) + (_%__kont3771237713%_ + (lambda () (_%parse-error33481%_ _%hd33833%_)))) + (let* ((_%g3385734030%_ (lambda () - (let ((_%L33983%_ _%__stx3762537626%_)) - (if (gx#stx-datum? _%L33983%_) - (_%__kont3767437675%_ _%L33983%_) - (_%__kont3767637677%_))))) - (_%g3382034010%_ + (let ((_%L34019%_ _%__stx3766137662%_)) + (if (gx#stx-datum? _%L34019%_) + (_%__kont3771037711%_ _%L34019%_) + (_%__kont3771237713%_))))) + (_%g3385634046%_ (lambda () - (let ((_%L34001%_ _%__stx3762537626%_)) - (if (and (gx#identifier? _%L34001%_) - (not (gx#ellipsis? _%L34001%_))) - (_%__kont3767237673%_ _%L34001%_) + (let ((_%L34037%_ _%__stx3766137662%_)) + (if (and (gx#identifier? _%L34037%_) + (not (gx#ellipsis? _%L34037%_))) + (_%__kont3770837709%_ _%L34037%_) (let () (declare (not safe)) - (_%g3382133994%_)))))) - (_%g3381934026%_ + (_%g3385734030%_)))))) + (_%g3385534062%_ (lambda () - (let ((_%L34017%_ _%__stx3762537626%_)) - (if (gx#underscore? _%L34017%_) - (_%__kont3767037671%_ _%L34017%_) + (let ((_%L34053%_ _%__stx3766137662%_)) + (if (gx#underscore? _%L34053%_) + (_%__kont3770637707%_ _%L34053%_) (let () (declare (not safe)) - (_%g3382034010%_)))))) - (_%__match3795237953%_ - (lambda (_%e3395434033%_ - _%hd3395534037%_ - _%tl3395634040%_) - (let ((_%L34043%_ _%hd3395534037%_)) + (_%g3385634046%_)))))) + (_%__match3798837989%_ + (lambda (_%e3399034069%_ + _%hd3399134073%_ + _%tl3399234076%_) + (let ((_%L34079%_ _%hd3399134073%_)) (if (|gerbil/core/match[1]#syntax-local-match-macro?| - _%L34043%_) - (_%__kont3766837669%_ _%L34043%_) + _%L34079%_) + (_%__kont3770437705%_ _%L34079%_) (let () (declare (not safe)) - (_%g3381934026%_)))))) - (_%__match3788637887%_ - (lambda (_%e3392234199%_ - _%hd3392334203%_ - _%tl3392434206%_ - _%e3392534209%_ - _%hd3392634213%_ - _%tl3392734216%_) - (let ((_%L34219%_ _%hd3392634213%_) - (_%L34221%_ _%hd3392334203%_)) - (if (and (gx#identifier? _%L34221%_) + (_%g3385534062%_)))))) + (_%__match3792237923%_ + (lambda (_%e3395834235%_ + _%hd3395934239%_ + _%tl3396034242%_ + _%e3396134245%_ + _%hd3396234249%_ + _%tl3396334252%_) + (let ((_%L34255%_ _%hd3396234249%_) + (_%L34257%_ _%hd3395934239%_)) + (if (and (gx#identifier? _%L34257%_) (or (gx#free-identifier=? - _%L34221%_ + _%L34257%_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _%L34221%_ + _%L34257%_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _%L34221%_ + _%L34257%_ (gx#datum->syntax '#f 'equal?)))) - (_%__kont3766037661%_ - _%L34219%_ - _%L34221%_) - (if (gx#identifier? _%hd3392334203%_) + (_%__kont3769637697%_ + _%L34255%_ + _%L34257%_) + (if (gx#identifier? _%hd3395934239%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39840_| - _%hd3392334203%_) - (_%__kont3766237663%_ - _%hd3392634213%_) + |gerbil/core/match[1]#_g39876_| + _%hd3395934239%_) + (_%__kont3769837699%_ + _%hd3396234249%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39841_| - _%hd3392334203%_) - (_%__kont3766437665%_ - _%hd3392634213%_) - (_%__match3795237953%_ - _%e3392234199%_ - _%hd3392334203%_ - _%tl3392434206%_))) - (_%__match3795237953%_ - _%e3392234199%_ - _%hd3392334203%_ - _%tl3392434206%_)))))) - (_%__match3787237873%_ - (lambda (_%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_) - (let ((_%L34259%_ _%tl3391934256%_) - (_%L34261%_ _%hd3391834253%_)) + |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%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L34261%_)) - (_%__kont3765837659%_ - _%L34259%_ - _%L34261%_) - (if (gx#stx-pair? _%tl3391934256%_) - (let ((_%e3392534209%_ + _%L34297%_)) + (_%__kont3769437695%_ + _%L34295%_ + _%L34297%_) + (if (gx#stx-pair? _%tl3395534292%_) + (let ((_%e3396134245%_ (gx#syntax-e - _%tl3391934256%_))) - (let ((_%tl3392734216%_ + _%tl3395534292%_))) + (let ((_%tl3396334252%_ (let () (declare (not safe)) - (##cdr _%e3392534209%_))) - (_%hd3392634213%_ + (##cdr _%e3396134245%_))) + (_%hd3396234249%_ (let () (declare (not safe)) - (##car _%e3392534209%_)))) + (##car _%e3396134245%_)))) (if (gx#stx-null? - _%tl3392734216%_) - (_%__match3788637887%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_ - _%e3392534209%_ - _%hd3392634213%_ - _%tl3392734216%_) + _%tl3396334252%_) + (_%__match3792237923%_ + _%e3395334285%_ + _%hd3395434289%_ + _%tl3395534292%_ + _%e3396134245%_ + _%hd3396234249%_ + _%tl3396334252%_) (if (gx#identifier? - _%hd3391834253%_) + _%hd3395434289%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39840_| - _%hd3391834253%_) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_) + |gerbil/core/match[1]#_g39876_| + _%hd3395434289%_) + (_%__match3798837989%_ + _%e3395334285%_ + _%hd3395434289%_ + _%tl3395534292%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39841_| - _%hd3391834253%_) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_) + |gerbil/core/match[1]#_g39877_| + _%hd3395434289%_) + (_%__match3798837989%_ + _%e3395334285%_ + _%hd3395434289%_ + _%tl3395534292%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39842_| - _%hd3391834253%_) - (if (gx#stx-pair? _%tl3392734216%_) - (let ((_%e3395034085%_ - (gx#syntax-e _%tl3392734216%_))) - (let ((_%tl3395234092%_ + |gerbil/core/match[1]#_g39878_| + _%hd3395434289%_) + (if (gx#stx-pair? _%tl3396334252%_) + (let ((_%e3398634121%_ + (gx#syntax-e _%tl3396334252%_))) + (let ((_%tl3398834128%_ (let () (declare (not safe)) - (##cdr _%e3395034085%_))) - (_%hd3395134089%_ + (##cdr _%e3398634121%_))) + (_%hd3398734125%_ (let () (declare (not safe)) - (##car _%e3395034085%_)))) - (if (gx#stx-null? _%tl3395234092%_) - (_%__kont3766637667%_ - _%hd3395134089%_ - _%hd3392634213%_) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)))) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)))) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)))))) - (_%__match3786637867%_ - (lambda (_%e3391234279%_ - _%hd3391334283%_ - _%tl3391434286%_) - (let ((_%L34289%_ _%tl3391434286%_) - (_%L34291%_ _%hd3391334283%_)) + (_%__match3798837989%_ + _%e3395334285%_ + _%hd3395434289%_ + _%tl3395534292%_)))))) + (_%__match3790237903%_ + (lambda (_%e3394834315%_ + _%hd3394934319%_ + _%tl3395034322%_) + (let ((_%L34325%_ _%tl3395034322%_) + (_%L34327%_ _%hd3394934319%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%L34291%_ + _%L34327%_ gerbil/core/mop~MOP-2#!class-type-struct?)) - (_%__kont3765637657%_ - _%L34289%_ - _%L34291%_) - (_%__match3787237873%_ - _%e3391234279%_ - _%hd3391334283%_ - _%tl3391434286%_))))) - (_%__match3786037861%_ - (lambda (_%e3390034309%_ - _%__splice3765437655%_ - _%target3390134313%_ - _%tl3390334316%_) - (letrec ((_%loop3390434319%_ - (lambda (_%hd3390234323%_ - _%body3390834326%_) + (_%__kont3769237693%_ + _%L34325%_ + _%L34327%_) + (_%__match3790837909%_ + _%e3394834315%_ + _%hd3394934319%_ + _%tl3395034322%_))))) + (_%__match3789637897%_ + (lambda (_%e3393634345%_ + _%__splice3769037691%_ + _%target3393734349%_ + _%tl3393934352%_) + (letrec ((_%loop3394034355%_ + (lambda (_%hd3393834359%_ + _%body3394434362%_) (if (gx#stx-pair? - _%hd3390234323%_) - (let ((_%e3390534329%_ + _%hd3393834359%_) + (let ((_%e3394134365%_ (gx#syntax-e - _%hd3390234323%_))) - (let ((_%lp-tl3390734336%_ + _%hd3393834359%_))) + (let ((_%lp-tl3394334372%_ (let () (declare (not safe)) - (##cdr _%e3390534329%_))) - (_%lp-hd3390634333%_ + (##cdr _%e3394134365%_))) + (_%lp-hd3394234369%_ (let () (declare (not safe)) - (##car _%e3390534329%_)))) - (_%loop3390434319%_ - _%lp-tl3390734336%_ - (cons _%lp-hd3390634333%_ - _%body3390834326%_)))) - (let ((_%body3390934339%_ - (reverse _%body3390834326%_))) - (_%__kont3765237653%_ - _%body3390934339%_)))))) - (_%loop3390434319%_ - _%target3390134313%_ + (##car _%e3394134365%_)))) + (_%loop3394034355%_ + _%lp-tl3394334372%_ + (cons _%lp-hd3394234369%_ + _%body3394434362%_)))) + (let ((_%body3394534375%_ + (reverse _%body3394434362%_))) + (_%__kont3768837689%_ + _%body3394534375%_)))))) + (_%loop3394034355%_ + _%target3393734349%_ '())))) - (_%g3381134365%_ + (_%g3384734401%_ (lambda () - (if (gx#stx-vector? _%__stx3762537626%_) - (let ((_%e3390034309%_ + (if (gx#stx-vector? _%__stx3766137662%_) + (let ((_%e3393634345%_ (vector->list (gx#syntax-e - _%__stx3762537626%_)))) - (if (gx#stx-pair/null? _%e3390034309%_) - (let ((_%__splice3765437655%_ + _%__stx3766137662%_)))) + (if (gx#stx-pair/null? _%e3393634345%_) + (let ((_%__splice3769037691%_ (gx#syntax-split-splice - _%e3390034309%_ + _%e3393634345%_ '0))) - (let ((_%tl3390334316%_ + (let ((_%tl3393934352%_ (let () (declare (not safe)) (##vector-ref - _%__splice3765437655%_ + _%__splice3769037691%_ '1))) - (_%target3390134313%_ + (_%target3393734349%_ (let () (declare (not safe)) (##vector-ref - _%__splice3765437655%_ + _%__splice3769037691%_ '0)))) (if (gx#stx-null? - _%tl3390334316%_) - (_%__match3786037861%_ - _%e3390034309%_ - _%__splice3765437655%_ - _%target3390134313%_ - _%tl3390334316%_) + _%tl3393934352%_) + (_%__match3789637897%_ + _%e3393634345%_ + _%__splice3769037691%_ + _%target3393734349%_ + _%tl3393934352%_) (let () (declare (not safe)) - (_%g3381934026%_))))) + (_%g3385534062%_))))) (let () (declare (not safe)) - (_%g3381934026%_)))) + (_%g3385534062%_)))) (let () (declare (not safe)) - (_%g3381934026%_))))) - (_%g3380734482%_ + (_%g3385534062%_))))) + (_%g3384334518%_ (lambda () - (if (gx#stx-box? _%__stx3762537626%_) - (let ((_%e3388334468%_ + (if (gx#stx-box? _%__stx3766137662%_) + (let ((_%e3391934504%_ (unbox (gx#syntax-e - _%__stx3762537626%_)))) - (_%__kont3764437645%_ _%e3388334468%_)) + _%__stx3766137662%_)))) + (_%__kont3768037681%_ _%e3391934504%_)) (let () (declare (not safe)) - (_%g3381134365%_))))) - (_%__match3771437715%_ - (lambda (_%e3383834707%_ - _%hd3383934711%_ - _%tl3384034714%_) - (let ((_%L34717%_ _%tl3384034714%_)) - (if (gx#stx-list? _%L34717%_) - (_%__kont3763237633%_ _%L34717%_) - (_%__match3786637867%_ - _%e3383834707%_ - _%hd3383934711%_ - _%tl3384034714%_))))) - (_%__match3770437705%_ - (lambda (_%e3383434792%_ - _%hd3383534796%_ - _%tl3383634799%_) - (let ((_%L34802%_ _%tl3383634799%_)) - (if (gx#stx-list? _%L34802%_) - (_%__kont3763037631%_ _%L34802%_) - (_%__match3786637867%_ - _%e3383434792%_ - _%hd3383534796%_ - _%tl3383634799%_)))))) - (if (gx#stx-pair? _%__stx3762537626%_) - (let ((_%e3382734877%_ - (gx#syntax-e _%__stx3762537626%_))) - (let ((_%tl3382934884%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3382734877%_))) - (_%hd3382834881%_ + (##cdr _%e3386334913%_))) + (_%hd3386434917%_ (let () (declare (not safe)) - (##car _%e3382734877%_)))) - (if (gx#identifier? _%hd3382834881%_) + (##car _%e3386334913%_)))) + (if (gx#identifier? _%hd3386434917%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39843_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3383034887%_ + |gerbil/core/match[1]#_g39879_| + _%hd3386434917%_) + (if (gx#stx-pair? _%tl3386534920%_) + (let ((_%e3386634923%_ (gx#syntax-e - _%tl3382934884%_))) - (let ((_%tl3383234894%_ + _%tl3386534920%_))) + (let ((_%tl3386834930%_ (let () (declare (not safe)) - (##cdr _%e3383034887%_))) - (_%hd3383134891%_ + (##cdr _%e3386634923%_))) + (_%hd3386734927%_ (let () (declare (not safe)) - (##car _%e3383034887%_)))) - (_%__kont3762837629%_ - _%tl3383234894%_ - _%hd3383134891%_))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3386634923%_)))) + (_%__kont3766437665%_ + _%tl3386834930%_ + _%hd3386734927%_))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39844_| - _%hd3382834881%_) - (_%__match3770437705%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_) + |gerbil/core/match[1]#_g39880_| + _%hd3386434917%_) + (_%__match3774037741%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39845_| - _%hd3382834881%_) - (_%__match3771437715%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_) + |gerbil/core/match[1]#_g39881_| + _%hd3386434917%_) + (_%__match3775037751%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39846_| - _%hd3382834881%_) + |gerbil/core/match[1]#_g39882_| + _%hd3386434917%_) (if (gx#stx-pair? - _%tl3382934884%_) - (let ((_%e3384534677%_ + _%tl3386534920%_) + (let ((_%e3388134713%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3384734684%_ + (gx#syntax-e _%tl3386534920%_))) + (let ((_%tl3388334720%_ (let () (declare (not safe)) - (##cdr _%e3384534677%_))) - (_%hd3384634681%_ + (##cdr _%e3388134713%_))) + (_%hd3388234717%_ (let () (declare (not safe)) - (##car _%e3384534677%_)))) - (if (gx#stx-null? _%tl3384734684%_) - (_%__kont3763437635%_ _%hd3384634681%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3388134713%_)))) + (if (gx#stx-null? _%tl3388334720%_) + (_%__kont3767037671%_ _%hd3388234717%_) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39847_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3385334623%_ (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3385534630%_ + |gerbil/core/match[1]#_g39883_| + _%hd3386434917%_) + (if (gx#stx-pair? _%tl3386534920%_) + (let ((_%e3388934659%_ (gx#syntax-e _%tl3386534920%_))) + (let ((_%tl3389134666%_ (let () (declare (not safe)) - (##cdr _%e3385334623%_))) - (_%hd3385434627%_ + (##cdr _%e3388934659%_))) + (_%hd3389034663%_ (let () (declare (not safe)) - (##car _%e3385334623%_)))) - (if (gx#stx-pair? _%tl3385534630%_) - (let ((_%e3385634633%_ - (gx#syntax-e _%tl3385534630%_))) - (let ((_%tl3385834640%_ + (##car _%e3388934659%_)))) + (if (gx#stx-pair? _%tl3389134666%_) + (let ((_%e3389234669%_ + (gx#syntax-e _%tl3389134666%_))) + (let ((_%tl3389434676%_ (let () (declare (not safe)) - (##cdr _%e3385634633%_))) - (_%hd3385734637%_ + (##cdr _%e3389234669%_))) + (_%hd3389334673%_ (let () (declare (not safe)) - (##car _%e3385634633%_)))) - (if (gx#stx-null? _%tl3385834640%_) - (_%__kont3763637637%_ - _%hd3385734637%_ - _%hd3385434627%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3389234669%_)))) + (if (gx#stx-null? _%tl3389434676%_) + (_%__kont3767237673%_ + _%hd3389334673%_ + _%hd3389034663%_) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39848_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3386534567%_ - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3386734574%_ + |gerbil/core/match[1]#_g39884_| + _%hd3386434917%_) + (if (gx#stx-pair? _%tl3386534920%_) + (let ((_%e3390134603%_ + (gx#syntax-e _%tl3386534920%_))) + (let ((_%tl3390334610%_ (let () (declare (not safe)) - (##cdr _%e3386534567%_))) - (_%hd3386634571%_ + (##cdr _%e3390134603%_))) + (_%hd3390234607%_ (let () (declare (not safe)) - (##car _%e3386534567%_)))) - (if (gx#stx-pair? _%tl3386734574%_) - (let ((_%e3386834577%_ - (gx#syntax-e _%tl3386734574%_))) - (let ((_%tl3387034584%_ + (##car _%e3390134603%_)))) + (if (gx#stx-pair? _%tl3390334610%_) + (let ((_%e3390434613%_ + (gx#syntax-e _%tl3390334610%_))) + (let ((_%tl3390634620%_ (let () (declare (not safe)) - (##cdr _%e3386834577%_))) - (_%hd3386934581%_ + (##cdr _%e3390434613%_))) + (_%hd3390534617%_ (let () (declare (not safe)) - (##car _%e3386834577%_)))) - (_%__kont3763837639%_ - _%tl3387034584%_ - _%hd3386934581%_ - _%hd3386634571%_))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3390434613%_)))) + (_%__kont3767437675%_ + _%tl3390634620%_ + _%hd3390534617%_ + _%hd3390234607%_))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39849_| - _%hd3382834881%_) - (_%__kont3764037641%_ _%tl3382934884%_) + |gerbil/core/match[1]#_g39885_| + _%hd3386434917%_) + (_%__kont3767637677%_ _%tl3386534920%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39850_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3387934499%_ - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3388134506%_ + |gerbil/core/match[1]#_g39886_| + _%hd3386434917%_) + (if (gx#stx-pair? _%tl3386534920%_) + (let ((_%e3391534535%_ + (gx#syntax-e _%tl3386534920%_))) + (let ((_%tl3391734542%_ (let () (declare (not safe)) - (##cdr _%e3387934499%_))) - (_%hd3388034503%_ + (##cdr _%e3391534535%_))) + (_%hd3391634539%_ (let () (declare (not safe)) - (##car _%e3387934499%_)))) - (if (gx#stx-null? _%tl3388134506%_) - (_%__kont3764237643%_ - _%hd3388034503%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3391534535%_)))) + (if (gx#stx-null? _%tl3391734542%_) + (_%__kont3767837679%_ + _%hd3391634539%_) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39851_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3388834438%_ - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3389034445%_ + |gerbil/core/match[1]#_g39887_| + _%hd3386434917%_) + (if (gx#stx-pair? _%tl3386534920%_) + (let ((_%e3392434474%_ + (gx#syntax-e _%tl3386534920%_))) + (let ((_%tl3392634481%_ (let () (declare (not safe)) - (##cdr _%e3388834438%_))) - (_%hd3388934442%_ + (##cdr _%e3392434474%_))) + (_%hd3392534478%_ (let () (declare (not safe)) - (##car _%e3388834438%_)))) - (if (gx#stx-null? _%tl3389034445%_) - (_%__kont3764637647%_ - _%hd3388934442%_) - (_%__kont3764837649%_ - _%tl3382934884%_)))) - (_%__kont3764837649%_ _%tl3382934884%_)) + (##car _%e3392434474%_)))) + (if (gx#stx-null? _%tl3392634481%_) + (_%__kont3768237683%_ + _%hd3392534478%_) + (_%__kont3768437685%_ + _%tl3386534920%_)))) + (_%__kont3768437685%_ _%tl3386534920%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39852_| - _%hd3382834881%_) - (_%__kont3765037651%_ _%tl3382934884%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_))))))))))) + |gerbil/core/match[1]#_g39888_| + _%hd3386434917%_) + (_%__kont3768637687%_ _%tl3386534920%_) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) + (_%__match3790237903%_ + _%e3386334913%_ + _%hd3386434917%_ + _%tl3386534920%_)))) (let () (declare (not safe)) - (_%g3380734482%_)))))))) - (_%parse-list33440%_ - (lambda (_%body33620%_) - (let* ((_%__stx3795537956%_ _%body33620%_) - (_%g3362633655%_ + (_%g3384334518%_)))))))) + (_%parse-list33476%_ + (lambda (_%body33656%_) + (let* ((_%__stx3799137992%_ _%body33656%_) + (_%g3366233691%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3795537956%_)))) - (let ((_%__kont3795837959%_ - (lambda (_%L33779%_) - (_%parse133438%_ _%L33779%_))) - (_%__kont3796037961%_ - (lambda (_%L33731%_ _%L33733%_ _%L33734%_) + _%__stx3799137992%_)))) + (let ((_%__kont3799437995%_ + (lambda (_%L33815%_) + (_%parse133474%_ _%L33815%_))) + (_%__kont3799637997%_ + (lambda (_%L33767%_ _%L33769%_ _%L33770%_) (cons 'splice: - (cons (_%parse133438%_ _%L33734%_) - (cons (_%parse-list33440%_ - _%L33731%_) + (cons (_%parse133474%_ _%L33770%_) + (cons (_%parse-list33476%_ + _%L33767%_) '()))))) - (_%__kont3796237963%_ - (lambda (_%L33689%_ _%L33691%_) + (_%__kont3799837999%_ + (lambda (_%L33725%_ _%L33727%_) (cons 'cons: - (cons (_%parse133438%_ _%L33691%_) - (cons (_%parse-list33440%_ - _%L33689%_) + (cons (_%parse133474%_ _%L33727%_) + (cons (_%parse-list33476%_ + _%L33725%_) '()))))) - (_%__kont3796437965%_ + (_%__kont3800038001%_ (lambda () - (if (gx#stx-null? _%body33620%_) + (if (gx#stx-null? _%body33656%_) (cons 'null: '()) - (if (gx#stx-pair? _%body33620%_) - (_%parse-error33445%_ _%body33620%_) - (_%parse133438%_ _%body33620%_)))))) - (let* ((_%__match3800438005%_ - (lambda (_%e3364733679%_ - _%hd3364833683%_ - _%tl3364933686%_) - (let ((_%L33689%_ _%tl3364933686%_) - (_%L33691%_ _%hd3364833683%_)) - (if (gx#ellipsis? _%L33691%_) - (_%__kont3796437965%_) - (_%__kont3796237963%_ - _%L33689%_ - _%L33691%_))))) - (_%__match3799837999%_ - (lambda (_%e3363933711%_ - _%hd3364033715%_ - _%tl3364133718%_ - _%e3364233721%_ - _%hd3364333725%_ - _%tl3364433728%_) - (let ((_%L33731%_ _%tl3364433728%_) - (_%L33733%_ _%hd3364333725%_) - (_%L33734%_ _%hd3364033715%_)) - (if (gx#ellipsis? _%L33733%_) - (_%__kont3796037961%_ - _%L33731%_ - _%L33733%_ - _%L33734%_) - (_%__match3800438005%_ - _%e3363933711%_ - _%hd3364033715%_ - _%tl3364133718%_)))))) - (if (gx#stx-pair? _%__stx3795537956%_) - (let ((_%e3362933755%_ - (gx#syntax-e _%__stx3795537956%_))) - (let ((_%tl3363133762%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e3362933755%_))) - (_%hd3363033759%_ + (##cdr _%e3366533791%_))) + (_%hd3366633795%_ (let () (declare (not safe)) - (##car _%e3362933755%_)))) - (if (gx#stx-datum? _%hd3363033759%_) - (let ((_%e3363233765%_ - (gx#stx-e _%hd3363033759%_))) - (if (equal? _%e3363233765%_ '::) - (if (gx#stx-pair? _%tl3363133762%_) - (let ((_%e3363333769%_ + (##car _%e3366533791%_)))) + (if (gx#stx-datum? _%hd3366633795%_) + (let ((_%e3366833801%_ + (gx#stx-e _%hd3366633795%_))) + (if (equal? _%e3366833801%_ '::) + (if (gx#stx-pair? _%tl3366733798%_) + (let ((_%e3366933805%_ (gx#syntax-e - _%tl3363133762%_))) - (let ((_%tl3363533776%_ + _%tl3366733798%_))) + (let ((_%tl3367133812%_ (let () (declare (not safe)) - (##cdr _%e3363333769%_))) - (_%hd3363433773%_ + (##cdr _%e3366933805%_))) + (_%hd3367033809%_ (let () (declare (not safe)) - (##car _%e3363333769%_)))) + (##car _%e3366933805%_)))) (if (gx#stx-null? - _%tl3363533776%_) - (_%__kont3795837959%_ - _%hd3363433773%_) - (_%__match3799837999%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_ - _%e3363333769%_ - _%hd3363433773%_ - _%tl3363533776%_)))) - (_%__match3800438005%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_)) - (if (gx#stx-pair? _%tl3363133762%_) - (let ((_%e3364233721%_ + _%tl3367133812%_) + (_%__kont3799437995%_ + _%hd3367033809%_) + (_%__match3803438035%_ + _%e3366533791%_ + _%hd3366633795%_ + _%tl3366733798%_ + _%e3366933805%_ + _%hd3367033809%_ + _%tl3367133812%_)))) + (_%__match3804038041%_ + _%e3366533791%_ + _%hd3366633795%_ + _%tl3366733798%_)) + (if (gx#stx-pair? _%tl3366733798%_) + (let ((_%e3367833757%_ (gx#syntax-e - _%tl3363133762%_))) - (let ((_%tl3364433728%_ + _%tl3366733798%_))) + (let ((_%tl3368033764%_ (let () (declare (not safe)) - (##cdr _%e3364233721%_))) - (_%hd3364333725%_ + (##cdr _%e3367833757%_))) + (_%hd3367933761%_ (let () (declare (not safe)) - (##car _%e3364233721%_)))) - (_%__match3799837999%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_ - _%e3364233721%_ - _%hd3364333725%_ - _%tl3364433728%_))) - (_%__match3800438005%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_)))) - (if (gx#stx-pair? _%tl3363133762%_) - (let ((_%e3364233721%_ + (##car _%e3367833757%_)))) + (_%__match3803438035%_ + _%e3366533791%_ + _%hd3366633795%_ + _%tl3366733798%_ + _%e3367833757%_ + _%hd3367933761%_ + _%tl3368033764%_))) + (_%__match3804038041%_ + _%e3366533791%_ + _%hd3366633795%_ + _%tl3366733798%_)))) + (if (gx#stx-pair? _%tl3366733798%_) + (let ((_%e3367833757%_ (gx#syntax-e - _%tl3363133762%_))) - (let ((_%tl3364433728%_ + _%tl3366733798%_))) + (let ((_%tl3368033764%_ (let () (declare (not safe)) - (##cdr _%e3364233721%_))) - (_%hd3364333725%_ + (##cdr _%e3367833757%_))) + (_%hd3367933761%_ (let () (declare (not safe)) - (##car _%e3364233721%_)))) - (_%__match3799837999%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_ - _%e3364233721%_ - _%hd3364333725%_ - _%tl3364433728%_))) - (_%__match3800438005%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_))))) - (_%__kont3796437965%_))))))) - (_%parse-vector33441%_ - (lambda (_%body33617%_) - (if (_%simple-vector?33442%_ _%body33617%_) + (##car _%e3367833757%_)))) + (_%__match3803438035%_ + _%e3366533791%_ + _%hd3366633795%_ + _%tl3366733798%_ + _%e3367833757%_ + _%hd3367933761%_ + _%tl3368033764%_))) + (_%__match3804038041%_ + _%e3366533791%_ + _%hd3366633795%_ + _%tl3366733798%_))))) + (_%__kont3800038001%_))))))) + (_%parse-vector33477%_ + (lambda (_%body33653%_) + (if (_%simple-vector?33478%_ _%body33653%_) (cons 'simple: - (cons (gx#stx-map _%parse133438%_ _%body33617%_) + (cons (gx#stx-map _%parse133474%_ _%body33653%_) '())) (cons 'list: - (cons (_%parse-list33440%_ _%body33617%_) + (cons (_%parse-list33476%_ _%body33653%_) '()))))) - (_%simple-vector?33442%_ - (lambda (_%body33554%_) - (let* ((_%__stx3800738008%_ _%body33554%_) - (_%g3355833570%_ + (_%simple-vector?33478%_ + (lambda (_%body33590%_) + (let* ((_%__stx3804338044%_ _%body33590%_) + (_%g3359433606%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3800738008%_)))) - (let ((_%__kont3801038011%_ - (lambda (_%L33598%_ _%L33600%_) - (if (gx#ellipsis? _%L33600%_) + _%__stx3804338044%_)))) + (let ((_%__kont3804638047%_ + (lambda (_%L33634%_ _%L33636%_) + (if (gx#ellipsis? _%L33636%_) '#f - (_%simple-vector?33442%_ _%L33598%_)))) - (_%__kont3801238013%_ - (lambda () (gx#stx-null? _%body33554%_)))) - (if (gx#stx-pair? _%__stx3800738008%_) - (let ((_%e3356233588%_ - (gx#syntax-e _%__stx3800738008%_))) - (let ((_%tl3356433595%_ + (_%simple-vector?33478%_ _%L33634%_)))) + (_%__kont3804838049%_ + (lambda () (gx#stx-null? _%body33590%_)))) + (if (gx#stx-pair? _%__stx3804338044%_) + (let ((_%e3359833624%_ + (gx#syntax-e _%__stx3804338044%_))) + (let ((_%tl3360033631%_ (let () (declare (not safe)) - (##cdr _%e3356233588%_))) - (_%hd3356333592%_ + (##cdr _%e3359833624%_))) + (_%hd3359933628%_ (let () (declare (not safe)) - (##car _%e3356233588%_)))) - (_%__kont3801038011%_ - _%tl3356433595%_ - _%hd3356333592%_))) - (_%__kont3801238013%_)))))) - (_%parse-class-body33443%_ - (lambda (_%body33463%_) - (let _%recur33466%_ ((_%rest33469%_ _%body33463%_)) - (let* ((_%__stx3802338024%_ _%rest33469%_) - (_%g3347333489%_ + (##car _%e3359833624%_)))) + (_%__kont3804638047%_ + _%tl3360033631%_ + _%hd3359933628%_))) + (_%__kont3804838049%_)))))) + (_%parse-class-body33479%_ + (lambda (_%body33499%_) + (let _%recur33502%_ ((_%rest33505%_ _%body33499%_)) + (let* ((_%__stx3805938060%_ _%rest33505%_) + (_%g3350933525%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3802338024%_)))) - (let ((_%__kont3802638027%_ - (lambda (_%L33527%_ _%L33529%_ _%L33530%_) - (cons _%L33530%_ - (cons (_%parse133438%_ _%L33529%_) - (_%recur33466%_ _%L33527%_))))) - (_%__kont3802838029%_ + _%__stx3805938060%_)))) + (let ((_%__kont3806238063%_ + (lambda (_%L33563%_ _%L33565%_ _%L33566%_) + (cons _%L33566%_ + (cons (_%parse133474%_ _%L33565%_) + (_%recur33502%_ _%L33563%_))))) + (_%__kont3806438065%_ (lambda () - (if (gx#stx-null? _%rest33469%_) + (if (gx#stx-null? _%rest33505%_) '() - (_%parse-error33445%_ _%rest33469%_))))) - (let ((_%__match3804238043%_ - (lambda (_%e3347833507%_ - _%hd3347933511%_ - _%tl3348033514%_ - _%e3348133517%_ - _%hd3348233521%_ - _%tl3348333524%_) - (let ((_%L33527%_ _%tl3348333524%_) - (_%L33529%_ _%hd3348233521%_) - (_%L33530%_ _%hd3347933511%_)) - (if (gx#stx-keyword? _%L33530%_) - (_%__kont3802638027%_ - _%L33527%_ - _%L33529%_ - _%L33530%_) - (_%__kont3802838029%_)))))) - (if (gx#stx-pair? _%__stx3802338024%_) - (let ((_%e3347833507%_ - (gx#syntax-e _%__stx3802338024%_))) - (let ((_%tl3348033514%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3347833507%_))) - (_%hd3347933511%_ + (##cdr _%e3351433543%_))) + (_%hd3351533547%_ (let () (declare (not safe)) - (##car _%e3347833507%_)))) - (if (gx#stx-pair? _%tl3348033514%_) - (let ((_%e3348133517%_ - (gx#syntax-e _%tl3348033514%_))) - (let ((_%tl3348333524%_ + (##car _%e3351433543%_)))) + (if (gx#stx-pair? _%tl3351633550%_) + (let ((_%e3351733553%_ + (gx#syntax-e _%tl3351633550%_))) + (let ((_%tl3351933560%_ (let () (declare (not safe)) - (##cdr _%e3348133517%_))) - (_%hd3348233521%_ + (##cdr _%e3351733553%_))) + (_%hd3351833557%_ (let () (declare (not safe)) - (##car _%e3348133517%_)))) - (_%__match3804238043%_ - _%e3347833507%_ - _%hd3347933511%_ - _%tl3348033514%_ - _%e3348133517%_ - _%hd3348233521%_ - _%tl3348333524%_))) - (_%__kont3802838029%_)))) - (_%__kont3802838029%_)))))))) - (_%parse-qq33444%_ - (lambda (_%hd33450%_) - (let ((_%g3345233459%_ - (lambda (_%g3345333455%_) + (##car _%e3351733553%_)))) + (_%__match3807838079%_ + _%e3351433543%_ + _%hd3351533547%_ + _%tl3351633550%_ + _%e3351733553%_ + _%hd3351833557%_ + _%tl3351933560%_))) + (_%__kont3806438065%_)))) + (_%__kont3806438065%_)))))))) + (_%parse-qq33480%_ + (lambda (_%hd33486%_) + (let ((_%g3348833495%_ + (lambda (_%g3348933491%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3345333455%_)))) - (_%g3345233459%_ _%hd33450%_)))) - (_%parse-error33445%_ - (lambda (_%hd33447%_) + _%g3348933491%_)))) + (_%g3348833495%_ _%hd33486%_)))) + (_%parse-error33481%_ + (lambda (_%hd33483%_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _%match-stx33436%_ - (cons _%match-stx33436%_ - (cons _%stx33434%_ - (cons _%hd33447%_ '()))) - (cons _%stx33434%_ (cons _%hd33447%_ '()))))))) - (_%parse133438%_ _%stx33434%_)))) + (if _%match-stx33472%_ + (cons _%match-stx33472%_ + (cons _%stx33470%_ + (cons _%hd33483%_ '()))) + (cons _%stx33470%_ (cons _%hd33483%_ '()))))))) + (_%parse133474%_ _%stx33470%_)))) (define |gerbil/core/match[1]#parse-match-pattern__0| - (lambda (_%stx35124%_) - (let ((_%match-stx35127%_ '#f)) + (lambda (_%stx35160%_) + (let ((_%match-stx35163%_ '#f)) (|gerbil/core/match[1]#parse-match-pattern__%| - _%stx35124%_ - _%match-stx35127%_)))) + _%stx35160%_ + _%match-stx35163%_)))) (define |gerbil/core/match[1]#parse-match-pattern| - (lambda _g39854_ - (let ((_g39853_ (let () (declare (not safe)) (##length _g39854_)))) - (cond ((let () (declare (not safe)) (##fx= _g39853_ 1)) + (lambda _g39890_ + (let ((_g39889_ (let () (declare (not safe)) (##length _g39890_)))) + (cond ((let () (declare (not safe)) (##fx= _g39889_ 1)) (apply |gerbil/core/match[1]#parse-match-pattern__0| - _g39854_)) - ((let () (declare (not safe)) (##fx= _g39853_ 2)) + _g39890_)) + ((let () (declare (not safe)) (##fx= _g39889_ 2)) (apply |gerbil/core/match[1]#parse-match-pattern__%| - _g39854_)) + _g39890_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core/match[1]#parse-match-pattern| - _g39854_)))))) + _g39890_)))))) (define |gerbil/core/match[1]#match-pattern?| - (lambda (_%stx33419%_) - (let ((__tmp39855 - (lambda (_%E33422%_) + (lambda (_%stx33455%_) + (let ((__tmp39891 + (lambda (_%E33458%_) (with-exception-handler - (let ((_%E!33425%_ (current-exception-handler))) - (lambda (_%e33428%_) - (if (syntax-error? _%e33428%_) - (_%E33422%_ '#f) + (let ((_%E!33461%_ (current-exception-handler))) + (lambda (_%e33464%_) + (if (syntax-error? _%e33464%_) + (_%E33458%_ '#f) (let () (declare (not safe)) - (_%E!33425%_ _%e33428%_))))) + (_%E!33461%_ _%e33464%_))))) (lambda () (|gerbil/core/match[1]#parse-match-pattern__0| - _%stx33419%_) + _%stx33455%_) '#t))))) (declare (not safe)) - (##call-with-current-continuation __tmp39855)))) + (##call-with-current-continuation __tmp39891)))) (define |gerbil/core/match[1]#match-pattern-vars| - (lambda (_%ptree32154%_) - (letrec ((_%loop32157%_ - (lambda (_%ptree32444%_ _%vars32446%_ _%K32447%_) - (let* ((_%__stx3814138142%_ _%ptree32444%_) - (_%g3246032570%_ + (lambda (_%ptree32190%_) + (letrec ((_%loop32193%_ + (lambda (_%ptree32480%_ _%vars32482%_ _%K32483%_) + (let* ((_%__stx3817738178%_ _%ptree32480%_) + (_%g3249632606%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3814138142%_)))) - (let ((_%__kont3814438145%_ - (lambda (_%L33200%_) - (let* ((_%__stx3806138062%_ _%L33200%_) - (_%g3321733251%_ + _%__stx3817738178%_)))) + (let ((_%__kont3818038181%_ + (lambda (_%L33236%_) + (let* ((_%__stx3809738098%_ _%L33236%_) + (_%g3325333287%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3806138062%_)))) - (let ((_%__kont3806438065%_ - (lambda (_%L33400%_) - (_%loop32157%_ - _%L33400%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3806638067%_ - (lambda (_%L33369%_) - (_%loop32157%_ - _%L33369%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3806838069%_ - (lambda (_%L33317%_) - (_%loop32157%_ - _%L33317%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3807038071%_ + _%__stx3809738098%_)))) + (let ((_%__kont3810038101%_ + (lambda (_%L33436%_) + (_%loop32193%_ + _%L33436%_ + _%vars32482%_ + _%K32483%_))) + (_%__kont3810238103%_ + (lambda (_%L33405%_) + (_%loop32193%_ + _%L33405%_ + _%vars32482%_ + _%K32483%_))) + (_%__kont3810438105%_ + (lambda (_%L33353%_) + (_%loop32193%_ + _%L33353%_ + _%vars32482%_ + _%K32483%_))) + (_%__kont3810638107%_ (lambda () - (_%K32447%_ _%vars32446%_)))) - (if (gx#stx-pair? _%__stx3806138062%_) - (let ((_%e3322033390%_ + (_%K32483%_ _%vars32482%_)))) + (if (gx#stx-pair? _%__stx3809738098%_) + (let ((_%e3325633426%_ (gx#syntax-e - _%__stx3806138062%_))) - (let ((_%tl3322233397%_ + _%__stx3809738098%_))) + (let ((_%tl3325833433%_ (let () (declare (not safe)) - (##cdr _%e3322033390%_))) - (_%hd3322133394%_ + (##cdr _%e3325633426%_))) + (_%hd3325733430%_ (let () (declare (not safe)) - (##car _%e3322033390%_)))) - (if (gx#stx-null? _%tl3322233397%_) - (_%__kont3806438065%_ - _%hd3322133394%_) + (##car _%e3325633426%_)))) + (if (gx#stx-null? _%tl3325833433%_) + (_%__kont3810038101%_ + _%hd3325733430%_) (if (gx#stx-datum? - _%hd3322133394%_) - (let ((_%e3322733355%_ + _%hd3325733430%_) + (let ((_%e3326333391%_ (gx#stx-e - _%hd3322133394%_))) - (if (equal? _%e3322733355%_ + _%hd3325733430%_))) + (if (equal? _%e3326333391%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _%tl3322233397%_) - (let ((_%e3322833359%_ (gx#syntax-e _%tl3322233397%_))) - (let ((_%tl3323033366%_ + (if (gx#stx-pair? _%tl3325833433%_) + (let ((_%e3326433395%_ (gx#syntax-e _%tl3325833433%_))) + (let ((_%tl3326633402%_ (let () (declare (not safe)) - (##cdr _%e3322833359%_))) - (_%hd3322933363%_ + (##cdr _%e3326433395%_))) + (_%hd3326533399%_ (let () (declare (not safe)) - (##car _%e3322833359%_)))) - (if (gx#stx-null? _%tl3323033366%_) - (_%__kont3806638067%_ _%hd3322933363%_) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)) - (if (equal? _%e3322733355%_ '::) - (if (gx#stx-pair? _%tl3322233397%_) - (let ((_%e3323633283%_ - (gx#syntax-e _%tl3322233397%_))) - (let ((_%tl3323833290%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3323633283%_))) - (_%hd3323733287%_ + (##cdr _%e3327233319%_))) + (_%hd3327333323%_ (let () (declare (not safe)) - (##car _%e3323633283%_)))) - (if (gx#stx-pair? _%tl3323833290%_) - (let ((_%e3323933293%_ - (gx#syntax-e _%tl3323833290%_))) - (let ((_%tl3324133300%_ + (##car _%e3327233319%_)))) + (if (gx#stx-pair? _%tl3327433326%_) + (let ((_%e3327533329%_ + (gx#syntax-e _%tl3327433326%_))) + (let ((_%tl3327733336%_ (let () (declare (not safe)) - (##cdr _%e3323933293%_))) - (_%hd3324033297%_ + (##cdr _%e3327533329%_))) + (_%hd3327633333%_ (let () (declare (not safe)) - (##car _%e3323933293%_)))) - (if (gx#stx-datum? _%hd3324033297%_) - (let ((_%e3324233303%_ - (gx#stx-e _%hd3324033297%_))) - (if (equal? _%e3324233303%_ '=>:) + (##car _%e3327533329%_)))) + (if (gx#stx-datum? _%hd3327633333%_) + (let ((_%e3327833339%_ + (gx#stx-e _%hd3327633333%_))) + (if (equal? _%e3327833339%_ '=>:) (if (gx#stx-pair? - _%tl3324133300%_) - (let ((_%e3324333307%_ + _%tl3327733336%_) + (let ((_%e3327933343%_ (gx#syntax-e - _%tl3324133300%_))) - (let ((_%tl3324533314%_ + _%tl3327733336%_))) + (let ((_%tl3328133350%_ (let () (declare (not safe)) - (##cdr _%e3324333307%_))) - (_%hd3324433311%_ + (##cdr _%e3327933343%_))) + (_%hd3328033347%_ (let () (declare (not safe)) - (##car _%e3324333307%_)))) + (##car _%e3327933343%_)))) (if (gx#stx-null? - _%tl3324533314%_) - (_%__kont3806838069%_ - _%hd3324433311%_) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)) - (_%__kont3807038071%_))) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)) - (_%__kont3807038071%_)))) + _%tl3328133350%_) + (_%__kont3810438105%_ + _%hd3328033347%_) + (_%__kont3810638107%_)))) + (_%__kont3810638107%_)) + (_%__kont3810638107%_))) + (_%__kont3810638107%_)))) + (_%__kont3810638107%_)))) + (_%__kont3810638107%_)) + (_%__kont3810638107%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3807038071%_))))) - (_%__kont3807038071%_)))))) - (_%__kont3814638147%_ - (lambda (_%L33087%_ _%L33089%_) - (let* ((_%__stx3804538046%_ _%L33087%_) - (_%g3310533117%_ + (_%__kont3810638107%_))))) + (_%__kont3810638107%_)))))) + (_%__kont3818238183%_ + (lambda (_%L33123%_ _%L33125%_) + (let* ((_%__stx3808138082%_ _%L33123%_) + (_%g3314133153%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3804538046%_)))) - (let ((_%__kont3804838049%_ - (lambda (_%L33145%_ _%L33147%_) - (_%loop32157%_ - _%L33147%_ - _%vars32446%_ - (lambda (_%g3315933161%_) - (_%loop32157%_ - (cons _%L33089%_ _%L33145%_) - _%g3315933161%_ - _%K32447%_))))) - (_%__kont3805038051%_ + _%__stx3808138082%_)))) + (let ((_%__kont3808438085%_ + (lambda (_%L33181%_ _%L33183%_) + (_%loop32193%_ + _%L33183%_ + _%vars32482%_ + (lambda (_%g3319533197%_) + (_%loop32193%_ + (cons _%L33125%_ _%L33181%_) + _%g3319533197%_ + _%K32483%_))))) + (_%__kont3808638087%_ (lambda () - (_%K32447%_ _%vars32446%_)))) - (if (gx#stx-pair? _%__stx3804538046%_) - (let ((_%e3310933135%_ + (_%K32483%_ _%vars32482%_)))) + (if (gx#stx-pair? _%__stx3808138082%_) + (let ((_%e3314533171%_ (gx#syntax-e - _%__stx3804538046%_))) - (let ((_%tl3311133142%_ + _%__stx3808138082%_))) + (let ((_%tl3314733178%_ (let () (declare (not safe)) - (##cdr _%e3310933135%_))) - (_%hd3311033139%_ + (##cdr _%e3314533171%_))) + (_%hd3314633175%_ (let () (declare (not safe)) - (##car _%e3310933135%_)))) - (_%__kont3804838049%_ - _%tl3311133142%_ - _%hd3311033139%_))) - (_%__kont3805038051%_)))))) - (_%__kont3814838149%_ - (lambda (_%L33056%_) - (_%loop32157%_ - _%L33056%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3815038151%_ - (lambda (_%L33002%_ _%L33004%_) - (_%loop32157%_ - _%L33004%_ - _%vars32446%_ - (lambda (_%g3301933021%_) - (_%loop32157%_ - _%L33002%_ - _%g3301933021%_ - _%K32447%_))))) - (_%__kont3815238153%_ - (lambda (_%L32938%_ _%L32940%_) - (_%loop32157%_ - _%L32940%_ - _%vars32446%_ - (lambda (_%g3295532957%_) - (_%loop32157%_ - _%L32938%_ - _%g3295532957%_ - _%K32447%_))))) - (_%__kont3815438155%_ - (lambda (_%L32883%_) - (_%loop32157%_ - _%L32883%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3815638157%_ - (lambda (_%L32833%_ _%L32835%_) - (_%loop-vector32159%_ - _%L32833%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3815838159%_ - (lambda (_%L32790%_) - (_%loop-vector32159%_ - _%L32790%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3816038161%_ - (lambda (_%L32733%_) - (_%loop-class-list32161%_ - _%L32733%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3816238163%_ - (lambda (_%L32674%_ _%L32676%_) - (_%loop32157%_ - _%L32674%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3816438165%_ - (lambda (_%L32612%_) - (if (find (lambda (_%g3262732629%_) + (##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%_) (gx#bound-identifier=? - _%g3262732629%_ - _%L32612%_)) - _%vars32446%_) - (_%K32447%_ _%vars32446%_) - (_%K32447%_ - (cons _%L32612%_ _%vars32446%_))))) - (_%__kont3816638167%_ - (lambda () (_%K32447%_ _%vars32446%_)))) - (let* ((_%__match3829838299%_ - (lambda (_%e3251732813%_ - _%hd3251832817%_ - _%tl3251932820%_ - _%e3252032823%_ - _%hd3252132827%_ - _%tl3252232830%_) - (let ((_%L32833%_ _%hd3252132827%_) - (_%L32835%_ _%hd3251832817%_)) - (if (or (gx#stx-eq? 'values: _%L32835%_) - (gx#stx-eq? 'vector: _%L32835%_)) - (_%__kont3815638157%_ - _%L32833%_ - _%L32835%_) - (if (gx#stx-datum? _%hd3251832817%_) - (let ((_%e3252732766%_ + _%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%_ (gx#stx-e - _%hd3251832817%_))) - (if (equal? _%e3252732766%_ + _%hd3255432853%_))) + (if (equal? _%e3256332802%_ 'struct:) - (_%__kont3816638167%_) - (if (equal? _%e3252732766%_ + (_%__kont3820238203%_) + (if (equal? _%e3256332802%_ 'class:) - (_%__kont3816638167%_) - (if (equal? _%e3252732766%_ + (_%__kont3820238203%_) + (if (equal? _%e3256332802%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:) - (_%__kont3816638167%_) - (if (equal? _%e3252732766%_ 'var:) - (_%__kont3816438165%_ _%hd3252132827%_) - (_%__kont3816638167%_)))))) + (_%__kont3820238203%_) + (if (equal? _%e3256332802%_ 'var:) + (_%__kont3820038201%_ _%hd3255732863%_) + (_%__kont3820238203%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3816638167%_)))))) - (_%__match3819238193%_ - (lambda (_%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_) - (let ((_%L33087%_ _%tl3247433084%_) - (_%L33089%_ _%hd3247333081%_)) - (if (or (gx#stx-eq? 'and: _%L33089%_) - (gx#stx-eq? 'or: _%L33089%_)) - (_%__kont3814638147%_ - _%L33087%_ - _%L33089%_) - (if (gx#stx-datum? _%hd3247333081%_) - (let ((_%e3247933042%_ + (_%__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%_ (gx#stx-e - _%hd3247333081%_))) - (if (equal? _%e3247933042%_ + _%hd3250933117%_))) + (if (equal? _%e3251533078%_ 'not:) (if (gx#stx-pair? - _%tl3247433084%_) - (let ((_%e3248033046%_ + _%tl3251033120%_) + (let ((_%e3251633082%_ (gx#syntax-e - _%tl3247433084%_))) - (let ((_%tl3248233053%_ + _%tl3251033120%_))) + (let ((_%tl3251833089%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3248033046%_))) - (_%hd3248133050%_ - (let () (declare (not safe)) (##car _%e3248033046%_)))) - (if (gx#stx-null? _%tl3248233053%_) - (_%__kont3814838149%_ _%hd3248133050%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) + (##cdr _%e3251633082%_))) + (_%hd3251733086%_ + (let () (declare (not safe)) (##car _%e3251633082%_)))) + (if (gx#stx-null? _%tl3251833089%_) + (_%__kont3818438185%_ _%hd3251733086%_) + (_%__kont3820238203%_)))) + (_%__kont3820238203%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3247933042%_ + (if (equal? _%e3251533078%_ 'cons:) (if (gx#stx-pair? - _%tl3247433084%_) - (let ((_%e3248932982%_ + _%tl3251033120%_) + (let ((_%e3252533018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3249132989%_ + (gx#syntax-e _%tl3251033120%_))) + (let ((_%tl3252733025%_ (let () (declare (not safe)) - (##cdr _%e3248932982%_))) - (_%hd3249032986%_ + (##cdr _%e3252533018%_))) + (_%hd3252633022%_ (let () (declare (not safe)) - (##car _%e3248932982%_)))) - (if (gx#stx-pair? _%tl3249132989%_) - (let ((_%e3249232992%_ - (gx#syntax-e _%tl3249132989%_))) - (let ((_%tl3249432999%_ + (##car _%e3252533018%_)))) + (if (gx#stx-pair? _%tl3252733025%_) + (let ((_%e3252833028%_ + (gx#syntax-e _%tl3252733025%_))) + (let ((_%tl3253033035%_ (let () (declare (not safe)) - (##cdr _%e3249232992%_))) - (_%hd3249332996%_ + (##cdr _%e3252833028%_))) + (_%hd3252933032%_ (let () (declare (not safe)) - (##car _%e3249232992%_)))) - (if (gx#stx-null? _%tl3249432999%_) - (_%__kont3815038151%_ - _%hd3249332996%_ - _%hd3249032986%_) - (_%__kont3816638167%_)))) - (if (gx#stx-null? _%tl3249132989%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3248932982%_ - _%hd3249032986%_ - _%tl3249132989%_) - (_%__kont3816638167%_))))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'splice:) - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3250132918%_ (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3250332925%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3250132918%_))) - (_%hd3250232922%_ + (##cdr _%e3253732954%_))) + (_%hd3253832958%_ (let () (declare (not safe)) - (##car _%e3250132918%_)))) - (if (gx#stx-pair? _%tl3250332925%_) - (let ((_%e3250432928%_ - (gx#syntax-e _%tl3250332925%_))) - (let ((_%tl3250632935%_ + (##car _%e3253732954%_)))) + (if (gx#stx-pair? _%tl3253932961%_) + (let ((_%e3254032964%_ + (gx#syntax-e _%tl3253932961%_))) + (let ((_%tl3254232971%_ (let () (declare (not safe)) - (##cdr _%e3250432928%_))) - (_%hd3250532932%_ + (##cdr _%e3254032964%_))) + (_%hd3254132968%_ (let () (declare (not safe)) - (##car _%e3250432928%_)))) - (if (gx#stx-null? _%tl3250632935%_) - (_%__kont3815238153%_ - _%hd3250532932%_ - _%hd3250232922%_) - (_%__kont3816638167%_)))) - (if (gx#stx-null? _%tl3250332925%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3250132918%_ - _%hd3250232922%_ - _%tl3250332925%_) - (_%__kont3816638167%_))))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'box:) - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3251232873%_ - (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3251432880%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3251232873%_))) - (_%hd3251332877%_ + (##cdr _%e3254832909%_))) + (_%hd3254932913%_ (let () (declare (not safe)) - (##car _%e3251232873%_)))) - (if (gx#stx-null? _%tl3251432880%_) - (_%__kont3815438155%_ _%hd3251332877%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3252032823%_ - (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3252232830%_ + (##car _%e3254832909%_)))) + (if (gx#stx-null? _%tl3255032916%_) + (_%__kont3819038191%_ _%hd3254932913%_) + (_%__kont3820238203%_)))) + (_%__kont3820238203%_)) + (if (gx#stx-pair? _%tl3251033120%_) + (let ((_%e3255632859%_ + (gx#syntax-e _%tl3251033120%_))) + (let ((_%tl3255832866%_ (let () (declare (not safe)) - (##cdr _%e3252032823%_))) - (_%hd3252132827%_ + (##cdr _%e3255632859%_))) + (_%hd3255732863%_ (let () (declare (not safe)) - (##car _%e3252032823%_)))) - (if (gx#stx-null? _%tl3252232830%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3252032823%_ - _%hd3252132827%_ - _%tl3252232830%_) - (if (equal? _%e3247933042%_ 'struct:) - (if (gx#stx-pair? _%tl3252232830%_) - (let ((_%e3253132780%_ + (##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%_ (gx#syntax-e - _%tl3252232830%_))) - (let ((_%tl3253332787%_ + _%tl3255832866%_))) + (let ((_%tl3256932823%_ (let () (declare (not safe)) - (##cdr _%e3253132780%_))) - (_%hd3253232784%_ + (##cdr _%e3256732816%_))) + (_%hd3256832820%_ (let () (declare (not safe)) - (##car _%e3253132780%_)))) + (##car _%e3256732816%_)))) (if (gx#stx-null? - _%tl3253332787%_) - (_%__kont3815838159%_ - _%hd3253232784%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'class:) - (if (gx#stx-pair? _%tl3252232830%_) - (let ((_%e3254232723%_ + _%tl3256932823%_) + (_%__kont3819438195%_ + _%hd3256832820%_) + (_%__kont3820238203%_)))) + (_%__kont3820238203%_)) + (if (equal? _%e3251533078%_ 'class:) + (if (gx#stx-pair? _%tl3255832866%_) + (let ((_%e3257832759%_ (gx#syntax-e - _%tl3252232830%_))) - (let ((_%tl3254432730%_ + _%tl3255832866%_))) + (let ((_%tl3258032766%_ (let () (declare (not safe)) - (##cdr _%e3254232723%_))) - (_%hd3254332727%_ + (##cdr _%e3257832759%_))) + (_%hd3257932763%_ (let () (declare (not safe)) - (##car _%e3254232723%_)))) + (##car _%e3257832759%_)))) (if (gx#stx-null? - _%tl3254432730%_) - (_%__kont3816038161%_ - _%hd3254332727%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'apply:) + _%tl3258032766%_) + (_%__kont3819638197%_ + _%hd3257932763%_) + (_%__kont3820238203%_)))) + (_%__kont3820238203%_)) + (if (equal? _%e3251533078%_ 'apply:) (if (gx#stx-pair? - _%tl3252232830%_) - (let ((_%e3255432664%_ + _%tl3255832866%_) + (let ((_%e3259032700%_ (gx#syntax-e - _%tl3252232830%_))) - (let ((_%tl3255632671%_ + _%tl3255832866%_))) + (let ((_%tl3259232707%_ (let () (declare (not safe)) - (##cdr _%e3255432664%_))) - (_%hd3255532668%_ + (##cdr _%e3259032700%_))) + (_%hd3259132704%_ (let () (declare (not safe)) - (##car _%e3255432664%_)))) + (##car _%e3259032700%_)))) (if (gx#stx-null? - _%tl3255632671%_) - (_%__kont3816238163%_ - _%hd3255532668%_ - _%hd3252132827%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (_%__kont3816638167%_))))))) - (_%__kont3816638167%_))))))) + _%tl3259232707%_) + (_%__kont3819838199%_ + _%hd3259132704%_ + _%hd3255732863%_) + (_%__kont3820238203%_)))) + (_%__kont3820238203%_)) + (_%__kont3820238203%_))))))) + (_%__kont3820238203%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3252032823%_ + (if (gx#stx-pair? _%tl3251033120%_) + (let ((_%e3255632859%_ (gx#syntax-e - _%tl3247433084%_))) - (let ((_%tl3252232830%_ + _%tl3251033120%_))) + (let ((_%tl3255832866%_ (let () (declare (not safe)) - (##cdr _%e3252032823%_))) - (_%hd3252132827%_ + (##cdr _%e3255632859%_))) + (_%hd3255732863%_ (let () (declare (not safe)) - (##car _%e3252032823%_)))) + (##car _%e3255632859%_)))) (if (gx#stx-null? - _%tl3252232830%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3252032823%_ - _%hd3252132827%_ - _%tl3252232830%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)))))))) - (if (gx#stx-pair? _%__stx3814138142%_) - (let ((_%e3246333176%_ - (gx#syntax-e _%__stx3814138142%_))) - (let ((_%tl3246533183%_ + _%tl3255832866%_) + (_%__match3833438335%_ + _%e3250833113%_ + _%hd3250933117%_ + _%tl3251033120%_ + _%e3255632859%_ + _%hd3255732863%_ + _%tl3255832866%_) + (_%__kont3820238203%_)))) + (_%__kont3820238203%_)))))))) + (if (gx#stx-pair? _%__stx3817738178%_) + (let ((_%e3249933212%_ + (gx#syntax-e _%__stx3817738178%_))) + (let ((_%tl3250133219%_ (let () (declare (not safe)) - (##cdr _%e3246333176%_))) - (_%hd3246433180%_ + (##cdr _%e3249933212%_))) + (_%hd3250033216%_ (let () (declare (not safe)) - (##car _%e3246333176%_)))) - (if (gx#stx-datum? _%hd3246433180%_) - (let ((_%e3246633186%_ - (gx#stx-e _%hd3246433180%_))) - (if (equal? _%e3246633186%_ '?:) - (if (gx#stx-pair? _%tl3246533183%_) - (let ((_%e3246733190%_ + (##car _%e3249933212%_)))) + (if (gx#stx-datum? _%hd3250033216%_) + (let ((_%e3250233222%_ + (gx#stx-e _%hd3250033216%_))) + (if (equal? _%e3250233222%_ '?:) + (if (gx#stx-pair? _%tl3250133219%_) + (let ((_%e3250333226%_ (gx#syntax-e - _%tl3246533183%_))) - (let ((_%tl3246933197%_ + _%tl3250133219%_))) + (let ((_%tl3250533233%_ (let () (declare (not safe)) - (##cdr _%e3246733190%_))) - (_%hd3246833194%_ + (##cdr _%e3250333226%_))) + (_%hd3250433230%_ (let () (declare (not safe)) - (##car _%e3246733190%_)))) - (_%__kont3814438145%_ - _%tl3246933197%_))) - (_%__match3819238193%_ - _%e3246333176%_ - _%hd3246433180%_ - _%tl3246533183%_)) - (_%__match3819238193%_ - _%e3246333176%_ - _%hd3246433180%_ - _%tl3246533183%_))) - (_%__match3819238193%_ - _%e3246333176%_ - _%hd3246433180%_ - _%tl3246533183%_)))) - (_%__kont3816638167%_))))))) - (_%loop-vector32159%_ - (lambda (_%body32320%_ _%vars32322%_ _%K32323%_) - (let* ((_%__stx3839938400%_ _%body32320%_) - (_%g3232632349%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3839938400%_)))) - (let ((_%__kont3840238403%_ - (lambda (_%L32426%_) - (_%loop-list32160%_ - _%L32426%_ - _%vars32322%_ - _%K32323%_))) - (_%__kont3840438405%_ - (lambda (_%L32380%_) - (_%loop32157%_ - _%L32380%_ - _%vars32322%_ - _%K32323%_)))) - (if (gx#stx-pair? _%__stx3839938400%_) - (let ((_%e3232932402%_ - (gx#syntax-e _%__stx3839938400%_))) - (let ((_%tl3233132409%_ + _%__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%_ (let () (declare (not safe)) - (##cdr _%e3232932402%_))) - (_%hd3233032406%_ + (##cdr _%e3236532438%_))) + (_%hd3236632442%_ (let () (declare (not safe)) - (##car _%e3232932402%_)))) - (if (gx#stx-datum? _%hd3233032406%_) - (let ((_%e3233232412%_ - (gx#stx-e _%hd3233032406%_))) - (if (equal? _%e3233232412%_ 'simple:) - (if (gx#stx-pair? _%tl3233132409%_) - (let ((_%e3233332416%_ + (##car _%e3236532438%_)))) + (if (gx#stx-datum? _%hd3236632442%_) + (let ((_%e3236832448%_ + (gx#stx-e _%hd3236632442%_))) + (if (equal? _%e3236832448%_ 'simple:) + (if (gx#stx-pair? _%tl3236732445%_) + (let ((_%e3236932452%_ (gx#syntax-e - _%tl3233132409%_))) - (let ((_%tl3233532423%_ + _%tl3236732445%_))) + (let ((_%tl3237132459%_ (let () (declare (not safe)) - (##cdr _%e3233332416%_))) - (_%hd3233432420%_ + (##cdr _%e3236932452%_))) + (_%hd3237032456%_ (let () (declare (not safe)) - (##car _%e3233332416%_)))) + (##car _%e3236932452%_)))) (if (gx#stx-null? - _%tl3233532423%_) - (_%__kont3840238403%_ - _%hd3233432420%_) + _%tl3237132459%_) + (_%__kont3843838439%_ + _%hd3237032456%_) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3236232385%_))))) (let () (declare (not safe)) - (_%g3232632349%_))) - (if (equal? _%e3233232412%_ 'list:) + (_%g3236232385%_))) + (if (equal? _%e3236832448%_ 'list:) (if (gx#stx-pair? - _%tl3233132409%_) - (let ((_%e3234132370%_ + _%tl3236732445%_) + (let ((_%e3237732406%_ (gx#syntax-e - _%tl3233132409%_))) - (let ((_%tl3234332377%_ + _%tl3236732445%_))) + (let ((_%tl3237932413%_ (let () (declare (not safe)) - (##cdr _%e3234132370%_))) - (_%hd3234232374%_ + (##cdr _%e3237732406%_))) + (_%hd3237832410%_ (let () (declare (not safe)) - (##car _%e3234132370%_)))) + (##car _%e3237732406%_)))) (if (gx#stx-null? - _%tl3234332377%_) - (_%__kont3840438405%_ - _%hd3234232374%_) + _%tl3237932413%_) + (_%__kont3844038441%_ + _%hd3237832410%_) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3236232385%_))))) (let () (declare (not safe)) - (_%g3232632349%_))) + (_%g3236232385%_))) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3236232385%_))))) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3236232385%_))))) (let () (declare (not safe)) - (_%g3232632349%_))))))) - (_%loop-list32160%_ - (lambda (_%rest32250%_ _%vars32252%_ _%K32253%_) - (let* ((_%__stx3844938450%_ _%rest32250%_) - (_%g3225632268%_ + (_%g3236232385%_))))))) + (_%loop-list32196%_ + (lambda (_%rest32286%_ _%vars32288%_ _%K32289%_) + (let* ((_%__stx3848538486%_ _%rest32286%_) + (_%g3229232304%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3844938450%_)))) - (let ((_%__kont3845238453%_ - (lambda (_%L32296%_ _%L32298%_) - (_%loop32157%_ - _%L32298%_ - _%vars32252%_ - (lambda (_%g3231032312%_) - (_%loop-list32160%_ - _%L32296%_ - _%g3231032312%_ - _%K32253%_))))) - (_%__kont3845438455%_ - (lambda () (_%K32253%_ _%vars32252%_)))) - (if (gx#stx-pair? _%__stx3844938450%_) - (let ((_%e3226032286%_ - (gx#syntax-e _%__stx3844938450%_))) - (let ((_%tl3226232293%_ + _%__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%_ (let () (declare (not safe)) - (##cdr _%e3226032286%_))) - (_%hd3226132290%_ + (##cdr _%e3229632322%_))) + (_%hd3229732326%_ (let () (declare (not safe)) - (##car _%e3226032286%_)))) - (_%__kont3845238453%_ - _%tl3226232293%_ - _%hd3226132290%_))) - (_%__kont3845438455%_)))))) - (_%loop-class-list32161%_ - (lambda (_%rest32163%_ _%vars32165%_ _%K32166%_) - (let* ((_%__stx3846538466%_ _%rest32163%_) - (_%g3216932184%_ + (##car _%e3229632322%_)))) + (_%__kont3848838489%_ + _%tl3229832329%_ + _%hd3229732326%_))) + (_%__kont3849038491%_)))))) + (_%loop-class-list32197%_ + (lambda (_%rest32199%_ _%vars32201%_ _%K32202%_) + (let* ((_%__stx3850138502%_ _%rest32199%_) + (_%g3220532220%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3846538466%_)))) - (let ((_%__kont3846838469%_ - (lambda (_%L32222%_ _%L32224%_) - (_%loop32157%_ - _%L32224%_ - _%vars32165%_ - (lambda (_%g3224032242%_) - (_%loop-class-list32161%_ - _%L32222%_ - _%g3224032242%_ - _%K32166%_))))) - (_%__kont3847038471%_ - (lambda () (_%K32166%_ _%vars32165%_)))) - (if (gx#stx-pair? _%__stx3846538466%_) - (let ((_%e3217332202%_ - (gx#syntax-e _%__stx3846538466%_))) - (let ((_%tl3217532209%_ + _%__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%_ (let () (declare (not safe)) - (##cdr _%e3217332202%_))) - (_%hd3217432206%_ + (##cdr _%e3220932238%_))) + (_%hd3221032242%_ (let () (declare (not safe)) - (##car _%e3217332202%_)))) - (if (gx#stx-pair? _%tl3217532209%_) - (let ((_%e3217632212%_ - (gx#syntax-e _%tl3217532209%_))) - (let ((_%tl3217832219%_ + (##car _%e3220932238%_)))) + (if (gx#stx-pair? _%tl3221132245%_) + (let ((_%e3221232248%_ + (gx#syntax-e _%tl3221132245%_))) + (let ((_%tl3221432255%_ (let () (declare (not safe)) - (##cdr _%e3217632212%_))) - (_%hd3217732216%_ + (##cdr _%e3221232248%_))) + (_%hd3221332252%_ (let () (declare (not safe)) - (##car _%e3217632212%_)))) - (_%__kont3846838469%_ - _%tl3217832219%_ - _%hd3217732216%_))) - (_%__kont3847038471%_)))) - (_%__kont3847038471%_))))))) - (_%loop32157%_ _%ptree32154%_ '() values)))) + (##car _%e3221232248%_)))) + (_%__kont3850438505%_ + _%tl3221432255%_ + _%hd3221332252%_))) + (_%__kont3850638507%_)))) + (_%__kont3850638507%_))))))) + (_%loop32193%_ _%ptree32190%_ '() values)))) (define |gerbil/core/match[1]#generate-match1| - (lambda (_%stx29099%_ _%tgt29101%_ _%ptree29102%_ _%K29103%_ _%E29104%_) - (letrec ((_%generate129106%_ - (lambda (_%tgt30353%_ _%ptree30355%_ _%K30356%_ _%E30357%_) - (let* ((_%g3035930367%_ - (lambda (_%g3036030363%_) + (lambda (_%stx29135%_ _%tgt29137%_ _%ptree29138%_ _%K29139%_ _%E29140%_) + (letrec ((_%generate129142%_ + (lambda (_%tgt30389%_ _%ptree30391%_ _%K30392%_ _%E30393%_) + (let* ((_%g3039530403%_ + (lambda (_%g3039630399%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3036030363%_))) - (_%g3035832150%_ - (lambda (_%g3036030371%_) - ((lambda (_%L30374%_) - (let* ((_%__stx3870138702%_ _%ptree30355%_) - (_%g3040130543%_ + _%g3039630399%_))) + (_%g3039432186%_ + (lambda (_%g3039630407%_) + ((lambda (_%L30410%_) + (let* ((_%__stx3873738738%_ _%ptree30391%_) + (_%g3043730579%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3870138702%_)))) - (let ((_%__kont3870438705%_ - (lambda (_%L31865%_ _%L31867%_) - (let* ((_%__stx3861938620%_ - _%L31865%_) - (_%g3188431919%_ + _%__stx3873738738%_)))) + (let ((_%__kont3874038741%_ + (lambda (_%L31901%_ _%L31903%_) + (let* ((_%__stx3865538656%_ + _%L31901%_) + (_%g3192031955%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3861938620%_)))) - (let ((_%__kont3862238623%_ + _%__stx3865538656%_)))) + (let ((_%__kont3865838659%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31867%_ (cons _%L30374%_ '()))) - (cons _%K30356%_ (cons _%E30357%_ '())))))) + (cons _%L31903%_ (cons _%L30410%_ '()))) + (cons _%K30392%_ (cons _%E30393%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862438625%_ - (lambda (_%L32120%_) + (_%__kont3866038661%_ + (lambda (_%L32156%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31867%_ (cons _%L30374%_ '()))) - (cons (_%generate129106%_ - _%tgt30353%_ - _%L32120%_ - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '())))))) + (cons _%L31903%_ (cons _%L30410%_ '()))) + (cons (_%generate129142%_ + _%tgt30389%_ + _%L32156%_ + _%K30392%_ + _%E30393%_) + (cons _%E30393%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862638627%_ - (lambda (_%L32058%_) - (let* ((_%g3207232080%_ - (lambda (_%g3207332076%_) + (_%__kont3866238663%_ + (lambda (_%L32094%_) + (let* ((_%g3210832116%_ + (lambda (_%g3210932112%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3207332076%_))) - (_%g3207132099%_ - (lambda (_%g3207332084%_) - ((lambda (_%L32087%_) + _%g3210932112%_))) + (_%g3210732135%_ + (lambda (_%g3210932120%_) + ((lambda (_%L32123%_) (cons 'let - (cons (cons (cons _%L32087%_ - (cons (cons _%L31867%_ - (cons _%L30374%_ + (cons (cons (cons _%L32123%_ + (cons (cons _%L31903%_ + (cons _%L30410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _%L32087%_ - (cons (_%generate129106%_ + (cons _%L32123%_ + (cons (_%generate129142%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L32087%_ - _%L32058%_ - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '())))) + _%L32123%_ + _%L32094%_ + _%K30392%_ + _%E30393%_) + (cons _%E30393%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g3207332084%_)))) - (_%g3207132099%_ (gx#genident 'e))))) + _%g3210932120%_)))) + (_%g3210732135%_ (gx#genident 'e))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862838629%_ - (lambda (_%L31974%_ - _%L31976%_) - (let* ((_%g3199632004%_ - (lambda (_%g3199732000%_) + (_%__kont3866438665%_ + (lambda (_%L32010%_ + _%L32012%_) + (let* ((_%g3203232040%_ + (lambda (_%g3203332036%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3199732000%_))) - (_%g3199532023%_ - (lambda (_%g3199732008%_) - ((lambda (_%L32011%_) + _%g3203332036%_))) + (_%g3203132059%_ + (lambda (_%g3203332044%_) + ((lambda (_%L32047%_) (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _%L31867%_ - (cons _%L30374%_ '()))) + (cons _%L31903%_ + (cons _%L30410%_ '()))) (cons (cons 'let - (cons (cons (cons _%L32011%_ + (cons (cons (cons _%L32047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L31976%_ (cons _%L30374%_ '())) + (cons (cons _%L32012%_ (cons _%L30410%_ '())) '())) '()) - (cons (_%generate129106%_ - _%L32011%_ - _%L31974%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129142%_ + _%L32047%_ + _%L32010%_ + _%K30392%_ + _%E30393%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30357%_ '()))))) - _%g3199732008%_)))) - (_%g3199532023%_ (gx#genident 'e)))))) + (cons _%E30393%_ '()))))) + _%g3203332044%_)))) + (_%g3203132059%_ (gx#genident 'e)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g3188132131%_ + (let ((_%g3191732167%_ (lambda () (if (gx#stx-pair? - _%__stx3861938620%_) - (let ((_%e3188732110%_ + _%__stx3865538656%_) + (let ((_%e3192332146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%__stx3861938620%_))) - (let ((_%tl3188932117%_ + (gx#syntax-e _%__stx3865538656%_))) + (let ((_%tl3192532153%_ (let () (declare (not safe)) - (##cdr _%e3188732110%_))) - (_%hd3188832114%_ + (##cdr _%e3192332146%_))) + (_%hd3192432150%_ (let () (declare (not safe)) - (##car _%e3188732110%_)))) - (if (gx#stx-null? _%tl3188932117%_) - (_%__kont3862438625%_ _%hd3188832114%_) - (if (gx#stx-datum? _%hd3188832114%_) - (let ((_%e3189432044%_ - (gx#stx-e _%hd3188832114%_))) - (if (equal? _%e3189432044%_ '=>:) - (if (gx#stx-pair? _%tl3188932117%_) - (let ((_%e3189532048%_ + (##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%_ (gx#syntax-e - _%tl3188932117%_))) - (let ((_%tl3189732055%_ + _%tl3192532153%_))) + (let ((_%tl3193332091%_ (let () (declare (not safe)) - (##cdr _%e3189532048%_))) - (_%hd3189632052%_ + (##cdr _%e3193132084%_))) + (_%hd3193232088%_ (let () (declare (not safe)) - (##car _%e3189532048%_)))) + (##car _%e3193132084%_)))) (if (gx#stx-null? - _%tl3189732055%_) - (_%__kont3862638627%_ - _%hd3189632052%_) + _%tl3193332091%_) + (_%__kont3866238663%_ + _%hd3193232088%_) (let () (declare (not safe)) - (_%g3188431919%_))))) + (_%g3192031955%_))))) (let () (declare (not safe)) - (_%g3188431919%_))) - (if (equal? _%e3189432044%_ '::) - (if (gx#stx-pair? _%tl3188932117%_) - (let ((_%e3190431940%_ + (_%g3192031955%_))) + (if (equal? _%e3193032080%_ '::) + (if (gx#stx-pair? _%tl3192532153%_) + (let ((_%e3194031976%_ (gx#syntax-e - _%tl3188932117%_))) - (let ((_%tl3190631947%_ + _%tl3192532153%_))) + (let ((_%tl3194231983%_ (let () (declare (not safe)) - (##cdr _%e3190431940%_))) - (_%hd3190531944%_ + (##cdr _%e3194031976%_))) + (_%hd3194131980%_ (let () (declare (not safe)) - (##car _%e3190431940%_)))) + (##car _%e3194031976%_)))) (if (gx#stx-pair? - _%tl3190631947%_) - (let ((_%e3190731950%_ + _%tl3194231983%_) + (let ((_%e3194331986%_ (gx#syntax-e - _%tl3190631947%_))) - (let ((_%tl3190931957%_ + _%tl3194231983%_))) + (let ((_%tl3194531993%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3190731950%_))) - (_%hd3190831954%_ - (let () (declare (not safe)) (##car _%e3190731950%_)))) - (if (gx#stx-datum? _%hd3190831954%_) - (let ((_%e3191031960%_ (gx#stx-e _%hd3190831954%_))) - (if (equal? _%e3191031960%_ '=>:) - (if (gx#stx-pair? _%tl3190931957%_) - (let ((_%e3191131964%_ - (gx#syntax-e _%tl3190931957%_))) - (let ((_%tl3191331971%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3191131964%_))) - (_%hd3191231968%_ + (##cdr _%e3194732000%_))) + (_%hd3194832004%_ (let () (declare (not safe)) - (##car _%e3191131964%_)))) - (if (gx#stx-null? _%tl3191331971%_) - (_%__kont3862838629%_ - _%hd3191231968%_ - _%hd3190531944%_) + (##car _%e3194732000%_)))) + (if (gx#stx-null? _%tl3194932007%_) + (_%__kont3866438665%_ + _%hd3194832004%_ + _%hd3194131980%_) (let () (declare (not safe)) - (_%g3188431919%_))))) + (_%g3192031955%_))))) (let () (declare (not safe)) - (_%g3188431919%_))) - (let () (declare (not safe)) (_%g3188431919%_)))) - (let () (declare (not safe)) (_%g3188431919%_))))) - (let () (declare (not safe)) (_%g3188431919%_))))) + (_%g3192031955%_))) + (let () (declare (not safe)) (_%g3192031955%_)))) + (let () (declare (not safe)) (_%g3192031955%_))))) + (let () (declare (not safe)) (_%g3192031955%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3188431919%_))) + (_%g3192031955%_))) (let () (declare (not safe)) - (_%g3188431919%_))))) + (_%g3192031955%_))))) (let () (declare (not safe)) - (_%g3188431919%_)))))) - (let () (declare (not safe)) (_%g3188431919%_)))))) + (_%g3192031955%_)))))) + (let () (declare (not safe)) (_%g3192031955%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%__stx3861938620%_) - (_%__kont3862238623%_) + _%__stx3865538656%_) + (_%__kont3865838659%_) (let () (declare (not safe)) - (_%g3188132131%_)))))))) - (_%__kont3870638707%_ - (lambda (_%L31762%_) - (let* ((_%__stx3860338604%_ - _%L31762%_) - (_%g3177531787%_ + (_%g3191732167%_)))))))) + (_%__kont3874238743%_ + (lambda (_%L31798%_) + (let* ((_%__stx3863938640%_ + _%L31798%_) + (_%g3181131823%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3860338604%_)))) - (let ((_%__kont3860638607%_ - (lambda (_%L31815%_ - _%L31817%_) - (_%generate129106%_ - _%tgt30353%_ - _%L31817%_ - (_%generate129106%_ - _%tgt30353%_ + _%__stx3863938640%_)))) + (let ((_%__kont3864238643%_ + (lambda (_%L31851%_ + _%L31853%_) + (_%generate129142%_ + _%tgt30389%_ + _%L31853%_ + (_%generate129142%_ + _%tgt30389%_ (cons 'and: - _%L31815%_) - _%K30356%_ - _%E30357%_) - _%E30357%_))) - (_%__kont3860838609%_ - (lambda () _%K30356%_))) + _%L31851%_) + _%K30392%_ + _%E30393%_) + _%E30393%_))) + (_%__kont3864438645%_ + (lambda () _%K30392%_))) (if (gx#stx-pair? - _%__stx3860338604%_) - (let ((_%e3177931805%_ + _%__stx3863938640%_) + (let ((_%e3181531841%_ (gx#syntax-e - _%__stx3860338604%_))) - (let ((_%tl3178131812%_ + _%__stx3863938640%_))) + (let ((_%tl3181731848%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3177931805%_))) - (_%hd3178031809%_ - (let () (declare (not safe)) (##car _%e3177931805%_)))) - (_%__kont3860638607%_ _%tl3178131812%_ _%hd3178031809%_))) + (##cdr _%e3181531841%_))) + (_%hd3181631845%_ + (let () (declare (not safe)) (##car _%e3181531841%_)))) + (_%__kont3864238643%_ _%tl3181731848%_ _%hd3181631845%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3860838609%_)))))) - (_%__kont3870838709%_ - (lambda (_%L31669%_) - (let* ((_%__stx3858738588%_ - _%L31669%_) - (_%g3168231694%_ + (_%__kont3864438645%_)))))) + (_%__kont3874438745%_ + (lambda (_%L31705%_) + (let* ((_%__stx3862338624%_ + _%L31705%_) + (_%g3171831730%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3858738588%_)))) - (let ((_%__kont3859038591%_ - (lambda (_%L31722%_ - _%L31724%_) - (_%generate129106%_ - _%tgt30353%_ - _%L31724%_ - _%K30356%_ - (_%generate129106%_ - _%tgt30353%_ - (cons 'or: _%L31722%_) - _%K30356%_ - _%E30357%_)))) - (_%__kont3859238593%_ - (lambda () _%E30357%_))) + _%__stx3862338624%_)))) + (let ((_%__kont3862638627%_ + (lambda (_%L31758%_ + _%L31760%_) + (_%generate129142%_ + _%tgt30389%_ + _%L31760%_ + _%K30392%_ + (_%generate129142%_ + _%tgt30389%_ + (cons 'or: _%L31758%_) + _%K30392%_ + _%E30393%_)))) + (_%__kont3862838629%_ + (lambda () _%E30393%_))) (if (gx#stx-pair? - _%__stx3858738588%_) - (let ((_%e3168631712%_ + _%__stx3862338624%_) + (let ((_%e3172231748%_ (gx#syntax-e - _%__stx3858738588%_))) - (let ((_%tl3168831719%_ + _%__stx3862338624%_))) + (let ((_%tl3172431755%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3168631712%_))) - (_%hd3168731716%_ - (let () (declare (not safe)) (##car _%e3168631712%_)))) - (_%__kont3859038591%_ _%tl3168831719%_ _%hd3168731716%_))) + (##cdr _%e3172231748%_))) + (_%hd3172331752%_ + (let () (declare (not safe)) (##car _%e3172231748%_)))) + (_%__kont3862638627%_ _%tl3172431755%_ _%hd3172331752%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3859238593%_)))))) - (_%__kont3871038711%_ - (lambda (_%L31634%_) - (_%generate129106%_ - _%tgt30353%_ - _%L31634%_ - _%E30357%_ - _%K30356%_))) - (_%__kont3871238713%_ - (lambda (_%L31508%_ _%L31510%_) - (let* ((_%g3152731542%_ - (lambda (_%g3152831538%_) + (_%__kont3862838629%_)))))) + (_%__kont3874638747%_ + (lambda (_%L31670%_) + (_%generate129142%_ + _%tgt30389%_ + _%L31670%_ + _%E30393%_ + _%K30392%_))) + (_%__kont3874838749%_ + (lambda (_%L31544%_ _%L31546%_) + (let* ((_%g3156331578%_ + (lambda (_%g3156431574%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3152831538%_))) - (_%g3152631599%_ - (lambda (_%g3152831546%_) + _%g3156431574%_))) + (_%g3156231635%_ + (lambda (_%g3156431582%_) (if (gx#stx-pair? - _%g3152831546%_) - (let ((_%e3153131549%_ + _%g3156431582%_) + (let ((_%e3156731585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g3152831546%_))) - (let ((_%hd3153231553%_ + (gx#syntax-e _%g3156431582%_))) + (let ((_%hd3156831589%_ (let () (declare (not safe)) - (##car _%e3153131549%_))) - (_%tl3153331556%_ + (##car _%e3156731585%_))) + (_%tl3156931592%_ (let () (declare (not safe)) - (##cdr _%e3153131549%_)))) - (if (gx#stx-pair? _%tl3153331556%_) - (let ((_%e3153431559%_ - (gx#syntax-e _%tl3153331556%_))) - (let ((_%hd3153531563%_ + (##cdr _%e3156731585%_)))) + (if (gx#stx-pair? _%tl3156931592%_) + (let ((_%e3157031595%_ + (gx#syntax-e _%tl3156931592%_))) + (let ((_%hd3157131599%_ (let () (declare (not safe)) - (##car _%e3153431559%_))) - (_%tl3153631566%_ + (##car _%e3157031595%_))) + (_%tl3157231602%_ (let () (declare (not safe)) - (##cdr _%e3153431559%_)))) - (if (gx#stx-null? _%tl3153631566%_) - ((lambda (_%L31569%_ _%L31571%_) + (##cdr _%e3157031595%_)))) + (if (gx#stx-null? _%tl3157231602%_) + ((lambda (_%L31605%_ _%L31607%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30374%_ '())) - (cons (let ((_%hd-pat31587%_ + (cons _%L30410%_ '())) + (cons (let ((_%hd-pat31623%_ (gx#stx-e - _%L31510%_)) - (_%tl-pat31589%_ + _%L31546%_)) + (_%tl-pat31625%_ (gx#stx-e - _%L31508%_))) - (if (and (equal? _%hd-pat31587%_ + _%L31544%_))) + (if (and (equal? _%hd-pat31623%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '(any:)) - (equal? _%tl-pat31589%_ '(any:))) - _%K30356%_ - (if (equal? _%tl-pat31589%_ '(any:)) + (equal? _%tl-pat31625%_ '(any:))) + _%K30392%_ + (if (equal? _%tl-pat31625%_ '(any:)) (cons 'let - (cons (cons (cons _%L31571%_ + (cons (cons (cons _%L31607%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30374%_ + (cons _%L30410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L31571%_ - _%L31510%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129142%_ + _%L31607%_ + _%L31546%_ + _%K30392%_ + _%E30393%_) '()))) - (if (equal? _%hd-pat31587%_ '(any:)) + (if (equal? _%hd-pat31623%_ '(any:)) (cons 'let - (cons (cons (cons _%L31569%_ + (cons (cons (cons _%L31605%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L31569%_ - _%L31508%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129142%_ + _%L31605%_ + _%L31544%_ + _%K30392%_ + _%E30393%_) '()))) (cons 'let - (cons (cons (cons _%L31571%_ + (cons (cons (cons _%L31607%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L31569%_ + (cons (cons _%L31605%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (_%generate129106%_ - _%L31571%_ - _%L31510%_ - (_%generate129106%_ - _%L31569%_ - _%L31508%_ - _%K30356%_ - _%E30357%_) - _%E30357%_) + (cons (_%generate129142%_ + _%L31607%_ + _%L31546%_ + (_%generate129142%_ + _%L31605%_ + _%L31544%_ + _%K30392%_ + _%E30393%_) + _%E30393%_) '()))))))) - (cons _%E30357%_ '()))))) + (cons _%E30393%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd3153531563%_ - _%hd3153231553%_) - (_%g3152731542%_ _%g3152831546%_)))) - (_%g3152731542%_ _%g3152831546%_)))) - (_%g3152731542%_ _%g3152831546%_))))) + _%hd3157131599%_ + _%hd3156831589%_) + (_%g3156331578%_ _%g3156431582%_)))) + (_%g3156331578%_ _%g3156431582%_)))) + (_%g3156331578%_ _%g3156431582%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3152631599%_ + (_%g3156231635%_ (list (gx#genident 'hd) (gx#genident 'tl)))))) - (_%__kont3871438715%_ + (_%__kont3875038751%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax '#f 'null?) - (cons _%L30374%_ + (cons _%L30410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%K30356%_ (cons _%E30357%_ '())))))) + (cons _%K30392%_ (cons _%E30393%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3871638717%_ - (lambda (_%L31424%_ _%L31426%_) - (_%generate-splice29108%_ - _%tgt30353%_ - _%L31426%_ - _%L31424%_ - _%K30356%_ - _%E30357%_))) - (_%__kont3871838719%_ - (lambda (_%L31338%_) - (let* ((_%g3135231360%_ - (lambda (_%g3135331356%_) + (_%__kont3875238753%_ + (lambda (_%L31460%_ _%L31462%_) + (_%generate-splice29144%_ + _%tgt30389%_ + _%L31462%_ + _%L31460%_ + _%K30392%_ + _%E30393%_))) + (_%__kont3875438755%_ + (lambda (_%L31374%_) + (let* ((_%g3138831396%_ + (lambda (_%g3138931392%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3135331356%_))) - (_%g3135131379%_ - (lambda (_%g3135331364%_) - ((lambda (_%L31367%_) + _%g3138931392%_))) + (_%g3138731415%_ + (lambda (_%g3138931400%_) + ((lambda (_%L31403%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'box?) - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) (cons (cons 'let - (cons (cons (cons _%L31367%_ + (cons (cons (cons _%L31403%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unbox) - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L31367%_ - _%L31338%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129142%_ + _%L31403%_ + _%L31374%_ + _%K30392%_ + _%E30393%_) '()))) - (cons _%E30357%_ '()))))) - _%g3135331364%_)))) + (cons _%E30393%_ '()))))) + _%g3138931400%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3135131379%_ + (_%g3138731415%_ (gx#genident 'e))))) - (_%__kont3872038721%_ - (lambda (_%L31143%_) - (let* ((_%__stx3853738538%_ - _%L31143%_) - (_%g3115831181%_ + (_%__kont3875638757%_ + (lambda (_%L31179%_) + (let* ((_%__stx3857338574%_ + _%L31179%_) + (_%g3119431217%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3853738538%_)))) - (let ((_%__kont3854038541%_ - (lambda (_%L31258%_) - (let* ((_%g3127231280%_ - (lambda (_%g3127331276%_) + _%__stx3857338574%_)))) + (let ((_%__kont3857638577%_ + (lambda (_%L31294%_) + (let* ((_%g3130831316%_ + (lambda (_%g3130931312%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3127331276%_))) - (_%g3127131299%_ - (lambda (_%g3127331284%_) - ((lambda (_%L31287%_) + _%g3130931312%_))) + (_%g3130731335%_ + (lambda (_%g3130931320%_) + ((lambda (_%L31323%_) (cons 'if (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f 'values-count) - (cons _%L30374%_ + (cons _%L30410%_ '())) - (cons _%L31287%_ '()))) - (cons (_%generate-simple-vector29109%_ - _%tgt30353%_ - _%L31258%_ + (cons _%L31323%_ '()))) + (cons (_%generate-simple-vector29145%_ + _%tgt30389%_ + _%L31294%_ '0 - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '()))))) - _%g3127331284%_)))) - (_%g3127131299%_ (gx#stx-length _%L31258%_))))) + _%K30392%_ + _%E30393%_) + (cons _%E30393%_ '()))))) + _%g3130931320%_)))) + (_%g3130731335%_ (gx#stx-length _%L31294%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3854238543%_ - (lambda (_%L31212%_) - (_%generate-list-vector29110%_ - _%tgt30353%_ - _%L31212%_ + (_%__kont3857838579%_ + (lambda (_%L31248%_) + (_%generate-list-vector29146%_ + _%tgt30389%_ + _%L31248%_ 'values->list - _%K30356%_ - _%E30357%_)))) + _%K30392%_ + _%E30393%_)))) (if (gx#stx-pair? - _%__stx3853738538%_) - (let ((_%e3116131234%_ + _%__stx3857338574%_) + (let ((_%e3119731270%_ (gx#syntax-e - _%__stx3853738538%_))) - (let ((_%tl3116331241%_ + _%__stx3857338574%_))) + (let ((_%tl3119931277%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3116131234%_))) - (_%hd3116231238%_ - (let () (declare (not safe)) (##car _%e3116131234%_)))) - (if (gx#stx-datum? _%hd3116231238%_) - (let ((_%e3116431244%_ (gx#stx-e _%hd3116231238%_))) - (if (equal? _%e3116431244%_ 'simple:) - (if (gx#stx-pair? _%tl3116331241%_) - (let ((_%e3116531248%_ - (gx#syntax-e _%tl3116331241%_))) - (let ((_%tl3116731255%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3116531248%_))) - (_%hd3116631252%_ + (##cdr _%e3120131284%_))) + (_%hd3120231288%_ (let () (declare (not safe)) - (##car _%e3116531248%_)))) - (if (gx#stx-null? _%tl3116731255%_) - (_%__kont3854038541%_ _%hd3116631252%_) + (##car _%e3120131284%_)))) + (if (gx#stx-null? _%tl3120331291%_) + (_%__kont3857638577%_ _%hd3120231288%_) (let () (declare (not safe)) - (_%g3115831181%_))))) - (let () (declare (not safe)) (_%g3115831181%_))) - (if (equal? _%e3116431244%_ 'list:) - (if (gx#stx-pair? _%tl3116331241%_) - (let ((_%e3117331202%_ - (gx#syntax-e _%tl3116331241%_))) - (let ((_%tl3117531209%_ + (_%g3119431217%_))))) + (let () (declare (not safe)) (_%g3119431217%_))) + (if (equal? _%e3120031280%_ 'list:) + (if (gx#stx-pair? _%tl3119931277%_) + (let ((_%e3120931238%_ + (gx#syntax-e _%tl3119931277%_))) + (let ((_%tl3121131245%_ (let () (declare (not safe)) - (##cdr _%e3117331202%_))) - (_%hd3117431206%_ + (##cdr _%e3120931238%_))) + (_%hd3121031242%_ (let () (declare (not safe)) - (##car _%e3117331202%_)))) - (if (gx#stx-null? _%tl3117531209%_) - (_%__kont3854238543%_ - _%hd3117431206%_) + (##car _%e3120931238%_)))) + (if (gx#stx-null? _%tl3121131245%_) + (_%__kont3857838579%_ + _%hd3121031242%_) (let () (declare (not safe)) - (_%g3115831181%_))))) + (_%g3119431217%_))))) (let () (declare (not safe)) - (_%g3115831181%_))) + (_%g3119431217%_))) (let () (declare (not safe)) - (_%g3115831181%_))))) - (let () (declare (not safe)) (_%g3115831181%_))))) + (_%g3119431217%_))))) + (let () (declare (not safe)) (_%g3119431217%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3115831181%_))))))) - (_%__kont3872238723%_ - (lambda (_%L30948%_) - (let* ((_%__stx3848738488%_ - _%L30948%_) - (_%g3096330986%_ + (_%g3119431217%_))))))) + (_%__kont3875838759%_ + (lambda (_%L30984%_) + (let* ((_%__stx3852338524%_ + _%L30984%_) + (_%g3099931022%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3848738488%_)))) - (let ((_%__kont3849038491%_ - (lambda (_%L31063%_) - (let* ((_%g3107731085%_ - (lambda (_%g3107831081%_) + _%__stx3852338524%_)))) + (let ((_%__kont3852638527%_ + (lambda (_%L31099%_) + (let* ((_%g3111331121%_ + (lambda (_%g3111431117%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3107831081%_))) - (_%g3107631104%_ - (lambda (_%g3107831089%_) - ((lambda (_%L31092%_) + _%g3111431117%_))) + (_%g3111231140%_ + (lambda (_%g3111431125%_) + ((lambda (_%L31128%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'vector?) - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _%L30374%_ '())) - (cons _%L31092%_ '()))) - (cons (_%generate-simple-vector29109%_ - _%tgt30353%_ - _%L31063%_ + (cons _%L30410%_ '())) + (cons _%L31128%_ '()))) + (cons (_%generate-simple-vector29145%_ + _%tgt30389%_ + _%L31099%_ '0 - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '())))) + _%K30392%_ + _%E30393%_) + (cons _%E30393%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30357%_ '()))))) - _%g3107831089%_)))) - (_%g3107631104%_ (gx#stx-length _%L31063%_))))) + (cons _%E30393%_ '()))))) + _%g3111431125%_)))) + (_%g3111231140%_ (gx#stx-length _%L31099%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3849238493%_ - (lambda (_%L31017%_) + (_%__kont3852838529%_ + (lambda (_%L31053%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector?) - (cons _%L30374%_ '())) - (cons (_%generate-list-vector29110%_ - _%tgt30353%_ - _%L31017%_ + (cons _%L30410%_ '())) + (cons (_%generate-list-vector29146%_ + _%tgt30389%_ + _%L31053%_ 'vector->list - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '()))))))) + _%K30392%_ + _%E30393%_) + (cons _%E30393%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx3848738488%_) - (let ((_%e3096631039%_ + _%__stx3852338524%_) + (let ((_%e3100231075%_ (gx#syntax-e - _%__stx3848738488%_))) - (let ((_%tl3096831046%_ + _%__stx3852338524%_))) + (let ((_%tl3100431082%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3096631039%_))) - (_%hd3096731043%_ - (let () (declare (not safe)) (##car _%e3096631039%_)))) - (if (gx#stx-datum? _%hd3096731043%_) - (let ((_%e3096931049%_ (gx#stx-e _%hd3096731043%_))) - (if (equal? _%e3096931049%_ 'simple:) - (if (gx#stx-pair? _%tl3096831046%_) - (let ((_%e3097031053%_ - (gx#syntax-e _%tl3096831046%_))) - (let ((_%tl3097231060%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3097031053%_))) - (_%hd3097131057%_ + (##cdr _%e3100631089%_))) + (_%hd3100731093%_ (let () (declare (not safe)) - (##car _%e3097031053%_)))) - (if (gx#stx-null? _%tl3097231060%_) - (_%__kont3849038491%_ _%hd3097131057%_) + (##car _%e3100631089%_)))) + (if (gx#stx-null? _%tl3100831096%_) + (_%__kont3852638527%_ _%hd3100731093%_) (let () (declare (not safe)) - (_%g3096330986%_))))) - (let () (declare (not safe)) (_%g3096330986%_))) - (if (equal? _%e3096931049%_ 'list:) - (if (gx#stx-pair? _%tl3096831046%_) - (let ((_%e3097831007%_ - (gx#syntax-e _%tl3096831046%_))) - (let ((_%tl3098031014%_ + (_%g3099931022%_))))) + (let () (declare (not safe)) (_%g3099931022%_))) + (if (equal? _%e3100531085%_ 'list:) + (if (gx#stx-pair? _%tl3100431082%_) + (let ((_%e3101431043%_ + (gx#syntax-e _%tl3100431082%_))) + (let ((_%tl3101631050%_ (let () (declare (not safe)) - (##cdr _%e3097831007%_))) - (_%hd3097931011%_ + (##cdr _%e3101431043%_))) + (_%hd3101531047%_ (let () (declare (not safe)) - (##car _%e3097831007%_)))) - (if (gx#stx-null? _%tl3098031014%_) - (_%__kont3849238493%_ - _%hd3097931011%_) + (##car _%e3101431043%_)))) + (if (gx#stx-null? _%tl3101631050%_) + (_%__kont3852838529%_ + _%hd3101531047%_) (let () (declare (not safe)) - (_%g3096330986%_))))) + (_%g3099931022%_))))) (let () (declare (not safe)) - (_%g3096330986%_))) + (_%g3099931022%_))) (let () (declare (not safe)) - (_%g3096330986%_))))) - (let () (declare (not safe)) (_%g3096330986%_))))) + (_%g3099931022%_))))) + (let () (declare (not safe)) (_%g3099931022%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3096330986%_))))))) - (_%__kont3872438725%_ - (lambda (_%L30899%_ _%L30901%_) - (_%generate-struct29111%_ - (gx#stx-e _%L30901%_) - _%tgt30353%_ - _%L30899%_ - _%K30356%_ - _%E30357%_))) - (_%__kont3872638727%_ - (lambda (_%L30840%_ _%L30842%_) - (_%generate-class29114%_ - (gx#stx-e _%L30842%_) - _%tgt30353%_ - _%L30840%_ - _%K30356%_ - _%E30357%_))) - (_%__kont3872838729%_ - (lambda (_%L30737%_) - (let* ((_%g3075130759%_ - (lambda (_%g3075230755%_) + (_%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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3075230755%_))) - (_%g3075030778%_ - (lambda (_%g3075230763%_) - ((lambda (_%L30766%_) + _%g3078830791%_))) + (_%g3078630814%_ + (lambda (_%g3078830799%_) + ((lambda (_%L30802%_) (cons 'if - (cons (cons _%L30766%_ + (cons (cons _%L30802%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30374%_ + (cons _%L30410%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L30737%_ '())) + (cons _%L30773%_ '())) '()))) - (cons _%K30356%_ (cons _%E30357%_ '()))))) - _%g3075230763%_)))) + (cons _%K30392%_ (cons _%E30393%_ '()))))) + _%g3078830799%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3075030778%_ - (let ((_%e30782%_ - (gx#stx-e _%L30737%_))) - (if (or (symbol? _%e30782%_) - (keyword? _%e30782%_) + (_%g3078630814%_ + (let ((_%e30818%_ + (gx#stx-e _%L30773%_))) + (if (or (symbol? _%e30818%_) + (keyword? _%e30818%_) (immediate? - _%e30782%_)) + _%e30818%_)) '##eq? - (if (number? _%e30782%_) + (if (number? _%e30818%_) 'eqv? 'equal?))))))) - (_%__kont3873038731%_ - (lambda (_%L30657%_ _%L30659%_) - (let* ((_%g3067530683%_ - (lambda (_%g3067630679%_) + (_%__kont3876638767%_ + (lambda (_%L30693%_ _%L30695%_) + (let* ((_%g3071130719%_ + (lambda (_%g3071230715%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3067630679%_))) - (_%g3067430702%_ - (lambda (_%g3067630687%_) - ((lambda (_%L30690%_) + _%g3071230715%_))) + (_%g3071030738%_ + (lambda (_%g3071230723%_) + ((lambda (_%L30726%_) (cons 'let - (cons (cons (cons _%L30690%_ + (cons (cons (cons _%L30726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L30659%_ - (cons _%L30374%_ '())) + (cons (cons _%L30695%_ + (cons _%L30410%_ '())) '())) '()) - (cons (_%generate129106%_ - _%L30690%_ - _%L30657%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129142%_ + _%L30726%_ + _%L30693%_ + _%K30392%_ + _%E30393%_) '())))) - _%g3067630687%_)))) + _%g3071230723%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3067430702%_ + (_%g3071030738%_ (gx#genident 'e))))) - (_%__kont3873238733%_ - (lambda (_%L30599%_) + (_%__kont3876838769%_ + (lambda (_%L30635%_) (cons 'let - (cons (cons (cons _%L30599%_ + (cons (cons (cons _%L30635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30374%_ '())) + (cons _%L30410%_ '())) '()) - (cons _%K30356%_ '()))))) + (cons _%K30392%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3873438735%_ - (lambda () _%K30356%_))) - (if (gx#stx-pair? _%__stx3870138702%_) - (let ((_%e3040531841%_ + (_%__kont3877038771%_ + (lambda () _%K30392%_))) + (if (gx#stx-pair? _%__stx3873738738%_) + (let ((_%e3044131877%_ (gx#syntax-e - _%__stx3870138702%_))) - (let ((_%tl3040731848%_ + _%__stx3873738738%_))) + (let ((_%tl3044331884%_ (let () (declare (not safe)) - (##cdr _%e3040531841%_))) - (_%hd3040631845%_ + (##cdr _%e3044131877%_))) + (_%hd3044231881%_ (let () (declare (not safe)) - (##car _%e3040531841%_)))) + (##car _%e3044131877%_)))) (if (gx#stx-datum? - _%hd3040631845%_) - (let ((_%e3040831851%_ + _%hd3044231881%_) + (let ((_%e3044431887%_ (gx#stx-e - _%hd3040631845%_))) - (if (equal? _%e3040831851%_ + _%hd3044231881%_))) + (if (equal? _%e3044431887%_ '?:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3040931855%_ + _%tl3044331884%_) + (let ((_%e3044531891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3041131862%_ + (gx#syntax-e _%tl3044331884%_))) + (let ((_%tl3044731898%_ (let () (declare (not safe)) - (##cdr _%e3040931855%_))) - (_%hd3041031859%_ + (##cdr _%e3044531891%_))) + (_%hd3044631895%_ (let () (declare (not safe)) - (##car _%e3040931855%_)))) - (_%__kont3870438705%_ - _%tl3041131862%_ - _%hd3041031859%_))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'and:) - (_%__kont3870638707%_ _%tl3040731848%_) - (if (equal? _%e3040831851%_ 'or:) - (_%__kont3870838709%_ _%tl3040731848%_) - (if (equal? _%e3040831851%_ 'not:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3042731624%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3042931631%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3042731624%_))) - (_%hd3042831628%_ + (##cdr _%e3046331660%_))) + (_%hd3046431664%_ (let () (declare (not safe)) - (##car _%e3042731624%_)))) - (if (gx#stx-null? _%tl3042931631%_) - (_%__kont3871038711%_ _%hd3042831628%_) + (##car _%e3046331660%_)))) + (if (gx#stx-null? _%tl3046531667%_) + (_%__kont3874638747%_ _%hd3046431664%_) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'cons:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3043631488%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3043831495%_ + (_%g3043730579%_))))) + (let () (declare (not safe)) (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'cons:) + (if (gx#stx-pair? _%tl3044331884%_) + (let ((_%e3047231524%_ + (gx#syntax-e _%tl3044331884%_))) + (let ((_%tl3047431531%_ (let () (declare (not safe)) - (##cdr _%e3043631488%_))) - (_%hd3043731492%_ + (##cdr _%e3047231524%_))) + (_%hd3047331528%_ (let () (declare (not safe)) - (##car _%e3043631488%_)))) - (if (gx#stx-pair? _%tl3043831495%_) - (let ((_%e3043931498%_ + (##car _%e3047231524%_)))) + (if (gx#stx-pair? _%tl3047431531%_) + (let ((_%e3047531534%_ (gx#syntax-e - _%tl3043831495%_))) - (let ((_%tl3044131505%_ + _%tl3047431531%_))) + (let ((_%tl3047731541%_ (let () (declare (not safe)) - (##cdr _%e3043931498%_))) - (_%hd3044031502%_ + (##cdr _%e3047531534%_))) + (_%hd3047631538%_ (let () (declare (not safe)) - (##car _%e3043931498%_)))) + (##car _%e3047531534%_)))) (if (gx#stx-null? - _%tl3044131505%_) - (_%__kont3871238713%_ - _%hd3044031502%_ - _%hd3043731492%_) + _%tl3047731541%_) + (_%__kont3874838749%_ + _%hd3047631538%_ + _%hd3047331528%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'null:) - (if (gx#stx-null? _%tl3040731848%_) - (_%__kont3871438715%_) + (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'null:) + (if (gx#stx-null? _%tl3044331884%_) + (_%__kont3875038751%_) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'splice:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3045231404%_ + (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'splice:) + (if (gx#stx-pair? _%tl3044331884%_) + (let ((_%e3048831440%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3045431411%_ + _%tl3044331884%_))) + (let ((_%tl3049031447%_ (let () (declare (not safe)) - (##cdr _%e3045231404%_))) - (_%hd3045331408%_ + (##cdr _%e3048831440%_))) + (_%hd3048931444%_ (let () (declare (not safe)) - (##car _%e3045231404%_)))) + (##car _%e3048831440%_)))) (if (gx#stx-pair? - _%tl3045431411%_) - (let ((_%e3045531414%_ + _%tl3049031447%_) + (let ((_%e3049131450%_ (gx#syntax-e - _%tl3045431411%_))) - (let ((_%tl3045731421%_ + _%tl3049031447%_))) + (let ((_%tl3049331457%_ (let () (declare (not safe)) - (##cdr _%e3045531414%_))) - (_%hd3045631418%_ + (##cdr _%e3049131450%_))) + (_%hd3049231454%_ (let () (declare (not safe)) - (##car _%e3045531414%_)))) + (##car _%e3049131450%_)))) (if (gx#stx-null? - _%tl3045731421%_) - (_%__kont3871638717%_ - _%hd3045631418%_ - _%hd3045331408%_) + _%tl3049331457%_) + (_%__kont3875238753%_ + _%hd3049231454%_ + _%hd3048931444%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'box:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3046331328%_ + (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'box:) + (if (gx#stx-pair? _%tl3044331884%_) + (let ((_%e3049931364%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3046531335%_ + _%tl3044331884%_))) + (let ((_%tl3050131371%_ (let () (declare (not safe)) - (##cdr _%e3046331328%_))) - (_%hd3046431332%_ + (##cdr _%e3049931364%_))) + (_%hd3050031368%_ (let () (declare (not safe)) - (##car _%e3046331328%_)))) + (##car _%e3049931364%_)))) (if (gx#stx-null? - _%tl3046531335%_) - (_%__kont3871838719%_ - _%hd3046431332%_) + _%tl3050131371%_) + (_%__kont3875438755%_ + _%hd3050031368%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ + (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'values:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3047131133%_ + _%tl3044331884%_) + (let ((_%e3050731169%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3047331140%_ + _%tl3044331884%_))) + (let ((_%tl3050931176%_ (let () (declare (not safe)) - (##cdr _%e3047131133%_))) - (_%hd3047231137%_ + (##cdr _%e3050731169%_))) + (_%hd3050831173%_ (let () (declare (not safe)) - (##car _%e3047131133%_)))) + (##car _%e3050731169%_)))) (if (gx#stx-null? - _%tl3047331140%_) - (_%__kont3872038721%_ - _%hd3047231137%_) + _%tl3050931176%_) + (_%__kont3875638757%_ + _%hd3050831173%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ + (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'vector:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3047930938%_ + _%tl3044331884%_) + (let ((_%e3051530974%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3048130945%_ + _%tl3044331884%_))) + (let ((_%tl3051730981%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3047930938%_))) - (_%hd3048030942%_ - (let () (declare (not safe)) (##car _%e3047930938%_)))) - (if (gx#stx-null? _%tl3048130945%_) - (_%__kont3872238723%_ _%hd3048030942%_) - (let () (declare (not safe)) (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3040831851%_ + (if (equal? _%e3044431887%_ 'struct:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3048830879%_ + _%tl3044331884%_) + (let ((_%e3052430915%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3049030886%_ + (gx#syntax-e _%tl3044331884%_))) + (let ((_%tl3052630922%_ (let () (declare (not safe)) - (##cdr _%e3048830879%_))) - (_%hd3048930883%_ + (##cdr _%e3052430915%_))) + (_%hd3052530919%_ (let () (declare (not safe)) - (##car _%e3048830879%_)))) - (if (gx#stx-pair? _%tl3049030886%_) - (let ((_%e3049130889%_ - (gx#syntax-e _%tl3049030886%_))) - (let ((_%tl3049330896%_ + (##car _%e3052430915%_)))) + (if (gx#stx-pair? _%tl3052630922%_) + (let ((_%e3052730925%_ + (gx#syntax-e _%tl3052630922%_))) + (let ((_%tl3052930932%_ (let () (declare (not safe)) - (##cdr _%e3049130889%_))) - (_%hd3049230893%_ + (##cdr _%e3052730925%_))) + (_%hd3052830929%_ (let () (declare (not safe)) - (##car _%e3049130889%_)))) - (if (gx#stx-null? _%tl3049330896%_) - (_%__kont3872438725%_ - _%hd3049230893%_ - _%hd3048930883%_) + (##car _%e3052730925%_)))) + (if (gx#stx-null? _%tl3052930932%_) + (_%__kont3876038761%_ + _%hd3052830929%_ + _%hd3052530919%_) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'class:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3050030820%_ (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3050230827%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3050030820%_))) - (_%hd3050130824%_ + (##cdr _%e3053630856%_))) + (_%hd3053730860%_ (let () (declare (not safe)) - (##car _%e3050030820%_)))) - (if (gx#stx-pair? _%tl3050230827%_) - (let ((_%e3050330830%_ - (gx#syntax-e _%tl3050230827%_))) - (let ((_%tl3050530837%_ + (##car _%e3053630856%_)))) + (if (gx#stx-pair? _%tl3053830863%_) + (let ((_%e3053930866%_ + (gx#syntax-e _%tl3053830863%_))) + (let ((_%tl3054130873%_ (let () (declare (not safe)) - (##cdr _%e3050330830%_))) - (_%hd3050430834%_ + (##cdr _%e3053930866%_))) + (_%hd3054030870%_ (let () (declare (not safe)) - (##car _%e3050330830%_)))) - (if (gx#stx-null? _%tl3050530837%_) - (_%__kont3872638727%_ - _%hd3050430834%_ - _%hd3050130824%_) + (##car _%e3053930866%_)))) + (if (gx#stx-null? _%tl3054130873%_) + (_%__kont3876238763%_ + _%hd3054030870%_ + _%hd3053730860%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'datum:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3051130727%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3051330734%_ + (_%g3043730579%_))))) + (let () (declare (not safe)) (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'datum:) + (if (gx#stx-pair? _%tl3044331884%_) + (let ((_%e3054730763%_ + (gx#syntax-e _%tl3044331884%_))) + (let ((_%tl3054930770%_ (let () (declare (not safe)) - (##cdr _%e3051130727%_))) - (_%hd3051230731%_ + (##cdr _%e3054730763%_))) + (_%hd3054830767%_ (let () (declare (not safe)) - (##car _%e3051130727%_)))) - (if (gx#stx-null? _%tl3051330734%_) - (_%__kont3872838729%_ _%hd3051230731%_) + (##car _%e3054730763%_)))) + (if (gx#stx-null? _%tl3054930770%_) + (_%__kont3876438765%_ _%hd3054830767%_) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'apply:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3052030637%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3052230644%_ + (_%g3043730579%_))))) + (let () (declare (not safe)) (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'apply:) + (if (gx#stx-pair? _%tl3044331884%_) + (let ((_%e3055630673%_ + (gx#syntax-e _%tl3044331884%_))) + (let ((_%tl3055830680%_ (let () (declare (not safe)) - (##cdr _%e3052030637%_))) - (_%hd3052130641%_ + (##cdr _%e3055630673%_))) + (_%hd3055730677%_ (let () (declare (not safe)) - (##car _%e3052030637%_)))) - (if (gx#stx-pair? _%tl3052230644%_) - (let ((_%e3052330647%_ - (gx#syntax-e _%tl3052230644%_))) - (let ((_%tl3052530654%_ + (##car _%e3055630673%_)))) + (if (gx#stx-pair? _%tl3055830680%_) + (let ((_%e3055930683%_ + (gx#syntax-e _%tl3055830680%_))) + (let ((_%tl3056130690%_ (let () (declare (not safe)) - (##cdr _%e3052330647%_))) - (_%hd3052430651%_ + (##cdr _%e3055930683%_))) + (_%hd3056030687%_ (let () (declare (not safe)) - (##car _%e3052330647%_)))) - (if (gx#stx-null? _%tl3052530654%_) - (_%__kont3873038731%_ - _%hd3052430651%_ - _%hd3052130641%_) + (##car _%e3055930683%_)))) + (if (gx#stx-null? _%tl3056130690%_) + (_%__kont3876638767%_ + _%hd3056030687%_ + _%hd3055730677%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'var:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3053130589%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3053330596%_ + (_%g3043730579%_))))) + (let () (declare (not safe)) (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'var:) + (if (gx#stx-pair? _%tl3044331884%_) + (let ((_%e3056730625%_ + (gx#syntax-e _%tl3044331884%_))) + (let ((_%tl3056930632%_ (let () (declare (not safe)) - (##cdr _%e3053130589%_))) - (_%hd3053230593%_ + (##cdr _%e3056730625%_))) + (_%hd3056830629%_ (let () (declare (not safe)) - (##car _%e3053130589%_)))) - (if (gx#stx-null? _%tl3053330596%_) - (_%__kont3873238733%_ - _%hd3053230593%_) + (##car _%e3056730625%_)))) + (if (gx#stx-null? _%tl3056930632%_) + (_%__kont3876838769%_ + _%hd3056830629%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'any:) - (if (gx#stx-null? _%tl3040731848%_) - (_%__kont3873438735%_) + (_%g3043730579%_))) + (if (equal? _%e3044431887%_ 'any:) + (if (gx#stx-null? _%tl3044331884%_) + (_%__kont3877038771%_) (let () (declare (not safe)) - (_%g3040130543%_))) + (_%g3043730579%_))) (let () (declare (not safe)) - (_%g3040130543%_))))))))))))))))))) + (_%g3043730579%_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3043730579%_))))) (let () (declare (not safe)) - (_%g3040130543%_)))))) - _%g3036030371%_)))) - (_%g3035832150%_ _%tgt30353%_)))) - (_%generate-splice29108%_ - (lambda (_%tgt29725%_ - _%hd29727%_ - _%rest29728%_ - _%K29729%_ - _%E29730%_) - (let* ((_%g2973229749%_ - (lambda (_%g2973329745%_) + (_%g3043730579%_)))))) + _%g3039630407%_)))) + (_%g3039432186%_ _%tgt30389%_)))) + (_%generate-splice29144%_ + (lambda (_%tgt29761%_ + _%hd29763%_ + _%rest29764%_ + _%K29765%_ + _%E29766%_) + (let* ((_%g2976829785%_ + (lambda (_%g2976929781%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2973329745%_))) - (_%g2973130349%_ - (lambda (_%g2973329753%_) - (if (gx#stx-pair/null? _%g2973329753%_) - (let ((_g39856_ + _%g2976929781%_))) + (_%g2976730385%_ + (lambda (_%g2976929789%_) + (if (gx#stx-pair/null? _%g2976929789%_) + (let ((_g39892_ (gx#syntax-split-splice - _%g2973329753%_ + _%g2976929789%_ '0))) (begin - (let ((_g39857_ + (let ((_g39893_ (let () (declare (not safe)) - (if (##values? _g39856_) - (##vector-length _g39856_) + (if (##values? _g39892_) + (##vector-length _g39892_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39857_ 2))) + (##fx= _g39893_ 2))) (error "Context expects 2 values" - _g39857_))) - (let ((_%target2973529756%_ + _g39893_))) + (let ((_%target2977129792%_ (let () (declare (not safe)) - (##vector-ref _g39856_ 0))) - (_%tl2973729759%_ + (##vector-ref _g39892_ 0))) + (_%tl2977329795%_ (let () (declare (not safe)) - (##vector-ref _g39856_ 1)))) - (if (gx#stx-null? _%tl2973729759%_) - (letrec ((_%loop2973829762%_ - (lambda (_%hd2973629766%_ - _%var2974229769%_) + (##vector-ref _g39892_ 1)))) + (if (gx#stx-null? _%tl2977329795%_) + (letrec ((_%loop2977429798%_ + (lambda (_%hd2977229802%_ + _%var2977829805%_) (if (gx#stx-pair? - _%hd2973629766%_) - (let ((_%e2973929772%_ + _%hd2977229802%_) + (let ((_%e2977529808%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2973629766%_))) - (let ((_%lp-hd2974029776%_ + (gx#syntax-e _%hd2977229802%_))) + (let ((_%lp-hd2977629812%_ (let () (declare (not safe)) - (##car _%e2973929772%_))) - (_%lp-tl2974129779%_ + (##car _%e2977529808%_))) + (_%lp-tl2977729815%_ (let () (declare (not safe)) - (##cdr _%e2973929772%_)))) - (_%loop2973829762%_ - _%lp-tl2974129779%_ - (cons _%lp-hd2974029776%_ _%var2974229769%_)))) - (let ((_%var2974329782%_ (reverse _%var2974229769%_))) - ((lambda (_%L29786%_) - (let* ((_%g2980229819%_ - (lambda (_%g2980329815%_) + (##cdr _%e2977529808%_)))) + (_%loop2977429798%_ + _%lp-tl2977729815%_ + (cons _%lp-hd2977629812%_ _%var2977829805%_)))) + (let ((_%var2977929818%_ (reverse _%var2977829805%_))) + ((lambda (_%L29822%_) + (let* ((_%g2983829855%_ + (lambda (_%g2983929851%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2980329815%_))) - (_%g2980130337%_ - (lambda (_%g2980329823%_) - (if (gx#stx-pair/null? _%g2980329823%_) - (let ((_g39858_ + _%g2983929851%_))) + (_%g2983730373%_ + (lambda (_%g2983929859%_) + (if (gx#stx-pair/null? _%g2983929859%_) + (let ((_g39894_ (gx#syntax-split-splice - _%g2980329823%_ + _%g2983929859%_ '0))) (begin - (let ((_g39859_ + (let ((_g39895_ (let () (declare (not safe)) - (if (##values? _g39858_) + (if (##values? _g39894_) (##vector-length - _g39858_) + _g39894_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39859_ 2))) + (##fx= _g39895_ 2))) (error "Context expects 2 values" - _g39859_))) - (let ((_%target2980529826%_ + _g39895_))) + (let ((_%target2984129862%_ (let () (declare (not safe)) - (##vector-ref _g39858_ 0))) - (_%tl2980729829%_ + (##vector-ref _g39894_ 0))) + (_%tl2984329865%_ (let () (declare (not safe)) (##vector-ref - _g39858_ + _g39894_ 1)))) (if (gx#stx-null? - _%tl2980729829%_) - (letrec ((_%loop2980829832%_ - (lambda (_%hd2980629836%_ + _%tl2984329865%_) + (letrec ((_%loop2984429868%_ + (lambda (_%hd2984229872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var-r2981229839%_) - (if (gx#stx-pair? _%hd2980629836%_) - (let ((_%e2980929842%_ - (gx#syntax-e _%hd2980629836%_))) - (let ((_%lp-hd2981029846%_ + _%var-r2984829875%_) + (if (gx#stx-pair? _%hd2984229872%_) + (let ((_%e2984529878%_ + (gx#syntax-e _%hd2984229872%_))) + (let ((_%lp-hd2984629882%_ (let () (declare (not safe)) - (##car _%e2980929842%_))) - (_%lp-tl2981129849%_ + (##car _%e2984529878%_))) + (_%lp-tl2984729885%_ (let () (declare (not safe)) - (##cdr _%e2980929842%_)))) - (_%loop2980829832%_ - _%lp-tl2981129849%_ - (cons _%lp-hd2981029846%_ _%var-r2981229839%_)))) - (let ((_%var-r2981329852%_ - (reverse _%var-r2981229839%_))) - ((lambda (_%L29856%_) - (let* ((_%g2987329890%_ - (lambda (_%g2987429886%_) + (##cdr _%e2984529878%_)))) + (_%loop2984429868%_ + _%lp-tl2984729885%_ + (cons _%lp-hd2984629882%_ _%var-r2984829875%_)))) + (let ((_%var-r2984929888%_ + (reverse _%var-r2984829875%_))) + ((lambda (_%L29892%_) + (let* ((_%g2990929926%_ + (lambda (_%g2991029922%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2987429886%_))) - (_%g2987230325%_ - (lambda (_%g2987429894%_) - (if (gx#stx-pair/null? _%g2987429894%_) - (let ((_g39860_ + _%g2991029922%_))) + (_%g2990830361%_ + (lambda (_%g2991029930%_) + (if (gx#stx-pair/null? _%g2991029930%_) + (let ((_g39896_ (gx#syntax-split-splice - _%g2987429894%_ + _%g2991029930%_ '0))) (begin - (let ((_g39861_ + (let ((_g39897_ (let () (declare (not safe)) (if (##values? - _g39860_) + _g39896_) (##vector-length - _g39860_) + _g39896_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39861_ + (##fx= _g39897_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g39861_))) + (error "Context expects 2 values" _g39897_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2987629897%_ + (let ((_%target2991229933%_ (let () (declare (not safe)) (##vector-ref - _g39860_ + _g39896_ 0))) - (_%tl2987829900%_ + (_%tl2991429936%_ (let () (declare (not safe)) (##vector-ref - _g39860_ + _g39896_ 1)))) (if (gx#stx-null? - _%tl2987829900%_) - (letrec ((_%loop2987929903%_ - (lambda (_%hd2987729907%_ + _%tl2991429936%_) + (letrec ((_%loop2991529939%_ + (lambda (_%hd2991329943%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%init2988329910%_) - (if (gx#stx-pair? _%hd2987729907%_) - (let ((_%e2988029913%_ - (gx#syntax-e _%hd2987729907%_))) - (let ((_%lp-hd2988129917%_ + _%init2991929946%_) + (if (gx#stx-pair? _%hd2991329943%_) + (let ((_%e2991629949%_ + (gx#syntax-e _%hd2991329943%_))) + (let ((_%lp-hd2991729953%_ (let () (declare (not safe)) - (##car _%e2988029913%_))) - (_%lp-tl2988229920%_ + (##car _%e2991629949%_))) + (_%lp-tl2991829956%_ (let () (declare (not safe)) - (##cdr _%e2988029913%_)))) - (_%loop2987929903%_ - _%lp-tl2988229920%_ - (cons _%lp-hd2988129917%_ - _%init2988329910%_)))) - (let ((_%init2988429923%_ - (reverse _%init2988329910%_))) - ((lambda (_%L29927%_) - (let* ((_%g2994429952%_ - (lambda (_%g2994529948%_) + (##cdr _%e2991629949%_)))) + (_%loop2991529939%_ + _%lp-tl2991829956%_ + (cons _%lp-hd2991729953%_ + _%init2991929946%_)))) + (let ((_%init2992029959%_ + (reverse _%init2991929946%_))) + ((lambda (_%L29963%_) + (let* ((_%g2998029988%_ + (lambda (_%g2998129984%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2994529948%_))) - (_%g2994330321%_ - (lambda (_%g2994529956%_) - ((lambda (_%L29959%_) - (let* ((_%g2997229980%_ - (lambda (_%g2997329976%_) + _%g2998129984%_))) + (_%g2997930357%_ + (lambda (_%g2998129992%_) + ((lambda (_%L29995%_) + (let* ((_%g3000830016%_ + (lambda (_%g3000930012%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2997329976%_))) - (_%g2997130317%_ - (lambda (_%g2997329984%_) - ((lambda (_%L29987%_) - (let* ((_%g3000030008%_ + _%g3000930012%_))) + (_%g3000730353%_ + (lambda (_%g3000930020%_) + ((lambda (_%L30023%_) + (let* ((_%g3003630044%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3000130004%_) + (lambda (_%g3003730040%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3000130004%_))) - (_%g2999930313%_ - (lambda (_%g3000130012%_) - ((lambda (_%L30015%_) - (let* ((_%g3002830036%_ - (lambda (_%g3002930032%_) + _%g3003730040%_))) + (_%g3003530349%_ + (lambda (_%g3003730048%_) + ((lambda (_%L30051%_) + (let* ((_%g3006430072%_ + (lambda (_%g3006530068%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3002930032%_))) - (_%g3002730309%_ - (lambda (_%g3002930040%_) - ((lambda (_%L30043%_) - (let* ((_%g3005630064%_ - (lambda (_%g3005730060%_) + _%g3006530068%_))) + (_%g3006330345%_ + (lambda (_%g3006530076%_) + ((lambda (_%L30079%_) + (let* ((_%g3009230100%_ + (lambda (_%g3009330096%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3005730060%_))) - (_%g3005530305%_ - (lambda (_%g3005730068%_) - ((lambda (_%L30071%_) - (let* ((_%g3008430092%_ + _%g3009330096%_))) + (_%g3009130341%_ + (lambda (_%g3009330104%_) + ((lambda (_%L30107%_) + (let* ((_%g3012030128%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3008530088%_) + (lambda (_%g3012130124%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3008530088%_))) - (_%g3008330301%_ - (lambda (_%g3008530096%_) - ((lambda (_%L30099%_) - (let* ((_%g3011230120%_ - (lambda (_%g3011330116%_) + _%g3012130124%_))) + (_%g3011930337%_ + (lambda (_%g3012130132%_) + ((lambda (_%L30135%_) + (let* ((_%g3014830156%_ + (lambda (_%g3014930152%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3011330116%_))) - (_%g3011130297%_ - (lambda (_%g3011330124%_) - ((lambda (_%L30127%_) - (let* ((_%g3014030148%_ - (lambda (_%g3014130144%_) + _%g3014930152%_))) + (_%g3014730333%_ + (lambda (_%g3014930160%_) + ((lambda (_%L30163%_) + (let* ((_%g3017630184%_ + (lambda (_%g3017730180%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3014130144%_))) - (_%g3013930282%_ - (lambda (_%g3014130152%_) - ((lambda (_%L30155%_) - (let* ((_%g3016830176%_ + _%g3017730180%_))) + (_%g3017530318%_ + (lambda (_%g3017730188%_) + ((lambda (_%L30191%_) + (let* ((_%g3020430212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3016930172%_) + (lambda (_%g3020530208%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3016930172%_))) - (_%g3016730270%_ - (lambda (_%g3016930180%_) - ((lambda (_%L30183%_) - (let* ((_%g3019630204%_ - (lambda (_%g3019730200%_) + _%g3020530208%_))) + (_%g3020330306%_ + (lambda (_%g3020530216%_) + ((lambda (_%L30219%_) + (let* ((_%g3023230240%_ + (lambda (_%g3023330236%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3019730200%_))) - (_%g3019530266%_ - (lambda (_%g3019730208%_) - ((lambda (_%L30211%_) + _%g3023330236%_))) + (_%g3023130302%_ + (lambda (_%g3023330244%_) + ((lambda (_%L30247%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L29987%_ + (cons (cons (cons _%L30023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30099%_ - (foldr (lambda (_%g3023330236%_ + (cons (cons _%L30135%_ + (foldr (lambda (_%g3026930272%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3023430239%_) - (cons _%g3023330236%_ _%g3023430239%_)) + _%g3027030275%_) + (cons _%g3026930272%_ _%g3027030275%_)) '() - _%L29786%_)) + _%L29822%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30127%_ '()))) + (cons _%L30163%_ '()))) '())) - (cons (cons _%L30043%_ + (cons (cons _%L30079%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30071%_ - (cons _%L30099%_ + (cons (cons _%L30107%_ + (cons _%L30135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3023130242%_ _%g3023230245%_) - (cons _%g3023130242%_ _%g3023230245%_)) + (foldr (lambda (_%g3026730278%_ _%g3026830281%_) + (cons _%g3026730278%_ _%g3026830281%_)) '() - _%L29856%_))) + _%L29892%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30211%_ '()))) + (cons _%L30247%_ '()))) '())) - (cons (cons _%L30015%_ + (cons (cons _%L30051%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30099%_ + (cons (cons _%L30135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3022930248%_ _%g3023030251%_) - (cons _%g3022930248%_ _%g3023030251%_)) + (foldr (lambda (_%g3026530284%_ _%g3026630287%_) + (cons _%g3026530284%_ _%g3026630287%_)) '() - _%L29856%_)) + _%L29892%_)) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30099%_ '())) - (cons (cons _%L30043%_ + (cons _%L30135%_ '())) + (cons (cons _%L30079%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30099%_ + (cons _%L30135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L30099%_ - (foldr (lambda (_%g3022730254%_ _%g3022830257%_) - (cons _%g3022730254%_ _%g3022830257%_)) + (cons _%L30135%_ + (foldr (lambda (_%g3026330290%_ _%g3026430293%_) + (cons _%g3026330290%_ _%g3026430293%_)) '() - _%L29856%_)))) + _%L29892%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30183%_ '())))) + (cons _%L30219%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()))) - (cons (cons _%L30015%_ - (cons _%L29959%_ - (foldr (lambda (_%g3022530260%_ - _%g3022630263%_) - (cons _%g3022530260%_ - _%g3022630263%_)) + (cons (cons _%L30051%_ + (cons _%L29995%_ + (foldr (lambda (_%g3026130296%_ + _%g3026230299%_) + (cons _%g3026130296%_ + _%g3026230299%_)) '() - _%L29927%_))) + _%L29963%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3019730208%_)))) - (_%g3019530266%_ - (_%generate129106%_ - _%L30071%_ - _%hd29727%_ - _%L30155%_ - _%L30183%_)))) - _%g3016930180%_)))) - (_%g3016730270%_ - (cons _%L29987%_ - (cons _%L30099%_ - (foldr (lambda (_%g3027330276%_ - _%g3027430279%_) + _%g3023330244%_)))) + (_%g3023130302%_ + (_%generate129142%_ + _%L30107%_ + _%hd29763%_ + _%L30191%_ + _%L30219%_)))) + _%g3020530216%_)))) + (_%g3020330306%_ + (cons _%L30023%_ + (cons _%L30135%_ + (foldr (lambda (_%g3030930312%_ + _%g3031030315%_) (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _%g3027330276%_ + (cons _%g3030930312%_ '())) - _%g3027430279%_)) + _%g3031030315%_)) '() - _%L29856%_)))))) - _%g3014130152%_)))) + _%L29892%_)))))) + _%g3017730188%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3013930282%_ - (cons _%L30015%_ + (_%g3017530318%_ + (cons _%L30051%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30099%_ '())) + (cons _%L30135%_ '())) (begin - (gx#syntax-check-splice-targets _%L29856%_ _%L29786%_) - (foldr (lambda (_%g3028530289%_ - _%g3028630292%_ - _%g3028730294%_) + (gx#syntax-check-splice-targets _%L29892%_ _%L29822%_) + (foldr (lambda (_%g3032130325%_ + _%g3032230328%_ + _%g3032330330%_) (cons (cons (gx#datum->syntax '#f 'cons) - (cons _%g3028630292%_ - (cons _%g3028530289%_ '()))) - _%g3028730294%_)) + (cons _%g3032230328%_ + (cons _%g3032130325%_ '()))) + _%g3032330330%_)) '() - _%L29856%_ - _%L29786%_))))))) + _%L29892%_ + _%L29822%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3011330124%_)))) - (_%g3011130297%_ - (_%generate129106%_ - _%L30099%_ - _%rest29728%_ - _%K29729%_ - _%E29730%_)))) - _%g3008530096%_)))) - (_%g3008330301%_ (gx#genident 'rest)))) - _%g3005730068%_)))) + _%g3014930160%_)))) + (_%g3014730333%_ + (_%generate129142%_ + _%L30135%_ + _%rest29764%_ + _%K29765%_ + _%E29766%_)))) + _%g3012130132%_)))) + (_%g3011930337%_ (gx#genident 'rest)))) + _%g3009330104%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3005530305%_ + (_%g3009130341%_ (gx#genident 'hd)))) - _%g3002930040%_)))) - (_%g3002730309%_ + _%g3006530076%_)))) + (_%g3006330345%_ (gx#genident 'splice-try)))) - _%g3000130012%_)))) - (_%g2999930313%_ (gx#genident 'splice-loop)))) - _%g2997329984%_)))) + _%g3003730048%_)))) + (_%g3003530349%_ (gx#genident 'splice-loop)))) + _%g3000930020%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2997130317%_ + (_%g3000730353%_ (gx#genident 'splice-rest)))) - _%g2994529956%_)))) - (_%g2994330321%_ _%tgt29725%_))) - _%init2988429923%_)))))) - (_%loop2987929903%_ _%target2987629897%_ '())) - (_%g2987329890%_ _%g2987429894%_))))) + _%g2998129992%_)))) + (_%g2997930357%_ _%tgt29761%_))) + _%init2992029959%_)))))) + (_%loop2991529939%_ _%target2991229933%_ '())) + (_%g2990929926%_ _%g2991029930%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2987329890%_ - _%g2987429894%_))))) - (_%g2987230325%_ + (_%g2990929926%_ + _%g2991029930%_))))) + (_%g2990830361%_ (make-list (gx#stx-length - (foldr (lambda (_%g3032830331%_ - _%g3032930334%_) - (cons _%g3032830331%_ - _%g3032930334%_)) + (foldr (lambda (_%g3036430367%_ + _%g3036530370%_) + (cons _%g3036430367%_ + _%g3036530370%_)) '() - _%L29786%_)) + _%L29822%_)) (cons (gx#datum->syntax '#f '@list) '()))))) - _%var-r2981329852%_)))))) + _%var-r2984929888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2980829832%_ - _%target2980529826%_ + (_%loop2984429868%_ + _%target2984129862%_ '())) - (_%g2980229819%_ - _%g2980329823%_))))) - (_%g2980229819%_ _%g2980329823%_))))) - (_%g2980130337%_ + (_%g2983829855%_ + _%g2983929859%_))))) + (_%g2983829855%_ _%g2983929859%_))))) + (_%g2983730373%_ (gx#gentemps - (foldr (lambda (_%g3034030343%_ _%g3034130346%_) - (cons _%g3034030343%_ _%g3034130346%_)) + (foldr (lambda (_%g3037630379%_ _%g3037730382%_) + (cons _%g3037630379%_ _%g3037730382%_)) '() - _%L29786%_))))) - _%var2974329782%_)))))) + _%L29822%_))))) + _%var2977929818%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2973829762%_ - _%target2973529756%_ + (_%loop2977429798%_ + _%target2977129792%_ '())) - (_%g2973229749%_ - _%g2973329753%_))))) - (_%g2973229749%_ _%g2973329753%_))))) - (_%g2973130349%_ + (_%g2976829785%_ + _%g2976929789%_))))) + (_%g2976829785%_ _%g2976929789%_))))) + (_%g2976730385%_ (|gerbil/core/match[1]#match-pattern-vars| - _%hd29727%_))))) - (_%generate-simple-vector29109%_ - (lambda (_%tgt29567%_ - _%body29569%_ - _%start29570%_ - _%K29571%_ - _%E29572%_) - (let _%recur29574%_ ((_%rest29577%_ _%body29569%_) - (_%off29579%_ _%start29570%_)) - (let* ((_%__stx3905939060%_ _%rest29577%_) - (_%g2958229594%_ + _%hd29763%_))))) + (_%generate-simple-vector29145%_ + (lambda (_%tgt29603%_ + _%body29605%_ + _%start29606%_ + _%K29607%_ + _%E29608%_) + (let _%recur29610%_ ((_%rest29613%_ _%body29605%_) + (_%off29615%_ _%start29606%_)) + (let* ((_%__stx3909539096%_ _%rest29613%_) + (_%g2961829630%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3905939060%_)))) - (let ((_%__kont3906239063%_ - (lambda (_%L29622%_ _%L29624%_) - (let* ((_%g2963929658%_ - (lambda (_%g2964029654%_) + _%__stx3909539096%_)))) + (let ((_%__kont3909839099%_ + (lambda (_%L29658%_ _%L29660%_) + (let* ((_%g2967529694%_ + (lambda (_%g2967629690%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2964029654%_))) - (_%g2963829717%_ - (lambda (_%g2964029662%_) - (if (gx#stx-pair? _%g2964029662%_) - (let ((_%e2964429665%_ + _%g2967629690%_))) + (_%g2967429753%_ + (lambda (_%g2967629698%_) + (if (gx#stx-pair? _%g2967629698%_) + (let ((_%e2968029701%_ (gx#syntax-e - _%g2964029662%_))) - (let ((_%hd2964529669%_ + _%g2967629698%_))) + (let ((_%hd2968129705%_ (let () (declare (not safe)) - (##car _%e2964429665%_))) - (_%tl2964629672%_ + (##car _%e2968029701%_))) + (_%tl2968229708%_ (let () (declare (not safe)) - (##cdr _%e2964429665%_)))) + (##cdr _%e2968029701%_)))) (if (gx#stx-pair? - _%tl2964629672%_) - (let ((_%e2964729675%_ + _%tl2968229708%_) + (let ((_%e2968329711%_ (gx#syntax-e - _%tl2964629672%_))) - (let ((_%hd2964829679%_ + _%tl2968229708%_))) + (let ((_%hd2968429715%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2964729675%_))) - (_%tl2964929682%_ - (let () (declare (not safe)) (##cdr _%e2964729675%_)))) - (if (gx#stx-pair? _%tl2964929682%_) - (let ((_%e2965029685%_ (gx#syntax-e _%tl2964929682%_))) - (let ((_%hd2965129689%_ + (##car _%e2968329711%_))) + (_%tl2968529718%_ + (let () (declare (not safe)) (##cdr _%e2968329711%_)))) + (if (gx#stx-pair? _%tl2968529718%_) + (let ((_%e2968629721%_ (gx#syntax-e _%tl2968529718%_))) + (let ((_%hd2968729725%_ (let () (declare (not safe)) - (##car _%e2965029685%_))) - (_%tl2965229692%_ + (##car _%e2968629721%_))) + (_%tl2968829728%_ (let () (declare (not safe)) - (##cdr _%e2965029685%_)))) - (if (gx#stx-null? _%tl2965229692%_) - ((lambda (_%L29695%_ _%L29697%_ _%L29698%_) + (##cdr _%e2968629721%_)))) + (if (gx#stx-null? _%tl2968829728%_) + ((lambda (_%L29731%_ _%L29733%_ _%L29734%_) (cons 'let - (cons (cons (cons _%L29698%_ + (cons (cons (cons _%L29734%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L29697%_ (cons _%L29695%_ '()))) + (cons _%L29733%_ (cons _%L29731%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L29698%_ - _%L29624%_ - (_%recur29574%_ - _%L29622%_ - (fx1+ _%off29579%_)) - _%E29572%_) + (cons (_%generate129142%_ + _%L29734%_ + _%L29660%_ + (_%recur29610%_ + _%L29658%_ + (fx1+ _%off29615%_)) + _%E29608%_) '())))) - _%hd2965129689%_ - _%hd2964829679%_ - _%hd2964529669%_) - (_%g2963929658%_ _%g2964029662%_)))) - (_%g2963929658%_ _%g2964029662%_)))) - (_%g2963929658%_ _%g2964029662%_)))) + _%hd2968729725%_ + _%hd2968429715%_ + _%hd2968129705%_) + (_%g2967529694%_ _%g2967629698%_)))) + (_%g2967529694%_ _%g2967629698%_)))) + (_%g2967529694%_ _%g2967629698%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2963929658%_ - _%g2964029662%_))))) - (_%g2963829717%_ + (_%g2967529694%_ + _%g2967629698%_))))) + (_%g2967429753%_ (list (gx#genident 'e) - _%tgt29567%_ - _%off29579%_))))) - (_%__kont3906439065%_ (lambda () _%K29571%_))) - (if (gx#stx-pair? _%__stx3905939060%_) - (let ((_%e2958629612%_ - (gx#syntax-e _%__stx3905939060%_))) - (let ((_%tl2958829619%_ + _%tgt29603%_ + _%off29615%_))))) + (_%__kont3910039101%_ (lambda () _%K29607%_))) + (if (gx#stx-pair? _%__stx3909539096%_) + (let ((_%e2962229648%_ + (gx#syntax-e _%__stx3909539096%_))) + (let ((_%tl2962429655%_ (let () (declare (not safe)) - (##cdr _%e2958629612%_))) - (_%hd2958729616%_ + (##cdr _%e2962229648%_))) + (_%hd2962329652%_ (let () (declare (not safe)) - (##car _%e2958629612%_)))) - (_%__kont3906239063%_ - _%tl2958829619%_ - _%hd2958729616%_))) - (_%__kont3906439065%_))))))) - (_%generate-list-vector29110%_ - (lambda (_%tgt29459%_ - _%body29461%_ - _%->list29462%_ - _%K29463%_ - _%E29464%_) - (let* ((_%g2946629474%_ - (lambda (_%g2946729470%_) + (##car _%e2962229648%_)))) + (_%__kont3909839099%_ + _%tl2962429655%_ + _%hd2962329652%_))) + (_%__kont3910039101%_))))))) + (_%generate-list-vector29146%_ + (lambda (_%tgt29495%_ + _%body29497%_ + _%->list29498%_ + _%K29499%_ + _%E29500%_) + (let* ((_%g2950229510%_ + (lambda (_%g2950329506%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2946729470%_))) - (_%g2946529563%_ - (lambda (_%g2946729478%_) - ((lambda (_%L29481%_) - (let* ((_%g2949329501%_ - (lambda (_%g2949429497%_) + _%g2950329506%_))) + (_%g2950129599%_ + (lambda (_%g2950329514%_) + ((lambda (_%L29517%_) + (let* ((_%g2952929537%_ + (lambda (_%g2953029533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2949429497%_))) - (_%g2949229559%_ - (lambda (_%g2949429505%_) - ((lambda (_%L29508%_) - (let* ((_%g2952129529%_ - (lambda (_%g2952229525%_) + _%g2953029533%_))) + (_%g2952829595%_ + (lambda (_%g2953029541%_) + ((lambda (_%L29544%_) + (let* ((_%g2955729565%_ + (lambda (_%g2955829561%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2952229525%_))) - (_%g2952029551%_ - (lambda (_%g2952229533%_) - ((lambda (_%L29536%_) + _%g2955829561%_))) + (_%g2955629587%_ + (lambda (_%g2955829569%_) + ((lambda (_%L29572%_) (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%L29481%_ (cons _%L29536%_ '())) + (cons (cons (cons _%L29517%_ (cons _%L29572%_ '())) '()) - (cons (_%generate129106%_ - _%L29481%_ - _%body29461%_ - _%K29463%_ - _%E29464%_) + (cons (_%generate129142%_ + _%L29517%_ + _%body29497%_ + _%K29499%_ + _%E29500%_) '())))) - _%g2952229533%_)))) + _%g2955829569%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2952029551%_ - (let ((_%$e29555%_ - _%->list29462%_)) + (_%g2955629587%_ + (let ((_%$e29591%_ + _%->list29498%_)) (if (eq? 'values->list - _%$e29555%_) + _%$e29591%_) (cons (gx#datum->syntax '#f 'values->list) - (cons _%L29508%_ + (cons _%L29544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (if (eq? 'vector->list _%$e29555%_) + (if (eq? 'vector->list _%$e29591%_) (cons (gx#datum->syntax '#f '##vector->list) - (cons _%L29508%_ '())) - (if (eq? 'struct->list _%$e29555%_) + (cons _%L29544%_ '())) + (if (eq? 'struct->list _%$e29591%_) (cons (gx#datum->syntax '#f '##cdr) (cons (cons (gx#datum->syntax '#f '##structure->list) - (cons _%L29508%_ '())) + (cons _%L29544%_ '())) '())) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _%stx29099%_ - _%->list29462%_)))))))) + _%stx29135%_ + _%->list29498%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2949429505%_)))) - (_%g2949229559%_ _%tgt29459%_))) - _%g2946729478%_)))) - (_%g2946529563%_ (gx#genident 'e))))) - (_%generate-struct29111%_ - (lambda (_%info29330%_ - _%tgt29332%_ - _%body29333%_ - _%K29334%_ - _%E29335%_) - (let* ((_%__stx3907539076%_ _%body29333%_) - (_%g2933829361%_ + _%g2953029541%_)))) + (_%g2952829595%_ _%tgt29495%_))) + _%g2950329514%_)))) + (_%g2950129599%_ (gx#genident 'e))))) + (_%generate-struct29147%_ + (lambda (_%info29366%_ + _%tgt29368%_ + _%body29369%_ + _%K29370%_ + _%E29371%_) + (let* ((_%__stx3911139112%_ _%body29369%_) + (_%g2937429397%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3907539076%_)))) - (let ((_%__kont3907839079%_ - (lambda (_%L29438%_) - (let ((_%fields29452%_ - (_%struct-field-accessors29113%_ - _%info29330%_))) + _%__stx3911139112%_)))) + (let ((_%__kont3911439115%_ + (lambda (_%L29474%_) + (let ((_%fields29488%_ + (_%struct-field-accessors29149%_ + _%info29366%_))) (cons 'if - (cons (cons (let ((__obj39829 - _%info29330%_)) + (cons (cons (let ((__obj39865 + _%info29366%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39829 + __obj39865 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39829 + __obj39865 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39829 + __obj39865 'predicate))) - (cons _%tgt29332%_ '())) - (cons (_%generate-simple-struct-body29112%_ - _%info29330%_ - _%tgt29332%_ - _%L29438%_ - _%K29334%_ - _%E29335%_) - (cons _%E29335%_ '()))))))) - (_%__kont3908039081%_ - (lambda (_%L29392%_) + (cons _%tgt29368%_ '())) + (cons (_%generate-simple-struct-body29148%_ + _%info29366%_ + _%tgt29368%_ + _%L29474%_ + _%K29370%_ + _%E29371%_) + (cons _%E29371%_ '()))))))) + (_%__kont3911639117%_ + (lambda (_%L29428%_) (cons 'if - (cons (cons (let ((__obj39830 - _%info29330%_)) + (cons (cons (let ((__obj39866 + _%info29366%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39830 + __obj39866 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39830 + __obj39866 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39830 + __obj39866 'predicate))) - (cons _%tgt29332%_ '())) - (cons (_%generate-list-vector29110%_ - _%tgt29332%_ - _%L29392%_ + (cons _%tgt29368%_ '())) + (cons (_%generate-list-vector29146%_ + _%tgt29368%_ + _%L29428%_ 'struct->list - _%K29334%_ - _%E29335%_) - (cons _%E29335%_ '()))))))) - (if (gx#stx-pair? _%__stx3907539076%_) - (let ((_%e2934129414%_ - (gx#syntax-e _%__stx3907539076%_))) - (let ((_%tl2934329421%_ + _%K29370%_ + _%E29371%_) + (cons _%E29371%_ '()))))))) + (if (gx#stx-pair? _%__stx3911139112%_) + (let ((_%e2937729450%_ + (gx#syntax-e _%__stx3911139112%_))) + (let ((_%tl2937929457%_ (let () (declare (not safe)) - (##cdr _%e2934129414%_))) - (_%hd2934229418%_ + (##cdr _%e2937729450%_))) + (_%hd2937829454%_ (let () (declare (not safe)) - (##car _%e2934129414%_)))) - (if (gx#stx-datum? _%hd2934229418%_) - (let ((_%e2934429424%_ - (gx#stx-e _%hd2934229418%_))) - (if (equal? _%e2934429424%_ 'simple:) - (if (gx#stx-pair? _%tl2934329421%_) - (let ((_%e2934529428%_ + (##car _%e2937729450%_)))) + (if (gx#stx-datum? _%hd2937829454%_) + (let ((_%e2938029460%_ + (gx#stx-e _%hd2937829454%_))) + (if (equal? _%e2938029460%_ 'simple:) + (if (gx#stx-pair? _%tl2937929457%_) + (let ((_%e2938129464%_ (gx#syntax-e - _%tl2934329421%_))) - (let ((_%tl2934729435%_ + _%tl2937929457%_))) + (let ((_%tl2938329471%_ (let () (declare (not safe)) - (##cdr _%e2934529428%_))) - (_%hd2934629432%_ + (##cdr _%e2938129464%_))) + (_%hd2938229468%_ (let () (declare (not safe)) - (##car _%e2934529428%_)))) + (##car _%e2938129464%_)))) (if (gx#stx-null? - _%tl2934729435%_) - (_%__kont3907839079%_ - _%hd2934629432%_) + _%tl2938329471%_) + (_%__kont3911439115%_ + _%hd2938229468%_) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2937429397%_))))) (let () (declare (not safe)) - (_%g2933829361%_))) - (if (equal? _%e2934429424%_ 'list:) + (_%g2937429397%_))) + (if (equal? _%e2938029460%_ 'list:) (if (gx#stx-pair? - _%tl2934329421%_) - (let ((_%e2935329382%_ + _%tl2937929457%_) + (let ((_%e2938929418%_ (gx#syntax-e - _%tl2934329421%_))) - (let ((_%tl2935529389%_ + _%tl2937929457%_))) + (let ((_%tl2939129425%_ (let () (declare (not safe)) - (##cdr _%e2935329382%_))) - (_%hd2935429386%_ + (##cdr _%e2938929418%_))) + (_%hd2939029422%_ (let () (declare (not safe)) - (##car _%e2935329382%_)))) + (##car _%e2938929418%_)))) (if (gx#stx-null? - _%tl2935529389%_) - (_%__kont3908039081%_ - _%hd2935429386%_) + _%tl2939129425%_) + (_%__kont3911639117%_ + _%hd2939029422%_) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2937429397%_))))) (let () (declare (not safe)) - (_%g2933829361%_))) + (_%g2937429397%_))) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2937429397%_))))) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2937429397%_))))) (let () (declare (not safe)) - (_%g2933829361%_))))))) - (_%generate-simple-struct-body29112%_ - (lambda (_%info29250%_ - _%tgt29252%_ - _%body29253%_ - _%K29254%_ - _%E29255%_) - (let _%recur29257%_ ((_%rest29260%_ _%body29253%_) - (_%fields29262%_ - (_%struct-field-accessors29113%_ - _%info29250%_))) - (let* ((_%__stx3912539126%_ _%rest29260%_) - (_%g2926529277%_ + (_%g2937429397%_))))))) + (_%generate-simple-struct-body29148%_ + (lambda (_%info29286%_ + _%tgt29288%_ + _%body29289%_ + _%K29290%_ + _%E29291%_) + (let _%recur29293%_ ((_%rest29296%_ _%body29289%_) + (_%fields29298%_ + (_%struct-field-accessors29149%_ + _%info29286%_))) + (let* ((_%__stx3916139162%_ _%rest29296%_) + (_%g2930129313%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3912539126%_)))) - (let ((_%__kont3912839129%_ - (lambda (_%L29305%_ _%L29307%_) - (if (null? _%fields29262%_) + _%__stx3916139162%_)))) + (let ((_%__kont3916439165%_ + (lambda (_%L29341%_ _%L29343%_) + (if (null? _%fields29298%_) (gx#raise-syntax-error '#f '"too many parts for struct" - _%stx29099%_ - _%info29250%_ - (let ((__obj39831 _%info29250%_)) + _%stx29135%_ + _%info29286%_ + (let ((__obj39867 _%info29286%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39831 + __obj39867 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39831 + __obj39867 '2 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39831 + __obj39867 'name)))) - (let ((_%$tgt29322%_ (gx#genident 'e)) - (_%getf29324%_ - (car _%fields29262%_))) + (let ((_%$tgt29358%_ (gx#genident 'e)) + (_%getf29360%_ + (car _%fields29298%_))) (cons 'let - (cons (cons (cons _%$tgt29322%_ - (cons (cons _%getf29324%_ + (cons (cons (cons _%$tgt29358%_ + (cons (cons _%getf29360%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tgt29252%_ '())) + (cons _%tgt29288%_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_%generate129106%_ - _%$tgt29322%_ - _%L29307%_ - (_%recur29257%_ - _%L29305%_ - (cdr _%fields29262%_)) - _%E29255%_) + (cons (_%generate129142%_ + _%$tgt29358%_ + _%L29343%_ + (_%recur29293%_ + _%L29341%_ + (cdr _%fields29298%_)) + _%E29291%_) '()))))))) - (_%__kont3913039131%_ (lambda () _%K29254%_))) - (if (gx#stx-pair? _%__stx3912539126%_) - (let ((_%e2926929295%_ - (gx#syntax-e _%__stx3912539126%_))) - (let ((_%tl2927129302%_ + (_%__kont3916639167%_ (lambda () _%K29290%_))) + (if (gx#stx-pair? _%__stx3916139162%_) + (let ((_%e2930529331%_ + (gx#syntax-e _%__stx3916139162%_))) + (let ((_%tl2930729338%_ (let () (declare (not safe)) - (##cdr _%e2926929295%_))) - (_%hd2927029299%_ + (##cdr _%e2930529331%_))) + (_%hd2930629335%_ (let () (declare (not safe)) - (##car _%e2926929295%_)))) - (_%__kont3912839129%_ - _%tl2927129302%_ - _%hd2927029299%_))) - (_%__kont3913039131%_))))))) - (_%struct-field-accessors29113%_ - (lambda (_%info29231%_) - (let _%recur29234%_ ((_%next29237%_ - (cons _%info29231%_ '()))) - (if (null? _%next29237%_) + (##car _%e2930529331%_)))) + (_%__kont3916439165%_ + _%tl2930729338%_ + _%hd2930629335%_))) + (_%__kont3916639167%_))))))) + (_%struct-field-accessors29149%_ + (lambda (_%info29267%_) + (let _%recur29270%_ ((_%next29273%_ + (cons _%info29267%_ '()))) + (if (null? _%next29273%_) '() - (let ((_%ti29240%_ (car _%next29237%_))) - (let ((__tmp39863 - (_%recur29234%_ + (let ((_%ti29276%_ (car _%next29273%_))) + (let ((__tmp39899 + (_%recur29270%_ (map gx#syntax-local-value - (let ((__obj39832 _%ti29240%_)) + (let ((__obj39868 _%ti29276%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39832 + __obj39868 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39832 + __obj39868 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39832 + __obj39868 'super)))))) - (__tmp39862 - (map (lambda (_%slot29243%_) - (let ((_%$e29246%_ - (agetq _%slot29243%_ - (let ((__obj39833 - _%ti29240%_)) + (__tmp39898 + (map (lambda (_%slot29279%_) + (let ((_%$e29282%_ + (agetq _%slot29279%_ + (let ((__obj39869 + _%ti29276%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj39833 + __obj39869 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj39833 '17 '#f '#f)) + (##unchecked-structure-ref __obj39869 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39833 + __obj39869 'unchecked-accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e29246%_ - _%$e29246%_ + (if _%$e29282%_ + _%$e29282%_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _%stx29099%_ - _%info29231%_ - _%slot29243%_)))) - (let ((__obj39834 _%ti29240%_)) + _%stx29135%_ + _%info29267%_ + _%slot29279%_)))) + (let ((__obj39870 _%ti29276%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39834 + __obj39870 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39834 + __obj39870 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39834 + __obj39870 'slots)))))) (declare (not safe)) - (##append __tmp39863 __tmp39862))))))) - (_%generate-class29114%_ - (lambda (_%info29224%_ - _%tgt29226%_ - _%body29227%_ - _%K29228%_ - _%E29229%_) + (##append __tmp39899 __tmp39898))))))) + (_%generate-class29150%_ + (lambda (_%info29260%_ + _%tgt29262%_ + _%body29263%_ + _%K29264%_ + _%E29265%_) (cons 'if - (cons (cons (let ((__obj39835 _%info29224%_)) + (cons (cons (let ((__obj39871 _%info29260%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39835 + __obj39871 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39835 + __obj39871 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39835 + __obj39871 'predicate))) - (cons _%tgt29226%_ '())) - (cons (_%generate-class-body29115%_ - _%info29224%_ - _%tgt29226%_ - _%body29227%_ - _%K29228%_ - _%E29229%_) - (cons _%E29229%_ '())))))) - (_%generate-class-body29115%_ - (lambda (_%info29117%_ - _%tgt29119%_ - _%body29120%_ - _%K29121%_ - _%E29122%_) - (let _%recur29124%_ ((_%rest29127%_ _%body29120%_)) - (let* ((_%__stx3914139142%_ _%rest29127%_) - (_%g2913129147%_ + (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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3914139142%_)))) - (let ((_%__kont3914439145%_ - (lambda (_%L29185%_ _%L29187%_ _%L29188%_) - (let ((_%$e29208%_ - (agetq (let ((__tmp39864 + _%__stx3917739178%_)))) + (let ((_%__kont3918039181%_ + (lambda (_%L29221%_ _%L29223%_ _%L29224%_) + (let ((_%$e29244%_ + (agetq (let ((__tmp39900 (keyword->string - (gx#stx-e _%L29188%_)))) + (gx#stx-e _%L29224%_)))) (declare (not safe)) - (##string->symbol __tmp39864)) - (let ((__obj39836 - _%info29117%_)) + (##string->symbol __tmp39900)) + (let ((__obj39872 + _%info29153%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39836 + __obj39872 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39836 + __obj39872 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39836 + __obj39872 'unchecked-accessors)))))) - (if _%$e29208%_ - ((lambda (_%getf29212%_) - (let ((_%$tgt29215%_ + (if _%$e29244%_ + ((lambda (_%getf29248%_) + (let ((_%$tgt29251%_ (gx#genident 'e))) (cons 'let - (cons (cons (cons _%$tgt29215%_ + (cons (cons (cons _%$tgt29251%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%getf29212%_ (cons _%tgt29119%_ '())) + (cons (cons _%getf29248%_ (cons _%tgt29155%_ '())) '())) '()) - (cons (_%generate129106%_ - _%$tgt29215%_ - _%L29187%_ - (_%recur29124%_ _%L29185%_) - _%E29122%_) + (cons (_%generate129142%_ + _%$tgt29251%_ + _%L29223%_ + (_%recur29160%_ _%L29221%_) + _%E29158%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e29208%_) + _%$e29244%_) (gx#raise-syntax-error '#f '"no slot accessor" - _%stx29099%_ - _%info29117%_ - _%L29188%_))))) - (_%__kont3914639147%_ (lambda () _%K29121%_))) - (if (gx#stx-pair? _%__stx3914139142%_) - (let ((_%e2913629165%_ - (gx#syntax-e _%__stx3914139142%_))) - (let ((_%tl2913829172%_ + _%stx29135%_ + _%info29153%_ + _%L29224%_))))) + (_%__kont3918239183%_ (lambda () _%K29157%_))) + (if (gx#stx-pair? _%__stx3917739178%_) + (let ((_%e2917229201%_ + (gx#syntax-e _%__stx3917739178%_))) + (let ((_%tl2917429208%_ (let () (declare (not safe)) - (##cdr _%e2913629165%_))) - (_%hd2913729169%_ + (##cdr _%e2917229201%_))) + (_%hd2917329205%_ (let () (declare (not safe)) - (##car _%e2913629165%_)))) - (if (gx#stx-pair? _%tl2913829172%_) - (let ((_%e2913929175%_ - (gx#syntax-e _%tl2913829172%_))) - (let ((_%tl2914129182%_ + (##car _%e2917229201%_)))) + (if (gx#stx-pair? _%tl2917429208%_) + (let ((_%e2917529211%_ + (gx#syntax-e _%tl2917429208%_))) + (let ((_%tl2917729218%_ (let () (declare (not safe)) - (##cdr _%e2913929175%_))) - (_%hd2914029179%_ + (##cdr _%e2917529211%_))) + (_%hd2917629215%_ (let () (declare (not safe)) - (##car _%e2913929175%_)))) - (_%__kont3914439145%_ - _%tl2914129182%_ - _%hd2914029179%_ - _%hd2913729169%_))) - (_%__kont3914639147%_)))) - (_%__kont3914639147%_)))))))) - (_%generate129106%_ - _%tgt29101%_ - _%ptree29102%_ - _%K29103%_ - _%E29104%_)))) + (##car _%e2917529211%_)))) + (_%__kont3918039181%_ + _%tl2917729218%_ + _%hd2917629215%_ + _%hd2917329205%_))) + (_%__kont3918239183%_)))) + (_%__kont3918239183%_)))))))) + (_%generate129142%_ + _%tgt29137%_ + _%ptree29138%_ + _%K29139%_ + _%E29140%_)))) (define |gerbil/core/match[1]#generate-match*| - (lambda (_%stx27912%_ _%tgt-lst27914%_ _%clauses27915%_) - (letrec ((_%parse-body27917%_ - (lambda (_%hd-len28921%_) - (let _%lp28924%_ ((_%rest28927%_ _%clauses27915%_) - (_%r28929%_ '())) - (let* ((_%__stx3919139192%_ _%rest28927%_) - (_%g2893228944%_ + (lambda (_%stx27948%_ _%tgt-lst27950%_ _%clauses27951%_) + (letrec ((_%parse-body27953%_ + (lambda (_%hd-len28957%_) + (let _%lp28960%_ ((_%rest28963%_ _%clauses27951%_) + (_%r28965%_ '())) + (let* ((_%__stx3922739228%_ _%rest28963%_) + (_%g2896828980%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3919139192%_)))) - (let ((_%__kont3919439195%_ - (lambda (_%L28972%_ _%L28974%_) - (let* ((_%__stx3916339164%_ _%L28974%_) - (_%g2899129007%_ + _%__stx3922739228%_)))) + (let ((_%__kont3923039231%_ + (lambda (_%L29008%_ _%L29010%_) + (let* ((_%__stx3919939200%_ _%L29010%_) + (_%g2902729043%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3916339164%_)))) - (let ((_%__kont3916639167%_ - (lambda (_%L29076%_) - (if (gx#stx-null? _%L28972%_) + _%__stx3919939200%_)))) + (let ((_%__kont3920239203%_ + (lambda (_%L29112%_) + (if (gx#stx-null? _%L29008%_) (cons (cons (gx#genident 'else) (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - _%L29076%_) - (let ((_%$e29087%_ - (gx#stx-source _%L28974%_))) - (if _%$e29087%_ - _%$e29087%_ - (gx#stx-source _%stx27912%_)))) + _%L29112%_) + (let ((_%$e29123%_ + (gx#stx-source _%L29010%_))) + (if _%$e29123%_ + _%$e29123%_ + (gx#stx-source _%stx27948%_)))) '()))) - _%r28929%_) + _%r28965%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _%stx27912%_ - _%L28974%_)))) - (_%__kont3916839169%_ - (lambda (_%L29035%_ _%L29037%_) - (_%lp28924%_ - _%L28972%_ + _%stx27948%_ + _%L29010%_)))) + (_%__kont3920439205%_ + (lambda (_%L29071%_ _%L29073%_) + (_%lp28960%_ + _%L29008%_ (cons (cons (gx#genident 'try-match) (cons (gx#stx-map - (lambda (_%g2904929051%_) + (lambda (_%g2908529087%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (|gerbil/core/match[1]#parse-match-pattern__%| - _%g2904929051%_ - _%stx27912%_)) - _%L29037%_) + _%g2908529087%_ + _%stx27948%_)) + _%L29073%_) (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) _%L29035%_) - (let ((_%$e29055%_ (gx#stx-source _%L28974%_))) - (if _%$e29055%_ - _%$e29055%_ - (gx#stx-source _%stx27912%_)))) + (cons (gx#datum->syntax '#f 'begin) _%L29071%_) + (let ((_%$e29091%_ (gx#stx-source _%L29010%_))) + (if _%$e29091%_ + _%$e29091%_ + (gx#stx-source _%stx27948%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r28929%_)))) - (_%__kont3917039171%_ + _%r28965%_)))) + (_%__kont3920639207%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27912%_ - _%L28974%_)))) - (let* ((_%__match3918839189%_ - (lambda (_%e2899929025%_ - _%hd2900029029%_ - _%tl2900129032%_) - (let ((_%L29035%_ - _%tl2900129032%_) - (_%L29037%_ - _%hd2900029029%_)) + _%stx27948%_ + _%L29010%_)))) + (let* ((_%__match3922439225%_ + (lambda (_%e2903529061%_ + _%hd2903629065%_ + _%tl2903729068%_) + (let ((_%L29071%_ + _%tl2903729068%_) + (_%L29073%_ + _%hd2903629065%_)) (if (and (gx#stx-list? - _%L29037%_) + _%L29073%_) (fx= (gx#stx-length - _%L29037%_) - _%hd-len28921%_) + _%L29073%_) + _%hd-len28957%_) (gx#stx-list? - _%L29035%_) + _%L29071%_) (not (gx#stx-null? - _%L29035%_))) - (_%__kont3916839169%_ - _%L29035%_ - _%L29037%_) - (_%__kont3917039171%_))))) - (_%__match3918239183%_ - (lambda (_%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_) - (let ((_%L29076%_ - _%tl2899629073%_)) + _%L29071%_))) + (_%__kont3920439205%_ + _%L29071%_ + _%L29073%_) + (_%__kont3920639207%_))))) + (_%__match3921839219%_ + (lambda (_%e2903029102%_ + _%hd2903129106%_ + _%tl2903229109%_) + (let ((_%L29112%_ + _%tl2903229109%_)) (if (and (gx#stx-list? - _%L29076%_) + _%L29112%_) (not (gx#stx-null? - _%L29076%_))) - (_%__kont3916639167%_ - _%L29076%_) - (_%__match3918839189%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_)))))) - (if (gx#stx-pair? _%__stx3916339164%_) - (let ((_%e2899429066%_ + _%L29112%_))) + (_%__kont3920239203%_ + _%L29112%_) + (_%__match3922439225%_ + _%e2903029102%_ + _%hd2903129106%_ + _%tl2903229109%_)))))) + (if (gx#stx-pair? _%__stx3919939200%_) + (let ((_%e2903029102%_ (gx#syntax-e - _%__stx3916339164%_))) - (let ((_%tl2899629073%_ + _%__stx3919939200%_))) + (let ((_%tl2903229109%_ (let () (declare (not safe)) - (##cdr _%e2899429066%_))) - (_%hd2899529070%_ + (##cdr _%e2903029102%_))) + (_%hd2903129106%_ (let () (declare (not safe)) - (##car _%e2899429066%_)))) + (##car _%e2903029102%_)))) (if (gx#identifier? - _%hd2899529070%_) + _%hd2903129106%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39865_| - _%hd2899529070%_) - (_%__match3918239183%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_) - (_%__match3918839189%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_)) - (_%__match3918839189%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_)))) - (_%__kont3917039171%_))))))) - (_%__kont3919639197%_ (lambda () _%r28929%_))) - (if (gx#stx-pair? _%__stx3919139192%_) - (let ((_%e2893628962%_ - (gx#syntax-e _%__stx3919139192%_))) - (let ((_%tl2893828969%_ + |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%_ (let () (declare (not safe)) - (##cdr _%e2893628962%_))) - (_%hd2893728966%_ + (##cdr _%e2897228998%_))) + (_%hd2897329002%_ (let () (declare (not safe)) - (##car _%e2893628962%_)))) - (_%__kont3919439195%_ - _%tl2893828969%_ - _%hd2893728966%_))) - (_%__kont3919639197%_))))))) - (_%generate-body27919%_ - (lambda (_%body28623%_) - (let* ((_%g2862628634%_ - (lambda (_%g2862728630%_) + (##car _%e2897228998%_)))) + (_%__kont3923039231%_ + _%tl2897429005%_ + _%hd2897329002%_))) + (_%__kont3923239233%_))))))) + (_%generate-body27955%_ + (lambda (_%body28659%_) + (let* ((_%g2866228670%_ + (lambda (_%g2866328666%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2862728630%_))) - (_%g2862528917%_ - (lambda (_%g2862728638%_) - ((lambda (_%L28641%_) - (let* ((_%g2865328670%_ - (lambda (_%g2865428666%_) + _%g2866328666%_))) + (_%g2866128953%_ + (lambda (_%g2866328674%_) + ((lambda (_%L28677%_) + (let* ((_%g2868928706%_ + (lambda (_%g2869028702%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2865428666%_))) - (_%g2865228913%_ - (lambda (_%g2865428674%_) + _%g2869028702%_))) + (_%g2868828949%_ + (lambda (_%g2869028710%_) (if (gx#stx-pair/null? - _%g2865428674%_) - (let ((_g39866_ + _%g2869028710%_) + (let ((_g39902_ (gx#syntax-split-splice - _%g2865428674%_ + _%g2869028710%_ '0))) (begin - (let ((_g39867_ + (let ((_g39903_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39866_) - (##vector-length _g39866_) + _g39902_) + (##vector-length _g39902_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39867_ 2))) - (error "Context expects 2 values" _g39867_))) + (##fx= _g39903_ 2))) + (error "Context expects 2 values" _g39903_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2865628677%_ + (let ((_%target2869228713%_ (let () (declare (not safe)) (##vector-ref - _g39866_ + _g39902_ 0))) - (_%tl2865828680%_ + (_%tl2869428716%_ (let () (declare (not safe)) (##vector-ref - _g39866_ + _g39902_ 1)))) (if (gx#stx-null? - _%tl2865828680%_) - (letrec ((_%loop2865928683%_ + _%tl2869428716%_) + (letrec ((_%loop2869528719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2865728687%_ _%target2866328690%_) - (if (gx#stx-pair? _%hd2865728687%_) - (let ((_%e2866028693%_ - (gx#syntax-e _%hd2865728687%_))) - (let ((_%lp-hd2866128697%_ + (lambda (_%hd2869328723%_ _%target2869928726%_) + (if (gx#stx-pair? _%hd2869328723%_) + (let ((_%e2869628729%_ + (gx#syntax-e _%hd2869328723%_))) + (let ((_%lp-hd2869728733%_ (let () (declare (not safe)) - (##car _%e2866028693%_))) - (_%lp-tl2866228700%_ + (##car _%e2869628729%_))) + (_%lp-tl2869828736%_ (let () (declare (not safe)) - (##cdr _%e2866028693%_)))) - (_%loop2865928683%_ - _%lp-tl2866228700%_ - (cons _%lp-hd2866128697%_ - _%target2866328690%_)))) - (let ((_%target2866428703%_ - (reverse _%target2866328690%_))) - ((lambda (_%L28707%_) - (let* ((_%g2872428741%_ - (lambda (_%g2872528737%_) + (##cdr _%e2869628729%_)))) + (_%loop2869528719%_ + _%lp-tl2869828736%_ + (cons _%lp-hd2869728733%_ + _%target2869928726%_)))) + (let ((_%target2870028739%_ + (reverse _%target2869928726%_))) + ((lambda (_%L28743%_) + (let* ((_%g2876028777%_ + (lambda (_%g2876128773%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2872528737%_))) - (_%g2872328909%_ - (lambda (_%g2872528745%_) + _%g2876128773%_))) + (_%g2875928945%_ + (lambda (_%g2876128781%_) (if (gx#stx-pair/null? - _%g2872528745%_) - (let ((_g39868_ + _%g2876128781%_) + (let ((_g39904_ (gx#syntax-split-splice - _%g2872528745%_ + _%g2876128781%_ '0))) (begin - (let ((_g39869_ + (let ((_g39905_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g39868_) - (##vector-length _g39868_) + (if (##values? _g39904_) + (##vector-length _g39904_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39869_ 2))) - (error "Context expects 2 values" _g39869_))) - (let ((_%target2872728748%_ - (let () (declare (not safe)) (##vector-ref _g39868_ 0))) - (_%tl2872928751%_ + (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%_ (let () (declare (not safe)) - (##vector-ref _g39868_ 1)))) - (if (gx#stx-null? _%tl2872928751%_) - (letrec ((_%loop2873028754%_ - (lambda (_%hd2872828758%_ - _%fail-diagnostic2873428761%_) - (if (gx#stx-pair? _%hd2872828758%_) - (let ((_%e2873128764%_ - (gx#syntax-e _%hd2872828758%_))) - (let ((_%lp-hd2873228768%_ + (##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%_ (let () (declare (not safe)) - (##car _%e2873128764%_))) - (_%lp-tl2873328771%_ + (##car _%e2876728800%_))) + (_%lp-tl2876928807%_ (let () (declare (not safe)) - (##cdr _%e2873128764%_)))) - (_%loop2873028754%_ - _%lp-tl2873328771%_ - (cons _%lp-hd2873228768%_ - _%fail-diagnostic2873428761%_)))) - (let ((_%fail-diagnostic2873528774%_ - (reverse _%fail-diagnostic2873428761%_))) - ((lambda (_%L28778%_) - (let* ((_%g2879528803%_ - (lambda (_%g2879628799%_) + (##cdr _%e2876728800%_)))) + (_%loop2876628790%_ + _%lp-tl2876928807%_ + (cons _%lp-hd2876828804%_ + _%fail-diagnostic2877028797%_)))) + (let ((_%fail-diagnostic2877128810%_ + (reverse _%fail-diagnostic2877028797%_))) + ((lambda (_%L28814%_) + (let* ((_%g2883128839%_ + (lambda (_%g2883228835%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2879628799%_))) - (_%g2879428889%_ - (lambda (_%g2879628807%_) - ((lambda (_%L28810%_) - (let* ((_%g2882328831%_ - (lambda (_%g2882428827%_) + _%g2883228835%_))) + (_%g2883028925%_ + (lambda (_%g2883228843%_) + ((lambda (_%L28846%_) + (let* ((_%g2885928867%_ + (lambda (_%g2886028863%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2882428827%_))) - (_%g2882228885%_ - (lambda (_%g2882428835%_) - ((lambda (_%L28838%_) - (let* ((_%g2885128859%_ - (lambda (_%g2885228855%_) + _%g2886028863%_))) + (_%g2885828921%_ + (lambda (_%g2886028871%_) + ((lambda (_%L28874%_) + (let* ((_%g2888728895%_ + (lambda (_%g2888828891%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2885228855%_))) - (_%g2885028881%_ - (lambda (_%g2885228863%_) - ((lambda (_%L28866%_) + _%g2888828891%_))) + (_%g2888628917%_ + (lambda (_%g2888828899%_) + ((lambda (_%L28902%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (gx#datum->syntax '#f '@match) - (cons _%L28866%_ '())))) - _%g2885228863%_)))) - (_%g2885028881%_ + (cons _%L28902%_ '())))) + _%g2888828899%_)))) + (_%g2888628917%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28641%_ - (cons _%L28810%_ '())) + (cons (cons (cons _%L28677%_ + (cons _%L28846%_ '())) '()) - (cons _%L28838%_ '()))) - (gx#stx-source _%stx27912%_))))) - _%g2882428835%_)))) - (_%g2882228885%_ - (_%generate-clauses27920%_ - _%body28623%_ + (cons _%L28874%_ '()))) + (gx#stx-source _%stx27948%_))))) + _%g2886028871%_)))) + (_%g2885828921%_ + (_%generate-clauses27956%_ + _%body28659%_ (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@abort) '()) - (cons (cons _%L28641%_ '()) '()))))))) - _%g2879628807%_)))) + (cons (cons _%L28677%_ '()) '()))))))) + _%g2883228843%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2879428889%_ + (_%g2883028925%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -4673,244 +4673,244 @@ '#f 'error) (cons '"No clause matching" - (foldr (lambda (_%g2889228897%_ - _%g2889328900%_) - (cons _%g2889228897%_ - _%g2889328900%_)) - (foldr (lambda (_%g2889428903%_ - _%g2889528906%_) + (foldr (lambda (_%g2892828933%_ + _%g2892928936%_) + (cons _%g2892828933%_ + _%g2892928936%_)) + (foldr (lambda (_%g2893028939%_ + _%g2893128942%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2889428903%_ '())) - _%g2889528906%_)) + (cons _%g2893028939%_ '())) + _%g2893128942%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L28778%_) - _%L28707%_))) + _%L28814%_) + _%L28743%_))) (cons (cons (gx#datum->syntax '#f 'void) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27912%_))))) - _%fail-diagnostic2873528774%_)))))) - (_%loop2873028754%_ _%target2872728748%_ '())) - (_%g2872428741%_ _%g2872528745%_))))) + (gx#stx-source _%stx27948%_))))) + _%fail-diagnostic2877128810%_)))))) + (_%loop2876628790%_ _%target2876328784%_ '())) + (_%g2876028777%_ _%g2876128781%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2872428741%_ - _%g2872528745%_))))) - (_%g2872328909%_ + (_%g2876028777%_ + _%g2876128781%_))))) + (_%g2875928945%_ (gx#stx-map gx#stx-car - _%clauses27915%_)))) - _%target2866428703%_)))))) - (_%loop2865928683%_ _%target2865628677%_ '())) - (_%g2865328670%_ _%g2865428674%_))))) + _%clauses27951%_)))) + _%target2870028739%_)))))) + (_%loop2869528719%_ _%target2869228713%_ '())) + (_%g2868928706%_ _%g2869028710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2865328670%_ - _%g2865428674%_))))) - (_%g2865228913%_ _%tgt-lst27914%_))) - _%g2862728638%_)))) - (_%g2862528917%_ (gx#genident 'E))))) - (_%generate-clauses27920%_ - (lambda (_%rest28275%_ _%E28277%_) - (let* ((_%__stx3920739208%_ _%rest28275%_) - (_%g2828128297%_ + (_%g2868928706%_ + _%g2869028710%_))))) + (_%g2868828949%_ _%tgt-lst27950%_))) + _%g2866328674%_)))) + (_%g2866128953%_ (gx#genident 'E))))) + (_%generate-clauses27956%_ + (lambda (_%rest28311%_ _%E28313%_) + (let* ((_%__stx3924339244%_ _%rest28311%_) + (_%g2831728333%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3920739208%_)))) - (let ((_%__kont3921039211%_ - (lambda (_%L28531%_) - (let* ((_%g2854228560%_ - (lambda (_%g2854328556%_) + _%__stx3924339244%_)))) + (let ((_%__kont3924639247%_ + (lambda (_%L28567%_) + (let* ((_%g2857828596%_ + (lambda (_%g2857928592%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2854328556%_))) - (_%g2854128615%_ - (lambda (_%g2854328564%_) - (if (gx#stx-pair? _%g2854328564%_) - (let ((_%e2854628567%_ + _%g2857928592%_))) + (_%g2857728651%_ + (lambda (_%g2857928600%_) + (if (gx#stx-pair? _%g2857928600%_) + (let ((_%e2858228603%_ (gx#syntax-e - _%g2854328564%_))) - (let ((_%hd2854728571%_ + _%g2857928600%_))) + (let ((_%hd2858328607%_ (let () (declare (not safe)) - (##car _%e2854628567%_))) - (_%tl2854828574%_ + (##car _%e2858228603%_))) + (_%tl2858428610%_ (let () (declare (not safe)) - (##cdr _%e2854628567%_)))) + (##cdr _%e2858228603%_)))) (if (gx#stx-pair? - _%tl2854828574%_) - (let ((_%e2854928577%_ + _%tl2858428610%_) + (let ((_%e2858528613%_ (gx#syntax-e - _%tl2854828574%_))) - (let ((_%hd2855028581%_ + _%tl2858428610%_))) + (let ((_%hd2858628617%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2854928577%_))) - (_%tl2855128584%_ - (let () (declare (not safe)) (##cdr _%e2854928577%_)))) - (if (gx#stx-pair? _%tl2855128584%_) - (let ((_%e2855228587%_ (gx#syntax-e _%tl2855128584%_))) - (let ((_%hd2855328591%_ + (##car _%e2858528613%_))) + (_%tl2858728620%_ + (let () (declare (not safe)) (##cdr _%e2858528613%_)))) + (if (gx#stx-pair? _%tl2858728620%_) + (let ((_%e2858828623%_ (gx#syntax-e _%tl2858728620%_))) + (let ((_%hd2858928627%_ (let () (declare (not safe)) - (##car _%e2855228587%_))) - (_%tl2855428594%_ + (##car _%e2858828623%_))) + (_%tl2859028630%_ (let () (declare (not safe)) - (##cdr _%e2855228587%_)))) - (if (gx#stx-null? _%tl2855428594%_) - ((lambda (_%L28597%_ _%L28599%_) + (##cdr _%e2858828623%_)))) + (if (gx#stx-null? _%tl2859028630%_) + ((lambda (_%L28633%_ _%L28635%_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _%L28599%_) - (_%generate127921%_ - _%L28599%_ - _%L28597%_ - _%E28277%_) - _%L28597%_) + (cons (if (gx#stx-e _%L28635%_) + (_%generate127957%_ + _%L28635%_ + _%L28633%_ + _%E28313%_) + _%L28633%_) '())))) - _%hd2855328591%_ - _%hd2855028581%_) - (_%g2854228560%_ _%g2854328564%_)))) - (_%g2854228560%_ _%g2854328564%_)))) + _%hd2858928627%_ + _%hd2858628617%_) + (_%g2857828596%_ _%g2857928600%_)))) + (_%g2857828596%_ _%g2857928600%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2854228560%_ - _%g2854328564%_)))) - (_%g2854228560%_ - _%g2854328564%_))))) - (_%g2854128615%_ _%L28531%_)))) - (_%__kont3921239213%_ - (lambda (_%L28325%_ _%L28327%_) - (let* ((_%g2834028359%_ - (lambda (_%g2834128355%_) + (_%g2857828596%_ + _%g2857928600%_)))) + (_%g2857828596%_ + _%g2857928600%_))))) + (_%g2857728651%_ _%L28567%_)))) + (_%__kont3924839249%_ + (lambda (_%L28361%_ _%L28363%_) + (let* ((_%g2837628395%_ + (lambda (_%g2837728391%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2834128355%_))) - (_%g2833928510%_ - (lambda (_%g2834128363%_) - (if (gx#stx-pair? _%g2834128363%_) - (let ((_%e2834528366%_ + _%g2837728391%_))) + (_%g2837528546%_ + (lambda (_%g2837728399%_) + (if (gx#stx-pair? _%g2837728399%_) + (let ((_%e2838128402%_ (gx#syntax-e - _%g2834128363%_))) - (let ((_%hd2834628370%_ + _%g2837728399%_))) + (let ((_%hd2838228406%_ (let () (declare (not safe)) - (##car _%e2834528366%_))) - (_%tl2834728373%_ + (##car _%e2838128402%_))) + (_%tl2838328409%_ (let () (declare (not safe)) - (##cdr _%e2834528366%_)))) + (##cdr _%e2838128402%_)))) (if (gx#stx-pair? - _%tl2834728373%_) - (let ((_%e2834828376%_ + _%tl2838328409%_) + (let ((_%e2838428412%_ (gx#syntax-e - _%tl2834728373%_))) - (let ((_%hd2834928380%_ + _%tl2838328409%_))) + (let ((_%hd2838528416%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2834828376%_))) - (_%tl2835028383%_ - (let () (declare (not safe)) (##cdr _%e2834828376%_)))) - (if (gx#stx-pair? _%tl2835028383%_) - (let ((_%e2835128386%_ (gx#syntax-e _%tl2835028383%_))) - (let ((_%hd2835228390%_ + (##car _%e2838428412%_))) + (_%tl2838628419%_ + (let () (declare (not safe)) (##cdr _%e2838428412%_)))) + (if (gx#stx-pair? _%tl2838628419%_) + (let ((_%e2838728422%_ (gx#syntax-e _%tl2838628419%_))) + (let ((_%hd2838828426%_ (let () (declare (not safe)) - (##car _%e2835128386%_))) - (_%tl2835328393%_ + (##car _%e2838728422%_))) + (_%tl2838928429%_ (let () (declare (not safe)) - (##cdr _%e2835128386%_)))) - (if (gx#stx-null? _%tl2835328393%_) - ((lambda (_%L28396%_ _%L28398%_ _%L28399%_) - (if (gx#stx-e _%L28398%_) - (let* ((_%g2841628431%_ - (lambda (_%g2841728427%_) + (##cdr _%e2838728422%_)))) + (if (gx#stx-null? _%tl2838928429%_) + ((lambda (_%L28432%_ _%L28434%_ _%L28435%_) + (if (gx#stx-e _%L28434%_) + (let* ((_%g2845228467%_ + (lambda (_%g2845328463%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2841728427%_))) - (_%g2841528476%_ - (lambda (_%g2841728435%_) + _%g2845328463%_))) + (_%g2845128512%_ + (lambda (_%g2845328471%_) (if (gx#stx-pair? - _%g2841728435%_) - (let ((_%e2842028438%_ + _%g2845328471%_) + (let ((_%e2845628474%_ (gx#syntax-e - _%g2841728435%_))) - (let ((_%hd2842128442%_ + _%g2845328471%_))) + (let ((_%hd2845728478%_ (let () (declare (not safe)) - (##car _%e2842028438%_))) - (_%tl2842228445%_ + (##car _%e2845628474%_))) + (_%tl2845828481%_ (let () (declare (not safe)) - (##cdr _%e2842028438%_)))) + (##cdr _%e2845628474%_)))) (if (gx#stx-pair? - _%tl2842228445%_) - (let ((_%e2842328448%_ + _%tl2845828481%_) + (let ((_%e2845928484%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2842228445%_))) - (let ((_%hd2842428452%_ + (gx#syntax-e _%tl2845828481%_))) + (let ((_%hd2846028488%_ (let () (declare (not safe)) - (##car _%e2842328448%_))) - (_%tl2842528455%_ + (##car _%e2845928484%_))) + (_%tl2846128491%_ (let () (declare (not safe)) - (##cdr _%e2842328448%_)))) - (if (gx#stx-null? _%tl2842528455%_) - ((lambda (_%L28458%_ _%L28460%_) + (##cdr _%e2845928484%_)))) + (if (gx#stx-null? _%tl2846128491%_) + ((lambda (_%L28494%_ _%L28496%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28399%_ + (cons (cons (cons _%L28435%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L28460%_ '()))) + (cons '() (cons _%L28496%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L28458%_ '())))) - _%hd2842428452%_ - _%hd2842128442%_) - (_%g2841628431%_ _%g2841728435%_)))) - (_%g2841628431%_ _%g2841728435%_)))) + (cons _%L28494%_ '())))) + _%hd2846028488%_ + _%hd2845728478%_) + (_%g2845228467%_ _%g2845328471%_)))) + (_%g2845228467%_ _%g2845328471%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2841628431%_ - _%g2841728435%_))))) - (_%g2841528476%_ - (list (_%generate127921%_ - _%L28398%_ - _%L28396%_ - _%E28277%_) - (_%generate-clauses27920%_ - _%L28325%_ - (cons _%L28399%_ '()))))) - (let* ((_%g2848028488%_ - (lambda (_%g2848128484%_) + (_%g2845228467%_ + _%g2845328471%_))))) + (_%g2845128512%_ + (list (_%generate127957%_ + _%L28434%_ + _%L28432%_ + _%E28313%_) + (_%generate-clauses27956%_ + _%L28361%_ + (cons _%L28435%_ '()))))) + (let* ((_%g2851628524%_ + (lambda (_%g2851728520%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2848128484%_))) - (_%g2847928506%_ - (lambda (_%g2848128492%_) - ((lambda (_%L28495%_) + _%g2851728520%_))) + (_%g2851528542%_ + (lambda (_%g2851728528%_) + ((lambda (_%L28531%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28399%_ + (cons (cons (cons _%L28435%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -4923,1712 +4923,1712 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28396%_ '()))) + (cons _%L28432%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L28495%_ '())))) + (cons _%L28531%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2848128492%_)))) - (_%g2847928506%_ - (_%generate-clauses27920%_ - _%L28325%_ - (cons _%L28399%_ '())))))) - _%hd2835228390%_ - _%hd2834928380%_ - _%hd2834628370%_) - (_%g2834028359%_ _%g2834128363%_)))) - (_%g2834028359%_ _%g2834128363%_)))) + _%g2851728528%_)))) + (_%g2851528542%_ + (_%generate-clauses27956%_ + _%L28361%_ + (cons _%L28435%_ '())))))) + _%hd2838828426%_ + _%hd2838528416%_ + _%hd2838228406%_) + (_%g2837628395%_ _%g2837728399%_)))) + (_%g2837628395%_ _%g2837728399%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2834028359%_ - _%g2834128363%_)))) - (_%g2834028359%_ - _%g2834128363%_))))) - (_%g2833928510%_ _%L28327%_)))) - (_%__kont3921439215%_ + (_%g2837628395%_ + _%g2837728399%_)))) + (_%g2837628395%_ + _%g2837728399%_))))) + (_%g2837528546%_ _%L28363%_)))) + (_%__kont3925039251%_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _%E28277%_ '())))))) - (if (gx#stx-pair? _%__stx3920739208%_) - (let ((_%e2828428521%_ - (gx#syntax-e _%__stx3920739208%_))) - (let ((_%tl2828628528%_ + (cons _%E28313%_ '())))))) + (if (gx#stx-pair? _%__stx3924339244%_) + (let ((_%e2832028557%_ + (gx#syntax-e _%__stx3924339244%_))) + (let ((_%tl2832228564%_ (let () (declare (not safe)) - (##cdr _%e2828428521%_))) - (_%hd2828528525%_ + (##cdr _%e2832028557%_))) + (_%hd2832128561%_ (let () (declare (not safe)) - (##car _%e2828428521%_)))) - (if (gx#stx-null? _%tl2828628528%_) - (_%__kont3921039211%_ _%hd2828528525%_) - (_%__kont3921239213%_ - _%tl2828628528%_ - _%hd2828528525%_)))) - (_%__kont3921439215%_)))))) - (_%generate127921%_ - (lambda (_%clause27923%_ _%body27925%_ _%E27926%_) - (let* ((_%g2792827952%_ - (lambda (_%g2792927948%_) + (##car _%e2832028557%_)))) + (if (gx#stx-null? _%tl2832228564%_) + (_%__kont3924639247%_ _%hd2832128561%_) + (_%__kont3924839249%_ + _%tl2832228564%_ + _%hd2832128561%_)))) + (_%__kont3925039251%_)))))) + (_%generate127957%_ + (lambda (_%clause27959%_ _%body27961%_ _%E27962%_) + (let* ((_%g2796427988%_ + (lambda (_%g2796527984%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2792927948%_))) - (_%g2792728271%_ - (lambda (_%g2792927956%_) - (if (gx#stx-pair? _%g2792927956%_) - (let ((_%e2793227959%_ - (gx#syntax-e _%g2792927956%_))) - (let ((_%hd2793327963%_ + _%g2796527984%_))) + (_%g2796328307%_ + (lambda (_%g2796527992%_) + (if (gx#stx-pair? _%g2796527992%_) + (let ((_%e2796827995%_ + (gx#syntax-e _%g2796527992%_))) + (let ((_%hd2796927999%_ (let () (declare (not safe)) - (##car _%e2793227959%_))) - (_%tl2793427966%_ + (##car _%e2796827995%_))) + (_%tl2797028002%_ (let () (declare (not safe)) - (##cdr _%e2793227959%_)))) - (if (gx#stx-pair? _%tl2793427966%_) - (let ((_%e2793527969%_ + (##cdr _%e2796827995%_)))) + (if (gx#stx-pair? _%tl2797028002%_) + (let ((_%e2797128005%_ (gx#syntax-e - _%tl2793427966%_))) - (let ((_%hd2793627973%_ + _%tl2797028002%_))) + (let ((_%hd2797228009%_ (let () (declare (not safe)) - (##car _%e2793527969%_))) - (_%tl2793727976%_ + (##car _%e2797128005%_))) + (_%tl2797328012%_ (let () (declare (not safe)) - (##cdr _%e2793527969%_)))) + (##cdr _%e2797128005%_)))) (if (gx#stx-pair/null? - _%hd2793627973%_) - (let ((_g39870_ + _%hd2797228009%_) + (let ((_g39906_ (gx#syntax-split-splice - _%hd2793627973%_ + _%hd2797228009%_ '0))) (begin - (let ((_g39871_ + (let ((_g39907_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g39870_) - (##vector-length _g39870_) + (if (##values? _g39906_) + (##vector-length _g39906_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39871_ 2))) - (error "Context expects 2 values" _g39871_))) - (let ((_%target2793827979%_ - (let () (declare (not safe)) (##vector-ref _g39870_ 0))) - (_%tl2794027982%_ - (let () (declare (not safe)) (##vector-ref _g39870_ 1)))) - (if (gx#stx-null? _%tl2794027982%_) - (letrec ((_%loop2794127985%_ - (lambda (_%hd2793927989%_ _%var2794527992%_) - (if (gx#stx-pair? _%hd2793927989%_) - (let ((_%e2794227995%_ - (gx#syntax-e _%hd2793927989%_))) - (let ((_%lp-hd2794327999%_ + (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%_ (let () (declare (not safe)) - (##car _%e2794227995%_))) - (_%lp-tl2794428002%_ + (##car _%e2797828031%_))) + (_%lp-tl2798028038%_ (let () (declare (not safe)) - (##cdr _%e2794227995%_)))) - (_%loop2794127985%_ - _%lp-tl2794428002%_ - (cons _%lp-hd2794327999%_ - _%var2794527992%_)))) - (let ((_%var2794628005%_ - (reverse _%var2794527992%_))) - (if (gx#stx-null? _%tl2793727976%_) - ((lambda (_%L28009%_ _%L28011%_) + (##cdr _%e2797828031%_)))) + (_%loop2797728021%_ + _%lp-tl2798028038%_ + (cons _%lp-hd2797928035%_ + _%var2798128028%_)))) + (let ((_%var2798228041%_ + (reverse _%var2798128028%_))) + (if (gx#stx-null? _%tl2797328012%_) + ((lambda (_%L28045%_ _%L28047%_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_%g2803228035%_ - _%g2803328038%_) - (cons _%g2803228035%_ - _%g2803328038%_)) + (foldr (lambda (_%g2806828071%_ + _%g2806928074%_) + (cons _%g2806828071%_ + _%g2806928074%_)) '() - _%L28009%_) - _%stx27912%_) - (let* ((_%g2804128049%_ - (lambda (_%g2804228045%_) + _%L28045%_) + _%stx27948%_) + (let* ((_%g2807728085%_ + (lambda (_%g2807828081%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2804228045%_))) - (_%g2804028143%_ - (lambda (_%g2804228053%_) - ((lambda (_%L28056%_) - (let* ((_%g2806928077%_ + _%g2807828081%_))) + (_%g2807628179%_ + (lambda (_%g2807828089%_) + ((lambda (_%L28092%_) + (let* ((_%g2810528113%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2807028073%_) + (lambda (_%g2810628109%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2807028073%_))) - (_%g2806828139%_ - (lambda (_%g2807028081%_) - ((lambda (_%L28084%_) - (let* ((_%g2809728105%_ - (lambda (_%g2809828101%_) + _%g2810628109%_))) + (_%g2810428175%_ + (lambda (_%g2810628117%_) + ((lambda (_%L28120%_) + (let* ((_%g2813328141%_ + (lambda (_%g2813428137%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2809828101%_))) - (_%g2809628127%_ - (lambda (_%g2809828109%_) - ((lambda (_%L28112%_) + _%g2813428137%_))) + (_%g2813228163%_ + (lambda (_%g2813428145%_) + ((lambda (_%L28148%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L28011%_ + (cons (cons _%L28047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28112%_ '())) - (cons _%L28056%_ '()))) + (cons _%L28148%_ '())) + (cons _%L28092%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27912%_))) - _%g2809828109%_)))) - (_%g2809628127%_ + (gx#stx-source _%stx27948%_))) + _%g2813428145%_)))) + (_%g2813228163%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g2813028133%_ + (cons (foldr (lambda (_%g2816628169%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2813128136%_) - (cons _%g2813028133%_ _%g2813128136%_)) + _%g2816728172%_) + (cons _%g2816628169%_ _%g2816728172%_)) '() - _%L28009%_) + _%L28045%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L28084%_ '()))) - (gx#stx-source _%stx27912%_))))) - _%g2807028081%_)))) - (_%g2806828139%_ _%body27925%_))) - _%g2804228053%_)))) + (cons _%L28120%_ '()))) + (gx#stx-source _%stx27948%_))))) + _%g2810628117%_)))) + (_%g2810428175%_ _%body27961%_))) + _%g2807828089%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2804028143%_ - (let _%recur28147%_ ((_%rest28150%_ + (_%g2807628179%_ + (let _%recur28183%_ ((_%rest28186%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause27923%_) - (_%rest-targets28152%_ _%tgt-lst27914%_)) + _%clause27959%_) + (_%rest-targets28188%_ _%tgt-lst27950%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx3923339234%_ - _%rest28150%_) - (_%g2815528167%_ + (let* ((_%__stx3926939270%_ + _%rest28186%_) + (_%g2819128203%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3923339234%_)))) - (let ((_%__kont3923639237%_ - (lambda (_%L28203%_ + _%__stx3926939270%_)))) + (let ((_%__kont3927239273%_ + (lambda (_%L28239%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L28205%_) - (let* ((_%g2822028232%_ - (lambda (_%g2822128228%_) + _%L28241%_) + (let* ((_%g2825628268%_ + (lambda (_%g2825728264%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2822128228%_))) - (_%g2821928263%_ - (lambda (_%g2822128236%_) - (if (gx#stx-pair? _%g2822128236%_) - (let ((_%e2822428239%_ - (gx#syntax-e _%g2822128236%_))) - (let ((_%hd2822528243%_ + _%g2825728264%_))) + (_%g2825528299%_ + (lambda (_%g2825728272%_) + (if (gx#stx-pair? _%g2825728272%_) + (let ((_%e2826028275%_ + (gx#syntax-e _%g2825728272%_))) + (let ((_%hd2826128279%_ (let () (declare (not safe)) - (##car _%e2822428239%_))) - (_%tl2822628246%_ + (##car _%e2826028275%_))) + (_%tl2826228282%_ (let () (declare (not safe)) - (##cdr _%e2822428239%_)))) - ((lambda (_%L28249%_ _%L28251%_) + (##cdr _%e2826028275%_)))) + ((lambda (_%L28285%_ _%L28287%_) (|gerbil/core/match[1]#generate-match1| - _%stx27912%_ - _%L28251%_ - _%L28205%_ - (_%recur28147%_ - _%L28203%_ - _%L28249%_) - _%E27926%_)) - _%tl2822628246%_ - _%hd2822528243%_))) - (_%g2822028232%_ _%g2822128236%_))))) - (_%g2821928263%_ _%rest-targets28152%_)))) - (_%__kont3923839239%_ + _%stx27948%_ + _%L28287%_ + _%L28241%_ + (_%recur28183%_ + _%L28239%_ + _%L28285%_) + _%E27962%_)) + _%tl2826228282%_ + _%hd2826128279%_))) + (_%g2825628268%_ _%g2825728272%_))))) + (_%g2825528299%_ _%rest-targets28188%_)))) + (_%__kont3927439275%_ (lambda () - (cons _%L28011%_ - (foldr (lambda (_%g2817728180%_ _%g2817828183%_) - (cons _%g2817728180%_ _%g2817828183%_)) + (cons _%L28047%_ + (foldr (lambda (_%g2821328216%_ _%g2821428219%_) + (cons _%g2821328216%_ _%g2821428219%_)) '() - _%L28009%_))))) - (if (gx#stx-pair? _%__stx3923339234%_) - (let ((_%e2815928193%_ (gx#syntax-e _%__stx3923339234%_))) - (let ((_%tl2816128200%_ + _%L28045%_))))) + (if (gx#stx-pair? _%__stx3926939270%_) + (let ((_%e2819528229%_ (gx#syntax-e _%__stx3926939270%_))) + (let ((_%tl2819728236%_ (let () (declare (not safe)) - (##cdr _%e2815928193%_))) - (_%hd2816028197%_ + (##cdr _%e2819528229%_))) + (_%hd2819628233%_ (let () (declare (not safe)) - (##car _%e2815928193%_)))) - (_%__kont3923639237%_ - _%tl2816128200%_ - _%hd2816028197%_))) - (_%__kont3923839239%_))))))))) + (##car _%e2819528229%_)))) + (_%__kont3927239273%_ + _%tl2819728236%_ + _%hd2819628233%_))) + (_%__kont3927439275%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var2794628005%_ - _%hd2793327963%_) - (_%g2792827952%_ - _%g2792927956%_))))))) - (_%loop2794127985%_ _%target2793827979%_ '())) - (_%g2792827952%_ _%g2792927956%_))))) + _%var2798228041%_ + _%hd2796927999%_) + (_%g2796427988%_ + _%g2796527992%_))))))) + (_%loop2797728021%_ _%target2797428015%_ '())) + (_%g2796427988%_ _%g2796527992%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2792827952%_ - _%g2792927956%_)))) - (_%g2792827952%_ _%g2792927956%_)))) - (_%g2792827952%_ _%g2792927956%_))))) - (_%g2792728271%_ + (_%g2796427988%_ + _%g2796527992%_)))) + (_%g2796427988%_ _%g2796527992%_)))) + (_%g2796427988%_ _%g2796527992%_))))) + (_%g2796328307%_ (list (gx#genident 'K) - (let ((__tmp39872 + (let ((__tmp39908 (map |gerbil/core/match[1]#match-pattern-vars| - _%clause27923%_))) + _%clause27959%_))) (declare (not safe)) - (##apply append __tmp39872)))))))) - (_%generate-body27919%_ - (_%parse-body27917%_ (gx#stx-length _%tgt-lst27914%_)))))) + (##apply append __tmp39908)))))))) + (_%generate-body27955%_ + (_%parse-body27953%_ (gx#stx-length _%tgt-lst27950%_)))))) (define |gerbil/core/match[1]#generate-match| - (lambda (_%stx27814%_ _%tgt27816%_ _%clauses27817%_) - (letrec ((_%reclause27819%_ - (lambda (_%clause27822%_) - (let* ((_%__stx3924939250%_ _%clause27822%_) - (_%g2782727842%_ + (lambda (_%stx27850%_ _%tgt27852%_ _%clauses27853%_) + (letrec ((_%reclause27855%_ + (lambda (_%clause27858%_) + (let* ((_%__stx3928539286%_ _%clause27858%_) + (_%g2786327878%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3924939250%_)))) - (let ((_%__kont3925239253%_ (lambda () _%clause27822%_)) - (_%__kont3925439255%_ - (lambda (_%L27870%_ _%L27872%_) + _%__stx3928539286%_)))) + (let ((_%__kont3928839289%_ (lambda () _%clause27858%_)) + (_%__kont3929039291%_ + (lambda (_%L27906%_ _%L27908%_) (gx#stx-wrap-source - (cons (cons _%L27872%_ '()) _%L27870%_) + (cons (cons _%L27908%_ '()) _%L27906%_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (_%__kont3925639257%_ + (_%__kont3929239293%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27814%_ - _%clause27822%_)))) - (if (gx#stx-pair? _%__stx3924939250%_) - (let ((_%e2782927894%_ - (gx#syntax-e _%__stx3924939250%_))) - (let ((_%tl2783127901%_ + _%stx27850%_ + _%clause27858%_)))) + (if (gx#stx-pair? _%__stx3928539286%_) + (let ((_%e2786527930%_ + (gx#syntax-e _%__stx3928539286%_))) + (let ((_%tl2786727937%_ (let () (declare (not safe)) - (##cdr _%e2782927894%_))) - (_%hd2783027898%_ + (##cdr _%e2786527930%_))) + (_%hd2786627934%_ (let () (declare (not safe)) - (##car _%e2782927894%_)))) - (if (gx#identifier? _%hd2783027898%_) + (##car _%e2786527930%_)))) + (if (gx#identifier? _%hd2786627934%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39873_| - _%hd2783027898%_) - (_%__kont3925239253%_) - (_%__kont3925439255%_ - _%tl2783127901%_ - _%hd2783027898%_)) - (_%__kont3925439255%_ - _%tl2783127901%_ - _%hd2783027898%_)))) - (_%__kont3925639257%_))))))) + |gerbil/core/match[1]#_g39909_| + _%hd2786627934%_) + (_%__kont3928839289%_) + (_%__kont3929039291%_ + _%tl2786727937%_ + _%hd2786627934%_)) + (_%__kont3929039291%_ + _%tl2786727937%_ + _%hd2786627934%_)))) + (_%__kont3929239293%_))))))) (|gerbil/core/match[1]#generate-match*| - _%stx27814%_ - (cons _%tgt27816%_ '()) - (gx#stx-map _%reclause27819%_ _%clauses27817%_))))) + _%stx27850%_ + (cons _%tgt27852%_ '()) + (gx#stx-map _%reclause27855%_ _%clauses27853%_))))) (define |gerbil/core/match[:0:]#match| - (lambda (_%stx35150%_) - (let* ((_%__stx3927739278%_ _%stx35150%_) - (_%g3515535184%_ + (lambda (_%stx35186%_) + (let* ((_%__stx3931339314%_ _%stx35186%_) + (_%g3519135220%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3927739278%_)))) - (let ((_%__kont3928039281%_ - (lambda (_%L35424%_) - (let* ((_%g3543735445%_ - (lambda (_%g3543835441%_) + _%__stx3931339314%_)))) + (let ((_%__kont3931639317%_ + (lambda (_%L35460%_) + (let* ((_%g3547335481%_ + (lambda (_%g3547435477%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3543835441%_))) - (_%g3543635498%_ - (lambda (_%g3543835449%_) - ((lambda (_%L35452%_) - (let* ((_%g3546435472%_ - (lambda (_%g3546535468%_) + _%g3547435477%_))) + (_%g3547235534%_ + (lambda (_%g3547435485%_) + ((lambda (_%L35488%_) + (let* ((_%g3550035508%_ + (lambda (_%g3550135504%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3546535468%_))) - (_%g3546335494%_ - (lambda (_%g3546535476%_) - ((lambda (_%L35479%_) + _%g3550135504%_))) + (_%g3549935530%_ + (lambda (_%g3550135512%_) + ((lambda (_%L35515%_) (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L35452%_ '()) - (cons _%L35479%_ + (cons (cons _%L35488%_ '()) + (cons _%L35515%_ '())))) - _%g3546535476%_)))) - (_%g3546335494%_ + _%g3550135512%_)))) + (_%g3549935530%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35452%_ _%L35424%_)) - (gx#stx-source _%stx35150%_))))) - _%g3543835449%_)))) - (_%g3543635498%_ (gx#genident 'e))))) - (_%__kont3928239283%_ - (lambda (_%L35319%_) - (let* ((_%g3533235340%_ - (lambda (_%g3533335336%_) + (cons _%L35488%_ _%L35460%_)) + (gx#stx-source _%stx35186%_))))) + _%g3547435485%_)))) + (_%g3547235534%_ (gx#genident 'e))))) + (_%__kont3931839319%_ + (lambda (_%L35355%_) + (let* ((_%g3536835376%_ + (lambda (_%g3536935372%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3533335336%_))) - (_%g3533135393%_ - (lambda (_%g3533335344%_) - ((lambda (_%L35347%_) - (let* ((_%g3535935367%_ - (lambda (_%g3536035363%_) + _%g3536935372%_))) + (_%g3536735429%_ + (lambda (_%g3536935380%_) + ((lambda (_%L35383%_) + (let* ((_%g3539535403%_ + (lambda (_%g3539635399%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3536035363%_))) - (_%g3535835389%_ - (lambda (_%g3536035371%_) - ((lambda (_%L35374%_) + _%g3539635399%_))) + (_%g3539435425%_ + (lambda (_%g3539635407%_) + ((lambda (_%L35410%_) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L35347%_ - (cons _%L35374%_ + (cons _%L35383%_ + (cons _%L35410%_ '())))) - _%g3536035371%_)))) - (_%g3535835389%_ + _%g3539635407%_)))) + (_%g3539435425%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35347%_ _%L35319%_)) - (gx#stx-source _%stx35150%_))))) - _%g3533335344%_)))) - (_%g3533135393%_ (gx#genident 'args))))) - (_%__kont3928439285%_ - (lambda (_%L35211%_ _%L35213%_) - (let* ((_%g3522735235%_ - (lambda (_%g3522835231%_) + (cons _%L35383%_ _%L35355%_)) + (gx#stx-source _%stx35186%_))))) + _%g3536935380%_)))) + (_%g3536735429%_ (gx#genident 'args))))) + (_%__kont3932039321%_ + (lambda (_%L35247%_ _%L35249%_) + (let* ((_%g3526335271%_ + (lambda (_%g3526435267%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3522835231%_))) - (_%g3522635288%_ - (lambda (_%g3522835239%_) - ((lambda (_%L35242%_) - (let* ((_%g3525435262%_ - (lambda (_%g3525535258%_) + _%g3526435267%_))) + (_%g3526235324%_ + (lambda (_%g3526435275%_) + ((lambda (_%L35278%_) + (let* ((_%g3529035298%_ + (lambda (_%g3529135294%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3525535258%_))) - (_%g3525335284%_ - (lambda (_%g3525535266%_) - ((lambda (_%L35269%_) + _%g3529135294%_))) + (_%g3528935320%_ + (lambda (_%g3529135302%_) + ((lambda (_%L35305%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L35242%_ + (cons (cons (cons _%L35278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L35213%_ '())) + (cons _%L35249%_ '())) '()) - (cons _%L35269%_ '())))) + (cons _%L35305%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3525535266%_)))) - (_%g3525335284%_ + _%g3529135302%_)))) + (_%g3528935320%_ (|gerbil/core/match[1]#generate-match| - _%stx35150%_ - _%L35242%_ - _%L35211%_)))) - _%g3522835239%_)))) - (_%g3522635288%_ (gx#genident _%L35213%_)))))) - (let* ((_%__match3933039331%_ - (lambda (_%e3517335191%_ - _%hd3517435195%_ - _%tl3517535198%_ - _%e3517635201%_ - _%hd3517735205%_ - _%tl3517835208%_) - (let ((_%L35211%_ _%tl3517835208%_) - (_%L35213%_ _%hd3517735205%_)) - (if (gx#stx-list? _%L35211%_) - (_%__kont3928439285%_ _%L35211%_ _%L35213%_) - (let () (declare (not safe)) (_%g3515535184%_)))))) - (_%__match3931839319%_ - (lambda (_%e3516535299%_ - _%hd3516635303%_ - _%tl3516735306%_ - _%e3516835309%_ - _%hd3516935313%_ - _%tl3517035316%_) - (let ((_%L35319%_ _%tl3517035316%_)) - (if (gx#stx-list? _%L35319%_) - (_%__kont3928239283%_ _%L35319%_) - (_%__match3933039331%_ - _%e3516535299%_ - _%hd3516635303%_ - _%tl3516735306%_ - _%e3516835309%_ - _%hd3516935313%_ - _%tl3517035316%_))))) - (_%__match3930239303%_ - (lambda (_%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_) - (let ((_%L35424%_ _%tl3516335421%_)) - (if (gx#stx-list? _%L35424%_) - (_%__kont3928039281%_ _%L35424%_) - (_%__match3933039331%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_)))))) - (if (gx#stx-pair? _%__stx3927739278%_) - (let ((_%e3515835404%_ (gx#syntax-e _%__stx3927739278%_))) - (let ((_%tl3516035411%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e3515835404%_))) - (_%hd3515935408%_ + (##cdr _%e3519435440%_))) + (_%hd3519535444%_ (let () (declare (not safe)) - (##car _%e3515835404%_)))) - (if (gx#stx-pair? _%tl3516035411%_) - (let ((_%e3516135414%_ - (gx#syntax-e _%tl3516035411%_))) - (let ((_%tl3516335421%_ + (##car _%e3519435440%_)))) + (if (gx#stx-pair? _%tl3519635447%_) + (let ((_%e3519735450%_ + (gx#syntax-e _%tl3519635447%_))) + (let ((_%tl3519935457%_ (let () (declare (not safe)) - (##cdr _%e3516135414%_))) - (_%hd3516235418%_ + (##cdr _%e3519735450%_))) + (_%hd3519835454%_ (let () (declare (not safe)) - (##car _%e3516135414%_)))) - (if (gx#identifier? _%hd3516235418%_) + (##car _%e3519735450%_)))) + (if (gx#identifier? _%hd3519835454%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39874_| - _%hd3516235418%_) - (_%__match3930239303%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_) + |gerbil/core/match[1]#_g39910_| + _%hd3519835454%_) + (_%__match3933839339%_ + _%e3519435440%_ + _%hd3519535444%_ + _%tl3519635447%_ + _%e3519735450%_ + _%hd3519835454%_ + _%tl3519935457%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39875_| - _%hd3516235418%_) - (_%__match3931839319%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_) - (_%__match3933039331%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_))) - (_%__match3933039331%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_)))) - (let () (declare (not safe)) (_%g3515535184%_))))) - (let () (declare (not safe)) (_%g3515535184%_)))))))) + |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%_)))))))) (define |gerbil/core/match[:0:]#match*| - (lambda (_%stx35506%_) - (let* ((_%g3550935533%_ - (lambda (_%g3551035529%_) + (lambda (_%stx35542%_) + (let* ((_%g3554535569%_ + (lambda (_%g3554635565%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3551035529%_))) - (_%g3550835745%_ - (lambda (_%g3551035537%_) - (if (gx#stx-pair? _%g3551035537%_) - (let ((_%e3551335540%_ (gx#syntax-e _%g3551035537%_))) - (let ((_%hd3551435544%_ + _%g3554635565%_))) + (_%g3554435781%_ + (lambda (_%g3554635573%_) + (if (gx#stx-pair? _%g3554635573%_) + (let ((_%e3554935576%_ (gx#syntax-e _%g3554635573%_))) + (let ((_%hd3555035580%_ (let () (declare (not safe)) - (##car _%e3551335540%_))) - (_%tl3551535547%_ + (##car _%e3554935576%_))) + (_%tl3555135583%_ (let () (declare (not safe)) - (##cdr _%e3551335540%_)))) - (if (gx#stx-pair? _%tl3551535547%_) - (let ((_%e3551635550%_ - (gx#syntax-e _%tl3551535547%_))) - (let ((_%hd3551735554%_ + (##cdr _%e3554935576%_)))) + (if (gx#stx-pair? _%tl3555135583%_) + (let ((_%e3555235586%_ + (gx#syntax-e _%tl3555135583%_))) + (let ((_%hd3555335590%_ (let () (declare (not safe)) - (##car _%e3551635550%_))) - (_%tl3551835557%_ + (##car _%e3555235586%_))) + (_%tl3555435593%_ (let () (declare (not safe)) - (##cdr _%e3551635550%_)))) - (if (gx#stx-pair/null? _%hd3551735554%_) - (let ((_g39876_ + (##cdr _%e3555235586%_)))) + (if (gx#stx-pair/null? _%hd3555335590%_) + (let ((_g39912_ (gx#syntax-split-splice - _%hd3551735554%_ + _%hd3555335590%_ '0))) (begin - (let ((_g39877_ + (let ((_g39913_ (let () (declare (not safe)) - (if (##values? _g39876_) + (if (##values? _g39912_) (##vector-length - _g39876_) + _g39912_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39877_ 2))) + (##fx= _g39913_ 2))) (error "Context expects 2 values" - _g39877_))) - (let ((_%target3551935560%_ + _g39913_))) + (let ((_%target3555535596%_ (let () (declare (not safe)) - (##vector-ref _g39876_ 0))) - (_%tl3552135563%_ + (##vector-ref _g39912_ 0))) + (_%tl3555735599%_ (let () (declare (not safe)) - (##vector-ref _g39876_ 1)))) - (if (gx#stx-null? _%tl3552135563%_) - (letrec ((_%loop3552235566%_ - (lambda (_%hd3552035570%_ + (##vector-ref _g39912_ 1)))) + (if (gx#stx-null? _%tl3555735599%_) + (letrec ((_%loop3555835602%_ + (lambda (_%hd3555635606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e3552635573%_) - (if (gx#stx-pair? _%hd3552035570%_) - (let ((_%e3552335576%_ (gx#syntax-e _%hd3552035570%_))) - (let ((_%lp-hd3552435580%_ + _%e3556235609%_) + (if (gx#stx-pair? _%hd3555635606%_) + (let ((_%e3555935612%_ (gx#syntax-e _%hd3555635606%_))) + (let ((_%lp-hd3556035616%_ (let () (declare (not safe)) - (##car _%e3552335576%_))) - (_%lp-tl3552535583%_ + (##car _%e3555935612%_))) + (_%lp-tl3556135619%_ (let () (declare (not safe)) - (##cdr _%e3552335576%_)))) - (_%loop3552235566%_ - _%lp-tl3552535583%_ - (cons _%lp-hd3552435580%_ _%e3552635573%_)))) - (let ((_%e3552735586%_ (reverse _%e3552635573%_))) - ((lambda (_%L35590%_ _%L35592%_) - (if (gx#stx-list? _%L35590%_) - (let* ((_%g3561035627%_ - (lambda (_%g3561135623%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3561135623%_))) - (_%g3560935733%_ - (lambda (_%g3561135631%_) + _%g3564735659%_))) + (_%g3564535769%_ + (lambda (_%g3564735667%_) (if (gx#stx-pair/null? - _%g3561135631%_) - (let ((_g39878_ + _%g3564735667%_) + (let ((_g39914_ (gx#syntax-split-splice - _%g3561135631%_ + _%g3564735667%_ '0))) (begin - (let ((_g39879_ + (let ((_g39915_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39878_) - (##vector-length _g39878_) + _g39914_) + (##vector-length _g39914_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39879_ 2))) - (error "Context expects 2 values" _g39879_))) + (##fx= _g39915_ 2))) + (error "Context expects 2 values" _g39915_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target3561335634%_ + (let ((_%target3564935670%_ (let () (declare (not safe)) (##vector-ref - _g39878_ + _g39914_ 0))) - (_%tl3561535637%_ + (_%tl3565135673%_ (let () (declare (not safe)) (##vector-ref - _g39878_ + _g39914_ 1)))) (if (gx#stx-null? - _%tl3561535637%_) - (letrec ((_%loop3561635640%_ + _%tl3565135673%_) + (letrec ((_%loop3565235676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd3561435644%_ _%$e3562035647%_) - (if (gx#stx-pair? _%hd3561435644%_) - (let ((_%e3561735650%_ - (gx#syntax-e _%hd3561435644%_))) - (let ((_%lp-hd3561835654%_ + (lambda (_%hd3565035680%_ _%$e3565635683%_) + (if (gx#stx-pair? _%hd3565035680%_) + (let ((_%e3565335686%_ + (gx#syntax-e _%hd3565035680%_))) + (let ((_%lp-hd3565435690%_ (let () (declare (not safe)) - (##car _%e3561735650%_))) - (_%lp-tl3561935657%_ + (##car _%e3565335686%_))) + (_%lp-tl3565535693%_ (let () (declare (not safe)) - (##cdr _%e3561735650%_)))) - (_%loop3561635640%_ - _%lp-tl3561935657%_ - (cons _%lp-hd3561835654%_ - _%$e3562035647%_)))) - (let ((_%$e3562135660%_ - (reverse _%$e3562035647%_))) - ((lambda (_%L35664%_) - (let* ((_%g3568035688%_ - (lambda (_%g3568135684%_) + (##cdr _%e3565335686%_)))) + (_%loop3565235676%_ + _%lp-tl3565535693%_ + (cons _%lp-hd3565435690%_ + _%$e3565635683%_)))) + (let ((_%$e3565735696%_ + (reverse _%$e3565635683%_))) + ((lambda (_%L35700%_) + (let* ((_%g3571635724%_ + (lambda (_%g3571735720%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3568135684%_))) - (_%g3567935721%_ - (lambda (_%g3568135692%_) - ((lambda (_%L35695%_) + _%g3571735720%_))) + (_%g3571535757%_ + (lambda (_%g3571735728%_) + ((lambda (_%L35731%_) (cons (gx#datum->syntax '#f 'let) (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets _%L35592%_ _%L35664%_) - (foldr (lambda (_%g3570935713%_ - _%g3571035716%_ - _%g3571135718%_) - (cons (cons _%g3571035716%_ - (cons _%g3570935713%_ '())) - _%g3571135718%_)) + (gx#syntax-check-splice-targets _%L35628%_ _%L35700%_) + (foldr (lambda (_%g3574535749%_ + _%g3574635752%_ + _%g3574735754%_) + (cons (cons _%g3574635752%_ + (cons _%g3574535749%_ '())) + _%g3574735754%_)) '() - _%L35592%_ - _%L35664%_)) - (cons _%L35695%_ '())))) + _%L35628%_ + _%L35700%_)) + (cons _%L35731%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3568135692%_)))) - (_%g3567935721%_ + _%g3571735728%_)))) + (_%g3571535757%_ (|gerbil/core/match[1]#generate-match*| - _%stx35506%_ - (foldr (lambda (_%g3572435727%_ - _%g3572535730%_) - (cons _%g3572435727%_ - _%g3572535730%_)) + _%stx35542%_ + (foldr (lambda (_%g3576035763%_ + _%g3576135766%_) + (cons _%g3576035763%_ + _%g3576135766%_)) '() - _%L35664%_) - _%L35590%_)))) - _%$e3562135660%_)))))) - (_%loop3561635640%_ _%target3561335634%_ '())) - (_%g3561035627%_ _%g3561135631%_))))) + _%L35700%_) + _%L35626%_)))) + _%$e3565735696%_)))))) + (_%loop3565235676%_ _%target3564935670%_ '())) + (_%g3564635663%_ _%g3564735667%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3561035627%_ - _%g3561135631%_))))) - (_%g3560935733%_ + (_%g3564635663%_ + _%g3564735667%_))))) + (_%g3564535769%_ (gx#gentemps - (foldr (lambda (_%g3573635739%_ - _%g3573735742%_) - (cons _%g3573635739%_ - _%g3573735742%_)) + (foldr (lambda (_%g3577235775%_ + _%g3577335778%_) + (cons _%g3577235775%_ + _%g3577335778%_)) '() - _%L35592%_)))) - (_%g3550935533%_ _%g3551035537%_))) - _%tl3551835557%_ - _%e3552735586%_)))))) + _%L35628%_)))) + (_%g3554535569%_ _%g3554635573%_))) + _%tl3555435593%_ + _%e3556335622%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop3552235566%_ - _%target3551935560%_ + (_%loop3555835602%_ + _%target3555535596%_ '())) - (_%g3550935533%_ - _%g3551035537%_))))) - (_%g3550935533%_ _%g3551035537%_)))) - (_%g3550935533%_ _%g3551035537%_)))) - (_%g3550935533%_ _%g3551035537%_))))) - (_%g3550835745%_ _%stx35506%_)))) + (_%g3554535569%_ + _%g3554635573%_))))) + (_%g3554535569%_ _%g3554635573%_)))) + (_%g3554535569%_ _%g3554635573%_)))) + (_%g3554535569%_ _%g3554635573%_))))) + (_%g3554435781%_ _%stx35542%_)))) (define |gerbil/core/match[:0:]#with| - (lambda (_%$stx35751%_) - (let* ((_%__stx3933339334%_ _%$stx35751%_) - (_%g3575735840%_ + (lambda (_%$stx35787%_) + (let* ((_%__stx3936939370%_ _%$stx35787%_) + (_%g3579335876%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3933339334%_)))) - (let ((_%__kont3933639337%_ - (lambda (_%L36170%_) + _%__stx3936939370%_)))) + (let ((_%__kont3937239373%_ + (lambda (_%L36206%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3618636189%_ _%g3618736192%_) - (cons _%g3618636189%_ _%g3618736192%_)) + (foldr (lambda (_%g3622236225%_ _%g3622336228%_) + (cons _%g3622236225%_ _%g3622336228%_)) '() - _%L36170%_))))) - (_%__kont3934039341%_ - (lambda (_%L36078%_ _%L36080%_ _%L36081%_ _%L36082%_) - (cons _%L36082%_ - (cons (cons (cons _%L36081%_ (cons _%L36080%_ '())) + _%L36206%_))))) + (_%__kont3937639377%_ + (lambda (_%L36114%_ _%L36116%_ _%L36117%_ _%L36118%_) + (cons _%L36118%_ + (cons (cons (cons _%L36117%_ (cons _%L36116%_ '())) '()) - (foldr (lambda (_%g3610436107%_ _%g3610536110%_) - (cons _%g3610436107%_ _%g3610536110%_)) + (foldr (lambda (_%g3614036143%_ _%g3614136146%_) + (cons _%g3614036143%_ _%g3614136146%_)) '() - _%L36078%_))))) - (_%__kont3934439345%_ - (lambda (_%L35951%_ _%L35953%_ _%L35954%_) + _%L36114%_))))) + (_%__kont3938039381%_ + (lambda (_%L35987%_ _%L35989%_ _%L35990%_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_%g3598035983%_ _%g3598135986%_) - (cons _%g3598035983%_ _%g3598135986%_)) + (cons (foldr (lambda (_%g3601636019%_ _%g3601736022%_) + (cons _%g3601636019%_ _%g3601736022%_)) '() - _%L35953%_) - (cons (cons (foldr (lambda (_%g3597835989%_ - _%g3597935992%_) - (cons _%g3597835989%_ - _%g3597935992%_)) + _%L35989%_) + (cons (cons (foldr (lambda (_%g3601436025%_ + _%g3601536028%_) + (cons _%g3601436025%_ + _%g3601536028%_)) '() - _%L35954%_) - (foldr (lambda (_%g3597635995%_ - _%g3597735998%_) - (cons _%g3597635995%_ - _%g3597735998%_)) + _%L35990%_) + (foldr (lambda (_%g3601236031%_ + _%g3601336034%_) + (cons _%g3601236031%_ + _%g3601336034%_)) '() - _%L35951%_)) + _%L35987%_)) '())))))) - (let* ((_%__match3942639427%_ - (lambda (_%e3580335847%_ - _%hd3580435851%_ - _%tl3580535854%_ - _%e3580635857%_ - _%hd3580735861%_ - _%tl3580835864%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) - (letrec ((_%loop3581235873%_ - (lambda (_%hd3581035877%_ - _%expr3581635880%_ - _%hd3581735882%_) - (if (gx#stx-pair? _%hd3581035877%_) - (let ((_%e3581335885%_ - (gx#syntax-e _%hd3581035877%_))) - (let ((_%lp-tl3581535892%_ + (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 () (declare (not safe)) - (##cdr _%e3581335885%_))) - (_%lp-hd3581435889%_ + (##cdr _%e3584935921%_))) + (_%lp-hd3585035925%_ (let () (declare (not safe)) - (##car _%e3581335885%_)))) + (##car _%e3584935921%_)))) (if (gx#stx-pair? - _%lp-hd3581435889%_) - (let ((_%e3582935895%_ + _%lp-hd3585035925%_) + (let ((_%e3586535931%_ (gx#syntax-e - _%lp-hd3581435889%_))) - (let ((_%tl3583135902%_ + _%lp-hd3585035925%_))) + (let ((_%tl3586735938%_ (let () (declare (not safe)) - (##cdr _%e3582935895%_))) - (_%hd3583035899%_ + (##cdr _%e3586535931%_))) + (_%hd3586635935%_ (let () (declare (not safe)) - (##car _%e3582935895%_)))) + (##car _%e3586535931%_)))) (if (gx#stx-pair? - _%tl3583135902%_) - (let ((_%e3583235905%_ + _%tl3586735938%_) + (let ((_%e3586835941%_ (gx#syntax-e - _%tl3583135902%_))) - (let ((_%tl3583435912%_ + _%tl3586735938%_))) + (let ((_%tl3587035948%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3583235905%_))) - (_%hd3583335909%_ - (let () (declare (not safe)) (##car _%e3583235905%_)))) - (if (gx#stx-null? _%tl3583435912%_) - (_%loop3581235873%_ - _%lp-tl3581535892%_ - (cons _%hd3583335909%_ _%expr3581635880%_) - (cons _%hd3583035899%_ _%hd3581735882%_)) - (let () (declare (not safe)) (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3575735840%_))))) - (let ((_%hd3581935918%_ - (reverse _%hd3581735882%_)) - (_%expr3581835915%_ - (reverse _%expr3581635880%_))) + (_%g3579335876%_))))) + (let ((_%hd3585535954%_ + (reverse _%hd3585335918%_)) + (_%expr3585435951%_ + (reverse _%expr3585235916%_))) (if (gx#stx-pair/null? - _%tl3580835864%_) - (let ((_%__splice3934839349%_ + _%tl3584435900%_) + (let ((_%__splice3938439385%_ (gx#syntax-split-splice - _%tl3580835864%_ + _%tl3584435900%_ '0))) - (let ((_%tl3582235924%_ + (let ((_%tl3585835960%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934839349%_ + _%__splice3938439385%_ '1))) - (_%target3582035921%_ + (_%target3585635957%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934839349%_ + _%__splice3938439385%_ '0)))) (if (gx#stx-null? - _%tl3582235924%_) - (letrec ((_%loop3582335927%_ - (lambda (_%hd3582135931%_ + _%tl3585835960%_) + (letrec ((_%loop3585935963%_ + (lambda (_%hd3585735967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body3582735934%_) - (if (gx#stx-pair? _%hd3582135931%_) - (let ((_%e3582435937%_ - (gx#syntax-e _%hd3582135931%_))) - (let ((_%lp-tl3582635944%_ + _%body3586335970%_) + (if (gx#stx-pair? _%hd3585735967%_) + (let ((_%e3586035973%_ + (gx#syntax-e _%hd3585735967%_))) + (let ((_%lp-tl3586235980%_ (let () (declare (not safe)) - (##cdr _%e3582435937%_))) - (_%lp-hd3582535941%_ + (##cdr _%e3586035973%_))) + (_%lp-hd3586135977%_ (let () (declare (not safe)) - (##car _%e3582435937%_)))) - (_%loop3582335927%_ - _%lp-tl3582635944%_ - (cons _%lp-hd3582535941%_ - _%body3582735934%_)))) - (let ((_%body3582835947%_ - (reverse _%body3582735934%_))) - (_%__kont3934439345%_ - _%body3582835947%_ - _%expr3581835915%_ - _%hd3581935918%_)))))) - (_%loop3582335927%_ _%target3582035921%_ '())) + (##car _%e3586035973%_)))) + (_%loop3585935963%_ + _%lp-tl3586235980%_ + (cons _%lp-hd3586135977%_ + _%body3586335970%_)))) + (let ((_%body3586435983%_ + (reverse _%body3586335970%_))) + (_%__kont3938039381%_ + _%body3586435983%_ + _%expr3585435951%_ + _%hd3585535954%_)))))) + (_%loop3585935963%_ _%target3585635957%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3579335876%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))))) - (_%loop3581235873%_ _%target3580935867%_ '() '())))) - (_%__match3941839419%_ - (lambda (_%e3580335847%_ - _%hd3580435851%_ - _%tl3580535854%_ - _%e3580635857%_ - _%hd3580735861%_ - _%tl3580835864%_) - (if (gx#stx-pair/null? _%hd3580735861%_) - (let ((_%__splice3934639347%_ - (gx#syntax-split-splice _%hd3580735861%_ '0))) - (let ((_%tl3581135870%_ + (_%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%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '1))) - (_%target3580935867%_ + (##vector-ref _%__splice3938239383%_ '1))) + (_%target3584535903%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3580335847%_ - _%hd3580435851%_ - _%tl3580535854%_ - _%e3580635857%_ - _%hd3580735861%_ - _%tl3580835864%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + (if (gx#stx-null? _%tl3584735906%_) + (_%__match3946239463%_ + _%e3583935883%_ + _%hd3584035887%_ + _%tl3584135890%_ + _%e3584235893%_ + _%hd3584335897%_ + _%tl3584435900%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_))))) - (_%__match3940639407%_ - (lambda (_%e3577936008%_ - _%hd3578036012%_ - _%tl3578136015%_ - _%e3578236018%_ - _%hd3578336022%_ - _%tl3578436025%_ - _%e3578536028%_ - _%hd3578636032%_ - _%tl3578736035%_ - _%e3578836038%_ - _%hd3578936042%_ - _%tl3579036045%_ - _%__splice3934239343%_ - _%target3579136048%_ - _%tl3579336051%_) - (letrec ((_%loop3579436054%_ - (lambda (_%hd3579236058%_ _%body3579836061%_) - (if (gx#stx-pair? _%hd3579236058%_) - (let ((_%e3579536064%_ - (gx#syntax-e _%hd3579236058%_))) - (let ((_%lp-tl3579736071%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3579536064%_))) - (_%lp-hd3579636068%_ + (##cdr _%e3583136100%_))) + (_%lp-hd3583236104%_ (let () (declare (not safe)) - (##car _%e3579536064%_)))) - (_%loop3579436054%_ - _%lp-tl3579736071%_ - (cons _%lp-hd3579636068%_ - _%body3579836061%_)))) - (let ((_%body3579936074%_ - (reverse _%body3579836061%_))) - (let ((_%L36078%_ _%body3579936074%_) - (_%L36080%_ _%hd3578936042%_) - (_%L36081%_ _%hd3578636032%_) - (_%L36082%_ _%hd3578036012%_)) + (##car _%e3583136100%_)))) + (_%loop3583036090%_ + _%lp-tl3583336107%_ + (cons _%lp-hd3583236104%_ + _%body3583436097%_)))) + (let ((_%body3583536110%_ + (reverse _%body3583436097%_))) + (let ((_%L36114%_ _%body3583536110%_) + (_%L36116%_ _%hd3582536078%_) + (_%L36117%_ _%hd3582236068%_) + (_%L36118%_ _%hd3581636048%_)) (if (|gerbil/core/match[1]#match-pattern?| - _%L36081%_) - (_%__kont3934039341%_ - _%L36078%_ - _%L36080%_ - _%L36081%_ - _%L36082%_) - (_%__match3941839419%_ - _%e3577936008%_ - _%hd3578036012%_ - _%tl3578136015%_ - _%e3578236018%_ - _%hd3578336022%_ - _%tl3578436025%_)))))))) - (_%loop3579436054%_ _%target3579136048%_ '())))) - (_%__match3937239373%_ - (lambda (_%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3933839339%_ - _%target3576636140%_ - _%tl3576836143%_) - (letrec ((_%loop3576936146%_ - (lambda (_%hd3576736150%_ _%body3577336153%_) - (if (gx#stx-pair? _%hd3576736150%_) - (let ((_%e3577036156%_ - (gx#syntax-e _%hd3576736150%_))) - (let ((_%lp-tl3577236163%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e3577036156%_))) - (_%lp-hd3577136160%_ + (##cdr _%e3580636192%_))) + (_%lp-hd3580736196%_ (let () (declare (not safe)) - (##car _%e3577036156%_)))) - (_%loop3576936146%_ - _%lp-tl3577236163%_ - (cons _%lp-hd3577136160%_ - _%body3577336153%_)))) - (let ((_%body3577436166%_ - (reverse _%body3577336153%_))) - (_%__kont3933639337%_ - _%body3577436166%_)))))) - (_%loop3576936146%_ _%target3576636140%_ '()))))) - (if (gx#stx-pair? _%__stx3933339334%_) - (let ((_%e3576036120%_ (gx#syntax-e _%__stx3933339334%_))) - (let ((_%tl3576236127%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3576036120%_))) - (_%hd3576136124%_ + (##cdr _%e3579636156%_))) + (_%hd3579736160%_ (let () (declare (not safe)) - (##car _%e3576036120%_)))) - (if (gx#stx-pair? _%tl3576236127%_) - (let ((_%e3576336130%_ - (gx#syntax-e _%tl3576236127%_))) - (let ((_%tl3576536137%_ + (##car _%e3579636156%_)))) + (if (gx#stx-pair? _%tl3579836163%_) + (let ((_%e3579936166%_ + (gx#syntax-e _%tl3579836163%_))) + (let ((_%tl3580136173%_ (let () (declare (not safe)) - (##cdr _%e3576336130%_))) - (_%hd3576436134%_ + (##cdr _%e3579936166%_))) + (_%hd3580036170%_ (let () (declare (not safe)) - (##car _%e3576336130%_)))) - (if (gx#stx-null? _%hd3576436134%_) - (if (gx#stx-pair/null? _%tl3576536137%_) - (let ((_%__splice3933839339%_ + (##car _%e3579936166%_)))) + (if (gx#stx-null? _%hd3580036170%_) + (if (gx#stx-pair/null? _%tl3580136173%_) + (let ((_%__splice3937439375%_ (gx#syntax-split-splice - _%tl3576536137%_ + _%tl3580136173%_ '0))) - (let ((_%tl3576836143%_ + (let ((_%tl3580436179%_ (let () (declare (not safe)) (##vector-ref - _%__splice3933839339%_ + _%__splice3937439375%_ '1))) - (_%target3576636140%_ + (_%target3580236176%_ (let () (declare (not safe)) (##vector-ref - _%__splice3933839339%_ + _%__splice3937439375%_ '0)))) - (if (gx#stx-null? _%tl3576836143%_) - (_%__match3937239373%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3933839339%_ - _%target3576636140%_ - _%tl3576836143%_) + (if (gx#stx-null? _%tl3580436179%_) + (_%__match3940839409%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3937439375%_ + _%target3580236176%_ + _%tl3580436179%_) (if (gx#stx-pair/null? - _%hd3576436134%_) - (let ((_%__splice3934639347%_ + _%hd3580036170%_) + (let ((_%__splice3938239383%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3580036170%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3584735906%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '1))) - (_%target3580935867%_ + (_%target3584535903%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3584735906%_) + (_%__match3946239463%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3579335876%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ + (_%g3579335876%_)))))) + (if (gx#stx-pair/null? _%hd3580036170%_) + (let ((_%__splice3938239383%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3580036170%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3584735906%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '1))) - (_%target3580935867%_ + (_%target3584535903%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3584735906%_) + (_%__match3946239463%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3579335876%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))) - (if (gx#stx-pair? _%hd3576436134%_) - (let ((_%e3578536028%_ - (gx#syntax-e _%hd3576436134%_))) - (let ((_%tl3578736035%_ + (_%g3579335876%_)))) + (if (gx#stx-pair? _%hd3580036170%_) + (let ((_%e3582136064%_ + (gx#syntax-e _%hd3580036170%_))) + (let ((_%tl3582336071%_ (let () (declare (not safe)) - (##cdr _%e3578536028%_))) - (_%hd3578636032%_ + (##cdr _%e3582136064%_))) + (_%hd3582236068%_ (let () (declare (not safe)) - (##car _%e3578536028%_)))) - (if (gx#stx-pair? _%tl3578736035%_) - (let ((_%e3578836038%_ + (##car _%e3582136064%_)))) + (if (gx#stx-pair? _%tl3582336071%_) + (let ((_%e3582436074%_ (gx#syntax-e - _%tl3578736035%_))) - (let ((_%tl3579036045%_ + _%tl3582336071%_))) + (let ((_%tl3582636081%_ (let () (declare (not safe)) - (##cdr _%e3578836038%_))) - (_%hd3578936042%_ + (##cdr _%e3582436074%_))) + (_%hd3582536078%_ (let () (declare (not safe)) - (##car _%e3578836038%_)))) + (##car _%e3582436074%_)))) (if (gx#stx-null? - _%tl3579036045%_) + _%tl3582636081%_) (if (gx#stx-pair/null? - _%tl3576536137%_) - (let ((_%__splice3934239343%_ + _%tl3580136173%_) + (let ((_%__splice3937839379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3576536137%_ '0))) - (let ((_%tl3579336051%_ + (gx#syntax-split-splice _%tl3580136173%_ '0))) + (let ((_%tl3582936087%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934239343%_ '1))) - (_%target3579136048%_ + (##vector-ref _%__splice3937839379%_ '1))) + (_%target3582736084%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934239343%_ '0)))) - (if (gx#stx-null? _%tl3579336051%_) - (_%__match3940639407%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%e3578536028%_ - _%hd3578636032%_ - _%tl3578736035%_ - _%e3578836038%_ - _%hd3578936042%_ - _%tl3579036045%_ - _%__splice3934239343%_ - _%target3579136048%_ - _%tl3579336051%_) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ + (##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%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3580036170%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3584735906%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '1))) - (_%target3580935867%_ + (_%target3584535903%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + (if (gx#stx-null? _%tl3584735906%_) + (_%__match3946239463%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3579335876%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ - (gx#syntax-split-splice _%hd3576436134%_ '0))) - (let ((_%tl3581135870%_ + (_%g3579335876%_)))))) + (if (gx#stx-pair/null? _%hd3580036170%_) + (let ((_%__splice3938239383%_ + (gx#syntax-split-splice _%hd3580036170%_ '0))) + (let ((_%tl3584735906%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '1))) - (_%target3580935867%_ + (##vector-ref _%__splice3938239383%_ '1))) + (_%target3584535903%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + (##vector-ref _%__splice3938239383%_ '0)))) + (if (gx#stx-null? _%tl3584735906%_) + (_%__match3946239463%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_)))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ - (gx#syntax-split-splice _%hd3576436134%_ '0))) - (let ((_%tl3581135870%_ + (_%g3579335876%_))))) + (let () (declare (not safe)) (_%g3579335876%_)))) + (if (gx#stx-pair/null? _%hd3580036170%_) + (let ((_%__splice3938239383%_ + (gx#syntax-split-splice _%hd3580036170%_ '0))) + (let ((_%tl3584735906%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '1))) - (_%target3580935867%_ + (##vector-ref _%__splice3938239383%_ '1))) + (_%target3584535903%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) - (let () (declare (not safe)) (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd3576436134%_) - (let ((_%__splice3934639347%_ + _%hd3580036170%_) + (let ((_%__splice3938239383%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3580036170%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3584735906%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '1))) - (_%target3580935867%_ + (_%target3584535903%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3584735906%_) + (_%__match3946239463%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3579335876%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ + (_%g3579335876%_)))))) + (if (gx#stx-pair/null? _%hd3580036170%_) + (let ((_%__splice3938239383%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3580036170%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3584735906%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '1))) - (_%target3580935867%_ + (_%target3584535903%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3938239383%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3584735906%_) + (_%__match3946239463%_ + _%e3579636156%_ + _%hd3579736160%_ + _%tl3579836163%_ + _%e3579936166%_ + _%hd3580036170%_ + _%tl3580136173%_ + _%__splice3938239383%_ + _%target3584535903%_ + _%tl3584735906%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3579335876%_))))) (let () (declare (not safe)) - (_%g3575735840%_))))))) - (let () (declare (not safe)) (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_)))))))) + (_%g3579335876%_))))))) + (let () (declare (not safe)) (_%g3579335876%_))))) + (let () (declare (not safe)) (_%g3579335876%_)))))))) (define |gerbil/core/match[:0:]#with*| - (lambda (_%$stx36203%_) - (let* ((_%__stx3942939430%_ _%$stx36203%_) - (_%g3620836260%_ + (lambda (_%$stx36239%_) + (let* ((_%__stx3946539466%_ _%$stx36239%_) + (_%g3624436296%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3942939430%_)))) - (let ((_%__kont3943239433%_ - (lambda (_%L36430%_ - _%L36432%_ - _%L36433%_ - _%L36434%_ - _%L36435%_) + _%__stx3946539466%_)))) + (let ((_%__kont3946839469%_ + (lambda (_%L36466%_ + _%L36468%_ + _%L36469%_ + _%L36470%_ + _%L36471%_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _%L36434%_ (cons _%L36433%_ '())) + (cons (cons (cons _%L36470%_ (cons _%L36469%_ '())) '()) - (cons (cons _%L36435%_ - (cons _%L36432%_ - (foldr (lambda (_%g3646036463%_ + (cons (cons _%L36471%_ + (cons _%L36468%_ + (foldr (lambda (_%g3649636499%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3646136466%_) - (cons _%g3646036463%_ _%g3646136466%_)) + _%g3649736502%_) + (cons _%g3649636499%_ _%g3649736502%_)) '() - _%L36430%_))) + _%L36466%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3943639437%_ - (lambda (_%L36317%_) + (_%__kont3947239473%_ + (lambda (_%L36353%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3633436337%_ _%g3633536340%_) - (cons _%g3633436337%_ _%g3633536340%_)) + (foldr (lambda (_%g3637036373%_ _%g3637136376%_) + (cons _%g3637036373%_ _%g3637136376%_)) '() - _%L36317%_)))))) - (let* ((_%__match3950239503%_ - (lambda (_%e3624036267%_ - _%hd3624136271%_ - _%tl3624236274%_ - _%e3624336277%_ - _%hd3624436281%_ - _%tl3624536284%_ - _%__splice3943839439%_ - _%target3624636287%_ - _%tl3624836290%_) - (letrec ((_%loop3624936293%_ - (lambda (_%hd3624736297%_ _%body3625336300%_) - (if (gx#stx-pair? _%hd3624736297%_) - (let ((_%e3625036303%_ - (gx#syntax-e _%hd3624736297%_))) - (let ((_%lp-tl3625236310%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e3625036303%_))) - (_%lp-hd3625136307%_ + (##cdr _%e3628636339%_))) + (_%lp-hd3628736343%_ (let () (declare (not safe)) - (##car _%e3625036303%_)))) - (_%loop3624936293%_ - _%lp-tl3625236310%_ - (cons _%lp-hd3625136307%_ - _%body3625336300%_)))) - (let ((_%body3625436313%_ - (reverse _%body3625336300%_))) - (_%__kont3943639437%_ - _%body3625436313%_)))))) - (_%loop3624936293%_ _%target3624636287%_ '())))) - (_%__match3948039481%_ - (lambda (_%e3621536350%_ - _%hd3621636354%_ - _%tl3621736357%_ - _%e3621836360%_ - _%hd3621936364%_ - _%tl3622036367%_ - _%e3622136370%_ - _%hd3622236374%_ - _%tl3622336377%_ - _%e3622436380%_ - _%hd3622536384%_ - _%tl3622636387%_ - _%e3622736390%_ - _%hd3622836394%_ - _%tl3622936397%_ - _%__splice3943439435%_ - _%target3623036400%_ - _%tl3623236403%_) - (letrec ((_%loop3623336406%_ - (lambda (_%hd3623136410%_ _%body3623736413%_) - (if (gx#stx-pair? _%hd3623136410%_) - (let ((_%e3623436416%_ - (gx#syntax-e _%hd3623136410%_))) - (let ((_%lp-tl3623636423%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3623436416%_))) - (_%lp-hd3623536420%_ + (##cdr _%e3627036452%_))) + (_%lp-hd3627136456%_ (let () (declare (not safe)) - (##car _%e3623436416%_)))) - (_%loop3623336406%_ - _%lp-tl3623636423%_ - (cons _%lp-hd3623536420%_ - _%body3623736413%_)))) - (let ((_%body3623836426%_ - (reverse _%body3623736413%_))) - (_%__kont3943239433%_ - _%body3623836426%_ - _%tl3622336377%_ - _%hd3622836394%_ - _%hd3622536384%_ - _%hd3621636354%_)))))) - (_%loop3623336406%_ _%target3623036400%_ '()))))) - (if (gx#stx-pair? _%__stx3942939430%_) - (let ((_%e3621536350%_ (gx#syntax-e _%__stx3942939430%_))) - (let ((_%tl3621736357%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3621536350%_))) - (_%hd3621636354%_ + (##cdr _%e3625136386%_))) + (_%hd3625236390%_ (let () (declare (not safe)) - (##car _%e3621536350%_)))) - (if (gx#stx-pair? _%tl3621736357%_) - (let ((_%e3621836360%_ - (gx#syntax-e _%tl3621736357%_))) - (let ((_%tl3622036367%_ + (##car _%e3625136386%_)))) + (if (gx#stx-pair? _%tl3625336393%_) + (let ((_%e3625436396%_ + (gx#syntax-e _%tl3625336393%_))) + (let ((_%tl3625636403%_ (let () (declare (not safe)) - (##cdr _%e3621836360%_))) - (_%hd3621936364%_ + (##cdr _%e3625436396%_))) + (_%hd3625536400%_ (let () (declare (not safe)) - (##car _%e3621836360%_)))) - (if (gx#stx-pair? _%hd3621936364%_) - (let ((_%e3622136370%_ - (gx#syntax-e _%hd3621936364%_))) - (let ((_%tl3622336377%_ + (##car _%e3625436396%_)))) + (if (gx#stx-pair? _%hd3625536400%_) + (let ((_%e3625736406%_ + (gx#syntax-e _%hd3625536400%_))) + (let ((_%tl3625936413%_ (let () (declare (not safe)) - (##cdr _%e3622136370%_))) - (_%hd3622236374%_ + (##cdr _%e3625736406%_))) + (_%hd3625836410%_ (let () (declare (not safe)) - (##car _%e3622136370%_)))) - (if (gx#stx-pair? _%hd3622236374%_) - (let ((_%e3622436380%_ + (##car _%e3625736406%_)))) + (if (gx#stx-pair? _%hd3625836410%_) + (let ((_%e3626036416%_ (gx#syntax-e - _%hd3622236374%_))) - (let ((_%tl3622636387%_ + _%hd3625836410%_))) + (let ((_%tl3626236423%_ (let () (declare (not safe)) - (##cdr _%e3622436380%_))) - (_%hd3622536384%_ + (##cdr _%e3626036416%_))) + (_%hd3626136420%_ (let () (declare (not safe)) - (##car _%e3622436380%_)))) + (##car _%e3626036416%_)))) (if (gx#stx-pair? - _%tl3622636387%_) - (let ((_%e3622736390%_ + _%tl3626236423%_) + (let ((_%e3626336426%_ (gx#syntax-e - _%tl3622636387%_))) - (let ((_%tl3622936397%_ + _%tl3626236423%_))) + (let ((_%tl3626536433%_ (let () (declare (not safe)) - (##cdr _%e3622736390%_))) - (_%hd3622836394%_ + (##cdr _%e3626336426%_))) + (_%hd3626436430%_ (let () (declare (not safe)) - (##car _%e3622736390%_)))) + (##car _%e3626336426%_)))) (if (gx#stx-null? - _%tl3622936397%_) + _%tl3626536433%_) (if (gx#stx-pair/null? - _%tl3622036367%_) - (let ((_%__splice3943439435%_ + _%tl3625636403%_) + (let ((_%__splice3947039471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3622036367%_ '0))) - (let ((_%tl3623236403%_ + (gx#syntax-split-splice _%tl3625636403%_ '0))) + (let ((_%tl3626836439%_ (let () (declare (not safe)) - (##vector-ref _%__splice3943439435%_ '1))) - (_%target3623036400%_ + (##vector-ref _%__splice3947039471%_ '1))) + (_%target3626636436%_ (let () (declare (not safe)) - (##vector-ref _%__splice3943439435%_ '0)))) - (if (gx#stx-null? _%tl3623236403%_) - (_%__match3948039481%_ - _%e3621536350%_ - _%hd3621636354%_ - _%tl3621736357%_ - _%e3621836360%_ - _%hd3621936364%_ - _%tl3622036367%_ - _%e3622136370%_ - _%hd3622236374%_ - _%tl3622336377%_ - _%e3622436380%_ - _%hd3622536384%_ - _%tl3622636387%_ - _%e3622736390%_ - _%hd3622836394%_ - _%tl3622936397%_ - _%__splice3943439435%_ - _%target3623036400%_ - _%tl3623236403%_) + (##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%_) (let () (declare (not safe)) - (_%g3620836260%_))))) - (let () (declare (not safe)) (_%g3620836260%_))) - (let () (declare (not safe)) (_%g3620836260%_))))) + (_%g3624436296%_))))) + (let () (declare (not safe)) (_%g3624436296%_))) + (let () (declare (not safe)) (_%g3624436296%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3620836260%_))))) + (_%g3624436296%_))))) (let () (declare (not safe)) - (_%g3620836260%_))))) - (if (gx#stx-null? _%hd3621936364%_) - (if (gx#stx-pair/null? _%tl3622036367%_) - (let ((_%__splice3943839439%_ + (_%g3624436296%_))))) + (if (gx#stx-null? _%hd3625536400%_) + (if (gx#stx-pair/null? _%tl3625636403%_) + (let ((_%__splice3947439475%_ (gx#syntax-split-splice - _%tl3622036367%_ + _%tl3625636403%_ '0))) - (let ((_%tl3624836290%_ + (let ((_%tl3628436326%_ (let () (declare (not safe)) (##vector-ref - _%__splice3943839439%_ + _%__splice3947439475%_ '1))) - (_%target3624636287%_ + (_%target3628236323%_ (let () (declare (not safe)) (##vector-ref - _%__splice3943839439%_ + _%__splice3947439475%_ '0)))) (if (gx#stx-null? - _%tl3624836290%_) - (_%__match3950239503%_ - _%e3621536350%_ - _%hd3621636354%_ - _%tl3621736357%_ - _%e3621836360%_ - _%hd3621936364%_ - _%tl3622036367%_ - _%__splice3943839439%_ - _%target3624636287%_ - _%tl3624836290%_) + _%tl3628436326%_) + (_%__match3953839539%_ + _%e3625136386%_ + _%hd3625236390%_ + _%tl3625336393%_ + _%e3625436396%_ + _%hd3625536400%_ + _%tl3625636403%_ + _%__splice3947439475%_ + _%target3628236323%_ + _%tl3628436326%_) (let () (declare (not safe)) - (_%g3620836260%_))))) + (_%g3624436296%_))))) (let () (declare (not safe)) - (_%g3620836260%_))) + (_%g3624436296%_))) (let () (declare (not safe)) - (_%g3620836260%_)))))) - (let () (declare (not safe)) (_%g3620836260%_))))) - (let () (declare (not safe)) (_%g3620836260%_)))))))) + (_%g3624436296%_)))))) + (let () (declare (not safe)) (_%g3624436296%_))))) + (let () (declare (not safe)) (_%g3624436296%_)))))))) (define |gerbil/core/match[:0:]#?| - (lambda (_%$stx36475%_) - (let* ((_%__stx3950539506%_ _%$stx36475%_) - (_%g3648636632%_ + (lambda (_%$stx36511%_) + (let* ((_%__stx3954139542%_ _%$stx36511%_) + (_%g3652236668%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3950539506%_)))) - (let ((_%__kont3950839509%_ - (lambda (_%L37236%_ _%L37238%_ _%L37239%_) + _%__stx3954139542%_)))) + (let ((_%__kont3954439545%_ + (lambda (_%L37272%_ _%L37274%_ _%L37275%_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g3726037263%_ _%g3726137266%_) - (cons (cons _%L37239%_ - (cons _%g3726037263%_ - (cons _%L37236%_ '()))) - _%g3726137266%_)) + (foldr (lambda (_%g3729637299%_ _%g3729737302%_) + (cons (cons _%L37275%_ + (cons _%g3729637299%_ + (cons _%L37272%_ '()))) + _%g3729737302%_)) '() - _%L37238%_)))) - (_%__kont3951239513%_ - (lambda (_%L37126%_ _%L37128%_ _%L37129%_) + _%L37274%_)))) + (_%__kont3954839549%_ + (lambda (_%L37162%_ _%L37164%_ _%L37165%_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g3715037153%_ _%g3715137156%_) - (cons (cons _%L37129%_ - (cons _%g3715037153%_ - (cons _%L37126%_ '()))) - _%g3715137156%_)) + (foldr (lambda (_%g3718637189%_ _%g3718737192%_) + (cons (cons _%L37165%_ + (cons _%g3718637189%_ + (cons _%L37162%_ '()))) + _%g3718737192%_)) '() - _%L37128%_)))) - (_%__kont3951639517%_ - (lambda (_%L37026%_ _%L37028%_ _%L37029%_) + _%L37164%_)))) + (_%__kont3955239553%_ + (lambda (_%L37062%_ _%L37064%_ _%L37065%_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _%L37029%_ - (cons _%L37028%_ (cons _%L37026%_ '()))) + (cons (cons _%L37065%_ + (cons _%L37064%_ (cons _%L37062%_ '()))) '())))) - (_%__kont3951839519%_ - (lambda (_%L36952%_ _%L36954%_) - (cons _%L36954%_ (cons _%L36952%_ '())))) - (_%__kont3952039521%_ - (lambda (_%L36900%_ _%L36902%_) + (_%__kont3955439555%_ + (lambda (_%L36988%_ _%L36990%_) + (cons _%L36990%_ (cons _%L36988%_ '())))) + (_%__kont3955639557%_ + (lambda (_%L36936%_ _%L36938%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _%L36902%_ - (cons _%L36900%_ + (cons (cons _%L36938%_ + (cons _%L36936%_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (_%__kont3952239523%_ - (lambda (_%L36852%_ _%L36854%_ _%L36855%_) + (_%__kont3955839559%_ + (lambda (_%L36888%_ _%L36890%_ _%L36891%_) (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 _%L36855%_ + (cons (cons _%L36891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L36854%_ + (cons _%L36890%_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36852%_ + (cons (cons _%L36888%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6637,20 +6637,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3952439525%_ - (lambda (_%L36783%_ _%L36785%_ _%L36786%_) + (_%__kont3956039561%_ + (lambda (_%L36819%_ _%L36821%_ _%L36822%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36786%_ - (cons _%L36785%_ + (cons (cons _%L36822%_ + (cons _%L36821%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36783%_ + (cons (cons _%L36819%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6659,1806 +6659,1806 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3952639527%_ - (lambda (_%L36703%_ _%L36705%_ _%L36706%_ _%L36707%_) + (_%__kont3956239563%_ + (lambda (_%L36739%_ _%L36741%_ _%L36742%_ _%L36743%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36707%_ - (cons _%L36706%_ + (cons (cons _%L36743%_ + (cons _%L36742%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36703%_ - (cons (cons _%L36705%_ + (cons (cons _%L36739%_ + (cons (cons _%L36741%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match3967839679%_ - (lambda (_%e3657636812%_ - _%hd3657736816%_ - _%tl3657836819%_ - _%e3657936822%_ - _%hd3658036826%_ - _%tl3658136829%_ - _%e3658236832%_ - _%hd3658336836%_ - _%tl3658436839%_) - (if (gx#identifier? _%hd3658336836%_) + (let* ((_%__match3971439715%_ + (lambda (_%e3661236848%_ + _%hd3661336852%_ + _%tl3661436855%_ + _%e3661536858%_ + _%hd3661636862%_ + _%tl3661736865%_ + _%e3661836868%_ + _%hd3661936872%_ + _%tl3662036875%_) + (if (gx#identifier? _%hd3661936872%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3658336836%_) - (if (gx#stx-pair? _%tl3658436839%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3658436839%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39916_| + _%hd3661936872%_) + (if (gx#stx-pair? _%tl3662036875%_) + (let ((_%e3662136878%_ + (gx#syntax-e _%tl3662036875%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3658036826%_ - _%hd3657736816%_) + (##car _%e3662136878%_)))) + (if (gx#stx-null? _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3661636862%_ + _%hd3661336852%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3658336836%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3658336836%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3658436839%_) - (let ((_%e3660136773%_ - (gx#syntax-e _%tl3658436839%_))) - (let ((_%tl3660336780%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3658036826%_ - _%hd3657736816%_) + (##car _%e3663736809%_)))) + (if (gx#stx-null? _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3661636862%_ + _%hd3661336852%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3663936816%_) + (let ((_%e3665736719%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ - (let () (declare (not safe)) (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ + (let () (declare (not safe)) (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3658036826%_ - _%hd3657736816%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3661636862%_ + _%hd3661336852%_) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3652236668%_)))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_)))))) - (_%__match3965839659%_ - (lambda (_%e3656736880%_ - _%hd3656836884%_ - _%tl3656936887%_ - _%e3657036890%_ - _%hd3657136894%_ - _%tl3657236897%_) - (if (gx#stx-null? _%tl3657236897%_) - (_%__kont3952039521%_ - _%hd3657136894%_ - _%hd3656836884%_) - (if (gx#stx-pair? _%tl3657236897%_) - (let ((_%e3658236832%_ - (gx#syntax-e _%tl3657236897%_))) - (let ((_%tl3658436839%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3658236832%_))) - (_%hd3658336836%_ + (##cdr _%e3661836868%_))) + (_%hd3661936872%_ (let () (declare (not safe)) - (##car _%e3658236832%_)))) - (if (gx#identifier? _%hd3658336836%_) + (##car _%e3661836868%_)))) + (if (gx#identifier? _%hd3661936872%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3658336836%_) - (if (gx#stx-pair? _%tl3658436839%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39916_| + _%hd3661936872%_) + (if (gx#stx-pair? _%tl3662036875%_) + (let ((_%e3662136878%_ (gx#syntax-e - _%tl3658436839%_))) - (let ((_%tl3658736849%_ + _%tl3662036875%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3662136878%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3657136894%_ - _%hd3656836884%_) + _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3660736930%_ + _%hd3660436920%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3658336836%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3658336836%_))) - (if (equal? _%e3660036769%_ '::) + (_%g3652236668%_))) + (if (gx#stx-datum? _%hd3661936872%_) + (let ((_%e3663636805%_ + (gx#stx-e _%hd3661936872%_))) + (if (equal? _%e3663636805%_ '::) (if (gx#stx-pair? - _%tl3658436839%_) - (let ((_%e3660136773%_ + _%tl3662036875%_) + (let ((_%e3663736809%_ (gx#syntax-e - _%tl3658436839%_))) - (let ((_%tl3660336780%_ + _%tl3662036875%_))) + (let ((_%tl3663936816%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ - (let () (declare (not safe)) (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3657136894%_ - _%hd3656836884%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3657136894%_ - _%hd3656836884%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3660736930%_ + _%hd3660436920%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3652236668%_)))))) (let () (declare (not safe)) - (_%g3648636632%_)))))) - (_%__match3958839589%_ - (lambda (_%e3651537056%_ - _%hd3651637060%_ - _%tl3651737063%_ - _%e3651837066%_ - _%hd3651937070%_ - _%tl3652037073%_ - _%e3652137076%_ - _%hd3652237080%_ - _%tl3652337083%_ - _%__splice3951439515%_ - _%target3652437086%_ - _%tl3652637089%_) - (letrec ((_%loop3652737092%_ - (lambda (_%hd3652537096%_ _%pred3653137099%_) - (if (gx#stx-pair? _%hd3652537096%_) - (let ((_%e3652837102%_ - (gx#syntax-e _%hd3652537096%_))) - (let ((_%lp-tl3653037109%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3652837102%_))) - (_%lp-hd3652937106%_ + (##cdr _%e3656437138%_))) + (_%lp-hd3656537142%_ (let () (declare (not safe)) - (##car _%e3652837102%_)))) - (_%loop3652737092%_ - _%lp-tl3653037109%_ - (cons _%lp-hd3652937106%_ - _%pred3653137099%_)))) - (let ((_%pred3653237112%_ - (reverse _%pred3653137099%_))) - (if (gx#stx-pair? _%tl3652037073%_) - (let ((_%e3653337116%_ + (##car _%e3656437138%_)))) + (_%loop3656337128%_ + _%lp-tl3656637145%_ + (cons _%lp-hd3656537142%_ + _%pred3656737135%_)))) + (let ((_%pred3656837148%_ + (reverse _%pred3656737135%_))) + (if (gx#stx-pair? _%tl3655637109%_) + (let ((_%e3656937152%_ (gx#syntax-e - _%tl3652037073%_))) - (let ((_%tl3653537123%_ + _%tl3655637109%_))) + (let ((_%tl3657137159%_ (let () (declare (not safe)) - (##cdr _%e3653337116%_))) - (_%hd3653437120%_ + (##cdr _%e3656937152%_))) + (_%hd3657037156%_ (let () (declare (not safe)) - (##car _%e3653337116%_)))) + (##car _%e3656937152%_)))) (if (gx#stx-null? - _%tl3653537123%_) - (_%__kont3951239513%_ - _%hd3653437120%_ - _%pred3653237112%_ - _%hd3651637060%_) - (_%__match3967839679%_ - _%e3651537056%_ - _%hd3651637060%_ - _%tl3651737063%_ - _%e3651837066%_ - _%hd3651937070%_ - _%tl3652037073%_ - _%e3653337116%_ - _%hd3653437120%_ - _%tl3653537123%_)))) - (_%__match3965839659%_ - _%e3651537056%_ - _%hd3651637060%_ - _%tl3651737063%_ - _%e3651837066%_ - _%hd3651937070%_ - _%tl3652037073%_))))))) - (_%loop3652737092%_ _%target3652437086%_ '())))) - (_%__match3955839559%_ - (lambda (_%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3649737186%_ - _%hd3649837190%_ - _%tl3649937193%_ - _%__splice3951039511%_ - _%target3650037196%_ - _%tl3650237199%_) - (letrec ((_%loop3650337202%_ - (lambda (_%hd3650137206%_ _%pred3650737209%_) - (if (gx#stx-pair? _%hd3650137206%_) - (let ((_%e3650437212%_ - (gx#syntax-e _%hd3650137206%_))) - (let ((_%lp-tl3650637219%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e3650437212%_))) - (_%lp-hd3650537216%_ + (##cdr _%e3654037248%_))) + (_%lp-hd3654137252%_ (let () (declare (not safe)) - (##car _%e3650437212%_)))) - (_%loop3650337202%_ - _%lp-tl3650637219%_ - (cons _%lp-hd3650537216%_ - _%pred3650737209%_)))) - (let ((_%pred3650837222%_ - (reverse _%pred3650737209%_))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3650937226%_ + (##car _%e3654037248%_)))) + (_%loop3653937238%_ + _%lp-tl3654237255%_ + (cons _%lp-hd3654137252%_ + _%pred3654337245%_)))) + (let ((_%pred3654437258%_ + (reverse _%pred3654337245%_))) + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3654537262%_ (gx#syntax-e - _%tl3649637183%_))) - (let ((_%tl3651137233%_ + _%tl3653237219%_))) + (let ((_%tl3654737269%_ (let () (declare (not safe)) - (##cdr _%e3650937226%_))) - (_%hd3651037230%_ + (##cdr _%e3654537262%_))) + (_%hd3654637266%_ (let () (declare (not safe)) - (##car _%e3650937226%_)))) + (##car _%e3654537262%_)))) (if (gx#stx-null? - _%tl3651137233%_) - (_%__kont3950839509%_ - _%hd3651037230%_ - _%pred3650837222%_ - _%hd3649237170%_) - (_%__match3967839679%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3650937226%_ - _%hd3651037230%_ - _%tl3651137233%_)))) - (_%__match3965839659%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_))))))) - (_%loop3650337202%_ _%target3650037196%_ '()))))) - (if (gx#stx-pair? _%__stx3950539506%_) - (let ((_%e3649137166%_ (gx#syntax-e _%__stx3950539506%_))) - (let ((_%tl3649337173%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e3649137166%_))) - (_%hd3649237170%_ + (##cdr _%e3652737202%_))) + (_%hd3652837206%_ (let () (declare (not safe)) - (##car _%e3649137166%_)))) - (if (gx#stx-pair? _%tl3649337173%_) - (let ((_%e3649437176%_ - (gx#syntax-e _%tl3649337173%_))) - (let ((_%tl3649637183%_ + (##car _%e3652737202%_)))) + (if (gx#stx-pair? _%tl3652937209%_) + (let ((_%e3653037212%_ + (gx#syntax-e _%tl3652937209%_))) + (let ((_%tl3653237219%_ (let () (declare (not safe)) - (##cdr _%e3649437176%_))) - (_%hd3649537180%_ + (##cdr _%e3653037212%_))) + (_%hd3653137216%_ (let () (declare (not safe)) - (##car _%e3649437176%_)))) - (if (gx#stx-pair? _%hd3649537180%_) - (let ((_%e3649737186%_ - (gx#syntax-e _%hd3649537180%_))) - (let ((_%tl3649937193%_ + (##car _%e3653037212%_)))) + (if (gx#stx-pair? _%hd3653137216%_) + (let ((_%e3653337222%_ + (gx#syntax-e _%hd3653137216%_))) + (let ((_%tl3653537229%_ (let () (declare (not safe)) - (##cdr _%e3649737186%_))) - (_%hd3649837190%_ + (##cdr _%e3653337222%_))) + (_%hd3653437226%_ (let () (declare (not safe)) - (##car _%e3649737186%_)))) - (if (gx#identifier? _%hd3649837190%_) + (##car _%e3653337222%_)))) + (if (gx#identifier? _%hd3653437226%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39882_| - _%hd3649837190%_) + |gerbil/core/match[1]#_g39918_| + _%hd3653437226%_) (if (gx#stx-pair/null? - _%tl3649937193%_) - (let ((_%__splice3951039511%_ + _%tl3653537229%_) + (let ((_%__splice3954639547%_ (gx#syntax-split-splice - _%tl3649937193%_ + _%tl3653537229%_ '0))) - (let ((_%tl3650237199%_ + (let ((_%tl3653837235%_ (let () (declare (not safe)) (##vector-ref - _%__splice3951039511%_ + _%__splice3954639547%_ '1))) - (_%target3650037196%_ + (_%target3653637232%_ (let () (declare (not safe)) (##vector-ref - _%__splice3951039511%_ + _%__splice3954639547%_ '0)))) (if (gx#stx-null? - _%tl3650237199%_) - (_%__match3955839559%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3649737186%_ - _%hd3649837190%_ - _%tl3649937193%_ - _%__splice3951039511%_ - _%target3650037196%_ - _%tl3650237199%_) + _%tl3653837235%_) + (_%__match3959439595%_ + _%e3652737202%_ + _%hd3652837206%_ + _%tl3652937209%_ + _%e3653037212%_ + _%hd3653137216%_ + _%tl3653237219%_ + _%e3653337222%_ + _%hd3653437226%_ + _%tl3653537229%_ + _%__splice3954639547%_ + _%target3653637232%_ + _%tl3653837235%_) (if (gx#stx-pair? - _%tl3649637183%_) - (let ((_%e3656236942%_ + _%tl3653237219%_) + (let ((_%e3659836978%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (gx#syntax-e _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3662136878%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3662136878%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%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 - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3660036985%_))) + (let ((_%tl3663936816%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3663736809%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3663936816%_) + (let ((_%e3665736719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (gx#syntax-e _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ + _%hd3653137216%_ + _%hd3652837206%_) + (let () (declare (not safe)) (_%g3652236668%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl3649637183%_) - (let ((_%e3656236942%_ + _%tl3653237219%_) + (let ((_%e3659836978%_ (gx#syntax-e - _%tl3649637183%_))) - (let ((_%tl3656436949%_ + _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ - (let () (declare (not safe)) (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ _%hd3656336946%_ _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ + (let () (declare (not safe)) (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ _%hd3659936982%_ _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3662136878%_ + (gx#syntax-e _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3662136878%_)))) + (if (gx#stx-null? _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3660336780%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3663736809%_)))) + (if (gx#stx-null? _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3663936816%_) + (let ((_%e3665736719%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ - (let () (declare (not safe)) (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ + (let () (declare (not safe)) (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3652236668%_)))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ _%hd3649537180%_ _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ _%hd3653137216%_ _%hd3652837206%_) + (let () (declare (not safe)) (_%g3652236668%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39883_| - _%hd3649837190%_) + |gerbil/core/match[1]#_g39919_| + _%hd3653437226%_) (if (gx#stx-pair/null? - _%tl3649937193%_) - (let ((_%__splice3951439515%_ + _%tl3653537229%_) + (let ((_%__splice3955039551%_ (gx#syntax-split-splice - _%tl3649937193%_ + _%tl3653537229%_ '0))) - (let ((_%tl3652637089%_ + (let ((_%tl3656237125%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice3951439515%_ '1))) - (_%target3652437086%_ + (##vector-ref _%__splice3955039551%_ '1))) + (_%target3656037122%_ (let () (declare (not safe)) - (##vector-ref _%__splice3951439515%_ '0)))) - (if (gx#stx-null? _%tl3652637089%_) - (_%__match3958839589%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3649737186%_ - _%hd3649837190%_ - _%tl3649937193%_ - _%__splice3951439515%_ - _%target3652437086%_ - _%tl3652637089%_) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3662136878%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3662136878%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) + (_%g3652236668%_))) + (if (gx#stx-datum? _%hd3659936982%_) + (let ((_%e3663636805%_ + (gx#stx-e _%hd3659936982%_))) + (if (equal? _%e3663636805%_ '::) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3660136773%_ + _%tl3660036985%_) + (let ((_%e3663736809%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3660036985%_))) + (let ((_%tl3663936816%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ - (let () (declare (not safe)) (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3652236668%_))))))) + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3659836978%_ (gx#syntax-e _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3662136878%_ + (gx#syntax-e _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3662136878%_)))) + (if (gx#stx-null? _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%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 - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3660036985%_))) + (let ((_%tl3663936816%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3663736809%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3663936816%_) + (let ((_%e3665736719%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3663936816%_))) + (let ((_%tl3665936726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (let () (declare (not safe)) (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ _%hd3649537180%_ _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ _%hd3653137216%_ _%hd3652837206%_) + (let () (declare (not safe)) (_%g3652236668%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39884_| - _%hd3649837190%_) + |gerbil/core/match[1]#_g39920_| + _%hd3653437226%_) (if (gx#stx-pair? - _%tl3649937193%_) - (let ((_%e3654837006%_ + _%tl3653537229%_) + (let ((_%e3658437042%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3649937193%_))) - (let ((_%tl3655037013%_ + (gx#syntax-e _%tl3653537229%_))) + (let ((_%tl3658637049%_ (let () (declare (not safe)) - (##cdr _%e3654837006%_))) - (_%hd3654937010%_ + (##cdr _%e3658437042%_))) + (_%hd3658537046%_ (let () (declare (not safe)) - (##car _%e3654837006%_)))) - (if (gx#stx-null? _%tl3655037013%_) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3655137016%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3655337023%_ + (##car _%e3658437042%_)))) + (if (gx#stx-null? _%tl3658637049%_) + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3658737052%_ + (gx#syntax-e _%tl3653237219%_))) + (let ((_%tl3658937059%_ (let () (declare (not safe)) - (##cdr _%e3655137016%_))) - (_%hd3655237020%_ + (##cdr _%e3658737052%_))) + (_%hd3658837056%_ (let () (declare (not safe)) - (##car _%e3655137016%_)))) - (if (gx#stx-null? _%tl3655337023%_) - (_%__kont3951639517%_ - _%hd3655237020%_ - _%hd3654937010%_ - _%hd3649237170%_) - (if (gx#identifier? _%hd3655237020%_) + (##car _%e3658737052%_)))) + (if (gx#stx-null? _%tl3658937059%_) + (_%__kont3955239553%_ + _%hd3658837056%_ + _%hd3658537046%_ + _%hd3652837206%_) + (if (gx#identifier? _%hd3658837056%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3655237020%_) + |gerbil/core/match[1]#_g39916_| + _%hd3658837056%_) (if (gx#stx-pair? - _%tl3655337023%_) - (let ((_%e3658536842%_ + _%tl3658937059%_) + (let ((_%e3662136878%_ (gx#syntax-e - _%tl3655337023%_))) - (let ((_%tl3658736849%_ + _%tl3658937059%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3662136878%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3655237020%_) - (let ((_%e3660036769%_ + (_%g3652236668%_))) + (if (gx#stx-datum? _%hd3658837056%_) + (let ((_%e3663636805%_ (gx#stx-e - _%hd3655237020%_))) - (if (equal? _%e3660036769%_ + _%hd3658837056%_))) + (if (equal? _%e3663636805%_ '::) (if (gx#stx-pair? - _%tl3655337023%_) - (let ((_%e3660136773%_ + _%tl3658937059%_) + (let ((_%e3663736809%_ (gx#syntax-e - _%tl3655337023%_))) - (let ((_%tl3660336780%_ + _%tl3658937059%_))) + (let ((_%tl3663936816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (let () (declare (not safe)) (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##car _%e3663736809%_)))) + (if (gx#stx-null? _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) + (if (gx#stx-pair? _%tl3663936816%_) + (let ((_%e3665736719%_ + (gx#syntax-e _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ (gx#syntax-e - _%tl3662336690%_))) - (let ((_%tl3662636700%_ + _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) + (##car _%e3666036729%_)))) (if (gx#stx-null? - _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) - (let () (declare (not safe)) (_%g3648636632%_))) + (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) + (let () (declare (not safe)) (_%g3652236668%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_)))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3652236668%_)))) + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3659836978%_ + (gx#syntax-e _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3658536842%_ + _%tl3660036985%_) + (let ((_%e3662136878%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3662136878%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ + (_%g3652236668%_))) + (if (gx#stx-datum? _%hd3659936982%_) + (let ((_%e3663636805%_ (gx#stx-e - _%hd3656336946%_))) - (if (equal? _%e3660036769%_ + _%hd3659936982%_))) + (if (equal? _%e3663636805%_ '::) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3660136773%_ + _%tl3660036985%_) + (let ((_%e3663736809%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3660036985%_))) + (let ((_%tl3663936816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (let () (declare (not safe)) (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##car _%e3663736809%_)))) + (if (gx#stx-null? _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) + (if (gx#stx-pair? _%tl3663936816%_) + (let ((_%e3665736719%_ + (gx#syntax-e _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ (gx#syntax-e - _%tl3662336690%_))) - (let ((_%tl3662636700%_ + _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) + (##car _%e3666036729%_)))) (if (gx#stx-null? - _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) - (let () (declare (not safe)) (_%g3648636632%_))) + (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) + (let () (declare (not safe)) (_%g3652236668%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3652236668%_))))))) + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3659836978%_ (gx#syntax-e _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3662136878%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3662136878%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%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 - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3660036985%_))) + (let ((_%tl3663936816%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3663736809%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3663936816%_) + (let ((_%e3665736719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (gx#syntax-e _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) + (if (gx#identifier? _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3662136878%_ + (gx#syntax-e _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3662136878%_)))) + (if (gx#stx-null? _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%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 - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3660036985%_))) + (let ((_%tl3663936816%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3663736809%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3663936816%_) + (let ((_%e3665736719%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3663936816%_))) + (let ((_%tl3665936726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (let () (declare (not safe)) (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) + (if (gx#stx-pair? _%tl3665936726%_) + (let ((_%e3666036729%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3666036729%_)))) + (if (gx#stx-null? _%tl3666236736%_) + (_%__kont3956239563%_ + _%hd3666136733%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3652236668%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ _%hd3649537180%_ _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3652236668%_))))))) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ _%hd3653137216%_ _%hd3652837206%_) + (let () (declare (not safe)) (_%g3652236668%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3659836978%_ (gx#syntax-e - _%tl3649637183%_))) - (let ((_%tl3656436949%_ + _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) + (##car _%e3659836978%_)))) (if (gx#stx-null? - _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) + _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) (if (gx#identifier? - _%hd3656336946%_) + _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3660036985%_) + (let ((_%e3662136878%_ + (gx#syntax-e _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3662136878%_)))) + (if (gx#stx-null? _%tl3662336885%_) + (_%__kont3955839559%_ + _%hd3662236882%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3660336780%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ + (##car _%e3663736809%_)))) + (if (gx#stx-null? _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) + (if (gx#stx-pair? _%tl3663936816%_) + (let ((_%e3665736719%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) + (##car _%e3665736719%_)))) (if (gx#identifier? - _%hd3662236687%_) + _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) (if (gx#stx-pair? - _%tl3662336690%_) - (let ((_%e3662436693%_ + _%tl3665936726%_) + (let ((_%e3666036729%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + (gx#syntax-e _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3652236668%_)))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_)))) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_)))) + (let () (declare (not safe)) (_%g3652236668%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3653237219%_) + (_%__kont3955639557%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3652236668%_))))))) + (if (gx#stx-pair? _%tl3653237219%_) + (let ((_%e3659836978%_ + (gx#syntax-e _%tl3653237219%_))) + (let ((_%tl3660036985%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3659836978%_))) + (_%hd3659936982%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) + (##car _%e3659836978%_)))) + (if (gx#stx-null? _%tl3660036985%_) + (_%__kont3955439555%_ + _%hd3659936982%_ + _%hd3653137216%_) (if (gx#identifier? - _%hd3656336946%_) + _%hd3659936982%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) + |gerbil/core/match[1]#_g39916_| + _%hd3659936982%_) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3658536842%_ + _%tl3660036985%_) + (let ((_%e3662136878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + (gx#syntax-e _%tl3660036985%_))) + (let ((_%tl3662336885%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3662136878%_))) + (_%hd3662236882%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _%hd3656336946%_) - (let ((_%e3660036769%_ + _%hd3659936982%_) + (let ((_%e3663636805%_ (gx#stx-e - _%hd3656336946%_))) - (if (equal? _%e3660036769%_ + _%hd3659936982%_))) + (if (equal? _%e3663636805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3660336780%_ + (if (gx#stx-pair? _%tl3660036985%_) + (let ((_%e3663736809%_ (gx#syntax-e _%tl3660036985%_))) + (let ((_%tl3663936816%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3663736809%_))) + (_%hd3663836813%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##car _%e3663736809%_)))) + (if (gx#stx-null? _%tl3663936816%_) + (_%__kont3956039561%_ + _%hd3663836813%_ + _%hd3653137216%_ + _%hd3652837206%_) + (if (gx#stx-pair? _%tl3663936816%_) + (let ((_%e3665736719%_ + (gx#syntax-e _%tl3663936816%_))) + (let ((_%tl3665936726%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3665736719%_))) + (_%hd3665836723%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3665736719%_)))) + (if (gx#identifier? _%hd3665836723%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) + |gerbil/core/match[1]#_g39917_| + _%hd3665836723%_) (if (gx#stx-pair? - _%tl3662336690%_) - (let ((_%e3662436693%_ + _%tl3665936726%_) + (let ((_%e3666036729%_ (gx#syntax-e - _%tl3662336690%_))) - (let ((_%tl3662636700%_ + _%tl3665936726%_))) + (let ((_%tl3666236736%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ - (let () (declare (not safe)) (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) + (##cdr _%e3666036729%_))) + (_%hd3666136733%_ + (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)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3652236668%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3652236668%_))))) (let () (declare (not safe)) - (_%g3648636632%_)))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_)))) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3652236668%_)))))) + (let () (declare (not safe)) (_%g3652236668%_))) + (let () (declare (not safe)) (_%g3652236668%_)))) + (let () (declare (not safe)) (_%g3652236668%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (if (gx#stx-null? _%tl3653237219%_) + (_%__kont3955639557%_ + _%hd3653137216%_ + _%hd3652837206%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))))) + (_%g3652236668%_))))))) + (let () (declare (not safe)) (_%g3652236668%_))))) + (let () (declare (not safe)) (_%g3652236668%_)))))))) (define |gerbil/core/match[:0:]#defsyntax-for-match| - (lambda (_%$stx37275%_) - (let* ((_%__stx3977339774%_ _%$stx37275%_) - (_%g3728037314%_ + (lambda (_%$stx37311%_) + (let* ((_%__stx3980939810%_ _%$stx37311%_) + (_%g3731637350%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3977339774%_)))) - (let ((_%__kont3977639777%_ - (lambda (_%L37418%_ _%L37420%_ _%L37421%_) + _%__stx3980939810%_)))) + (let ((_%__kont3981239813%_ + (lambda (_%L37454%_ _%L37456%_ _%L37457%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L37421%_ + (cons _%L37457%_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -8470,9 +8470,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _%L37420%_ '())) + (cons _%L37456%_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _%L37418%_ '())) + (cons _%L37454%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -8529,11 +8529,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3977839779%_ - (lambda (_%L37351%_ _%L37353%_ _%L37354%_) - (cons _%L37354%_ - (cons _%L37353%_ - (cons _%L37351%_ + (_%__kont3981439815%_ + (lambda (_%L37387%_ _%L37389%_ _%L37390%_) + (cons _%L37390%_ + (cons _%L37389%_ + (cons _%L37387%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8550,146 +8550,146 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let ((_%__match3980639807%_ - (lambda (_%e3728537378%_ - _%hd3728637382%_ - _%tl3728737385%_ - _%e3728837388%_ - _%hd3728937392%_ - _%tl3729037395%_ - _%e3729137398%_ - _%hd3729237402%_ - _%tl3729337405%_ - _%e3729437408%_ - _%hd3729537412%_ - _%tl3729637415%_) - (let ((_%L37418%_ _%hd3729537412%_) - (_%L37420%_ _%hd3729237402%_) - (_%L37421%_ _%hd3728937392%_)) - (if (gx#identifier? _%L37421%_) - (_%__kont3977639777%_ - _%L37418%_ - _%L37420%_ - _%L37421%_) - (let () (declare (not safe)) (_%g3728037314%_))))))) - (if (gx#stx-pair? _%__stx3977339774%_) - (let ((_%e3728537378%_ (gx#syntax-e _%__stx3977339774%_))) - (let ((_%tl3728737385%_ + (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 () (declare (not safe)) - (##cdr _%e3728537378%_))) - (_%hd3728637382%_ + (##cdr _%e3732137414%_))) + (_%hd3732237418%_ (let () (declare (not safe)) - (##car _%e3728537378%_)))) - (if (gx#stx-pair? _%tl3728737385%_) - (let ((_%e3728837388%_ - (gx#syntax-e _%tl3728737385%_))) - (let ((_%tl3729037395%_ + (##car _%e3732137414%_)))) + (if (gx#stx-pair? _%tl3732337421%_) + (let ((_%e3732437424%_ + (gx#syntax-e _%tl3732337421%_))) + (let ((_%tl3732637431%_ (let () (declare (not safe)) - (##cdr _%e3728837388%_))) - (_%hd3728937392%_ + (##cdr _%e3732437424%_))) + (_%hd3732537428%_ (let () (declare (not safe)) - (##car _%e3728837388%_)))) - (if (gx#stx-pair? _%tl3729037395%_) - (let ((_%e3729137398%_ - (gx#syntax-e _%tl3729037395%_))) - (let ((_%tl3729337405%_ + (##car _%e3732437424%_)))) + (if (gx#stx-pair? _%tl3732637431%_) + (let ((_%e3732737434%_ + (gx#syntax-e _%tl3732637431%_))) + (let ((_%tl3732937441%_ (let () (declare (not safe)) - (##cdr _%e3729137398%_))) - (_%hd3729237402%_ + (##cdr _%e3732737434%_))) + (_%hd3732837438%_ (let () (declare (not safe)) - (##car _%e3729137398%_)))) - (if (gx#stx-pair? _%tl3729337405%_) - (let ((_%e3729437408%_ + (##car _%e3732737434%_)))) + (if (gx#stx-pair? _%tl3732937441%_) + (let ((_%e3733037444%_ (gx#syntax-e - _%tl3729337405%_))) - (let ((_%tl3729637415%_ + _%tl3732937441%_))) + (let ((_%tl3733237451%_ (let () (declare (not safe)) - (##cdr _%e3729437408%_))) - (_%hd3729537412%_ + (##cdr _%e3733037444%_))) + (_%hd3733137448%_ (let () (declare (not safe)) - (##car _%e3729437408%_)))) + (##car _%e3733037444%_)))) (if (gx#stx-null? - _%tl3729637415%_) - (_%__match3980639807%_ - _%e3728537378%_ - _%hd3728637382%_ - _%tl3728737385%_ - _%e3728837388%_ - _%hd3728937392%_ - _%tl3729037395%_ - _%e3729137398%_ - _%hd3729237402%_ - _%tl3729337405%_ - _%e3729437408%_ - _%hd3729537412%_ - _%tl3729637415%_) + _%tl3733237451%_) + (_%__match3984239843%_ + _%e3732137414%_ + _%hd3732237418%_ + _%tl3732337421%_ + _%e3732437424%_ + _%hd3732537428%_ + _%tl3732637431%_ + _%e3732737434%_ + _%hd3732837438%_ + _%tl3732937441%_ + _%e3733037444%_ + _%hd3733137448%_ + _%tl3733237451%_) (let () (declare (not safe)) - (_%g3728037314%_))))) - (if (gx#stx-null? _%tl3729337405%_) - (_%__kont3977839779%_ - _%hd3729237402%_ - _%hd3728937392%_ - _%hd3728637382%_) + (_%g3731637350%_))))) + (if (gx#stx-null? _%tl3732937441%_) + (_%__kont3981439815%_ + _%hd3732837438%_ + _%hd3732537428%_ + _%hd3732237418%_) (let () (declare (not safe)) - (_%g3728037314%_)))))) + (_%g3731637350%_)))))) (let () (declare (not safe)) - (_%g3728037314%_))))) - (let () (declare (not safe)) (_%g3728037314%_))))) - (let () (declare (not safe)) (_%g3728037314%_)))))))) + (_%g3731637350%_))))) + (let () (declare (not safe)) (_%g3731637350%_))))) + (let () (declare (not safe)) (_%g3731637350%_)))))))) (define |gerbil/core/match[:0:]#defrules-for-match| - (lambda (_%$stx37443%_) - (let* ((_%g3744737462%_ - (lambda (_%g3744837458%_) + (lambda (_%$stx37479%_) + (let* ((_%g3748337498%_ + (lambda (_%g3748437494%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3744837458%_))) - (_%g3744637505%_ - (lambda (_%g3744837466%_) - (if (gx#stx-pair? _%g3744837466%_) - (let ((_%e3745137469%_ (gx#syntax-e _%g3744837466%_))) - (let ((_%hd3745237473%_ + _%g3748437494%_))) + (_%g3748237541%_ + (lambda (_%g3748437502%_) + (if (gx#stx-pair? _%g3748437502%_) + (let ((_%e3748737505%_ (gx#syntax-e _%g3748437502%_))) + (let ((_%hd3748837509%_ (let () (declare (not safe)) - (##car _%e3745137469%_))) - (_%tl3745337476%_ + (##car _%e3748737505%_))) + (_%tl3748937512%_ (let () (declare (not safe)) - (##cdr _%e3745137469%_)))) - (if (gx#stx-pair? _%tl3745337476%_) - (let ((_%e3745437479%_ - (gx#syntax-e _%tl3745337476%_))) - (let ((_%hd3745537483%_ + (##cdr _%e3748737505%_)))) + (if (gx#stx-pair? _%tl3748937512%_) + (let ((_%e3749037515%_ + (gx#syntax-e _%tl3748937512%_))) + (let ((_%hd3749137519%_ (let () (declare (not safe)) - (##car _%e3745437479%_))) - (_%tl3745637486%_ + (##car _%e3749037515%_))) + (_%tl3749237522%_ (let () (declare (not safe)) - (##cdr _%e3745437479%_)))) - ((lambda (_%L37489%_ _%L37491%_) + (##cdr _%e3749037515%_)))) + ((lambda (_%L37525%_ _%L37527%_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _%L37491%_ + (cons _%L37527%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L37489%_) + _%L37525%_) '())))) - _%tl3745637486%_ - _%hd3745537483%_))) - (_%g3744737462%_ _%g3744837466%_)))) - (_%g3744737462%_ _%g3744837466%_))))) - (_%g3744637505%_ _%$stx37443%_)))))) + _%tl3749237522%_ + _%hd3749137519%_))) + (_%g3748337498%_ _%g3748437502%_)))) + (_%g3748337498%_ _%g3748437502%_))))) + (_%g3748237541%_ _%$stx37479%_)))))) diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index eb13b613c..ceea2ff55 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]#_g39886_| + (define |gerbil/core/match[2]#_g39922_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39888_| + (define |gerbil/core/match[2]#_g39924_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39890_| + (define |gerbil/core/match[2]#_g39926_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39892_| + (define |gerbil/core/match[2]#_g39928_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39894_| + (define |gerbil/core/match[2]#_g39930_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39896_| + (define |gerbil/core/match[2]#_g39932_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39898_| + (define |gerbil/core/match[2]#_g39934_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39900_| + (define |gerbil/core/match[2]#_g39936_| (##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 ((__obj39828 + (let ((__obj39864 (let () (declare (not safe)) (##structure @@ -86,55 +86,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj39828 + __obj39864 'gerbil.core#match-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 'match-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj39864 'match-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '() '4 '#f '#f)) - (let ((__tmp39885 (cons |gerbil/core/match[2]#_g39886_| '()))) + (##unchecked-structure-set! __obj39864 '() '4 '#f '#f)) + (let ((__tmp39921 (cons |gerbil/core/match[2]#_g39922_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39885 '3 '#f '#f)) + (##unchecked-structure-set! __obj39864 __tmp39921 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj39864 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj39864 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj39864 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '11 '#f '#f)) - (let ((__tmp39887 |gerbil/core/match[2]#_g39888_|)) + (##unchecked-structure-set! __obj39864 '#f '11 '#f '#f)) + (let ((__tmp39923 |gerbil/core/match[2]#_g39924_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39887 '12 '#f '#f)) - (let ((__tmp39889 |gerbil/core/match[2]#_g39890_|)) + (##unchecked-structure-set! __obj39864 __tmp39923 '12 '#f '#f)) + (let ((__tmp39925 |gerbil/core/match[2]#_g39926_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39889 '13 '#f '#f)) - (let ((__tmp39891 |gerbil/core/match[2]#_g39892_|)) + (##unchecked-structure-set! __obj39864 __tmp39925 '13 '#f '#f)) + (let ((__tmp39927 |gerbil/core/match[2]#_g39928_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39891 '14 '#f '#f)) - (let ((__tmp39893 - (cons (cons 'macro |gerbil/core/match[2]#_g39894_|) '()))) + (##unchecked-structure-set! __obj39864 __tmp39927 '14 '#f '#f)) + (let ((__tmp39929 + (cons (cons 'macro |gerbil/core/match[2]#_g39930_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39893 '15 '#f '#f)) - (let ((__tmp39895 - (cons (cons 'macro |gerbil/core/match[2]#_g39896_|) '()))) + (##unchecked-structure-set! __obj39864 __tmp39929 '15 '#f '#f)) + (let ((__tmp39931 + (cons (cons 'macro |gerbil/core/match[2]#_g39932_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39895 '16 '#f '#f)) - (let ((__tmp39897 - (cons (cons 'macro |gerbil/core/match[2]#_g39898_|) '()))) + (##unchecked-structure-set! __obj39864 __tmp39931 '16 '#f '#f)) + (let ((__tmp39933 + (cons (cons 'macro |gerbil/core/match[2]#_g39934_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39897 '17 '#f '#f)) - (let ((__tmp39899 - (cons (cons 'macro |gerbil/core/match[2]#_g39900_|) '()))) + (##unchecked-structure-set! __obj39864 __tmp39933 '17 '#f '#f)) + (let ((__tmp39935 + (cons (cons 'macro |gerbil/core/match[2]#_g39936_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39899 '18 '#f '#f)) - __obj39828))) + (##unchecked-structure-set! __obj39864 __tmp39935 '18 '#f '#f)) + __obj39864))) diff --git a/src/bootstrap/gerbil/core/module-sugar~1.scm b/src/bootstrap/gerbil/core/module-sugar~1.scm index c0050ffde..cdd016e78 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 (_%$stx41620%_) - (let* ((_%__stx4427444275%_ _%$stx41620%_) - (_%g4162541644%_ + (lambda (_%$stx41656%_) + (let* ((_%__stx4431044311%_ _%$stx41656%_) + (_%g4166141680%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4427444275%_)))) - (let ((_%__kont4427744278%_ + _%__stx4431044311%_)))) + (let ((_%__kont4431344314%_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (_%__kont4427944280%_ - (lambda (_%L41671%_ _%L41673%_ _%L41674%_) + (_%__kont4431544316%_ + (lambda (_%L41707%_ _%L41709%_ _%L41710%_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _%L41673%_ - (cons (cons _%L41674%_ _%L41671%_) '())) + (cons (cons _%L41709%_ + (cons (cons _%L41710%_ _%L41707%_) '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _%L41673%_ + (cons _%L41709%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (if (gx#stx-pair? _%__stx4427444275%_) - (let ((_%e4162741696%_ (gx#syntax-e _%__stx4427444275%_))) - (let ((_%tl4162941703%_ - (let () (declare (not safe)) (##cdr _%e4162741696%_))) - (_%hd4162841700%_ - (let () (declare (not safe)) (##car _%e4162741696%_)))) - (if (gx#stx-null? _%tl4162941703%_) - (_%__kont4427744278%_) - (if (gx#stx-pair? _%tl4162941703%_) - (let ((_%e4163641661%_ - (gx#syntax-e _%tl4162941703%_))) - (let ((_%tl4163841668%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e4163641661%_))) - (_%hd4163741665%_ + (##cdr _%e4167241697%_))) + (_%hd4167341701%_ (let () (declare (not safe)) - (##car _%e4163641661%_)))) - (_%__kont4427944280%_ - _%tl4163841668%_ - _%hd4163741665%_ - _%hd4162841700%_))) - (let () (declare (not safe)) (_%g4162541644%_)))))) - (let () (declare (not safe)) (_%g4162541644%_))))))) + (##car _%e4167241697%_)))) + (_%__kont4431544316%_ + _%tl4167441704%_ + _%hd4167341701%_ + _%hd4166441736%_))) + (let () (declare (not safe)) (_%g4166141680%_)))))) + (let () (declare (not safe)) (_%g4166141680%_))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import| - (lambda (_%$stx41714%_) - (let* ((_%__stx4430444305%_ _%$stx41714%_) - (_%g4171941759%_ + (lambda (_%$stx41750%_) + (let* ((_%__stx4434044341%_ _%$stx41750%_) + (_%g4175541795%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4430444305%_)))) - (let ((_%__kont4430744308%_ - (lambda (_%L41897%_ _%L41899%_) + _%__stx4434044341%_)))) + (let ((_%__kont4434344344%_ + (lambda (_%L41933%_ _%L41935%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L41899%_ + (cons _%L41935%_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _%L41897%_ '())) + (cons _%L41933%_ '())) '()))))) - (_%__kont4430944310%_ - (lambda (_%L41826%_ _%L41828%_ _%L41829%_ _%L41830%_) - (cons _%L41830%_ - (cons _%L41829%_ + (_%__kont4434544346%_ + (lambda (_%L41862%_ _%L41864%_ _%L41865%_ _%L41866%_) + (cons _%L41866%_ + (cons _%L41865%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L41828%_ - (foldr (lambda (_%g4185141854%_ - _%g4185241857%_) - (cons _%g4185141854%_ - _%g4185241857%_)) + (cons _%L41864%_ + (foldr (lambda (_%g4188741890%_ + _%g4188841893%_) + (cons _%g4188741890%_ + _%g4188841893%_)) '() - _%L41826%_))) + _%L41862%_))) '())))))) - (let* ((_%__match4435944360%_ - (lambda (_%e4173641766%_ - _%hd4173741770%_ - _%tl4173841773%_ - _%e4173941776%_ - _%hd4174041780%_ - _%tl4174141783%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) - (letrec ((_%loop4174841802%_ - (lambda (_%hd4174641806%_ _%body4175241809%_) - (if (gx#stx-pair? _%hd4174641806%_) - (let ((_%e4174941812%_ - (gx#syntax-e _%hd4174641806%_))) - (let ((_%lp-tl4175141819%_ + (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 () (declare (not safe)) - (##cdr _%e4174941812%_))) - (_%lp-hd4175041816%_ + (##cdr _%e4178541848%_))) + (_%lp-hd4178641852%_ (let () (declare (not safe)) - (##car _%e4174941812%_)))) - (_%loop4174841802%_ - _%lp-tl4175141819%_ - (cons _%lp-hd4175041816%_ - _%body4175241809%_)))) - (let ((_%body4175341822%_ - (reverse _%body4175241809%_))) - (let ((_%L41826%_ _%body4175341822%_) - (_%L41828%_ _%tl4174441793%_) - (_%L41829%_ _%hd4174341790%_) - (_%L41830%_ _%hd4173741770%_)) - (if (gx#identifier? _%L41829%_) - (_%__kont4430944310%_ - _%L41826%_ - _%L41828%_ - _%L41829%_ - _%L41830%_) + (##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%_) (let () (declare (not safe)) - (_%g4171941759%_))))))))) - (_%loop4174841802%_ _%target4174541796%_ '())))) - (_%__match4433344334%_ - (lambda (_%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4172941887%_ - _%hd4173041891%_ - _%tl4173141894%_) - (let ((_%L41897%_ _%hd4173041891%_) - (_%L41899%_ _%hd4172741881%_)) - (if (gx#identifier? _%L41899%_) - (_%__kont4430744308%_ _%L41897%_ _%L41899%_) - (if (gx#stx-pair? _%hd4172741881%_) - (let ((_%e4174241786%_ - (gx#syntax-e _%hd4172741881%_))) - (let ((_%tl4174441793%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4174241786%_))) - (_%hd4174341790%_ + (##cdr _%e4177841822%_))) + (_%hd4177941826%_ (let () (declare (not safe)) - (##car _%e4174241786%_)))) - (if (gx#stx-pair/null? _%tl4172841884%_) - (let ((_%__splice4431144312%_ + (##car _%e4177841822%_)))) + (if (gx#stx-pair/null? _%tl4176441920%_) + (let ((_%__splice4434744348%_ (gx#syntax-split-splice - _%tl4172841884%_ + _%tl4176441920%_ '0))) - (let ((_%tl4174741799%_ + (let ((_%tl4178341835%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4434744348%_ '1))) - (_%target4174541796%_ + (_%target4178141832%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4434744348%_ '0)))) - (if (gx#stx-null? _%tl4174741799%_) - (_%__match4435944360%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) + (if (gx#stx-null? _%tl4178341835%_) + (_%__match4439544396%_ + _%e4175941903%_ + _%hd4176041907%_ + _%tl4176141910%_ + _%e4176241913%_ + _%hd4176341917%_ + _%tl4176441920%_ + _%e4177841822%_ + _%hd4177941826%_ + _%tl4178041829%_ + _%__splice4434744348%_ + _%target4178141832%_ + _%tl4178341835%_) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4175541795%_))))) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4175541795%_))))) (let () (declare (not safe)) - (_%g4171941759%_)))))))) - (if (gx#stx-pair? _%__stx4430444305%_) - (let ((_%e4172341867%_ (gx#syntax-e _%__stx4430444305%_))) - (let ((_%tl4172541874%_ - (let () (declare (not safe)) (##cdr _%e4172341867%_))) - (_%hd4172441871%_ + (_%g4175541795%_)))))))) + (if (gx#stx-pair? _%__stx4434044341%_) + (let ((_%e4175941903%_ (gx#syntax-e _%__stx4434044341%_))) + (let ((_%tl4176141910%_ + (let () (declare (not safe)) (##cdr _%e4175941903%_))) + (_%hd4176041907%_ (let () (declare (not safe)) - (##car _%e4172341867%_)))) - (if (gx#stx-pair? _%tl4172541874%_) - (let ((_%e4172641877%_ (gx#syntax-e _%tl4172541874%_))) - (let ((_%tl4172841884%_ + (##car _%e4175941903%_)))) + (if (gx#stx-pair? _%tl4176141910%_) + (let ((_%e4176241913%_ (gx#syntax-e _%tl4176141910%_))) + (let ((_%tl4176441920%_ (let () (declare (not safe)) - (##cdr _%e4172641877%_))) - (_%hd4172741881%_ + (##cdr _%e4176241913%_))) + (_%hd4176341917%_ (let () (declare (not safe)) - (##car _%e4172641877%_)))) - (if (gx#stx-pair? _%tl4172841884%_) - (let ((_%e4172941887%_ - (gx#syntax-e _%tl4172841884%_))) - (let ((_%tl4173141894%_ + (##car _%e4176241913%_)))) + (if (gx#stx-pair? _%tl4176441920%_) + (let ((_%e4176541923%_ + (gx#syntax-e _%tl4176441920%_))) + (let ((_%tl4176741930%_ (let () (declare (not safe)) - (##cdr _%e4172941887%_))) - (_%hd4173041891%_ + (##cdr _%e4176541923%_))) + (_%hd4176641927%_ (let () (declare (not safe)) - (##car _%e4172941887%_)))) - (if (gx#stx-null? _%tl4173141894%_) - (_%__match4433344334%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4172941887%_ - _%hd4173041891%_ - _%tl4173141894%_) - (if (gx#stx-pair? _%hd4172741881%_) - (let ((_%e4174241786%_ + (##car _%e4176541923%_)))) + (if (gx#stx-null? _%tl4176741930%_) + (_%__match4436944370%_ + _%e4175941903%_ + _%hd4176041907%_ + _%tl4176141910%_ + _%e4176241913%_ + _%hd4176341917%_ + _%tl4176441920%_ + _%e4176541923%_ + _%hd4176641927%_ + _%tl4176741930%_) + (if (gx#stx-pair? _%hd4176341917%_) + (let ((_%e4177841822%_ (gx#syntax-e - _%hd4172741881%_))) - (let ((_%tl4174441793%_ + _%hd4176341917%_))) + (let ((_%tl4178041829%_ (let () (declare (not safe)) - (##cdr _%e4174241786%_))) - (_%hd4174341790%_ + (##cdr _%e4177841822%_))) + (_%hd4177941826%_ (let () (declare (not safe)) - (##car _%e4174241786%_)))) + (##car _%e4177841822%_)))) (if (gx#stx-pair/null? - _%tl4172841884%_) - (let ((_%__splice4431144312%_ + _%tl4176441920%_) + (let ((_%__splice4434744348%_ (gx#syntax-split-splice - _%tl4172841884%_ + _%tl4176441920%_ '0))) - (let ((_%tl4174741799%_ + (let ((_%tl4178341835%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4431144312%_ '1))) - (_%target4174541796%_ + (##vector-ref _%__splice4434744348%_ '1))) + (_%target4178141832%_ (let () (declare (not safe)) - (##vector-ref _%__splice4431144312%_ '0)))) - (if (gx#stx-null? _%tl4174741799%_) - (_%__match4435944360%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) - (let () (declare (not safe)) (_%g4171941759%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4175541795%_))))) (let () (declare (not safe)) - (_%g4171941759%_)))))) - (if (gx#stx-pair? _%hd4172741881%_) - (let ((_%e4174241786%_ - (gx#syntax-e _%hd4172741881%_))) - (let ((_%tl4174441793%_ + (_%g4175541795%_)))))) + (if (gx#stx-pair? _%hd4176341917%_) + (let ((_%e4177841822%_ + (gx#syntax-e _%hd4176341917%_))) + (let ((_%tl4178041829%_ (let () (declare (not safe)) - (##cdr _%e4174241786%_))) - (_%hd4174341790%_ + (##cdr _%e4177841822%_))) + (_%hd4177941826%_ (let () (declare (not safe)) - (##car _%e4174241786%_)))) + (##car _%e4177841822%_)))) (if (gx#stx-pair/null? - _%tl4172841884%_) - (let ((_%__splice4431144312%_ + _%tl4176441920%_) + (let ((_%__splice4434744348%_ (gx#syntax-split-splice - _%tl4172841884%_ + _%tl4176441920%_ '0))) - (let ((_%tl4174741799%_ + (let ((_%tl4178341835%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4434744348%_ '1))) - (_%target4174541796%_ + (_%target4178141832%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4434744348%_ '0)))) (if (gx#stx-null? - _%tl4174741799%_) - (_%__match4435944360%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) + _%tl4178341835%_) + (_%__match4439544396%_ + _%e4175941903%_ + _%hd4176041907%_ + _%tl4176141910%_ + _%e4176241913%_ + _%hd4176341917%_ + _%tl4176441920%_ + _%e4177841822%_ + _%hd4177941826%_ + _%tl4178041829%_ + _%__splice4434744348%_ + _%target4178141832%_ + _%tl4178341835%_) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4175541795%_))))) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4175541795%_))))) (let () (declare (not safe)) - (_%g4171941759%_)))))) - (let () (declare (not safe)) (_%g4171941759%_))))) - (let () (declare (not safe)) (_%g4171941759%_)))))))) + (_%g4175541795%_)))))) + (let () (declare (not safe)) (_%g4175541795%_))))) + (let () (declare (not safe)) (_%g4175541795%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-export| - (lambda (_%$stx41919%_) - (let* ((_%__stx4436244363%_ _%$stx41919%_) - (_%g4192441964%_ + (lambda (_%$stx41955%_) + (let* ((_%__stx4439844399%_ _%$stx41955%_) + (_%g4196042000%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4436244363%_)))) - (let ((_%__kont4436544366%_ - (lambda (_%L42102%_ _%L42104%_) + _%__stx4439844399%_)))) + (let ((_%__kont4440144402%_ + (lambda (_%L42138%_ _%L42140%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42104%_ + (cons _%L42140%_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _%L42102%_ '())) + (cons _%L42138%_ '())) '()))))) - (_%__kont4436744368%_ - (lambda (_%L42031%_ _%L42033%_ _%L42034%_ _%L42035%_) - (cons _%L42035%_ - (cons _%L42034%_ + (_%__kont4440344404%_ + (lambda (_%L42067%_ _%L42069%_ _%L42070%_ _%L42071%_) + (cons _%L42071%_ + (cons _%L42070%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42033%_ - (foldr (lambda (_%g4205642059%_ - _%g4205742062%_) - (cons _%g4205642059%_ - _%g4205742062%_)) + (cons _%L42069%_ + (foldr (lambda (_%g4209242095%_ + _%g4209342098%_) + (cons _%g4209242095%_ + _%g4209342098%_)) '() - _%L42031%_))) + _%L42067%_))) '())))))) - (let* ((_%__match4441744418%_ - (lambda (_%e4194141971%_ - _%hd4194241975%_ - _%tl4194341978%_ - _%e4194441981%_ - _%hd4194541985%_ - _%tl4194641988%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) - (letrec ((_%loop4195342007%_ - (lambda (_%hd4195142011%_ _%body4195742014%_) - (if (gx#stx-pair? _%hd4195142011%_) - (let ((_%e4195442017%_ - (gx#syntax-e _%hd4195142011%_))) - (let ((_%lp-tl4195642024%_ + (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 () (declare (not safe)) - (##cdr _%e4195442017%_))) - (_%lp-hd4195542021%_ + (##cdr _%e4199042053%_))) + (_%lp-hd4199142057%_ (let () (declare (not safe)) - (##car _%e4195442017%_)))) - (_%loop4195342007%_ - _%lp-tl4195642024%_ - (cons _%lp-hd4195542021%_ - _%body4195742014%_)))) - (let ((_%body4195842027%_ - (reverse _%body4195742014%_))) - (let ((_%L42031%_ _%body4195842027%_) - (_%L42033%_ _%tl4194941998%_) - (_%L42034%_ _%hd4194841995%_) - (_%L42035%_ _%hd4194241975%_)) - (if (gx#identifier? _%L42034%_) - (_%__kont4436744368%_ - _%L42031%_ - _%L42033%_ - _%L42034%_ - _%L42035%_) + (##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%_) (let () (declare (not safe)) - (_%g4192441964%_))))))))) - (_%loop4195342007%_ _%target4195042001%_ '())))) - (_%__match4439144392%_ - (lambda (_%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4193442092%_ - _%hd4193542096%_ - _%tl4193642099%_) - (let ((_%L42102%_ _%hd4193542096%_) - (_%L42104%_ _%hd4193242086%_)) - (if (gx#identifier? _%L42104%_) - (_%__kont4436544366%_ _%L42102%_ _%L42104%_) - (if (gx#stx-pair? _%hd4193242086%_) - (let ((_%e4194741991%_ - (gx#syntax-e _%hd4193242086%_))) - (let ((_%tl4194941998%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4194741991%_))) - (_%hd4194841995%_ + (##cdr _%e4198342027%_))) + (_%hd4198442031%_ (let () (declare (not safe)) - (##car _%e4194741991%_)))) - (if (gx#stx-pair/null? _%tl4193342089%_) - (let ((_%__splice4436944370%_ + (##car _%e4198342027%_)))) + (if (gx#stx-pair/null? _%tl4196942125%_) + (let ((_%__splice4440544406%_ (gx#syntax-split-splice - _%tl4193342089%_ + _%tl4196942125%_ '0))) - (let ((_%tl4195242004%_ + (let ((_%tl4198842040%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4440544406%_ '1))) - (_%target4195042001%_ + (_%target4198642037%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4440544406%_ '0)))) - (if (gx#stx-null? _%tl4195242004%_) - (_%__match4441744418%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) + (if (gx#stx-null? _%tl4198842040%_) + (_%__match4445344454%_ + _%e4196442108%_ + _%hd4196542112%_ + _%tl4196642115%_ + _%e4196742118%_ + _%hd4196842122%_ + _%tl4196942125%_ + _%e4198342027%_ + _%hd4198442031%_ + _%tl4198542034%_ + _%__splice4440544406%_ + _%target4198642037%_ + _%tl4198842040%_) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4196042000%_))))) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4196042000%_))))) (let () (declare (not safe)) - (_%g4192441964%_)))))))) - (if (gx#stx-pair? _%__stx4436244363%_) - (let ((_%e4192842072%_ (gx#syntax-e _%__stx4436244363%_))) - (let ((_%tl4193042079%_ - (let () (declare (not safe)) (##cdr _%e4192842072%_))) - (_%hd4192942076%_ + (_%g4196042000%_)))))))) + (if (gx#stx-pair? _%__stx4439844399%_) + (let ((_%e4196442108%_ (gx#syntax-e _%__stx4439844399%_))) + (let ((_%tl4196642115%_ + (let () (declare (not safe)) (##cdr _%e4196442108%_))) + (_%hd4196542112%_ (let () (declare (not safe)) - (##car _%e4192842072%_)))) - (if (gx#stx-pair? _%tl4193042079%_) - (let ((_%e4193142082%_ (gx#syntax-e _%tl4193042079%_))) - (let ((_%tl4193342089%_ + (##car _%e4196442108%_)))) + (if (gx#stx-pair? _%tl4196642115%_) + (let ((_%e4196742118%_ (gx#syntax-e _%tl4196642115%_))) + (let ((_%tl4196942125%_ (let () (declare (not safe)) - (##cdr _%e4193142082%_))) - (_%hd4193242086%_ + (##cdr _%e4196742118%_))) + (_%hd4196842122%_ (let () (declare (not safe)) - (##car _%e4193142082%_)))) - (if (gx#stx-pair? _%tl4193342089%_) - (let ((_%e4193442092%_ - (gx#syntax-e _%tl4193342089%_))) - (let ((_%tl4193642099%_ + (##car _%e4196742118%_)))) + (if (gx#stx-pair? _%tl4196942125%_) + (let ((_%e4197042128%_ + (gx#syntax-e _%tl4196942125%_))) + (let ((_%tl4197242135%_ (let () (declare (not safe)) - (##cdr _%e4193442092%_))) - (_%hd4193542096%_ + (##cdr _%e4197042128%_))) + (_%hd4197142132%_ (let () (declare (not safe)) - (##car _%e4193442092%_)))) - (if (gx#stx-null? _%tl4193642099%_) - (_%__match4439144392%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4193442092%_ - _%hd4193542096%_ - _%tl4193642099%_) - (if (gx#stx-pair? _%hd4193242086%_) - (let ((_%e4194741991%_ + (##car _%e4197042128%_)))) + (if (gx#stx-null? _%tl4197242135%_) + (_%__match4442744428%_ + _%e4196442108%_ + _%hd4196542112%_ + _%tl4196642115%_ + _%e4196742118%_ + _%hd4196842122%_ + _%tl4196942125%_ + _%e4197042128%_ + _%hd4197142132%_ + _%tl4197242135%_) + (if (gx#stx-pair? _%hd4196842122%_) + (let ((_%e4198342027%_ (gx#syntax-e - _%hd4193242086%_))) - (let ((_%tl4194941998%_ + _%hd4196842122%_))) + (let ((_%tl4198542034%_ (let () (declare (not safe)) - (##cdr _%e4194741991%_))) - (_%hd4194841995%_ + (##cdr _%e4198342027%_))) + (_%hd4198442031%_ (let () (declare (not safe)) - (##car _%e4194741991%_)))) + (##car _%e4198342027%_)))) (if (gx#stx-pair/null? - _%tl4193342089%_) - (let ((_%__splice4436944370%_ + _%tl4196942125%_) + (let ((_%__splice4440544406%_ (gx#syntax-split-splice - _%tl4193342089%_ + _%tl4196942125%_ '0))) - (let ((_%tl4195242004%_ + (let ((_%tl4198842040%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4436944370%_ '1))) - (_%target4195042001%_ + (##vector-ref _%__splice4440544406%_ '1))) + (_%target4198642037%_ (let () (declare (not safe)) - (##vector-ref _%__splice4436944370%_ '0)))) - (if (gx#stx-null? _%tl4195242004%_) - (_%__match4441744418%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) - (let () (declare (not safe)) (_%g4192441964%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4196042000%_))))) (let () (declare (not safe)) - (_%g4192441964%_)))))) - (if (gx#stx-pair? _%hd4193242086%_) - (let ((_%e4194741991%_ - (gx#syntax-e _%hd4193242086%_))) - (let ((_%tl4194941998%_ + (_%g4196042000%_)))))) + (if (gx#stx-pair? _%hd4196842122%_) + (let ((_%e4198342027%_ + (gx#syntax-e _%hd4196842122%_))) + (let ((_%tl4198542034%_ (let () (declare (not safe)) - (##cdr _%e4194741991%_))) - (_%hd4194841995%_ + (##cdr _%e4198342027%_))) + (_%hd4198442031%_ (let () (declare (not safe)) - (##car _%e4194741991%_)))) + (##car _%e4198342027%_)))) (if (gx#stx-pair/null? - _%tl4193342089%_) - (let ((_%__splice4436944370%_ + _%tl4196942125%_) + (let ((_%__splice4440544406%_ (gx#syntax-split-splice - _%tl4193342089%_ + _%tl4196942125%_ '0))) - (let ((_%tl4195242004%_ + (let ((_%tl4198842040%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4440544406%_ '1))) - (_%target4195042001%_ + (_%target4198642037%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4440544406%_ '0)))) (if (gx#stx-null? - _%tl4195242004%_) - (_%__match4441744418%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) + _%tl4198842040%_) + (_%__match4445344454%_ + _%e4196442108%_ + _%hd4196542112%_ + _%tl4196642115%_ + _%e4196742118%_ + _%hd4196842122%_ + _%tl4196942125%_ + _%e4198342027%_ + _%hd4198442031%_ + _%tl4198542034%_ + _%__splice4440544406%_ + _%target4198642037%_ + _%tl4198842040%_) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4196042000%_))))) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4196042000%_))))) (let () (declare (not safe)) - (_%g4192441964%_)))))) - (let () (declare (not safe)) (_%g4192441964%_))))) - (let () (declare (not safe)) (_%g4192441964%_)))))))) + (_%g4196042000%_)))))) + (let () (declare (not safe)) (_%g4196042000%_))))) + (let () (declare (not safe)) (_%g4196042000%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import-export| - (lambda (_%$stx42124%_) - (let* ((_%__stx4442044421%_ _%$stx42124%_) - (_%g4212942169%_ + (lambda (_%$stx42160%_) + (let* ((_%__stx4445644457%_ _%$stx42160%_) + (_%g4216542205%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4442044421%_)))) - (let ((_%__kont4442344424%_ - (lambda (_%L42307%_ _%L42309%_) + _%__stx4445644457%_)))) + (let ((_%__kont4445944460%_ + (lambda (_%L42343%_ _%L42345%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42309%_ + (cons _%L42345%_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _%L42307%_ '())) + (cons _%L42343%_ '())) '()))))) - (_%__kont4442544426%_ - (lambda (_%L42236%_ _%L42238%_ _%L42239%_ _%L42240%_) - (cons _%L42240%_ - (cons _%L42239%_ + (_%__kont4446144462%_ + (lambda (_%L42272%_ _%L42274%_ _%L42275%_ _%L42276%_) + (cons _%L42276%_ + (cons _%L42275%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42238%_ - (foldr (lambda (_%g4226142264%_ - _%g4226242267%_) - (cons _%g4226142264%_ - _%g4226242267%_)) + (cons _%L42274%_ + (foldr (lambda (_%g4229742300%_ + _%g4229842303%_) + (cons _%g4229742300%_ + _%g4229842303%_)) '() - _%L42236%_))) + _%L42272%_))) '())))))) - (let* ((_%__match4447544476%_ - (lambda (_%e4214642176%_ - _%hd4214742180%_ - _%tl4214842183%_ - _%e4214942186%_ - _%hd4215042190%_ - _%tl4215142193%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) - (letrec ((_%loop4215842212%_ - (lambda (_%hd4215642216%_ _%body4216242219%_) - (if (gx#stx-pair? _%hd4215642216%_) - (let ((_%e4215942222%_ - (gx#syntax-e _%hd4215642216%_))) - (let ((_%lp-tl4216142229%_ + (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 () (declare (not safe)) - (##cdr _%e4215942222%_))) - (_%lp-hd4216042226%_ + (##cdr _%e4219542258%_))) + (_%lp-hd4219642262%_ (let () (declare (not safe)) - (##car _%e4215942222%_)))) - (_%loop4215842212%_ - _%lp-tl4216142229%_ - (cons _%lp-hd4216042226%_ - _%body4216242219%_)))) - (let ((_%body4216342232%_ - (reverse _%body4216242219%_))) - (let ((_%L42236%_ _%body4216342232%_) - (_%L42238%_ _%tl4215442203%_) - (_%L42239%_ _%hd4215342200%_) - (_%L42240%_ _%hd4214742180%_)) - (if (gx#identifier? _%L42239%_) - (_%__kont4442544426%_ - _%L42236%_ - _%L42238%_ - _%L42239%_ - _%L42240%_) + (##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%_) (let () (declare (not safe)) - (_%g4212942169%_))))))))) - (_%loop4215842212%_ _%target4215542206%_ '())))) - (_%__match4444944450%_ - (lambda (_%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4213942297%_ - _%hd4214042301%_ - _%tl4214142304%_) - (let ((_%L42307%_ _%hd4214042301%_) - (_%L42309%_ _%hd4213742291%_)) - (if (gx#identifier? _%L42309%_) - (_%__kont4442344424%_ _%L42307%_ _%L42309%_) - (if (gx#stx-pair? _%hd4213742291%_) - (let ((_%e4215242196%_ - (gx#syntax-e _%hd4213742291%_))) - (let ((_%tl4215442203%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4215242196%_))) - (_%hd4215342200%_ + (##cdr _%e4218842232%_))) + (_%hd4218942236%_ (let () (declare (not safe)) - (##car _%e4215242196%_)))) - (if (gx#stx-pair/null? _%tl4213842294%_) - (let ((_%__splice4442744428%_ + (##car _%e4218842232%_)))) + (if (gx#stx-pair/null? _%tl4217442330%_) + (let ((_%__splice4446344464%_ (gx#syntax-split-splice - _%tl4213842294%_ + _%tl4217442330%_ '0))) - (let ((_%tl4215742209%_ + (let ((_%tl4219342245%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4446344464%_ '1))) - (_%target4215542206%_ + (_%target4219142242%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4446344464%_ '0)))) - (if (gx#stx-null? _%tl4215742209%_) - (_%__match4447544476%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) + (if (gx#stx-null? _%tl4219342245%_) + (_%__match4451144512%_ + _%e4216942313%_ + _%hd4217042317%_ + _%tl4217142320%_ + _%e4217242323%_ + _%hd4217342327%_ + _%tl4217442330%_ + _%e4218842232%_ + _%hd4218942236%_ + _%tl4219042239%_ + _%__splice4446344464%_ + _%target4219142242%_ + _%tl4219342245%_) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4216542205%_))))) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4216542205%_))))) (let () (declare (not safe)) - (_%g4212942169%_)))))))) - (if (gx#stx-pair? _%__stx4442044421%_) - (let ((_%e4213342277%_ (gx#syntax-e _%__stx4442044421%_))) - (let ((_%tl4213542284%_ - (let () (declare (not safe)) (##cdr _%e4213342277%_))) - (_%hd4213442281%_ + (_%g4216542205%_)))))))) + (if (gx#stx-pair? _%__stx4445644457%_) + (let ((_%e4216942313%_ (gx#syntax-e _%__stx4445644457%_))) + (let ((_%tl4217142320%_ + (let () (declare (not safe)) (##cdr _%e4216942313%_))) + (_%hd4217042317%_ (let () (declare (not safe)) - (##car _%e4213342277%_)))) - (if (gx#stx-pair? _%tl4213542284%_) - (let ((_%e4213642287%_ (gx#syntax-e _%tl4213542284%_))) - (let ((_%tl4213842294%_ + (##car _%e4216942313%_)))) + (if (gx#stx-pair? _%tl4217142320%_) + (let ((_%e4217242323%_ (gx#syntax-e _%tl4217142320%_))) + (let ((_%tl4217442330%_ (let () (declare (not safe)) - (##cdr _%e4213642287%_))) - (_%hd4213742291%_ + (##cdr _%e4217242323%_))) + (_%hd4217342327%_ (let () (declare (not safe)) - (##car _%e4213642287%_)))) - (if (gx#stx-pair? _%tl4213842294%_) - (let ((_%e4213942297%_ - (gx#syntax-e _%tl4213842294%_))) - (let ((_%tl4214142304%_ + (##car _%e4217242323%_)))) + (if (gx#stx-pair? _%tl4217442330%_) + (let ((_%e4217542333%_ + (gx#syntax-e _%tl4217442330%_))) + (let ((_%tl4217742340%_ (let () (declare (not safe)) - (##cdr _%e4213942297%_))) - (_%hd4214042301%_ + (##cdr _%e4217542333%_))) + (_%hd4217642337%_ (let () (declare (not safe)) - (##car _%e4213942297%_)))) - (if (gx#stx-null? _%tl4214142304%_) - (_%__match4444944450%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4213942297%_ - _%hd4214042301%_ - _%tl4214142304%_) - (if (gx#stx-pair? _%hd4213742291%_) - (let ((_%e4215242196%_ + (##car _%e4217542333%_)))) + (if (gx#stx-null? _%tl4217742340%_) + (_%__match4448544486%_ + _%e4216942313%_ + _%hd4217042317%_ + _%tl4217142320%_ + _%e4217242323%_ + _%hd4217342327%_ + _%tl4217442330%_ + _%e4217542333%_ + _%hd4217642337%_ + _%tl4217742340%_) + (if (gx#stx-pair? _%hd4217342327%_) + (let ((_%e4218842232%_ (gx#syntax-e - _%hd4213742291%_))) - (let ((_%tl4215442203%_ + _%hd4217342327%_))) + (let ((_%tl4219042239%_ (let () (declare (not safe)) - (##cdr _%e4215242196%_))) - (_%hd4215342200%_ + (##cdr _%e4218842232%_))) + (_%hd4218942236%_ (let () (declare (not safe)) - (##car _%e4215242196%_)))) + (##car _%e4218842232%_)))) (if (gx#stx-pair/null? - _%tl4213842294%_) - (let ((_%__splice4442744428%_ + _%tl4217442330%_) + (let ((_%__splice4446344464%_ (gx#syntax-split-splice - _%tl4213842294%_ + _%tl4217442330%_ '0))) - (let ((_%tl4215742209%_ + (let ((_%tl4219342245%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4442744428%_ '1))) - (_%target4215542206%_ + (##vector-ref _%__splice4446344464%_ '1))) + (_%target4219142242%_ (let () (declare (not safe)) - (##vector-ref _%__splice4442744428%_ '0)))) - (if (gx#stx-null? _%tl4215742209%_) - (_%__match4447544476%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) - (let () (declare (not safe)) (_%g4212942169%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4216542205%_))))) (let () (declare (not safe)) - (_%g4212942169%_)))))) - (if (gx#stx-pair? _%hd4213742291%_) - (let ((_%e4215242196%_ - (gx#syntax-e _%hd4213742291%_))) - (let ((_%tl4215442203%_ + (_%g4216542205%_)))))) + (if (gx#stx-pair? _%hd4217342327%_) + (let ((_%e4218842232%_ + (gx#syntax-e _%hd4217342327%_))) + (let ((_%tl4219042239%_ (let () (declare (not safe)) - (##cdr _%e4215242196%_))) - (_%hd4215342200%_ + (##cdr _%e4218842232%_))) + (_%hd4218942236%_ (let () (declare (not safe)) - (##car _%e4215242196%_)))) + (##car _%e4218842232%_)))) (if (gx#stx-pair/null? - _%tl4213842294%_) - (let ((_%__splice4442744428%_ + _%tl4217442330%_) + (let ((_%__splice4446344464%_ (gx#syntax-split-splice - _%tl4213842294%_ + _%tl4217442330%_ '0))) - (let ((_%tl4215742209%_ + (let ((_%tl4219342245%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4446344464%_ '1))) - (_%target4215542206%_ + (_%target4219142242%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4446344464%_ '0)))) (if (gx#stx-null? - _%tl4215742209%_) - (_%__match4447544476%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) + _%tl4219342245%_) + (_%__match4451144512%_ + _%e4216942313%_ + _%hd4217042317%_ + _%tl4217142320%_ + _%e4217242323%_ + _%hd4217342327%_ + _%tl4217442330%_ + _%e4218842232%_ + _%hd4218942236%_ + _%tl4219042239%_ + _%__splice4446344464%_ + _%target4219142242%_ + _%tl4219342245%_) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4216542205%_))))) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4216542205%_))))) (let () (declare (not safe)) - (_%g4212942169%_)))))) - (let () (declare (not safe)) (_%g4212942169%_))))) - (let () (declare (not safe)) (_%g4212942169%_)))))))) + (_%g4216542205%_)))))) + (let () (declare (not safe)) (_%g4216542205%_))))) + (let () (declare (not safe)) (_%g4216542205%_)))))))) (define |gerbil/core/module-sugar[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_%stx42329%_) - (let* ((_%g4233242352%_ - (lambda (_%g4233342348%_) + (lambda (_%stx42365%_) + (let* ((_%g4236842388%_ + (lambda (_%g4236942384%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4233342348%_))) - (_%g4233142423%_ - (lambda (_%g4233342356%_) - (if (gx#stx-pair? _%g4233342356%_) - (let ((_%e4233542359%_ (gx#syntax-e _%g4233342356%_))) - (let ((_%hd4233642363%_ + _%g4236942384%_))) + (_%g4236742459%_ + (lambda (_%g4236942392%_) + (if (gx#stx-pair? _%g4236942392%_) + (let ((_%e4237142395%_ (gx#syntax-e _%g4236942392%_))) + (let ((_%hd4237242399%_ (let () (declare (not safe)) - (##car _%e4233542359%_))) - (_%tl4233742366%_ + (##car _%e4237142395%_))) + (_%tl4237342402%_ (let () (declare (not safe)) - (##cdr _%e4233542359%_)))) - (if (gx#stx-pair/null? _%tl4233742366%_) - (let ((_g44570_ + (##cdr _%e4237142395%_)))) + (if (gx#stx-pair/null? _%tl4237342402%_) + (let ((_g44606_ (gx#syntax-split-splice - _%tl4233742366%_ + _%tl4237342402%_ '0))) (begin - (let ((_g44571_ + (let ((_g44607_ (let () (declare (not safe)) - (if (##values? _g44570_) - (##vector-length _g44570_) + (if (##values? _g44606_) + (##vector-length _g44606_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44571_ 2))) + (##fx= _g44607_ 2))) (error "Context expects 2 values" - _g44571_))) - (let ((_%target4233842369%_ + _g44607_))) + (let ((_%target4237442405%_ (let () (declare (not safe)) - (##vector-ref _g44570_ 0))) - (_%tl4234042372%_ + (##vector-ref _g44606_ 0))) + (_%tl4237642408%_ (let () (declare (not safe)) - (##vector-ref _g44570_ 1)))) - (if (gx#stx-null? _%tl4234042372%_) - (letrec ((_%loop4234142375%_ - (lambda (_%hd4233942379%_ - _%body4234542382%_) + (##vector-ref _g44606_ 1)))) + (if (gx#stx-null? _%tl4237642408%_) + (letrec ((_%loop4237742411%_ + (lambda (_%hd4237542415%_ + _%body4238142418%_) (if (gx#stx-pair? - _%hd4233942379%_) - (let ((_%e4234242385%_ + _%hd4237542415%_) + (let ((_%e4237842421%_ (gx#syntax-e - _%hd4233942379%_))) - (let ((_%lp-hd4234342389%_ + _%hd4237542415%_))) + (let ((_%lp-hd4237942425%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4234242385%_))) - (_%lp-tl4234442392%_ - (let () (declare (not safe)) (##cdr _%e4234242385%_)))) - (_%loop4234142375%_ - _%lp-tl4234442392%_ - (cons _%lp-hd4234342389%_ _%body4234542382%_)))) - (let ((_%body4234642395%_ (reverse _%body4234542382%_))) - ((lambda (_%L42399%_) + (##car _%e4237842421%_))) + (_%lp-tl4238042428%_ + (let () (declare (not safe)) (##cdr _%e4237842421%_)))) + (_%loop4237742411%_ + _%lp-tl4238042428%_ + (cons _%lp-hd4237942425%_ _%body4238142418%_)))) + (let ((_%body4238242431%_ (reverse _%body4238142418%_))) + ((lambda (_%L42435%_) (cons 'phi: (cons '1 - (foldr (lambda (_%g4241442417%_ - _%g4241542420%_) - (cons _%g4241442417%_ - _%g4241542420%_)) + (foldr (lambda (_%g4245042453%_ + _%g4245142456%_) + (cons _%g4245042453%_ + _%g4245142456%_)) '() - _%L42399%_)))) - _%body4234642395%_)))))) + _%L42435%_)))) + _%body4238242431%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4234142375%_ - _%target4233842369%_ + (_%loop4237742411%_ + _%target4237442405%_ '())) - (_%g4233242352%_ _%g4233342356%_))))) - (_%g4233242352%_ _%g4233342356%_)))) - (_%g4233242352%_ _%g4233342356%_))))) - (_%g4233142423%_ _%stx42329%_))))) + (_%g4236842388%_ _%g4236942392%_))))) + (_%g4236842388%_ _%g4236942392%_)))) + (_%g4236842388%_ _%g4236942392%_))))) + (_%g4236742459%_ _%stx42365%_))))) (define |gerbil/core/module-sugar[:0:]#for-template| (gx#make-import-export-expander - (lambda (_%stx42428%_) - (let* ((_%g4243142451%_ - (lambda (_%g4243242447%_) + (lambda (_%stx42464%_) + (let* ((_%g4246742487%_ + (lambda (_%g4246842483%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4243242447%_))) - (_%g4243042522%_ - (lambda (_%g4243242455%_) - (if (gx#stx-pair? _%g4243242455%_) - (let ((_%e4243442458%_ (gx#syntax-e _%g4243242455%_))) - (let ((_%hd4243542462%_ + _%g4246842483%_))) + (_%g4246642558%_ + (lambda (_%g4246842491%_) + (if (gx#stx-pair? _%g4246842491%_) + (let ((_%e4247042494%_ (gx#syntax-e _%g4246842491%_))) + (let ((_%hd4247142498%_ (let () (declare (not safe)) - (##car _%e4243442458%_))) - (_%tl4243642465%_ + (##car _%e4247042494%_))) + (_%tl4247242501%_ (let () (declare (not safe)) - (##cdr _%e4243442458%_)))) - (if (gx#stx-pair/null? _%tl4243642465%_) - (let ((_g44572_ + (##cdr _%e4247042494%_)))) + (if (gx#stx-pair/null? _%tl4247242501%_) + (let ((_g44608_ (gx#syntax-split-splice - _%tl4243642465%_ + _%tl4247242501%_ '0))) (begin - (let ((_g44573_ + (let ((_g44609_ (let () (declare (not safe)) - (if (##values? _g44572_) - (##vector-length _g44572_) + (if (##values? _g44608_) + (##vector-length _g44608_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44573_ 2))) + (##fx= _g44609_ 2))) (error "Context expects 2 values" - _g44573_))) - (let ((_%target4243742468%_ + _g44609_))) + (let ((_%target4247342504%_ (let () (declare (not safe)) - (##vector-ref _g44572_ 0))) - (_%tl4243942471%_ + (##vector-ref _g44608_ 0))) + (_%tl4247542507%_ (let () (declare (not safe)) - (##vector-ref _g44572_ 1)))) - (if (gx#stx-null? _%tl4243942471%_) - (letrec ((_%loop4244042474%_ - (lambda (_%hd4243842478%_ - _%body4244442481%_) + (##vector-ref _g44608_ 1)))) + (if (gx#stx-null? _%tl4247542507%_) + (letrec ((_%loop4247642510%_ + (lambda (_%hd4247442514%_ + _%body4248042517%_) (if (gx#stx-pair? - _%hd4243842478%_) - (let ((_%e4244142484%_ + _%hd4247442514%_) + (let ((_%e4247742520%_ (gx#syntax-e - _%hd4243842478%_))) - (let ((_%lp-hd4244242488%_ + _%hd4247442514%_))) + (let ((_%lp-hd4247842524%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4244142484%_))) - (_%lp-tl4244342491%_ - (let () (declare (not safe)) (##cdr _%e4244142484%_)))) - (_%loop4244042474%_ - _%lp-tl4244342491%_ - (cons _%lp-hd4244242488%_ _%body4244442481%_)))) - (let ((_%body4244542494%_ (reverse _%body4244442481%_))) - ((lambda (_%L42498%_) + (##car _%e4247742520%_))) + (_%lp-tl4247942527%_ + (let () (declare (not safe)) (##cdr _%e4247742520%_)))) + (_%loop4247642510%_ + _%lp-tl4247942527%_ + (cons _%lp-hd4247842524%_ _%body4248042517%_)))) + (let ((_%body4248142530%_ (reverse _%body4248042517%_))) + ((lambda (_%L42534%_) (cons 'phi: (cons '-1 - (foldr (lambda (_%g4251342516%_ - _%g4251442519%_) - (cons _%g4251342516%_ - _%g4251442519%_)) + (foldr (lambda (_%g4254942552%_ + _%g4255042555%_) + (cons _%g4254942552%_ + _%g4255042555%_)) '() - _%L42498%_)))) - _%body4244542494%_)))))) + _%L42534%_)))) + _%body4248142530%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4244042474%_ - _%target4243742468%_ + (_%loop4247642510%_ + _%target4247342504%_ '())) - (_%g4243142451%_ _%g4243242455%_))))) - (_%g4243142451%_ _%g4243242455%_)))) - (_%g4243142451%_ _%g4243242455%_))))) - (_%g4243042522%_ _%stx42428%_))))) + (_%g4246742487%_ _%g4246842491%_))))) + (_%g4246742487%_ _%g4246842491%_)))) + (_%g4246742487%_ _%g4246842491%_))))) + (_%g4246642558%_ _%stx42464%_))))) (define |gerbil/core/module-sugar[:0:]#only-in| (gx#make-import-expander - (lambda (_%stx42527%_) - (let* ((_%g4253042554%_ - (lambda (_%g4253142550%_) + (lambda (_%stx42563%_) + (let* ((_%g4256642590%_ + (lambda (_%g4256742586%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4253142550%_))) - (_%g4252942682%_ - (lambda (_%g4253142558%_) - (if (gx#stx-pair? _%g4253142558%_) - (let ((_%e4253442561%_ (gx#syntax-e _%g4253142558%_))) - (let ((_%hd4253542565%_ + _%g4256742586%_))) + (_%g4256542718%_ + (lambda (_%g4256742594%_) + (if (gx#stx-pair? _%g4256742594%_) + (let ((_%e4257042597%_ (gx#syntax-e _%g4256742594%_))) + (let ((_%hd4257142601%_ (let () (declare (not safe)) - (##car _%e4253442561%_))) - (_%tl4253642568%_ + (##car _%e4257042597%_))) + (_%tl4257242604%_ (let () (declare (not safe)) - (##cdr _%e4253442561%_)))) - (if (gx#stx-pair? _%tl4253642568%_) - (let ((_%e4253742571%_ - (gx#syntax-e _%tl4253642568%_))) - (let ((_%hd4253842575%_ + (##cdr _%e4257042597%_)))) + (if (gx#stx-pair? _%tl4257242604%_) + (let ((_%e4257342607%_ + (gx#syntax-e _%tl4257242604%_))) + (let ((_%hd4257442611%_ (let () (declare (not safe)) - (##car _%e4253742571%_))) - (_%tl4253942578%_ + (##car _%e4257342607%_))) + (_%tl4257542614%_ (let () (declare (not safe)) - (##cdr _%e4253742571%_)))) - (if (gx#stx-pair/null? _%tl4253942578%_) - (let ((_g44574_ + (##cdr _%e4257342607%_)))) + (if (gx#stx-pair/null? _%tl4257542614%_) + (let ((_g44610_ (gx#syntax-split-splice - _%tl4253942578%_ + _%tl4257542614%_ '0))) (begin - (let ((_g44575_ + (let ((_g44611_ (let () (declare (not safe)) - (if (##values? _g44574_) + (if (##values? _g44610_) (##vector-length - _g44574_) + _g44610_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44575_ 2))) + (##fx= _g44611_ 2))) (error "Context expects 2 values" - _g44575_))) - (let ((_%target4254042581%_ + _g44611_))) + (let ((_%target4257642617%_ (let () (declare (not safe)) - (##vector-ref _g44574_ 0))) - (_%tl4254242584%_ + (##vector-ref _g44610_ 0))) + (_%tl4257842620%_ (let () (declare (not safe)) - (##vector-ref _g44574_ 1)))) - (if (gx#stx-null? _%tl4254242584%_) - (letrec ((_%loop4254342587%_ - (lambda (_%hd4254142591%_ + (##vector-ref _g44610_ 1)))) + (if (gx#stx-null? _%tl4257842620%_) + (letrec ((_%loop4257942623%_ + (lambda (_%hd4257742627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4254742594%_) - (if (gx#stx-pair? _%hd4254142591%_) - (let ((_%e4254442597%_ (gx#syntax-e _%hd4254142591%_))) - (let ((_%lp-hd4254542601%_ + _%id4258342630%_) + (if (gx#stx-pair? _%hd4257742627%_) + (let ((_%e4258042633%_ (gx#syntax-e _%hd4257742627%_))) + (let ((_%lp-hd4258142637%_ (let () (declare (not safe)) - (##car _%e4254442597%_))) - (_%lp-tl4254642604%_ + (##car _%e4258042633%_))) + (_%lp-tl4258242640%_ (let () (declare (not safe)) - (##cdr _%e4254442597%_)))) - (_%loop4254342587%_ - _%lp-tl4254642604%_ - (cons _%lp-hd4254542601%_ _%id4254742594%_)))) - (let ((_%id4254842607%_ (reverse _%id4254742594%_))) - ((lambda (_%L42611%_ _%L42613%_) + (##cdr _%e4258042633%_)))) + (_%loop4257942623%_ + _%lp-tl4258242640%_ + (cons _%lp-hd4258142637%_ _%id4258342630%_)))) + (let ((_%id4258442643%_ (reverse _%id4258342630%_))) + ((lambda (_%L42647%_ _%L42649%_) (if (gx#identifier-list? - (foldr (lambda (_%g4263042633%_ - _%g4263142636%_) - (cons _%g4263042633%_ - _%g4263142636%_)) + (foldr (lambda (_%g4266642669%_ + _%g4266742672%_) + (cons _%g4266642669%_ + _%g4266742672%_)) '() - _%L42611%_)) - (let* ((_%keys42647%_ + _%L42647%_)) + (let* ((_%keys42683%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4263842641%_ - _%g4263942644%_) - (cons _%g4263842641%_ - _%g4263942644%_)) + (foldr (lambda (_%g4267442677%_ + _%g4267542680%_) + (cons _%g4267442677%_ + _%g4267542680%_)) '() - _%L42611%_))) - (_%keytab42658%_ - (let ((_%ht42650%_ (make-hash-table))) + _%L42647%_))) + (_%keytab42694%_ + (let ((_%ht42686%_ (make-hash-table))) (for-each - (lambda (_%g4265242654%_) + (lambda (_%g4268842690%_) (hash-put! - _%ht42650%_ - _%g4265242654%_ + _%ht42686%_ + _%g4268842690%_ '#t)) - _%keys42647%_) - _%ht42650%_)) - (_%imports42661%_ + _%keys42683%_) + _%ht42686%_)) + (_%imports42697%_ (gx#core-expand-import-source - _%L42613%_)) - (_%fold-e42677%_ - (letrec ((_%fold-e42664%_ - (lambda (_%in42667%_ - _%r42669%_) + _%L42649%_)) + (_%fold-e42713%_ + (letrec ((_%fold-e42700%_ + (lambda (_%in42703%_ + _%r42705%_) (if (gx#module-import? - _%in42667%_) + _%in42703%_) (if (hash-get - _%keytab42658%_ + _%keytab42694%_ (gx#module-import-name - _%in42667%_)) - (cons _%in42667%_ + _%in42703%_)) + (cons _%in42703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42669%_) - _%r42669%_) - (if (gx#import-set? _%in42667%_) - (foldl _%fold-e42664%_ - _%r42669%_ - (gx#import-set-imports _%in42667%_)) - _%r42669%_))))) + _%r42705%_) + _%r42705%_) + (if (gx#import-set? _%in42703%_) + (foldl _%fold-e42700%_ + _%r42705%_ + (gx#import-set-imports _%in42703%_)) + _%r42705%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42664%_))) + _%fold-e42700%_))) (cons 'begin: - (foldl _%fold-e42677%_ + (foldl _%fold-e42713%_ '() - _%imports42661%_))) - (_%g4253042554%_ _%g4253142558%_))) - _%id4254842607%_ - _%hd4253842575%_)))))) + _%imports42697%_))) + (_%g4256642590%_ _%g4256742594%_))) + _%id4258442643%_ + _%hd4257442611%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4254342587%_ - _%target4254042581%_ + (_%loop4257942623%_ + _%target4257642617%_ '())) - (_%g4253042554%_ - _%g4253142558%_))))) - (_%g4253042554%_ _%g4253142558%_)))) - (_%g4253042554%_ _%g4253142558%_)))) - (_%g4253042554%_ _%g4253142558%_))))) - (_%g4252942682%_ _%stx42527%_))))) + (_%g4256642590%_ + _%g4256742594%_))))) + (_%g4256642590%_ _%g4256742594%_)))) + (_%g4256642590%_ _%g4256742594%_)))) + (_%g4256642590%_ _%g4256742594%_))))) + (_%g4256542718%_ _%stx42563%_))))) (define |gerbil/core/module-sugar[:0:]#except-in| (gx#make-import-expander - (lambda (_%stx42687%_) - (let* ((_%g4269042714%_ - (lambda (_%g4269142710%_) + (lambda (_%stx42723%_) + (let* ((_%g4272642750%_ + (lambda (_%g4272742746%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4269142710%_))) - (_%g4268942842%_ - (lambda (_%g4269142718%_) - (if (gx#stx-pair? _%g4269142718%_) - (let ((_%e4269442721%_ (gx#syntax-e _%g4269142718%_))) - (let ((_%hd4269542725%_ + _%g4272742746%_))) + (_%g4272542878%_ + (lambda (_%g4272742754%_) + (if (gx#stx-pair? _%g4272742754%_) + (let ((_%e4273042757%_ (gx#syntax-e _%g4272742754%_))) + (let ((_%hd4273142761%_ (let () (declare (not safe)) - (##car _%e4269442721%_))) - (_%tl4269642728%_ + (##car _%e4273042757%_))) + (_%tl4273242764%_ (let () (declare (not safe)) - (##cdr _%e4269442721%_)))) - (if (gx#stx-pair? _%tl4269642728%_) - (let ((_%e4269742731%_ - (gx#syntax-e _%tl4269642728%_))) - (let ((_%hd4269842735%_ + (##cdr _%e4273042757%_)))) + (if (gx#stx-pair? _%tl4273242764%_) + (let ((_%e4273342767%_ + (gx#syntax-e _%tl4273242764%_))) + (let ((_%hd4273442771%_ (let () (declare (not safe)) - (##car _%e4269742731%_))) - (_%tl4269942738%_ + (##car _%e4273342767%_))) + (_%tl4273542774%_ (let () (declare (not safe)) - (##cdr _%e4269742731%_)))) - (if (gx#stx-pair/null? _%tl4269942738%_) - (let ((_g44576_ + (##cdr _%e4273342767%_)))) + (if (gx#stx-pair/null? _%tl4273542774%_) + (let ((_g44612_ (gx#syntax-split-splice - _%tl4269942738%_ + _%tl4273542774%_ '0))) (begin - (let ((_g44577_ + (let ((_g44613_ (let () (declare (not safe)) - (if (##values? _g44576_) + (if (##values? _g44612_) (##vector-length - _g44576_) + _g44612_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44577_ 2))) + (##fx= _g44613_ 2))) (error "Context expects 2 values" - _g44577_))) - (let ((_%target4270042741%_ + _g44613_))) + (let ((_%target4273642777%_ (let () (declare (not safe)) - (##vector-ref _g44576_ 0))) - (_%tl4270242744%_ + (##vector-ref _g44612_ 0))) + (_%tl4273842780%_ (let () (declare (not safe)) - (##vector-ref _g44576_ 1)))) - (if (gx#stx-null? _%tl4270242744%_) - (letrec ((_%loop4270342747%_ - (lambda (_%hd4270142751%_ + (##vector-ref _g44612_ 1)))) + (if (gx#stx-null? _%tl4273842780%_) + (letrec ((_%loop4273942783%_ + (lambda (_%hd4273742787%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4270742754%_) - (if (gx#stx-pair? _%hd4270142751%_) - (let ((_%e4270442757%_ (gx#syntax-e _%hd4270142751%_))) - (let ((_%lp-hd4270542761%_ + _%id4274342790%_) + (if (gx#stx-pair? _%hd4273742787%_) + (let ((_%e4274042793%_ (gx#syntax-e _%hd4273742787%_))) + (let ((_%lp-hd4274142797%_ (let () (declare (not safe)) - (##car _%e4270442757%_))) - (_%lp-tl4270642764%_ + (##car _%e4274042793%_))) + (_%lp-tl4274242800%_ (let () (declare (not safe)) - (##cdr _%e4270442757%_)))) - (_%loop4270342747%_ - _%lp-tl4270642764%_ - (cons _%lp-hd4270542761%_ _%id4270742754%_)))) - (let ((_%id4270842767%_ (reverse _%id4270742754%_))) - ((lambda (_%L42771%_ _%L42773%_) + (##cdr _%e4274042793%_)))) + (_%loop4273942783%_ + _%lp-tl4274242800%_ + (cons _%lp-hd4274142797%_ _%id4274342790%_)))) + (let ((_%id4274442803%_ (reverse _%id4274342790%_))) + ((lambda (_%L42807%_ _%L42809%_) (if (gx#identifier-list? - (foldr (lambda (_%g4279042793%_ - _%g4279142796%_) - (cons _%g4279042793%_ - _%g4279142796%_)) + (foldr (lambda (_%g4282642829%_ + _%g4282742832%_) + (cons _%g4282642829%_ + _%g4282742832%_)) '() - _%L42771%_)) - (let* ((_%keys42807%_ + _%L42807%_)) + (let* ((_%keys42843%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4279842801%_ - _%g4279942804%_) - (cons _%g4279842801%_ - _%g4279942804%_)) + (foldr (lambda (_%g4283442837%_ + _%g4283542840%_) + (cons _%g4283442837%_ + _%g4283542840%_)) '() - _%L42771%_))) - (_%keytab42818%_ - (let ((_%ht42810%_ (make-hash-table))) + _%L42807%_))) + (_%keytab42854%_ + (let ((_%ht42846%_ (make-hash-table))) (for-each - (lambda (_%g4281242814%_) + (lambda (_%g4284842850%_) (hash-put! - _%ht42810%_ - _%g4281242814%_ + _%ht42846%_ + _%g4284842850%_ '#t)) - _%keys42807%_) - _%ht42810%_)) - (_%imports42821%_ + _%keys42843%_) + _%ht42846%_)) + (_%imports42857%_ (gx#core-expand-import-source - _%L42773%_)) - (_%fold-e42837%_ - (letrec ((_%fold-e42824%_ - (lambda (_%in42827%_ - _%r42829%_) + _%L42809%_)) + (_%fold-e42873%_ + (letrec ((_%fold-e42860%_ + (lambda (_%in42863%_ + _%r42865%_) (if (gx#module-import? - _%in42827%_) + _%in42863%_) (if (hash-get - _%keytab42818%_ + _%keytab42854%_ (gx#module-import-name - _%in42827%_)) - _%r42829%_ - (cons _%in42827%_ + _%in42863%_)) + _%r42865%_ + (cons _%in42863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42829%_)) - (if (gx#import-set? _%in42827%_) - (foldl _%fold-e42824%_ - _%r42829%_ - (gx#import-set-imports _%in42827%_)) - (cons _%in42827%_ _%r42829%_)))))) + _%r42865%_)) + (if (gx#import-set? _%in42863%_) + (foldl _%fold-e42860%_ + _%r42865%_ + (gx#import-set-imports _%in42863%_)) + (cons _%in42863%_ _%r42865%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42824%_))) + _%fold-e42860%_))) (cons 'begin: - (foldl _%fold-e42837%_ + (foldl _%fold-e42873%_ '() - _%imports42821%_))) - (_%g4269042714%_ _%g4269142718%_))) - _%id4270842767%_ - _%hd4269842735%_)))))) + _%imports42857%_))) + (_%g4272642750%_ _%g4272742754%_))) + _%id4274442803%_ + _%hd4273442771%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4270342747%_ - _%target4270042741%_ + (_%loop4273942783%_ + _%target4273642777%_ '())) - (_%g4269042714%_ - _%g4269142718%_))))) - (_%g4269042714%_ _%g4269142718%_)))) - (_%g4269042714%_ _%g4269142718%_)))) - (_%g4269042714%_ _%g4269142718%_))))) - (_%g4268942842%_ _%stx42687%_))))) + (_%g4272642750%_ + _%g4272742754%_))))) + (_%g4272642750%_ _%g4272742754%_)))) + (_%g4272642750%_ _%g4272742754%_)))) + (_%g4272642750%_ _%g4272742754%_))))) + (_%g4272542878%_ _%stx42723%_))))) (define |gerbil/core/module-sugar[1]#module-import-rename| - (lambda (_%in42894%_ _%rename42896%_) + (lambda (_%in42930%_ _%rename42932%_) (gx#make-module-import - (gx#module-import-source _%in42894%_) - _%rename42896%_ - (gx#module-import-phi _%in42894%_) - (gx#module-import-weak? _%in42894%_)))) + (gx#module-import-source _%in42930%_) + _%rename42932%_ + (gx#module-import-phi _%in42930%_) + (gx#module-import-weak? _%in42930%_)))) (define |gerbil/core/module-sugar[1]#prefix-identifier-key| - (lambda (_%name42847%_ _%pre42849%_) - (let* ((_%name4285042858%_ _%name42847%_) - (_%else4285242870%_ - (lambda () (make-symbol _%pre42849%_ _%name42847%_))) - (_%K4285442878%_ - (lambda (_%mark42874%_ _%id42876%_) - (cons (make-symbol _%pre42849%_ _%id42876%_) _%mark42874%_)))) - (if (pair? _%name4285042858%_) - (let ((_%hd4285542882%_ - (let () (declare (not safe)) (##car _%name4285042858%_))) - (_%tl4285642885%_ - (let () (declare (not safe)) (##cdr _%name4285042858%_)))) - (let* ((_%id42888%_ _%hd4285542882%_) - (_%mark42891%_ _%tl4285642885%_)) - (_%K4285442878%_ _%mark42891%_ _%id42888%_))) - (_%else4285242870%_))))) + (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%_))))) (define |gerbil/core/module-sugar[:0:]#rename-in| (gx#make-import-expander - (lambda (_%stx42898%_) - (let* ((_%g4290142934%_ - (lambda (_%g4290242930%_) + (lambda (_%stx42934%_) + (let* ((_%g4293742970%_ + (lambda (_%g4293842966%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4290242930%_))) - (_%g4290043129%_ - (lambda (_%g4290242938%_) - (if (gx#stx-pair? _%g4290242938%_) - (let ((_%e4290642941%_ (gx#syntax-e _%g4290242938%_))) - (let ((_%hd4290742945%_ + _%g4293842966%_))) + (_%g4293643165%_ + (lambda (_%g4293842974%_) + (if (gx#stx-pair? _%g4293842974%_) + (let ((_%e4294242977%_ (gx#syntax-e _%g4293842974%_))) + (let ((_%hd4294342981%_ (let () (declare (not safe)) - (##car _%e4290642941%_))) - (_%tl4290842948%_ + (##car _%e4294242977%_))) + (_%tl4294442984%_ (let () (declare (not safe)) - (##cdr _%e4290642941%_)))) - (if (gx#stx-pair? _%tl4290842948%_) - (let ((_%e4290942951%_ - (gx#syntax-e _%tl4290842948%_))) - (let ((_%hd4291042955%_ + (##cdr _%e4294242977%_)))) + (if (gx#stx-pair? _%tl4294442984%_) + (let ((_%e4294542987%_ + (gx#syntax-e _%tl4294442984%_))) + (let ((_%hd4294642991%_ (let () (declare (not safe)) - (##car _%e4290942951%_))) - (_%tl4291142958%_ + (##car _%e4294542987%_))) + (_%tl4294742994%_ (let () (declare (not safe)) - (##cdr _%e4290942951%_)))) - (if (gx#stx-pair/null? _%tl4291142958%_) - (let ((_g44578_ + (##cdr _%e4294542987%_)))) + (if (gx#stx-pair/null? _%tl4294742994%_) + (let ((_g44614_ (gx#syntax-split-splice - _%tl4291142958%_ + _%tl4294742994%_ '0))) (begin - (let ((_g44579_ + (let ((_g44615_ (let () (declare (not safe)) - (if (##values? _g44578_) + (if (##values? _g44614_) (##vector-length - _g44578_) + _g44614_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44579_ 2))) + (##fx= _g44615_ 2))) (error "Context expects 2 values" - _g44579_))) - (let ((_%target4291242961%_ + _g44615_))) + (let ((_%target4294842997%_ (let () (declare (not safe)) - (##vector-ref _g44578_ 0))) - (_%tl4291442964%_ + (##vector-ref _g44614_ 0))) + (_%tl4295043000%_ (let () (declare (not safe)) - (##vector-ref _g44578_ 1)))) - (if (gx#stx-null? _%tl4291442964%_) - (letrec ((_%loop4291542967%_ - (lambda (_%hd4291342971%_ + (##vector-ref _g44614_ 1)))) + (if (gx#stx-null? _%tl4295043000%_) + (letrec ((_%loop4295143003%_ + (lambda (_%hd4294943007%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4291942974%_ - _%id4292042976%_) - (if (gx#stx-pair? _%hd4291342971%_) - (let ((_%e4291642979%_ (gx#syntax-e _%hd4291342971%_))) - (let ((_%lp-hd4291742983%_ + _%new-id4295543010%_ + _%id4295643012%_) + (if (gx#stx-pair? _%hd4294943007%_) + (let ((_%e4295243015%_ (gx#syntax-e _%hd4294943007%_))) + (let ((_%lp-hd4295343019%_ (let () (declare (not safe)) - (##car _%e4291642979%_))) - (_%lp-tl4291842986%_ + (##car _%e4295243015%_))) + (_%lp-tl4295443022%_ (let () (declare (not safe)) - (##cdr _%e4291642979%_)))) - (if (gx#stx-pair? _%lp-hd4291742983%_) - (let ((_%e4292342989%_ - (gx#syntax-e _%lp-hd4291742983%_))) - (let ((_%hd4292442993%_ + (##cdr _%e4295243015%_)))) + (if (gx#stx-pair? _%lp-hd4295343019%_) + (let ((_%e4295943025%_ + (gx#syntax-e _%lp-hd4295343019%_))) + (let ((_%hd4296043029%_ (let () (declare (not safe)) - (##car _%e4292342989%_))) - (_%tl4292542996%_ + (##car _%e4295943025%_))) + (_%tl4296143032%_ (let () (declare (not safe)) - (##cdr _%e4292342989%_)))) - (if (gx#stx-pair? _%tl4292542996%_) - (let ((_%e4292642999%_ - (gx#syntax-e _%tl4292542996%_))) - (let ((_%hd4292743003%_ + (##cdr _%e4295943025%_)))) + (if (gx#stx-pair? _%tl4296143032%_) + (let ((_%e4296243035%_ + (gx#syntax-e _%tl4296143032%_))) + (let ((_%hd4296343039%_ (let () (declare (not safe)) - (##car _%e4292642999%_))) - (_%tl4292843006%_ + (##car _%e4296243035%_))) + (_%tl4296443042%_ (let () (declare (not safe)) - (##cdr _%e4292642999%_)))) - (if (gx#stx-null? _%tl4292843006%_) - (_%loop4291542967%_ - _%lp-tl4291842986%_ - (cons _%hd4292743003%_ - _%new-id4291942974%_) - (cons _%hd4292442993%_ - _%id4292042976%_)) - (_%g4290142934%_ - _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_)))) - (let ((_%new-id4292143009%_ - (reverse _%new-id4291942974%_)) - (_%id4292243012%_ (reverse _%id4292042976%_))) - ((lambda (_%L43015%_ _%L43017%_ _%L43018%_) + (##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%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4303643039%_ - _%g4303743042%_) - (cons _%g4303643039%_ - _%g4303743042%_)) + (foldr (lambda (_%g4307243075%_ + _%g4307343078%_) + (cons _%g4307243075%_ + _%g4307343078%_)) '() - _%L43017%_)) + _%L43053%_)) (gx#identifier-list? - (foldr (lambda (_%g4304443047%_ - _%g4304543050%_) - (cons _%g4304443047%_ - _%g4304543050%_)) + (foldr (lambda (_%g4308043083%_ + _%g4308143086%_) + (cons _%g4308043083%_ + _%g4308143086%_)) '() - _%L43015%_))) - (let* ((_%keytab43053%_ (make-hash-table)) - (_%found43056%_ (make-hash-table)) - (_%_43079%_ + _%L43051%_))) + (let* ((_%keytab43089%_ (make-hash-table)) + (_%found43092%_ (make-hash-table)) + (_%_43115%_ (for-each - (lambda (_%id43059%_ _%new-id43061%_) + (lambda (_%id43095%_ _%new-id43097%_) (hash-put! - _%keytab43053%_ + _%keytab43089%_ (gx#core-identifier-key - _%id43059%_) + _%id43095%_) (gx#core-identifier-key - _%new-id43061%_))) - (foldr (lambda (_%g4306243065%_ - _%g4306343068%_) - (cons _%g4306243065%_ - _%g4306343068%_)) + _%new-id43097%_))) + (foldr (lambda (_%g4309843101%_ + _%g4309943104%_) + (cons _%g4309843101%_ + _%g4309943104%_)) '() - _%L43017%_) - (foldr (lambda (_%g4307043073%_ - _%g4307143076%_) - (cons _%g4307043073%_ - _%g4307143076%_)) + _%L43053%_) + (foldr (lambda (_%g4310643109%_ + _%g4310743112%_) + (cons _%g4310643109%_ + _%g4310743112%_)) '() - _%L43015%_))) - (_%imports43082%_ + _%L43051%_))) + (_%imports43118%_ (gx#core-expand-import-source - _%L43018%_)) - (_%fold-e43110%_ - (letrec ((_%fold-e43085%_ - (lambda (_%in43088%_ - _%r43090%_) + _%L43054%_)) + (_%fold-e43146%_ + (letrec ((_%fold-e43121%_ + (lambda (_%in43124%_ + _%r43126%_) (if (gx#module-import? - _%in43088%_) - (let* ((_%name43094%_ + _%in43124%_) + (let* ((_%name43130%_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in43088%_)) - (_%$e43097%_ (hash-get _%keytab43053%_ _%name43094%_))) - (if _%$e43097%_ - ((lambda (_%rename43101%_) - (hash-put! _%found43056%_ _%name43094%_ '#t) + _%in43124%_)) + (_%$e43133%_ (hash-get _%keytab43089%_ _%name43130%_))) + (if _%$e43133%_ + ((lambda (_%rename43137%_) + (hash-put! _%found43092%_ _%name43130%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43088%_ - _%rename43101%_) - _%r43090%_)) - _%$e43097%_) - (cons _%in43088%_ _%r43090%_))) - (if (gx#import-set? _%in43088%_) - (foldl _%fold-e43085%_ - _%r43090%_ - (gx#import-set-imports _%in43088%_)) - (cons _%in43088%_ _%r43090%_)))))) + _%in43124%_ + _%rename43137%_) + _%r43126%_)) + _%$e43133%_) + (cons _%in43124%_ _%r43126%_))) + (if (gx#import-set? _%in43124%_) + (foldl _%fold-e43121%_ + _%r43126%_ + (gx#import-set-imports _%in43124%_)) + (cons _%in43124%_ _%r43126%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43085%_)) - (_%new-imports43113%_ - (foldl _%fold-e43110%_ + _%fold-e43121%_)) + (_%new-imports43149%_ + (foldl _%fold-e43146%_ '() - _%imports43082%_))) + _%imports43118%_))) (for-each - (lambda (_%id43118%_) + (lambda (_%id43154%_) (if (hash-get - _%found43056%_ - (gx#core-identifier-key _%id43118%_)) + _%found43092%_ + (gx#core-identifier-key _%id43154%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _%stx42898%_ - _%id43118%_))) - (foldr (lambda (_%g4312043123%_ - _%g4312143126%_) - (cons _%g4312043123%_ - _%g4312143126%_)) + _%stx42934%_ + _%id43154%_))) + (foldr (lambda (_%g4315643159%_ + _%g4315743162%_) + (cons _%g4315643159%_ + _%g4315743162%_)) '() - _%L43017%_)) - (cons 'begin: _%new-imports43113%_)) - (_%g4290142934%_ _%g4290242938%_))) - _%new-id4292143009%_ - _%id4292243012%_ - _%hd4291042955%_)))))) + _%L43053%_)) + (cons 'begin: _%new-imports43149%_)) + (_%g4293742970%_ _%g4293842974%_))) + _%new-id4295743045%_ + _%id4295843048%_ + _%hd4294642991%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4291542967%_ - _%target4291242961%_ + (_%loop4295143003%_ + _%target4294842997%_ '() '())) - (_%g4290142934%_ - _%g4290242938%_))))) - (_%g4290142934%_ _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_))))) - (_%g4290043129%_ _%stx42898%_))))) + (_%g4293742970%_ + _%g4293842974%_))))) + (_%g4293742970%_ _%g4293842974%_)))) + (_%g4293742970%_ _%g4293842974%_)))) + (_%g4293742970%_ _%g4293842974%_))))) + (_%g4293643165%_ _%stx42934%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-in| (gx#make-import-expander - (lambda (_%stx43134%_) - (let* ((_%g4313743155%_ - (lambda (_%g4313843151%_) + (lambda (_%stx43170%_) + (let* ((_%g4317343191%_ + (lambda (_%g4317443187%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4313843151%_))) - (_%g4313643240%_ - (lambda (_%g4313843159%_) - (if (gx#stx-pair? _%g4313843159%_) - (let ((_%e4314143162%_ (gx#syntax-e _%g4313843159%_))) - (let ((_%hd4314243166%_ + _%g4317443187%_))) + (_%g4317243276%_ + (lambda (_%g4317443195%_) + (if (gx#stx-pair? _%g4317443195%_) + (let ((_%e4317743198%_ (gx#syntax-e _%g4317443195%_))) + (let ((_%hd4317843202%_ (let () (declare (not safe)) - (##car _%e4314143162%_))) - (_%tl4314343169%_ + (##car _%e4317743198%_))) + (_%tl4317943205%_ (let () (declare (not safe)) - (##cdr _%e4314143162%_)))) - (if (gx#stx-pair? _%tl4314343169%_) - (let ((_%e4314443172%_ - (gx#syntax-e _%tl4314343169%_))) - (let ((_%hd4314543176%_ + (##cdr _%e4317743198%_)))) + (if (gx#stx-pair? _%tl4317943205%_) + (let ((_%e4318043208%_ + (gx#syntax-e _%tl4317943205%_))) + (let ((_%hd4318143212%_ (let () (declare (not safe)) - (##car _%e4314443172%_))) - (_%tl4314643179%_ + (##car _%e4318043208%_))) + (_%tl4318243215%_ (let () (declare (not safe)) - (##cdr _%e4314443172%_)))) - (if (gx#stx-pair? _%tl4314643179%_) - (let ((_%e4314743182%_ - (gx#syntax-e _%tl4314643179%_))) - (let ((_%hd4314843186%_ + (##cdr _%e4318043208%_)))) + (if (gx#stx-pair? _%tl4318243215%_) + (let ((_%e4318343218%_ + (gx#syntax-e _%tl4318243215%_))) + (let ((_%hd4318443222%_ (let () (declare (not safe)) - (##car _%e4314743182%_))) - (_%tl4314943189%_ + (##car _%e4318343218%_))) + (_%tl4318543225%_ (let () (declare (not safe)) - (##cdr _%e4314743182%_)))) - (if (gx#stx-null? _%tl4314943189%_) - ((lambda (_%L43192%_ _%L43194%_) - (if (gx#identifier? _%L43192%_) - (let* ((_%pre43210%_ + (##cdr _%e4318343218%_)))) + (if (gx#stx-null? _%tl4318543225%_) + ((lambda (_%L43228%_ _%L43230%_) + (if (gx#identifier? _%L43228%_) + (let* ((_%pre43246%_ (gx#stx-e - _%L43192%_)) - (_%imports43213%_ + _%L43228%_)) + (_%imports43249%_ (gx#core-expand-import-source - _%L43194%_)) - (_%rename-e43219%_ - (lambda (_%name43216%_) + _%L43230%_)) + (_%rename-e43255%_ + (lambda (_%name43252%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name43216%_ - _%pre43210%_))) - (_%fold-e43235%_ - (letrec ((_%fold-e43222%_ + _%name43252%_ + _%pre43246%_))) + (_%fold-e43271%_ + (letrec ((_%fold-e43258%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%in43225%_ _%r43227%_) - (if (gx#module-import? _%in43225%_) + (lambda (_%in43261%_ _%r43263%_) + (if (gx#module-import? _%in43261%_) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43225%_ - (_%rename-e43219%_ + _%in43261%_ + (_%rename-e43255%_ (gx#module-import-name - _%in43225%_))) - _%r43227%_) - (if (gx#import-set? _%in43225%_) - (foldl _%fold-e43222%_ - _%r43227%_ + _%in43261%_))) + _%r43263%_) + (if (gx#import-set? _%in43261%_) + (foldl _%fold-e43258%_ + _%r43263%_ (gx#import-set-imports - _%in43225%_)) - (cons _%in43225%_ _%r43227%_)))))) - _%fold-e43222%_))) - (cons 'begin: (foldl _%fold-e43235%_ '() _%imports43213%_))) + _%in43261%_)) + (cons _%in43261%_ _%r43263%_)))))) + _%fold-e43258%_))) + (cons 'begin: (foldl _%fold-e43271%_ '() _%imports43249%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4313743155%_ - _%g4313843159%_))) - _%hd4314843186%_ - _%hd4314543176%_) - (_%g4313743155%_ - _%g4313843159%_)))) - (_%g4313743155%_ _%g4313843159%_)))) - (_%g4313743155%_ _%g4313843159%_)))) - (_%g4313743155%_ _%g4313843159%_))))) - (_%g4313643240%_ _%stx43134%_))))) + (_%g4317343191%_ + _%g4317443195%_))) + _%hd4318443222%_ + _%hd4318143212%_) + (_%g4317343191%_ + _%g4317443195%_)))) + (_%g4317343191%_ _%g4317443195%_)))) + (_%g4317343191%_ _%g4317443195%_)))) + (_%g4317343191%_ _%g4317443195%_))))) + (_%g4317243276%_ _%stx43170%_))))) (define |gerbil/core/module-sugar[:0:]#group-in| (gx#make-import-expander - (lambda (_%stx43244%_) - (letrec ((_%flatten43247%_ - (lambda (_%list-of-lists43502%_) - (foldr (lambda (_%v43505%_ _%acc43507%_) - (if (null? _%v43505%_) - _%acc43507%_ - (if (pair? _%v43505%_) - (append (_%flatten43247%_ _%v43505%_) - _%acc43507%_) - (cons _%v43505%_ _%acc43507%_)))) + (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%_)))) '() - _%list-of-lists43502%_))) - (_%expand-path43249%_ - (lambda (_%top43370%_ _%mod43372%_) - (let* ((_%__stx4447844479%_ _%mod43372%_) - (_%g4337543397%_ + _%list-of-lists43538%_))) + (_%expand-path43285%_ + (lambda (_%top43406%_ _%mod43408%_) + (let* ((_%__stx4451444515%_ _%mod43408%_) + (_%g4341143433%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4447844479%_)))) - (let ((_%__kont4448144482%_ - (lambda (_%L43465%_ _%L43467%_) - (map (lambda (_%mod43482%_) + _%__stx4451444515%_)))) + (let ((_%__kont4451744518%_ + (lambda (_%L43501%_ _%L43503%_) + (map (lambda (_%mod43518%_) (gx#stx-identifier - _%top43370%_ - _%top43370%_ + _%top43406%_ + _%top43406%_ '"/" - _%mod43482%_)) - (_%flatten43247%_ - (map (lambda (_%g4348443486%_) - (_%expand-path43249%_ - _%L43467%_ - _%g4348443486%_)) - (foldr (lambda (_%g4348943492%_ - _%g4349043495%_) - (cons _%g4348943492%_ - _%g4349043495%_)) + _%mod43518%_)) + (_%flatten43283%_ + (map (lambda (_%g4352043522%_) + (_%expand-path43285%_ + _%L43503%_ + _%g4352043522%_)) + (foldr (lambda (_%g4352543528%_ + _%g4352643531%_) + (cons _%g4352543528%_ + _%g4352643531%_)) '() - _%L43465%_)))))) - (_%__kont4448544486%_ - (lambda (_%L43404%_) + _%L43501%_)))))) + (_%__kont4452144522%_ + (lambda (_%L43440%_) (gx#stx-identifier - _%top43370%_ - _%top43370%_ + _%top43406%_ + _%top43406%_ '"/" - _%L43404%_)))) - (let* ((_%g4337443418%_ + _%L43440%_)))) + (let* ((_%g4341043454%_ (lambda () - (let ((_%L43404%_ _%__stx4447844479%_)) - (if (or (gx#identifier? _%L43404%_) - (gx#stx-fixnum? _%L43404%_)) - (_%__kont4448544486%_ _%L43404%_) + (let ((_%L43440%_ _%__stx4451444515%_)) + (if (or (gx#identifier? _%L43440%_) + (gx#stx-fixnum? _%L43440%_)) + (_%__kont4452144522%_ _%L43440%_) (let () (declare (not safe)) - (_%g4337543397%_)))))) - (_%__match4450144502%_ - (lambda (_%e4337943425%_ - _%hd4338043429%_ - _%tl4338143432%_ - _%__splice4448344484%_ - _%target4338243435%_ - _%tl4338443438%_) - (letrec ((_%loop4338543441%_ - (lambda (_%hd4338343445%_ - _%mod4338943448%_) + (_%g4341143433%_)))))) + (_%__match4453744538%_ + (lambda (_%e4341543461%_ + _%hd4341643465%_ + _%tl4341743468%_ + _%__splice4451944520%_ + _%target4341843471%_ + _%tl4342043474%_) + (letrec ((_%loop4342143477%_ + (lambda (_%hd4341943481%_ + _%mod4342543484%_) (if (gx#stx-pair? - _%hd4338343445%_) - (let ((_%e4338643451%_ + _%hd4341943481%_) + (let ((_%e4342243487%_ (gx#syntax-e - _%hd4338343445%_))) - (let ((_%lp-tl4338843458%_ + _%hd4341943481%_))) + (let ((_%lp-tl4342443494%_ (let () (declare (not safe)) - (##cdr _%e4338643451%_))) - (_%lp-hd4338743455%_ + (##cdr _%e4342243487%_))) + (_%lp-hd4342343491%_ (let () (declare (not safe)) - (##car _%e4338643451%_)))) - (_%loop4338543441%_ - _%lp-tl4338843458%_ - (cons _%lp-hd4338743455%_ - _%mod4338943448%_)))) - (let ((_%mod4339043461%_ - (reverse _%mod4338943448%_))) - (_%__kont4448144482%_ - _%mod4339043461%_ - _%hd4338043429%_)))))) - (_%loop4338543441%_ - _%target4338243435%_ + (##car _%e4342243487%_)))) + (_%loop4342143477%_ + _%lp-tl4342443494%_ + (cons _%lp-hd4342343491%_ + _%mod4342543484%_)))) + (let ((_%mod4342643497%_ + (reverse _%mod4342543484%_))) + (_%__kont4451744518%_ + _%mod4342643497%_ + _%hd4341643465%_)))))) + (_%loop4342143477%_ + _%target4341843471%_ '()))))) - (if (gx#stx-pair? _%__stx4447844479%_) - (let ((_%e4337943425%_ - (gx#syntax-e _%__stx4447844479%_))) - (let ((_%tl4338143432%_ + (if (gx#stx-pair? _%__stx4451444515%_) + (let ((_%e4341543461%_ + (gx#syntax-e _%__stx4451444515%_))) + (let ((_%tl4341743468%_ (let () (declare (not safe)) - (##cdr _%e4337943425%_))) - (_%hd4338043429%_ + (##cdr _%e4341543461%_))) + (_%hd4341643465%_ (let () (declare (not safe)) - (##car _%e4337943425%_)))) - (if (gx#stx-pair/null? _%tl4338143432%_) - (let ((_%__splice4448344484%_ + (##car _%e4341543461%_)))) + (if (gx#stx-pair/null? _%tl4341743468%_) + (let ((_%__splice4451944520%_ (gx#syntax-split-splice - _%tl4338143432%_ + _%tl4341743468%_ '0))) - (let ((_%tl4338443438%_ + (let ((_%tl4342043474%_ (let () (declare (not safe)) (##vector-ref - _%__splice4448344484%_ + _%__splice4451944520%_ '1))) - (_%target4338243435%_ + (_%target4341843471%_ (let () (declare (not safe)) (##vector-ref - _%__splice4448344484%_ + _%__splice4451944520%_ '0)))) - (if (gx#stx-null? _%tl4338443438%_) - (_%__match4450144502%_ - _%e4337943425%_ - _%hd4338043429%_ - _%tl4338143432%_ - _%__splice4448344484%_ - _%target4338243435%_ - _%tl4338443438%_) + (if (gx#stx-null? _%tl4342043474%_) + (_%__match4453744538%_ + _%e4341543461%_ + _%hd4341643465%_ + _%tl4341743468%_ + _%__splice4451944520%_ + _%target4341843471%_ + _%tl4342043474%_) (let () (declare (not safe)) - (_%g4337443418%_))))) + (_%g4341043454%_))))) (let () (declare (not safe)) - (_%g4337443418%_))))) + (_%g4341043454%_))))) (let () (declare (not safe)) - (_%g4337443418%_))))))))) - (let* ((_%g4325143275%_ - (lambda (_%g4325243271%_) + (_%g4341043454%_))))))))) + (let* ((_%g4328743311%_ + (lambda (_%g4328843307%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4325243271%_))) - (_%g4325043366%_ - (lambda (_%g4325243279%_) - (if (gx#stx-pair? _%g4325243279%_) - (let ((_%e4325543282%_ (gx#syntax-e _%g4325243279%_))) - (let ((_%hd4325643286%_ + _%g4328843307%_))) + (_%g4328643402%_ + (lambda (_%g4328843315%_) + (if (gx#stx-pair? _%g4328843315%_) + (let ((_%e4329143318%_ (gx#syntax-e _%g4328843315%_))) + (let ((_%hd4329243322%_ (let () (declare (not safe)) - (##car _%e4325543282%_))) - (_%tl4325743289%_ + (##car _%e4329143318%_))) + (_%tl4329343325%_ (let () (declare (not safe)) - (##cdr _%e4325543282%_)))) - (if (gx#stx-pair? _%tl4325743289%_) - (let ((_%e4325843292%_ - (gx#syntax-e _%tl4325743289%_))) - (let ((_%hd4325943296%_ + (##cdr _%e4329143318%_)))) + (if (gx#stx-pair? _%tl4329343325%_) + (let ((_%e4329443328%_ + (gx#syntax-e _%tl4329343325%_))) + (let ((_%hd4329543332%_ (let () (declare (not safe)) - (##car _%e4325843292%_))) - (_%tl4326043299%_ + (##car _%e4329443328%_))) + (_%tl4329643335%_ (let () (declare (not safe)) - (##cdr _%e4325843292%_)))) - (if (gx#stx-pair/null? _%tl4326043299%_) - (let ((_g44580_ + (##cdr _%e4329443328%_)))) + (if (gx#stx-pair/null? _%tl4329643335%_) + (let ((_g44616_ (gx#syntax-split-splice - _%tl4326043299%_ + _%tl4329643335%_ '0))) (begin - (let ((_g44581_ + (let ((_g44617_ (let () (declare (not safe)) - (if (##values? _g44580_) + (if (##values? _g44616_) (##vector-length - _g44580_) + _g44616_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44581_ 2))) + (##fx= _g44617_ 2))) (error "Context expects 2 values" - _g44581_))) - (let ((_%target4326143302%_ + _g44617_))) + (let ((_%target4329743338%_ (let () (declare (not safe)) - (##vector-ref _g44580_ 0))) - (_%tl4326343305%_ + (##vector-ref _g44616_ 0))) + (_%tl4329943341%_ (let () (declare (not safe)) (##vector-ref - _g44580_ + _g44616_ 1)))) (if (gx#stx-null? - _%tl4326343305%_) - (letrec ((_%loop4326443308%_ - (lambda (_%hd4326243312%_ + _%tl4329943341%_) + (letrec ((_%loop4330043344%_ + (lambda (_%hd4329843348%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mod4326843315%_) - (if (gx#stx-pair? _%hd4326243312%_) - (let ((_%e4326543318%_ - (gx#syntax-e _%hd4326243312%_))) - (let ((_%lp-hd4326643322%_ + _%mod4330443351%_) + (if (gx#stx-pair? _%hd4329843348%_) + (let ((_%e4330143354%_ + (gx#syntax-e _%hd4329843348%_))) + (let ((_%lp-hd4330243358%_ (let () (declare (not safe)) - (##car _%e4326543318%_))) - (_%lp-tl4326743325%_ + (##car _%e4330143354%_))) + (_%lp-tl4330343361%_ (let () (declare (not safe)) - (##cdr _%e4326543318%_)))) - (_%loop4326443308%_ - _%lp-tl4326743325%_ - (cons _%lp-hd4326643322%_ _%mod4326843315%_)))) - (let ((_%mod4326943328%_ (reverse _%mod4326843315%_))) - ((lambda (_%L43332%_ _%L43334%_) + (##cdr _%e4330143354%_)))) + (_%loop4330043344%_ + _%lp-tl4330343361%_ + (cons _%lp-hd4330243358%_ _%mod4330443351%_)))) + (let ((_%mod4330543364%_ (reverse _%mod4330443351%_))) + ((lambda (_%L43368%_ _%L43370%_) (cons 'begin: - (_%flatten43247%_ - (map (lambda (_%g4335243354%_) - (_%expand-path43249%_ - _%L43334%_ - _%g4335243354%_)) - (foldr (lambda (_%g4335743360%_ - _%g4335843363%_) - (cons _%g4335743360%_ - _%g4335843363%_)) + (_%flatten43283%_ + (map (lambda (_%g4338843390%_) + (_%expand-path43285%_ + _%L43370%_ + _%g4338843390%_)) + (foldr (lambda (_%g4339343396%_ + _%g4339443399%_) + (cons _%g4339343396%_ + _%g4339443399%_)) '() - _%L43332%_))))) - _%mod4326943328%_ - _%hd4325943296%_)))))) + _%L43368%_))))) + _%mod4330543364%_ + _%hd4329543332%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4326443308%_ - _%target4326143302%_ + (_%loop4330043344%_ + _%target4329743338%_ '())) - (_%g4325143275%_ - _%g4325243279%_))))) - (_%g4325143275%_ _%g4325243279%_)))) - (_%g4325143275%_ _%g4325243279%_)))) - (_%g4325143275%_ _%g4325243279%_))))) - (_%g4325043366%_ _%stx43244%_)))))) + (_%g4328743311%_ + _%g4328843315%_))))) + (_%g4328743311%_ _%g4328843315%_)))) + (_%g4328743311%_ _%g4328843315%_)))) + (_%g4328743311%_ _%g4328843315%_))))) + (_%g4328643402%_ _%stx43280%_)))))) (define |gerbil/core/module-sugar[:0:]#except-out| (gx#make-export-expander - (lambda (_%stx43517%_) - (let* ((_%g4352043544%_ - (lambda (_%g4352143540%_) + (lambda (_%stx43553%_) + (let* ((_%g4355643580%_ + (lambda (_%g4355743576%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4352143540%_))) - (_%g4351943672%_ - (lambda (_%g4352143548%_) - (if (gx#stx-pair? _%g4352143548%_) - (let ((_%e4352443551%_ (gx#syntax-e _%g4352143548%_))) - (let ((_%hd4352543555%_ + _%g4355743576%_))) + (_%g4355543708%_ + (lambda (_%g4355743584%_) + (if (gx#stx-pair? _%g4355743584%_) + (let ((_%e4356043587%_ (gx#syntax-e _%g4355743584%_))) + (let ((_%hd4356143591%_ (let () (declare (not safe)) - (##car _%e4352443551%_))) - (_%tl4352643558%_ + (##car _%e4356043587%_))) + (_%tl4356243594%_ (let () (declare (not safe)) - (##cdr _%e4352443551%_)))) - (if (gx#stx-pair? _%tl4352643558%_) - (let ((_%e4352743561%_ - (gx#syntax-e _%tl4352643558%_))) - (let ((_%hd4352843565%_ + (##cdr _%e4356043587%_)))) + (if (gx#stx-pair? _%tl4356243594%_) + (let ((_%e4356343597%_ + (gx#syntax-e _%tl4356243594%_))) + (let ((_%hd4356443601%_ (let () (declare (not safe)) - (##car _%e4352743561%_))) - (_%tl4352943568%_ + (##car _%e4356343597%_))) + (_%tl4356543604%_ (let () (declare (not safe)) - (##cdr _%e4352743561%_)))) - (if (gx#stx-pair/null? _%tl4352943568%_) - (let ((_g44582_ + (##cdr _%e4356343597%_)))) + (if (gx#stx-pair/null? _%tl4356543604%_) + (let ((_g44618_ (gx#syntax-split-splice - _%tl4352943568%_ + _%tl4356543604%_ '0))) (begin - (let ((_g44583_ + (let ((_g44619_ (let () (declare (not safe)) - (if (##values? _g44582_) + (if (##values? _g44618_) (##vector-length - _g44582_) + _g44618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44583_ 2))) + (##fx= _g44619_ 2))) (error "Context expects 2 values" - _g44583_))) - (let ((_%target4353043571%_ + _g44619_))) + (let ((_%target4356643607%_ (let () (declare (not safe)) - (##vector-ref _g44582_ 0))) - (_%tl4353243574%_ + (##vector-ref _g44618_ 0))) + (_%tl4356843610%_ (let () (declare (not safe)) - (##vector-ref _g44582_ 1)))) - (if (gx#stx-null? _%tl4353243574%_) - (letrec ((_%loop4353343577%_ - (lambda (_%hd4353143581%_ + (##vector-ref _g44618_ 1)))) + (if (gx#stx-null? _%tl4356843610%_) + (letrec ((_%loop4356943613%_ + (lambda (_%hd4356743617%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4353743584%_) - (if (gx#stx-pair? _%hd4353143581%_) - (let ((_%e4353443587%_ (gx#syntax-e _%hd4353143581%_))) - (let ((_%lp-hd4353543591%_ + _%id4357343620%_) + (if (gx#stx-pair? _%hd4356743617%_) + (let ((_%e4357043623%_ (gx#syntax-e _%hd4356743617%_))) + (let ((_%lp-hd4357143627%_ (let () (declare (not safe)) - (##car _%e4353443587%_))) - (_%lp-tl4353643594%_ + (##car _%e4357043623%_))) + (_%lp-tl4357243630%_ (let () (declare (not safe)) - (##cdr _%e4353443587%_)))) - (_%loop4353343577%_ - _%lp-tl4353643594%_ - (cons _%lp-hd4353543591%_ _%id4353743584%_)))) - (let ((_%id4353843597%_ (reverse _%id4353743584%_))) - ((lambda (_%L43601%_ _%L43603%_) + (##cdr _%e4357043623%_)))) + (_%loop4356943613%_ + _%lp-tl4357243630%_ + (cons _%lp-hd4357143627%_ _%id4357343620%_)))) + (let ((_%id4357443633%_ (reverse _%id4357343620%_))) + ((lambda (_%L43637%_ _%L43639%_) (if (gx#identifier-list? - (foldr (lambda (_%g4362043623%_ - _%g4362143626%_) - (cons _%g4362043623%_ - _%g4362143626%_)) + (foldr (lambda (_%g4365643659%_ + _%g4365743662%_) + (cons _%g4365643659%_ + _%g4365743662%_)) '() - _%L43601%_)) - (let* ((_%keys43637%_ + _%L43637%_)) + (let* ((_%keys43673%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4362843631%_ - _%g4362943634%_) - (cons _%g4362843631%_ - _%g4362943634%_)) + (foldr (lambda (_%g4366443667%_ + _%g4366543670%_) + (cons _%g4366443667%_ + _%g4366543670%_)) '() - _%L43601%_))) - (_%keytab43648%_ - (let ((_%ht43640%_ (make-hash-table))) + _%L43637%_))) + (_%keytab43684%_ + (let ((_%ht43676%_ (make-hash-table))) (for-each - (lambda (_%g4364243644%_) + (lambda (_%g4367843680%_) (hash-put! - _%ht43640%_ - _%g4364243644%_ + _%ht43676%_ + _%g4367843680%_ '#t)) - _%keys43637%_) - _%ht43640%_)) - (_%exports43651%_ + _%keys43673%_) + _%ht43676%_)) + (_%exports43687%_ (gx#core-expand-export-source - _%L43603%_)) - (_%fold-e43667%_ - (letrec ((_%fold-e43654%_ - (lambda (_%out43657%_ - _%r43659%_) + _%L43639%_)) + (_%fold-e43703%_ + (letrec ((_%fold-e43690%_ + (lambda (_%out43693%_ + _%r43695%_) (if (gx#module-export? - _%out43657%_) + _%out43693%_) (if (hash-get - _%keytab43648%_ + _%keytab43684%_ (gx#module-export-name - _%out43657%_)) - _%r43659%_ - (cons _%out43657%_ + _%out43693%_)) + _%r43695%_ + (cons _%out43693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r43659%_)) - (if (gx#export-set? _%out43657%_) - (foldl _%fold-e43654%_ - _%r43659%_ - (gx#export-set-exports _%out43657%_)) - _%r43659%_))))) + _%r43695%_)) + (if (gx#export-set? _%out43693%_) + (foldl _%fold-e43690%_ + _%r43695%_ + (gx#export-set-exports _%out43693%_)) + _%r43695%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43654%_))) + _%fold-e43690%_))) (cons 'begin: - (foldl _%fold-e43667%_ + (foldl _%fold-e43703%_ '() - _%exports43651%_))) - (_%g4352043544%_ _%g4352143548%_))) - _%id4353843597%_ - _%hd4352843565%_)))))) + _%exports43687%_))) + (_%g4355643580%_ _%g4355743584%_))) + _%id4357443633%_ + _%hd4356443601%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4353343577%_ - _%target4353043571%_ + (_%loop4356943613%_ + _%target4356643607%_ '())) - (_%g4352043544%_ - _%g4352143548%_))))) - (_%g4352043544%_ _%g4352143548%_)))) - (_%g4352043544%_ _%g4352143548%_)))) - (_%g4352043544%_ _%g4352143548%_))))) - (_%g4351943672%_ _%stx43517%_))))) + (_%g4355643580%_ + _%g4355743584%_))))) + (_%g4355643580%_ _%g4355743584%_)))) + (_%g4355643580%_ _%g4355743584%_)))) + (_%g4355643580%_ _%g4355743584%_))))) + (_%g4355543708%_ _%stx43553%_))))) (define |gerbil/core/module-sugar[1]#module-export-rename| - (lambda (_%out43677%_ _%rename43679%_) + (lambda (_%out43713%_ _%rename43715%_) (gx#make-module-export - (gx#module-export-context _%out43677%_) - (gx#module-export-key _%out43677%_) - (gx#module-export-phi _%out43677%_) - _%rename43679%_ - (gx#module-export-weak? _%out43677%_)))) + (gx#module-export-context _%out43713%_) + (gx#module-export-key _%out43713%_) + (gx#module-export-phi _%out43713%_) + _%rename43715%_ + (gx#module-export-weak? _%out43713%_)))) (define |gerbil/core/module-sugar[:0:]#rename-out| (gx#make-export-expander - (lambda (_%stx43681%_) - (let* ((_%g4368443717%_ - (lambda (_%g4368543713%_) + (lambda (_%stx43717%_) + (let* ((_%g4372043753%_ + (lambda (_%g4372143749%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4368543713%_))) - (_%g4368343912%_ - (lambda (_%g4368543721%_) - (if (gx#stx-pair? _%g4368543721%_) - (let ((_%e4368943724%_ (gx#syntax-e _%g4368543721%_))) - (let ((_%hd4369043728%_ + _%g4372143749%_))) + (_%g4371943948%_ + (lambda (_%g4372143757%_) + (if (gx#stx-pair? _%g4372143757%_) + (let ((_%e4372543760%_ (gx#syntax-e _%g4372143757%_))) + (let ((_%hd4372643764%_ (let () (declare (not safe)) - (##car _%e4368943724%_))) - (_%tl4369143731%_ + (##car _%e4372543760%_))) + (_%tl4372743767%_ (let () (declare (not safe)) - (##cdr _%e4368943724%_)))) - (if (gx#stx-pair? _%tl4369143731%_) - (let ((_%e4369243734%_ - (gx#syntax-e _%tl4369143731%_))) - (let ((_%hd4369343738%_ + (##cdr _%e4372543760%_)))) + (if (gx#stx-pair? _%tl4372743767%_) + (let ((_%e4372843770%_ + (gx#syntax-e _%tl4372743767%_))) + (let ((_%hd4372943774%_ (let () (declare (not safe)) - (##car _%e4369243734%_))) - (_%tl4369443741%_ + (##car _%e4372843770%_))) + (_%tl4373043777%_ (let () (declare (not safe)) - (##cdr _%e4369243734%_)))) - (if (gx#stx-pair/null? _%tl4369443741%_) - (let ((_g44584_ + (##cdr _%e4372843770%_)))) + (if (gx#stx-pair/null? _%tl4373043777%_) + (let ((_g44620_ (gx#syntax-split-splice - _%tl4369443741%_ + _%tl4373043777%_ '0))) (begin - (let ((_g44585_ + (let ((_g44621_ (let () (declare (not safe)) - (if (##values? _g44584_) + (if (##values? _g44620_) (##vector-length - _g44584_) + _g44620_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44585_ 2))) + (##fx= _g44621_ 2))) (error "Context expects 2 values" - _g44585_))) - (let ((_%target4369543744%_ + _g44621_))) + (let ((_%target4373143780%_ (let () (declare (not safe)) - (##vector-ref _g44584_ 0))) - (_%tl4369743747%_ + (##vector-ref _g44620_ 0))) + (_%tl4373343783%_ (let () (declare (not safe)) - (##vector-ref _g44584_ 1)))) - (if (gx#stx-null? _%tl4369743747%_) - (letrec ((_%loop4369843750%_ - (lambda (_%hd4369643754%_ + (##vector-ref _g44620_ 1)))) + (if (gx#stx-null? _%tl4373343783%_) + (letrec ((_%loop4373443786%_ + (lambda (_%hd4373243790%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4370243757%_ - _%id4370343759%_) - (if (gx#stx-pair? _%hd4369643754%_) - (let ((_%e4369943762%_ (gx#syntax-e _%hd4369643754%_))) - (let ((_%lp-hd4370043766%_ + _%new-id4373843793%_ + _%id4373943795%_) + (if (gx#stx-pair? _%hd4373243790%_) + (let ((_%e4373543798%_ (gx#syntax-e _%hd4373243790%_))) + (let ((_%lp-hd4373643802%_ (let () (declare (not safe)) - (##car _%e4369943762%_))) - (_%lp-tl4370143769%_ + (##car _%e4373543798%_))) + (_%lp-tl4373743805%_ (let () (declare (not safe)) - (##cdr _%e4369943762%_)))) - (if (gx#stx-pair? _%lp-hd4370043766%_) - (let ((_%e4370643772%_ - (gx#syntax-e _%lp-hd4370043766%_))) - (let ((_%hd4370743776%_ + (##cdr _%e4373543798%_)))) + (if (gx#stx-pair? _%lp-hd4373643802%_) + (let ((_%e4374243808%_ + (gx#syntax-e _%lp-hd4373643802%_))) + (let ((_%hd4374343812%_ (let () (declare (not safe)) - (##car _%e4370643772%_))) - (_%tl4370843779%_ + (##car _%e4374243808%_))) + (_%tl4374443815%_ (let () (declare (not safe)) - (##cdr _%e4370643772%_)))) - (if (gx#stx-pair? _%tl4370843779%_) - (let ((_%e4370943782%_ - (gx#syntax-e _%tl4370843779%_))) - (let ((_%hd4371043786%_ + (##cdr _%e4374243808%_)))) + (if (gx#stx-pair? _%tl4374443815%_) + (let ((_%e4374543818%_ + (gx#syntax-e _%tl4374443815%_))) + (let ((_%hd4374643822%_ (let () (declare (not safe)) - (##car _%e4370943782%_))) - (_%tl4371143789%_ + (##car _%e4374543818%_))) + (_%tl4374743825%_ (let () (declare (not safe)) - (##cdr _%e4370943782%_)))) - (if (gx#stx-null? _%tl4371143789%_) - (_%loop4369843750%_ - _%lp-tl4370143769%_ - (cons _%hd4371043786%_ - _%new-id4370243757%_) - (cons _%hd4370743776%_ - _%id4370343759%_)) - (_%g4368443717%_ - _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_)))) - (let ((_%new-id4370443792%_ - (reverse _%new-id4370243757%_)) - (_%id4370543795%_ (reverse _%id4370343759%_))) - ((lambda (_%L43798%_ _%L43800%_ _%L43801%_) + (##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%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4381943822%_ - _%g4382043825%_) - (cons _%g4381943822%_ - _%g4382043825%_)) + (foldr (lambda (_%g4385543858%_ + _%g4385643861%_) + (cons _%g4385543858%_ + _%g4385643861%_)) '() - _%L43800%_)) + _%L43836%_)) (gx#identifier-list? - (foldr (lambda (_%g4382743830%_ - _%g4382843833%_) - (cons _%g4382743830%_ - _%g4382843833%_)) + (foldr (lambda (_%g4386343866%_ + _%g4386443869%_) + (cons _%g4386343866%_ + _%g4386443869%_)) '() - _%L43798%_))) - (let* ((_%keytab43836%_ (make-hash-table)) - (_%found43839%_ (make-hash-table)) - (_%_43862%_ + _%L43834%_))) + (let* ((_%keytab43872%_ (make-hash-table)) + (_%found43875%_ (make-hash-table)) + (_%_43898%_ (for-each - (lambda (_%id43842%_ _%new-id43844%_) + (lambda (_%id43878%_ _%new-id43880%_) (hash-put! - _%keytab43836%_ + _%keytab43872%_ (gx#core-identifier-key - _%id43842%_) + _%id43878%_) (gx#core-identifier-key - _%new-id43844%_))) - (foldr (lambda (_%g4384543848%_ - _%g4384643851%_) - (cons _%g4384543848%_ - _%g4384643851%_)) + _%new-id43880%_))) + (foldr (lambda (_%g4388143884%_ + _%g4388243887%_) + (cons _%g4388143884%_ + _%g4388243887%_)) '() - _%L43800%_) - (foldr (lambda (_%g4385343856%_ - _%g4385443859%_) - (cons _%g4385343856%_ - _%g4385443859%_)) + _%L43836%_) + (foldr (lambda (_%g4388943892%_ + _%g4389043895%_) + (cons _%g4388943892%_ + _%g4389043895%_)) '() - _%L43798%_))) - (_%exports43865%_ + _%L43834%_))) + (_%exports43901%_ (gx#core-expand-export-source - _%L43801%_)) - (_%fold-e43893%_ - (letrec ((_%fold-e43868%_ - (lambda (_%out43871%_ - _%r43873%_) + _%L43837%_)) + (_%fold-e43929%_ + (letrec ((_%fold-e43904%_ + (lambda (_%out43907%_ + _%r43909%_) (if (gx#module-export? - _%out43871%_) - (let* ((_%name43877%_ + _%out43907%_) + (let* ((_%name43913%_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out43871%_)) - (_%$e43880%_ (hash-get _%keytab43836%_ _%name43877%_))) - (if _%$e43880%_ - ((lambda (_%rename43884%_) - (hash-put! _%found43839%_ _%name43877%_ '#t) + _%out43907%_)) + (_%$e43916%_ (hash-get _%keytab43872%_ _%name43913%_))) + (if _%$e43916%_ + ((lambda (_%rename43920%_) + (hash-put! _%found43875%_ _%name43913%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out43871%_ - _%rename43884%_) - _%r43873%_)) - _%$e43880%_) - (cons _%out43871%_ _%r43873%_))) - (if (gx#export-set? _%out43871%_) - (foldl _%fold-e43868%_ - _%r43873%_ - (gx#export-set-exports _%out43871%_)) - (cons _%out43871%_ _%r43873%_)))))) + _%out43907%_ + _%rename43920%_) + _%r43909%_)) + _%$e43916%_) + (cons _%out43907%_ _%r43909%_))) + (if (gx#export-set? _%out43907%_) + (foldl _%fold-e43904%_ + _%r43909%_ + (gx#export-set-exports _%out43907%_)) + (cons _%out43907%_ _%r43909%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43868%_)) - (_%new-exports43896%_ - (foldl _%fold-e43893%_ + _%fold-e43904%_)) + (_%new-exports43932%_ + (foldl _%fold-e43929%_ '() - _%exports43865%_))) + _%exports43901%_))) (for-each - (lambda (_%id43901%_) + (lambda (_%id43937%_) (if (hash-get - _%found43839%_ - (gx#core-identifier-key _%id43901%_)) + _%found43875%_ + (gx#core-identifier-key _%id43937%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _%stx43681%_ - _%id43901%_))) - (foldr (lambda (_%g4390343906%_ - _%g4390443909%_) - (cons _%g4390343906%_ - _%g4390443909%_)) + _%stx43717%_ + _%id43937%_))) + (foldr (lambda (_%g4393943942%_ + _%g4394043945%_) + (cons _%g4393943942%_ + _%g4394043945%_)) '() - _%L43800%_)) - (cons 'begin: _%new-exports43896%_)) - (_%g4368443717%_ _%g4368543721%_))) - _%new-id4370443792%_ - _%id4370543795%_ - _%hd4369343738%_)))))) + _%L43836%_)) + (cons 'begin: _%new-exports43932%_)) + (_%g4372043753%_ _%g4372143757%_))) + _%new-id4374043828%_ + _%id4374143831%_ + _%hd4372943774%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4369843750%_ - _%target4369543744%_ + (_%loop4373443786%_ + _%target4373143780%_ '() '())) - (_%g4368443717%_ - _%g4368543721%_))))) - (_%g4368443717%_ _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_))))) - (_%g4368343912%_ _%stx43681%_))))) + (_%g4372043753%_ + _%g4372143757%_))))) + (_%g4372043753%_ _%g4372143757%_)))) + (_%g4372043753%_ _%g4372143757%_)))) + (_%g4372043753%_ _%g4372143757%_))))) + (_%g4371943948%_ _%stx43717%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-out| (gx#make-export-expander - (lambda (_%stx43917%_) - (let* ((_%g4392043938%_ - (lambda (_%g4392143934%_) + (lambda (_%stx43953%_) + (let* ((_%g4395643974%_ + (lambda (_%g4395743970%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4392143934%_))) - (_%g4391944023%_ - (lambda (_%g4392143942%_) - (if (gx#stx-pair? _%g4392143942%_) - (let ((_%e4392443945%_ (gx#syntax-e _%g4392143942%_))) - (let ((_%hd4392543949%_ + _%g4395743970%_))) + (_%g4395544059%_ + (lambda (_%g4395743978%_) + (if (gx#stx-pair? _%g4395743978%_) + (let ((_%e4396043981%_ (gx#syntax-e _%g4395743978%_))) + (let ((_%hd4396143985%_ (let () (declare (not safe)) - (##car _%e4392443945%_))) - (_%tl4392643952%_ + (##car _%e4396043981%_))) + (_%tl4396243988%_ (let () (declare (not safe)) - (##cdr _%e4392443945%_)))) - (if (gx#stx-pair? _%tl4392643952%_) - (let ((_%e4392743955%_ - (gx#syntax-e _%tl4392643952%_))) - (let ((_%hd4392843959%_ + (##cdr _%e4396043981%_)))) + (if (gx#stx-pair? _%tl4396243988%_) + (let ((_%e4396343991%_ + (gx#syntax-e _%tl4396243988%_))) + (let ((_%hd4396443995%_ (let () (declare (not safe)) - (##car _%e4392743955%_))) - (_%tl4392943962%_ + (##car _%e4396343991%_))) + (_%tl4396543998%_ (let () (declare (not safe)) - (##cdr _%e4392743955%_)))) - (if (gx#stx-pair? _%tl4392943962%_) - (let ((_%e4393043965%_ - (gx#syntax-e _%tl4392943962%_))) - (let ((_%hd4393143969%_ + (##cdr _%e4396343991%_)))) + (if (gx#stx-pair? _%tl4396543998%_) + (let ((_%e4396644001%_ + (gx#syntax-e _%tl4396543998%_))) + (let ((_%hd4396744005%_ (let () (declare (not safe)) - (##car _%e4393043965%_))) - (_%tl4393243972%_ + (##car _%e4396644001%_))) + (_%tl4396844008%_ (let () (declare (not safe)) - (##cdr _%e4393043965%_)))) - (if (gx#stx-null? _%tl4393243972%_) - ((lambda (_%L43975%_ _%L43977%_) - (if (gx#identifier? _%L43975%_) - (let* ((_%pre43993%_ + (##cdr _%e4396644001%_)))) + (if (gx#stx-null? _%tl4396844008%_) + ((lambda (_%L44011%_ _%L44013%_) + (if (gx#identifier? _%L44011%_) + (let* ((_%pre44029%_ (gx#stx-e - _%L43975%_)) - (_%exports43996%_ + _%L44011%_)) + (_%exports44032%_ (gx#core-expand-export-source - _%L43977%_)) - (_%rename-e44002%_ - (lambda (_%name43999%_) + _%L44013%_)) + (_%rename-e44038%_ + (lambda (_%name44035%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name43999%_ - _%pre43993%_))) - (_%fold-e44018%_ - (letrec ((_%fold-e44005%_ + _%name44035%_ + _%pre44029%_))) + (_%fold-e44054%_ + (letrec ((_%fold-e44041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%out44008%_ _%r44010%_) - (if (gx#module-export? _%out44008%_) + (lambda (_%out44044%_ _%r44046%_) + (if (gx#module-export? _%out44044%_) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out44008%_ - (_%rename-e44002%_ + _%out44044%_ + (_%rename-e44038%_ (gx#module-export-name - _%out44008%_))) - _%r44010%_) - (if (gx#export-set? _%out44008%_) - (foldl _%fold-e44005%_ - _%r44010%_ + _%out44044%_))) + _%r44046%_) + (if (gx#export-set? _%out44044%_) + (foldl _%fold-e44041%_ + _%r44046%_ (gx#export-set-exports - _%out44008%_)) - (cons _%out44008%_ _%r44010%_)))))) - _%fold-e44005%_))) - (cons 'begin: (foldl _%fold-e44018%_ '() _%exports43996%_))) + _%out44044%_)) + (cons _%out44044%_ _%r44046%_)))))) + _%fold-e44041%_))) + (cons 'begin: (foldl _%fold-e44054%_ '() _%exports44032%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4392043938%_ - _%g4392143942%_))) - _%hd4393143969%_ - _%hd4392843959%_) - (_%g4392043938%_ - _%g4392143942%_)))) - (_%g4392043938%_ _%g4392143942%_)))) - (_%g4392043938%_ _%g4392143942%_)))) - (_%g4392043938%_ _%g4392143942%_))))) - (_%g4391944023%_ _%stx43917%_))))) + (_%g4395643974%_ + _%g4395743978%_))) + _%hd4396744005%_ + _%hd4396443995%_) + (_%g4395643974%_ + _%g4395743978%_)))) + (_%g4395643974%_ _%g4395743978%_)))) + (_%g4395643974%_ _%g4395743978%_)))) + (_%g4395643974%_ _%g4395743978%_))))) + (_%g4395544059%_ _%stx43953%_))))) (define |gerbil/core/module-sugar[:0:]#struct-out| (gx#make-export-expander - (lambda (_%stx44027%_) - (letrec ((_%identifiers44030%_ - (lambda (_%id44262%_ _%unchecked?44264%_) - (let ((_%info44266%_ - (gx#syntax-local-value _%id44262%_ false))) + (lambda (_%stx44063%_) + (letrec ((_%identifiers44066%_ + (lambda (_%id44298%_ _%unchecked?44300%_) + (let ((_%info44302%_ + (gx#syntax-local-value _%id44298%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info44266%_)) - (cons _%id44262%_ - (cons (let ((__obj44563 _%info44266%_)) + _%info44302%_)) + (cons _%id44298%_ + (cons (let ((__obj44599 _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44563 + __obj44599 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44563 + __obj44599 '12 '#f '#f)) (unchecked-slot-ref - __obj44563 + __obj44599 'type-descriptor))) (foldr cons - (cons (let ((__obj44564 - _%info44266%_)) + (cons (let ((__obj44600 + _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44564 + __obj44600 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44564 + __obj44600 '14 '#f '#f)) (unchecked-slot-ref - __obj44564 + __obj44600 'predicate))) (foldr cons (foldr cons - (if _%unchecked?44264%_ + (if _%unchecked?44300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (map cdr - (let ((__obj44565 _%info44266%_)) + (let ((__obj44601 _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44565 + __obj44601 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44565 + __obj44601 '18 '#f '#f)) (unchecked-slot-ref - __obj44565 + __obj44601 'unchecked-mutators)))) (map cdr - (let ((__obj44566 _%info44266%_)) + (let ((__obj44602 _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44566 + __obj44602 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44566 + __obj44602 '17 '#f '#f)) (unchecked-slot-ref - __obj44566 + __obj44602 'unchecked-accessors))))) '()) (map cdr - (let ((__obj44567 _%info44266%_)) + (let ((__obj44603 _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44567 + __obj44603 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44567 + __obj44603 '16 '#f '#f)) (unchecked-slot-ref - __obj44567 + __obj44603 'mutators))))) (map cdr - (let ((__obj44568 _%info44266%_)) + (let ((__obj44604 _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44568 + __obj44604 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44568 + __obj44604 '15 '#f '#f)) - (unchecked-slot-ref __obj44568 'accessors)))))) + (unchecked-slot-ref __obj44604 'accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%ctor44269%_ - (let ((__obj44569 - _%info44266%_)) + (let ((_%ctor44305%_ + (let ((__obj44605 + _%info44302%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44569 + __obj44605 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44569 + __obj44605 '13 '#f '#f)) (unchecked-slot-ref - __obj44569 + __obj44605 'constructor))))) - (if _%ctor44269%_ - (cons _%ctor44269%_ '()) + (if _%ctor44305%_ + (cons _%ctor44305%_ '()) '()))))) (gx#raise-syntax-error '#f '"no class type info" - _%stx44027%_ - _%id44262%_)))))) - (let* ((_%__stx4450444505%_ _%stx44027%_) - (_%g4403444075%_ + _%stx44063%_ + _%id44298%_)))))) + (let* ((_%__stx4454044541%_ _%stx44063%_) + (_%g4407044111%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4450444505%_)))) - (let ((_%__kont4450744508%_ - (lambda (_%L44223%_ _%L44225%_) + _%__stx4454044541%_)))) + (let ((_%__kont4454344544%_ + (lambda (_%L44259%_ _%L44261%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4424444246%_) - (_%identifiers44030%_ - _%g4424444246%_ - (gx#stx-e _%L44225%_))) - (foldr (lambda (_%g4424944252%_ _%g4425044255%_) - (cons _%g4424944252%_ _%g4425044255%_)) + (lambda (_%g4428044282%_) + (_%identifiers44066%_ + _%g4428044282%_ + (gx#stx-e _%L44261%_))) + (foldr (lambda (_%g4428544288%_ _%g4428644291%_) + (cons _%g4428544288%_ _%g4428644291%_)) '() - _%L44223%_)))))) - (_%__kont4451144512%_ - (lambda (_%L44122%_) + _%L44259%_)))))) + (_%__kont4454744548%_ + (lambda (_%L44158%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4413844140%_) - (_%identifiers44030%_ _%g4413844140%_ '#f)) - (foldr (lambda (_%g4414344146%_ _%g4414444149%_) - (cons _%g4414344146%_ _%g4414444149%_)) + (lambda (_%g4417444176%_) + (_%identifiers44066%_ _%g4417444176%_ '#f)) + (foldr (lambda (_%g4417944182%_ _%g4418044185%_) + (cons _%g4417944182%_ _%g4418044185%_)) '() - _%L44122%_))))))) - (let* ((_%__match4456144562%_ - (lambda (_%e4405844082%_ - _%hd4405944086%_ - _%tl4406044089%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) - (letrec ((_%loop4406444098%_ - (lambda (_%hd4406244102%_ _%id4406844105%_) - (if (gx#stx-pair? _%hd4406244102%_) - (let ((_%e4406544108%_ - (gx#syntax-e _%hd4406244102%_))) - (let ((_%lp-tl4406744115%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e4406544108%_))) - (_%lp-hd4406644112%_ + (##cdr _%e4410144144%_))) + (_%lp-hd4410244148%_ (let () (declare (not safe)) - (##car _%e4406544108%_)))) - (_%loop4406444098%_ - _%lp-tl4406744115%_ - (cons _%lp-hd4406644112%_ - _%id4406844105%_)))) - (let ((_%id4406944118%_ - (reverse _%id4406844105%_))) - (_%__kont4451144512%_ - _%id4406944118%_)))))) - (_%loop4406444098%_ _%target4406144092%_ '())))) - (_%__match4454744548%_ - (lambda (_%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%e4404144169%_ - _%hd4404244173%_ - _%tl4404344176%_ - _%e4404444179%_ - _%e4404544183%_ - _%hd4404644187%_ - _%tl4404744190%_ - _%__splice4450944510%_ - _%target4404844193%_ - _%tl4405044196%_) - (letrec ((_%loop4405144199%_ - (lambda (_%hd4404944203%_ _%id4405544206%_) - (if (gx#stx-pair? _%hd4404944203%_) - (let ((_%e4405244209%_ - (gx#syntax-e _%hd4404944203%_))) - (let ((_%lp-tl4405444216%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4405244209%_))) - (_%lp-hd4405344213%_ + (##cdr _%e4408844245%_))) + (_%lp-hd4408944249%_ (let () (declare (not safe)) - (##car _%e4405244209%_)))) - (_%loop4405144199%_ - _%lp-tl4405444216%_ - (cons _%lp-hd4405344213%_ - _%id4405544206%_)))) - (let ((_%id4405644219%_ - (reverse _%id4405544206%_))) - (_%__kont4450744508%_ - _%id4405644219%_ - _%hd4404644187%_)))))) - (_%loop4405144199%_ _%target4404844193%_ '()))))) - (if (gx#stx-pair? _%__stx4450444505%_) - (let ((_%e4403844159%_ (gx#syntax-e _%__stx4450444505%_))) - (let ((_%tl4404044166%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e4403844159%_))) - (_%hd4403944163%_ + (##cdr _%e4407444195%_))) + (_%hd4407544199%_ (let () (declare (not safe)) - (##car _%e4403844159%_)))) - (if (gx#stx-pair? _%tl4404044166%_) - (let ((_%e4404144169%_ - (gx#syntax-e _%tl4404044166%_))) - (let ((_%tl4404344176%_ + (##car _%e4407444195%_)))) + (if (gx#stx-pair? _%tl4407644202%_) + (let ((_%e4407744205%_ + (gx#syntax-e _%tl4407644202%_))) + (let ((_%tl4407944212%_ (let () (declare (not safe)) - (##cdr _%e4404144169%_))) - (_%hd4404244173%_ + (##cdr _%e4407744205%_))) + (_%hd4407844209%_ (let () (declare (not safe)) - (##car _%e4404144169%_)))) - (if (gx#stx-datum? _%hd4404244173%_) - (let ((_%e4404444179%_ - (gx#stx-e _%hd4404244173%_))) - (if (equal? _%e4404444179%_ 'unchecked:) - (if (gx#stx-pair? _%tl4404344176%_) - (let ((_%e4404544183%_ + (##car _%e4407744205%_)))) + (if (gx#stx-datum? _%hd4407844209%_) + (let ((_%e4408044215%_ + (gx#stx-e _%hd4407844209%_))) + (if (equal? _%e4408044215%_ 'unchecked:) + (if (gx#stx-pair? _%tl4407944212%_) + (let ((_%e4408144219%_ (gx#syntax-e - _%tl4404344176%_))) - (let ((_%tl4404744190%_ + _%tl4407944212%_))) + (let ((_%tl4408344226%_ (let () (declare (not safe)) - (##cdr _%e4404544183%_))) - (_%hd4404644187%_ + (##cdr _%e4408144219%_))) + (_%hd4408244223%_ (let () (declare (not safe)) - (##car _%e4404544183%_)))) + (##car _%e4408144219%_)))) (if (gx#stx-pair/null? - _%tl4404744190%_) - (let ((_%__splice4450944510%_ + _%tl4408344226%_) + (let ((_%__splice4454544546%_ (gx#syntax-split-splice - _%tl4404744190%_ + _%tl4408344226%_ '0))) - (let ((_%tl4405044196%_ + (let ((_%tl4408644232%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4450944510%_ '1))) - (_%target4404844193%_ + (##vector-ref _%__splice4454544546%_ '1))) + (_%target4408444229%_ (let () (declare (not safe)) - (##vector-ref _%__splice4450944510%_ '0)))) - (if (gx#stx-null? _%tl4405044196%_) - (_%__match4454744548%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%e4404144169%_ - _%hd4404244173%_ - _%tl4404344176%_ - _%e4404444179%_ - _%e4404544183%_ - _%hd4404644187%_ - _%tl4404744190%_ - _%__splice4450944510%_ - _%target4404844193%_ - _%tl4405044196%_) - (if (gx#stx-pair/null? _%tl4404044166%_) - (let ((_%__splice4451344514%_ - (gx#syntax-split-splice _%tl4404044166%_ '0))) - (let ((_%tl4406344095%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '1))) - (_%target4406144092%_ + (##vector-ref _%__splice4454944550%_ '1))) + (_%target4409744128%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + (##vector-ref _%__splice4454944550%_ '0)))) + (if (gx#stx-null? _%tl4409944131%_) + (_%__match4459744598%_ + _%e4407444195%_ + _%hd4407544199%_ + _%tl4407644202%_ + _%__splice4454944550%_ + _%target4409744128%_ + _%tl4409944131%_) (let () (declare (not safe)) - (_%g4403444075%_))))) - (let () (declare (not safe)) (_%g4403444075%_)))))) + (_%g4407044111%_))))) + (let () (declare (not safe)) (_%g4407044111%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4404044166%_) - (let ((_%__splice4451344514%_ + _%tl4407644202%_) + (let ((_%__splice4454944550%_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4404044166%_ + _%tl4407644202%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4409944131%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '1))) - (_%target4406144092%_ + (##vector-ref _%__splice4454944550%_ '1))) + (_%target4409744128%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) - (let () (declare (not safe)) (_%g4403444075%_))))) - (let () (declare (not safe)) (_%g4403444075%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4404044166%_) - (let ((_%__splice4451344514%_ + _%tl4407644202%_) + (let ((_%__splice4454944550%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4407644202%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4409944131%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '1))) - (_%target4406144092%_ + (_%target4409744128%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '0)))) (if (gx#stx-null? - _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + _%tl4409944131%_) + (_%__match4459744598%_ + _%e4407444195%_ + _%hd4407544199%_ + _%tl4407644202%_ + _%__splice4454944550%_ + _%target4409744128%_ + _%tl4409944131%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4407044111%_))))) (let () (declare (not safe)) - (_%g4403444075%_)))) + (_%g4407044111%_)))) (if (gx#stx-pair/null? - _%tl4404044166%_) - (let ((_%__splice4451344514%_ + _%tl4407644202%_) + (let ((_%__splice4454944550%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4407644202%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4409944131%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '1))) - (_%target4406144092%_ + (_%target4409744128%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '0)))) (if (gx#stx-null? - _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + _%tl4409944131%_) + (_%__match4459744598%_ + _%e4407444195%_ + _%hd4407544199%_ + _%tl4407644202%_ + _%__splice4454944550%_ + _%target4409744128%_ + _%tl4409944131%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4407044111%_))))) (let () (declare (not safe)) - (_%g4403444075%_))))) - (if (gx#stx-pair/null? _%tl4404044166%_) - (let ((_%__splice4451344514%_ + (_%g4407044111%_))))) + (if (gx#stx-pair/null? _%tl4407644202%_) + (let ((_%__splice4454944550%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4407644202%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4409944131%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '1))) - (_%target4406144092%_ + (_%target4409744128%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + (if (gx#stx-null? _%tl4409944131%_) + (_%__match4459744598%_ + _%e4407444195%_ + _%hd4407544199%_ + _%tl4407644202%_ + _%__splice4454944550%_ + _%target4409744128%_ + _%tl4409944131%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4407044111%_))))) (let () (declare (not safe)) - (_%g4403444075%_)))))) - (if (gx#stx-pair/null? _%tl4404044166%_) - (let ((_%__splice4451344514%_ + (_%g4407044111%_)))))) + (if (gx#stx-pair/null? _%tl4407644202%_) + (let ((_%__splice4454944550%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4407644202%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4409944131%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '1))) - (_%target4406144092%_ + (_%target4409744128%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4454944550%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + (if (gx#stx-null? _%tl4409944131%_) + (_%__match4459744598%_ + _%e4407444195%_ + _%hd4407544199%_ + _%tl4407644202%_ + _%__splice4454944550%_ + _%target4409744128%_ + _%tl4409944131%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4407044111%_))))) (let () (declare (not safe)) - (_%g4403444075%_)))))) - (let () (declare (not safe)) (_%g4403444075%_))))))))))) + (_%g4407044111%_)))))) + (let () (declare (not safe)) (_%g4407044111%_))))))))))) diff --git a/src/bootstrap/gerbil/core/mop~1.scm b/src/bootstrap/gerbil/core/mop~1.scm index 83e273489..8ec9ca477 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-t22412%_) - (let ((_%$e22415%_ (gx#module-context-ns (gx#current-expander-context)))) - (if _%$e22415%_ - ((lambda (_%ns22419%_) + (lambda (_%type-t22448%_) + (let ((_%$e22451%_ (gx#module-context-ns (gx#current-expander-context)))) + (if _%$e22451%_ + ((lambda (_%ns22455%_) (gx#stx-identifier - _%type-t22412%_ - _%ns22419%_ + _%type-t22448%_ + _%ns22455%_ '"#" - _%type-t22412%_ + _%type-t22448%_ '"::t")) - _%$e22415%_) - (let ((_%mid22424%_ + _%$e22451%_) + (let ((_%mid22460%_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _%type-t22412%_ - _%mid22424%_ + _%type-t22448%_ + _%mid22460%_ '"#" - _%type-t22412%_ + _%type-t22448%_ '"::t")))))) (define |gerbil/core/mop~MOP-1[1]#make-class-type-id| - (lambda (_%type-t22409%_) + (lambda (_%type-t22445%_) (if (gx#module-context? (gx#current-expander-context)) - (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22409%_) - (make-symbol '"__" (gensym (gx#stx-e _%type-t22409%_)) '"::t")))) + (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22445%_) + (make-symbol '"__" (gensym (gx#stx-e _%type-t22445%_)) '"::t")))) (define |gerbil/core/mop~MOP-1[1]#generate-typedef| - (lambda (_%stx20987%_ _%struct?20989%_) - (letrec ((_%wrap20991%_ - (lambda (_%e-stx22406%_) + (lambda (_%stx21023%_ _%struct?21025%_) + (letrec ((_%wrap21027%_ + (lambda (_%e-stx22442%_) (gx#stx-wrap-source - _%e-stx22406%_ - (gx#stx-source _%stx20987%_)))) - (_%slot-name20993%_ - (lambda (_%slot-spec22323%_) - (let* ((_%g2232622345%_ - (lambda (_%g2232722341%_) + _%e-stx22442%_ + (gx#stx-source _%stx21023%_)))) + (_%slot-name21029%_ + (lambda (_%slot-spec22359%_) + (let* ((_%g2236222381%_ + (lambda (_%g2236322377%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2232722341%_))) - (_%g2232522402%_ - (lambda (_%g2232722349%_) - (if (gx#stx-pair? _%g2232722349%_) - (let ((_%e2233122352%_ - (gx#syntax-e _%g2232722349%_))) - (let ((_%hd2233222356%_ + _%g2236322377%_))) + (_%g2236122438%_ + (lambda (_%g2236322385%_) + (if (gx#stx-pair? _%g2236322385%_) + (let ((_%e2236722388%_ + (gx#syntax-e _%g2236322385%_))) + (let ((_%hd2236822392%_ (let () (declare (not safe)) - (##car _%e2233122352%_))) - (_%tl2233322359%_ + (##car _%e2236722388%_))) + (_%tl2236922395%_ (let () (declare (not safe)) - (##cdr _%e2233122352%_)))) - (if (gx#stx-pair? _%tl2233322359%_) - (let ((_%e2233422362%_ - (gx#syntax-e _%tl2233322359%_))) - (let ((_%hd2233522366%_ + (##cdr _%e2236722388%_)))) + (if (gx#stx-pair? _%tl2236922395%_) + (let ((_%e2237022398%_ + (gx#syntax-e _%tl2236922395%_))) + (let ((_%hd2237122402%_ (let () (declare (not safe)) - (##car _%e2233422362%_))) - (_%tl2233622369%_ + (##car _%e2237022398%_))) + (_%tl2237222405%_ (let () (declare (not safe)) - (##cdr _%e2233422362%_)))) - (if (gx#stx-pair? _%tl2233622369%_) - (let ((_%e2233722372%_ + (##cdr _%e2237022398%_)))) + (if (gx#stx-pair? _%tl2237222405%_) + (let ((_%e2237322408%_ (gx#syntax-e - _%tl2233622369%_))) - (let ((_%hd2233822376%_ + _%tl2237222405%_))) + (let ((_%hd2237422412%_ (let () (declare (not safe)) - (##car _%e2233722372%_))) - (_%tl2233922379%_ + (##car _%e2237322408%_))) + (_%tl2237522415%_ (let () (declare (not safe)) - (##cdr _%e2233722372%_)))) + (##cdr _%e2237322408%_)))) (if (gx#stx-null? - _%tl2233922379%_) - ((lambda (_%L22382%_ + _%tl2237522415%_) + ((lambda (_%L22418%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22384%_ - _%L22385%_) - _%L22385%_) - _%hd2233822376%_ - _%hd2233522366%_ - _%hd2233222356%_) - (_%g2232622345%_ _%g2232722349%_)))) + _%L22420%_ + _%L22421%_) + _%L22421%_) + _%hd2237422412%_ + _%hd2237122402%_ + _%hd2236822392%_) + (_%g2236222381%_ _%g2236322385%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2232622345%_ - _%g2232722349%_)))) - (_%g2232622345%_ _%g2232722349%_)))) - (_%g2232622345%_ _%g2232722349%_))))) - (_%g2232522402%_ _%slot-spec22323%_)))) - (_%class-opt?20994%_ - (lambda (_%key22320%_) - (let ((__tmp27107 (gx#stx-e _%key22320%_))) + (_%g2236222381%_ + _%g2236322385%_)))) + (_%g2236222381%_ _%g2236322385%_)))) + (_%g2236222381%_ _%g2236322385%_))))) + (_%g2236122438%_ _%slot-spec22359%_)))) + (_%class-opt?21030%_ + (lambda (_%key22356%_) + (let ((__tmp27143 (gx#stx-e _%key22356%_))) (declare (not safe)) - (##memq __tmp27107 + (##memq __tmp27143 '(struct: slots: id: @@ -107,651 +107,651 @@ final: mixin: metaclass:)))))) - (let* ((_%g2099621023%_ - (lambda (_%g2099721019%_) + (let* ((_%g2103221059%_ + (lambda (_%g2103321055%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2099721019%_))) - (_%g2099522316%_ - (lambda (_%g2099721027%_) - (if (gx#stx-pair? _%g2099721027%_) - (let ((_%e2100321030%_ (gx#syntax-e _%g2099721027%_))) - (let ((_%hd2100421034%_ + _%g2103321055%_))) + (_%g2103122352%_ + (lambda (_%g2103321063%_) + (if (gx#stx-pair? _%g2103321063%_) + (let ((_%e2103921066%_ (gx#syntax-e _%g2103321063%_))) + (let ((_%hd2104021070%_ (let () (declare (not safe)) - (##car _%e2100321030%_))) - (_%tl2100521037%_ + (##car _%e2103921066%_))) + (_%tl2104121073%_ (let () (declare (not safe)) - (##cdr _%e2100321030%_)))) - (if (gx#stx-pair? _%tl2100521037%_) - (let ((_%e2100621040%_ - (gx#syntax-e _%tl2100521037%_))) - (let ((_%hd2100721044%_ + (##cdr _%e2103921066%_)))) + (if (gx#stx-pair? _%tl2104121073%_) + (let ((_%e2104221076%_ + (gx#syntax-e _%tl2104121073%_))) + (let ((_%hd2104321080%_ (let () (declare (not safe)) - (##car _%e2100621040%_))) - (_%tl2100821047%_ + (##car _%e2104221076%_))) + (_%tl2104421083%_ (let () (declare (not safe)) - (##cdr _%e2100621040%_)))) - (if (gx#stx-pair? _%tl2100821047%_) - (let ((_%e2100921050%_ - (gx#syntax-e _%tl2100821047%_))) - (let ((_%hd2101021054%_ + (##cdr _%e2104221076%_)))) + (if (gx#stx-pair? _%tl2104421083%_) + (let ((_%e2104521086%_ + (gx#syntax-e _%tl2104421083%_))) + (let ((_%hd2104621090%_ (let () (declare (not safe)) - (##car _%e2100921050%_))) - (_%tl2101121057%_ + (##car _%e2104521086%_))) + (_%tl2104721093%_ (let () (declare (not safe)) - (##cdr _%e2100921050%_)))) - (if (gx#stx-pair? _%tl2101121057%_) - (let ((_%e2101221060%_ + (##cdr _%e2104521086%_)))) + (if (gx#stx-pair? _%tl2104721093%_) + (let ((_%e2104821096%_ (gx#syntax-e - _%tl2101121057%_))) - (let ((_%hd2101321064%_ + _%tl2104721093%_))) + (let ((_%hd2104921100%_ (let () (declare (not safe)) - (##car _%e2101221060%_))) - (_%tl2101421067%_ + (##car _%e2104821096%_))) + (_%tl2105021103%_ (let () (declare (not safe)) - (##cdr _%e2101221060%_)))) + (##cdr _%e2104821096%_)))) (if (gx#stx-pair? - _%tl2101421067%_) - (let ((_%e2101521070%_ + _%tl2105021103%_) + (let ((_%e2105121106%_ (gx#syntax-e - _%tl2101421067%_))) - (let ((_%hd2101621074%_ + _%tl2105021103%_))) + (let ((_%hd2105221110%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2101521070%_))) - (_%tl2101721077%_ - (let () (declare (not safe)) (##cdr _%e2101521070%_)))) - ((lambda (_%L21080%_ - _%L21082%_ - _%L21083%_ - _%L21084%_ - _%L21085%_) - (if (and (gx#identifier? _%L21085%_) - (gx#identifier-list? _%L21084%_) - (or (gx#identifier? _%L21083%_) - (gx#stx-false? _%L21083%_)) - (gx#identifier? _%L21082%_) - (gx#stx-plist? _%L21080%_ _%class-opt?20994%_)) - (let* ((_%struct?21125%_ - (let ((_%$e21115%_ _%struct?20989%_)) - (if _%$e21115%_ - _%$e21115%_ - (let ((_%$e21119%_ + (##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%_ (gx#stx-getq 'struct: - _%L21080%_))) - (if _%$e21119%_ - (gx#stx-e _%$e21119%_) + _%L21116%_))) + (if _%$e21155%_ + (gx#stx-e _%$e21155%_) '#f))))) - (_%slots21132%_ - (let ((_%$e21128%_ - (gx#stx-getq 'slots: _%L21080%_))) - (if _%$e21128%_ _%$e21128%_ '()))) - (_%mixin-slots21139%_ - (let ((_%$e21135%_ - (gx#stx-getq 'mixin: _%L21080%_))) - (if _%$e21135%_ _%$e21135%_ '()))) - (_%accessible-slots21142%_ - (append (gx#syntax->list _%slots21132%_) + (_%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%_) (gx#syntax->list - _%mixin-slots21139%_))) - (_%metaclass21145%_ - (gx#stx-getq 'metaclass: _%L21080%_)) - (_%g2114821165%_ - (lambda (_%g2114921161%_) + _%mixin-slots21175%_))) + (_%metaclass21181%_ + (gx#stx-getq 'metaclass: _%L21116%_)) + (_%g2118421201%_ + (lambda (_%g2118521197%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2114921161%_))) - (_%g2114722312%_ - (lambda (_%g2114921169%_) - (if (gx#stx-pair/null? _%g2114921169%_) - (let ((_g27108_ + _%g2118521197%_))) + (_%g2118322348%_ + (lambda (_%g2118521205%_) + (if (gx#stx-pair/null? _%g2118521205%_) + (let ((_g27144_ (gx#syntax-split-splice - _%g2114921169%_ + _%g2118521205%_ '0))) (begin - (let ((_g27109_ + (let ((_g27145_ (let () (declare (not safe)) - (if (##values? _g27108_) + (if (##values? _g27144_) (##vector-length - _g27108_) + _g27144_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27109_ 2))) + (##fx= _g27145_ 2))) (error "Context expects 2 values" - _g27109_))) - (let ((_%target2115121172%_ + _g27145_))) + (let ((_%target2118721208%_ (let () (declare (not safe)) - (##vector-ref _g27108_ 0))) - (_%tl2115321175%_ + (##vector-ref _g27144_ 0))) + (_%tl2118921211%_ (let () (declare (not safe)) (##vector-ref - _g27108_ + _g27144_ 1)))) (if (gx#stx-null? - _%tl2115321175%_) - (letrec ((_%loop2115421178%_ - (lambda (_%hd2115221182%_ + _%tl2118921211%_) + (letrec ((_%loop2119021214%_ + (lambda (_%hd2118821218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot2115821185%_) - (if (gx#stx-pair? _%hd2115221182%_) - (let ((_%e2115521188%_ - (gx#syntax-e _%hd2115221182%_))) - (let ((_%lp-hd2115621192%_ + _%slot2119421221%_) + (if (gx#stx-pair? _%hd2118821218%_) + (let ((_%e2119121224%_ + (gx#syntax-e _%hd2118821218%_))) + (let ((_%lp-hd2119221228%_ (let () (declare (not safe)) - (##car _%e2115521188%_))) - (_%lp-tl2115721195%_ + (##car _%e2119121224%_))) + (_%lp-tl2119321231%_ (let () (declare (not safe)) - (##cdr _%e2115521188%_)))) - (_%loop2115421178%_ - _%lp-tl2115721195%_ - (cons _%lp-hd2115621192%_ _%slot2115821185%_)))) - (let ((_%slot2115921198%_ - (reverse _%slot2115821185%_))) - ((lambda (_%L21202%_) - (let* ((_%g2122321231%_ - (lambda (_%g2122421227%_) + (##cdr _%e2119121224%_)))) + (_%loop2119021214%_ + _%lp-tl2119321231%_ + (cons _%lp-hd2119221228%_ _%slot2119421221%_)))) + (let ((_%slot2119521234%_ + (reverse _%slot2119421221%_))) + ((lambda (_%L21238%_) + (let* ((_%g2125921267%_ + (lambda (_%g2126021263%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2122421227%_))) - (_%g2122222304%_ - (lambda (_%g2122421235%_) - ((lambda (_%L21238%_) - (let* ((_%g2125121259%_ - (lambda (_%g2125221255%_) + _%g2126021263%_))) + (_%g2125822340%_ + (lambda (_%g2126021271%_) + ((lambda (_%L21274%_) + (let* ((_%g2128721295%_ + (lambda (_%g2128821291%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2125221255%_))) - (_%g2125022296%_ - (lambda (_%g2125221263%_) - ((lambda (_%L21266%_) - (let* ((_%g2127921287%_ - (lambda (_%g2128021283%_) + _%g2128821291%_))) + (_%g2128622332%_ + (lambda (_%g2128821299%_) + ((lambda (_%L21302%_) + (let* ((_%g2131521323%_ + (lambda (_%g2131621319%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2128021283%_))) - (_%g2127822292%_ - (lambda (_%g2128021291%_) - ((lambda (_%L21294%_) - (let* ((_%g2130721315%_ - (lambda (_%g2130821311%_) + _%g2131621319%_))) + (_%g2131422328%_ + (lambda (_%g2131621327%_) + ((lambda (_%L21330%_) + (let* ((_%g2134321351%_ + (lambda (_%g2134421347%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2130821311%_))) - (_%g2130622288%_ - (lambda (_%g2130821319%_) - ((lambda (_%L21322%_) - (let* ((_%g2133521343%_ - (lambda (_%g2133621339%_) + _%g2134421347%_))) + (_%g2134222324%_ + (lambda (_%g2134421355%_) + ((lambda (_%L21358%_) + (let* ((_%g2137121379%_ + (lambda (_%g2137221375%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2133621339%_))) - (_%g2133422284%_ - (lambda (_%g2133621347%_) - ((lambda (_%L21350%_) - (let* ((_%g2136321371%_ - (lambda (_%g2136421367%_) + _%g2137221375%_))) + (_%g2137022320%_ + (lambda (_%g2137221383%_) + ((lambda (_%L21386%_) + (let* ((_%g2139921407%_ + (lambda (_%g2140021403%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2136421367%_))) - (_%g2136222280%_ - (lambda (_%g2136421375%_) - ((lambda (_%L21378%_) - (let* ((_%g2139121399%_ - (lambda (_%g2139221395%_) + _%g2140021403%_))) + (_%g2139822316%_ + (lambda (_%g2140021411%_) + ((lambda (_%L21414%_) + (let* ((_%g2142721435%_ + (lambda (_%g2142821431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2139221395%_))) - (_%g2139022276%_ - (lambda (_%g2139221403%_) - ((lambda (_%L21406%_) - (let* ((_%g2141921427%_ - (lambda (_%g2142021423%_) + _%g2142821431%_))) + (_%g2142622312%_ + (lambda (_%g2142821439%_) + ((lambda (_%L21442%_) + (let* ((_%g2145521463%_ + (lambda (_%g2145621459%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2142021423%_))) - (_%g2141822272%_ - (lambda (_%g2142021431%_) - ((lambda (_%L21434%_) - (let* ((_%g2144721455%_ - (lambda (_%g2144821451%_) + _%g2145621459%_))) + (_%g2145422308%_ + (lambda (_%g2145621467%_) + ((lambda (_%L21470%_) + (let* ((_%g2148321491%_ + (lambda (_%g2148421487%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g2144821451%_))) - (_%g2144622264%_ - (lambda (_%g2144821459%_) - ((lambda (_%L21462%_) - (let* ((_%g2147521483%_ - (lambda (_%g2147621479%_) + _%g2148421487%_))) + (_%g2148222300%_ + (lambda (_%g2148421495%_) + ((lambda (_%L21498%_) + (let* ((_%g2151121519%_ + (lambda (_%g2151221515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2147621479%_))) - (_%g2147422260%_ - (lambda (_%g2147621487%_) - ((lambda (_%L21490%_) - (let* ((_%g2150321511%_ - (lambda (_%g2150421507%_) + _%g2151221515%_))) + (_%g2151022296%_ + (lambda (_%g2151221523%_) + ((lambda (_%L21526%_) + (let* ((_%g2153921547%_ + (lambda (_%g2154021543%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2150421507%_))) - (_%g2150222256%_ - (lambda (_%g2150421515%_) - ((lambda (_%L21518%_) - (let* ((_%g2153121539%_ - (lambda (_%g2153221535%_) + _%g2154021543%_))) + (_%g2153822292%_ + (lambda (_%g2154021551%_) + ((lambda (_%L21554%_) + (let* ((_%g2156721575%_ + (lambda (_%g2156821571%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2153221535%_))) - (_%g2153022221%_ - (lambda (_%g2153221543%_) - ((lambda (_%L21546%_) + _%g2156821571%_))) + (_%g2156622257%_ + (lambda (_%g2156821579%_) + ((lambda (_%L21582%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2155921567%_ - (lambda (_%g2156021563%_) + (let* ((_%g2159521603%_ + (lambda (_%g2159621599%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2156021563%_))) - (_%g2155822217%_ - (lambda (_%g2156021571%_) - ((lambda (_%L21574%_) - (let* ((_%g2158721595%_ - (lambda (_%g2158821591%_) + _%g2159621599%_))) + (_%g2159422253%_ + (lambda (_%g2159621607%_) + ((lambda (_%L21610%_) + (let* ((_%g2162321631%_ + (lambda (_%g2162421627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2158821591%_))) - (_%g2158622205%_ - (lambda (_%g2158821599%_) - ((lambda (_%L21602%_) - (let* ((_%g2161521623%_ - (lambda (_%g2161621619%_) + _%g2162421627%_))) + (_%g2162222241%_ + (lambda (_%g2162421635%_) + ((lambda (_%L21638%_) + (let* ((_%g2165121659%_ + (lambda (_%g2165221655%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2161621619%_))) - (_%g2161422193%_ - (lambda (_%g2161621627%_) - ((lambda (_%L21630%_) + _%g2165221655%_))) + (_%g2165022229%_ + (lambda (_%g2165221663%_) + ((lambda (_%L21666%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2164321651%_ - (lambda (_%g2164421647%_) + (let* ((_%g2167921687%_ + (lambda (_%g2168021683%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2164421647%_))) - (_%g2164222189%_ - (lambda (_%g2164421655%_) - ((lambda (_%L21658%_) - (let* ((_%g2167121679%_ - (lambda (_%g2167221675%_) + _%g2168021683%_))) + (_%g2167822225%_ + (lambda (_%g2168021691%_) + ((lambda (_%L21694%_) + (let* ((_%g2170721715%_ + (lambda (_%g2170821711%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2167221675%_))) - (_%g2167022185%_ - (lambda (_%g2167221683%_) - ((lambda (_%L21686%_) - (let* ((_%g2169921725%_ - (lambda (_%g2170021721%_) + _%g2170821711%_))) + (_%g2170622221%_ + (lambda (_%g2170821719%_) + ((lambda (_%L21722%_) + (let* ((_%g2173521761%_ + (lambda (_%g2173621757%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2170021721%_))) - (_%g2169822097%_ - (lambda (_%g2170021729%_) + _%g2173621757%_))) + (_%g2173422133%_ + (lambda (_%g2173621765%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2170021729%_) - (let ((_g27110_ - (gx#syntax-split-splice _%g2170021729%_ '0))) + _%g2173621765%_) + (let ((_g27146_ + (gx#syntax-split-splice _%g2173621765%_ '0))) (begin - (let ((_g27111_ + (let ((_g27147_ (let () (declare (not safe)) - (if (##values? _g27110_) - (##vector-length _g27110_) + (if (##values? _g27146_) + (##vector-length _g27146_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27111_ 2))) + (##fx= _g27147_ 2))) (error "Context expects 2 values" - _g27111_))) - (let ((_%target2170321732%_ + _g27147_))) + (let ((_%target2173921768%_ (let () (declare (not safe)) - (##vector-ref _g27110_ 0))) - (_%tl2170521735%_ + (##vector-ref _g27146_ 0))) + (_%tl2174121771%_ (let () (declare (not safe)) - (##vector-ref _g27110_ 1)))) - (if (gx#stx-null? _%tl2170521735%_) - (letrec ((_%loop2170621738%_ - (lambda (_%hd2170421742%_ - _%def-setf2171021745%_ - _%def-getf2171121747%_) + (##vector-ref _g27146_ 1)))) + (if (gx#stx-null? _%tl2174121771%_) + (letrec ((_%loop2174221774%_ + (lambda (_%hd2174021778%_ + _%def-setf2174621781%_ + _%def-getf2174721783%_) (if (gx#stx-pair? - _%hd2170421742%_) - (let ((_%e2170721750%_ + _%hd2174021778%_) + (let ((_%e2174321786%_ (gx#syntax-e - _%hd2170421742%_))) - (let ((_%lp-hd2170821754%_ + _%hd2174021778%_))) + (let ((_%lp-hd2174421790%_ (let () (declare (not safe)) - (##car _%e2170721750%_))) - (_%lp-tl2170921757%_ + (##car _%e2174321786%_))) + (_%lp-tl2174521793%_ (let () (declare (not safe)) - (##cdr _%e2170721750%_)))) + (##cdr _%e2174321786%_)))) (if (gx#stx-pair? - _%lp-hd2170821754%_) - (let ((_%e2171421760%_ + _%lp-hd2174421790%_) + (let ((_%e2175021796%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%lp-hd2170821754%_))) - (let ((_%hd2171521764%_ + (gx#syntax-e _%lp-hd2174421790%_))) + (let ((_%hd2175121800%_ (let () (declare (not safe)) - (##car _%e2171421760%_))) - (_%tl2171621767%_ + (##car _%e2175021796%_))) + (_%tl2175221803%_ (let () (declare (not safe)) - (##cdr _%e2171421760%_)))) - (if (gx#stx-pair? _%tl2171621767%_) - (let ((_%e2171721770%_ - (gx#syntax-e _%tl2171621767%_))) - (let ((_%hd2171821774%_ + (##cdr _%e2175021796%_)))) + (if (gx#stx-pair? _%tl2175221803%_) + (let ((_%e2175321806%_ + (gx#syntax-e _%tl2175221803%_))) + (let ((_%hd2175421810%_ (let () (declare (not safe)) - (##car _%e2171721770%_))) - (_%tl2171921777%_ + (##car _%e2175321806%_))) + (_%tl2175521813%_ (let () (declare (not safe)) - (##cdr _%e2171721770%_)))) - (if (gx#stx-null? _%tl2171921777%_) - (_%loop2170621738%_ - _%lp-tl2170921757%_ - (cons _%hd2171821774%_ - _%def-setf2171021745%_) - (cons _%hd2171521764%_ - _%def-getf2171121747%_)) - (_%g2169921725%_ _%g2170021729%_)))) - (_%g2169921725%_ _%g2170021729%_)))) - (_%g2169921725%_ _%g2170021729%_)))) + (##cdr _%e2175321806%_)))) + (if (gx#stx-null? _%tl2175521813%_) + (_%loop2174221774%_ + _%lp-tl2174521793%_ + (cons _%hd2175421810%_ + _%def-setf2174621781%_) + (cons _%hd2175121800%_ + _%def-getf2174721783%_)) + (_%g2173521761%_ _%g2173621765%_)))) + (_%g2173521761%_ _%g2173621765%_)))) + (_%g2173521761%_ _%g2173621765%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%def-setf2171221780%_ - (reverse _%def-setf2171021745%_)) - (_%def-getf2171321783%_ - (reverse _%def-getf2171121747%_))) - ((lambda (_%L21786%_ - _%L21788%_) - (let* ((_%g2180521831%_ - (lambda (_%g2180621827%_) + (let ((_%def-setf2174821816%_ + (reverse _%def-setf2174621781%_)) + (_%def-getf2174921819%_ + (reverse _%def-getf2174721783%_))) + ((lambda (_%L21822%_ + _%L21824%_) + (let* ((_%g2184121867%_ + (lambda (_%g2184221863%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2180621827%_))) - (_%g2180421945%_ - (lambda (_%g2180621835%_) - (if (gx#stx-pair/null? _%g2180621835%_) - (let ((_g27112_ + _%g2184221863%_))) + (_%g2184021981%_ + (lambda (_%g2184221871%_) + (if (gx#stx-pair/null? _%g2184221871%_) + (let ((_g27148_ (gx#syntax-split-splice - _%g2180621835%_ + _%g2184221871%_ '0))) (begin - (let ((_g27113_ + (let ((_g27149_ (let () (declare (not safe)) - (if (##values? _g27112_) - (##vector-length _g27112_) + (if (##values? _g27148_) + (##vector-length _g27148_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27113_ 2))) + (##fx= _g27149_ 2))) (error "Context expects 2 values" - _g27113_))) - (let ((_%target2180921838%_ + _g27149_))) + (let ((_%target2184521874%_ (let () (declare (not safe)) - (##vector-ref _g27112_ 0))) - (_%tl2181121841%_ + (##vector-ref _g27148_ 0))) + (_%tl2184721877%_ (let () (declare (not safe)) - (##vector-ref _g27112_ 1)))) - (if (gx#stx-null? _%tl2181121841%_) - (letrec ((_%loop2181221844%_ - (lambda (_%hd2181021848%_ - _%def-usetf2181621851%_ - _%def-ugetf2181721853%_) + (##vector-ref _g27148_ 1)))) + (if (gx#stx-null? _%tl2184721877%_) + (letrec ((_%loop2184821880%_ + (lambda (_%hd2184621884%_ + _%def-usetf2185221887%_ + _%def-ugetf2185321889%_) (if (gx#stx-pair? - _%hd2181021848%_) - (let ((_%e2181321856%_ + _%hd2184621884%_) + (let ((_%e2184921892%_ (gx#syntax-e - _%hd2181021848%_))) - (let ((_%lp-hd2181421860%_ + _%hd2184621884%_))) + (let ((_%lp-hd2185021896%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2181321856%_))) - (_%lp-tl2181521863%_ + (let () (declare (not safe)) (##car _%e2184921892%_))) + (_%lp-tl2185121899%_ (let () (declare (not safe)) - (##cdr _%e2181321856%_)))) - (if (gx#stx-pair? _%lp-hd2181421860%_) - (let ((_%e2182021866%_ - (gx#syntax-e _%lp-hd2181421860%_))) - (let ((_%hd2182121870%_ + (##cdr _%e2184921892%_)))) + (if (gx#stx-pair? _%lp-hd2185021896%_) + (let ((_%e2185621902%_ + (gx#syntax-e _%lp-hd2185021896%_))) + (let ((_%hd2185721906%_ (let () (declare (not safe)) - (##car _%e2182021866%_))) - (_%tl2182221873%_ + (##car _%e2185621902%_))) + (_%tl2185821909%_ (let () (declare (not safe)) - (##cdr _%e2182021866%_)))) - (if (gx#stx-pair? _%tl2182221873%_) - (let ((_%e2182321876%_ - (gx#syntax-e _%tl2182221873%_))) - (let ((_%hd2182421880%_ + (##cdr _%e2185621902%_)))) + (if (gx#stx-pair? _%tl2185821909%_) + (let ((_%e2185921912%_ + (gx#syntax-e _%tl2185821909%_))) + (let ((_%hd2186021916%_ (let () (declare (not safe)) - (##car _%e2182321876%_))) - (_%tl2182521883%_ + (##car _%e2185921912%_))) + (_%tl2186121919%_ (let () (declare (not safe)) - (##cdr _%e2182321876%_)))) - (if (gx#stx-null? _%tl2182521883%_) - (_%loop2181221844%_ - _%lp-tl2181521863%_ - (cons _%hd2182421880%_ - _%def-usetf2181621851%_) - (cons _%hd2182121870%_ - _%def-ugetf2181721853%_)) - (_%g2180521831%_ _%g2180621835%_)))) - (_%g2180521831%_ _%g2180621835%_)))) - (_%g2180521831%_ _%g2180621835%_)))) - (let ((_%def-usetf2181821886%_ - (reverse _%def-usetf2181621851%_)) - (_%def-ugetf2181921889%_ - (reverse _%def-ugetf2181721853%_))) - ((lambda (_%L21892%_ _%L21894%_) - (_%wrap20991%_ + (##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%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L21630%_ - (cons _%L21686%_ - (cons _%L21658%_ - (foldr (lambda (_%g2191221921%_ - _%g2191321924%_) - (cons _%g2191221921%_ - _%g2191321924%_)) - (foldr (lambda (_%g2191421927%_ + (cons _%L21666%_ + (cons _%L21722%_ + (cons _%L21694%_ + (foldr (lambda (_%g2194821957%_ + _%g2194921960%_) + (cons _%g2194821957%_ + _%g2194921960%_)) + (foldr (lambda (_%g2195021963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2191521930%_) - (cons _%g2191421927%_ _%g2191521930%_)) - (foldr (lambda (_%g2191621933%_ _%g2191721936%_) - (cons _%g2191621933%_ _%g2191721936%_)) - (foldr (lambda (_%g2191821939%_ _%g2191921942%_) - (cons _%g2191821939%_ _%g2191921942%_)) + _%g2195121966%_) + (cons _%g2195021963%_ _%g2195121966%_)) + (foldr (lambda (_%g2195221969%_ _%g2195321972%_) + (cons _%g2195221969%_ _%g2195321972%_)) + (foldr (lambda (_%g2195421975%_ _%g2195521978%_) + (cons _%g2195421975%_ _%g2195521978%_)) '() - _%L21892%_) - _%L21894%_) - _%L21786%_) + _%L21928%_) + _%L21930%_) + _%L21822%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21788%_))))))) - _%def-usetf2181821886%_ - _%def-ugetf2181921889%_)))))) + _%L21824%_))))))) + _%def-usetf2185421922%_ + _%def-ugetf2185521925%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2181221844%_ - _%target2180921838%_ + (_%loop2184821880%_ + _%target2184521874%_ '() '())) - (_%g2180521831%_ _%g2180621835%_))))) - (_%g2180521831%_ _%g2180621835%_))))) - (_%g2180421945%_ + (_%g2184121867%_ _%g2184221871%_))))) + (_%g2184121867%_ _%g2184221871%_))))) + (_%g2184021981%_ (gx#stx-map - (lambda (_%ref21949%_) - (let* ((_%g2195221971%_ - (lambda (_%g2195321967%_) + (lambda (_%ref21985%_) + (let* ((_%g2198822007%_ + (lambda (_%g2198922003%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2195321967%_))) - (_%g2195122093%_ - (lambda (_%g2195321975%_) - (if (gx#stx-pair? _%g2195321975%_) - (let ((_%e2195721978%_ - (gx#syntax-e _%g2195321975%_))) - (let ((_%hd2195821982%_ + _%g2198922003%_))) + (_%g2198722129%_ + (lambda (_%g2198922011%_) + (if (gx#stx-pair? _%g2198922011%_) + (let ((_%e2199322014%_ + (gx#syntax-e _%g2198922011%_))) + (let ((_%hd2199422018%_ (let () (declare (not safe)) - (##car _%e2195721978%_))) - (_%tl2195921985%_ + (##car _%e2199322014%_))) + (_%tl2199522021%_ (let () (declare (not safe)) - (##cdr _%e2195721978%_)))) - (if (gx#stx-pair? _%tl2195921985%_) - (let ((_%e2196021988%_ + (##cdr _%e2199322014%_)))) + (if (gx#stx-pair? _%tl2199522021%_) + (let ((_%e2199622024%_ (gx#syntax-e - _%tl2195921985%_))) - (let ((_%hd2196121992%_ + _%tl2199522021%_))) + (let ((_%hd2199722028%_ (let () (declare (not safe)) - (##car _%e2196021988%_))) - (_%tl2196221995%_ + (##car _%e2199622024%_))) + (_%tl2199822031%_ (let () (declare (not safe)) - (##cdr _%e2196021988%_)))) + (##cdr _%e2199622024%_)))) (if (gx#stx-pair? - _%tl2196221995%_) - (let ((_%e2196321998%_ + _%tl2199822031%_) + (let ((_%e2199922034%_ (gx#syntax-e - _%tl2196221995%_))) - (let ((_%hd2196422002%_ + _%tl2199822031%_))) + (let ((_%hd2200022038%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2196321998%_))) - (_%tl2196522005%_ - (let () (declare (not safe)) (##cdr _%e2196321998%_)))) - (if (gx#stx-null? _%tl2196522005%_) - ((lambda (_%L22008%_ _%L22010%_ _%L22011%_) - (let* ((_%g2202922044%_ - (lambda (_%g2203022040%_) + (##car _%e2199922034%_))) + (_%tl2200122041%_ + (let () (declare (not safe)) (##cdr _%e2199922034%_)))) + (if (gx#stx-null? _%tl2200122041%_) + ((lambda (_%L22044%_ _%L22046%_ _%L22047%_) + (let* ((_%g2206522080%_ + (lambda (_%g2206622076%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2203022040%_))) - (_%g2202822089%_ - (lambda (_%g2203022048%_) - (if (gx#stx-pair? _%g2203022048%_) - (let ((_%e2203322051%_ - (gx#syntax-e _%g2203022048%_))) - (let ((_%hd2203422055%_ + _%g2206622076%_))) + (_%g2206422125%_ + (lambda (_%g2206622084%_) + (if (gx#stx-pair? _%g2206622084%_) + (let ((_%e2206922087%_ + (gx#syntax-e _%g2206622084%_))) + (let ((_%hd2207022091%_ (let () (declare (not safe)) - (##car _%e2203322051%_))) - (_%tl2203522058%_ + (##car _%e2206922087%_))) + (_%tl2207122094%_ (let () (declare (not safe)) - (##cdr _%e2203322051%_)))) - (if (gx#stx-pair? _%tl2203522058%_) - (let ((_%e2203622061%_ + (##cdr _%e2206922087%_)))) + (if (gx#stx-pair? _%tl2207122094%_) + (let ((_%e2207222097%_ (gx#syntax-e - _%tl2203522058%_))) - (let ((_%hd2203722065%_ + _%tl2207122094%_))) + (let ((_%hd2207322101%_ (let () (declare (not safe)) - (##car _%e2203622061%_))) - (_%tl2203822068%_ + (##car _%e2207222097%_))) + (_%tl2207422104%_ (let () (declare (not safe)) - (##cdr _%e2203622061%_)))) + (##cdr _%e2207222097%_)))) (if (gx#stx-null? - _%tl2203822068%_) - ((lambda (_%L22071%_ - _%L22073%_) - (cons (_%wrap20991%_ + _%tl2207422104%_) + ((lambda (_%L22107%_ + _%L22109%_) + (cons (_%wrap21027%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L22073%_ + (cons _%L22109%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21322%_ + (cons _%L21358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22011%_ (cons '#f '())))) + (cons _%L22047%_ (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-slot-unchecked-accessor) - (cons _%L21085%_ + (cons _%L21121%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22011%_ '())) + (cons _%L22047%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap20991%_ + (cons (_%wrap21027%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22071%_ + (cons _%L22107%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -759,129 +759,129 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21322%_ (cons _%L22011%_ (cons '#f '())))) + (cons _%L21358%_ (cons _%L22047%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator) - (cons _%L21085%_ + (cons _%L21121%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22011%_ '())) + (cons _%L22047%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2203722065%_ - _%hd2203422055%_) + _%hd2207322101%_ + _%hd2207022091%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2202922044%_ - _%g2203022048%_)))) - (_%g2202922044%_ - _%g2203022048%_)))) - (_%g2202922044%_ _%g2203022048%_))))) - (_%g2202822089%_ - (list (gx#stx-identifier _%L22010%_ '"&" _%L22010%_) + (_%g2206522080%_ + _%g2206622084%_)))) + (_%g2206522080%_ + _%g2206622084%_)))) + (_%g2206522080%_ _%g2206622084%_))))) + (_%g2206422125%_ + (list (gx#stx-identifier _%L22046%_ '"&" _%L22046%_) (gx#stx-identifier - _%L22008%_ + _%L22044%_ '"&" - _%L22008%_))))) - _%hd2196422002%_ - _%hd2196121992%_ - _%hd2195821982%_) - (_%g2195221971%_ _%g2195321975%_)))) + _%L22044%_))))) + _%hd2200022038%_ + _%hd2199722028%_ + _%hd2199422018%_) + (_%g2198822007%_ _%g2198922011%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2195221971%_ - _%g2195321975%_)))) - (_%g2195221971%_ - _%g2195321975%_)))) - (_%g2195221971%_ _%g2195321975%_))))) - (_%g2195122093%_ _%ref21949%_))) - _%accessible-slots21142%_)))) - _%def-setf2171221780%_ - _%def-getf2171321783%_)))))) + (_%g2198822007%_ + _%g2198922011%_)))) + (_%g2198822007%_ + _%g2198922011%_)))) + (_%g2198822007%_ _%g2198922011%_))))) + (_%g2198722129%_ _%ref21985%_))) + _%accessible-slots21178%_)))) + _%def-setf2174821816%_ + _%def-getf2174921819%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2170621738%_ - _%target2170321732%_ + (_%loop2174221774%_ + _%target2173921768%_ '() '())) - (_%g2169921725%_ _%g2170021729%_))))) - (_%g2169921725%_ _%g2170021729%_))))) + (_%g2173521761%_ _%g2173621765%_))))) + (_%g2173521761%_ _%g2173621765%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2169822097%_ + (_%g2173422133%_ (gx#stx-map - (lambda (_%ref22101%_) - (let* ((_%g2210422123%_ + (lambda (_%ref22137%_) + (let* ((_%g2214022159%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2210522119%_) + (lambda (_%g2214122155%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2210522119%_))) - (_%g2210322181%_ - (lambda (_%g2210522127%_) - (if (gx#stx-pair? _%g2210522127%_) - (let ((_%e2210922130%_ - (gx#syntax-e _%g2210522127%_))) - (let ((_%hd2211022134%_ + _%g2214122155%_))) + (_%g2213922217%_ + (lambda (_%g2214122163%_) + (if (gx#stx-pair? _%g2214122163%_) + (let ((_%e2214522166%_ + (gx#syntax-e _%g2214122163%_))) + (let ((_%hd2214622170%_ (let () (declare (not safe)) - (##car _%e2210922130%_))) - (_%tl2211122137%_ + (##car _%e2214522166%_))) + (_%tl2214722173%_ (let () (declare (not safe)) - (##cdr _%e2210922130%_)))) - (if (gx#stx-pair? _%tl2211122137%_) - (let ((_%e2211222140%_ - (gx#syntax-e _%tl2211122137%_))) - (let ((_%hd2211322144%_ + (##cdr _%e2214522166%_)))) + (if (gx#stx-pair? _%tl2214722173%_) + (let ((_%e2214822176%_ + (gx#syntax-e _%tl2214722173%_))) + (let ((_%hd2214922180%_ (let () (declare (not safe)) - (##car _%e2211222140%_))) - (_%tl2211422147%_ + (##car _%e2214822176%_))) + (_%tl2215022183%_ (let () (declare (not safe)) - (##cdr _%e2211222140%_)))) - (if (gx#stx-pair? _%tl2211422147%_) - (let ((_%e2211522150%_ + (##cdr _%e2214822176%_)))) + (if (gx#stx-pair? _%tl2215022183%_) + (let ((_%e2215122186%_ (gx#syntax-e - _%tl2211422147%_))) - (let ((_%hd2211622154%_ + _%tl2215022183%_))) + (let ((_%hd2215222190%_ (let () (declare (not safe)) - (##car _%e2211522150%_))) - (_%tl2211722157%_ + (##car _%e2215122186%_))) + (_%tl2215322193%_ (let () (declare (not safe)) - (##cdr _%e2211522150%_)))) + (##cdr _%e2215122186%_)))) (if (gx#stx-null? - _%tl2211722157%_) - ((lambda (_%L22160%_ + _%tl2215322193%_) + ((lambda (_%L22196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22162%_ - _%L22163%_) - (cons (_%wrap20991%_ + _%L22198%_ + _%L22199%_) + (cons (_%wrap21027%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22162%_ + (cons _%L22198%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21322%_ + (cons _%L21358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22163%_ (cons '#t '())))) + (cons _%L22199%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-accessor) - (cons _%L21085%_ + (cons _%L21121%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22163%_ '())) + (cons _%L22199%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap20991%_ + (cons (_%wrap21027%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22160%_ + (cons _%L22196%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -889,57 +889,57 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21322%_ (cons _%L22163%_ (cons '#t '())))) + (cons _%L21358%_ (cons _%L22199%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-mutator) - (cons _%L21085%_ + (cons _%L21121%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22163%_ '())) + (cons _%L22199%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2211622154%_ - _%hd2211322144%_ - _%hd2211022134%_) - (_%g2210422123%_ _%g2210522127%_)))) + _%hd2215222190%_ + _%hd2214922180%_ + _%hd2214622170%_) + (_%g2214022159%_ _%g2214122163%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2210422123%_ - _%g2210522127%_)))) - (_%g2210422123%_ _%g2210522127%_)))) - (_%g2210422123%_ _%g2210522127%_))))) - (_%g2210322181%_ _%ref22101%_))) - _%accessible-slots21142%_)))) + (_%g2214022159%_ + _%g2214122163%_)))) + (_%g2214022159%_ _%g2214122163%_)))) + (_%g2214022159%_ _%g2214122163%_))))) + (_%g2213922217%_ _%ref22137%_))) + _%accessible-slots21178%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2167221683%_)))) - (_%g2167022185%_ - (_%wrap20991%_ + _%g2170821719%_)))) + (_%g2170622221%_ + (_%wrap21027%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21082%_ + (cons _%L21118%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L21322%_ '())) + (cons _%L21358%_ '())) (cons (cons (gx#datum->syntax '#f 'make-class-predicate) - (cons _%L21085%_ '())) + (cons _%L21121%_ '())) '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2164421655%_)))) - (_%g2164222189%_ - (if (gx#stx-false? _%L21083%_) + _%g2168021691%_)))) + (_%g2167822225%_ + (if (gx#stx-false? _%L21119%_) (cons (gx#datum->syntax '#f 'begin) '()) - (_%wrap20991%_ + (_%wrap21027%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21083%_ + (cons _%L21119%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -947,7 +947,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.constructor) - (cons _%L21322%_ '())) + (cons _%L21358%_ '())) (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 _%L21085%_ + (cons _%L21121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$args) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -964,93 +964,93 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))))) - _%g2161621627%_)))) - (_%g2161422193%_ - (_%wrap20991%_ + _%g2165221663%_)))) + (_%g2165022229%_ + (_%wrap21027%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21085%_ + (cons _%L21121%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.class) - (cons _%L21238%_ - (cons _%L21350%_ - (cons (foldr (lambda (_%g2219622199%_ + (cons _%L21274%_ + (cons _%L21386%_ + (cons (foldr (lambda (_%g2223222235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2219722202%_) - (cons _%g2219622199%_ _%g2219722202%_)) + _%g2223322238%_) + (cons _%g2223222235%_ _%g2223322238%_)) '() - _%L21202%_) - (cons _%L21294%_ - (cons _%L21378%_ - (cons _%L21406%_ - (cons _%L21434%_ '())))))))) + _%L21238%_) + (cons _%L21330%_ + (cons _%L21414%_ + (cons _%L21442%_ + (cons _%L21470%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L21602%_ '()))) + (cons _%L21638%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2158821599%_)))) - (_%g2158622205%_ + _%g2162421635%_)))) + (_%g2162222241%_ (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21238%_ + (cons _%L21274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21266%_ '())) - (cons _%L21574%_ + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21302%_ '())) + (cons _%L21610%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2220822211%_ - _%g2220922214%_) - (cons _%g2220822211%_ - _%g2220922214%_)) + (cons (foldr (lambda (_%g2224422247%_ + _%g2224522250%_) + (cons _%g2224422247%_ + _%g2224522250%_)) '() - _%L21202%_) + _%L21238%_) '())) - (cons _%L21546%_ + (cons _%L21582%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21294%_ '())) + (cons _%L21330%_ '())) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2156021571%_)))) - (_%g2155822217%_ - (cons (gx#datum->syntax '#f 'list) _%L21084%_)))) - _%g2153221543%_)))) - (_%g2153022221%_ - (if (gx#stx-e _%metaclass21145%_) - (let* ((_%g2222522233%_ - (lambda (_%g2222622229%_) + _%g2159621607%_)))) + (_%g2159422253%_ + (cons (gx#datum->syntax '#f 'list) _%L21120%_)))) + _%g2156821579%_)))) + (_%g2156622257%_ + (if (gx#stx-e _%metaclass21181%_) + (let* ((_%g2226122269%_ + (lambda (_%g2226222265%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2222622229%_))) - (_%g2222422252%_ - (lambda (_%g2222622237%_) - ((lambda (_%L22240%_) + _%g2226222265%_))) + (_%g2226022288%_ + (lambda (_%g2226222273%_) + ((lambda (_%L22276%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'metaclass: (cons ':: - (cons _%L22240%_ + (cons _%L22276%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons ':: - (cons _%L21518%_ '()))))) - _%g2222622237%_)))) - (_%g2222422252%_ _%metaclass21145%_)) - _%L21518%_)))) + (cons _%L21554%_ '()))))) + _%g2226222273%_)))) + (_%g2226022288%_ _%metaclass21181%_)) + _%L21554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2150421515%_)))) - (_%g2150222256%_ - (if _%struct?21125%_ + _%g2154021551%_)))) + (_%g2153822292%_ + (if _%struct?21161%_ (cons (gx#datum->syntax '#f '@list) @@ -1059,94 +1059,94 @@ '#f '@list) (cons 'struct: '#t)) - (cons ':: (cons _%L21490%_ '())))) + (cons ':: (cons _%L21526%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21490%_)))) - _%g2147621487%_)))) - (_%g2147422260%_ - (if (gx#stx-e _%L21406%_) + _%L21526%_)))) + _%g2151221523%_)))) + (_%g2151022296%_ + (if (gx#stx-e _%L21442%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'final: '#t)) (cons ':: - (cons _%L21462%_ '())))) - _%L21462%_)))) - _%g2144821459%_)))) - (_%g2144622264%_ - (let ((_%$e22268%_ (gx#stx-getq 'properties: _%L21080%_))) - (if _%$e22268%_ - _%$e22268%_ + (cons _%L21498%_ '())))) + _%L21498%_)))) + _%g2148421495%_)))) + (_%g2148222300%_ + (let ((_%$e22304%_ (gx#stx-getq 'properties: _%L21116%_))) + (if _%$e22304%_ + _%$e22304%_ (cons (gx#datum->syntax '#f '@list) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2142021431%_)))) - (_%g2141822272%_ - (if (gx#stx-e _%metaclass21145%_) + _%g2145621467%_)))) + (_%g2145422308%_ + (if (gx#stx-e _%metaclass21181%_) (gx#core-quote-syntax - _%metaclass21145%_) + _%metaclass21181%_) '#f)))) - _%g2139221403%_)))) - (_%g2139022276%_ - (gx#stx-getq 'final: _%L21080%_)))) - _%g2136421375%_)))) - (_%g2136222280%_ _%struct?21125%_))) + _%g2142821439%_)))) + (_%g2142622312%_ + (gx#stx-getq 'final: _%L21116%_)))) + _%g2140021411%_)))) + (_%g2139822316%_ _%struct?21161%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2133621347%_)))) - (_%g2133422284%_ + _%g2137221383%_)))) + (_%g2137022320%_ (gx#stx-map gx#core-quote-syntax - _%L21084%_)))) - _%g2130821319%_)))) - (_%g2130622288%_ - (gx#core-quote-syntax _%L21085%_)))) - _%g2128021291%_)))) - (_%g2127822292%_ (gx#stx-getq 'constructor: _%L21080%_)))) - _%g2125221263%_)))) + _%L21120%_)))) + _%g2134421355%_)))) + (_%g2134222324%_ + (gx#core-quote-syntax _%L21121%_)))) + _%g2131621327%_)))) + (_%g2131422328%_ (gx#stx-getq 'constructor: _%L21116%_)))) + _%g2128821299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2125022296%_ - (let ((_%$e22300%_ + (_%g2128622332%_ + (let ((_%$e22336%_ (gx#stx-getq 'name: - _%L21080%_))) - (if _%$e22300%_ - _%$e22300%_ - _%L21085%_))))) - _%g2122421235%_)))) - (_%g2122222304%_ - (let ((_%$e22308%_ - (gx#stx-getq 'id: _%L21080%_))) - (if _%$e22308%_ - _%$e22308%_ + _%L21116%_))) + (if _%$e22336%_ + _%$e22336%_ + _%L21121%_))))) + _%g2126021271%_)))) + (_%g2125822340%_ + (let ((_%$e22344%_ + (gx#stx-getq 'id: _%L21116%_))) + (if _%$e22344%_ + _%$e22344%_ (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L21085%_)))))) - _%slot2115921198%_)))))) + _%L21121%_)))))) + _%slot2119521234%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2115421178%_ - _%target2115121172%_ + (_%loop2119021214%_ + _%target2118721208%_ '())) - (_%g2114821165%_ - _%g2114921169%_))))) - (_%g2114821165%_ _%g2114921169%_))))) - (_%g2114722312%_ - (gx#stx-map _%slot-name20993%_ _%slots21132%_))) - (_%g2099621023%_ _%g2099721027%_))) - _%tl2101721077%_ - _%hd2101621074%_ - _%hd2101321064%_ - _%hd2101021054%_ - _%hd2100721044%_))) - (_%g2099621023%_ _%g2099721027%_)))) + (_%g2118421201%_ + _%g2118521205%_))))) + (_%g2118421201%_ _%g2118521205%_))))) + (_%g2118322348%_ + (gx#stx-map _%slot-name21029%_ _%slots21168%_))) + (_%g2103221059%_ _%g2103321063%_))) + _%tl2105321113%_ + _%hd2105221110%_ + _%hd2104921100%_ + _%hd2104621090%_ + _%hd2104321080%_))) + (_%g2103221059%_ _%g2103321063%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2099621023%_ - _%g2099721027%_)))) - (_%g2099621023%_ _%g2099721027%_)))) - (_%g2099621023%_ _%g2099721027%_)))) - (_%g2099621023%_ _%g2099721027%_))))) - (_%g2099522316%_ _%stx20987%_))))) + (_%g2103221059%_ + _%g2103321063%_)))) + (_%g2103221059%_ _%g2103321063%_)))) + (_%g2103221059%_ _%g2103321063%_)))) + (_%g2103221059%_ _%g2103321063%_))))) + (_%g2103122352%_ _%stx21023%_))))) (define |gerbil/core/mop~MOP-1[:0:]#defstruct-type| - (lambda (_%stx22430%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22430%_ '#t))) + (lambda (_%stx22466%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22466%_ '#t))) (define |gerbil/core/mop~MOP-1[:0:]#defclass-type| - (lambda (_%stx22433%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22433%_ '#f)))) + (lambda (_%stx22469%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22469%_ '#f)))) diff --git a/src/bootstrap/gerbil/core/mop~2.scm b/src/bootstrap/gerbil/core/mop~2.scm index c392809b8..818e6a5fc 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]#_g27115_| + (define |gerbil/core/mop~MOP-3[1]#_g27151_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27117_| + (define |gerbil/core/mop~MOP-3[1]#_g27153_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27119_| + (define |gerbil/core/mop~MOP-3[1]#_g27155_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27121_| + (define |gerbil/core/mop~MOP-3[1]#_g27157_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27122_| + (define |gerbil/core/mop~MOP-3[1]#_g27158_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27123_| + (define |gerbil/core/mop~MOP-3[1]#_g27159_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27124_| + (define |gerbil/core/mop~MOP-3[1]#_g27160_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27125_| + (define |gerbil/core/mop~MOP-3[1]#_g27161_| (##structure gx#syntax-quote::t '!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27126_| + (define |gerbil/core/mop~MOP-3[1]#_g27162_| (##structure gx#syntax-quote::t '!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27127_| + (define |gerbil/core/mop~MOP-3[1]#_g27163_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27128_| + (define |gerbil/core/mop~MOP-3[1]#_g27164_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27129_| + (define |gerbil/core/mop~MOP-3[1]#_g27165_| (##structure gx#syntax-quote::t '!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27130_| + (define |gerbil/core/mop~MOP-3[1]#_g27166_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27131_| + (define |gerbil/core/mop~MOP-3[1]#_g27167_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27132_| + (define |gerbil/core/mop~MOP-3[1]#_g27168_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27133_| + (define |gerbil/core/mop~MOP-3[1]#_g27169_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27134_| + (define |gerbil/core/mop~MOP-3[1]#_g27170_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27135_| + (define |gerbil/core/mop~MOP-3[1]#_g27171_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27136_| + (define |gerbil/core/mop~MOP-3[1]#_g27172_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27137_| + (define |gerbil/core/mop~MOP-3[1]#_g27173_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27138_| + (define |gerbil/core/mop~MOP-3[1]#_g27174_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27139_| + (define |gerbil/core/mop~MOP-3[1]#_g27175_| (##structure gx#syntax-quote::t '!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27140_| + (define |gerbil/core/mop~MOP-3[1]#_g27176_| (##structure gx#syntax-quote::t '!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27141_| + (define |gerbil/core/mop~MOP-3[1]#_g27177_| (##structure gx#syntax-quote::t '!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27143_| + (define |gerbil/core/mop~MOP-3[1]#_g27179_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27144_| + (define |gerbil/core/mop~MOP-3[1]#_g27180_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27145_| + (define |gerbil/core/mop~MOP-3[1]#_g27181_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27146_| + (define |gerbil/core/mop~MOP-3[1]#_g27182_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27147_| + (define |gerbil/core/mop~MOP-3[1]#_g27183_| (##structure gx#syntax-quote::t '!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27148_| + (define |gerbil/core/mop~MOP-3[1]#_g27184_| (##structure gx#syntax-quote::t '!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27149_| + (define |gerbil/core/mop~MOP-3[1]#_g27185_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27150_| + (define |gerbil/core/mop~MOP-3[1]#_g27186_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27151_| + (define |gerbil/core/mop~MOP-3[1]#_g27187_| (##structure gx#syntax-quote::t '!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27152_| + (define |gerbil/core/mop~MOP-3[1]#_g27188_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27153_| + (define |gerbil/core/mop~MOP-3[1]#_g27189_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27154_| + (define |gerbil/core/mop~MOP-3[1]#_g27190_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27155_| + (define |gerbil/core/mop~MOP-3[1]#_g27191_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27156_| + (define |gerbil/core/mop~MOP-3[1]#_g27192_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27157_| + (define |gerbil/core/mop~MOP-3[1]#_g27193_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27158_| + (define |gerbil/core/mop~MOP-3[1]#_g27194_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27159_| + (define |gerbil/core/mop~MOP-3[1]#_g27195_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27160_| + (define |gerbil/core/mop~MOP-3[1]#_g27196_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27161_| + (define |gerbil/core/mop~MOP-3[1]#_g27197_| (##structure gx#syntax-quote::t '!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27162_| + (define |gerbil/core/mop~MOP-3[1]#_g27198_| (##structure gx#syntax-quote::t '!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27163_| + (define |gerbil/core/mop~MOP-3[1]#_g27199_| (##structure gx#syntax-quote::t '!class-type-slot-contracts-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27165_| + (define |gerbil/core/mop~MOP-3[1]#_g27201_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27166_| + (define |gerbil/core/mop~MOP-3[1]#_g27202_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27167_| + (define |gerbil/core/mop~MOP-3[1]#_g27203_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27168_| + (define |gerbil/core/mop~MOP-3[1]#_g27204_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27169_| + (define |gerbil/core/mop~MOP-3[1]#_g27205_| (##structure gx#syntax-quote::t '&!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27170_| + (define |gerbil/core/mop~MOP-3[1]#_g27206_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27171_| + (define |gerbil/core/mop~MOP-3[1]#_g27207_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27172_| + (define |gerbil/core/mop~MOP-3[1]#_g27208_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27173_| + (define |gerbil/core/mop~MOP-3[1]#_g27209_| (##structure gx#syntax-quote::t '&!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27174_| + (define |gerbil/core/mop~MOP-3[1]#_g27210_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27175_| + (define |gerbil/core/mop~MOP-3[1]#_g27211_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27176_| + (define |gerbil/core/mop~MOP-3[1]#_g27212_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27177_| + (define |gerbil/core/mop~MOP-3[1]#_g27213_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27178_| + (define |gerbil/core/mop~MOP-3[1]#_g27214_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27179_| + (define |gerbil/core/mop~MOP-3[1]#_g27215_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27180_| + (define |gerbil/core/mop~MOP-3[1]#_g27216_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27181_| + (define |gerbil/core/mop~MOP-3[1]#_g27217_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27182_| + (define |gerbil/core/mop~MOP-3[1]#_g27218_| (##structure gx#syntax-quote::t '&!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27183_| + (define |gerbil/core/mop~MOP-3[1]#_g27219_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27184_| + (define |gerbil/core/mop~MOP-3[1]#_g27220_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27186_| + (define |gerbil/core/mop~MOP-3[1]#_g27222_| (##structure gx#syntax-quote::t '&!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27187_| + (define |gerbil/core/mop~MOP-3[1]#_g27223_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27188_| + (define |gerbil/core/mop~MOP-3[1]#_g27224_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27189_| + (define |gerbil/core/mop~MOP-3[1]#_g27225_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27190_| + (define |gerbil/core/mop~MOP-3[1]#_g27226_| (##structure gx#syntax-quote::t '&!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27191_| + (define |gerbil/core/mop~MOP-3[1]#_g27227_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27192_| + (define |gerbil/core/mop~MOP-3[1]#_g27228_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27193_| + (define |gerbil/core/mop~MOP-3[1]#_g27229_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27194_| + (define |gerbil/core/mop~MOP-3[1]#_g27230_| (##structure gx#syntax-quote::t '&!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27195_| + (define |gerbil/core/mop~MOP-3[1]#_g27231_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27196_| + (define |gerbil/core/mop~MOP-3[1]#_g27232_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27197_| + (define |gerbil/core/mop~MOP-3[1]#_g27233_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27198_| + (define |gerbil/core/mop~MOP-3[1]#_g27234_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27199_| + (define |gerbil/core/mop~MOP-3[1]#_g27235_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27200_| + (define |gerbil/core/mop~MOP-3[1]#_g27236_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27201_| + (define |gerbil/core/mop~MOP-3[1]#_g27237_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27202_| + (define |gerbil/core/mop~MOP-3[1]#_g27238_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27203_| + (define |gerbil/core/mop~MOP-3[1]#_g27239_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27204_| + (define |gerbil/core/mop~MOP-3[1]#_g27240_| (##structure gx#syntax-quote::t '&!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27205_| + (define |gerbil/core/mop~MOP-3[1]#_g27241_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27206_| + (define |gerbil/core/mop~MOP-3[1]#_g27242_| (##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 ((__obj27023 + (let ((__obj27059 (let () (declare (not safe)) (##structure @@ -632,21 +632,21 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27023 + __obj27059 'gerbil.core#class-type-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 'class-type-info '2 '#f '#f)) + (##unchecked-structure-set! __obj27059 'class-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27059 '() '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27023 + __obj27059 '(id name super slots @@ -672,219 +672,219 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27059 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27059 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '9 '#f '#f)) + (##unchecked-structure-set! __obj27059 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '11 '#f '#f)) - (let ((__tmp27114 |gerbil/core/mop~MOP-3[1]#_g27115_|)) + (##unchecked-structure-set! __obj27059 '#f '11 '#f '#f)) + (let ((__tmp27150 |gerbil/core/mop~MOP-3[1]#_g27151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27114 '12 '#f '#f)) - (let ((__tmp27116 |gerbil/core/mop~MOP-3[1]#_g27117_|)) + (##unchecked-structure-set! __obj27059 __tmp27150 '12 '#f '#f)) + (let ((__tmp27152 |gerbil/core/mop~MOP-3[1]#_g27153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27116 '13 '#f '#f)) - (let ((__tmp27118 |gerbil/core/mop~MOP-3[1]#_g27119_|)) + (##unchecked-structure-set! __obj27059 __tmp27152 '13 '#f '#f)) + (let ((__tmp27154 |gerbil/core/mop~MOP-3[1]#_g27155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27118 '14 '#f '#f)) - (let ((__tmp27120 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27121_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27122_|) + (##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_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27123_|) + |gerbil/core/mop~MOP-3[1]#_g27159_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27124_|) + |gerbil/core/mop~MOP-3[1]#_g27160_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27125_|) + |gerbil/core/mop~MOP-3[1]#_g27161_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27126_|) + |gerbil/core/mop~MOP-3[1]#_g27162_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27127_|) + |gerbil/core/mop~MOP-3[1]#_g27163_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27128_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27129_|) + |gerbil/core/mop~MOP-3[1]#_g27164_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27165_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27130_|) + |gerbil/core/mop~MOP-3[1]#_g27166_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27131_|) + |gerbil/core/mop~MOP-3[1]#_g27167_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27132_|) + |gerbil/core/mop~MOP-3[1]#_g27168_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27133_|) + |gerbil/core/mop~MOP-3[1]#_g27169_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27134_|) + |gerbil/core/mop~MOP-3[1]#_g27170_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27135_|) + |gerbil/core/mop~MOP-3[1]#_g27171_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27136_|) + |gerbil/core/mop~MOP-3[1]#_g27172_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27137_|) + |gerbil/core/mop~MOP-3[1]#_g27173_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27138_|) + |gerbil/core/mop~MOP-3[1]#_g27174_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27139_|) + |gerbil/core/mop~MOP-3[1]#_g27175_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27140_|) + |gerbil/core/mop~MOP-3[1]#_g27176_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27141_|) + |gerbil/core/mop~MOP-3[1]#_g27177_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27120 '15 '#f '#f)) - (let ((__tmp27142 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27143_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27144_|) + (##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_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27145_|) + |gerbil/core/mop~MOP-3[1]#_g27181_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27146_|) + |gerbil/core/mop~MOP-3[1]#_g27182_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27147_|) + |gerbil/core/mop~MOP-3[1]#_g27183_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27148_|) + |gerbil/core/mop~MOP-3[1]#_g27184_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27149_|) + |gerbil/core/mop~MOP-3[1]#_g27185_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27150_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27151_|) + |gerbil/core/mop~MOP-3[1]#_g27186_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27187_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27152_|) + |gerbil/core/mop~MOP-3[1]#_g27188_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27153_|) + |gerbil/core/mop~MOP-3[1]#_g27189_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27154_|) + |gerbil/core/mop~MOP-3[1]#_g27190_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27155_|) + |gerbil/core/mop~MOP-3[1]#_g27191_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27156_|) + |gerbil/core/mop~MOP-3[1]#_g27192_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27157_|) + |gerbil/core/mop~MOP-3[1]#_g27193_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27158_|) + |gerbil/core/mop~MOP-3[1]#_g27194_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27159_|) + |gerbil/core/mop~MOP-3[1]#_g27195_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27160_|) + |gerbil/core/mop~MOP-3[1]#_g27196_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27161_|) + |gerbil/core/mop~MOP-3[1]#_g27197_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27162_|) + |gerbil/core/mop~MOP-3[1]#_g27198_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27163_|) + |gerbil/core/mop~MOP-3[1]#_g27199_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27142 '16 '#f '#f)) - (let ((__tmp27164 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27165_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27166_|) + (##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_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27167_|) + |gerbil/core/mop~MOP-3[1]#_g27203_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27168_|) + |gerbil/core/mop~MOP-3[1]#_g27204_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27169_|) + |gerbil/core/mop~MOP-3[1]#_g27205_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27170_|) + |gerbil/core/mop~MOP-3[1]#_g27206_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27171_|) + |gerbil/core/mop~MOP-3[1]#_g27207_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27172_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27173_|) + |gerbil/core/mop~MOP-3[1]#_g27208_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27209_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27130_|) + |gerbil/core/mop~MOP-3[1]#_g27166_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27174_|) + |gerbil/core/mop~MOP-3[1]#_g27210_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27175_|) + |gerbil/core/mop~MOP-3[1]#_g27211_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27176_|) + |gerbil/core/mop~MOP-3[1]#_g27212_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27177_|) + |gerbil/core/mop~MOP-3[1]#_g27213_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27178_|) + |gerbil/core/mop~MOP-3[1]#_g27214_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27179_|) + |gerbil/core/mop~MOP-3[1]#_g27215_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27180_|) + |gerbil/core/mop~MOP-3[1]#_g27216_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27181_|) + |gerbil/core/mop~MOP-3[1]#_g27217_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27182_|) + |gerbil/core/mop~MOP-3[1]#_g27218_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27183_|) + |gerbil/core/mop~MOP-3[1]#_g27219_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27184_|) + |gerbil/core/mop~MOP-3[1]#_g27220_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27164 '17 '#f '#f)) - (let ((__tmp27185 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27186_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27187_|) + (##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_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27188_|) + |gerbil/core/mop~MOP-3[1]#_g27224_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27189_|) + |gerbil/core/mop~MOP-3[1]#_g27225_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27190_|) + |gerbil/core/mop~MOP-3[1]#_g27226_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27191_|) + |gerbil/core/mop~MOP-3[1]#_g27227_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27192_|) + |gerbil/core/mop~MOP-3[1]#_g27228_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27193_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27194_|) + |gerbil/core/mop~MOP-3[1]#_g27229_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27230_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27195_|) + |gerbil/core/mop~MOP-3[1]#_g27231_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27196_|) + |gerbil/core/mop~MOP-3[1]#_g27232_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27197_|) + |gerbil/core/mop~MOP-3[1]#_g27233_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27198_|) + |gerbil/core/mop~MOP-3[1]#_g27234_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27199_|) + |gerbil/core/mop~MOP-3[1]#_g27235_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27200_|) + |gerbil/core/mop~MOP-3[1]#_g27236_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27201_|) + |gerbil/core/mop~MOP-3[1]#_g27237_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27202_|) + |gerbil/core/mop~MOP-3[1]#_g27238_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27203_|) + |gerbil/core/mop~MOP-3[1]#_g27239_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27204_|) + |gerbil/core/mop~MOP-3[1]#_g27240_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27205_|) + |gerbil/core/mop~MOP-3[1]#_g27241_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27206_|) + |gerbil/core/mop~MOP-3[1]#_g27242_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27185 '18 '#f '#f)) - __obj27023))) + (##unchecked-structure-set! __obj27059 __tmp27221 '18 '#f '#f)) + __obj27059))) diff --git a/src/bootstrap/gerbil/core/mop~3.scm b/src/bootstrap/gerbil/core/mop~3.scm index 1cebf271e..a38cf5add 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]#_g27235_| + (define |gerbil/core/mop~MOP-4[1]#_g27271_| (##structure gx#syntax-quote::t '@method @@ -9,12 +9,12 @@ '())) (begin (define |gerbil/core/mop~MOP-4[1]#typedef-body?| - (lambda (_%stx24789%_) - (letrec ((_%body-opt?24792%_ - (lambda (_%key24795%_) - (let ((__tmp27207 (gx#stx-e _%key24795%_))) + (lambda (_%stx24825%_) + (letrec ((_%body-opt?24828%_ + (lambda (_%key24831%_) + (let ((__tmp27243 (gx#stx-e _%key24831%_))) (declare (not safe)) - (##memq __tmp27207 + (##memq __tmp27243 '(id: struct: name: @@ -24,1191 +24,1191 @@ print: equal: metaclass:)))))) - (gx#stx-plist? _%stx24789%_ _%body-opt?24792%_)))) + (gx#stx-plist? _%stx24825%_ _%body-opt?24828%_)))) (define |gerbil/core/mop~MOP-4[1]#generate-defclass| - (lambda (_%stx22555%_ - _%id22557%_ - _%super-ref22558%_ - _%slots22559%_ - _%body22560%_) - (letrec ((_%wrap22562%_ - (lambda (_%e-stx24786%_) + (lambda (_%stx22591%_ + _%id22593%_ + _%super-ref22594%_ + _%slots22595%_ + _%body22596%_) + (letrec ((_%wrap22598%_ + (lambda (_%e-stx24822%_) (gx#stx-wrap-source - _%e-stx24786%_ - (gx#stx-source _%stx22555%_)))) - (_%make-id22564%_ - (lambda _%args24783%_ - (apply gx#stx-identifier _%id22557%_ _%args24783%_))) - (_%get-mixin-slots22565%_ - (lambda (_%super24753%_ _%slots24755%_) - (letrec* ((_%tab24757%_ (make-hash-table-eq)) - (_%dedup24759%_ - (lambda (_%mixins24770%_) - (let _%lp24773%_ ((_%rest24776%_ - _%mixins24770%_) - (_%r24778%_ '())) - (if (pair? _%rest24776%_) - (let ((_%slot24780%_ + _%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%_ (let () (declare (not safe)) - (##car _%rest24776%_)))) + (##car _%rest24812%_)))) (if (hash-get - _%tab24757%_ - _%slot24780%_) - (_%lp24773%_ + _%tab24793%_ + _%slot24816%_) + (_%lp24809%_ (let () (declare (not safe)) - (##cdr _%rest24776%_)) - _%r24778%_) + (##cdr _%rest24812%_)) + _%r24814%_) (begin (hash-put! - _%tab24757%_ - _%slot24780%_ + _%tab24793%_ + _%slot24816%_ '#t) - (_%lp24773%_ + (_%lp24809%_ (let () (declare (not safe)) - (##cdr _%rest24776%_)) - (cons _%slot24780%_ - _%r24778%_))))) - (reverse _%r24778%_)))))) + (##cdr _%rest24812%_)) + (cons _%slot24816%_ + _%r24814%_))))) + (reverse _%r24814%_)))))) (gx#stx-for-each - (lambda (_%slot24761%_) - (hash-put! _%tab24757%_ (gx#stx-e _%slot24761%_) '#t)) - _%slots24755%_) - (if (not _%super24753%_) + (lambda (_%slot24797%_) + (hash-put! _%tab24793%_ (gx#stx-e _%slot24797%_) '#t)) + _%slots24791%_) + (if (not _%super24789%_) '() - (if (gx#identifier? _%super24753%_) - (_%dedup24759%_ - (_%get-mixin-slots-r22566%_ _%super24753%_)) - (_%dedup24759%_ + (if (gx#identifier? _%super24789%_) + (_%dedup24795%_ + (_%get-mixin-slots-r22602%_ _%super24789%_)) + (_%dedup24795%_ (concatenate - (map _%get-mixin-slots-r22566%_ - _%super24753%_)))))))) - (_%get-mixin-slots-r22566%_ - (lambda (_%type-id24747%_) - (let ((_%info24750%_ - (gx#syntax-local-value _%type-id24747%_))) - (let ((__tmp27209 - (let ((__obj27024 _%info24750%_)) + (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%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27024 + __obj27060 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27024 + __obj27060 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27024 + __obj27060 'slots)))) - (__tmp27208 + (__tmp27244 (concatenate - (map _%get-mixin-slots-r22566%_ - (let ((__obj27025 _%info24750%_)) + (map _%get-mixin-slots-r22602%_ + (let ((__obj27061 _%info24786%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27025 + __obj27061 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27025 + __obj27061 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27025 + __obj27061 'super))))))) (declare (not safe)) - (##append __tmp27209 __tmp27208)))))) - (gx#check-duplicate-identifiers _%slots22559%_ _%stx22555%_) - (let* ((_%name22568%_ (symbol->string (gx#stx-e _%id22557%_))) - (_%super22571%_ - (map gx#syntax-local-value _%super-ref22558%_)) - (_%struct?22574%_ (gx#stx-getq 'struct: _%body22560%_)) - (_%g2257722585%_ - (lambda (_%g2257822581%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2257822581%_))) - (_%g2257624743%_ - (lambda (_%g2257822589%_) - ((lambda (_%L22592%_) - (let* ((_%g2260822616%_ - (lambda (_%g2260922612%_) + _%g2261422617%_))) + (_%g2261224779%_ + (lambda (_%g2261422625%_) + ((lambda (_%L22628%_) + (let* ((_%g2264422652%_ + (lambda (_%g2264522648%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2260922612%_))) - (_%g2260724739%_ - (lambda (_%g2260922620%_) - ((lambda (_%L22623%_) - (let* ((_%g2263622644%_ - (lambda (_%g2263722640%_) + _%g2264522648%_))) + (_%g2264324775%_ + (lambda (_%g2264522656%_) + ((lambda (_%L22659%_) + (let* ((_%g2267222680%_ + (lambda (_%g2267322676%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2263722640%_))) - (_%g2263524735%_ - (lambda (_%g2263722648%_) - ((lambda (_%L22651%_) - (let* ((_%g2266422672%_ - (lambda (_%g2266522668%_) + _%g2267322676%_))) + (_%g2267124771%_ + (lambda (_%g2267322684%_) + ((lambda (_%L22687%_) + (let* ((_%g2270022708%_ + (lambda (_%g2270122704%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2266522668%_))) - (_%g2266324731%_ - (lambda (_%g2266522676%_) - ((lambda (_%L22679%_) - (let* ((_%g2269222700%_ + _%g2270122704%_))) + (_%g2269924767%_ + (lambda (_%g2270122712%_) + ((lambda (_%L22715%_) + (let* ((_%g2272822736%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2269322696%_) + (lambda (_%g2272922732%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2269322696%_))) - (_%g2269124727%_ - (lambda (_%g2269322704%_) - ((lambda (_%L22707%_) - (let* ((_%g2272022737%_ - (lambda (_%g2272122733%_) + _%g2272922732%_))) + (_%g2272724763%_ + (lambda (_%g2272922740%_) + ((lambda (_%L22743%_) + (let* ((_%g2275622773%_ + (lambda (_%g2275722769%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2272122733%_))) - (_%g2271924723%_ - (lambda (_%g2272122741%_) + _%g2275722769%_))) + (_%g2275524759%_ + (lambda (_%g2275722777%_) (if (gx#stx-pair/null? - _%g2272122741%_) - (let ((_g27210_ + _%g2275722777%_) + (let ((_g27246_ (gx#syntax-split-splice - _%g2272122741%_ + _%g2275722777%_ '0))) (begin - (let ((_g27211_ + (let ((_g27247_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27210_) - (##vector-length _g27210_) + _g27246_) + (##vector-length _g27246_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27211_ 2))) - (error "Context expects 2 values" _g27211_))) + (if (not (let () (declare (not safe)) (##fx= _g27247_ 2))) + (error "Context expects 2 values" _g27247_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2272322744%_ + (let ((_%target2275922780%_ (let () (declare (not safe)) (##vector-ref - _g27210_ + _g27246_ 0))) - (_%tl2272522747%_ + (_%tl2276122783%_ (let () (declare (not safe)) (##vector-ref - _g27210_ + _g27246_ 1)))) (if (gx#stx-null? - _%tl2272522747%_) - (letrec ((_%loop2272622750%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2272422754%_ _%slot2273022757%_) - (if (gx#stx-pair? _%hd2272422754%_) - (let ((_%e2272722760%_ - (gx#syntax-e _%hd2272422754%_))) - (let ((_%lp-hd2272822764%_ + _%tl2276122783%_) + (letrec ((_%loop2276222786%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2276022790%_ _%slot2276622793%_) + (if (gx#stx-pair? _%hd2276022790%_) + (let ((_%e2276322796%_ + (gx#syntax-e _%hd2276022790%_))) + (let ((_%lp-hd2276422800%_ (let () (declare (not safe)) - (##car _%e2272722760%_))) - (_%lp-tl2272922767%_ + (##car _%e2276322796%_))) + (_%lp-tl2276522803%_ (let () (declare (not safe)) - (##cdr _%e2272722760%_)))) - (_%loop2272622750%_ - _%lp-tl2272922767%_ - (cons _%lp-hd2272822764%_ - _%slot2273022757%_)))) - (let ((_%slot2273122770%_ - (reverse _%slot2273022757%_))) - ((lambda (_%L22774%_) - (let* ((_%g2279122808%_ - (lambda (_%g2279222804%_) + (##cdr _%e2276322796%_)))) + (_%loop2276222786%_ + _%lp-tl2276522803%_ + (cons _%lp-hd2276422800%_ + _%slot2276622793%_)))) + (let ((_%slot2276722806%_ + (reverse _%slot2276622793%_))) + ((lambda (_%L22810%_) + (let* ((_%g2282722844%_ + (lambda (_%g2282822840%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2279222804%_))) - (_%g2279024714%_ - (lambda (_%g2279222812%_) + _%g2282822840%_))) + (_%g2282624750%_ + (lambda (_%g2282822848%_) (if (gx#stx-pair/null? - _%g2279222812%_) - (let ((_g27212_ + _%g2282822848%_) + (let ((_g27248_ (gx#syntax-split-splice - _%g2279222812%_ + _%g2282822848%_ '0))) (begin - (let ((_g27213_ + (let ((_g27249_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27212_) - (##vector-length _g27212_) + (if (##values? _g27248_) + (##vector-length _g27248_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27213_ 2))) - (error "Context expects 2 values" _g27213_))) - (let ((_%target2279422815%_ + (if (not (let () (declare (not safe)) (##fx= _g27249_ 2))) + (error "Context expects 2 values" _g27249_))) + (let ((_%target2283022851%_ (let () (declare (not safe)) - (##vector-ref _g27212_ 0))) - (_%tl2279622818%_ + (##vector-ref _g27248_ 0))) + (_%tl2283222854%_ (let () (declare (not safe)) - (##vector-ref _g27212_ 1)))) - (if (gx#stx-null? _%tl2279622818%_) - (letrec ((_%loop2279722821%_ - (lambda (_%hd2279522825%_ _%getf2280122828%_) - (if (gx#stx-pair? _%hd2279522825%_) - (let ((_%e2279822831%_ - (gx#syntax-e _%hd2279522825%_))) - (let ((_%lp-hd2279922835%_ + (##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%_ (let () (declare (not safe)) - (##car _%e2279822831%_))) - (_%lp-tl2280022838%_ + (##car _%e2283422867%_))) + (_%lp-tl2283622874%_ (let () (declare (not safe)) - (##cdr _%e2279822831%_)))) - (_%loop2279722821%_ - _%lp-tl2280022838%_ - (cons _%lp-hd2279922835%_ - _%getf2280122828%_)))) - (let ((_%getf2280222841%_ - (reverse _%getf2280122828%_))) - ((lambda (_%L22845%_) - (let* ((_%g2286222879%_ - (lambda (_%g2286322875%_) + (##cdr _%e2283422867%_)))) + (_%loop2283322857%_ + _%lp-tl2283622874%_ + (cons _%lp-hd2283522871%_ + _%getf2283722864%_)))) + (let ((_%getf2283822877%_ + (reverse _%getf2283722864%_))) + ((lambda (_%L22881%_) + (let* ((_%g2289822915%_ + (lambda (_%g2289922911%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2286322875%_))) - (_%g2286124705%_ - (lambda (_%g2286322883%_) + _%g2289922911%_))) + (_%g2289724741%_ + (lambda (_%g2289922919%_) (if (gx#stx-pair/null? - _%g2286322883%_) - (let ((_g27214_ + _%g2289922919%_) + (let ((_g27250_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2286322883%_ '0))) + (gx#syntax-split-splice _%g2289922919%_ '0))) (begin - (let ((_g27215_ + (let ((_g27251_ (let () (declare (not safe)) - (if (##values? _g27214_) - (##vector-length _g27214_) + (if (##values? _g27250_) + (##vector-length _g27250_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27215_ 2))) - (error "Context expects 2 values" _g27215_))) - (let ((_%target2286522886%_ + (##fx= _g27251_ 2))) + (error "Context expects 2 values" _g27251_))) + (let ((_%target2290122922%_ (let () (declare (not safe)) - (##vector-ref _g27214_ 0))) - (_%tl2286722889%_ + (##vector-ref _g27250_ 0))) + (_%tl2290322925%_ (let () (declare (not safe)) - (##vector-ref _g27214_ 1)))) - (if (gx#stx-null? _%tl2286722889%_) - (letrec ((_%loop2286822892%_ - (lambda (_%hd2286622896%_ - _%setf2287222899%_) - (if (gx#stx-pair? _%hd2286622896%_) - (let ((_%e2286922902%_ + (##vector-ref _g27250_ 1)))) + (if (gx#stx-null? _%tl2290322925%_) + (letrec ((_%loop2290422928%_ + (lambda (_%hd2290222932%_ + _%setf2290822935%_) + (if (gx#stx-pair? _%hd2290222932%_) + (let ((_%e2290522938%_ (gx#syntax-e - _%hd2286622896%_))) - (let ((_%lp-hd2287022906%_ + _%hd2290222932%_))) + (let ((_%lp-hd2290622942%_ (let () (declare (not safe)) - (##car _%e2286922902%_))) - (_%lp-tl2287122909%_ + (##car _%e2290522938%_))) + (_%lp-tl2290722945%_ (let () (declare (not safe)) - (##cdr _%e2286922902%_)))) - (_%loop2286822892%_ - _%lp-tl2287122909%_ - (cons _%lp-hd2287022906%_ - _%setf2287222899%_)))) - (let ((_%setf2287322912%_ - (reverse _%setf2287222899%_))) - ((lambda (_%L22916%_) - (let* ((_%mixin-slots22933%_ - (_%get-mixin-slots22565%_ - _%super-ref22558%_ - _%slots22559%_)) - (_%g2293622953%_ - (lambda (_%g2293722949%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2293722949%_))) - (_%g2293524701%_ - (lambda (_%g2293722957%_) + _%g2297322985%_))) + (_%g2297124737%_ + (lambda (_%g2297322993%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2293722957%_) - (let ((_g27216_ - (gx#syntax-split-splice _%g2293722957%_ '0))) + _%g2297322993%_) + (let ((_g27252_ + (gx#syntax-split-splice _%g2297322993%_ '0))) (begin - (let ((_g27217_ + (let ((_g27253_ (let () (declare (not safe)) - (if (##values? _g27216_) - (##vector-length _g27216_) + (if (##values? _g27252_) + (##vector-length _g27252_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27217_ 2))) - (error "Context expects 2 values" _g27217_))) - (let ((_%target2293922960%_ + (##fx= _g27253_ 2))) + (error "Context expects 2 values" _g27253_))) + (let ((_%target2297522996%_ (let () (declare (not safe)) - (##vector-ref _g27216_ 0))) - (_%tl2294122963%_ + (##vector-ref _g27252_ 0))) + (_%tl2297722999%_ (let () (declare (not safe)) - (##vector-ref _g27216_ 1)))) - (if (gx#stx-null? _%tl2294122963%_) - (letrec ((_%loop2294222966%_ - (lambda (_%hd2294022970%_ - _%mixin-slot2294622973%_) + (##vector-ref _g27252_ 1)))) + (if (gx#stx-null? _%tl2297722999%_) + (letrec ((_%loop2297823002%_ + (lambda (_%hd2297623006%_ + _%mixin-slot2298223009%_) (if (gx#stx-pair? - _%hd2294022970%_) - (let ((_%e2294322976%_ + _%hd2297623006%_) + (let ((_%e2297923012%_ (gx#syntax-e - _%hd2294022970%_))) - (let ((_%lp-hd2294422980%_ + _%hd2297623006%_))) + (let ((_%lp-hd2298023016%_ (let () (declare (not safe)) - (##car _%e2294322976%_))) - (_%lp-tl2294522983%_ + (##car _%e2297923012%_))) + (_%lp-tl2298123019%_ (let () (declare (not safe)) - (##cdr _%e2294322976%_)))) - (_%loop2294222966%_ - _%lp-tl2294522983%_ - (cons _%lp-hd2294422980%_ - _%mixin-slot2294622973%_)))) - (let ((_%mixin-slot2294722986%_ - (reverse _%mixin-slot2294622973%_))) - ((lambda (_%L22990%_) - (let* ((_%g2300823025%_ - (lambda (_%g2300923021%_) + (##cdr _%e2297923012%_)))) + (_%loop2297823002%_ + _%lp-tl2298123019%_ + (cons _%lp-hd2298023016%_ + _%mixin-slot2298223009%_)))) + (let ((_%mixin-slot2298323022%_ + (reverse _%mixin-slot2298223009%_))) + ((lambda (_%L23026%_) + (let* ((_%g2304423061%_ + (lambda (_%g2304523057%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2300923021%_))) - (_%g2300724692%_ - (lambda (_%g2300923029%_) - (if (gx#stx-pair/null? _%g2300923029%_) - (let ((_g27218_ + _%g2304523057%_))) + (_%g2304324728%_ + (lambda (_%g2304523065%_) + (if (gx#stx-pair/null? _%g2304523065%_) + (let ((_g27254_ (gx#syntax-split-splice - _%g2300923029%_ + _%g2304523065%_ '0))) (begin - (let ((_g27219_ + (let ((_g27255_ (let () (declare (not safe)) - (if (##values? _g27218_) - (##vector-length _g27218_) + (if (##values? _g27254_) + (##vector-length _g27254_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27219_ 2))) + (##fx= _g27255_ 2))) (error "Context expects 2 values" - _g27219_))) - (let ((_%target2301123032%_ + _g27255_))) + (let ((_%target2304723068%_ (let () (declare (not safe)) - (##vector-ref _g27218_ 0))) - (_%tl2301323035%_ + (##vector-ref _g27254_ 0))) + (_%tl2304923071%_ (let () (declare (not safe)) - (##vector-ref _g27218_ 1)))) - (if (gx#stx-null? _%tl2301323035%_) - (letrec ((_%loop2301423038%_ - (lambda (_%hd2301223042%_ - _%mixin-getf2301823045%_) + (##vector-ref _g27254_ 1)))) + (if (gx#stx-null? _%tl2304923071%_) + (letrec ((_%loop2305023074%_ + (lambda (_%hd2304823078%_ + _%mixin-getf2305423081%_) (if (gx#stx-pair? - _%hd2301223042%_) - (let ((_%e2301523048%_ + _%hd2304823078%_) + (let ((_%e2305123084%_ (gx#syntax-e - _%hd2301223042%_))) - (let ((_%lp-hd2301623052%_ + _%hd2304823078%_))) + (let ((_%lp-hd2305223088%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2301523048%_))) - (_%lp-tl2301723055%_ - (let () (declare (not safe)) (##cdr _%e2301523048%_)))) - (_%loop2301423038%_ - _%lp-tl2301723055%_ - (cons _%lp-hd2301623052%_ _%mixin-getf2301823045%_)))) - (let ((_%mixin-getf2301923058%_ - (reverse _%mixin-getf2301823045%_))) - ((lambda (_%L23062%_) - (let* ((_%g2307923096%_ - (lambda (_%g2308023092%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2308023092%_))) - (_%g2307824683%_ - (lambda (_%g2308023100%_) - (if (gx#stx-pair/null? _%g2308023100%_) - (let ((_g27220_ + _%g2311623128%_))) + (_%g2311424719%_ + (lambda (_%g2311623136%_) + (if (gx#stx-pair/null? _%g2311623136%_) + (let ((_g27256_ (gx#syntax-split-splice - _%g2308023100%_ + _%g2311623136%_ '0))) (begin - (let ((_g27221_ + (let ((_g27257_ (let () (declare (not safe)) - (if (##values? _g27220_) - (##vector-length _g27220_) + (if (##values? _g27256_) + (##vector-length _g27256_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27221_ 2))) + (##fx= _g27257_ 2))) (error "Context expects 2 values" - _g27221_))) - (let ((_%target2308223103%_ + _g27257_))) + (let ((_%target2311823139%_ (let () (declare (not safe)) - (##vector-ref _g27220_ 0))) - (_%tl2308423106%_ + (##vector-ref _g27256_ 0))) + (_%tl2312023142%_ (let () (declare (not safe)) - (##vector-ref _g27220_ 1)))) - (if (gx#stx-null? _%tl2308423106%_) - (letrec ((_%loop2308523109%_ - (lambda (_%hd2308323113%_ - _%mixin-setf2308923116%_) + (##vector-ref _g27256_ 1)))) + (if (gx#stx-null? _%tl2312023142%_) + (letrec ((_%loop2312123145%_ + (lambda (_%hd2311923149%_ + _%mixin-setf2312523152%_) (if (gx#stx-pair? - _%hd2308323113%_) - (let ((_%e2308623119%_ + _%hd2311923149%_) + (let ((_%e2312223155%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2308323113%_))) - (let ((_%lp-hd2308723123%_ + (gx#syntax-e _%hd2311923149%_))) + (let ((_%lp-hd2312323159%_ (let () (declare (not safe)) - (##car _%e2308623119%_))) - (_%lp-tl2308823126%_ + (##car _%e2312223155%_))) + (_%lp-tl2312423162%_ (let () (declare (not safe)) - (##cdr _%e2308623119%_)))) - (_%loop2308523109%_ - _%lp-tl2308823126%_ - (cons _%lp-hd2308723123%_ _%mixin-setf2308923116%_)))) - (let ((_%mixin-setf2309023129%_ - (reverse _%mixin-setf2308923116%_))) - ((lambda (_%L23133%_) - (let* ((_%g2315023167%_ - (lambda (_%g2315123163%_) + (##cdr _%e2312223155%_)))) + (_%loop2312123145%_ + _%lp-tl2312423162%_ + (cons _%lp-hd2312323159%_ _%mixin-setf2312523152%_)))) + (let ((_%mixin-setf2312623165%_ + (reverse _%mixin-setf2312523152%_))) + ((lambda (_%L23169%_) + (let* ((_%g2318623203%_ + (lambda (_%g2318723199%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2315123163%_))) - (_%g2314924666%_ - (lambda (_%g2315123171%_) - (if (gx#stx-pair/null? _%g2315123171%_) - (let ((_g27222_ + _%g2318723199%_))) + (_%g2318524702%_ + (lambda (_%g2318723207%_) + (if (gx#stx-pair/null? _%g2318723207%_) + (let ((_g27258_ (gx#syntax-split-splice - _%g2315123171%_ + _%g2318723207%_ '0))) (begin - (let ((_g27223_ + (let ((_g27259_ (let () (declare (not safe)) - (if (##values? _g27222_) + (if (##values? _g27258_) (##vector-length - _g27222_) + _g27258_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27223_ 2))) + (##fx= _g27259_ 2))) (error "Context expects 2 values" - _g27223_))) - (let ((_%target2315323174%_ + _g27259_))) + (let ((_%target2318923210%_ (let () (declare (not safe)) - (##vector-ref _g27222_ 0))) - (_%tl2315523177%_ + (##vector-ref _g27258_ 0))) + (_%tl2319123213%_ (let () (declare (not safe)) (##vector-ref - _g27222_ + _g27258_ 1)))) (if (gx#stx-null? - _%tl2315523177%_) - (letrec ((_%loop2315623180%_ - (lambda (_%hd2315423184%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ugetf2316023187%_) - (if (gx#stx-pair? _%hd2315423184%_) - (let ((_%e2315723190%_ - (gx#syntax-e _%hd2315423184%_))) - (let ((_%lp-hd2315823194%_ + _%tl2319123213%_) + (letrec ((_%loop2319223216%_ + (lambda (_%hd2319023220%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%ugetf2319623223%_) + (if (gx#stx-pair? _%hd2319023220%_) + (let ((_%e2319323226%_ + (gx#syntax-e _%hd2319023220%_))) + (let ((_%lp-hd2319423230%_ (let () (declare (not safe)) - (##car _%e2315723190%_))) - (_%lp-tl2315923197%_ + (##car _%e2319323226%_))) + (_%lp-tl2319523233%_ (let () (declare (not safe)) - (##cdr _%e2315723190%_)))) - (_%loop2315623180%_ - _%lp-tl2315923197%_ - (cons _%lp-hd2315823194%_ _%ugetf2316023187%_)))) - (let ((_%ugetf2316123200%_ - (reverse _%ugetf2316023187%_))) - ((lambda (_%L23204%_) - (let* ((_%g2322123238%_ - (lambda (_%g2322223234%_) + (##cdr _%e2319323226%_)))) + (_%loop2319223216%_ + _%lp-tl2319523233%_ + (cons _%lp-hd2319423230%_ _%ugetf2319623223%_)))) + (let ((_%ugetf2319723236%_ + (reverse _%ugetf2319623223%_))) + ((lambda (_%L23240%_) + (let* ((_%g2325723274%_ + (lambda (_%g2325823270%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2322223234%_))) - (_%g2322024649%_ - (lambda (_%g2322223242%_) - (if (gx#stx-pair/null? _%g2322223242%_) - (let ((_g27224_ + _%g2325823270%_))) + (_%g2325624685%_ + (lambda (_%g2325823278%_) + (if (gx#stx-pair/null? _%g2325823278%_) + (let ((_g27260_ (gx#syntax-split-splice - _%g2322223242%_ + _%g2325823278%_ '0))) (begin - (let ((_g27225_ + (let ((_g27261_ (let () (declare (not safe)) (if (##values? - _g27224_) + _g27260_) (##vector-length - _g27224_) + _g27260_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27225_ + (##fx= _g27261_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g27225_))) + (error "Context expects 2 values" _g27261_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2322423245%_ + (let ((_%target2326023281%_ (let () (declare (not safe)) (##vector-ref - _g27224_ + _g27260_ 0))) - (_%tl2322623248%_ + (_%tl2326223284%_ (let () (declare (not safe)) (##vector-ref - _g27224_ + _g27260_ 1)))) (if (gx#stx-null? - _%tl2322623248%_) - (letrec ((_%loop2322723251%_ - (lambda (_%hd2322523255%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf2323123258%_) - (if (gx#stx-pair? _%hd2322523255%_) - (let ((_%e2322823261%_ - (gx#syntax-e _%hd2322523255%_))) - (let ((_%lp-hd2322923265%_ + _%tl2326223284%_) + (letrec ((_%loop2326323287%_ + (lambda (_%hd2326123291%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf2326723294%_) + (if (gx#stx-pair? _%hd2326123291%_) + (let ((_%e2326423297%_ + (gx#syntax-e _%hd2326123291%_))) + (let ((_%lp-hd2326523301%_ (let () (declare (not safe)) - (##car _%e2322823261%_))) - (_%lp-tl2323023268%_ + (##car _%e2326423297%_))) + (_%lp-tl2326623304%_ (let () (declare (not safe)) - (##cdr _%e2322823261%_)))) - (_%loop2322723251%_ - _%lp-tl2323023268%_ - (cons _%lp-hd2322923265%_ - _%usetf2323123258%_)))) - (let ((_%usetf2323223271%_ - (reverse _%usetf2323123258%_))) - ((lambda (_%L23275%_) - (let* ((_%g2329223309%_ - (lambda (_%g2329323305%_) + (##cdr _%e2326423297%_)))) + (_%loop2326323287%_ + _%lp-tl2326623304%_ + (cons _%lp-hd2326523301%_ + _%usetf2326723294%_)))) + (let ((_%usetf2326823307%_ + (reverse _%usetf2326723294%_))) + ((lambda (_%L23311%_) + (let* ((_%g2332823345%_ + (lambda (_%g2332923341%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2329323305%_))) - (_%g2329124632%_ - (lambda (_%g2329323313%_) + _%g2332923341%_))) + (_%g2332724668%_ + (lambda (_%g2332923349%_) (if (gx#stx-pair/null? - _%g2329323313%_) - (let ((_g27226_ + _%g2332923349%_) + (let ((_g27262_ (gx#syntax-split-splice - _%g2329323313%_ + _%g2332923349%_ '0))) (begin - (let ((_g27227_ + (let ((_g27263_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27226_) - (##vector-length _g27226_) + _g27262_) + (##vector-length _g27262_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27227_ 2))) - (error "Context expects 2 values" _g27227_))) + (if (not (let () (declare (not safe)) (##fx= _g27263_ 2))) + (error "Context expects 2 values" _g27263_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2329523316%_ + (let ((_%target2333123352%_ (let () (declare (not safe)) (##vector-ref - _g27226_ + _g27262_ 0))) - (_%tl2329723319%_ + (_%tl2333323355%_ (let () (declare (not safe)) (##vector-ref - _g27226_ + _g27262_ 1)))) (if (gx#stx-null? - _%tl2329723319%_) - (letrec ((_%loop2329823322%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2329623326%_ - _%mixin-ugetf2330223329%_) - (if (gx#stx-pair? _%hd2329623326%_) - (let ((_%e2329923332%_ - (gx#syntax-e _%hd2329623326%_))) - (let ((_%lp-hd2330023336%_ + _%tl2333323355%_) + (letrec ((_%loop2333423358%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2333223362%_ + _%mixin-ugetf2333823365%_) + (if (gx#stx-pair? _%hd2333223362%_) + (let ((_%e2333523368%_ + (gx#syntax-e _%hd2333223362%_))) + (let ((_%lp-hd2333623372%_ (let () (declare (not safe)) - (##car _%e2329923332%_))) - (_%lp-tl2330123339%_ + (##car _%e2333523368%_))) + (_%lp-tl2333723375%_ (let () (declare (not safe)) - (##cdr _%e2329923332%_)))) - (_%loop2329823322%_ - _%lp-tl2330123339%_ - (cons _%lp-hd2330023336%_ - _%mixin-ugetf2330223329%_)))) - (let ((_%mixin-ugetf2330323342%_ - (reverse _%mixin-ugetf2330223329%_))) - ((lambda (_%L23346%_) - (let* ((_%g2336323380%_ - (lambda (_%g2336423376%_) + (##cdr _%e2333523368%_)))) + (_%loop2333423358%_ + _%lp-tl2333723375%_ + (cons _%lp-hd2333623372%_ + _%mixin-ugetf2333823365%_)))) + (let ((_%mixin-ugetf2333923378%_ + (reverse _%mixin-ugetf2333823365%_))) + ((lambda (_%L23382%_) + (let* ((_%g2339923416%_ + (lambda (_%g2340023412%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2336423376%_))) - (_%g2336224615%_ - (lambda (_%g2336423384%_) + _%g2340023412%_))) + (_%g2339824651%_ + (lambda (_%g2340023420%_) (if (gx#stx-pair/null? - _%g2336423384%_) - (let ((_g27228_ + _%g2340023420%_) + (let ((_g27264_ (gx#syntax-split-splice - _%g2336423384%_ + _%g2340023420%_ '0))) (begin - (let ((_g27229_ + (let ((_g27265_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27228_) - (##vector-length _g27228_) + (if (##values? _g27264_) + (##vector-length _g27264_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27229_ 2))) - (error "Context expects 2 values" _g27229_))) - (let ((_%target2336623387%_ + (if (not (let () (declare (not safe)) (##fx= _g27265_ 2))) + (error "Context expects 2 values" _g27265_))) + (let ((_%target2340223423%_ (let () (declare (not safe)) - (##vector-ref _g27228_ 0))) - (_%tl2336823390%_ + (##vector-ref _g27264_ 0))) + (_%tl2340423426%_ (let () (declare (not safe)) - (##vector-ref _g27228_ 1)))) - (if (gx#stx-null? _%tl2336823390%_) - (letrec ((_%loop2336923393%_ - (lambda (_%hd2336723397%_ - _%mixin-usetf2337323400%_) - (if (gx#stx-pair? _%hd2336723397%_) - (let ((_%e2337023403%_ - (gx#syntax-e _%hd2336723397%_))) - (let ((_%lp-hd2337123407%_ + (##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%_ (let () (declare (not safe)) - (##car _%e2337023403%_))) - (_%lp-tl2337223410%_ + (##car _%e2340623439%_))) + (_%lp-tl2340823446%_ (let () (declare (not safe)) - (##cdr _%e2337023403%_)))) - (_%loop2336923393%_ - _%lp-tl2337223410%_ - (cons _%lp-hd2337123407%_ - _%mixin-usetf2337323400%_)))) - (let ((_%mixin-usetf2337423413%_ - (reverse _%mixin-usetf2337323400%_))) - ((lambda (_%L23417%_) - (let* ((_%type-slots23452%_ + (##cdr _%e2340623439%_)))) + (_%loop2340523429%_ + _%lp-tl2340823446%_ + (cons _%lp-hd2340723443%_ + _%mixin-usetf2340923436%_)))) + (let ((_%mixin-usetf2341023449%_ + (reverse _%mixin-usetf2340923436%_))) + ((lambda (_%L23453%_) + (let* ((_%type-slots23488%_ (if (gx#stx-null? - _%slots22559%_) + _%slots22595%_) '() (cons 'slots: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L22916%_ - _%L22845%_ - _%L22774%_) - (foldr (lambda (_%g2343723442%_ - _%g2343823445%_ - _%g2343923447%_ - _%g2344023449%_) - (cons (cons _%g2343923447%_ - (cons _%g2343823445%_ - (cons _%g2343723442%_ + _%L22952%_ + _%L22881%_ + _%L22810%_) + (foldr (lambda (_%g2347323478%_ + _%g2347423481%_ + _%g2347523483%_ + _%g2347623485%_) + (cons (cons _%g2347523483%_ + (cons _%g2347423481%_ + (cons _%g2347323478%_ '()))) - _%g2344023449%_)) + _%g2347623485%_)) '() - _%L22916%_ - _%L22845%_ - _%L22774%_)) + _%L22952%_ + _%L22881%_ + _%L22810%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots23473%_ + (_%type-mixin-slots23509%_ (if (gx#stx-null? - _%mixin-slots22933%_) + _%mixin-slots22969%_) '() (cons 'mixin: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L23133%_ - _%L23062%_ - _%L22990%_) - (foldr (lambda (_%g2345823463%_ - _%g2345923466%_ - _%g2346023468%_ - _%g2346123470%_) - (cons (cons _%g2346023468%_ - (cons _%g2345923466%_ - (cons _%g2345823463%_ + _%L23169%_ + _%L23098%_ + _%L23026%_) + (foldr (lambda (_%g2349423499%_ + _%g2349523502%_ + _%g2349623504%_ + _%g2349723506%_) + (cons (cons _%g2349623504%_ + (cons _%g2349523502%_ + (cons _%g2349423499%_ '()))) - _%g2346123470%_)) + _%g2349723506%_)) '() - _%L23133%_ - _%L23062%_ - _%L22990%_)) + _%L23169%_ + _%L23098%_ + _%L23026%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name23480%_ + (_%type-name23516%_ (cons 'name: - (cons (let ((_%$e23476%_ + (cons (let ((_%$e23512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body22560%_))) - (if _%$e23476%_ _%$e23476%_ _%id22557%_)) + (gx#stx-getq 'name: _%body22596%_))) + (if _%$e23512%_ _%$e23512%_ _%id22593%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id23487%_ + (_%type-id23523%_ (cons 'id: - (cons (let ((_%$e23483%_ + (cons (let ((_%$e23519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body22560%_))) - (if _%$e23483%_ - _%$e23483%_ + (gx#stx-getq 'id: _%body22596%_))) + (if _%$e23519%_ + _%$e23519%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L22592%_)))) + _%L22628%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor23502%_ - (let ((_%$e23498%_ - (let ((_%e2348923491%_ + (_%type-constructor23538%_ + (let ((_%$e23534%_ + (let ((_%e2352523527%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'constructor: _%body22560%_))) - (if _%e2348923491%_ - (let ((_%e23495%_ _%e2348923491%_)) - (cons 'constructor: (cons _%e23495%_ '()))) + (gx#stx-getq 'constructor: _%body22596%_))) + (if _%e2352523527%_ + (let ((_%e23531%_ _%e2352523527%_)) + (cons 'constructor: (cons _%e23531%_ '()))) '#f)))) - (if _%$e23498%_ _%$e23498%_ '()))) + (if _%$e23534%_ _%$e23534%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties23540%_ - (let* ((_%properties23505%_ + (_%properties23576%_ + (let* ((_%properties23541%_ (if (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'transparent: _%body22560%_)) + (gx#stx-getq 'transparent: _%body22596%_)) (cons (cons 'transparent: '#t) '()) '())) - (_%properties23520%_ - (let ((_%$e23508%_ - (gx#stx-e (gx#stx-getq 'print: _%body22560%_)))) - (if _%$e23508%_ - ((lambda (_%print23512%_) - (let ((_%print23515%_ - (if (eq? _%print23512%_ '#t) - _%slots22559%_ - _%print23512%_))) - (cons (cons 'print: _%print23515%_) - _%properties23505%_))) - _%$e23508%_) - _%properties23505%_))) - (_%properties23535%_ - (let ((_%$e23523%_ - (gx#stx-e (gx#stx-getq 'equal: _%body22560%_)))) - (if _%$e23523%_ - ((lambda (_%equal23527%_) - (let ((_%equal23530%_ - (if (eq? _%equal23527%_ '#t) - _%slots22559%_ - _%equal23527%_))) - (cons (cons 'equal: _%equal23530%_) - _%properties23520%_))) - _%$e23523%_) - _%properties23520%_)))) - _%properties23535%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-properties23581%_ - (if (null? _%properties23540%_) + (_%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%_) '() - (let* ((_%g2354323551%_ + (let* ((_%g2357923587%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2354423547%_) + (lambda (_%g2358023583%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2354423547%_))) - (_%g2354223577%_ - (lambda (_%g2354423555%_) - ((lambda (_%L23558%_) + _%g2358023583%_))) + (_%g2357823613%_ + (lambda (_%g2358023591%_) + ((lambda (_%L23594%_) (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L23558%_ '())) + (cons _%L23594%_ '())) '()))) - _%g2354423555%_)))) - (_%g2354223577%_ _%properties23540%_)))) + _%g2358023591%_)))) + (_%g2357823613%_ _%properties23576%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass23593%_ - (let ((_%$e23584%_ + (_%metaclass23629%_ + (let ((_%$e23620%_ (gx#stx-getq 'metaclass: - _%body22560%_))) - (if _%$e23584%_ - ((lambda (_%metaclass23588%_) + _%body22596%_))) + (if _%$e23620%_ + ((lambda (_%metaclass23624%_) (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%metaclass23588%_) - _%metaclass23588%_ + _%metaclass23624%_) + _%metaclass23624%_ '#f)) - _%$e23584%_) + _%$e23620%_) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-metaclass23596%_ - (if _%metaclass23593%_ + (_%type-metaclass23632%_ + (if _%metaclass23629%_ (cons 'metaclass: - (cons _%metaclass23593%_ + (cons _%metaclass23629%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%final?23599%_ + (_%final?23635%_ (gx#stx-e (gx#stx-getq 'final: - _%body22560%_))) - (_%type-struct23602%_ + _%body22596%_))) + (_%type-struct23638%_ (cons 'struct: - (cons _%struct?22574%_ + (cons _%struct?22610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-final23605%_ + (_%type-final23641%_ (cons 'final: - (cons _%final?23599%_ + (cons _%final?23635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2360823625%_ - (lambda (_%g2360923621%_) + (_%g2364423661%_ + (lambda (_%g2364523657%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2360923621%_))) - (_%g2360724611%_ - (lambda (_%g2360923629%_) + _%g2364523657%_))) + (_%g2364324647%_ + (lambda (_%g2364523665%_) (if (gx#stx-pair/null? - _%g2360923629%_) - (let ((_g27230_ + _%g2364523665%_) + (let ((_g27266_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2360923629%_ '0))) + (gx#syntax-split-splice _%g2364523665%_ '0))) (begin - (let ((_g27231_ + (let ((_g27267_ (let () (declare (not safe)) - (if (##values? _g27230_) - (##vector-length _g27230_) + (if (##values? _g27266_) + (##vector-length _g27266_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27231_ 2))) - (error "Context expects 2 values" _g27231_))) - (let ((_%target2361123632%_ + (##fx= _g27267_ 2))) + (error "Context expects 2 values" _g27267_))) + (let ((_%target2364723668%_ (let () (declare (not safe)) - (##vector-ref _g27230_ 0))) - (_%tl2361323635%_ + (##vector-ref _g27266_ 0))) + (_%tl2364923671%_ (let () (declare (not safe)) - (##vector-ref _g27230_ 1)))) - (if (gx#stx-null? _%tl2361323635%_) - (letrec ((_%loop2361423638%_ - (lambda (_%hd2361223642%_ - _%type-body2361823645%_) - (if (gx#stx-pair? _%hd2361223642%_) - (let ((_%e2361523648%_ + (##vector-ref _g27266_ 1)))) + (if (gx#stx-null? _%tl2364923671%_) + (letrec ((_%loop2365023674%_ + (lambda (_%hd2364823678%_ + _%type-body2365423681%_) + (if (gx#stx-pair? _%hd2364823678%_) + (let ((_%e2365123684%_ (gx#syntax-e - _%hd2361223642%_))) - (let ((_%lp-hd2361623652%_ + _%hd2364823678%_))) + (let ((_%lp-hd2365223688%_ (let () (declare (not safe)) - (##car _%e2361523648%_))) - (_%lp-tl2361723655%_ + (##car _%e2365123684%_))) + (_%lp-tl2365323691%_ (let () (declare (not safe)) - (##cdr _%e2361523648%_)))) - (_%loop2361423638%_ - _%lp-tl2361723655%_ - (cons _%lp-hd2361623652%_ - _%type-body2361823645%_)))) - (let ((_%type-body2361923658%_ - (reverse _%type-body2361823645%_))) - ((lambda (_%L23662%_) - (let* ((_%g2368323691%_ - (lambda (_%g2368423687%_) + (##cdr _%e2365123684%_)))) + (_%loop2365023674%_ + _%lp-tl2365323691%_ + (cons _%lp-hd2365223688%_ + _%type-body2365423681%_)))) + (let ((_%type-body2365523694%_ + (reverse _%type-body2365423681%_))) + ((lambda (_%L23698%_) + (let* ((_%g2371923727%_ + (lambda (_%g2372023723%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2368423687%_))) - (_%g2368224599%_ - (lambda (_%g2368423695%_) - ((lambda (_%L23698%_) - (let* ((_%g2371123719%_ + _%g2372023723%_))) + (_%g2371824635%_ + (lambda (_%g2372023731%_) + ((lambda (_%L23734%_) + (let* ((_%g2374723755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2371223715%_) + (lambda (_%g2374823751%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2371223715%_))) - (_%g2371024528%_ - (lambda (_%g2371223723%_) - ((lambda (_%L23726%_) - (let* ((_%g2373923747%_ - (lambda (_%g2374023743%_) + _%g2374823751%_))) + (_%g2374624564%_ + (lambda (_%g2374823759%_) + ((lambda (_%L23762%_) + (let* ((_%g2377523783%_ + (lambda (_%g2377623779%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2374023743%_))) - (_%g2373824493%_ - (lambda (_%g2374023751%_) - ((lambda (_%L23754%_) - (let* ((_%g2376723775%_ - (lambda (_%g2376823771%_) + _%g2377623779%_))) + (_%g2377424529%_ + (lambda (_%g2377623787%_) + ((lambda (_%L23790%_) + (let* ((_%g2380323811%_ + (lambda (_%g2380423807%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2376823771%_))) - (_%g2376624407%_ - (lambda (_%g2376823779%_) - ((lambda (_%L23782%_) - (let* ((_%g2379523803%_ + _%g2380423807%_))) + (_%g2380224443%_ + (lambda (_%g2380423815%_) + ((lambda (_%L23818%_) + (let* ((_%g2383123839%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2379623799%_) + (lambda (_%g2383223835%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2379623799%_))) - (_%g2379424395%_ - (lambda (_%g2379623807%_) - ((lambda (_%L23810%_) - (let* ((_%g2382323831%_ - (lambda (_%g2382423827%_) + _%g2383223835%_))) + (_%g2383024431%_ + (lambda (_%g2383223843%_) + ((lambda (_%L23846%_) + (let* ((_%g2385923867%_ + (lambda (_%g2386023863%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2382423827%_))) - (_%g2382224391%_ - (lambda (_%g2382423835%_) - ((lambda (_%L23838%_) - (let* ((_%g2385123859%_ - (lambda (_%g2385223855%_) + _%g2386023863%_))) + (_%g2385824427%_ + (lambda (_%g2386023871%_) + ((lambda (_%L23874%_) + (let* ((_%g2388723895%_ + (lambda (_%g2388823891%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2385223855%_))) - (_%g2385024387%_ - (lambda (_%g2385223863%_) - ((lambda (_%L23866%_) - (let* ((_%g2387923887%_ + _%g2388823891%_))) + (_%g2388624423%_ + (lambda (_%g2388823899%_) + ((lambda (_%L23902%_) + (let* ((_%g2391523923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2388023883%_) + (lambda (_%g2391623919%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2388023883%_))) - (_%g2387824352%_ - (lambda (_%g2388023891%_) - ((lambda (_%L23894%_) - (let* ((_%g2390723915%_ - (lambda (_%g2390823911%_) + _%g2391623919%_))) + (_%g2391424388%_ + (lambda (_%g2391623927%_) + ((lambda (_%L23930%_) + (let* ((_%g2394323951%_ + (lambda (_%g2394423947%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2390823911%_))) - (_%g2390624281%_ - (lambda (_%g2390823919%_) - ((lambda (_%L23922%_) - (let* ((_%g2393523943%_ - (lambda (_%g2393623939%_) + _%g2394423947%_))) + (_%g2394224317%_ + (lambda (_%g2394423955%_) + ((lambda (_%L23958%_) + (let* ((_%g2397123979%_ + (lambda (_%g2397223975%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2393623939%_))) - (_%g2393424277%_ - (lambda (_%g2393623947%_) - ((lambda (_%L23950%_) - (let* ((_%g2396323971%_ + _%g2397223975%_))) + (_%g2397024313%_ + (lambda (_%g2397223983%_) + ((lambda (_%L23986%_) + (let* ((_%g2399924007%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2396423967%_) + (lambda (_%g2400024003%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2396423967%_))) - (_%g2396224273%_ - (lambda (_%g2396423975%_) - ((lambda (_%L23978%_) - (let* ((_%g2399123999%_ - (lambda (_%g2399223995%_) + _%g2400024003%_))) + (_%g2399824309%_ + (lambda (_%g2400024011%_) + ((lambda (_%L24014%_) + (let* ((_%g2402724035%_ + (lambda (_%g2402824031%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2399223995%_))) - (_%g2399024269%_ - (lambda (_%g2399224003%_) - ((lambda (_%L24006%_) - (let* ((_%g2401924027%_ - (lambda (_%g2402024023%_) + _%g2402824031%_))) + (_%g2402624305%_ + (lambda (_%g2402824039%_) + ((lambda (_%L24042%_) + (let* ((_%g2405524063%_ + (lambda (_%g2405624059%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2402024023%_))) - (_%g2401824243%_ - (lambda (_%g2402024031%_) - ((lambda (_%L24034%_) - (let* ((_%g2404724055%_ + _%g2405624059%_))) + (_%g2405424279%_ + (lambda (_%g2405624067%_) + ((lambda (_%L24070%_) + (let* ((_%g2408324091%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2404824051%_) + (lambda (_%g2408424087%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2404824051%_))) - (_%g2404624217%_ - (lambda (_%g2404824059%_) - ((lambda (_%L24062%_) - (let* ((_%g2407524083%_ - (lambda (_%g2407624079%_) + _%g2408424087%_))) + (_%g2408224253%_ + (lambda (_%g2408424095%_) + ((lambda (_%L24098%_) + (let* ((_%g2411124119%_ + (lambda (_%g2411224115%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2407624079%_))) - (_%g2407424191%_ - (lambda (_%g2407624087%_) - ((lambda (_%L24090%_) - (let* ((_%g2410324111%_ - (lambda (_%g2410424107%_) + _%g2411224115%_))) + (_%g2411024227%_ + (lambda (_%g2411224123%_) + ((lambda (_%L24126%_) + (let* ((_%g2413924147%_ + (lambda (_%g2414024143%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2410424107%_))) - (_%g2410224165%_ - (lambda (_%g2410424115%_) - ((lambda (_%L24118%_) - (let* ((_%g2413124139%_ + _%g2414024143%_))) + (_%g2413824201%_ + (lambda (_%g2414024151%_) + ((lambda (_%L24154%_) + (let* ((_%g2416724175%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2413224135%_) + (lambda (_%g2416824171%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2413224135%_))) - (_%g2413024161%_ - (lambda (_%g2413224143%_) - ((lambda (_%L24146%_) - (_%wrap22562%_ + _%g2416824171%_))) + (_%g2416624197%_ + (lambda (_%g2416824179%_) + ((lambda (_%L24182%_) + (_%wrap22598%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L23698%_ - (cons _%L24146%_ '()))))) - _%g2413224143%_)))) - (_%g2413024161%_ - (_%wrap22562%_ + (cons _%L23734%_ + (cons _%L24182%_ '()))))) + _%g2416824179%_)))) + (_%g2416624197%_ + (_%wrap22598%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L22592%_ + (cons _%L22628%_ (cons (cons (gx#datum->syntax '#f 'make-class-type-info) (cons 'id: - (cons _%L23726%_ + (cons _%L23762%_ (cons 'name: - (cons _%L23754%_ + (cons _%L23790%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slots: - (cons _%L23810%_ + (cons _%L23846%_ (cons 'super: - (cons _%L23782%_ + (cons _%L23818%_ (cons 'struct?: - (cons _%L23838%_ + (cons _%L23874%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'final?: - (cons _%L23866%_ + (cons _%L23902%_ (cons 'metaclass: - (cons _%L23894%_ + (cons _%L23930%_ (cons 'constructor-method: - (cons _%L23922%_ + (cons _%L23958%_ (cons 'type-descriptor: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L23950%_ + (cons _%L23986%_ (cons 'constructor: - (cons _%L23978%_ + (cons _%L24014%_ (cons 'predicate: - (cons _%L24006%_ + (cons _%L24042%_ (cons 'accessors: - (cons _%L24034%_ + (cons _%L24070%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'mutators: - (cons _%L24062%_ + (cons _%L24098%_ (cons 'unchecked-accessors: - (cons _%L24090%_ + (cons _%L24126%_ (cons 'unchecked-mutators: - (cons _%L24118%_ + (cons _%L24154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1217,140 +1217,140 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%g2410424115%_)))) + _%g2414024151%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2410224165%_ + (_%g2413824201%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23275%_ - _%L22774%_) - (foldr (lambda (_%g2416824175%_ + _%L23311%_ + _%L22810%_) + (foldr (lambda (_%g2420424211%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2416924178%_ - _%g2417024180%_) + _%g2420524214%_ + _%g2420624216%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2416924178%_ '())) + (cons _%g2420524214%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2416824175%_ + (cons _%g2420424211%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2417024180%_)) + _%g2420624216%_)) (begin - (gx#syntax-check-splice-targets _%L23417%_ _%L22990%_) - (foldr (lambda (_%g2417124183%_ - _%g2417224186%_ - _%g2417324188%_) + (gx#syntax-check-splice-targets _%L23453%_ _%L23026%_) + (foldr (lambda (_%g2420724219%_ + _%g2420824222%_ + _%g2420924224%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2417224186%_ + (cons _%g2420824222%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2417124183%_ '())) + (cons _%g2420724219%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2417324188%_)) + _%g2420924224%_)) '() - _%L23417%_ - _%L22990%_)) - _%L23275%_ - _%L22774%_)))))) + _%L23453%_ + _%L23026%_)) + _%L23311%_ + _%L22810%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2407624087%_)))) - (_%g2407424191%_ + _%g2411224123%_)))) + (_%g2411024227%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23204%_ - _%L22774%_) - (foldr (lambda (_%g2419424201%_ - _%g2419524204%_ - _%g2419624206%_) + _%L23240%_ + _%L22810%_) + (foldr (lambda (_%g2423024237%_ + _%g2423124240%_ + _%g2423224242%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2419524204%_ '())) + (cons _%g2423124240%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2419424201%_ '())) + (cons _%g2423024237%_ '())) '())))) - _%g2419624206%_)) + _%g2423224242%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L23346%_ - _%L22990%_) - (foldr (lambda (_%g2419724209%_ + _%L23382%_ + _%L23026%_) + (foldr (lambda (_%g2423324245%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2419824212%_ - _%g2419924214%_) + _%g2423424248%_ + _%g2423524250%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2419824212%_ '())) + (cons _%g2423424248%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2419724209%_ + (cons _%g2423324245%_ '())) '())))) - _%g2419924214%_)) + _%g2423524250%_)) '() - _%L23346%_ - _%L22990%_)) + _%L23382%_ + _%L23026%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L23204%_ - _%L22774%_)))))) - _%g2404824059%_)))) - (_%g2404624217%_ + _%L23240%_ + _%L22810%_)))))) + _%g2408424095%_)))) + (_%g2408224253%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22916%_ - _%L22774%_) - (foldr (lambda (_%g2422024227%_ - _%g2422124230%_ - _%g2422224232%_) + _%L22952%_ + _%L22810%_) + (foldr (lambda (_%g2425624263%_ + _%g2425724266%_ + _%g2425824268%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2422124230%_ + (cons _%g2425724266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2422024227%_ '())) + (cons _%g2425624263%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2422224232%_)) + _%g2425824268%_)) (begin (gx#syntax-check-splice-targets - _%L23133%_ - _%L22990%_) - (foldr (lambda (_%g2422324235%_ - _%g2422424238%_ - _%g2422524240%_) + _%L23169%_ + _%L23026%_) + (foldr (lambda (_%g2425924271%_ + _%g2426024274%_ + _%g2426124276%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -1358,59 +1358,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2422424238%_ '())) + (cons _%g2426024274%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2422324235%_ '())) + (cons _%g2425924271%_ '())) '())))) - _%g2422524240%_)) + _%g2426124276%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L23133%_ - _%L22990%_)) - _%L22916%_ - _%L22774%_)))))) - _%g2402024031%_)))) + _%L23169%_ + _%L23026%_)) + _%L22952%_ + _%L22810%_)))))) + _%g2405624067%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2401824243%_ + (_%g2405424279%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22845%_ - _%L22774%_) - (foldr (lambda (_%g2424624253%_ + _%L22881%_ + _%L22810%_) + (foldr (lambda (_%g2428224289%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2424724256%_ - _%g2424824258%_) + _%g2428324292%_ + _%g2428424294%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2424724256%_ '())) + (cons _%g2428324292%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2424624253%_ + (cons _%g2428224289%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2424824258%_)) + _%g2428424294%_)) (begin (gx#syntax-check-splice-targets - _%L23062%_ - _%L22990%_) - (foldr (lambda (_%g2424924261%_ - _%g2425024264%_ - _%g2425124266%_) + _%L23098%_ + _%L23026%_) + (foldr (lambda (_%g2428524297%_ + _%g2428624300%_ + _%g2428724302%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2425024264%_ + (cons _%g2428624300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1419,298 +1419,298 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2424924261%_ '())) + (cons _%g2428524297%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2425124266%_)) + _%g2428724302%_)) '() - _%L23062%_ - _%L22990%_)) - _%L22845%_ - _%L22774%_)))))) + _%L23098%_ + _%L23026%_)) + _%L22881%_ + _%L22810%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2399224003%_)))) - (_%g2399024269%_ + _%g2402824039%_)))) + (_%g2402624305%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22679%_ '()))))) - _%g2396423975%_)))) - (_%g2396224273%_ + (cons _%L22715%_ '()))))) + _%g2400024011%_)))) + (_%g2399824309%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22651%_ '()))))) - _%g2393623947%_)))) + (cons _%L22687%_ '()))))) + _%g2397223983%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2393424277%_ + (_%g2397024313%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22623%_ + (cons _%L22659%_ '()))))) - _%g2390823919%_)))) - (_%g2390624281%_ - (if (null? _%type-constructor23502%_) + _%g2394423955%_)))) + (_%g2394224317%_ + (if (null? _%type-constructor23538%_) '#f - (let* ((_%g2428524300%_ - (lambda (_%g2428624296%_) + (let* ((_%g2432124336%_ + (lambda (_%g2432224332%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2428624296%_))) - (_%g2428424348%_ - (lambda (_%g2428624304%_) + _%g2432224332%_))) + (_%g2432024384%_ + (lambda (_%g2432224340%_) (if (gx#stx-pair? - _%g2428624304%_) - (let ((_%e2428824307%_ + _%g2432224340%_) + (let ((_%e2432424343%_ (gx#syntax-e - _%g2428624304%_))) - (let ((_%hd2428924311%_ + _%g2432224340%_))) + (let ((_%hd2432524347%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2428824307%_))) - (_%tl2429024314%_ - (let () (declare (not safe)) (##cdr _%e2428824307%_)))) - (if (gx#stx-datum? _%hd2428924311%_) - (let ((_%e2429124317%_ (gx#stx-e _%hd2428924311%_))) - (if (equal? _%e2429124317%_ 'constructor:) - (if (gx#stx-pair? _%tl2429024314%_) - (let ((_%e2429224321%_ - (gx#syntax-e _%tl2429024314%_))) - (let ((_%hd2429324325%_ + (##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%_ (let () (declare (not safe)) - (##car _%e2429224321%_))) - (_%tl2429424328%_ + (##car _%e2432824357%_))) + (_%tl2433024364%_ (let () (declare (not safe)) - (##cdr _%e2429224321%_)))) - (if (gx#stx-null? _%tl2429424328%_) - ((lambda (_%L24331%_) + (##cdr _%e2432824357%_)))) + (if (gx#stx-null? _%tl2433024364%_) + ((lambda (_%L24367%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24331%_ '()))) - _%hd2429324325%_) - (_%g2428524300%_ _%g2428624304%_)))) - (_%g2428524300%_ _%g2428624304%_)) - (_%g2428524300%_ _%g2428624304%_))) - (_%g2428524300%_ _%g2428624304%_)))) - (_%g2428524300%_ _%g2428624304%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2428424348%_ - _%type-constructor23502%_)))))) - _%g2388023891%_)))) - (_%g2387824352%_ - (if _%metaclass23593%_ - (let* ((_%g2435624364%_ - (lambda (_%g2435724360%_) + (cons _%L24367%_ '()))) + _%hd2432924361%_) + (_%g2432124336%_ _%g2432224340%_)))) + (_%g2432124336%_ _%g2432224340%_)) + (_%g2432124336%_ _%g2432224340%_))) + (_%g2432124336%_ _%g2432224340%_)))) + (_%g2432124336%_ _%g2432224340%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2432024384%_ + _%type-constructor23538%_)))))) + _%g2391623927%_)))) + (_%g2391424388%_ + (if _%metaclass23629%_ + (let* ((_%g2439224400%_ + (lambda (_%g2439324396%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2435724360%_))) - (_%g2435524383%_ - (lambda (_%g2435724368%_) - ((lambda (_%L24371%_) + _%g2439324396%_))) + (_%g2439124419%_ + (lambda (_%g2439324404%_) + ((lambda (_%L24407%_) (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L24371%_ '()))) - _%g2435724368%_)))) - (_%g2435524383%_ _%metaclass23593%_)) + (cons _%L24407%_ '()))) + _%g2439324404%_)))) + (_%g2439124419%_ _%metaclass23629%_)) '#f)))) - _%g2385223863%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2385024387%_ - _%final?23599%_))) - _%g2382423835%_)))) - (_%g2382224391%_ _%struct?22574%_))) - _%g2379623807%_)))) - (_%g2379424395%_ + _%g2388823899%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2388624423%_ + _%final?23635%_))) + _%g2386023871%_)))) + (_%g2385824427%_ _%struct?22610%_))) + _%g2383223843%_)))) + (_%g2383024431%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2439824401%_ - _%g2439924404%_) - (cons _%g2439824401%_ - _%g2439924404%_)) + (cons (foldr (lambda (_%g2443424437%_ + _%g2443524440%_) + (cons _%g2443424437%_ + _%g2443524440%_)) '() - _%L22774%_) + _%L22810%_) '()))))) - _%g2376823779%_)))) + _%g2380423815%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2376624407%_ - (let* ((_%g2441124428%_ - (lambda (_%g2441224424%_) + (_%g2380224443%_ + (let* ((_%g2444724464%_ + (lambda (_%g2444824460%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2441224424%_))) - (_%g2441024489%_ - (lambda (_%g2441224432%_) + _%g2444824460%_))) + (_%g2444624525%_ + (lambda (_%g2444824468%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2441224432%_) - (let ((_g27232_ - (gx#syntax-split-splice _%g2441224432%_ '0))) + _%g2444824468%_) + (let ((_g27268_ + (gx#syntax-split-splice _%g2444824468%_ '0))) (begin - (let ((_g27233_ + (let ((_g27269_ (let () (declare (not safe)) - (if (##values? _g27232_) - (##vector-length _g27232_) + (if (##values? _g27268_) + (##vector-length _g27268_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27233_ 2))) + (##fx= _g27269_ 2))) (error "Context expects 2 values" - _g27233_))) - (let ((_%target2441424435%_ + _g27269_))) + (let ((_%target2445024471%_ (let () (declare (not safe)) - (##vector-ref _g27232_ 0))) - (_%tl2441624438%_ + (##vector-ref _g27268_ 0))) + (_%tl2445224474%_ (let () (declare (not safe)) - (##vector-ref _g27232_ 1)))) - (if (gx#stx-null? _%tl2441624438%_) - (letrec ((_%loop2441724441%_ - (lambda (_%hd2441524445%_ - _%super-id2442124448%_) + (##vector-ref _g27268_ 1)))) + (if (gx#stx-null? _%tl2445224474%_) + (letrec ((_%loop2445324477%_ + (lambda (_%hd2445124481%_ + _%super-id2445724484%_) (if (gx#stx-pair? - _%hd2441524445%_) - (let ((_%e2441824451%_ + _%hd2445124481%_) + (let ((_%e2445424487%_ (gx#syntax-e - _%hd2441524445%_))) - (let ((_%lp-hd2441924455%_ + _%hd2445124481%_))) + (let ((_%lp-hd2445524491%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2441824451%_))) - (_%lp-tl2442024458%_ - (let () (declare (not safe)) (##cdr _%e2441824451%_)))) - (_%loop2441724441%_ - _%lp-tl2442024458%_ - (cons _%lp-hd2441924455%_ _%super-id2442124448%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%super-id2442224461%_ - (reverse _%super-id2442124448%_))) - ((lambda (_%L24465%_) + (##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%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2448024483%_ + (foldr (lambda (_%g2451624519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2448124486%_) + _%g2451724522%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2448024483%_ '())) - _%g2448124486%_)) + (cons _%g2451624519%_ '())) + _%g2451724522%_)) '() - _%L24465%_))) - _%super-id2442224461%_)))))) + _%L24501%_))) + _%super-id2445824497%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2441724441%_ - _%target2441424435%_ + (_%loop2445324477%_ + _%target2445024471%_ '())) - (_%g2441124428%_ _%g2441224432%_))))) - (_%g2441124428%_ _%g2441224432%_))))) - (_%g2441024489%_ _%super-ref22558%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2374023751%_)))) - (_%g2373824493%_ - (let* ((_%g2449724505%_ - (lambda (_%g2449824501%_) + (_%g2444724464%_ _%g2444824468%_))))) + (_%g2444724464%_ _%g2444824468%_))))) + (_%g2444624525%_ _%super-ref22594%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2377623787%_)))) + (_%g2377424529%_ + (let* ((_%g2453324541%_ + (lambda (_%g2453424537%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2449824501%_))) - (_%g2449624524%_ - (lambda (_%g2449824509%_) - ((lambda (_%L24512%_) + _%g2453424537%_))) + (_%g2453224560%_ + (lambda (_%g2453424545%_) + ((lambda (_%L24548%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24512%_ + (cons _%L24548%_ '()))) - _%g2449824509%_)))) - (_%g2449624524%_ - (cadr _%type-name23480%_)))))) - _%g2371223723%_)))) - (_%g2371024528%_ - (let* ((_%g2453224547%_ - (lambda (_%g2453324543%_) + _%g2453424545%_)))) + (_%g2453224560%_ + (cadr _%type-name23516%_)))))) + _%g2374823759%_)))) + (_%g2374624564%_ + (let* ((_%g2456824583%_ + (lambda (_%g2456924579%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2453324543%_))) - (_%g2453124595%_ - (lambda (_%g2453324551%_) - (if (gx#stx-pair? _%g2453324551%_) - (let ((_%e2453524554%_ - (gx#syntax-e _%g2453324551%_))) - (let ((_%hd2453624558%_ + _%g2456924579%_))) + (_%g2456724631%_ + (lambda (_%g2456924587%_) + (if (gx#stx-pair? _%g2456924587%_) + (let ((_%e2457124590%_ + (gx#syntax-e _%g2456924587%_))) + (let ((_%hd2457224594%_ (let () (declare (not safe)) - (##car _%e2453524554%_))) - (_%tl2453724561%_ + (##car _%e2457124590%_))) + (_%tl2457324597%_ (let () (declare (not safe)) - (##cdr _%e2453524554%_)))) + (##cdr _%e2457124590%_)))) (if (gx#stx-datum? - _%hd2453624558%_) - (let ((_%e2453824564%_ + _%hd2457224594%_) + (let ((_%e2457424600%_ (gx#stx-e - _%hd2453624558%_))) - (if (equal? _%e2453824564%_ + _%hd2457224594%_))) + (if (equal? _%e2457424600%_ 'id:) (if (gx#stx-pair? - _%tl2453724561%_) - (let ((_%e2453924568%_ + _%tl2457324597%_) + (let ((_%e2457524604%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2453724561%_))) - (let ((_%hd2454024572%_ + (gx#syntax-e _%tl2457324597%_))) + (let ((_%hd2457624608%_ (let () (declare (not safe)) - (##car _%e2453924568%_))) - (_%tl2454124575%_ + (##car _%e2457524604%_))) + (_%tl2457724611%_ (let () (declare (not safe)) - (##cdr _%e2453924568%_)))) - (if (gx#stx-null? _%tl2454124575%_) - ((lambda (_%L24578%_) + (##cdr _%e2457524604%_)))) + (if (gx#stx-null? _%tl2457724611%_) + ((lambda (_%L24614%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24578%_ '()))) - _%hd2454024572%_) - (_%g2453224547%_ _%g2453324551%_)))) - (_%g2453224547%_ _%g2453324551%_)) - (_%g2453224547%_ _%g2453324551%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2453224547%_ - _%g2453324551%_)))) - (_%g2453224547%_ _%g2453324551%_))))) - (_%g2453124595%_ _%type-id23487%_))))) - _%g2368423695%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2368224599%_ - (_%wrap22562%_ + (cons _%L24614%_ '()))) + _%hd2457624608%_) + (_%g2456824583%_ _%g2456924587%_)))) + (_%g2456824583%_ _%g2456924587%_)) + (_%g2456824583%_ _%g2456924587%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2456824583%_ + _%g2456924587%_)))) + (_%g2456824583%_ _%g2456924587%_))))) + (_%g2456724631%_ _%type-id23523%_))))) + _%g2372023731%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2371824635%_ + (_%wrap22598%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L22623%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22707%_ - (cons _%L22651%_ - (cons _%L22679%_ - (foldr (lambda (_%g2460224605%_ - _%g2460324608%_) - (cons _%g2460224605%_ - _%g2460324608%_)) + (cons _%L22659%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L22743%_ + (cons _%L22687%_ + (cons _%L22715%_ + (foldr (lambda (_%g2463824641%_ + _%g2463924644%_) + (cons _%g2463824641%_ + _%g2463924644%_)) '() - _%L23662%_)))))))))) + _%L23698%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-body2361923658%_)))))) - (_%loop2361423638%_ _%target2361123632%_ '())) - (_%g2360823625%_ _%g2360923629%_))))) - (_%g2360823625%_ _%g2360923629%_))))) + _%type-body2365523694%_)))))) + (_%loop2365023674%_ _%target2364723668%_ '())) + (_%g2364423661%_ _%g2364523665%_))))) + (_%g2364423661%_ _%g2364523665%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2360724611%_ + (_%g2364324647%_ (foldr cons (foldr cons (foldr cons @@ -1720,564 +1720,564 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots23473%_ - _%type-slots23452%_) - _%type-properties23581%_) - _%type-metaclass23596%_) - _%type-final23605%_) - _%type-struct23602%_) - _%type-constructor23502%_) - _%type-name23480%_) - _%type-id23487%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-usetf2337423413%_)))))) - (_%loop2336923393%_ _%target2336623387%_ '())) - (_%g2336323380%_ _%g2336423384%_))))) - (_%g2336323380%_ _%g2336423384%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2336224615%_ + _%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%_ (gx#stx-map - (lambda (_%g2461824620%_) - (_%make-id22564%_ + (lambda (_%g2465424656%_) + (_%make-id22600%_ '"&" - _%g2461824620%_)) - (foldr (lambda (_%g2462324626%_ - _%g2462424629%_) - (cons _%g2462324626%_ - _%g2462424629%_)) + _%g2465424656%_)) + (foldr (lambda (_%g2465924662%_ + _%g2466024665%_) + (cons _%g2465924662%_ + _%g2466024665%_)) '() - _%L23133%_))))) - _%mixin-ugetf2330323342%_)))))) - (_%loop2329823322%_ _%target2329523316%_ '())) - (_%g2329223309%_ _%g2329323313%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2329223309%_ - _%g2329323313%_))))) - (_%g2329124632%_ + _%L23169%_))))) + _%mixin-ugetf2333923378%_)))))) + (_%loop2333423358%_ _%target2333123352%_ '())) + (_%g2332823345%_ _%g2332923349%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2332823345%_ + _%g2332923349%_))))) + (_%g2332724668%_ (gx#stx-map - (lambda (_%g2463524637%_) - (_%make-id22564%_ + (lambda (_%g2467124673%_) + (_%make-id22600%_ '"&" - _%g2463524637%_)) - (foldr (lambda (_%g2464024643%_ - _%g2464124646%_) - (cons _%g2464024643%_ - _%g2464124646%_)) + _%g2467124673%_)) + (foldr (lambda (_%g2467624679%_ + _%g2467724682%_) + (cons _%g2467624679%_ + _%g2467724682%_)) '() - _%L23062%_))))) - _%usetf2323223271%_)))))) - (_%loop2322723251%_ _%target2322423245%_ '())) - (_%g2322123238%_ _%g2322223242%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2322123238%_ - _%g2322223242%_))))) - (_%g2322024649%_ + _%L23098%_))))) + _%usetf2326823307%_)))))) + (_%loop2326323287%_ _%target2326023281%_ '())) + (_%g2325723274%_ _%g2325823278%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2325723274%_ + _%g2325823278%_))))) + (_%g2325624685%_ (gx#stx-map - (lambda (_%g2465224654%_) - (_%make-id22564%_ '"&" _%g2465224654%_)) - (foldr (lambda (_%g2465724660%_ - _%g2465824663%_) - (cons _%g2465724660%_ - _%g2465824663%_)) + (lambda (_%g2468824690%_) + (_%make-id22600%_ '"&" _%g2468824690%_)) + (foldr (lambda (_%g2469324696%_ + _%g2469424699%_) + (cons _%g2469324696%_ + _%g2469424699%_)) '() - _%L22916%_))))) - _%ugetf2316123200%_)))))) + _%L22952%_))))) + _%ugetf2319723236%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2315623180%_ - _%target2315323174%_ + (_%loop2319223216%_ + _%target2318923210%_ '())) - (_%g2315023167%_ - _%g2315123171%_))))) - (_%g2315023167%_ _%g2315123171%_))))) - (_%g2314924666%_ + (_%g2318623203%_ + _%g2318723207%_))))) + (_%g2318623203%_ _%g2318723207%_))))) + (_%g2318524702%_ (gx#stx-map - (lambda (_%g2466924671%_) - (_%make-id22564%_ '"&" _%g2466924671%_)) - (foldr (lambda (_%g2467424677%_ _%g2467524680%_) - (cons _%g2467424677%_ _%g2467524680%_)) + (lambda (_%g2470524707%_) + (_%make-id22600%_ '"&" _%g2470524707%_)) + (foldr (lambda (_%g2471024713%_ _%g2471124716%_) + (cons _%g2471024713%_ _%g2471124716%_)) '() - _%L22845%_))))) - _%mixin-setf2309023129%_)))))) + _%L22881%_))))) + _%mixin-setf2312623165%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2308523109%_ - _%target2308223103%_ + (_%loop2312123145%_ + _%target2311823139%_ '())) - (_%g2307923096%_ - _%g2308023100%_))))) - (_%g2307923096%_ _%g2308023100%_))))) - (_%g2307824683%_ + (_%g2311523132%_ + _%g2311623136%_))))) + (_%g2311523132%_ _%g2311623136%_))))) + (_%g2311424719%_ (gx#stx-map - (lambda (_%g2468624688%_) - (_%make-id22564%_ - _%name22568%_ + (lambda (_%g2472224724%_) + (_%make-id22600%_ + _%name22604%_ '"-" - _%g2468624688%_ + _%g2472224724%_ '"-set!")) - _%mixin-slots22933%_)))) - _%mixin-getf2301923058%_)))))) + _%mixin-slots22969%_)))) + _%mixin-getf2305523094%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2301423038%_ - _%target2301123032%_ + (_%loop2305023074%_ + _%target2304723068%_ '())) - (_%g2300823025%_ _%g2300923029%_))))) - (_%g2300823025%_ _%g2300923029%_))))) - (_%g2300724692%_ + (_%g2304423061%_ _%g2304523065%_))))) + (_%g2304423061%_ _%g2304523065%_))))) + (_%g2304324728%_ (gx#stx-map - (lambda (_%g2469524697%_) - (_%make-id22564%_ _%name22568%_ '"-" _%g2469524697%_)) - _%mixin-slots22933%_)))) + (lambda (_%g2473124733%_) + (_%make-id22600%_ _%name22604%_ '"-" _%g2473124733%_)) + _%mixin-slots22969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot2294722986%_)))))) - (_%loop2294222966%_ - _%target2293922960%_ + _%mixin-slot2298323022%_)))))) + (_%loop2297823002%_ + _%target2297522996%_ '())) - (_%g2293622953%_ _%g2293722957%_))))) - (_%g2293622953%_ _%g2293722957%_))))) + (_%g2297222989%_ _%g2297322993%_))))) + (_%g2297222989%_ _%g2297322993%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2293524701%_ - _%mixin-slots22933%_))) - _%setf2287322912%_)))))) - (_%loop2286822892%_ _%target2286522886%_ '())) - (_%g2286222879%_ _%g2286322883%_))))) - (_%g2286222879%_ _%g2286322883%_))))) + (_%g2297124737%_ + _%mixin-slots22969%_))) + _%setf2290922948%_)))))) + (_%loop2290422928%_ _%target2290122922%_ '())) + (_%g2289822915%_ _%g2289922919%_))))) + (_%g2289822915%_ _%g2289922919%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2286124705%_ + (_%g2289724741%_ (gx#stx-map - (lambda (_%g2470824710%_) - (_%make-id22564%_ - _%name22568%_ + (lambda (_%g2474424746%_) + (_%make-id22600%_ + _%name22604%_ '"-" - _%g2470824710%_ + _%g2474424746%_ '"-set!")) - _%slots22559%_)))) - _%getf2280222841%_)))))) - (_%loop2279722821%_ _%target2279422815%_ '())) - (_%g2279122808%_ _%g2279222812%_))))) - (_%g2279122808%_ _%g2279222812%_))))) + _%slots22595%_)))) + _%getf2283822877%_)))))) + (_%loop2283322857%_ _%target2283022851%_ '())) + (_%g2282722844%_ _%g2282822848%_))))) + (_%g2282722844%_ _%g2282822848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2279024714%_ + (_%g2282624750%_ (gx#stx-map - (lambda (_%g2471724719%_) - (_%make-id22564%_ - _%name22568%_ + (lambda (_%g2475324755%_) + (_%make-id22600%_ + _%name22604%_ '"-" - _%g2471724719%_)) - _%slots22559%_)))) - _%slot2273122770%_)))))) - (_%loop2272622750%_ _%target2272322744%_ '())) - (_%g2272022737%_ _%g2272122741%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2272022737%_ - _%g2272122741%_))))) - (_%g2271924723%_ _%slots22559%_))) - _%g2269322704%_)))) - (_%g2269124727%_ + _%g2475324755%_)) + _%slots22595%_)))) + _%slot2276722806%_)))))) + (_%loop2276222786%_ _%target2275922780%_ '())) + (_%g2275622773%_ _%g2275722777%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2275622773%_ + _%g2275722777%_))))) + (_%g2275524759%_ _%slots22595%_))) + _%g2272922740%_)))) + (_%g2272724763%_ (let () (declare (not safe)) (##map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super22571%_))))) - _%g2266522676%_)))) + _%super22607%_))))) + _%g2270122712%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2266324731%_ - (_%make-id22564%_ - _%name22568%_ + (_%g2269924767%_ + (_%make-id22600%_ + _%name22604%_ '"?")))) - _%g2263722648%_)))) - (_%g2263524735%_ - (_%make-id22564%_ + _%g2267322684%_)))) + (_%g2267124771%_ + (_%make-id22600%_ '"make-" - _%name22568%_)))) - _%g2260922620%_)))) - (_%g2260724739%_ - (_%make-id22564%_ _%name22568%_ '"::t")))) - _%g2257822589%_)))) - (_%g2257624743%_ _%id22557%_))))) + _%name22604%_)))) + _%g2264522656%_)))) + (_%g2264324775%_ + (_%make-id22600%_ _%name22604%_ '"::t")))) + _%g2261422625%_)))) + (_%g2261224779%_ _%id22593%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defstruct| - (lambda (_%$stx24810%_) - (let* ((_%g2481424833%_ - (lambda (_%g2481524829%_) + (lambda (_%$stx24846%_) + (let* ((_%g2485024869%_ + (lambda (_%g2485124865%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2481524829%_))) - (_%g2481324890%_ - (lambda (_%g2481524837%_) - (if (gx#stx-pair? _%g2481524837%_) - (let ((_%e2481924840%_ (gx#syntax-e _%g2481524837%_))) - (let ((_%hd2482024844%_ + _%g2485124865%_))) + (_%g2484924926%_ + (lambda (_%g2485124873%_) + (if (gx#stx-pair? _%g2485124873%_) + (let ((_%e2485524876%_ (gx#syntax-e _%g2485124873%_))) + (let ((_%hd2485624880%_ (let () (declare (not safe)) - (##car _%e2481924840%_))) - (_%tl2482124847%_ + (##car _%e2485524876%_))) + (_%tl2485724883%_ (let () (declare (not safe)) - (##cdr _%e2481924840%_)))) - (if (gx#stx-pair? _%tl2482124847%_) - (let ((_%e2482224850%_ - (gx#syntax-e _%tl2482124847%_))) - (let ((_%hd2482324854%_ + (##cdr _%e2485524876%_)))) + (if (gx#stx-pair? _%tl2485724883%_) + (let ((_%e2485824886%_ + (gx#syntax-e _%tl2485724883%_))) + (let ((_%hd2485924890%_ (let () (declare (not safe)) - (##car _%e2482224850%_))) - (_%tl2482424857%_ + (##car _%e2485824886%_))) + (_%tl2486024893%_ (let () (declare (not safe)) - (##cdr _%e2482224850%_)))) - (if (gx#stx-pair? _%tl2482424857%_) - (let ((_%e2482524860%_ - (gx#syntax-e _%tl2482424857%_))) - (let ((_%hd2482624864%_ + (##cdr _%e2485824886%_)))) + (if (gx#stx-pair? _%tl2486024893%_) + (let ((_%e2486124896%_ + (gx#syntax-e _%tl2486024893%_))) + (let ((_%hd2486224900%_ (let () (declare (not safe)) - (##car _%e2482524860%_))) - (_%tl2482724867%_ + (##car _%e2486124896%_))) + (_%tl2486324903%_ (let () (declare (not safe)) - (##cdr _%e2482524860%_)))) - ((lambda (_%L24870%_ - _%L24872%_ - _%L24873%_) + (##cdr _%e2486124896%_)))) + ((lambda (_%L24906%_ + _%L24908%_ + _%L24909%_) (cons (gx#datum->syntax '#f 'defclass) - (cons _%L24873%_ - (cons _%L24872%_ + (cons _%L24909%_ + (cons _%L24908%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L24870%_)))))) + (cons '#t _%L24906%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl2482724867%_ - _%hd2482624864%_ - _%hd2482324854%_))) - (_%g2481424833%_ _%g2481524837%_)))) - (_%g2481424833%_ _%g2481524837%_)))) - (_%g2481424833%_ _%g2481524837%_))))) - (_%g2481324890%_ _%$stx24810%_)))) + _%tl2486324903%_ + _%hd2486224900%_ + _%hd2485924890%_))) + (_%g2485024869%_ _%g2485124873%_)))) + (_%g2485024869%_ _%g2485124873%_)))) + (_%g2485024869%_ _%g2485124873%_))))) + (_%g2484924926%_ _%$stx24846%_)))) (define |gerbil/core/mop~MOP-4[:0:]#defclass| - (lambda (_%stx24894%_) - (letrec ((_%generate24897%_ - (lambda (_%hd24981%_ _%slots24983%_ _%body24984%_) - (let* ((_%__stx2674926750%_ _%hd24981%_) - (_%g2498724999%_ + (lambda (_%stx24930%_) + (letrec ((_%generate24933%_ + (lambda (_%hd25017%_ _%slots25019%_ _%body25020%_) + (let* ((_%__stx2678526786%_ _%hd25017%_) + (_%g2502325035%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2674926750%_)))) - (let ((_%__kont2675226753%_ - (lambda (_%L25027%_ _%L25029%_) + _%__stx2678526786%_)))) + (let ((_%__kont2678826789%_ + (lambda (_%L25063%_ _%L25065%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24894%_ - _%L25029%_ - (gx#syntax->list _%L25027%_) - _%slots24983%_ - _%body24984%_))) - (_%__kont2675426755%_ + _%stx24930%_ + _%L25065%_ + (gx#syntax->list _%L25063%_) + _%slots25019%_ + _%body25020%_))) + (_%__kont2679026791%_ (lambda () - (if (gx#identifier? _%hd24981%_) + (if (gx#identifier? _%hd25017%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24894%_ - _%hd24981%_ + _%stx24930%_ + _%hd25017%_ '() - _%slots24983%_ - _%body24984%_) + _%slots25019%_ + _%body25020%_) (gx#raise-syntax-error '#f '"bad syntax; class name should be an identifier" - _%stx24894%_ - _%hd24981%_))))) - (let ((_%__match2676226763%_ - (lambda (_%e2499125017%_ - _%hd2499225021%_ - _%tl2499325024%_) - (let ((_%L25027%_ _%tl2499325024%_) - (_%L25029%_ _%hd2499225021%_)) - (if (and (gx#stx-list? _%L25027%_) + _%stx24930%_ + _%hd25017%_))))) + (let ((_%__match2679826799%_ + (lambda (_%e2502725053%_ + _%hd2502825057%_ + _%tl2502925060%_) + (let ((_%L25063%_ _%tl2502925060%_) + (_%L25065%_ _%hd2502825057%_)) + (if (and (gx#stx-list? _%L25063%_) (gx#stx-andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _%L25027%_)) - (_%__kont2675226753%_ - _%L25027%_ - _%L25029%_) - (_%__kont2675426755%_)))))) - (if (gx#stx-pair? _%__stx2674926750%_) - (let ((_%e2499125017%_ - (gx#syntax-e _%__stx2674926750%_))) - (let ((_%tl2499325024%_ + _%L25063%_)) + (_%__kont2678826789%_ + _%L25063%_ + _%L25065%_) + (_%__kont2679026791%_)))))) + (if (gx#stx-pair? _%__stx2678526786%_) + (let ((_%e2502725053%_ + (gx#syntax-e _%__stx2678526786%_))) + (let ((_%tl2502925060%_ (let () (declare (not safe)) - (##cdr _%e2499125017%_))) - (_%hd2499225021%_ + (##cdr _%e2502725053%_))) + (_%hd2502825057%_ (let () (declare (not safe)) - (##car _%e2499125017%_)))) - (_%__match2676226763%_ - _%e2499125017%_ - _%hd2499225021%_ - _%tl2499325024%_))) - (_%__kont2675426755%_)))))))) - (let* ((_%g2490024919%_ - (lambda (_%g2490124915%_) + (##car _%e2502725053%_)))) + (_%__match2679826799%_ + _%e2502725053%_ + _%hd2502825057%_ + _%tl2502925060%_))) + (_%__kont2679026791%_)))))))) + (let* ((_%g2493624955%_ + (lambda (_%g2493724951%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2490124915%_))) - (_%g2489924977%_ - (lambda (_%g2490124923%_) - (if (gx#stx-pair? _%g2490124923%_) - (let ((_%e2490524926%_ (gx#syntax-e _%g2490124923%_))) - (let ((_%hd2490624930%_ + _%g2493724951%_))) + (_%g2493525013%_ + (lambda (_%g2493724959%_) + (if (gx#stx-pair? _%g2493724959%_) + (let ((_%e2494124962%_ (gx#syntax-e _%g2493724959%_))) + (let ((_%hd2494224966%_ (let () (declare (not safe)) - (##car _%e2490524926%_))) - (_%tl2490724933%_ + (##car _%e2494124962%_))) + (_%tl2494324969%_ (let () (declare (not safe)) - (##cdr _%e2490524926%_)))) - (if (gx#stx-pair? _%tl2490724933%_) - (let ((_%e2490824936%_ - (gx#syntax-e _%tl2490724933%_))) - (let ((_%hd2490924940%_ + (##cdr _%e2494124962%_)))) + (if (gx#stx-pair? _%tl2494324969%_) + (let ((_%e2494424972%_ + (gx#syntax-e _%tl2494324969%_))) + (let ((_%hd2494524976%_ (let () (declare (not safe)) - (##car _%e2490824936%_))) - (_%tl2491024943%_ + (##car _%e2494424972%_))) + (_%tl2494624979%_ (let () (declare (not safe)) - (##cdr _%e2490824936%_)))) - (if (gx#stx-pair? _%tl2491024943%_) - (let ((_%e2491124946%_ - (gx#syntax-e _%tl2491024943%_))) - (let ((_%hd2491224950%_ + (##cdr _%e2494424972%_)))) + (if (gx#stx-pair? _%tl2494624979%_) + (let ((_%e2494724982%_ + (gx#syntax-e _%tl2494624979%_))) + (let ((_%hd2494824986%_ (let () (declare (not safe)) - (##car _%e2491124946%_))) - (_%tl2491324953%_ + (##car _%e2494724982%_))) + (_%tl2494924989%_ (let () (declare (not safe)) - (##cdr _%e2491124946%_)))) - ((lambda (_%L24956%_ - _%L24958%_ - _%L24959%_) + (##cdr _%e2494724982%_)))) + ((lambda (_%L24992%_ + _%L24994%_ + _%L24995%_) (if (and (gx#identifier-list? - _%L24958%_) + _%L24994%_) (|gerbil/core/mop~MOP-4[1]#typedef-body?| - _%L24956%_)) - (_%generate24897%_ - _%L24959%_ - _%L24958%_ - _%L24956%_) - (_%g2490024919%_ - _%g2490124923%_))) - _%tl2491324953%_ - _%hd2491224950%_ - _%hd2490924940%_))) - (_%g2490024919%_ _%g2490124923%_)))) - (_%g2490024919%_ _%g2490124923%_)))) - (_%g2490024919%_ _%g2490124923%_))))) - (_%g2489924977%_ _%stx24894%_))))) + _%L24992%_)) + (_%generate24933%_ + _%L24995%_ + _%L24994%_ + _%L24992%_) + (_%g2493624955%_ + _%g2493724959%_))) + _%tl2494924989%_ + _%hd2494824986%_ + _%hd2494524976%_))) + (_%g2493624955%_ _%g2493724959%_)))) + (_%g2493624955%_ _%g2493724959%_)))) + (_%g2493624955%_ _%g2493724959%_))))) + (_%g2493525013%_ _%stx24930%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defmethod| - (lambda (_%stx25046%_) - (letrec ((_%wrap25049%_ - (lambda (_%e-stx25395%_) + (lambda (_%stx25082%_) + (letrec ((_%wrap25085%_ + (lambda (_%e-stx25431%_) (gx#stx-wrap-source - _%e-stx25395%_ - (gx#stx-source _%stx25046%_)))) - (_%method-opt?25051%_ - (lambda (_%x25392%_) - (let ((__tmp27234 (gx#stx-e _%x25392%_))) + _%e-stx25431%_ + (gx#stx-source _%stx25082%_)))) + (_%method-opt?25087%_ + (lambda (_%x25428%_) + (let ((__tmp27270 (gx#stx-e _%x25428%_))) (declare (not safe)) - (##memq __tmp27234 '(rebind:)))))) - (let* ((_%g2505325082%_ - (lambda (_%g2505425078%_) + (##memq __tmp27270 '(rebind:)))))) + (let* ((_%g2508925118%_ + (lambda (_%g2509025114%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2505425078%_))) - (_%g2505225388%_ - (lambda (_%g2505425086%_) - (if (gx#stx-pair? _%g2505425086%_) - (let ((_%e2505925089%_ (gx#syntax-e _%g2505425086%_))) - (let ((_%hd2506025093%_ + _%g2509025114%_))) + (_%g2508825424%_ + (lambda (_%g2509025122%_) + (if (gx#stx-pair? _%g2509025122%_) + (let ((_%e2509525125%_ (gx#syntax-e _%g2509025122%_))) + (let ((_%hd2509625129%_ (let () (declare (not safe)) - (##car _%e2505925089%_))) - (_%tl2506125096%_ + (##car _%e2509525125%_))) + (_%tl2509725132%_ (let () (declare (not safe)) - (##cdr _%e2505925089%_)))) - (if (gx#stx-pair? _%tl2506125096%_) - (let ((_%e2506225099%_ - (gx#syntax-e _%tl2506125096%_))) - (let ((_%hd2506325103%_ + (##cdr _%e2509525125%_)))) + (if (gx#stx-pair? _%tl2509725132%_) + (let ((_%e2509825135%_ + (gx#syntax-e _%tl2509725132%_))) + (let ((_%hd2509925139%_ (let () (declare (not safe)) - (##car _%e2506225099%_))) - (_%tl2506425106%_ + (##car _%e2509825135%_))) + (_%tl2510025142%_ (let () (declare (not safe)) - (##cdr _%e2506225099%_)))) - (if (gx#stx-pair? _%hd2506325103%_) - (let ((_%e2506525109%_ - (gx#syntax-e _%hd2506325103%_))) - (let ((_%hd2506625113%_ + (##cdr _%e2509825135%_)))) + (if (gx#stx-pair? _%hd2509925139%_) + (let ((_%e2510125145%_ + (gx#syntax-e _%hd2509925139%_))) + (let ((_%hd2510225149%_ (let () (declare (not safe)) - (##car _%e2506525109%_))) - (_%tl2506725116%_ + (##car _%e2510125145%_))) + (_%tl2510325152%_ (let () (declare (not safe)) - (##cdr _%e2506525109%_)))) + (##cdr _%e2510125145%_)))) (if (gx#identifier? - _%hd2506625113%_) + _%hd2510225149%_) (if (gx#free-identifier=? - |gerbil/core/mop~MOP-4[1]#_g27235_| - _%hd2506625113%_) + |gerbil/core/mop~MOP-4[1]#_g27271_| + _%hd2510225149%_) (if (gx#stx-pair? - _%tl2506725116%_) - (let ((_%e2506825119%_ + _%tl2510325152%_) + (let ((_%e2510425155%_ (gx#syntax-e - _%tl2506725116%_))) - (let ((_%hd2506925123%_ + _%tl2510325152%_))) + (let ((_%hd2510525159%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2506825119%_))) - (_%tl2507025126%_ + (let () (declare (not safe)) (##car _%e2510425155%_))) + (_%tl2510625162%_ (let () (declare (not safe)) - (##cdr _%e2506825119%_)))) - (if (gx#stx-pair? _%tl2507025126%_) - (let ((_%e2507125129%_ (gx#syntax-e _%tl2507025126%_))) - (let ((_%hd2507225133%_ + (##cdr _%e2510425155%_)))) + (if (gx#stx-pair? _%tl2510625162%_) + (let ((_%e2510725165%_ (gx#syntax-e _%tl2510625162%_))) + (let ((_%hd2510825169%_ (let () (declare (not safe)) - (##car _%e2507125129%_))) - (_%tl2507325136%_ + (##car _%e2510725165%_))) + (_%tl2510925172%_ (let () (declare (not safe)) - (##cdr _%e2507125129%_)))) - (if (gx#stx-null? _%tl2507325136%_) - (if (gx#stx-pair? _%tl2506425106%_) - (let ((_%e2507425139%_ - (gx#syntax-e _%tl2506425106%_))) - (let ((_%hd2507525143%_ + (##cdr _%e2510725165%_)))) + (if (gx#stx-null? _%tl2510925172%_) + (if (gx#stx-pair? _%tl2510025142%_) + (let ((_%e2511025175%_ + (gx#syntax-e _%tl2510025142%_))) + (let ((_%hd2511125179%_ (let () (declare (not safe)) - (##car _%e2507425139%_))) - (_%tl2507625146%_ + (##car _%e2511025175%_))) + (_%tl2511225182%_ (let () (declare (not safe)) - (##cdr _%e2507425139%_)))) - ((lambda (_%L25149%_ - _%L25151%_ - _%L25152%_ - _%L25153%_) - (if (and (gx#identifier? _%L25153%_) + (##cdr _%e2511025175%_)))) + ((lambda (_%L25185%_ + _%L25187%_ + _%L25188%_ + _%L25189%_) + (if (and (gx#identifier? _%L25189%_) (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25152%_)) + _%L25188%_)) (gx#stx-plist? - _%L25149%_ - _%method-opt?25051%_)) - (let* ((_%klass25180%_ + _%L25185%_ + _%method-opt?25087%_)) + (let* ((_%klass25216%_ (gx#syntax-local-value - _%L25152%_)) - (_%rebind?25183%_ + _%L25188%_)) + (_%rebind?25219%_ (gx#stx-e (gx#stx-getq 'rebind: - _%L25149%_))) - (_%g2518625194%_ - (lambda (_%g2518725190%_) + _%L25185%_))) + (_%g2522225230%_ + (lambda (_%g2522325226%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2518725190%_))) - (_%g2518525378%_ - (lambda (_%g2518725198%_) - ((lambda (_%L25201%_) - (let* ((_%g2521625224%_ + _%g2522325226%_))) + (_%g2522125414%_ + (lambda (_%g2522325234%_) + ((lambda (_%L25237%_) + (let* ((_%g2525225260%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2521725220%_) + (lambda (_%g2525325256%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2521725220%_))) - (_%g2521525374%_ - (lambda (_%g2521725228%_) - ((lambda (_%L25231%_) - (let* ((_%g2524425252%_ - (lambda (_%g2524525248%_) + _%g2525325256%_))) + (_%g2525125410%_ + (lambda (_%g2525325264%_) + ((lambda (_%L25267%_) + (let* ((_%g2528025288%_ + (lambda (_%g2528125284%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2524525248%_))) - (_%g2524325370%_ - (lambda (_%g2524525256%_) - ((lambda (_%L25259%_) - (let* ((_%g2527225280%_ - (lambda (_%g2527325276%_) + _%g2528125284%_))) + (_%g2527925406%_ + (lambda (_%g2528125292%_) + ((lambda (_%L25295%_) + (let* ((_%g2530825316%_ + (lambda (_%g2530925312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2527325276%_))) - (_%g2527125366%_ - (lambda (_%g2527325284%_) - ((lambda (_%L25287%_) - (let* ((_%g2530025308%_ + _%g2530925312%_))) + (_%g2530725402%_ + (lambda (_%g2530925320%_) + ((lambda (_%L25323%_) + (let* ((_%g2533625344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2530125304%_) + (lambda (_%g2533725340%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2530125304%_))) - (_%g2529925362%_ - (lambda (_%g2530125312%_) - ((lambda (_%L25315%_) - (let* ((_%g2532825336%_ - (lambda (_%g2532925332%_) + _%g2533725340%_))) + (_%g2533525398%_ + (lambda (_%g2533725348%_) + ((lambda (_%L25351%_) + (let* ((_%g2536425372%_ + (lambda (_%g2536525368%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2532925332%_))) - (_%g2532725358%_ - (lambda (_%g2532925340%_) - ((lambda (_%L25343%_) - (_%wrap25049%_ + _%g2536525368%_))) + (_%g2536325394%_ + (lambda (_%g2536525376%_) + ((lambda (_%L25379%_) + (_%wrap25085%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L25287%_ - (cons _%L25343%_ + (cons _%L25323%_ + (cons _%L25379%_ '()))))) - _%g2532925340%_)))) - (_%g2532725358%_ - (_%wrap25049%_ + _%g2536525376%_)))) + (_%g2536325394%_ + (_%wrap25085%_ (cons (gx#datum->syntax '#f 'bind-method!) - (cons _%L25201%_ + (cons _%L25237%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25153%_ + (cons _%L25189%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L25231%_ (cons _%L25315%_ '()))))))))) + (cons _%L25267%_ (cons _%L25351%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2530125312%_)))) - (_%g2529925362%_ _%rebind?25183%_))) - _%g2527325284%_)))) + _%g2533725348%_)))) + (_%g2533525398%_ _%rebind?25219%_))) + _%g2530925320%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2527125366%_ - (_%wrap25049%_ + (_%g2530725402%_ + (_%wrap25085%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L25231%_ + (cons _%L25267%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-syntax) - (cons (cons (cons _%L25259%_ + (cons (cons (cons _%L25295%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2299,13 +2299,13 @@ (cons (cons (gx#datum->syntax '#f 'call-next-method) - (cons _%L25201%_ + (cons _%L25237%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25153%_ '())) + (cons _%L25189%_ '())) (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '())))))) @@ -2315,150 +2315,150 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L25151%_ '()))) + (cons _%L25187%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2524525256%_)))) - (_%g2524325370%_ + _%g2528125292%_)))) + (_%g2527925406%_ (gx#stx-identifier - _%L25152%_ + _%L25188%_ '@next-method)))) - _%g2521725228%_)))) - (_%g2521525374%_ + _%g2525325264%_)))) + (_%g2525125410%_ (gx#stx-identifier - _%L25152%_ - _%L25152%_ + _%L25188%_ + _%L25188%_ '"::" - _%L25153%_)))) - _%g2518725198%_)))) + _%L25189%_)))) + _%g2522325234%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2518525378%_ - (let ((__obj27026 - _%klass25180%_)) + (_%g2522125414%_ + (let ((__obj27062 + _%klass25216%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27026 + __obj27062 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27026 + __obj27062 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27026 + __obj27062 'type-descriptor))))) - (if (gx#identifier? _%L25153%_) + (if (gx#identifier? _%L25189%_) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25152%_)) + _%L25188%_)) (gx#raise-syntax-error '#f '"bad syntax; illegal method options" - _%stx25046%_) + _%stx25082%_) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" - _%stx25046%_ - _%L25152%_)) + _%stx25082%_ + _%L25188%_)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" - _%stx25046%_ - _%L25153%_)))) - _%tl2507625146%_ - _%hd2507525143%_ - _%hd2507225133%_ - _%hd2506925123%_))) - (_%g2505325082%_ _%g2505425086%_)) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2505325082%_ - _%g2505425086%_)) - (_%g2505325082%_ - _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_))))) - (_%g2505225388%_ _%stx25046%_))))) + _%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%_))))) (define |gerbil/core/mop~MOP-4[:0:]#@method| - (lambda (_%stx25398%_) - (letrec ((_%dotted-identifier?25401%_ - (lambda (_%id26034%_) - (if (gx#identifier? _%id26034%_) - (let ((_%id-str26037%_ - (symbol->string (gx#stx-e _%id26034%_)))) - (if (string-index _%id-str26037%_ '#\.) - (let* ((_%split26040%_ - (string-split _%id-str26037%_ '#\.)) - (__tmp27236 (length _%split26040%_))) + (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%_))) (declare (not safe)) - (##fx= __tmp27236 '2)) + (##fx= __tmp27272 '2)) '#f)) '#f))) - (_%split-dotted25403%_ - (lambda (_%id26023%_) - (let* ((_%id-str26026%_ - (symbol->string (gx#stx-e _%id26023%_))) - (_%split26029%_ - (string-split _%id-str26026%_ '#\.))) + (_%split-dotted25439%_ + (lambda (_%id26059%_) + (let* ((_%id-str26062%_ + (symbol->string (gx#stx-e _%id26059%_))) + (_%split26065%_ + (string-split _%id-str26062%_ '#\.))) (cons (gx#stx-identifier - _%id26023%_ - (car _%split26029%_)) + _%id26059%_ + (car _%split26065%_)) (cons (gx#stx-identifier - _%id26023%_ - (cadr _%split26029%_)) + _%id26059%_ + (cadr _%split26065%_)) '())))))) - (let* ((_%__stx2676526766%_ _%stx25398%_) - (_%g2540825495%_ + (let* ((_%__stx2680126802%_ _%stx25434%_) + (_%g2544425531%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2676526766%_)))) - (let ((_%__kont2676826769%_ - (lambda (_%L25916%_ _%L25918%_ _%L25919%_) - (let* ((_%g2594725962%_ - (lambda (_%g2594825958%_) + _%__stx2680126802%_)))) + (let ((_%__kont2680426805%_ + (lambda (_%L25952%_ _%L25954%_ _%L25955%_) + (let* ((_%g2598325998%_ + (lambda (_%g2598425994%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2594825958%_))) - (_%g2594626015%_ - (lambda (_%g2594825966%_) - (if (gx#stx-pair? _%g2594825966%_) - (let ((_%e2595125969%_ - (gx#syntax-e _%g2594825966%_))) - (let ((_%hd2595225973%_ + _%g2598425994%_))) + (_%g2598226051%_ + (lambda (_%g2598426002%_) + (if (gx#stx-pair? _%g2598426002%_) + (let ((_%e2598726005%_ + (gx#syntax-e _%g2598426002%_))) + (let ((_%hd2598826009%_ (let () (declare (not safe)) - (##car _%e2595125969%_))) - (_%tl2595325976%_ + (##car _%e2598726005%_))) + (_%tl2598926012%_ (let () (declare (not safe)) - (##cdr _%e2595125969%_)))) - (if (gx#stx-pair? _%tl2595325976%_) - (let ((_%e2595425979%_ + (##cdr _%e2598726005%_)))) + (if (gx#stx-pair? _%tl2598926012%_) + (let ((_%e2599026015%_ (gx#syntax-e - _%tl2595325976%_))) - (let ((_%hd2595525983%_ + _%tl2598926012%_))) + (let ((_%hd2599126019%_ (let () (declare (not safe)) - (##car _%e2595425979%_))) - (_%tl2595625986%_ + (##car _%e2599026015%_))) + (_%tl2599226022%_ (let () (declare (not safe)) - (##cdr _%e2595425979%_)))) + (##cdr _%e2599026015%_)))) (if (gx#stx-null? - _%tl2595625986%_) - ((lambda (_%L25989%_ - _%L25991%_) + _%tl2599226022%_) + ((lambda (_%L26025%_ + _%L26027%_) (cons (gx#datum->syntax '#f 'apply) @@ -2466,1417 +2466,1417 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'call-method) - (cons _%L25991%_ + (cons _%L26027%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25989%_ '())) + (cons _%L26025%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2600626009%_ + (foldr (lambda (_%g2604226045%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2600726012%_) - (cons _%g2600626009%_ _%g2600726012%_)) + _%g2604326048%_) + (cons _%g2604226045%_ _%g2604326048%_)) '() - _%L25918%_)) + _%L25954%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2595525983%_ - _%hd2595225973%_) - (_%g2594725962%_ - _%g2594825966%_)))) - (_%g2594725962%_ _%g2594825966%_)))) - (_%g2594725962%_ _%g2594825966%_))))) - (_%g2594626015%_ (_%split-dotted25403%_ _%L25919%_))))) - (_%__kont2677226773%_ - (lambda (_%L25758%_ _%L25760%_) - (let* ((_%g2577725792%_ - (lambda (_%g2577825788%_) + _%hd2599126019%_ + _%hd2598826009%_) + (_%g2598325998%_ + _%g2598426002%_)))) + (_%g2598325998%_ _%g2598426002%_)))) + (_%g2598325998%_ _%g2598426002%_))))) + (_%g2598226051%_ (_%split-dotted25439%_ _%L25955%_))))) + (_%__kont2680826809%_ + (lambda (_%L25794%_ _%L25796%_) + (let* ((_%g2581325828%_ + (lambda (_%g2581425824%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2577825788%_))) - (_%g2577625845%_ - (lambda (_%g2577825796%_) - (if (gx#stx-pair? _%g2577825796%_) - (let ((_%e2578125799%_ - (gx#syntax-e _%g2577825796%_))) - (let ((_%hd2578225803%_ + _%g2581425824%_))) + (_%g2581225881%_ + (lambda (_%g2581425832%_) + (if (gx#stx-pair? _%g2581425832%_) + (let ((_%e2581725835%_ + (gx#syntax-e _%g2581425832%_))) + (let ((_%hd2581825839%_ (let () (declare (not safe)) - (##car _%e2578125799%_))) - (_%tl2578325806%_ + (##car _%e2581725835%_))) + (_%tl2581925842%_ (let () (declare (not safe)) - (##cdr _%e2578125799%_)))) - (if (gx#stx-pair? _%tl2578325806%_) - (let ((_%e2578425809%_ + (##cdr _%e2581725835%_)))) + (if (gx#stx-pair? _%tl2581925842%_) + (let ((_%e2582025845%_ (gx#syntax-e - _%tl2578325806%_))) - (let ((_%hd2578525813%_ + _%tl2581925842%_))) + (let ((_%hd2582125849%_ (let () (declare (not safe)) - (##car _%e2578425809%_))) - (_%tl2578625816%_ + (##car _%e2582025845%_))) + (_%tl2582225852%_ (let () (declare (not safe)) - (##cdr _%e2578425809%_)))) + (##cdr _%e2582025845%_)))) (if (gx#stx-null? - _%tl2578625816%_) - ((lambda (_%L25819%_ - _%L25821%_) + _%tl2582225852%_) + ((lambda (_%L25855%_ + _%L25857%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25821%_ + (cons _%L25857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25819%_ '())) - (foldr (lambda (_%g2583625839%_ - _%g2583725842%_) - (cons _%g2583625839%_ - _%g2583725842%_)) + (cons _%L25855%_ '())) + (foldr (lambda (_%g2587225875%_ + _%g2587325878%_) + (cons _%g2587225875%_ + _%g2587325878%_)) '() - _%L25758%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2578525813%_ - _%hd2578225803%_) - (_%g2577725792%_ - _%g2577825796%_)))) - (_%g2577725792%_ _%g2577825796%_)))) - (_%g2577725792%_ _%g2577825796%_))))) - (_%g2577625845%_ (_%split-dotted25403%_ _%L25760%_))))) - (_%__kont2677626777%_ - (lambda (_%L25662%_ _%L25664%_ _%L25665%_) + _%L25794%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd2582125849%_ + _%hd2581825839%_) + (_%g2581325828%_ + _%g2581425832%_)))) + (_%g2581325828%_ _%g2581425832%_)))) + (_%g2581325828%_ _%g2581425832%_))))) + (_%g2581225881%_ (_%split-dotted25439%_ _%L25796%_))))) + (_%__kont2681226813%_ + (lambda (_%L25698%_ _%L25700%_ _%L25701%_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25664%_ + (cons _%L25700%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25665%_ '())) + (cons _%L25701%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2569225695%_ + (foldr (lambda (_%g2572825731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2569325698%_) - (cons _%g2569225695%_ _%g2569325698%_)) + _%g2572925734%_) + (cons _%g2572825731%_ _%g2572925734%_)) '() - _%L25662%_)) + _%L25698%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont2678026781%_ - (lambda (_%L25562%_ _%L25564%_ _%L25565%_) + (_%__kont2681626817%_ + (lambda (_%L25598%_ _%L25600%_ _%L25601%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25564%_ + (cons _%L25600%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25565%_ '())) - (foldr (lambda (_%g2558625589%_ - _%g2558725592%_) - (cons _%g2558625589%_ - _%g2558725592%_)) + (cons _%L25601%_ '())) + (foldr (lambda (_%g2562225625%_ + _%g2562325628%_) + (cons _%g2562225625%_ + _%g2562325628%_)) '() - _%L25562%_))))))) - (let* ((_%__match2688426885%_ - (lambda (_%e2547225502%_ - _%hd2547325506%_ - _%tl2547425509%_ - _%e2547525512%_ - _%hd2547625516%_ - _%tl2547725519%_ - _%e2547825522%_ - _%hd2547925526%_ - _%tl2548025529%_ - _%__splice2678226783%_ - _%target2548125532%_ - _%tl2548325535%_) - (letrec ((_%loop2548425538%_ - (lambda (_%hd2548225542%_ _%arg2548825545%_) - (if (gx#stx-pair? _%hd2548225542%_) - (let ((_%e2548525548%_ - (gx#syntax-e _%hd2548225542%_))) - (let ((_%lp-tl2548725555%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e2548525548%_))) - (_%lp-hd2548625552%_ + (##cdr _%e2552125584%_))) + (_%lp-hd2552225588%_ (let () (declare (not safe)) - (##car _%e2548525548%_)))) - (_%loop2548425538%_ - _%lp-tl2548725555%_ - (cons _%lp-hd2548625552%_ - _%arg2548825545%_)))) - (let ((_%arg2548925558%_ - (reverse _%arg2548825545%_))) - (let ((_%L25562%_ _%arg2548925558%_) - (_%L25564%_ _%hd2547925526%_) - (_%L25565%_ _%hd2547625516%_)) - (if (gx#identifier? _%L25565%_) - (_%__kont2678026781%_ - _%L25562%_ - _%L25564%_ - _%L25565%_) + (##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%_) (let () (declare (not safe)) - (_%g2540825495%_))))))))) - (_%loop2548425538%_ _%target2548125532%_ '())))) - (_%__match2685826859%_ - (lambda (_%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) - (letrec ((_%loop2546325638%_ - (lambda (_%hd2546125642%_ _%arg2546725645%_) - (if (gx#stx-pair? _%hd2546125642%_) - (let ((_%e2546425648%_ - (gx#syntax-e _%hd2546125642%_))) - (let ((_%lp-tl2546625655%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e2546425648%_))) - (_%lp-hd2546525652%_ + (##cdr _%e2550025684%_))) + (_%lp-hd2550125688%_ (let () (declare (not safe)) - (##car _%e2546425648%_)))) - (_%loop2546325638%_ - _%lp-tl2546625655%_ - (cons _%lp-hd2546525652%_ - _%arg2546725645%_)))) - (let ((_%arg2546825658%_ - (reverse _%arg2546725645%_))) - (let ((_%L25662%_ _%arg2546825658%_) - (_%L25664%_ _%hd2545825626%_) - (_%L25665%_ _%hd2545525616%_)) + (##car _%e2550025684%_)))) + (_%loop2549925674%_ + _%lp-tl2550225691%_ + (cons _%lp-hd2550125688%_ + _%arg2550325681%_)))) + (let ((_%arg2550425694%_ + (reverse _%arg2550325681%_))) + (let ((_%L25698%_ _%arg2550425694%_) + (_%L25700%_ _%hd2549425662%_) + (_%L25701%_ _%hd2549125652%_)) (if (and (gx#identifier? - _%L25665%_) + _%L25701%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2568425687%_ + (foldr (lambda (_%g2572025723%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2568525690%_) - (cons _%g2568425687%_ _%g2568525690%_)) + _%g2572125726%_) + (cons _%g2572025723%_ _%g2572125726%_)) '() - _%L25662%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2677626777%_ - _%L25662%_ - _%L25664%_ - _%L25665%_) - (_%__match2688426885%_ - _%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_)))))))) - (_%loop2546325638%_ _%target2546025632%_ '())))) - (_%__match2684426845%_ - (lambda (_%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_) - (if (gx#stx-pair? _%tl2545625619%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2545625619%_))) - (let ((_%tl2545925629%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2549325658%_))) + (_%hd2549425662%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2549325658%_)))) + (if (gx#stx-pair/null? _%tl2549525665%_) + (let ((_%__splice2681426815%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2549525665%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2549825671%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '1))) - (_%target2546025632%_ + (_%target2549625668%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2549825671%_) + (_%__match2689426895%_ + _%e2548725638%_ + _%hd2548825642%_ + _%tl2548925645%_ + _%e2549025648%_ + _%hd2549125652%_ + _%tl2549225655%_ + _%e2549325658%_ + _%hd2549425662%_ + _%tl2549525665%_ + _%__splice2681426815%_ + _%target2549625668%_ + _%tl2549825671%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))) - (_%__match2683226833%_ - (lambda (_%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (letrec ((_%loop2544225734%_ - (lambda (_%hd2544025738%_ _%arg2544625741%_) - (if (gx#stx-pair? _%hd2544025738%_) - (let ((_%e2544325744%_ - (gx#syntax-e _%hd2544025738%_))) - (let ((_%lp-tl2544525751%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e2544325744%_))) - (_%lp-hd2544425748%_ + (##cdr _%e2547925780%_))) + (_%lp-hd2548025784%_ (let () (declare (not safe)) - (##car _%e2544325744%_)))) - (_%loop2544225734%_ - _%lp-tl2544525751%_ - (cons _%lp-hd2544425748%_ - _%arg2544625741%_)))) - (let ((_%arg2544725754%_ - (reverse _%arg2544625741%_))) - (let ((_%L25758%_ _%arg2544725754%_) - (_%L25760%_ _%hd2543725722%_)) - (if (_%dotted-identifier?25401%_ - _%L25760%_) - (_%__kont2677226773%_ - _%L25758%_ - _%L25760%_) - (_%__match2684426845%_ - _%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_)))))))) - (_%loop2544225734%_ _%target2543925728%_ '())))) - (_%__match2683026831%_ - (lambda (_%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (if (gx#stx-null? _%tl2544125731%_) - (_%__match2683226833%_ - _%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (if (gx#stx-pair? _%tl2543825725%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2543825725%_))) - (let ((_%tl2545925629%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2549325658%_))) + (_%hd2549425662%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2549325658%_)))) + (if (gx#stx-pair/null? _%tl2549525665%_) + (let ((_%__splice2681426815%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2549525665%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2549825671%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '1))) - (_%target2546025632%_ + (_%target2549625668%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2549825671%_) + (_%__match2689426895%_ + _%e2546925744%_ + _%hd2547025748%_ + _%tl2547125751%_ + _%e2547225754%_ + _%hd2547325758%_ + _%tl2547425761%_ + _%e2549325658%_ + _%hd2549425662%_ + _%tl2549525665%_ + _%__splice2681426815%_ + _%target2549625668%_ + _%tl2549825671%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_)))))) - (_%__match2681226813%_ - (lambda (_%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677026771%_ - _%target2541925876%_ - _%tl2542125879%_ - _%e2542825882%_ - _%hd2542925886%_ - _%tl2543025889%_) - (letrec ((_%loop2542225892%_ - (lambda (_%hd2542025896%_ _%arg2542625899%_) - (if (gx#stx-pair? _%hd2542025896%_) - (let ((_%e2542325902%_ - (gx#syntax-e _%hd2542025896%_))) - (let ((_%lp-tl2542525909%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e2542325902%_))) - (_%lp-hd2542425906%_ + (##cdr _%e2545925938%_))) + (_%lp-hd2546025942%_ (let () (declare (not safe)) - (##car _%e2542325902%_)))) - (_%loop2542225892%_ - _%lp-tl2542525909%_ - (cons _%lp-hd2542425906%_ - _%arg2542625899%_)))) - (let ((_%arg2542725912%_ - (reverse _%arg2542625899%_))) - (let ((_%L25916%_ _%hd2542925886%_) - (_%L25918%_ _%arg2542725912%_) - (_%L25919%_ _%hd2541725870%_)) - (if (and (_%dotted-identifier?25401%_ - _%L25919%_) + (##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%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2593825941%_ + (foldr (lambda (_%g2597425977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2593925944%_) - (cons _%g2593825941%_ _%g2593925944%_)) + _%g2597525980%_) + (cons _%g2597425977%_ _%g2597525980%_)) '() - _%L25918%_))) + _%L25954%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2676826769%_ - _%L25916%_ - _%L25918%_ - _%L25919%_) - (let ((_%__splice2677426775%_ + (_%__kont2680426805%_ + _%L25952%_ + _%L25954%_ + _%L25955%_) + (let ((_%__splice2681026811%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2545425909%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2547725767%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2681026811%_ '1))) - (_%target2543925728%_ + (_%target2547525764%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2681026811%_ '0)))) - (_%__match2683026831%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_)))))))))) - (_%loop2542225892%_ _%target2541925876%_ '()))))) - (if (gx#stx-pair? _%__stx2676526766%_) - (let ((_%e2541325856%_ (gx#syntax-e _%__stx2676526766%_))) - (let ((_%tl2541525863%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e2541325856%_))) - (_%hd2541425860%_ + (##cdr _%e2544925892%_))) + (_%hd2545025896%_ (let () (declare (not safe)) - (##car _%e2541325856%_)))) - (if (gx#stx-pair? _%tl2541525863%_) - (let ((_%e2541625866%_ - (gx#syntax-e _%tl2541525863%_))) - (let ((_%tl2541825873%_ + (##car _%e2544925892%_)))) + (if (gx#stx-pair? _%tl2545125899%_) + (let ((_%e2545225902%_ + (gx#syntax-e _%tl2545125899%_))) + (let ((_%tl2545425909%_ (let () (declare (not safe)) - (##cdr _%e2541625866%_))) - (_%hd2541725870%_ + (##cdr _%e2545225902%_))) + (_%hd2545325906%_ (let () (declare (not safe)) - (##car _%e2541625866%_)))) - (if (gx#stx-pair/null? _%tl2541825873%_) - (if (let ((__tmp27237 + (##car _%e2545225902%_)))) + (if (gx#stx-pair/null? _%tl2545425909%_) + (if (let ((__tmp27273 (gx#stx-length - _%tl2541825873%_))) + _%tl2545425909%_))) (declare (not safe)) - (##fx>= __tmp27237 '1)) - (let ((_%__splice2677026771%_ + (##fx>= __tmp27273 '1)) + (let ((_%__splice2680626807%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2545425909%_ '1))) - (let ((_%tl2542125879%_ + (let ((_%tl2545725915%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2680626807%_ '1))) - (_%target2541925876%_ + (_%target2545525912%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2680626807%_ '0)))) - (if (gx#stx-pair? _%tl2542125879%_) - (let ((_%e2542825882%_ + (if (gx#stx-pair? _%tl2545725915%_) + (let ((_%e2546425918%_ (gx#syntax-e - _%tl2542125879%_))) - (let ((_%tl2543025889%_ + _%tl2545725915%_))) + (let ((_%tl2546625925%_ (let () (declare (not safe)) - (##cdr _%e2542825882%_))) - (_%hd2542925886%_ + (##cdr _%e2546425918%_))) + (_%hd2546525922%_ (let () (declare (not safe)) - (##car _%e2542825882%_)))) + (##car _%e2546425918%_)))) (if (gx#stx-null? - _%tl2543025889%_) - (_%__match2681226813%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677026771%_ - _%target2541925876%_ - _%tl2542125879%_ - _%e2542825882%_ - _%hd2542925886%_ - _%tl2543025889%_) - (let ((_%__splice2677426775%_ + _%tl2546625925%_) + (_%__match2684826849%_ + _%e2544925892%_ + _%hd2545025896%_ + _%tl2545125899%_ + _%e2545225902%_ + _%hd2545325906%_ + _%tl2545425909%_ + _%__splice2680626807%_ + _%target2545525912%_ + _%tl2545725915%_ + _%e2546425918%_ + _%hd2546525922%_ + _%tl2546625925%_) + (let ((_%__splice2681026811%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2545425909%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2547725767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice2677426775%_ '1))) - (_%target2543925728%_ + (##vector-ref _%__splice2681026811%_ '1))) + (_%target2547525764%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677426775%_ '0)))) - (if (gx#stx-null? _%tl2544125731%_) - (_%__match2683226833%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (if (gx#stx-pair? _%tl2541825873%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2541825873%_))) - (let ((_%tl2545925629%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2549325658%_))) + (_%hd2549425662%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2549325658%_)))) + (if (gx#stx-pair/null? _%tl2549525665%_) + (let ((_%__splice2681426815%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2549525665%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2549825671%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '1))) - (_%target2546025632%_ + (_%target2549625668%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2549825671%_) + (_%__match2689426895%_ + _%e2544925892%_ + _%hd2545025896%_ + _%tl2545125899%_ + _%e2545225902%_ + _%hd2545325906%_ + _%tl2545425909%_ + _%e2549325658%_ + _%hd2549425662%_ + _%tl2549525665%_ + _%__splice2681426815%_ + _%target2549625668%_ + _%tl2549825671%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))))))) + (_%g2544425531%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2677426775%_ + (let ((_%__splice2681026811%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2545425909%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2547725767%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2681026811%_ '1))) - (_%target2543925728%_ + (_%target2547525764%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2681026811%_ '0)))) (if (gx#stx-null? - _%tl2544125731%_) - (_%__match2683226833%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) + _%tl2547725767%_) + (_%__match2686826869%_ + _%e2544925892%_ + _%hd2545025896%_ + _%tl2545125899%_ + _%e2545225902%_ + _%hd2545325906%_ + _%tl2545425909%_ + _%__splice2681026811%_ + _%target2547525764%_ + _%tl2547725767%_) (if (gx#stx-pair? - _%tl2541825873%_) - (let ((_%e2545725622%_ + _%tl2545425909%_) + (let ((_%e2549325658%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2541825873%_))) - (let ((_%tl2545925629%_ + (gx#syntax-e _%tl2545425909%_))) + (let ((_%tl2549525665%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2549325658%_))) + (_%hd2549425662%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2549325658%_)))) + (if (gx#stx-pair/null? _%tl2549525665%_) + (let ((_%__splice2681426815%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2549525665%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2549825671%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '1))) - (_%target2546025632%_ + (_%target2549625668%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2549825671%_) + (_%__match2689426895%_ + _%e2544925892%_ + _%hd2545025896%_ + _%tl2545125899%_ + _%e2545225902%_ + _%hd2545325906%_ + _%tl2545425909%_ + _%e2549325658%_ + _%hd2549425662%_ + _%tl2549525665%_ + _%__splice2681426815%_ + _%target2549625668%_ + _%tl2549825671%_) (let () (declare (not safe)) - (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))))))) + (_%g2544425531%_))))) + (let () (declare (not safe)) (_%g2544425531%_))))) + (let () (declare (not safe)) (_%g2544425531%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2677426775%_ + (let ((_%__splice2681026811%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2545425909%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2547725767%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2681026811%_ '1))) - (_%target2543925728%_ + (_%target2547525764%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2681026811%_ '0)))) - (if (gx#stx-null? _%tl2544125731%_) - (_%__match2683226833%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) + (if (gx#stx-null? _%tl2547725767%_) + (_%__match2686826869%_ + _%e2544925892%_ + _%hd2545025896%_ + _%tl2545125899%_ + _%e2545225902%_ + _%hd2545325906%_ + _%tl2545425909%_ + _%__splice2681026811%_ + _%target2547525764%_ + _%tl2547725767%_) (if (gx#stx-pair? - _%tl2541825873%_) - (let ((_%e2545725622%_ + _%tl2545425909%_) + (let ((_%e2549325658%_ (gx#syntax-e - _%tl2541825873%_))) - (let ((_%tl2545925629%_ + _%tl2545425909%_))) + (let ((_%tl2549525665%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ - (let () (declare (not safe)) (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ - (gx#syntax-split-splice _%tl2545925629%_ '0))) - (let ((_%tl2546225635%_ + (##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%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677826779%_ '1))) - (_%target2546025632%_ + (##vector-ref _%__splice2681426815%_ '1))) + (_%target2549625668%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677826779%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) - (let () (declare (not safe)) (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2540825495%_))))))) - (if (gx#stx-pair? _%tl2541825873%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2541825873%_))) - (let ((_%tl2545925629%_ + (_%g2544425531%_))))))) + (if (gx#stx-pair? _%tl2545425909%_) + (let ((_%e2549325658%_ + (gx#syntax-e _%tl2545425909%_))) + (let ((_%tl2549525665%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2549325658%_))) + (_%hd2549425662%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) + (##car _%e2549325658%_)))) (if (gx#stx-pair/null? - _%tl2545925629%_) - (let ((_%__splice2677826779%_ + _%tl2549525665%_) + (let ((_%__splice2681426815%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2549525665%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2549825671%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '1))) - (_%target2546025632%_ + (_%target2549625668%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2681426815%_ '0)))) (if (gx#stx-null? - _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + _%tl2549825671%_) + (_%__match2689426895%_ + _%e2544925892%_ + _%hd2545025896%_ + _%tl2545125899%_ + _%e2545225902%_ + _%hd2545325906%_ + _%tl2545425909%_ + _%e2549325658%_ + _%hd2549425662%_ + _%tl2549525665%_ + _%__splice2681426815%_ + _%target2549625668%_ + _%tl2549825671%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2544425531%_))))) (let () (declare (not safe)) - (_%g2540825495%_)))))) - (let () (declare (not safe)) (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))))))) + (_%g2544425531%_)))))) + (let () (declare (not safe)) (_%g2544425531%_))))) + (let () (declare (not safe)) (_%g2544425531%_))))))))) (define |gerbil/core/mop~MOP-4[:0:]#@| - (lambda (_%$stx26047%_) - (let* ((_%__stx2688726888%_ _%$stx26047%_) - (_%g2605226092%_ + (lambda (_%$stx26083%_) + (let* ((_%__stx2692326924%_ _%$stx26083%_) + (_%g2608826128%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2688726888%_)))) - (let ((_%__kont2689026891%_ - (lambda (_%L26230%_ _%L26232%_) + _%__stx2692326924%_)))) + (let ((_%__kont2692626927%_ + (lambda (_%L26266%_ _%L26268%_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _%L26232%_ + (cons _%L26268%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26230%_ '())) + (cons _%L26266%_ '())) '()))))) - (_%__kont2689226893%_ - (lambda (_%L26159%_ _%L26161%_ _%L26162%_ _%L26163%_) - (cons _%L26163%_ - (cons (cons _%L26163%_ - (cons _%L26162%_ (cons _%L26161%_ '()))) - (foldr (lambda (_%g2618426187%_ _%g2618526190%_) - (cons _%g2618426187%_ _%g2618526190%_)) + (_%__kont2692826929%_ + (lambda (_%L26195%_ _%L26197%_ _%L26198%_ _%L26199%_) + (cons _%L26199%_ + (cons (cons _%L26199%_ + (cons _%L26198%_ (cons _%L26197%_ '()))) + (foldr (lambda (_%g2622026223%_ _%g2622126226%_) + (cons _%g2622026223%_ _%g2622126226%_)) '() - _%L26159%_)))))) - (let* ((_%__match2694226943%_ - (lambda (_%e2606926099%_ - _%hd2607026103%_ - _%tl2607126106%_ - _%e2607226109%_ - _%hd2607326113%_ - _%tl2607426116%_ - _%e2607526119%_ - _%hd2607626123%_ - _%tl2607726126%_ - _%__splice2689426895%_ - _%target2607826129%_ - _%tl2608026132%_) - (letrec ((_%loop2608126135%_ - (lambda (_%hd2607926139%_ _%rest2608526142%_) - (if (gx#stx-pair? _%hd2607926139%_) - (let ((_%e2608226145%_ - (gx#syntax-e _%hd2607926139%_))) - (let ((_%lp-tl2608426152%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e2608226145%_))) - (_%lp-hd2608326149%_ + (##cdr _%e2611826181%_))) + (_%lp-hd2611926185%_ (let () (declare (not safe)) - (##car _%e2608226145%_)))) - (_%loop2608126135%_ - _%lp-tl2608426152%_ - (cons _%lp-hd2608326149%_ - _%rest2608526142%_)))) - (let ((_%rest2608626155%_ - (reverse _%rest2608526142%_))) - (_%__kont2689226893%_ - _%rest2608626155%_ - _%hd2607626123%_ - _%hd2607326113%_ - _%hd2607026103%_)))))) - (_%loop2608126135%_ _%target2607826129%_ '())))) - (_%__match2691626917%_ - (lambda (_%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_) - (let ((_%L26230%_ _%hd2606326224%_) - (_%L26232%_ _%hd2606026214%_)) - (if (gx#identifier? _%L26230%_) - (_%__kont2689026891%_ _%L26230%_ _%L26232%_) - (if (gx#stx-pair/null? _%tl2606426227%_) - (let ((_%__splice2689426895%_ + (##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%_ (gx#syntax-split-splice - _%tl2606426227%_ + _%tl2610026263%_ '0))) - (let ((_%tl2608026132%_ + (let ((_%tl2611626168%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2693026931%_ '1))) - (_%target2607826129%_ + (_%target2611426165%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2693026931%_ '0)))) - (if (gx#stx-null? _%tl2608026132%_) - (_%__match2694226943%_ - _%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_ - _%__splice2689426895%_ - _%target2607826129%_ - _%tl2608026132%_) + (if (gx#stx-null? _%tl2611626168%_) + (_%__match2697826979%_ + _%e2609226236%_ + _%hd2609326240%_ + _%tl2609426243%_ + _%e2609526246%_ + _%hd2609626250%_ + _%tl2609726253%_ + _%e2609826256%_ + _%hd2609926260%_ + _%tl2610026263%_ + _%__splice2693026931%_ + _%target2611426165%_ + _%tl2611626168%_) (let () (declare (not safe)) - (_%g2605226092%_))))) + (_%g2608826128%_))))) (let () (declare (not safe)) - (_%g2605226092%_)))))))) - (if (gx#stx-pair? _%__stx2688726888%_) - (let ((_%e2605626200%_ (gx#syntax-e _%__stx2688726888%_))) - (let ((_%tl2605826207%_ + (_%g2608826128%_)))))))) + (if (gx#stx-pair? _%__stx2692326924%_) + (let ((_%e2609226236%_ (gx#syntax-e _%__stx2692326924%_))) + (let ((_%tl2609426243%_ (let () (declare (not safe)) - (##cdr _%e2605626200%_))) - (_%hd2605726204%_ + (##cdr _%e2609226236%_))) + (_%hd2609326240%_ (let () (declare (not safe)) - (##car _%e2605626200%_)))) - (if (gx#stx-pair? _%tl2605826207%_) - (let ((_%e2605926210%_ - (gx#syntax-e _%tl2605826207%_))) - (let ((_%tl2606126217%_ + (##car _%e2609226236%_)))) + (if (gx#stx-pair? _%tl2609426243%_) + (let ((_%e2609526246%_ + (gx#syntax-e _%tl2609426243%_))) + (let ((_%tl2609726253%_ (let () (declare (not safe)) - (##cdr _%e2605926210%_))) - (_%hd2606026214%_ + (##cdr _%e2609526246%_))) + (_%hd2609626250%_ (let () (declare (not safe)) - (##car _%e2605926210%_)))) - (if (gx#stx-pair? _%tl2606126217%_) - (let ((_%e2606226220%_ - (gx#syntax-e _%tl2606126217%_))) - (let ((_%tl2606426227%_ + (##car _%e2609526246%_)))) + (if (gx#stx-pair? _%tl2609726253%_) + (let ((_%e2609826256%_ + (gx#syntax-e _%tl2609726253%_))) + (let ((_%tl2610026263%_ (let () (declare (not safe)) - (##cdr _%e2606226220%_))) - (_%hd2606326224%_ + (##cdr _%e2609826256%_))) + (_%hd2609926260%_ (let () (declare (not safe)) - (##car _%e2606226220%_)))) - (if (gx#stx-null? _%tl2606426227%_) - (_%__match2691626917%_ - _%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_) + (##car _%e2609826256%_)))) + (if (gx#stx-null? _%tl2610026263%_) + (_%__match2695226953%_ + _%e2609226236%_ + _%hd2609326240%_ + _%tl2609426243%_ + _%e2609526246%_ + _%hd2609626250%_ + _%tl2609726253%_ + _%e2609826256%_ + _%hd2609926260%_ + _%tl2610026263%_) (if (gx#stx-pair/null? - _%tl2606426227%_) - (let ((_%__splice2689426895%_ + _%tl2610026263%_) + (let ((_%__splice2693026931%_ (gx#syntax-split-splice - _%tl2606426227%_ + _%tl2610026263%_ '0))) - (let ((_%tl2608026132%_ + (let ((_%tl2611626168%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2693026931%_ '1))) - (_%target2607826129%_ + (_%target2611426165%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2693026931%_ '0)))) (if (gx#stx-null? - _%tl2608026132%_) - (_%__match2694226943%_ - _%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_ - _%__splice2689426895%_ - _%target2607826129%_ - _%tl2608026132%_) + _%tl2611626168%_) + (_%__match2697826979%_ + _%e2609226236%_ + _%hd2609326240%_ + _%tl2609426243%_ + _%e2609526246%_ + _%hd2609626250%_ + _%tl2609726253%_ + _%e2609826256%_ + _%hd2609926260%_ + _%tl2610026263%_ + _%__splice2693026931%_ + _%target2611426165%_ + _%tl2611626168%_) (let () (declare (not safe)) - (_%g2605226092%_))))) + (_%g2608826128%_))))) (let () (declare (not safe)) - (_%g2605226092%_)))))) + (_%g2608826128%_)))))) (let () (declare (not safe)) - (_%g2605226092%_))))) - (let () (declare (not safe)) (_%g2605226092%_))))) - (let () (declare (not safe)) (_%g2605226092%_)))))))) + (_%g2608826128%_))))) + (let () (declare (not safe)) (_%g2608826128%_))))) + (let () (declare (not safe)) (_%g2608826128%_)))))))) (define |gerbil/core/mop~MOP-4[:0:]#@-set!| - (lambda (_%$stx26252%_) - (let* ((_%__stx2694526946%_ _%$stx26252%_) - (_%g2625726309%_ + (lambda (_%$stx26288%_) + (let* ((_%__stx2698126982%_ _%$stx26288%_) + (_%g2629326345%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2694526946%_)))) - (let ((_%__kont2694826949%_ - (lambda (_%L26485%_ _%L26487%_ _%L26488%_) + _%__stx2698126982%_)))) + (let ((_%__kont2698426985%_ + (lambda (_%L26521%_ _%L26523%_ _%L26524%_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _%L26488%_ + (cons _%L26524%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26487%_ '())) - (cons _%L26485%_ '())))))) - (_%__kont2695026951%_ - (lambda (_%L26396%_ - _%L26398%_ - _%L26399%_ - _%L26400%_ - _%L26401%_ - _%L26402%_) - (cons _%L26402%_ + (cons _%L26523%_ '())) + (cons _%L26521%_ '())))))) + (_%__kont2698626987%_ + (lambda (_%L26432%_ + _%L26434%_ + _%L26435%_ + _%L26436%_ + _%L26437%_ + _%L26438%_) + (cons _%L26438%_ (cons (cons (gx#datum->syntax '#f '@) - (cons _%L26401%_ - (cons _%L26400%_ - (foldr (lambda (_%g2642926432%_ + (cons _%L26437%_ + (cons _%L26436%_ + (foldr (lambda (_%g2646526468%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2643026435%_) - (cons _%g2642926432%_ _%g2643026435%_)) + _%g2646626471%_) + (cons _%g2646526468%_ _%g2646626471%_)) '() - _%L26399%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L26398%_ (cons _%L26396%_ '()))))))) - (let* ((_%__match2702027021%_ - (lambda (_%e2628026316%_ - _%hd2628126320%_ - _%tl2628226323%_ - _%e2628326326%_ - _%hd2628426330%_ - _%tl2628526333%_ - _%e2628626336%_ - _%hd2628726340%_ - _%tl2628826343%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) - (letrec ((_%loop2629226372%_ - (lambda (_%hd2629026376%_ _%path2629626379%_) - (if (gx#stx-pair? _%hd2629026376%_) - (let ((_%e2629326382%_ - (gx#syntax-e _%hd2629026376%_))) - (let ((_%lp-tl2629526389%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e2629326382%_))) - (_%lp-hd2629426386%_ + (##cdr _%e2632926418%_))) + (_%lp-hd2633026422%_ (let () (declare (not safe)) - (##car _%e2629326382%_)))) - (_%loop2629226372%_ - _%lp-tl2629526389%_ - (cons _%lp-hd2629426386%_ - _%path2629626379%_)))) - (let ((_%path2629726392%_ - (reverse _%path2629626379%_))) - (_%__kont2695026951%_ - _%hd2630226366%_ - _%hd2629926356%_ - _%path2629726392%_ - _%hd2628726340%_ - _%hd2628426330%_ - _%hd2628126320%_)))))) - (_%loop2629226372%_ _%target2628926346%_ '())))) - (_%__match2698026981%_ - (lambda (_%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%e2627126475%_ - _%hd2627226479%_ - _%tl2627326482%_) - (let ((_%L26485%_ _%hd2627226479%_) - (_%L26487%_ _%hd2626926469%_) - (_%L26488%_ _%hd2626626459%_)) - (if (gx#identifier? _%L26487%_) - (_%__kont2694826949%_ - _%L26485%_ - _%L26487%_ - _%L26488%_) - (if (gx#stx-pair/null? _%tl2627026472%_) - (if (let ((__tmp27238 - (gx#stx-length _%tl2627026472%_))) + (##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%_))) (declare (not safe)) - (##fx>= __tmp27238 '2)) - (let ((_%__splice2695226953%_ + (##fx>= __tmp27274 '2)) + (let ((_%__splice2698826989%_ (gx#syntax-split-splice - _%tl2627026472%_ + _%tl2630626508%_ '2))) - (let ((_%tl2629126349%_ + (let ((_%tl2632726385%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2698826989%_ '1))) - (_%target2628926346%_ + (_%target2632526382%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2698826989%_ '0)))) - (if (gx#stx-pair? _%tl2629126349%_) - (let ((_%e2629826352%_ + (if (gx#stx-pair? _%tl2632726385%_) + (let ((_%e2633426388%_ (gx#syntax-e - _%tl2629126349%_))) - (let ((_%tl2630026359%_ + _%tl2632726385%_))) + (let ((_%tl2633626395%_ (let () (declare (not safe)) - (##cdr _%e2629826352%_))) - (_%hd2629926356%_ + (##cdr _%e2633426388%_))) + (_%hd2633526392%_ (let () (declare (not safe)) - (##car _%e2629826352%_)))) + (##car _%e2633426388%_)))) (if (gx#stx-pair? - _%tl2630026359%_) - (let ((_%e2630126362%_ + _%tl2633626395%_) + (let ((_%e2633726398%_ (gx#syntax-e - _%tl2630026359%_))) - (let ((_%tl2630326369%_ + _%tl2633626395%_))) + (let ((_%tl2633926405%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2630126362%_))) - (_%hd2630226366%_ - (let () (declare (not safe)) (##car _%e2630126362%_)))) - (if (gx#stx-null? _%tl2630326369%_) - (_%__match2702027021%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) - (let () (declare (not safe)) (_%g2625726309%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2625726309%_))))) + (_%g2629326345%_))))) (let () (declare (not safe)) - (_%g2625726309%_))))) + (_%g2629326345%_))))) (let () (declare (not safe)) - (_%g2625726309%_))) + (_%g2629326345%_))) (let () (declare (not safe)) - (_%g2625726309%_)))))))) - (if (gx#stx-pair? _%__stx2694526946%_) - (let ((_%e2626226445%_ (gx#syntax-e _%__stx2694526946%_))) - (let ((_%tl2626426452%_ + (_%g2629326345%_)))))))) + (if (gx#stx-pair? _%__stx2698126982%_) + (let ((_%e2629826481%_ (gx#syntax-e _%__stx2698126982%_))) + (let ((_%tl2630026488%_ (let () (declare (not safe)) - (##cdr _%e2626226445%_))) - (_%hd2626326449%_ + (##cdr _%e2629826481%_))) + (_%hd2629926485%_ (let () (declare (not safe)) - (##car _%e2626226445%_)))) - (if (gx#stx-pair? _%tl2626426452%_) - (let ((_%e2626526455%_ - (gx#syntax-e _%tl2626426452%_))) - (let ((_%tl2626726462%_ + (##car _%e2629826481%_)))) + (if (gx#stx-pair? _%tl2630026488%_) + (let ((_%e2630126491%_ + (gx#syntax-e _%tl2630026488%_))) + (let ((_%tl2630326498%_ (let () (declare (not safe)) - (##cdr _%e2626526455%_))) - (_%hd2626626459%_ + (##cdr _%e2630126491%_))) + (_%hd2630226495%_ (let () (declare (not safe)) - (##car _%e2626526455%_)))) - (if (gx#stx-pair? _%tl2626726462%_) - (let ((_%e2626826465%_ - (gx#syntax-e _%tl2626726462%_))) - (let ((_%tl2627026472%_ + (##car _%e2630126491%_)))) + (if (gx#stx-pair? _%tl2630326498%_) + (let ((_%e2630426501%_ + (gx#syntax-e _%tl2630326498%_))) + (let ((_%tl2630626508%_ (let () (declare (not safe)) - (##cdr _%e2626826465%_))) - (_%hd2626926469%_ + (##cdr _%e2630426501%_))) + (_%hd2630526505%_ (let () (declare (not safe)) - (##car _%e2626826465%_)))) - (if (gx#stx-pair? _%tl2627026472%_) - (let ((_%e2627126475%_ + (##car _%e2630426501%_)))) + (if (gx#stx-pair? _%tl2630626508%_) + (let ((_%e2630726511%_ (gx#syntax-e - _%tl2627026472%_))) - (let ((_%tl2627326482%_ + _%tl2630626508%_))) + (let ((_%tl2630926518%_ (let () (declare (not safe)) - (##cdr _%e2627126475%_))) - (_%hd2627226479%_ + (##cdr _%e2630726511%_))) + (_%hd2630826515%_ (let () (declare (not safe)) - (##car _%e2627126475%_)))) + (##car _%e2630726511%_)))) (if (gx#stx-null? - _%tl2627326482%_) - (_%__match2698026981%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%e2627126475%_ - _%hd2627226479%_ - _%tl2627326482%_) + _%tl2630926518%_) + (_%__match2701627017%_ + _%e2629826481%_ + _%hd2629926485%_ + _%tl2630026488%_ + _%e2630126491%_ + _%hd2630226495%_ + _%tl2630326498%_ + _%e2630426501%_ + _%hd2630526505%_ + _%tl2630626508%_ + _%e2630726511%_ + _%hd2630826515%_ + _%tl2630926518%_) (if (gx#stx-pair/null? - _%tl2627026472%_) - (if (let ((__tmp27239 + _%tl2630626508%_) + (if (let ((__tmp27275 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%tl2627026472%_))) + (gx#stx-length _%tl2630626508%_))) (declare (not safe)) - (##fx>= __tmp27239 '2)) - (let ((_%__splice2695226953%_ - (gx#syntax-split-splice _%tl2627026472%_ '2))) - (let ((_%tl2629126349%_ + (##fx>= __tmp27275 '2)) + (let ((_%__splice2698826989%_ + (gx#syntax-split-splice _%tl2630626508%_ '2))) + (let ((_%tl2632726385%_ (let () (declare (not safe)) - (##vector-ref _%__splice2695226953%_ '1))) - (_%target2628926346%_ + (##vector-ref _%__splice2698826989%_ '1))) + (_%target2632526382%_ (let () (declare (not safe)) - (##vector-ref _%__splice2695226953%_ '0)))) - (if (gx#stx-pair? _%tl2629126349%_) - (let ((_%e2629826352%_ - (gx#syntax-e _%tl2629126349%_))) - (let ((_%tl2630026359%_ + (##vector-ref _%__splice2698826989%_ '0)))) + (if (gx#stx-pair? _%tl2632726385%_) + (let ((_%e2633426388%_ + (gx#syntax-e _%tl2632726385%_))) + (let ((_%tl2633626395%_ (let () (declare (not safe)) - (##cdr _%e2629826352%_))) - (_%hd2629926356%_ + (##cdr _%e2633426388%_))) + (_%hd2633526392%_ (let () (declare (not safe)) - (##car _%e2629826352%_)))) - (if (gx#stx-pair? _%tl2630026359%_) - (let ((_%e2630126362%_ - (gx#syntax-e _%tl2630026359%_))) - (let ((_%tl2630326369%_ + (##car _%e2633426388%_)))) + (if (gx#stx-pair? _%tl2633626395%_) + (let ((_%e2633726398%_ + (gx#syntax-e _%tl2633626395%_))) + (let ((_%tl2633926405%_ (let () (declare (not safe)) - (##cdr _%e2630126362%_))) - (_%hd2630226366%_ + (##cdr _%e2633726398%_))) + (_%hd2633826402%_ (let () (declare (not safe)) - (##car _%e2630126362%_)))) - (if (gx#stx-null? _%tl2630326369%_) - (_%__match2702027021%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) + (##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)) - (_%g2625726309%_))))) + (_%g2629326345%_))))) (let () (declare (not safe)) - (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))) - (let () (declare (not safe)) (_%g2625726309%_)))))) + (_%g2629326345%_))))) + (let () (declare (not safe)) (_%g2629326345%_))))) + (let () (declare (not safe)) (_%g2629326345%_))) + (let () (declare (not safe)) (_%g2629326345%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl2627026472%_) - (if (let ((__tmp27240 + _%tl2630626508%_) + (if (let ((__tmp27276 (gx#stx-length - _%tl2627026472%_))) + _%tl2630626508%_))) (declare (not safe)) - (##fx>= __tmp27240 '2)) - (let ((_%__splice2695226953%_ + (##fx>= __tmp27276 '2)) + (let ((_%__splice2698826989%_ (gx#syntax-split-splice - _%tl2627026472%_ + _%tl2630626508%_ '2))) - (let ((_%tl2629126349%_ + (let ((_%tl2632726385%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2698826989%_ '1))) - (_%target2628926346%_ + (_%target2632526382%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2698826989%_ '0)))) (if (gx#stx-pair? - _%tl2629126349%_) - (let ((_%e2629826352%_ + _%tl2632726385%_) + (let ((_%e2633426388%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2629126349%_))) - (let ((_%tl2630026359%_ + (gx#syntax-e _%tl2632726385%_))) + (let ((_%tl2633626395%_ (let () (declare (not safe)) - (##cdr _%e2629826352%_))) - (_%hd2629926356%_ + (##cdr _%e2633426388%_))) + (_%hd2633526392%_ (let () (declare (not safe)) - (##car _%e2629826352%_)))) - (if (gx#stx-pair? _%tl2630026359%_) - (let ((_%e2630126362%_ - (gx#syntax-e _%tl2630026359%_))) - (let ((_%tl2630326369%_ + (##car _%e2633426388%_)))) + (if (gx#stx-pair? _%tl2633626395%_) + (let ((_%e2633726398%_ + (gx#syntax-e _%tl2633626395%_))) + (let ((_%tl2633926405%_ (let () (declare (not safe)) - (##cdr _%e2630126362%_))) - (_%hd2630226366%_ + (##cdr _%e2633726398%_))) + (_%hd2633826402%_ (let () (declare (not safe)) - (##car _%e2630126362%_)))) - (if (gx#stx-null? _%tl2630326369%_) - (_%__match2702027021%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) + (##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)) - (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) + (_%g2629326345%_))))) + (let () (declare (not safe)) (_%g2629326345%_))))) + (let () (declare (not safe)) (_%g2629326345%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2625726309%_))) + (_%g2629326345%_))) (let () (declare (not safe)) - (_%g2625726309%_)))))) + (_%g2629326345%_)))))) (let () (declare (not safe)) - (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_)))))))))) + (_%g2629326345%_))))) + (let () (declare (not safe)) (_%g2629326345%_))))) + (let () (declare (not safe)) (_%g2629326345%_)))))))))) diff --git a/src/bootstrap/gerbil/core/mop~4.scm b/src/bootstrap/gerbil/core/mop~4.scm index 1ea54f5fb..bbf9f88ec 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]#_g27244_| + (define |gerbil/core/mop~MOP-5[1]#_g27280_| (##structure gx#syntax-quote::t 't::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27246_| + (define |gerbil/core/mop~MOP-5[1]#_g27282_| (##structure gx#syntax-quote::t 'true #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27248_| + (define |gerbil/core/mop~MOP-5[1]#_g27284_| (##structure gx#syntax-quote::t ':t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27250_| + (define |gerbil/core/mop~MOP-5[1]#_g27286_| (##structure gx#syntax-quote::t 'class::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27252_| + (define |gerbil/core/mop~MOP-5[1]#_g27288_| (##structure gx#syntax-quote::t 'class-type? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27256_| + (define |gerbil/core/mop~MOP-5[1]#_g27292_| (##structure gx#syntax-quote::t 'make-class-type #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27259_| + (define |gerbil/core/mop~MOP-5[1]#_g27295_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27260_| + (define |gerbil/core/mop~MOP-5[1]#_g27296_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27261_| + (define |gerbil/core/mop~MOP-5[1]#_g27297_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27262_| + (define |gerbil/core/mop~MOP-5[1]#_g27298_| (##structure gx#syntax-quote::t 'class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27263_| + (define |gerbil/core/mop~MOP-5[1]#_g27299_| (##structure gx#syntax-quote::t 'class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27264_| + (define |gerbil/core/mop~MOP-5[1]#_g27300_| (##structure gx#syntax-quote::t 'class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27265_| + (define |gerbil/core/mop~MOP-5[1]#_g27301_| (##structure gx#syntax-quote::t 'class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27266_| + (define |gerbil/core/mop~MOP-5[1]#_g27302_| (##structure gx#syntax-quote::t 'class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27267_| + (define |gerbil/core/mop~MOP-5[1]#_g27303_| (##structure gx#syntax-quote::t 'class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27268_| + (define |gerbil/core/mop~MOP-5[1]#_g27304_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27269_| + (define |gerbil/core/mop~MOP-5[1]#_g27305_| (##structure gx#syntax-quote::t 'class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27271_| + (define |gerbil/core/mop~MOP-5[1]#_g27307_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27272_| + (define |gerbil/core/mop~MOP-5[1]#_g27308_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27273_| + (define |gerbil/core/mop~MOP-5[1]#_g27309_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27274_| + (define |gerbil/core/mop~MOP-5[1]#_g27310_| (##structure gx#syntax-quote::t '&class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27275_| + (define |gerbil/core/mop~MOP-5[1]#_g27311_| (##structure gx#syntax-quote::t '&class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27276_| + (define |gerbil/core/mop~MOP-5[1]#_g27312_| (##structure gx#syntax-quote::t '&class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27277_| + (define |gerbil/core/mop~MOP-5[1]#_g27313_| (##structure gx#syntax-quote::t '&class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27278_| + (define |gerbil/core/mop~MOP-5[1]#_g27314_| (##structure gx#syntax-quote::t '&class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27279_| + (define |gerbil/core/mop~MOP-5[1]#_g27315_| (##structure gx#syntax-quote::t '&class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27280_| + (define |gerbil/core/mop~MOP-5[1]#_g27316_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27281_| + (define |gerbil/core/mop~MOP-5[1]#_g27317_| (##structure gx#syntax-quote::t '&class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27284_| + (define |gerbil/core/mop~MOP-5[1]#_g27320_| (##structure gx#syntax-quote::t 'object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27288_| + (define |gerbil/core/mop~MOP-5[1]#_g27324_| (##structure gx#syntax-quote::t 'immediate::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27290_| + (define |gerbil/core/mop~MOP-5[1]#_g27326_| (##structure gx#syntax-quote::t 'immediate? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27292_| + (define |gerbil/core/mop~MOP-5[1]#_g27328_| (##structure gx#syntax-quote::t ':immediate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27294_| + (define |gerbil/core/mop~MOP-5[1]#_g27330_| (##structure gx#syntax-quote::t 'char::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27296_| + (define |gerbil/core/mop~MOP-5[1]#_g27332_| (##structure gx#syntax-quote::t 'char? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27299_| + (define |gerbil/core/mop~MOP-5[1]#_g27335_| (##structure gx#syntax-quote::t 'boolean::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27301_| + (define |gerbil/core/mop~MOP-5[1]#_g27337_| (##structure gx#syntax-quote::t 'boolean? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27304_| + (define |gerbil/core/mop~MOP-5[1]#_g27340_| (##structure gx#syntax-quote::t 'atom::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27306_| + (define |gerbil/core/mop~MOP-5[1]#_g27342_| (##structure gx#syntax-quote::t 'atom? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27308_| + (define |gerbil/core/mop~MOP-5[1]#_g27344_| (##structure gx#syntax-quote::t ':atom #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27310_| + (define |gerbil/core/mop~MOP-5[1]#_g27346_| (##structure gx#syntax-quote::t 'void::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27312_| + (define |gerbil/core/mop~MOP-5[1]#_g27348_| (##structure gx#syntax-quote::t 'void? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27315_| + (define |gerbil/core/mop~MOP-5[1]#_g27351_| (##structure gx#syntax-quote::t 'eof::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27317_| + (define |gerbil/core/mop~MOP-5[1]#_g27353_| (##structure gx#syntax-quote::t 'eof-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27319_| + (define |gerbil/core/mop~MOP-5[1]#_g27355_| (##structure gx#syntax-quote::t ':boolean #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27321_| + (define |gerbil/core/mop~MOP-5[1]#_g27357_| (##structure gx#syntax-quote::t 'true::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27323_| + (define |gerbil/core/mop~MOP-5[1]#_g27359_| (##structure gx#syntax-quote::t 'true? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27326_| + (define |gerbil/core/mop~MOP-5[1]#_g27362_| (##structure gx#syntax-quote::t 'false::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27328_| + (define |gerbil/core/mop~MOP-5[1]#_g27364_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27331_| + (define |gerbil/core/mop~MOP-5[1]#_g27367_| (##structure gx#syntax-quote::t 'special::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27333_| + (define |gerbil/core/mop~MOP-5[1]#_g27369_| (##structure gx#syntax-quote::t 'special? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27336_| + (define |gerbil/core/mop~MOP-5[1]#_g27372_| (##structure gx#syntax-quote::t 'number::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27338_| + (define |gerbil/core/mop~MOP-5[1]#_g27374_| (##structure gx#syntax-quote::t 'number? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27340_| + (define |gerbil/core/mop~MOP-5[1]#_g27376_| (##structure gx#syntax-quote::t ':number #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27342_| + (define |gerbil/core/mop~MOP-5[1]#_g27378_| (##structure gx#syntax-quote::t 'real::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27344_| + (define |gerbil/core/mop~MOP-5[1]#_g27380_| (##structure gx#syntax-quote::t 'real? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27346_| + (define |gerbil/core/mop~MOP-5[1]#_g27382_| (##structure gx#syntax-quote::t ':real #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27348_| + (define |gerbil/core/mop~MOP-5[1]#_g27384_| (##structure gx#syntax-quote::t 'integer::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27350_| + (define |gerbil/core/mop~MOP-5[1]#_g27386_| (##structure gx#syntax-quote::t 'exact-integer? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27352_| + (define |gerbil/core/mop~MOP-5[1]#_g27388_| (##structure gx#syntax-quote::t ':integer #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27354_| + (define |gerbil/core/mop~MOP-5[1]#_g27390_| (##structure gx#syntax-quote::t 'fixnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27356_| + (define |gerbil/core/mop~MOP-5[1]#_g27392_| (##structure gx#syntax-quote::t 'fixnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27359_| + (define |gerbil/core/mop~MOP-5[1]#_g27395_| (##structure gx#syntax-quote::t 'bignum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27361_| + (define |gerbil/core/mop~MOP-5[1]#_g27397_| (##structure gx#syntax-quote::t '##bignum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27364_| + (define |gerbil/core/mop~MOP-5[1]#_g27400_| (##structure gx#syntax-quote::t 'ratnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27366_| + (define |gerbil/core/mop~MOP-5[1]#_g27402_| (##structure gx#syntax-quote::t '##ratnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27369_| + (define |gerbil/core/mop~MOP-5[1]#_g27405_| (##structure gx#syntax-quote::t 'flonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27371_| + (define |gerbil/core/mop~MOP-5[1]#_g27407_| (##structure gx#syntax-quote::t 'flonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27374_| + (define |gerbil/core/mop~MOP-5[1]#_g27410_| (##structure gx#syntax-quote::t 'cpxnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27376_| + (define |gerbil/core/mop~MOP-5[1]#_g27412_| (##structure gx#syntax-quote::t '##cpxnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27379_| + (define |gerbil/core/mop~MOP-5[1]#_g27415_| (##structure gx#syntax-quote::t 'symbolic::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27381_| + (define |gerbil/core/mop~MOP-5[1]#_g27417_| (##structure gx#syntax-quote::t 'symbolic? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27383_| + (define |gerbil/core/mop~MOP-5[1]#_g27419_| (##structure gx#syntax-quote::t ':symbolic #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27385_| + (define |gerbil/core/mop~MOP-5[1]#_g27421_| (##structure gx#syntax-quote::t 'symbol::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27387_| + (define |gerbil/core/mop~MOP-5[1]#_g27423_| (##structure gx#syntax-quote::t 'symbol? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27390_| + (define |gerbil/core/mop~MOP-5[1]#_g27426_| (##structure gx#syntax-quote::t 'keyword::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27392_| + (define |gerbil/core/mop~MOP-5[1]#_g27428_| (##structure gx#syntax-quote::t 'keyword? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27395_| + (define |gerbil/core/mop~MOP-5[1]#_g27431_| (##structure gx#syntax-quote::t 'list::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27397_| + (define |gerbil/core/mop~MOP-5[1]#_g27433_| (##structure gx#syntax-quote::t 'list? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27399_| + (define |gerbil/core/mop~MOP-5[1]#_g27435_| (##structure gx#syntax-quote::t ':list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27401_| + (define |gerbil/core/mop~MOP-5[1]#_g27437_| (##structure gx#syntax-quote::t 'pair::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27403_| + (define |gerbil/core/mop~MOP-5[1]#_g27439_| (##structure gx#syntax-quote::t 'pair? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27406_| + (define |gerbil/core/mop~MOP-5[1]#_g27442_| (##structure gx#syntax-quote::t 'null::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27408_| + (define |gerbil/core/mop~MOP-5[1]#_g27444_| (##structure gx#syntax-quote::t 'null? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27411_| + (define |gerbil/core/mop~MOP-5[1]#_g27447_| (##structure gx#syntax-quote::t 'sequence::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27413_| + (define |gerbil/core/mop~MOP-5[1]#_g27449_| (##structure gx#syntax-quote::t 'sequence? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27415_| + (define |gerbil/core/mop~MOP-5[1]#_g27451_| (##structure gx#syntax-quote::t ':sequence #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27417_| + (define |gerbil/core/mop~MOP-5[1]#_g27453_| (##structure gx#syntax-quote::t 'vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27419_| + (define |gerbil/core/mop~MOP-5[1]#_g27455_| (##structure gx#syntax-quote::t 'vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27422_| + (define |gerbil/core/mop~MOP-5[1]#_g27458_| (##structure gx#syntax-quote::t 'string::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27424_| + (define |gerbil/core/mop~MOP-5[1]#_g27460_| (##structure gx#syntax-quote::t 'string? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27427_| + (define |gerbil/core/mop~MOP-5[1]#_g27463_| (##structure gx#syntax-quote::t 'hvector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27429_| + (define |gerbil/core/mop~MOP-5[1]#_g27465_| (##structure gx#syntax-quote::t 'hvector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27431_| + (define |gerbil/core/mop~MOP-5[1]#_g27467_| (##structure gx#syntax-quote::t ':hvector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27433_| + (define |gerbil/core/mop~MOP-5[1]#_g27469_| (##structure gx#syntax-quote::t 'u8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27435_| + (define |gerbil/core/mop~MOP-5[1]#_g27471_| (##structure gx#syntax-quote::t 'u8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27438_| + (define |gerbil/core/mop~MOP-5[1]#_g27474_| (##structure gx#syntax-quote::t 's8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27440_| + (define |gerbil/core/mop~MOP-5[1]#_g27476_| (##structure gx#syntax-quote::t 's8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27443_| + (define |gerbil/core/mop~MOP-5[1]#_g27479_| (##structure gx#syntax-quote::t 'u16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27445_| + (define |gerbil/core/mop~MOP-5[1]#_g27481_| (##structure gx#syntax-quote::t 'u16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27448_| + (define |gerbil/core/mop~MOP-5[1]#_g27484_| (##structure gx#syntax-quote::t 's16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27450_| + (define |gerbil/core/mop~MOP-5[1]#_g27486_| (##structure gx#syntax-quote::t 's16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27453_| + (define |gerbil/core/mop~MOP-5[1]#_g27489_| (##structure gx#syntax-quote::t 'u32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27455_| + (define |gerbil/core/mop~MOP-5[1]#_g27491_| (##structure gx#syntax-quote::t 'u32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27458_| + (define |gerbil/core/mop~MOP-5[1]#_g27494_| (##structure gx#syntax-quote::t 's32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27460_| + (define |gerbil/core/mop~MOP-5[1]#_g27496_| (##structure gx#syntax-quote::t 's32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27463_| + (define |gerbil/core/mop~MOP-5[1]#_g27499_| (##structure gx#syntax-quote::t 'u64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27465_| + (define |gerbil/core/mop~MOP-5[1]#_g27501_| (##structure gx#syntax-quote::t 'u64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27468_| + (define |gerbil/core/mop~MOP-5[1]#_g27504_| (##structure gx#syntax-quote::t 's64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27470_| + (define |gerbil/core/mop~MOP-5[1]#_g27506_| (##structure gx#syntax-quote::t 's64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27473_| + (define |gerbil/core/mop~MOP-5[1]#_g27509_| (##structure gx#syntax-quote::t 'f32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27475_| + (define |gerbil/core/mop~MOP-5[1]#_g27511_| (##structure gx#syntax-quote::t 'f32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27478_| + (define |gerbil/core/mop~MOP-5[1]#_g27514_| (##structure gx#syntax-quote::t 'f64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27480_| + (define |gerbil/core/mop~MOP-5[1]#_g27516_| (##structure gx#syntax-quote::t 'f64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27483_| + (define |gerbil/core/mop~MOP-5[1]#_g27519_| (##structure gx#syntax-quote::t 'values::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27485_| + (define |gerbil/core/mop~MOP-5[1]#_g27521_| (##structure gx#syntax-quote::t '##values? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27488_| + (define |gerbil/core/mop~MOP-5[1]#_g27524_| (##structure gx#syntax-quote::t 'box::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27490_| + (define |gerbil/core/mop~MOP-5[1]#_g27526_| (##structure gx#syntax-quote::t 'box? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27493_| + (define |gerbil/core/mop~MOP-5[1]#_g27529_| (##structure gx#syntax-quote::t 'frame::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27495_| + (define |gerbil/core/mop~MOP-5[1]#_g27531_| (##structure gx#syntax-quote::t '##frame? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27498_| + (define |gerbil/core/mop~MOP-5[1]#_g27534_| (##structure gx#syntax-quote::t 'continuation::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27500_| + (define |gerbil/core/mop~MOP-5[1]#_g27536_| (##structure gx#syntax-quote::t 'continuation? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27503_| + (define |gerbil/core/mop~MOP-5[1]#_g27539_| (##structure gx#syntax-quote::t 'promise::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27505_| + (define |gerbil/core/mop~MOP-5[1]#_g27541_| (##structure gx#syntax-quote::t 'promise? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27508_| + (define |gerbil/core/mop~MOP-5[1]#_g27544_| (##structure gx#syntax-quote::t 'weak::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27510_| + (define |gerbil/core/mop~MOP-5[1]#_g27546_| (##structure gx#syntax-quote::t 'weak? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27513_| + (define |gerbil/core/mop~MOP-5[1]#_g27549_| (##structure gx#syntax-quote::t 'foreign::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27515_| + (define |gerbil/core/mop~MOP-5[1]#_g27551_| (##structure gx#syntax-quote::t 'foreign? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27518_| + (define |gerbil/core/mop~MOP-5[1]#_g27554_| (##structure gx#syntax-quote::t 'procedure::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27520_| + (define |gerbil/core/mop~MOP-5[1]#_g27556_| (##structure gx#syntax-quote::t 'procedure? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27523_| + (define |gerbil/core/mop~MOP-5[1]#_g27559_| (##structure gx#syntax-quote::t 'time::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27525_| + (define |gerbil/core/mop~MOP-5[1]#_g27561_| (##structure gx#syntax-quote::t 'time? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27528_| + (define |gerbil/core/mop~MOP-5[1]#_g27564_| (##structure gx#syntax-quote::t 'thread::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27530_| + (define |gerbil/core/mop~MOP-5[1]#_g27566_| (##structure gx#syntax-quote::t 'thread? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27533_| + (define |gerbil/core/mop~MOP-5[1]#_g27569_| (##structure gx#syntax-quote::t 'thread-group::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27535_| + (define |gerbil/core/mop~MOP-5[1]#_g27571_| (##structure gx#syntax-quote::t 'thread-group? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27538_| + (define |gerbil/core/mop~MOP-5[1]#_g27574_| (##structure gx#syntax-quote::t 'mutex::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27540_| + (define |gerbil/core/mop~MOP-5[1]#_g27576_| (##structure gx#syntax-quote::t 'mutex? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27543_| + (define |gerbil/core/mop~MOP-5[1]#_g27579_| (##structure gx#syntax-quote::t 'condvar::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27545_| + (define |gerbil/core/mop~MOP-5[1]#_g27581_| (##structure gx#syntax-quote::t 'condvar? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27548_| + (define |gerbil/core/mop~MOP-5[1]#_g27584_| (##structure gx#syntax-quote::t 'port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27550_| + (define |gerbil/core/mop~MOP-5[1]#_g27586_| (##structure gx#syntax-quote::t 'port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27552_| + (define |gerbil/core/mop~MOP-5[1]#_g27588_| (##structure gx#syntax-quote::t ':port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27554_| + (define |gerbil/core/mop~MOP-5[1]#_g27590_| (##structure gx#syntax-quote::t 'object-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27556_| + (define |gerbil/core/mop~MOP-5[1]#_g27592_| (##structure gx#syntax-quote::t 'object-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27558_| + (define |gerbil/core/mop~MOP-5[1]#_g27594_| (##structure gx#syntax-quote::t ':object-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27560_| + (define |gerbil/core/mop~MOP-5[1]#_g27596_| (##structure gx#syntax-quote::t 'character-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27562_| + (define |gerbil/core/mop~MOP-5[1]#_g27598_| (##structure gx#syntax-quote::t 'character-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27564_| + (define |gerbil/core/mop~MOP-5[1]#_g27600_| (##structure gx#syntax-quote::t ':character-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27566_| + (define |gerbil/core/mop~MOP-5[1]#_g27602_| (##structure gx#syntax-quote::t 'byte-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27568_| + (define |gerbil/core/mop~MOP-5[1]#_g27604_| (##structure gx#syntax-quote::t 'byte-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27570_| + (define |gerbil/core/mop~MOP-5[1]#_g27606_| (##structure gx#syntax-quote::t ':byte-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27572_| + (define |gerbil/core/mop~MOP-5[1]#_g27608_| (##structure gx#syntax-quote::t 'device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27574_| + (define |gerbil/core/mop~MOP-5[1]#_g27610_| (##structure gx#syntax-quote::t 'device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27577_| + (define |gerbil/core/mop~MOP-5[1]#_g27613_| (##structure gx#syntax-quote::t 'vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27579_| + (define |gerbil/core/mop~MOP-5[1]#_g27615_| (##structure gx#syntax-quote::t 'vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27582_| + (define |gerbil/core/mop~MOP-5[1]#_g27618_| (##structure gx#syntax-quote::t 'string-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27584_| + (define |gerbil/core/mop~MOP-5[1]#_g27620_| (##structure gx#syntax-quote::t 'string-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27587_| + (define |gerbil/core/mop~MOP-5[1]#_g27623_| (##structure gx#syntax-quote::t 'u8vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27589_| + (define |gerbil/core/mop~MOP-5[1]#_g27625_| (##structure gx#syntax-quote::t 'u8vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27592_| + (define |gerbil/core/mop~MOP-5[1]#_g27628_| (##structure gx#syntax-quote::t 'raw-device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27594_| + (define |gerbil/core/mop~MOP-5[1]#_g27630_| (##structure gx#syntax-quote::t 'raw-device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27597_| + (define |gerbil/core/mop~MOP-5[1]#_g27633_| (##structure gx#syntax-quote::t 'tcp-server-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27599_| + (define |gerbil/core/mop~MOP-5[1]#_g27635_| (##structure gx#syntax-quote::t 'tcp-server-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27602_| + (define |gerbil/core/mop~MOP-5[1]#_g27638_| (##structure gx#syntax-quote::t 'udp-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27604_| + (define |gerbil/core/mop~MOP-5[1]#_g27640_| (##structure gx#syntax-quote::t 'udp-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27607_| + (define |gerbil/core/mop~MOP-5[1]#_g27643_| (##structure gx#syntax-quote::t 'directory-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27609_| + (define |gerbil/core/mop~MOP-5[1]#_g27645_| (##structure gx#syntax-quote::t 'directory-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27612_| + (define |gerbil/core/mop~MOP-5[1]#_g27648_| (##structure gx#syntax-quote::t 'event-queue-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27614_| + (define |gerbil/core/mop~MOP-5[1]#_g27650_| (##structure gx#syntax-quote::t 'event-queue-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27617_| + (define |gerbil/core/mop~MOP-5[1]#_g27653_| (##structure gx#syntax-quote::t 'table::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27619_| + (define |gerbil/core/mop~MOP-5[1]#_g27655_| (##structure gx#syntax-quote::t 'table? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27622_| + (define |gerbil/core/mop~MOP-5[1]#_g27658_| (##structure gx#syntax-quote::t 'readenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27624_| + (define |gerbil/core/mop~MOP-5[1]#_g27660_| (##structure gx#syntax-quote::t 'readenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27627_| + (define |gerbil/core/mop~MOP-5[1]#_g27663_| (##structure gx#syntax-quote::t 'writeenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27629_| + (define |gerbil/core/mop~MOP-5[1]#_g27665_| (##structure gx#syntax-quote::t 'writeenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27632_| + (define |gerbil/core/mop~MOP-5[1]#_g27668_| (##structure gx#syntax-quote::t 'readtable::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27634_| + (define |gerbil/core/mop~MOP-5[1]#_g27670_| (##structure gx#syntax-quote::t 'readtable? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27637_| + (define |gerbil/core/mop~MOP-5[1]#_g27673_| (##structure gx#syntax-quote::t 'processor::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27639_| + (define |gerbil/core/mop~MOP-5[1]#_g27675_| (##structure gx#syntax-quote::t 'processor? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27642_| + (define |gerbil/core/mop~MOP-5[1]#_g27678_| (##structure gx#syntax-quote::t 'vm::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27644_| + (define |gerbil/core/mop~MOP-5[1]#_g27680_| (##structure gx#syntax-quote::t 'vm? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27647_| + (define |gerbil/core/mop~MOP-5[1]#_g27683_| (##structure gx#syntax-quote::t 'file-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27649_| + (define |gerbil/core/mop~MOP-5[1]#_g27685_| (##structure gx#syntax-quote::t 'file-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27652_| + (define |gerbil/core/mop~MOP-5[1]#_g27688_| (##structure gx#syntax-quote::t 'socket-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27654_| + (define |gerbil/core/mop~MOP-5[1]#_g27690_| (##structure gx#syntax-quote::t 'socket-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27657_| + (define |gerbil/core/mop~MOP-5[1]#_g27693_| (##structure gx#syntax-quote::t 'address-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27659_| + (define |gerbil/core/mop~MOP-5[1]#_g27695_| (##structure gx#syntax-quote::t 'address-info? @@ -1296,161 +1296,161 @@ '())) (begin (define |gerbil/core/mop~MOP-5[:0:]#defsystem-class-info| - (lambda (_%stx26512%_) - (let* ((_%g2651526550%_ - (lambda (_%g2651626546%_) + (lambda (_%stx26548%_) + (let* ((_%g2655126586%_ + (lambda (_%g2655226582%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2651626546%_))) - (_%g2651426744%_ - (lambda (_%g2651626554%_) - (if (gx#stx-pair? _%g2651626554%_) - (let ((_%e2652126557%_ (gx#syntax-e _%g2651626554%_))) - (let ((_%hd2652226561%_ + _%g2655226582%_))) + (_%g2655026780%_ + (lambda (_%g2655226590%_) + (if (gx#stx-pair? _%g2655226590%_) + (let ((_%e2655726593%_ (gx#syntax-e _%g2655226590%_))) + (let ((_%hd2655826597%_ (let () (declare (not safe)) - (##car _%e2652126557%_))) - (_%tl2652326564%_ + (##car _%e2655726593%_))) + (_%tl2655926600%_ (let () (declare (not safe)) - (##cdr _%e2652126557%_)))) - (if (gx#stx-pair? _%tl2652326564%_) - (let ((_%e2652426567%_ - (gx#syntax-e _%tl2652326564%_))) - (let ((_%hd2652526571%_ + (##cdr _%e2655726593%_)))) + (if (gx#stx-pair? _%tl2655926600%_) + (let ((_%e2656026603%_ + (gx#syntax-e _%tl2655926600%_))) + (let ((_%hd2656126607%_ (let () (declare (not safe)) - (##car _%e2652426567%_))) - (_%tl2652626574%_ + (##car _%e2656026603%_))) + (_%tl2656226610%_ (let () (declare (not safe)) - (##cdr _%e2652426567%_)))) - (if (gx#stx-pair? _%tl2652626574%_) - (let ((_%e2652726577%_ - (gx#syntax-e _%tl2652626574%_))) - (let ((_%hd2652826581%_ + (##cdr _%e2656026603%_)))) + (if (gx#stx-pair? _%tl2656226610%_) + (let ((_%e2656326613%_ + (gx#syntax-e _%tl2656226610%_))) + (let ((_%hd2656426617%_ (let () (declare (not safe)) - (##car _%e2652726577%_))) - (_%tl2652926584%_ + (##car _%e2656326613%_))) + (_%tl2656526620%_ (let () (declare (not safe)) - (##cdr _%e2652726577%_)))) - (if (gx#stx-pair? _%tl2652926584%_) - (let ((_%e2653026587%_ + (##cdr _%e2656326613%_)))) + (if (gx#stx-pair? _%tl2656526620%_) + (let ((_%e2656626623%_ (gx#syntax-e - _%tl2652926584%_))) - (let ((_%hd2653126591%_ + _%tl2656526620%_))) + (let ((_%hd2656726627%_ (let () (declare (not safe)) - (##car _%e2653026587%_))) - (_%tl2653226594%_ + (##car _%e2656626623%_))) + (_%tl2656826630%_ (let () (declare (not safe)) - (##cdr _%e2653026587%_)))) + (##cdr _%e2656626623%_)))) (if (gx#stx-pair/null? - _%hd2653126591%_) - (let ((_g27241_ + _%hd2656726627%_) + (let ((_g27277_ (gx#syntax-split-splice - _%hd2653126591%_ + _%hd2656726627%_ '0))) (begin - (let ((_g27242_ + (let ((_g27278_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27241_) - (##vector-length _g27241_) + (if (##values? _g27277_) + (##vector-length _g27277_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27242_ 2))) - (error "Context expects 2 values" _g27242_))) - (let ((_%target2653326597%_ + (if (not (let () (declare (not safe)) (##fx= _g27278_ 2))) + (error "Context expects 2 values" _g27278_))) + (let ((_%target2656926633%_ (let () (declare (not safe)) - (##vector-ref _g27241_ 0))) - (_%tl2653526600%_ + (##vector-ref _g27277_ 0))) + (_%tl2657126636%_ (let () (declare (not safe)) - (##vector-ref _g27241_ 1)))) - (if (gx#stx-null? _%tl2653526600%_) - (letrec ((_%loop2653626603%_ - (lambda (_%hd2653426607%_ - _%super2654026610%_) - (if (gx#stx-pair? _%hd2653426607%_) - (let ((_%e2653726613%_ - (gx#syntax-e _%hd2653426607%_))) - (let ((_%lp-hd2653826617%_ + (##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%_ (let () (declare (not safe)) - (##car _%e2653726613%_))) - (_%lp-tl2653926620%_ + (##car _%e2657326649%_))) + (_%lp-tl2657526656%_ (let () (declare (not safe)) - (##cdr _%e2653726613%_)))) - (_%loop2653626603%_ - _%lp-tl2653926620%_ - (cons _%lp-hd2653826617%_ - _%super2654026610%_)))) - (let ((_%super2654126623%_ - (reverse _%super2654026610%_))) - (if (gx#stx-pair? _%tl2653226594%_) - (let ((_%e2654226627%_ + (##cdr _%e2657326649%_)))) + (_%loop2657226639%_ + _%lp-tl2657526656%_ + (cons _%lp-hd2657426653%_ + _%super2657626646%_)))) + (let ((_%super2657726659%_ + (reverse _%super2657626646%_))) + (if (gx#stx-pair? _%tl2656826630%_) + (let ((_%e2657826663%_ (gx#syntax-e - _%tl2653226594%_))) - (let ((_%hd2654326631%_ + _%tl2656826630%_))) + (let ((_%hd2657926667%_ (let () (declare (not safe)) - (##car _%e2654226627%_))) - (_%tl2654426634%_ + (##car _%e2657826663%_))) + (_%tl2658026670%_ (let () (declare (not safe)) - (##cdr _%e2654226627%_)))) + (##cdr _%e2657826663%_)))) (if (gx#stx-null? - _%tl2654426634%_) - ((lambda (_%L26637%_ - _%L26639%_ - _%L26640%_ - _%L26641%_) - (let* ((_%klass26668%_ + _%tl2658026670%_) + ((lambda (_%L26673%_ + _%L26675%_ + _%L26676%_ + _%L26677%_) + (let* ((_%klass26704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#eval-syntax _%L26640%_)) - (_%g2667126686%_ - (lambda (_%g2667226682%_) + (gx#eval-syntax _%L26676%_)) + (_%g2670726722%_ + (lambda (_%g2670826718%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2667226682%_))) - (_%g2667026740%_ - (lambda (_%g2667226690%_) - (if (gx#stx-pair? _%g2667226690%_) - (let ((_%e2667526693%_ - (gx#syntax-e _%g2667226690%_))) - (let ((_%hd2667626697%_ + _%g2670826718%_))) + (_%g2670626776%_ + (lambda (_%g2670826726%_) + (if (gx#stx-pair? _%g2670826726%_) + (let ((_%e2671126729%_ + (gx#syntax-e _%g2670826726%_))) + (let ((_%hd2671226733%_ (let () (declare (not safe)) - (##car _%e2667526693%_))) - (_%tl2667726700%_ + (##car _%e2671126729%_))) + (_%tl2671326736%_ (let () (declare (not safe)) - (##cdr _%e2667526693%_)))) - (if (gx#stx-pair? _%tl2667726700%_) - (let ((_%e2667826703%_ - (gx#syntax-e _%tl2667726700%_))) - (let ((_%hd2667926707%_ + (##cdr _%e2671126729%_)))) + (if (gx#stx-pair? _%tl2671326736%_) + (let ((_%e2671426739%_ + (gx#syntax-e _%tl2671326736%_))) + (let ((_%hd2671526743%_ (let () (declare (not safe)) - (##car _%e2667826703%_))) - (_%tl2668026710%_ + (##car _%e2671426739%_))) + (_%tl2671626746%_ (let () (declare (not safe)) - (##cdr _%e2667826703%_)))) - (if (gx#stx-null? _%tl2668026710%_) - ((lambda (_%L26713%_ _%L26715%_) + (##cdr _%e2671426739%_)))) + (if (gx#stx-null? _%tl2671626746%_) + ((lambda (_%L26749%_ _%L26751%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L26641%_ + (cons _%L26677%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1459,25 +1459,25 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26715%_ '())) + (cons _%L26751%_ '())) (cons 'name: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L26713%_ '())) + (cons _%L26749%_ '())) (cons 'super: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2673126734%_ - _%g2673226737%_) + (foldr (lambda (_%g2676726770%_ + _%g2676826773%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2673126734%_ + (cons _%g2676726770%_ '())) - _%g2673226737%_)) + _%g2676826773%_)) '() - _%L26639%_)) + _%L26675%_)) (cons 'slots: (cons (cons (gx#datum->syntax '#f '@list) '()) @@ -1488,12 +1488,12 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L26640%_ '())) + (cons _%L26676%_ '())) (cons 'predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L26637%_ '())) + (cons _%L26673%_ '())) (cons 'accessors: (cons (cons (gx#datum->syntax '#f @@ -1518,35 +1518,35 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2667926707%_ - _%hd2667626697%_) - (_%g2667126686%_ - _%g2667226690%_)))) - (_%g2667126686%_ _%g2667226690%_)))) - (_%g2667126686%_ _%g2667226690%_))))) - (_%g2667026740%_ - (list (class-type-id _%klass26668%_) - (class-type-name _%klass26668%_))))) - _%hd2654326631%_ - _%super2654126623%_ - _%hd2652826581%_ - _%hd2652526571%_) - (_%g2651526550%_ _%g2651626554%_)))) + _%hd2671526743%_ + _%hd2671226733%_) + (_%g2670726722%_ + _%g2670826726%_)))) + (_%g2670726722%_ _%g2670826726%_)))) + (_%g2670726722%_ _%g2670826726%_))))) + (_%g2670626776%_ + (list (class-type-id _%klass26704%_) + (class-type-name _%klass26704%_))))) + _%hd2657926667%_ + _%super2657726659%_ + _%hd2656426617%_ + _%hd2656126607%_) + (_%g2655126586%_ _%g2655226590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2651526550%_ - _%g2651626554%_))))))) - (_%loop2653626603%_ _%target2653326597%_ '())) - (_%g2651526550%_ _%g2651626554%_))))) - (_%g2651526550%_ _%g2651626554%_)))) + (_%g2655126586%_ + _%g2655226590%_))))))) + (_%loop2657226639%_ _%target2656926633%_ '())) + (_%g2655126586%_ _%g2655226590%_))))) + (_%g2655126586%_ _%g2655226590%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2651526550%_ - _%g2651626554%_)))) - (_%g2651526550%_ _%g2651626554%_)))) - (_%g2651526550%_ _%g2651626554%_)))) - (_%g2651526550%_ _%g2651626554%_))))) - (_%g2651426744%_ _%stx26512%_)))) + (_%g2655126586%_ + _%g2655226590%_)))) + (_%g2655126586%_ _%g2655226590%_)))) + (_%g2655126586%_ _%g2655226590%_)))) + (_%g2655126586%_ _%g2655226590%_))))) + (_%g2655026780%_ _%stx26548%_)))) (define |gerbil/core/mop~MOP-5[:0:]#:t| - (let ((__obj27027 + (let ((__obj27063 (let () (declare (not safe)) (##structure @@ -1574,40 +1574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 't '1 '#f '#f)) + (##unchecked-structure-set! __obj27063 't '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 't '2 '#f '#f)) + (##unchecked-structure-set! __obj27063 't '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27063 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27063 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '#t '9 '#f '#f)) - (let ((__tmp27243 |gerbil/core/mop~MOP-5[1]#_g27244_|)) + (##unchecked-structure-set! __obj27063 '#t '9 '#f '#f)) + (let ((__tmp27279 |gerbil/core/mop~MOP-5[1]#_g27280_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27243 '12 '#f '#f)) - (let ((__tmp27245 |gerbil/core/mop~MOP-5[1]#_g27246_|)) + (##unchecked-structure-set! __obj27063 __tmp27279 '12 '#f '#f)) + (let ((__tmp27281 |gerbil/core/mop~MOP-5[1]#_g27282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27245 '14 '#f '#f)) + (##unchecked-structure-set! __obj27063 __tmp27281 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27063 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27063 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27063 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '18 '#f '#f)) - __obj27027)) + (##unchecked-structure-set! __obj27063 '() '18 '#f '#f)) + __obj27063)) (define |gerbil/core/mop~MOP-5[:0:]#:class| - (let ((__obj27028 + (let ((__obj27064 (let () (declare (not safe)) (##structure @@ -1635,40 +1635,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27064 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 'class '2 '#f '#f)) - (let ((__tmp27247 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27064 'class '2 '#f '#f)) + (let ((__tmp27283 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27247 '3 '#f '#f)) + (##unchecked-structure-set! __obj27064 __tmp27283 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27064 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '#t '9 '#f '#f)) - (let ((__tmp27249 |gerbil/core/mop~MOP-5[1]#_g27250_|)) + (##unchecked-structure-set! __obj27064 '#t '9 '#f '#f)) + (let ((__tmp27285 |gerbil/core/mop~MOP-5[1]#_g27286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27249 '12 '#f '#f)) - (let ((__tmp27251 |gerbil/core/mop~MOP-5[1]#_g27252_|)) + (##unchecked-structure-set! __obj27064 __tmp27285 '12 '#f '#f)) + (let ((__tmp27287 |gerbil/core/mop~MOP-5[1]#_g27288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27251 '14 '#f '#f)) + (##unchecked-structure-set! __obj27064 __tmp27287 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27064 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27064 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27064 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '18 '#f '#f)) - __obj27028)) + (##unchecked-structure-set! __obj27064 '() '18 '#f '#f)) + __obj27064)) (define |gerbil/core/mop~MOP-5[:0:]#class| - (let ((__obj27029 + (let ((__obj27065 (let () (declare (not safe)) (##structure @@ -1696,17 +1696,17 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27065 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 'class '2 '#f '#f)) - (let ((__tmp27253 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27065 'class '2 '#f '#f)) + (let ((__tmp27289 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27253 '3 '#f '#f)) + (##unchecked-structure-set! __obj27065 __tmp27289 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27029 + __obj27065 '(id name super flags @@ -1722,77 +1722,77 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '#t '7 '#f '#f)) - (let ((__tmp27254 |gerbil/core/mop~MOP-5[1]#_g27250_|)) + (##unchecked-structure-set! __obj27065 '#t '7 '#f '#f)) + (let ((__tmp27290 |gerbil/core/mop~MOP-5[1]#_g27286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27254 '12 '#f '#f)) - (let ((__tmp27255 |gerbil/core/mop~MOP-5[1]#_g27256_|)) + (##unchecked-structure-set! __obj27065 __tmp27290 '12 '#f '#f)) + (let ((__tmp27291 |gerbil/core/mop~MOP-5[1]#_g27292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27255 '13 '#f '#f)) - (let ((__tmp27257 |gerbil/core/mop~MOP-5[1]#_g27252_|)) + (##unchecked-structure-set! __obj27065 __tmp27291 '13 '#f '#f)) + (let ((__tmp27293 |gerbil/core/mop~MOP-5[1]#_g27288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27257 '14 '#f '#f)) - (let ((__tmp27258 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27259_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27260_|) + (##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_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27261_|) + |gerbil/core/mop~MOP-5[1]#_g27297_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27262_|) + |gerbil/core/mop~MOP-5[1]#_g27298_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27263_|) + |gerbil/core/mop~MOP-5[1]#_g27299_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27264_|) + |gerbil/core/mop~MOP-5[1]#_g27300_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27265_|) + |gerbil/core/mop~MOP-5[1]#_g27301_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27266_|) + |gerbil/core/mop~MOP-5[1]#_g27302_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27267_|) + |gerbil/core/mop~MOP-5[1]#_g27303_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27268_|) + |gerbil/core/mop~MOP-5[1]#_g27304_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27269_|) + |gerbil/core/mop~MOP-5[1]#_g27305_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27258 '15 '#f '#f)) + (##unchecked-structure-set! __obj27065 __tmp27294 '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '16 '#f '#f)) - (let ((__tmp27270 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27271_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27272_|) + (##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_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27273_|) + |gerbil/core/mop~MOP-5[1]#_g27309_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27274_|) + |gerbil/core/mop~MOP-5[1]#_g27310_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27275_|) + |gerbil/core/mop~MOP-5[1]#_g27311_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27276_|) + |gerbil/core/mop~MOP-5[1]#_g27312_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27277_|) + |gerbil/core/mop~MOP-5[1]#_g27313_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27278_|) + |gerbil/core/mop~MOP-5[1]#_g27314_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27279_|) + |gerbil/core/mop~MOP-5[1]#_g27315_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27280_|) + |gerbil/core/mop~MOP-5[1]#_g27316_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27281_|) + |gerbil/core/mop~MOP-5[1]#_g27317_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27270 '17 '#f '#f)) + (##unchecked-structure-set! __obj27065 __tmp27306 '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '18 '#f '#f)) - __obj27029)) + (##unchecked-structure-set! __obj27065 '() '18 '#f '#f)) + __obj27065)) (define |gerbil/core/mop~MOP-5[:0:]#:object| - (let ((__obj27030 + (let ((__obj27066 (let () (declare (not safe)) (##structure @@ -1820,40 +1820,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 'object '1 '#f '#f)) + (##unchecked-structure-set! __obj27066 'object '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 'object '2 '#f '#f)) - (let ((__tmp27282 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27066 'object '2 '#f '#f)) + (let ((__tmp27318 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27282 '3 '#f '#f)) + (##unchecked-structure-set! __obj27066 __tmp27318 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27066 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '#t '9 '#f '#f)) - (let ((__tmp27283 |gerbil/core/mop~MOP-5[1]#_g27284_|)) + (##unchecked-structure-set! __obj27066 '#t '9 '#f '#f)) + (let ((__tmp27319 |gerbil/core/mop~MOP-5[1]#_g27320_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27283 '12 '#f '#f)) - (let ((__tmp27285 |gerbil/core/mop~MOP-5[1]#_g27246_|)) + (##unchecked-structure-set! __obj27066 __tmp27319 '12 '#f '#f)) + (let ((__tmp27321 |gerbil/core/mop~MOP-5[1]#_g27282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27285 '14 '#f '#f)) + (##unchecked-structure-set! __obj27066 __tmp27321 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27066 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27066 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27066 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '18 '#f '#f)) - __obj27030)) + (##unchecked-structure-set! __obj27066 '() '18 '#f '#f)) + __obj27066)) (define |gerbil/core/mop~MOP-5[:0:]#:immediate| - (let ((__obj27031 + (let ((__obj27067 (let () (declare (not safe)) (##structure @@ -1881,40 +1881,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 'immediate '1 '#f '#f)) + (##unchecked-structure-set! __obj27067 'immediate '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 'immediate '2 '#f '#f)) - (let ((__tmp27286 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27067 'immediate '2 '#f '#f)) + (let ((__tmp27322 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27286 '3 '#f '#f)) + (##unchecked-structure-set! __obj27067 __tmp27322 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27067 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '#t '9 '#f '#f)) - (let ((__tmp27287 |gerbil/core/mop~MOP-5[1]#_g27288_|)) + (##unchecked-structure-set! __obj27067 '#t '9 '#f '#f)) + (let ((__tmp27323 |gerbil/core/mop~MOP-5[1]#_g27324_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27287 '12 '#f '#f)) - (let ((__tmp27289 |gerbil/core/mop~MOP-5[1]#_g27290_|)) + (##unchecked-structure-set! __obj27067 __tmp27323 '12 '#f '#f)) + (let ((__tmp27325 |gerbil/core/mop~MOP-5[1]#_g27326_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27289 '14 '#f '#f)) + (##unchecked-structure-set! __obj27067 __tmp27325 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27067 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27067 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27067 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '18 '#f '#f)) - __obj27031)) + (##unchecked-structure-set! __obj27067 '() '18 '#f '#f)) + __obj27067)) (define |gerbil/core/mop~MOP-5[:0:]#:char| - (let ((__obj27032 + (let ((__obj27068 (let () (declare (not safe)) (##structure @@ -1942,40 +1942,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 'char '1 '#f '#f)) + (##unchecked-structure-set! __obj27068 'char '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 'char '2 '#f '#f)) - (let ((__tmp27291 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))) + (##unchecked-structure-set! __obj27068 'char '2 '#f '#f)) + (let ((__tmp27327 (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27291 '3 '#f '#f)) + (##unchecked-structure-set! __obj27068 __tmp27327 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27068 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '#t '9 '#f '#f)) - (let ((__tmp27293 |gerbil/core/mop~MOP-5[1]#_g27294_|)) + (##unchecked-structure-set! __obj27068 '#t '9 '#f '#f)) + (let ((__tmp27329 |gerbil/core/mop~MOP-5[1]#_g27330_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27293 '12 '#f '#f)) - (let ((__tmp27295 |gerbil/core/mop~MOP-5[1]#_g27296_|)) + (##unchecked-structure-set! __obj27068 __tmp27329 '12 '#f '#f)) + (let ((__tmp27331 |gerbil/core/mop~MOP-5[1]#_g27332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27295 '14 '#f '#f)) + (##unchecked-structure-set! __obj27068 __tmp27331 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27068 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27068 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27068 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '18 '#f '#f)) - __obj27032)) + (##unchecked-structure-set! __obj27068 '() '18 '#f '#f)) + __obj27068)) (define |gerbil/core/mop~MOP-5[:0:]#:boolean| - (let ((__obj27033 + (let ((__obj27069 (let () (declare (not safe)) (##structure @@ -2003,40 +2003,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 'boolean '1 '#f '#f)) + (##unchecked-structure-set! __obj27069 'boolean '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 'boolean '2 '#f '#f)) - (let ((__tmp27297 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))) + (##unchecked-structure-set! __obj27069 'boolean '2 '#f '#f)) + (let ((__tmp27333 (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27297 '3 '#f '#f)) + (##unchecked-structure-set! __obj27069 __tmp27333 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27069 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '#t '9 '#f '#f)) - (let ((__tmp27298 |gerbil/core/mop~MOP-5[1]#_g27299_|)) + (##unchecked-structure-set! __obj27069 '#t '9 '#f '#f)) + (let ((__tmp27334 |gerbil/core/mop~MOP-5[1]#_g27335_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27298 '12 '#f '#f)) - (let ((__tmp27300 |gerbil/core/mop~MOP-5[1]#_g27301_|)) + (##unchecked-structure-set! __obj27069 __tmp27334 '12 '#f '#f)) + (let ((__tmp27336 |gerbil/core/mop~MOP-5[1]#_g27337_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27300 '14 '#f '#f)) + (##unchecked-structure-set! __obj27069 __tmp27336 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27069 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27069 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27069 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '18 '#f '#f)) - __obj27033)) + (##unchecked-structure-set! __obj27069 '() '18 '#f '#f)) + __obj27069)) (define |gerbil/core/mop~MOP-5[:0:]#:atom| - (let ((__obj27034 + (let ((__obj27070 (let () (declare (not safe)) (##structure @@ -2064,40 +2064,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 'atom '1 '#f '#f)) + (##unchecked-structure-set! __obj27070 'atom '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 'atom '2 '#f '#f)) - (let ((__tmp27302 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))) + (##unchecked-structure-set! __obj27070 'atom '2 '#f '#f)) + (let ((__tmp27338 (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27302 '3 '#f '#f)) + (##unchecked-structure-set! __obj27070 __tmp27338 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27070 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '#t '9 '#f '#f)) - (let ((__tmp27303 |gerbil/core/mop~MOP-5[1]#_g27304_|)) + (##unchecked-structure-set! __obj27070 '#t '9 '#f '#f)) + (let ((__tmp27339 |gerbil/core/mop~MOP-5[1]#_g27340_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27303 '12 '#f '#f)) - (let ((__tmp27305 |gerbil/core/mop~MOP-5[1]#_g27306_|)) + (##unchecked-structure-set! __obj27070 __tmp27339 '12 '#f '#f)) + (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27305 '14 '#f '#f)) + (##unchecked-structure-set! __obj27070 __tmp27341 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27070 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27070 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27070 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '18 '#f '#f)) - __obj27034)) + (##unchecked-structure-set! __obj27070 '() '18 '#f '#f)) + __obj27070)) (define |gerbil/core/mop~MOP-5[:0:]#:void| - (let ((__obj27035 + (let ((__obj27071 (let () (declare (not safe)) (##structure @@ -2125,40 +2125,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 'void '1 '#f '#f)) + (##unchecked-structure-set! __obj27071 'void '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 'void '2 '#f '#f)) - (let ((__tmp27307 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))) + (##unchecked-structure-set! __obj27071 'void '2 '#f '#f)) + (let ((__tmp27343 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27307 '3 '#f '#f)) + (##unchecked-structure-set! __obj27071 __tmp27343 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27071 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '#t '9 '#f '#f)) - (let ((__tmp27309 |gerbil/core/mop~MOP-5[1]#_g27310_|)) + (##unchecked-structure-set! __obj27071 '#t '9 '#f '#f)) + (let ((__tmp27345 |gerbil/core/mop~MOP-5[1]#_g27346_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27309 '12 '#f '#f)) - (let ((__tmp27311 |gerbil/core/mop~MOP-5[1]#_g27312_|)) + (##unchecked-structure-set! __obj27071 __tmp27345 '12 '#f '#f)) + (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27311 '14 '#f '#f)) + (##unchecked-structure-set! __obj27071 __tmp27347 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27071 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27071 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27071 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '18 '#f '#f)) - __obj27035)) + (##unchecked-structure-set! __obj27071 '() '18 '#f '#f)) + __obj27071)) (define |gerbil/core/mop~MOP-5[:0:]#:eof| - (let ((__obj27036 + (let ((__obj27072 (let () (declare (not safe)) (##structure @@ -2186,40 +2186,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 'eof '1 '#f '#f)) + (##unchecked-structure-set! __obj27072 'eof '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 'eof '2 '#f '#f)) - (let ((__tmp27313 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))) + (##unchecked-structure-set! __obj27072 'eof '2 '#f '#f)) + (let ((__tmp27349 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27313 '3 '#f '#f)) + (##unchecked-structure-set! __obj27072 __tmp27349 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27072 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '#t '9 '#f '#f)) - (let ((__tmp27314 |gerbil/core/mop~MOP-5[1]#_g27315_|)) + (##unchecked-structure-set! __obj27072 '#t '9 '#f '#f)) + (let ((__tmp27350 |gerbil/core/mop~MOP-5[1]#_g27351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27314 '12 '#f '#f)) - (let ((__tmp27316 |gerbil/core/mop~MOP-5[1]#_g27317_|)) + (##unchecked-structure-set! __obj27072 __tmp27350 '12 '#f '#f)) + (let ((__tmp27352 |gerbil/core/mop~MOP-5[1]#_g27353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27316 '14 '#f '#f)) + (##unchecked-structure-set! __obj27072 __tmp27352 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27072 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27072 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27072 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '18 '#f '#f)) - __obj27036)) + (##unchecked-structure-set! __obj27072 '() '18 '#f '#f)) + __obj27072)) (define |gerbil/core/mop~MOP-5[:0:]#:true| - (let ((__obj27037 + (let ((__obj27073 (let () (declare (not safe)) (##structure @@ -2247,42 +2247,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 'true '1 '#f '#f)) + (##unchecked-structure-set! __obj27073 'true '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 'true '2 '#f '#f)) - (let ((__tmp27318 - (cons |gerbil/core/mop~MOP-5[1]#_g27319_| - (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))) + (##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_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27318 '3 '#f '#f)) + (##unchecked-structure-set! __obj27073 __tmp27354 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27073 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '#t '9 '#f '#f)) - (let ((__tmp27320 |gerbil/core/mop~MOP-5[1]#_g27321_|)) + (##unchecked-structure-set! __obj27073 '#t '9 '#f '#f)) + (let ((__tmp27356 |gerbil/core/mop~MOP-5[1]#_g27357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27320 '12 '#f '#f)) - (let ((__tmp27322 |gerbil/core/mop~MOP-5[1]#_g27323_|)) + (##unchecked-structure-set! __obj27073 __tmp27356 '12 '#f '#f)) + (let ((__tmp27358 |gerbil/core/mop~MOP-5[1]#_g27359_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27322 '14 '#f '#f)) + (##unchecked-structure-set! __obj27073 __tmp27358 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27073 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27073 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27073 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '18 '#f '#f)) - __obj27037)) + (##unchecked-structure-set! __obj27073 '() '18 '#f '#f)) + __obj27073)) (define |gerbil/core/mop~MOP-5[:0:]#:false| - (let ((__obj27038 + (let ((__obj27074 (let () (declare (not safe)) (##structure @@ -2310,42 +2310,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 'false '1 '#f '#f)) + (##unchecked-structure-set! __obj27074 'false '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 'false '2 '#f '#f)) - (let ((__tmp27324 - (cons |gerbil/core/mop~MOP-5[1]#_g27319_| - (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))) + (##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_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27324 '3 '#f '#f)) + (##unchecked-structure-set! __obj27074 __tmp27360 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27074 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '#t '9 '#f '#f)) - (let ((__tmp27325 |gerbil/core/mop~MOP-5[1]#_g27326_|)) + (##unchecked-structure-set! __obj27074 '#t '9 '#f '#f)) + (let ((__tmp27361 |gerbil/core/mop~MOP-5[1]#_g27362_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27325 '12 '#f '#f)) - (let ((__tmp27327 |gerbil/core/mop~MOP-5[1]#_g27328_|)) + (##unchecked-structure-set! __obj27074 __tmp27361 '12 '#f '#f)) + (let ((__tmp27363 |gerbil/core/mop~MOP-5[1]#_g27364_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27327 '14 '#f '#f)) + (##unchecked-structure-set! __obj27074 __tmp27363 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27074 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27074 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27074 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '18 '#f '#f)) - __obj27038)) + (##unchecked-structure-set! __obj27074 '() '18 '#f '#f)) + __obj27074)) (define |gerbil/core/mop~MOP-5[:0:]#:special| - (let ((__obj27039 + (let ((__obj27075 (let () (declare (not safe)) (##structure @@ -2373,40 +2373,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 'special '1 '#f '#f)) + (##unchecked-structure-set! __obj27075 'special '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 'special '2 '#f '#f)) - (let ((__tmp27329 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))) + (##unchecked-structure-set! __obj27075 'special '2 '#f '#f)) + (let ((__tmp27365 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27329 '3 '#f '#f)) + (##unchecked-structure-set! __obj27075 __tmp27365 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27075 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '#t '9 '#f '#f)) - (let ((__tmp27330 |gerbil/core/mop~MOP-5[1]#_g27331_|)) + (##unchecked-structure-set! __obj27075 '#t '9 '#f '#f)) + (let ((__tmp27366 |gerbil/core/mop~MOP-5[1]#_g27367_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27330 '12 '#f '#f)) - (let ((__tmp27332 |gerbil/core/mop~MOP-5[1]#_g27333_|)) + (##unchecked-structure-set! __obj27075 __tmp27366 '12 '#f '#f)) + (let ((__tmp27368 |gerbil/core/mop~MOP-5[1]#_g27369_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27332 '14 '#f '#f)) + (##unchecked-structure-set! __obj27075 __tmp27368 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27075 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27075 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27075 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '18 '#f '#f)) - __obj27039)) + (##unchecked-structure-set! __obj27075 '() '18 '#f '#f)) + __obj27075)) (define |gerbil/core/mop~MOP-5[:0:]#:number| - (let ((__obj27040 + (let ((__obj27076 (let () (declare (not safe)) (##structure @@ -2434,40 +2434,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 'number '1 '#f '#f)) + (##unchecked-structure-set! __obj27076 'number '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 'number '2 '#f '#f)) - (let ((__tmp27334 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27076 'number '2 '#f '#f)) + (let ((__tmp27370 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27334 '3 '#f '#f)) + (##unchecked-structure-set! __obj27076 __tmp27370 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27076 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '#t '9 '#f '#f)) - (let ((__tmp27335 |gerbil/core/mop~MOP-5[1]#_g27336_|)) + (##unchecked-structure-set! __obj27076 '#t '9 '#f '#f)) + (let ((__tmp27371 |gerbil/core/mop~MOP-5[1]#_g27372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27335 '12 '#f '#f)) - (let ((__tmp27337 |gerbil/core/mop~MOP-5[1]#_g27338_|)) + (##unchecked-structure-set! __obj27076 __tmp27371 '12 '#f '#f)) + (let ((__tmp27373 |gerbil/core/mop~MOP-5[1]#_g27374_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27337 '14 '#f '#f)) + (##unchecked-structure-set! __obj27076 __tmp27373 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27076 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27076 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27076 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '18 '#f '#f)) - __obj27040)) + (##unchecked-structure-set! __obj27076 '() '18 '#f '#f)) + __obj27076)) (define |gerbil/core/mop~MOP-5[:0:]#:real| - (let ((__obj27041 + (let ((__obj27077 (let () (declare (not safe)) (##structure @@ -2495,40 +2495,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 'real '1 '#f '#f)) + (##unchecked-structure-set! __obj27077 'real '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 'real '2 '#f '#f)) - (let ((__tmp27339 (cons |gerbil/core/mop~MOP-5[1]#_g27340_| '()))) + (##unchecked-structure-set! __obj27077 'real '2 '#f '#f)) + (let ((__tmp27375 (cons |gerbil/core/mop~MOP-5[1]#_g27376_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27339 '3 '#f '#f)) + (##unchecked-structure-set! __obj27077 __tmp27375 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27077 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '#t '9 '#f '#f)) - (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|)) + (##unchecked-structure-set! __obj27077 '#t '9 '#f '#f)) + (let ((__tmp27377 |gerbil/core/mop~MOP-5[1]#_g27378_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27341 '12 '#f '#f)) - (let ((__tmp27343 |gerbil/core/mop~MOP-5[1]#_g27344_|)) + (##unchecked-structure-set! __obj27077 __tmp27377 '12 '#f '#f)) + (let ((__tmp27379 |gerbil/core/mop~MOP-5[1]#_g27380_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27343 '14 '#f '#f)) + (##unchecked-structure-set! __obj27077 __tmp27379 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27077 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27077 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27077 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '18 '#f '#f)) - __obj27041)) + (##unchecked-structure-set! __obj27077 '() '18 '#f '#f)) + __obj27077)) (define |gerbil/core/mop~MOP-5[:0:]#:integer| - (let ((__obj27042 + (let ((__obj27078 (let () (declare (not safe)) (##structure @@ -2556,40 +2556,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 'integer '1 '#f '#f)) + (##unchecked-structure-set! __obj27078 'integer '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 'integer '2 '#f '#f)) - (let ((__tmp27345 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '()))) + (##unchecked-structure-set! __obj27078 'integer '2 '#f '#f)) + (let ((__tmp27381 (cons |gerbil/core/mop~MOP-5[1]#_g27382_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27345 '3 '#f '#f)) + (##unchecked-structure-set! __obj27078 __tmp27381 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27078 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '#t '9 '#f '#f)) - (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|)) + (##unchecked-structure-set! __obj27078 '#t '9 '#f '#f)) + (let ((__tmp27383 |gerbil/core/mop~MOP-5[1]#_g27384_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27347 '12 '#f '#f)) - (let ((__tmp27349 |gerbil/core/mop~MOP-5[1]#_g27350_|)) + (##unchecked-structure-set! __obj27078 __tmp27383 '12 '#f '#f)) + (let ((__tmp27385 |gerbil/core/mop~MOP-5[1]#_g27386_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27349 '14 '#f '#f)) + (##unchecked-structure-set! __obj27078 __tmp27385 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27078 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27078 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27078 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '18 '#f '#f)) - __obj27042)) + (##unchecked-structure-set! __obj27078 '() '18 '#f '#f)) + __obj27078)) (define |gerbil/core/mop~MOP-5[:0:]#:fixnum| - (let ((__obj27043 + (let ((__obj27079 (let () (declare (not safe)) (##structure @@ -2617,42 +2617,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 'fixnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27079 'fixnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 'fixnum '2 '#f '#f)) - (let ((__tmp27351 - (cons |gerbil/core/mop~MOP-5[1]#_g27352_| - (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '())))) + (##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_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27351 '3 '#f '#f)) + (##unchecked-structure-set! __obj27079 __tmp27387 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27079 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '#t '9 '#f '#f)) - (let ((__tmp27353 |gerbil/core/mop~MOP-5[1]#_g27354_|)) + (##unchecked-structure-set! __obj27079 '#t '9 '#f '#f)) + (let ((__tmp27389 |gerbil/core/mop~MOP-5[1]#_g27390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27353 '12 '#f '#f)) - (let ((__tmp27355 |gerbil/core/mop~MOP-5[1]#_g27356_|)) + (##unchecked-structure-set! __obj27079 __tmp27389 '12 '#f '#f)) + (let ((__tmp27391 |gerbil/core/mop~MOP-5[1]#_g27392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27355 '14 '#f '#f)) + (##unchecked-structure-set! __obj27079 __tmp27391 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27079 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27079 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27079 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '18 '#f '#f)) - __obj27043)) + (##unchecked-structure-set! __obj27079 '() '18 '#f '#f)) + __obj27079)) (define |gerbil/core/mop~MOP-5[:0:]#:bignum| - (let ((__obj27044 + (let ((__obj27080 (let () (declare (not safe)) (##structure @@ -2680,40 +2680,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 'bignum '1 '#f '#f)) + (##unchecked-structure-set! __obj27080 'bignum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 'bignum '2 '#f '#f)) - (let ((__tmp27357 (cons |gerbil/core/mop~MOP-5[1]#_g27352_| '()))) + (##unchecked-structure-set! __obj27080 'bignum '2 '#f '#f)) + (let ((__tmp27393 (cons |gerbil/core/mop~MOP-5[1]#_g27388_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27357 '3 '#f '#f)) + (##unchecked-structure-set! __obj27080 __tmp27393 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27080 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '#t '9 '#f '#f)) - (let ((__tmp27358 |gerbil/core/mop~MOP-5[1]#_g27359_|)) + (##unchecked-structure-set! __obj27080 '#t '9 '#f '#f)) + (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27358 '12 '#f '#f)) - (let ((__tmp27360 |gerbil/core/mop~MOP-5[1]#_g27361_|)) + (##unchecked-structure-set! __obj27080 __tmp27394 '12 '#f '#f)) + (let ((__tmp27396 |gerbil/core/mop~MOP-5[1]#_g27397_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27360 '14 '#f '#f)) + (##unchecked-structure-set! __obj27080 __tmp27396 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27080 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27080 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27080 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '18 '#f '#f)) - __obj27044)) + (##unchecked-structure-set! __obj27080 '() '18 '#f '#f)) + __obj27080)) (define |gerbil/core/mop~MOP-5[:0:]#:ratnum| - (let ((__obj27045 + (let ((__obj27081 (let () (declare (not safe)) (##structure @@ -2741,40 +2741,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 'ratnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27081 'ratnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 'ratnum '2 '#f '#f)) - (let ((__tmp27362 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '()))) + (##unchecked-structure-set! __obj27081 'ratnum '2 '#f '#f)) + (let ((__tmp27398 (cons |gerbil/core/mop~MOP-5[1]#_g27382_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27362 '3 '#f '#f)) + (##unchecked-structure-set! __obj27081 __tmp27398 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27081 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '#t '9 '#f '#f)) - (let ((__tmp27363 |gerbil/core/mop~MOP-5[1]#_g27364_|)) + (##unchecked-structure-set! __obj27081 '#t '9 '#f '#f)) + (let ((__tmp27399 |gerbil/core/mop~MOP-5[1]#_g27400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27363 '12 '#f '#f)) - (let ((__tmp27365 |gerbil/core/mop~MOP-5[1]#_g27366_|)) + (##unchecked-structure-set! __obj27081 __tmp27399 '12 '#f '#f)) + (let ((__tmp27401 |gerbil/core/mop~MOP-5[1]#_g27402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27365 '14 '#f '#f)) + (##unchecked-structure-set! __obj27081 __tmp27401 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27081 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27081 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27081 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '18 '#f '#f)) - __obj27045)) + (##unchecked-structure-set! __obj27081 '() '18 '#f '#f)) + __obj27081)) (define |gerbil/core/mop~MOP-5[:0:]#:flonum| - (let ((__obj27046 + (let ((__obj27082 (let () (declare (not safe)) (##structure @@ -2802,40 +2802,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 'flonum '1 '#f '#f)) + (##unchecked-structure-set! __obj27082 'flonum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 'flonum '2 '#f '#f)) - (let ((__tmp27367 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '()))) + (##unchecked-structure-set! __obj27082 'flonum '2 '#f '#f)) + (let ((__tmp27403 (cons |gerbil/core/mop~MOP-5[1]#_g27382_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27367 '3 '#f '#f)) + (##unchecked-structure-set! __obj27082 __tmp27403 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27082 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '#t '9 '#f '#f)) - (let ((__tmp27368 |gerbil/core/mop~MOP-5[1]#_g27369_|)) + (##unchecked-structure-set! __obj27082 '#t '9 '#f '#f)) + (let ((__tmp27404 |gerbil/core/mop~MOP-5[1]#_g27405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27368 '12 '#f '#f)) - (let ((__tmp27370 |gerbil/core/mop~MOP-5[1]#_g27371_|)) + (##unchecked-structure-set! __obj27082 __tmp27404 '12 '#f '#f)) + (let ((__tmp27406 |gerbil/core/mop~MOP-5[1]#_g27407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27370 '14 '#f '#f)) + (##unchecked-structure-set! __obj27082 __tmp27406 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27082 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27082 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27082 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '18 '#f '#f)) - __obj27046)) + (##unchecked-structure-set! __obj27082 '() '18 '#f '#f)) + __obj27082)) (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum| - (let ((__obj27047 + (let ((__obj27083 (let () (declare (not safe)) (##structure @@ -2863,40 +2863,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 'cpxnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27083 'cpxnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 'cpxnum '2 '#f '#f)) - (let ((__tmp27372 (cons |gerbil/core/mop~MOP-5[1]#_g27340_| '()))) + (##unchecked-structure-set! __obj27083 'cpxnum '2 '#f '#f)) + (let ((__tmp27408 (cons |gerbil/core/mop~MOP-5[1]#_g27376_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27372 '3 '#f '#f)) + (##unchecked-structure-set! __obj27083 __tmp27408 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27083 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '#t '9 '#f '#f)) - (let ((__tmp27373 |gerbil/core/mop~MOP-5[1]#_g27374_|)) + (##unchecked-structure-set! __obj27083 '#t '9 '#f '#f)) + (let ((__tmp27409 |gerbil/core/mop~MOP-5[1]#_g27410_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27373 '12 '#f '#f)) - (let ((__tmp27375 |gerbil/core/mop~MOP-5[1]#_g27376_|)) + (##unchecked-structure-set! __obj27083 __tmp27409 '12 '#f '#f)) + (let ((__tmp27411 |gerbil/core/mop~MOP-5[1]#_g27412_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27375 '14 '#f '#f)) + (##unchecked-structure-set! __obj27083 __tmp27411 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27083 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27083 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27083 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '18 '#f '#f)) - __obj27047)) + (##unchecked-structure-set! __obj27083 '() '18 '#f '#f)) + __obj27083)) (define |gerbil/core/mop~MOP-5[:0:]#:symbolic| - (let ((__obj27048 + (let ((__obj27084 (let () (declare (not safe)) (##structure @@ -2924,40 +2924,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 'symbolic '1 '#f '#f)) + (##unchecked-structure-set! __obj27084 'symbolic '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 'symbolic '2 '#f '#f)) - (let ((__tmp27377 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27084 'symbolic '2 '#f '#f)) + (let ((__tmp27413 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27377 '3 '#f '#f)) + (##unchecked-structure-set! __obj27084 __tmp27413 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27084 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '#t '9 '#f '#f)) - (let ((__tmp27378 |gerbil/core/mop~MOP-5[1]#_g27379_|)) + (##unchecked-structure-set! __obj27084 '#t '9 '#f '#f)) + (let ((__tmp27414 |gerbil/core/mop~MOP-5[1]#_g27415_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27378 '12 '#f '#f)) - (let ((__tmp27380 |gerbil/core/mop~MOP-5[1]#_g27381_|)) + (##unchecked-structure-set! __obj27084 __tmp27414 '12 '#f '#f)) + (let ((__tmp27416 |gerbil/core/mop~MOP-5[1]#_g27417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27380 '14 '#f '#f)) + (##unchecked-structure-set! __obj27084 __tmp27416 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27084 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27084 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27084 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '18 '#f '#f)) - __obj27048)) + (##unchecked-structure-set! __obj27084 '() '18 '#f '#f)) + __obj27084)) (define |gerbil/core/mop~MOP-5[:0:]#:symbol| - (let ((__obj27049 + (let ((__obj27085 (let () (declare (not safe)) (##structure @@ -2985,40 +2985,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 'symbol '1 '#f '#f)) + (##unchecked-structure-set! __obj27085 'symbol '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 'symbol '2 '#f '#f)) - (let ((__tmp27382 (cons |gerbil/core/mop~MOP-5[1]#_g27383_| '()))) + (##unchecked-structure-set! __obj27085 'symbol '2 '#f '#f)) + (let ((__tmp27418 (cons |gerbil/core/mop~MOP-5[1]#_g27419_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27382 '3 '#f '#f)) + (##unchecked-structure-set! __obj27085 __tmp27418 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27085 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '#t '9 '#f '#f)) - (let ((__tmp27384 |gerbil/core/mop~MOP-5[1]#_g27385_|)) + (##unchecked-structure-set! __obj27085 '#t '9 '#f '#f)) + (let ((__tmp27420 |gerbil/core/mop~MOP-5[1]#_g27421_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27384 '12 '#f '#f)) - (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|)) + (##unchecked-structure-set! __obj27085 __tmp27420 '12 '#f '#f)) + (let ((__tmp27422 |gerbil/core/mop~MOP-5[1]#_g27423_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27386 '14 '#f '#f)) + (##unchecked-structure-set! __obj27085 __tmp27422 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27085 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27085 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27085 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '18 '#f '#f)) - __obj27049)) + (##unchecked-structure-set! __obj27085 '() '18 '#f '#f)) + __obj27085)) (define |gerbil/core/mop~MOP-5[:0:]#:keyword| - (let ((__obj27050 + (let ((__obj27086 (let () (declare (not safe)) (##structure @@ -3046,40 +3046,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 'keyword '1 '#f '#f)) + (##unchecked-structure-set! __obj27086 'keyword '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 'keyword '2 '#f '#f)) - (let ((__tmp27388 (cons |gerbil/core/mop~MOP-5[1]#_g27383_| '()))) + (##unchecked-structure-set! __obj27086 'keyword '2 '#f '#f)) + (let ((__tmp27424 (cons |gerbil/core/mop~MOP-5[1]#_g27419_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27388 '3 '#f '#f)) + (##unchecked-structure-set! __obj27086 __tmp27424 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27086 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '#t '9 '#f '#f)) - (let ((__tmp27389 |gerbil/core/mop~MOP-5[1]#_g27390_|)) + (##unchecked-structure-set! __obj27086 '#t '9 '#f '#f)) + (let ((__tmp27425 |gerbil/core/mop~MOP-5[1]#_g27426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27389 '12 '#f '#f)) - (let ((__tmp27391 |gerbil/core/mop~MOP-5[1]#_g27392_|)) + (##unchecked-structure-set! __obj27086 __tmp27425 '12 '#f '#f)) + (let ((__tmp27427 |gerbil/core/mop~MOP-5[1]#_g27428_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27391 '14 '#f '#f)) + (##unchecked-structure-set! __obj27086 __tmp27427 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27086 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27086 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27086 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '18 '#f '#f)) - __obj27050)) + (##unchecked-structure-set! __obj27086 '() '18 '#f '#f)) + __obj27086)) (define |gerbil/core/mop~MOP-5[:0:]#:list| - (let ((__obj27051 + (let ((__obj27087 (let () (declare (not safe)) (##structure @@ -3107,40 +3107,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 'list '1 '#f '#f)) + (##unchecked-structure-set! __obj27087 'list '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 'list '2 '#f '#f)) - (let ((__tmp27393 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27087 'list '2 '#f '#f)) + (let ((__tmp27429 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27393 '3 '#f '#f)) + (##unchecked-structure-set! __obj27087 __tmp27429 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27087 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '#t '9 '#f '#f)) - (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) + (##unchecked-structure-set! __obj27087 '#t '9 '#f '#f)) + (let ((__tmp27430 |gerbil/core/mop~MOP-5[1]#_g27431_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27394 '12 '#f '#f)) - (let ((__tmp27396 |gerbil/core/mop~MOP-5[1]#_g27397_|)) + (##unchecked-structure-set! __obj27087 __tmp27430 '12 '#f '#f)) + (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27433_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27396 '14 '#f '#f)) + (##unchecked-structure-set! __obj27087 __tmp27432 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27087 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27087 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27087 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '18 '#f '#f)) - __obj27051)) + (##unchecked-structure-set! __obj27087 '() '18 '#f '#f)) + __obj27087)) (define |gerbil/core/mop~MOP-5[:0:]#:pair| - (let ((__obj27052 + (let ((__obj27088 (let () (declare (not safe)) (##structure @@ -3168,40 +3168,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 'pair '1 '#f '#f)) + (##unchecked-structure-set! __obj27088 'pair '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 'pair '2 '#f '#f)) - (let ((__tmp27398 (cons |gerbil/core/mop~MOP-5[1]#_g27399_| '()))) + (##unchecked-structure-set! __obj27088 'pair '2 '#f '#f)) + (let ((__tmp27434 (cons |gerbil/core/mop~MOP-5[1]#_g27435_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27398 '3 '#f '#f)) + (##unchecked-structure-set! __obj27088 __tmp27434 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27088 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '#t '9 '#f '#f)) - (let ((__tmp27400 |gerbil/core/mop~MOP-5[1]#_g27401_|)) + (##unchecked-structure-set! __obj27088 '#t '9 '#f '#f)) + (let ((__tmp27436 |gerbil/core/mop~MOP-5[1]#_g27437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27400 '12 '#f '#f)) - (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) + (##unchecked-structure-set! __obj27088 __tmp27436 '12 '#f '#f)) + (let ((__tmp27438 |gerbil/core/mop~MOP-5[1]#_g27439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27402 '14 '#f '#f)) + (##unchecked-structure-set! __obj27088 __tmp27438 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27088 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27088 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27088 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '18 '#f '#f)) - __obj27052)) + (##unchecked-structure-set! __obj27088 '() '18 '#f '#f)) + __obj27088)) (define |gerbil/core/mop~MOP-5[:0:]#:null| - (let ((__obj27053 + (let ((__obj27089 (let () (declare (not safe)) (##structure @@ -3229,42 +3229,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 'null '1 '#f '#f)) + (##unchecked-structure-set! __obj27089 'null '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 'null '2 '#f '#f)) - (let ((__tmp27404 - (cons |gerbil/core/mop~MOP-5[1]#_g27399_| - (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))) + (##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_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27404 '3 '#f '#f)) + (##unchecked-structure-set! __obj27089 __tmp27440 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27089 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '#t '9 '#f '#f)) - (let ((__tmp27405 |gerbil/core/mop~MOP-5[1]#_g27406_|)) + (##unchecked-structure-set! __obj27089 '#t '9 '#f '#f)) + (let ((__tmp27441 |gerbil/core/mop~MOP-5[1]#_g27442_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27405 '12 '#f '#f)) - (let ((__tmp27407 |gerbil/core/mop~MOP-5[1]#_g27408_|)) + (##unchecked-structure-set! __obj27089 __tmp27441 '12 '#f '#f)) + (let ((__tmp27443 |gerbil/core/mop~MOP-5[1]#_g27444_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27407 '14 '#f '#f)) + (##unchecked-structure-set! __obj27089 __tmp27443 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27089 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27089 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27089 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '18 '#f '#f)) - __obj27053)) + (##unchecked-structure-set! __obj27089 '() '18 '#f '#f)) + __obj27089)) (define |gerbil/core/mop~MOP-5[:0:]#:sequence| - (let ((__obj27054 + (let ((__obj27090 (let () (declare (not safe)) (##structure @@ -3292,40 +3292,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 'sequence '1 '#f '#f)) + (##unchecked-structure-set! __obj27090 'sequence '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 'sequence '2 '#f '#f)) - (let ((__tmp27409 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27090 'sequence '2 '#f '#f)) + (let ((__tmp27445 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27409 '3 '#f '#f)) + (##unchecked-structure-set! __obj27090 __tmp27445 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27090 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '#t '9 '#f '#f)) - (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|)) + (##unchecked-structure-set! __obj27090 '#t '9 '#f '#f)) + (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27410 '12 '#f '#f)) - (let ((__tmp27412 |gerbil/core/mop~MOP-5[1]#_g27413_|)) + (##unchecked-structure-set! __obj27090 __tmp27446 '12 '#f '#f)) + (let ((__tmp27448 |gerbil/core/mop~MOP-5[1]#_g27449_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27412 '14 '#f '#f)) + (##unchecked-structure-set! __obj27090 __tmp27448 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27090 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27090 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27090 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '18 '#f '#f)) - __obj27054)) + (##unchecked-structure-set! __obj27090 '() '18 '#f '#f)) + __obj27090)) (define |gerbil/core/mop~MOP-5[:0:]#:vector| - (let ((__obj27055 + (let ((__obj27091 (let () (declare (not safe)) (##structure @@ -3353,40 +3353,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 'vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27091 'vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 'vector '2 '#f '#f)) - (let ((__tmp27414 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '()))) + (##unchecked-structure-set! __obj27091 'vector '2 '#f '#f)) + (let ((__tmp27450 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27414 '3 '#f '#f)) + (##unchecked-structure-set! __obj27091 __tmp27450 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '#t '9 '#f '#f)) - (let ((__tmp27416 |gerbil/core/mop~MOP-5[1]#_g27417_|)) + (##unchecked-structure-set! __obj27091 '#t '9 '#f '#f)) + (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27416 '12 '#f '#f)) - (let ((__tmp27418 |gerbil/core/mop~MOP-5[1]#_g27419_|)) + (##unchecked-structure-set! __obj27091 __tmp27452 '12 '#f '#f)) + (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27418 '14 '#f '#f)) + (##unchecked-structure-set! __obj27091 __tmp27454 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27091 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27091 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27091 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '18 '#f '#f)) - __obj27055)) + (##unchecked-structure-set! __obj27091 '() '18 '#f '#f)) + __obj27091)) (define |gerbil/core/mop~MOP-5[:0:]#:string| - (let ((__obj27056 + (let ((__obj27092 (let () (declare (not safe)) (##structure @@ -3414,40 +3414,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 'string '1 '#f '#f)) + (##unchecked-structure-set! __obj27092 'string '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 'string '2 '#f '#f)) - (let ((__tmp27420 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '()))) + (##unchecked-structure-set! __obj27092 'string '2 '#f '#f)) + (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27420 '3 '#f '#f)) + (##unchecked-structure-set! __obj27092 __tmp27456 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27092 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '#t '9 '#f '#f)) - (let ((__tmp27421 |gerbil/core/mop~MOP-5[1]#_g27422_|)) + (##unchecked-structure-set! __obj27092 '#t '9 '#f '#f)) + (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27421 '12 '#f '#f)) - (let ((__tmp27423 |gerbil/core/mop~MOP-5[1]#_g27424_|)) + (##unchecked-structure-set! __obj27092 __tmp27457 '12 '#f '#f)) + (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27423 '14 '#f '#f)) + (##unchecked-structure-set! __obj27092 __tmp27459 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27092 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27092 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27092 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '18 '#f '#f)) - __obj27056)) + (##unchecked-structure-set! __obj27092 '() '18 '#f '#f)) + __obj27092)) (define |gerbil/core/mop~MOP-5[:0:]#:hvector| - (let ((__obj27057 + (let ((__obj27093 (let () (declare (not safe)) (##structure @@ -3475,40 +3475,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 'hvector '1 '#f '#f)) + (##unchecked-structure-set! __obj27093 'hvector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 'hvector '2 '#f '#f)) - (let ((__tmp27425 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '()))) + (##unchecked-structure-set! __obj27093 'hvector '2 '#f '#f)) + (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27425 '3 '#f '#f)) + (##unchecked-structure-set! __obj27093 __tmp27461 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27093 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '#t '9 '#f '#f)) - (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|)) + (##unchecked-structure-set! __obj27093 '#t '9 '#f '#f)) + (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27426 '12 '#f '#f)) - (let ((__tmp27428 |gerbil/core/mop~MOP-5[1]#_g27429_|)) + (##unchecked-structure-set! __obj27093 __tmp27462 '12 '#f '#f)) + (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27428 '14 '#f '#f)) + (##unchecked-structure-set! __obj27093 __tmp27464 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27093 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27093 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27093 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '18 '#f '#f)) - __obj27057)) + (##unchecked-structure-set! __obj27093 '() '18 '#f '#f)) + __obj27093)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector| - (let ((__obj27058 + (let ((__obj27094 (let () (declare (not safe)) (##structure @@ -3536,40 +3536,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 'u8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27094 'u8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 'u8vector '2 '#f '#f)) - (let ((__tmp27430 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27094 'u8vector '2 '#f '#f)) + (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27430 '3 '#f '#f)) + (##unchecked-structure-set! __obj27094 __tmp27466 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27094 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '#t '9 '#f '#f)) - (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27433_|)) + (##unchecked-structure-set! __obj27094 '#t '9 '#f '#f)) + (let ((__tmp27468 |gerbil/core/mop~MOP-5[1]#_g27469_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27432 '12 '#f '#f)) - (let ((__tmp27434 |gerbil/core/mop~MOP-5[1]#_g27435_|)) + (##unchecked-structure-set! __obj27094 __tmp27468 '12 '#f '#f)) + (let ((__tmp27470 |gerbil/core/mop~MOP-5[1]#_g27471_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27434 '14 '#f '#f)) + (##unchecked-structure-set! __obj27094 __tmp27470 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27094 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27094 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27094 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '18 '#f '#f)) - __obj27058)) + (##unchecked-structure-set! __obj27094 '() '18 '#f '#f)) + __obj27094)) (define |gerbil/core/mop~MOP-5[:0:]#:s8vector| - (let ((__obj27059 + (let ((__obj27095 (let () (declare (not safe)) (##structure @@ -3597,40 +3597,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 's8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27095 's8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 's8vector '2 '#f '#f)) - (let ((__tmp27436 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27095 's8vector '2 '#f '#f)) + (let ((__tmp27472 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27436 '3 '#f '#f)) + (##unchecked-structure-set! __obj27095 __tmp27472 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27095 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#t '9 '#f '#f)) - (let ((__tmp27437 |gerbil/core/mop~MOP-5[1]#_g27438_|)) + (##unchecked-structure-set! __obj27095 '#t '9 '#f '#f)) + (let ((__tmp27473 |gerbil/core/mop~MOP-5[1]#_g27474_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27437 '12 '#f '#f)) - (let ((__tmp27439 |gerbil/core/mop~MOP-5[1]#_g27440_|)) + (##unchecked-structure-set! __obj27095 __tmp27473 '12 '#f '#f)) + (let ((__tmp27475 |gerbil/core/mop~MOP-5[1]#_g27476_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27439 '14 '#f '#f)) + (##unchecked-structure-set! __obj27095 __tmp27475 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27095 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27095 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27095 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '18 '#f '#f)) - __obj27059)) + (##unchecked-structure-set! __obj27095 '() '18 '#f '#f)) + __obj27095)) (define |gerbil/core/mop~MOP-5[:0:]#:u16vector| - (let ((__obj27060 + (let ((__obj27096 (let () (declare (not safe)) (##structure @@ -3658,40 +3658,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 'u16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27096 'u16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 'u16vector '2 '#f '#f)) - (let ((__tmp27441 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27096 'u16vector '2 '#f '#f)) + (let ((__tmp27477 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27441 '3 '#f '#f)) + (##unchecked-structure-set! __obj27096 __tmp27477 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27096 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '#t '9 '#f '#f)) - (let ((__tmp27442 |gerbil/core/mop~MOP-5[1]#_g27443_|)) + (##unchecked-structure-set! __obj27096 '#t '9 '#f '#f)) + (let ((__tmp27478 |gerbil/core/mop~MOP-5[1]#_g27479_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27442 '12 '#f '#f)) - (let ((__tmp27444 |gerbil/core/mop~MOP-5[1]#_g27445_|)) + (##unchecked-structure-set! __obj27096 __tmp27478 '12 '#f '#f)) + (let ((__tmp27480 |gerbil/core/mop~MOP-5[1]#_g27481_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27444 '14 '#f '#f)) + (##unchecked-structure-set! __obj27096 __tmp27480 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27096 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27096 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27096 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '18 '#f '#f)) - __obj27060)) + (##unchecked-structure-set! __obj27096 '() '18 '#f '#f)) + __obj27096)) (define |gerbil/core/mop~MOP-5[:0:]#:s16vector| - (let ((__obj27061 + (let ((__obj27097 (let () (declare (not safe)) (##structure @@ -3719,40 +3719,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 's16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27097 's16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 's16vector '2 '#f '#f)) - (let ((__tmp27446 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27097 's16vector '2 '#f '#f)) + (let ((__tmp27482 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27446 '3 '#f '#f)) + (##unchecked-structure-set! __obj27097 __tmp27482 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27097 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '#t '9 '#f '#f)) - (let ((__tmp27447 |gerbil/core/mop~MOP-5[1]#_g27448_|)) + (##unchecked-structure-set! __obj27097 '#t '9 '#f '#f)) + (let ((__tmp27483 |gerbil/core/mop~MOP-5[1]#_g27484_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27447 '12 '#f '#f)) - (let ((__tmp27449 |gerbil/core/mop~MOP-5[1]#_g27450_|)) + (##unchecked-structure-set! __obj27097 __tmp27483 '12 '#f '#f)) + (let ((__tmp27485 |gerbil/core/mop~MOP-5[1]#_g27486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27449 '14 '#f '#f)) + (##unchecked-structure-set! __obj27097 __tmp27485 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27097 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27097 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27097 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '18 '#f '#f)) - __obj27061)) + (##unchecked-structure-set! __obj27097 '() '18 '#f '#f)) + __obj27097)) (define |gerbil/core/mop~MOP-5[:0:]#:u32vector| - (let ((__obj27062 + (let ((__obj27098 (let () (declare (not safe)) (##structure @@ -3780,40 +3780,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 'u32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27098 'u32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 'u32vector '2 '#f '#f)) - (let ((__tmp27451 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27098 'u32vector '2 '#f '#f)) + (let ((__tmp27487 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27451 '3 '#f '#f)) + (##unchecked-structure-set! __obj27098 __tmp27487 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27098 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '#t '9 '#f '#f)) - (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|)) + (##unchecked-structure-set! __obj27098 '#t '9 '#f '#f)) + (let ((__tmp27488 |gerbil/core/mop~MOP-5[1]#_g27489_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27452 '12 '#f '#f)) - (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) + (##unchecked-structure-set! __obj27098 __tmp27488 '12 '#f '#f)) + (let ((__tmp27490 |gerbil/core/mop~MOP-5[1]#_g27491_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27454 '14 '#f '#f)) + (##unchecked-structure-set! __obj27098 __tmp27490 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27098 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27098 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27098 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '18 '#f '#f)) - __obj27062)) + (##unchecked-structure-set! __obj27098 '() '18 '#f '#f)) + __obj27098)) (define |gerbil/core/mop~MOP-5[:0:]#:s32vector| - (let ((__obj27063 + (let ((__obj27099 (let () (declare (not safe)) (##structure @@ -3841,40 +3841,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 's32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27099 's32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 's32vector '2 '#f '#f)) - (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27099 's32vector '2 '#f '#f)) + (let ((__tmp27492 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27456 '3 '#f '#f)) + (##unchecked-structure-set! __obj27099 __tmp27492 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27099 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '#t '9 '#f '#f)) - (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|)) + (##unchecked-structure-set! __obj27099 '#t '9 '#f '#f)) + (let ((__tmp27493 |gerbil/core/mop~MOP-5[1]#_g27494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27457 '12 '#f '#f)) - (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) + (##unchecked-structure-set! __obj27099 __tmp27493 '12 '#f '#f)) + (let ((__tmp27495 |gerbil/core/mop~MOP-5[1]#_g27496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27459 '14 '#f '#f)) + (##unchecked-structure-set! __obj27099 __tmp27495 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27099 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27099 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27099 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '18 '#f '#f)) - __obj27063)) + (##unchecked-structure-set! __obj27099 '() '18 '#f '#f)) + __obj27099)) (define |gerbil/core/mop~MOP-5[:0:]#:u64vector| - (let ((__obj27064 + (let ((__obj27100 (let () (declare (not safe)) (##structure @@ -3902,40 +3902,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'u64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27100 'u64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'u64vector '2 '#f '#f)) - (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27100 'u64vector '2 '#f '#f)) + (let ((__tmp27497 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27461 '3 '#f '#f)) + (##unchecked-structure-set! __obj27100 __tmp27497 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27100 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '#t '9 '#f '#f)) - (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) + (##unchecked-structure-set! __obj27100 '#t '9 '#f '#f)) + (let ((__tmp27498 |gerbil/core/mop~MOP-5[1]#_g27499_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27462 '12 '#f '#f)) - (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) + (##unchecked-structure-set! __obj27100 __tmp27498 '12 '#f '#f)) + (let ((__tmp27500 |gerbil/core/mop~MOP-5[1]#_g27501_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27464 '14 '#f '#f)) + (##unchecked-structure-set! __obj27100 __tmp27500 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27100 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27100 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27100 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '18 '#f '#f)) - __obj27064)) + (##unchecked-structure-set! __obj27100 '() '18 '#f '#f)) + __obj27100)) (define |gerbil/core/mop~MOP-5[:0:]#:s64vector| - (let ((__obj27065 + (let ((__obj27101 (let () (declare (not safe)) (##structure @@ -3963,40 +3963,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 's64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27101 's64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 's64vector '2 '#f '#f)) - (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27101 's64vector '2 '#f '#f)) + (let ((__tmp27502 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27466 '3 '#f '#f)) + (##unchecked-structure-set! __obj27101 __tmp27502 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27101 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '#t '9 '#f '#f)) - (let ((__tmp27467 |gerbil/core/mop~MOP-5[1]#_g27468_|)) + (##unchecked-structure-set! __obj27101 '#t '9 '#f '#f)) + (let ((__tmp27503 |gerbil/core/mop~MOP-5[1]#_g27504_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27467 '12 '#f '#f)) - (let ((__tmp27469 |gerbil/core/mop~MOP-5[1]#_g27470_|)) + (##unchecked-structure-set! __obj27101 __tmp27503 '12 '#f '#f)) + (let ((__tmp27505 |gerbil/core/mop~MOP-5[1]#_g27506_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27469 '14 '#f '#f)) + (##unchecked-structure-set! __obj27101 __tmp27505 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27101 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27101 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27101 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '18 '#f '#f)) - __obj27065)) + (##unchecked-structure-set! __obj27101 '() '18 '#f '#f)) + __obj27101)) (define |gerbil/core/mop~MOP-5[:0:]#:f32vector| - (let ((__obj27066 + (let ((__obj27102 (let () (declare (not safe)) (##structure @@ -4024,40 +4024,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'f32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27102 'f32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'f32vector '2 '#f '#f)) - (let ((__tmp27471 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27102 'f32vector '2 '#f '#f)) + (let ((__tmp27507 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27471 '3 '#f '#f)) + (##unchecked-structure-set! __obj27102 __tmp27507 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27102 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '#t '9 '#f '#f)) - (let ((__tmp27472 |gerbil/core/mop~MOP-5[1]#_g27473_|)) + (##unchecked-structure-set! __obj27102 '#t '9 '#f '#f)) + (let ((__tmp27508 |gerbil/core/mop~MOP-5[1]#_g27509_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27472 '12 '#f '#f)) - (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|)) + (##unchecked-structure-set! __obj27102 __tmp27508 '12 '#f '#f)) + (let ((__tmp27510 |gerbil/core/mop~MOP-5[1]#_g27511_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27474 '14 '#f '#f)) + (##unchecked-structure-set! __obj27102 __tmp27510 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27102 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27102 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27102 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '18 '#f '#f)) - __obj27066)) + (##unchecked-structure-set! __obj27102 '() '18 '#f '#f)) + __obj27102)) (define |gerbil/core/mop~MOP-5[:0:]#:f64vector| - (let ((__obj27067 + (let ((__obj27103 (let () (declare (not safe)) (##structure @@ -4085,40 +4085,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'f64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27103 'f64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'f64vector '2 '#f '#f)) - (let ((__tmp27476 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27103 'f64vector '2 '#f '#f)) + (let ((__tmp27512 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27476 '3 '#f '#f)) + (##unchecked-structure-set! __obj27103 __tmp27512 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27103 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '#t '9 '#f '#f)) - (let ((__tmp27477 |gerbil/core/mop~MOP-5[1]#_g27478_|)) + (##unchecked-structure-set! __obj27103 '#t '9 '#f '#f)) + (let ((__tmp27513 |gerbil/core/mop~MOP-5[1]#_g27514_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27477 '12 '#f '#f)) - (let ((__tmp27479 |gerbil/core/mop~MOP-5[1]#_g27480_|)) + (##unchecked-structure-set! __obj27103 __tmp27513 '12 '#f '#f)) + (let ((__tmp27515 |gerbil/core/mop~MOP-5[1]#_g27516_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27479 '14 '#f '#f)) + (##unchecked-structure-set! __obj27103 __tmp27515 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27103 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27103 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27103 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '18 '#f '#f)) - __obj27067)) + (##unchecked-structure-set! __obj27103 '() '18 '#f '#f)) + __obj27103)) (define |gerbil/core/mop~MOP-5[:0:]#:values| - (let ((__obj27068 + (let ((__obj27104 (let () (declare (not safe)) (##structure @@ -4146,40 +4146,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'values '1 '#f '#f)) + (##unchecked-structure-set! __obj27104 'values '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'values '2 '#f '#f)) - (let ((__tmp27481 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27104 'values '2 '#f '#f)) + (let ((__tmp27517 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27481 '3 '#f '#f)) + (##unchecked-structure-set! __obj27104 __tmp27517 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27104 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '#t '9 '#f '#f)) - (let ((__tmp27482 |gerbil/core/mop~MOP-5[1]#_g27483_|)) + (##unchecked-structure-set! __obj27104 '#t '9 '#f '#f)) + (let ((__tmp27518 |gerbil/core/mop~MOP-5[1]#_g27519_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27482 '12 '#f '#f)) - (let ((__tmp27484 |gerbil/core/mop~MOP-5[1]#_g27485_|)) + (##unchecked-structure-set! __obj27104 __tmp27518 '12 '#f '#f)) + (let ((__tmp27520 |gerbil/core/mop~MOP-5[1]#_g27521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27484 '14 '#f '#f)) + (##unchecked-structure-set! __obj27104 __tmp27520 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27104 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27104 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27104 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '18 '#f '#f)) - __obj27068)) + (##unchecked-structure-set! __obj27104 '() '18 '#f '#f)) + __obj27104)) (define |gerbil/core/mop~MOP-5[:0:]#:box| - (let ((__obj27069 + (let ((__obj27105 (let () (declare (not safe)) (##structure @@ -4207,40 +4207,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'box '1 '#f '#f)) + (##unchecked-structure-set! __obj27105 'box '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'box '2 '#f '#f)) - (let ((__tmp27486 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27105 'box '2 '#f '#f)) + (let ((__tmp27522 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27486 '3 '#f '#f)) + (##unchecked-structure-set! __obj27105 __tmp27522 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27105 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '#t '9 '#f '#f)) - (let ((__tmp27487 |gerbil/core/mop~MOP-5[1]#_g27488_|)) + (##unchecked-structure-set! __obj27105 '#t '9 '#f '#f)) + (let ((__tmp27523 |gerbil/core/mop~MOP-5[1]#_g27524_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27487 '12 '#f '#f)) - (let ((__tmp27489 |gerbil/core/mop~MOP-5[1]#_g27490_|)) + (##unchecked-structure-set! __obj27105 __tmp27523 '12 '#f '#f)) + (let ((__tmp27525 |gerbil/core/mop~MOP-5[1]#_g27526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27489 '14 '#f '#f)) + (##unchecked-structure-set! __obj27105 __tmp27525 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27105 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27105 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27105 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '18 '#f '#f)) - __obj27069)) + (##unchecked-structure-set! __obj27105 '() '18 '#f '#f)) + __obj27105)) (define |gerbil/core/mop~MOP-5[:0:]#:frame| - (let ((__obj27070 + (let ((__obj27106 (let () (declare (not safe)) (##structure @@ -4268,40 +4268,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'frame '1 '#f '#f)) + (##unchecked-structure-set! __obj27106 'frame '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'frame '2 '#f '#f)) - (let ((__tmp27491 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27106 'frame '2 '#f '#f)) + (let ((__tmp27527 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27491 '3 '#f '#f)) + (##unchecked-structure-set! __obj27106 __tmp27527 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27106 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '#t '9 '#f '#f)) - (let ((__tmp27492 |gerbil/core/mop~MOP-5[1]#_g27493_|)) + (##unchecked-structure-set! __obj27106 '#t '9 '#f '#f)) + (let ((__tmp27528 |gerbil/core/mop~MOP-5[1]#_g27529_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27492 '12 '#f '#f)) - (let ((__tmp27494 |gerbil/core/mop~MOP-5[1]#_g27495_|)) + (##unchecked-structure-set! __obj27106 __tmp27528 '12 '#f '#f)) + (let ((__tmp27530 |gerbil/core/mop~MOP-5[1]#_g27531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27494 '14 '#f '#f)) + (##unchecked-structure-set! __obj27106 __tmp27530 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27106 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27106 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27106 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '18 '#f '#f)) - __obj27070)) + (##unchecked-structure-set! __obj27106 '() '18 '#f '#f)) + __obj27106)) (define |gerbil/core/mop~MOP-5[:0:]#:continuation| - (let ((__obj27071 + (let ((__obj27107 (let () (declare (not safe)) (##structure @@ -4329,40 +4329,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'continuation '1 '#f '#f)) + (##unchecked-structure-set! __obj27107 'continuation '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'continuation '2 '#f '#f)) - (let ((__tmp27496 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27107 'continuation '2 '#f '#f)) + (let ((__tmp27532 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27496 '3 '#f '#f)) + (##unchecked-structure-set! __obj27107 __tmp27532 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27107 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '#t '9 '#f '#f)) - (let ((__tmp27497 |gerbil/core/mop~MOP-5[1]#_g27498_|)) + (##unchecked-structure-set! __obj27107 '#t '9 '#f '#f)) + (let ((__tmp27533 |gerbil/core/mop~MOP-5[1]#_g27534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27497 '12 '#f '#f)) - (let ((__tmp27499 |gerbil/core/mop~MOP-5[1]#_g27500_|)) + (##unchecked-structure-set! __obj27107 __tmp27533 '12 '#f '#f)) + (let ((__tmp27535 |gerbil/core/mop~MOP-5[1]#_g27536_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27499 '14 '#f '#f)) + (##unchecked-structure-set! __obj27107 __tmp27535 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27107 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27107 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27107 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '18 '#f '#f)) - __obj27071)) + (##unchecked-structure-set! __obj27107 '() '18 '#f '#f)) + __obj27107)) (define |gerbil/core/mop~MOP-5[:0:]#:promise| - (let ((__obj27072 + (let ((__obj27108 (let () (declare (not safe)) (##structure @@ -4390,40 +4390,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 'promise '1 '#f '#f)) + (##unchecked-structure-set! __obj27108 'promise '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 'promise '2 '#f '#f)) - (let ((__tmp27501 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27108 'promise '2 '#f '#f)) + (let ((__tmp27537 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27501 '3 '#f '#f)) + (##unchecked-structure-set! __obj27108 __tmp27537 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27108 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '#t '9 '#f '#f)) - (let ((__tmp27502 |gerbil/core/mop~MOP-5[1]#_g27503_|)) + (##unchecked-structure-set! __obj27108 '#t '9 '#f '#f)) + (let ((__tmp27538 |gerbil/core/mop~MOP-5[1]#_g27539_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27502 '12 '#f '#f)) - (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|)) + (##unchecked-structure-set! __obj27108 __tmp27538 '12 '#f '#f)) + (let ((__tmp27540 |gerbil/core/mop~MOP-5[1]#_g27541_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27504 '14 '#f '#f)) + (##unchecked-structure-set! __obj27108 __tmp27540 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27108 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27108 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27108 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '18 '#f '#f)) - __obj27072)) + (##unchecked-structure-set! __obj27108 '() '18 '#f '#f)) + __obj27108)) (define |gerbil/core/mop~MOP-5[:0:]#:weak| - (let ((__obj27073 + (let ((__obj27109 (let () (declare (not safe)) (##structure @@ -4451,40 +4451,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'weak '1 '#f '#f)) + (##unchecked-structure-set! __obj27109 'weak '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'weak '2 '#f '#f)) - (let ((__tmp27506 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27109 'weak '2 '#f '#f)) + (let ((__tmp27542 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27506 '3 '#f '#f)) + (##unchecked-structure-set! __obj27109 __tmp27542 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27109 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '#t '9 '#f '#f)) - (let ((__tmp27507 |gerbil/core/mop~MOP-5[1]#_g27508_|)) + (##unchecked-structure-set! __obj27109 '#t '9 '#f '#f)) + (let ((__tmp27543 |gerbil/core/mop~MOP-5[1]#_g27544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27507 '12 '#f '#f)) - (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|)) + (##unchecked-structure-set! __obj27109 __tmp27543 '12 '#f '#f)) + (let ((__tmp27545 |gerbil/core/mop~MOP-5[1]#_g27546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27509 '14 '#f '#f)) + (##unchecked-structure-set! __obj27109 __tmp27545 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27109 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27109 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27109 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '18 '#f '#f)) - __obj27073)) + (##unchecked-structure-set! __obj27109 '() '18 '#f '#f)) + __obj27109)) (define |gerbil/core/mop~MOP-5[:0:]#:foreign| - (let ((__obj27074 + (let ((__obj27110 (let () (declare (not safe)) (##structure @@ -4512,40 +4512,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'foreign '1 '#f '#f)) + (##unchecked-structure-set! __obj27110 'foreign '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'foreign '2 '#f '#f)) - (let ((__tmp27511 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27110 'foreign '2 '#f '#f)) + (let ((__tmp27547 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27511 '3 '#f '#f)) + (##unchecked-structure-set! __obj27110 __tmp27547 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27110 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '#t '9 '#f '#f)) - (let ((__tmp27512 |gerbil/core/mop~MOP-5[1]#_g27513_|)) + (##unchecked-structure-set! __obj27110 '#t '9 '#f '#f)) + (let ((__tmp27548 |gerbil/core/mop~MOP-5[1]#_g27549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27512 '12 '#f '#f)) - (let ((__tmp27514 |gerbil/core/mop~MOP-5[1]#_g27515_|)) + (##unchecked-structure-set! __obj27110 __tmp27548 '12 '#f '#f)) + (let ((__tmp27550 |gerbil/core/mop~MOP-5[1]#_g27551_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27514 '14 '#f '#f)) + (##unchecked-structure-set! __obj27110 __tmp27550 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27110 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27110 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27110 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '18 '#f '#f)) - __obj27074)) + (##unchecked-structure-set! __obj27110 '() '18 '#f '#f)) + __obj27110)) (define |gerbil/core/mop~MOP-5[:0:]#:procedure| - (let ((__obj27075 + (let ((__obj27111 (let () (declare (not safe)) (##structure @@ -4573,40 +4573,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'procedure '1 '#f '#f)) + (##unchecked-structure-set! __obj27111 'procedure '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'procedure '2 '#f '#f)) - (let ((__tmp27516 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27111 'procedure '2 '#f '#f)) + (let ((__tmp27552 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27516 '3 '#f '#f)) + (##unchecked-structure-set! __obj27111 __tmp27552 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27111 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '#t '9 '#f '#f)) - (let ((__tmp27517 |gerbil/core/mop~MOP-5[1]#_g27518_|)) + (##unchecked-structure-set! __obj27111 '#t '9 '#f '#f)) + (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27517 '12 '#f '#f)) - (let ((__tmp27519 |gerbil/core/mop~MOP-5[1]#_g27520_|)) + (##unchecked-structure-set! __obj27111 __tmp27553 '12 '#f '#f)) + (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27519 '14 '#f '#f)) + (##unchecked-structure-set! __obj27111 __tmp27555 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27111 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27111 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27111 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '18 '#f '#f)) - __obj27075)) + (##unchecked-structure-set! __obj27111 '() '18 '#f '#f)) + __obj27111)) (define |gerbil/core/mop~MOP-5[:0:]#:time| - (let ((__obj27076 + (let ((__obj27112 (let () (declare (not safe)) (##structure @@ -4634,40 +4634,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'time::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27112 'time::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'time '2 '#f '#f)) - (let ((__tmp27521 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27112 'time '2 '#f '#f)) + (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27521 '3 '#f '#f)) + (##unchecked-structure-set! __obj27112 __tmp27557 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27112 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '#t '9 '#f '#f)) - (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|)) + (##unchecked-structure-set! __obj27112 '#t '9 '#f '#f)) + (let ((__tmp27558 |gerbil/core/mop~MOP-5[1]#_g27559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27522 '12 '#f '#f)) - (let ((__tmp27524 |gerbil/core/mop~MOP-5[1]#_g27525_|)) + (##unchecked-structure-set! __obj27112 __tmp27558 '12 '#f '#f)) + (let ((__tmp27560 |gerbil/core/mop~MOP-5[1]#_g27561_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27524 '14 '#f '#f)) + (##unchecked-structure-set! __obj27112 __tmp27560 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27112 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27112 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27112 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '18 '#f '#f)) - __obj27076)) + (##unchecked-structure-set! __obj27112 '() '18 '#f '#f)) + __obj27112)) (define |gerbil/core/mop~MOP-5[:0:]#:thread| - (let ((__obj27077 + (let ((__obj27113 (let () (declare (not safe)) (##structure @@ -4695,40 +4695,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'thread::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27113 'thread::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'thread '2 '#f '#f)) - (let ((__tmp27526 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27113 'thread '2 '#f '#f)) + (let ((__tmp27562 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27526 '3 '#f '#f)) + (##unchecked-structure-set! __obj27113 __tmp27562 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '#t '9 '#f '#f)) - (let ((__tmp27527 |gerbil/core/mop~MOP-5[1]#_g27528_|)) + (##unchecked-structure-set! __obj27113 '#t '9 '#f '#f)) + (let ((__tmp27563 |gerbil/core/mop~MOP-5[1]#_g27564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27527 '12 '#f '#f)) - (let ((__tmp27529 |gerbil/core/mop~MOP-5[1]#_g27530_|)) + (##unchecked-structure-set! __obj27113 __tmp27563 '12 '#f '#f)) + (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27529 '14 '#f '#f)) + (##unchecked-structure-set! __obj27113 __tmp27565 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27113 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '18 '#f '#f)) - __obj27077)) + (##unchecked-structure-set! __obj27113 '() '18 '#f '#f)) + __obj27113)) (define |gerbil/core/mop~MOP-5[:0:]#:thread-group| - (let ((__obj27078 + (let ((__obj27114 (let () (declare (not safe)) (##structure @@ -4756,40 +4756,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'thread-group::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27114 'thread-group::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'thread-group '2 '#f '#f)) - (let ((__tmp27531 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27114 'thread-group '2 '#f '#f)) + (let ((__tmp27567 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27531 '3 '#f '#f)) + (##unchecked-structure-set! __obj27114 __tmp27567 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '#t '9 '#f '#f)) - (let ((__tmp27532 |gerbil/core/mop~MOP-5[1]#_g27533_|)) + (##unchecked-structure-set! __obj27114 '#t '9 '#f '#f)) + (let ((__tmp27568 |gerbil/core/mop~MOP-5[1]#_g27569_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27532 '12 '#f '#f)) - (let ((__tmp27534 |gerbil/core/mop~MOP-5[1]#_g27535_|)) + (##unchecked-structure-set! __obj27114 __tmp27568 '12 '#f '#f)) + (let ((__tmp27570 |gerbil/core/mop~MOP-5[1]#_g27571_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27534 '14 '#f '#f)) + (##unchecked-structure-set! __obj27114 __tmp27570 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27114 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '18 '#f '#f)) - __obj27078)) + (##unchecked-structure-set! __obj27114 '() '18 '#f '#f)) + __obj27114)) (define |gerbil/core/mop~MOP-5[:0:]#:mutex| - (let ((__obj27079 + (let ((__obj27115 (let () (declare (not safe)) (##structure @@ -4817,40 +4817,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'mutex::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27115 'mutex::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'mutex '2 '#f '#f)) - (let ((__tmp27536 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27115 'mutex '2 '#f '#f)) + (let ((__tmp27572 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27536 '3 '#f '#f)) + (##unchecked-structure-set! __obj27115 __tmp27572 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27115 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '#t '9 '#f '#f)) - (let ((__tmp27537 |gerbil/core/mop~MOP-5[1]#_g27538_|)) + (##unchecked-structure-set! __obj27115 '#t '9 '#f '#f)) + (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27537 '12 '#f '#f)) - (let ((__tmp27539 |gerbil/core/mop~MOP-5[1]#_g27540_|)) + (##unchecked-structure-set! __obj27115 __tmp27573 '12 '#f '#f)) + (let ((__tmp27575 |gerbil/core/mop~MOP-5[1]#_g27576_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27539 '14 '#f '#f)) + (##unchecked-structure-set! __obj27115 __tmp27575 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27115 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27115 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27115 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '18 '#f '#f)) - __obj27079)) + (##unchecked-structure-set! __obj27115 '() '18 '#f '#f)) + __obj27115)) (define |gerbil/core/mop~MOP-5[:0:]#:condvar| - (let ((__obj27080 + (let ((__obj27116 (let () (declare (not safe)) (##structure @@ -4879,7 +4879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27080 + __obj27116 'condition-variable::t '1 '#f @@ -4887,41 +4887,41 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27080 + __obj27116 'condition-variable '2 '#f '#f)) - (let ((__tmp27541 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (let ((__tmp27577 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27541 '3 '#f '#f)) + (##unchecked-structure-set! __obj27116 __tmp27577 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '#t '9 '#f '#f)) - (let ((__tmp27542 |gerbil/core/mop~MOP-5[1]#_g27543_|)) + (##unchecked-structure-set! __obj27116 '#t '9 '#f '#f)) + (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27542 '12 '#f '#f)) - (let ((__tmp27544 |gerbil/core/mop~MOP-5[1]#_g27545_|)) + (##unchecked-structure-set! __obj27116 __tmp27578 '12 '#f '#f)) + (let ((__tmp27580 |gerbil/core/mop~MOP-5[1]#_g27581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27544 '14 '#f '#f)) + (##unchecked-structure-set! __obj27116 __tmp27580 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27116 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '18 '#f '#f)) - __obj27080)) + (##unchecked-structure-set! __obj27116 '() '18 '#f '#f)) + __obj27116)) (define |gerbil/core/mop~MOP-5[:0:]#:port| - (let ((__obj27081 + (let ((__obj27117 (let () (declare (not safe)) (##structure @@ -4949,40 +4949,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27117 'port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'port '2 '#f '#f)) - (let ((__tmp27546 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27117 'port '2 '#f '#f)) + (let ((__tmp27582 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27546 '3 '#f '#f)) + (##unchecked-structure-set! __obj27117 __tmp27582 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '#t '9 '#f '#f)) - (let ((__tmp27547 |gerbil/core/mop~MOP-5[1]#_g27548_|)) + (##unchecked-structure-set! __obj27117 '#t '9 '#f '#f)) + (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27547 '12 '#f '#f)) - (let ((__tmp27549 |gerbil/core/mop~MOP-5[1]#_g27550_|)) + (##unchecked-structure-set! __obj27117 __tmp27583 '12 '#f '#f)) + (let ((__tmp27585 |gerbil/core/mop~MOP-5[1]#_g27586_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27549 '14 '#f '#f)) + (##unchecked-structure-set! __obj27117 __tmp27585 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27117 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '18 '#f '#f)) - __obj27081)) + (##unchecked-structure-set! __obj27117 '() '18 '#f '#f)) + __obj27117)) (define |gerbil/core/mop~MOP-5[:0:]#:object-port| - (let ((__obj27082 + (let ((__obj27118 (let () (declare (not safe)) (##structure @@ -5010,40 +5010,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'object-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27118 'object-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'object-port '2 '#f '#f)) - (let ((__tmp27551 (cons |gerbil/core/mop~MOP-5[1]#_g27552_| '()))) + (##unchecked-structure-set! __obj27118 'object-port '2 '#f '#f)) + (let ((__tmp27587 (cons |gerbil/core/mop~MOP-5[1]#_g27588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27551 '3 '#f '#f)) + (##unchecked-structure-set! __obj27118 __tmp27587 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '#t '9 '#f '#f)) - (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) + (##unchecked-structure-set! __obj27118 '#t '9 '#f '#f)) + (let ((__tmp27589 |gerbil/core/mop~MOP-5[1]#_g27590_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27553 '12 '#f '#f)) - (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) + (##unchecked-structure-set! __obj27118 __tmp27589 '12 '#f '#f)) + (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27555 '14 '#f '#f)) + (##unchecked-structure-set! __obj27118 __tmp27591 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27118 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '18 '#f '#f)) - __obj27082)) + (##unchecked-structure-set! __obj27118 '() '18 '#f '#f)) + __obj27118)) (define |gerbil/core/mop~MOP-5[:0:]#:character-port| - (let ((__obj27083 + (let ((__obj27119 (let () (declare (not safe)) (##structure @@ -5072,44 +5072,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27083 + __obj27119 'character-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 'character-port '2 '#f '#f)) - (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27119 'character-port '2 '#f '#f)) + (let ((__tmp27593 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27557 '3 '#f '#f)) + (##unchecked-structure-set! __obj27119 __tmp27593 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '#t '9 '#f '#f)) - (let ((__tmp27559 |gerbil/core/mop~MOP-5[1]#_g27560_|)) + (##unchecked-structure-set! __obj27119 '#t '9 '#f '#f)) + (let ((__tmp27595 |gerbil/core/mop~MOP-5[1]#_g27596_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27559 '12 '#f '#f)) - (let ((__tmp27561 |gerbil/core/mop~MOP-5[1]#_g27562_|)) + (##unchecked-structure-set! __obj27119 __tmp27595 '12 '#f '#f)) + (let ((__tmp27597 |gerbil/core/mop~MOP-5[1]#_g27598_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27561 '14 '#f '#f)) + (##unchecked-structure-set! __obj27119 __tmp27597 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27119 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '18 '#f '#f)) - __obj27083)) + (##unchecked-structure-set! __obj27119 '() '18 '#f '#f)) + __obj27119)) (define |gerbil/core/mop~MOP-5[:0:]#:byte-port| - (let ((__obj27084 + (let ((__obj27120 (let () (declare (not safe)) (##structure @@ -5137,40 +5137,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'byte-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27120 'byte-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'byte-port '2 '#f '#f)) - (let ((__tmp27563 (cons |gerbil/core/mop~MOP-5[1]#_g27564_| '()))) + (##unchecked-structure-set! __obj27120 'byte-port '2 '#f '#f)) + (let ((__tmp27599 (cons |gerbil/core/mop~MOP-5[1]#_g27600_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27563 '3 '#f '#f)) + (##unchecked-structure-set! __obj27120 __tmp27599 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27120 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '#t '9 '#f '#f)) - (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) + (##unchecked-structure-set! __obj27120 '#t '9 '#f '#f)) + (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27565 '12 '#f '#f)) - (let ((__tmp27567 |gerbil/core/mop~MOP-5[1]#_g27568_|)) + (##unchecked-structure-set! __obj27120 __tmp27601 '12 '#f '#f)) + (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27567 '14 '#f '#f)) + (##unchecked-structure-set! __obj27120 __tmp27603 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27120 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27120 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27120 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '18 '#f '#f)) - __obj27084)) + (##unchecked-structure-set! __obj27120 '() '18 '#f '#f)) + __obj27120)) (define |gerbil/core/mop~MOP-5[:0:]#:device-port| - (let ((__obj27085 + (let ((__obj27121 (let () (declare (not safe)) (##structure @@ -5198,40 +5198,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'device-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27121 'device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'device-port '2 '#f '#f)) - (let ((__tmp27569 (cons |gerbil/core/mop~MOP-5[1]#_g27570_| '()))) + (##unchecked-structure-set! __obj27121 'device-port '2 '#f '#f)) + (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27569 '3 '#f '#f)) + (##unchecked-structure-set! __obj27121 __tmp27605 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27121 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '#t '9 '#f '#f)) - (let ((__tmp27571 |gerbil/core/mop~MOP-5[1]#_g27572_|)) + (##unchecked-structure-set! __obj27121 '#t '9 '#f '#f)) + (let ((__tmp27607 |gerbil/core/mop~MOP-5[1]#_g27608_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27571 '12 '#f '#f)) - (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) + (##unchecked-structure-set! __obj27121 __tmp27607 '12 '#f '#f)) + (let ((__tmp27609 |gerbil/core/mop~MOP-5[1]#_g27610_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27573 '14 '#f '#f)) + (##unchecked-structure-set! __obj27121 __tmp27609 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27121 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27121 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27121 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '18 '#f '#f)) - __obj27085)) + (##unchecked-structure-set! __obj27121 '() '18 '#f '#f)) + __obj27121)) (define |gerbil/core/mop~MOP-5[:0:]#:vector-port| - (let ((__obj27086 + (let ((__obj27122 (let () (declare (not safe)) (##structure @@ -5259,40 +5259,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27122 'vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'vector-port '2 '#f '#f)) - (let ((__tmp27575 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27122 'vector-port '2 '#f '#f)) + (let ((__tmp27611 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27575 '3 '#f '#f)) + (##unchecked-structure-set! __obj27122 __tmp27611 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27122 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '#t '9 '#f '#f)) - (let ((__tmp27576 |gerbil/core/mop~MOP-5[1]#_g27577_|)) + (##unchecked-structure-set! __obj27122 '#t '9 '#f '#f)) + (let ((__tmp27612 |gerbil/core/mop~MOP-5[1]#_g27613_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27576 '12 '#f '#f)) - (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) + (##unchecked-structure-set! __obj27122 __tmp27612 '12 '#f '#f)) + (let ((__tmp27614 |gerbil/core/mop~MOP-5[1]#_g27615_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27578 '14 '#f '#f)) + (##unchecked-structure-set! __obj27122 __tmp27614 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27122 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27122 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27122 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '18 '#f '#f)) - __obj27086)) + (##unchecked-structure-set! __obj27122 '() '18 '#f '#f)) + __obj27122)) (define |gerbil/core/mop~MOP-5[:0:]#:string-port| - (let ((__obj27087 + (let ((__obj27123 (let () (declare (not safe)) (##structure @@ -5320,40 +5320,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'string-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27123 'string-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'string-port '2 '#f '#f)) - (let ((__tmp27580 (cons |gerbil/core/mop~MOP-5[1]#_g27564_| '()))) + (##unchecked-structure-set! __obj27123 'string-port '2 '#f '#f)) + (let ((__tmp27616 (cons |gerbil/core/mop~MOP-5[1]#_g27600_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27580 '3 '#f '#f)) + (##unchecked-structure-set! __obj27123 __tmp27616 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27123 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '#t '9 '#f '#f)) - (let ((__tmp27581 |gerbil/core/mop~MOP-5[1]#_g27582_|)) + (##unchecked-structure-set! __obj27123 '#t '9 '#f '#f)) + (let ((__tmp27617 |gerbil/core/mop~MOP-5[1]#_g27618_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27581 '12 '#f '#f)) - (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) + (##unchecked-structure-set! __obj27123 __tmp27617 '12 '#f '#f)) + (let ((__tmp27619 |gerbil/core/mop~MOP-5[1]#_g27620_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27583 '14 '#f '#f)) + (##unchecked-structure-set! __obj27123 __tmp27619 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27123 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27123 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27123 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '18 '#f '#f)) - __obj27087)) + (##unchecked-structure-set! __obj27123 '() '18 '#f '#f)) + __obj27123)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port| - (let ((__obj27088 + (let ((__obj27124 (let () (declare (not safe)) (##structure @@ -5381,40 +5381,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'u8vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27124 'u8vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'u8vector-port '2 '#f '#f)) - (let ((__tmp27585 (cons |gerbil/core/mop~MOP-5[1]#_g27570_| '()))) + (##unchecked-structure-set! __obj27124 'u8vector-port '2 '#f '#f)) + (let ((__tmp27621 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27585 '3 '#f '#f)) + (##unchecked-structure-set! __obj27124 __tmp27621 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27124 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '#t '9 '#f '#f)) - (let ((__tmp27586 |gerbil/core/mop~MOP-5[1]#_g27587_|)) + (##unchecked-structure-set! __obj27124 '#t '9 '#f '#f)) + (let ((__tmp27622 |gerbil/core/mop~MOP-5[1]#_g27623_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27586 '12 '#f '#f)) - (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|)) + (##unchecked-structure-set! __obj27124 __tmp27622 '12 '#f '#f)) + (let ((__tmp27624 |gerbil/core/mop~MOP-5[1]#_g27625_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27588 '14 '#f '#f)) + (##unchecked-structure-set! __obj27124 __tmp27624 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27124 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27124 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27124 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '18 '#f '#f)) - __obj27088)) + (##unchecked-structure-set! __obj27124 '() '18 '#f '#f)) + __obj27124)) (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port| - (let ((__obj27089 + (let ((__obj27125 (let () (declare (not safe)) (##structure @@ -5443,44 +5443,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27089 + __obj27125 'raw-device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 'raw-device-port '2 '#f '#f)) - (let ((__tmp27590 (cons |gerbil/core/mop~MOP-5[1]#_g27552_| '()))) + (##unchecked-structure-set! __obj27125 'raw-device-port '2 '#f '#f)) + (let ((__tmp27626 (cons |gerbil/core/mop~MOP-5[1]#_g27588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27590 '3 '#f '#f)) + (##unchecked-structure-set! __obj27125 __tmp27626 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27125 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '#t '9 '#f '#f)) - (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) + (##unchecked-structure-set! __obj27125 '#t '9 '#f '#f)) + (let ((__tmp27627 |gerbil/core/mop~MOP-5[1]#_g27628_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27591 '12 '#f '#f)) - (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) + (##unchecked-structure-set! __obj27125 __tmp27627 '12 '#f '#f)) + (let ((__tmp27629 |gerbil/core/mop~MOP-5[1]#_g27630_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27593 '14 '#f '#f)) + (##unchecked-structure-set! __obj27125 __tmp27629 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27125 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27125 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27125 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '18 '#f '#f)) - __obj27089)) + (##unchecked-structure-set! __obj27125 '() '18 '#f '#f)) + __obj27125)) (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port| - (let ((__obj27090 + (let ((__obj27126 (let () (declare (not safe)) (##structure @@ -5509,44 +5509,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27090 + __obj27126 'tcp-server-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 'tcp-server-port '2 '#f '#f)) - (let ((__tmp27595 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27126 'tcp-server-port '2 '#f '#f)) + (let ((__tmp27631 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27595 '3 '#f '#f)) + (##unchecked-structure-set! __obj27126 __tmp27631 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '#t '9 '#f '#f)) - (let ((__tmp27596 |gerbil/core/mop~MOP-5[1]#_g27597_|)) + (##unchecked-structure-set! __obj27126 '#t '9 '#f '#f)) + (let ((__tmp27632 |gerbil/core/mop~MOP-5[1]#_g27633_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27596 '12 '#f '#f)) - (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) + (##unchecked-structure-set! __obj27126 __tmp27632 '12 '#f '#f)) + (let ((__tmp27634 |gerbil/core/mop~MOP-5[1]#_g27635_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27598 '14 '#f '#f)) + (##unchecked-structure-set! __obj27126 __tmp27634 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '18 '#f '#f)) - __obj27090)) + (##unchecked-structure-set! __obj27126 '() '18 '#f '#f)) + __obj27126)) (define |gerbil/core/mop~MOP-5[:0:]#:udp-port| - (let ((__obj27091 + (let ((__obj27127 (let () (declare (not safe)) (##structure @@ -5574,40 +5574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'udp-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27127 'udp-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'udp-port '2 '#f '#f)) - (let ((__tmp27600 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27127 'udp-port '2 '#f '#f)) + (let ((__tmp27636 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27600 '3 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27636 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '#t '9 '#f '#f)) - (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) + (##unchecked-structure-set! __obj27127 '#t '9 '#f '#f)) + (let ((__tmp27637 |gerbil/core/mop~MOP-5[1]#_g27638_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27601 '12 '#f '#f)) - (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) + (##unchecked-structure-set! __obj27127 __tmp27637 '12 '#f '#f)) + (let ((__tmp27639 |gerbil/core/mop~MOP-5[1]#_g27640_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27603 '14 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27639 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '18 '#f '#f)) - __obj27091)) + (##unchecked-structure-set! __obj27127 '() '18 '#f '#f)) + __obj27127)) (define |gerbil/core/mop~MOP-5[:0:]#:directory-port| - (let ((__obj27092 + (let ((__obj27128 (let () (declare (not safe)) (##structure @@ -5636,44 +5636,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27092 + __obj27128 'directory-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 'directory-port '2 '#f '#f)) - (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27128 'directory-port '2 '#f '#f)) + (let ((__tmp27641 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27605 '3 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27641 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27128 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '#t '9 '#f '#f)) - (let ((__tmp27606 |gerbil/core/mop~MOP-5[1]#_g27607_|)) + (##unchecked-structure-set! __obj27128 '#t '9 '#f '#f)) + (let ((__tmp27642 |gerbil/core/mop~MOP-5[1]#_g27643_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27606 '12 '#f '#f)) - (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|)) + (##unchecked-structure-set! __obj27128 __tmp27642 '12 '#f '#f)) + (let ((__tmp27644 |gerbil/core/mop~MOP-5[1]#_g27645_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27608 '14 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27644 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27128 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27128 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27128 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '18 '#f '#f)) - __obj27092)) + (##unchecked-structure-set! __obj27128 '() '18 '#f '#f)) + __obj27128)) (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port| - (let ((__obj27093 + (let ((__obj27129 (let () (declare (not safe)) (##structure @@ -5702,44 +5702,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27093 + __obj27129 'event-queue-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 'event-queue-port '2 '#f '#f)) - (let ((__tmp27610 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27129 'event-queue-port '2 '#f '#f)) + (let ((__tmp27646 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27610 '3 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27646 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '#t '9 '#f '#f)) - (let ((__tmp27611 |gerbil/core/mop~MOP-5[1]#_g27612_|)) + (##unchecked-structure-set! __obj27129 '#t '9 '#f '#f)) + (let ((__tmp27647 |gerbil/core/mop~MOP-5[1]#_g27648_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27611 '12 '#f '#f)) - (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|)) + (##unchecked-structure-set! __obj27129 __tmp27647 '12 '#f '#f)) + (let ((__tmp27649 |gerbil/core/mop~MOP-5[1]#_g27650_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27613 '14 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27649 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '18 '#f '#f)) - __obj27093)) + (##unchecked-structure-set! __obj27129 '() '18 '#f '#f)) + __obj27129)) (define |gerbil/core/mop~MOP-5[:0:]#:table| - (let ((__obj27094 + (let ((__obj27130 (let () (declare (not safe)) (##structure @@ -5767,40 +5767,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'table::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27130 'table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'table '2 '#f '#f)) - (let ((__tmp27615 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27130 'table '2 '#f '#f)) + (let ((__tmp27651 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27615 '3 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27651 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '#t '9 '#f '#f)) - (let ((__tmp27616 |gerbil/core/mop~MOP-5[1]#_g27617_|)) + (##unchecked-structure-set! __obj27130 '#t '9 '#f '#f)) + (let ((__tmp27652 |gerbil/core/mop~MOP-5[1]#_g27653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27616 '12 '#f '#f)) - (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|)) + (##unchecked-structure-set! __obj27130 __tmp27652 '12 '#f '#f)) + (let ((__tmp27654 |gerbil/core/mop~MOP-5[1]#_g27655_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27618 '14 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27654 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '18 '#f '#f)) - __obj27094)) + (##unchecked-structure-set! __obj27130 '() '18 '#f '#f)) + __obj27130)) (define |gerbil/core/mop~MOP-5[:0:]#:readenv| - (let ((__obj27095 + (let ((__obj27131 (let () (declare (not safe)) (##structure @@ -5828,40 +5828,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 'readenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27131 'readenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 'readenv '2 '#f '#f)) - (let ((__tmp27620 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27131 'readenv '2 '#f '#f)) + (let ((__tmp27656 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27620 '3 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27656 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '#t '9 '#f '#f)) - (let ((__tmp27621 |gerbil/core/mop~MOP-5[1]#_g27622_|)) + (##unchecked-structure-set! __obj27131 '#t '9 '#f '#f)) + (let ((__tmp27657 |gerbil/core/mop~MOP-5[1]#_g27658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27621 '12 '#f '#f)) - (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|)) + (##unchecked-structure-set! __obj27131 __tmp27657 '12 '#f '#f)) + (let ((__tmp27659 |gerbil/core/mop~MOP-5[1]#_g27660_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27623 '14 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27659 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '18 '#f '#f)) - __obj27095)) + (##unchecked-structure-set! __obj27131 '() '18 '#f '#f)) + __obj27131)) (define |gerbil/core/mop~MOP-5[:0:]#:writeenv| - (let ((__obj27096 + (let ((__obj27132 (let () (declare (not safe)) (##structure @@ -5889,40 +5889,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 'writeenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27132 'writeenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 'writeenv '2 '#f '#f)) - (let ((__tmp27625 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27132 'writeenv '2 '#f '#f)) + (let ((__tmp27661 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27625 '3 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27661 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '#t '9 '#f '#f)) - (let ((__tmp27626 |gerbil/core/mop~MOP-5[1]#_g27627_|)) + (##unchecked-structure-set! __obj27132 '#t '9 '#f '#f)) + (let ((__tmp27662 |gerbil/core/mop~MOP-5[1]#_g27663_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27626 '12 '#f '#f)) - (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|)) + (##unchecked-structure-set! __obj27132 __tmp27662 '12 '#f '#f)) + (let ((__tmp27664 |gerbil/core/mop~MOP-5[1]#_g27665_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27628 '14 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27664 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '18 '#f '#f)) - __obj27096)) + (##unchecked-structure-set! __obj27132 '() '18 '#f '#f)) + __obj27132)) (define |gerbil/core/mop~MOP-5[:0:]#:readtable| - (let ((__obj27097 + (let ((__obj27133 (let () (declare (not safe)) (##structure @@ -5950,40 +5950,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 'readtable::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27133 'readtable::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 'readtable '2 '#f '#f)) - (let ((__tmp27630 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27133 'readtable '2 '#f '#f)) + (let ((__tmp27666 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27630 '3 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27666 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '#t '9 '#f '#f)) - (let ((__tmp27631 |gerbil/core/mop~MOP-5[1]#_g27632_|)) + (##unchecked-structure-set! __obj27133 '#t '9 '#f '#f)) + (let ((__tmp27667 |gerbil/core/mop~MOP-5[1]#_g27668_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27631 '12 '#f '#f)) - (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|)) + (##unchecked-structure-set! __obj27133 __tmp27667 '12 '#f '#f)) + (let ((__tmp27669 |gerbil/core/mop~MOP-5[1]#_g27670_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27633 '14 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27669 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '18 '#f '#f)) - __obj27097)) + (##unchecked-structure-set! __obj27133 '() '18 '#f '#f)) + __obj27133)) (define |gerbil/core/mop~MOP-5[:0:]#:processor| - (let ((__obj27098 + (let ((__obj27134 (let () (declare (not safe)) (##structure @@ -6011,40 +6011,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 'processor::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27134 'processor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 'processor '2 '#f '#f)) - (let ((__tmp27635 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27134 'processor '2 '#f '#f)) + (let ((__tmp27671 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27635 '3 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27671 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '#t '9 '#f '#f)) - (let ((__tmp27636 |gerbil/core/mop~MOP-5[1]#_g27637_|)) + (##unchecked-structure-set! __obj27134 '#t '9 '#f '#f)) + (let ((__tmp27672 |gerbil/core/mop~MOP-5[1]#_g27673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27636 '12 '#f '#f)) - (let ((__tmp27638 |gerbil/core/mop~MOP-5[1]#_g27639_|)) + (##unchecked-structure-set! __obj27134 __tmp27672 '12 '#f '#f)) + (let ((__tmp27674 |gerbil/core/mop~MOP-5[1]#_g27675_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27638 '14 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27674 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '18 '#f '#f)) - __obj27098)) + (##unchecked-structure-set! __obj27134 '() '18 '#f '#f)) + __obj27134)) (define |gerbil/core/mop~MOP-5[:0:]#:vm| - (let ((__obj27099 + (let ((__obj27135 (let () (declare (not safe)) (##structure @@ -6072,40 +6072,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 'vm::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27135 'vm::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 'vm '2 '#f '#f)) - (let ((__tmp27640 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27135 'vm '2 '#f '#f)) + (let ((__tmp27676 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27640 '3 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27676 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '#t '9 '#f '#f)) - (let ((__tmp27641 |gerbil/core/mop~MOP-5[1]#_g27642_|)) + (##unchecked-structure-set! __obj27135 '#t '9 '#f '#f)) + (let ((__tmp27677 |gerbil/core/mop~MOP-5[1]#_g27678_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27641 '12 '#f '#f)) - (let ((__tmp27643 |gerbil/core/mop~MOP-5[1]#_g27644_|)) + (##unchecked-structure-set! __obj27135 __tmp27677 '12 '#f '#f)) + (let ((__tmp27679 |gerbil/core/mop~MOP-5[1]#_g27680_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27643 '14 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27679 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '18 '#f '#f)) - __obj27099)) + (##unchecked-structure-set! __obj27135 '() '18 '#f '#f)) + __obj27135)) (define |gerbil/core/mop~MOP-5[:0:]#:file-info| - (let ((__obj27100 + (let ((__obj27136 (let () (declare (not safe)) (##structure @@ -6133,40 +6133,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 'file-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27136 'file-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 'file-info '2 '#f '#f)) - (let ((__tmp27645 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27136 'file-info '2 '#f '#f)) + (let ((__tmp27681 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27645 '3 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27681 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '#t '9 '#f '#f)) - (let ((__tmp27646 |gerbil/core/mop~MOP-5[1]#_g27647_|)) + (##unchecked-structure-set! __obj27136 '#t '9 '#f '#f)) + (let ((__tmp27682 |gerbil/core/mop~MOP-5[1]#_g27683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27646 '12 '#f '#f)) - (let ((__tmp27648 |gerbil/core/mop~MOP-5[1]#_g27649_|)) + (##unchecked-structure-set! __obj27136 __tmp27682 '12 '#f '#f)) + (let ((__tmp27684 |gerbil/core/mop~MOP-5[1]#_g27685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27648 '14 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27684 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '18 '#f '#f)) - __obj27100)) + (##unchecked-structure-set! __obj27136 '() '18 '#f '#f)) + __obj27136)) (define |gerbil/core/mop~MOP-5[:0:]#:socket-info| - (let ((__obj27101 + (let ((__obj27137 (let () (declare (not safe)) (##structure @@ -6194,40 +6194,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 'socket-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27137 'socket-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 'socket-info '2 '#f '#f)) - (let ((__tmp27650 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27137 'socket-info '2 '#f '#f)) + (let ((__tmp27686 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27650 '3 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27686 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '#t '9 '#f '#f)) - (let ((__tmp27651 |gerbil/core/mop~MOP-5[1]#_g27652_|)) + (##unchecked-structure-set! __obj27137 '#t '9 '#f '#f)) + (let ((__tmp27687 |gerbil/core/mop~MOP-5[1]#_g27688_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27651 '12 '#f '#f)) - (let ((__tmp27653 |gerbil/core/mop~MOP-5[1]#_g27654_|)) + (##unchecked-structure-set! __obj27137 __tmp27687 '12 '#f '#f)) + (let ((__tmp27689 |gerbil/core/mop~MOP-5[1]#_g27690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27653 '14 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27689 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '18 '#f '#f)) - __obj27101)) + (##unchecked-structure-set! __obj27137 '() '18 '#f '#f)) + __obj27137)) (define |gerbil/core/mop~MOP-5[:0:]#:address-info| - (let ((__obj27102 + (let ((__obj27138 (let () (declare (not safe)) (##structure @@ -6255,35 +6255,35 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 'address-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27138 'address-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 'address-info '2 '#f '#f)) - (let ((__tmp27655 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27138 'address-info '2 '#f '#f)) + (let ((__tmp27691 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27655 '3 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27691 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '#t '9 '#f '#f)) - (let ((__tmp27656 |gerbil/core/mop~MOP-5[1]#_g27657_|)) + (##unchecked-structure-set! __obj27138 '#t '9 '#f '#f)) + (let ((__tmp27692 |gerbil/core/mop~MOP-5[1]#_g27693_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27656 '12 '#f '#f)) - (let ((__tmp27658 |gerbil/core/mop~MOP-5[1]#_g27659_|)) + (##unchecked-structure-set! __obj27138 __tmp27692 '12 '#f '#f)) + (let ((__tmp27694 |gerbil/core/mop~MOP-5[1]#_g27695_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27658 '14 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27694 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '18 '#f '#f)) - __obj27102)))) + (##unchecked-structure-set! __obj27138 '() '18 '#f '#f)) + __obj27138)))) diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index cf6f34e14..fbaa12503 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 1713631255) + (define gerbil/core/mop~MOP-2::timestamp 1733687548) (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 _%$args22546%_ + (lambda _%$args22582%_ (apply make-instance gerbil/core/mop~MOP-2#class-type-info::t - _%$args22546%_))) + _%$args22582%_))) (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 (_%self22457%_ _%stx22458%_) - (let* ((_%g2246022479%_ - (lambda (_%g2246122476%_) + (lambda (_%self22493%_ _%stx22494%_) + (let* ((_%g2249622515%_ + (lambda (_%g2249722512%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2246122476%_))) - (_%g2245922543%_ - (lambda (_%g2246122482%_) - (if (gx#stx-pair? _%g2246122482%_) - (let ((_%e2246322484%_ (gx#syntax-e _%g2246122482%_))) - (let ((_%hd2246422487%_ + _%g2249722512%_))) + (_%g2249522579%_ + (lambda (_%g2249722518%_) + (if (gx#stx-pair? _%g2249722518%_) + (let ((_%e2249922520%_ (gx#syntax-e _%g2249722518%_))) + (let ((_%hd2250022523%_ (let () (declare (not safe)) - (##car _%e2246322484%_))) - (_%tl2246522489%_ + (##car _%e2249922520%_))) + (_%tl2250122525%_ (let () (declare (not safe)) - (##cdr _%e2246322484%_)))) - (if (gx#stx-pair/null? _%tl2246522489%_) - (let ((_g27103_ + (##cdr _%e2249922520%_)))) + (if (gx#stx-pair/null? _%tl2250122525%_) + (let ((_g27139_ (gx#syntax-split-splice - _%tl2246522489%_ + _%tl2250122525%_ '0))) (begin - (let ((_g27104_ + (let ((_g27140_ (let () (declare (not safe)) - (if (##values? _g27103_) - (##vector-length _g27103_) + (if (##values? _g27139_) + (##vector-length _g27139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27104_ 2))) + (##fx= _g27140_ 2))) (error "Context expects 2 values" - _g27104_))) - (let ((_%target2246622492%_ + _g27140_))) + (let ((_%target2250222528%_ (let () (declare (not safe)) - (##vector-ref _g27103_ 0))) - (_%tl2246822494%_ + (##vector-ref _g27139_ 0))) + (_%tl2250422530%_ (let () (declare (not safe)) - (##vector-ref _g27103_ 1)))) - (if (gx#stx-null? _%tl2246822494%_) - (letrec ((_%loop2246922497%_ - (lambda (_%hd2246722500%_ - _%arg2247322502%_) + (##vector-ref _g27139_ 1)))) + (if (gx#stx-null? _%tl2250422530%_) + (letrec ((_%loop2250522533%_ + (lambda (_%hd2250322536%_ + _%arg2250922538%_) (if (gx#stx-pair? - _%hd2246722500%_) - (let ((_%e2247022505%_ + _%hd2250322536%_) + (let ((_%e2250622541%_ (gx#syntax-e - _%hd2246722500%_))) - (let ((_%lp-hd2247122508%_ + _%hd2250322536%_))) + (let ((_%lp-hd2250722544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2247022505%_))) - (_%lp-tl2247222510%_ + (let () (declare (not safe)) (##car _%e2250622541%_))) + (_%lp-tl2250822546%_ (let () (declare (not safe)) - (##cdr _%e2247022505%_)))) - (_%loop2246922497%_ - _%lp-tl2247222510%_ - (cons _%lp-hd2247122508%_ _%arg2247322502%_)))) - (let ((_%arg2247422513%_ (reverse _%arg2247322502%_))) - ((lambda (_%L22516%_) - (let ((_%$e22530%_ - (let ((__obj27022 _%self22457%_)) + (##cdr _%e2250622541%_)))) + (_%loop2250522533%_ + _%lp-tl2250822546%_ + (cons _%lp-hd2250722544%_ _%arg2250922538%_)))) + (let ((_%arg2251022549%_ (reverse _%arg2250922538%_))) + ((lambda (_%L22552%_) + (let ((_%$e22566%_ + (let ((__obj27058 _%self22493%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27022 + __obj27058 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27022 + __obj27058 '13 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27022 + __obj27058 'constructor))))) - (if _%$e22530%_ - ((lambda (_%make22533%_) - (cons _%make22533%_ - (foldr (lambda (_%g2253422537%_ - _%g2253522539%_) - (cons _%g2253422537%_ - _%g2253522539%_)) + (if _%$e22566%_ + ((lambda (_%make22569%_) + (cons _%make22569%_ + (foldr (lambda (_%g2257022573%_ + _%g2257122575%_) + (cons _%g2257022573%_ + _%g2257122575%_)) '() - _%L22516%_))) - _%$e22530%_) + _%L22552%_))) + _%$e22566%_) (gx#raise-syntax-error '#f '"no constructor defined for class" - _%stx22458%_ - _%self22457%_)))) - _%arg2247422513%_)))))) + _%stx22494%_ + _%self22493%_)))) + _%arg2251022549%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2246922497%_ - _%target2246622492%_ + (_%loop2250522533%_ + _%target2250222528%_ '())) - (_%g2246022479%_ _%g2246122482%_))))) - (_%g2246022479%_ _%g2246122482%_)))) - (_%g2246022479%_ _%g2246122482%_))))) - (_%g2245922543%_ _%stx22458%_)))) + (_%g2249622515%_ _%g2249722518%_))))) + (_%g2249622515%_ _%g2249722518%_)))) + (_%g2249622515%_ _%g2249722518%_))))) + (_%g2249522579%_ _%stx22494%_)))) (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 (_%stx22438%_ _%is?22439%_) - (if (gx#identifier? _%stx22438%_) - (let ((_%e2244022442%_ (gx#syntax-local-value _%stx22438%_ false))) - (if _%e2244022442%_ - (let ((_%e22445%_ _%e2244022442%_)) + (lambda (_%stx22474%_ _%is?22475%_) + (if (gx#identifier? _%stx22474%_) + (let ((_%e2247622478%_ (gx#syntax-local-value _%stx22474%_ false))) + (if _%e2247622478%_ + (let ((_%e22481%_ _%e2247622478%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%e22445%_)) - (_%is?22439%_ _%e22445%_) + _%e22481%_)) + (_%is?22475%_ _%e22481%_) '#f)) '#f)) '#f))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - (lambda (_%stx22450%_) - (let ((_%is?22452%_ true)) + (lambda (_%stx22486%_) + (let ((_%is?22488%_ true)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%stx22450%_ - _%is?22452%_)))) + _%stx22486%_ + _%is?22488%_)))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info? - (lambda _g27106_ - (let ((_g27105_ (let () (declare (not safe)) (##length _g27106_)))) - (cond ((let () (declare (not safe)) (##fx= _g27105_ 1)) + (lambda _g27142_ + (let ((_g27141_ (let () (declare (not safe)) (##length _g27142_)))) + (cond ((let () (declare (not safe)) (##fx= _g27141_ 1)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _g27106_)) - ((let () (declare (not safe)) (##fx= _g27105_ 2)) + _g27142_)) + ((let () (declare (not safe)) (##fx= _g27141_ 2)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _g27106_)) + _g27142_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _g27106_)))))))) + _g27142_)))))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~1.scm b/src/bootstrap/gerbil/core/more-sugar~1.scm index 79e728c66..823b99dcc 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 _%$args40290%_ + (lambda _%$args40326%_ (apply make-instance |gerbil/core/more-sugar[1]#setq-macro::t| - _%$args40290%_))) + _%$args40326%_))) (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 _%$args40286%_ + (lambda _%$args40322%_ (apply make-instance |gerbil/core/more-sugar[1]#setf-macro::t| - _%$args40286%_))) + _%$args40322%_))) (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 (_%stx40283%_) - (if (gx#identifier? _%stx40283%_) - (let ((__tmp41508 (gx#syntax-local-value _%stx40283%_ false))) + (lambda (_%stx40319%_) + (if (gx#identifier? _%stx40319%_) + (let ((__tmp41544 (gx#syntax-local-value _%stx40319%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setf-macro::t| - __tmp41508)) + __tmp41544)) '#f))) (define |gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - (lambda (_%stx40280%_) - (if (gx#identifier? _%stx40280%_) - (let ((__tmp41509 (gx#syntax-local-value _%stx40280%_ false))) + (lambda (_%stx40316%_) + (if (gx#identifier? _%stx40316%_) + (let ((__tmp41545 (gx#syntax-local-value _%stx40316%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setq-macro::t| - __tmp41509)) + __tmp41545)) '#f))) (define |gerbil/core/more-sugar[1]#expand-set!| - (lambda (_%stx39905%_) - (let* ((_%__stx4134741348%_ _%stx39905%_) - (_%g3991139974%_ + (lambda (_%stx39941%_) + (let* ((_%__stx4138341384%_ _%stx39941%_) + (_%g3994740010%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4134741348%_)))) - (let ((_%__kont4135041351%_ - (lambda (_%L40257%_ _%L40259%_) + _%__stx4138341384%_)))) + (let ((_%__kont4138641387%_ + (lambda (_%L40293%_ _%L40295%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40259%_) - _%stx39905%_))) - (_%__kont4135241353%_ - (lambda (_%L40146%_ _%L40148%_ _%L40149%_) - (let* ((_%g4017140179%_ - (lambda (_%g4017240175%_) + (gx#syntax-local-e _%L40295%_) + _%stx39941%_))) + (_%__kont4138841389%_ + (lambda (_%L40182%_ _%L40184%_ _%L40185%_) + (let* ((_%g4020740215%_ + (lambda (_%g4020840211%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4017240175%_))) - (_%g4017040206%_ - (lambda (_%g4017240183%_) - ((lambda (_%L40186%_) - (cons _%L40186%_ - (foldr (lambda (_%g4019740200%_ - _%g4019840203%_) - (cons _%g4019740200%_ - _%g4019840203%_)) - (cons _%L40146%_ '()) - _%L40148%_))) - _%g4017240183%_)))) - (_%g4017040206%_ - (gx#stx-identifier _%L40149%_ _%L40149%_ '"-set!"))))) - (_%__kont4135641357%_ - (lambda (_%L40056%_) + _%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%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40056%_) - _%stx39905%_))) - (_%__kont4135841359%_ - (lambda (_%L40011%_ _%L40013%_) + (gx#syntax-local-e _%L40092%_) + _%stx39941%_))) + (_%__kont4139441395%_ + (lambda (_%L40047%_ _%L40049%_) (cons (gx#datum->syntax '#f '%#set!) - (cons _%L40013%_ (cons _%L40011%_ '())))))) - (let* ((_%__match4144641447%_ - (lambda (_%e3996039981%_ - _%hd3996139985%_ - _%tl3996239988%_ - _%e3996339991%_ - _%hd3996439995%_ - _%tl3996539998%_ - _%e3996640001%_ - _%hd3996740005%_ - _%tl3996840008%_) - (let ((_%L40011%_ _%hd3996740005%_) - (_%L40013%_ _%hd3996439995%_)) - (if (gx#identifier? _%L40013%_) - (_%__kont4135841359%_ _%L40011%_ _%L40013%_) - (let () (declare (not safe)) (_%g3991139974%_)))))) - (_%__match4142641427%_ - (lambda (_%e3995240036%_ - _%hd3995340040%_ - _%tl3995440043%_ - _%e3995540046%_ - _%hd3995640050%_ - _%tl3995740053%_) - (let ((_%L40056%_ _%hd3995640050%_)) + (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%_)) (if (|gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - _%L40056%_) - (_%__kont4135641357%_ _%L40056%_) - (if (gx#stx-pair? _%tl3995740053%_) - (let ((_%e3996640001%_ - (gx#syntax-e _%tl3995740053%_))) - (let ((_%tl3996840008%_ + _%L40092%_) + (_%__kont4139241393%_ _%L40092%_) + (if (gx#stx-pair? _%tl3999340089%_) + (let ((_%e4000240037%_ + (gx#syntax-e _%tl3999340089%_))) + (let ((_%tl4000440044%_ (let () (declare (not safe)) - (##cdr _%e3996640001%_))) - (_%hd3996740005%_ + (##cdr _%e4000240037%_))) + (_%hd4000340041%_ (let () (declare (not safe)) - (##car _%e3996640001%_)))) - (if (gx#stx-null? _%tl3996840008%_) - (_%__match4144641447%_ - _%e3995240036%_ - _%hd3995340040%_ - _%tl3995440043%_ - _%e3995540046%_ - _%hd3995640050%_ - _%tl3995740053%_ - _%e3996640001%_ - _%hd3996740005%_ - _%tl3996840008%_) + (##car _%e4000240037%_)))) + (if (gx#stx-null? _%tl4000440044%_) + (_%__match4148241483%_ + _%e3998840072%_ + _%hd3998940076%_ + _%tl3999040079%_ + _%e3999140082%_ + _%hd3999240086%_ + _%tl3999340089%_ + _%e4000240037%_ + _%hd4000340041%_ + _%tl4000440044%_) (let () (declare (not safe)) - (_%g3991139974%_))))) + (_%g3994740010%_))))) (let () (declare (not safe)) - (_%g3991139974%_))))))) - (_%__match4141441415%_ - (lambda (_%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_ - _%e3993640096%_ - _%hd3993740100%_ - _%tl3993840103%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (letrec ((_%loop3994240112%_ - (lambda (_%hd3994040116%_ _%arg3994640119%_) - (if (gx#stx-pair? _%hd3994040116%_) - (let ((_%e3994340122%_ - (gx#syntax-e _%hd3994040116%_))) - (let ((_%lp-tl3994540129%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e3994340122%_))) - (_%lp-hd3994440126%_ + (##cdr _%e3997940158%_))) + (_%lp-hd3998040162%_ (let () (declare (not safe)) - (##car _%e3994340122%_)))) - (_%loop3994240112%_ - _%lp-tl3994540129%_ - (cons _%lp-hd3994440126%_ - _%arg3994640119%_)))) - (let ((_%arg3994740132%_ - (reverse _%arg3994640119%_))) - (if (gx#stx-pair? _%tl3993540093%_) - (let ((_%e3994840136%_ + (##car _%e3997940158%_)))) + (_%loop3997840148%_ + _%lp-tl3998140165%_ + (cons _%lp-hd3998040162%_ + _%arg3998240155%_)))) + (let ((_%arg3998340168%_ + (reverse _%arg3998240155%_))) + (if (gx#stx-pair? _%tl3997140129%_) + (let ((_%e3998440172%_ (gx#syntax-e - _%tl3993540093%_))) - (let ((_%tl3995040143%_ + _%tl3997140129%_))) + (let ((_%tl3998640179%_ (let () (declare (not safe)) - (##cdr _%e3994840136%_))) - (_%hd3994940140%_ + (##cdr _%e3998440172%_))) + (_%hd3998540176%_ (let () (declare (not safe)) - (##car _%e3994840136%_)))) + (##car _%e3998440172%_)))) (if (gx#stx-null? - _%tl3995040143%_) - (let ((_%L40146%_ - _%hd3994940140%_) - (_%L40148%_ - _%arg3994740132%_) - (_%L40149%_ - _%hd3993740100%_)) + _%tl3998640179%_) + (let ((_%L40182%_ + _%hd3998540176%_) + (_%L40184%_ + _%arg3998340168%_) + (_%L40185%_ + _%hd3997340136%_)) (if (gx#identifier? - _%L40149%_) - (_%__kont4135241353%_ - _%L40146%_ - _%L40148%_ - _%L40149%_) - (_%__match4142641427%_ - _%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_))) - (_%__match4142641427%_ - _%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_)))) - (_%__match4142641427%_ - _%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_))))))) - (_%loop3994240112%_ _%target3993940106%_ '()))))) - (if (gx#stx-pair? _%__stx4134741348%_) - (let ((_%e3991540217%_ (gx#syntax-e _%__stx4134741348%_))) - (let ((_%tl3991740224%_ - (let () (declare (not safe)) (##cdr _%e3991540217%_))) - (_%hd3991640221%_ + _%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%_ (let () (declare (not safe)) - (##car _%e3991540217%_)))) - (if (gx#stx-pair? _%tl3991740224%_) - (let ((_%e3991840227%_ (gx#syntax-e _%tl3991740224%_))) - (let ((_%tl3992040234%_ + (##car _%e3995140253%_)))) + (if (gx#stx-pair? _%tl3995340260%_) + (let ((_%e3995440263%_ (gx#syntax-e _%tl3995340260%_))) + (let ((_%tl3995640270%_ (let () (declare (not safe)) - (##cdr _%e3991840227%_))) - (_%hd3991940231%_ + (##cdr _%e3995440263%_))) + (_%hd3995540267%_ (let () (declare (not safe)) - (##car _%e3991840227%_)))) - (if (gx#stx-pair? _%hd3991940231%_) - (let ((_%e3992140237%_ - (gx#syntax-e _%hd3991940231%_))) - (let ((_%tl3992340244%_ + (##car _%e3995440263%_)))) + (if (gx#stx-pair? _%hd3995540267%_) + (let ((_%e3995740273%_ + (gx#syntax-e _%hd3995540267%_))) + (let ((_%tl3995940280%_ (let () (declare (not safe)) - (##cdr _%e3992140237%_))) - (_%hd3992240241%_ + (##cdr _%e3995740273%_))) + (_%hd3995840277%_ (let () (declare (not safe)) - (##car _%e3992140237%_)))) - (if (gx#stx-pair? _%tl3992040234%_) - (let ((_%e3992440247%_ - (gx#syntax-e _%tl3992040234%_))) - (let ((_%tl3992640254%_ + (##car _%e3995740273%_)))) + (if (gx#stx-pair? _%tl3995640270%_) + (let ((_%e3996040283%_ + (gx#syntax-e _%tl3995640270%_))) + (let ((_%tl3996240290%_ (let () (declare (not safe)) - (##cdr _%e3992440247%_))) - (_%hd3992540251%_ + (##cdr _%e3996040283%_))) + (_%hd3996140287%_ (let () (declare (not safe)) - (##car _%e3992440247%_)))) - (if (gx#stx-null? _%tl3992640254%_) + (##car _%e3996040283%_)))) + (if (gx#stx-null? _%tl3996240290%_) (if (|gerbil/core/more-sugar[1]#syntax-local-setf-macro?| (gx#datum->syntax '#f 'setfid)) - (let ((_%L40257%_ - _%hd3992540251%_) - (_%L40259%_ - _%hd3992240241%_)) - (_%__kont4135041351%_ - _%L40257%_ - _%L40259%_)) + (let ((_%L40293%_ + _%hd3996140287%_) + (_%L40295%_ + _%hd3995840277%_)) + (_%__kont4138641387%_ + _%L40293%_ + _%L40295%_)) (if (gx#stx-pair/null? - _%tl3992340244%_) - (let ((_%__splice4135441355%_ + _%tl3995940280%_) + (let ((_%__splice4139041391%_ (gx#syntax-split-splice - _%tl3992340244%_ + _%tl3995940280%_ '0))) - (let ((_%tl3994140109%_ + (let ((_%tl3997740145%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice4135441355%_ '1))) - (_%target3993940106%_ + (##vector-ref _%__splice4139041391%_ '1))) + (_%target3997540142%_ (let () (declare (not safe)) - (##vector-ref _%__splice4135441355%_ '0)))) - (if (gx#stx-null? _%tl3994140109%_) - (_%__match4141441415%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_ - _%e3992140237%_ - _%hd3992240241%_ - _%tl3992340244%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl3992340244%_) - (let ((_%__splice4135441355%_ + _%tl3995940280%_) + (let ((_%__splice4139041391%_ (gx#syntax-split-splice - _%tl3992340244%_ + _%tl3995940280%_ '0))) - (let ((_%tl3994140109%_ + (let ((_%tl3997740145%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4135441355%_ '1))) - (_%target3993940106%_ + (##vector-ref _%__splice4139041391%_ '1))) + (_%target3997540142%_ (let () (declare (not safe)) - (##vector-ref _%__splice4135441355%_ '0)))) - (if (gx#stx-null? _%tl3994140109%_) - (_%__match4141441415%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_ - _%e3992140237%_ - _%hd3992240241%_ - _%tl3992340244%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_))))) + (_%__match4146241463%_ + _%e3995140253%_ + _%hd3995240257%_ + _%tl3995340260%_ + _%e3995440263%_ + _%hd3995540267%_ + _%tl3995640270%_))))) (if (gx#stx-pair/null? - _%tl3992340244%_) - (let ((_%__splice4135441355%_ + _%tl3995940280%_) + (let ((_%__splice4139041391%_ (gx#syntax-split-splice - _%tl3992340244%_ + _%tl3995940280%_ '0))) - (let ((_%tl3994140109%_ + (let ((_%tl3997740145%_ (let () (declare (not safe)) (##vector-ref - _%__splice4135441355%_ + _%__splice4139041391%_ '1))) - (_%target3993940106%_ + (_%target3997540142%_ (let () (declare (not safe)) (##vector-ref - _%__splice4135441355%_ + _%__splice4139041391%_ '0)))) (if (gx#stx-null? - _%tl3994140109%_) - (_%__match4141441415%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_ - _%e3992140237%_ - _%hd3992240241%_ - _%tl3992340244%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_))))) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) - (let () (declare (not safe)) (_%g3991139974%_))))) - (let () (declare (not safe)) (_%g3991139974%_)))))))) + _%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%_)))))))) (define |gerbil/core/more-sugar[:0:]#set!| - (lambda (_%stx40295%_) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx40295%_))) + (lambda (_%stx40331%_) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx40331%_))) (define |gerbil/core/more-sugar[:0:]#values-set!| - (lambda (_%stx40298%_) - (let* ((_%g4030140325%_ - (lambda (_%g4030240321%_) + (lambda (_%stx40334%_) + (let* ((_%g4033740361%_ + (lambda (_%g4033840357%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4030240321%_))) - (_%g4030040503%_ - (lambda (_%g4030240329%_) - (if (gx#stx-pair? _%g4030240329%_) - (let ((_%e4030540332%_ (gx#syntax-e _%g4030240329%_))) - (let ((_%hd4030640336%_ + _%g4033840357%_))) + (_%g4033640539%_ + (lambda (_%g4033840365%_) + (if (gx#stx-pair? _%g4033840365%_) + (let ((_%e4034140368%_ (gx#syntax-e _%g4033840365%_))) + (let ((_%hd4034240372%_ (let () (declare (not safe)) - (##car _%e4030540332%_))) - (_%tl4030740339%_ + (##car _%e4034140368%_))) + (_%tl4034340375%_ (let () (declare (not safe)) - (##cdr _%e4030540332%_)))) - (if (gx#stx-pair/null? _%tl4030740339%_) - (if (let ((__tmp41510 - (gx#stx-length _%tl4030740339%_))) + (##cdr _%e4034140368%_)))) + (if (gx#stx-pair/null? _%tl4034340375%_) + (if (let ((__tmp41546 + (gx#stx-length _%tl4034340375%_))) (declare (not safe)) - (##fx>= __tmp41510 '1)) - (let ((_g41511_ + (##fx>= __tmp41546 '1)) + (let ((_g41547_ (gx#syntax-split-splice - _%tl4030740339%_ + _%tl4034340375%_ '1))) (begin - (let ((_g41512_ + (let ((_g41548_ (let () (declare (not safe)) - (if (##values? _g41511_) - (##vector-length _g41511_) + (if (##values? _g41547_) + (##vector-length _g41547_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41512_ 2))) + (##fx= _g41548_ 2))) (error "Context expects 2 values" - _g41512_))) - (let ((_%target4030840342%_ + _g41548_))) + (let ((_%target4034440378%_ (let () (declare (not safe)) - (##vector-ref _g41511_ 0))) - (_%tl4031040345%_ + (##vector-ref _g41547_ 0))) + (_%tl4034640381%_ (let () (declare (not safe)) - (##vector-ref _g41511_ 1)))) - (if (gx#stx-pair? _%tl4031040345%_) - (let ((_%e4031740348%_ + (##vector-ref _g41547_ 1)))) + (if (gx#stx-pair? _%tl4034640381%_) + (let ((_%e4035340384%_ (gx#syntax-e - _%tl4031040345%_))) - (let ((_%hd4031840352%_ + _%tl4034640381%_))) + (let ((_%hd4035440388%_ (let () (declare (not safe)) - (##car _%e4031740348%_))) - (_%tl4031940355%_ + (##car _%e4035340384%_))) + (_%tl4035540391%_ (let () (declare (not safe)) - (##cdr _%e4031740348%_)))) + (##cdr _%e4035340384%_)))) (if (gx#stx-null? - _%tl4031940355%_) - (letrec ((_%loop4031140358%_ - (lambda (_%hd4030940362%_ + _%tl4035540391%_) + (letrec ((_%loop4034740394%_ + (lambda (_%hd4034540398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tgt4031540365%_) - (if (gx#stx-pair? _%hd4030940362%_) - (let ((_%e4031240368%_ - (gx#syntax-e _%hd4030940362%_))) - (let ((_%lp-hd4031340372%_ + _%tgt4035140401%_) + (if (gx#stx-pair? _%hd4034540398%_) + (let ((_%e4034840404%_ + (gx#syntax-e _%hd4034540398%_))) + (let ((_%lp-hd4034940408%_ (let () (declare (not safe)) - (##car _%e4031240368%_))) - (_%lp-tl4031440375%_ + (##car _%e4034840404%_))) + (_%lp-tl4035040411%_ (let () (declare (not safe)) - (##cdr _%e4031240368%_)))) - (_%loop4031140358%_ - _%lp-tl4031440375%_ - (cons _%lp-hd4031340372%_ _%tgt4031540365%_)))) - (let ((_%tgt4031640378%_ - (reverse _%tgt4031540365%_))) - ((lambda (_%L40382%_ _%L40384%_) - (let* ((_%g4040240419%_ - (lambda (_%g4040340415%_) + (##cdr _%e4034840404%_)))) + (_%loop4034740394%_ + _%lp-tl4035040411%_ + (cons _%lp-hd4034940408%_ _%tgt4035140401%_)))) + (let ((_%tgt4035240414%_ + (reverse _%tgt4035140401%_))) + ((lambda (_%L40418%_ _%L40420%_) + (let* ((_%g4043840455%_ + (lambda (_%g4043940451%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4040340415%_))) - (_%g4040140491%_ - (lambda (_%g4040340423%_) + _%g4043940451%_))) + (_%g4043740527%_ + (lambda (_%g4043940459%_) (if (gx#stx-pair/null? - _%g4040340423%_) - (let ((_g41513_ + _%g4043940459%_) + (let ((_g41549_ (gx#syntax-split-splice - _%g4040340423%_ + _%g4043940459%_ '0))) (begin - (let ((_g41514_ + (let ((_g41550_ (let () (declare (not safe)) (if (##values? - _g41513_) + _g41549_) (##vector-length - _g41513_) + _g41549_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41514_ + (##fx= _g41550_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41514_))) + (error "Context expects 2 values" _g41550_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4040540426%_ + (let ((_%target4044140462%_ (let () (declare (not safe)) (##vector-ref - _g41513_ + _g41549_ 0))) - (_%tl4040740429%_ + (_%tl4044340465%_ (let () (declare (not safe)) (##vector-ref - _g41513_ + _g41549_ 1)))) (if (gx#stx-null? - _%tl4040740429%_) - (letrec ((_%loop4040840432%_ + _%tl4044340465%_) + (letrec ((_%loop4044440468%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4040640436%_ _%$e4041240439%_) - (if (gx#stx-pair? _%hd4040640436%_) - (let ((_%e4040940442%_ - (gx#syntax-e _%hd4040640436%_))) - (let ((_%lp-hd4041040446%_ + (lambda (_%hd4044240472%_ _%$e4044840475%_) + (if (gx#stx-pair? _%hd4044240472%_) + (let ((_%e4044540478%_ + (gx#syntax-e _%hd4044240472%_))) + (let ((_%lp-hd4044640482%_ (let () (declare (not safe)) - (##car _%e4040940442%_))) - (_%lp-tl4041140449%_ + (##car _%e4044540478%_))) + (_%lp-tl4044740485%_ (let () (declare (not safe)) - (##cdr _%e4040940442%_)))) - (_%loop4040840432%_ - _%lp-tl4041140449%_ - (cons _%lp-hd4041040446%_ - _%$e4041240439%_)))) - (let ((_%$e4041340452%_ - (reverse _%$e4041240439%_))) - ((lambda (_%L40456%_) + (##cdr _%e4044540478%_)))) + (_%loop4044440468%_ + _%lp-tl4044740485%_ + (cons _%lp-hd4044640482%_ + _%$e4044840475%_)))) + (let ((_%$e4044940488%_ + (reverse _%$e4044840475%_))) + ((lambda (_%L40492%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_%g4047440477%_ + (cons (cons (cons (foldr (lambda (_%g4051040513%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4047540480%_) - (cons _%g4047440477%_ _%g4047540480%_)) + _%g4051140516%_) + (cons _%g4051040513%_ _%g4051140516%_)) '() - _%L40456%_) - (cons _%L40382%_ '())) + _%L40492%_) + (cons _%L40418%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L40456%_ - _%L40384%_) - (foldr (lambda (_%g4047140483%_ + _%L40492%_ + _%L40420%_) + (foldr (lambda (_%g4050740519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4047240486%_ - _%g4047340488%_) + _%g4050840522%_ + _%g4050940524%_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%g4047240486%_ - (cons _%g4047140483%_ '()))) - _%g4047340488%_)) + (cons _%g4050840522%_ + (cons _%g4050740519%_ '()))) + _%g4050940524%_)) '() - _%L40456%_ - _%L40384%_))))) + _%L40492%_ + _%L40420%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e4041340452%_)))))) - (_%loop4040840432%_ _%target4040540426%_ '())) - (_%g4040240419%_ _%g4040340423%_))))) + _%$e4044940488%_)))))) + (_%loop4044440468%_ _%target4044140462%_ '())) + (_%g4043840455%_ _%g4043940459%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4040240419%_ - _%g4040340423%_))))) - (_%g4040140491%_ + (_%g4043840455%_ + _%g4043940459%_))))) + (_%g4043740527%_ (gx#gentemps - (foldr (lambda (_%g4049440497%_ - _%g4049540500%_) - (cons _%g4049440497%_ - _%g4049540500%_)) + (foldr (lambda (_%g4053040533%_ + _%g4053140536%_) + (cons _%g4053040533%_ + _%g4053140536%_)) '() - _%L40384%_))))) - _%hd4031840352%_ - _%tgt4031640378%_)))))) + _%L40420%_))))) + _%hd4035440388%_ + _%tgt4035240414%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4031140358%_ - _%target4030840342%_ + (_%loop4034740394%_ + _%target4034440378%_ '())) - (_%g4030140325%_ - _%g4030240329%_)))) - (_%g4030140325%_ _%g4030240329%_))))) - (_%g4030140325%_ _%g4030240329%_)) - (_%g4030140325%_ _%g4030240329%_)))) - (_%g4030140325%_ _%g4030240329%_))))) - (_%g4030040503%_ _%stx40298%_)))) + (_%g4033740361%_ + _%g4033840365%_)))) + (_%g4033740361%_ _%g4033840365%_))))) + (_%g4033740361%_ _%g4033840365%_)) + (_%g4033740361%_ _%g4033840365%_)))) + (_%g4033740361%_ _%g4033840365%_))))) + (_%g4033640539%_ _%stx40334%_)))) (define |gerbil/core/more-sugar[:0:]#parameterize| - (lambda (_%stx40509%_) - (let* ((_%__stx4144941450%_ _%stx40509%_) - (_%g4051340571%_ + (lambda (_%stx40545%_) + (let* ((_%__stx4148541486%_ _%stx40545%_) + (_%g4054940607%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4144941450%_)))) - (let ((_%__kont4145241453%_ - (lambda (_%L40905%_) + _%__stx4148541486%_)))) + (let ((_%__kont4148841489%_ + (lambda (_%L40941%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4092140924%_ _%g4092240927%_) - (cons _%g4092140924%_ _%g4092240927%_)) + (foldr (lambda (_%g4095740960%_ _%g4095840963%_) + (cons _%g4095740960%_ _%g4095840963%_)) '() - _%L40905%_))))) - (_%__kont4145641457%_ - (lambda (_%L40682%_ _%L40684%_ _%L40685%_) - (let* ((_%g4070840716%_ - (lambda (_%g4070940712%_) + _%L40941%_))))) + (_%__kont4149241493%_ + (lambda (_%L40718%_ _%L40720%_ _%L40721%_) + (let* ((_%g4074440752%_ + (lambda (_%g4074540748%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4070940712%_))) - (_%g4070740836%_ - (lambda (_%g4070940720%_) - ((lambda (_%L40723%_) - (let* ((_%g4073540752%_ - (lambda (_%g4073640748%_) + _%g4074540748%_))) + (_%g4074340872%_ + (lambda (_%g4074540756%_) + ((lambda (_%L40759%_) + (let* ((_%g4077140788%_ + (lambda (_%g4077240784%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4073640748%_))) - (_%g4073440816%_ - (lambda (_%g4073640756%_) - (if (gx#stx-pair/null? _%g4073640756%_) - (let ((_g41515_ + _%g4077240784%_))) + (_%g4077040852%_ + (lambda (_%g4077240792%_) + (if (gx#stx-pair/null? _%g4077240792%_) + (let ((_g41551_ (gx#syntax-split-splice - _%g4073640756%_ + _%g4077240792%_ '0))) (begin - (let ((_g41516_ + (let ((_g41552_ (let () (declare (not safe)) (if (##values? - _g41515_) + _g41551_) (##vector-length - _g41515_) + _g41551_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41516_ + (##fx= _g41552_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41516_))) + (error "Context expects 2 values" _g41552_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4073840759%_ + (let ((_%target4077440795%_ (let () (declare (not safe)) (##vector-ref - _g41515_ + _g41551_ 0))) - (_%tl4074040762%_ + (_%tl4077640798%_ (let () (declare (not safe)) (##vector-ref - _g41515_ + _g41551_ 1)))) (if (gx#stx-null? - _%tl4074040762%_) - (letrec ((_%loop4074140765%_ - (lambda (_%hd4073940769%_ + _%tl4077640798%_) + (letrec ((_%loop4077740801%_ + (lambda (_%hd4077540805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg4074540772%_) - (if (gx#stx-pair? _%hd4073940769%_) - (let ((_%e4074240775%_ - (gx#syntax-e _%hd4073940769%_))) - (let ((_%lp-hd4074340779%_ + _%arg4078140808%_) + (if (gx#stx-pair? _%hd4077540805%_) + (let ((_%e4077840811%_ + (gx#syntax-e _%hd4077540805%_))) + (let ((_%lp-hd4077940815%_ (let () (declare (not safe)) - (##car _%e4074240775%_))) - (_%lp-tl4074440782%_ + (##car _%e4077840811%_))) + (_%lp-tl4078040818%_ (let () (declare (not safe)) - (##cdr _%e4074240775%_)))) - (_%loop4074140765%_ - _%lp-tl4074440782%_ - (cons _%lp-hd4074340779%_ - _%arg4074540772%_)))) - (let ((_%arg4074640785%_ - (reverse _%arg4074540772%_))) - ((lambda (_%L40789%_) + (##cdr _%e4077840811%_)))) + (_%loop4077740801%_ + _%lp-tl4078040818%_ + (cons _%lp-hd4077940815%_ + _%arg4078140808%_)))) + (let ((_%arg4078240821%_ + (reverse _%arg4078140808%_))) + ((lambda (_%L40825%_) (cons (gx#datum->syntax '#f 'call-with-parameters) - (cons _%L40723%_ - (foldr (lambda (_%g4080740810%_ - _%g4080840813%_) - (cons _%g4080740810%_ - _%g4080840813%_)) + (cons _%L40759%_ + (foldr (lambda (_%g4084340846%_ + _%g4084440849%_) + (cons _%g4084340846%_ + _%g4084440849%_)) '() - _%L40789%_)))) - _%arg4074640785%_)))))) - (_%loop4074140765%_ _%target4073840759%_ '())) - (_%g4073540752%_ _%g4073640756%_))))) + _%L40825%_)))) + _%arg4078240821%_)))))) + (_%loop4077740801%_ _%target4077440795%_ '())) + (_%g4077140788%_ _%g4077240792%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4073540752%_ - _%g4073640756%_))))) - (_%g4073440816%_ + (_%g4077140788%_ + _%g4077240792%_))))) + (_%g4077040852%_ (foldr cons* '() (gx#syntax->list - (foldr (lambda (_%g4081940822%_ - _%g4082040825%_) - (cons _%g4081940822%_ - _%g4082040825%_)) + (foldr (lambda (_%g4085540858%_ + _%g4085640861%_) + (cons _%g4085540858%_ + _%g4085640861%_)) '() - _%L40685%_)) + _%L40721%_)) (gx#syntax->list - (foldr (lambda (_%g4082740830%_ - _%g4082840833%_) - (cons _%g4082740830%_ - _%g4082840833%_)) + (foldr (lambda (_%g4086340866%_ + _%g4086440869%_) + (cons _%g4086340866%_ + _%g4086440869%_)) '() - _%L40684%_)))))) - _%g4070940720%_)))) - (_%g4070740836%_ + _%L40720%_)))))) + _%g4074540756%_)))) + (_%g4074340872%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_%g4083940842%_ - _%g4084040845%_) - (cons _%g4083940842%_ - _%g4084040845%_)) + (foldr (lambda (_%g4087540878%_ + _%g4087640881%_) + (cons _%g4087540878%_ + _%g4087640881%_)) '() - _%L40682%_))) - (gx#stx-source _%stx40509%_))))))) - (let* ((_%__match4150441505%_ - (lambda (_%e4053440578%_ - _%hd4053540582%_ - _%tl4053640585%_ - _%e4053740588%_ - _%hd4053840592%_ - _%tl4053940595%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) - (letrec ((_%loop4054340604%_ - (lambda (_%hd4054140608%_ - _%expr4054740611%_ - _%param4054840613%_) - (if (gx#stx-pair? _%hd4054140608%_) - (let ((_%e4054440616%_ - (gx#syntax-e _%hd4054140608%_))) - (let ((_%lp-tl4054640623%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e4054440616%_))) - (_%lp-hd4054540620%_ + (##cdr _%e4058040652%_))) + (_%lp-hd4058140656%_ (let () (declare (not safe)) - (##car _%e4054440616%_)))) - (if (gx#stx-pair? _%lp-hd4054540620%_) - (let ((_%e4056040626%_ + (##car _%e4058040652%_)))) + (if (gx#stx-pair? _%lp-hd4058140656%_) + (let ((_%e4059640662%_ (gx#syntax-e - _%lp-hd4054540620%_))) - (let ((_%tl4056240633%_ + _%lp-hd4058140656%_))) + (let ((_%tl4059840669%_ (let () (declare (not safe)) - (##cdr _%e4056040626%_))) - (_%hd4056140630%_ + (##cdr _%e4059640662%_))) + (_%hd4059740666%_ (let () (declare (not safe)) - (##car _%e4056040626%_)))) + (##car _%e4059640662%_)))) (if (gx#stx-pair? - _%tl4056240633%_) - (let ((_%e4056340636%_ + _%tl4059840669%_) + (let ((_%e4059940672%_ (gx#syntax-e - _%tl4056240633%_))) - (let ((_%tl4056540643%_ + _%tl4059840669%_))) + (let ((_%tl4060140679%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4056340636%_))) - (_%hd4056440640%_ - (let () (declare (not safe)) (##car _%e4056340636%_)))) - (if (gx#stx-null? _%tl4056540643%_) - (_%loop4054340604%_ - _%lp-tl4054640623%_ - (cons _%hd4056440640%_ _%expr4054740611%_) - (cons _%hd4056140630%_ _%param4054840613%_)) - (let () (declare (not safe)) (_%g4051340571%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4054940607%_))))) (let () (declare (not safe)) - (_%g4051340571%_))))) - (let ((_%param4055040649%_ - (reverse _%param4054840613%_)) - (_%expr4054940646%_ - (reverse _%expr4054740611%_))) - (if (gx#stx-pair/null? _%tl4053940595%_) - (let ((_%__splice4146041461%_ + (_%g4054940607%_))))) + (let ((_%param4058640685%_ + (reverse _%param4058440649%_)) + (_%expr4058540682%_ + (reverse _%expr4058340647%_))) + (if (gx#stx-pair/null? _%tl4057540631%_) + (let ((_%__splice4149641497%_ (gx#syntax-split-splice - _%tl4053940595%_ + _%tl4057540631%_ '0))) - (let ((_%tl4055340655%_ + (let ((_%tl4058940691%_ (let () (declare (not safe)) (##vector-ref - _%__splice4146041461%_ + _%__splice4149641497%_ '1))) - (_%target4055140652%_ + (_%target4058740688%_ (let () (declare (not safe)) (##vector-ref - _%__splice4146041461%_ + _%__splice4149641497%_ '0)))) (if (gx#stx-null? - _%tl4055340655%_) - (letrec ((_%loop4055440658%_ - (lambda (_%hd4055240662%_ + _%tl4058940691%_) + (letrec ((_%loop4059040694%_ + (lambda (_%hd4058840698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4055840665%_) - (if (gx#stx-pair? _%hd4055240662%_) - (let ((_%e4055540668%_ - (gx#syntax-e _%hd4055240662%_))) - (let ((_%lp-tl4055740675%_ + _%body4059440701%_) + (if (gx#stx-pair? _%hd4058840698%_) + (let ((_%e4059140704%_ + (gx#syntax-e _%hd4058840698%_))) + (let ((_%lp-tl4059340711%_ (let () (declare (not safe)) - (##cdr _%e4055540668%_))) - (_%lp-hd4055640672%_ + (##cdr _%e4059140704%_))) + (_%lp-hd4059240708%_ (let () (declare (not safe)) - (##car _%e4055540668%_)))) - (_%loop4055440658%_ - _%lp-tl4055740675%_ - (cons _%lp-hd4055640672%_ _%body4055840665%_)))) - (let ((_%body4055940678%_ - (reverse _%body4055840665%_))) - (_%__kont4145641457%_ - _%body4055940678%_ - _%expr4054940646%_ - _%param4055040649%_)))))) + (##car _%e4059140704%_)))) + (_%loop4059040694%_ + _%lp-tl4059340711%_ + (cons _%lp-hd4059240708%_ _%body4059440701%_)))) + (let ((_%body4059540714%_ + (reverse _%body4059440701%_))) + (_%__kont4149241493%_ + _%body4059540714%_ + _%expr4058540682%_ + _%param4058640685%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4055440658%_ - _%target4055140652%_ + (_%loop4059040694%_ + _%target4058740688%_ '())) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4054940607%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))))))) - (_%loop4054340604%_ _%target4054040598%_ '() '())))) - (_%__match4148441485%_ - (lambda (_%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145441455%_ - _%target4052240875%_ - _%tl4052440878%_) - (letrec ((_%loop4052540881%_ - (lambda (_%hd4052340885%_ _%body4052940888%_) - (if (gx#stx-pair? _%hd4052340885%_) - (let ((_%e4052640891%_ - (gx#syntax-e _%hd4052340885%_))) - (let ((_%lp-tl4052840898%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e4052640891%_))) - (_%lp-hd4052740895%_ + (##cdr _%e4056240927%_))) + (_%lp-hd4056340931%_ (let () (declare (not safe)) - (##car _%e4052640891%_)))) - (_%loop4052540881%_ - _%lp-tl4052840898%_ - (cons _%lp-hd4052740895%_ - _%body4052940888%_)))) - (let ((_%body4053040901%_ - (reverse _%body4052940888%_))) - (_%__kont4145241453%_ - _%body4053040901%_)))))) - (_%loop4052540881%_ _%target4052240875%_ '()))))) - (if (gx#stx-pair? _%__stx4144941450%_) - (let ((_%e4051640855%_ (gx#syntax-e _%__stx4144941450%_))) - (let ((_%tl4051840862%_ - (let () (declare (not safe)) (##cdr _%e4051640855%_))) - (_%hd4051740859%_ + (##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%_ (let () (declare (not safe)) - (##car _%e4051640855%_)))) - (if (gx#stx-pair? _%tl4051840862%_) - (let ((_%e4051940865%_ (gx#syntax-e _%tl4051840862%_))) - (let ((_%tl4052140872%_ + (##car _%e4055240891%_)))) + (if (gx#stx-pair? _%tl4055440898%_) + (let ((_%e4055540901%_ (gx#syntax-e _%tl4055440898%_))) + (let ((_%tl4055740908%_ (let () (declare (not safe)) - (##cdr _%e4051940865%_))) - (_%hd4052040869%_ + (##cdr _%e4055540901%_))) + (_%hd4055640905%_ (let () (declare (not safe)) - (##car _%e4051940865%_)))) - (if (gx#stx-null? _%hd4052040869%_) - (if (gx#stx-pair/null? _%tl4052140872%_) - (let ((_%__splice4145441455%_ + (##car _%e4055540901%_)))) + (if (gx#stx-null? _%hd4055640905%_) + (if (gx#stx-pair/null? _%tl4055740908%_) + (let ((_%__splice4149041491%_ (gx#syntax-split-splice - _%tl4052140872%_ + _%tl4055740908%_ '0))) - (let ((_%tl4052440878%_ + (let ((_%tl4056040914%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145441455%_ + _%__splice4149041491%_ '1))) - (_%target4052240875%_ + (_%target4055840911%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145441455%_ + _%__splice4149041491%_ '0)))) - (if (gx#stx-null? _%tl4052440878%_) - (_%__match4148441485%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145441455%_ - _%target4052240875%_ - _%tl4052440878%_) + (if (gx#stx-null? _%tl4056040914%_) + (_%__match4152041521%_ + _%e4055240891%_ + _%hd4055340895%_ + _%tl4055440898%_ + _%e4055540901%_ + _%hd4055640905%_ + _%tl4055740908%_ + _%__splice4149041491%_ + _%target4055840911%_ + _%tl4056040914%_) (if (gx#stx-pair/null? - _%hd4052040869%_) - (let ((_%__splice4145841459%_ + _%hd4055640905%_) + (let ((_%__splice4149441495%_ (gx#syntax-split-splice - _%hd4052040869%_ + _%hd4055640905%_ '0))) - (let ((_%tl4054240601%_ + (let ((_%tl4057840637%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4149441495%_ '1))) - (_%target4054040598%_ + (_%target4057640634%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4149441495%_ '0)))) (if (gx#stx-null? - _%tl4054240601%_) - (_%__match4150441505%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) + _%tl4057840637%_) + (_%__match4154041541%_ + _%e4055240891%_ + _%hd4055340895%_ + _%tl4055440898%_ + _%e4055540901%_ + _%hd4055640905%_ + _%tl4055740908%_ + _%__splice4149441495%_ + _%target4057640634%_ + _%tl4057840637%_) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4054940607%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))))) - (if (gx#stx-pair/null? _%hd4052040869%_) - (let ((_%__splice4145841459%_ + (_%g4054940607%_)))))) + (if (gx#stx-pair/null? _%hd4055640905%_) + (let ((_%__splice4149441495%_ (gx#syntax-split-splice - _%hd4052040869%_ + _%hd4055640905%_ '0))) - (let ((_%tl4054240601%_ + (let ((_%tl4057840637%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4149441495%_ '1))) - (_%target4054040598%_ + (_%target4057640634%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4149441495%_ '0)))) - (if (gx#stx-null? _%tl4054240601%_) - (_%__match4150441505%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) + (if (gx#stx-null? _%tl4057840637%_) + (_%__match4154041541%_ + _%e4055240891%_ + _%hd4055340895%_ + _%tl4055440898%_ + _%e4055540901%_ + _%hd4055640905%_ + _%tl4055740908%_ + _%__splice4149441495%_ + _%target4057640634%_ + _%tl4057840637%_) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4054940607%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))) - (if (gx#stx-pair/null? _%hd4052040869%_) - (let ((_%__splice4145841459%_ + (_%g4054940607%_)))) + (if (gx#stx-pair/null? _%hd4055640905%_) + (let ((_%__splice4149441495%_ (gx#syntax-split-splice - _%hd4052040869%_ + _%hd4055640905%_ '0))) - (let ((_%tl4054240601%_ + (let ((_%tl4057840637%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4149441495%_ '1))) - (_%target4054040598%_ + (_%target4057640634%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4149441495%_ '0)))) - (if (gx#stx-null? _%tl4054240601%_) - (_%__match4150441505%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) + (if (gx#stx-null? _%tl4057840637%_) + (_%__match4154041541%_ + _%e4055240891%_ + _%hd4055340895%_ + _%tl4055440898%_ + _%e4055540901%_ + _%hd4055640905%_ + _%tl4055740908%_ + _%__splice4149441495%_ + _%target4057640634%_ + _%tl4057840637%_) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4054940607%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))))) - (let () (declare (not safe)) (_%g4051340571%_))))) - (let () (declare (not safe)) (_%g4051340571%_)))))))) + (_%g4054940607%_)))))) + (let () (declare (not safe)) (_%g4054940607%_))))) + (let () (declare (not safe)) (_%g4054940607%_)))))))) (define |gerbil/core/more-sugar[:0:]#let/cc| - (lambda (_%$stx40938%_) - (let* ((_%g4094240966%_ - (lambda (_%g4094340962%_) + (lambda (_%$stx40974%_) + (let* ((_%g4097841002%_ + (lambda (_%g4097940998%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4094340962%_))) - (_%g4094141051%_ - (lambda (_%g4094340970%_) - (if (gx#stx-pair? _%g4094340970%_) - (let ((_%e4094640973%_ (gx#syntax-e _%g4094340970%_))) - (let ((_%hd4094740977%_ + _%g4097940998%_))) + (_%g4097741087%_ + (lambda (_%g4097941006%_) + (if (gx#stx-pair? _%g4097941006%_) + (let ((_%e4098241009%_ (gx#syntax-e _%g4097941006%_))) + (let ((_%hd4098341013%_ (let () (declare (not safe)) - (##car _%e4094640973%_))) - (_%tl4094840980%_ + (##car _%e4098241009%_))) + (_%tl4098441016%_ (let () (declare (not safe)) - (##cdr _%e4094640973%_)))) - (if (gx#stx-pair? _%tl4094840980%_) - (let ((_%e4094940983%_ - (gx#syntax-e _%tl4094840980%_))) - (let ((_%hd4095040987%_ + (##cdr _%e4098241009%_)))) + (if (gx#stx-pair? _%tl4098441016%_) + (let ((_%e4098541019%_ + (gx#syntax-e _%tl4098441016%_))) + (let ((_%hd4098641023%_ (let () (declare (not safe)) - (##car _%e4094940983%_))) - (_%tl4095140990%_ + (##car _%e4098541019%_))) + (_%tl4098741026%_ (let () (declare (not safe)) - (##cdr _%e4094940983%_)))) - (if (gx#stx-pair/null? _%tl4095140990%_) - (let ((_g41517_ + (##cdr _%e4098541019%_)))) + (if (gx#stx-pair/null? _%tl4098741026%_) + (let ((_g41553_ (gx#syntax-split-splice - _%tl4095140990%_ + _%tl4098741026%_ '0))) (begin - (let ((_g41518_ + (let ((_g41554_ (let () (declare (not safe)) - (if (##values? _g41517_) - (##vector-length _g41517_) + (if (##values? _g41553_) + (##vector-length _g41553_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41518_ 2))) + (##fx= _g41554_ 2))) (error "Context expects 2 values" - _g41518_))) - (let ((_%target4095240993%_ + _g41554_))) + (let ((_%target4098841029%_ (let () (declare (not safe)) - (##vector-ref _g41517_ 0))) - (_%tl4095440996%_ + (##vector-ref _g41553_ 0))) + (_%tl4099041032%_ (let () (declare (not safe)) - (##vector-ref _g41517_ 1)))) - (if (gx#stx-null? _%tl4095440996%_) - (letrec ((_%loop4095540999%_ - (lambda (_%hd4095341003%_ + (##vector-ref _g41553_ 1)))) + (if (gx#stx-null? _%tl4099041032%_) + (letrec ((_%loop4099141035%_ + (lambda (_%hd4098941039%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4095941006%_) - (if (gx#stx-pair? _%hd4095341003%_) - (let ((_%e4095641009%_ (gx#syntax-e _%hd4095341003%_))) - (let ((_%lp-hd4095741013%_ + _%body4099541042%_) + (if (gx#stx-pair? _%hd4098941039%_) + (let ((_%e4099241045%_ (gx#syntax-e _%hd4098941039%_))) + (let ((_%lp-hd4099341049%_ (let () (declare (not safe)) - (##car _%e4095641009%_))) - (_%lp-tl4095841016%_ + (##car _%e4099241045%_))) + (_%lp-tl4099441052%_ (let () (declare (not safe)) - (##cdr _%e4095641009%_)))) - (_%loop4095540999%_ - _%lp-tl4095841016%_ - (cons _%lp-hd4095741013%_ _%body4095941006%_)))) - (let ((_%body4096041019%_ (reverse _%body4095941006%_))) - ((lambda (_%L41023%_ _%L41025%_) - (if (gx#identifier? _%L41025%_) + (##cdr _%e4099241045%_)))) + (_%loop4099141035%_ + _%lp-tl4099441052%_ + (cons _%lp-hd4099341049%_ _%body4099541042%_)))) + (let ((_%body4099641055%_ (reverse _%body4099541042%_))) + ((lambda (_%L41059%_ _%L41061%_) + (if (gx#identifier? _%L41061%_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L41025%_ '()) - (foldr (lambda (_%g4104241045%_ + (cons (cons _%L41061%_ '()) + (foldr (lambda (_%g4107841081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4104341048%_) - (cons _%g4104241045%_ _%g4104341048%_)) + _%g4107941084%_) + (cons _%g4107841081%_ _%g4107941084%_)) '() - _%L41023%_))) + _%L41059%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%g4094240966%_ _%g4094340970%_))) - _%body4096041019%_ - _%hd4095040987%_)))))) + (_%g4097841002%_ _%g4097941006%_))) + _%body4099641055%_ + _%hd4098641023%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4095540999%_ - _%target4095240993%_ + (_%loop4099141035%_ + _%target4098841029%_ '())) - (_%g4094240966%_ - _%g4094340970%_))))) - (_%g4094240966%_ _%g4094340970%_)))) - (_%g4094240966%_ _%g4094340970%_)))) - (_%g4094240966%_ _%g4094340970%_))))) - (_%g4094141051%_ _%$stx40938%_)))) + (_%g4097841002%_ + _%g4097941006%_))))) + (_%g4097841002%_ _%g4097941006%_)))) + (_%g4097841002%_ _%g4097941006%_)))) + (_%g4097841002%_ _%g4097941006%_))))) + (_%g4097741087%_ _%$stx40974%_)))) (define |gerbil/core/more-sugar[:0:]#unwind-protect| - (lambda (_%$stx41056%_) - (let* ((_%g4106041088%_ - (lambda (_%g4106141084%_) + (lambda (_%$stx41092%_) + (let* ((_%g4109641124%_ + (lambda (_%g4109741120%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4106141084%_))) - (_%g4105941187%_ - (lambda (_%g4106141092%_) - (if (gx#stx-pair? _%g4106141092%_) - (let ((_%e4106541095%_ (gx#syntax-e _%g4106141092%_))) - (let ((_%hd4106641099%_ + _%g4109741120%_))) + (_%g4109541223%_ + (lambda (_%g4109741128%_) + (if (gx#stx-pair? _%g4109741128%_) + (let ((_%e4110141131%_ (gx#syntax-e _%g4109741128%_))) + (let ((_%hd4110241135%_ (let () (declare (not safe)) - (##car _%e4106541095%_))) - (_%tl4106741102%_ + (##car _%e4110141131%_))) + (_%tl4110341138%_ (let () (declare (not safe)) - (##cdr _%e4106541095%_)))) - (if (gx#stx-pair? _%tl4106741102%_) - (let ((_%e4106841105%_ - (gx#syntax-e _%tl4106741102%_))) - (let ((_%hd4106941109%_ + (##cdr _%e4110141131%_)))) + (if (gx#stx-pair? _%tl4110341138%_) + (let ((_%e4110441141%_ + (gx#syntax-e _%tl4110341138%_))) + (let ((_%hd4110541145%_ (let () (declare (not safe)) - (##car _%e4106841105%_))) - (_%tl4107041112%_ + (##car _%e4110441141%_))) + (_%tl4110641148%_ (let () (declare (not safe)) - (##cdr _%e4106841105%_)))) - (if (gx#stx-pair? _%tl4107041112%_) - (let ((_%e4107141115%_ - (gx#syntax-e _%tl4107041112%_))) - (let ((_%hd4107241119%_ + (##cdr _%e4110441141%_)))) + (if (gx#stx-pair? _%tl4110641148%_) + (let ((_%e4110741151%_ + (gx#syntax-e _%tl4110641148%_))) + (let ((_%hd4110841155%_ (let () (declare (not safe)) - (##car _%e4107141115%_))) - (_%tl4107341122%_ + (##car _%e4110741151%_))) + (_%tl4110941158%_ (let () (declare (not safe)) - (##cdr _%e4107141115%_)))) + (##cdr _%e4110741151%_)))) (if (gx#stx-pair/null? - _%tl4107341122%_) - (let ((_g41519_ + _%tl4110941158%_) + (let ((_g41555_ (gx#syntax-split-splice - _%tl4107341122%_ + _%tl4110941158%_ '0))) (begin - (let ((_g41520_ + (let ((_g41556_ (let () (declare (not safe)) (if (##values? - _g41519_) + _g41555_) (##vector-length - _g41519_) + _g41555_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41520_ + (##fx= _g41556_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41520_))) + (error "Context expects 2 values" _g41556_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4107441125%_ + (let ((_%target4111041161%_ (let () (declare (not safe)) (##vector-ref - _g41519_ + _g41555_ 0))) - (_%tl4107641128%_ + (_%tl4111241164%_ (let () (declare (not safe)) (##vector-ref - _g41519_ + _g41555_ 1)))) (if (gx#stx-null? - _%tl4107641128%_) - (letrec ((_%loop4107741131%_ - (lambda (_%hd4107541135%_ + _%tl4111241164%_) + (letrec ((_%loop4111341167%_ + (lambda (_%hd4111141171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest4108141138%_) - (if (gx#stx-pair? _%hd4107541135%_) - (let ((_%e4107841141%_ - (gx#syntax-e _%hd4107541135%_))) - (let ((_%lp-hd4107941145%_ + _%rest4111741174%_) + (if (gx#stx-pair? _%hd4111141171%_) + (let ((_%e4111441177%_ + (gx#syntax-e _%hd4111141171%_))) + (let ((_%lp-hd4111541181%_ (let () (declare (not safe)) - (##car _%e4107841141%_))) - (_%lp-tl4108041148%_ + (##car _%e4111441177%_))) + (_%lp-tl4111641184%_ (let () (declare (not safe)) - (##cdr _%e4107841141%_)))) - (_%loop4107741131%_ - _%lp-tl4108041148%_ - (cons _%lp-hd4107941145%_ - _%rest4108141138%_)))) - (let ((_%rest4108241151%_ - (reverse _%rest4108141138%_))) - ((lambda (_%L41155%_ _%L41157%_ _%L41158%_) + (##cdr _%e4111441177%_)))) + (_%loop4111341167%_ + _%lp-tl4111641184%_ + (cons _%lp-hd4111541181%_ + _%rest4111741174%_)))) + (let ((_%rest4111841187%_ + (reverse _%rest4111741174%_))) + ((lambda (_%L41191%_ _%L41193%_ _%L41194%_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1311,7 +1311,7 @@ '#f 'lambda) (cons '() - (cons _%L41158%_ + (cons _%L41194%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1320,124 +1320,124 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L41157%_ - (foldr (lambda (_%g4117841181%_ _%g4117941184%_) - (cons _%g4117841181%_ _%g4117941184%_)) + (cons _%L41193%_ + (foldr (lambda (_%g4121441217%_ _%g4121541220%_) + (cons _%g4121441217%_ _%g4121541220%_)) '() - _%L41155%_)))) + _%L41191%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%rest4108241151%_ - _%hd4107241119%_ - _%hd4106941109%_)))))) - (_%loop4107741131%_ _%target4107441125%_ '())) - (_%g4106041088%_ _%g4106141092%_))))) + _%rest4111841187%_ + _%hd4110841155%_ + _%hd4110541145%_)))))) + (_%loop4111341167%_ _%target4111041161%_ '())) + (_%g4109641124%_ _%g4109741128%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4106041088%_ - _%g4106141092%_)))) - (_%g4106041088%_ _%g4106141092%_)))) - (_%g4106041088%_ _%g4106141092%_)))) - (_%g4106041088%_ _%g4106141092%_))))) - (_%g4105941187%_ _%$stx41056%_)))) + (_%g4109641124%_ + _%g4109741128%_)))) + (_%g4109641124%_ _%g4109741128%_)))) + (_%g4109641124%_ _%g4109741128%_)))) + (_%g4109641124%_ _%g4109741128%_))))) + (_%g4109541223%_ _%$stx41092%_)))) (define |gerbil/core/more-sugar[:0:]#@bytes| - (lambda (_%stx41192%_) - (let* ((_%g4119541209%_ - (lambda (_%g4119641205%_) + (lambda (_%stx41228%_) + (let* ((_%g4123141245%_ + (lambda (_%g4123241241%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4119641205%_))) - (_%g4119441281%_ - (lambda (_%g4119641213%_) - (if (gx#stx-pair? _%g4119641213%_) - (let ((_%e4119841216%_ (gx#syntax-e _%g4119641213%_))) - (let ((_%hd4119941220%_ + _%g4123241241%_))) + (_%g4123041317%_ + (lambda (_%g4123241249%_) + (if (gx#stx-pair? _%g4123241249%_) + (let ((_%e4123441252%_ (gx#syntax-e _%g4123241249%_))) + (let ((_%hd4123541256%_ (let () (declare (not safe)) - (##car _%e4119841216%_))) - (_%tl4120041223%_ + (##car _%e4123441252%_))) + (_%tl4123641259%_ (let () (declare (not safe)) - (##cdr _%e4119841216%_)))) - (if (gx#stx-pair? _%tl4120041223%_) - (let ((_%e4120141226%_ - (gx#syntax-e _%tl4120041223%_))) - (let ((_%hd4120241230%_ + (##cdr _%e4123441252%_)))) + (if (gx#stx-pair? _%tl4123641259%_) + (let ((_%e4123741262%_ + (gx#syntax-e _%tl4123641259%_))) + (let ((_%hd4123841266%_ (let () (declare (not safe)) - (##car _%e4120141226%_))) - (_%tl4120341233%_ + (##car _%e4123741262%_))) + (_%tl4123941269%_ (let () (declare (not safe)) - (##cdr _%e4120141226%_)))) - (if (gx#stx-null? _%tl4120341233%_) - ((lambda (_%L41236%_) - (if (gx#stx-string? _%L41236%_) - (let* ((_%g4125041258%_ - (lambda (_%g4125141254%_) + (##cdr _%e4123741262%_)))) + (if (gx#stx-null? _%tl4123941269%_) + ((lambda (_%L41272%_) + (if (gx#stx-string? _%L41272%_) + (let* ((_%g4128641294%_ + (lambda (_%g4128741290%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4125141254%_))) - (_%g4124941277%_ - (lambda (_%g4125141262%_) - ((lambda (_%L41265%_) + _%g4128741290%_))) + (_%g4128541313%_ + (lambda (_%g4128741298%_) + ((lambda (_%L41301%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L41265%_ + (cons _%L41301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - _%g4125141262%_)))) + _%g4128741298%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4124941277%_ + (_%g4128541313%_ (string->bytes - (gx#stx-e _%L41236%_)))) - (_%g4119541209%_ _%g4119641213%_))) - _%hd4120241230%_) - (_%g4119541209%_ _%g4119641213%_)))) - (_%g4119541209%_ _%g4119641213%_)))) - (_%g4119541209%_ _%g4119641213%_))))) - (_%g4119441281%_ _%stx41192%_)))) + (gx#stx-e _%L41272%_)))) + (_%g4123141245%_ _%g4123241249%_))) + _%hd4123841266%_) + (_%g4123141245%_ _%g4123241249%_)))) + (_%g4123141245%_ _%g4123241249%_)))) + (_%g4123141245%_ _%g4123241249%_))))) + (_%g4123041317%_ _%stx41228%_)))) (define |gerbil/core/more-sugar[:0:]#eval-when-compile| - (lambda (_%stx41285%_) - (let* ((_%g4128841302%_ - (lambda (_%g4128941298%_) + (lambda (_%stx41321%_) + (let* ((_%g4132441338%_ + (lambda (_%g4132541334%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4128941298%_))) - (_%g4128741343%_ - (lambda (_%g4128941306%_) - (if (gx#stx-pair? _%g4128941306%_) - (let ((_%e4129141309%_ (gx#syntax-e _%g4128941306%_))) - (let ((_%hd4129241313%_ + _%g4132541334%_))) + (_%g4132341379%_ + (lambda (_%g4132541342%_) + (if (gx#stx-pair? _%g4132541342%_) + (let ((_%e4132741345%_ (gx#syntax-e _%g4132541342%_))) + (let ((_%hd4132841349%_ (let () (declare (not safe)) - (##car _%e4129141309%_))) - (_%tl4129341316%_ + (##car _%e4132741345%_))) + (_%tl4132941352%_ (let () (declare (not safe)) - (##cdr _%e4129141309%_)))) - (if (gx#stx-pair? _%tl4129341316%_) - (let ((_%e4129441319%_ - (gx#syntax-e _%tl4129341316%_))) - (let ((_%hd4129541323%_ + (##cdr _%e4132741345%_)))) + (if (gx#stx-pair? _%tl4132941352%_) + (let ((_%e4133041355%_ + (gx#syntax-e _%tl4132941352%_))) + (let ((_%hd4133141359%_ (let () (declare (not safe)) - (##car _%e4129441319%_))) - (_%tl4129641326%_ + (##car _%e4133041355%_))) + (_%tl4133241362%_ (let () (declare (not safe)) - (##cdr _%e4129441319%_)))) - (if (gx#stx-null? _%tl4129641326%_) - ((lambda (_%L41329%_) + (##cdr _%e4133041355%_)))) + (if (gx#stx-null? _%tl4133241362%_) + ((lambda (_%L41365%_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _%L41329%_) + (gx#eval-syntax _%L41365%_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _%hd4129541323%_) - (_%g4128841302%_ _%g4128941306%_)))) - (_%g4128841302%_ _%g4128941306%_)))) - (_%g4128841302%_ _%g4128941306%_))))) - (_%g4128741343%_ _%stx41285%_))))) + _%hd4133141359%_) + (_%g4132441338%_ _%g4132541342%_)))) + (_%g4132441338%_ _%g4132541342%_)))) + (_%g4132441338%_ _%g4132541342%_))))) + (_%g4132341379%_ _%stx41321%_))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~2.scm b/src/bootstrap/gerbil/core/more-sugar~2.scm index 4c0922b4d..a02b44de1 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]#_g41522_| + (define |gerbil/core/more-sugar[2]#_g41558_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41524_| + (define |gerbil/core/more-sugar[2]#_g41560_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41526_| + (define |gerbil/core/more-sugar[2]#_g41562_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41528_| + (define |gerbil/core/more-sugar[2]#_g41564_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41530_| + (define |gerbil/core/more-sugar[2]#_g41566_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41532_| + (define |gerbil/core/more-sugar[2]#_g41568_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41534_| + (define |gerbil/core/more-sugar[2]#_g41570_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41536_| + (define |gerbil/core/more-sugar[2]#_g41572_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41539_| + (define |gerbil/core/more-sugar[2]#_g41575_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41541_| + (define |gerbil/core/more-sugar[2]#_g41577_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41543_| + (define |gerbil/core/more-sugar[2]#_g41579_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41545_| + (define |gerbil/core/more-sugar[2]#_g41581_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41547_| + (define |gerbil/core/more-sugar[2]#_g41583_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41549_| + (define |gerbil/core/more-sugar[2]#_g41585_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41551_| + (define |gerbil/core/more-sugar[2]#_g41587_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core/more-sugar[:1:]#setq-macro| - (let ((__obj41506 + (let ((__obj41542 (let () (declare (not safe)) (##structure @@ -136,60 +136,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41506 + __obj41542 'gerbil/core/more-sugar#setq-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 'setq-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41542 'setq-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '() '4 '#f '#f)) - (let ((__tmp41521 (cons |gerbil/core/more-sugar[2]#_g41522_| '()))) + (##unchecked-structure-set! __obj41542 '() '4 '#f '#f)) + (let ((__tmp41557 (cons |gerbil/core/more-sugar[2]#_g41558_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41521 '3 '#f '#f)) + (##unchecked-structure-set! __obj41542 __tmp41557 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41542 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41542 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41542 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '11 '#f '#f)) - (let ((__tmp41523 |gerbil/core/more-sugar[2]#_g41524_|)) + (##unchecked-structure-set! __obj41542 '#f '11 '#f '#f)) + (let ((__tmp41559 |gerbil/core/more-sugar[2]#_g41560_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41523 '12 '#f '#f)) - (let ((__tmp41525 |gerbil/core/more-sugar[2]#_g41526_|)) + (##unchecked-structure-set! __obj41542 __tmp41559 '12 '#f '#f)) + (let ((__tmp41561 |gerbil/core/more-sugar[2]#_g41562_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41525 '13 '#f '#f)) - (let ((__tmp41527 |gerbil/core/more-sugar[2]#_g41528_|)) + (##unchecked-structure-set! __obj41542 __tmp41561 '13 '#f '#f)) + (let ((__tmp41563 |gerbil/core/more-sugar[2]#_g41564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41527 '14 '#f '#f)) - (let ((__tmp41529 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41530_|) '()))) + (##unchecked-structure-set! __obj41542 __tmp41563 '14 '#f '#f)) + (let ((__tmp41565 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41566_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41529 '15 '#f '#f)) - (let ((__tmp41531 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41532_|) '()))) + (##unchecked-structure-set! __obj41542 __tmp41565 '15 '#f '#f)) + (let ((__tmp41567 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41568_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41531 '16 '#f '#f)) - (let ((__tmp41533 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41534_|) '()))) + (##unchecked-structure-set! __obj41542 __tmp41567 '16 '#f '#f)) + (let ((__tmp41569 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41570_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41533 '17 '#f '#f)) - (let ((__tmp41535 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41536_|) '()))) + (##unchecked-structure-set! __obj41542 __tmp41569 '17 '#f '#f)) + (let ((__tmp41571 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41572_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41535 '18 '#f '#f)) - __obj41506)) + (##unchecked-structure-set! __obj41542 __tmp41571 '18 '#f '#f)) + __obj41542)) (define |gerbil/core/more-sugar[:1:]#setf-macro| - (let ((__obj41507 + (let ((__obj41543 (let () (declare (not safe)) (##structure @@ -218,55 +218,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41507 + __obj41543 'gerbil/core/more-sugar#setf-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 'setf-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41543 'setf-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '() '4 '#f '#f)) - (let ((__tmp41537 (cons |gerbil/core/more-sugar[2]#_g41522_| '()))) + (##unchecked-structure-set! __obj41543 '() '4 '#f '#f)) + (let ((__tmp41573 (cons |gerbil/core/more-sugar[2]#_g41558_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41537 '3 '#f '#f)) + (##unchecked-structure-set! __obj41543 __tmp41573 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41543 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41543 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41543 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '11 '#f '#f)) - (let ((__tmp41538 |gerbil/core/more-sugar[2]#_g41539_|)) + (##unchecked-structure-set! __obj41543 '#f '11 '#f '#f)) + (let ((__tmp41574 |gerbil/core/more-sugar[2]#_g41575_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41538 '12 '#f '#f)) - (let ((__tmp41540 |gerbil/core/more-sugar[2]#_g41541_|)) + (##unchecked-structure-set! __obj41543 __tmp41574 '12 '#f '#f)) + (let ((__tmp41576 |gerbil/core/more-sugar[2]#_g41577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41540 '13 '#f '#f)) - (let ((__tmp41542 |gerbil/core/more-sugar[2]#_g41543_|)) + (##unchecked-structure-set! __obj41543 __tmp41576 '13 '#f '#f)) + (let ((__tmp41578 |gerbil/core/more-sugar[2]#_g41579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41542 '14 '#f '#f)) - (let ((__tmp41544 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41545_|) '()))) + (##unchecked-structure-set! __obj41543 __tmp41578 '14 '#f '#f)) + (let ((__tmp41580 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41581_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41544 '15 '#f '#f)) - (let ((__tmp41546 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41547_|) '()))) + (##unchecked-structure-set! __obj41543 __tmp41580 '15 '#f '#f)) + (let ((__tmp41582 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41583_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41546 '16 '#f '#f)) - (let ((__tmp41548 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41549_|) '()))) + (##unchecked-structure-set! __obj41543 __tmp41582 '16 '#f '#f)) + (let ((__tmp41584 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41585_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41548 '17 '#f '#f)) - (let ((__tmp41550 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41551_|) '()))) + (##unchecked-structure-set! __obj41543 __tmp41584 '17 '#f '#f)) + (let ((__tmp41586 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41587_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41550 '18 '#f '#f)) - __obj41507)))) + (##unchecked-structure-set! __obj41543 __tmp41586 '18 '#f '#f)) + __obj41543)))) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm index 99ede65bd..53212e7cf 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 (_%$stx41554%_) - (let* ((_%g4155841569%_ - (lambda (_%g4155941565%_) + (lambda (_%$stx41590%_) + (let* ((_%g4159441605%_ + (lambda (_%g4159541601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4155941565%_))) - (_%g4155741599%_ - (lambda (_%g4155941573%_) - (if (gx#stx-pair? _%g4155941573%_) - (let ((_%e4156141576%_ (gx#syntax-e _%g4155941573%_))) - (let ((_%hd4156241580%_ + _%g4159541601%_))) + (_%g4159341635%_ + (lambda (_%g4159541609%_) + (if (gx#stx-pair? _%g4159541609%_) + (let ((_%e4159741612%_ (gx#syntax-e _%g4159541609%_))) + (let ((_%hd4159841616%_ (let () (declare (not safe)) - (##car _%e4156141576%_))) - (_%tl4156341583%_ + (##car _%e4159741612%_))) + (_%tl4159941619%_ (let () (declare (not safe)) - (##cdr _%e4156141576%_)))) - ((lambda (_%L41586%_) + (##cdr _%e4159741612%_)))) + ((lambda (_%L41622%_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L41586%_) + _%L41622%_) '())))) - _%tl4156341583%_))) - (_%g4155841569%_ _%g4155941573%_))))) - (_%g4155741599%_ _%$stx41554%_)))) + _%tl4159941619%_))) + (_%g4159441605%_ _%g4159541609%_))))) + (_%g4159341635%_ _%$stx41590%_)))) (define |gerbil/core/more-syntax-sugar[:0:]#quasisyntax| - (lambda (_%$stx41603%_) - (let ((_%g4160641613%_ - (lambda (_%g4160741609%_) + (lambda (_%$stx41639%_) + (let ((_%g4164241649%_ + (lambda (_%g4164341645%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4160741609%_)))) - (_%g4160641613%_ _%$stx41603%_))))) + _%g4164341645%_)))) + (_%g4164241649%_ _%$stx41639%_))))) diff --git a/src/bootstrap/gerbil/core/runtime.ssi b/src/bootstrap/gerbil/core/runtime.ssi index bf08f0d4a..ff71286ce 100644 --- a/src/bootstrap/gerbil/core/runtime.ssi +++ b/src/bootstrap/gerbil/core/runtime.ssi @@ -1528,6 +1528,7 @@ namespace: gerbil/core/runtime (display* display*) (file-newer? file-newer?) (create-directory* create-directory*) + (move-file move-file) (absent-obj absent-obj) (absent-value absent-value) (true true) diff --git a/src/bootstrap/gerbil/core/sugar~1.scm b/src/bootstrap/gerbil/core/sugar~1.scm index e51396434..e583f5cf3 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]#_g20871_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20907_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20872_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20908_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20875_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20911_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20876_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20912_| (##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 ((_g20863_ + (let ((_g20899_ (gx#syntax-split-splice _%tl19421991%_ '0))) (begin - (let ((_g20864_ + (let ((_g20900_ (let () (declare (not safe)) (if (##values? - _g20863_) + _g20899_) (##vector-length - _g20863_) + _g20899_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20864_ 2))) - (error "Context expects 2 values" _g20864_))) + (##fx= _g20900_ 2))) + (error "Context expects 2 values" _g20900_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target19431994%_ (let () (declare (not safe)) (##vector-ref - _g20863_ + _g20899_ 0))) (_%tl19451997%_ (let () (declare (not safe)) (##vector-ref - _g20863_ + _g20899_ 1)))) (if (gx#stx-null? _%tl19451997%_) @@ -153,14 +153,14 @@ (_%g19282058%_ _%$stx1925%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#defrule| (lambda (_%$stx2063%_) - (let* ((_%__stx1844418445%_ _%$stx2063%_) + (let* ((_%__stx1848018481%_ _%$stx2063%_) (_%g20682109%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1844418445%_)))) - (let ((_%__kont1844718448%_ + _%__stx1848018481%_)))) + (let ((_%__kont1848318484%_ (lambda (_%L2239%_ _%L2241%_ _%L2242%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2242%_ @@ -175,7 +175,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1844918450%_ + (_%__kont1848518486%_ (lambda (_%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2170%_ @@ -190,7 +190,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1850918510%_ + (let* ((_%__match1854518546%_ (lambda (_%e20892116%_ _%hd20902120%_ _%tl20912123%_ @@ -211,13 +211,13 @@ (_%L2169%_ _%tl20972143%_) (_%L2170%_ _%hd20962140%_)) (if (gx#identifier? _%L2170%_) - (_%__kont1844918450%_ + (_%__kont1848518486%_ _%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) (let () (declare (not safe)) (_%g20682109%_)))))) - (_%__match1847718478%_ + (_%__match1851318514%_ (lambda (_%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -234,13 +234,13 @@ (_%L2241%_ _%tl20812226%_) (_%L2242%_ _%hd20802223%_)) (if (gx#identifier? _%L2242%_) - (_%__kont1844718448%_ + (_%__kont1848318484%_ _%L2239%_ _%L2241%_ _%L2242%_) (let () (declare (not safe)) (_%g20682109%_))))))) - (if (gx#stx-pair? _%__stx1844418445%_) - (let ((_%e20732199%_ (gx#syntax-e _%__stx1844418445%_))) + (if (gx#stx-pair? _%__stx1848018481%_) + (let ((_%e20732199%_ (gx#syntax-e _%__stx1848018481%_))) (let ((_%tl20752206%_ (let () (declare (not safe)) (##cdr _%e20732199%_))) (_%hd20742203%_ @@ -280,7 +280,7 @@ (declare (not safe)) (##car _%e20822229%_)))) (if (gx#stx-null? _%tl20842236%_) - (_%__match1847718478%_ + (_%__match1851318514%_ _%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -306,7 +306,7 @@ (_%hd21022160%_ (let () (declare (not safe)) (##car _%e21012156%_)))) (if (gx#stx-null? _%tl21032163%_) - (_%__match1850918510%_ + (_%__match1854518546%_ _%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -335,14 +335,14 @@ (let () (declare (not safe)) (_%g20682109%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#defsyntax%| (lambda (_%$stx2264%_) - (let* ((_%__stx1851218513%_ _%$stx2264%_) + (let* ((_%__stx1854818549%_ _%$stx2264%_) (_%g22692308%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1851218513%_)))) - (let ((_%__kont1851518516%_ + _%__stx1854818549%_)))) + (let ((_%__kont1855118552%_ (lambda (_%L2430%_ _%L2432%_ _%L2433%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2433%_ @@ -356,11 +356,11 @@ _%L2430%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1851918520%_ + (_%__kont1855518556%_ (lambda (_%L2345%_ _%L2347%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2347%_ (cons _%L2345%_ '())))))) - (let* ((_%__match1856718568%_ + (let* ((_%__match1860318604%_ (lambda (_%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -373,9 +373,9 @@ (let ((_%L2345%_ _%hd23012339%_) (_%L2347%_ _%hd22982329%_)) (if (gx#identifier? _%L2347%_) - (_%__kont1851918520%_ _%L2345%_ _%L2347%_) + (_%__kont1855518556%_ _%L2345%_ _%L2347%_) (let () (declare (not safe)) (_%g22692308%_)))))) - (_%__match1855918560%_ + (_%__match1859518596%_ (lambda (_%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -393,7 +393,7 @@ (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1860318604%_ _%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -407,7 +407,7 @@ (declare (not safe)) (_%g22692308%_))))) (let () (declare (not safe)) (_%g22692308%_))))) - (_%__match1854718548%_ + (_%__match1858318584%_ (lambda (_%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -417,7 +417,7 @@ _%e22802390%_ _%hd22812394%_ _%tl22822397%_ - _%__splice1851718518%_ + _%__splice1855318554%_ _%target22832400%_ _%tl22852403%_) (letrec ((_%loop22862406%_ @@ -443,11 +443,11 @@ (_%L2432%_ _%tl22822397%_) (_%L2433%_ _%hd22812394%_)) (if (gx#identifier? _%L2433%_) - (_%__kont1851518516%_ + (_%__kont1855118552%_ _%L2430%_ _%L2432%_ _%L2433%_) - (_%__match1855918560%_ + (_%__match1859518596%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -455,8 +455,8 @@ _%hd22782384%_ _%tl22792387%_)))))))) (_%loop22862406%_ _%target22832400%_ '()))))) - (if (gx#stx-pair? _%__stx1851218513%_) - (let ((_%e22742370%_ (gx#syntax-e _%__stx1851218513%_))) + (if (gx#stx-pair? _%__stx1854818549%_) + (let ((_%e22742370%_ (gx#syntax-e _%__stx1854818549%_))) (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 ((_%__splice1851718518%_ + (let ((_%__splice1855318554%_ (gx#syntax-split-splice _%tl22792387%_ '0))) @@ -493,16 +493,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1851718518%_ + _%__splice1855318554%_ '1))) (_%target22832400%_ (let () (declare (not safe)) (##vector-ref - _%__splice1851718518%_ + _%__splice1855318554%_ '0)))) (if (gx#stx-null? _%tl22852403%_) - (_%__match1854718548%_ + (_%__match1858318584%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -512,7 +512,7 @@ _%e22802390%_ _%hd22812394%_ _%tl22822397%_ - _%__splice1851718518%_ + _%__splice1855318554%_ _%target22832400%_ _%tl22852403%_) (if (gx#stx-pair? @@ -528,7 +528,7 @@ (_%hd23012339%_ (let () (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1860318604%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -555,7 +555,7 @@ (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1860318604%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -583,7 +583,7 @@ (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1860318604%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -603,14 +603,14 @@ (let () (declare (not safe)) (_%g22692308%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#define| (lambda (_%$stx2466%_) - (let* ((_%__stx1857018571%_ _%$stx2466%_) + (let* ((_%__stx1860618607%_ _%$stx2466%_) (_%g24712510%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1857018571%_)))) - (let ((_%__kont1857318574%_ + _%__stx1860618607%_)))) + (let ((_%__kont1860918610%_ (lambda (_%L2632%_ _%L2634%_ _%L2635%_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _%L2635%_ '()) @@ -624,11 +624,11 @@ _%L2632%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1857718578%_ + (_%__kont1861318614%_ (lambda (_%L2547%_ _%L2549%_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _%L2549%_ '()) (cons _%L2547%_ '())))))) - (let* ((_%__match1862518626%_ + (let* ((_%__match1866118662%_ (lambda (_%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -641,9 +641,9 @@ (let ((_%L2547%_ _%hd25032541%_) (_%L2549%_ _%hd25002531%_)) (if (gx#identifier? _%L2549%_) - (_%__kont1857718578%_ _%L2547%_ _%L2549%_) + (_%__kont1861318614%_ _%L2547%_ _%L2549%_) (let () (declare (not safe)) (_%g24712510%_)))))) - (_%__match1861718618%_ + (_%__match1865318654%_ (lambda (_%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -661,7 +661,7 @@ (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1866118662%_ _%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -675,7 +675,7 @@ (declare (not safe)) (_%g24712510%_))))) (let () (declare (not safe)) (_%g24712510%_))))) - (_%__match1860518606%_ + (_%__match1864118642%_ (lambda (_%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -685,7 +685,7 @@ _%e24822592%_ _%hd24832596%_ _%tl24842599%_ - _%__splice1857518576%_ + _%__splice1861118612%_ _%target24852602%_ _%tl24872605%_) (letrec ((_%loop24882608%_ @@ -711,11 +711,11 @@ (_%L2634%_ _%tl24842599%_) (_%L2635%_ _%hd24832596%_)) (if (gx#identifier? _%L2635%_) - (_%__kont1857318574%_ + (_%__kont1860918610%_ _%L2632%_ _%L2634%_ _%L2635%_) - (_%__match1861718618%_ + (_%__match1865318654%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -723,8 +723,8 @@ _%hd24802586%_ _%tl24812589%_)))))))) (_%loop24882608%_ _%target24852602%_ '()))))) - (if (gx#stx-pair? _%__stx1857018571%_) - (let ((_%e24762572%_ (gx#syntax-e _%__stx1857018571%_))) + (if (gx#stx-pair? _%__stx1860618607%_) + (let ((_%e24762572%_ (gx#syntax-e _%__stx1860618607%_))) (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 ((_%__splice1857518576%_ + (let ((_%__splice1861118612%_ (gx#syntax-split-splice _%tl24812589%_ '0))) @@ -761,16 +761,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1857518576%_ + _%__splice1861118612%_ '1))) (_%target24852602%_ (let () (declare (not safe)) (##vector-ref - _%__splice1857518576%_ + _%__splice1861118612%_ '0)))) (if (gx#stx-null? _%tl24872605%_) - (_%__match1860518606%_ + (_%__match1864118642%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -780,7 +780,7 @@ _%e24822592%_ _%hd24832596%_ _%tl24842599%_ - _%__splice1857518576%_ + _%__splice1861118612%_ _%target24852602%_ _%tl24872605%_) (if (gx#stx-pair? @@ -796,7 +796,7 @@ (_%hd25032541%_ (let () (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1866118662%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -823,7 +823,7 @@ (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1866118662%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -851,7 +851,7 @@ (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1866118662%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -871,14 +871,14 @@ (let () (declare (not safe)) (_%g24712510%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let*-values| (lambda (_%$stx2668%_) - (let* ((_%__stx1862818629%_ _%$stx2668%_) + (let* ((_%__stx1866418665%_ _%$stx2668%_) (_%g26732718%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1862818629%_)))) - (let ((_%__kont1863118632%_ + _%__stx1866418665%_)))) + (let ((_%__kont1866718668%_ (lambda (_%L2876%_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -886,7 +886,7 @@ (cons _%g28922895%_ _%g28932898%_)) '() _%L2876%_))))) - (_%__kont1863518636%_ + (_%__kont1867118672%_ (lambda (_%L2785%_ _%L2787%_ _%L2788%_ _%L2789%_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons _%L2788%_ '()) @@ -900,7 +900,7 @@ _%L2785%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1868718688%_ + (let* ((_%__match1872318724%_ (lambda (_%e26952725%_ _%hd26962729%_ _%tl26972732%_ @@ -910,7 +910,7 @@ _%e27012745%_ _%hd27022749%_ _%tl27032752%_ - _%__splice1863718638%_ + _%__splice1867318674%_ _%target27042755%_ _%tl27062758%_) (letrec ((_%loop27072761%_ @@ -932,20 +932,20 @@ _%body27112768%_)))) (let ((_%body27122781%_ (reverse _%body27112768%_))) - (_%__kont1863518636%_ + (_%__kont1867118672%_ _%body27122781%_ _%tl27032752%_ _%hd27022749%_ _%hd26962729%_)))))) (_%loop27072761%_ _%target27042755%_ '())))) - (_%__match1866118662%_ + (_%__match1869718698%_ (lambda (_%e26762826%_ _%hd26772830%_ _%tl26782833%_ _%e26792836%_ _%hd26802840%_ _%tl26812843%_ - _%__splice1863318634%_ + _%__splice1866918670%_ _%target26822846%_ _%tl26842849%_) (letrec ((_%loop26852852%_ @@ -967,11 +967,11 @@ _%body26892859%_)))) (let ((_%body26902872%_ (reverse _%body26892859%_))) - (_%__kont1863118632%_ + (_%__kont1866718668%_ _%body26902872%_)))))) (_%loop26852852%_ _%target26822846%_ '()))))) - (if (gx#stx-pair? _%__stx1862818629%_) - (let ((_%e26762826%_ (gx#syntax-e _%__stx1862818629%_))) + (if (gx#stx-pair? _%__stx1866418665%_) + (let ((_%e26762826%_ (gx#syntax-e _%__stx1866418665%_))) (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 ((_%__splice1863318634%_ + (let ((_%__splice1866918670%_ (gx#syntax-split-splice _%tl26812843%_ '0))) @@ -998,23 +998,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1863318634%_ + _%__splice1866918670%_ '1))) (_%target26822846%_ (let () (declare (not safe)) (##vector-ref - _%__splice1863318634%_ + _%__splice1866918670%_ '0)))) (if (gx#stx-null? _%tl26842849%_) - (_%__match1866118662%_ + (_%__match1869718698%_ _%e26762826%_ _%hd26772830%_ _%tl26782833%_ _%e26792836%_ _%hd26802840%_ _%tl26812843%_ - _%__splice1863318634%_ + _%__splice1866918670%_ _%target26822846%_ _%tl26842849%_) (let () @@ -1036,7 +1036,7 @@ (##car _%e27012745%_)))) (if (gx#stx-pair/null? _%tl26812843%_) - (let ((_%__splice1863718638%_ + (let ((_%__splice1867318674%_ (gx#syntax-split-splice _%tl26812843%_ '0))) @@ -1044,17 +1044,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1863718638%_ + _%__splice1867318674%_ '1))) (_%target27042755%_ (let () (declare (not safe)) (##vector-ref - _%__splice1863718638%_ + _%__splice1867318674%_ '0)))) (if (gx#stx-null? _%tl27062758%_) - (_%__match1868718688%_ + (_%__match1872318724%_ _%e26762826%_ _%hd26772830%_ _%tl26782833%_ @@ -1064,7 +1064,7 @@ _%e27012745%_ _%hd27022749%_ _%tl27032752%_ - _%__splice1863718638%_ + _%__splice1867318674%_ _%target27042755%_ _%tl27062758%_) (let () @@ -1080,14 +1080,14 @@ (let () (declare (not safe)) (_%g26732718%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let| (lambda (_%$stx2907%_) - (let* ((_%__stx1869018691%_ _%$stx2907%_) + (let* ((_%__stx1872618727%_ _%$stx2907%_) (_%g29122976%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1869018691%_)))) - (let ((_%__kont1869318694%_ + _%__stx1872618727%_)))) + (let ((_%__kont1872918730%_ (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%_)))) - (_%__kont1869918700%_ + (_%__kont1873518736%_ (lambda (_%L3033%_ _%L3035%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let-values) @@ -1123,14 +1123,14 @@ _%g30533058%_)) '() _%L3033%_))))))) - (let* ((_%__match1874718748%_ + (let* ((_%__match1878318784%_ (lambda (_%e29562983%_ _%hd29572987%_ _%tl29582990%_ _%e29592993%_ _%hd29602997%_ _%tl29613000%_ - _%__splice1870118702%_ + _%__splice1873718738%_ _%target29623003%_ _%tl29643006%_) (letrec ((_%loop29653009%_ @@ -1152,11 +1152,11 @@ _%body29693016%_)))) (let ((_%body29703029%_ (reverse _%body29693016%_))) - (_%__kont1869918700%_ + (_%__kont1873518736%_ _%body29703029%_ _%hd29602997%_)))))) (_%loop29653009%_ _%target29623003%_ '())))) - (_%__match1873918740%_ + (_%__match1877518776%_ (lambda (_%e29562983%_ _%hd29572987%_ _%tl29582990%_ @@ -1164,34 +1164,34 @@ _%hd29602997%_ _%tl29613000%_) (if (gx#stx-pair/null? _%tl29613000%_) - (let ((_%__splice1870118702%_ + (let ((_%__splice1873718738%_ (gx#syntax-split-splice _%tl29613000%_ '0))) (let ((_%tl29643006%_ (let () (declare (not safe)) - (##vector-ref _%__splice1870118702%_ '1))) + (##vector-ref _%__splice1873718738%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1873718738%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1874718748%_ + (_%__match1878318784%_ _%e29562983%_ _%hd29572987%_ _%tl29582990%_ _%e29592993%_ _%hd29602997%_ _%tl29613000%_ - _%__splice1870118702%_ + _%__splice1873718738%_ _%target29623003%_ _%tl29643006%_) (let () (declare (not safe)) (_%g29122976%_))))) (let () (declare (not safe)) (_%g29122976%_))))) - (_%__match1872718728%_ + (_%__match1876318764%_ (lambda (_%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1201,7 +1201,7 @@ _%e29253088%_ _%hd29263092%_ _%tl29273095%_ - _%__splice1869518696%_ + _%__splice1873118732%_ _%target29283098%_ _%tl29303101%_) (letrec ((_%loop29313104%_ @@ -1248,14 +1248,14 @@ _%lp-tl29343123%_ (cons _%hd29523140%_ _%arg29353111%_) (cons _%hd29493130%_ _%var29363113%_)) - (_%__match1873918740%_ + (_%__match1877518776%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_)))) - (_%__match1873918740%_ + (_%__match1877518776%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1263,7 +1263,7 @@ _%hd29233082%_ _%tl29243085%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1873918740%_ + (_%__match1877518776%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1275,7 +1275,7 @@ (_%arg29373146%_ (reverse _%arg29353111%_))) (if (gx#stx-pair/null? _%tl29273095%_) - (let ((_%__splice1869718698%_ + (let ((_%__splice1873318734%_ (gx#syntax-split-splice _%tl29273095%_ '0))) @@ -1283,13 +1283,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1869718698%_ + _%__splice1873318734%_ '1))) (_%target29393152%_ (let () (declare (not safe)) (##vector-ref - _%__splice1869718698%_ + _%__splice1873318734%_ '0)))) (if (gx#stx-null? _%tl29413155%_) @@ -1318,13 +1318,13 @@ (_%L3186%_ _%var29383149%_) (_%L3187%_ _%hd29233082%_)) (if (gx#identifier? _%L3187%_) - (_%__kont1869318694%_ + (_%__kont1872918730%_ _%L3182%_ _%L3184%_ _%L3185%_ _%L3186%_ _%L3187%_) - (_%__match1873918740%_ + (_%__match1877518776%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1333,14 +1333,14 @@ _%tl29243085%_)))))))) (_%loop29423158%_ _%target29393152%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1873918740%_ + (_%__match1877518776%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_)))) - (_%__match1873918740%_ + (_%__match1877518776%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1348,8 +1348,8 @@ _%hd29233082%_ _%tl29243085%_))))))) (_%loop29313104%_ _%target29283098%_ '() '()))))) - (if (gx#stx-pair? _%__stx1869018691%_) - (let ((_%e29193068%_ (gx#syntax-e _%__stx1869018691%_))) + (if (gx#stx-pair? _%__stx1872618727%_) + (let ((_%e29193068%_ (gx#syntax-e _%__stx1872618727%_))) (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 ((_%__splice1869518696%_ + (let ((_%__splice1873118732%_ (gx#syntax-split-splice _%hd29263092%_ '0))) @@ -1386,15 +1386,15 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1869518696%_ + _%__splice1873118732%_ '1))) (_%target29283098%_ (let () (declare (not safe)) (##vector-ref - _%__splice1869518696%_ + _%__splice1873118732%_ '0)))) - (_%__match1872718728%_ + (_%__match1876318764%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1404,12 +1404,12 @@ _%e29253088%_ _%hd29263092%_ _%tl29273095%_ - _%__splice1869518696%_ + _%__splice1873118732%_ _%target29283098%_ _%tl29303101%_))) (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1870118702%_ + (let ((_%__splice1873718738%_ (gx#syntax-split-splice _%tl29243085%_ '0))) @@ -1417,24 +1417,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1873718738%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1873718738%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1874718748%_ + (_%__match1878318784%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_ - _%__splice1870118702%_ + _%__splice1873718738%_ _%target29623003%_ _%tl29643006%_) (let () @@ -1444,7 +1444,7 @@ (declare (not safe)) (_%g29122976%_)))))) (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1870118702%_ + (let ((_%__splice1873718738%_ (gx#syntax-split-splice _%tl29243085%_ '0))) @@ -1452,23 +1452,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1873718738%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1873718738%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1874718748%_ + (_%__match1878318784%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_ - _%__splice1870118702%_ + _%__splice1873718738%_ _%target29623003%_ _%tl29643006%_) (let () @@ -1511,31 +1511,31 @@ (declare (not safe)) (##cdr _%e32553289%_)))) (if (gx#stx-pair/null? _%tl32573296%_) - (let ((_g20865_ + (let ((_g20901_ (gx#syntax-split-splice _%tl32573296%_ '0))) (begin - (let ((_g20866_ + (let ((_g20902_ (let () (declare (not safe)) - (if (##values? _g20865_) + (if (##values? _g20901_) (##vector-length - _g20865_) + _g20901_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20866_ 2))) + (##fx= _g20902_ 2))) (error "Context expects 2 values" - _g20866_))) + _g20902_))) (let ((_%target32583299%_ (let () (declare (not safe)) - (##vector-ref _g20865_ 0))) + (##vector-ref _g20901_ 0))) (_%tl32603302%_ (let () (declare (not safe)) - (##vector-ref _g20865_ 1)))) + (##vector-ref _g20901_ 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 ((_g20867_ + (let ((_g20903_ (gx#syntax-split-splice _%tl33753414%_ '0))) (begin - (let ((_g20868_ + (let ((_g20904_ (let () (declare (not safe)) - (if (##values? _g20867_) + (if (##values? _g20903_) (##vector-length - _g20867_) + _g20903_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20868_ 2))) + (##fx= _g20904_ 2))) (error "Context expects 2 values" - _g20868_))) + _g20904_))) (let ((_%target33763417%_ (let () (declare (not safe)) - (##vector-ref _g20867_ 0))) + (##vector-ref _g20903_ 0))) (_%tl33783420%_ (let () (declare (not safe)) - (##vector-ref _g20867_ 1)))) + (##vector-ref _g20903_ 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 ((_g20869_ + (let ((_g20905_ (gx#syntax-split-splice _%tl34933532%_ '0))) (begin - (let ((_g20870_ + (let ((_g20906_ (let () (declare (not safe)) - (if (##values? _g20869_) + (if (##values? _g20905_) (##vector-length - _g20869_) + _g20905_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20870_ 2))) + (##fx= _g20906_ 2))) (error "Context expects 2 values" - _g20870_))) + _g20906_))) (let ((_%target34943535%_ (let () (declare (not safe)) - (##vector-ref _g20869_ 0))) + (##vector-ref _g20905_ 0))) (_%tl34963538%_ (let () (declare (not safe)) - (##vector-ref _g20869_ 1)))) + (##vector-ref _g20905_ 1)))) (if (gx#stx-null? _%tl34963538%_) (letrec ((_%loop34973541%_ (lambda (_%hd34953545%_ @@ -1777,21 +1777,21 @@ (lambda (_%stx3598%_) (letrec ((_%let-head?3601%_ (lambda (_%x4081%_) - (let* ((_%__stx1875018751%_ _%x4081%_) + (let* ((_%__stx1878618787%_ _%x4081%_) (_%g40854096%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1875018751%_)))) - (let ((_%__kont1875318754%_ + _%__stx1878618787%_)))) + (let ((_%__kont1878918790%_ (lambda (_%L4124%_) (gx#stx-andmap gx#identifier? _%L4124%_))) - (_%__kont1875518756%_ + (_%__kont1879118792%_ (lambda () (gx#identifier? _%x4081%_)))) - (if (gx#stx-pair? _%__stx1875018751%_) + (if (gx#stx-pair? _%__stx1878618787%_) (let ((_%e40884114%_ - (gx#syntax-e _%__stx1875018751%_))) + (gx#syntax-e _%__stx1878618787%_))) (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]#_g20871_| + |gerbil/core/sugar~Sugar-1[1]#_g20907_| _%hd40894118%_) - (_%__kont1875318754%_ _%tl40904121%_) - (_%__kont1875518756%_)) - (_%__kont1875518756%_)))) - (_%__kont1875518756%_)))))) + (_%__kont1878918790%_ _%tl40904121%_) + (_%__kont1879118792%_)) + (_%__kont1879118792%_)))) + (_%__kont1879118792%_)))))) (_%let-head3603%_ (lambda (_%x4021%_) - (let* ((_%__stx1877018771%_ _%x4021%_) + (let* ((_%__stx1880618807%_ _%x4021%_) (_%g40254036%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1877018771%_)))) - (let ((_%__kont1877318774%_ + _%__stx1880618807%_)))) + (let ((_%__kont1880918810%_ (lambda (_%L4064%_) _%L4064%_)) - (_%__kont1877518776%_ + (_%__kont1881118812%_ (lambda () (list _%x4021%_)))) - (if (gx#stx-pair? _%__stx1877018771%_) + (if (gx#stx-pair? _%__stx1880618807%_) (let ((_%e40284054%_ - (gx#syntax-e _%__stx1877018771%_))) + (gx#syntax-e _%__stx1880618807%_))) (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]#_g20872_| + |gerbil/core/sugar~Sugar-1[1]#_g20908_| _%hd40294058%_) - (_%__kont1877318774%_ _%tl40304061%_) - (_%__kont1877518776%_)) - (_%__kont1877518776%_)))) - (_%__kont1877518776%_))))))) - (let* ((_%__stx1879018791%_ _%stx3598%_) + (_%__kont1880918810%_ _%tl40304061%_) + (_%__kont1881118812%_)) + (_%__kont1881118812%_)))) + (_%__kont1881118812%_))))))) + (let* ((_%__stx1882618827%_ _%stx3598%_) (_%g36063672%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1879018791%_)))) - (let ((_%__kont1879318794%_ + _%__stx1882618827%_)))) + (let ((_%__kont1882918830%_ (lambda (_%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) (cons _%L3995%_ (cons _%L3994%_ @@ -1855,7 +1855,7 @@ (cons _%L3992%_ '())) '()) _%L3990%_))))) - (_%__kont1879518796%_ + (_%__kont1883118832%_ (lambda (_%L3793%_ _%L3795%_ _%L3796%_ _%L3797%_) (let* ((_%g38323849%_ (lambda (_%g38333845%_) @@ -1866,30 +1866,30 @@ (_%g38313921%_ (lambda (_%g38333853%_) (if (gx#stx-pair/null? _%g38333853%_) - (let ((_g20873_ + (let ((_g20909_ (gx#syntax-split-splice _%g38333853%_ '0))) (begin - (let ((_g20874_ + (let ((_g20910_ (let () (declare (not safe)) - (if (##values? _g20873_) - (##vector-length _g20873_) + (if (##values? _g20909_) + (##vector-length _g20909_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20874_ 2))) + (##fx= _g20910_ 2))) (error "Context expects 2 values" - _g20874_))) + _g20910_))) (let ((_%target38353856%_ (let () (declare (not safe)) - (##vector-ref _g20873_ 0))) + (##vector-ref _g20909_ 0))) (_%tl38373859%_ (let () (declare (not safe)) - (##vector-ref _g20873_ 1)))) + (##vector-ref _g20909_ 1)))) (if (gx#stx-null? _%tl38373859%_) (letrec ((_%loop38383862%_ (lambda (_%hd38363866%_ @@ -1949,7 +1949,7 @@ (cons _%g39243927%_ _%g39253930%_)) '() _%L3796%_))))))) - (let* ((_%__match1885918860%_ + (let* ((_%__match1889518896%_ (lambda (_%e36323679%_ _%hd36333683%_ _%tl36343686%_ @@ -1959,7 +1959,7 @@ _%e36383699%_ _%hd36393703%_ _%tl36403706%_ - _%__splice1879718798%_ + _%__splice1883318834%_ _%target36413709%_ _%tl36433712%_) (letrec ((_%loop36443715%_ @@ -2017,7 +2017,7 @@ (reverse _%e36483722%_))) (if (gx#stx-pair/null? _%tl36403706%_) - (let ((_%__splice1879918800%_ + (let ((_%__splice1883518836%_ (gx#syntax-split-splice _%tl36403706%_ '0))) @@ -2025,13 +2025,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1879918800%_ + _%__splice1883518836%_ '1))) (_%target36523763%_ (let () (declare (not safe)) (##vector-ref - _%__splice1879918800%_ + _%__splice1883518836%_ '0)))) (if (gx#stx-null? _%tl36543766%_) @@ -2067,7 +2067,7 @@ _%g38243829%_)) '() _%L3796%_)) - (_%__kont1879518796%_ + (_%__kont1883118832%_ _%L3793%_ _%L3795%_ _%L3796%_ @@ -2082,7 +2082,7 @@ (declare (not safe)) (_%g36063672%_)))))))) (_%loop36443715%_ _%target36413709%_ '() '())))) - (_%__match1883318834%_ + (_%__match1886918870%_ (lambda (_%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2104,14 +2104,14 @@ (_%L3994%_ _%hd36173954%_) (_%L3995%_ _%hd36143944%_)) (if (_%let-head?3601%_ _%L3993%_) - (_%__kont1879318794%_ + (_%__kont1882918830%_ _%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1883318834%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2119,16 +2119,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1883318834%_ '1))) (_%target36413709%_ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1883318834%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1889518896%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2138,7 +2138,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1883318834%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2147,8 +2147,8 @@ (let () (declare (not safe)) (_%g36063672%_)))))))) - (if (gx#stx-pair? _%__stx1879018791%_) - (let ((_%e36133940%_ (gx#syntax-e _%__stx1879018791%_))) + (if (gx#stx-pair? _%__stx1882618827%_) + (let ((_%e36133940%_ (gx#syntax-e _%__stx1882618827%_))) (let ((_%tl36153947%_ (let () (declare (not safe)) @@ -2204,7 +2204,7 @@ (_%hd36263984%_ (let () (declare (not safe)) (##car _%e36253980%_)))) (if (gx#stx-null? _%tl36273987%_) - (_%__match1883318834%_ + (_%__match1886918870%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2221,18 +2221,18 @@ _%hd36263984%_ _%tl36273987%_) (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1883318834%_ (gx#syntax-split-splice _%hd36203964%_ '0))) (let ((_%tl36433712%_ (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '1))) + (##vector-ref _%__splice1883318834%_ '1))) (_%target36413709%_ (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '0)))) + (##vector-ref _%__splice1883318834%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1889518896%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2242,7 +2242,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1883318834%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2252,7 +2252,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1883318834%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2260,13 +2260,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '1))) + (##vector-ref _%__splice1883318834%_ '1))) (_%target36413709%_ (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '0)))) + (##vector-ref _%__splice1883318834%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1889518896%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2276,7 +2276,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1883318834%_ _%target36413709%_ _%tl36433712%_) (let () (declare (not safe)) (_%g36063672%_))))) @@ -2284,7 +2284,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1883318834%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2292,17 +2292,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1883318834%_ '1))) (_%target36413709%_ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1883318834%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1889518896%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2312,7 +2312,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1883318834%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2328,29 +2328,29 @@ (let () (declare (not safe)) (_%g36063672%_))))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#and| (lambda (_%$stx4144%_) - (let* ((_%__stx1886218863%_ _%$stx4144%_) + (let* ((_%__stx1889818899%_ _%$stx4144%_) (_%g41504176%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1886218863%_)))) - (let ((_%__kont1886518866%_ (lambda () '#t)) - (_%__kont1886718868%_ (lambda (_%L4248%_) _%L4248%_)) - (_%__kont1886918870%_ + _%__stx1889818899%_)))) + (let ((_%__kont1890118902%_ (lambda () '#t)) + (_%__kont1890318904%_ (lambda (_%L4248%_) _%L4248%_)) + (_%__kont1890518906%_ (lambda (_%L4203%_ _%L4205%_ _%L4206%_) (cons (gx#datum->syntax '#f 'if) (cons _%L4205%_ (cons (cons _%L4206%_ _%L4203%_) (cons '#f '()))))))) - (if (gx#stx-pair? _%__stx1886218863%_) - (let ((_%e41524268%_ (gx#syntax-e _%__stx1886218863%_))) + (if (gx#stx-pair? _%__stx1889818899%_) + (let ((_%e41524268%_ (gx#syntax-e _%__stx1889818899%_))) (let ((_%tl41544275%_ (let () (declare (not safe)) (##cdr _%e41524268%_))) (_%hd41534272%_ (let () (declare (not safe)) (##car _%e41524268%_)))) (if (gx#stx-null? _%tl41544275%_) - (_%__kont1886518866%_) + (_%__kont1890118902%_) (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%_) - (_%__kont1886718868%_ _%hd41604242%_) - (_%__kont1886918870%_ + (_%__kont1890318904%_ _%hd41604242%_) + (_%__kont1890518906%_ _%tl41614245%_ _%hd41604242%_ _%hd41534272%_)))) @@ -2371,16 +2371,16 @@ (let () (declare (not safe)) (_%g41504176%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#or| (lambda (_%$stx4286%_) - (let* ((_%__stx1890818909%_ _%$stx4286%_) + (let* ((_%__stx1894418945%_ _%$stx4286%_) (_%g42924318%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1890818909%_)))) - (let ((_%__kont1891118912%_ (lambda () '#f)) - (_%__kont1891318914%_ (lambda (_%L4390%_) _%L4390%_)) - (_%__kont1891518916%_ + _%__stx1894418945%_)))) + (let ((_%__kont1894718948%_ (lambda () '#f)) + (_%__kont1894918950%_ (lambda (_%L4390%_) _%L4390%_)) + (_%__kont1895118952%_ (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? _%__stx1890818909%_) - (let ((_%e42944410%_ (gx#syntax-e _%__stx1890818909%_))) + (if (gx#stx-pair? _%__stx1894418945%_) + (let ((_%e42944410%_ (gx#syntax-e _%__stx1894418945%_))) (let ((_%tl42964417%_ (let () (declare (not safe)) (##cdr _%e42944410%_))) (_%hd42954414%_ (let () (declare (not safe)) (##car _%e42944410%_)))) (if (gx#stx-null? _%tl42964417%_) - (_%__kont1891118912%_) + (_%__kont1894718948%_) (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%_) - (_%__kont1891318914%_ _%hd43024384%_) - (_%__kont1891518916%_ + (_%__kont1894918950%_ _%hd43024384%_) + (_%__kont1895118952%_ _%tl43034387%_ _%hd43024384%_ _%hd42954414%_)))) @@ -2424,15 +2424,15 @@ (let () (declare (not safe)) (_%g42924318%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#cond| (lambda (_%$stx4428%_) - (let* ((_%__stx1895418955%_ _%$stx4428%_) + (let* ((_%__stx1899018991%_ _%$stx4428%_) (_%g44374528%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1895418955%_)))) - (let ((_%__kont1895718958%_ (lambda () '#!void)) - (_%__kont1895918960%_ + _%__stx1899018991%_)))) + (let ((_%__kont1899318994%_ (lambda () '#!void)) + (_%__kont1899518996%_ (lambda (_%L4875%_) (cons (gx#datum->syntax '#f 'let) (cons '() @@ -2440,11 +2440,11 @@ (cons _%g48944897%_ _%g48954900%_)) '() _%L4875%_))))) - (_%__kont1896318964%_ + (_%__kont1899919000%_ (lambda () (cons (gx#datum->syntax '#f 'syntax-error) (cons '"bad syntax; misplaced else" '())))) - (_%__kont1896518966%_ + (_%__kont1900119002%_ (lambda (_%L4748%_ _%L4750%_ _%L4751%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2460,7 +2460,7 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1896718968%_ + (_%__kont1900319004%_ (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%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1896918970%_ + (_%__kont1900519006%_ (lambda (_%L4595%_ _%L4597%_ _%L4598%_ _%L4599%_) (cons (gx#datum->syntax '#f 'if) (cons _%L4598%_ @@ -2491,7 +2491,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons _%L4599%_ _%L4595%_) '()))))))) - (let* ((_%__match1911519116%_ + (let* ((_%__match1915119152%_ (lambda (_%e45054535%_ _%hd45064539%_ _%tl45074542%_ @@ -2501,7 +2501,7 @@ _%e45114555%_ _%hd45124559%_ _%tl45134562%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (letrec ((_%loop45174571%_ @@ -2523,13 +2523,13 @@ _%body45214578%_)))) (let ((_%body45224591%_ (reverse _%body45214578%_))) - (_%__kont1896918970%_ + (_%__kont1900519006%_ _%tl45104552%_ _%body45224591%_ _%hd45124559%_ _%hd45064539%_)))))) (_%loop45174571%_ _%target45144565%_ '())))) - (_%__match1901119012%_ + (_%__match1904719048%_ (lambda (_%e44434815%_ _%hd44444819%_ _%tl44454822%_ @@ -2539,7 +2539,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1896118962%_ + _%__splice1899718998%_ _%target44524845%_ _%tl44544848%_) (letrec ((_%loop44554851%_ @@ -2562,12 +2562,12 @@ (let ((_%body44604871%_ (reverse _%body44594858%_))) (if (gx#stx-null? _%tl44484832%_) - (_%__kont1895918960%_ + (_%__kont1899518996%_ _%body44604871%_) - (_%__kont1896318964%_))))))) + (_%__kont1899919000%_))))))) (_%loop44554851%_ _%target44524845%_ '()))))) - (if (gx#stx-pair? _%__stx1895418955%_) - (let ((_%e44394910%_ (gx#syntax-e _%__stx1895418955%_))) + (if (gx#stx-pair? _%__stx1899018991%_) + (let ((_%e44394910%_ (gx#syntax-e _%__stx1899018991%_))) (let ((_%tl44414917%_ (let () (declare (not safe)) (##cdr _%e44394910%_))) (_%hd44404914%_ @@ -2575,7 +2575,7 @@ (declare (not safe)) (##car _%e44394910%_)))) (if (gx#stx-null? _%tl44414917%_) - (_%__kont1895718958%_) + (_%__kont1899318994%_) (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]#_g20875_| + |gerbil/core/sugar~Sugar-1[1]#_g20911_| _%hd44504839%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1896118962%_ + (let ((_%__splice1899718998%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2612,13 +2612,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1896118962%_ '1))) + (##vector-ref _%__splice1899718998%_ '1))) (_%target44524845%_ (let () (declare (not safe)) - (##vector-ref _%__splice1896118962%_ '0)))) + (##vector-ref _%__splice1899718998%_ '0)))) (if (gx#stx-null? _%tl44544848%_) - (_%__match1901119012%_ + (_%__match1904719048%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2628,15 +2628,15 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1896118962%_ + _%__splice1899718998%_ _%target44524845%_ _%tl44544848%_) - (_%__kont1896318964%_)))) - (_%__kont1896318964%_)) + (_%__kont1899919000%_)))) + (_%__kont1899919000%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _%tl44514842%_) - (_%__kont1896518966%_ + (_%__kont1900119002%_ _%tl44484832%_ _%hd44504839%_ _%hd44404914%_) @@ -2653,7 +2653,7 @@ (##car _%e44954666%_)))) (if (gx#identifier? _%hd44964670%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20876_| + |gerbil/core/sugar~Sugar-1[1]#_g20912_| _%hd44964670%_) (if (gx#stx-pair? _%tl44974673%_) (let ((_%e44984676%_ @@ -2667,14 +2667,14 @@ (declare (not safe)) (##car _%e44984676%_)))) (if (gx#stx-null? _%tl45004683%_) - (_%__kont1896718968%_ + (_%__kont1900319004%_ _%tl44484832%_ _%hd44994680%_ _%hd44504839%_ _%hd44404914%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2682,17 +2682,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2702,7 +2702,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2712,7 +2712,7 @@ (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2720,16 +2720,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2739,7 +2739,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2749,7 +2749,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2757,16 +2757,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2776,7 +2776,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2786,7 +2786,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2794,16 +2794,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2813,7 +2813,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2821,18 +2821,18 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '1))) + (##vector-ref _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '0)))) + (##vector-ref _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2842,14 +2842,14 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () (declare (not safe)) (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _%tl44514842%_) - (_%__kont1896518966%_ + (_%__kont1900119002%_ _%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]#_g20876_| + |gerbil/core/sugar~Sugar-1[1]#_g20912_| _%hd44964670%_) (if (gx#stx-pair? _%tl44974673%_) (let ((_%e44984676%_ @@ -2881,13 +2881,13 @@ (declare (not safe)) (##car _%e44984676%_)))) (if (gx#stx-null? _%tl45004683%_) - (_%__kont1896718968%_ + (_%__kont1900319004%_ _%tl44484832%_ _%hd44994680%_ _%hd44504839%_ _%hd44404914%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2895,16 +2895,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2914,7 +2914,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2924,7 +2924,7 @@ (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2932,16 +2932,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2951,7 +2951,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2961,7 +2961,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2969,16 +2969,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2988,7 +2988,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2996,20 +2996,20 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '1))) + (##vector-ref _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -3019,7 +3019,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () @@ -3027,18 +3027,18 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1900719008%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '1))) + (##vector-ref _%__splice1900719008%_ '1))) (_%target45144565%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '0)))) + (##vector-ref _%__splice1900719008%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1915119152%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -3048,7 +3048,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1900719008%_ _%target45144565%_ _%tl45164568%_) (let () (declare (not safe)) (_%g44374528%_))))) @@ -3061,309 +3061,351 @@ (let () (declare (not safe)) (_%g44374528%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#when| (lambda (_%$stx4930%_) - (let* ((_%g49344958%_ - (lambda (_%g49354954%_) + (let* ((_%g49344962%_ + (lambda (_%g49354958%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g49354954%_))) - (_%g49335043%_ - (lambda (_%g49354962%_) - (if (gx#stx-pair? _%g49354962%_) - (let ((_%e49384965%_ (gx#syntax-e _%g49354962%_))) - (let ((_%hd49394969%_ + _%g49354958%_))) + (_%g49335061%_ + (lambda (_%g49354966%_) + (if (gx#stx-pair? _%g49354966%_) + (let ((_%e49394969%_ (gx#syntax-e _%g49354966%_))) + (let ((_%hd49404973%_ (let () (declare (not safe)) - (##car _%e49384965%_))) - (_%tl49404972%_ + (##car _%e49394969%_))) + (_%tl49414976%_ (let () (declare (not safe)) - (##cdr _%e49384965%_)))) - (if (gx#stx-pair? _%tl49404972%_) - (let ((_%e49414975%_ - (gx#syntax-e _%tl49404972%_))) - (let ((_%hd49424979%_ + (##cdr _%e49394969%_)))) + (if (gx#stx-pair? _%tl49414976%_) + (let ((_%e49424979%_ + (gx#syntax-e _%tl49414976%_))) + (let ((_%hd49434983%_ (let () (declare (not safe)) - (##car _%e49414975%_))) - (_%tl49434982%_ + (##car _%e49424979%_))) + (_%tl49444986%_ (let () (declare (not safe)) - (##cdr _%e49414975%_)))) - (if (gx#stx-pair/null? _%tl49434982%_) - (let ((_g20877_ - (gx#syntax-split-splice - _%tl49434982%_ - '0))) - (begin - (let ((_g20878_ - (let () - (declare (not safe)) - (if (##values? _g20877_) - (##vector-length - _g20877_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20878_ 2))) - (error "Context expects 2 values" - _g20878_))) - (let ((_%target49444985%_ - (let () - (declare (not safe)) - (##vector-ref _g20877_ 0))) - (_%tl49464988%_ - (let () - (declare (not safe)) - (##vector-ref _g20877_ 1)))) - (if (gx#stx-null? _%tl49464988%_) - (letrec ((_%loop49474991%_ - (lambda (_%hd49454995%_ + (##cdr _%e49424979%_)))) + (if (gx#stx-pair? _%tl49444986%_) + (let ((_%e49454989%_ + (gx#syntax-e _%tl49444986%_))) + (let ((_%hd49464993%_ + (let () + (declare (not safe)) + (##car _%e49454989%_))) + (_%tl49474996%_ + (let () + (declare (not safe)) + (##cdr _%e49454989%_)))) + (if (gx#stx-pair/null? + _%tl49474996%_) + (let ((_g20913_ + (gx#syntax-split-splice + _%tl49474996%_ + '0))) + (begin + (let ((_g20914_ + (let () + (declare (not safe)) + (if (##values? + _g20913_) + (##vector-length + _g20913_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr49514998%_) - (if (gx#stx-pair? _%hd49454995%_) - (let ((_%e49485001%_ (gx#syntax-e _%hd49454995%_))) - (let ((_%lp-hd49495005%_ - (let () - (declare (not safe)) - (##car _%e49485001%_))) - (_%lp-tl49505008%_ - (let () - (declare (not safe)) - (##cdr _%e49485001%_)))) - (_%loop49474991%_ - _%lp-tl49505008%_ - (cons _%lp-hd49495005%_ _%expr49514998%_)))) - (let ((_%expr49525011%_ (reverse _%expr49514998%_))) - ((lambda (_%L5015%_ _%L5017%_) - (cons (gx#datum->syntax '#f 'if) - (cons _%L5017%_ - (cons (cons (gx#datum->syntax - '#f - 'begin) - (foldr (lambda (_%g50345037%_ + (not safe)) + (##fx= _g20914_ 2))) + (error "Context expects 2 values" _g20914_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target49484999%_ + (let () + (declare (not safe)) + (##vector-ref + _g20913_ + 0))) + (_%tl49505002%_ + (let () + (declare (not safe)) + (##vector-ref + _g20913_ + 1)))) + (if (gx#stx-null? + _%tl49505002%_) + (letrec ((_%loop49515005%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd49495009%_ _%rest49555012%_) + (if (gx#stx-pair? _%hd49495009%_) + (let ((_%e49525015%_ + (gx#syntax-e _%hd49495009%_))) + (let ((_%lp-hd49535019%_ + (let () + (declare (not safe)) + (##car _%e49525015%_))) + (_%lp-tl49545022%_ + (let () + (declare (not safe)) + (##cdr _%e49525015%_)))) + (_%loop49515005%_ + _%lp-tl49545022%_ + (cons _%lp-hd49535019%_ + _%rest49555012%_)))) + (let ((_%rest49565025%_ + (reverse _%rest49555012%_))) + ((lambda (_%L5029%_ _%L5031%_ _%L5032%_) + (cons (gx#datum->syntax '#f 'if) + (cons _%L5032%_ + (cons (cons (gx#datum->syntax + '#f + 'begin) + (cons _%L5031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g50355040%_) - (cons _%g50345037%_ _%g50355040%_)) - '() - _%L5015%_)) + (foldr (lambda (_%g50525055%_ _%g50535058%_) + (cons _%g50525055%_ _%g50535058%_)) + '() + _%L5029%_))) + (cons '#!void '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons '#!void '()))))) - _%expr49525011%_ - _%hd49424979%_)))))) + _%rest49565025%_ + _%hd49464993%_ + _%hd49434983%_)))))) + (_%loop49515005%_ _%target49484999%_ '())) + (_%g49344962%_ _%g49354966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop49474991%_ - _%target49444985%_ - '())) - (_%g49344958%_ - _%g49354962%_))))) - (_%g49344958%_ _%g49354962%_)))) - (_%g49344958%_ _%g49354962%_)))) - (_%g49344958%_ _%g49354962%_))))) - (_%g49335043%_ _%$stx4930%_)))) + (_%g49344962%_ _%g49354966%_)))) + (_%g49344962%_ _%g49354966%_)))) + (_%g49344962%_ _%g49354966%_)))) + (_%g49344962%_ _%g49354966%_))))) + (_%g49335061%_ _%$stx4930%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#unless| - (lambda (_%$stx5048%_) - (let* ((_%g50525076%_ - (lambda (_%g50535072%_) + (lambda (_%$stx5066%_) + (let* ((_%g50705098%_ + (lambda (_%g50715094%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g50535072%_))) - (_%g50515161%_ - (lambda (_%g50535080%_) - (if (gx#stx-pair? _%g50535080%_) - (let ((_%e50565083%_ (gx#syntax-e _%g50535080%_))) - (let ((_%hd50575087%_ + _%g50715094%_))) + (_%g50695197%_ + (lambda (_%g50715102%_) + (if (gx#stx-pair? _%g50715102%_) + (let ((_%e50755105%_ (gx#syntax-e _%g50715102%_))) + (let ((_%hd50765109%_ (let () (declare (not safe)) - (##car _%e50565083%_))) - (_%tl50585090%_ + (##car _%e50755105%_))) + (_%tl50775112%_ (let () (declare (not safe)) - (##cdr _%e50565083%_)))) - (if (gx#stx-pair? _%tl50585090%_) - (let ((_%e50595093%_ - (gx#syntax-e _%tl50585090%_))) - (let ((_%hd50605097%_ + (##cdr _%e50755105%_)))) + (if (gx#stx-pair? _%tl50775112%_) + (let ((_%e50785115%_ + (gx#syntax-e _%tl50775112%_))) + (let ((_%hd50795119%_ (let () (declare (not safe)) - (##car _%e50595093%_))) - (_%tl50615100%_ + (##car _%e50785115%_))) + (_%tl50805122%_ (let () (declare (not safe)) - (##cdr _%e50595093%_)))) - (if (gx#stx-pair/null? _%tl50615100%_) - (let ((_g20879_ - (gx#syntax-split-splice - _%tl50615100%_ - '0))) - (begin - (let ((_g20880_ - (let () - (declare (not safe)) - (if (##values? _g20879_) - (##vector-length - _g20879_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20880_ 2))) - (error "Context expects 2 values" - _g20880_))) - (let ((_%target50625103%_ - (let () - (declare (not safe)) - (##vector-ref _g20879_ 0))) - (_%tl50645106%_ - (let () - (declare (not safe)) - (##vector-ref _g20879_ 1)))) - (if (gx#stx-null? _%tl50645106%_) - (letrec ((_%loop50655109%_ - (lambda (_%hd50635113%_ + (##cdr _%e50785115%_)))) + (if (gx#stx-pair? _%tl50805122%_) + (let ((_%e50815125%_ + (gx#syntax-e _%tl50805122%_))) + (let ((_%hd50825129%_ + (let () + (declare (not safe)) + (##car _%e50815125%_))) + (_%tl50835132%_ + (let () + (declare (not safe)) + (##cdr _%e50815125%_)))) + (if (gx#stx-pair/null? + _%tl50835132%_) + (let ((_g20915_ + (gx#syntax-split-splice + _%tl50835132%_ + '0))) + (begin + (let ((_g20916_ + (let () + (declare (not safe)) + (if (##values? + _g20915_) + (##vector-length + _g20915_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr50695116%_) - (if (gx#stx-pair? _%hd50635113%_) - (let ((_%e50665119%_ (gx#syntax-e _%hd50635113%_))) - (let ((_%lp-hd50675123%_ - (let () - (declare (not safe)) - (##car _%e50665119%_))) - (_%lp-tl50685126%_ - (let () - (declare (not safe)) - (##cdr _%e50665119%_)))) - (_%loop50655109%_ - _%lp-tl50685126%_ - (cons _%lp-hd50675123%_ _%expr50695116%_)))) - (let ((_%expr50705129%_ (reverse _%expr50695116%_))) - ((lambda (_%L5133%_ _%L5135%_) - (cons (gx#datum->syntax '#f 'if) - (cons _%L5135%_ - (cons '#!void - (cons (cons (gx#datum->syntax - '#f - 'begin) - (foldr (lambda (_%g51525155%_ + (not safe)) + (##fx= _g20916_ 2))) + (error "Context expects 2 values" _g20916_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target50845135%_ + (let () + (declare (not safe)) + (##vector-ref + _g20915_ + 0))) + (_%tl50865138%_ + (let () + (declare (not safe)) + (##vector-ref + _g20915_ + 1)))) + (if (gx#stx-null? + _%tl50865138%_) + (letrec ((_%loop50875141%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g51535158%_) - (cons _%g51525155%_ _%g51535158%_)) - '() - _%L5133%_)) + (lambda (_%hd50855145%_ _%rest50915148%_) + (if (gx#stx-pair? _%hd50855145%_) + (let ((_%e50885151%_ + (gx#syntax-e _%hd50855145%_))) + (let ((_%lp-hd50895155%_ + (let () + (declare (not safe)) + (##car _%e50885151%_))) + (_%lp-tl50905158%_ + (let () + (declare (not safe)) + (##cdr _%e50885151%_)))) + (_%loop50875141%_ + _%lp-tl50905158%_ + (cons _%lp-hd50895155%_ + _%rest50915148%_)))) + (let ((_%rest50925161%_ + (reverse _%rest50915148%_))) + ((lambda (_%L5165%_ _%L5167%_ _%L5168%_) + (cons (gx#datum->syntax '#f 'if) + (cons _%L5168%_ + (cons '#!void + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'begin) + (cons _%L5167%_ + (foldr (lambda (_%g51885191%_ _%g51895194%_) + (cons _%g51885191%_ _%g51895194%_)) + '() + _%L5165%_))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%expr50705129%_ - _%hd50605097%_)))))) + _%rest50925161%_ + _%hd50825129%_ + _%hd50795119%_)))))) + (_%loop50875141%_ _%target50845135%_ '())) + (_%g50705098%_ _%g50715102%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop50655109%_ - _%target50625103%_ - '())) - (_%g50525076%_ - _%g50535080%_))))) - (_%g50525076%_ _%g50535080%_)))) - (_%g50525076%_ _%g50535080%_)))) - (_%g50525076%_ _%g50535080%_))))) - (_%g50515161%_ _%$stx5048%_)))) + (_%g50705098%_ _%g50715102%_)))) + (_%g50705098%_ _%g50715102%_)))) + (_%g50705098%_ _%g50715102%_)))) + (_%g50705098%_ _%g50715102%_))))) + (_%g50695197%_ _%$stx5066%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#syntax-error| - (lambda (_%stx5166%_) - (let* ((_%g51695193%_ - (lambda (_%g51705189%_) + (lambda (_%stx5202%_) + (let* ((_%g52055229%_ + (lambda (_%g52065225%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g51705189%_))) - (_%g51685278%_ - (lambda (_%g51705197%_) - (if (gx#stx-pair? _%g51705197%_) - (let ((_%e51735200%_ (gx#syntax-e _%g51705197%_))) - (let ((_%hd51745204%_ + _%g52065225%_))) + (_%g52045314%_ + (lambda (_%g52065233%_) + (if (gx#stx-pair? _%g52065233%_) + (let ((_%e52095236%_ (gx#syntax-e _%g52065233%_))) + (let ((_%hd52105240%_ (let () (declare (not safe)) - (##car _%e51735200%_))) - (_%tl51755207%_ + (##car _%e52095236%_))) + (_%tl52115243%_ (let () (declare (not safe)) - (##cdr _%e51735200%_)))) - (if (gx#stx-pair? _%tl51755207%_) - (let ((_%e51765210%_ - (gx#syntax-e _%tl51755207%_))) - (let ((_%hd51775214%_ + (##cdr _%e52095236%_)))) + (if (gx#stx-pair? _%tl52115243%_) + (let ((_%e52125246%_ + (gx#syntax-e _%tl52115243%_))) + (let ((_%hd52135250%_ (let () (declare (not safe)) - (##car _%e51765210%_))) - (_%tl51785217%_ + (##car _%e52125246%_))) + (_%tl52145253%_ (let () (declare (not safe)) - (##cdr _%e51765210%_)))) - (if (gx#stx-pair/null? _%tl51785217%_) - (let ((_g20881_ + (##cdr _%e52125246%_)))) + (if (gx#stx-pair/null? _%tl52145253%_) + (let ((_g20917_ (gx#syntax-split-splice - _%tl51785217%_ + _%tl52145253%_ '0))) (begin - (let ((_g20882_ + (let ((_g20918_ (let () (declare (not safe)) - (if (##values? _g20881_) + (if (##values? _g20917_) (##vector-length - _g20881_) + _g20917_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20882_ 2))) + (##fx= _g20918_ 2))) (error "Context expects 2 values" - _g20882_))) - (let ((_%target51795220%_ + _g20918_))) + (let ((_%target52155256%_ (let () (declare (not safe)) - (##vector-ref _g20881_ 0))) - (_%tl51815223%_ + (##vector-ref _g20917_ 0))) + (_%tl52175259%_ (let () (declare (not safe)) - (##vector-ref _g20881_ 1)))) - (if (gx#stx-null? _%tl51815223%_) - (letrec ((_%loop51825226%_ - (lambda (_%hd51805230%_ + (##vector-ref _g20917_ 1)))) + (if (gx#stx-null? _%tl52175259%_) + (letrec ((_%loop52185262%_ + (lambda (_%hd52165266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%detail51865233%_) - (if (gx#stx-pair? _%hd51805230%_) - (let ((_%e51835236%_ (gx#syntax-e _%hd51805230%_))) - (let ((_%lp-hd51845240%_ + _%detail52225269%_) + (if (gx#stx-pair? _%hd52165266%_) + (let ((_%e52195272%_ (gx#syntax-e _%hd52165266%_))) + (let ((_%lp-hd52205276%_ (let () (declare (not safe)) - (##car _%e51835236%_))) - (_%lp-tl51855243%_ + (##car _%e52195272%_))) + (_%lp-tl52215279%_ (let () (declare (not safe)) - (##cdr _%e51835236%_)))) - (_%loop51825226%_ - _%lp-tl51855243%_ - (cons _%lp-hd51845240%_ _%detail51865233%_)))) - (let ((_%detail51875246%_ - (reverse _%detail51865233%_))) - ((lambda (_%L5250%_ _%L5252%_) - (if (gx#stx-string? _%L5252%_) + (##cdr _%e52195272%_)))) + (_%loop52185262%_ + _%lp-tl52215279%_ + (cons _%lp-hd52205276%_ _%detail52225269%_)))) + (let ((_%detail52235282%_ + (reverse _%detail52225269%_))) + ((lambda (_%L5286%_ _%L5288%_) + (if (gx#stx-string? _%L5288%_) (apply gx#raise-syntax-error '#f - (gx#stx-e _%L5252%_) - _%stx5166%_ + (gx#stx-e _%L5288%_) + _%stx5202%_ (gx#syntax->list - (foldr (lambda (_%g52695272%_ - _%g52705275%_) - (cons _%g52695272%_ - _%g52705275%_)) + (foldr (lambda (_%g53055308%_ + _%g53065311%_) + (cons _%g53055308%_ + _%g53065311%_)) '() - _%L5250%_))) - (_%g51695193%_ _%g51705197%_))) - _%detail51875246%_ - _%hd51775214%_)))))) + _%L5286%_))) + (_%g52055229%_ _%g52065233%_))) + _%detail52235282%_ + _%hd52135250%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop51825226%_ - _%target51795220%_ + (_%loop52185262%_ + _%target52155256%_ '())) - (_%g51695193%_ - _%g51705197%_))))) - (_%g51695193%_ _%g51705197%_)))) - (_%g51695193%_ _%g51705197%_)))) - (_%g51695193%_ _%g51705197%_))))) - (_%g51685278%_ _%stx5166%_)))))) + (_%g52055229%_ + _%g52065233%_))))) + (_%g52055229%_ _%g52065233%_)))) + (_%g52055229%_ _%g52065233%_)))) + (_%g52055229%_ _%g52065233%_))))) + (_%g52045314%_ _%stx5202%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~2.scm b/src/bootstrap/gerbil/core/sugar~2.scm index 3246afe2b..0de2cb28d 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]#_g20918_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20954_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20919_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20955_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20920_| - (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (define |gerbil/core/sugar~Sugar-2[1]#_g20956_| + (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) + (define |gerbil/core/sugar~Sugar-2[1]#_g20992_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20957_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20993_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20958_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20994_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20965_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21001_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20966_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21002_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20967_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21003_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20968_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21004_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20969_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21005_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20970_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21006_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20971_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21007_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20972_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21008_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20973_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21009_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20974_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21010_| (##structure gx#syntax-quote::t '<...> @@ -99,2105 +99,2105 @@ '())) (begin (define |gerbil/core/sugar~Sugar-2[:0:]#lambda| - (lambda (_%stx5284%_) - (letrec ((_%simple-lambda?5287%_ - (lambda (_%hd8693%_) - (gx#stx-andmap gx#identifier? _%hd8693%_))) - (_%opt-lambda?5289%_ - (lambda (_%hd8545%_) - (let _%lp8548%_ ((_%rest8551%_ _%hd8545%_) - (_%opt?8553%_ '#f)) - (let* ((_%__stx1914219143%_ _%rest8551%_) - (_%g85568568%_ + (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 () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1914219143%_)))) - (let ((_%__kont1914519146%_ - (lambda (_%L8600%_ _%L8602%_) - (let* ((_%__stx1911819119%_ _%L8602%_) - (_%g86188632%_ + _%__stx1917819179%_)))) + (let ((_%__kont1918119182%_ + (lambda (_%L8636%_ _%L8638%_) + (let* ((_%__stx1915419155%_ _%L8638%_) + (_%g86548668%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1911819119%_)))) - (let ((_%__kont1912119122%_ - (lambda (_%L8670%_) - (_%lp8548%_ _%L8600%_ '#t))) - (_%__kont1912319124%_ + _%__stx1915419155%_)))) + (let ((_%__kont1915719158%_ + (lambda (_%L8706%_) + (_%lp8584%_ _%L8636%_ '#t))) + (_%__kont1915919160%_ (lambda () - (if (gx#identifier? _%L8602%_) - (if (not _%opt?8553%_) - (_%lp8548%_ _%L8600%_ '#f) + (if (gx#identifier? _%L8638%_) + (if (not _%opt?8589%_) + (_%lp8584%_ _%L8636%_ '#f) '#f) '#f)))) - (let ((_%__match1913919140%_ - (lambda (_%e86218650%_ - _%hd86228654%_ - _%tl86238657%_ - _%e86248660%_ - _%hd86258664%_ - _%tl86268667%_) - (let ((_%L8670%_ _%hd86228654%_)) - (if (gx#identifier? _%L8670%_) - (_%__kont1912119122%_ - _%L8670%_) - (_%__kont1912319124%_)))))) - (if (gx#stx-pair? _%__stx1911819119%_) - (let ((_%e86218650%_ + (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%_ (gx#syntax-e - _%__stx1911819119%_))) - (let ((_%tl86238657%_ + _%__stx1915419155%_))) + (let ((_%tl86598693%_ (let () (declare (not safe)) - (##cdr _%e86218650%_))) - (_%hd86228654%_ + (##cdr _%e86578686%_))) + (_%hd86588690%_ (let () (declare (not safe)) - (##car _%e86218650%_)))) + (##car _%e86578686%_)))) (if (gx#stx-pair? - _%tl86238657%_) - (let ((_%e86248660%_ + _%tl86598693%_) + (let ((_%e86608696%_ (gx#syntax-e - _%tl86238657%_))) - (let ((_%tl86268667%_ + _%tl86598693%_))) + (let ((_%tl86628703%_ (let () (declare (not safe)) - (##cdr _%e86248660%_))) - (_%hd86258664%_ + (##cdr _%e86608696%_))) + (_%hd86618700%_ (let () (declare (not safe)) - (##car _%e86248660%_)))) + (##car _%e86608696%_)))) (if (gx#stx-null? - _%tl86268667%_) - (_%__match1913919140%_ - _%e86218650%_ - _%hd86228654%_ - _%tl86238657%_ - _%e86248660%_ - _%hd86258664%_ - _%tl86268667%_) - (_%__kont1912319124%_)))) - (_%__kont1912319124%_)))) - (_%__kont1912319124%_))))))) - (_%__kont1914719148%_ + _%tl86628703%_) + (_%__match1917519176%_ + _%e86578686%_ + _%hd86588690%_ + _%tl86598693%_ + _%e86608696%_ + _%hd86618700%_ + _%tl86628703%_) + (_%__kont1915919160%_)))) + (_%__kont1915919160%_)))) + (_%__kont1915919160%_))))))) + (_%__kont1918319184%_ (lambda () - (if _%opt?8553%_ - (let ((_%$e8579%_ - (gx#stx-null? _%rest8551%_))) - (if _%$e8579%_ - _%$e8579%_ - (gx#identifier? _%rest8551%_))) + (if _%opt?8589%_ + (let ((_%$e8615%_ + (gx#stx-null? _%rest8587%_))) + (if _%$e8615%_ + _%$e8615%_ + (gx#identifier? _%rest8587%_))) '#f)))) - (if (gx#stx-pair? _%__stx1914219143%_) - (let ((_%e85608590%_ - (gx#syntax-e _%__stx1914219143%_))) - (let ((_%tl85628597%_ + (if (gx#stx-pair? _%__stx1917819179%_) + (let ((_%e85968626%_ + (gx#syntax-e _%__stx1917819179%_))) + (let ((_%tl85988633%_ (let () (declare (not safe)) - (##cdr _%e85608590%_))) - (_%hd85618594%_ + (##cdr _%e85968626%_))) + (_%hd85978630%_ (let () (declare (not safe)) - (##car _%e85608590%_)))) - (_%__kont1914519146%_ - _%tl85628597%_ - _%hd85618594%_))) - (_%__kont1914719148%_))))))) - (_%opt-lambda-split5290%_ - (lambda (_%hd8397%_) - (let _%lp8400%_ ((_%rest8403%_ _%hd8397%_) - (_%pre8405%_ '()) - (_%opt8406%_ '())) - (let* ((_%__stx1918219183%_ _%rest8403%_) - (_%g84098421%_ + (##car _%e85968626%_)))) + (_%__kont1918119182%_ + _%tl85988633%_ + _%hd85978630%_))) + (_%__kont1918319184%_))))))) + (_%opt-lambda-split5326%_ + (lambda (_%hd8433%_) + (let _%lp8436%_ ((_%rest8439%_ _%hd8433%_) + (_%pre8441%_ '()) + (_%opt8442%_ '())) + (let* ((_%__stx1921819219%_ _%rest8439%_) + (_%g84458457%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1918219183%_)))) - (let ((_%__kont1918519186%_ - (lambda (_%L8449%_ _%L8451%_) - (let* ((_%__stx1915819159%_ _%L8451%_) - (_%g84678482%_ + _%__stx1921819219%_)))) + (let ((_%__kont1922119222%_ + (lambda (_%L8485%_ _%L8487%_) + (let* ((_%__stx1919419195%_ _%L8487%_) + (_%g85038518%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1915819159%_)))) - (let ((_%__kont1916119162%_ - (lambda (_%L8520%_ _%L8522%_) - (_%lp8400%_ - _%L8449%_ - _%pre8405%_ - (cons (cons _%L8522%_ _%L8520%_) - _%opt8406%_)))) - (_%__kont1916319164%_ + _%__stx1919419195%_)))) + (let ((_%__kont1919719198%_ + (lambda (_%L8556%_ _%L8558%_) + (_%lp8436%_ + _%L8485%_ + _%pre8441%_ + (cons (cons _%L8558%_ _%L8556%_) + _%opt8442%_)))) + (_%__kont1919919200%_ (lambda () - (_%lp8400%_ - _%L8449%_ - (cons _%L8451%_ _%pre8405%_) - _%opt8406%_)))) - (if (gx#stx-pair? _%__stx1915819159%_) - (let ((_%e84718500%_ + (_%lp8436%_ + _%L8485%_ + (cons _%L8487%_ _%pre8441%_) + _%opt8442%_)))) + (if (gx#stx-pair? _%__stx1919419195%_) + (let ((_%e85078536%_ (gx#syntax-e - _%__stx1915819159%_))) - (let ((_%tl84738507%_ + _%__stx1919419195%_))) + (let ((_%tl85098543%_ (let () (declare (not safe)) - (##cdr _%e84718500%_))) - (_%hd84728504%_ + (##cdr _%e85078536%_))) + (_%hd85088540%_ (let () (declare (not safe)) - (##car _%e84718500%_)))) - (if (gx#stx-pair? _%tl84738507%_) - (let ((_%e84748510%_ + (##car _%e85078536%_)))) + (if (gx#stx-pair? _%tl85098543%_) + (let ((_%e85108546%_ (gx#syntax-e - _%tl84738507%_))) - (let ((_%tl84768517%_ + _%tl85098543%_))) + (let ((_%tl85128553%_ (let () (declare (not safe)) - (##cdr _%e84748510%_))) - (_%hd84758514%_ + (##cdr _%e85108546%_))) + (_%hd85118550%_ (let () (declare (not safe)) - (##car _%e84748510%_)))) + (##car _%e85108546%_)))) (if (gx#stx-null? - _%tl84768517%_) - (_%__kont1916119162%_ - _%hd84758514%_ - _%hd84728504%_) - (_%__kont1916319164%_)))) - (_%__kont1916319164%_)))) - (_%__kont1916319164%_)))))) - (_%__kont1918719188%_ + _%tl85128553%_) + (_%__kont1919719198%_ + _%hd85118550%_ + _%hd85088540%_) + (_%__kont1919919200%_)))) + (_%__kont1919919200%_)))) + (_%__kont1919919200%_)))))) + (_%__kont1922319224%_ (lambda () - (values (reverse _%pre8405%_) - (reverse _%opt8406%_) - _%rest8403%_)))) - (if (gx#stx-pair? _%__stx1918219183%_) - (let ((_%e84138439%_ - (gx#syntax-e _%__stx1918219183%_))) - (let ((_%tl84158446%_ + (values (reverse _%pre8441%_) + (reverse _%opt8442%_) + _%rest8439%_)))) + (if (gx#stx-pair? _%__stx1921819219%_) + (let ((_%e84498475%_ + (gx#syntax-e _%__stx1921819219%_))) + (let ((_%tl84518482%_ (let () (declare (not safe)) - (##cdr _%e84138439%_))) - (_%hd84148443%_ + (##cdr _%e84498475%_))) + (_%hd84508479%_ (let () (declare (not safe)) - (##car _%e84138439%_)))) - (_%__kont1918519186%_ - _%tl84158446%_ - _%hd84148443%_))) - (_%__kont1918719188%_))))))) - (_%kw-lambda?5291%_ - (lambda (_%hd8065%_) - (let _%lp8068%_ ((_%rest8071%_ _%hd8065%_) - (_%opt?8073%_ '#f) - (_%key?8074%_ '#f)) - (let* ((_%__stx1924619247%_ _%rest8071%_) - (_%g80798109%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1924619247%_)))) - (let ((_%__kont1924919250%_ - (lambda (_%L8304%_ _%L8306%_ _%L8307%_) - (let* ((_%__stx1922219223%_ _%L8306%_) - (_%g83228336%_ + _%__stx1928219283%_)))) + (let ((_%__kont1928519286%_ + (lambda (_%L8340%_ _%L8342%_ _%L8343%_) + (let* ((_%__stx1925819259%_ _%L8342%_) + (_%g83588372%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1922219223%_)))) - (let ((_%__kont1922519226%_ - (lambda (_%L8374%_) - (if (gx#identifier? _%L8374%_) - (_%lp8068%_ - _%L8304%_ - _%opt?8073%_ + _%__stx1925819259%_)))) + (let ((_%__kont1926119262%_ + (lambda (_%L8410%_) + (if (gx#identifier? _%L8410%_) + (_%lp8104%_ + _%L8340%_ + _%opt?8109%_ '#t) '#f))) - (_%__kont1922719228%_ + (_%__kont1926319264%_ (lambda () - (if (gx#identifier? _%L8306%_) - (_%lp8068%_ - _%L8304%_ - _%opt?8073%_ + (if (gx#identifier? _%L8342%_) + (_%lp8104%_ + _%L8340%_ + _%opt?8109%_ '#t) '#f)))) - (if (gx#stx-pair? _%__stx1922219223%_) - (let ((_%e83258354%_ + (if (gx#stx-pair? _%__stx1925819259%_) + (let ((_%e83618390%_ (gx#syntax-e - _%__stx1922219223%_))) - (let ((_%tl83278361%_ + _%__stx1925819259%_))) + (let ((_%tl83638397%_ (let () (declare (not safe)) - (##cdr _%e83258354%_))) - (_%hd83268358%_ + (##cdr _%e83618390%_))) + (_%hd83628394%_ (let () (declare (not safe)) - (##car _%e83258354%_)))) - (if (gx#stx-pair? _%tl83278361%_) - (let ((_%e83288364%_ + (##car _%e83618390%_)))) + (if (gx#stx-pair? _%tl83638397%_) + (let ((_%e83648400%_ (gx#syntax-e - _%tl83278361%_))) - (let ((_%tl83308371%_ + _%tl83638397%_))) + (let ((_%tl83668407%_ (let () (declare (not safe)) - (##cdr _%e83288364%_))) - (_%hd83298368%_ + (##cdr _%e83648400%_))) + (_%hd83658404%_ (let () (declare (not safe)) - (##car _%e83288364%_)))) + (##car _%e83648400%_)))) (if (gx#stx-null? - _%tl83308371%_) - (_%__kont1922519226%_ - _%hd83268358%_) - (_%__kont1922719228%_)))) - (_%__kont1922719228%_)))) - (_%__kont1922719228%_)))))) - (_%__kont1925119252%_ - (lambda (_%L8261%_ _%L8263%_) - (if (gx#identifier? _%L8263%_) - (_%lp8068%_ _%L8261%_ _%opt?8073%_ '#t) + _%tl83668407%_) + (_%__kont1926119262%_ + _%hd83628394%_) + (_%__kont1926319264%_)))) + (_%__kont1926319264%_)))) + (_%__kont1926319264%_)))))) + (_%__kont1928719288%_ + (lambda (_%L8297%_ _%L8299%_) + (if (gx#identifier? _%L8299%_) + (_%lp8104%_ _%L8297%_ _%opt?8109%_ '#t) '#f))) - (_%__kont1925319254%_ - (lambda (_%L8141%_ _%L8143%_) - (let* ((_%__stx1919819199%_ _%L8143%_) - (_%g81598173%_ + (_%__kont1928919290%_ + (lambda (_%L8177%_ _%L8179%_) + (let* ((_%__stx1923419235%_ _%L8179%_) + (_%g81958209%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1919819199%_)))) - (let ((_%__kont1920119202%_ - (lambda (_%L8211%_) - (if (gx#identifier? _%L8211%_) - (_%lp8068%_ - _%L8141%_ + _%__stx1923419235%_)))) + (let ((_%__kont1923719238%_ + (lambda (_%L8247%_) + (if (gx#identifier? _%L8247%_) + (_%lp8104%_ + _%L8177%_ '#t - _%key?8074%_) + _%key?8110%_) '#f))) - (_%__kont1920319204%_ + (_%__kont1923919240%_ (lambda () - (if (gx#identifier? _%L8143%_) - (if (not _%opt?8073%_) - (_%lp8068%_ - _%L8141%_ + (if (gx#identifier? _%L8179%_) + (if (not _%opt?8109%_) + (_%lp8104%_ + _%L8177%_ '#f - _%key?8074%_) + _%key?8110%_) '#f) '#f)))) - (if (gx#stx-pair? _%__stx1919819199%_) - (let ((_%e81628191%_ + (if (gx#stx-pair? _%__stx1923419235%_) + (let ((_%e81988227%_ (gx#syntax-e - _%__stx1919819199%_))) - (let ((_%tl81648198%_ + _%__stx1923419235%_))) + (let ((_%tl82008234%_ (let () (declare (not safe)) - (##cdr _%e81628191%_))) - (_%hd81638195%_ + (##cdr _%e81988227%_))) + (_%hd81998231%_ (let () (declare (not safe)) - (##car _%e81628191%_)))) - (if (gx#stx-pair? _%tl81648198%_) - (let ((_%e81658201%_ + (##car _%e81988227%_)))) + (if (gx#stx-pair? _%tl82008234%_) + (let ((_%e82018237%_ (gx#syntax-e - _%tl81648198%_))) - (let ((_%tl81678208%_ + _%tl82008234%_))) + (let ((_%tl82038244%_ (let () (declare (not safe)) - (##cdr _%e81658201%_))) - (_%hd81668205%_ + (##cdr _%e82018237%_))) + (_%hd82028241%_ (let () (declare (not safe)) - (##car _%e81658201%_)))) + (##car _%e82018237%_)))) (if (gx#stx-null? - _%tl81678208%_) - (_%__kont1920119202%_ - _%hd81638195%_) - (_%__kont1920319204%_)))) - (_%__kont1920319204%_)))) - (_%__kont1920319204%_)))))) - (_%__kont1925519256%_ + _%tl82038244%_) + (_%__kont1923719238%_ + _%hd81998231%_) + (_%__kont1923919240%_)))) + (_%__kont1923919240%_)))) + (_%__kont1923919240%_)))))) + (_%__kont1929119292%_ (lambda () - (if _%key?8074%_ - (let ((_%$e8120%_ - (gx#stx-null? _%rest8071%_))) - (if _%$e8120%_ - _%$e8120%_ - (gx#identifier? _%rest8071%_))) + (if _%key?8110%_ + (let ((_%$e8156%_ + (gx#stx-null? _%rest8107%_))) + (if _%$e8156%_ + _%$e8156%_ + (gx#identifier? _%rest8107%_))) '#f)))) - (let ((_%__match1926919270%_ - (lambda (_%e80848284%_ - _%hd80858288%_ - _%tl80868291%_ - _%e80878294%_ - _%hd80888298%_ - _%tl80898301%_) - (let ((_%L8304%_ _%tl80898301%_) - (_%L8306%_ _%hd80888298%_) - (_%L8307%_ _%hd80858288%_)) - (if (gx#stx-keyword? _%L8307%_) - (_%__kont1924919250%_ - _%L8304%_ - _%L8306%_ - _%L8307%_) - (if (gx#stx-datum? _%hd80858288%_) - (let ((_%e80958247%_ - (gx#stx-e _%hd80858288%_))) - (if (equal? _%e80958247%_ + (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%_ '#!key) - (_%__kont1925119252%_ - _%tl80898301%_ - _%hd80888298%_) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_))) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_))))))) - (if (gx#stx-pair? _%__stx1924619247%_) - (let ((_%e80848284%_ - (gx#syntax-e _%__stx1924619247%_))) - (let ((_%tl80868291%_ + (_%__kont1928719288%_ + _%tl81258337%_ + _%hd81248334%_) + (_%__kont1928919290%_ + _%tl81228327%_ + _%hd81218324%_))) + (_%__kont1928919290%_ + _%tl81228327%_ + _%hd81218324%_))))))) + (if (gx#stx-pair? _%__stx1928219283%_) + (let ((_%e81208320%_ + (gx#syntax-e _%__stx1928219283%_))) + (let ((_%tl81228327%_ (let () (declare (not safe)) - (##cdr _%e80848284%_))) - (_%hd80858288%_ + (##cdr _%e81208320%_))) + (_%hd81218324%_ (let () (declare (not safe)) - (##car _%e80848284%_)))) - (if (gx#stx-pair? _%tl80868291%_) - (let ((_%e80878294%_ - (gx#syntax-e _%tl80868291%_))) - (let ((_%tl80898301%_ + (##car _%e81208320%_)))) + (if (gx#stx-pair? _%tl81228327%_) + (let ((_%e81238330%_ + (gx#syntax-e _%tl81228327%_))) + (let ((_%tl81258337%_ (let () (declare (not safe)) - (##cdr _%e80878294%_))) - (_%hd80888298%_ + (##cdr _%e81238330%_))) + (_%hd81248334%_ (let () (declare (not safe)) - (##car _%e80878294%_)))) - (_%__match1926919270%_ - _%e80848284%_ - _%hd80858288%_ - _%tl80868291%_ - _%e80878294%_ - _%hd80888298%_ - _%tl80898301%_))) - (if (gx#stx-datum? _%hd80858288%_) - (let ((_%e80958247%_ - (gx#stx-e _%hd80858288%_))) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_)) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_))))) - (_%__kont1925519256%_)))))))) - (_%kw-lambda-split5292%_ - (lambda (_%hd7798%_) - (let _%lp7801%_ ((_%rest7804%_ _%hd7798%_) - (_%kwvar7806%_ '#f) - (_%kwargs7807%_ '()) - (_%args7808%_ '())) - (let* ((_%__stx1932019321%_ _%rest7804%_) - (_%g78137843%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1932019321%_)))) - (let ((_%__kont1932319324%_ - (lambda (_%L7962%_ _%L7964%_ _%L7965%_) - (let ((_%key7979%_ (gx#stx-e _%L7965%_))) - (if (find (lambda (_%kwarg7982%_) - (eq? _%key7979%_ - (car _%kwarg7982%_))) - _%kwargs7807%_) + _%__stx1935619357%_)))) + (let ((_%__kont1935919360%_ + (lambda (_%L7998%_ _%L8000%_ _%L8001%_) + (let ((_%key8015%_ (gx#stx-e _%L8001%_))) + (if (find (lambda (_%kwarg8018%_) + (eq? _%key8015%_ + (car _%kwarg8018%_))) + _%kwargs7843%_) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" - _%stx5284%_ - _%hd7798%_ - _%key7979%_) - (let* ((_%__stx1929619297%_ _%L7964%_) - (_%g79868001%_ + _%stx5320%_ + _%hd7834%_ + _%key8015%_) + (let* ((_%__stx1933219333%_ _%L8000%_) + (_%g80228037%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1929619297%_)))) - (let ((_%__kont1929919300%_ - (lambda (_%L8039%_ _%L8041%_) - (_%lp7801%_ - _%L7962%_ - _%kwvar7806%_ - (cons (list _%key7979%_ - _%L8041%_ - _%L8039%_) - _%kwargs7807%_) - _%args7808%_))) - (_%__kont1930119302%_ + _%__stx1933219333%_)))) + (let ((_%__kont1933519336%_ + (lambda (_%L8075%_ _%L8077%_) + (_%lp7837%_ + _%L7998%_ + _%kwvar7842%_ + (cons (list _%key8015%_ + _%L8077%_ + _%L8075%_) + _%kwargs7843%_) + _%args7844%_))) + (_%__kont1933719338%_ (lambda () - (_%lp7801%_ - _%L7962%_ - _%kwvar7806%_ - (cons (list _%key7979%_ - _%L7964%_ + (_%lp7837%_ + _%L7998%_ + _%kwvar7842%_ + (cons (list _%key8015%_ + _%L8000%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) (cons '"Missing required keyword argument" - (cons _%L7965%_ '())))) - _%kwargs7807%_) + (cons _%L8001%_ '())))) + _%kwargs7843%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%args7808%_)))) + _%args7844%_)))) (if (gx#stx-pair? - _%__stx1929619297%_) - (let ((_%e79908019%_ + _%__stx1933219333%_) + (let ((_%e80268055%_ (gx#syntax-e - _%__stx1929619297%_))) - (let ((_%tl79928026%_ + _%__stx1933219333%_))) + (let ((_%tl80288062%_ (let () (declare (not safe)) - (##cdr _%e79908019%_))) - (_%hd79918023%_ + (##cdr _%e80268055%_))) + (_%hd80278059%_ (let () (declare (not safe)) - (##car _%e79908019%_)))) + (##car _%e80268055%_)))) (if (gx#stx-pair? - _%tl79928026%_) - (let ((_%e79938029%_ + _%tl80288062%_) + (let ((_%e80298065%_ (gx#syntax-e - _%tl79928026%_))) - (let ((_%tl79958036%_ + _%tl80288062%_))) + (let ((_%tl80318072%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e79938029%_))) - (_%hd79948033%_ - (let () (declare (not safe)) (##car _%e79938029%_)))) - (if (gx#stx-null? _%tl79958036%_) - (_%__kont1929919300%_ _%hd79948033%_ _%hd79918023%_) - (_%__kont1930119302%_)))) - (_%__kont1930119302%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1930119302%_)))))))) - (_%__kont1932519326%_ - (lambda (_%L7919%_ _%L7921%_) - (if _%kwvar7806%_ + (##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%_ (gx#raise-syntax-error '#f '"bad syntax; duplicate #!key argument" - _%stx5284%_ - _%hd7798%_ - _%L7921%_) - (_%lp7801%_ - _%L7919%_ - _%L7921%_ - _%kwargs7807%_ - _%args7808%_)))) - (_%__kont1932719328%_ - (lambda (_%L7871%_ _%L7873%_) - (_%lp7801%_ - _%L7871%_ - _%kwvar7806%_ - _%kwargs7807%_ - (cons _%L7873%_ _%args7808%_)))) - (_%__kont1932919330%_ + _%stx5320%_ + _%hd7834%_ + _%L7957%_) + (_%lp7837%_ + _%L7955%_ + _%L7957%_ + _%kwargs7843%_ + _%args7844%_)))) + (_%__kont1936319364%_ + (lambda (_%L7907%_ _%L7909%_) + (_%lp7837%_ + _%L7907%_ + _%kwvar7842%_ + _%kwargs7843%_ + (cons _%L7909%_ _%args7844%_)))) + (_%__kont1936519366%_ (lambda () - (values _%kwvar7806%_ - (reverse _%kwargs7807%_) + (values _%kwvar7842%_ + (reverse _%kwargs7843%_) (foldl cons - _%rest7804%_ - _%args7808%_))))) - (let ((_%__match1934319344%_ - (lambda (_%e78187942%_ - _%hd78197946%_ - _%tl78207949%_ - _%e78217952%_ - _%hd78227956%_ - _%tl78237959%_) - (let ((_%L7962%_ _%tl78237959%_) - (_%L7964%_ _%hd78227956%_) - (_%L7965%_ _%hd78197946%_)) - (if (gx#stx-keyword? _%L7965%_) - (_%__kont1932319324%_ - _%L7962%_ - _%L7964%_ - _%L7965%_) - (if (gx#stx-datum? _%hd78197946%_) - (let ((_%e78297905%_ - (gx#stx-e _%hd78197946%_))) - (if (equal? _%e78297905%_ + _%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%_ '#!key) - (_%__kont1932519326%_ - _%tl78237959%_ - _%hd78227956%_) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_))) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_))))))) - (if (gx#stx-pair? _%__stx1932019321%_) - (let ((_%e78187942%_ - (gx#syntax-e _%__stx1932019321%_))) - (let ((_%tl78207949%_ + (_%__kont1936119362%_ + _%tl78597995%_ + _%hd78587992%_) + (_%__kont1936319364%_ + _%tl78567985%_ + _%hd78557982%_))) + (_%__kont1936319364%_ + _%tl78567985%_ + _%hd78557982%_))))))) + (if (gx#stx-pair? _%__stx1935619357%_) + (let ((_%e78547978%_ + (gx#syntax-e _%__stx1935619357%_))) + (let ((_%tl78567985%_ (let () (declare (not safe)) - (##cdr _%e78187942%_))) - (_%hd78197946%_ + (##cdr _%e78547978%_))) + (_%hd78557982%_ (let () (declare (not safe)) - (##car _%e78187942%_)))) - (if (gx#stx-pair? _%tl78207949%_) - (let ((_%e78217952%_ - (gx#syntax-e _%tl78207949%_))) - (let ((_%tl78237959%_ + (##car _%e78547978%_)))) + (if (gx#stx-pair? _%tl78567985%_) + (let ((_%e78577988%_ + (gx#syntax-e _%tl78567985%_))) + (let ((_%tl78597995%_ (let () (declare (not safe)) - (##cdr _%e78217952%_))) - (_%hd78227956%_ + (##cdr _%e78577988%_))) + (_%hd78587992%_ (let () (declare (not safe)) - (##car _%e78217952%_)))) - (_%__match1934319344%_ - _%e78187942%_ - _%hd78197946%_ - _%tl78207949%_ - _%e78217952%_ - _%hd78227956%_ - _%tl78237959%_))) - (if (gx#stx-datum? _%hd78197946%_) - (let ((_%e78297905%_ - (gx#stx-e _%hd78197946%_))) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_)) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_))))) - (_%__kont1932919330%_)))))))) - (_%check-duplicate-bindings5293%_ - (lambda (_%hd7490%_) - (let _%lp7493%_ ((_%rest7496%_ _%hd7490%_) - (_%ids7498%_ '())) - (let* ((_%__stx1939419395%_ _%rest7496%_) - (_%g75017513%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1939419395%_)))) - (let ((_%__kont1939719398%_ - (lambda (_%L7541%_ _%L7543%_) - (if (gx#identifier? _%L7543%_) - (_%lp7493%_ - _%L7541%_ - (cons _%L7543%_ _%ids7498%_)) - (if (gx#stx-pair? _%L7543%_) - (let* ((_%g75627576%_ - (lambda (_%g75637572%_) + _%__stx1943019431%_)))) + (let ((_%__kont1943319434%_ + (lambda (_%L7577%_ _%L7579%_) + (if (gx#identifier? _%L7579%_) + (_%lp7529%_ + _%L7577%_ + (cons _%L7579%_ _%ids7534%_)) + (if (gx#stx-pair? _%L7579%_) + (let* ((_%g75987612%_ + (lambda (_%g75997608%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g75637572%_))) - (_%g75617618%_ - (lambda (_%g75637580%_) + _%g75997608%_))) + (_%g75977654%_ + (lambda (_%g75997616%_) (if (gx#stx-pair? - _%g75637580%_) - (let ((_%e75657583%_ + _%g75997616%_) + (let ((_%e76017619%_ (gx#syntax-e - _%g75637580%_))) - (let ((_%hd75667587%_ + _%g75997616%_))) + (let ((_%hd76027623%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e75657583%_))) - (_%tl75677590%_ - (let () (declare (not safe)) (##cdr _%e75657583%_)))) - (if (gx#stx-pair? _%tl75677590%_) - (let ((_%e75687593%_ (gx#syntax-e _%tl75677590%_))) - (let ((_%hd75697597%_ + (##car _%e76017619%_))) + (_%tl76037626%_ + (let () (declare (not safe)) (##cdr _%e76017619%_)))) + (if (gx#stx-pair? _%tl76037626%_) + (let ((_%e76047629%_ (gx#syntax-e _%tl76037626%_))) + (let ((_%hd76057633%_ (let () (declare (not safe)) - (##car _%e75687593%_))) - (_%tl75707600%_ + (##car _%e76047629%_))) + (_%tl76067636%_ (let () (declare (not safe)) - (##cdr _%e75687593%_)))) - (if (gx#stx-null? _%tl75707600%_) - ((lambda (_%L7603%_) - (_%lp7493%_ - _%L7541%_ - (cons _%L7603%_ _%ids7498%_))) - _%hd75667587%_) - (_%g75627576%_ _%g75637580%_)))) - (_%g75627576%_ _%g75637580%_)))) - (_%g75627576%_ _%g75637580%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g75617618%_ _%L7543%_)) - (if (gx#stx-keyword? _%L7543%_) - (let* ((_%g76247636%_ - (lambda (_%g76257632%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g76257632%_))) - (_%g76237739%_ - (lambda (_%g76257640%_) + _%g76617668%_))) + (_%g76597775%_ + (lambda (_%g76617676%_) (if (gx#stx-pair? - _%g76257640%_) - (let ((_%e76287643%_ + _%g76617676%_) + (let ((_%e76647679%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g76257640%_))) - (let ((_%hd76297647%_ + (gx#syntax-e _%g76617676%_))) + (let ((_%hd76657683%_ (let () (declare (not safe)) - (##car _%e76287643%_))) - (_%tl76307650%_ + (##car _%e76647679%_))) + (_%tl76667686%_ (let () (declare (not safe)) - (##cdr _%e76287643%_)))) - ((lambda (_%L7653%_ _%L7655%_) - (let* ((_%__stx1937019371%_ _%L7655%_) - (_%g76687682%_ + (##cdr _%e76647679%_)))) + ((lambda (_%L7689%_ _%L7691%_) + (let* ((_%__stx1940619407%_ _%L7691%_) + (_%g77047718%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1937019371%_)))) - (let ((_%__kont1937319374%_ - (lambda (_%L7720%_) - (_%lp7493%_ - _%L7653%_ - (cons _%L7720%_ _%ids7498%_)))) - (_%__kont1937519376%_ + _%__stx1940619407%_)))) + (let ((_%__kont1940919410%_ + (lambda (_%L7756%_) + (_%lp7529%_ + _%L7689%_ + (cons _%L7756%_ _%ids7534%_)))) + (_%__kont1941119412%_ (lambda () - (_%lp7493%_ - _%L7653%_ - (cons _%L7655%_ _%ids7498%_))))) - (if (gx#stx-pair? _%__stx1937019371%_) - (let ((_%e76717700%_ - (gx#syntax-e _%__stx1937019371%_))) - (let ((_%tl76737707%_ + (_%lp7529%_ + _%L7689%_ + (cons _%L7691%_ _%ids7534%_))))) + (if (gx#stx-pair? _%__stx1940619407%_) + (let ((_%e77077736%_ + (gx#syntax-e _%__stx1940619407%_))) + (let ((_%tl77097743%_ (let () (declare (not safe)) - (##cdr _%e76717700%_))) - (_%hd76727704%_ + (##cdr _%e77077736%_))) + (_%hd77087740%_ (let () (declare (not safe)) - (##car _%e76717700%_)))) - (if (gx#stx-pair? _%tl76737707%_) - (let ((_%e76747710%_ - (gx#syntax-e _%tl76737707%_))) - (let ((_%tl76767717%_ + (##car _%e77077736%_)))) + (if (gx#stx-pair? _%tl77097743%_) + (let ((_%e77107746%_ + (gx#syntax-e _%tl77097743%_))) + (let ((_%tl77127753%_ (let () (declare (not safe)) - (##cdr _%e76747710%_))) - (_%hd76757714%_ + (##cdr _%e77107746%_))) + (_%hd77117750%_ (let () (declare (not safe)) - (##car _%e76747710%_)))) - (if (gx#stx-null? _%tl76767717%_) - (_%__kont1937319374%_ - _%hd76727704%_) - (_%__kont1937519376%_)))) - (_%__kont1937519376%_)))) - (_%__kont1937519376%_))))) - _%tl76307650%_ - _%hd76297647%_))) - (_%g76247636%_ _%g76257640%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g76237739%_ _%L7541%_)) - (if (eq? (gx#stx-e _%L7543%_) + (##car _%e77107746%_)))) + (if (gx#stx-null? _%tl77127753%_) + (_%__kont1940919410%_ + _%hd77087740%_) + (_%__kont1941119412%_)))) + (_%__kont1941119412%_)))) + (_%__kont1941119412%_))))) + _%tl76667686%_ + _%hd76657683%_))) + (_%g76607672%_ _%g76617676%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g76597775%_ _%L7577%_)) + (if (eq? (gx#stx-e _%L7579%_) '#!key) - (let* ((_%g77457757%_ - (lambda (_%g77467753%_) + (let* ((_%g77817793%_ + (lambda (_%g77827789%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g77467753%_))) - (_%g77447788%_ - (lambda (_%g77467761%_) + _%g77827789%_))) + (_%g77807824%_ + (lambda (_%g77827797%_) (if (gx#stx-pair? - _%g77467761%_) - (let ((_%e77497764%_ + _%g77827797%_) + (let ((_%e77857800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g77467761%_))) - (let ((_%hd77507768%_ + (gx#syntax-e _%g77827797%_))) + (let ((_%hd77867804%_ (let () (declare (not safe)) - (##car _%e77497764%_))) - (_%tl77517771%_ + (##car _%e77857800%_))) + (_%tl77877807%_ (let () (declare (not safe)) - (##cdr _%e77497764%_)))) - ((lambda (_%L7774%_ _%L7776%_) - (_%lp7493%_ - _%L7774%_ - (cons _%L7776%_ _%ids7498%_))) - _%tl77517771%_ - _%hd77507768%_))) - (_%g77457757%_ _%g77467761%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g77447788%_ _%L7541%_)) + (##cdr _%e77857800%_)))) + ((lambda (_%L7810%_ _%L7812%_) + (_%lp7529%_ + _%L7810%_ + (cons _%L7812%_ _%ids7534%_))) + _%tl77877807%_ + _%hd77867804%_))) + (_%g77817793%_ _%g77827797%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g77807824%_ _%L7577%_)) (error '"BUG: check-duplicate-bindings" - _%stx5284%_ - _%rest7496%_))))))) - (_%__kont1939919400%_ + _%stx5320%_ + _%rest7532%_))))))) + (_%__kont1943519436%_ (lambda () (gx#check-duplicate-identifiers - (if (gx#stx-null? _%rest7496%_) - _%ids7498%_ - (cons _%rest7496%_ _%ids7498%_)) - _%stx5284%_)))) - (if (gx#stx-pair? _%__stx1939419395%_) - (let ((_%e75057531%_ - (gx#syntax-e _%__stx1939419395%_))) - (let ((_%tl75077538%_ + (if (gx#stx-null? _%rest7532%_) + _%ids7534%_ + (cons _%rest7532%_ _%ids7534%_)) + _%stx5320%_)))) + (if (gx#stx-pair? _%__stx1943019431%_) + (let ((_%e75417567%_ + (gx#syntax-e _%__stx1943019431%_))) + (let ((_%tl75437574%_ (let () (declare (not safe)) - (##cdr _%e75057531%_))) - (_%hd75067535%_ + (##cdr _%e75417567%_))) + (_%hd75427571%_ (let () (declare (not safe)) - (##car _%e75057531%_)))) - (_%__kont1939719398%_ - _%tl75077538%_ - _%hd75067535%_))) - (_%__kont1939919400%_))))))) - (_%generate-opt-primary5294%_ - (lambda (_%pre7282%_ _%opt7284%_ _%tail7285%_ _%body7286%_) - (let* ((_%g72887329%_ - (lambda (_%g72897325%_) + (##car _%e75417567%_)))) + (_%__kont1943319434%_ + _%tl75437574%_ + _%hd75427571%_))) + (_%__kont1943519436%_))))))) + (_%generate-opt-primary5330%_ + (lambda (_%pre7318%_ _%opt7320%_ _%tail7321%_ _%body7322%_) + (let* ((_%g73247365%_ + (lambda (_%g73257361%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g72897325%_))) - (_%g72877486%_ - (lambda (_%g72897333%_) - (if (gx#stx-pair? _%g72897333%_) - (let ((_%e72947336%_ - (gx#syntax-e _%g72897333%_))) - (let ((_%hd72957340%_ + _%g73257361%_))) + (_%g73237522%_ + (lambda (_%g73257369%_) + (if (gx#stx-pair? _%g73257369%_) + (let ((_%e73307372%_ + (gx#syntax-e _%g73257369%_))) + (let ((_%hd73317376%_ (let () (declare (not safe)) - (##car _%e72947336%_))) - (_%tl72967343%_ + (##car _%e73307372%_))) + (_%tl73327379%_ (let () (declare (not safe)) - (##cdr _%e72947336%_)))) - (if (gx#stx-pair/null? _%hd72957340%_) - (let ((_g20883_ + (##cdr _%e73307372%_)))) + (if (gx#stx-pair/null? _%hd73317376%_) + (let ((_g20919_ (gx#syntax-split-splice - _%hd72957340%_ + _%hd73317376%_ '0))) (begin - (let ((_g20884_ + (let ((_g20920_ (let () (declare (not safe)) - (if (##values? _g20883_) + (if (##values? _g20919_) (##vector-length - _g20883_) + _g20919_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20884_ 2))) + (##fx= _g20920_ 2))) (error "Context expects 2 values" - _g20884_))) - (let ((_%target72977346%_ + _g20920_))) + (let ((_%target73337382%_ (let () (declare (not safe)) (##vector-ref - _g20883_ + _g20919_ 0))) - (_%tl72997349%_ + (_%tl73357385%_ (let () (declare (not safe)) (##vector-ref - _g20883_ + _g20919_ 1)))) (if (gx#stx-null? - _%tl72997349%_) - (letrec ((_%loop73007352%_ - (lambda (_%hd72987356%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre73047359%_) - (if (gx#stx-pair? _%hd72987356%_) - (let ((_%e73017362%_ (gx#syntax-e _%hd72987356%_))) - (let ((_%lp-hd73027366%_ + _%tl73357385%_) + (letrec ((_%loop73367388%_ + (lambda (_%hd73347392%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre73407395%_) + (if (gx#stx-pair? _%hd73347392%_) + (let ((_%e73377398%_ (gx#syntax-e _%hd73347392%_))) + (let ((_%lp-hd73387402%_ (let () (declare (not safe)) - (##car _%e73017362%_))) - (_%lp-tl73037369%_ + (##car _%e73377398%_))) + (_%lp-tl73397405%_ (let () (declare (not safe)) - (##cdr _%e73017362%_)))) - (_%loop73007352%_ - _%lp-tl73037369%_ - (cons _%lp-hd73027366%_ _%pre73047359%_)))) - (let ((_%pre73057372%_ (reverse _%pre73047359%_))) - (if (gx#stx-pair? _%tl72967343%_) - (let ((_%e73067376%_ - (gx#syntax-e _%tl72967343%_))) - (let ((_%hd73077380%_ + (##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%_ (let () (declare (not safe)) - (##car _%e73067376%_))) - (_%tl73087383%_ + (##car _%e73427412%_))) + (_%tl73447419%_ (let () (declare (not safe)) - (##cdr _%e73067376%_)))) - (if (gx#stx-pair/null? _%hd73077380%_) - (let ((_g20885_ + (##cdr _%e73427412%_)))) + (if (gx#stx-pair/null? _%hd73437416%_) + (let ((_g20921_ (gx#syntax-split-splice - _%hd73077380%_ + _%hd73437416%_ '0))) (begin - (let ((_g20886_ + (let ((_g20922_ (let () (declare (not safe)) - (if (##values? _g20885_) + (if (##values? _g20921_) (##vector-length - _g20885_) + _g20921_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20886_ 2))) + (##fx= _g20922_ 2))) (error "Context expects 2 values" - _g20886_))) - (let ((_%target73097386%_ + _g20922_))) + (let ((_%target73457422%_ (let () (declare (not safe)) (##vector-ref - _g20885_ + _g20921_ 0))) - (_%tl73117389%_ + (_%tl73477425%_ (let () (declare (not safe)) (##vector-ref - _g20885_ + _g20921_ 1)))) (if (gx#stx-null? - _%tl73117389%_) - (letrec ((_%loop73127392%_ - (lambda (_%hd73107396%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%opt73167399%_) - (if (gx#stx-pair? _%hd73107396%_) - (let ((_%e73137402%_ (gx#syntax-e _%hd73107396%_))) - (let ((_%lp-hd73147406%_ + _%tl73477425%_) + (letrec ((_%loop73487428%_ + (lambda (_%hd73467432%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%opt73527435%_) + (if (gx#stx-pair? _%hd73467432%_) + (let ((_%e73497438%_ (gx#syntax-e _%hd73467432%_))) + (let ((_%lp-hd73507442%_ (let () (declare (not safe)) - (##car _%e73137402%_))) - (_%lp-tl73157409%_ + (##car _%e73497438%_))) + (_%lp-tl73517445%_ (let () (declare (not safe)) - (##cdr _%e73137402%_)))) - (_%loop73127392%_ - _%lp-tl73157409%_ - (cons _%lp-hd73147406%_ _%opt73167399%_)))) - (let ((_%opt73177412%_ (reverse _%opt73167399%_))) - (if (gx#stx-pair? _%tl73087383%_) - (let ((_%e73187416%_ - (gx#syntax-e _%tl73087383%_))) - (let ((_%hd73197420%_ + (##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%_ (let () (declare (not safe)) - (##car _%e73187416%_))) - (_%tl73207423%_ + (##car _%e73547452%_))) + (_%tl73567459%_ (let () (declare (not safe)) - (##cdr _%e73187416%_)))) - (if (gx#stx-pair? _%tl73207423%_) - (let ((_%e73217426%_ - (gx#syntax-e _%tl73207423%_))) - (let ((_%hd73227430%_ + (##cdr _%e73547452%_)))) + (if (gx#stx-pair? _%tl73567459%_) + (let ((_%e73577462%_ + (gx#syntax-e _%tl73567459%_))) + (let ((_%hd73587466%_ (let () (declare (not safe)) - (##car _%e73217426%_))) - (_%tl73237433%_ + (##car _%e73577462%_))) + (_%tl73597469%_ (let () (declare (not safe)) - (##cdr _%e73217426%_)))) - (if (gx#stx-null? _%tl73237433%_) - ((lambda (_%L7436%_ - _%L7438%_ - _%L7439%_ - _%L7440%_) + (##cdr _%e73577462%_)))) + (if (gx#stx-null? _%tl73597469%_) + ((lambda (_%L7472%_ + _%L7474%_ + _%L7475%_ + _%L7476%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_%g74697474%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g74707477%_) - (cons _%g74697474%_ _%g74707477%_)) - (foldr (lambda (_%g74717480%_ _%g74727483%_) - (cons _%g74717480%_ _%g74727483%_)) - _%L7438%_ - _%L7439%_) - _%L7440%_) - _%L7436%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd73227430%_ - _%hd73197420%_ - _%opt73177412%_ - _%pre73057372%_) - (_%g72887329%_ - _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_))))))) - (_%loop73127392%_ _%target73097386%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g72887329%_ - _%g72897333%_))))) - (_%g72887329%_ _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_))))))) - (_%loop73007352%_ _%target72977346%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g72887329%_ - _%g72897333%_))))) - (_%g72887329%_ _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_))))) - (_%g72877486%_ - (list _%pre7282%_ - (map car _%opt7284%_) - _%tail7285%_ - _%body7286%_))))) - (_%generate-opt-dispatch5295%_ - (lambda (_%primary7276%_ - _%pre7278%_ - _%opt7279%_ - _%tail7280%_) - (cons (list _%pre7278%_ - (_%generate-opt-clause5297%_ - _%primary7276%_ - _%pre7278%_ - _%opt7279%_)) - (_%generate-opt-dispatch*5296%_ - _%primary7276%_ - _%pre7278%_ - _%opt7279%_ - _%tail7280%_)))) - (_%generate-opt-dispatch*5296%_ - (lambda (_%primary6825%_ - _%pre6827%_ - _%opt6828%_ - _%tail6829%_) - (let _%recur6831%_ ((_%opt-rest6834%_ _%opt6828%_) - (_%right6836%_ '())) - (if (pair? _%opt-rest6834%_) - (let* ((_%hd6840%_ (caar _%opt-rest6834%_)) - (_%rest6843%_ + (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%_ (let () (declare (not safe)) - (##cdr _%opt-rest6834%_))) - (_%right*6846%_ - (cons _%hd6840%_ _%right6836%_)) - (_%g68496866%_ - (lambda (_%g68506862%_) + (##cdr _%opt-rest6870%_))) + (_%right*6882%_ + (cons _%hd6876%_ _%right6872%_)) + (_%g68856902%_ + (lambda (_%g68866898%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g68506862%_))) - (_%g68487050%_ - (lambda (_%g68506870%_) - (if (gx#stx-pair/null? _%g68506870%_) - (let ((_g20887_ + _%g68866898%_))) + (_%g68847086%_ + (lambda (_%g68866906%_) + (if (gx#stx-pair/null? _%g68866906%_) + (let ((_g20923_ (gx#syntax-split-splice - _%g68506870%_ + _%g68866906%_ '0))) (begin - (let ((_g20888_ + (let ((_g20924_ (let () (declare (not safe)) - (if (##values? _g20887_) + (if (##values? _g20923_) (##vector-length - _g20887_) + _g20923_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20888_ 2))) + (##fx= _g20924_ 2))) (error "Context expects 2 values" - _g20888_))) - (let ((_%target68526873%_ + _g20924_))) + (let ((_%target68886909%_ (let () (declare (not safe)) (##vector-ref - _g20887_ + _g20923_ 0))) - (_%tl68546876%_ + (_%tl68906912%_ (let () (declare (not safe)) (##vector-ref - _g20887_ + _g20923_ 1)))) - (if (gx#stx-null? _%tl68546876%_) - (letrec ((_%loop68556879%_ - (lambda (_%hd68536883%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre-bind68596886%_) - (if (gx#stx-pair? _%hd68536883%_) - (let ((_%e68566889%_ (gx#syntax-e _%hd68536883%_))) - (let ((_%lp-hd68576893%_ + (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%_ (let () (declare (not safe)) - (##car _%e68566889%_))) - (_%lp-tl68586896%_ + (##car _%e68926925%_))) + (_%lp-tl68946932%_ (let () (declare (not safe)) - (##cdr _%e68566889%_)))) - (_%loop68556879%_ - _%lp-tl68586896%_ - (cons _%lp-hd68576893%_ _%pre-bind68596886%_)))) - (let ((_%pre-bind68606899%_ - (reverse _%pre-bind68596886%_))) - ((lambda (_%L6903%_) - (let* ((_%g69256942%_ - (lambda (_%g69266938%_) + (##cdr _%e68926925%_)))) + (_%loop68916915%_ + _%lp-tl68946932%_ + (cons _%lp-hd68936929%_ _%pre-bind68956922%_)))) + (let ((_%pre-bind68966935%_ + (reverse _%pre-bind68956922%_))) + ((lambda (_%L6939%_) + (let* ((_%g69616978%_ + (lambda (_%g69626974%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g69266938%_))) - (_%g69247046%_ - (lambda (_%g69266946%_) - (if (gx#stx-pair/null? _%g69266946%_) - (let ((_g20889_ + _%g69626974%_))) + (_%g69607082%_ + (lambda (_%g69626982%_) + (if (gx#stx-pair/null? _%g69626982%_) + (let ((_g20925_ (gx#syntax-split-splice - _%g69266946%_ + _%g69626982%_ '0))) (begin - (let ((_g20890_ + (let ((_g20926_ (let () (declare (not safe)) (if (##values? - _g20889_) + _g20925_) (##vector-length - _g20889_) + _g20925_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20890_ + (##fx= _g20926_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20890_))) + (error "Context expects 2 values" _g20926_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target69286949%_ + (let ((_%target69646985%_ (let () (declare (not safe)) (##vector-ref - _g20889_ + _g20925_ 0))) - (_%tl69306952%_ + (_%tl69666988%_ (let () (declare (not safe)) (##vector-ref - _g20889_ + _g20925_ 1)))) (if (gx#stx-null? - _%tl69306952%_) - (letrec ((_%loop69316955%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd69296959%_ _%opt-bind69356962%_) - (if (gx#stx-pair? _%hd69296959%_) - (let ((_%e69326965%_ - (gx#syntax-e _%hd69296959%_))) - (let ((_%lp-hd69336969%_ + _%tl69666988%_) + (letrec ((_%loop69676991%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd69656995%_ _%opt-bind69716998%_) + (if (gx#stx-pair? _%hd69656995%_) + (let ((_%e69687001%_ + (gx#syntax-e _%hd69656995%_))) + (let ((_%lp-hd69697005%_ (let () (declare (not safe)) - (##car _%e69326965%_))) - (_%lp-tl69346972%_ + (##car _%e69687001%_))) + (_%lp-tl69707008%_ (let () (declare (not safe)) - (##cdr _%e69326965%_)))) - (_%loop69316955%_ - _%lp-tl69346972%_ - (cons _%lp-hd69336969%_ - _%opt-bind69356962%_)))) - (let ((_%opt-bind69366975%_ - (reverse _%opt-bind69356962%_))) - ((lambda (_%L6979%_) - (let* ((_%g69967004%_ - (lambda (_%g69977000%_) + (##cdr _%e69687001%_)))) + (_%loop69676991%_ + _%lp-tl69707008%_ + (cons _%lp-hd69697005%_ + _%opt-bind69716998%_)))) + (let ((_%opt-bind69727011%_ + (reverse _%opt-bind69716998%_))) + ((lambda (_%L7015%_) + (let* ((_%g70327040%_ + (lambda (_%g70337036%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g69977000%_))) - (_%g69957042%_ - (lambda (_%g69977008%_) - ((lambda (_%L7011%_) - (cons (list (foldr (lambda (_%g70257030%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g70267033%_) - (cons _%g70257030%_ _%g70267033%_)) - (foldr (lambda (_%g70277036%_ _%g70287039%_) - (cons _%g70277036%_ _%g70287039%_)) - (cons _%L7011%_ '()) - _%L6979%_) - _%L6903%_) - (_%generate-opt-clause5297%_ - _%primary6825%_ - (foldr cons (reverse _%right*6846%_) _%pre6827%_) - _%rest6843%_)) - (_%recur6831%_ _%rest6843%_ _%right*6846%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g69977008%_)))) - (_%g69957042%_ _%hd6840%_))) - _%opt-bind69366975%_)))))) - (_%loop69316955%_ _%target69286949%_ '())) - (_%g69256942%_ _%g69266946%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g69256942%_ _%g69266946%_))))) - (_%g69247046%_ (reverse _%right6836%_)))) - _%pre-bind68606899%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop68556879%_ - _%target68526873%_ + _%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%_ '())) - (_%g68496866%_ - _%g68506870%_))))) - (_%g68496866%_ _%g68506870%_))))) - (_%g68487050%_ _%pre6827%_)) - (if (gx#stx-null? _%tail6829%_) + (_%g68856902%_ + _%g68866906%_))))) + (_%g68856902%_ _%g68866906%_))))) + (_%g68847086%_ _%pre6863%_)) + (if (gx#stx-null? _%tail6865%_) '() - (let* ((_%g70587099%_ - (lambda (_%g70597095%_) + (let* ((_%g70947135%_ + (lambda (_%g70957131%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g70597095%_))) - (_%g70577272%_ - (lambda (_%g70597103%_) - (if (gx#stx-pair? _%g70597103%_) - (let ((_%e70647106%_ + _%g70957131%_))) + (_%g70937308%_ + (lambda (_%g70957139%_) + (if (gx#stx-pair? _%g70957139%_) + (let ((_%e71007142%_ (gx#syntax-e - _%g70597103%_))) - (let ((_%hd70657110%_ + _%g70957139%_))) + (let ((_%hd71017146%_ (let () (declare (not safe)) - (##car _%e70647106%_))) - (_%tl70667113%_ + (##car _%e71007142%_))) + (_%tl71027149%_ (let () (declare (not safe)) - (##cdr _%e70647106%_)))) + (##cdr _%e71007142%_)))) (if (gx#stx-pair/null? - _%hd70657110%_) - (let ((_g20891_ + _%hd71017146%_) + (let ((_g20927_ (gx#syntax-split-splice - _%hd70657110%_ + _%hd71017146%_ '0))) (begin - (let ((_g20892_ + (let ((_g20928_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20891_) - (##vector-length _g20891_) + (if (##values? _g20927_) + (##vector-length _g20927_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20892_ 2))) - (error "Context expects 2 values" _g20892_))) - (let ((_%target70677116%_ - (let () (declare (not safe)) (##vector-ref _g20891_ 0))) - (_%tl70697119%_ + (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%_ (let () (declare (not safe)) - (##vector-ref _g20891_ 1)))) - (if (gx#stx-null? _%tl70697119%_) - (letrec ((_%loop70707122%_ - (lambda (_%hd70687126%_ _%pre70747129%_) - (if (gx#stx-pair? _%hd70687126%_) - (let ((_%e70717132%_ - (gx#syntax-e _%hd70687126%_))) - (let ((_%lp-hd70727136%_ + (##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%_ (let () (declare (not safe)) - (##car _%e70717132%_))) - (_%lp-tl70737139%_ + (##car _%e71077168%_))) + (_%lp-tl71097175%_ (let () (declare (not safe)) - (##cdr _%e70717132%_)))) - (_%loop70707122%_ - _%lp-tl70737139%_ - (cons _%lp-hd70727136%_ - _%pre70747129%_)))) - (let ((_%pre70757142%_ - (reverse _%pre70747129%_))) - (if (gx#stx-pair? _%tl70667113%_) - (let ((_%e70767146%_ + (##cdr _%e71077168%_)))) + (_%loop71067158%_ + _%lp-tl71097175%_ + (cons _%lp-hd71087172%_ + _%pre71107165%_)))) + (let ((_%pre71117178%_ + (reverse _%pre71107165%_))) + (if (gx#stx-pair? _%tl71027149%_) + (let ((_%e71127182%_ (gx#syntax-e - _%tl70667113%_))) - (let ((_%hd70777150%_ + _%tl71027149%_))) + (let ((_%hd71137186%_ (let () (declare (not safe)) - (##car _%e70767146%_))) - (_%tl70787153%_ + (##car _%e71127182%_))) + (_%tl71147189%_ (let () (declare (not safe)) - (##cdr _%e70767146%_)))) + (##cdr _%e71127182%_)))) (if (gx#stx-pair/null? - _%hd70777150%_) - (let ((_g20893_ + _%hd71137186%_) + (let ((_g20929_ (gx#syntax-split-splice - _%hd70777150%_ + _%hd71137186%_ '0))) (begin - (let ((_g20894_ + (let ((_g20930_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20893_) - (##vector-length _g20893_) + (if (##values? _g20929_) + (##vector-length _g20929_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20894_ 2))) - (error "Context expects 2 values" _g20894_))) - (let ((_%target70797156%_ - (let () (declare (not safe)) (##vector-ref _g20893_ 0))) - (_%tl70817159%_ + (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%_ (let () (declare (not safe)) - (##vector-ref _g20893_ 1)))) - (if (gx#stx-null? _%tl70817159%_) - (letrec ((_%loop70827162%_ - (lambda (_%hd70807166%_ _%opt70867169%_) - (if (gx#stx-pair? _%hd70807166%_) - (let ((_%e70837172%_ - (gx#syntax-e _%hd70807166%_))) - (let ((_%lp-hd70847176%_ + (##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%_ (let () (declare (not safe)) - (##car _%e70837172%_))) - (_%lp-tl70857179%_ + (##car _%e71197208%_))) + (_%lp-tl71217215%_ (let () (declare (not safe)) - (##cdr _%e70837172%_)))) - (_%loop70827162%_ - _%lp-tl70857179%_ - (cons _%lp-hd70847176%_ - _%opt70867169%_)))) - (let ((_%opt70877182%_ - (reverse _%opt70867169%_))) - (if (gx#stx-pair? _%tl70787153%_) - (let ((_%e70887186%_ + (##cdr _%e71197208%_)))) + (_%loop71187198%_ + _%lp-tl71217215%_ + (cons _%lp-hd71207212%_ + _%opt71227205%_)))) + (let ((_%opt71237218%_ + (reverse _%opt71227205%_))) + (if (gx#stx-pair? _%tl71147189%_) + (let ((_%e71247222%_ (gx#syntax-e - _%tl70787153%_))) - (let ((_%hd70897190%_ + _%tl71147189%_))) + (let ((_%hd71257226%_ (let () (declare (not safe)) - (##car _%e70887186%_))) - (_%tl70907193%_ + (##car _%e71247222%_))) + (_%tl71267229%_ (let () (declare (not safe)) - (##cdr _%e70887186%_)))) + (##cdr _%e71247222%_)))) (if (gx#stx-pair? - _%tl70907193%_) - (let ((_%e70917196%_ + _%tl71267229%_) + (let ((_%e71277232%_ (gx#syntax-e - _%tl70907193%_))) - (let ((_%hd70927200%_ + _%tl71267229%_))) + (let ((_%hd71287236%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e70917196%_))) - (_%tl70937203%_ - (let () (declare (not safe)) (##cdr _%e70917196%_)))) - (if (gx#stx-null? _%tl70937203%_) - ((lambda (_%L7206%_ _%L7208%_ _%L7209%_ _%L7210%_) - (list (list (foldr (lambda (_%g72397244%_ _%g72407247%_) - (cons _%g72397244%_ _%g72407247%_)) - (foldr (lambda (_%g72417250%_ - _%g72427253%_) - (cons _%g72417250%_ - _%g72427253%_)) - _%L7208%_ - _%L7209%_) - _%L7210%_) + (##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%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'apply) - (cons _%L7206%_ - (foldr (lambda (_%g72557260%_ - _%g72567263%_) - (cons _%g72557260%_ - _%g72567263%_)) - (foldr (lambda (_%g72577266%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g72587269%_) - (cons _%g72577266%_ _%g72587269%_)) - (cons _%L7208%_ '()) - _%L7209%_) - _%L7210%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx5284%_))))) - _%hd70927200%_ - _%hd70897190%_ - _%opt70877182%_ - _%pre70757142%_) - (_%g70587099%_ _%g70597103%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70587099%_ - _%g70597103%_)))) - (_%g70587099%_ _%g70597103%_))))))) - (_%loop70827162%_ _%target70797156%_ '())) - (_%g70587099%_ _%g70597103%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70587099%_ - _%g70597103%_)))) - (_%g70587099%_ _%g70597103%_))))))) - (_%loop70707122%_ _%target70677116%_ '())) - (_%g70587099%_ _%g70597103%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70587099%_ - _%g70597103%_)))) - (_%g70587099%_ _%g70597103%_))))) - (_%g70577272%_ - (list _%pre6827%_ - (reverse _%right6836%_) - _%tail6829%_ - _%primary6825%_)))))))) - (_%generate-opt-clause5297%_ - (lambda (_%primary6523%_ _%pre6525%_ _%opt6526%_) - (let _%recur6528%_ ((_%opt-rest6531%_ _%opt6526%_) - (_%right6533%_ '())) - (if (pair? _%opt-rest6531%_) - (let* ((_%hd6535%_ + (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%_ (let () (declare (not safe)) - (##car _%opt-rest6531%_))) - (_%rest6538%_ + (##car _%opt-rest6567%_))) + (_%rest6574%_ (let () (declare (not safe)) - (##cdr _%opt-rest6531%_))) - (_%g65416549%_ - (lambda (_%g65426545%_) + (##cdr _%opt-rest6567%_))) + (_%g65776585%_ + (lambda (_%g65786581%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g65426545%_))) - (_%g65406638%_ - (lambda (_%g65426553%_) - ((lambda (_%L6556%_) - (let* ((_%g65726580%_ - (lambda (_%g65736576%_) + _%g65786581%_))) + (_%g65766674%_ + (lambda (_%g65786589%_) + ((lambda (_%L6592%_) + (let* ((_%g66086616%_ + (lambda (_%g66096612%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g65736576%_))) - (_%g65716634%_ - (lambda (_%g65736584%_) - ((lambda (_%L6587%_) - (let* ((_%g66006608%_ - (lambda (_%g66016604%_) + _%g66096612%_))) + (_%g66076670%_ + (lambda (_%g66096620%_) + ((lambda (_%L6623%_) + (let* ((_%g66366644%_ + (lambda (_%g66376640%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66016604%_))) - (_%g65996630%_ - (lambda (_%g66016612%_) - ((lambda (_%L6615%_) + _%g66376640%_))) + (_%g66356666%_ + (lambda (_%g66376648%_) + ((lambda (_%L6651%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6556%_ '()) - (cons _%L6587%_ '())) + (cons (cons (cons (cons _%L6592%_ '()) + (cons _%L6623%_ '())) '()) - (cons _%L6615%_ '())))) - _%g66016612%_)))) - (_%g65996630%_ - (_%recur6528%_ _%rest6538%_ (cons _%L6556%_ _%right6533%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g65736584%_)))) - (_%g65716634%_ (cdr _%hd6535%_)))) - _%g65426553%_)))) - (_%g65406638%_ (car _%hd6535%_))) - (let* ((_%g66426679%_ - (lambda (_%g66436675%_) + (cons _%L6651%_ '())))) + _%g66376648%_)))) + (_%g66356666%_ + (_%recur6564%_ _%rest6574%_ (cons _%L6592%_ _%right6569%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g66096620%_)))) + (_%g66076670%_ (cdr _%hd6571%_)))) + _%g65786589%_)))) + (_%g65766674%_ (car _%hd6571%_))) + (let* ((_%g66786715%_ + (lambda (_%g66796711%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66436675%_))) - (_%g66416821%_ - (lambda (_%g66436683%_) - (if (gx#stx-pair? _%g66436683%_) - (let ((_%e66476686%_ - (gx#syntax-e _%g66436683%_))) - (let ((_%hd66486690%_ + _%g66796711%_))) + (_%g66776857%_ + (lambda (_%g66796719%_) + (if (gx#stx-pair? _%g66796719%_) + (let ((_%e66836722%_ + (gx#syntax-e _%g66796719%_))) + (let ((_%hd66846726%_ (let () (declare (not safe)) - (##car _%e66476686%_))) - (_%tl66496693%_ + (##car _%e66836722%_))) + (_%tl66856729%_ (let () (declare (not safe)) - (##cdr _%e66476686%_)))) + (##cdr _%e66836722%_)))) (if (gx#stx-pair/null? - _%hd66486690%_) - (let ((_g20895_ + _%hd66846726%_) + (let ((_g20931_ (gx#syntax-split-splice - _%hd66486690%_ + _%hd66846726%_ '0))) (begin - (let ((_g20896_ + (let ((_g20932_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20895_) - (##vector-length _g20895_) + _g20931_) + (##vector-length _g20931_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20896_ 2))) - (error "Context expects 2 values" _g20896_))) + (if (not (let () (declare (not safe)) (##fx= _g20932_ 2))) + (error "Context expects 2 values" _g20932_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target66506696%_ + (let ((_%target66866732%_ (let () (declare (not safe)) (##vector-ref - _g20895_ + _g20931_ 0))) - (_%tl66526699%_ + (_%tl66886735%_ (let () (declare (not safe)) (##vector-ref - _g20895_ + _g20931_ 1)))) (if (gx#stx-null? - _%tl66526699%_) - (letrec ((_%loop66536702%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd66516706%_ _%pre66576709%_) - (if (gx#stx-pair? _%hd66516706%_) - (let ((_%e66546712%_ - (gx#syntax-e _%hd66516706%_))) - (let ((_%lp-hd66556716%_ + _%tl66886735%_) + (letrec ((_%loop66896738%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd66876742%_ _%pre66936745%_) + (if (gx#stx-pair? _%hd66876742%_) + (let ((_%e66906748%_ + (gx#syntax-e _%hd66876742%_))) + (let ((_%lp-hd66916752%_ (let () (declare (not safe)) - (##car _%e66546712%_))) - (_%lp-tl66566719%_ + (##car _%e66906748%_))) + (_%lp-tl66926755%_ (let () (declare (not safe)) - (##cdr _%e66546712%_)))) - (_%loop66536702%_ - _%lp-tl66566719%_ - (cons _%lp-hd66556716%_ - _%pre66576709%_)))) - (let ((_%pre66586722%_ - (reverse _%pre66576709%_))) - (if (gx#stx-pair? _%tl66496693%_) - (let ((_%e66596726%_ - (gx#syntax-e _%tl66496693%_))) - (let ((_%hd66606730%_ + (##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%_ (let () (declare (not safe)) - (##car _%e66596726%_))) - (_%tl66616733%_ + (##car _%e66956762%_))) + (_%tl66976769%_ (let () (declare (not safe)) - (##cdr _%e66596726%_)))) + (##cdr _%e66956762%_)))) (if (gx#stx-pair/null? - _%hd66606730%_) - (let ((_g20897_ + _%hd66966766%_) + (let ((_g20933_ (gx#syntax-split-splice - _%hd66606730%_ + _%hd66966766%_ '0))) (begin - (let ((_g20898_ + (let ((_g20934_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20897_) - (##vector-length _g20897_) + _g20933_) + (##vector-length _g20933_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20898_ 2))) - (error "Context expects 2 values" _g20898_))) + (if (not (let () (declare (not safe)) (##fx= _g20934_ 2))) + (error "Context expects 2 values" _g20934_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target66626736%_ + (let ((_%target66986772%_ (let () (declare (not safe)) (##vector-ref - _g20897_ + _g20933_ 0))) - (_%tl66646739%_ + (_%tl67006775%_ (let () (declare (not safe)) (##vector-ref - _g20897_ + _g20933_ 1)))) (if (gx#stx-null? - _%tl66646739%_) - (letrec ((_%loop66656742%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd66636746%_ _%opt66696749%_) - (if (gx#stx-pair? _%hd66636746%_) - (let ((_%e66666752%_ - (gx#syntax-e _%hd66636746%_))) - (let ((_%lp-hd66676756%_ + _%tl67006775%_) + (letrec ((_%loop67016778%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd66996782%_ _%opt67056785%_) + (if (gx#stx-pair? _%hd66996782%_) + (let ((_%e67026788%_ + (gx#syntax-e _%hd66996782%_))) + (let ((_%lp-hd67036792%_ (let () (declare (not safe)) - (##car _%e66666752%_))) - (_%lp-tl66686759%_ + (##car _%e67026788%_))) + (_%lp-tl67046795%_ (let () (declare (not safe)) - (##cdr _%e66666752%_)))) - (_%loop66656742%_ - _%lp-tl66686759%_ - (cons _%lp-hd66676756%_ - _%opt66696749%_)))) - (let ((_%opt66706762%_ - (reverse _%opt66696749%_))) - (if (gx#stx-pair? _%tl66616733%_) - (let ((_%e66716766%_ - (gx#syntax-e _%tl66616733%_))) - (let ((_%hd66726770%_ + (##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%_ (let () (declare (not safe)) - (##car _%e66716766%_))) - (_%tl66736773%_ + (##car _%e67076802%_))) + (_%tl67096809%_ (let () (declare (not safe)) - (##cdr _%e66716766%_)))) - (if (gx#stx-null? _%tl66736773%_) - ((lambda (_%L6776%_ - _%L6778%_ - _%L6779%_) + (##cdr _%e67076802%_)))) + (if (gx#stx-null? _%tl67096809%_) + ((lambda (_%L6812%_ + _%L6814%_ + _%L6815%_) (gx#stx-wrap-source - (cons _%L6776%_ - (foldr (lambda (_%g68046809%_ + (cons _%L6812%_ + (foldr (lambda (_%g68406845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g68056812%_) - (cons _%g68046809%_ _%g68056812%_)) - (foldr (lambda (_%g68066815%_ _%g68076818%_) - (cons _%g68066815%_ _%g68076818%_)) + _%g68416848%_) + (cons _%g68406845%_ _%g68416848%_)) + (foldr (lambda (_%g68426851%_ _%g68436854%_) + (cons _%g68426851%_ _%g68436854%_)) '() - _%L6778%_) - _%L6779%_)) + _%L6814%_) + _%L6815%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx5284%_))) - _%hd66726770%_ - _%opt66706762%_ - _%pre66586722%_) - (_%g66426679%_ - _%g66436683%_)))) - (_%g66426679%_ _%g66436683%_))))))) - (_%loop66656742%_ _%target66626736%_ '())) - (_%g66426679%_ _%g66436683%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g66426679%_ - _%g66436683%_)))) - (_%g66426679%_ _%g66436683%_))))))) - (_%loop66536702%_ _%target66506696%_ '())) - (_%g66426679%_ _%g66436683%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g66426679%_ - _%g66436683%_)))) - (_%g66426679%_ _%g66436683%_))))) - (_%g66416821%_ - (list _%pre6525%_ - (reverse _%right6533%_) - _%primary6523%_))))))) - (_%generate-kw-primary5298%_ - (lambda (_%key5899%_ - _%kwargs5901%_ - _%args5902%_ - _%body5903%_) - (letrec ((_%make-body5905%_ - (lambda (_%kwargs6392%_ _%kwvals6394%_) - (if (pair? _%kwargs6392%_) - (let* ((_%kwarg6396%_ + _%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%_ (let () (declare (not safe)) - (##car _%kwargs6392%_))) - (_%var6399%_ (cadr _%kwarg6396%_)) - (_%default6402%_ - (caddr _%kwarg6396%_)) - (_%kwval6405%_ (car _%kwvals6394%_)) - (_%rest-kwargs6408%_ + (##car _%kwargs6428%_))) + (_%var6435%_ (cadr _%kwarg6432%_)) + (_%default6438%_ + (caddr _%kwarg6432%_)) + (_%kwval6441%_ (car _%kwvals6430%_)) + (_%rest-kwargs6444%_ (let () (declare (not safe)) - (##cdr _%kwargs6392%_))) - (_%rest-kwvals6411%_ - (cdr _%kwvals6394%_)) - (_%g64166439%_ - (lambda (_%g64176435%_) + (##cdr _%kwargs6428%_))) + (_%rest-kwvals6447%_ + (cdr _%kwvals6430%_)) + (_%g64526475%_ + (lambda (_%g64536471%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g64176435%_))) - (_%g64156519%_ - (lambda (_%g64176443%_) - (if (gx#stx-pair? _%g64176443%_) - (let ((_%e64226446%_ + _%g64536471%_))) + (_%g64516555%_ + (lambda (_%g64536479%_) + (if (gx#stx-pair? _%g64536479%_) + (let ((_%e64586482%_ (gx#syntax-e - _%g64176443%_))) - (let ((_%hd64236450%_ + _%g64536479%_))) + (let ((_%hd64596486%_ (let () (declare (not safe)) - (##car _%e64226446%_))) - (_%tl64246453%_ + (##car _%e64586482%_))) + (_%tl64606489%_ (let () (declare (not safe)) - (##cdr _%e64226446%_)))) + (##cdr _%e64586482%_)))) (if (gx#stx-pair? - _%tl64246453%_) - (let ((_%e64256456%_ + _%tl64606489%_) + (let ((_%e64616492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl64246453%_))) - (let ((_%hd64266460%_ - (let () (declare (not safe)) (##car _%e64256456%_))) - (_%tl64276463%_ + (gx#syntax-e _%tl64606489%_))) + (let ((_%hd64626496%_ + (let () (declare (not safe)) (##car _%e64616492%_))) + (_%tl64636499%_ (let () (declare (not safe)) - (##cdr _%e64256456%_)))) - (if (gx#stx-pair? _%tl64276463%_) - (let ((_%e64286466%_ (gx#syntax-e _%tl64276463%_))) - (let ((_%hd64296470%_ + (##cdr _%e64616492%_)))) + (if (gx#stx-pair? _%tl64636499%_) + (let ((_%e64646502%_ (gx#syntax-e _%tl64636499%_))) + (let ((_%hd64656506%_ (let () (declare (not safe)) - (##car _%e64286466%_))) - (_%tl64306473%_ + (##car _%e64646502%_))) + (_%tl64666509%_ (let () (declare (not safe)) - (##cdr _%e64286466%_)))) - (if (gx#stx-pair? _%tl64306473%_) - (let ((_%e64316476%_ - (gx#syntax-e _%tl64306473%_))) - (let ((_%hd64326480%_ + (##cdr _%e64646502%_)))) + (if (gx#stx-pair? _%tl64666509%_) + (let ((_%e64676512%_ + (gx#syntax-e _%tl64666509%_))) + (let ((_%hd64686516%_ (let () (declare (not safe)) - (##car _%e64316476%_))) - (_%tl64336483%_ + (##car _%e64676512%_))) + (_%tl64696519%_ (let () (declare (not safe)) - (##cdr _%e64316476%_)))) - (if (gx#stx-null? _%tl64336483%_) - ((lambda (_%L6486%_ - _%L6488%_ - _%L6489%_ - _%L6490%_) + (##cdr _%e64676512%_)))) + (if (gx#stx-null? _%tl64696519%_) + ((lambda (_%L6522%_ + _%L6524%_ + _%L6525%_ + _%L6526%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6490%_ + (cons (cons (cons (cons _%L6526%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'eq?) - (cons _%L6489%_ + (cons _%L6525%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'absent-value) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6488%_ - (cons _%L6489%_ '())))) + (cons _%L6524%_ + (cons _%L6525%_ '())))) '())) '()) - (cons _%L6486%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd64326480%_ - _%hd64296470%_ - _%hd64266460%_ - _%hd64236450%_) - (_%g64166439%_ _%g64176443%_)))) - (_%g64166439%_ _%g64176443%_)))) - (_%g64166439%_ _%g64176443%_)))) - (_%g64166439%_ _%g64176443%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g64166439%_ - _%g64176443%_))))) - (_%g64156519%_ - (list _%var6399%_ - _%kwval6405%_ - _%default6402%_ - (_%make-body5905%_ - _%rest-kwargs6408%_ - _%rest-kwvals6411%_)))) - (cons 'begin _%body5903%_)))) - (_%make-main5907%_ + (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%_ (lambda () - (let* ((_%g62006208%_ - (lambda (_%g62016204%_) + (let* ((_%g62366244%_ + (lambda (_%g62376240%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62016204%_))) - (_%g61996384%_ - (lambda (_%g62016212%_) - ((lambda (_%L6215%_) - (let* ((_%g62276244%_ - (lambda (_%g62286240%_) + _%g62376240%_))) + (_%g62356420%_ + (lambda (_%g62376248%_) + ((lambda (_%L6251%_) + (let* ((_%g62636280%_ + (lambda (_%g62646276%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62286240%_))) - (_%g62266380%_ - (lambda (_%g62286248%_) + _%g62646276%_))) + (_%g62626416%_ + (lambda (_%g62646284%_) (if (gx#stx-pair/null? - _%g62286248%_) - (let ((_g20899_ + _%g62646284%_) + (let ((_g20935_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g62286248%_ '0))) + (gx#syntax-split-splice _%g62646284%_ '0))) (begin - (let ((_g20900_ + (let ((_g20936_ (let () (declare (not safe)) - (if (##values? _g20899_) - (##vector-length _g20899_) + (if (##values? _g20935_) + (##vector-length _g20935_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20900_ 2))) - (error "Context expects 2 values" _g20900_))) - (let ((_%target62306251%_ + (##fx= _g20936_ 2))) + (error "Context expects 2 values" _g20936_))) + (let ((_%target62666287%_ (let () (declare (not safe)) - (##vector-ref _g20899_ 0))) - (_%tl62326254%_ + (##vector-ref _g20935_ 0))) + (_%tl62686290%_ (let () (declare (not safe)) - (##vector-ref _g20899_ 1)))) - (if (gx#stx-null? _%tl62326254%_) - (letrec ((_%loop62336257%_ - (lambda (_%hd62316261%_ - _%kwval62376264%_) - (if (gx#stx-pair? _%hd62316261%_) - (let ((_%e62346267%_ + (##vector-ref _g20935_ 1)))) + (if (gx#stx-null? _%tl62686290%_) + (letrec ((_%loop62696293%_ + (lambda (_%hd62676297%_ + _%kwval62736300%_) + (if (gx#stx-pair? _%hd62676297%_) + (let ((_%e62706303%_ (gx#syntax-e - _%hd62316261%_))) - (let ((_%lp-hd62356271%_ + _%hd62676297%_))) + (let ((_%lp-hd62716307%_ (let () (declare (not safe)) - (##car _%e62346267%_))) - (_%lp-tl62366274%_ + (##car _%e62706303%_))) + (_%lp-tl62726310%_ (let () (declare (not safe)) - (##cdr _%e62346267%_)))) - (_%loop62336257%_ - _%lp-tl62366274%_ - (cons _%lp-hd62356271%_ - _%kwval62376264%_)))) - (let ((_%kwval62386277%_ - (reverse _%kwval62376264%_))) - ((lambda (_%L6281%_) - (let* ((_%g62986306%_ - (lambda (_%g62996302%_) + (##cdr _%e62706303%_)))) + (_%loop62696293%_ + _%lp-tl62726310%_ + (cons _%lp-hd62716307%_ + _%kwval62736300%_)))) + (let ((_%kwval62746313%_ + (reverse _%kwval62736300%_))) + ((lambda (_%L6317%_) + (let* ((_%g63346342%_ + (lambda (_%g63356338%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62996302%_))) - (_%g62976376%_ - (lambda (_%g62996310%_) - ((lambda (_%L6313%_) - (let* ((_%g63266334%_ + _%g63356338%_))) + (_%g63336412%_ + (lambda (_%g63356346%_) + ((lambda (_%L6349%_) + (let* ((_%g63626370%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g63276330%_) + (lambda (_%g63636366%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63276330%_))) - (_%g63256364%_ - (lambda (_%g63276338%_) - ((lambda (_%L6341%_) + _%g63636366%_))) + (_%g63616400%_ + (lambda (_%g63636374%_) + ((lambda (_%L6377%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L6215%_ - (foldr (lambda (_%g63556358%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g63566361%_) - (cons _%g63556358%_ _%g63566361%_)) - _%L6313%_ - _%L6281%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6341%_ '()))) - (gx#stx-source _%stx5284%_))) - _%g63276338%_)))) - (_%g63256364%_ - (_%make-body5905%_ - _%kwargs5901%_ - (foldr (lambda (_%g63676370%_ _%g63686373%_) - (cons _%g63676370%_ _%g63686373%_)) + (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%_)) '() - _%L6281%_))))) - _%g62996310%_)))) + _%L6317%_))))) + _%g63356346%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g62976376%_ - _%args5902%_))) - _%kwval62386277%_)))))) - (_%loop62336257%_ _%target62306251%_ '())) - (_%g62276244%_ _%g62286248%_))))) - (_%g62276244%_ _%g62286248%_))))) + (_%g63336412%_ + _%args5938%_))) + _%kwval62746313%_)))))) + (_%loop62696293%_ _%target62666287%_ '())) + (_%g62636280%_ _%g62646284%_))))) + (_%g62636280%_ _%g62646284%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g62266380%_ + (_%g62626416%_ (gx#gentemps - (map cadr _%kwargs5901%_))))) - _%g62016212%_)))) - (_%g61996384%_ - (let ((_%$e6388%_ _%key5899%_)) - (if _%$e6388%_ - _%$e6388%_ + (map cadr _%kwargs5937%_))))) + _%g62376248%_)))) + (_%g62356420%_ + (let ((_%$e6424%_ _%key5935%_)) + (if _%$e6424%_ + _%$e6424%_ (gx#syntax-local-introduce '@@keywords))))))) - (_%make-dispatch5908%_ - (lambda (_%main6008%_) - (let* ((_%g60116019%_ - (lambda (_%g60126015%_) + (_%make-dispatch5944%_ + (lambda (_%main6044%_) + (let* ((_%g60476055%_ + (lambda (_%g60486051%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60126015%_))) - (_%g60106190%_ - (lambda (_%g60126023%_) - ((lambda (_%L6026%_) - (let* ((_%g60386055%_ - (lambda (_%g60396051%_) + _%g60486051%_))) + (_%g60466226%_ + (lambda (_%g60486059%_) + ((lambda (_%L6062%_) + (let* ((_%g60746091%_ + (lambda (_%g60756087%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60396051%_))) - (_%g60376151%_ - (lambda (_%g60396059%_) + _%g60756087%_))) + (_%g60736187%_ + (lambda (_%g60756095%_) (if (gx#stx-pair/null? - _%g60396059%_) - (let ((_g20901_ + _%g60756095%_) + (let ((_g20937_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g60396059%_ '0))) + (gx#syntax-split-splice _%g60756095%_ '0))) (begin - (let ((_g20902_ + (let ((_g20938_ (let () (declare (not safe)) - (if (##values? _g20901_) - (##vector-length _g20901_) + (if (##values? _g20937_) + (##vector-length _g20937_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20902_ 2))) - (error "Context expects 2 values" _g20902_))) - (let ((_%target60416062%_ + (##fx= _g20938_ 2))) + (error "Context expects 2 values" _g20938_))) + (let ((_%target60776098%_ (let () (declare (not safe)) - (##vector-ref _g20901_ 0))) - (_%tl60436065%_ + (##vector-ref _g20937_ 0))) + (_%tl60796101%_ (let () (declare (not safe)) - (##vector-ref _g20901_ 1)))) - (if (gx#stx-null? _%tl60436065%_) - (letrec ((_%loop60446068%_ - (lambda (_%hd60426072%_ - _%get-kw60486075%_) - (if (gx#stx-pair? _%hd60426072%_) - (let ((_%e60456078%_ + (##vector-ref _g20937_ 1)))) + (if (gx#stx-null? _%tl60796101%_) + (letrec ((_%loop60806104%_ + (lambda (_%hd60786108%_ + _%get-kw60846111%_) + (if (gx#stx-pair? _%hd60786108%_) + (let ((_%e60816114%_ (gx#syntax-e - _%hd60426072%_))) - (let ((_%lp-hd60466082%_ + _%hd60786108%_))) + (let ((_%lp-hd60826118%_ (let () (declare (not safe)) - (##car _%e60456078%_))) - (_%lp-tl60476085%_ + (##car _%e60816114%_))) + (_%lp-tl60836121%_ (let () (declare (not safe)) - (##cdr _%e60456078%_)))) - (_%loop60446068%_ - _%lp-tl60476085%_ - (cons _%lp-hd60466082%_ - _%get-kw60486075%_)))) - (let ((_%get-kw60496088%_ - (reverse _%get-kw60486075%_))) - ((lambda (_%L6092%_) - (let* ((_%g61096117%_ - (lambda (_%g61106113%_) + (##cdr _%e60816114%_)))) + (_%loop60806104%_ + _%lp-tl60836121%_ + (cons _%lp-hd60826118%_ + _%get-kw60846111%_)))) + (let ((_%get-kw60856124%_ + (reverse _%get-kw60846111%_))) + ((lambda (_%L6128%_) + (let* ((_%g61456153%_ + (lambda (_%g61466149%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61106113%_))) - (_%g61086147%_ - (lambda (_%g61106121%_) - ((lambda (_%L6124%_) + _%g61466149%_))) + (_%g61446183%_ + (lambda (_%g61466157%_) + ((lambda (_%L6160%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _%L6026%_ + (cons (cons _%L6062%_ (gx#datum->syntax '#f 'args)) (cons (cons (gx#datum->syntax '#f 'apply) - (cons _%L6124%_ - (cons _%L6026%_ - (foldr (lambda (_%g61386141%_ + (cons _%L6160%_ + (cons _%L6062%_ + (foldr (lambda (_%g61746177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g61396144%_) - (cons _%g61386141%_ _%g61396144%_)) + _%g61756180%_) + (cons _%g61746177%_ _%g61756180%_)) (cons (gx#datum->syntax '#f 'args) '()) - _%L6092%_)))) + _%L6128%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx5284%_))) - _%g61106121%_)))) + (gx#stx-source _%stx5320%_))) + _%g61466157%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g61086147%_ - _%main6008%_))) - _%get-kw60496088%_)))))) - (_%loop60446068%_ _%target60416062%_ '())) - (_%g60386055%_ _%g60396059%_))))) - (_%g60386055%_ _%g60396059%_))))) + (_%g61446183%_ + _%main6044%_))) + _%get-kw60856124%_)))))) + (_%loop60806104%_ _%target60776098%_ '())) + (_%g60746091%_ _%g60756095%_))))) + (_%g60746091%_ _%g60756095%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g60376151%_ - (map (lambda (_%kwarg6155%_) - (let* ((_%g61586166%_ - (lambda (_%g61596162%_) + (_%g60736187%_ + (map (lambda (_%kwarg6191%_) + (let* ((_%g61946202%_ + (lambda (_%g61956198%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61596162%_))) - (_%g61576186%_ - (lambda (_%g61596170%_) - ((lambda (_%L6173%_) + _%g61956198%_))) + (_%g61936222%_ + (lambda (_%g61956206%_) + ((lambda (_%L6209%_) (cons (gx#datum->syntax '#f 'symbolic-table-ref) - (cons _%L6026%_ + (cons _%L6062%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L6173%_ '())) + (cons _%L6209%_ '())) (cons (gx#datum->syntax '#f 'absent-value) '()))))) - _%g61596170%_)))) - (_%g61576186%_ (car _%kwarg6155%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%kwargs5901%_)))) - _%g60126023%_)))) - (_%g60106190%_ - (let ((_%$e6194%_ _%key5899%_)) - (if _%$e6194%_ - _%$e6194%_ + _%g61956206%_)))) + (_%g61936222%_ (car _%kwarg6191%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%kwargs5937%_)))) + _%g60486059%_)))) + (_%g60466226%_ + (let ((_%$e6230%_ _%key5935%_)) + (if _%$e6230%_ + _%$e6230%_ (gx#syntax-local-introduce '@@keywords)))))))) - (let* ((_%g59105918%_ - (lambda (_%g59115914%_) + (let* ((_%g59465954%_ + (lambda (_%g59475950%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59115914%_))) - (_%g59096004%_ - (lambda (_%g59115922%_) - ((lambda (_%L5925%_) - (let* ((_%g59385946%_ - (lambda (_%g59395942%_) + _%g59475950%_))) + (_%g59456040%_ + (lambda (_%g59475958%_) + ((lambda (_%L5961%_) + (let* ((_%g59745982%_ + (lambda (_%g59755978%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59395942%_))) - (_%g59376000%_ - (lambda (_%g59395950%_) - ((lambda (_%L5953%_) - (let* ((_%g59665974%_ - (lambda (_%g59675970%_) + _%g59755978%_))) + (_%g59736036%_ + (lambda (_%g59755986%_) + ((lambda (_%L5989%_) + (let* ((_%g60026010%_ + (lambda (_%g60036006%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59675970%_))) - (_%g59655996%_ - (lambda (_%g59675978%_) - ((lambda (_%L5981%_) + _%g60036006%_))) + (_%g60016032%_ + (lambda (_%g60036014%_) + ((lambda (_%L6017%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-values) - (cons (cons (cons (cons _%L5925%_ '()) - (cons _%L5981%_ '())) + (cons (cons (cons (cons _%L5961%_ '()) + (cons _%L6017%_ '())) '()) - (cons _%L5953%_ '())))) - _%g59675978%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g59655996%_ - (_%make-main5907%_)))) - _%g59395950%_)))) - (_%g59376000%_ - (_%make-dispatch5908%_ _%L5925%_)))) - _%g59115922%_)))) - (_%g59096004%_ (gx#genident 'kw-lambda-main)))))) - (_%generate-kw-dispatch5299%_ - (lambda (_%primary5812%_ _%kwargs5814%_ _%strict?5815%_) - (let* ((_%g58175836%_ - (lambda (_%g58185832%_) + (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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g58185832%_))) - (_%g58165895%_ - (lambda (_%g58185840%_) - (if (gx#stx-pair? _%g58185840%_) - (let ((_%e58225843%_ - (gx#syntax-e _%g58185840%_))) - (let ((_%hd58235847%_ + _%g58545868%_))) + (_%g58525931%_ + (lambda (_%g58545876%_) + (if (gx#stx-pair? _%g58545876%_) + (let ((_%e58585879%_ + (gx#syntax-e _%g58545876%_))) + (let ((_%hd58595883%_ (let () (declare (not safe)) - (##car _%e58225843%_))) - (_%tl58245850%_ + (##car _%e58585879%_))) + (_%tl58605886%_ (let () (declare (not safe)) - (##cdr _%e58225843%_)))) - (if (gx#stx-pair? _%tl58245850%_) - (let ((_%e58255853%_ - (gx#syntax-e _%tl58245850%_))) - (let ((_%hd58265857%_ + (##cdr _%e58585879%_)))) + (if (gx#stx-pair? _%tl58605886%_) + (let ((_%e58615889%_ + (gx#syntax-e _%tl58605886%_))) + (let ((_%hd58625893%_ (let () (declare (not safe)) - (##car _%e58255853%_))) - (_%tl58275860%_ + (##car _%e58615889%_))) + (_%tl58635896%_ (let () (declare (not safe)) - (##cdr _%e58255853%_)))) - (if (gx#stx-pair? _%tl58275860%_) - (let ((_%e58285863%_ + (##cdr _%e58615889%_)))) + (if (gx#stx-pair? _%tl58635896%_) + (let ((_%e58645899%_ (gx#syntax-e - _%tl58275860%_))) - (let ((_%hd58295867%_ + _%tl58635896%_))) + (let ((_%hd58655903%_ (let () (declare (not safe)) - (##car _%e58285863%_))) - (_%tl58305870%_ + (##car _%e58645899%_))) + (_%tl58665906%_ (let () (declare (not safe)) - (##cdr _%e58285863%_)))) + (##cdr _%e58645899%_)))) (if (gx#stx-null? - _%tl58305870%_) - ((lambda (_%L5873%_ + _%tl58665906%_) + ((lambda (_%L5909%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L5875%_ - _%L5876%_) + _%L5911%_ + _%L5912%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5873%_ + (cons _%L5909%_ (cons (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f @@ -2205,2554 +2205,2554 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L5876%_ + (cons _%L5912%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L5875%_ (cons _%L5873%_ '()))))) + (cons _%L5911%_ (cons _%L5909%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd58295867%_ - _%hd58265857%_ - _%hd58235847%_) - (_%g58175836%_ _%g58185840%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g58175836%_ - _%g58185840%_)))) - (_%g58175836%_ _%g58185840%_)))) - (_%g58175836%_ _%g58185840%_))))) - (_%g58165895%_ - (list (if _%strict?5815%_ - (_%generate-kw-table5300%_ - (map car _%kwargs5814%_)) + _%hd58655903%_ + _%hd58625893%_ + _%hd58595883%_) + (_%g58535872%_ _%g58545876%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g58535872%_ + _%g58545876%_)))) + (_%g58535872%_ _%g58545876%_)))) + (_%g58535872%_ _%g58545876%_))))) + (_%g58525931%_ + (list (if _%strict?5851%_ + (_%generate-kw-table5336%_ + (map car _%kwargs5850%_)) '#f) - _%primary5812%_ + _%primary5848%_ (gx#genident 'args)))))) - (_%generate-kw-table5300%_ - (lambda (_%kws5786%_) - (let _%rehash5789%_ ((_%pht5792%_ - (let ((__tmp20907 - (length _%kws5786%_))) + (_%generate-kw-table5336%_ + (lambda (_%kws5822%_) + (let _%rehash5825%_ ((_%pht5828%_ + (let ((__tmp20943 + (length _%kws5822%_))) (declare (not safe)) - (##make-vector __tmp20907 '#f)))) - (let _%lp5795%_ ((_%rest5798%_ _%kws5786%_)) - (if (pair? _%rest5798%_) - (let* ((_%key5801%_ + (##make-vector __tmp20943 '#f)))) + (let _%lp5831%_ ((_%rest5834%_ _%kws5822%_)) + (if (pair? _%rest5834%_) + (let* ((_%key5837%_ (let () (declare (not safe)) - (##car _%rest5798%_))) - (_%rest5804%_ + (##car _%rest5834%_))) + (_%rest5840%_ (let () (declare (not safe)) - (##cdr _%rest5798%_))) - (_%pos5807%_ - (let ((__tmp20904 - (keyword-hash _%key5801%_)) - (__tmp20903 - (vector-length _%pht5792%_))) + (##cdr _%rest5834%_))) + (_%pos5843%_ + (let ((__tmp20940 + (keyword-hash _%key5837%_)) + (__tmp20939 + (vector-length _%pht5828%_))) (declare (not safe)) - (##fxmodulo __tmp20904 __tmp20903)))) - (if (vector-ref _%pht5792%_ _%pos5807%_) - (if (let ((__tmp20905 - (vector-length _%pht5792%_))) + (##fxmodulo __tmp20940 __tmp20939)))) + (if (vector-ref _%pht5828%_ _%pos5843%_) + (if (let ((__tmp20941 + (vector-length _%pht5828%_))) (declare (not safe)) - (##fx< __tmp20905 '8192)) - (_%rehash5789%_ + (##fx< __tmp20941 '8192)) + (_%rehash5825%_ (make-vector (quotient - (let ((__tmp20906 - (vector-length _%pht5792%_))) + (let ((__tmp20942 + (vector-length _%pht5828%_))) (declare (not safe)) - (##fx* '3 __tmp20906)) + (##fx* '3 __tmp20942)) '2) '#f)) (error '"Unresolvable keyword collision" - _%kws5786%_)) + _%kws5822%_)) (begin (vector-set! - _%pht5792%_ - _%pos5807%_ - _%key5801%_) - (_%lp5795%_ _%rest5804%_)))) - _%pht5792%_)))))) - (let* ((_%__stx1941019411%_ _%stx5284%_) - (_%g53045335%_ + _%pht5828%_ + _%pos5843%_ + _%key5837%_) + (_%lp5831%_ _%rest5840%_)))) + _%pht5828%_)))))) + (let* ((_%__stx1944619447%_ _%stx5320%_) + (_%g53405371%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1941019411%_)))) - (let ((_%__kont1941319414%_ - (lambda (_%L5767%_ _%L5769%_) + _%__stx1944619447%_)))) + (let ((_%__kont1944919450%_ + (lambda (_%L5803%_ _%L5805%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5769%_ _%L5767%_)))) - (_%__kont1941519416%_ - (lambda (_%L5539%_ _%L5541%_) - (let ((_g20908_ (_%opt-lambda-split5290%_ _%L5541%_))) + (cons _%L5805%_ _%L5803%_)))) + (_%__kont1945119452%_ + (lambda (_%L5575%_ _%L5577%_) + (let ((_g20944_ (_%opt-lambda-split5326%_ _%L5577%_))) (begin - (let ((_g20909_ + (let ((_g20945_ (let () (declare (not safe)) - (if (##values? _g20908_) - (##vector-length _g20908_) + (if (##values? _g20944_) + (##vector-length _g20944_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20909_ 3))) - (error "Context expects 3 values" _g20909_))) - (let ((_%pre5554%_ + (##fx= _g20945_ 3))) + (error "Context expects 3 values" _g20945_))) + (let ((_%pre5590%_ (let () (declare (not safe)) - (##vector-ref _g20908_ 0))) - (_%opt5556%_ + (##vector-ref _g20944_ 0))) + (_%opt5592%_ (let () (declare (not safe)) - (##vector-ref _g20908_ 1))) - (_%tail5557%_ + (##vector-ref _g20944_ 1))) + (_%tail5593%_ (let () (declare (not safe)) - (##vector-ref _g20908_ 2)))) - (let* ((_%g55595567%_ - (lambda (_%g55605563%_) + (##vector-ref _g20944_ 2)))) + (let* ((_%g55955603%_ + (lambda (_%g55965599%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55605563%_))) - (_%g55585736%_ - (lambda (_%g55605571%_) - ((lambda (_%L5574%_) - (let* ((_%g55875595%_ - (lambda (_%g55885591%_) + _%g55965599%_))) + (_%g55945772%_ + (lambda (_%g55965607%_) + ((lambda (_%L5610%_) + (let* ((_%g56235631%_ + (lambda (_%g56245627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55885591%_))) - (_%g55865732%_ - (lambda (_%g55885599%_) - ((lambda (_%L5602%_) - (let* ((_%g56155632%_ - (lambda (_%g56165628%_) + _%g56245627%_))) + (_%g56225768%_ + (lambda (_%g56245635%_) + ((lambda (_%L5638%_) + (let* ((_%g56515668%_ + (lambda (_%g56525664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56165628%_))) - (_%g56145728%_ - (lambda (_%g56165636%_) + _%g56525664%_))) + (_%g56505764%_ + (lambda (_%g56525672%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g56165636%_) - (let ((_g20910_ - (gx#syntax-split-splice _%g56165636%_ '0))) + _%g56525672%_) + (let ((_g20946_ + (gx#syntax-split-splice _%g56525672%_ '0))) (begin - (let ((_g20911_ + (let ((_g20947_ (let () (declare (not safe)) - (if (##values? _g20910_) - (##vector-length _g20910_) + (if (##values? _g20946_) + (##vector-length _g20946_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20911_ 2))) + (##fx= _g20947_ 2))) (error "Context expects 2 values" - _g20911_))) - (let ((_%target56185639%_ + _g20947_))) + (let ((_%target56545675%_ (let () (declare (not safe)) - (##vector-ref _g20910_ 0))) - (_%tl56205642%_ + (##vector-ref _g20946_ 0))) + (_%tl56565678%_ (let () (declare (not safe)) - (##vector-ref _g20910_ 1)))) - (if (gx#stx-null? _%tl56205642%_) - (letrec ((_%loop56215645%_ - (lambda (_%hd56195649%_ - _%clause56255652%_) + (##vector-ref _g20946_ 1)))) + (if (gx#stx-null? _%tl56565678%_) + (letrec ((_%loop56575681%_ + (lambda (_%hd56555685%_ + _%clause56615688%_) (if (gx#stx-pair? - _%hd56195649%_) - (let ((_%e56225655%_ + _%hd56555685%_) + (let ((_%e56585691%_ (gx#syntax-e - _%hd56195649%_))) - (let ((_%lp-hd56235659%_ + _%hd56555685%_))) + (let ((_%lp-hd56595695%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e56225655%_))) - (_%lp-tl56245662%_ - (let () (declare (not safe)) (##cdr _%e56225655%_)))) - (_%loop56215645%_ - _%lp-tl56245662%_ - (cons _%lp-hd56235659%_ _%clause56255652%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%clause56265665%_ - (reverse _%clause56255652%_))) - ((lambda (_%L5669%_) - (let* ((_%g56865694%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g56875690%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56875690%_))) - (_%g56855716%_ - (lambda (_%g56875698%_) - ((lambda (_%L5701%_) + _%g57235726%_))) + (_%g57215752%_ + (lambda (_%g57235734%_) + ((lambda (_%L5737%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5574%_ '()) - (cons _%L5602%_ '())) + (cons (cons (cons (cons _%L5610%_ '()) + (cons _%L5638%_ '())) '()) - (cons _%L5701%_ '())))) - _%g56875698%_)))) - (_%g56855716%_ + (cons _%L5737%_ '())))) + _%g57235734%_)))) + (_%g57215752%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g57195722%_ _%g57205725%_) - (cons _%g57195722%_ _%g57205725%_)) + (foldr (lambda (_%g57555758%_ _%g57565761%_) + (cons _%g57555758%_ _%g57565761%_)) '() - _%L5669%_)) - (gx#stx-source _%stx5284%_))))) - _%clause56265665%_)))))) + _%L5705%_)) + (gx#stx-source _%stx5320%_))))) + _%clause56625701%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop56215645%_ - _%target56185639%_ + (_%loop56575681%_ + _%target56545675%_ '())) - (_%g56155632%_ _%g56165636%_))))) - (_%g56155632%_ _%g56165636%_))))) - (_%g56145728%_ - (_%generate-opt-dispatch5295%_ - _%L5574%_ - _%pre5554%_ - _%opt5556%_ - _%tail5557%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g55885599%_)))) - (_%g55865732%_ + (_%g56515668%_ _%g56525672%_))))) + (_%g56515668%_ _%g56525672%_))))) + (_%g56505764%_ + (_%generate-opt-dispatch5331%_ + _%L5610%_ + _%pre5590%_ + _%opt5592%_ + _%tail5593%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g56245635%_)))) + (_%g56225768%_ (gx#stx-wrap-source - (_%generate-opt-primary5294%_ - _%pre5554%_ - _%opt5556%_ - _%tail5557%_ - _%L5539%_) - (gx#stx-source _%stx5284%_))))) - _%g55605571%_)))) - (_%g55585736%_ (gx#genident 'opt-lambda)))))))) - (_%__kont1941719418%_ - (lambda (_%L5362%_ _%L5364%_) - (let* ((_%g53805387%_ - (lambda (_%g53815383%_) + (_%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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g53815383%_))) - (_%g53795508%_ - (lambda (_%g53815391%_) + _%g54175419%_))) + (_%g54155544%_ + (lambda (_%g54175427%_) ((lambda () - (let ((_g20912_ - (_%kw-lambda-split5292%_ _%L5364%_))) + (let ((_g20948_ + (_%kw-lambda-split5328%_ _%L5400%_))) (begin - (let ((_g20913_ + (let ((_g20949_ (let () (declare (not safe)) - (if (##values? _g20912_) - (##vector-length _g20912_) + (if (##values? _g20948_) + (##vector-length _g20948_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20913_ 3))) + (##fx= _g20949_ 3))) (error "Context expects 3 values" - _g20913_))) - (let ((_%key5400%_ + _g20949_))) + (let ((_%key5436%_ (let () (declare (not safe)) - (##vector-ref _g20912_ 0))) - (_%kwargs5402%_ + (##vector-ref _g20948_ 0))) + (_%kwargs5438%_ (let () (declare (not safe)) - (##vector-ref _g20912_ 1))) - (_%args5403%_ + (##vector-ref _g20948_ 1))) + (_%args5439%_ (let () (declare (not safe)) - (##vector-ref _g20912_ 2)))) - (let* ((_%g54055413%_ - (lambda (_%g54065409%_) + (##vector-ref _g20948_ 2)))) + (let* ((_%g54415449%_ + (lambda (_%g54425445%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54065409%_))) - (_%g54045504%_ - (lambda (_%g54065417%_) - ((lambda (_%L5420%_) - (let* ((_%g54385446%_ - (lambda (_%g54395442%_) + _%g54425445%_))) + (_%g54405540%_ + (lambda (_%g54425453%_) + ((lambda (_%L5456%_) + (let* ((_%g54745482%_ + (lambda (_%g54755478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54395442%_))) - (_%g54375500%_ - (lambda (_%g54395450%_) - ((lambda (_%L5453%_) + _%g54755478%_))) + (_%g54735536%_ + (lambda (_%g54755486%_) + ((lambda (_%L5489%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g54665474%_ - (lambda (_%g54675470%_) + (let* ((_%g55025510%_ + (lambda (_%g55035506%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54675470%_))) - (_%g54655496%_ - (lambda (_%g54675478%_) - ((lambda (_%L5481%_) + _%g55035506%_))) + (_%g55015532%_ + (lambda (_%g55035514%_) + ((lambda (_%L5517%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5420%_ + (cons (cons (cons (cons _%L5456%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L5453%_ '())) + (cons _%L5489%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L5481%_ '())))) - _%g54675478%_)))) - (_%g54655496%_ + (cons _%L5517%_ '())))) + _%g55035514%_)))) + (_%g55015532%_ (gx#stx-wrap-source - (_%generate-kw-dispatch5299%_ - _%L5420%_ - _%kwargs5402%_ - (not _%key5400%_)) - (gx#stx-source _%stx5284%_))))) - _%g54395450%_)))) - (_%g54375500%_ + (_%generate-kw-dispatch5335%_ + _%L5456%_ + _%kwargs5438%_ + (not _%key5436%_)) + (gx#stx-source _%stx5320%_))))) + _%g54755486%_)))) + (_%g54735536%_ (gx#stx-wrap-source - (_%generate-kw-primary5298%_ - _%key5400%_ - _%kwargs5402%_ - _%args5403%_ - _%L5362%_) - (gx#stx-source _%stx5284%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g54065417%_)))) - (_%g54045504%_ + (_%generate-kw-primary5334%_ + _%key5436%_ + _%kwargs5438%_ + _%args5439%_ + _%L5398%_) + (gx#stx-source _%stx5320%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g54425453%_)))) + (_%g54405540%_ (gx#genident 'kw-lambda))))))))))) - (_%g53795508%_ - (_%check-duplicate-bindings5293%_ _%L5364%_)))))) - (let* ((_%__match1945519456%_ - (lambda (_%e53245342%_ - _%hd53255346%_ - _%tl53265349%_ - _%e53275352%_ - _%hd53285356%_ - _%tl53295359%_) - (let ((_%L5362%_ _%tl53295359%_) - (_%L5364%_ _%hd53285356%_)) - (if (_%kw-lambda?5291%_ _%L5364%_) - (_%__kont1941719418%_ _%L5362%_ _%L5364%_) - (let () (declare (not safe)) (_%g53045335%_)))))) - (_%__match1944319444%_ - (lambda (_%e53165519%_ - _%hd53175523%_ - _%tl53185526%_ - _%e53195529%_ - _%hd53205533%_ - _%tl53215536%_) - (let ((_%L5539%_ _%tl53215536%_) - (_%L5541%_ _%hd53205533%_)) - (if (_%opt-lambda?5289%_ _%L5541%_) - (_%__kont1941519416%_ _%L5539%_ _%L5541%_) - (_%__match1945519456%_ - _%e53165519%_ - _%hd53175523%_ - _%tl53185526%_ - _%e53195529%_ - _%hd53205533%_ - _%tl53215536%_))))) - (_%__match1943119432%_ - (lambda (_%e53085747%_ - _%hd53095751%_ - _%tl53105754%_ - _%e53115757%_ - _%hd53125761%_ - _%tl53135764%_) - (let ((_%L5767%_ _%tl53135764%_) - (_%L5769%_ _%hd53125761%_)) - (if (_%simple-lambda?5287%_ _%L5769%_) - (_%__kont1941319414%_ _%L5767%_ _%L5769%_) - (_%__match1944319444%_ - _%e53085747%_ - _%hd53095751%_ - _%tl53105754%_ - _%e53115757%_ - _%hd53125761%_ - _%tl53135764%_)))))) - (if (gx#stx-pair? _%__stx1941019411%_) - (let ((_%e53085747%_ (gx#syntax-e _%__stx1941019411%_))) - (let ((_%tl53105754%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e53085747%_))) - (_%hd53095751%_ + (##cdr _%e53445783%_))) + (_%hd53455787%_ (let () (declare (not safe)) - (##car _%e53085747%_)))) - (if (gx#stx-pair? _%tl53105754%_) - (let ((_%e53115757%_ (gx#syntax-e _%tl53105754%_))) - (let ((_%tl53135764%_ + (##car _%e53445783%_)))) + (if (gx#stx-pair? _%tl53465790%_) + (let ((_%e53475793%_ (gx#syntax-e _%tl53465790%_))) + (let ((_%tl53495800%_ (let () (declare (not safe)) - (##cdr _%e53115757%_))) - (_%hd53125761%_ + (##cdr _%e53475793%_))) + (_%hd53485797%_ (let () (declare (not safe)) - (##car _%e53115757%_)))) - (_%__match1943119432%_ - _%e53085747%_ - _%hd53095751%_ - _%tl53105754%_ - _%e53115757%_ - _%hd53125761%_ - _%tl53135764%_))) - (let () (declare (not safe)) (_%g53045335%_))))) - (let () (declare (not safe)) (_%g53045335%_))))))))) + (##car _%e53475793%_)))) + (_%__match1946719468%_ + _%e53445783%_ + _%hd53455787%_ + _%tl53465790%_ + _%e53475793%_ + _%hd53485797%_ + _%tl53495800%_))) + (let () (declare (not safe)) (_%g53405371%_))))) + (let () (declare (not safe)) (_%g53405371%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def| - (lambda (_%$stx8709%_) - (let* ((_%__stx1945819459%_ _%$stx8709%_) - (_%g87158779%_ + (lambda (_%$stx8745%_) + (let* ((_%__stx1949419495%_ _%$stx8745%_) + (_%g87518815%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1945819459%_)))) - (let ((_%__kont1946119462%_ - (lambda (_%L9009%_ _%L9011%_ _%L9012%_ _%L9013%_) + _%__stx1949419495%_)))) + (let ((_%__kont1949719498%_ + (lambda (_%L9045%_ _%L9047%_ _%L9048%_ _%L9049%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L9013%_ _%L9012%_) + (cons (cons _%L9049%_ _%L9048%_) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L9011%_ - (foldr (lambda (_%g90359038%_ + (cons _%L9047%_ + (foldr (lambda (_%g90719074%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g90369041%_) - (cons _%g90359038%_ _%g90369041%_)) + _%g90729077%_) + (cons _%g90719074%_ _%g90729077%_)) '() - _%L9009%_))) + _%L9045%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1946519466%_ - (lambda (_%L8901%_ _%L8903%_ _%L8904%_) + (_%__kont1950119502%_ + (lambda (_%L8937%_ _%L8939%_ _%L8940%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8904%_ '()) + (cons (cons _%L8940%_ '()) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L8903%_ - (foldr (lambda (_%g89238926%_ + (cons _%L8939%_ + (foldr (lambda (_%g89598962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g89248929%_) - (cons _%g89238926%_ _%g89248929%_)) + _%g89608965%_) + (cons _%g89598962%_ _%g89608965%_)) '() - _%L8901%_))) + _%L8937%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1946919470%_ - (lambda (_%L8816%_ _%L8818%_) + (_%__kont1950519506%_ + (lambda (_%L8852%_ _%L8854%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8818%_ '()) (cons _%L8816%_ '())))))) - (let* ((_%__match1954919550%_ - (lambda (_%e87658786%_ - _%hd87668790%_ - _%tl87678793%_ - _%e87688796%_ - _%hd87698800%_ - _%tl87708803%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let ((_%L8816%_ _%hd87728810%_) - (_%L8818%_ _%hd87698800%_)) - (if (gx#identifier? _%L8818%_) - (_%__kont1946919470%_ _%L8816%_ _%L8818%_) - (let () (declare (not safe)) (_%g87158779%_)))))) - (_%__match1954119542%_ - (lambda (_%e87658786%_ - _%hd87668790%_ - _%tl87678793%_ - _%e87688796%_ - _%hd87698800%_ - _%tl87708803%_) - (if (gx#stx-pair? _%tl87708803%_) - (let ((_%e87718806%_ (gx#syntax-e _%tl87708803%_))) - (let ((_%tl87738813%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88078842%_))) + (_%hd88088846%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87658786%_ - _%hd87668790%_ - _%tl87678793%_ - _%e87688796%_ - _%hd87698800%_ - _%tl87708803%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) + (##car _%e88078842%_)))) + (if (gx#stx-null? _%tl88098849%_) + (_%__match1958519586%_ + _%e88018822%_ + _%hd88028826%_ + _%tl88038829%_ + _%e88048832%_ + _%hd88058836%_ + _%tl88068839%_ + _%e88078842%_ + _%hd88088846%_ + _%tl88098849%_) (let () (declare (not safe)) - (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_))))) - (_%__match1952919530%_ - (lambda (_%e87458841%_ - _%hd87468845%_ - _%tl87478848%_ - _%e87488851%_ - _%hd87498855%_ - _%tl87508858%_ - _%e87518861%_ - _%hd87528865%_ - _%tl87538868%_ - _%__splice1946719468%_ - _%target87548871%_ - _%tl87568874%_) - (letrec ((_%loop87578877%_ - (lambda (_%hd87558881%_ _%body87618884%_) - (if (gx#stx-pair? _%hd87558881%_) - (let ((_%e87588887%_ - (gx#syntax-e _%hd87558881%_))) - (let ((_%lp-tl87608894%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e87588887%_))) - (_%lp-hd87598891%_ + (##cdr _%e87948923%_))) + (_%lp-hd87958927%_ (let () (declare (not safe)) - (##car _%e87588887%_)))) - (_%loop87578877%_ - _%lp-tl87608894%_ - (cons _%lp-hd87598891%_ - _%body87618884%_)))) - (let ((_%body87628897%_ - (reverse _%body87618884%_))) - (let ((_%L8901%_ _%body87628897%_) - (_%L8903%_ _%tl87538868%_) - (_%L8904%_ _%hd87528865%_)) - (if (gx#identifier? _%L8904%_) - (_%__kont1946519466%_ - _%L8901%_ - _%L8903%_ - _%L8904%_) - (_%__match1954119542%_ - _%e87458841%_ - _%hd87468845%_ - _%tl87478848%_ - _%e87488851%_ - _%hd87498855%_ - _%tl87508858%_)))))))) - (_%loop87578877%_ _%target87548871%_ '())))) - (_%__match1950319504%_ - (lambda (_%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87278959%_ - _%hd87288963%_ - _%tl87298966%_ - _%e87308969%_ - _%hd87318973%_ - _%tl87328976%_ - _%__splice1946319464%_ - _%target87338979%_ - _%tl87358982%_) - (letrec ((_%loop87368985%_ - (lambda (_%hd87348989%_ _%body87408992%_) - (if (gx#stx-pair? _%hd87348989%_) - (let ((_%e87378995%_ - (gx#syntax-e _%hd87348989%_))) - (let ((_%lp-tl87399002%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e87378995%_))) - (_%lp-hd87388999%_ + (##cdr _%e87739031%_))) + (_%lp-hd87749035%_ (let () (declare (not safe)) - (##car _%e87378995%_)))) - (_%loop87368985%_ - _%lp-tl87399002%_ - (cons _%lp-hd87388999%_ - _%body87408992%_)))) - (let ((_%body87419005%_ - (reverse _%body87408992%_))) - (_%__kont1946119462%_ - _%body87419005%_ - _%tl87298966%_ - _%tl87328976%_ - _%hd87318973%_)))))) - (_%loop87368985%_ _%target87338979%_ '()))))) - (if (gx#stx-pair? _%__stx1945819459%_) - (let ((_%e87218939%_ (gx#syntax-e _%__stx1945819459%_))) - (let ((_%tl87238946%_ - (let () (declare (not safe)) (##cdr _%e87218939%_))) - (_%hd87228943%_ + (##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%_ (let () (declare (not safe)) - (##car _%e87218939%_)))) - (if (gx#stx-pair? _%tl87238946%_) - (let ((_%e87248949%_ (gx#syntax-e _%tl87238946%_))) - (let ((_%tl87268956%_ + (##car _%e87578975%_)))) + (if (gx#stx-pair? _%tl87598982%_) + (let ((_%e87608985%_ (gx#syntax-e _%tl87598982%_))) + (let ((_%tl87628992%_ (let () (declare (not safe)) - (##cdr _%e87248949%_))) - (_%hd87258953%_ + (##cdr _%e87608985%_))) + (_%hd87618989%_ (let () (declare (not safe)) - (##car _%e87248949%_)))) - (if (gx#stx-pair? _%hd87258953%_) - (let ((_%e87278959%_ - (gx#syntax-e _%hd87258953%_))) - (let ((_%tl87298966%_ + (##car _%e87608985%_)))) + (if (gx#stx-pair? _%hd87618989%_) + (let ((_%e87638995%_ + (gx#syntax-e _%hd87618989%_))) + (let ((_%tl87659002%_ (let () (declare (not safe)) - (##cdr _%e87278959%_))) - (_%hd87288963%_ + (##cdr _%e87638995%_))) + (_%hd87648999%_ (let () (declare (not safe)) - (##car _%e87278959%_)))) - (if (gx#stx-pair? _%hd87288963%_) - (let ((_%e87308969%_ - (gx#syntax-e _%hd87288963%_))) - (let ((_%tl87328976%_ + (##car _%e87638995%_)))) + (if (gx#stx-pair? _%hd87648999%_) + (let ((_%e87669005%_ + (gx#syntax-e _%hd87648999%_))) + (let ((_%tl87689012%_ (let () (declare (not safe)) - (##cdr _%e87308969%_))) - (_%hd87318973%_ + (##cdr _%e87669005%_))) + (_%hd87679009%_ (let () (declare (not safe)) - (##car _%e87308969%_)))) + (##car _%e87669005%_)))) (if (gx#stx-pair/null? - _%tl87268956%_) - (let ((_%__splice1946319464%_ + _%tl87628992%_) + (let ((_%__splice1949919500%_ (gx#syntax-split-splice - _%tl87268956%_ + _%tl87628992%_ '0))) - (let ((_%tl87358982%_ + (let ((_%tl87719018%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946319464%_ + _%__splice1949919500%_ '1))) - (_%target87338979%_ + (_%target87699015%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946319464%_ + _%__splice1949919500%_ '0)))) (if (gx#stx-null? - _%tl87358982%_) - (_%__match1950319504%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87278959%_ - _%hd87288963%_ - _%tl87298966%_ - _%e87308969%_ - _%hd87318973%_ - _%tl87328976%_ - _%__splice1946319464%_ - _%target87338979%_ - _%tl87358982%_) + _%tl87719018%_) + (_%__match1953919540%_ + _%e87578975%_ + _%hd87588979%_ + _%tl87598982%_ + _%e87608985%_ + _%hd87618989%_ + _%tl87628992%_ + _%e87638995%_ + _%hd87648999%_ + _%tl87659002%_ + _%e87669005%_ + _%hd87679009%_ + _%tl87689012%_ + _%__splice1949919500%_ + _%target87699015%_ + _%tl87719018%_) (if (gx#stx-pair? - _%tl87268956%_) - (let ((_%e87718806%_ + _%tl87628992%_) + (let ((_%e88078842%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl87268956%_))) - (let ((_%tl87738813%_ + (gx#syntax-e _%tl87628992%_))) + (let ((_%tl88098849%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88078842%_))) + (_%hd88088846%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))) + (##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? - _%tl87268956%_) - (let ((_%e87718806%_ + _%tl87628992%_) + (let ((_%e88078842%_ (gx#syntax-e - _%tl87268956%_))) - (let ((_%tl87738813%_ + _%tl87628992%_))) + (let ((_%tl88098849%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ - (let () (declare (not safe)) (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl87268956%_) - (let ((_%__splice1946719468%_ + _%tl87628992%_) + (let ((_%__splice1950319504%_ (gx#syntax-split-splice - _%tl87268956%_ + _%tl87628992%_ '0))) - (let ((_%tl87568874%_ + (let ((_%tl87928910%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946719468%_ + _%__splice1950319504%_ '1))) - (_%target87548871%_ + (_%target87908907%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946719468%_ + _%__splice1950319504%_ '0)))) (if (gx#stx-null? - _%tl87568874%_) - (_%__match1952919530%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87278959%_ - _%hd87288963%_ - _%tl87298966%_ - _%__splice1946719468%_ - _%target87548871%_ - _%tl87568874%_) + _%tl87928910%_) + (_%__match1956519566%_ + _%e87578975%_ + _%hd87588979%_ + _%tl87598982%_ + _%e87608985%_ + _%hd87618989%_ + _%tl87628992%_ + _%e87638995%_ + _%hd87648999%_ + _%tl87659002%_ + _%__splice1950319504%_ + _%target87908907%_ + _%tl87928910%_) (if (gx#stx-pair? - _%tl87268956%_) - (let ((_%e87718806%_ + _%tl87628992%_) + (let ((_%e88078842%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl87268956%_))) - (let ((_%tl87738813%_ - (let () (declare (not safe)) (##cdr _%e87718806%_))) - (_%hd87728810%_ + (gx#syntax-e _%tl87628992%_))) + (let ((_%tl88098849%_ + (let () (declare (not safe)) (##cdr _%e88078842%_))) + (_%hd88088846%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl87268956%_) - (let ((_%e87718806%_ + (##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%_ (gx#syntax-e - _%tl87268956%_))) - (let ((_%tl87738813%_ + _%tl87628992%_))) + (let ((_%tl88098849%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88078842%_))) + (_%hd88088846%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) + (##car _%e88078842%_)))) (if (gx#stx-null? - _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) + _%tl88098849%_) + (_%__match1958519586%_ + _%e87578975%_ + _%hd87588979%_ + _%tl87598982%_ + _%e87608985%_ + _%hd87618989%_ + _%tl87628992%_ + _%e88078842%_ + _%hd88088846%_ + _%tl88098849%_) (let () (declare (not safe)) - (_%g87158779%_))))) + (_%g87518815%_))))) (let () (declare (not safe)) - (_%g87158779%_))))))) - (if (gx#stx-pair? _%tl87268956%_) - (let ((_%e87718806%_ - (gx#syntax-e _%tl87268956%_))) - (let ((_%tl87738813%_ + (_%g87518815%_))))))) + (if (gx#stx-pair? _%tl87628992%_) + (let ((_%e88078842%_ + (gx#syntax-e _%tl87628992%_))) + (let ((_%tl88098849%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88078842%_))) + (_%hd88088846%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) + (##car _%e88078842%_)))) + (if (gx#stx-null? _%tl88098849%_) + (_%__match1958519586%_ + _%e87578975%_ + _%hd87588979%_ + _%tl87598982%_ + _%e87608985%_ + _%hd87618989%_ + _%tl87628992%_ + _%e88078842%_ + _%hd88088846%_ + _%tl88098849%_) (let () (declare (not safe)) - (_%g87158779%_))))) + (_%g87518815%_))))) (let () (declare (not safe)) - (_%g87158779%_)))))) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))))) + (_%g87518815%_)))))) + (let () (declare (not safe)) (_%g87518815%_))))) + (let () (declare (not safe)) (_%g87518815%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def*| - (lambda (_%$stx9050%_) - (let* ((_%g90549078%_ - (lambda (_%g90559074%_) + (lambda (_%$stx9086%_) + (let* ((_%g90909114%_ + (lambda (_%g90919110%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g90559074%_))) - (_%g90539163%_ - (lambda (_%g90559082%_) - (if (gx#stx-pair? _%g90559082%_) - (let ((_%e90589085%_ (gx#syntax-e _%g90559082%_))) - (let ((_%hd90599089%_ + _%g90919110%_))) + (_%g90899199%_ + (lambda (_%g90919118%_) + (if (gx#stx-pair? _%g90919118%_) + (let ((_%e90949121%_ (gx#syntax-e _%g90919118%_))) + (let ((_%hd90959125%_ (let () (declare (not safe)) - (##car _%e90589085%_))) - (_%tl90609092%_ + (##car _%e90949121%_))) + (_%tl90969128%_ (let () (declare (not safe)) - (##cdr _%e90589085%_)))) - (if (gx#stx-pair? _%tl90609092%_) - (let ((_%e90619095%_ - (gx#syntax-e _%tl90609092%_))) - (let ((_%hd90629099%_ + (##cdr _%e90949121%_)))) + (if (gx#stx-pair? _%tl90969128%_) + (let ((_%e90979131%_ + (gx#syntax-e _%tl90969128%_))) + (let ((_%hd90989135%_ (let () (declare (not safe)) - (##car _%e90619095%_))) - (_%tl90639102%_ + (##car _%e90979131%_))) + (_%tl90999138%_ (let () (declare (not safe)) - (##cdr _%e90619095%_)))) - (if (gx#stx-pair/null? _%tl90639102%_) - (let ((_g20914_ + (##cdr _%e90979131%_)))) + (if (gx#stx-pair/null? _%tl90999138%_) + (let ((_g20950_ (gx#syntax-split-splice - _%tl90639102%_ + _%tl90999138%_ '0))) (begin - (let ((_g20915_ + (let ((_g20951_ (let () (declare (not safe)) - (if (##values? _g20914_) + (if (##values? _g20950_) (##vector-length - _g20914_) + _g20950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20915_ 2))) + (##fx= _g20951_ 2))) (error "Context expects 2 values" - _g20915_))) - (let ((_%target90649105%_ + _g20951_))) + (let ((_%target91009141%_ (let () (declare (not safe)) - (##vector-ref _g20914_ 0))) - (_%tl90669108%_ + (##vector-ref _g20950_ 0))) + (_%tl91029144%_ (let () (declare (not safe)) - (##vector-ref _g20914_ 1)))) - (if (gx#stx-null? _%tl90669108%_) - (letrec ((_%loop90679111%_ - (lambda (_%hd90659115%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clauses90719118%_) - (if (gx#stx-pair? _%hd90659115%_) - (let ((_%e90689121%_ (gx#syntax-e _%hd90659115%_))) - (let ((_%lp-hd90699125%_ + (##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%_ (let () (declare (not safe)) - (##car _%e90689121%_))) - (_%lp-tl90709128%_ + (##car _%e91049157%_))) + (_%lp-tl91069164%_ (let () (declare (not safe)) - (##cdr _%e90689121%_)))) - (_%loop90679111%_ - _%lp-tl90709128%_ - (cons _%lp-hd90699125%_ _%clauses90719118%_)))) - (let ((_%clauses90729131%_ - (reverse _%clauses90719118%_))) - ((lambda (_%L9135%_ _%L9137%_) - (if (gx#identifier? _%L9137%_) + (##cdr _%e91049157%_)))) + (_%loop91039147%_ + _%lp-tl91069164%_ + (cons _%lp-hd91059161%_ _%clauses91079154%_)))) + (let ((_%clauses91089167%_ + (reverse _%clauses91079154%_))) + ((lambda (_%L9171%_ _%L9173%_) + (if (gx#identifier? _%L9173%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L9137%_ '()) + (cons (cons _%L9173%_ '()) (cons (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g91549157%_ + (foldr (lambda (_%g91909193%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g91559160%_) - (cons _%g91549157%_ _%g91559160%_)) + _%g91919196%_) + (cons _%g91909193%_ _%g91919196%_)) '() - _%L9135%_)) + _%L9171%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (_%g90549078%_ _%g90559082%_))) - _%clauses90729131%_ - _%hd90629099%_)))))) + (_%g90909114%_ _%g90919118%_))) + _%clauses91089167%_ + _%hd90989135%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop90679111%_ - _%target90649105%_ + (_%loop91039147%_ + _%target91009141%_ '())) - (_%g90549078%_ - _%g90559082%_))))) - (_%g90549078%_ _%g90559082%_)))) - (_%g90549078%_ _%g90559082%_)))) - (_%g90549078%_ _%g90559082%_))))) - (_%g90539163%_ _%$stx9050%_)))) + (_%g90909114%_ + _%g90919118%_))))) + (_%g90909114%_ _%g90919118%_)))) + (_%g90909114%_ _%g90919118%_)))) + (_%g90909114%_ _%g90919118%_))))) + (_%g90899199%_ _%$stx9086%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#defvalues| - (lambda (_%$stx9168%_) - (let* ((_%g91729190%_ - (lambda (_%g91739186%_) + (lambda (_%$stx9204%_) + (let* ((_%g92089226%_ + (lambda (_%g92099222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g91739186%_))) - (_%g91719245%_ - (lambda (_%g91739194%_) - (if (gx#stx-pair? _%g91739194%_) - (let ((_%e91769197%_ (gx#syntax-e _%g91739194%_))) - (let ((_%hd91779201%_ + _%g92099222%_))) + (_%g92079281%_ + (lambda (_%g92099230%_) + (if (gx#stx-pair? _%g92099230%_) + (let ((_%e92129233%_ (gx#syntax-e _%g92099230%_))) + (let ((_%hd92139237%_ (let () (declare (not safe)) - (##car _%e91769197%_))) - (_%tl91789204%_ + (##car _%e92129233%_))) + (_%tl92149240%_ (let () (declare (not safe)) - (##cdr _%e91769197%_)))) - (if (gx#stx-pair? _%tl91789204%_) - (let ((_%e91799207%_ - (gx#syntax-e _%tl91789204%_))) - (let ((_%hd91809211%_ + (##cdr _%e92129233%_)))) + (if (gx#stx-pair? _%tl92149240%_) + (let ((_%e92159243%_ + (gx#syntax-e _%tl92149240%_))) + (let ((_%hd92169247%_ (let () (declare (not safe)) - (##car _%e91799207%_))) - (_%tl91819214%_ + (##car _%e92159243%_))) + (_%tl92179250%_ (let () (declare (not safe)) - (##cdr _%e91799207%_)))) - (if (gx#stx-pair? _%tl91819214%_) - (let ((_%e91829217%_ - (gx#syntax-e _%tl91819214%_))) - (let ((_%hd91839221%_ + (##cdr _%e92159243%_)))) + (if (gx#stx-pair? _%tl92179250%_) + (let ((_%e92189253%_ + (gx#syntax-e _%tl92179250%_))) + (let ((_%hd92199257%_ (let () (declare (not safe)) - (##car _%e91829217%_))) - (_%tl91849224%_ + (##car _%e92189253%_))) + (_%tl92209260%_ (let () (declare (not safe)) - (##cdr _%e91829217%_)))) - (if (gx#stx-null? _%tl91849224%_) - ((lambda (_%L9227%_ _%L9229%_) + (##cdr _%e92189253%_)))) + (if (gx#stx-null? _%tl92209260%_) + ((lambda (_%L9263%_ _%L9265%_) (if (gx#identifier-list? - _%L9229%_) + _%L9265%_) (cons (gx#datum->syntax '#f 'define-values) - (cons _%L9229%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9227%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g91729190%_ - _%g91739194%_))) - _%hd91839221%_ - _%hd91809211%_) - (_%g91729190%_ _%g91739194%_)))) - (_%g91729190%_ _%g91739194%_)))) - (_%g91729190%_ _%g91739194%_)))) - (_%g91729190%_ _%g91739194%_))))) - (_%g91719245%_ _%$stx9168%_)))) + (cons _%L9265%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L9263%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g92089226%_ + _%g92099230%_))) + _%hd92199257%_ + _%hd92169247%_) + (_%g92089226%_ _%g92099230%_)))) + (_%g92089226%_ _%g92099230%_)))) + (_%g92089226%_ _%g92099230%_)))) + (_%g92089226%_ _%g92099230%_))))) + (_%g92079281%_ _%$stx9204%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#case| - (lambda (_%$stx9249%_) - (let* ((_%g92539277%_ - (lambda (_%g92549273%_) + (lambda (_%$stx9285%_) + (let* ((_%g92899313%_ + (lambda (_%g92909309%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g92549273%_))) - (_%g92529362%_ - (lambda (_%g92549281%_) - (if (gx#stx-pair? _%g92549281%_) - (let ((_%e92579284%_ (gx#syntax-e _%g92549281%_))) - (let ((_%hd92589288%_ + _%g92909309%_))) + (_%g92889398%_ + (lambda (_%g92909317%_) + (if (gx#stx-pair? _%g92909317%_) + (let ((_%e92939320%_ (gx#syntax-e _%g92909317%_))) + (let ((_%hd92949324%_ (let () (declare (not safe)) - (##car _%e92579284%_))) - (_%tl92599291%_ + (##car _%e92939320%_))) + (_%tl92959327%_ (let () (declare (not safe)) - (##cdr _%e92579284%_)))) - (if (gx#stx-pair? _%tl92599291%_) - (let ((_%e92609294%_ - (gx#syntax-e _%tl92599291%_))) - (let ((_%hd92619298%_ + (##cdr _%e92939320%_)))) + (if (gx#stx-pair? _%tl92959327%_) + (let ((_%e92969330%_ + (gx#syntax-e _%tl92959327%_))) + (let ((_%hd92979334%_ (let () (declare (not safe)) - (##car _%e92609294%_))) - (_%tl92629301%_ + (##car _%e92969330%_))) + (_%tl92989337%_ (let () (declare (not safe)) - (##cdr _%e92609294%_)))) - (if (gx#stx-pair/null? _%tl92629301%_) - (let ((_g20916_ + (##cdr _%e92969330%_)))) + (if (gx#stx-pair/null? _%tl92989337%_) + (let ((_g20952_ (gx#syntax-split-splice - _%tl92629301%_ + _%tl92989337%_ '0))) (begin - (let ((_g20917_ + (let ((_g20953_ (let () (declare (not safe)) - (if (##values? _g20916_) + (if (##values? _g20952_) (##vector-length - _g20916_) + _g20952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20917_ 2))) + (##fx= _g20953_ 2))) (error "Context expects 2 values" - _g20917_))) - (let ((_%target92639304%_ + _g20953_))) + (let ((_%target92999340%_ (let () (declare (not safe)) - (##vector-ref _g20916_ 0))) - (_%tl92659307%_ + (##vector-ref _g20952_ 0))) + (_%tl93019343%_ (let () (declare (not safe)) - (##vector-ref _g20916_ 1)))) - (if (gx#stx-null? _%tl92659307%_) - (letrec ((_%loop92669310%_ - (lambda (_%hd92649314%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause92709317%_) - (if (gx#stx-pair? _%hd92649314%_) - (let ((_%e92679320%_ (gx#syntax-e _%hd92649314%_))) - (let ((_%lp-hd92689324%_ + (##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%_ (let () (declare (not safe)) - (##car _%e92679320%_))) - (_%lp-tl92699327%_ + (##car _%e93039356%_))) + (_%lp-tl93059363%_ (let () (declare (not safe)) - (##cdr _%e92679320%_)))) - (_%loop92669310%_ - _%lp-tl92699327%_ - (cons _%lp-hd92689324%_ _%clause92709317%_)))) - (let ((_%clause92719330%_ - (reverse _%clause92709317%_))) - ((lambda (_%L9334%_ _%L9336%_) + (##cdr _%e93039356%_)))) + (_%loop93029346%_ + _%lp-tl93059363%_ + (cons _%lp-hd93049360%_ _%clause93069353%_)))) + (let ((_%clause93079366%_ + (reverse _%clause93069353%_))) + ((lambda (_%L9370%_ _%L9372%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L9336%_ '())) + (cons _%L9372%_ '())) (cons (cons (gx#datum->syntax '#f '~case) (cons (gx#datum->syntax '#f '$e) - (foldr (lambda (_%g93539356%_ + (foldr (lambda (_%g93899392%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g93549359%_) - (cons _%g93539356%_ _%g93549359%_)) + _%g93909395%_) + (cons _%g93899392%_ _%g93909395%_)) '() - _%L9334%_))) + _%L9370%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause92719330%_ - _%hd92619298%_)))))) + _%clause93079366%_ + _%hd92979334%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop92669310%_ - _%target92639304%_ + (_%loop93029346%_ + _%target92999340%_ '())) - (_%g92539277%_ - _%g92549281%_))))) - (_%g92539277%_ _%g92549281%_)))) - (_%g92539277%_ _%g92549281%_)))) - (_%g92539277%_ _%g92549281%_))))) - (_%g92529362%_ _%$stx9249%_)))) + (_%g92899313%_ + _%g92909317%_))))) + (_%g92899313%_ _%g92909317%_)))) + (_%g92899313%_ _%g92909317%_)))) + (_%g92899313%_ _%g92909317%_))))) + (_%g92889398%_ _%$stx9285%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case| - (lambda (_%stx9367%_) - (letrec ((_%parse-clauses9370%_ - (lambda (_%e11845%_ _%clauses11847%_) - (let _%lp11849%_ ((_%rest11852%_ _%clauses11847%_) - (_%datums11854%_ '()) - (_%dispatch11855%_ '()) - (_%default11856%_ '#f)) - (let* ((_%__stx1964819649%_ _%rest11852%_) - (_%g1185911871%_ + (lambda (_%stx9403%_) + (letrec ((_%parse-clauses9406%_ + (lambda (_%e11881%_ _%clauses11883%_) + (let _%lp11885%_ ((_%rest11888%_ _%clauses11883%_) + (_%datums11890%_ '()) + (_%dispatch11891%_ '()) + (_%default11892%_ '#f)) + (let* ((_%__stx1968419685%_ _%rest11888%_) + (_%g1189511907%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1964819649%_)))) - (let ((_%__kont1965119652%_ - (lambda (_%L11903%_ _%L11905%_) - (let* ((_%__stx1955219553%_ _%L11905%_) - (_%g1192311996%_ + _%__stx1968419685%_)))) + (let ((_%__kont1968719688%_ + (lambda (_%L11939%_ _%L11941%_) + (let* ((_%__stx1958819589%_ _%L11941%_) + (_%g1195912032%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1955219553%_)))) - (let ((_%__kont1955519556%_ - (lambda (_%L12361%_) - (if (gx#stx-null? _%L11903%_) - (let* ((_%g1237612384%_ - (lambda (_%g1237712380%_) + _%__stx1958819589%_)))) + (let ((_%__kont1959119592%_ + (lambda (_%L12397%_) + (if (gx#stx-null? _%L11939%_) + (let* ((_%g1241212420%_ + (lambda (_%g1241312416%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1237712380%_))) - (_%g1237512403%_ - (lambda (_%g1237712388%_) - ((lambda (_%L12391%_) - (_%lp11849%_ + _%g1241312416%_))) + (_%g1241112439%_ + (lambda (_%g1241312424%_) + ((lambda (_%L12427%_) + (_%lp11885%_ '() - _%datums11854%_ - _%dispatch11855%_ - (cons _%L12361%_ + _%datums11890%_ + _%dispatch11891%_ + (cons _%L12397%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L12391%_ '())))) - _%g1237712388%_)))) + (cons _%L12427%_ '())))) + _%g1241312424%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1237512403%_ _%e11845%_)) + (_%g1241112439%_ _%e11881%_)) (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9367%_ - _%L11905%_)))) - (_%__kont1955719558%_ - (lambda (_%L12301%_) - (if (gx#stx-null? _%L11903%_) - (_%lp11849%_ + _%stx9403%_ + _%L11941%_)))) + (_%__kont1959319594%_ + (lambda (_%L12337%_) + (if (gx#stx-null? _%L11939%_) + (_%lp11885%_ '() - _%datums11854%_ - _%dispatch11855%_ + _%datums11890%_ + _%dispatch11891%_ (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1231512318%_ + (foldr (lambda (_%g1235112354%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1231612321%_) - (cons _%g1231512318%_ _%g1231612321%_)) + _%g1235212357%_) + (cons _%g1235112354%_ _%g1235212357%_)) '() - _%L12301%_))) + _%L12337%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9367%_ - _%L11905%_)))) - (_%__kont1956119562%_ - (lambda (_%L12186%_ _%L12188%_) - (if (null? (foldr (lambda (_%g1220612209%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1220712212%_) - (cons _%g1220612209%_ _%g1220712212%_)) + _%stx9403%_ + _%L11941%_)))) + (_%__kont1959719598%_ + (lambda (_%L12222%_ _%L12224%_) + (if (null? (foldr (lambda (_%g1224212245%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1224312248%_) + (cons _%g1224212245%_ _%g1224312248%_)) '() - _%L12188%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11849%_ - _%L11903%_ - _%datums11854%_ - _%dispatch11855%_ - _%default11856%_) - (let* ((_%g1221512223%_ - (lambda (_%g1221612219%_) + _%L12224%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11885%_ + _%L11939%_ + _%datums11890%_ + _%dispatch11891%_ + _%default11892%_) + (let* ((_%g1225112259%_ + (lambda (_%g1225212255%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1221612219%_))) - (_%g1221412250%_ - (lambda (_%g1221612227%_) - ((lambda (_%L12230%_) - (_%lp11849%_ - _%L11903%_ + _%g1225212255%_))) + (_%g1225012286%_ + (lambda (_%g1225212263%_) + ((lambda (_%L12266%_) + (_%lp11885%_ + _%L11939%_ (cons (map gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g1224112244%_ - _%g1224212247%_) - (cons _%g1224112244%_ - _%g1224212247%_)) + (foldr (lambda (_%g1227712280%_ + _%g1227812283%_) + (cons _%g1227712280%_ + _%g1227812283%_)) '() - _%L12188%_)) - _%datums11854%_) - (cons (cons _%L12186%_ (cons _%L12230%_ '())) - _%dispatch11855%_) - _%default11856%_)) - _%g1221612227%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1221412250%_ - _%e11845%_))))) - (_%__kont1956519566%_ - (lambda (_%L12073%_ _%L12075%_) - (if (null? (foldr (lambda (_%g1209412097%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1209512100%_) - (cons _%g1209412097%_ _%g1209512100%_)) + _%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%_)) '() - _%L12075%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11849%_ - _%L11903%_ - _%datums11854%_ - _%dispatch11855%_ - _%default11856%_) - (_%lp11849%_ - _%L11903%_ + _%L12111%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11885%_ + _%L11939%_ + _%datums11890%_ + _%dispatch11891%_ + _%default11892%_) + (_%lp11885%_ + _%L11939%_ (cons (map gx#stx-e - (foldr (lambda (_%g1210212105%_ + (foldr (lambda (_%g1213812141%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1210312108%_) - (cons _%g1210212105%_ _%g1210312108%_)) + _%g1213912144%_) + (cons _%g1213812141%_ _%g1213912144%_)) '() - _%L12075%_)) - _%datums11854%_) + _%L12111%_)) + _%datums11890%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1211012113%_ + (foldr (lambda (_%g1214612149%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1211112116%_) - (cons _%g1211012113%_ _%g1211112116%_)) + _%g1214712152%_) + (cons _%g1214612149%_ _%g1214712152%_)) '() - _%L12073%_)) - _%dispatch11855%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default11856%_))))) - (let* ((_%__match1964519646%_ - (lambda (_%e1197012003%_ - _%hd1197112007%_ - _%tl1197212010%_ - _%__splice1956719568%_ - _%target1197312013%_ - _%tl1197512016%_) - (letrec ((_%loop1197612019%_ - (lambda (_%hd1197412023%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1198012026%_) - (if (gx#stx-pair? _%hd1197412023%_) - (let ((_%e1197712029%_ (gx#syntax-e _%hd1197412023%_))) - (let ((_%lp-tl1197912036%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e1197712029%_))) - (_%lp-hd1197812033%_ + (##cdr _%e1201312065%_))) + (_%lp-hd1201412069%_ (let () (declare (not safe)) - (##car _%e1197712029%_)))) - (_%loop1197612019%_ - _%lp-tl1197912036%_ - (cons _%lp-hd1197812033%_ _%datum1198012026%_)))) - (let ((_%datum1198112039%_ - (reverse _%datum1198012026%_))) - (if (gx#stx-pair/null? _%tl1197212010%_) - (let ((_%__splice1956919570%_ + (##car _%e1201312065%_)))) + (_%loop1201212055%_ + _%lp-tl1201512072%_ + (cons _%lp-hd1201412069%_ _%datum1201612062%_)))) + (let ((_%datum1201712075%_ + (reverse _%datum1201612062%_))) + (if (gx#stx-pair/null? _%tl1200812046%_) + (let ((_%__splice1960519606%_ (gx#syntax-split-splice - _%tl1197212010%_ + _%tl1200812046%_ '0))) - (let ((_%tl1198412046%_ + (let ((_%tl1202012082%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956919570%_ + _%__splice1960519606%_ '1))) - (_%target1198212043%_ + (_%target1201812079%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956919570%_ + _%__splice1960519606%_ '0)))) - (if (gx#stx-null? _%tl1198412046%_) - (letrec ((_%loop1198512049%_ - (lambda (_%hd1198312053%_ - _%body1198912056%_) + (if (gx#stx-null? _%tl1202012082%_) + (letrec ((_%loop1202112085%_ + (lambda (_%hd1201912089%_ + _%body1202512092%_) (if (gx#stx-pair? - _%hd1198312053%_) - (let ((_%e1198612059%_ + _%hd1201912089%_) + (let ((_%e1202212095%_ (gx#syntax-e - _%hd1198312053%_))) - (let ((_%lp-tl1198812066%_ + _%hd1201912089%_))) + (let ((_%lp-tl1202412102%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1198612059%_))) - (_%lp-hd1198712063%_ - (let () (declare (not safe)) (##car _%e1198612059%_)))) - (_%loop1198512049%_ - _%lp-tl1198812066%_ - (cons _%lp-hd1198712063%_ _%body1198912056%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body1199012069%_ - (reverse _%body1198912056%_))) - (_%__kont1956519566%_ - _%body1199012069%_ - _%datum1198112039%_)))))) - (_%loop1198512049%_ - _%target1198212043%_ + (##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%_ '())) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))))) + (_%g1195912032%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1197612019%_ - _%target1197312013%_ + (_%loop1201212055%_ + _%target1200912049%_ '())))) - (_%__match1963119632%_ - (lambda (_%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (letrec ((_%loop1195612142%_ - (lambda (_%hd1195412146%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1196012149%_) - (if (gx#stx-pair? _%hd1195412146%_) - (let ((_%e1195712152%_ (gx#syntax-e _%hd1195412146%_))) - (let ((_%lp-tl1195912159%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e1195712152%_))) - (_%lp-hd1195812156%_ + (##cdr _%e1199312188%_))) + (_%lp-hd1199412192%_ (let () (declare (not safe)) - (##car _%e1195712152%_)))) - (_%loop1195612142%_ - _%lp-tl1195912159%_ - (cons _%lp-hd1195812156%_ _%datum1196012149%_)))) - (let ((_%datum1196112162%_ - (reverse _%datum1196012149%_))) - (if (gx#stx-pair? _%tl1195212133%_) - (let ((_%e1196212166%_ - (gx#syntax-e _%tl1195212133%_))) - (let ((_%tl1196412173%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1196212166%_))) - (_%hd1196312170%_ + (##cdr _%e1199812202%_))) + (_%hd1199912206%_ (let () (declare (not safe)) - (##car _%e1196212166%_)))) - (if (gx#identifier? _%hd1196312170%_) + (##car _%e1199812202%_)))) + (if (gx#identifier? _%hd1199912206%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20918_| - _%hd1196312170%_) - (if (gx#stx-pair? _%tl1196412173%_) - (let ((_%e1196512176%_ + |gerbil/core/sugar~Sugar-2[1]#_g20954_| + _%hd1199912206%_) + (if (gx#stx-pair? _%tl1200012209%_) + (let ((_%e1200112212%_ (gx#syntax-e - _%tl1196412173%_))) - (let ((_%tl1196712183%_ + _%tl1200012209%_))) + (let ((_%tl1200312219%_ (let () (declare (not safe)) - (##cdr _%e1196512176%_))) - (_%hd1196612180%_ + (##cdr _%e1200112212%_))) + (_%hd1200212216%_ (let () (declare (not safe)) - (##car _%e1196512176%_)))) + (##car _%e1200112212%_)))) (if (gx#stx-null? - _%tl1196712183%_) - (_%__kont1956119562%_ - _%hd1196612180%_ - _%datum1196112162%_) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)))) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)))) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1195612142%_ - _%target1195312136%_ + _%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%_ '())))) - (_%__match1961719618%_ - (lambda (_%e1193612261%_ - _%hd1193712265%_ - _%tl1193812268%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) - (letrec ((_%loop1194212277%_ - (lambda (_%hd1194012281%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1194612284%_) - (if (gx#stx-pair? _%hd1194012281%_) - (let ((_%e1194312287%_ (gx#syntax-e _%hd1194012281%_))) - (let ((_%lp-tl1194512294%_ + (_%__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%_ (let () (declare (not safe)) - (##cdr _%e1194312287%_))) - (_%lp-hd1194412291%_ + (##cdr _%e1197912323%_))) + (_%lp-hd1198012327%_ (let () (declare (not safe)) - (##car _%e1194312287%_)))) - (_%loop1194212277%_ - _%lp-tl1194512294%_ - (cons _%lp-hd1194412291%_ _%body1194612284%_)))) - (let ((_%body1194712297%_ (reverse _%body1194612284%_))) - (_%__kont1955719558%_ _%body1194712297%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1194212277%_ - _%target1193912271%_ + (##car _%e1197912323%_)))) + (_%loop1197812313%_ + _%lp-tl1198112330%_ + (cons _%lp-hd1198012327%_ _%body1198212320%_)))) + (let ((_%body1198312333%_ (reverse _%body1198212320%_))) + (_%__kont1959319594%_ _%body1198312333%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1197812313%_ + _%target1197512307%_ '()))))) - (if (gx#stx-pair? _%__stx1955219553%_) - (let ((_%e1192612331%_ + (if (gx#stx-pair? _%__stx1958819589%_) + (let ((_%e1196212367%_ (gx#syntax-e - _%__stx1955219553%_))) - (let ((_%tl1192812338%_ + _%__stx1958819589%_))) + (let ((_%tl1196412374%_ (let () (declare (not safe)) - (##cdr _%e1192612331%_))) - (_%hd1192712335%_ + (##cdr _%e1196212367%_))) + (_%hd1196312371%_ (let () (declare (not safe)) - (##car _%e1192612331%_)))) + (##car _%e1196212367%_)))) (if (gx#identifier? - _%hd1192712335%_) + _%hd1196312371%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20919_| - _%hd1192712335%_) + |gerbil/core/sugar~Sugar-2[1]#_g20955_| + _%hd1196312371%_) (if (gx#stx-pair? - _%tl1192812338%_) - (let ((_%e1192912341%_ + _%tl1196412374%_) + (let ((_%e1196512377%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1192812338%_))) - (let ((_%tl1193112348%_ + (gx#syntax-e _%tl1196412374%_))) + (let ((_%tl1196712384%_ (let () (declare (not safe)) - (##cdr _%e1192912341%_))) - (_%hd1193012345%_ + (##cdr _%e1196512377%_))) + (_%hd1196612381%_ (let () (declare (not safe)) - (##car _%e1192912341%_)))) - (if (gx#identifier? _%hd1193012345%_) + (##car _%e1196512377%_)))) + (if (gx#identifier? _%hd1196612381%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20920_| - _%hd1193012345%_) - (if (gx#stx-pair? _%tl1193112348%_) - (let ((_%e1193212351%_ - (gx#syntax-e _%tl1193112348%_))) - (let ((_%tl1193412358%_ + |gerbil/core/sugar~Sugar-2[1]#_g20956_| + _%hd1196612381%_) + (if (gx#stx-pair? _%tl1196712384%_) + (let ((_%e1196812387%_ + (gx#syntax-e _%tl1196712384%_))) + (let ((_%tl1197012394%_ (let () (declare (not safe)) - (##cdr _%e1193212351%_))) - (_%hd1193312355%_ + (##cdr _%e1196812387%_))) + (_%hd1196912391%_ (let () (declare (not safe)) - (##car _%e1193212351%_)))) - (if (gx#stx-null? _%tl1193412358%_) - (_%__kont1955519556%_ - _%hd1193312355%_) + (##car _%e1196812387%_)))) + (if (gx#stx-null? _%tl1197012394%_) + (_%__kont1959119592%_ + _%hd1196912391%_) (if (gx#stx-pair/null? - _%tl1192812338%_) - (let ((_%__splice1955919560%_ + _%tl1196412374%_) + (let ((_%__splice1959519596%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1196412374%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1197712310%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '1))) - (_%target1193912271%_ + (_%target1197512307%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '0)))) (if (gx#stx-null? - _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) + _%tl1197712310%_) + (_%__match1965319654%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959519596%_ + _%target1197512307%_ + _%tl1197712310%_) (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1196312371%_) + (let ((_%__splice1959919600%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%hd1192712335%_ '0))) - (let ((_%tl1195512139%_ + (gx#syntax-split-splice _%hd1196312371%_ '0))) + (let ((_%tl1199112175%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1195312136%_ + (##vector-ref _%__splice1959919600%_ '1))) + (_%target1198912172%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (let () (declare (not safe)) (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ + (_%g1195912032%_))))))) + (if (gx#stx-pair/null? _%tl1196412374%_) + (let ((_%__splice1959519596%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1196412374%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1197712310%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '1))) - (_%target1193912271%_ + (_%target1197512307%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) + (if (gx#stx-null? _%tl1197712310%_) + (_%__match1965319654%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959519596%_ + _%target1197512307%_ + _%tl1197712310%_) (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1195912032%_)))))) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ + (_%g1195912032%_))))) + (if (gx#stx-pair/null? _%tl1196412374%_) + (let ((_%__splice1959519596%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1196412374%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1197712310%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '1))) - (_%target1193912271%_ + (_%target1197512307%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) + (if (gx#stx-null? _%tl1197712310%_) + (_%__match1965319654%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959519596%_ + _%target1197512307%_ + _%tl1197712310%_) (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1195912032%_)))))) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ + (_%g1195912032%_))))) + (if (gx#stx-pair/null? _%tl1196412374%_) + (let ((_%__splice1959519596%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1196412374%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1197712310%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '1))) - (_%target1193912271%_ + (_%target1197512307%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1959519596%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (if (gx#stx-null? _%tl1197712310%_) + (_%__match1965319654%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959519596%_ + _%target1197512307%_ + _%tl1197712310%_) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1195912032%_)))))) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ - (gx#syntax-split-splice _%tl1192812338%_ '0))) - (let ((_%tl1194112274%_ + (_%g1195912032%_))))))) + (if (gx#stx-pair/null? _%tl1196412374%_) + (let ((_%__splice1959519596%_ + (gx#syntax-split-splice _%tl1196412374%_ '0))) + (let ((_%tl1197712310%_ (let () (declare (not safe)) - (##vector-ref _%__splice1955919560%_ '1))) - (_%target1193912271%_ + (##vector-ref _%__splice1959519596%_ '1))) + (_%target1197512307%_ (let () (declare (not safe)) - (##vector-ref _%__splice1955919560%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (##vector-ref _%__splice1959519596%_ '0)))) + (if (gx#stx-null? _%tl1197712310%_) + (_%__match1965319654%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959519596%_ + _%target1197512307%_ + _%tl1197712310%_) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1195912032%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1195912032%_)))))) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '1))) - (_%target1195312136%_ + (_%target1198912172%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1199112175%_) + (_%__match1966719668%_ + _%e1196212367%_ + _%hd1196312371%_ + _%tl1196412374%_ + _%__splice1959919600%_ + _%target1198912172%_ + _%tl1199112175%_) (let () (declare (not safe)) - (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ - (gx#syntax-split-splice _%hd1192712335%_ '0))) - (let ((_%tl1195512139%_ + (_%g1195912032%_))))) + (let () (declare (not safe)) (_%g1195912032%_))))) + (if (gx#stx-pair/null? _%hd1196312371%_) + (let ((_%__splice1959919600%_ + (gx#syntax-split-splice _%hd1196312371%_ '0))) + (let ((_%tl1199112175%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1195312136%_ + (##vector-ref _%__splice1959919600%_ '1))) + (_%target1198912172%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (let () (declare (not safe)) (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_)))) + (##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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1196312371%_) + (let ((_%__splice1959919600%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1196312371%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1199112175%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1195312136%_ + (##vector-ref _%__splice1959919600%_ '1))) + (_%target1198912172%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (let () (declare (not safe)) (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1192311996%_)))))))) - (_%__kont1965319654%_ + (_%g1195912032%_)))))))) + (_%__kont1968919690%_ (lambda () - (_%check-duplicate-datums9372%_ - _%datums11854%_) - (values (reverse _%datums11854%_) - (reverse _%dispatch11855%_) - (let ((_%$e11882%_ _%default11856%_)) - (if _%$e11882%_ - _%$e11882%_ + (_%check-duplicate-datums9408%_ + _%datums11890%_) + (values (reverse _%datums11890%_) + (reverse _%dispatch11891%_) + (let ((_%$e11918%_ _%default11892%_)) + (if _%$e11918%_ + _%$e11918%_ '#!void)))))) - (let ((_%g1185811886%_ + (let ((_%g1189411922%_ (lambda () - (if (gx#stx-null? _%__stx1964819649%_) - (_%__kont1965319654%_) + (if (gx#stx-null? _%__stx1968419685%_) + (_%__kont1968919690%_) (let () (declare (not safe)) - (_%g1185911871%_)))))) - (if (gx#stx-pair? _%__stx1964819649%_) - (let ((_%e1186311893%_ - (gx#syntax-e _%__stx1964819649%_))) - (let ((_%tl1186511900%_ + (_%g1189511907%_)))))) + (if (gx#stx-pair? _%__stx1968419685%_) + (let ((_%e1189911929%_ + (gx#syntax-e _%__stx1968419685%_))) + (let ((_%tl1190111936%_ (let () (declare (not safe)) - (##cdr _%e1186311893%_))) - (_%hd1186411897%_ + (##cdr _%e1189911929%_))) + (_%hd1190011933%_ (let () (declare (not safe)) - (##car _%e1186311893%_)))) - (_%__kont1965119652%_ - _%tl1186511900%_ - _%hd1186411897%_))) + (##car _%e1189911929%_)))) + (_%__kont1968719688%_ + _%tl1190111936%_ + _%hd1190011933%_))) (let () (declare (not safe)) - (_%g1185811886%_))))))))) - (_%check-duplicate-datums9372%_ - (lambda (_%datums11833%_) - (let ((_%ht11836%_ (make-hash-table))) + (_%g1189411922%_))))))))) + (_%check-duplicate-datums9408%_ + (lambda (_%datums11869%_) + (let ((_%ht11872%_ (make-hash-table))) (for-each - (lambda (_%lst11839%_) + (lambda (_%lst11875%_) (for-each - (lambda (_%datum11842%_) - (if (hash-get _%ht11836%_ _%datum11842%_) + (lambda (_%datum11878%_) + (if (hash-get _%ht11872%_ _%datum11878%_) (gx#raise-syntax-error '#f '"Duplicate datum" - _%stx9367%_ - _%datum11842%_) - (hash-put! _%ht11836%_ _%datum11842%_ '#t))) - _%lst11839%_)) - _%datums11833%_)))) - (_%count-datums9373%_ - (lambda (_%datums11826%_) - (foldl (lambda (_%lst11829%_ _%r11831%_) - (+ (length _%lst11829%_) _%r11831%_)) + _%stx9403%_ + _%datum11878%_) + (hash-put! _%ht11872%_ _%datum11878%_ '#t))) + _%lst11875%_)) + _%datums11869%_)))) + (_%count-datums9409%_ + (lambda (_%datums11862%_) + (foldl (lambda (_%lst11865%_ _%r11867%_) + (+ (length _%lst11865%_) _%r11867%_)) '0 - _%datums11826%_))) - (_%symbolic-datums?9374%_ - (lambda (_%datums11820%_) - (andmap (lambda (_%lst11823%_) - (andmap symbol? _%lst11823%_)) - _%datums11820%_))) - (_%char-datums?9375%_ - (lambda (_%datums11814%_) - (andmap (lambda (_%lst11817%_) (andmap char? _%lst11817%_)) - _%datums11814%_))) - (_%fixnum-datums?9376%_ - (lambda (_%datums11808%_) - (andmap (lambda (_%lst11811%_) - (andmap fixnum? _%lst11811%_)) - _%datums11808%_))) - (_%eq-datums?9377%_ - (lambda (_%datums11791%_) - (andmap (lambda (_%lst11794%_) - (andmap (lambda (_%x11797%_) - (let ((_%$e11800%_ - (symbol? _%x11797%_))) - (if _%$e11800%_ - _%$e11800%_ - (let ((_%$e11804%_ - (keyword? _%x11797%_))) - (if _%$e11804%_ - _%$e11804%_ + _%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%_ (immediate? - _%x11797%_)))))) - _%lst11794%_)) - _%datums11791%_))) - (_%generate-simple-case9378%_ - (lambda (_%e11555%_ - _%datums11557%_ - _%dispatch11558%_ - _%default11559%_) - (let* ((_%g1156111569%_ - (lambda (_%g1156211565%_) + _%x11833%_)))))) + _%lst11830%_)) + _%datums11827%_))) + (_%generate-simple-case9414%_ + (lambda (_%e11591%_ + _%datums11593%_ + _%dispatch11594%_ + _%default11595%_) + (let* ((_%g1159711605%_ + (lambda (_%g1159811601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1156211565%_))) - (_%g1156011787%_ - (lambda (_%g1156211573%_) - ((lambda (_%L11576%_) - (let _%recur11588%_ ((_%datums11591%_ - _%datums11557%_) - (_%dispatch11593%_ - _%dispatch11558%_)) - (let* ((_%__stx1966619667%_ _%datums11591%_) - (_%g1159611617%_ + _%g1159811601%_))) + (_%g1159611823%_ + (lambda (_%g1159811609%_) + ((lambda (_%L11612%_) + (let _%recur11624%_ ((_%datums11627%_ + _%datums11593%_) + (_%dispatch11629%_ + _%dispatch11594%_)) + (let* ((_%__stx1970219703%_ _%datums11627%_) + (_%g1163211653%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1966619667%_)))) - (let ((_%__kont1966919670%_ - (lambda (_%L11675%_ _%L11677%_) - (let* ((_%g1169711709%_ - (lambda (_%g1169811705%_) + _%__stx1970219703%_)))) + (let ((_%__kont1970519706%_ + (lambda (_%L11711%_ _%L11713%_) + (let* ((_%g1173311745%_ + (lambda (_%g1173411741%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1169811705%_))) - (_%g1169611779%_ - (lambda (_%g1169811713%_) + _%g1173411741%_))) + (_%g1173211815%_ + (lambda (_%g1173411749%_) (if (gx#stx-pair? - _%g1169811713%_) - (let ((_%e1170111716%_ + _%g1173411749%_) + (let ((_%e1173711752%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1169811713%_))) - (let ((_%hd1170211720%_ + (gx#syntax-e _%g1173411749%_))) + (let ((_%hd1173811756%_ (let () (declare (not safe)) - (##car _%e1170111716%_))) - (_%tl1170311723%_ + (##car _%e1173711752%_))) + (_%tl1173911759%_ (let () (declare (not safe)) - (##cdr _%e1170111716%_)))) - ((lambda (_%L11726%_ _%L11728%_) - (let* ((_%g1174011748%_ - (lambda (_%g1174111744%_) + (##cdr _%e1173711752%_)))) + ((lambda (_%L11762%_ _%L11764%_) + (let* ((_%g1177611784%_ + (lambda (_%g1177711780%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1174111744%_))) - (_%g1173911775%_ - (lambda (_%g1174111752%_) - ((lambda (_%L11755%_) + _%g1177711780%_))) + (_%g1177511811%_ + (lambda (_%g1177711788%_) + ((lambda (_%L11791%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g1176611769%_ + (foldr (lambda (_%g1180211805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1176711772%_) + _%g1180311808%_) (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _%g1176611769%_ - (cons _%L11576%_ '()))) - _%g1176711772%_)) + (cons _%g1180211805%_ + (cons _%L11612%_ '()))) + _%g1180311808%_)) '() - _%L11677%_)) + _%L11713%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L11728%_ - (cons _%L11755%_ + (cons _%L11764%_ + (cons _%L11791%_ '()))))) - _%g1174111752%_)))) - (_%g1173911775%_ - (_%recur11588%_ _%L11675%_ _%L11726%_)))) - _%tl1170311723%_ - _%hd1170211720%_))) - (_%g1169711709%_ _%g1169811713%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1169611779%_ - _%dispatch11593%_)))) - (_%__kont1967319674%_ - (lambda () _%default11559%_))) - (let ((_%__match1968919690%_ - (lambda (_%e1160011635%_ - _%hd1160111639%_ - _%tl1160211642%_ - _%__splice1967119672%_ - _%target1160311645%_ - _%tl1160511648%_) - (letrec ((_%loop1160611651%_ - (lambda (_%hd1160411655%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1161011658%_) - (if (gx#stx-pair? _%hd1160411655%_) - (let ((_%e1160711661%_ (gx#syntax-e _%hd1160411655%_))) - (let ((_%lp-tl1160911668%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e1160711661%_))) - (_%lp-hd1160811665%_ + (##cdr _%e1164311697%_))) + (_%lp-hd1164411701%_ (let () (declare (not safe)) - (##car _%e1160711661%_)))) - (_%loop1160611651%_ - _%lp-tl1160911668%_ - (cons _%lp-hd1160811665%_ _%datum1161011658%_)))) - (let ((_%datum1161111671%_ - (reverse _%datum1161011658%_))) - (_%__kont1966919670%_ - _%tl1160211642%_ - _%datum1161111671%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1160611651%_ - _%target1160311645%_ + (##car _%e1164311697%_)))) + (_%loop1164211687%_ + _%lp-tl1164511704%_ + (cons _%lp-hd1164411701%_ _%datum1164611694%_)))) + (let ((_%datum1164711707%_ + (reverse _%datum1164611694%_))) + (_%__kont1970519706%_ + _%tl1163811678%_ + _%datum1164711707%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1164211687%_ + _%target1163911681%_ '()))))) - (if (gx#stx-pair? _%__stx1966619667%_) - (let ((_%e1160011635%_ + (if (gx#stx-pair? _%__stx1970219703%_) + (let ((_%e1163611671%_ (gx#syntax-e - _%__stx1966619667%_))) - (let ((_%tl1160211642%_ + _%__stx1970219703%_))) + (let ((_%tl1163811678%_ (let () (declare (not safe)) - (##cdr _%e1160011635%_))) - (_%hd1160111639%_ + (##cdr _%e1163611671%_))) + (_%hd1163711675%_ (let () (declare (not safe)) - (##car _%e1160011635%_)))) + (##car _%e1163611671%_)))) (if (gx#stx-pair/null? - _%hd1160111639%_) - (let ((_%__splice1967119672%_ + _%hd1163711675%_) + (let ((_%__splice1970719708%_ (gx#syntax-split-splice - _%hd1160111639%_ + _%hd1163711675%_ '0))) - (let ((_%tl1160511648%_ + (let ((_%tl1164111684%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice1967119672%_ '1))) - (_%target1160311645%_ + (##vector-ref _%__splice1970719708%_ '1))) + (_%target1163911681%_ (let () (declare (not safe)) - (##vector-ref _%__splice1967119672%_ '0)))) - (if (gx#stx-null? _%tl1160511648%_) - (_%__match1968919690%_ - _%e1160011635%_ - _%hd1160111639%_ - _%tl1160211642%_ - _%__splice1967119672%_ - _%target1160311645%_ - _%tl1160511648%_) - (_%__kont1967319674%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1967319674%_)))) - (_%__kont1967319674%_))))))) - _%g1156211573%_)))) - (_%g1156011787%_ _%e11555%_)))) - (_%datum-dispatch-index9379%_ - (lambda (_%datums11427%_) - (let _%lp11430%_ ((_%rest11433%_ _%datums11427%_) - (_%ix11435%_ '0) - (_%r11436%_ '())) - (let* ((_%__stx1969219693%_ _%rest11433%_) - (_%g1143911460%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1969219693%_)))) - (let ((_%__kont1969519696%_ - (lambda (_%L11518%_ _%L11520%_) - (_%lp11430%_ - _%L11518%_ - (fx1+ _%ix11435%_) - (foldl (lambda (_%x11539%_ _%r11541%_) - (cons (cons _%x11539%_ _%ix11435%_) - _%r11541%_)) - _%r11436%_ - (foldr (lambda (_%g1154211545%_ - _%g1154311548%_) - (cons _%g1154211545%_ - _%g1154311548%_)) + _%__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%_)) '() - _%L11520%_))))) - (_%__kont1969919700%_ (lambda () _%r11436%_))) - (let ((_%__match1971519716%_ - (lambda (_%e1144311478%_ - _%hd1144411482%_ - _%tl1144511485%_ - _%__splice1969719698%_ - _%target1144611488%_ - _%tl1144811491%_) - (letrec ((_%loop1144911494%_ - (lambda (_%hd1144711498%_ - _%datum1145311501%_) + _%L11556%_))))) + (_%__kont1973519736%_ (lambda () _%r11472%_))) + (let ((_%__match1975119752%_ + (lambda (_%e1147911514%_ + _%hd1148011518%_ + _%tl1148111521%_ + _%__splice1973319734%_ + _%target1148211524%_ + _%tl1148411527%_) + (letrec ((_%loop1148511530%_ + (lambda (_%hd1148311534%_ + _%datum1148911537%_) (if (gx#stx-pair? - _%hd1144711498%_) - (let ((_%e1145011504%_ + _%hd1148311534%_) + (let ((_%e1148611540%_ (gx#syntax-e - _%hd1144711498%_))) - (let ((_%lp-tl1145211511%_ + _%hd1148311534%_))) + (let ((_%lp-tl1148811547%_ (let () (declare (not safe)) - (##cdr _%e1145011504%_))) - (_%lp-hd1145111508%_ + (##cdr _%e1148611540%_))) + (_%lp-hd1148711544%_ (let () (declare (not safe)) - (##car _%e1145011504%_)))) - (_%loop1144911494%_ - _%lp-tl1145211511%_ - (cons _%lp-hd1145111508%_ - _%datum1145311501%_)))) - (let ((_%datum1145411514%_ - (reverse _%datum1145311501%_))) - (_%__kont1969519696%_ - _%tl1144511485%_ - _%datum1145411514%_)))))) - (_%loop1144911494%_ - _%target1144611488%_ + (##car _%e1148611540%_)))) + (_%loop1148511530%_ + _%lp-tl1148811547%_ + (cons _%lp-hd1148711544%_ + _%datum1148911537%_)))) + (let ((_%datum1149011550%_ + (reverse _%datum1148911537%_))) + (_%__kont1973119732%_ + _%tl1148111521%_ + _%datum1149011550%_)))))) + (_%loop1148511530%_ + _%target1148211524%_ '()))))) - (if (gx#stx-pair? _%__stx1969219693%_) - (let ((_%e1144311478%_ - (gx#syntax-e _%__stx1969219693%_))) - (let ((_%tl1144511485%_ + (if (gx#stx-pair? _%__stx1972819729%_) + (let ((_%e1147911514%_ + (gx#syntax-e _%__stx1972819729%_))) + (let ((_%tl1148111521%_ (let () (declare (not safe)) - (##cdr _%e1144311478%_))) - (_%hd1144411482%_ + (##cdr _%e1147911514%_))) + (_%hd1148011518%_ (let () (declare (not safe)) - (##car _%e1144311478%_)))) - (if (gx#stx-pair/null? _%hd1144411482%_) - (let ((_%__splice1969719698%_ + (##car _%e1147911514%_)))) + (if (gx#stx-pair/null? _%hd1148011518%_) + (let ((_%__splice1973319734%_ (gx#syntax-split-splice - _%hd1144411482%_ + _%hd1148011518%_ '0))) - (let ((_%tl1144811491%_ + (let ((_%tl1148411527%_ (let () (declare (not safe)) (##vector-ref - _%__splice1969719698%_ + _%__splice1973319734%_ '1))) - (_%target1144611488%_ + (_%target1148211524%_ (let () (declare (not safe)) (##vector-ref - _%__splice1969719698%_ + _%__splice1973319734%_ '0)))) - (if (gx#stx-null? _%tl1144811491%_) - (_%__match1971519716%_ - _%e1144311478%_ - _%hd1144411482%_ - _%tl1144511485%_ - _%__splice1969719698%_ - _%target1144611488%_ - _%tl1144811491%_) - (_%__kont1969919700%_)))) - (_%__kont1969919700%_)))) - (_%__kont1969919700%_)))))))) - (_%duplicate-indexes?9380%_ - (lambda (_%xs11408%_) - (let ((_%ht11411%_ (make-hash-table-eq))) - (let _%lp11414%_ ((_%rest11417%_ _%xs11408%_)) - (if (pair? _%rest11417%_) - (let* ((_%ix11420%_ + (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%_ (let () (declare (not safe)) - (##car _%rest11417%_))) - (_%$e11423%_ - (hash-get _%ht11411%_ _%ix11420%_))) - (if _%$e11423%_ - _%$e11423%_ + (##car _%rest11453%_))) + (_%$e11459%_ + (hash-get _%ht11447%_ _%ix11456%_))) + (if _%$e11459%_ + _%$e11459%_ (begin - (hash-put! _%ht11411%_ _%ix11420%_ '#t) - (_%lp11414%_ + (hash-put! _%ht11447%_ _%ix11456%_ '#t) + (_%lp11450%_ (let () (declare (not safe)) - (##cdr _%rest11417%_)))))) + (##cdr _%rest11453%_)))))) '#f))))) - (_%generate-hash-dispatch-table9381%_ - (lambda (_%indexes11377%_ _%hash-e11379%_) - (let _%lp11381%_ ((_%len11384%_ - (* '2 (length _%indexes11377%_)))) - (let* ((_%hs11390%_ - (map (lambda (_%x11387%_) - (_%hash-e11379%_ (car _%x11387%_))) - _%indexes11377%_)) - (_%xs11396%_ - (map (lambda (_%h11393%_) - (fxmodulo _%h11393%_ _%len11384%_)) - _%hs11390%_))) - (if (_%duplicate-indexes?9380%_ _%xs11396%_) - (if (< _%len11384%_ '131072) - (_%lp11381%_ + (_%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%_ (quotient (let () (declare (not safe)) - (##fx* _%len11384%_ '3)) + (##fx* _%len11420%_ '3)) '2)) (gx#raise-syntax-error '#f '"Cannot create perfect dispatch table" - _%stx9367%_ - _%indexes11377%_)) - (let ((_%tab11401%_ - (make-vector _%len11384%_ '#f))) + _%stx9403%_ + _%indexes11413%_)) + (let ((_%tab11437%_ + (make-vector _%len11420%_ '#f))) (for-each - (lambda (_%entry11404%_ _%x11406%_) + (lambda (_%entry11440%_ _%x11442%_) (vector-set! - _%tab11401%_ - _%x11406%_ - _%entry11404%_)) - _%indexes11377%_ - _%xs11396%_) - _%tab11401%_)))))) - (_%generate-symbolic-dispatch9382%_ - (lambda (_%e10980%_ - _%datums10982%_ - _%dispatch10983%_ - _%default10984%_) - (let* ((_%indexes10986%_ - (_%datum-dispatch-index9379%_ _%datums10982%_)) - (_%tab10989%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes10986%_ + _%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%_ symbol-hash))) - (if (= (length _%dispatch10983%_) '1) - (let* ((_%tab10997%_ + (if (= (length _%dispatch11019%_) '1) + (let* ((_%tab11033%_ (vector-map - (lambda (_%x10994%_) - (if _%x10994%_ (car _%x10994%_) '#f)) - _%tab10989%_)) - (_%g1100011038%_ - (lambda (_%g1100111034%_) + (lambda (_%x11030%_) + (if _%x11030%_ (car _%x11030%_) '#f)) + _%tab11025%_)) + (_%g1103611074%_ + (lambda (_%g1103711070%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1100111034%_))) - (_%g1099911169%_ - (lambda (_%g1100111042%_) - (if (gx#stx-pair? _%g1100111042%_) - (let ((_%e1100911045%_ - (gx#syntax-e _%g1100111042%_))) - (let ((_%hd1101011049%_ + _%g1103711070%_))) + (_%g1103511205%_ + (lambda (_%g1103711078%_) + (if (gx#stx-pair? _%g1103711078%_) + (let ((_%e1104511081%_ + (gx#syntax-e _%g1103711078%_))) + (let ((_%hd1104611085%_ (let () (declare (not safe)) - (##car _%e1100911045%_))) - (_%tl1101111052%_ + (##car _%e1104511081%_))) + (_%tl1104711088%_ (let () (declare (not safe)) - (##cdr _%e1100911045%_)))) - (if (gx#stx-pair? _%tl1101111052%_) - (let ((_%e1101211055%_ + (##cdr _%e1104511081%_)))) + (if (gx#stx-pair? _%tl1104711088%_) + (let ((_%e1104811091%_ (gx#syntax-e - _%tl1101111052%_))) - (let ((_%hd1101311059%_ + _%tl1104711088%_))) + (let ((_%hd1104911095%_ (let () (declare (not safe)) - (##car _%e1101211055%_))) - (_%tl1101411062%_ + (##car _%e1104811091%_))) + (_%tl1105011098%_ (let () (declare (not safe)) - (##cdr _%e1101211055%_)))) + (##cdr _%e1104811091%_)))) (if (gx#stx-pair? - _%tl1101411062%_) - (let ((_%e1101511065%_ + _%tl1105011098%_) + (let ((_%e1105111101%_ (gx#syntax-e - _%tl1101411062%_))) - (let ((_%hd1101611069%_ + _%tl1105011098%_))) + (let ((_%hd1105211105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1101511065%_))) - (_%tl1101711072%_ + (let () (declare (not safe)) (##car _%e1105111101%_))) + (_%tl1105311108%_ (let () (declare (not safe)) - (##cdr _%e1101511065%_)))) - (if (gx#stx-pair? _%tl1101711072%_) - (let ((_%e1101811075%_ (gx#syntax-e _%tl1101711072%_))) - (let ((_%hd1101911079%_ + (##cdr _%e1105111101%_)))) + (if (gx#stx-pair? _%tl1105311108%_) + (let ((_%e1105411111%_ (gx#syntax-e _%tl1105311108%_))) + (let ((_%hd1105511115%_ (let () (declare (not safe)) - (##car _%e1101811075%_))) - (_%tl1102011082%_ + (##car _%e1105411111%_))) + (_%tl1105611118%_ (let () (declare (not safe)) - (##cdr _%e1101811075%_)))) - (if (gx#stx-pair? _%hd1101911079%_) - (let ((_%e1102111085%_ - (gx#syntax-e _%hd1101911079%_))) - (let ((_%hd1102211089%_ + (##cdr _%e1105411111%_)))) + (if (gx#stx-pair? _%hd1105511115%_) + (let ((_%e1105711121%_ + (gx#syntax-e _%hd1105511115%_))) + (let ((_%hd1105811125%_ (let () (declare (not safe)) - (##car _%e1102111085%_))) - (_%tl1102311092%_ + (##car _%e1105711121%_))) + (_%tl1105911128%_ (let () (declare (not safe)) - (##cdr _%e1102111085%_)))) - (if (gx#stx-null? _%tl1102311092%_) - (if (gx#stx-pair? _%tl1102011082%_) - (let ((_%e1102411095%_ + (##cdr _%e1105711121%_)))) + (if (gx#stx-null? _%tl1105911128%_) + (if (gx#stx-pair? _%tl1105611118%_) + (let ((_%e1106011131%_ (gx#syntax-e - _%tl1102011082%_))) - (let ((_%hd1102511099%_ + _%tl1105611118%_))) + (let ((_%hd1106111135%_ (let () (declare (not safe)) - (##car _%e1102411095%_))) - (_%tl1102611102%_ + (##car _%e1106011131%_))) + (_%tl1106211138%_ (let () (declare (not safe)) - (##cdr _%e1102411095%_)))) + (##cdr _%e1106011131%_)))) (if (gx#stx-pair? - _%tl1102611102%_) - (let ((_%e1102711105%_ + _%tl1106211138%_) + (let ((_%e1106311141%_ (gx#syntax-e - _%tl1102611102%_))) - (let ((_%hd1102811109%_ + _%tl1106211138%_))) + (let ((_%hd1106411145%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1102711105%_))) - (_%tl1102911112%_ - (let () (declare (not safe)) (##cdr _%e1102711105%_)))) - (if (gx#stx-pair? _%tl1102911112%_) - (let ((_%e1103011115%_ (gx#syntax-e _%tl1102911112%_))) - (let ((_%hd1103111119%_ + (##car _%e1106311141%_))) + (_%tl1106511148%_ + (let () (declare (not safe)) (##cdr _%e1106311141%_)))) + (if (gx#stx-pair? _%tl1106511148%_) + (let ((_%e1106611151%_ (gx#syntax-e _%tl1106511148%_))) + (let ((_%hd1106711155%_ (let () (declare (not safe)) - (##car _%e1103011115%_))) - (_%tl1103211122%_ + (##car _%e1106611151%_))) + (_%tl1106811158%_ (let () (declare (not safe)) - (##cdr _%e1103011115%_)))) - (if (gx#stx-null? _%tl1103211122%_) - ((lambda (_%L11125%_ - _%L11127%_ - _%L11128%_ - _%L11129%_ - _%L11130%_ - _%L11131%_ - _%L11132%_) + (##cdr _%e1106611151%_)))) + (if (gx#stx-null? _%tl1106811158%_) + ((lambda (_%L11161%_ + _%L11163%_ + _%L11164%_ + _%L11165%_ + _%L11166%_ + _%L11167%_ + _%L11168%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11131%_ + (cons (cons (cons _%L11167%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L11128%_ '()))) + (cons '() (cons _%L11164%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11130%_ + (cons (cons _%L11166%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L11127%_ '())) + (cons _%L11163%_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4763,13 +4763,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'symbol?) - (cons _%L11132%_ '())) + (cons _%L11168%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11132%_ + (cons _%L11168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -4782,7 +4782,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L11125%_ '()))) + (cons _%L11161%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4792,7 +4792,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L11130%_ + (cons _%L11166%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4806,201 +4806,201 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'q) - (cons _%L11132%_ '()))) - (cons _%L11129%_ (cons (cons _%L11131%_ '()) '())))) + (cons _%L11168%_ '()))) + (cons _%L11165%_ (cons (cons _%L11167%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11131%_ '()) '())))) + (cons (cons _%L11167%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1103111119%_ - _%hd1102811109%_ - _%hd1102511099%_ - _%hd1102211089%_ - _%hd1101611069%_ - _%hd1101311059%_ - _%hd1101011049%_) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1100011038%_ - _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1100011038%_ - _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_))))) - (_%g1099911169%_ - (list _%e10980%_ + _%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%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10983%_ - _%default10984%_ - _%tab10997%_ - (vector-length _%tab10997%_)))) - (let* ((_%g1117311217%_ - (lambda (_%g1117411213%_) + _%dispatch11019%_ + _%default11020%_ + _%tab11033%_ + (vector-length _%tab11033%_)))) + (let* ((_%g1120911253%_ + (lambda (_%g1121011249%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1117411213%_))) - (_%g1117211373%_ - (lambda (_%g1117411221%_) - (if (gx#stx-pair? _%g1117411221%_) - (let ((_%e1118211224%_ - (gx#syntax-e _%g1117411221%_))) - (let ((_%hd1118311228%_ + _%g1121011249%_))) + (_%g1120811409%_ + (lambda (_%g1121011257%_) + (if (gx#stx-pair? _%g1121011257%_) + (let ((_%e1121811260%_ + (gx#syntax-e _%g1121011257%_))) + (let ((_%hd1121911264%_ (let () (declare (not safe)) - (##car _%e1118211224%_))) - (_%tl1118411231%_ + (##car _%e1121811260%_))) + (_%tl1122011267%_ (let () (declare (not safe)) - (##cdr _%e1118211224%_)))) - (if (gx#stx-pair? _%tl1118411231%_) - (let ((_%e1118511234%_ + (##cdr _%e1121811260%_)))) + (if (gx#stx-pair? _%tl1122011267%_) + (let ((_%e1122111270%_ (gx#syntax-e - _%tl1118411231%_))) - (let ((_%hd1118611238%_ + _%tl1122011267%_))) + (let ((_%hd1122211274%_ (let () (declare (not safe)) - (##car _%e1118511234%_))) - (_%tl1118711241%_ + (##car _%e1122111270%_))) + (_%tl1122311277%_ (let () (declare (not safe)) - (##cdr _%e1118511234%_)))) + (##cdr _%e1122111270%_)))) (if (gx#stx-pair? - _%tl1118711241%_) - (let ((_%e1118811244%_ + _%tl1122311277%_) + (let ((_%e1122411280%_ (gx#syntax-e - _%tl1118711241%_))) - (let ((_%hd1118911248%_ + _%tl1122311277%_))) + (let ((_%hd1122511284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1118811244%_))) - (_%tl1119011251%_ + (let () (declare (not safe)) (##car _%e1122411280%_))) + (_%tl1122611287%_ (let () (declare (not safe)) - (##cdr _%e1118811244%_)))) - (if (gx#stx-pair? _%tl1119011251%_) - (let ((_%e1119111254%_ (gx#syntax-e _%tl1119011251%_))) - (let ((_%hd1119211258%_ + (##cdr _%e1122411280%_)))) + (if (gx#stx-pair? _%tl1122611287%_) + (let ((_%e1122711290%_ (gx#syntax-e _%tl1122611287%_))) + (let ((_%hd1122811294%_ (let () (declare (not safe)) - (##car _%e1119111254%_))) - (_%tl1119311261%_ + (##car _%e1122711290%_))) + (_%tl1122911297%_ (let () (declare (not safe)) - (##cdr _%e1119111254%_)))) - (if (gx#stx-pair/null? _%hd1119211258%_) - (let ((_g20921_ + (##cdr _%e1122711290%_)))) + (if (gx#stx-pair/null? _%hd1122811294%_) + (let ((_g20957_ (gx#syntax-split-splice - _%hd1119211258%_ + _%hd1122811294%_ '0))) (begin - (let ((_g20922_ + (let ((_g20958_ (let () (declare (not safe)) - (if (##values? _g20921_) - (##vector-length _g20921_) + (if (##values? _g20957_) + (##vector-length _g20957_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20922_ 2))) + (##fx= _g20958_ 2))) (error "Context expects 2 values" - _g20922_))) - (let ((_%target1119411264%_ + _g20958_))) + (let ((_%target1123011300%_ (let () (declare (not safe)) - (##vector-ref _g20921_ 0))) - (_%tl1119611267%_ + (##vector-ref _g20957_ 0))) + (_%tl1123211303%_ (let () (declare (not safe)) - (##vector-ref _g20921_ 1)))) - (if (gx#stx-null? _%tl1119611267%_) - (letrec ((_%loop1119711270%_ - (lambda (_%hd1119511274%_ - _%dispatch1120111277%_) + (##vector-ref _g20957_ 1)))) + (if (gx#stx-null? _%tl1123211303%_) + (letrec ((_%loop1123311306%_ + (lambda (_%hd1123111310%_ + _%dispatch1123711313%_) (if (gx#stx-pair? - _%hd1119511274%_) - (let ((_%e1119811280%_ + _%hd1123111310%_) + (let ((_%e1123411316%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1119511274%_))) - (let ((_%lp-hd1119911284%_ + (gx#syntax-e _%hd1123111310%_))) + (let ((_%lp-hd1123511320%_ (let () (declare (not safe)) - (##car _%e1119811280%_))) - (_%lp-tl1120011287%_ + (##car _%e1123411316%_))) + (_%lp-tl1123611323%_ (let () (declare (not safe)) - (##cdr _%e1119811280%_)))) - (_%loop1119711270%_ - _%lp-tl1120011287%_ - (cons _%lp-hd1119911284%_ _%dispatch1120111277%_)))) - (let ((_%dispatch1120211290%_ - (reverse _%dispatch1120111277%_))) - (if (gx#stx-pair? _%tl1119311261%_) - (let ((_%e1120311294%_ (gx#syntax-e _%tl1119311261%_))) - (let ((_%hd1120411298%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1120311294%_))) - (_%tl1120511301%_ + (##car _%e1123911330%_))) + (_%tl1124111337%_ (let () (declare (not safe)) - (##cdr _%e1120311294%_)))) - (if (gx#stx-pair? _%tl1120511301%_) - (let ((_%e1120611304%_ - (gx#syntax-e _%tl1120511301%_))) - (let ((_%hd1120711308%_ + (##cdr _%e1123911330%_)))) + (if (gx#stx-pair? _%tl1124111337%_) + (let ((_%e1124211340%_ + (gx#syntax-e _%tl1124111337%_))) + (let ((_%hd1124311344%_ (let () (declare (not safe)) - (##car _%e1120611304%_))) - (_%tl1120811311%_ + (##car _%e1124211340%_))) + (_%tl1124411347%_ (let () (declare (not safe)) - (##cdr _%e1120611304%_)))) - (if (gx#stx-pair? _%tl1120811311%_) - (let ((_%e1120911314%_ - (gx#syntax-e _%tl1120811311%_))) - (let ((_%hd1121011318%_ + (##cdr _%e1124211340%_)))) + (if (gx#stx-pair? _%tl1124411347%_) + (let ((_%e1124511350%_ + (gx#syntax-e _%tl1124411347%_))) + (let ((_%hd1124611354%_ (let () (declare (not safe)) - (##car _%e1120911314%_))) - (_%tl1121111321%_ + (##car _%e1124511350%_))) + (_%tl1124711357%_ (let () (declare (not safe)) - (##cdr _%e1120911314%_)))) - (if (gx#stx-null? _%tl1121111321%_) - ((lambda (_%L11324%_ - _%L11326%_ - _%L11327%_ - _%L11328%_ - _%L11329%_ - _%L11330%_ - _%L11331%_) + (##cdr _%e1124511350%_)))) + (if (gx#stx-null? _%tl1124711357%_) + ((lambda (_%L11360%_ + _%L11362%_ + _%L11363%_ + _%L11364%_ + _%L11365%_ + _%L11366%_ + _%L11367%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11330%_ + (cons (cons (cons _%L11366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L11327%_ '()))) + (cons _%L11363%_ '()))) '())) - (cons (cons _%L11329%_ + (cons (cons _%L11365%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L11326%_ '())) + (cons _%L11362%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'symbol?) - (cons _%L11331%_ '())) + (cons _%L11367%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) @@ -5011,7 +5011,7 @@ (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11331%_ '())) + (cons _%L11367%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax @@ -5020,13 +5020,13 @@ (cons (gx#datum->syntax '#f 'h) - (cons _%L11324%_ '()))) + (cons _%L11360%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L11329%_ + (cons _%L11365%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -5046,7 +5046,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L11331%_ '()))) + (cons _%L11367%_ '()))) (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 (_%g1136411367%_ + (foldr (lambda (_%g1140011403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1136511370%_) - (cons _%g1136411367%_ _%g1136511370%_)) + _%g1140111406%_) + (cons _%g1140011403%_ _%g1140111406%_)) '() - _%L11328%_))) + _%L11364%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11330%_ '()) '())))) + (cons (cons _%L11366%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11330%_ '()) '())))) + (cons (cons _%L11366%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11330%_ '()) + (cons (cons _%L11366%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1121011318%_ - _%hd1120711308%_ - _%hd1120411298%_ - _%dispatch1120211290%_ - _%hd1118911248%_ - _%hd1118611238%_ - _%hd1118311228%_) - (_%g1117311217%_ - _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1119711270%_ - _%target1119411264%_ + _%hd1124611354%_ + _%hd1124311344%_ + _%hd1124011334%_ + _%dispatch1123811326%_ + _%hd1122511284%_ + _%hd1122211274%_ + _%hd1121911264%_) + (_%g1120911253%_ + _%g1121011257%_)))) + (_%g1120911253%_ _%g1121011257%_)))) + (_%g1120911253%_ _%g1121011257%_)))) + (_%g1120911253%_ _%g1121011257%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1123311306%_ + _%target1123011300%_ '())) - (_%g1117311217%_ _%g1117411221%_))))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1117311217%_ - _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_))))) - (_%g1117211373%_ - (list _%e10980%_ + (_%g1120911253%_ _%g1121011257%_))))) + (_%g1120911253%_ _%g1121011257%_)))) + (_%g1120911253%_ _%g1121011257%_)))) + (_%g1120911253%_ _%g1121011257%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1120911253%_ + _%g1121011257%_)))) + (_%g1120911253%_ _%g1121011257%_))))) + (_%g1120811409%_ + (list _%e11016%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10983%_ - _%default10984%_ - _%tab10989%_ - (vector-length _%tab10989%_)))))))) - (_%max-char9383%_ - (lambda (_%datums10969%_) - (foldl (lambda (_%lst10972%_ _%r10974%_) - (foldl (lambda (_%char10976%_ _%r10978%_) - (max (char->integer _%char10976%_) - _%r10978%_)) - _%r10974%_ - _%lst10972%_)) + _%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%_)) '0 - _%datums10969%_))) - (_%generate-char-dispatch-table9384%_ - (lambda (_%indexes10948%_) - (let* ((_%ixs10954%_ - (map (lambda (_%x10951%_) - (char->integer (car _%x10951%_))) - _%indexes10948%_)) - (_%len10957%_ (fx1+ (foldl max '0 _%ixs10954%_))) - (_%vec10960%_ (make-vector _%len10957%_ '#f))) + _%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))) (for-each - (lambda (_%entry10965%_ _%x10967%_) + (lambda (_%entry11001%_ _%x11003%_) (vector-set! - _%vec10960%_ - _%x10967%_ - (cdr _%entry10965%_))) - _%indexes10948%_ - _%ixs10954%_) - _%vec10960%_))) - (_%simple-char-range?9385%_ - (lambda (_%tab10924%_) - (let ((_%end10927%_ (vector-length _%tab10924%_))) - (let _%lp10930%_ ((_%i10933%_ '0)) - (let ((_%ix10936%_ - (vector-ref _%tab10924%_ _%i10933%_))) - (if _%ix10936%_ - (let _%lp210939%_ ((_%i10942%_ - (fx1+ _%i10933%_))) - (if (fx< _%i10942%_ _%end10927%_) - (let ((_%ix*10945%_ + _%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%_ (vector-ref - _%tab10924%_ - _%i10942%_))) - (if (eq? _%ix10936%_ _%ix*10945%_) - (_%lp210939%_ (fx1+ _%i10942%_)) + _%tab10960%_ + _%i10978%_))) + (if (eq? _%ix10972%_ _%ix*10981%_) + (_%lp210975%_ (fx1+ _%i10978%_)) '#f)) '#t)) - (_%lp10930%_ (fx1+ _%i10933%_)))))))) - (_%char-range-start9386%_ - (lambda (_%tab10915%_) - (let _%lp10918%_ ((_%i10921%_ '0)) - (if (vector-ref _%tab10915%_ _%i10921%_) - _%i10921%_ - (_%lp10918%_ (fx1+ _%i10921%_)))))) - (_%generate-char-dispatch9387%_ - (lambda (_%e10538%_ - _%datums10540%_ - _%dispatch10541%_ - _%default10542%_) - (if (< (_%max-char9383%_ _%datums10540%_) '128) - (let* ((_%indexes10544%_ - (_%datum-dispatch-index9379%_ _%datums10540%_)) - (_%tab10547%_ - (_%generate-char-dispatch-table9384%_ - _%indexes10544%_))) - (if (_%simple-char-range?9385%_ _%tab10547%_) - (let ((_%start10552%_ - (_%char-range-start9386%_ _%tab10547%_)) - (_%end10554%_ - (vector-length _%tab10547%_))) - (let* ((_%g1055610590%_ - (lambda (_%g1055710586%_) + (_%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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1055710586%_))) - (_%g1055510707%_ - (lambda (_%g1055710594%_) - (if (gx#stx-pair? _%g1055710594%_) - (let ((_%e1056410597%_ + _%g1059310622%_))) + (_%g1059110743%_ + (lambda (_%g1059310630%_) + (if (gx#stx-pair? _%g1059310630%_) + (let ((_%e1060010633%_ (gx#syntax-e - _%g1055710594%_))) - (let ((_%hd1056510601%_ + _%g1059310630%_))) + (let ((_%hd1060110637%_ (let () (declare (not safe)) - (##car _%e1056410597%_))) - (_%tl1056610604%_ + (##car _%e1060010633%_))) + (_%tl1060210640%_ (let () (declare (not safe)) - (##cdr _%e1056410597%_)))) + (##cdr _%e1060010633%_)))) (if (gx#stx-pair? - _%tl1056610604%_) - (let ((_%e1056710607%_ + _%tl1060210640%_) + (let ((_%e1060310643%_ (gx#syntax-e - _%tl1056610604%_))) - (let ((_%hd1056810611%_ + _%tl1060210640%_))) + (let ((_%hd1060410647%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1056710607%_))) - (_%tl1056910614%_ - (let () (declare (not safe)) (##cdr _%e1056710607%_)))) - (if (gx#stx-pair? _%tl1056910614%_) - (let ((_%e1057010617%_ (gx#syntax-e _%tl1056910614%_))) - (let ((_%hd1057110621%_ + (##car _%e1060310643%_))) + (_%tl1060510650%_ + (let () (declare (not safe)) (##cdr _%e1060310643%_)))) + (if (gx#stx-pair? _%tl1060510650%_) + (let ((_%e1060610653%_ (gx#syntax-e _%tl1060510650%_))) + (let ((_%hd1060710657%_ (let () (declare (not safe)) - (##car _%e1057010617%_))) - (_%tl1057210624%_ + (##car _%e1060610653%_))) + (_%tl1060810660%_ (let () (declare (not safe)) - (##cdr _%e1057010617%_)))) - (if (gx#stx-pair? _%hd1057110621%_) - (let ((_%e1057310627%_ - (gx#syntax-e _%hd1057110621%_))) - (let ((_%hd1057410631%_ + (##cdr _%e1060610653%_)))) + (if (gx#stx-pair? _%hd1060710657%_) + (let ((_%e1060910663%_ + (gx#syntax-e _%hd1060710657%_))) + (let ((_%hd1061010667%_ (let () (declare (not safe)) - (##car _%e1057310627%_))) - (_%tl1057510634%_ + (##car _%e1060910663%_))) + (_%tl1061110670%_ (let () (declare (not safe)) - (##cdr _%e1057310627%_)))) - (if (gx#stx-null? _%tl1057510634%_) - (if (gx#stx-pair? _%tl1057210624%_) - (let ((_%e1057610637%_ + (##cdr _%e1060910663%_)))) + (if (gx#stx-null? _%tl1061110670%_) + (if (gx#stx-pair? _%tl1060810660%_) + (let ((_%e1061210673%_ (gx#syntax-e - _%tl1057210624%_))) - (let ((_%hd1057710641%_ + _%tl1060810660%_))) + (let ((_%hd1061310677%_ (let () (declare (not safe)) - (##car _%e1057610637%_))) - (_%tl1057810644%_ + (##car _%e1061210673%_))) + (_%tl1061410680%_ (let () (declare (not safe)) - (##cdr _%e1057610637%_)))) + (##cdr _%e1061210673%_)))) (if (gx#stx-pair? - _%tl1057810644%_) - (let ((_%e1057910647%_ + _%tl1061410680%_) + (let ((_%e1061510683%_ (gx#syntax-e - _%tl1057810644%_))) - (let ((_%hd1058010651%_ + _%tl1061410680%_))) + (let ((_%hd1061610687%_ (let () (declare (not safe)) - (##car _%e1057910647%_))) - (_%tl1058110654%_ + (##car _%e1061510683%_))) + (_%tl1061710690%_ (let () (declare (not safe)) - (##cdr _%e1057910647%_)))) + (##cdr _%e1061510683%_)))) (if (gx#stx-pair? - _%tl1058110654%_) - (let ((_%e1058210657%_ + _%tl1061710690%_) + (let ((_%e1061810693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1058110654%_))) - (let ((_%hd1058310661%_ + (gx#syntax-e _%tl1061710690%_))) + (let ((_%hd1061910697%_ (let () (declare (not safe)) - (##car _%e1058210657%_))) - (_%tl1058410664%_ + (##car _%e1061810693%_))) + (_%tl1062010700%_ (let () (declare (not safe)) - (##cdr _%e1058210657%_)))) - (if (gx#stx-null? _%tl1058410664%_) - ((lambda (_%L10667%_ - _%L10669%_ - _%L10670%_ - _%L10671%_ - _%L10672%_ - _%L10673%_) + (##cdr _%e1061810693%_)))) + (if (gx#stx-null? _%tl1062010700%_) + ((lambda (_%L10703%_ + _%L10705%_ + _%L10706%_ + _%L10707%_ + _%L10708%_ + _%L10709%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L10672%_ + (cons (cons _%L10708%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L10670%_ '()))) + (cons _%L10706%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -5294,13 +5294,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'char?) - (cons _%L10673%_ '())) + (cons _%L10709%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10673%_ '())) + (cons _%L10709%_ '())) '())) (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 _%L10669%_ '()))) + (cons _%L10705%_ '()))) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10667%_ '()))) + (cons _%L10703%_ '()))) '()))) - (cons _%L10671%_ (cons (cons _%L10672%_ '()) '())))) + (cons _%L10707%_ (cons (cons _%L10708%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L10672%_ '()) '())))) + (cons (cons _%L10708%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1058310661%_ - _%hd1058010651%_ - _%hd1057710641%_ - _%hd1057410631%_ - _%hd1056810611%_ - _%hd1056510601%_) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1055610590%_ - _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1055610590%_ - _%g1055710594%_))))) - (_%g1055510707%_ - (list _%e10538%_ + _%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%_ (gx#genident 'default) - _%dispatch10541%_ - _%default10542%_ - _%start10552%_ - _%end10554%_)))) - (let* ((_%g1071110755%_ - (lambda (_%g1071210751%_) + _%dispatch10577%_ + _%default10578%_ + _%start10588%_ + _%end10590%_)))) + (let* ((_%g1074710791%_ + (lambda (_%g1074810787%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1071210751%_))) - (_%g1071010911%_ - (lambda (_%g1071210759%_) - (if (gx#stx-pair? _%g1071210759%_) - (let ((_%e1072010762%_ + _%g1074810787%_))) + (_%g1074610947%_ + (lambda (_%g1074810795%_) + (if (gx#stx-pair? _%g1074810795%_) + (let ((_%e1075610798%_ (gx#syntax-e - _%g1071210759%_))) - (let ((_%hd1072110766%_ + _%g1074810795%_))) + (let ((_%hd1075710802%_ (let () (declare (not safe)) - (##car _%e1072010762%_))) - (_%tl1072210769%_ + (##car _%e1075610798%_))) + (_%tl1075810805%_ (let () (declare (not safe)) - (##cdr _%e1072010762%_)))) + (##cdr _%e1075610798%_)))) (if (gx#stx-pair? - _%tl1072210769%_) - (let ((_%e1072310772%_ + _%tl1075810805%_) + (let ((_%e1075910808%_ (gx#syntax-e - _%tl1072210769%_))) - (let ((_%hd1072410776%_ + _%tl1075810805%_))) + (let ((_%hd1076010812%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1072310772%_))) - (_%tl1072510779%_ - (let () (declare (not safe)) (##cdr _%e1072310772%_)))) - (if (gx#stx-pair? _%tl1072510779%_) - (let ((_%e1072610782%_ (gx#syntax-e _%tl1072510779%_))) - (let ((_%hd1072710786%_ + (##car _%e1075910808%_))) + (_%tl1076110815%_ + (let () (declare (not safe)) (##cdr _%e1075910808%_)))) + (if (gx#stx-pair? _%tl1076110815%_) + (let ((_%e1076210818%_ (gx#syntax-e _%tl1076110815%_))) + (let ((_%hd1076310822%_ (let () (declare (not safe)) - (##car _%e1072610782%_))) - (_%tl1072810789%_ + (##car _%e1076210818%_))) + (_%tl1076410825%_ (let () (declare (not safe)) - (##cdr _%e1072610782%_)))) - (if (gx#stx-pair? _%tl1072810789%_) - (let ((_%e1072910792%_ - (gx#syntax-e _%tl1072810789%_))) - (let ((_%hd1073010796%_ + (##cdr _%e1076210818%_)))) + (if (gx#stx-pair? _%tl1076410825%_) + (let ((_%e1076510828%_ + (gx#syntax-e _%tl1076410825%_))) + (let ((_%hd1076610832%_ (let () (declare (not safe)) - (##car _%e1072910792%_))) - (_%tl1073110799%_ + (##car _%e1076510828%_))) + (_%tl1076710835%_ (let () (declare (not safe)) - (##cdr _%e1072910792%_)))) - (if (gx#stx-pair/null? _%hd1073010796%_) - (let ((_g20923_ + (##cdr _%e1076510828%_)))) + (if (gx#stx-pair/null? _%hd1076610832%_) + (let ((_g20959_ (gx#syntax-split-splice - _%hd1073010796%_ + _%hd1076610832%_ '0))) (begin - (let ((_g20924_ + (let ((_g20960_ (let () (declare (not safe)) - (if (##values? _g20923_) - (##vector-length _g20923_) + (if (##values? _g20959_) + (##vector-length _g20959_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20924_ 2))) + (##fx= _g20960_ 2))) (error "Context expects 2 values" - _g20924_))) - (let ((_%target1073210802%_ + _g20960_))) + (let ((_%target1076810838%_ (let () (declare (not safe)) - (##vector-ref _g20923_ 0))) - (_%tl1073410805%_ + (##vector-ref _g20959_ 0))) + (_%tl1077010841%_ (let () (declare (not safe)) - (##vector-ref _g20923_ 1)))) - (if (gx#stx-null? _%tl1073410805%_) - (letrec ((_%loop1073510808%_ - (lambda (_%hd1073310812%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%dispatch1073910815%_) - (if (gx#stx-pair? _%hd1073310812%_) - (let ((_%e1073610818%_ (gx#syntax-e _%hd1073310812%_))) - (let ((_%lp-hd1073710822%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1073610818%_))) - (_%lp-tl1073810825%_ + (##car _%e1077210854%_))) + (_%lp-tl1077410861%_ (let () (declare (not safe)) - (##cdr _%e1073610818%_)))) - (_%loop1073510808%_ - _%lp-tl1073810825%_ - (cons _%lp-hd1073710822%_ _%dispatch1073910815%_)))) - (let ((_%dispatch1074010828%_ - (reverse _%dispatch1073910815%_))) - (if (gx#stx-pair? _%tl1073110799%_) - (let ((_%e1074110832%_ - (gx#syntax-e _%tl1073110799%_))) - (let ((_%hd1074210836%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1074110832%_))) - (_%tl1074310839%_ + (##car _%e1077710868%_))) + (_%tl1077910875%_ (let () (declare (not safe)) - (##cdr _%e1074110832%_)))) - (if (gx#stx-pair? _%tl1074310839%_) - (let ((_%e1074410842%_ - (gx#syntax-e _%tl1074310839%_))) - (let ((_%hd1074510846%_ + (##cdr _%e1077710868%_)))) + (if (gx#stx-pair? _%tl1077910875%_) + (let ((_%e1078010878%_ + (gx#syntax-e _%tl1077910875%_))) + (let ((_%hd1078110882%_ (let () (declare (not safe)) - (##car _%e1074410842%_))) - (_%tl1074610849%_ + (##car _%e1078010878%_))) + (_%tl1078210885%_ (let () (declare (not safe)) - (##cdr _%e1074410842%_)))) - (if (gx#stx-pair? _%tl1074610849%_) - (let ((_%e1074710852%_ + (##cdr _%e1078010878%_)))) + (if (gx#stx-pair? _%tl1078210885%_) + (let ((_%e1078310888%_ (gx#syntax-e - _%tl1074610849%_))) - (let ((_%hd1074810856%_ + _%tl1078210885%_))) + (let ((_%hd1078410892%_ (let () (declare (not safe)) - (##car _%e1074710852%_))) - (_%tl1074910859%_ + (##car _%e1078310888%_))) + (_%tl1078510895%_ (let () (declare (not safe)) - (##cdr _%e1074710852%_)))) + (##cdr _%e1078310888%_)))) (if (gx#stx-null? - _%tl1074910859%_) - ((lambda (_%L10862%_ - _%L10864%_ - _%L10865%_ - _%L10866%_ - _%L10867%_ - _%L10868%_ - _%L10869%_) + _%tl1078510895%_) + ((lambda (_%L10898%_ + _%L10900%_ + _%L10901%_ + _%L10902%_ + _%L10903%_ + _%L10904%_ + _%L10905%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10868%_ + (cons (cons (cons _%L10904%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10865%_ + (cons _%L10901%_ '()))) '())) - (cons (cons _%L10867%_ + (cons (cons _%L10903%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10864%_ '())) + (cons _%L10900%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10869%_ '())) + (cons _%L10905%_ '())) (cons (cons (gx#datum->syntax '#f 'let) @@ -5524,12 +5524,12 @@ (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10869%_ '())) + (cons _%L10905%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10862%_ '()))) + (cons _%L10898%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) @@ -5538,7 +5538,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10867%_ + (cons _%L10903%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5550,255 +5550,255 @@ (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1090210905%_ + (foldr (lambda (_%g1093810941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1090310908%_) - (cons _%g1090210905%_ _%g1090310908%_)) + _%g1093910944%_) + (cons _%g1093810941%_ _%g1093910944%_)) '() - _%L10866%_))) + _%L10902%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10868%_ '()) '())))) + (cons (cons _%L10904%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10868%_ '()) + (cons (cons _%L10904%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10868%_ '()) + (cons (cons _%L10904%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1074810856%_ - _%hd1074510846%_ - _%hd1074210836%_ - _%dispatch1074010828%_ - _%hd1072710786%_ - _%hd1072410776%_ - _%hd1072110766%_) - (_%g1071110755%_ - _%g1071210759%_)))) - (_%g1071110755%_ - _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1073510808%_ - _%target1073210802%_ + _%hd1078410892%_ + _%hd1078110882%_ + _%hd1077810872%_ + _%dispatch1077610864%_ + _%hd1076310822%_ + _%hd1076010812%_ + _%hd1075710802%_) + (_%g1074710791%_ + _%g1074810795%_)))) + (_%g1074710791%_ + _%g1074810795%_)))) + (_%g1074710791%_ _%g1074810795%_)))) + (_%g1074710791%_ _%g1074810795%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1077110844%_ + _%target1076810838%_ '())) - (_%g1071110755%_ - _%g1071210759%_))))) - (_%g1071110755%_ _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1071110755%_ - _%g1071210759%_)))) - (_%g1071110755%_ - _%g1071210759%_))))) - (_%g1071010911%_ - (list _%e10538%_ + (_%g1074710791%_ + _%g1074810795%_))))) + (_%g1074710791%_ _%g1074810795%_)))) + (_%g1074710791%_ _%g1074810795%_)))) + (_%g1074710791%_ _%g1074810795%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1074710791%_ + _%g1074810795%_)))) + (_%g1074710791%_ + _%g1074810795%_))))) + (_%g1074610947%_ + (list _%e10574%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10541%_ - _%default10542%_ - _%tab10547%_ - (vector-length _%tab10547%_)))))) - (_%generate-char-dispatch/hash9388%_ - _%e10538%_ - _%datums10540%_ - _%dispatch10541%_ - _%default10542%_)))) - (_%generate-char-dispatch/hash9388%_ - (lambda (_%e10316%_ - _%datums10318%_ - _%dispatch10319%_ - _%default10320%_) - (let* ((_%indexes10322%_ - (_%datum-dispatch-index9379%_ _%datums10318%_)) - (_%tab10325%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes10322%_ + _%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%_ char->integer)) - (_%g1033010374%_ - (lambda (_%g1033110370%_) + (_%g1036610410%_ + (lambda (_%g1036710406%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1033110370%_))) - (_%g1032910534%_ - (lambda (_%g1033110378%_) - (if (gx#stx-pair? _%g1033110378%_) - (let ((_%e1033910381%_ - (gx#syntax-e _%g1033110378%_))) - (let ((_%hd1034010385%_ + _%g1036710406%_))) + (_%g1036510570%_ + (lambda (_%g1036710414%_) + (if (gx#stx-pair? _%g1036710414%_) + (let ((_%e1037510417%_ + (gx#syntax-e _%g1036710414%_))) + (let ((_%hd1037610421%_ (let () (declare (not safe)) - (##car _%e1033910381%_))) - (_%tl1034110388%_ + (##car _%e1037510417%_))) + (_%tl1037710424%_ (let () (declare (not safe)) - (##cdr _%e1033910381%_)))) - (if (gx#stx-pair? _%tl1034110388%_) - (let ((_%e1034210391%_ + (##cdr _%e1037510417%_)))) + (if (gx#stx-pair? _%tl1037710424%_) + (let ((_%e1037810427%_ (gx#syntax-e - _%tl1034110388%_))) - (let ((_%hd1034310395%_ + _%tl1037710424%_))) + (let ((_%hd1037910431%_ (let () (declare (not safe)) - (##car _%e1034210391%_))) - (_%tl1034410398%_ + (##car _%e1037810427%_))) + (_%tl1038010434%_ (let () (declare (not safe)) - (##cdr _%e1034210391%_)))) + (##cdr _%e1037810427%_)))) (if (gx#stx-pair? - _%tl1034410398%_) - (let ((_%e1034510401%_ + _%tl1038010434%_) + (let ((_%e1038110437%_ (gx#syntax-e - _%tl1034410398%_))) - (let ((_%hd1034610405%_ + _%tl1038010434%_))) + (let ((_%hd1038210441%_ (let () (declare (not safe)) - (##car _%e1034510401%_))) - (_%tl1034710408%_ + (##car _%e1038110437%_))) + (_%tl1038310444%_ (let () (declare (not safe)) - (##cdr _%e1034510401%_)))) + (##cdr _%e1038110437%_)))) (if (gx#stx-pair? - _%tl1034710408%_) - (let ((_%e1034810411%_ + _%tl1038310444%_) + (let ((_%e1038410447%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1034710408%_))) - (let ((_%hd1034910415%_ + (gx#syntax-e _%tl1038310444%_))) + (let ((_%hd1038510451%_ (let () (declare (not safe)) - (##car _%e1034810411%_))) - (_%tl1035010418%_ + (##car _%e1038410447%_))) + (_%tl1038610454%_ (let () (declare (not safe)) - (##cdr _%e1034810411%_)))) - (if (gx#stx-pair/null? _%hd1034910415%_) - (let ((_g20925_ - (gx#syntax-split-splice _%hd1034910415%_ '0))) + (##cdr _%e1038410447%_)))) + (if (gx#stx-pair/null? _%hd1038510451%_) + (let ((_g20961_ + (gx#syntax-split-splice _%hd1038510451%_ '0))) (begin - (let ((_g20926_ + (let ((_g20962_ (let () (declare (not safe)) - (if (##values? _g20925_) - (##vector-length _g20925_) + (if (##values? _g20961_) + (##vector-length _g20961_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20926_ 2))) + (##fx= _g20962_ 2))) (error "Context expects 2 values" - _g20926_))) - (let ((_%target1035110421%_ + _g20962_))) + (let ((_%target1038710457%_ (let () (declare (not safe)) - (##vector-ref _g20925_ 0))) - (_%tl1035310424%_ + (##vector-ref _g20961_ 0))) + (_%tl1038910460%_ (let () (declare (not safe)) - (##vector-ref _g20925_ 1)))) - (if (gx#stx-null? _%tl1035310424%_) - (letrec ((_%loop1035410427%_ - (lambda (_%hd1035210431%_ - _%dispatch1035810434%_) + (##vector-ref _g20961_ 1)))) + (if (gx#stx-null? _%tl1038910460%_) + (letrec ((_%loop1039010463%_ + (lambda (_%hd1038810467%_ + _%dispatch1039410470%_) (if (gx#stx-pair? - _%hd1035210431%_) - (let ((_%e1035510437%_ + _%hd1038810467%_) + (let ((_%e1039110473%_ (gx#syntax-e - _%hd1035210431%_))) - (let ((_%lp-hd1035610441%_ + _%hd1038810467%_))) + (let ((_%lp-hd1039210477%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1035510437%_))) - (_%lp-tl1035710444%_ - (let () (declare (not safe)) (##cdr _%e1035510437%_)))) - (_%loop1035410427%_ - _%lp-tl1035710444%_ - (cons _%lp-hd1035610441%_ _%dispatch1035810434%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch1035910447%_ - (reverse _%dispatch1035810434%_))) + (##car _%e1039110473%_))) + (_%lp-tl1039310480%_ + (let () (declare (not safe)) (##cdr _%e1039110473%_)))) + (_%loop1039010463%_ + _%lp-tl1039310480%_ + (cons _%lp-hd1039210477%_ _%dispatch1039410470%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch1039510483%_ + (reverse _%dispatch1039410470%_))) (if (gx#stx-pair? - _%tl1035010418%_) - (let ((_%e1036010451%_ + _%tl1038610454%_) + (let ((_%e1039610487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1035010418%_))) - (let ((_%hd1036110455%_ + (gx#syntax-e _%tl1038610454%_))) + (let ((_%hd1039710491%_ (let () (declare (not safe)) - (##car _%e1036010451%_))) - (_%tl1036210458%_ + (##car _%e1039610487%_))) + (_%tl1039810494%_ (let () (declare (not safe)) - (##cdr _%e1036010451%_)))) - (if (gx#stx-pair? _%tl1036210458%_) - (let ((_%e1036310461%_ - (gx#syntax-e _%tl1036210458%_))) - (let ((_%hd1036410465%_ + (##cdr _%e1039610487%_)))) + (if (gx#stx-pair? _%tl1039810494%_) + (let ((_%e1039910497%_ + (gx#syntax-e _%tl1039810494%_))) + (let ((_%hd1040010501%_ (let () (declare (not safe)) - (##car _%e1036310461%_))) - (_%tl1036510468%_ + (##car _%e1039910497%_))) + (_%tl1040110504%_ (let () (declare (not safe)) - (##cdr _%e1036310461%_)))) - (if (gx#stx-pair? _%tl1036510468%_) - (let ((_%e1036610471%_ - (gx#syntax-e _%tl1036510468%_))) - (let ((_%hd1036710475%_ + (##cdr _%e1039910497%_)))) + (if (gx#stx-pair? _%tl1040110504%_) + (let ((_%e1040210507%_ + (gx#syntax-e _%tl1040110504%_))) + (let ((_%hd1040310511%_ (let () (declare (not safe)) - (##car _%e1036610471%_))) - (_%tl1036810478%_ + (##car _%e1040210507%_))) + (_%tl1040410514%_ (let () (declare (not safe)) - (##cdr _%e1036610471%_)))) - (if (gx#stx-null? _%tl1036810478%_) - ((lambda (_%L10481%_ - _%L10483%_ - _%L10484%_ - _%L10485%_ - _%L10486%_ - _%L10487%_ - _%L10488%_) + (##cdr _%e1040210507%_)))) + (if (gx#stx-null? _%tl1040410514%_) + ((lambda (_%L10517%_ + _%L10519%_ + _%L10520%_ + _%L10521%_ + _%L10522%_ + _%L10523%_ + _%L10524%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10487%_ + (cons (cons (cons _%L10523%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10484%_ '()))) + (cons '() (cons _%L10520%_ '()))) '())) - (cons (cons _%L10486%_ + (cons (cons _%L10522%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10483%_ '())) + (cons _%L10519%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10488%_ '())) + (cons _%L10524%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10488%_ '())) + (cons _%L10524%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L10481%_ '()))) + (cons _%L10517%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10486%_ + (cons _%L10522%_ (cons (gx#datum->syntax '#f 'ix) @@ -5820,7 +5820,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10488%_ '()))) + (cons _%L10524%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (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 (_%g1052510528%_ - _%g1052610531%_) - (cons _%g1052510528%_ - _%g1052610531%_)) + (foldr (lambda (_%g1056110564%_ + _%g1056210567%_) + (cons _%g1056110564%_ + _%g1056210567%_)) '() - _%L10485%_))) + _%L10521%_))) '()))) - (cons (cons _%L10487%_ '()) '())))) + (cons (cons _%L10523%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10487%_ '()) '())))) + (cons (cons _%L10523%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10487%_ '()) '())))) + (cons (cons _%L10523%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1036710475%_ - _%hd1036410465%_ - _%hd1036110455%_ - _%dispatch1035910447%_ - _%hd1034610405%_ - _%hd1034310395%_ - _%hd1034010385%_) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1035410427%_ - _%target1035110421%_ + _%hd1040310511%_ + _%hd1040010501%_ + _%hd1039710491%_ + _%dispatch1039510483%_ + _%hd1038210441%_ + _%hd1037910431%_ + _%hd1037610421%_) + (_%g1036610410%_ _%g1036710414%_)))) + (_%g1036610410%_ _%g1036710414%_)))) + (_%g1036610410%_ _%g1036710414%_)))) + (_%g1036610410%_ _%g1036710414%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1039010463%_ + _%target1038710457%_ '())) - (_%g1033010374%_ _%g1033110378%_))))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1033010374%_ - _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_))))) - (_%g1032910534%_ - (list _%e10316%_ + (_%g1036610410%_ _%g1036710414%_))))) + (_%g1036610410%_ _%g1036710414%_)))) + (_%g1036610410%_ _%g1036710414%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1036610410%_ + _%g1036710414%_)))) + (_%g1036610410%_ _%g1036710414%_)))) + (_%g1036610410%_ _%g1036710414%_))))) + (_%g1036510570%_ + (list _%e10352%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10319%_ - _%default10320%_ - _%tab10325%_ - (vector-length _%tab10325%_)))))) - (_%min-fixnum9389%_ - (lambda (_%datums10309%_) - (foldl (lambda (_%lst10312%_ _%r10314%_) - (foldl min _%r10314%_ _%lst10312%_)) + _%dispatch10355%_ + _%default10356%_ + _%tab10361%_ + (vector-length _%tab10361%_)))))) + (_%min-fixnum9425%_ + (lambda (_%datums10345%_) + (foldl (lambda (_%lst10348%_ _%r10350%_) + (foldl min _%r10350%_ _%lst10348%_)) ##max-fixnum - _%datums10309%_))) - (_%max-fixnum9390%_ - (lambda (_%datums10302%_) - (foldl (lambda (_%lst10305%_ _%r10307%_) - (foldl max _%r10307%_ _%lst10305%_)) + _%datums10345%_))) + (_%max-fixnum9426%_ + (lambda (_%datums10338%_) + (foldl (lambda (_%lst10341%_ _%r10343%_) + (foldl max _%r10343%_ _%lst10341%_)) ##min-fixnum - _%datums10302%_))) - (_%generate-fixnum-dispatch-table9391%_ - (lambda (_%indexes10284%_) - (let* ((_%ixs10287%_ (map car _%indexes10284%_)) - (_%len10290%_ (fx1+ (foldl max '0 _%ixs10287%_))) - (_%vec10293%_ (make-vector _%len10290%_ '#f))) + _%datums10338%_))) + (_%generate-fixnum-dispatch-table9427%_ + (lambda (_%indexes10320%_) + (let* ((_%ixs10323%_ (map car _%indexes10320%_)) + (_%len10326%_ (fx1+ (foldl max '0 _%ixs10323%_))) + (_%vec10329%_ (make-vector _%len10326%_ '#f))) (for-each - (lambda (_%entry10298%_ _%x10300%_) + (lambda (_%entry10334%_ _%x10336%_) (vector-set! - _%vec10293%_ - _%x10300%_ - (cdr _%entry10298%_))) - _%indexes10284%_ - _%ixs10287%_) - _%vec10293%_))) - (_%generate-fixnum-dispatch9392%_ - (lambda (_%e10018%_ - _%datums10020%_ - _%dispatch10021%_ - _%default10022%_) - (if (and (>= (_%min-fixnum9389%_ _%datums10020%_) '0) - (< (_%max-fixnum9390%_ _%datums10020%_) '1024)) - (let* ((_%indexes10024%_ - (_%datum-dispatch-index9379%_ _%datums10020%_)) - (_%tab10027%_ - (_%generate-fixnum-dispatch-table9391%_ - _%indexes10024%_)) - (_%dense?10030%_ - (andmap values (vector->list _%tab10027%_))) - (_%g1003510079%_ - (lambda (_%g1003610075%_) + _%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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1003610075%_))) - (_%g1003410280%_ - (lambda (_%g1003610083%_) - (if (gx#stx-pair? _%g1003610083%_) - (let ((_%e1004410086%_ - (gx#syntax-e _%g1003610083%_))) - (let ((_%hd1004510090%_ + _%g1007210111%_))) + (_%g1007010316%_ + (lambda (_%g1007210119%_) + (if (gx#stx-pair? _%g1007210119%_) + (let ((_%e1008010122%_ + (gx#syntax-e _%g1007210119%_))) + (let ((_%hd1008110126%_ (let () (declare (not safe)) - (##car _%e1004410086%_))) - (_%tl1004610093%_ + (##car _%e1008010122%_))) + (_%tl1008210129%_ (let () (declare (not safe)) - (##cdr _%e1004410086%_)))) - (if (gx#stx-pair? _%tl1004610093%_) - (let ((_%e1004710096%_ + (##cdr _%e1008010122%_)))) + (if (gx#stx-pair? _%tl1008210129%_) + (let ((_%e1008310132%_ (gx#syntax-e - _%tl1004610093%_))) - (let ((_%hd1004810100%_ + _%tl1008210129%_))) + (let ((_%hd1008410136%_ (let () (declare (not safe)) - (##car _%e1004710096%_))) - (_%tl1004910103%_ + (##car _%e1008310132%_))) + (_%tl1008510139%_ (let () (declare (not safe)) - (##cdr _%e1004710096%_)))) + (##cdr _%e1008310132%_)))) (if (gx#stx-pair? - _%tl1004910103%_) - (let ((_%e1005010106%_ + _%tl1008510139%_) + (let ((_%e1008610142%_ (gx#syntax-e - _%tl1004910103%_))) - (let ((_%hd1005110110%_ + _%tl1008510139%_))) + (let ((_%hd1008710146%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1005010106%_))) - (_%tl1005210113%_ - (let () (declare (not safe)) (##cdr _%e1005010106%_)))) - (if (gx#stx-pair? _%tl1005210113%_) - (let ((_%e1005310116%_ (gx#syntax-e _%tl1005210113%_))) - (let ((_%hd1005410120%_ + (##car _%e1008610142%_))) + (_%tl1008810149%_ + (let () (declare (not safe)) (##cdr _%e1008610142%_)))) + (if (gx#stx-pair? _%tl1008810149%_) + (let ((_%e1008910152%_ (gx#syntax-e _%tl1008810149%_))) + (let ((_%hd1009010156%_ (let () (declare (not safe)) - (##car _%e1005310116%_))) - (_%tl1005510123%_ + (##car _%e1008910152%_))) + (_%tl1009110159%_ (let () (declare (not safe)) - (##cdr _%e1005310116%_)))) - (if (gx#stx-pair/null? _%hd1005410120%_) - (let ((_g20927_ + (##cdr _%e1008910152%_)))) + (if (gx#stx-pair/null? _%hd1009010156%_) + (let ((_g20963_ (gx#syntax-split-splice - _%hd1005410120%_ + _%hd1009010156%_ '0))) (begin - (let ((_g20928_ + (let ((_g20964_ (let () (declare (not safe)) - (if (##values? _g20927_) - (##vector-length _g20927_) + (if (##values? _g20963_) + (##vector-length _g20963_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20928_ 2))) + (##fx= _g20964_ 2))) (error "Context expects 2 values" - _g20928_))) - (let ((_%target1005610126%_ + _g20964_))) + (let ((_%target1009210162%_ (let () (declare (not safe)) - (##vector-ref _g20927_ 0))) - (_%tl1005810129%_ + (##vector-ref _g20963_ 0))) + (_%tl1009410165%_ (let () (declare (not safe)) - (##vector-ref _g20927_ 1)))) - (if (gx#stx-null? _%tl1005810129%_) - (letrec ((_%loop1005910132%_ - (lambda (_%hd1005710136%_ - _%dispatch1006310139%_) + (##vector-ref _g20963_ 1)))) + (if (gx#stx-null? _%tl1009410165%_) + (letrec ((_%loop1009510168%_ + (lambda (_%hd1009310172%_ + _%dispatch1009910175%_) (if (gx#stx-pair? - _%hd1005710136%_) - (let ((_%e1006010142%_ + _%hd1009310172%_) + (let ((_%e1009610178%_ (gx#syntax-e - _%hd1005710136%_))) - (let ((_%lp-hd1006110146%_ + _%hd1009310172%_))) + (let ((_%lp-hd1009710182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1006010142%_))) - (_%lp-tl1006210149%_ + (let () (declare (not safe)) (##car _%e1009610178%_))) + (_%lp-tl1009810185%_ (let () (declare (not safe)) - (##cdr _%e1006010142%_)))) - (_%loop1005910132%_ - _%lp-tl1006210149%_ - (cons _%lp-hd1006110146%_ _%dispatch1006310139%_)))) - (let ((_%dispatch1006410152%_ - (reverse _%dispatch1006310139%_))) - (if (gx#stx-pair? _%tl1005510123%_) - (let ((_%e1006510156%_ (gx#syntax-e _%tl1005510123%_))) - (let ((_%hd1006610160%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1006510156%_))) - (_%tl1006710163%_ + (##car _%e1010110192%_))) + (_%tl1010310199%_ (let () (declare (not safe)) - (##cdr _%e1006510156%_)))) - (if (gx#stx-pair? _%tl1006710163%_) - (let ((_%e1006810166%_ - (gx#syntax-e _%tl1006710163%_))) - (let ((_%hd1006910170%_ + (##cdr _%e1010110192%_)))) + (if (gx#stx-pair? _%tl1010310199%_) + (let ((_%e1010410202%_ + (gx#syntax-e _%tl1010310199%_))) + (let ((_%hd1010510206%_ (let () (declare (not safe)) - (##car _%e1006810166%_))) - (_%tl1007010173%_ + (##car _%e1010410202%_))) + (_%tl1010610209%_ (let () (declare (not safe)) - (##cdr _%e1006810166%_)))) - (if (gx#stx-pair? _%tl1007010173%_) - (let ((_%e1007110176%_ - (gx#syntax-e _%tl1007010173%_))) - (let ((_%hd1007210180%_ + (##cdr _%e1010410202%_)))) + (if (gx#stx-pair? _%tl1010610209%_) + (let ((_%e1010710212%_ + (gx#syntax-e _%tl1010610209%_))) + (let ((_%hd1010810216%_ (let () (declare (not safe)) - (##car _%e1007110176%_))) - (_%tl1007310183%_ + (##car _%e1010710212%_))) + (_%tl1010910219%_ (let () (declare (not safe)) - (##cdr _%e1007110176%_)))) - (if (gx#stx-null? _%tl1007310183%_) - ((lambda (_%L10186%_ - _%L10188%_ - _%L10189%_ - _%L10190%_ - _%L10191%_ - _%L10192%_ - _%L10193%_) - (let* ((_%g1023210240%_ - (lambda (_%g1023310236%_) + (##cdr _%e1010710212%_)))) + (if (gx#stx-null? _%tl1010910219%_) + ((lambda (_%L10222%_ + _%L10224%_ + _%L10225%_ + _%L10226%_ + _%L10227%_ + _%L10228%_ + _%L10229%_) + (let* ((_%g1026810276%_ + (lambda (_%g1026910272%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1023310236%_))) - (_%g1023110260%_ - (lambda (_%g1023310244%_) - ((lambda (_%L10247%_) + _%g1026910272%_))) + (_%g1026710296%_ + (lambda (_%g1026910280%_) + ((lambda (_%L10283%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons (cons _%L10192%_ + (cons (cons (cons _%L10228%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10189%_ + (cons _%L10225%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons _%L10191%_ + (cons (cons _%L10227%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L10188%_ '())) + (cons _%L10224%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6096,7 +6096,7 @@ (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10193%_ + (cons _%L10229%_ '())) (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 _%L10193%_ + (cons _%L10229%_ (cons '0 '()))) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L10193%_ - (cons _%L10186%_ + (cons _%L10229%_ + (cons _%L10222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6121,18 +6121,18 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L10191%_ (cons _%L10193%_ '()))) + (cons _%L10227%_ (cons _%L10229%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L10247%_ '()))) - (cons (cons _%L10192%_ '()) '())))) - (cons (cons _%L10192%_ '()) '())))) + (cons _%L10283%_ '()))) + (cons (cons _%L10228%_ '()) '())))) + (cons (cons _%L10228%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g1023310244%_)))) + _%g1026910280%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1023110260%_ - (if _%dense?10030%_ + (_%g1026710296%_ + (if _%dense?10066%_ (cons (gx#datum->syntax '#f '~case-dispatch) @@ -6140,236 +6140,236 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'x) - (foldr (lambda (_%g1026310266%_ _%g1026410269%_) - (cons _%g1026310266%_ _%g1026410269%_)) + (foldr (lambda (_%g1029910302%_ _%g1030010305%_) + (cons _%g1029910302%_ _%g1030010305%_)) '() - _%L10190%_))) + _%L10226%_))) (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 (_%g1027110274%_ - _%g1027210277%_) - (cons _%g1027110274%_ - _%g1027210277%_)) + (foldr (lambda (_%g1030710310%_ + _%g1030810313%_) + (cons _%g1030710310%_ + _%g1030810313%_)) '() - _%L10190%_))) - (cons (cons _%L10192%_ '()) '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1007210180%_ - _%hd1006910170%_ - _%hd1006610160%_ - _%dispatch1006410152%_ - _%hd1005110110%_ - _%hd1004810100%_ - _%hd1004510090%_) - (_%g1003510079%_ - _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1005910132%_ - _%target1005610126%_ + _%L10226%_))) + (cons (cons _%L10228%_ '()) '())))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1010810216%_ + _%hd1010510206%_ + _%hd1010210196%_ + _%dispatch1010010188%_ + _%hd1008710146%_ + _%hd1008410136%_ + _%hd1008110126%_) + (_%g1007110115%_ + _%g1007210119%_)))) + (_%g1007110115%_ _%g1007210119%_)))) + (_%g1007110115%_ _%g1007210119%_)))) + (_%g1007110115%_ _%g1007210119%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1009510168%_ + _%target1009210162%_ '())) - (_%g1003510079%_ _%g1003610083%_))))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1003510079%_ - _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_))))) - (_%g1003410280%_ - (list _%e10018%_ + (_%g1007110115%_ _%g1007210119%_))))) + (_%g1007110115%_ _%g1007210119%_)))) + (_%g1007110115%_ _%g1007210119%_)))) + (_%g1007110115%_ _%g1007210119%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1007110115%_ + _%g1007210119%_)))) + (_%g1007110115%_ _%g1007210119%_))))) + (_%g1007010316%_ + (list _%e10054%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10021%_ - _%default10022%_ - _%tab10027%_ - (vector-length _%tab10027%_)))) - (_%generate-fixnum-dispatch/hash9393%_ - _%e10018%_ - _%datums10020%_ - _%dispatch10021%_ - _%default10022%_)))) - (_%generate-fixnum-dispatch/hash9393%_ - (lambda (_%e9796%_ - _%datums9798%_ - _%dispatch9799%_ - _%default9800%_) - (let* ((_%indexes9802%_ - (_%datum-dispatch-index9379%_ _%datums9798%_)) - (_%tab9805%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes9802%_ + _%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%_ values)) - (_%g98109854%_ - (lambda (_%g98119850%_) + (_%g98469890%_ + (lambda (_%g98479886%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g98119850%_))) - (_%g980910014%_ - (lambda (_%g98119858%_) - (if (gx#stx-pair? _%g98119858%_) - (let ((_%e98199861%_ - (gx#syntax-e _%g98119858%_))) - (let ((_%hd98209865%_ + _%g98479886%_))) + (_%g984510050%_ + (lambda (_%g98479894%_) + (if (gx#stx-pair? _%g98479894%_) + (let ((_%e98559897%_ + (gx#syntax-e _%g98479894%_))) + (let ((_%hd98569901%_ (let () (declare (not safe)) - (##car _%e98199861%_))) - (_%tl98219868%_ + (##car _%e98559897%_))) + (_%tl98579904%_ (let () (declare (not safe)) - (##cdr _%e98199861%_)))) - (if (gx#stx-pair? _%tl98219868%_) - (let ((_%e98229871%_ - (gx#syntax-e _%tl98219868%_))) - (let ((_%hd98239875%_ + (##cdr _%e98559897%_)))) + (if (gx#stx-pair? _%tl98579904%_) + (let ((_%e98589907%_ + (gx#syntax-e _%tl98579904%_))) + (let ((_%hd98599911%_ (let () (declare (not safe)) - (##car _%e98229871%_))) - (_%tl98249878%_ + (##car _%e98589907%_))) + (_%tl98609914%_ (let () (declare (not safe)) - (##cdr _%e98229871%_)))) - (if (gx#stx-pair? _%tl98249878%_) - (let ((_%e98259881%_ + (##cdr _%e98589907%_)))) + (if (gx#stx-pair? _%tl98609914%_) + (let ((_%e98619917%_ (gx#syntax-e - _%tl98249878%_))) - (let ((_%hd98269885%_ + _%tl98609914%_))) + (let ((_%hd98629921%_ (let () (declare (not safe)) - (##car _%e98259881%_))) - (_%tl98279888%_ + (##car _%e98619917%_))) + (_%tl98639924%_ (let () (declare (not safe)) - (##cdr _%e98259881%_)))) + (##cdr _%e98619917%_)))) (if (gx#stx-pair? - _%tl98279888%_) - (let ((_%e98289891%_ + _%tl98639924%_) + (let ((_%e98649927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl98279888%_))) - (let ((_%hd98299895%_ - (let () (declare (not safe)) (##car _%e98289891%_))) - (_%tl98309898%_ + (gx#syntax-e _%tl98639924%_))) + (let ((_%hd98659931%_ + (let () (declare (not safe)) (##car _%e98649927%_))) + (_%tl98669934%_ (let () (declare (not safe)) - (##cdr _%e98289891%_)))) - (if (gx#stx-pair/null? _%hd98299895%_) - (let ((_g20929_ - (gx#syntax-split-splice _%hd98299895%_ '0))) + (##cdr _%e98649927%_)))) + (if (gx#stx-pair/null? _%hd98659931%_) + (let ((_g20965_ + (gx#syntax-split-splice _%hd98659931%_ '0))) (begin - (let ((_g20930_ + (let ((_g20966_ (let () (declare (not safe)) - (if (##values? _g20929_) - (##vector-length _g20929_) + (if (##values? _g20965_) + (##vector-length _g20965_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20930_ 2))) + (##fx= _g20966_ 2))) (error "Context expects 2 values" - _g20930_))) - (let ((_%target98319901%_ + _g20966_))) + (let ((_%target98679937%_ (let () (declare (not safe)) - (##vector-ref _g20929_ 0))) - (_%tl98339904%_ + (##vector-ref _g20965_ 0))) + (_%tl98699940%_ (let () (declare (not safe)) - (##vector-ref _g20929_ 1)))) - (if (gx#stx-null? _%tl98339904%_) - (letrec ((_%loop98349907%_ - (lambda (_%hd98329911%_ - _%dispatch98389914%_) + (##vector-ref _g20965_ 1)))) + (if (gx#stx-null? _%tl98699940%_) + (letrec ((_%loop98709943%_ + (lambda (_%hd98689947%_ + _%dispatch98749950%_) (if (gx#stx-pair? - _%hd98329911%_) - (let ((_%e98359917%_ + _%hd98689947%_) + (let ((_%e98719953%_ (gx#syntax-e - _%hd98329911%_))) - (let ((_%lp-hd98369921%_ + _%hd98689947%_))) + (let ((_%lp-hd98729957%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e98359917%_))) - (_%lp-tl98379924%_ - (let () (declare (not safe)) (##cdr _%e98359917%_)))) - (_%loop98349907%_ - _%lp-tl98379924%_ - (cons _%lp-hd98369921%_ _%dispatch98389914%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch98399927%_ - (reverse _%dispatch98389914%_))) + (##car _%e98719953%_))) + (_%lp-tl98739960%_ + (let () (declare (not safe)) (##cdr _%e98719953%_)))) + (_%loop98709943%_ + _%lp-tl98739960%_ + (cons _%lp-hd98729957%_ _%dispatch98749950%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch98759963%_ + (reverse _%dispatch98749950%_))) (if (gx#stx-pair? - _%tl98309898%_) - (let ((_%e98409931%_ + _%tl98669934%_) + (let ((_%e98769967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl98309898%_))) - (let ((_%hd98419935%_ - (let () (declare (not safe)) (##car _%e98409931%_))) - (_%tl98429938%_ + (gx#syntax-e _%tl98669934%_))) + (let ((_%hd98779971%_ + (let () (declare (not safe)) (##car _%e98769967%_))) + (_%tl98789974%_ (let () (declare (not safe)) - (##cdr _%e98409931%_)))) - (if (gx#stx-pair? _%tl98429938%_) - (let ((_%e98439941%_ (gx#syntax-e _%tl98429938%_))) - (let ((_%hd98449945%_ + (##cdr _%e98769967%_)))) + (if (gx#stx-pair? _%tl98789974%_) + (let ((_%e98799977%_ (gx#syntax-e _%tl98789974%_))) + (let ((_%hd98809981%_ (let () (declare (not safe)) - (##car _%e98439941%_))) - (_%tl98459948%_ + (##car _%e98799977%_))) + (_%tl98819984%_ (let () (declare (not safe)) - (##cdr _%e98439941%_)))) - (if (gx#stx-pair? _%tl98459948%_) - (let ((_%e98469951%_ - (gx#syntax-e _%tl98459948%_))) - (let ((_%hd98479955%_ + (##cdr _%e98799977%_)))) + (if (gx#stx-pair? _%tl98819984%_) + (let ((_%e98829987%_ + (gx#syntax-e _%tl98819984%_))) + (let ((_%hd98839991%_ (let () (declare (not safe)) - (##car _%e98469951%_))) - (_%tl98489958%_ + (##car _%e98829987%_))) + (_%tl98849994%_ (let () (declare (not safe)) - (##cdr _%e98469951%_)))) - (if (gx#stx-null? _%tl98489958%_) - ((lambda (_%L9961%_ - _%L9963%_ - _%L9964%_ - _%L9965%_ - _%L9966%_ - _%L9967%_ - _%L9968%_) + (##cdr _%e98829987%_)))) + (if (gx#stx-null? _%tl98849994%_) + ((lambda (_%L9997%_ + _%L9999%_ + _%L10000%_ + _%L10001%_ + _%L10002%_ + _%L10003%_ + _%L10004%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9967%_ + (cons (cons (cons _%L10003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L9964%_ '()))) + (cons '() (cons _%L10000%_ '()))) '())) - (cons (cons _%L9966%_ + (cons (cons _%L10002%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L9963%_ '())) + (cons _%L9999%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L9968%_ '())) + (cons _%L10004%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) - (cons _%L9968%_ (cons _%L9961%_ '()))) + (cons _%L10004%_ (cons _%L9997%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L9966%_ + (cons _%L10002%_ (cons (gx#datum->syntax '#f 'ix) @@ -6391,7 +6391,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9968%_ '()))) + (cons _%L10004%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -6406,257 +6406,257 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1000510008%_ - _%g1000610011%_) - (cons _%g1000510008%_ - _%g1000610011%_)) + (foldr (lambda (_%g1004110044%_ + _%g1004210047%_) + (cons _%g1004110044%_ + _%g1004210047%_)) '() - _%L9965%_))) + _%L10001%_))) '()))) - (cons (cons _%L9967%_ '()) '())))) + (cons (cons _%L10003%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9967%_ '()) '())))) + (cons (cons _%L10003%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9967%_ '()) '())))) + (cons (cons _%L10003%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd98479955%_ - _%hd98449945%_ - _%hd98419935%_ - _%dispatch98399927%_ - _%hd98269885%_ - _%hd98239875%_ - _%hd98209865%_) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop98349907%_ - _%target98319901%_ + _%hd98839991%_ + _%hd98809981%_ + _%hd98779971%_ + _%dispatch98759963%_ + _%hd98629921%_ + _%hd98599911%_ + _%hd98569901%_) + (_%g98469890%_ _%g98479894%_)))) + (_%g98469890%_ _%g98479894%_)))) + (_%g98469890%_ _%g98479894%_)))) + (_%g98469890%_ _%g98479894%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop98709943%_ + _%target98679937%_ '())) - (_%g98109854%_ _%g98119858%_))))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g98109854%_ - _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_))))) - (_%g980910014%_ - (list _%e9796%_ + (_%g98469890%_ _%g98479894%_))))) + (_%g98469890%_ _%g98479894%_)))) + (_%g98469890%_ _%g98479894%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g98469890%_ + _%g98479894%_)))) + (_%g98469890%_ _%g98479894%_)))) + (_%g98469890%_ _%g98479894%_))))) + (_%g984510050%_ + (list _%e9832%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9799%_ - _%default9800%_ - _%tab9805%_ - (vector-length _%tab9805%_)))))) - (_%generate-generic-dispatch9394%_ - (lambda (_%e9532%_ - _%datums9534%_ - _%dispatch9535%_ - _%default9536%_) - (let ((_g20931_ - (if (_%eq-datums?9377%_ _%datums9534%_) + _%dispatch9835%_ + _%default9836%_ + _%tab9841%_ + (vector-length _%tab9841%_)))))) + (_%generate-generic-dispatch9430%_ + (lambda (_%e9568%_ + _%datums9570%_ + _%dispatch9571%_ + _%default9572%_) + (let ((_g20967_ + (if (_%eq-datums?9413%_ _%datums9570%_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) (begin #!void - (let ((_%hash-e9538%_ + (let ((_%hash-e9574%_ (let () (declare (not safe)) - (##vector-ref _g20931_ 0))) - (_%hashf9540%_ + (##vector-ref _g20967_ 0))) + (_%hashf9576%_ (let () (declare (not safe)) - (##vector-ref _g20931_ 1))) - (_%eqf9541%_ + (##vector-ref _g20967_ 1))) + (_%eqf9577%_ (let () (declare (not safe)) - (##vector-ref _g20931_ 2)))) - (let* ((_%indexes9543%_ - (_%datum-dispatch-index9379%_ - _%datums9534%_)) - (_%tab9546%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes9543%_ - _%hash-e9538%_)) - (_%g95519603%_ - (lambda (_%g95529599%_) + (##vector-ref _g20967_ 2)))) + (let* ((_%indexes9579%_ + (_%datum-dispatch-index9415%_ + _%datums9570%_)) + (_%tab9582%_ + (_%generate-hash-dispatch-table9417%_ + _%indexes9579%_ + _%hash-e9574%_)) + (_%g95879639%_ + (lambda (_%g95889635%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g95529599%_))) - (_%g95509792%_ - (lambda (_%g95529607%_) - (if (gx#stx-pair? _%g95529607%_) - (let ((_%e95629610%_ - (gx#syntax-e _%g95529607%_))) - (let ((_%hd95639614%_ + _%g95889635%_))) + (_%g95869828%_ + (lambda (_%g95889643%_) + (if (gx#stx-pair? _%g95889643%_) + (let ((_%e95989646%_ + (gx#syntax-e _%g95889643%_))) + (let ((_%hd95999650%_ (let () (declare (not safe)) - (##car _%e95629610%_))) - (_%tl95649617%_ + (##car _%e95989646%_))) + (_%tl96009653%_ (let () (declare (not safe)) - (##cdr _%e95629610%_)))) - (if (gx#stx-pair? _%tl95649617%_) - (let ((_%e95659620%_ + (##cdr _%e95989646%_)))) + (if (gx#stx-pair? _%tl96009653%_) + (let ((_%e96019656%_ (gx#syntax-e - _%tl95649617%_))) - (let ((_%hd95669624%_ + _%tl96009653%_))) + (let ((_%hd96029660%_ (let () (declare (not safe)) - (##car _%e95659620%_))) - (_%tl95679627%_ + (##car _%e96019656%_))) + (_%tl96039663%_ (let () (declare (not safe)) - (##cdr _%e95659620%_)))) + (##cdr _%e96019656%_)))) (if (gx#stx-pair? - _%tl95679627%_) - (let ((_%e95689630%_ + _%tl96039663%_) + (let ((_%e96049666%_ (gx#syntax-e - _%tl95679627%_))) - (let ((_%hd95699634%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e95689630%_))) - (_%tl95709637%_ - (let () (declare (not safe)) (##cdr _%e95689630%_)))) - (if (gx#stx-pair? _%tl95709637%_) - (let ((_%e95719640%_ (gx#syntax-e _%tl95709637%_))) - (let ((_%hd95729644%_ + _%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%_ (let () (declare (not safe)) - (##car _%e95719640%_))) - (_%tl95739647%_ + (##car _%e96079676%_))) + (_%tl96099683%_ (let () (declare (not safe)) - (##cdr _%e95719640%_)))) - (if (gx#stx-pair/null? _%hd95729644%_) - (let ((_g20932_ + (##cdr _%e96079676%_)))) + (if (gx#stx-pair/null? _%hd96089680%_) + (let ((_g20968_ (gx#syntax-split-splice - _%hd95729644%_ + _%hd96089680%_ '0))) (begin - (let ((_g20933_ + (let ((_g20969_ (let () (declare (not safe)) - (if (##values? _g20932_) - (##vector-length _g20932_) + (if (##values? _g20968_) + (##vector-length _g20968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20933_ 2))) + (##fx= _g20969_ 2))) (error "Context expects 2 values" - _g20933_))) - (let ((_%target95749650%_ + _g20969_))) + (let ((_%target96109686%_ (let () (declare (not safe)) - (##vector-ref _g20932_ 0))) - (_%tl95769653%_ + (##vector-ref _g20968_ 0))) + (_%tl96129689%_ (let () (declare (not safe)) - (##vector-ref _g20932_ 1)))) - (if (gx#stx-null? _%tl95769653%_) - (letrec ((_%loop95779656%_ - (lambda (_%hd95759660%_ - _%dispatch95819663%_) + (##vector-ref _g20968_ 1)))) + (if (gx#stx-null? _%tl96129689%_) + (letrec ((_%loop96139692%_ + (lambda (_%hd96119696%_ + _%dispatch96179699%_) (if (gx#stx-pair? - _%hd95759660%_) - (let ((_%e95789666%_ + _%hd96119696%_) + (let ((_%e96149702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd95759660%_))) - (let ((_%lp-hd95799670%_ - (let () (declare (not safe)) (##car _%e95789666%_))) - (_%lp-tl95809673%_ + (gx#syntax-e _%hd96119696%_))) + (let ((_%lp-hd96159706%_ + (let () (declare (not safe)) (##car _%e96149702%_))) + (_%lp-tl96169709%_ (let () (declare (not safe)) - (##cdr _%e95789666%_)))) - (_%loop95779656%_ - _%lp-tl95809673%_ - (cons _%lp-hd95799670%_ _%dispatch95819663%_)))) - (let ((_%dispatch95829676%_ (reverse _%dispatch95819663%_))) - (if (gx#stx-pair? _%tl95739647%_) - (let ((_%e95839680%_ (gx#syntax-e _%tl95739647%_))) - (let ((_%hd95849684%_ + (##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%_ (let () (declare (not safe)) - (##car _%e95839680%_))) - (_%tl95859687%_ + (##car _%e96199716%_))) + (_%tl96219723%_ (let () (declare (not safe)) - (##cdr _%e95839680%_)))) - (if (gx#stx-pair? _%tl95859687%_) - (let ((_%e95869690%_ - (gx#syntax-e _%tl95859687%_))) - (let ((_%hd95879694%_ + (##cdr _%e96199716%_)))) + (if (gx#stx-pair? _%tl96219723%_) + (let ((_%e96229726%_ + (gx#syntax-e _%tl96219723%_))) + (let ((_%hd96239730%_ (let () (declare (not safe)) - (##car _%e95869690%_))) - (_%tl95889697%_ + (##car _%e96229726%_))) + (_%tl96249733%_ (let () (declare (not safe)) - (##cdr _%e95869690%_)))) - (if (gx#stx-pair? _%tl95889697%_) - (let ((_%e95899700%_ - (gx#syntax-e _%tl95889697%_))) - (let ((_%hd95909704%_ + (##cdr _%e96229726%_)))) + (if (gx#stx-pair? _%tl96249733%_) + (let ((_%e96259736%_ + (gx#syntax-e _%tl96249733%_))) + (let ((_%hd96269740%_ (let () (declare (not safe)) - (##car _%e95899700%_))) - (_%tl95919707%_ + (##car _%e96259736%_))) + (_%tl96279743%_ (let () (declare (not safe)) - (##cdr _%e95899700%_)))) - (if (gx#stx-pair? _%tl95919707%_) - (let ((_%e95929710%_ + (##cdr _%e96259736%_)))) + (if (gx#stx-pair? _%tl96279743%_) + (let ((_%e96289746%_ (gx#syntax-e - _%tl95919707%_))) - (let ((_%hd95939714%_ + _%tl96279743%_))) + (let ((_%hd96299750%_ (let () (declare (not safe)) - (##car _%e95929710%_))) - (_%tl95949717%_ + (##car _%e96289746%_))) + (_%tl96309753%_ (let () (declare (not safe)) - (##cdr _%e95929710%_)))) + (##cdr _%e96289746%_)))) (if (gx#stx-pair? - _%tl95949717%_) - (let ((_%e95959720%_ + _%tl96309753%_) + (let ((_%e96319756%_ (gx#syntax-e - _%tl95949717%_))) - (let ((_%hd95969724%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e95959720%_))) - (_%tl95979727%_ - (let () (declare (not safe)) (##cdr _%e95959720%_)))) - (if (gx#stx-null? _%tl95979727%_) - ((lambda (_%L9730%_ - _%L9732%_ - _%L9733%_ - _%L9734%_ - _%L9735%_ - _%L9736%_ - _%L9737%_ - _%L9738%_ - _%L9739%_) + _%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%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9738%_ + (cons (cons (cons _%L9774%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9735%_ '()))) + (cons _%L9771%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9737%_ + (cons (cons _%L9773%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L9734%_ '())) + (cons _%L9770%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6665,19 +6665,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) - (cons (cons _%L9732%_ (cons _%L9739%_ '())) '())) + (cons (cons _%L9768%_ (cons _%L9775%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L9733%_ '()))) + (cons _%L9769%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L9737%_ + (cons _%L9773%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6689,13 +6689,13 @@ (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L9730%_ + (cons (cons _%L9766%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9739%_ '()))) + (cons _%L9775%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6712,277 +6712,277 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g97839786%_ + (foldr (lambda (_%g98199822%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g97849789%_) - (cons _%g97839786%_ _%g97849789%_)) + _%g98209825%_) + (cons _%g98199822%_ _%g98209825%_)) '() - _%L9736%_))) + _%L9772%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L9738%_ '()) '())))) + (cons (cons _%L9774%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9738%_ '()) '())))) + (cons (cons _%L9774%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd95969724%_ - _%hd95939714%_ - _%hd95909704%_ - _%hd95879694%_ - _%hd95849684%_ - _%dispatch95829676%_ - _%hd95699634%_ - _%hd95669624%_ - _%hd95639614%_) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g95519603%_ - _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop95779656%_ - _%target95749650%_ + _%hd96329760%_ + _%hd96299750%_ + _%hd96269740%_ + _%hd96239730%_ + _%hd96209720%_ + _%dispatch96189712%_ + _%hd96059670%_ + _%hd96029660%_ + _%hd95999650%_) + (_%g95879639%_ _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g95879639%_ + _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop96139692%_ + _%target96109686%_ '())) - (_%g95519603%_ _%g95529607%_))))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g95519603%_ - _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_))))) - (_%g95509792%_ - (list _%e9532%_ + (_%g95879639%_ _%g95889643%_))))) + (_%g95879639%_ _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g95879639%_ + _%g95889643%_)))) + (_%g95879639%_ _%g95889643%_))))) + (_%g95869828%_ + (list _%e9568%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9535%_ - _%default9536%_ - _%tab9546%_ - (vector-length _%tab9546%_) - _%hashf9540%_ - _%eqf9541%_))))))))) - (let* ((_%g93969420%_ - (lambda (_%g93979416%_) + _%dispatch9571%_ + _%default9572%_ + _%tab9582%_ + (vector-length _%tab9582%_) + _%hashf9576%_ + _%eqf9577%_))))))))) + (let* ((_%g94329456%_ + (lambda (_%g94339452%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g93979416%_))) - (_%g93959528%_ - (lambda (_%g93979424%_) - (if (gx#stx-pair? _%g93979424%_) - (let ((_%e94009427%_ (gx#syntax-e _%g93979424%_))) - (let ((_%hd94019431%_ + _%g94339452%_))) + (_%g94319564%_ + (lambda (_%g94339460%_) + (if (gx#stx-pair? _%g94339460%_) + (let ((_%e94369463%_ (gx#syntax-e _%g94339460%_))) + (let ((_%hd94379467%_ (let () (declare (not safe)) - (##car _%e94009427%_))) - (_%tl94029434%_ + (##car _%e94369463%_))) + (_%tl94389470%_ (let () (declare (not safe)) - (##cdr _%e94009427%_)))) - (if (gx#stx-pair? _%tl94029434%_) - (let ((_%e94039437%_ - (gx#syntax-e _%tl94029434%_))) - (let ((_%hd94049441%_ + (##cdr _%e94369463%_)))) + (if (gx#stx-pair? _%tl94389470%_) + (let ((_%e94399473%_ + (gx#syntax-e _%tl94389470%_))) + (let ((_%hd94409477%_ (let () (declare (not safe)) - (##car _%e94039437%_))) - (_%tl94059444%_ + (##car _%e94399473%_))) + (_%tl94419480%_ (let () (declare (not safe)) - (##cdr _%e94039437%_)))) - (if (gx#stx-pair/null? _%tl94059444%_) - (let ((_g20934_ + (##cdr _%e94399473%_)))) + (if (gx#stx-pair/null? _%tl94419480%_) + (let ((_g20970_ (gx#syntax-split-splice - _%tl94059444%_ + _%tl94419480%_ '0))) (begin - (let ((_g20935_ + (let ((_g20971_ (let () (declare (not safe)) - (if (##values? _g20934_) + (if (##values? _g20970_) (##vector-length - _g20934_) + _g20970_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20935_ 2))) + (##fx= _g20971_ 2))) (error "Context expects 2 values" - _g20935_))) - (let ((_%target94069447%_ + _g20971_))) + (let ((_%target94429483%_ (let () (declare (not safe)) (##vector-ref - _g20934_ + _g20970_ 0))) - (_%tl94089450%_ + (_%tl94449486%_ (let () (declare (not safe)) (##vector-ref - _g20934_ + _g20970_ 1)))) - (if (gx#stx-null? _%tl94089450%_) - (letrec ((_%loop94099453%_ - (lambda (_%hd94079457%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause94139460%_) - (if (gx#stx-pair? _%hd94079457%_) - (let ((_%e94109463%_ (gx#syntax-e _%hd94079457%_))) - (let ((_%lp-hd94119467%_ + (if (gx#stx-null? _%tl94449486%_) + (letrec ((_%loop94459489%_ + (lambda (_%hd94439493%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause94499496%_) + (if (gx#stx-pair? _%hd94439493%_) + (let ((_%e94469499%_ (gx#syntax-e _%hd94439493%_))) + (let ((_%lp-hd94479503%_ (let () (declare (not safe)) - (##car _%e94109463%_))) - (_%lp-tl94129470%_ + (##car _%e94469499%_))) + (_%lp-tl94489506%_ (let () (declare (not safe)) - (##cdr _%e94109463%_)))) - (_%loop94099453%_ - _%lp-tl94129470%_ - (cons _%lp-hd94119467%_ _%clause94139460%_)))) - (let ((_%clause94149473%_ - (reverse _%clause94139460%_))) - ((lambda (_%L9477%_ _%L9479%_) - (let ((_g20936_ - (_%parse-clauses9370%_ - _%L9479%_ - (foldr (lambda (_%g94979500%_ - _%g94989503%_) - (cons _%g94979500%_ - _%g94989503%_)) + (##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%_)) '() - _%L9477%_)))) + _%L9513%_)))) (begin - (let ((_g20937_ + (let ((_g20973_ (let () (declare (not safe)) - (if (##values? _g20936_) - (##vector-length _g20936_) + (if (##values? _g20972_) + (##vector-length _g20972_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20937_ 3))) + (##fx= _g20973_ 3))) (error "Context expects 3 values" - _g20937_))) - (let ((_%datums9506%_ + _g20973_))) + (let ((_%datums9542%_ (let () (declare (not safe)) - (##vector-ref _g20936_ 0))) - (_%dispatch9508%_ + (##vector-ref _g20972_ 0))) + (_%dispatch9544%_ (let () (declare (not safe)) - (##vector-ref _g20936_ 1))) - (_%default9509%_ + (##vector-ref _g20972_ 1))) + (_%default9545%_ (let () (declare (not safe)) - (##vector-ref _g20936_ 2)))) - (let ((_%datum-count9511%_ - (_%count-datums9373%_ - _%datums9506%_))) - (if (< _%datum-count9511%_ '6) - (_%generate-simple-case9378%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (_%char-datums?9375%_ - _%datums9506%_) - (_%generate-char-dispatch9387%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (_%fixnum-datums?9376%_ - _%datums9506%_) - (_%generate-fixnum-dispatch9392%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (< _%datum-count9511%_ + (##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%_ '12) - (_%generate-simple-case9378%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (_%symbolic-datums?9374%_ - _%datums9506%_) - (_%generate-symbolic-dispatch9382%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (_%generate-generic-dispatch9394%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_))))))))))) - _%clause94149473%_ - _%hd94049441%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop94099453%_ - _%target94069447%_ + (_%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%_ '())) - (_%g93969420%_ - _%g93979424%_))))) - (_%g93969420%_ _%g93979424%_)))) - (_%g93969420%_ _%g93979424%_)))) - (_%g93969420%_ _%g93979424%_))))) - (_%g93959528%_ _%stx9367%_))))) + (_%g94329456%_ + _%g94339460%_))))) + (_%g94329456%_ _%g94339460%_)))) + (_%g94329456%_ _%g94339460%_)))) + (_%g94329456%_ _%g94339460%_))))) + (_%g94319564%_ _%stx9403%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-test| - (lambda (_%stx12430%_) - (let* ((_%g1243312451%_ - (lambda (_%g1243412447%_) + (lambda (_%stx12466%_) + (let* ((_%g1246912487%_ + (lambda (_%g1247012483%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1243412447%_))) - (_%g1243212523%_ - (lambda (_%g1243412455%_) - (if (gx#stx-pair? _%g1243412455%_) - (let ((_%e1243712458%_ (gx#syntax-e _%g1243412455%_))) - (let ((_%hd1243812462%_ + _%g1247012483%_))) + (_%g1246812559%_ + (lambda (_%g1247012491%_) + (if (gx#stx-pair? _%g1247012491%_) + (let ((_%e1247312494%_ (gx#syntax-e _%g1247012491%_))) + (let ((_%hd1247412498%_ (let () (declare (not safe)) - (##car _%e1243712458%_))) - (_%tl1243912465%_ + (##car _%e1247312494%_))) + (_%tl1247512501%_ (let () (declare (not safe)) - (##cdr _%e1243712458%_)))) - (if (gx#stx-pair? _%tl1243912465%_) - (let ((_%e1244012468%_ - (gx#syntax-e _%tl1243912465%_))) - (let ((_%hd1244112472%_ + (##cdr _%e1247312494%_)))) + (if (gx#stx-pair? _%tl1247512501%_) + (let ((_%e1247612504%_ + (gx#syntax-e _%tl1247512501%_))) + (let ((_%hd1247712508%_ (let () (declare (not safe)) - (##car _%e1244012468%_))) - (_%tl1244212475%_ + (##car _%e1247612504%_))) + (_%tl1247812511%_ (let () (declare (not safe)) - (##cdr _%e1244012468%_)))) - (if (gx#stx-pair? _%tl1244212475%_) - (let ((_%e1244312478%_ - (gx#syntax-e _%tl1244212475%_))) - (let ((_%hd1244412482%_ + (##cdr _%e1247612504%_)))) + (if (gx#stx-pair? _%tl1247812511%_) + (let ((_%e1247912514%_ + (gx#syntax-e _%tl1247812511%_))) + (let ((_%hd1248012518%_ (let () (declare (not safe)) - (##car _%e1244312478%_))) - (_%tl1244512485%_ + (##car _%e1247912514%_))) + (_%tl1248112521%_ (let () (declare (not safe)) - (##cdr _%e1244312478%_)))) - (if (gx#stx-null? _%tl1244512485%_) - ((lambda (_%L12488%_ _%L12490%_) - (let ((_%datum-e12506%_ - (gx#stx-e _%L12490%_))) - (if (or (symbol? _%datum-e12506%_) + (##cdr _%e1247912514%_)))) + (if (gx#stx-null? _%tl1248112521%_) + ((lambda (_%L12524%_ _%L12526%_) + (let ((_%datum-e12542%_ + (gx#stx-e _%L12526%_))) + (if (or (symbol? _%datum-e12542%_) (keyword? - _%datum-e12506%_) + _%datum-e12542%_) (immediate? - _%datum-e12506%_)) + _%datum-e12542%_)) (cons (gx#datum->syntax '#f 'eq?) @@ -6990,198 +6990,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L12490%_ '())) - (cons _%L12488%_ '()))) - (if (number? _%datum-e12506%_) + (cons _%L12526%_ '())) + (cons _%L12524%_ '()))) + (if (number? _%datum-e12542%_) (cons (gx#datum->syntax '#f 'eqv?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12490%_ '())) - (cons _%L12488%_ '()))) + (cons _%L12526%_ '())) + (cons _%L12524%_ '()))) (cons (gx#datum->syntax '#f 'equal?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12490%_ '())) - (cons _%L12488%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1244412482%_ - _%hd1244112472%_) - (_%g1243312451%_ - _%g1243412455%_)))) - (_%g1243312451%_ _%g1243412455%_)))) - (_%g1243312451%_ _%g1243412455%_)))) - (_%g1243312451%_ _%g1243412455%_))))) - (_%g1243212523%_ _%stx12430%_)))) + (cons _%L12526%_ '())) + (cons _%L12524%_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1248012518%_ + _%hd1247712508%_) + (_%g1246912487%_ + _%g1247012491%_)))) + (_%g1246912487%_ _%g1247012491%_)))) + (_%g1246912487%_ _%g1247012491%_)))) + (_%g1246912487%_ _%g1247012491%_))))) + (_%g1246812559%_ _%stx12466%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch| - (lambda (_%$stx12527%_) - (let* ((_%g1253112555%_ - (lambda (_%g1253212551%_) + (lambda (_%$stx12563%_) + (let* ((_%g1256712591%_ + (lambda (_%g1256812587%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1253212551%_))) - (_%g1253012640%_ - (lambda (_%g1253212559%_) - (if (gx#stx-pair? _%g1253212559%_) - (let ((_%e1253512562%_ (gx#syntax-e _%g1253212559%_))) - (let ((_%hd1253612566%_ + _%g1256812587%_))) + (_%g1256612676%_ + (lambda (_%g1256812595%_) + (if (gx#stx-pair? _%g1256812595%_) + (let ((_%e1257112598%_ (gx#syntax-e _%g1256812595%_))) + (let ((_%hd1257212602%_ (let () (declare (not safe)) - (##car _%e1253512562%_))) - (_%tl1253712569%_ + (##car _%e1257112598%_))) + (_%tl1257312605%_ (let () (declare (not safe)) - (##cdr _%e1253512562%_)))) - (if (gx#stx-pair? _%tl1253712569%_) - (let ((_%e1253812572%_ - (gx#syntax-e _%tl1253712569%_))) - (let ((_%hd1253912576%_ + (##cdr _%e1257112598%_)))) + (if (gx#stx-pair? _%tl1257312605%_) + (let ((_%e1257412608%_ + (gx#syntax-e _%tl1257312605%_))) + (let ((_%hd1257512612%_ (let () (declare (not safe)) - (##car _%e1253812572%_))) - (_%tl1254012579%_ + (##car _%e1257412608%_))) + (_%tl1257612615%_ (let () (declare (not safe)) - (##cdr _%e1253812572%_)))) - (if (gx#stx-pair/null? _%tl1254012579%_) - (let ((_g20938_ + (##cdr _%e1257412608%_)))) + (if (gx#stx-pair/null? _%tl1257612615%_) + (let ((_g20974_ (gx#syntax-split-splice - _%tl1254012579%_ + _%tl1257612615%_ '0))) (begin - (let ((_g20939_ + (let ((_g20975_ (let () (declare (not safe)) - (if (##values? _g20938_) + (if (##values? _g20974_) (##vector-length - _g20938_) + _g20974_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20939_ 2))) + (##fx= _g20975_ 2))) (error "Context expects 2 values" - _g20939_))) - (let ((_%target1254112582%_ + _g20975_))) + (let ((_%target1257712618%_ (let () (declare (not safe)) - (##vector-ref _g20938_ 0))) - (_%tl1254312585%_ + (##vector-ref _g20974_ 0))) + (_%tl1257912621%_ (let () (declare (not safe)) - (##vector-ref _g20938_ 1)))) - (if (gx#stx-null? _%tl1254312585%_) - (letrec ((_%loop1254412588%_ - (lambda (_%hd1254212592%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%K1254812595%_) - (if (gx#stx-pair? _%hd1254212592%_) - (let ((_%e1254512598%_ (gx#syntax-e _%hd1254212592%_))) - (let ((_%lp-hd1254612602%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1254512598%_))) - (_%lp-tl1254712605%_ + (##car _%e1258112634%_))) + (_%lp-tl1258312641%_ (let () (declare (not safe)) - (##cdr _%e1254512598%_)))) - (_%loop1254412588%_ - _%lp-tl1254712605%_ - (cons _%lp-hd1254612602%_ _%K1254812595%_)))) - (let ((_%K1254912608%_ (reverse _%K1254812595%_))) - ((lambda (_%L12612%_ _%L12614%_) + (##cdr _%e1258112634%_)))) + (_%loop1258012624%_ + _%lp-tl1258312641%_ + (cons _%lp-hd1258212638%_ _%K1258412631%_)))) + (let ((_%K1258512644%_ (reverse _%K1258412631%_))) + ((lambda (_%L12648%_ _%L12650%_) (cons (gx#datum->syntax '#f '~case-dispatch*) (cons '0 - (cons _%L12614%_ - (foldr (lambda (_%g1263112634%_ - _%g1263212637%_) - (cons _%g1263112634%_ - _%g1263212637%_)) + (cons _%L12650%_ + (foldr (lambda (_%g1266712670%_ + _%g1266812673%_) + (cons _%g1266712670%_ + _%g1266812673%_)) '() - _%L12612%_))))) - _%K1254912608%_ - _%hd1253912576%_)))))) + _%L12648%_))))) + _%K1258512644%_ + _%hd1257512612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1254412588%_ - _%target1254112582%_ + (_%loop1258012624%_ + _%target1257712618%_ '())) - (_%g1253112555%_ - _%g1253212559%_))))) - (_%g1253112555%_ _%g1253212559%_)))) - (_%g1253112555%_ _%g1253212559%_)))) - (_%g1253112555%_ _%g1253212559%_))))) - (_%g1253012640%_ _%$stx12527%_)))) + (_%g1256712591%_ + _%g1256812595%_))))) + (_%g1256712591%_ _%g1256812595%_)))) + (_%g1256712591%_ _%g1256812595%_)))) + (_%g1256712591%_ _%g1256812595%_))))) + (_%g1256612676%_ _%$stx12563%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch*| - (lambda (_%stx12645%_) - (let* ((_%__stx1971819719%_ _%stx12645%_) - (_%g1265212748%_ + (lambda (_%stx12681%_) + (let* ((_%__stx1975419755%_ _%stx12681%_) + (_%g1268812784%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1971819719%_)))) - (let ((_%__kont1972119722%_ - (lambda (_%L13225%_ _%L13227%_) + _%__stx1975419755%_)))) + (let ((_%__kont1975719758%_ + (lambda (_%L13261%_ _%L13263%_) (cons (gx#datum->syntax '#f 'quote) (cons '#!void '())))) - (_%__kont1972319724%_ - (lambda (_%L13167%_ _%L13169%_ _%L13170%_) _%L13167%_)) - (_%__kont1972519726%_ - (lambda (_%L13064%_ _%L13066%_ _%L13067%_ _%L13068%_) - (let* ((_%g1308913097%_ - (lambda (_%g1309013093%_) + (_%__kont1975919760%_ + (lambda (_%L13203%_ _%L13205%_ _%L13206%_) _%L13203%_)) + (_%__kont1976119762%_ + (lambda (_%L13100%_ _%L13102%_ _%L13103%_ _%L13104%_) + (let* ((_%g1312513133%_ + (lambda (_%g1312613129%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1309013093%_))) - (_%g1308813116%_ - (lambda (_%g1309013101%_) - ((lambda (_%L13104%_) + _%g1312613129%_))) + (_%g1312413152%_ + (lambda (_%g1312613137%_) + ((lambda (_%L13140%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L13067%_ - (cons _%L13104%_ '()))) - (cons _%L13066%_ - (cons _%L13064%_ '()))))) - _%g1309013101%_)))) - (_%g1308813116%_ (gx#stx-e _%L13068%_))))) - (_%__kont1972719728%_ - (lambda (_%L12914%_ - _%L12916%_ - _%L12917%_ - _%L12918%_ - _%L12919%_) - (let* ((_%g1294312958%_ - (lambda (_%g1294412954%_) + (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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1294412954%_))) - (_%g1294213003%_ - (lambda (_%g1294412962%_) - (if (gx#stx-pair? _%g1294412962%_) - (let ((_%e1294712965%_ - (gx#syntax-e _%g1294412962%_))) - (let ((_%hd1294812969%_ + _%g1298012990%_))) + (_%g1297813039%_ + (lambda (_%g1298012998%_) + (if (gx#stx-pair? _%g1298012998%_) + (let ((_%e1298313001%_ + (gx#syntax-e _%g1298012998%_))) + (let ((_%hd1298413005%_ (let () (declare (not safe)) - (##car _%e1294712965%_))) - (_%tl1294912972%_ + (##car _%e1298313001%_))) + (_%tl1298513008%_ (let () (declare (not safe)) - (##cdr _%e1294712965%_)))) - (if (gx#stx-pair? _%tl1294912972%_) - (let ((_%e1295012975%_ + (##cdr _%e1298313001%_)))) + (if (gx#stx-pair? _%tl1298513008%_) + (let ((_%e1298613011%_ (gx#syntax-e - _%tl1294912972%_))) - (let ((_%hd1295112979%_ + _%tl1298513008%_))) + (let ((_%hd1298713015%_ (let () (declare (not safe)) - (##car _%e1295012975%_))) - (_%tl1295212982%_ + (##car _%e1298613011%_))) + (_%tl1298813018%_ (let () (declare (not safe)) - (##cdr _%e1295012975%_)))) + (##cdr _%e1298613011%_)))) (if (gx#stx-null? - _%tl1295212982%_) - ((lambda (_%L12985%_ - _%L12987%_) + _%tl1298813018%_) + ((lambda (_%L13021%_ + _%L13023%_) (cons (gx#datum->syntax '#f 'if) @@ -7189,3544 +7189,3544 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) - (cons _%L12918%_ (cons _%L12987%_ '()))) - (cons _%L12917%_ + (cons _%L12954%_ (cons _%L13023%_ '()))) + (cons _%L12953%_ (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L12918%_ - (cons _%L12985%_ + (cons _%L12954%_ + (cons _%L13021%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L12916%_ - (cons _%L12914%_ '())))) + (cons _%L12952%_ + (cons _%L12950%_ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1295112979%_ - _%hd1294812969%_) - (_%g1294312958%_ - _%g1294412962%_)))) - (_%g1294312958%_ _%g1294412962%_)))) - (_%g1294312958%_ _%g1294412962%_))))) - (_%g1294213003%_ - (list (gx#stx-e _%L12919%_) - (fx1+ (gx#stx-e _%L12919%_))))))) - (_%__kont1972919730%_ - (lambda (_%L12815%_ _%L12817%_ _%L12818%_) + _%hd1298713015%_ + _%hd1298413005%_) + (_%g1297912994%_ + _%g1298012998%_)))) + (_%g1297912994%_ _%g1298012998%_)))) + (_%g1297912994%_ _%g1298012998%_))))) + (_%g1297813039%_ + (list (gx#stx-e _%L12955%_) + (fx1+ (gx#stx-e _%L12955%_))))))) + (_%__kont1976519766%_ + (lambda (_%L12851%_ _%L12853%_ _%L12854%_) (cons (gx#datum->syntax '#f '~case-dispatch-bsearch) - (cons _%L12818%_ - (cons _%L12817%_ - (foldr (lambda (_%g1283812841%_ - _%g1283912844%_) - (cons _%g1283812841%_ - _%g1283912844%_)) + (cons _%L12854%_ + (cons _%L12853%_ + (foldr (lambda (_%g1287412877%_ + _%g1287512880%_) + (cons _%g1287412877%_ + _%g1287512880%_)) '() - _%L12815%_))))))) - (let ((_%__match1987519876%_ - (lambda (_%e1272512755%_ - _%hd1272612759%_ - _%tl1272712762%_ - _%e1272812765%_ - _%hd1272912769%_ - _%tl1273012772%_ - _%e1273112775%_ - _%hd1273212779%_ - _%tl1273312782%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) - (letrec ((_%loop1273712791%_ - (lambda (_%hd1273512795%_ _%K1274112798%_) - (if (gx#stx-pair? _%hd1273512795%_) - (let ((_%e1273812801%_ - (gx#syntax-e _%hd1273512795%_))) - (let ((_%lp-tl1274012808%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e1273812801%_))) - (_%lp-hd1273912805%_ + (##cdr _%e1277412837%_))) + (_%lp-hd1277512841%_ (let () (declare (not safe)) - (##car _%e1273812801%_)))) - (_%loop1273712791%_ - _%lp-tl1274012808%_ - (cons _%lp-hd1273912805%_ - _%K1274112798%_)))) - (let ((_%K1274212811%_ - (reverse _%K1274112798%_))) - (_%__kont1972919730%_ - _%K1274212811%_ - _%hd1273212779%_ - _%hd1272912769%_)))))) - (_%loop1273712791%_ _%target1273412785%_ '()))))) - (if (gx#stx-pair? _%__stx1971819719%_) - (let ((_%e1265613195%_ (gx#syntax-e _%__stx1971819719%_))) - (let ((_%tl1265813202%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1265613195%_))) - (_%hd1265713199%_ + (##cdr _%e1269213231%_))) + (_%hd1269313235%_ (let () (declare (not safe)) - (##car _%e1265613195%_)))) - (if (gx#stx-pair? _%tl1265813202%_) - (let ((_%e1265913205%_ - (gx#syntax-e _%tl1265813202%_))) - (let ((_%tl1266113212%_ + (##car _%e1269213231%_)))) + (if (gx#stx-pair? _%tl1269413238%_) + (let ((_%e1269513241%_ + (gx#syntax-e _%tl1269413238%_))) + (let ((_%tl1269713248%_ (let () (declare (not safe)) - (##cdr _%e1265913205%_))) - (_%hd1266013209%_ + (##cdr _%e1269513241%_))) + (_%hd1269613245%_ (let () (declare (not safe)) - (##car _%e1265913205%_)))) - (if (gx#stx-pair? _%tl1266113212%_) - (let ((_%e1266213215%_ - (gx#syntax-e _%tl1266113212%_))) - (let ((_%tl1266413222%_ + (##car _%e1269513241%_)))) + (if (gx#stx-pair? _%tl1269713248%_) + (let ((_%e1269813251%_ + (gx#syntax-e _%tl1269713248%_))) + (let ((_%tl1270013258%_ (let () (declare (not safe)) - (##cdr _%e1266213215%_))) - (_%hd1266313219%_ + (##cdr _%e1269813251%_))) + (_%hd1269913255%_ (let () (declare (not safe)) - (##car _%e1266213215%_)))) - (if (gx#stx-null? _%tl1266413222%_) - (_%__kont1972119722%_ - _%hd1266313219%_ - _%hd1266013209%_) - (if (gx#stx-pair? _%tl1266413222%_) - (let ((_%e1267713157%_ + (##car _%e1269813251%_)))) + (if (gx#stx-null? _%tl1270013258%_) + (_%__kont1975719758%_ + _%hd1269913255%_ + _%hd1269613245%_) + (if (gx#stx-pair? _%tl1270013258%_) + (let ((_%e1271313193%_ (gx#syntax-e - _%tl1266413222%_))) - (let ((_%tl1267913164%_ + _%tl1270013258%_))) + (let ((_%tl1271513200%_ (let () (declare (not safe)) - (##cdr _%e1267713157%_))) - (_%hd1267813161%_ + (##cdr _%e1271313193%_))) + (_%hd1271413197%_ (let () (declare (not safe)) - (##car _%e1267713157%_)))) + (##car _%e1271313193%_)))) (if (gx#stx-null? - _%tl1267913164%_) - (_%__kont1972319724%_ - _%hd1267813161%_ - _%hd1266313219%_ - _%hd1266013209%_) + _%tl1271513200%_) + (_%__kont1975919760%_ + _%hd1271413197%_ + _%hd1269913255%_ + _%hd1269613245%_) (if (gx#stx-pair? - _%tl1267913164%_) - (let ((_%e1269613054%_ + _%tl1271513200%_) + (let ((_%e1273213090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1267913164%_))) - (let ((_%tl1269813061%_ + (gx#syntax-e _%tl1271513200%_))) + (let ((_%tl1273413097%_ (let () (declare (not safe)) - (##cdr _%e1269613054%_))) - (_%hd1269713058%_ + (##cdr _%e1273213090%_))) + (_%hd1273313094%_ (let () (declare (not safe)) - (##car _%e1269613054%_)))) - (if (gx#stx-null? _%tl1269813061%_) - (_%__kont1972519726%_ - _%hd1269713058%_ - _%hd1267813161%_ - _%hd1266313219%_ - _%hd1266013209%_) - (if (gx#stx-pair? _%tl1269813061%_) - (let ((_%e1271912904%_ - (gx#syntax-e _%tl1269813061%_))) - (let ((_%tl1272112911%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1271912904%_))) - (_%hd1272012908%_ + (##cdr _%e1275512940%_))) + (_%hd1275612944%_ (let () (declare (not safe)) - (##car _%e1271912904%_)))) - (if (gx#stx-null? _%tl1272112911%_) - (_%__kont1972719728%_ - _%hd1272012908%_ - _%hd1269713058%_ - _%hd1267813161%_ - _%hd1266313219%_ - _%hd1266013209%_) - (if (gx#stx-pair/null? _%tl1266413222%_) - (let ((_%__splice1973119732%_ + (##car _%e1275512940%_)))) + (if (gx#stx-null? _%tl1275712947%_) + (_%__kont1976319764%_ + _%hd1275612944%_ + _%hd1273313094%_ + _%hd1271413197%_ + _%hd1269913255%_ + _%hd1269613245%_) + (if (gx#stx-pair/null? _%tl1270013258%_) + (let ((_%__splice1976719768%_ (gx#syntax-split-splice - _%tl1266413222%_ + _%tl1270013258%_ '0))) - (let ((_%tl1273612788%_ + (let ((_%tl1277212824%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1976719768%_ '1))) - (_%target1273412785%_ + (_%target1277012821%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1976719768%_ '0)))) (if (gx#stx-null? - _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + _%tl1277212824%_) + (_%__match1991119912%_ + _%e1269213231%_ + _%hd1269313235%_ + _%tl1269413238%_ + _%e1269513241%_ + _%hd1269613245%_ + _%tl1269713248%_ + _%e1269813251%_ + _%hd1269913255%_ + _%tl1270013258%_ + _%__splice1976719768%_ + _%target1277012821%_ + _%tl1277212824%_) (let () (declare (not safe)) - (_%g1265212748%_))))) + (_%g1268812784%_))))) (let () (declare (not safe)) - (_%g1265212748%_)))))) - (if (gx#stx-pair/null? _%tl1266413222%_) - (let ((_%__splice1973119732%_ + (_%g1268812784%_)))))) + (if (gx#stx-pair/null? _%tl1270013258%_) + (let ((_%__splice1976719768%_ (gx#syntax-split-splice - _%tl1266413222%_ + _%tl1270013258%_ '0))) - (let ((_%tl1273612788%_ + (let ((_%tl1277212824%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1976719768%_ '1))) - (_%target1273412785%_ + (_%target1277012821%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1976719768%_ '0)))) - (if (gx#stx-null? _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + (if (gx#stx-null? _%tl1277212824%_) + (_%__match1991119912%_ + _%e1269213231%_ + _%hd1269313235%_ + _%tl1269413238%_ + _%e1269513241%_ + _%hd1269613245%_ + _%tl1269713248%_ + _%e1269813251%_ + _%hd1269913255%_ + _%tl1270013258%_ + _%__splice1976719768%_ + _%target1277012821%_ + _%tl1277212824%_) (let () (declare (not safe)) - (_%g1265212748%_))))) + (_%g1268812784%_))))) (let () (declare (not safe)) - (_%g1265212748%_))))))) - (if (gx#stx-pair/null? _%tl1266413222%_) - (let ((_%__splice1973119732%_ - (gx#syntax-split-splice _%tl1266413222%_ '0))) - (let ((_%tl1273612788%_ + (_%g1268812784%_))))))) + (if (gx#stx-pair/null? _%tl1270013258%_) + (let ((_%__splice1976719768%_ + (gx#syntax-split-splice _%tl1270013258%_ '0))) + (let ((_%tl1277212824%_ (let () (declare (not safe)) - (##vector-ref _%__splice1973119732%_ '1))) - (_%target1273412785%_ + (##vector-ref _%__splice1976719768%_ '1))) + (_%target1277012821%_ (let () (declare (not safe)) - (##vector-ref _%__splice1973119732%_ '0)))) - (if (gx#stx-null? _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + (##vector-ref _%__splice1976719768%_ '0)))) + (if (gx#stx-null? _%tl1277212824%_) + (_%__match1991119912%_ + _%e1269213231%_ + _%hd1269313235%_ + _%tl1269413238%_ + _%e1269513241%_ + _%hd1269613245%_ + _%tl1269713248%_ + _%e1269813251%_ + _%hd1269913255%_ + _%tl1270013258%_ + _%__splice1976719768%_ + _%target1277012821%_ + _%tl1277212824%_) (let () (declare (not safe)) - (_%g1265212748%_))))) - (let () (declare (not safe)) (_%g1265212748%_))))))) + (_%g1268812784%_))))) + (let () (declare (not safe)) (_%g1268812784%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl1266413222%_) - (let ((_%__splice1973119732%_ + _%tl1270013258%_) + (let ((_%__splice1976719768%_ (gx#syntax-split-splice - _%tl1266413222%_ + _%tl1270013258%_ '0))) - (let ((_%tl1273612788%_ + (let ((_%tl1277212824%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1976719768%_ '1))) - (_%target1273412785%_ + (_%target1277012821%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1976719768%_ '0)))) (if (gx#stx-null? - _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + _%tl1277212824%_) + (_%__match1991119912%_ + _%e1269213231%_ + _%hd1269313235%_ + _%tl1269413238%_ + _%e1269513241%_ + _%hd1269613245%_ + _%tl1269713248%_ + _%e1269813251%_ + _%hd1269913255%_ + _%tl1270013258%_ + _%__splice1976719768%_ + _%target1277012821%_ + _%tl1277212824%_) (let () (declare (not safe)) - (_%g1265212748%_))))) + (_%g1268812784%_))))) (let () (declare (not safe)) - (_%g1265212748%_))))))) + (_%g1268812784%_))))))) (let () (declare (not safe)) - (_%g1265212748%_))))) - (let () (declare (not safe)) (_%g1265212748%_))))) - (let () (declare (not safe)) (_%g1265212748%_)))))))) + (_%g1268812784%_))))) + (let () (declare (not safe)) (_%g1268812784%_))))) + (let () (declare (not safe)) (_%g1268812784%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch-bsearch| - (lambda (_%stx13247%_) - (letrec ((_%split13250%_ - (lambda (_%lst13611%_ _%mid13613%_) - (let _%lp13615%_ ((_%i13618%_ '0) - (_%rest13620%_ _%lst13611%_) - (_%left13621%_ '())) - (if (fx< _%i13618%_ _%mid13613%_) - (_%lp13615%_ - (fx1+ _%i13618%_) - (cdr _%rest13620%_) - (cons (car _%rest13620%_) _%left13621%_)) - (values (reverse _%left13621%_) _%rest13620%_)))))) - (let* ((_%g1325313281%_ - (lambda (_%g1325413277%_) + (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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1325413277%_))) - (_%g1325213607%_ - (lambda (_%g1325413285%_) - (if (gx#stx-pair? _%g1325413285%_) - (let ((_%e1325813288%_ (gx#syntax-e _%g1325413285%_))) - (let ((_%hd1325913292%_ + _%g1329013313%_))) + (_%g1328813643%_ + (lambda (_%g1329013321%_) + (if (gx#stx-pair? _%g1329013321%_) + (let ((_%e1329413324%_ (gx#syntax-e _%g1329013321%_))) + (let ((_%hd1329513328%_ (let () (declare (not safe)) - (##car _%e1325813288%_))) - (_%tl1326013295%_ + (##car _%e1329413324%_))) + (_%tl1329613331%_ (let () (declare (not safe)) - (##cdr _%e1325813288%_)))) - (if (gx#stx-pair? _%tl1326013295%_) - (let ((_%e1326113298%_ - (gx#syntax-e _%tl1326013295%_))) - (let ((_%hd1326213302%_ + (##cdr _%e1329413324%_)))) + (if (gx#stx-pair? _%tl1329613331%_) + (let ((_%e1329713334%_ + (gx#syntax-e _%tl1329613331%_))) + (let ((_%hd1329813338%_ (let () (declare (not safe)) - (##car _%e1326113298%_))) - (_%tl1326313305%_ + (##car _%e1329713334%_))) + (_%tl1329913341%_ (let () (declare (not safe)) - (##cdr _%e1326113298%_)))) - (if (gx#stx-pair? _%tl1326313305%_) - (let ((_%e1326413308%_ - (gx#syntax-e _%tl1326313305%_))) - (let ((_%hd1326513312%_ + (##cdr _%e1329713334%_)))) + (if (gx#stx-pair? _%tl1329913341%_) + (let ((_%e1330013344%_ + (gx#syntax-e _%tl1329913341%_))) + (let ((_%hd1330113348%_ (let () (declare (not safe)) - (##car _%e1326413308%_))) - (_%tl1326613315%_ + (##car _%e1330013344%_))) + (_%tl1330213351%_ (let () (declare (not safe)) - (##cdr _%e1326413308%_)))) + (##cdr _%e1330013344%_)))) (if (gx#stx-pair/null? - _%tl1326613315%_) - (let ((_g20940_ + _%tl1330213351%_) + (let ((_g20976_ (gx#syntax-split-splice - _%tl1326613315%_ + _%tl1330213351%_ '0))) (begin - (let ((_g20941_ + (let ((_g20977_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20940_) - (##vector-length _g20940_) + _g20976_) + (##vector-length _g20976_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20941_ 2))) - (error "Context expects 2 values" _g20941_))) + (if (not (let () (declare (not safe)) (##fx= _g20977_ 2))) + (error "Context expects 2 values" _g20977_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1326713318%_ + (let ((_%target1330313354%_ (let () (declare (not safe)) (##vector-ref - _g20940_ + _g20976_ 0))) - (_%tl1326913321%_ + (_%tl1330513357%_ (let () (declare (not safe)) (##vector-ref - _g20940_ + _g20976_ 1)))) (if (gx#stx-null? - _%tl1326913321%_) - (letrec ((_%loop1327013324%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1326813328%_ _%K1327413331%_) - (if (gx#stx-pair? _%hd1326813328%_) - (let ((_%e1327113334%_ - (gx#syntax-e _%hd1326813328%_))) - (let ((_%lp-hd1327213338%_ + _%tl1330513357%_) + (letrec ((_%loop1330613360%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1330413364%_ _%K1331013367%_) + (if (gx#stx-pair? _%hd1330413364%_) + (let ((_%e1330713370%_ + (gx#syntax-e _%hd1330413364%_))) + (let ((_%lp-hd1330813374%_ (let () (declare (not safe)) - (##car _%e1327113334%_))) - (_%lp-tl1327313341%_ + (##car _%e1330713370%_))) + (_%lp-tl1330913377%_ (let () (declare (not safe)) - (##cdr _%e1327113334%_)))) - (_%loop1327013324%_ - _%lp-tl1327313341%_ - (cons _%lp-hd1327213338%_ - _%K1327413331%_)))) - (let ((_%K1327513344%_ - (reverse _%K1327413331%_))) - ((lambda (_%L13348%_ _%L13350%_ _%L13351%_) - (let* ((_%len13381%_ - (length (foldr (lambda (_%g1337213375%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1337313378%_) - (cons _%g1337213375%_ _%g1337313378%_)) + (##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%_)) '() - _%L13348%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%mid13384%_ - (quotient _%len13381%_ '2)) - (_g20942_ - (_%split13250%_ - (foldr (lambda (_%g1338613389%_ - _%g1338713392%_) - (cons _%g1338613389%_ - _%g1338713392%_)) + _%L13384%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%mid13420%_ + (quotient _%len13417%_ '2)) + (_g20978_ + (_%split13286%_ + (foldr (lambda (_%g1342213425%_ + _%g1342313428%_) + (cons _%g1342213425%_ + _%g1342313428%_)) '() - _%L13348%_) - _%mid13384%_))) + _%L13384%_) + _%mid13420%_))) (begin - (let ((_g20943_ + (let ((_g20979_ (let () (declare (not safe)) - (if (##values? _g20942_) + (if (##values? _g20978_) (##vector-length - _g20942_) + _g20978_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20943_ 2))) + (##fx= _g20979_ 2))) (error "Context expects 2 values" - _g20943_))) - (let ((_%left13395%_ + _g20979_))) + (let ((_%left13431%_ (let () (declare (not safe)) - (##vector-ref _g20942_ 0))) - (_%right13397%_ + (##vector-ref _g20978_ 0))) + (_%right13433%_ (let () (declare (not safe)) (##vector-ref - _g20942_ + _g20978_ 1)))) - (let* ((_%g1340113442%_ - (lambda (_%g1340213438%_) + (let* ((_%g1343713478%_ + (lambda (_%g1343813474%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1340213438%_))) - (_%g1340013603%_ - (lambda (_%g1340213446%_) + _%g1343813474%_))) + (_%g1343613639%_ + (lambda (_%g1343813482%_) (if (gx#stx-pair? - _%g1340213446%_) - (let ((_%e1340713449%_ + _%g1343813482%_) + (let ((_%e1344313485%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1340213446%_))) - (let ((_%hd1340813453%_ + (gx#syntax-e _%g1343813482%_))) + (let ((_%hd1344413489%_ (let () (declare (not safe)) - (##car _%e1340713449%_))) - (_%tl1340913456%_ + (##car _%e1344313485%_))) + (_%tl1344513492%_ (let () (declare (not safe)) - (##cdr _%e1340713449%_)))) - (if (gx#stx-pair? _%tl1340913456%_) - (let ((_%e1341013459%_ - (gx#syntax-e _%tl1340913456%_))) - (let ((_%hd1341113463%_ + (##cdr _%e1344313485%_)))) + (if (gx#stx-pair? _%tl1344513492%_) + (let ((_%e1344613495%_ + (gx#syntax-e _%tl1344513492%_))) + (let ((_%hd1344713499%_ (let () (declare (not safe)) - (##car _%e1341013459%_))) - (_%tl1341213466%_ + (##car _%e1344613495%_))) + (_%tl1344813502%_ (let () (declare (not safe)) - (##cdr _%e1341013459%_)))) - (if (gx#stx-pair/null? _%hd1341113463%_) - (let ((_g20944_ + (##cdr _%e1344613495%_)))) + (if (gx#stx-pair/null? _%hd1344713499%_) + (let ((_g20980_ (gx#syntax-split-splice - _%hd1341113463%_ + _%hd1344713499%_ '0))) (begin - (let ((_g20945_ + (let ((_g20981_ (let () (declare (not safe)) - (if (##values? _g20944_) - (##vector-length _g20944_) + (if (##values? _g20980_) + (##vector-length _g20980_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20945_ 2))) + (##fx= _g20981_ 2))) (error "Context expects 2 values" - _g20945_))) - (let ((_%target1341313469%_ + _g20981_))) + (let ((_%target1344913505%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 0))) - (_%tl1341513472%_ + (##vector-ref _g20980_ 0))) + (_%tl1345113508%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 1)))) - (if (gx#stx-null? _%tl1341513472%_) - (letrec ((_%loop1341613475%_ - (lambda (_%hd1341413479%_ - _%K-left1342013482%_) + (##vector-ref _g20980_ 1)))) + (if (gx#stx-null? _%tl1345113508%_) + (letrec ((_%loop1345213511%_ + (lambda (_%hd1345013515%_ + _%K-left1345613518%_) (if (gx#stx-pair? - _%hd1341413479%_) - (let ((_%e1341713485%_ + _%hd1345013515%_) + (let ((_%e1345313521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1341413479%_))) - (let ((_%lp-hd1341813489%_ + (gx#syntax-e _%hd1345013515%_))) + (let ((_%lp-hd1345413525%_ (let () (declare (not safe)) - (##car _%e1341713485%_))) - (_%lp-tl1341913492%_ + (##car _%e1345313521%_))) + (_%lp-tl1345513528%_ (let () (declare (not safe)) - (##cdr _%e1341713485%_)))) - (_%loop1341613475%_ - _%lp-tl1341913492%_ - (cons _%lp-hd1341813489%_ _%K-left1342013482%_)))) - (let ((_%K-left1342113495%_ - (reverse _%K-left1342013482%_))) - (if (gx#stx-pair? _%tl1341213466%_) - (let ((_%e1342213499%_ - (gx#syntax-e _%tl1341213466%_))) - (let ((_%hd1342313503%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1342213499%_))) - (_%tl1342413506%_ + (##car _%e1345813535%_))) + (_%tl1346013542%_ (let () (declare (not safe)) - (##cdr _%e1342213499%_)))) - (if (gx#stx-pair/null? _%hd1342313503%_) - (let ((_g20946_ + (##cdr _%e1345813535%_)))) + (if (gx#stx-pair/null? _%hd1345913539%_) + (let ((_g20982_ (gx#syntax-split-splice - _%hd1342313503%_ + _%hd1345913539%_ '0))) (begin - (let ((_g20947_ + (let ((_g20983_ (let () (declare (not safe)) - (if (##values? _g20946_) - (##vector-length _g20946_) + (if (##values? _g20982_) + (##vector-length _g20982_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20947_ 2))) + (##fx= _g20983_ 2))) (error "Context expects 2 values" - _g20947_))) - (let ((_%target1342513509%_ + _g20983_))) + (let ((_%target1346113545%_ (let () (declare (not safe)) - (##vector-ref _g20946_ 0))) - (_%tl1342713512%_ + (##vector-ref _g20982_ 0))) + (_%tl1346313548%_ (let () (declare (not safe)) - (##vector-ref _g20946_ 1)))) - (if (gx#stx-null? _%tl1342713512%_) - (letrec ((_%loop1342813515%_ - (lambda (_%hd1342613519%_ - _%K-right1343213522%_) + (##vector-ref _g20982_ 1)))) + (if (gx#stx-null? _%tl1346313548%_) + (letrec ((_%loop1346413551%_ + (lambda (_%hd1346213555%_ + _%K-right1346813558%_) (if (gx#stx-pair? - _%hd1342613519%_) - (let ((_%e1342913525%_ + _%hd1346213555%_) + (let ((_%e1346513561%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1342613519%_))) - (let ((_%lp-hd1343013529%_ + (gx#syntax-e _%hd1346213555%_))) + (let ((_%lp-hd1346613565%_ (let () (declare (not safe)) - (##car _%e1342913525%_))) - (_%lp-tl1343113532%_ + (##car _%e1346513561%_))) + (_%lp-tl1346713568%_ (let () (declare (not safe)) - (##cdr _%e1342913525%_)))) - (_%loop1342813515%_ - _%lp-tl1343113532%_ - (cons _%lp-hd1343013529%_ _%K-right1343213522%_)))) - (let ((_%K-right1343313535%_ - (reverse _%K-right1343213522%_))) - (if (gx#stx-pair? _%tl1342413506%_) - (let ((_%e1343413539%_ - (gx#syntax-e _%tl1342413506%_))) - (let ((_%hd1343513543%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1343413539%_))) - (_%tl1343613546%_ + (##car _%e1347013575%_))) + (_%tl1347213582%_ (let () (declare (not safe)) - (##cdr _%e1343413539%_)))) - (if (gx#stx-null? _%tl1343613546%_) - ((lambda (_%L13549%_ - _%L13551%_ - _%L13552%_ - _%L13553%_) + (##cdr _%e1347013575%_)))) + (if (gx#stx-null? _%tl1347213582%_) + ((lambda (_%L13585%_ + _%L13587%_ + _%L13588%_ + _%L13589%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L13350%_ - (cons _%L13549%_ + (cons _%L13386%_ + (cons _%L13585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13351%_ + (cons _%L13387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L13350%_ - (foldr (lambda (_%g1358813591%_ - _%g1358913594%_) - (cons _%g1358813591%_ - _%g1358913594%_)) + (cons _%L13386%_ + (foldr (lambda (_%g1362413627%_ + _%g1362513630%_) + (cons _%g1362413627%_ + _%g1362513630%_)) '() - _%L13552%_)))) + _%L13588%_)))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13549%_ - (cons _%L13350%_ - (foldr (lambda (_%g1358613597%_ - _%g1358713600%_) - (cons _%g1358613597%_ - _%g1358713600%_)) + (cons _%L13585%_ + (cons _%L13386%_ + (foldr (lambda (_%g1362213633%_ + _%g1362313636%_) + (cons _%g1362213633%_ + _%g1362313636%_)) '() - _%L13551%_)))) + _%L13587%_)))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1343513543%_ - _%K-right1343313535%_ - _%K-left1342113495%_ - _%hd1340813453%_) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_))))))) + _%hd1347113579%_ + _%K-right1346913571%_ + _%K-left1345713531%_ + _%hd1344413489%_) + (_%g1343713478%_ _%g1343813482%_)))) + (_%g1343713478%_ _%g1343813482%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1342813515%_ - _%target1342513509%_ + (_%loop1346413551%_ + _%target1346113545%_ '())) - (_%g1340113442%_ - _%g1340213446%_))))) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_))))))) + (_%g1343713478%_ + _%g1343813482%_))))) + (_%g1343713478%_ _%g1343813482%_)))) + (_%g1343713478%_ _%g1343813482%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1341613475%_ - _%target1341313469%_ + (_%loop1345213511%_ + _%target1344913505%_ '())) - (_%g1340113442%_ - _%g1340213446%_))))) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1340013603%_ - (list _%mid13384%_ - _%left13395%_ - _%right13397%_ - (fx+ _%mid13384%_ + (_%g1343713478%_ + _%g1343813482%_))))) + (_%g1343713478%_ _%g1343813482%_)))) + (_%g1343713478%_ _%g1343813482%_)))) + (_%g1343713478%_ _%g1343813482%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1343613639%_ + (list _%mid13420%_ + _%left13431%_ + _%right13433%_ + (fx+ _%mid13420%_ (gx#stx-e - _%L13351%_))))))))) - _%K1327513344%_ - _%hd1326513312%_ - _%hd1326213302%_)))))) - (_%loop1327013324%_ _%target1326713318%_ '())) - (_%g1325313281%_ _%g1325413285%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1325313281%_ - _%g1325413285%_)))) - (_%g1325313281%_ _%g1325413285%_)))) - (_%g1325313281%_ _%g1325413285%_)))) - (_%g1325313281%_ _%g1325413285%_))))) - (_%g1325213607%_ _%stx13247%_))))) + _%L13387%_))))))))) + _%K1331113380%_ + _%hd1330113348%_ + _%hd1329813338%_)))))) + (_%loop1330613360%_ _%target1330313354%_ '())) + (_%g1328913317%_ _%g1329013321%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1328913317%_ + _%g1329013321%_)))) + (_%g1328913317%_ _%g1329013321%_)))) + (_%g1328913317%_ _%g1329013321%_)))) + (_%g1328913317%_ _%g1329013321%_))))) + (_%g1328813643%_ _%stx13283%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#do| - (lambda (_%$stx13627%_) - (let* ((_%g1363113702%_ - (lambda (_%g1363213698%_) + (lambda (_%$stx13663%_) + (let* ((_%g1366713738%_ + (lambda (_%g1366813734%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1363213698%_))) - (_%g1363013991%_ - (lambda (_%g1363213706%_) - (if (gx#stx-pair? _%g1363213706%_) - (let ((_%e1363913709%_ (gx#syntax-e _%g1363213706%_))) - (let ((_%hd1364013713%_ + _%g1366813734%_))) + (_%g1366614027%_ + (lambda (_%g1366813742%_) + (if (gx#stx-pair? _%g1366813742%_) + (let ((_%e1367513745%_ (gx#syntax-e _%g1366813742%_))) + (let ((_%hd1367613749%_ (let () (declare (not safe)) - (##car _%e1363913709%_))) - (_%tl1364113716%_ + (##car _%e1367513745%_))) + (_%tl1367713752%_ (let () (declare (not safe)) - (##cdr _%e1363913709%_)))) - (if (gx#stx-pair? _%tl1364113716%_) - (let ((_%e1364213719%_ - (gx#syntax-e _%tl1364113716%_))) - (let ((_%hd1364313723%_ + (##cdr _%e1367513745%_)))) + (if (gx#stx-pair? _%tl1367713752%_) + (let ((_%e1367813755%_ + (gx#syntax-e _%tl1367713752%_))) + (let ((_%hd1367913759%_ (let () (declare (not safe)) - (##car _%e1364213719%_))) - (_%tl1364413726%_ + (##car _%e1367813755%_))) + (_%tl1368013762%_ (let () (declare (not safe)) - (##cdr _%e1364213719%_)))) - (if (gx#stx-pair/null? _%hd1364313723%_) - (let ((_g20948_ + (##cdr _%e1367813755%_)))) + (if (gx#stx-pair/null? _%hd1367913759%_) + (let ((_g20984_ (gx#syntax-split-splice - _%hd1364313723%_ + _%hd1367913759%_ '0))) (begin - (let ((_g20949_ + (let ((_g20985_ (let () (declare (not safe)) - (if (##values? _g20948_) + (if (##values? _g20984_) (##vector-length - _g20948_) + _g20984_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20949_ 2))) + (##fx= _g20985_ 2))) (error "Context expects 2 values" - _g20949_))) - (let ((_%target1364513729%_ + _g20985_))) + (let ((_%target1368113765%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 0))) - (_%tl1364713732%_ + (##vector-ref _g20984_ 0))) + (_%tl1368313768%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 1)))) - (if (gx#stx-null? _%tl1364713732%_) - (letrec ((_%loop1364813735%_ - (lambda (_%hd1364613739%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step1365213742%_ - _%init1365313744%_ - _%var1365413746%_) - (if (gx#stx-pair? _%hd1364613739%_) - (let ((_%e1364913749%_ (gx#syntax-e _%hd1364613739%_))) - (let ((_%lp-hd1365013753%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1364913749%_))) - (_%lp-tl1365113756%_ + (##car _%e1368513785%_))) + (_%lp-tl1368713792%_ (let () (declare (not safe)) - (##cdr _%e1364913749%_)))) - (if (gx#stx-pair? _%lp-hd1365013753%_) - (let ((_%e1368213759%_ - (gx#syntax-e _%lp-hd1365013753%_))) - (let ((_%hd1368313763%_ + (##cdr _%e1368513785%_)))) + (if (gx#stx-pair? _%lp-hd1368613789%_) + (let ((_%e1371813795%_ + (gx#syntax-e _%lp-hd1368613789%_))) + (let ((_%hd1371913799%_ (let () (declare (not safe)) - (##car _%e1368213759%_))) - (_%tl1368413766%_ + (##car _%e1371813795%_))) + (_%tl1372013802%_ (let () (declare (not safe)) - (##cdr _%e1368213759%_)))) - (if (gx#stx-pair? _%tl1368413766%_) - (let ((_%e1368513769%_ - (gx#syntax-e _%tl1368413766%_))) - (let ((_%hd1368613773%_ + (##cdr _%e1371813795%_)))) + (if (gx#stx-pair? _%tl1372013802%_) + (let ((_%e1372113805%_ + (gx#syntax-e _%tl1372013802%_))) + (let ((_%hd1372213809%_ (let () (declare (not safe)) - (##car _%e1368513769%_))) - (_%tl1368713776%_ + (##car _%e1372113805%_))) + (_%tl1372313812%_ (let () (declare (not safe)) - (##cdr _%e1368513769%_)))) + (##cdr _%e1372113805%_)))) (if (gx#stx-pair/null? - _%tl1368713776%_) - (let ((_g20950_ + _%tl1372313812%_) + (let ((_g20986_ (gx#syntax-split-splice - _%tl1368713776%_ + _%tl1372313812%_ '0))) (begin - (let ((_g20951_ + (let ((_g20987_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20950_) - (##vector-length _g20950_) + _g20986_) + (##vector-length _g20986_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20951_ 2))) - (error "Context expects 2 values" _g20951_))) + (if (not (let () (declare (not safe)) (##fx= _g20987_ 2))) + (error "Context expects 2 values" _g20987_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1368813779%_ + (let ((_%target1372413815%_ (let () (declare (not safe)) (##vector-ref - _g20950_ + _g20986_ 0))) - (_%tl1369013782%_ + (_%tl1372613818%_ (let () (declare (not safe)) (##vector-ref - _g20950_ + _g20986_ 1)))) (if (gx#stx-null? - _%tl1369013782%_) - (letrec ((_%loop1369113785%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1368913789%_ _%step1369513792%_) - (if (gx#stx-pair? _%hd1368913789%_) - (let ((_%e1369213795%_ - (gx#syntax-e _%hd1368913789%_))) - (let ((_%lp-hd1369313799%_ + _%tl1372613818%_) + (letrec ((_%loop1372713821%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1372513825%_ _%step1373113828%_) + (if (gx#stx-pair? _%hd1372513825%_) + (let ((_%e1372813831%_ + (gx#syntax-e _%hd1372513825%_))) + (let ((_%lp-hd1372913835%_ (let () (declare (not safe)) - (##car _%e1369213795%_))) - (_%lp-tl1369413802%_ + (##car _%e1372813831%_))) + (_%lp-tl1373013838%_ (let () (declare (not safe)) - (##cdr _%e1369213795%_)))) - (_%loop1369113785%_ - _%lp-tl1369413802%_ - (cons _%lp-hd1369313799%_ - _%step1369513792%_)))) - (let ((_%step1369613805%_ - (reverse _%step1369513792%_))) - (_%loop1364813735%_ - _%lp-tl1365113756%_ - (cons _%step1369613805%_ - _%step1365213742%_) - (cons _%hd1368613773%_ _%init1365313744%_) - (cons _%hd1368313763%_ - _%var1365413746%_))))))) - (_%loop1369113785%_ _%target1368813779%_ '())) - (_%g1363113702%_ _%g1363213706%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1363113702%_ - _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (let ((_%step1365513809%_ (reverse _%step1365213742%_)) - (_%init1365613812%_ (reverse _%init1365313744%_)) - (_%var1365713814%_ (reverse _%var1365413746%_))) - (if (gx#stx-pair? _%tl1364413726%_) - (let ((_%e1365813817%_ - (gx#syntax-e _%tl1364413726%_))) - (let ((_%hd1365913821%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1365813817%_))) - (_%tl1366013824%_ + (##car _%e1369413853%_))) + (_%tl1369613860%_ (let () (declare (not safe)) - (##cdr _%e1365813817%_)))) - (if (gx#stx-pair? _%hd1365913821%_) - (let ((_%e1366113827%_ - (gx#syntax-e _%hd1365913821%_))) - (let ((_%hd1366213831%_ + (##cdr _%e1369413853%_)))) + (if (gx#stx-pair? _%hd1369513857%_) + (let ((_%e1369713863%_ + (gx#syntax-e _%hd1369513857%_))) + (let ((_%hd1369813867%_ (let () (declare (not safe)) - (##car _%e1366113827%_))) - (_%tl1366313834%_ + (##car _%e1369713863%_))) + (_%tl1369913870%_ (let () (declare (not safe)) - (##cdr _%e1366113827%_)))) + (##cdr _%e1369713863%_)))) (if (gx#stx-pair/null? - _%tl1366313834%_) - (let ((_g20952_ + _%tl1369913870%_) + (let ((_g20988_ (gx#syntax-split-splice - _%tl1366313834%_ + _%tl1369913870%_ '0))) (begin - (let ((_g20953_ + (let ((_g20989_ (let () (declare (not safe)) (if (##values? - _g20952_) + _g20988_) (##vector-length - _g20952_) + _g20988_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20953_ 2))) - (error "Context expects 2 values" _g20953_))) + (##fx= _g20989_ 2))) + (error "Context expects 2 values" _g20989_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1366413837%_ + (let ((_%target1370013873%_ (let () (declare (not safe)) (##vector-ref - _g20952_ + _g20988_ 0))) - (_%tl1366613840%_ + (_%tl1370213876%_ (let () (declare (not safe)) (##vector-ref - _g20952_ + _g20988_ 1)))) (if (gx#stx-null? - _%tl1366613840%_) - (letrec ((_%loop1366713843%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1366513847%_ _%fini1367113850%_) - (if (gx#stx-pair? _%hd1366513847%_) - (let ((_%e1366813853%_ - (gx#syntax-e _%hd1366513847%_))) - (let ((_%lp-hd1366913857%_ + _%tl1370213876%_) + (letrec ((_%loop1370313879%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1370113883%_ _%fini1370713886%_) + (if (gx#stx-pair? _%hd1370113883%_) + (let ((_%e1370413889%_ + (gx#syntax-e _%hd1370113883%_))) + (let ((_%lp-hd1370513893%_ (let () (declare (not safe)) - (##car _%e1366813853%_))) - (_%lp-tl1367013860%_ + (##car _%e1370413889%_))) + (_%lp-tl1370613896%_ (let () (declare (not safe)) - (##cdr _%e1366813853%_)))) - (_%loop1366713843%_ - _%lp-tl1367013860%_ - (cons _%lp-hd1366913857%_ - _%fini1367113850%_)))) - (let ((_%fini1367213863%_ - (reverse _%fini1367113850%_))) - (if (gx#stx-pair/null? _%tl1366013824%_) - (let ((_g20954_ + (##cdr _%e1370413889%_)))) + (_%loop1370313879%_ + _%lp-tl1370613896%_ + (cons _%lp-hd1370513893%_ + _%fini1370713886%_)))) + (let ((_%fini1370813899%_ + (reverse _%fini1370713886%_))) + (if (gx#stx-pair/null? _%tl1369613860%_) + (let ((_g20990_ (gx#syntax-split-splice - _%tl1366013824%_ + _%tl1369613860%_ '0))) (begin - (let ((_g20955_ + (let ((_g20991_ (let () (declare (not safe)) - (if (##values? _g20954_) + (if (##values? _g20990_) (##vector-length - _g20954_) + _g20990_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20955_ 2))) + (##fx= _g20991_ 2))) (error "Context expects 2 values" - _g20955_))) - (let ((_%target1367313867%_ + _g20991_))) + (let ((_%target1370913903%_ (let () (declare (not safe)) - (##vector-ref _g20954_ 0))) - (_%tl1367513870%_ + (##vector-ref _g20990_ 0))) + (_%tl1371113906%_ (let () (declare (not safe)) - (##vector-ref _g20954_ 1)))) - (if (gx#stx-null? _%tl1367513870%_) - (letrec ((_%loop1367613873%_ - (lambda (_%hd1367413877%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1368013880%_) - (if (gx#stx-pair? _%hd1367413877%_) - (let ((_%e1367713883%_ (gx#syntax-e _%hd1367413877%_))) - (let ((_%lp-hd1367813887%_ + (##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%_ (let () (declare (not safe)) - (##car _%e1367713883%_))) - (_%lp-tl1367913890%_ + (##car _%e1371313919%_))) + (_%lp-tl1371513926%_ (let () (declare (not safe)) - (##cdr _%e1367713883%_)))) - (_%loop1367613873%_ - _%lp-tl1367913890%_ - (cons _%lp-hd1367813887%_ _%body1368013880%_)))) - (let ((_%body1368113893%_ - (reverse _%body1368013880%_))) - ((lambda (_%L13897%_ - _%L13899%_ - _%L13900%_ - _%L13901%_ - _%L13902%_ - _%L13903%_) + (##cdr _%e1371313919%_)))) + (_%loop1371213909%_ + _%lp-tl1371513926%_ + (cons _%lp-hd1371413923%_ _%body1371613916%_)))) + (let ((_%body1371713929%_ + (reverse _%body1371613916%_))) + ((lambda (_%L13933%_ + _%L13935%_ + _%L13936%_ + _%L13937%_ + _%L13938%_ + _%L13939%_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_%g1393613939%_ - _%g1393713942%_) - (cons _%g1393613939%_ - _%g1393713942%_)) + (foldr (lambda (_%g1397213975%_ + _%g1397313978%_) + (cons _%g1397213975%_ + _%g1397313978%_)) '() - _%L13903%_)) + _%L13939%_)) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L13902%_ - _%L13903%_) - (foldr (lambda (_%g1395313957%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1395413960%_ - _%g1395513962%_) - (cons (cons _%g1395413960%_ (cons _%g1395313957%_ '())) - _%g1395513962%_)) + _%L13938%_ + _%L13939%_) + (foldr (lambda (_%g1398913993%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1399013996%_ + _%g1399113998%_) + (cons (cons _%g1399013996%_ (cons _%g1398913993%_ '())) + _%g1399113998%_)) '() - _%L13902%_ - _%L13903%_)) + _%L13938%_ + _%L13939%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L13900%_ + (cons _%L13936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_%g1395113965%_ - _%g1395213968%_) - (cons _%g1395113965%_ - _%g1395213968%_)) + (foldr (lambda (_%g1398714001%_ + _%g1398814004%_) + (cons _%g1398714001%_ + _%g1398814004%_)) '() - _%L13899%_))) + _%L13935%_))) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1394413971%_ - _%g1394513974%_) - (cons _%g1394413971%_ - _%g1394513974%_)) + (foldr (lambda (_%g1398014007%_ + _%g1398114010%_) + (cons _%g1398014007%_ + _%g1398114010%_)) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L13901%_ - _%L13903%_) - (foldr (lambda (_%g1394613977%_ - _%g1394713980%_ - _%g1394813982%_) + _%L13937%_ + _%L13939%_) + (foldr (lambda (_%g1398214013%_ + _%g1398314016%_ + _%g1398414018%_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _%g1394713980%_ - (foldr (lambda (_%g1394913985%_ + (cons _%g1398314016%_ + (foldr (lambda (_%g1398514021%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1395013988%_) - (cons _%g1394913985%_ _%g1395013988%_)) + _%g1398614024%_) + (cons _%g1398514021%_ _%g1398614024%_)) '() - _%g1394613977%_))) + _%g1398214013%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1394813982%_)) + _%g1398414018%_)) '() - _%L13901%_ - _%L13903%_))) + _%L13937%_ + _%L13939%_))) '()) - _%L13897%_)) + _%L13933%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1363113702%_ _%g1363213706%_))) - _%body1368113893%_ - _%fini1367213863%_ - _%hd1366213831%_ - _%step1365513809%_ - _%init1365613812%_ - _%var1365713814%_)))))) + (_%g1366713738%_ _%g1366813742%_))) + _%body1371713929%_ + _%fini1370813899%_ + _%hd1369813867%_ + _%step1369113845%_ + _%init1369213848%_ + _%var1369313850%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1367613873%_ - _%target1367313867%_ + (_%loop1371213909%_ + _%target1370913903%_ '())) - (_%g1363113702%_ - _%g1363213706%_))))) - (_%g1363113702%_ _%g1363213706%_))))))) - (_%loop1366713843%_ _%target1366413837%_ '())) - (_%g1363113702%_ _%g1363213706%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1363113702%_ - _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1364813735%_ - _%target1364513729%_ + (_%g1366713738%_ + _%g1366813742%_))))) + (_%g1366713738%_ _%g1366813742%_))))))) + (_%loop1370313879%_ _%target1370013873%_ '())) + (_%g1366713738%_ _%g1366813742%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1366713738%_ + _%g1366813742%_)))) + (_%g1366713738%_ _%g1366813742%_)))) + (_%g1366713738%_ _%g1366813742%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1368413771%_ + _%target1368113765%_ '() '() '())) - (_%g1363113702%_ - _%g1363213706%_))))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_))))) - (_%g1363013991%_ _%$stx13627%_)))) + (_%g1366713738%_ + _%g1366813742%_))))) + (_%g1366713738%_ _%g1366813742%_)))) + (_%g1366713738%_ _%g1366813742%_)))) + (_%g1366713738%_ _%g1366813742%_))))) + (_%g1366614027%_ _%$stx13663%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#do-while| - (lambda (_%$stx13999%_) - (let* ((_%g1400314026%_ - (lambda (_%g1400414022%_) + (lambda (_%$stx14035%_) + (let* ((_%g1403914062%_ + (lambda (_%g1404014058%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1400414022%_))) - (_%g1400214097%_ - (lambda (_%g1400414030%_) - (if (gx#stx-pair? _%g1400414030%_) - (let ((_%e1400914033%_ (gx#syntax-e _%g1400414030%_))) - (let ((_%hd1401014037%_ + _%g1404014058%_))) + (_%g1403814133%_ + (lambda (_%g1404014066%_) + (if (gx#stx-pair? _%g1404014066%_) + (let ((_%e1404514069%_ (gx#syntax-e _%g1404014066%_))) + (let ((_%hd1404614073%_ (let () (declare (not safe)) - (##car _%e1400914033%_))) - (_%tl1401114040%_ + (##car _%e1404514069%_))) + (_%tl1404714076%_ (let () (declare (not safe)) - (##cdr _%e1400914033%_)))) - (if (gx#stx-pair? _%tl1401114040%_) - (let ((_%e1401214043%_ - (gx#syntax-e _%tl1401114040%_))) - (let ((_%hd1401314047%_ + (##cdr _%e1404514069%_)))) + (if (gx#stx-pair? _%tl1404714076%_) + (let ((_%e1404814079%_ + (gx#syntax-e _%tl1404714076%_))) + (let ((_%hd1404914083%_ (let () (declare (not safe)) - (##car _%e1401214043%_))) - (_%tl1401414050%_ + (##car _%e1404814079%_))) + (_%tl1405014086%_ (let () (declare (not safe)) - (##cdr _%e1401214043%_)))) - (if (gx#stx-pair? _%tl1401414050%_) - (let ((_%e1401514053%_ - (gx#syntax-e _%tl1401414050%_))) - (let ((_%hd1401614057%_ + (##cdr _%e1404814079%_)))) + (if (gx#stx-pair? _%tl1405014086%_) + (let ((_%e1405114089%_ + (gx#syntax-e _%tl1405014086%_))) + (let ((_%hd1405214093%_ (let () (declare (not safe)) - (##car _%e1401514053%_))) - (_%tl1401714060%_ + (##car _%e1405114089%_))) + (_%tl1405314096%_ (let () (declare (not safe)) - (##cdr _%e1401514053%_)))) - (if (gx#stx-pair? _%hd1401614057%_) - (let ((_%e1401814063%_ + (##cdr _%e1405114089%_)))) + (if (gx#stx-pair? _%hd1405214093%_) + (let ((_%e1405414099%_ (gx#syntax-e - _%hd1401614057%_))) - (let ((_%hd1401914067%_ + _%hd1405214093%_))) + (let ((_%hd1405514103%_ (let () (declare (not safe)) - (##car _%e1401814063%_))) - (_%tl1402014070%_ + (##car _%e1405414099%_))) + (_%tl1405614106%_ (let () (declare (not safe)) - (##cdr _%e1401814063%_)))) - ((lambda (_%L14073%_ - _%L14075%_ - _%L14076%_ - _%L14077%_) + (##cdr _%e1405414099%_)))) + ((lambda (_%L14109%_ + _%L14111%_ + _%L14112%_ + _%L14113%_) (cons (gx#datum->syntax '#f 'do) - (cons _%L14077%_ + (cons _%L14113%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L14076%_ '())) - _%L14075%_) - _%L14073%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl1401714060%_ - _%tl1402014070%_ - _%hd1401914067%_ - _%hd1401314047%_))) - (_%g1400314026%_ - _%g1400414030%_)))) - (_%g1400314026%_ _%g1400414030%_)))) - (_%g1400314026%_ _%g1400414030%_)))) - (_%g1400314026%_ _%g1400414030%_))))) - (_%g1400214097%_ _%$stx13999%_)))) + (cons _%L14112%_ '())) + _%L14111%_) + _%L14109%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl1405314096%_ + _%tl1405614106%_ + _%hd1405514103%_ + _%hd1404914083%_))) + (_%g1403914062%_ + _%g1404014066%_)))) + (_%g1403914062%_ _%g1404014066%_)))) + (_%g1403914062%_ _%g1404014066%_)))) + (_%g1403914062%_ _%g1404014066%_))))) + (_%g1403814133%_ _%$stx14035%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#begin0| - (lambda (_%$stx14101%_) - (let* ((_%__stx1987819879%_ _%$stx14101%_) - (_%g1410614137%_ + (lambda (_%$stx14137%_) + (let* ((_%__stx1991419915%_ _%$stx14137%_) + (_%g1414214173%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1987819879%_)))) - (let ((_%__kont1988119882%_ (lambda (_%L14249%_) _%L14249%_)) - (_%__kont1988319884%_ - (lambda (_%L14194%_ _%L14196%_) + _%__stx1991419915%_)))) + (let ((_%__kont1991719918%_ (lambda (_%L14285%_) _%L14285%_)) + (_%__kont1991919920%_ + (lambda (_%L14230%_ _%L14232%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$r) - (cons _%L14196%_ '())) + (cons _%L14232%_ '())) (cons (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1421314216%_ + (foldr (lambda (_%g1424914252%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1421414219%_) - (cons _%g1421314216%_ _%g1421414219%_)) + _%g1425014255%_) + (cons _%g1424914252%_ _%g1425014255%_)) '() - _%L14194%_)) + _%L14230%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (gx#datum->syntax '#f '$r) '()))))))) - (let ((_%__match1992119922%_ - (lambda (_%e1411714144%_ - _%hd1411814148%_ - _%tl1411914151%_ - _%e1412014154%_ - _%hd1412114158%_ - _%tl1412214161%_ - _%__splice1988519886%_ - _%target1412314164%_ - _%tl1412514167%_) - (letrec ((_%loop1412614170%_ - (lambda (_%hd1412414174%_ _%rest1413014177%_) - (if (gx#stx-pair? _%hd1412414174%_) - (let ((_%e1412714180%_ - (gx#syntax-e _%hd1412414174%_))) - (let ((_%lp-tl1412914187%_ + (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 () (declare (not safe)) - (##cdr _%e1412714180%_))) - (_%lp-hd1412814184%_ + (##cdr _%e1416314216%_))) + (_%lp-hd1416414220%_ (let () (declare (not safe)) - (##car _%e1412714180%_)))) - (_%loop1412614170%_ - _%lp-tl1412914187%_ - (cons _%lp-hd1412814184%_ - _%rest1413014177%_)))) - (let ((_%rest1413114190%_ - (reverse _%rest1413014177%_))) - (_%__kont1988319884%_ - _%rest1413114190%_ - _%hd1412114158%_)))))) - (_%loop1412614170%_ _%target1412314164%_ '()))))) - (if (gx#stx-pair? _%__stx1987819879%_) - (let ((_%e1410914229%_ (gx#syntax-e _%__stx1987819879%_))) - (let ((_%tl1411114236%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1410914229%_))) - (_%hd1411014233%_ + (##cdr _%e1414514265%_))) + (_%hd1414614269%_ (let () (declare (not safe)) - (##car _%e1410914229%_)))) - (if (gx#stx-pair? _%tl1411114236%_) - (let ((_%e1411214239%_ - (gx#syntax-e _%tl1411114236%_))) - (let ((_%tl1411414246%_ + (##car _%e1414514265%_)))) + (if (gx#stx-pair? _%tl1414714272%_) + (let ((_%e1414814275%_ + (gx#syntax-e _%tl1414714272%_))) + (let ((_%tl1415014282%_ (let () (declare (not safe)) - (##cdr _%e1411214239%_))) - (_%hd1411314243%_ + (##cdr _%e1414814275%_))) + (_%hd1414914279%_ (let () (declare (not safe)) - (##car _%e1411214239%_)))) - (if (gx#stx-null? _%tl1411414246%_) - (_%__kont1988119882%_ _%hd1411314243%_) - (if (gx#stx-pair/null? _%tl1411414246%_) - (let ((_%__splice1988519886%_ + (##car _%e1414814275%_)))) + (if (gx#stx-null? _%tl1415014282%_) + (_%__kont1991719918%_ _%hd1414914279%_) + (if (gx#stx-pair/null? _%tl1415014282%_) + (let ((_%__splice1992119922%_ (gx#syntax-split-splice - _%tl1411414246%_ + _%tl1415014282%_ '0))) - (let ((_%tl1412514167%_ + (let ((_%tl1416114203%_ (let () (declare (not safe)) (##vector-ref - _%__splice1988519886%_ + _%__splice1992119922%_ '1))) - (_%target1412314164%_ + (_%target1415914200%_ (let () (declare (not safe)) (##vector-ref - _%__splice1988519886%_ + _%__splice1992119922%_ '0)))) - (if (gx#stx-null? _%tl1412514167%_) - (_%__match1992119922%_ - _%e1410914229%_ - _%hd1411014233%_ - _%tl1411114236%_ - _%e1411214239%_ - _%hd1411314243%_ - _%tl1411414246%_ - _%__splice1988519886%_ - _%target1412314164%_ - _%tl1412514167%_) + (if (gx#stx-null? _%tl1416114203%_) + (_%__match1995719958%_ + _%e1414514265%_ + _%hd1414614269%_ + _%tl1414714272%_ + _%e1414814275%_ + _%hd1414914279%_ + _%tl1415014282%_ + _%__splice1992119922%_ + _%target1415914200%_ + _%tl1416114203%_) (let () (declare (not safe)) - (_%g1410614137%_))))) + (_%g1414214173%_))))) (let () (declare (not safe)) - (_%g1410614137%_)))))) - (let () (declare (not safe)) (_%g1410614137%_))))) - (let () (declare (not safe)) (_%g1410614137%_)))))))) + (_%g1414214173%_)))))) + (let () (declare (not safe)) (_%g1414214173%_))))) + (let () (declare (not safe)) (_%g1414214173%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#rec| - (lambda (_%$stx14267%_) - (let* ((_%__stx1992419925%_ _%$stx14267%_) - (_%g1427314326%_ + (lambda (_%$stx14303%_) + (let* ((_%__stx1996019961%_ _%$stx14303%_) + (_%g1430914362%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1992419925%_)))) - (let ((_%__kont1992719928%_ - (lambda (_%L14528%_ _%L14530%_) + _%__stx1996019961%_)))) + (let ((_%__kont1996319964%_ + (lambda (_%L14564%_ _%L14566%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14530%_ (cons _%L14528%_ '())) + (cons (cons (cons _%L14566%_ (cons _%L14564%_ '())) '()) - (cons _%L14530%_ '()))))) - (_%__kont1992919930%_ - (lambda (_%L14472%_ _%L14474%_) + (cons _%L14566%_ '()))))) + (_%__kont1996519966%_ + (lambda (_%L14508%_ _%L14510%_) (cons (gx#datum->syntax '#f 'letrec-values) - (cons (cons (cons _%L14474%_ (cons _%L14472%_ '())) + (cons (cons (cons _%L14510%_ (cons _%L14508%_ '())) '()) (cons (cons (gx#datum->syntax '#f 'values) - _%L14474%_) + _%L14510%_) '()))))) - (_%__kont1993119932%_ - (lambda (_%L14393%_ _%L14395%_ _%L14396%_) + (_%__kont1996719968%_ + (lambda (_%L14429%_ _%L14431%_ _%L14432%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14396%_ + (cons (cons (cons _%L14432%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L14395%_ - (foldr (lambda (_%g1441614419%_ + (cons _%L14431%_ + (foldr (lambda (_%g1445214455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1441714422%_) - (cons _%g1441614419%_ _%g1441714422%_)) + _%g1445314458%_) + (cons _%g1445214455%_ _%g1445314458%_)) '() - _%L14393%_))) + _%L14429%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L14396%_ '())))))) - (let* ((_%__match2001120012%_ - (lambda (_%e1430314333%_ - _%hd1430414337%_ - _%tl1430514340%_ - _%e1430614343%_ - _%hd1430714347%_ - _%tl1430814350%_ - _%e1430914353%_ - _%hd1431014357%_ - _%tl1431114360%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) - (letrec ((_%loop1431514369%_ - (lambda (_%hd1431314373%_ _%body1431914376%_) - (if (gx#stx-pair? _%hd1431314373%_) - (let ((_%e1431614379%_ - (gx#syntax-e _%hd1431314373%_))) - (let ((_%lp-tl1431814386%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e1431614379%_))) - (_%lp-hd1431714383%_ + (##cdr _%e1435214415%_))) + (_%lp-hd1435314419%_ (let () (declare (not safe)) - (##car _%e1431614379%_)))) - (_%loop1431514369%_ - _%lp-tl1431814386%_ - (cons _%lp-hd1431714383%_ - _%body1431914376%_)))) - (let ((_%body1432014389%_ - (reverse _%body1431914376%_))) - (let ((_%L14393%_ _%body1432014389%_) - (_%L14395%_ _%tl1431114360%_) - (_%L14396%_ _%hd1431014357%_)) - (if (gx#identifier? _%L14396%_) - (_%__kont1993119932%_ - _%L14393%_ - _%L14395%_ - _%L14396%_) + (##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%_) (let () (declare (not safe)) - (_%g1427314326%_))))))))) - (_%loop1431514369%_ _%target1431214363%_ '())))) - (_%__match1998519986%_ - (lambda (_%e1428814432%_ - _%hd1428914436%_ - _%tl1429014439%_ - _%e1429114442%_ - _%hd1429214446%_ - _%tl1429314449%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%e1429714462%_ - _%hd1429814466%_ - _%tl1429914469%_) - (let ((_%L14472%_ _%hd1429814466%_) - (_%L14474%_ _%tl1429614459%_)) - (if (gx#identifier-list? _%L14474%_) - (_%__kont1992919930%_ _%L14472%_ _%L14474%_) - (if (gx#stx-pair/null? _%tl1429314449%_) - (let ((_%__splice1993319934%_ + (_%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%_ (gx#syntax-split-splice - _%tl1429314449%_ + _%tl1432914485%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1435014402%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '1))) - (_%target1431214363%_ + (_%target1434814399%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '0)))) - (if (gx#stx-null? _%tl1431414366%_) - (_%__match2001120012%_ - _%e1428814432%_ - _%hd1428914436%_ - _%tl1429014439%_ - _%e1429114442%_ - _%hd1429214446%_ - _%tl1429314449%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + (if (gx#stx-null? _%tl1435014402%_) + (_%__match2004720048%_ + _%e1432414468%_ + _%hd1432514472%_ + _%tl1432614475%_ + _%e1432714478%_ + _%hd1432814482%_ + _%tl1432914485%_ + _%e1433014488%_ + _%hd1433114492%_ + _%tl1433214495%_ + _%__splice1996919970%_ + _%target1434814399%_ + _%tl1435014402%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1430914362%_))))) (let () (declare (not safe)) - (_%g1427314326%_))))))) - (_%__match1995519956%_ - (lambda (_%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1428314518%_ - _%hd1428414522%_ - _%tl1428514525%_) - (let ((_%L14528%_ _%hd1428414522%_) - (_%L14530%_ _%hd1428114512%_)) - (if (gx#identifier? _%L14530%_) - (_%__kont1992719928%_ _%L14528%_ _%L14530%_) - (if (gx#stx-pair? _%hd1428114512%_) - (let ((_%e1429414452%_ - (gx#syntax-e _%hd1428114512%_))) - (let ((_%tl1429614459%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e1429414452%_))) - (_%hd1429514456%_ + (##cdr _%e1433014488%_))) + (_%hd1433114492%_ (let () (declare (not safe)) - (##car _%e1429414452%_)))) - (if (gx#identifier? _%hd1429514456%_) + (##car _%e1433014488%_)))) + (if (gx#identifier? _%hd1433114492%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20956_| - _%hd1429514456%_) - (_%__match1998519986%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%e1428314518%_ - _%hd1428414522%_ - _%tl1428514525%_) + |gerbil/core/sugar~Sugar-2[1]#_g20992_| + _%hd1433114492%_) + (_%__match2002120022%_ + _%e1431314534%_ + _%hd1431414538%_ + _%tl1431514541%_ + _%e1431614544%_ + _%hd1431714548%_ + _%tl1431814551%_ + _%e1433014488%_ + _%hd1433114492%_ + _%tl1433214495%_ + _%e1431914554%_ + _%hd1432014558%_ + _%tl1432114561%_) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1431814551%_) + (let ((_%__splice1996919970%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1431814551%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1435014402%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '1))) - (_%target1431214363%_ + (_%target1434814399%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '0)))) (if (gx#stx-null? - _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + _%tl1435014402%_) + (_%__match2004720048%_ + _%e1431314534%_ + _%hd1431414538%_ + _%tl1431514541%_ + _%e1431614544%_ + _%hd1431714548%_ + _%tl1431814551%_ + _%e1433014488%_ + _%hd1433114492%_ + _%tl1433214495%_ + _%__splice1996919970%_ + _%target1434814399%_ + _%tl1435014402%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1430914362%_))))) (let () (declare (not safe)) - (_%g1427314326%_)))) + (_%g1430914362%_)))) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1431814551%_) + (let ((_%__splice1996919970%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1431814551%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1435014402%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '1))) - (_%target1431214363%_ + (_%target1434814399%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '0)))) (if (gx#stx-null? - _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + _%tl1435014402%_) + (_%__match2004720048%_ + _%e1431314534%_ + _%hd1431414538%_ + _%tl1431514541%_ + _%e1431614544%_ + _%hd1431714548%_ + _%tl1431814551%_ + _%e1433014488%_ + _%hd1433114492%_ + _%tl1433214495%_ + _%__splice1996919970%_ + _%target1434814399%_ + _%tl1435014402%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1430914362%_))))) (let () (declare (not safe)) - (_%g1427314326%_)))))) + (_%g1430914362%_)))))) (let () (declare (not safe)) - (_%g1427314326%_)))))))) - (if (gx#stx-pair? _%__stx1992419925%_) - (let ((_%e1427714498%_ (gx#syntax-e _%__stx1992419925%_))) - (let ((_%tl1427914505%_ + (_%g1430914362%_)))))))) + (if (gx#stx-pair? _%__stx1996019961%_) + (let ((_%e1431314534%_ (gx#syntax-e _%__stx1996019961%_))) + (let ((_%tl1431514541%_ (let () (declare (not safe)) - (##cdr _%e1427714498%_))) - (_%hd1427814502%_ + (##cdr _%e1431314534%_))) + (_%hd1431414538%_ (let () (declare (not safe)) - (##car _%e1427714498%_)))) - (if (gx#stx-pair? _%tl1427914505%_) - (let ((_%e1428014508%_ - (gx#syntax-e _%tl1427914505%_))) - (let ((_%tl1428214515%_ + (##car _%e1431314534%_)))) + (if (gx#stx-pair? _%tl1431514541%_) + (let ((_%e1431614544%_ + (gx#syntax-e _%tl1431514541%_))) + (let ((_%tl1431814551%_ (let () (declare (not safe)) - (##cdr _%e1428014508%_))) - (_%hd1428114512%_ + (##cdr _%e1431614544%_))) + (_%hd1431714548%_ (let () (declare (not safe)) - (##car _%e1428014508%_)))) - (if (gx#stx-pair? _%tl1428214515%_) - (let ((_%e1428314518%_ - (gx#syntax-e _%tl1428214515%_))) - (let ((_%tl1428514525%_ + (##car _%e1431614544%_)))) + (if (gx#stx-pair? _%tl1431814551%_) + (let ((_%e1431914554%_ + (gx#syntax-e _%tl1431814551%_))) + (let ((_%tl1432114561%_ (let () (declare (not safe)) - (##cdr _%e1428314518%_))) - (_%hd1428414522%_ + (##cdr _%e1431914554%_))) + (_%hd1432014558%_ (let () (declare (not safe)) - (##car _%e1428314518%_)))) - (if (gx#stx-null? _%tl1428514525%_) - (_%__match1995519956%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1428314518%_ - _%hd1428414522%_ - _%tl1428514525%_) - (if (gx#stx-pair? _%hd1428114512%_) - (let ((_%e1429414452%_ + (##car _%e1431914554%_)))) + (if (gx#stx-null? _%tl1432114561%_) + (_%__match1999119992%_ + _%e1431314534%_ + _%hd1431414538%_ + _%tl1431514541%_ + _%e1431614544%_ + _%hd1431714548%_ + _%tl1431814551%_ + _%e1431914554%_ + _%hd1432014558%_ + _%tl1432114561%_) + (if (gx#stx-pair? _%hd1431714548%_) + (let ((_%e1433014488%_ (gx#syntax-e - _%hd1428114512%_))) - (let ((_%tl1429614459%_ + _%hd1431714548%_))) + (let ((_%tl1433214495%_ (let () (declare (not safe)) - (##cdr _%e1429414452%_))) - (_%hd1429514456%_ + (##cdr _%e1433014488%_))) + (_%hd1433114492%_ (let () (declare (not safe)) - (##car _%e1429414452%_)))) + (##car _%e1433014488%_)))) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1431814551%_) + (let ((_%__splice1996919970%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1431814551%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1435014402%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1993319934%_ '1))) - (_%target1431214363%_ + (##vector-ref _%__splice1996919970%_ '1))) + (_%target1434814399%_ (let () (declare (not safe)) - (##vector-ref _%__splice1993319934%_ '0)))) - (if (gx#stx-null? _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) - (let () (declare (not safe)) (_%g1427314326%_))))) - (let () (declare (not safe)) (_%g1427314326%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1427314326%_)))))) - (if (gx#stx-pair? _%hd1428114512%_) - (let ((_%e1429414452%_ - (gx#syntax-e _%hd1428114512%_))) - (let ((_%tl1429614459%_ + (_%g1430914362%_)))))) + (if (gx#stx-pair? _%hd1431714548%_) + (let ((_%e1433014488%_ + (gx#syntax-e _%hd1431714548%_))) + (let ((_%tl1433214495%_ (let () (declare (not safe)) - (##cdr _%e1429414452%_))) - (_%hd1429514456%_ + (##cdr _%e1433014488%_))) + (_%hd1433114492%_ (let () (declare (not safe)) - (##car _%e1429414452%_)))) + (##car _%e1433014488%_)))) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1431814551%_) + (let ((_%__splice1996919970%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1431814551%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1435014402%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '1))) - (_%target1431214363%_ + (_%target1434814399%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice1996919970%_ '0)))) (if (gx#stx-null? - _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + _%tl1435014402%_) + (_%__match2004720048%_ + _%e1431314534%_ + _%hd1431414538%_ + _%tl1431514541%_ + _%e1431614544%_ + _%hd1431714548%_ + _%tl1431814551%_ + _%e1433014488%_ + _%hd1433114492%_ + _%tl1433214495%_ + _%__splice1996919970%_ + _%target1434814399%_ + _%tl1435014402%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1430914362%_))))) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1430914362%_))))) (let () (declare (not safe)) - (_%g1427314326%_)))))) - (let () (declare (not safe)) (_%g1427314326%_))))) - (let () (declare (not safe)) (_%g1427314326%_)))))))) + (_%g1430914362%_)))))) + (let () (declare (not safe)) (_%g1430914362%_))))) + (let () (declare (not safe)) (_%g1430914362%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet| - (lambda (_%stx14550%_) - (letrec ((_%let-bind?14553%_ - (lambda (_%x15476%_) - (let* ((_%__stx2001420015%_ _%x15476%_) - (_%g1548115500%_ + (lambda (_%stx14586%_) + (letrec ((_%let-bind?14589%_ + (lambda (_%x15512%_) + (let* ((_%__stx2005020051%_ _%x15512%_) + (_%g1551715536%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2001420015%_)))) - (let ((_%__kont2001720018%_ - (lambda (_%L15568%_ _%L15570%_) - (_%let-head?14556%_ _%L15570%_))) - (_%__kont2001920020%_ (lambda (_%L15528%_) '#t)) - (_%__kont2002120022%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx2001420015%_) - (let ((_%e1548515548%_ - (gx#syntax-e _%__stx2001420015%_))) - (let ((_%tl1548715555%_ + _%__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%_ (let () (declare (not safe)) - (##cdr _%e1548515548%_))) - (_%hd1548615552%_ + (##cdr _%e1552115584%_))) + (_%hd1552215588%_ (let () (declare (not safe)) - (##car _%e1548515548%_)))) - (if (gx#stx-pair? _%tl1548715555%_) - (let ((_%e1548815558%_ - (gx#syntax-e _%tl1548715555%_))) - (let ((_%tl1549015565%_ + (##car _%e1552115584%_)))) + (if (gx#stx-pair? _%tl1552315591%_) + (let ((_%e1552415594%_ + (gx#syntax-e _%tl1552315591%_))) + (let ((_%tl1552615601%_ (let () (declare (not safe)) - (##cdr _%e1548815558%_))) - (_%hd1548915562%_ + (##cdr _%e1552415594%_))) + (_%hd1552515598%_ (let () (declare (not safe)) - (##car _%e1548815558%_)))) - (if (gx#stx-null? _%tl1549015565%_) - (_%__kont2001720018%_ - _%hd1548915562%_ - _%hd1548615552%_) - (_%__kont2002120022%_)))) - (if (gx#stx-null? _%tl1548715555%_) - (_%__kont2001920020%_ _%hd1548615552%_) - (_%__kont2002120022%_))))) - (_%__kont2002120022%_)))))) - (_%let-bind14555%_ - (lambda (_%x15378%_) - (let* ((_%__stx2004820049%_ _%x15378%_) - (_%g1538215401%_ + (##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%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2004820049%_)))) - (let ((_%__kont2005120052%_ - (lambda (_%L15457%_ _%L15459%_) _%x15378%_)) - (_%__kont2005320054%_ - (lambda (_%L15418%_) + _%__stx2008420085%_)))) + (let ((_%__kont2008720088%_ + (lambda (_%L15493%_ _%L15495%_) _%x15414%_)) + (_%__kont2008920090%_ + (lambda (_%L15454%_) (cons (gx#datum->syntax '#f '_) - (cons _%L15418%_ '()))))) - (if (gx#stx-pair? _%__stx2004820049%_) - (let ((_%e1538615437%_ - (gx#syntax-e _%__stx2004820049%_))) - (let ((_%tl1538815444%_ + (cons _%L15454%_ '()))))) + (if (gx#stx-pair? _%__stx2008420085%_) + (let ((_%e1542215473%_ + (gx#syntax-e _%__stx2008420085%_))) + (let ((_%tl1542415480%_ (let () (declare (not safe)) - (##cdr _%e1538615437%_))) - (_%hd1538715441%_ + (##cdr _%e1542215473%_))) + (_%hd1542315477%_ (let () (declare (not safe)) - (##car _%e1538615437%_)))) - (if (gx#stx-pair? _%tl1538815444%_) - (let ((_%e1538915447%_ - (gx#syntax-e _%tl1538815444%_))) - (let ((_%tl1539115454%_ + (##car _%e1542215473%_)))) + (if (gx#stx-pair? _%tl1542415480%_) + (let ((_%e1542515483%_ + (gx#syntax-e _%tl1542415480%_))) + (let ((_%tl1542715490%_ (let () (declare (not safe)) - (##cdr _%e1538915447%_))) - (_%hd1539015451%_ + (##cdr _%e1542515483%_))) + (_%hd1542615487%_ (let () (declare (not safe)) - (##car _%e1538915447%_)))) - (if (gx#stx-null? _%tl1539115454%_) - (_%__kont2005120052%_ - _%hd1539015451%_ - _%hd1538715441%_) + (##car _%e1542515483%_)))) + (if (gx#stx-null? _%tl1542715490%_) + (_%__kont2008720088%_ + _%hd1542615487%_ + _%hd1542315477%_) (let () (declare (not safe)) - (_%g1538215401%_))))) - (if (gx#stx-null? _%tl1538815444%_) - (_%__kont2005320054%_ _%hd1538715441%_) + (_%g1541815437%_))))) + (if (gx#stx-null? _%tl1542415480%_) + (_%__kont2008920090%_ _%hd1542315477%_) (let () (declare (not safe)) - (_%g1538215401%_)))))) + (_%g1541815437%_)))))) (let () (declare (not safe)) - (_%g1538215401%_))))))) - (_%let-head?14556%_ - (lambda (_%x15318%_) - (let* ((_%__stx2008020081%_ _%x15318%_) - (_%g1532215333%_ + (_%g1541815437%_))))))) + (_%let-head?14592%_ + (lambda (_%x15354%_) + (let* ((_%__stx2011620117%_ _%x15354%_) + (_%g1535815369%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2008020081%_)))) - (let ((_%__kont2008320084%_ - (lambda (_%L15361%_) - (gx#stx-andmap gx#identifier? _%L15361%_))) - (_%__kont2008520086%_ - (lambda () (gx#identifier? _%x15318%_)))) - (if (gx#stx-pair? _%__stx2008020081%_) - (let ((_%e1532515351%_ - (gx#syntax-e _%__stx2008020081%_))) - (let ((_%tl1532715358%_ + _%__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%_ (let () (declare (not safe)) - (##cdr _%e1532515351%_))) - (_%hd1532615355%_ + (##cdr _%e1536115387%_))) + (_%hd1536215391%_ (let () (declare (not safe)) - (##car _%e1532515351%_)))) - (if (gx#identifier? _%hd1532615355%_) + (##car _%e1536115387%_)))) + (if (gx#identifier? _%hd1536215391%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20957_| - _%hd1532615355%_) - (_%__kont2008320084%_ _%tl1532715358%_) - (_%__kont2008520086%_)) - (_%__kont2008520086%_)))) - (_%__kont2008520086%_)))))) - (_%let-head14557%_ - (lambda (_%x15258%_) - (let* ((_%__stx2010020101%_ _%x15258%_) - (_%g1526215273%_ + |gerbil/core/sugar~Sugar-2[1]#_g20993_| + _%hd1536215391%_) + (_%__kont2011920120%_ _%tl1536315394%_) + (_%__kont2012120122%_)) + (_%__kont2012120122%_)))) + (_%__kont2012120122%_)))))) + (_%let-head14593%_ + (lambda (_%x15294%_) + (let* ((_%__stx2013620137%_ _%x15294%_) + (_%g1529815309%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2010020101%_)))) - (let ((_%__kont2010320104%_ - (lambda (_%L15301%_) _%L15301%_)) - (_%__kont2010520106%_ - (lambda () (list _%x15258%_)))) - (if (gx#stx-pair? _%__stx2010020101%_) - (let ((_%e1526515291%_ - (gx#syntax-e _%__stx2010020101%_))) - (let ((_%tl1526715298%_ + _%__stx2013620137%_)))) + (let ((_%__kont2013920140%_ + (lambda (_%L15337%_) _%L15337%_)) + (_%__kont2014120142%_ + (lambda () (list _%x15294%_)))) + (if (gx#stx-pair? _%__stx2013620137%_) + (let ((_%e1530115327%_ + (gx#syntax-e _%__stx2013620137%_))) + (let ((_%tl1530315334%_ (let () (declare (not safe)) - (##cdr _%e1526515291%_))) - (_%hd1526615295%_ + (##cdr _%e1530115327%_))) + (_%hd1530215331%_ (let () (declare (not safe)) - (##car _%e1526515291%_)))) - (if (gx#identifier? _%hd1526615295%_) + (##car _%e1530115327%_)))) + (if (gx#identifier? _%hd1530215331%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20958_| - _%hd1526615295%_) - (_%__kont2010320104%_ _%tl1526715298%_) - (_%__kont2010520106%_)) - (_%__kont2010520106%_)))) - (_%__kont2010520106%_))))))) - (let* ((_%__stx2012020121%_ _%stx14550%_) - (_%g1456114633%_ + |gerbil/core/sugar~Sugar-2[1]#_g20994_| + _%hd1530215331%_) + (_%__kont2013920140%_ _%tl1530315334%_) + (_%__kont2014120142%_)) + (_%__kont2014120142%_)))) + (_%__kont2014120142%_))))))) + (let* ((_%__stx2015620157%_ _%stx14586%_) + (_%g1459714669%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2012020121%_)))) - (let ((_%__kont2012320124%_ - (lambda (_%L15231%_ _%L15233%_ _%L15234%_ _%L15235%_) - (cons _%L15235%_ - (cons (cons (cons _%L15234%_ (cons _%L15233%_ '())) + _%__stx2015620157%_)))) + (let ((_%__kont2015920160%_ + (lambda (_%L15267%_ _%L15269%_ _%L15270%_ _%L15271%_) + (cons _%L15271%_ + (cons (cons (cons _%L15270%_ (cons _%L15269%_ '())) '()) - _%L15231%_)))) - (_%__kont2012520126%_ - (lambda (_%L15153%_ _%L15155%_) + _%L15267%_)))) + (_%__kont2016120162%_ + (lambda (_%L15189%_ _%L15191%_) (cons (gx#datum->syntax '#f 'and) - (cons _%L15155%_ + (cons _%L15191%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1517515178%_ + (foldr (lambda (_%g1521115214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1517615181%_) - (cons _%g1517515178%_ _%g1517615181%_)) + _%g1521215217%_) + (cons _%g1521115214%_ _%g1521215217%_)) '() - _%L15153%_))) + _%L15189%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2012920130%_ - (lambda (_%L14720%_ _%L14722%_) - (let* ((_%g1475314779%_ - (lambda (_%g1475414775%_) + (_%__kont2016520166%_ + (lambda (_%L14756%_ _%L14758%_) + (let* ((_%g1478914815%_ + (lambda (_%g1479014811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1475414775%_))) - (_%g1475215064%_ - (lambda (_%g1475414783%_) - (if (gx#stx-pair/null? _%g1475414783%_) - (let ((_g20959_ + _%g1479014811%_))) + (_%g1478815100%_ + (lambda (_%g1479014819%_) + (if (gx#stx-pair/null? _%g1479014819%_) + (let ((_g20995_ (gx#syntax-split-splice - _%g1475414783%_ + _%g1479014819%_ '0))) (begin - (let ((_g20960_ + (let ((_g20996_ (let () (declare (not safe)) - (if (##values? _g20959_) - (##vector-length _g20959_) + (if (##values? _g20995_) + (##vector-length _g20995_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20960_ 2))) + (##fx= _g20996_ 2))) (error "Context expects 2 values" - _g20960_))) - (let ((_%target1475714786%_ + _g20996_))) + (let ((_%target1479314822%_ (let () (declare (not safe)) - (##vector-ref _g20959_ 0))) - (_%tl1475914789%_ + (##vector-ref _g20995_ 0))) + (_%tl1479514825%_ (let () (declare (not safe)) - (##vector-ref _g20959_ 1)))) - (if (gx#stx-null? _%tl1475914789%_) - (letrec ((_%loop1476014792%_ - (lambda (_%hd1475814796%_ - _%e1476414799%_ - _%hd1476514801%_) + (##vector-ref _g20995_ 1)))) + (if (gx#stx-null? _%tl1479514825%_) + (letrec ((_%loop1479614828%_ + (lambda (_%hd1479414832%_ + _%e1480014835%_ + _%hd1480114837%_) (if (gx#stx-pair? - _%hd1475814796%_) - (let ((_%e1476114804%_ + _%hd1479414832%_) + (let ((_%e1479714840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1475814796%_))) - (let ((_%lp-hd1476214808%_ + (gx#syntax-e _%hd1479414832%_))) + (let ((_%lp-hd1479814844%_ (let () (declare (not safe)) - (##car _%e1476114804%_))) - (_%lp-tl1476314811%_ + (##car _%e1479714840%_))) + (_%lp-tl1479914847%_ (let () (declare (not safe)) - (##cdr _%e1476114804%_)))) - (if (gx#stx-pair? _%lp-hd1476214808%_) - (let ((_%e1476814814%_ - (gx#syntax-e _%lp-hd1476214808%_))) - (let ((_%hd1476914818%_ + (##cdr _%e1479714840%_)))) + (if (gx#stx-pair? _%lp-hd1479814844%_) + (let ((_%e1480414850%_ + (gx#syntax-e _%lp-hd1479814844%_))) + (let ((_%hd1480514854%_ (let () (declare (not safe)) - (##car _%e1476814814%_))) - (_%tl1477014821%_ + (##car _%e1480414850%_))) + (_%tl1480614857%_ (let () (declare (not safe)) - (##cdr _%e1476814814%_)))) - (if (gx#stx-pair? _%tl1477014821%_) - (let ((_%e1477114824%_ - (gx#syntax-e _%tl1477014821%_))) - (let ((_%hd1477214828%_ + (##cdr _%e1480414850%_)))) + (if (gx#stx-pair? _%tl1480614857%_) + (let ((_%e1480714860%_ + (gx#syntax-e _%tl1480614857%_))) + (let ((_%hd1480814864%_ (let () (declare (not safe)) - (##car _%e1477114824%_))) - (_%tl1477314831%_ + (##car _%e1480714860%_))) + (_%tl1480914867%_ (let () (declare (not safe)) - (##cdr _%e1477114824%_)))) - (if (gx#stx-null? _%tl1477314831%_) - (_%loop1476014792%_ - _%lp-tl1476314811%_ - (cons _%hd1477214828%_ - _%e1476414799%_) - (cons _%hd1476914818%_ - _%hd1476514801%_)) - (_%g1475314779%_ - _%g1475414783%_)))) - (_%g1475314779%_ _%g1475414783%_)))) - (_%g1475314779%_ _%g1475414783%_)))) - (let ((_%e1476614834%_ (reverse _%e1476414799%_)) - (_%hd1476714837%_ (reverse _%hd1476514801%_))) - ((lambda (_%L14840%_ _%L14842%_) - (let* ((_%g1485814875%_ - (lambda (_%g1485914871%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1485914871%_))) - (_%g1485715052%_ - (lambda (_%g1485914879%_) - (if (gx#stx-pair/null? _%g1485914879%_) - (let ((_g20961_ + _%g1489514907%_))) + (_%g1489315088%_ + (lambda (_%g1489514915%_) + (if (gx#stx-pair/null? _%g1489514915%_) + (let ((_g20997_ (gx#syntax-split-splice - _%g1485914879%_ + _%g1489514915%_ '0))) (begin - (let ((_g20962_ + (let ((_g20998_ (let () (declare (not safe)) - (if (##values? _g20961_) + (if (##values? _g20997_) (##vector-length - _g20961_) + _g20997_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20962_ 2))) + (##fx= _g20998_ 2))) (error "Context expects 2 values" - _g20962_))) - (let ((_%target1486114882%_ + _g20998_))) + (let ((_%target1489714918%_ (let () (declare (not safe)) (##vector-ref - _g20961_ + _g20997_ 0))) - (_%tl1486314885%_ + (_%tl1489914921%_ (let () (declare (not safe)) (##vector-ref - _g20961_ + _g20997_ 1)))) (if (gx#stx-null? - _%tl1486314885%_) - (letrec ((_%loop1486414888%_ - (lambda (_%hd1486214892%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e1486814895%_) - (if (gx#stx-pair? _%hd1486214892%_) - (let ((_%e1486514898%_ - (gx#syntax-e _%hd1486214892%_))) - (let ((_%lp-hd1486614902%_ + _%tl1489914921%_) + (letrec ((_%loop1490014924%_ + (lambda (_%hd1489814928%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%$e1490414931%_) + (if (gx#stx-pair? _%hd1489814928%_) + (let ((_%e1490114934%_ + (gx#syntax-e _%hd1489814928%_))) + (let ((_%lp-hd1490214938%_ (let () (declare (not safe)) - (##car _%e1486514898%_))) - (_%lp-tl1486714905%_ + (##car _%e1490114934%_))) + (_%lp-tl1490314941%_ (let () (declare (not safe)) - (##cdr _%e1486514898%_)))) - (_%loop1486414888%_ - _%lp-tl1486714905%_ - (cons _%lp-hd1486614902%_ _%$e1486814895%_)))) - (let ((_%$e1486914908%_ (reverse _%$e1486814895%_))) - ((lambda (_%L14912%_) - (let* ((_%g1492914946%_ - (lambda (_%g1493014942%_) + (##cdr _%e1490114934%_)))) + (_%loop1490014924%_ + _%lp-tl1490314941%_ + (cons _%lp-hd1490214938%_ _%$e1490414931%_)))) + (let ((_%$e1490514944%_ (reverse _%$e1490414931%_))) + ((lambda (_%L14948%_) + (let* ((_%g1496514982%_ + (lambda (_%g1496614978%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1493014942%_))) - (_%g1492815040%_ - (lambda (_%g1493014950%_) + _%g1496614978%_))) + (_%g1496415076%_ + (lambda (_%g1496614986%_) (if (gx#stx-pair/null? - _%g1493014950%_) - (let ((_g20963_ + _%g1496614986%_) + (let ((_g20999_ (gx#syntax-split-splice - _%g1493014950%_ + _%g1496614986%_ '0))) (begin - (let ((_g20964_ + (let ((_g21000_ (let () (declare (not safe)) (if (##values? - _g20963_) + _g20999_) (##vector-length - _g20963_) + _g20999_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20964_ + (##fx= _g21000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20964_))) + (error "Context expects 2 values" _g21000_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1493214953%_ + (let ((_%target1496814989%_ (let () (declare (not safe)) (##vector-ref - _g20963_ + _g20999_ 0))) - (_%tl1493414956%_ + (_%tl1497014992%_ (let () (declare (not safe)) (##vector-ref - _g20963_ + _g20999_ 1)))) (if (gx#stx-null? - _%tl1493414956%_) - (letrec ((_%loop1493514959%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1493314963%_ _%hd-bind1493914966%_) - (if (gx#stx-pair? _%hd1493314963%_) - (let ((_%e1493614969%_ - (gx#syntax-e _%hd1493314963%_))) - (let ((_%lp-hd1493714973%_ + _%tl1497014992%_) + (letrec ((_%loop1497114995%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1496914999%_ _%hd-bind1497515002%_) + (if (gx#stx-pair? _%hd1496914999%_) + (let ((_%e1497215005%_ + (gx#syntax-e _%hd1496914999%_))) + (let ((_%lp-hd1497315009%_ (let () (declare (not safe)) - (##car _%e1493614969%_))) - (_%lp-tl1493814976%_ + (##car _%e1497215005%_))) + (_%lp-tl1497415012%_ (let () (declare (not safe)) - (##cdr _%e1493614969%_)))) - (_%loop1493514959%_ - _%lp-tl1493814976%_ - (cons _%lp-hd1493714973%_ - _%hd-bind1493914966%_)))) - (let ((_%hd-bind1494014979%_ - (reverse _%hd-bind1493914966%_))) - ((lambda (_%L14983%_) + (##cdr _%e1497215005%_)))) + (_%loop1497114995%_ + _%lp-tl1497415012%_ + (cons _%lp-hd1497315009%_ + _%hd-bind1497515002%_)))) + (let ((_%hd-bind1497615015%_ + (reverse _%hd-bind1497515002%_))) + ((lambda (_%L15019%_) (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14840%_ - _%L14912%_) - (foldr (lambda (_%g1500815012%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1500915015%_ - _%g1501015017%_) - (cons (cons (cons _%g1500915015%_ '()) - (cons _%g1500815012%_ '())) - _%g1501015017%_)) + _%L14876%_ + _%L14948%_) + (foldr (lambda (_%g1504415048%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1504515051%_ + _%g1504615053%_) + (cons (cons (cons _%g1504515051%_ '()) + (cons _%g1504415048%_ '())) + _%g1504615053%_)) '() - _%L14840%_ - _%L14912%_)) + _%L14876%_ + _%L14948%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g1500115020%_ + (foldr (lambda (_%g1503715056%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1500215023%_) - (cons _%g1500115020%_ _%g1500215023%_)) + _%g1503815059%_) + (cons _%g1503715056%_ _%g1503815059%_)) (cons (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14912%_ - _%L14983%_) - (foldr (lambda (_%g1500515026%_ - _%g1500615029%_ - _%g1500715031%_) - (cons (cons _%g1500615029%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g1500515026%_ '())) - _%g1500715031%_)) + _%L14948%_ + _%L15019%_) + (foldr (lambda (_%g1504115062%_ + _%g1504215065%_ + _%g1504315067%_) + (cons (cons _%g1504215065%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g1504115062%_ '())) + _%g1504315067%_)) '() - _%L14912%_ - _%L14983%_)) + _%L14948%_ + _%L15019%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g1500315034%_ - _%g1500415037%_) - (cons _%g1500315034%_ - _%g1500415037%_)) + (foldr (lambda (_%g1503915070%_ + _%g1504015073%_) + (cons _%g1503915070%_ + _%g1504015073%_)) '() - _%L14720%_))) + _%L14756%_))) '()) - _%L14912%_)) + _%L14948%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd-bind1494014979%_)))))) - (_%loop1493514959%_ _%target1493214953%_ '())) - (_%g1492914946%_ _%g1493014950%_))))) + _%hd-bind1497615015%_)))))) + (_%loop1497114995%_ _%target1496814989%_ '())) + (_%g1496514982%_ _%g1496614986%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1492914946%_ - _%g1493014950%_))))) - (_%g1492815040%_ + (_%g1496514982%_ + _%g1496614986%_))))) + (_%g1496415076%_ (gx#stx-map - _%let-head14557%_ - (foldr (lambda (_%g1504315046%_ - _%g1504415049%_) - (cons _%g1504315046%_ - _%g1504415049%_)) + _%let-head14593%_ + (foldr (lambda (_%g1507915082%_ + _%g1508015085%_) + (cons _%g1507915082%_ + _%g1508015085%_)) '() - _%L14842%_))))) - _%$e1486914908%_)))))) + _%L14878%_))))) + _%$e1490514944%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1486414888%_ - _%target1486114882%_ + (_%loop1490014924%_ + _%target1489714918%_ '())) - (_%g1485814875%_ - _%g1485914879%_))))) - (_%g1485814875%_ _%g1485914879%_))))) - (_%g1485715052%_ + (_%g1489414911%_ + _%g1489514915%_))))) + (_%g1489414911%_ _%g1489514915%_))))) + (_%g1489315088%_ (gx#gentemps - (foldr (lambda (_%g1505515058%_ _%g1505615061%_) - (cons _%g1505515058%_ _%g1505615061%_)) + (foldr (lambda (_%g1509115094%_ _%g1509215097%_) + (cons _%g1509115094%_ _%g1509215097%_)) '() - _%L14842%_))))) - _%e1476614834%_ - _%hd1476714837%_)))))) + _%L14878%_))))) + _%e1480214870%_ + _%hd1480314873%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1476014792%_ - _%target1475714786%_ + (_%loop1479614828%_ + _%target1479314822%_ '() '())) - (_%g1475314779%_ - _%g1475414783%_))))) - (_%g1475314779%_ _%g1475414783%_))))) - (_%g1475215064%_ + (_%g1478914815%_ + _%g1479014819%_))))) + (_%g1478914815%_ _%g1479014819%_))))) + (_%g1478815100%_ (gx#stx-map - _%let-bind14555%_ - (foldr (lambda (_%g1506715070%_ _%g1506815073%_) - (cons _%g1506715070%_ _%g1506815073%_)) + _%let-bind14591%_ + (foldr (lambda (_%g1510315106%_ _%g1510415109%_) + (cons _%g1510315106%_ _%g1510415109%_)) '() - _%L14722%_))))))) - (let* ((_%__match2021720218%_ - (lambda (_%e1460414640%_ - _%hd1460514644%_ - _%tl1460614647%_ - _%e1460714650%_ - _%hd1460814654%_ - _%tl1460914657%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (letrec ((_%loop1461314666%_ - (lambda (_%hd1461114670%_ _%bind1461714673%_) - (if (gx#stx-pair? _%hd1461114670%_) - (let ((_%e1461414676%_ - (gx#syntax-e _%hd1461114670%_))) - (let ((_%lp-tl1461614683%_ + _%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%_ (let () (declare (not safe)) - (##cdr _%e1461414676%_))) - (_%lp-hd1461514680%_ + (##cdr _%e1465014712%_))) + (_%lp-hd1465114716%_ (let () (declare (not safe)) - (##car _%e1461414676%_)))) - (_%loop1461314666%_ - _%lp-tl1461614683%_ - (cons _%lp-hd1461514680%_ - _%bind1461714673%_)))) - (let ((_%bind1461814686%_ - (reverse _%bind1461714673%_))) + (##car _%e1465014712%_)))) + (_%loop1464914702%_ + _%lp-tl1465214719%_ + (cons _%lp-hd1465114716%_ + _%bind1465314709%_)))) + (let ((_%bind1465414722%_ + (reverse _%bind1465314709%_))) (if (gx#stx-pair/null? - _%tl1460914657%_) - (let ((_%__splice2013320134%_ + _%tl1464514693%_) + (let ((_%__splice2016920170%_ (gx#syntax-split-splice - _%tl1460914657%_ + _%tl1464514693%_ '0))) - (let ((_%tl1462114693%_ + (let ((_%tl1465714729%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013320134%_ + _%__splice2016920170%_ '1))) - (_%target1461914690%_ + (_%target1465514726%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013320134%_ + _%__splice2016920170%_ '0)))) (if (gx#stx-null? - _%tl1462114693%_) - (letrec ((_%loop1462214696%_ - (lambda (_%hd1462014700%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1462614703%_) - (if (gx#stx-pair? _%hd1462014700%_) - (let ((_%e1462314706%_ - (gx#syntax-e _%hd1462014700%_))) - (let ((_%lp-tl1462514713%_ + _%tl1465714729%_) + (letrec ((_%loop1465814732%_ + (lambda (_%hd1465614736%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1466214739%_) + (if (gx#stx-pair? _%hd1465614736%_) + (let ((_%e1465914742%_ + (gx#syntax-e _%hd1465614736%_))) + (let ((_%lp-tl1466114749%_ (let () (declare (not safe)) - (##cdr _%e1462314706%_))) - (_%lp-hd1462414710%_ + (##cdr _%e1465914742%_))) + (_%lp-hd1466014746%_ (let () (declare (not safe)) - (##car _%e1462314706%_)))) - (_%loop1462214696%_ - _%lp-tl1462514713%_ - (cons _%lp-hd1462414710%_ - _%body1462614703%_)))) - (let ((_%body1462714716%_ - (reverse _%body1462614703%_))) - (let ((_%L14720%_ _%body1462714716%_) - (_%L14722%_ _%bind1461814686%_)) + (##car _%e1465914742%_)))) + (_%loop1465814732%_ + _%lp-tl1466114749%_ + (cons _%lp-hd1466014746%_ + _%body1466214739%_)))) + (let ((_%body1466314752%_ + (reverse _%body1466214739%_))) + (let ((_%L14756%_ _%body1466314752%_) + (_%L14758%_ _%bind1465414722%_)) (if (gx#stx-andmap - _%let-bind?14553%_ - (foldr (lambda (_%g1474414747%_ - _%g1474514750%_) - (cons _%g1474414747%_ - _%g1474514750%_)) + _%let-bind?14589%_ + (foldr (lambda (_%g1478014783%_ + _%g1478114786%_) + (cons _%g1478014783%_ + _%g1478114786%_)) '() - _%L14722%_)) - (_%__kont2012920130%_ - _%L14720%_ - _%L14722%_) + _%L14758%_)) + (_%__kont2016520166%_ + _%L14756%_ + _%L14758%_) (let () (declare (not safe)) - (_%g1456114633%_))))))))) - (_%loop1462214696%_ _%target1461914690%_ '())) - (let () (declare (not safe)) (_%g1456114633%_))))) + (_%g1459714669%_))))))))) + (_%loop1465814732%_ _%target1465514726%_ '())) + (let () (declare (not safe)) (_%g1459714669%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1456114633%_)))))))) - (_%loop1461314666%_ _%target1461014660%_ '())))) - (_%__match2019720198%_ - (lambda (_%e1458115083%_ - _%hd1458215087%_ - _%tl1458315090%_ - _%e1458415093%_ - _%hd1458515097%_ - _%tl1458615100%_ - _%e1458715103%_ - _%hd1458815107%_ - _%tl1458915110%_ - _%e1459015113%_ - _%hd1459115117%_ - _%tl1459215120%_ - _%__splice2012720128%_ - _%target1459315123%_ - _%tl1459515126%_) - (letrec ((_%loop1459615129%_ - (lambda (_%hd1459415133%_ _%body1460015136%_) - (if (gx#stx-pair? _%hd1459415133%_) - (let ((_%e1459715139%_ - (gx#syntax-e _%hd1459415133%_))) - (let ((_%lp-tl1459915146%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e1459715139%_))) - (_%lp-hd1459815143%_ + (##cdr _%e1463315175%_))) + (_%lp-hd1463415179%_ (let () (declare (not safe)) - (##car _%e1459715139%_)))) - (_%loop1459615129%_ - _%lp-tl1459915146%_ - (cons _%lp-hd1459815143%_ - _%body1460015136%_)))) - (let ((_%body1460115149%_ - (reverse _%body1460015136%_))) - (_%__kont2012520126%_ - _%body1460115149%_ - _%hd1459115117%_)))))) - (_%loop1459615129%_ _%target1459315123%_ '())))) - (_%__match2016120162%_ - (lambda (_%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%e1457315211%_ - _%hd1457415215%_ - _%tl1457515218%_ - _%e1457615221%_ - _%hd1457715225%_ - _%tl1457815228%_) - (let ((_%L15231%_ _%tl1457215208%_) - (_%L15233%_ _%hd1457715225%_) - (_%L15234%_ _%hd1457415215%_) - (_%L15235%_ _%hd1456815195%_)) - (if (_%let-head?14556%_ _%L15234%_) - (_%__kont2012320124%_ - _%L15231%_ - _%L15233%_ - _%L15234%_ - _%L15235%_) - (if (gx#stx-pair? _%hd1457415215%_) - (let ((_%e1459015113%_ - (gx#syntax-e _%hd1457415215%_))) - (let ((_%tl1459215120%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1459015113%_))) - (_%hd1459115117%_ + (##cdr _%e1462615149%_))) + (_%hd1462715153%_ (let () (declare (not safe)) - (##car _%e1459015113%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (##car _%e1462615149%_)))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1460715241%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1464814699%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '1))) - (_%target1461014660%_ + (_%target1464614696%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '0)))) (if (gx#stx-null? - _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1459714669%_))))) (let () (declare (not safe)) - (_%g1456114633%_))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (_%g1459714669%_))))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1460715241%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1464814699%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '1))) - (_%target1461014660%_ + (_%target1464614696%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1459714669%_))))) (let () (declare (not safe)) - (_%g1456114633%_))))))))) - (if (gx#stx-pair? _%__stx2012020121%_) - (let ((_%e1456715191%_ (gx#syntax-e _%__stx2012020121%_))) - (let ((_%tl1456915198%_ + (_%g1459714669%_))))))))) + (if (gx#stx-pair? _%__stx2015620157%_) + (let ((_%e1460315227%_ (gx#syntax-e _%__stx2015620157%_))) + (let ((_%tl1460515234%_ (let () (declare (not safe)) - (##cdr _%e1456715191%_))) - (_%hd1456815195%_ + (##cdr _%e1460315227%_))) + (_%hd1460415231%_ (let () (declare (not safe)) - (##car _%e1456715191%_)))) - (if (gx#stx-pair? _%tl1456915198%_) - (let ((_%e1457015201%_ - (gx#syntax-e _%tl1456915198%_))) - (let ((_%tl1457215208%_ + (##car _%e1460315227%_)))) + (if (gx#stx-pair? _%tl1460515234%_) + (let ((_%e1460615237%_ + (gx#syntax-e _%tl1460515234%_))) + (let ((_%tl1460815244%_ (let () (declare (not safe)) - (##cdr _%e1457015201%_))) - (_%hd1457115205%_ + (##cdr _%e1460615237%_))) + (_%hd1460715241%_ (let () (declare (not safe)) - (##car _%e1457015201%_)))) - (if (gx#stx-pair? _%hd1457115205%_) - (let ((_%e1457315211%_ - (gx#syntax-e _%hd1457115205%_))) - (let ((_%tl1457515218%_ + (##car _%e1460615237%_)))) + (if (gx#stx-pair? _%hd1460715241%_) + (let ((_%e1460915247%_ + (gx#syntax-e _%hd1460715241%_))) + (let ((_%tl1461115254%_ (let () (declare (not safe)) - (##cdr _%e1457315211%_))) - (_%hd1457415215%_ + (##cdr _%e1460915247%_))) + (_%hd1461015251%_ (let () (declare (not safe)) - (##car _%e1457315211%_)))) - (if (gx#stx-pair? _%tl1457515218%_) - (let ((_%e1457615221%_ + (##car _%e1460915247%_)))) + (if (gx#stx-pair? _%tl1461115254%_) + (let ((_%e1461215257%_ (gx#syntax-e - _%tl1457515218%_))) - (let ((_%tl1457815228%_ + _%tl1461115254%_))) + (let ((_%tl1461415264%_ (let () (declare (not safe)) - (##cdr _%e1457615221%_))) - (_%hd1457715225%_ + (##cdr _%e1461215257%_))) + (_%hd1461315261%_ (let () (declare (not safe)) - (##car _%e1457615221%_)))) + (##car _%e1461215257%_)))) (if (gx#stx-null? - _%tl1457815228%_) - (_%__match2016120162%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%e1457315211%_ - _%hd1457415215%_ - _%tl1457515218%_ - _%e1457615221%_ - _%hd1457715225%_ - _%tl1457815228%_) + _%tl1461415264%_) + (_%__match2019720198%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%e1460915247%_ + _%hd1461015251%_ + _%tl1461115254%_ + _%e1461215257%_ + _%hd1461315261%_ + _%tl1461415264%_) (if (gx#stx-pair? - _%hd1457415215%_) - (let ((_%e1459015113%_ + _%hd1461015251%_) + (let ((_%e1462615149%_ (gx#syntax-e - _%hd1457415215%_))) - (let ((_%tl1459215120%_ + _%hd1461015251%_))) + (let ((_%tl1462815156%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e1459015113%_))) - (_%hd1459115117%_ + (let () (declare (not safe)) (##cdr _%e1462615149%_))) + (_%hd1462715153%_ (let () (declare (not safe)) - (##car _%e1459015113%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (##car _%e1462615149%_)))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ + (gx#syntax-split-splice _%hd1460715241%_ '0))) + (let ((_%tl1464814699%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2016720168%_ '1))) + (_%target1464614696%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (##vector-ref _%__splice2016720168%_ '0)))) + (if (gx#stx-null? _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (_%g1459714669%_))))) + (let () (declare (not safe)) (_%g1459714669%_))))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ + (gx#syntax-split-splice _%hd1460715241%_ '0))) + (let ((_%tl1464814699%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2016720168%_ '1))) + (_%target1464614696%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (let () (declare (not safe)) (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd1457415215%_) - (let ((_%e1459015113%_ + (##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%_ (gx#syntax-e - _%hd1457415215%_))) - (let ((_%tl1459215120%_ + _%hd1461015251%_))) + (let ((_%tl1462815156%_ (let () (declare (not safe)) - (##cdr _%e1459015113%_))) - (_%hd1459115117%_ + (##cdr _%e1462615149%_))) + (_%hd1462715153%_ (let () (declare (not safe)) - (##car _%e1459015113%_)))) + (##car _%e1462615149%_)))) (if (gx#stx-null? - _%tl1459215120%_) + _%tl1462815156%_) (if (gx#stx-null? - _%tl1457515218%_) + _%tl1461115254%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl1457215208%_) - (let ((_%__splice2012720128%_ - (gx#syntax-split-splice _%tl1457215208%_ '0))) - (let ((_%tl1459515126%_ + _%tl1460815244%_) + (let ((_%__splice2016320164%_ + (gx#syntax-split-splice _%tl1460815244%_ '0))) + (let ((_%tl1463115162%_ (let () (declare (not safe)) - (##vector-ref _%__splice2012720128%_ '1))) - (_%target1459315123%_ + (##vector-ref _%__splice2016320164%_ '1))) + (_%target1462915159%_ (let () (declare (not safe)) - (##vector-ref _%__splice2012720128%_ '0)))) - (if (gx#stx-null? _%tl1459515126%_) - (_%__match2019720198%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%e1457315211%_ - _%hd1457415215%_ - _%tl1457515218%_ - _%e1459015113%_ - _%hd1459115117%_ - _%tl1459215120%_ - _%__splice2012720128%_ - _%target1459315123%_ - _%tl1459515126%_) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (##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%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1460715241%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1464814699%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '1))) - (_%target1461014660%_ + (_%target1464614696%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1459714669%_))))) (let () (declare (not safe)) - (_%g1456114633%_)))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (_%g1459714669%_)))))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1460715241%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1464814699%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '1))) - (_%target1461014660%_ + (_%target1464614696%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (_%g1459714669%_))))) + (let () (declare (not safe)) (_%g1459714669%_)))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ + (gx#syntax-split-splice _%hd1460715241%_ '0))) + (let ((_%tl1464814699%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2016720168%_ '1))) + (_%target1464614696%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (##vector-ref _%__splice2016720168%_ '0)))) + (if (gx#stx-null? _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (_%g1459714669%_))))) + (let () (declare (not safe)) (_%g1459714669%_)))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ + (gx#syntax-split-splice _%hd1460715241%_ '0))) + (let ((_%tl1464814699%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2016720168%_ '1))) + (_%target1464614696%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (let () (declare (not safe)) (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_)))))) + (##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/null? - _%hd1457115205%_) - (let ((_%__splice2013120132%_ + _%hd1460715241%_) + (let ((_%__splice2016720168%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1460715241%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1464814699%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2016720168%_ '1))) + (_%target1464614696%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (let () (declare (not safe)) (_%g1456114633%_))))) + (##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)) - (_%g1456114633%_))))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (_%g1459714669%_))))))) + (if (gx#stx-pair/null? _%hd1460715241%_) + (let ((_%__splice2016720168%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1460715241%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1464814699%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '1))) - (_%target1461014660%_ + (_%target1464614696%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1464814699%_) + (_%__match2025320254%_ + _%e1460315227%_ + _%hd1460415231%_ + _%tl1460515234%_ + _%e1460615237%_ + _%hd1460715241%_ + _%tl1460815244%_ + _%__splice2016720168%_ + _%target1464614696%_ + _%tl1464814699%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1459714669%_))))) (let () (declare (not safe)) - (_%g1456114633%_)))))) - (let () (declare (not safe)) (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_))))))))) + (_%g1459714669%_)))))) + (let () (declare (not safe)) (_%g1459714669%_))))) + (let () (declare (not safe)) (_%g1459714669%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet*| - (lambda (_%$stx15593%_) - (let* ((_%__stx2022020221%_ _%$stx15593%_) - (_%g1559915650%_ + (lambda (_%$stx15629%_) + (let* ((_%__stx2025620257%_ _%$stx15629%_) + (_%g1563515686%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2022020221%_)))) - (let ((_%__kont2022320224%_ (lambda () '#t)) - (_%__kont2022520226%_ - (lambda (_%L15808%_) + _%__stx2025620257%_)))) + (let ((_%__kont2025920260%_ (lambda () '#t)) + (_%__kont2026120262%_ + (lambda (_%L15844%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1582415827%_ _%g1582515830%_) - (cons _%g1582415827%_ _%g1582515830%_)) + (foldr (lambda (_%g1586015863%_ _%g1586115866%_) + (cons _%g1586015863%_ _%g1586115866%_)) '() - _%L15808%_))))) - (_%__kont2022920230%_ - (lambda (_%L15717%_ _%L15719%_ _%L15720%_ _%L15721%_) + _%L15844%_))))) + (_%__kont2026520266%_ + (lambda (_%L15753%_ _%L15755%_ _%L15756%_ _%L15757%_) (cons (gx#datum->syntax '#f 'alet) - (cons (cons _%L15720%_ '()) - (cons (cons _%L15721%_ - (cons _%L15719%_ - (foldr (lambda (_%g1574215745%_ + (cons (cons _%L15756%_ '()) + (cons (cons _%L15757%_ + (cons _%L15755%_ + (foldr (lambda (_%g1577815781%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1574315748%_) - (cons _%g1574215745%_ _%g1574315748%_)) + _%g1577915784%_) + (cons _%g1577815781%_ _%g1577915784%_)) '() - _%L15717%_))) + _%L15753%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match2029720298%_ - (lambda (_%e1562715657%_ - _%hd1562815661%_ - _%tl1562915664%_ - _%e1563015667%_ - _%hd1563115671%_ - _%tl1563215674%_ - _%e1563315677%_ - _%hd1563415681%_ - _%tl1563515684%_ - _%__splice2023120232%_ - _%target1563615687%_ - _%tl1563815690%_) - (letrec ((_%loop1563915693%_ - (lambda (_%hd1563715697%_ _%body1564315700%_) - (if (gx#stx-pair? _%hd1563715697%_) - (let ((_%e1564015703%_ - (gx#syntax-e _%hd1563715697%_))) - (let ((_%lp-tl1564215710%_ + (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 () (declare (not safe)) - (##cdr _%e1564015703%_))) - (_%lp-hd1564115707%_ + (##cdr _%e1567615739%_))) + (_%lp-hd1567715743%_ (let () (declare (not safe)) - (##car _%e1564015703%_)))) - (_%loop1563915693%_ - _%lp-tl1564215710%_ - (cons _%lp-hd1564115707%_ - _%body1564315700%_)))) - (let ((_%body1564415713%_ - (reverse _%body1564315700%_))) - (_%__kont2022920230%_ - _%body1564415713%_ - _%tl1563515684%_ - _%hd1563415681%_ - _%hd1562815661%_)))))) - (_%loop1563915693%_ _%target1563615687%_ '())))) - (_%__match2027120272%_ - (lambda (_%e1560815758%_ - _%hd1560915762%_ - _%tl1561015765%_ - _%e1561115768%_ - _%hd1561215772%_ - _%tl1561315775%_ - _%__splice2022720228%_ - _%target1561415778%_ - _%tl1561615781%_) - (letrec ((_%loop1561715784%_ - (lambda (_%hd1561515788%_ _%body1562115791%_) - (if (gx#stx-pair? _%hd1561515788%_) - (let ((_%e1561815794%_ - (gx#syntax-e _%hd1561515788%_))) - (let ((_%lp-tl1562015801%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1561815794%_))) - (_%lp-hd1561915798%_ + (##cdr _%e1565415830%_))) + (_%lp-hd1565515834%_ (let () (declare (not safe)) - (##car _%e1561815794%_)))) - (_%loop1561715784%_ - _%lp-tl1562015801%_ - (cons _%lp-hd1561915798%_ - _%body1562115791%_)))) - (let ((_%body1562215804%_ - (reverse _%body1562115791%_))) - (_%__kont2022520226%_ - _%body1562215804%_)))))) - (_%loop1561715784%_ _%target1561415778%_ '()))))) - (if (gx#stx-pair? _%__stx2022020221%_) - (let ((_%e1560115840%_ (gx#syntax-e _%__stx2022020221%_))) - (let ((_%tl1560315847%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1560115840%_))) - (_%hd1560215844%_ + (##cdr _%e1563715876%_))) + (_%hd1563815880%_ (let () (declare (not safe)) - (##car _%e1560115840%_)))) - (if (gx#stx-pair? _%tl1560315847%_) - (let ((_%e1560415850%_ - (gx#syntax-e _%tl1560315847%_))) - (let ((_%tl1560615857%_ + (##car _%e1563715876%_)))) + (if (gx#stx-pair? _%tl1563915883%_) + (let ((_%e1564015886%_ + (gx#syntax-e _%tl1563915883%_))) + (let ((_%tl1564215893%_ (let () (declare (not safe)) - (##cdr _%e1560415850%_))) - (_%hd1560515854%_ + (##cdr _%e1564015886%_))) + (_%hd1564115890%_ (let () (declare (not safe)) - (##car _%e1560415850%_)))) - (if (gx#stx-null? _%hd1560515854%_) - (if (gx#stx-null? _%tl1560615857%_) - (_%__kont2022320224%_) - (if (gx#stx-pair/null? _%tl1560615857%_) - (let ((_%__splice2022720228%_ + (##car _%e1564015886%_)))) + (if (gx#stx-null? _%hd1564115890%_) + (if (gx#stx-null? _%tl1564215893%_) + (_%__kont2025920260%_) + (if (gx#stx-pair/null? _%tl1564215893%_) + (let ((_%__splice2026320264%_ (gx#syntax-split-splice - _%tl1560615857%_ + _%tl1564215893%_ '0))) - (let ((_%tl1561615781%_ + (let ((_%tl1565215817%_ (let () (declare (not safe)) (##vector-ref - _%__splice2022720228%_ + _%__splice2026320264%_ '1))) - (_%target1561415778%_ + (_%target1565015814%_ (let () (declare (not safe)) (##vector-ref - _%__splice2022720228%_ + _%__splice2026320264%_ '0)))) (if (gx#stx-null? - _%tl1561615781%_) - (_%__match2027120272%_ - _%e1560115840%_ - _%hd1560215844%_ - _%tl1560315847%_ - _%e1560415850%_ - _%hd1560515854%_ - _%tl1560615857%_ - _%__splice2022720228%_ - _%target1561415778%_ - _%tl1561615781%_) + _%tl1565215817%_) + (_%__match2030720308%_ + _%e1563715876%_ + _%hd1563815880%_ + _%tl1563915883%_ + _%e1564015886%_ + _%hd1564115890%_ + _%tl1564215893%_ + _%__splice2026320264%_ + _%target1565015814%_ + _%tl1565215817%_) (let () (declare (not safe)) - (_%g1559915650%_))))) + (_%g1563515686%_))))) (let () (declare (not safe)) - (_%g1559915650%_)))) - (if (gx#stx-pair? _%hd1560515854%_) - (let ((_%e1563315677%_ - (gx#syntax-e _%hd1560515854%_))) - (let ((_%tl1563515684%_ + (_%g1563515686%_)))) + (if (gx#stx-pair? _%hd1564115890%_) + (let ((_%e1566915713%_ + (gx#syntax-e _%hd1564115890%_))) + (let ((_%tl1567115720%_ (let () (declare (not safe)) - (##cdr _%e1563315677%_))) - (_%hd1563415681%_ + (##cdr _%e1566915713%_))) + (_%hd1567015717%_ (let () (declare (not safe)) - (##car _%e1563315677%_)))) + (##car _%e1566915713%_)))) (if (gx#stx-pair/null? - _%tl1560615857%_) - (let ((_%__splice2023120232%_ + _%tl1564215893%_) + (let ((_%__splice2026720268%_ (gx#syntax-split-splice - _%tl1560615857%_ + _%tl1564215893%_ '0))) - (let ((_%tl1563815690%_ + (let ((_%tl1567415726%_ (let () (declare (not safe)) (##vector-ref - _%__splice2023120232%_ + _%__splice2026720268%_ '1))) - (_%target1563615687%_ + (_%target1567215723%_ (let () (declare (not safe)) (##vector-ref - _%__splice2023120232%_ + _%__splice2026720268%_ '0)))) (if (gx#stx-null? - _%tl1563815690%_) - (_%__match2029720298%_ - _%e1560115840%_ - _%hd1560215844%_ - _%tl1560315847%_ - _%e1560415850%_ - _%hd1560515854%_ - _%tl1560615857%_ - _%e1563315677%_ - _%hd1563415681%_ - _%tl1563515684%_ - _%__splice2023120232%_ - _%target1563615687%_ - _%tl1563815690%_) + _%tl1567415726%_) + (_%__match2033320334%_ + _%e1563715876%_ + _%hd1563815880%_ + _%tl1563915883%_ + _%e1564015886%_ + _%hd1564115890%_ + _%tl1564215893%_ + _%e1566915713%_ + _%hd1567015717%_ + _%tl1567115720%_ + _%__splice2026720268%_ + _%target1567215723%_ + _%tl1567415726%_) (let () (declare (not safe)) - (_%g1559915650%_))))) + (_%g1563515686%_))))) (let () (declare (not safe)) - (_%g1559915650%_))))) + (_%g1563515686%_))))) (let () (declare (not safe)) - (_%g1559915650%_)))))) - (let () (declare (not safe)) (_%g1559915650%_))))) - (let () (declare (not safe)) (_%g1559915650%_)))))))) + (_%g1563515686%_)))))) + (let () (declare (not safe)) (_%g1563515686%_))))) + (let () (declare (not safe)) (_%g1563515686%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#@list| - (lambda (_%$stx15870%_) - (let* ((_%__stx2030020301%_ _%$stx15870%_) - (_%g1588115959%_ + (lambda (_%$stx15906%_) + (let* ((_%__stx2033620337%_ _%$stx15906%_) + (_%g1591715995%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2030020301%_)))) - (let ((_%__kont2030320304%_ + _%__stx2033620337%_)))) + (let ((_%__kont2033920340%_ (lambda () (cons (gx#datum->syntax '#f 'quote) (cons '() '())))) - (_%__kont2030520306%_ - (lambda (_%L16290%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L16290%_ '())))) - (_%__kont2030720308%_ - (lambda (_%L16238%_) + (_%__kont2034120342%_ + (lambda (_%L16326%_) + (cons (gx#datum->syntax '#f 'quote) (cons _%L16326%_ '())))) + (_%__kont2034320344%_ + (lambda (_%L16274%_) (cons (gx#datum->syntax '#f 'quasiquote) - (cons _%L16238%_ '())))) - (_%__kont2030920310%_ (lambda (_%L16185%_) _%L16185%_)) - (_%__kont2031120312%_ - (lambda (_%L16127%_ _%L16129%_) _%L16129%_)) - (_%__kont2031320314%_ - (lambda (_%L16069%_ _%L16071%_ _%L16072%_ _%L16073%_) + (cons _%L16274%_ '())))) + (_%__kont2034520346%_ (lambda (_%L16221%_) _%L16221%_)) + (_%__kont2034720348%_ + (lambda (_%L16163%_ _%L16165%_) _%L16165%_)) + (_%__kont2034920350%_ + (lambda (_%L16105%_ _%L16107%_ _%L16108%_ _%L16109%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons (cons _%L16073%_ _%L16069%_) - (cons _%L16072%_ '())))))) - (_%__kont2031520316%_ - (lambda (_%L16015%_ _%L16017%_ _%L16018%_) + (cons (cons _%L16109%_ _%L16105%_) + (cons _%L16108%_ '())))))) + (_%__kont2035120352%_ + (lambda (_%L16051%_ _%L16053%_ _%L16054%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16017%_ - (cons (cons _%L16018%_ _%L16015%_) '()))))) - (_%__kont2031720318%_ (lambda (_%L15976%_) _%L15976%_))) - (let* ((_%__match2043920440%_ - (lambda (_%e1593216039%_ - _%hd1593316043%_ - _%tl1593416046%_ - _%e1593516049%_ - _%hd1593616053%_ - _%tl1593716056%_ - _%e1593816059%_ - _%hd1593916063%_ - _%tl1594016066%_) - (let ((_%L16069%_ _%tl1594016066%_) - (_%L16071%_ _%hd1593916063%_) - (_%L16072%_ _%hd1593616053%_) - (_%L16073%_ _%hd1593316043%_)) - (if (gx#ellipsis? _%L16071%_) - (_%__kont2031320314%_ - _%L16069%_ - _%L16071%_ - _%L16072%_ - _%L16073%_) - (_%__kont2031520316%_ - _%tl1593716056%_ - _%hd1593616053%_ - _%hd1593316043%_))))) - (_%__match2042120422%_ - (lambda (_%e1591916097%_ - _%hd1592016101%_ - _%tl1592116104%_ - _%e1592216107%_ - _%hd1592316111%_ - _%tl1592416114%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (let ((_%L16127%_ _%hd1592616121%_) - (_%L16129%_ _%hd1592316111%_)) - (if (gx#ellipsis? _%L16127%_) - (_%__kont2031120312%_ _%L16127%_ _%L16129%_) - (_%__match2043920440%_ - _%e1591916097%_ - _%hd1592016101%_ - _%tl1592116104%_ - _%e1592216107%_ - _%hd1592316111%_ - _%tl1592416114%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))))) - (if (gx#stx-pair? _%__stx2030020301%_) - (let ((_%e1588316312%_ (gx#syntax-e _%__stx2030020301%_))) - (let ((_%tl1588516319%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e1588316312%_))) - (_%hd1588416316%_ + (##cdr _%e1591916348%_))) + (_%hd1592016352%_ (let () (declare (not safe)) - (##car _%e1588316312%_)))) - (if (gx#stx-null? _%tl1588516319%_) - (_%__kont2030320304%_) - (if (gx#stx-pair? _%tl1588516319%_) - (let ((_%e1589016270%_ - (gx#syntax-e _%tl1588516319%_))) - (let ((_%tl1589216277%_ + (##car _%e1591916348%_)))) + (if (gx#stx-null? _%tl1592116355%_) + (_%__kont2033920340%_) + (if (gx#stx-pair? _%tl1592116355%_) + (let ((_%e1592616306%_ + (gx#syntax-e _%tl1592116355%_))) + (let ((_%tl1592816313%_ (let () (declare (not safe)) - (##cdr _%e1589016270%_))) - (_%hd1589116274%_ + (##cdr _%e1592616306%_))) + (_%hd1592716310%_ (let () (declare (not safe)) - (##car _%e1589016270%_)))) - (if (gx#identifier? _%hd1589116274%_) + (##car _%e1592616306%_)))) + (if (gx#identifier? _%hd1592716310%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20965_| - _%hd1589116274%_) - (if (gx#stx-pair? _%tl1589216277%_) - (let ((_%e1589316280%_ + |gerbil/core/sugar~Sugar-2[1]#_g21001_| + _%hd1592716310%_) + (if (gx#stx-pair? _%tl1592816313%_) + (let ((_%e1592916316%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1589516287%_ + _%tl1592816313%_))) + (let ((_%tl1593116323%_ (let () (declare (not safe)) - (##cdr _%e1589316280%_))) - (_%hd1589416284%_ + (##cdr _%e1592916316%_))) + (_%hd1593016320%_ (let () (declare (not safe)) - (##car _%e1589316280%_)))) + (##car _%e1592916316%_)))) (if (gx#stx-null? - _%tl1589516287%_) - (_%__kont2030520306%_ - _%hd1589416284%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1589316280%_ - _%hd1589416284%_ - _%tl1589516287%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)) + _%tl1593116323%_) + (_%__kont2034120342%_ + _%hd1593016320%_) + (_%__match2047520476%_ + _%e1591916348%_ + _%hd1592016352%_ + _%tl1592116355%_ + _%e1592616306%_ + _%hd1592716310%_ + _%tl1592816313%_ + _%e1592916316%_ + _%hd1593016320%_ + _%tl1593116323%_)))) + (_%__kont2035120352%_ + _%tl1592816313%_ + _%hd1592716310%_ + _%hd1592016352%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20966_| - _%hd1589116274%_) + |gerbil/core/sugar~Sugar-2[1]#_g21002_| + _%hd1592716310%_) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1590316228%_ + _%tl1592816313%_) + (let ((_%e1593916264%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1590516235%_ + _%tl1592816313%_))) + (let ((_%tl1594116271%_ (let () (declare (not safe)) - (##cdr _%e1590316228%_))) - (_%hd1590416232%_ + (##cdr _%e1593916264%_))) + (_%hd1594016268%_ (let () (declare (not safe)) - (##car _%e1590316228%_)))) + (##car _%e1593916264%_)))) (if (gx#stx-null? - _%tl1590516235%_) - (_%__kont2030720308%_ - _%hd1590416232%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1590316228%_ - _%hd1590416232%_ - _%tl1590516235%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)) + _%tl1594116271%_) + (_%__kont2034320344%_ + _%hd1594016268%_) + (_%__match2047520476%_ + _%e1591916348%_ + _%hd1592016352%_ + _%tl1592116355%_ + _%e1592616306%_ + _%hd1592716310%_ + _%tl1592816313%_ + _%e1593916264%_ + _%hd1594016268%_ + _%tl1594116271%_)))) + (_%__kont2035120352%_ + _%tl1592816313%_ + _%hd1592716310%_ + _%hd1592016352%_)) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1592516117%_ + _%tl1592816313%_) + (let ((_%e1596116153%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1592716124%_ + _%tl1592816313%_))) + (let ((_%tl1596316160%_ (let () (declare (not safe)) - (##cdr _%e1592516117%_))) - (_%hd1592616121%_ + (##cdr _%e1596116153%_))) + (_%hd1596216157%_ (let () (declare (not safe)) - (##car _%e1592516117%_)))) + (##car _%e1596116153%_)))) (if (gx#stx-null? - _%tl1592716124%_) - (_%__match2042120422%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)))) - (if (gx#stx-datum? _%hd1589116274%_) - (let ((_%e1591316171%_ - (gx#stx-e _%hd1589116274%_))) - (if (equal? _%e1591316171%_ '::) + _%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%_ '::) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1591416175%_ + _%tl1592816313%_) + (let ((_%e1595016211%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1591616182%_ + _%tl1592816313%_))) + (let ((_%tl1595216218%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1591416175%_))) - (_%hd1591516179%_ - (let () (declare (not safe)) (##car _%e1591416175%_)))) - (if (gx#stx-null? _%tl1591616182%_) - (_%__kont2030920310%_ _%hd1591516179%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1591416175%_ - _%hd1591516179%_ - _%tl1591616182%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)) + (##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%_)) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1592516117%_ + _%tl1592816313%_) + (let ((_%e1596116153%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1592716124%_ + _%tl1592816313%_))) + (let ((_%tl1596316160%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1592516117%_))) - (_%hd1592616121%_ - (let () (declare (not safe)) (##car _%e1592516117%_)))) - (if (gx#stx-null? _%tl1592716124%_) - (_%__match2042120422%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)))) - (if (gx#stx-pair? _%tl1589216277%_) - (let ((_%e1592516117%_ + (##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%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1592716124%_ + _%tl1592816313%_))) + (let ((_%tl1596316160%_ (let () (declare (not safe)) - (##cdr _%e1592516117%_))) - (_%hd1592616121%_ + (##cdr _%e1596116153%_))) + (_%hd1596216157%_ (let () (declare (not safe)) - (##car _%e1592516117%_)))) + (##car _%e1596116153%_)))) (if (gx#stx-null? - _%tl1592716124%_) - (_%__match2042120422%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)))))) - (_%__kont2031720318%_ _%tl1588516319%_))))) - (let () (declare (not safe)) (_%g1588115959%_)))))))) + _%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%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#quasiquote| - (lambda (_%stx16330%_) - (letrec ((_%simple-quote?16333%_ - (lambda (_%e17025%_) - (let* ((_%__stx2046020461%_ _%e17025%_) - (_%g1703317070%_ + (lambda (_%stx16366%_) + (letrec ((_%simple-quote?16369%_ + (lambda (_%e17061%_) + (let* ((_%__stx2049620497%_ _%e17061%_) + (_%g1706917106%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2046020461%_)))) - (let ((_%__kont2046320464%_ (lambda () '#f)) - (_%__kont2046520466%_ (lambda () '#f)) - (_%__kont2046720468%_ - (lambda (_%L17184%_ _%L17186%_) - (if (_%simple-quote?16333%_ _%L17186%_) - (_%simple-quote?16333%_ _%L17184%_) + _%__stx2049620497%_)))) + (let ((_%__kont2049920500%_ (lambda () '#f)) + (_%__kont2050120502%_ (lambda () '#f)) + (_%__kont2050320504%_ + (lambda (_%L17220%_ _%L17222%_) + (if (_%simple-quote?16369%_ _%L17222%_) + (_%simple-quote?16369%_ _%L17220%_) '#f))) - (_%__kont2046920470%_ - (lambda (_%L17145%_) - (_%simple-quote?16333%_ - (foldr (lambda (_%g1715817161%_ - _%g1715917164%_) - (cons _%g1715817161%_ - _%g1715917164%_)) + (_%__kont2050520506%_ + (lambda (_%L17181%_) + (_%simple-quote?16369%_ + (foldr (lambda (_%g1719417197%_ + _%g1719517200%_) + (cons _%g1719417197%_ + _%g1719517200%_)) '() - _%L17145%_)))) - (_%__kont2047320474%_ - (lambda (_%L17092%_) - (_%simple-quote?16333%_ _%L17092%_))) - (_%__kont2047520476%_ (lambda () '#t))) - (let* ((_%g1703117104%_ + _%L17181%_)))) + (_%__kont2050920510%_ + (lambda (_%L17128%_) + (_%simple-quote?16369%_ _%L17128%_))) + (_%__kont2051120512%_ (lambda () '#t))) + (let* ((_%g1706717140%_ (lambda () - (if (gx#stx-box? _%__stx2046020461%_) - (let ((_%e1706417088%_ + (if (gx#stx-box? _%__stx2049620497%_) + (let ((_%e1710017124%_ (unbox (gx#syntax-e - _%__stx2046020461%_)))) - (_%__kont2047320474%_ _%e1706417088%_)) - (_%__kont2047520476%_)))) - (_%__match2053120532%_ - (lambda (_%e1705317111%_ - _%__splice2047120472%_ - _%target1705417115%_ - _%tl1705617118%_) - (letrec ((_%loop1705717121%_ - (lambda (_%hd1705517125%_ - _%e1706117128%_) + _%__stx2049620497%_)))) + (_%__kont2050920510%_ _%e1710017124%_)) + (_%__kont2051120512%_)))) + (_%__match2056720568%_ + (lambda (_%e1708917147%_ + _%__splice2050720508%_ + _%target1709017151%_ + _%tl1709217154%_) + (letrec ((_%loop1709317157%_ + (lambda (_%hd1709117161%_ + _%e1709717164%_) (if (gx#stx-pair? - _%hd1705517125%_) - (let ((_%e1705817131%_ + _%hd1709117161%_) + (let ((_%e1709417167%_ (gx#syntax-e - _%hd1705517125%_))) - (let ((_%lp-tl1706017138%_ + _%hd1709117161%_))) + (let ((_%lp-tl1709617174%_ (let () (declare (not safe)) - (##cdr _%e1705817131%_))) - (_%lp-hd1705917135%_ + (##cdr _%e1709417167%_))) + (_%lp-hd1709517171%_ (let () (declare (not safe)) - (##car _%e1705817131%_)))) - (_%loop1705717121%_ - _%lp-tl1706017138%_ - (cons _%lp-hd1705917135%_ - _%e1706117128%_)))) - (let ((_%e1706217141%_ - (reverse _%e1706117128%_))) - (_%__kont2046920470%_ - _%e1706217141%_)))))) - (_%loop1705717121%_ - _%target1705417115%_ + (##car _%e1709417167%_)))) + (_%loop1709317157%_ + _%lp-tl1709617174%_ + (cons _%lp-hd1709517171%_ + _%e1709717164%_)))) + (let ((_%e1709817177%_ + (reverse _%e1709717164%_))) + (_%__kont2050520506%_ + _%e1709817177%_)))))) + (_%loop1709317157%_ + _%target1709017151%_ '())))) - (_%g1703017167%_ + (_%g1706617203%_ (lambda () - (if (gx#stx-vector? _%__stx2046020461%_) - (let ((_%e1705317111%_ + (if (gx#stx-vector? _%__stx2049620497%_) + (let ((_%e1708917147%_ (vector->list (gx#syntax-e - _%__stx2046020461%_)))) - (if (gx#stx-pair/null? _%e1705317111%_) - (let ((_%__splice2047120472%_ + _%__stx2049620497%_)))) + (if (gx#stx-pair/null? _%e1708917147%_) + (let ((_%__splice2050720508%_ (gx#syntax-split-splice - _%e1705317111%_ + _%e1708917147%_ '0))) - (let ((_%tl1705617118%_ + (let ((_%tl1709217154%_ (let () (declare (not safe)) (##vector-ref - _%__splice2047120472%_ + _%__splice2050720508%_ '1))) - (_%target1705417115%_ + (_%target1709017151%_ (let () (declare (not safe)) (##vector-ref - _%__splice2047120472%_ + _%__splice2050720508%_ '0)))) (if (gx#stx-null? - _%tl1705617118%_) - (_%__match2053120532%_ - _%e1705317111%_ - _%__splice2047120472%_ - _%target1705417115%_ - _%tl1705617118%_) - (_%__kont2047520476%_)))) - (_%__kont2047520476%_))) + _%tl1709217154%_) + (_%__match2056720568%_ + _%e1708917147%_ + _%__splice2050720508%_ + _%target1709017151%_ + _%tl1709217154%_) + (_%__kont2051120512%_)))) + (_%__kont2051120512%_))) (let () (declare (not safe)) - (_%g1703117104%_)))))) - (if (gx#stx-pair? _%__stx2046020461%_) - (let ((_%e1703517235%_ - (gx#syntax-e _%__stx2046020461%_))) - (let ((_%tl1703717242%_ + (_%g1706717140%_)))))) + (if (gx#stx-pair? _%__stx2049620497%_) + (let ((_%e1707117271%_ + (gx#syntax-e _%__stx2049620497%_))) + (let ((_%tl1707317278%_ (let () (declare (not safe)) - (##cdr _%e1703517235%_))) - (_%hd1703617239%_ + (##cdr _%e1707117271%_))) + (_%hd1707217275%_ (let () (declare (not safe)) - (##car _%e1703517235%_)))) - (if (gx#identifier? _%hd1703617239%_) + (##car _%e1707117271%_)))) + (if (gx#identifier? _%hd1707217275%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20967_| - _%hd1703617239%_) - (if (gx#stx-pair? _%tl1703717242%_) - (let ((_%e1703817245%_ + |gerbil/core/sugar~Sugar-2[1]#_g21003_| + _%hd1707217275%_) + (if (gx#stx-pair? _%tl1707317278%_) + (let ((_%e1707417281%_ (gx#syntax-e - _%tl1703717242%_))) - (let ((_%tl1704017252%_ + _%tl1707317278%_))) + (let ((_%tl1707617288%_ (let () (declare (not safe)) - (##cdr _%e1703817245%_))) - (_%hd1703917249%_ + (##cdr _%e1707417281%_))) + (_%hd1707517285%_ (let () (declare (not safe)) - (##car _%e1703817245%_)))) + (##car _%e1707417281%_)))) (if (gx#stx-null? - _%tl1704017252%_) - (_%__kont2046320464%_) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)))) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)) + _%tl1707617288%_) + (_%__kont2049920500%_) + (_%__kont2050320504%_ + _%tl1707317278%_ + _%hd1707217275%_)))) + (_%__kont2050320504%_ + _%tl1707317278%_ + _%hd1707217275%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20968_| - _%hd1703617239%_) + |gerbil/core/sugar~Sugar-2[1]#_g21004_| + _%hd1707217275%_) (if (gx#stx-pair? - _%tl1703717242%_) - (let ((_%e1704417214%_ + _%tl1707317278%_) + (let ((_%e1708017250%_ (gx#syntax-e - _%tl1703717242%_))) - (let ((_%tl1704617221%_ + _%tl1707317278%_))) + (let ((_%tl1708217257%_ (let () (declare (not safe)) - (##cdr _%e1704417214%_))) - (_%hd1704517218%_ + (##cdr _%e1708017250%_))) + (_%hd1708117254%_ (let () (declare (not safe)) - (##car _%e1704417214%_)))) + (##car _%e1708017250%_)))) (if (gx#stx-null? - _%tl1704617221%_) - (_%__kont2046520466%_) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)))) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_))) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)))) + _%tl1708217257%_) + (_%__kont2050120502%_) + (_%__kont2050320504%_ + _%tl1707317278%_ + _%hd1707217275%_)))) + (_%__kont2050320504%_ + _%tl1707317278%_ + _%hd1707217275%_)) + (_%__kont2050320504%_ + _%tl1707317278%_ + _%hd1707217275%_))) + (_%__kont2050320504%_ + _%tl1707317278%_ + _%hd1707217275%_)))) (let () (declare (not safe)) - (_%g1703017167%_)))))))) - (_%generate16335%_ - (lambda (_%e16397%_ _%d16399%_) - (let* ((_%__stx2053820539%_ _%e16397%_) - (_%g1640816466%_ + (_%g1706617203%_)))))))) + (_%generate16371%_ + (lambda (_%e16433%_ _%d16435%_) + (let* ((_%__stx2057420575%_ _%e16433%_) + (_%g1644416502%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2053820539%_)))) - (let ((_%__kont2054120542%_ - (lambda (_%L16977%_) - (let* ((_%g1699016998%_ - (lambda (_%g1699116994%_) + _%__stx2057420575%_)))) + (let ((_%__kont2057720578%_ + (lambda (_%L17013%_) + (let* ((_%g1702617034%_ + (lambda (_%g1702717030%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1699116994%_))) - (_%g1698917017%_ - (lambda (_%g1699117002%_) - ((lambda (_%L17005%_) + _%g1702717030%_))) + (_%g1702517053%_ + (lambda (_%g1702717038%_) + ((lambda (_%L17041%_) (cons (gx#datum->syntax '#f 'list) (cons (cons (gx#datum->syntax '#f @@ -10736,26 +10736,26 @@ '#f 'quasiquote) '())) - (cons _%L17005%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1699117002%_)))) - (_%g1698917017%_ - (_%generate16335%_ - _%L16977%_ - (fx1+ _%d16399%_)))))) - (_%__kont2054320544%_ - (lambda (_%L16906%_) - (if (fxzero? _%d16399%_) - _%L16906%_ - (let* ((_%g1691916927%_ - (lambda (_%g1692016923%_) + (cons _%L17041%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1702717038%_)))) + (_%g1702517053%_ + (_%generate16371%_ + _%L17013%_ + (fx1+ _%d16435%_)))))) + (_%__kont2057920580%_ + (lambda (_%L16942%_) + (if (fxzero? _%d16435%_) + _%L16942%_ + (let* ((_%g1695516963%_ + (lambda (_%g1695616959%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1692016923%_))) - (_%g1691816946%_ - (lambda (_%g1692016931%_) - ((lambda (_%L16934%_) + _%g1695616959%_))) + (_%g1695416982%_ + (lambda (_%g1695616967%_) + ((lambda (_%L16970%_) (cons (gx#datum->syntax '#f 'list) @@ -10764,32 +10764,32 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote) '())) - (cons _%L16934%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1692016931%_)))) - (_%g1691816946%_ - (_%generate16335%_ - _%L16906%_ - (fx1- _%d16399%_))))))) - (_%__kont2054520546%_ - (lambda (_%L16835%_) - (if (fxzero? _%d16399%_) + (cons _%L16970%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1695616967%_)))) + (_%g1695416982%_ + (_%generate16371%_ + _%L16942%_ + (fx1- _%d16435%_))))))) + (_%__kont2058120582%_ + (lambda (_%L16871%_) + (if (fxzero? _%d16435%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) - (cons _%L16835%_ '())))) - (let* ((_%g1684816856%_ - (lambda (_%g1684916852%_) + (cons _%L16871%_ '())))) + (let* ((_%g1688416892%_ + (lambda (_%g1688516888%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1684916852%_))) - (_%g1684716875%_ - (lambda (_%g1684916860%_) - ((lambda (_%L16863%_) + _%g1688516888%_))) + (_%g1688316911%_ + (lambda (_%g1688516896%_) + ((lambda (_%L16899%_) (cons (gx#datum->syntax '#f 'list) @@ -10798,653 +10798,653 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote-splicing) '())) - (cons _%L16863%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1684916860%_)))) - (_%g1684716875%_ - (_%generate16335%_ - _%L16835%_ - (fx1- _%d16399%_))))))) - (_%__kont2054720548%_ - (lambda (_%L16760%_ _%L16762%_) - (let* ((_%g1677716785%_ - (lambda (_%g1677816781%_) + (cons _%L16899%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1688516896%_)))) + (_%g1688316911%_ + (_%generate16371%_ + _%L16871%_ + (fx1- _%d16435%_))))))) + (_%__kont2058320584%_ + (lambda (_%L16796%_ _%L16798%_) + (let* ((_%g1681316821%_ + (lambda (_%g1681416817%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1677816781%_))) - (_%g1677616804%_ - (lambda (_%g1677816789%_) - ((lambda (_%L16792%_) + _%g1681416817%_))) + (_%g1681216840%_ + (lambda (_%g1681416825%_) + ((lambda (_%L16828%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16792%_ - (cons _%L16762%_ + (cons _%L16828%_ + (cons _%L16798%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1677816789%_)))) - (_%g1677616804%_ - (_%generate16335%_ _%L16760%_ _%d16399%_))))) - (_%__kont2054920550%_ - (lambda (_%L16646%_ _%L16648%_) - (let* ((_%g1665916674%_ - (lambda (_%g1666016670%_) + _%g1681416825%_)))) + (_%g1681216840%_ + (_%generate16371%_ _%L16796%_ _%d16435%_))))) + (_%__kont2058520586%_ + (lambda (_%L16682%_ _%L16684%_) + (let* ((_%g1669516710%_ + (lambda (_%g1669616706%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1666016670%_))) - (_%g1665816719%_ - (lambda (_%g1666016678%_) - (if (gx#stx-pair? _%g1666016678%_) - (let ((_%e1666316681%_ + _%g1669616706%_))) + (_%g1669416755%_ + (lambda (_%g1669616714%_) + (if (gx#stx-pair? _%g1669616714%_) + (let ((_%e1669916717%_ (gx#syntax-e - _%g1666016678%_))) - (let ((_%hd1666416685%_ + _%g1669616714%_))) + (let ((_%hd1670016721%_ (let () (declare (not safe)) - (##car _%e1666316681%_))) - (_%tl1666516688%_ + (##car _%e1669916717%_))) + (_%tl1670116724%_ (let () (declare (not safe)) - (##cdr _%e1666316681%_)))) + (##cdr _%e1669916717%_)))) (if (gx#stx-pair? - _%tl1666516688%_) - (let ((_%e1666616691%_ + _%tl1670116724%_) + (let ((_%e1670216727%_ (gx#syntax-e - _%tl1666516688%_))) - (let ((_%hd1666716695%_ + _%tl1670116724%_))) + (let ((_%hd1670316731%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1666616691%_))) - (_%tl1666816698%_ - (let () (declare (not safe)) (##cdr _%e1666616691%_)))) - (if (gx#stx-null? _%tl1666816698%_) - ((lambda (_%L16701%_ _%L16703%_) + (##car _%e1670216727%_))) + (_%tl1670416734%_ + (let () (declare (not safe)) (##cdr _%e1670216727%_)))) + (if (gx#stx-null? _%tl1670416734%_) + ((lambda (_%L16737%_ _%L16739%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16703%_ (cons _%L16701%_ '())))) - _%hd1666716695%_ - _%hd1666416685%_) - (_%g1665916674%_ _%g1666016678%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1665916674%_ - _%g1666016678%_)))) - (_%g1665916674%_ - _%g1666016678%_))))) - (_%g1665816719%_ - (list (_%generate16335%_ - _%L16648%_ - _%d16399%_) - (_%generate16335%_ - _%L16646%_ - _%d16399%_)))))) - (_%__kont2055120552%_ - (lambda (_%L16576%_) - (let* ((_%g1659016598%_ - (lambda (_%g1659116594%_) + (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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1659116594%_))) - (_%g1658916617%_ - (lambda (_%g1659116602%_) - ((lambda (_%L16605%_) + _%g1662716630%_))) + (_%g1662516653%_ + (lambda (_%g1662716638%_) + ((lambda (_%L16641%_) (cons (gx#datum->syntax '#f 'list->vector) - (cons _%L16605%_ '()))) - _%g1659116602%_)))) - (_%g1658916617%_ - (_%generate16335%_ - (foldr (lambda (_%g1662016623%_ - _%g1662116626%_) - (cons _%g1662016623%_ - _%g1662116626%_)) + (cons _%L16641%_ '()))) + _%g1662716638%_)))) + (_%g1662516653%_ + (_%generate16371%_ + (foldr (lambda (_%g1665616659%_ + _%g1665716662%_) + (cons _%g1665616659%_ + _%g1665716662%_)) '() - _%L16576%_) - _%d16399%_))))) - (_%__kont2055520556%_ - (lambda (_%L16494%_) - (let* ((_%g1650416512%_ - (lambda (_%g1650516508%_) + _%L16612%_) + _%d16435%_))))) + (_%__kont2059120592%_ + (lambda (_%L16530%_) + (let* ((_%g1654016548%_ + (lambda (_%g1654116544%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1650516508%_))) - (_%g1650316531%_ - (lambda (_%g1650516516%_) - ((lambda (_%L16519%_) + _%g1654116544%_))) + (_%g1653916567%_ + (lambda (_%g1654116552%_) + ((lambda (_%L16555%_) (cons (gx#datum->syntax '#f 'box) - (cons _%L16519%_ '()))) - _%g1650516516%_)))) - (_%g1650316531%_ - (_%generate16335%_ _%L16494%_ _%d16399%_))))) - (_%__kont2055720558%_ - (lambda (_%L16473%_) + (cons _%L16555%_ '()))) + _%g1654116552%_)))) + (_%g1653916567%_ + (_%generate16371%_ _%L16530%_ _%d16435%_))))) + (_%__kont2059320594%_ + (lambda (_%L16509%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16473%_ '()))))) - (let* ((_%g1640616535%_ + (cons _%L16509%_ '()))))) + (let* ((_%g1644216571%_ (lambda () - (if (gx#stx-box? _%__stx2053820539%_) - (let ((_%e1645916490%_ + (if (gx#stx-box? _%__stx2057420575%_) + (let ((_%e1649516526%_ (unbox (gx#syntax-e - _%__stx2053820539%_)))) - (_%__kont2055520556%_ _%e1645916490%_)) - (_%__kont2055720558%_ - _%__stx2053820539%_)))) - (_%__match2065720658%_ - (lambda (_%e1644816542%_ - _%__splice2055320554%_ - _%target1644916546%_ - _%tl1645116549%_) - (letrec ((_%loop1645216552%_ - (lambda (_%hd1645016556%_ - _%e1645616559%_) + _%__stx2057420575%_)))) + (_%__kont2059120592%_ _%e1649516526%_)) + (_%__kont2059320594%_ + _%__stx2057420575%_)))) + (_%__match2069320694%_ + (lambda (_%e1648416578%_ + _%__splice2058920590%_ + _%target1648516582%_ + _%tl1648716585%_) + (letrec ((_%loop1648816588%_ + (lambda (_%hd1648616592%_ + _%e1649216595%_) (if (gx#stx-pair? - _%hd1645016556%_) - (let ((_%e1645316562%_ + _%hd1648616592%_) + (let ((_%e1648916598%_ (gx#syntax-e - _%hd1645016556%_))) - (let ((_%lp-tl1645516569%_ + _%hd1648616592%_))) + (let ((_%lp-tl1649116605%_ (let () (declare (not safe)) - (##cdr _%e1645316562%_))) - (_%lp-hd1645416566%_ + (##cdr _%e1648916598%_))) + (_%lp-hd1649016602%_ (let () (declare (not safe)) - (##car _%e1645316562%_)))) - (_%loop1645216552%_ - _%lp-tl1645516569%_ - (cons _%lp-hd1645416566%_ - _%e1645616559%_)))) - (let ((_%e1645716572%_ - (reverse _%e1645616559%_))) - (_%__kont2055120552%_ - _%e1645716572%_)))))) - (_%loop1645216552%_ - _%target1644916546%_ + (##car _%e1648916598%_)))) + (_%loop1648816588%_ + _%lp-tl1649116605%_ + (cons _%lp-hd1649016602%_ + _%e1649216595%_)))) + (let ((_%e1649316608%_ + (reverse _%e1649216595%_))) + (_%__kont2058720588%_ + _%e1649316608%_)))))) + (_%loop1648816588%_ + _%target1648516582%_ '())))) - (_%g1640516629%_ + (_%g1644116665%_ (lambda () - (if (gx#stx-vector? _%__stx2053820539%_) - (let ((_%e1644816542%_ + (if (gx#stx-vector? _%__stx2057420575%_) + (let ((_%e1648416578%_ (vector->list (gx#syntax-e - _%__stx2053820539%_)))) - (if (gx#stx-pair/null? _%e1644816542%_) - (let ((_%__splice2055320554%_ + _%__stx2057420575%_)))) + (if (gx#stx-pair/null? _%e1648416578%_) + (let ((_%__splice2058920590%_ (gx#syntax-split-splice - _%e1644816542%_ + _%e1648416578%_ '0))) - (let ((_%tl1645116549%_ + (let ((_%tl1648716585%_ (let () (declare (not safe)) (##vector-ref - _%__splice2055320554%_ + _%__splice2058920590%_ '1))) - (_%target1644916546%_ + (_%target1648516582%_ (let () (declare (not safe)) (##vector-ref - _%__splice2055320554%_ + _%__splice2058920590%_ '0)))) (if (gx#stx-null? - _%tl1645116549%_) - (_%__match2065720658%_ - _%e1644816542%_ - _%__splice2055320554%_ - _%target1644916546%_ - _%tl1645116549%_) - (_%__kont2055720558%_ - _%__stx2053820539%_)))) - (_%__kont2055720558%_ - _%__stx2053820539%_))) + _%tl1648716585%_) + (_%__match2069320694%_ + _%e1648416578%_ + _%__splice2058920590%_ + _%target1648516582%_ + _%tl1648716585%_) + (_%__kont2059320594%_ + _%__stx2057420575%_)))) + (_%__kont2059320594%_ + _%__stx2057420575%_))) (let () (declare (not safe)) - (_%g1640616535%_)))))) - (if (gx#stx-pair? _%__stx2053820539%_) - (let ((_%e1641116957%_ - (gx#syntax-e _%__stx2053820539%_))) - (let ((_%tl1641316964%_ + (_%g1644216571%_)))))) + (if (gx#stx-pair? _%__stx2057420575%_) + (let ((_%e1644716993%_ + (gx#syntax-e _%__stx2057420575%_))) + (let ((_%tl1644917000%_ (let () (declare (not safe)) - (##cdr _%e1641116957%_))) - (_%hd1641216961%_ + (##cdr _%e1644716993%_))) + (_%hd1644816997%_ (let () (declare (not safe)) - (##car _%e1641116957%_)))) - (if (gx#identifier? _%hd1641216961%_) + (##car _%e1644716993%_)))) + (if (gx#identifier? _%hd1644816997%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20969_| - _%hd1641216961%_) - (if (gx#stx-pair? _%tl1641316964%_) - (let ((_%e1641416967%_ + |gerbil/core/sugar~Sugar-2[1]#_g21005_| + _%hd1644816997%_) + (if (gx#stx-pair? _%tl1644917000%_) + (let ((_%e1645017003%_ (gx#syntax-e - _%tl1641316964%_))) - (let ((_%tl1641616974%_ + _%tl1644917000%_))) + (let ((_%tl1645217010%_ (let () (declare (not safe)) - (##cdr _%e1641416967%_))) - (_%hd1641516971%_ + (##cdr _%e1645017003%_))) + (_%hd1645117007%_ (let () (declare (not safe)) - (##car _%e1641416967%_)))) + (##car _%e1645017003%_)))) (if (gx#stx-null? - _%tl1641616974%_) - (_%__kont2054120542%_ - _%hd1641516971%_) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)) + _%tl1645217010%_) + (_%__kont2057720578%_ + _%hd1645117007%_) + (_%__kont2058520586%_ + _%tl1644917000%_ + _%hd1644816997%_)))) + (_%__kont2058520586%_ + _%tl1644917000%_ + _%hd1644816997%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20970_| - _%hd1641216961%_) + |gerbil/core/sugar~Sugar-2[1]#_g21006_| + _%hd1644816997%_) (if (gx#stx-pair? - _%tl1641316964%_) - (let ((_%e1642116896%_ + _%tl1644917000%_) + (let ((_%e1645716932%_ (gx#syntax-e - _%tl1641316964%_))) - (let ((_%tl1642316903%_ + _%tl1644917000%_))) + (let ((_%tl1645916939%_ (let () (declare (not safe)) - (##cdr _%e1642116896%_))) - (_%hd1642216900%_ + (##cdr _%e1645716932%_))) + (_%hd1645816936%_ (let () (declare (not safe)) - (##car _%e1642116896%_)))) + (##car _%e1645716932%_)))) (if (gx#stx-null? - _%tl1642316903%_) - (_%__kont2054320544%_ - _%hd1642216900%_) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)) + _%tl1645916939%_) + (_%__kont2057920580%_ + _%hd1645816936%_) + (_%__kont2058520586%_ + _%tl1644917000%_ + _%hd1644816997%_)))) + (_%__kont2058520586%_ + _%tl1644917000%_ + _%hd1644816997%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20971_| - _%hd1641216961%_) + |gerbil/core/sugar~Sugar-2[1]#_g21007_| + _%hd1644816997%_) (if (gx#stx-pair? - _%tl1641316964%_) - (let ((_%e1642816825%_ + _%tl1644917000%_) + (let ((_%e1646416861%_ (gx#syntax-e - _%tl1641316964%_))) - (let ((_%tl1643016832%_ + _%tl1644917000%_))) + (let ((_%tl1646616868%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1642816825%_))) - (_%hd1642916829%_ - (let () (declare (not safe)) (##car _%e1642816825%_)))) - (if (gx#stx-null? _%tl1643016832%_) - (_%__kont2054520546%_ _%hd1642916829%_) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ _%tl1641316964%_ _%hd1641216961%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (if (gx#stx-pair? _%hd1641216961%_) - (let ((_%e1643616740%_ + (##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%_ (gx#syntax-e - _%hd1641216961%_))) - (let ((_%tl1643816747%_ + _%hd1644816997%_))) + (let ((_%tl1647416783%_ (let () (declare (not safe)) - (##cdr _%e1643616740%_))) - (_%hd1643716744%_ + (##cdr _%e1647216776%_))) + (_%hd1647316780%_ (let () (declare (not safe)) - (##car _%e1643616740%_)))) + (##car _%e1647216776%_)))) (if (gx#identifier? - _%hd1643716744%_) + _%hd1647316780%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20972_| - _%hd1643716744%_) + |gerbil/core/sugar~Sugar-2[1]#_g21008_| + _%hd1647316780%_) (if (gx#stx-pair? - _%tl1643816747%_) - (let ((_%e1643916750%_ + _%tl1647416783%_) + (let ((_%e1647516786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1643816747%_))) - (let ((_%tl1644116757%_ + (gx#syntax-e _%tl1647416783%_))) + (let ((_%tl1647716793%_ (let () (declare (not safe)) - (##cdr _%e1643916750%_))) - (_%hd1644016754%_ + (##cdr _%e1647516786%_))) + (_%hd1647616790%_ (let () (declare (not safe)) - (##car _%e1643916750%_)))) - (if (gx#stx-null? _%tl1644116757%_) - (if (fxzero? _%d16399%_) - (let ((_%L16760%_ _%tl1641316964%_) - (_%L16762%_ _%hd1644016754%_)) - (_%__kont2054720548%_ _%L16760%_ _%L16762%_)) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ _%tl1641316964%_ _%hd1641216961%_)) - (_%__kont2054920550%_ _%tl1641316964%_ _%hd1641216961%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_))))) + (##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%_))))) (let () (declare (not safe)) - (_%g1640516629%_))))))))) - (let* ((_%g1633716351%_ - (lambda (_%g1633816347%_) + (_%g1644116665%_))))))))) + (let* ((_%g1637316387%_ + (lambda (_%g1637416383%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1633816347%_))) - (_%g1633616393%_ - (lambda (_%g1633816355%_) - (if (gx#stx-pair? _%g1633816355%_) - (let ((_%e1634016358%_ (gx#syntax-e _%g1633816355%_))) - (let ((_%hd1634116362%_ + _%g1637416383%_))) + (_%g1637216429%_ + (lambda (_%g1637416391%_) + (if (gx#stx-pair? _%g1637416391%_) + (let ((_%e1637616394%_ (gx#syntax-e _%g1637416391%_))) + (let ((_%hd1637716398%_ (let () (declare (not safe)) - (##car _%e1634016358%_))) - (_%tl1634216365%_ + (##car _%e1637616394%_))) + (_%tl1637816401%_ (let () (declare (not safe)) - (##cdr _%e1634016358%_)))) - (if (gx#stx-pair? _%tl1634216365%_) - (let ((_%e1634316368%_ - (gx#syntax-e _%tl1634216365%_))) - (let ((_%hd1634416372%_ + (##cdr _%e1637616394%_)))) + (if (gx#stx-pair? _%tl1637816401%_) + (let ((_%e1637916404%_ + (gx#syntax-e _%tl1637816401%_))) + (let ((_%hd1638016408%_ (let () (declare (not safe)) - (##car _%e1634316368%_))) - (_%tl1634516375%_ + (##car _%e1637916404%_))) + (_%tl1638116411%_ (let () (declare (not safe)) - (##cdr _%e1634316368%_)))) - (if (gx#stx-null? _%tl1634516375%_) - ((lambda (_%L16378%_) - (if (_%simple-quote?16333%_ - _%L16378%_) + (##cdr _%e1637916404%_)))) + (if (gx#stx-null? _%tl1638116411%_) + ((lambda (_%L16414%_) + (if (_%simple-quote?16369%_ + _%L16414%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16378%_ '())) - (_%generate16335%_ - _%L16378%_ + (cons _%L16414%_ '())) + (_%generate16371%_ + _%L16414%_ '0))) - _%hd1634416372%_) - (_%g1633716351%_ _%g1633816355%_)))) - (_%g1633716351%_ _%g1633816355%_)))) - (_%g1633716351%_ _%g1633816355%_))))) - (_%g1633616393%_ _%stx16330%_))))) + _%hd1638016408%_) + (_%g1637316387%_ _%g1637416391%_)))) + (_%g1637316387%_ _%g1637416391%_)))) + (_%g1637316387%_ _%g1637416391%_))))) + (_%g1637216429%_ _%stx16366%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#delay| - (lambda (_%$stx17265%_) - (let* ((_%__stx2066420665%_ _%$stx17265%_) - (_%g1727017291%_ + (lambda (_%$stx17301%_) + (let* ((_%__stx2070020701%_ _%$stx17301%_) + (_%g1730617327%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2066420665%_)))) - (let ((_%__kont2066720668%_ - (lambda (_%L17359%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17359%_ '())))) - (_%__kont2066920670%_ - (lambda (_%L17318%_) + _%__stx2070020701%_)))) + (let ((_%__kont2070320704%_ + (lambda (_%L17395%_) + (cons (gx#datum->syntax '#f 'quote) (cons _%L17395%_ '())))) + (_%__kont2070520706%_ + (lambda (_%L17354%_) (cons (gx#datum->syntax '#f 'make-promise) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons '() (cons _%L17318%_ '()))) + (cons '() (cons _%L17354%_ '()))) '()))))) - (let ((_%__match2068520686%_ - (lambda (_%e1727317339%_ - _%hd1727417343%_ - _%tl1727517346%_ - _%e1727617349%_ - _%hd1727717353%_ - _%tl1727817356%_) - (let ((_%L17359%_ _%hd1727717353%_)) - (if (gx#stx-datum? _%L17359%_) - (_%__kont2066720668%_ _%L17359%_) - (_%__kont2066920670%_ _%hd1727717353%_)))))) - (if (gx#stx-pair? _%__stx2066420665%_) - (let ((_%e1727317339%_ (gx#syntax-e _%__stx2066420665%_))) - (let ((_%tl1727517346%_ + (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 () (declare (not safe)) - (##cdr _%e1727317339%_))) - (_%hd1727417343%_ + (##cdr _%e1730917375%_))) + (_%hd1731017379%_ (let () (declare (not safe)) - (##car _%e1727317339%_)))) - (if (gx#stx-pair? _%tl1727517346%_) - (let ((_%e1727617349%_ - (gx#syntax-e _%tl1727517346%_))) - (let ((_%tl1727817356%_ + (##car _%e1730917375%_)))) + (if (gx#stx-pair? _%tl1731117382%_) + (let ((_%e1731217385%_ + (gx#syntax-e _%tl1731117382%_))) + (let ((_%tl1731417392%_ (let () (declare (not safe)) - (##cdr _%e1727617349%_))) - (_%hd1727717353%_ + (##cdr _%e1731217385%_))) + (_%hd1731317389%_ (let () (declare (not safe)) - (##car _%e1727617349%_)))) - (if (gx#stx-null? _%tl1727817356%_) - (_%__match2068520686%_ - _%e1727317339%_ - _%hd1727417343%_ - _%tl1727517346%_ - _%e1727617349%_ - _%hd1727717353%_ - _%tl1727817356%_) + (##car _%e1731217385%_)))) + (if (gx#stx-null? _%tl1731417392%_) + (_%__match2072120722%_ + _%e1730917375%_ + _%hd1731017379%_ + _%tl1731117382%_ + _%e1731217385%_ + _%hd1731317389%_ + _%tl1731417392%_) (let () (declare (not safe)) - (_%g1727017291%_))))) - (let () (declare (not safe)) (_%g1727017291%_))))) - (let () (declare (not safe)) (_%g1727017291%_)))))))) + (_%g1730617327%_))))) + (let () (declare (not safe)) (_%g1730617327%_))))) + (let () (declare (not safe)) (_%g1730617327%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#cut| - (lambda (_%stx17376%_) - (letrec ((_%generate17379%_ - (lambda (_%rest17498%_) - (let _%lp17501%_ ((_%rest17504%_ _%rest17498%_) - (_%hd17506%_ '()) - (_%body17507%_ '())) - (let* ((_%__stx2072220723%_ _%rest17504%_) - (_%g1751017522%_ + (lambda (_%stx17412%_) + (letrec ((_%generate17415%_ + (lambda (_%rest17534%_) + (let _%lp17537%_ ((_%rest17540%_ _%rest17534%_) + (_%hd17542%_ '()) + (_%body17543%_ '())) + (let* ((_%__stx2075820759%_ _%rest17540%_) + (_%g1754617558%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2072220723%_)))) - (let ((_%__kont2072520726%_ - (lambda (_%L17550%_ _%L17552%_) - (let* ((_%__stx2070220703%_ _%L17552%_) - (_%g1756917576%_ + _%__stx2075820759%_)))) + (let ((_%__kont2076120762%_ + (lambda (_%L17586%_ _%L17588%_) + (let* ((_%__stx2073820739%_ _%L17588%_) + (_%g1760517612%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2070220703%_)))) - (let ((_%__kont2070520706%_ + _%__stx2073820739%_)))) + (let ((_%__kont2074120742%_ (lambda () - (let ((_%arg17612%_ (gx#genident))) - (_%lp17501%_ - _%L17550%_ - (cons _%arg17612%_ _%hd17506%_) - (cons _%arg17612%_ - _%body17507%_))))) - (_%__kont2070720708%_ + (let ((_%arg17648%_ (gx#genident))) + (_%lp17537%_ + _%L17586%_ + (cons _%arg17648%_ _%hd17542%_) + (cons _%arg17648%_ + _%body17543%_))))) + (_%__kont2074320744%_ (lambda () - (if (gx#stx-null? _%L17550%_) - (let ((_%tail17598%_ + (if (gx#stx-null? _%L17586%_) + (let ((_%tail17634%_ (gx#genident))) (values (foldl cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail17598%_ - _%hd17506%_) - (foldl cons (list _%tail17598%_) _%body17507%_) + _%tail17634%_ + _%hd17542%_) + (foldl cons (list _%tail17634%_) _%body17543%_) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; cut ellipsis <...> not in tail position" - _%stx17376%_ - _%L17552%_)))) - (_%__kont2070920710%_ + _%stx17412%_ + _%L17588%_)))) + (_%__kont2074520746%_ (lambda () - (_%lp17501%_ - _%L17550%_ - _%hd17506%_ - (cons _%L17552%_ - _%body17507%_))))) - (if (gx#identifier? _%__stx2070220703%_) + (_%lp17537%_ + _%L17586%_ + _%hd17542%_ + (cons _%L17588%_ + _%body17543%_))))) + (if (gx#identifier? _%__stx2073820739%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20973_| - _%__stx2070220703%_) - (_%__kont2070520706%_) + |gerbil/core/sugar~Sugar-2[1]#_g21009_| + _%__stx2073820739%_) + (_%__kont2074120742%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20974_| - _%__stx2070220703%_) - (_%__kont2070720708%_) - (_%__kont2070920710%_))) - (_%__kont2070920710%_)))))) - (_%__kont2072720728%_ + |gerbil/core/sugar~Sugar-2[1]#_g21010_| + _%__stx2073820739%_) + (_%__kont2074320744%_) + (_%__kont2074520746%_))) + (_%__kont2074520746%_)))))) + (_%__kont2076320764%_ (lambda () - (values (reverse _%hd17506%_) - (reverse _%body17507%_) + (values (reverse _%hd17542%_) + (reverse _%body17543%_) '#f)))) - (if (gx#stx-pair? _%__stx2072220723%_) - (let ((_%e1751417540%_ - (gx#syntax-e _%__stx2072220723%_))) - (let ((_%tl1751617547%_ + (if (gx#stx-pair? _%__stx2075820759%_) + (let ((_%e1755017576%_ + (gx#syntax-e _%__stx2075820759%_))) + (let ((_%tl1755217583%_ (let () (declare (not safe)) - (##cdr _%e1751417540%_))) - (_%hd1751517544%_ + (##cdr _%e1755017576%_))) + (_%hd1755117580%_ (let () (declare (not safe)) - (##car _%e1751417540%_)))) - (_%__kont2072520726%_ - _%tl1751617547%_ - _%hd1751517544%_))) - (_%__kont2072720728%_)))))))) - (let* ((_%g1738217393%_ - (lambda (_%g1738317389%_) + (##car _%e1755017576%_)))) + (_%__kont2076120762%_ + _%tl1755217583%_ + _%hd1755117580%_))) + (_%__kont2076320764%_)))))))) + (let* ((_%g1741817429%_ + (lambda (_%g1741917425%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1738317389%_))) - (_%g1738117494%_ - (lambda (_%g1738317397%_) - (if (gx#stx-pair? _%g1738317397%_) - (let ((_%e1738517400%_ (gx#syntax-e _%g1738317397%_))) - (let ((_%hd1738617404%_ + _%g1741917425%_))) + (_%g1741717530%_ + (lambda (_%g1741917433%_) + (if (gx#stx-pair? _%g1741917433%_) + (let ((_%e1742117436%_ (gx#syntax-e _%g1741917433%_))) + (let ((_%hd1742217440%_ (let () (declare (not safe)) - (##car _%e1738517400%_))) - (_%tl1738717407%_ + (##car _%e1742117436%_))) + (_%tl1742317443%_ (let () (declare (not safe)) - (##cdr _%e1738517400%_)))) - ((lambda (_%L17410%_) - (if (and (gx#stx-list? _%L17410%_) - (not (gx#stx-null? _%L17410%_))) - (let ((_g20975_ - (_%generate17379%_ _%L17410%_))) + (##cdr _%e1742117436%_)))) + ((lambda (_%L17446%_) + (if (and (gx#stx-list? _%L17446%_) + (not (gx#stx-null? _%L17446%_))) + (let ((_g21011_ + (_%generate17415%_ _%L17446%_))) (begin - (let ((_g20976_ + (let ((_g21012_ (let () (declare (not safe)) - (if (##values? _g20975_) - (##vector-length _g20975_) + (if (##values? _g21011_) + (##vector-length _g21011_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20976_ 3))) + (##fx= _g21012_ 3))) (error "Context expects 3 values" - _g20976_))) - (let ((_%hd17423%_ + _g21012_))) + (let ((_%hd17459%_ (let () (declare (not safe)) - (##vector-ref _g20975_ 0))) - (_%body17425%_ + (##vector-ref _g21011_ 0))) + (_%body17461%_ (let () (declare (not safe)) - (##vector-ref _g20975_ 1))) - (_%tail?17426%_ + (##vector-ref _g21011_ 1))) + (_%tail?17462%_ (let () (declare (not safe)) - (##vector-ref _g20975_ 2)))) - (let* ((_%g1742817436%_ - (lambda (_%g1742917432%_) + (##vector-ref _g21011_ 2)))) + (let* ((_%g1746417472%_ + (lambda (_%g1746517468%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1742917432%_))) - (_%g1742717490%_ - (lambda (_%g1742917440%_) - ((lambda (_%L17443%_) - (let* ((_%g1745617464%_ - (lambda (_%g1745717460%_) + _%g1746517468%_))) + (_%g1746317526%_ + (lambda (_%g1746517476%_) + ((lambda (_%L17479%_) + (let* ((_%g1749217500%_ + (lambda (_%g1749317496%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g1745717460%_))) - (_%g1745517486%_ - (lambda (_%g1745717468%_) - ((lambda (_%L17471%_) - (if _%tail?17426%_ + _%g1749317496%_))) + (_%g1749117522%_ + (lambda (_%g1749317504%_) + ((lambda (_%L17507%_) + (if _%tail?17462%_ (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17443%_ + (cons _%L17479%_ (cons (cons (gx#datum->syntax '#f 'apply) - _%L17471%_) + _%L17507%_) '()))) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17443%_ (cons _%L17471%_ '()))))) - _%g1745717468%_)))) - (_%g1745517486%_ _%body17425%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1742917440%_)))) - (_%g1742717490%_ _%hd17423%_))))) - (_%g1738217393%_ _%g1738317397%_))) - _%tl1738717407%_))) - (_%g1738217393%_ _%g1738317397%_))))) - (_%g1738117494%_ _%stx17376%_))))) + (cons _%L17479%_ (cons _%L17507%_ '()))))) + _%g1749317504%_)))) + (_%g1749117522%_ _%body17461%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1746517476%_)))) + (_%g1746317526%_ _%hd17459%_))))) + (_%g1741817429%_ _%g1741917433%_))) + _%tl1742317443%_))) + (_%g1741817429%_ _%g1741917433%_))))) + (_%g1741717530%_ _%stx17412%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#<>| - (lambda (_%$stx17624%_) - (let ((_%g1762717634%_ - (lambda (_%g1762817630%_) + (lambda (_%$stx17660%_) + (let ((_%g1766317670%_ + (lambda (_%g1766417666%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1762817630%_)))) - (_%g1762717634%_ _%$stx17624%_)))) + _%g1766417666%_)))) + (_%g1766317670%_ _%$stx17660%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#<...>| - (lambda (_%$stx17638%_) - (let ((_%g1764117648%_ - (lambda (_%g1764217644%_) + (lambda (_%$stx17674%_) + (let ((_%g1767717684%_ + (lambda (_%g1767817680%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1764217644%_)))) - (_%g1764117648%_ _%$stx17638%_)))))) + _%g1767817680%_)))) + (_%g1767717684%_ _%$stx17674%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~3.scm b/src/bootstrap/gerbil/core/sugar~3.scm index 5c3489ae5..115ee0d3a 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]#_g20983_| + (define |gerbil/core/sugar~Sugar-3[1]#_g21019_| (##structure gx#syntax-quote::t 'quote @@ -9,572 +9,572 @@ '())) (begin (define |gerbil/core/sugar~Sugar-3[:0:]#defsyntax| - (lambda (_%$stx17653%_) - (let* ((_%__stx2073820739%_ _%$stx17653%_) - (_%g1765817697%_ + (lambda (_%$stx17689%_) + (let* ((_%__stx2077420775%_ _%$stx17689%_) + (_%g1769417733%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2073820739%_)))) - (let ((_%__kont2074120742%_ - (lambda (_%L17820%_ _%L17822%_ _%L17823%_) + _%__stx2077420775%_)))) + (let ((_%__kont2077720778%_ + (lambda (_%L17856%_ _%L17858%_ _%L17859%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17823%_ + (cons _%L17859%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L17822%_ - (foldr (lambda (_%g1784217845%_ + (cons _%L17858%_ + (foldr (lambda (_%g1787817881%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1784317848%_) - (cons _%g1784217845%_ _%g1784317848%_)) + _%g1787917884%_) + (cons _%g1787817881%_ _%g1787917884%_)) '() - _%L17820%_))) + _%L17856%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2074520746%_ - (lambda (_%L17734%_ _%L17736%_) + (_%__kont2078120782%_ + (lambda (_%L17770%_ _%L17772%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17736%_ (cons _%L17734%_ '())))))) - (let* ((_%__match2079320794%_ - (lambda (_%e1768317704%_ - _%hd1768417708%_ - _%tl1768517711%_ - _%e1768617714%_ - _%hd1768717718%_ - _%tl1768817721%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) - (let ((_%L17734%_ _%hd1769017728%_) - (_%L17736%_ _%hd1768717718%_)) - (if (gx#identifier? _%L17736%_) - (_%__kont2074520746%_ _%L17734%_ _%L17736%_) - (let () (declare (not safe)) (_%g1765817697%_)))))) - (_%__match2078520786%_ - (lambda (_%e1768317704%_ - _%hd1768417708%_ - _%tl1768517711%_ - _%e1768617714%_ - _%hd1768717718%_ - _%tl1768817721%_) - (if (gx#stx-pair? _%tl1768817721%_) - (let ((_%e1768917724%_ - (gx#syntax-e _%tl1768817721%_))) - (let ((_%tl1769117731%_ + (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%_ (let () (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ + (##cdr _%e1772517760%_))) + (_%hd1772617764%_ (let () (declare (not safe)) - (##car _%e1768917724%_)))) - (if (gx#stx-null? _%tl1769117731%_) - (_%__match2079320794%_ - _%e1768317704%_ - _%hd1768417708%_ - _%tl1768517711%_ - _%e1768617714%_ - _%hd1768717718%_ - _%tl1768817721%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) + (##car _%e1772517760%_)))) + (if (gx#stx-null? _%tl1772717767%_) + (_%__match2082920830%_ + _%e1771917740%_ + _%hd1772017744%_ + _%tl1772117747%_ + _%e1772217750%_ + _%hd1772317754%_ + _%tl1772417757%_ + _%e1772517760%_ + _%hd1772617764%_ + _%tl1772717767%_) (let () (declare (not safe)) - (_%g1765817697%_))))) - (let () (declare (not safe)) (_%g1765817697%_))))) - (_%__match2077320774%_ - (lambda (_%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1766917780%_ - _%hd1767017784%_ - _%tl1767117787%_ - _%__splice2074320744%_ - _%target1767217790%_ - _%tl1767417793%_) - (letrec ((_%loop1767517796%_ - (lambda (_%hd1767317800%_ _%body1767917803%_) - (if (gx#stx-pair? _%hd1767317800%_) - (let ((_%e1767617806%_ - (gx#syntax-e _%hd1767317800%_))) - (let ((_%lp-tl1767817813%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e1767617806%_))) - (_%lp-hd1767717810%_ + (##cdr _%e1771217842%_))) + (_%lp-hd1771317846%_ (let () (declare (not safe)) - (##car _%e1767617806%_)))) - (_%loop1767517796%_ - _%lp-tl1767817813%_ - (cons _%lp-hd1767717810%_ - _%body1767917803%_)))) - (let ((_%body1768017816%_ - (reverse _%body1767917803%_))) - (let ((_%L17820%_ _%body1768017816%_) - (_%L17822%_ _%tl1767117787%_) - (_%L17823%_ _%hd1767017784%_)) - (if (gx#identifier? _%L17823%_) - (_%__kont2074120742%_ - _%L17820%_ - _%L17822%_ - _%L17823%_) - (_%__match2078520786%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_)))))))) - (_%loop1767517796%_ _%target1767217790%_ '()))))) - (if (gx#stx-pair? _%__stx2073820739%_) - (let ((_%e1766317760%_ (gx#syntax-e _%__stx2073820739%_))) - (let ((_%tl1766517767%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e1766317760%_))) - (_%hd1766417764%_ + (##cdr _%e1769917796%_))) + (_%hd1770017800%_ (let () (declare (not safe)) - (##car _%e1766317760%_)))) - (if (gx#stx-pair? _%tl1766517767%_) - (let ((_%e1766617770%_ - (gx#syntax-e _%tl1766517767%_))) - (let ((_%tl1766817777%_ + (##car _%e1769917796%_)))) + (if (gx#stx-pair? _%tl1770117803%_) + (let ((_%e1770217806%_ + (gx#syntax-e _%tl1770117803%_))) + (let ((_%tl1770417813%_ (let () (declare (not safe)) - (##cdr _%e1766617770%_))) - (_%hd1766717774%_ + (##cdr _%e1770217806%_))) + (_%hd1770317810%_ (let () (declare (not safe)) - (##car _%e1766617770%_)))) - (if (gx#stx-pair? _%hd1766717774%_) - (let ((_%e1766917780%_ - (gx#syntax-e _%hd1766717774%_))) - (let ((_%tl1767117787%_ + (##car _%e1770217806%_)))) + (if (gx#stx-pair? _%hd1770317810%_) + (let ((_%e1770517816%_ + (gx#syntax-e _%hd1770317810%_))) + (let ((_%tl1770717823%_ (let () (declare (not safe)) - (##cdr _%e1766917780%_))) - (_%hd1767017784%_ + (##cdr _%e1770517816%_))) + (_%hd1770617820%_ (let () (declare (not safe)) - (##car _%e1766917780%_)))) - (if (gx#stx-pair/null? _%tl1766817777%_) - (let ((_%__splice2074320744%_ + (##car _%e1770517816%_)))) + (if (gx#stx-pair/null? _%tl1770417813%_) + (let ((_%__splice2077920780%_ (gx#syntax-split-splice - _%tl1766817777%_ + _%tl1770417813%_ '0))) - (let ((_%tl1767417793%_ + (let ((_%tl1771017829%_ (let () (declare (not safe)) (##vector-ref - _%__splice2074320744%_ + _%__splice2077920780%_ '1))) - (_%target1767217790%_ + (_%target1770817826%_ (let () (declare (not safe)) (##vector-ref - _%__splice2074320744%_ + _%__splice2077920780%_ '0)))) (if (gx#stx-null? - _%tl1767417793%_) - (_%__match2077320774%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1766917780%_ - _%hd1767017784%_ - _%tl1767117787%_ - _%__splice2074320744%_ - _%target1767217790%_ - _%tl1767417793%_) + _%tl1771017829%_) + (_%__match2080920810%_ + _%e1769917796%_ + _%hd1770017800%_ + _%tl1770117803%_ + _%e1770217806%_ + _%hd1770317810%_ + _%tl1770417813%_ + _%e1770517816%_ + _%hd1770617820%_ + _%tl1770717823%_ + _%__splice2077920780%_ + _%target1770817826%_ + _%tl1771017829%_) (if (gx#stx-pair? - _%tl1766817777%_) - (let ((_%e1768917724%_ + _%tl1770417813%_) + (let ((_%e1772517760%_ (gx#syntax-e - _%tl1766817777%_))) - (let ((_%tl1769117731%_ + _%tl1770417813%_))) + (let ((_%tl1772717767%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ - (let () (declare (not safe)) (##car _%e1768917724%_)))) - (if (gx#stx-null? _%tl1769117731%_) - (_%__match2079320794%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) - (let () (declare (not safe)) (_%g1765817697%_))))) - (let () (declare (not safe)) (_%g1765817697%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl1766817777%_) - (let ((_%e1768917724%_ + (if (gx#stx-pair? _%tl1770417813%_) + (let ((_%e1772517760%_ (gx#syntax-e - _%tl1766817777%_))) - (let ((_%tl1769117731%_ + _%tl1770417813%_))) + (let ((_%tl1772717767%_ (let () (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ + (##cdr _%e1772517760%_))) + (_%hd1772617764%_ (let () (declare (not safe)) - (##car _%e1768917724%_)))) + (##car _%e1772517760%_)))) (if (gx#stx-null? - _%tl1769117731%_) - (_%__match2079320794%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) + _%tl1772717767%_) + (_%__match2082920830%_ + _%e1769917796%_ + _%hd1770017800%_ + _%tl1770117803%_ + _%e1770217806%_ + _%hd1770317810%_ + _%tl1770417813%_ + _%e1772517760%_ + _%hd1772617764%_ + _%tl1772717767%_) (let () (declare (not safe)) - (_%g1765817697%_))))) + (_%g1769417733%_))))) (let () (declare (not safe)) - (_%g1765817697%_)))))) - (if (gx#stx-pair? _%tl1766817777%_) - (let ((_%e1768917724%_ - (gx#syntax-e _%tl1766817777%_))) - (let ((_%tl1769117731%_ + (_%g1769417733%_)))))) + (if (gx#stx-pair? _%tl1770417813%_) + (let ((_%e1772517760%_ + (gx#syntax-e _%tl1770417813%_))) + (let ((_%tl1772717767%_ (let () (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ + (##cdr _%e1772517760%_))) + (_%hd1772617764%_ (let () (declare (not safe)) - (##car _%e1768917724%_)))) - (if (gx#stx-null? _%tl1769117731%_) - (_%__match2079320794%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) + (##car _%e1772517760%_)))) + (if (gx#stx-null? _%tl1772717767%_) + (_%__match2082920830%_ + _%e1769917796%_ + _%hd1770017800%_ + _%tl1770117803%_ + _%e1770217806%_ + _%hd1770317810%_ + _%tl1770417813%_ + _%e1772517760%_ + _%hd1772617764%_ + _%tl1772717767%_) (let () (declare (not safe)) - (_%g1765817697%_))))) + (_%g1769417733%_))))) (let () (declare (not safe)) - (_%g1765817697%_)))))) - (let () (declare (not safe)) (_%g1765817697%_))))) - (let () (declare (not safe)) (_%g1765817697%_)))))))) + (_%g1769417733%_)))))) + (let () (declare (not safe)) (_%g1769417733%_))))) + (let () (declare (not safe)) (_%g1769417733%_)))))))) (define |gerbil/core/sugar~Sugar-3[:0:]#definline| - (lambda (_%stx17856%_) - (let* ((_%g1785917896%_ - (lambda (_%g1786017892%_) + (lambda (_%stx17892%_) + (let* ((_%g1789517932%_ + (lambda (_%g1789617928%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1786017892%_))) - (_%g1785818257%_ - (lambda (_%g1786017900%_) - (if (gx#stx-pair? _%g1786017900%_) - (let ((_%e1786417903%_ (gx#syntax-e _%g1786017900%_))) - (let ((_%hd1786517907%_ + _%g1789617928%_))) + (_%g1789418293%_ + (lambda (_%g1789617936%_) + (if (gx#stx-pair? _%g1789617936%_) + (let ((_%e1790017939%_ (gx#syntax-e _%g1789617936%_))) + (let ((_%hd1790117943%_ (let () (declare (not safe)) - (##car _%e1786417903%_))) - (_%tl1786617910%_ + (##car _%e1790017939%_))) + (_%tl1790217946%_ (let () (declare (not safe)) - (##cdr _%e1786417903%_)))) - (if (gx#stx-pair? _%tl1786617910%_) - (let ((_%e1786717913%_ - (gx#syntax-e _%tl1786617910%_))) - (let ((_%hd1786817917%_ + (##cdr _%e1790017939%_)))) + (if (gx#stx-pair? _%tl1790217946%_) + (let ((_%e1790317949%_ + (gx#syntax-e _%tl1790217946%_))) + (let ((_%hd1790417953%_ (let () (declare (not safe)) - (##car _%e1786717913%_))) - (_%tl1786917920%_ + (##car _%e1790317949%_))) + (_%tl1790517956%_ (let () (declare (not safe)) - (##cdr _%e1786717913%_)))) - (if (gx#stx-pair? _%hd1786817917%_) - (let ((_%e1787017923%_ - (gx#syntax-e _%hd1786817917%_))) - (let ((_%hd1787117927%_ + (##cdr _%e1790317949%_)))) + (if (gx#stx-pair? _%hd1790417953%_) + (let ((_%e1790617959%_ + (gx#syntax-e _%hd1790417953%_))) + (let ((_%hd1790717963%_ (let () (declare (not safe)) - (##car _%e1787017923%_))) - (_%tl1787217930%_ + (##car _%e1790617959%_))) + (_%tl1790817966%_ (let () (declare (not safe)) - (##cdr _%e1787017923%_)))) + (##cdr _%e1790617959%_)))) (if (gx#stx-pair/null? - _%tl1787217930%_) - (let ((_g20977_ + _%tl1790817966%_) + (let ((_g21013_ (gx#syntax-split-splice - _%tl1787217930%_ + _%tl1790817966%_ '0))) (begin - (let ((_g20978_ + (let ((_g21014_ (let () (declare (not safe)) (if (##values? - _g20977_) + _g21013_) (##vector-length - _g20977_) + _g21013_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20978_ 2))) - (error "Context expects 2 values" _g20978_))) + (##fx= _g21014_ 2))) + (error "Context expects 2 values" _g21014_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1787317933%_ + (let ((_%target1790917969%_ (let () (declare (not safe)) (##vector-ref - _g20977_ + _g21013_ 0))) - (_%tl1787517936%_ + (_%tl1791117972%_ (let () (declare (not safe)) (##vector-ref - _g20977_ + _g21013_ 1)))) (if (gx#stx-null? - _%tl1787517936%_) - (letrec ((_%loop1787617939%_ + _%tl1791117972%_) + (letrec ((_%loop1791217975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1787417943%_ _%arg1788017946%_) - (if (gx#stx-pair? _%hd1787417943%_) - (let ((_%e1787717949%_ - (gx#syntax-e _%hd1787417943%_))) - (let ((_%lp-hd1787817953%_ + (lambda (_%hd1791017979%_ _%arg1791617982%_) + (if (gx#stx-pair? _%hd1791017979%_) + (let ((_%e1791317985%_ + (gx#syntax-e _%hd1791017979%_))) + (let ((_%lp-hd1791417989%_ (let () (declare (not safe)) - (##car _%e1787717949%_))) - (_%lp-tl1787917956%_ + (##car _%e1791317985%_))) + (_%lp-tl1791517992%_ (let () (declare (not safe)) - (##cdr _%e1787717949%_)))) - (_%loop1787617939%_ - _%lp-tl1787917956%_ - (cons _%lp-hd1787817953%_ - _%arg1788017946%_)))) - (let ((_%arg1788117959%_ - (reverse _%arg1788017946%_))) - (if (gx#stx-pair/null? _%tl1786917920%_) - (let ((_g20979_ + (##cdr _%e1791317985%_)))) + (_%loop1791217975%_ + _%lp-tl1791517992%_ + (cons _%lp-hd1791417989%_ + _%arg1791617982%_)))) + (let ((_%arg1791717995%_ + (reverse _%arg1791617982%_))) + (if (gx#stx-pair/null? _%tl1790517956%_) + (let ((_g21015_ (gx#syntax-split-splice - _%tl1786917920%_ + _%tl1790517956%_ '0))) (begin - (let ((_g20980_ + (let ((_g21016_ (let () (declare (not safe)) - (if (##values? _g20979_) + (if (##values? _g21015_) (##vector-length - _g20979_) + _g21015_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20980_ 2))) + (##fx= _g21016_ 2))) (error "Context expects 2 values" - _g20980_))) - (let ((_%target1788217963%_ + _g21016_))) + (let ((_%target1791817999%_ (let () (declare (not safe)) - (##vector-ref _g20979_ 0))) - (_%tl1788417966%_ + (##vector-ref _g21015_ 0))) + (_%tl1792018002%_ (let () (declare (not safe)) - (##vector-ref _g20979_ 1)))) - (if (gx#stx-null? _%tl1788417966%_) - (letrec ((_%loop1788517969%_ - (lambda (_%hd1788317973%_ + (##vector-ref _g21015_ 1)))) + (if (gx#stx-null? _%tl1792018002%_) + (letrec ((_%loop1792118005%_ + (lambda (_%hd1791918009%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1788917976%_) - (if (gx#stx-pair? _%hd1788317973%_) - (let ((_%e1788617979%_ (gx#syntax-e _%hd1788317973%_))) - (let ((_%lp-hd1788717983%_ + _%body1792518012%_) + (if (gx#stx-pair? _%hd1791918009%_) + (let ((_%e1792218015%_ (gx#syntax-e _%hd1791918009%_))) + (let ((_%lp-hd1792318019%_ (let () (declare (not safe)) - (##car _%e1788617979%_))) - (_%lp-tl1788817986%_ + (##car _%e1792218015%_))) + (_%lp-tl1792418022%_ (let () (declare (not safe)) - (##cdr _%e1788617979%_)))) - (_%loop1788517969%_ - _%lp-tl1788817986%_ - (cons _%lp-hd1788717983%_ _%body1788917976%_)))) - (let ((_%body1789017989%_ - (reverse _%body1788917976%_))) - ((lambda (_%L17993%_ _%L17995%_ _%L17996%_) - (if (and (gx#identifier? _%L17996%_) + (##cdr _%e1792218015%_)))) + (_%loop1792118005%_ + _%lp-tl1792418022%_ + (cons _%lp-hd1792318019%_ _%body1792518012%_)))) + (let ((_%body1792618025%_ + (reverse _%body1792518012%_))) + ((lambda (_%L18029%_ _%L18031%_ _%L18032%_) + (if (and (gx#identifier? _%L18032%_) (gx#identifier-list? - (foldr (lambda (_%g1802018023%_ - _%g1802118026%_) - (cons _%g1802018023%_ - _%g1802118026%_)) + (foldr (lambda (_%g1805618059%_ + _%g1805718062%_) + (cons _%g1805618059%_ + _%g1805718062%_)) '() - _%L17995%_))) - (let* ((_%g1802918037%_ - (lambda (_%g1803018033%_) + _%L18031%_))) + (let* ((_%g1806518073%_ + (lambda (_%g1806618069%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1803018033%_))) - (_%g1802818253%_ - (lambda (_%g1803018041%_) - ((lambda (_%L18044%_) - (let* ((_%g1805618073%_ - (lambda (_%g1805718069%_) + _%g1806618069%_))) + (_%g1806418289%_ + (lambda (_%g1806618077%_) + ((lambda (_%L18080%_) + (let* ((_%g1809218109%_ + (lambda (_%g1809318105%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1805718069%_))) - (_%g1805518241%_ - (lambda (_%g1805718077%_) + _%g1809318105%_))) + (_%g1809118277%_ + (lambda (_%g1809318113%_) (if (gx#stx-pair/null? - _%g1805718077%_) - (let ((_g20981_ + _%g1809318113%_) + (let ((_g21017_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g1805718077%_ '0))) + (gx#syntax-split-splice _%g1809318113%_ '0))) (begin - (let ((_g20982_ + (let ((_g21018_ (let () (declare (not safe)) - (if (##values? _g20981_) - (##vector-length _g20981_) + (if (##values? _g21017_) + (##vector-length _g21017_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20982_ 2))) - (error "Context expects 2 values" _g20982_))) - (let ((_%target1805918080%_ + (##fx= _g21018_ 2))) + (error "Context expects 2 values" _g21018_))) + (let ((_%target1809518116%_ (let () (declare (not safe)) - (##vector-ref _g20981_ 0))) - (_%tl1806118083%_ + (##vector-ref _g21017_ 0))) + (_%tl1809718119%_ (let () (declare (not safe)) - (##vector-ref _g20981_ 1)))) - (if (gx#stx-null? _%tl1806118083%_) - (letrec ((_%loop1806218086%_ - (lambda (_%hd1806018090%_ - _%xarg1806618093%_) - (if (gx#stx-pair? _%hd1806018090%_) - (let ((_%e1806318096%_ + (##vector-ref _g21017_ 1)))) + (if (gx#stx-null? _%tl1809718119%_) + (letrec ((_%loop1809818122%_ + (lambda (_%hd1809618126%_ + _%xarg1810218129%_) + (if (gx#stx-pair? _%hd1809618126%_) + (let ((_%e1809918132%_ (gx#syntax-e - _%hd1806018090%_))) - (let ((_%lp-hd1806418100%_ + _%hd1809618126%_))) + (let ((_%lp-hd1810018136%_ (let () (declare (not safe)) - (##car _%e1806318096%_))) - (_%lp-tl1806518103%_ + (##car _%e1809918132%_))) + (_%lp-tl1810118139%_ (let () (declare (not safe)) - (##cdr _%e1806318096%_)))) - (_%loop1806218086%_ - _%lp-tl1806518103%_ - (cons _%lp-hd1806418100%_ - _%xarg1806618093%_)))) - (let ((_%xarg1806718106%_ - (reverse _%xarg1806618093%_))) - ((lambda (_%L18110%_) - (let* ((_%g1812718135%_ - (lambda (_%g1812818131%_) + (##cdr _%e1809918132%_)))) + (_%loop1809818122%_ + _%lp-tl1810118139%_ + (cons _%lp-hd1810018136%_ + _%xarg1810218129%_)))) + (let ((_%xarg1810318142%_ + (reverse _%xarg1810218129%_))) + ((lambda (_%L18146%_) + (let* ((_%g1816318171%_ + (lambda (_%g1816418167%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1812818131%_))) - (_%g1812618205%_ - (lambda (_%g1812818139%_) - ((lambda (_%L18142%_) - (let* ((_%g1815518163%_ + _%g1816418167%_))) + (_%g1816218241%_ + (lambda (_%g1816418175%_) + ((lambda (_%L18178%_) + (let* ((_%g1819118199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g1815618159%_) + (lambda (_%g1819218195%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1815618159%_))) - (_%g1815418185%_ - (lambda (_%g1815618167%_) - ((lambda (_%L18170%_) + _%g1819218195%_))) + (_%g1819018221%_ + (lambda (_%g1819218203%_) + ((lambda (_%L18206%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - (cons _%L18170%_ - (cons _%L18142%_ '()))) - (gx#stx-source _%stx17856%_))) - _%g1815618167%_)))) - (_%g1815418185%_ + (cons _%L18206%_ + (cons _%L18178%_ '()))) + (gx#stx-source _%stx17892%_))) + _%g1819218203%_)))) + (_%g1819018221%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L18044%_ - (foldr (lambda (_%g1819018193%_ - _%g1819118196%_) - (cons _%g1819018193%_ - _%g1819118196%_)) + (cons (cons _%L18080%_ + (foldr (lambda (_%g1822618229%_ + _%g1822718232%_) + (cons _%g1822618229%_ + _%g1822718232%_)) '() - _%L17995%_)) - (foldr (lambda (_%g1818818199%_ - _%g1818918202%_) - (cons _%g1818818199%_ - _%g1818918202%_)) + _%L18031%_)) + (foldr (lambda (_%g1822418235%_ + _%g1822518238%_) + (cons _%g1822418235%_ + _%g1822518238%_)) '() - _%L17993%_))) - (gx#stx-source _%stx17856%_))))) - _%g1812818139%_)))) + _%L18029%_))) + (gx#stx-source _%stx17892%_))))) + _%g1816418175%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1812618205%_ + (_%g1816218241%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'defrules) - (cons _%L17996%_ + (cons _%L18032%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '() (cons (cons (cons (gx#datum->syntax '#f '_) - (foldr (lambda (_%g1821418217%_ + (foldr (lambda (_%g1825018253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1821518220%_) - (cons _%g1821418217%_ _%g1821518220%_)) + _%g1825118256%_) + (cons _%g1825018253%_ _%g1825118256%_)) '() - _%L18110%_)) + _%L18146%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g1821218223%_ + (cons (foldr (lambda (_%g1824818259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1821318226%_) - (cons _%g1821218223%_ _%g1821318226%_)) + _%g1824918262%_) + (cons _%g1824818259%_ _%g1824918262%_)) '() - _%L17995%_) - (foldr (lambda (_%g1821018229%_ _%g1821118232%_) - (cons _%g1821018229%_ _%g1821118232%_)) + _%L18031%_) + (foldr (lambda (_%g1824618265%_ _%g1824718268%_) + (cons _%g1824618265%_ _%g1824718268%_)) '() - _%L17993%_))) - (foldr (lambda (_%g1820818235%_ _%g1820918238%_) - (cons _%g1820818235%_ _%g1820918238%_)) + _%L18029%_))) + (foldr (lambda (_%g1824418271%_ _%g1824518274%_) + (cons _%g1824418271%_ _%g1824518274%_)) '() - _%L18110%_)) + _%L18146%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'ref) @@ -587,64 +587,64 @@ 'syntax) (cons (gx#datum->syntax '#f 'ref) '())) '())) - (cons _%L18044%_ '()))) + (cons _%L18080%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (gx#stx-source _%stx17856%_))))) + (gx#stx-source _%stx17892%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%xarg1806718106%_)))))) - (_%loop1806218086%_ _%target1805918080%_ '())) - (_%g1805618073%_ _%g1805718077%_))))) - (_%g1805618073%_ _%g1805718077%_))))) + _%xarg1810318142%_)))))) + (_%loop1809818122%_ _%target1809518116%_ '())) + (_%g1809218109%_ _%g1809318113%_))))) + (_%g1809218109%_ _%g1809318113%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1805518241%_ + (_%g1809118277%_ (gx#gentemps - (foldr (lambda (_%g1824418247%_ + (foldr (lambda (_%g1828018283%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1824518250%_) - (cons _%g1824418247%_ _%g1824518250%_)) + _%g1828118286%_) + (cons _%g1828018283%_ _%g1828118286%_)) '() - _%L17995%_))))) + _%L18031%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1803018041%_)))) - (_%g1802818253%_ + _%g1806618077%_)))) + (_%g1806418289%_ (gx#stx-identifier - _%L17996%_ - _%L17996%_ + _%L18032%_ + _%L18032%_ '"__impl"))) - (_%g1785917896%_ _%g1786017900%_))) - _%body1789017989%_ - _%arg1788117959%_ - _%hd1787117927%_)))))) + (_%g1789517932%_ _%g1789617936%_))) + _%body1792618025%_ + _%arg1791717995%_ + _%hd1790717963%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1788517969%_ - _%target1788217963%_ + (_%loop1792118005%_ + _%target1791817999%_ '())) - (_%g1785917896%_ - _%g1786017900%_))))) - (_%g1785917896%_ _%g1786017900%_))))))) - (_%loop1787617939%_ _%target1787317933%_ '())) - (_%g1785917896%_ _%g1786017900%_))))) + (_%g1789517932%_ + _%g1789617936%_))))) + (_%g1789517932%_ _%g1789617936%_))))))) + (_%loop1791217975%_ _%target1790917969%_ '())) + (_%g1789517932%_ _%g1789617936%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1785917896%_ - _%g1786017900%_)))) - (_%g1785917896%_ _%g1786017900%_)))) - (_%g1785917896%_ _%g1786017900%_)))) - (_%g1785917896%_ _%g1786017900%_))))) - (_%g1785818257%_ _%stx17856%_)))) + (_%g1789517932%_ + _%g1789617936%_)))) + (_%g1789517932%_ _%g1789617936%_)))) + (_%g1789517932%_ _%g1789617936%_)))) + (_%g1789517932%_ _%g1789617936%_))))) + (_%g1789418293%_ _%stx17892%_)))) (define |gerbil/core/sugar~Sugar-3[:0:]#defconst| - (lambda (_%$stx18264%_) - (let* ((_%__stx2079620797%_ _%$stx18264%_) - (_%g1826918305%_ + (lambda (_%$stx18300%_) + (let* ((_%__stx2083220833%_ _%$stx18300%_) + (_%g1830518341%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2079620797%_)))) - (let ((_%__kont2079920800%_ - (lambda (_%L18419%_ _%L18421%_) + _%__stx2083220833%_)))) + (let ((_%__kont2083520836%_ + (lambda (_%L18455%_ _%L18457%_) (cons (gx#datum->syntax '#f 'defrules) - (cons _%L18421%_ + (cons _%L18457%_ (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 _%L18419%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L18455%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont2080120802%_ - (lambda (_%L18342%_ _%L18344%_ _%L18345%_) - (cons _%L18345%_ - (cons _%L18344%_ + (_%__kont2083720838%_ + (lambda (_%L18378%_ _%L18380%_ _%L18381%_) + (cons _%L18381%_ + (cons _%L18380%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L18342%_ '())) + (cons _%L18378%_ '())) '())))))) - (let* ((_%__match2086120862%_ - (lambda (_%e1829118312%_ - _%hd1829218316%_ - _%tl1829318319%_ - _%e1829418322%_ - _%hd1829518326%_ - _%tl1829618329%_ - _%e1829718332%_ - _%hd1829818336%_ - _%tl1829918339%_) - (let ((_%L18342%_ _%hd1829818336%_) - (_%L18344%_ _%hd1829518326%_) - (_%L18345%_ _%hd1829218316%_)) - (if (and (gx#identifier? _%L18344%_) - (gx#stx-datum? _%L18342%_)) - (_%__kont2080120802%_ - _%L18342%_ - _%L18344%_ - _%L18345%_) - (let () (declare (not safe)) (_%g1826918305%_)))))) - (_%__match2084120842%_ - (lambda (_%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_ - _%e1828218399%_ - _%hd1828318403%_ - _%tl1828418406%_ - _%e1828518409%_ - _%hd1828618413%_ - _%tl1828718416%_) - (let ((_%L18419%_ _%hd1828618413%_) - (_%L18421%_ _%hd1827718383%_)) - (if (gx#identifier? _%L18421%_) - (_%__kont2079920800%_ _%L18419%_ _%L18421%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_)))))) - (if (gx#stx-pair? _%__stx2079620797%_) - (let ((_%e1827318369%_ (gx#syntax-e _%__stx2079620797%_))) - (let ((_%tl1827518376%_ + (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 () (declare (not safe)) - (##cdr _%e1827318369%_))) - (_%hd1827418373%_ + (##cdr _%e1830918405%_))) + (_%hd1831018409%_ (let () (declare (not safe)) - (##car _%e1827318369%_)))) - (if (gx#stx-pair? _%tl1827518376%_) - (let ((_%e1827618379%_ - (gx#syntax-e _%tl1827518376%_))) - (let ((_%tl1827818386%_ + (##car _%e1830918405%_)))) + (if (gx#stx-pair? _%tl1831118412%_) + (let ((_%e1831218415%_ + (gx#syntax-e _%tl1831118412%_))) + (let ((_%tl1831418422%_ (let () (declare (not safe)) - (##cdr _%e1827618379%_))) - (_%hd1827718383%_ + (##cdr _%e1831218415%_))) + (_%hd1831318419%_ (let () (declare (not safe)) - (##car _%e1827618379%_)))) - (if (gx#stx-pair? _%tl1827818386%_) - (let ((_%e1827918389%_ - (gx#syntax-e _%tl1827818386%_))) - (let ((_%tl1828118396%_ + (##car _%e1831218415%_)))) + (if (gx#stx-pair? _%tl1831418422%_) + (let ((_%e1831518425%_ + (gx#syntax-e _%tl1831418422%_))) + (let ((_%tl1831718432%_ (let () (declare (not safe)) - (##cdr _%e1827918389%_))) - (_%hd1828018393%_ + (##cdr _%e1831518425%_))) + (_%hd1831618429%_ (let () (declare (not safe)) - (##car _%e1827918389%_)))) - (if (gx#stx-pair? _%hd1828018393%_) - (let ((_%e1828218399%_ + (##car _%e1831518425%_)))) + (if (gx#stx-pair? _%hd1831618429%_) + (let ((_%e1831818435%_ (gx#syntax-e - _%hd1828018393%_))) - (let ((_%tl1828418406%_ + _%hd1831618429%_))) + (let ((_%tl1832018442%_ (let () (declare (not safe)) - (##cdr _%e1828218399%_))) - (_%hd1828318403%_ + (##cdr _%e1831818435%_))) + (_%hd1831918439%_ (let () (declare (not safe)) - (##car _%e1828218399%_)))) + (##car _%e1831818435%_)))) (if (gx#identifier? - _%hd1828318403%_) + _%hd1831918439%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-3[1]#_g20983_| - _%hd1828318403%_) + |gerbil/core/sugar~Sugar-3[1]#_g21019_| + _%hd1831918439%_) (if (gx#stx-pair? - _%tl1828418406%_) - (let ((_%e1828518409%_ + _%tl1832018442%_) + (let ((_%e1832118445%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1828418406%_))) - (let ((_%tl1828718416%_ + (gx#syntax-e _%tl1832018442%_))) + (let ((_%tl1832318452%_ (let () (declare (not safe)) - (##cdr _%e1828518409%_))) - (_%hd1828618413%_ + (##cdr _%e1832118445%_))) + (_%hd1832218449%_ (let () (declare (not safe)) - (##car _%e1828518409%_)))) - (if (gx#stx-null? _%tl1828718416%_) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2084120842%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_ - _%e1828218399%_ - _%hd1828318403%_ - _%tl1828418406%_ - _%e1828518409%_ - _%hd1828618413%_ - _%tl1828718416%_) - (let () (declare (not safe)) (_%g1826918305%_))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) + (##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%_) (let () (declare (not safe)) - (_%g1826918305%_)))))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) - (let () (declare (not safe)) (_%g1826918305%_)))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) - (let () (declare (not safe)) (_%g1826918305%_)))) + (_%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) + _%tl1831718432%_) + (_%__match2089720898%_ + _%e1830918405%_ + _%hd1831018409%_ + _%tl1831118412%_ + _%e1831218415%_ + _%hd1831318419%_ + _%tl1831418422%_ + _%e1831518425%_ + _%hd1831618429%_ + _%tl1831718432%_) (let () (declare (not safe)) - (_%g1826918305%_)))))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) + (_%g1830518341%_)))))) + (if (gx#stx-null? _%tl1831718432%_) + (_%__match2089720898%_ + _%e1830918405%_ + _%hd1831018409%_ + _%tl1831118412%_ + _%e1831218415%_ + _%hd1831318419%_ + _%tl1831418422%_ + _%e1831518425%_ + _%hd1831618429%_ + _%tl1831718432%_) (let () (declare (not safe)) - (_%g1826918305%_)))))) + (_%g1830518341%_)))))) (let () (declare (not safe)) - (_%g1826918305%_))))) - (let () (declare (not safe)) (_%g1826918305%_))))) - (let () (declare (not safe)) (_%g1826918305%_)))))))))) + (_%g1830518341%_))))) + (let () (declare (not safe)) (_%g1830518341%_))))) + (let () (declare (not safe)) (_%g1830518341%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index bb896dc5a..1d95170f3 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 1713631266) + (define gerbil/expander/common::timestamp 1733687559) (begin (define gx#AST::t - (let ((__tmp116754 (list)) - (__tmp116753 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp116913 (list)) + (__tmp116912 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp116754 + __tmp116913 '(e source) - __tmp116753 + __tmp116912 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args116652%_ (apply make-instance gx#AST::t _%$args116652%_))) + (lambda _%$args116811%_ (apply make-instance gx#AST::t _%$args116811%_))) (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 3a1281c24..e6d74b9ea 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]#_g116756_| + (define |gx[1]#_g116915_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116758_| + (define |gx[1]#_g116917_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g116760_| + (define |gx[1]#_g116919_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116762_| + (define |gx[1]#_g116921_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116763_| + (define |gx[1]#_g116922_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116765_| + (define |gx[1]#_g116924_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116766_| + (define |gx[1]#_g116925_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116768_| + (define |gx[1]#_g116927_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116769_| + (define |gx[1]#_g116928_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116771_| + (define |gx[1]#_g116930_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116772_| + (define |gx[1]#_g116931_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116774_| + (define |gx[1]#_g116933_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj116752 + (let ((__obj116911 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj116911 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116911 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj116911 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj116911 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj116911 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116911 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116911 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116911 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#f '11 '#f '#f)) - (let ((__tmp116755 |gx[1]#_g116756_|)) + (##unchecked-structure-set! __obj116911 '#f '11 '#f '#f)) + (let ((__tmp116914 |gx[1]#_g116915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116755 '12 '#f '#f)) - (let ((__tmp116757 |gx[1]#_g116758_|)) + (##unchecked-structure-set! __obj116911 __tmp116914 '12 '#f '#f)) + (let ((__tmp116916 |gx[1]#_g116917_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116757 '13 '#f '#f)) - (let ((__tmp116759 |gx[1]#_g116760_|)) + (##unchecked-structure-set! __obj116911 __tmp116916 '13 '#f '#f)) + (let ((__tmp116918 |gx[1]#_g116919_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116759 '14 '#f '#f)) - (let ((__tmp116761 - (cons (cons 'e |gx[1]#_g116762_|) - (cons (cons 'source |gx[1]#_g116763_|) '())))) + (##unchecked-structure-set! __obj116911 __tmp116918 '14 '#f '#f)) + (let ((__tmp116920 + (cons (cons 'e |gx[1]#_g116921_|) + (cons (cons 'source |gx[1]#_g116922_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116761 '15 '#f '#f)) - (let ((__tmp116764 - (cons (cons 'e |gx[1]#_g116765_|) - (cons (cons 'source |gx[1]#_g116766_|) '())))) + (##unchecked-structure-set! __obj116911 __tmp116920 '15 '#f '#f)) + (let ((__tmp116923 + (cons (cons 'e |gx[1]#_g116924_|) + (cons (cons 'source |gx[1]#_g116925_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116764 '16 '#f '#f)) - (let ((__tmp116767 - (cons (cons 'e |gx[1]#_g116768_|) - (cons (cons 'source |gx[1]#_g116769_|) '())))) + (##unchecked-structure-set! __obj116911 __tmp116923 '16 '#f '#f)) + (let ((__tmp116926 + (cons (cons 'e |gx[1]#_g116927_|) + (cons (cons 'source |gx[1]#_g116928_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116767 '17 '#f '#f)) - (let ((__tmp116770 - (cons (cons 'e |gx[1]#_g116771_|) - (cons (cons 'source |gx[1]#_g116772_|) '())))) + (##unchecked-structure-set! __obj116911 __tmp116926 '17 '#f '#f)) + (let ((__tmp116929 + (cons (cons 'e |gx[1]#_g116930_|) + (cons (cons 'source |gx[1]#_g116931_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116770 '18 '#f '#f)) + (##unchecked-structure-set! __obj116911 __tmp116929 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116911 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116911 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '20 '#f '#f)) - __obj116752)) + (##unchecked-structure-set! __obj116911 '() '20 '#f '#f)) + __obj116911)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx115347%_) - (let* ((_%g115351115365%_ - (lambda (_%g115352115361%_) + (lambda (_%$stx115506%_) + (let* ((_%g115510115524%_ + (lambda (_%g115511115520%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115352115361%_))) - (_%g115350115407%_ - (lambda (_%g115352115369%_) - (if (gx#stx-pair? _%g115352115369%_) - (let ((_%e115354115372%_ - (gx#syntax-e _%g115352115369%_))) - (let ((_%hd115355115376%_ + _%g115511115520%_))) + (_%g115509115566%_ + (lambda (_%g115511115528%_) + (if (gx#stx-pair? _%g115511115528%_) + (let ((_%e115513115531%_ + (gx#syntax-e _%g115511115528%_))) + (let ((_%hd115514115535%_ (let () (declare (not safe)) - (##car _%e115354115372%_))) - (_%tl115356115379%_ + (##car _%e115513115531%_))) + (_%tl115515115538%_ (let () (declare (not safe)) - (##cdr _%e115354115372%_)))) - (if (gx#stx-pair? _%tl115356115379%_) - (let ((_%e115357115382%_ - (gx#syntax-e _%tl115356115379%_))) - (let ((_%hd115358115386%_ + (##cdr _%e115513115531%_)))) + (if (gx#stx-pair? _%tl115515115538%_) + (let ((_%e115516115541%_ + (gx#syntax-e _%tl115515115538%_))) + (let ((_%hd115517115545%_ (let () (declare (not safe)) - (##car _%e115357115382%_))) - (_%tl115359115389%_ + (##car _%e115516115541%_))) + (_%tl115518115548%_ (let () (declare (not safe)) - (##cdr _%e115357115382%_)))) - (if (gx#stx-null? _%tl115359115389%_) - ((lambda (_%L115392%_) + (##cdr _%e115516115541%_)))) + (if (gx#stx-null? _%tl115518115548%_) + ((lambda (_%L115551%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L115392%_ + (cons _%L115551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L115392%_ '()))) + (cons '"expected procedure" (cons _%L115551%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd115358115386%_) - (_%g115351115365%_ _%g115352115369%_)))) - (_%g115351115365%_ _%g115352115369%_)))) - (_%g115351115365%_ _%g115352115369%_))))) - (_%g115350115407%_ _%$stx115347%_)))) + _%hd115517115545%_) + (_%g115510115524%_ _%g115511115528%_)))) + (_%g115510115524%_ _%g115511115528%_)))) + (_%g115510115524%_ _%g115511115528%_))))) + (_%g115509115566%_ _%$stx115506%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx115411%_) - (letrec ((_%generate115414%_ - (lambda (_%tgt115563%_ _%kws115565%_ _%clauses115566%_) - (letrec ((_%generate-clause115568%_ - (lambda (_%hd116503%_ _%E116505%_) - (let* ((_%__stx116655116656%_ _%hd116503%_) - (_%g116509116536%_ + (lambda (_%stx115570%_) + (letrec ((_%generate115573%_ + (lambda (_%tgt115722%_ _%kws115724%_ _%clauses115725%_) + (letrec ((_%generate-clause115727%_ + (lambda (_%hd116662%_ _%E116664%_) + (let* ((_%__stx116814116815%_ _%hd116662%_) + (_%g116668116695%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116655116656%_)))) - (let ((_%__kont116658116659%_ - (lambda (_%L116632%_ _%L116634%_) - (_%generate1115570%_ - _%hd116503%_ - _%L116634%_ + _%__stx116814116815%_)))) + (let ((_%__kont116817116818%_ + (lambda (_%L116791%_ _%L116793%_) + (_%generate1115729%_ + _%hd116662%_ + _%L116793%_ '#t - _%L116632%_ - _%E116505%_))) - (_%__kont116660116661%_ - (lambda (_%L116584%_ - _%L116586%_ - _%L116587%_) - (_%generate1115570%_ - _%hd116503%_ - _%L116587%_ - _%L116586%_ - _%L116584%_ - _%E116505%_))) - (_%__kont116662116663%_ + _%L116791%_ + _%E116664%_))) + (_%__kont116819116820%_ + (lambda (_%L116743%_ + _%L116745%_ + _%L116746%_) + (_%generate1115729%_ + _%hd116662%_ + _%L116746%_ + _%L116745%_ + _%L116743%_ + _%E116664%_))) + (_%__kont116821116822%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx115411%_ - _%hd116503%_)))) - (if (gx#stx-pair? _%__stx116655116656%_) - (let ((_%e116513116612%_ + _%stx115570%_ + _%hd116662%_)))) + (if (gx#stx-pair? _%__stx116814116815%_) + (let ((_%e116672116771%_ (gx#syntax-e - _%__stx116655116656%_))) - (let ((_%tl116515116619%_ + _%__stx116814116815%_))) + (let ((_%tl116674116778%_ (let () (declare (not safe)) - (##cdr _%e116513116612%_))) - (_%hd116514116616%_ + (##cdr _%e116672116771%_))) + (_%hd116673116775%_ (let () (declare (not safe)) - (##car _%e116513116612%_)))) + (##car _%e116672116771%_)))) (if (gx#stx-pair? - _%tl116515116619%_) - (let ((_%e116516116622%_ + _%tl116674116778%_) + (let ((_%e116675116781%_ (gx#syntax-e - _%tl116515116619%_))) - (let ((_%tl116518116629%_ + _%tl116674116778%_))) + (let ((_%tl116677116788%_ (let () (declare (not safe)) - (##cdr _%e116516116622%_))) - (_%hd116517116626%_ + (##cdr _%e116675116781%_))) + (_%hd116676116785%_ (let () (declare (not safe)) - (##car _%e116516116622%_)))) + (##car _%e116675116781%_)))) (if (gx#stx-null? - _%tl116518116629%_) - (_%__kont116658116659%_ - _%hd116517116626%_ - _%hd116514116616%_) + _%tl116677116788%_) + (_%__kont116817116818%_ + _%hd116676116785%_ + _%hd116673116775%_) (if (gx#stx-pair? - _%tl116518116629%_) - (let ((_%e116528116574%_ + _%tl116677116788%_) + (let ((_%e116687116733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl116518116629%_))) - (let ((_%tl116530116581%_ + (gx#syntax-e _%tl116677116788%_))) + (let ((_%tl116689116740%_ (let () (declare (not safe)) - (##cdr _%e116528116574%_))) - (_%hd116529116578%_ + (##cdr _%e116687116733%_))) + (_%hd116688116737%_ (let () (declare (not safe)) - (##car _%e116528116574%_)))) - (if (gx#stx-null? _%tl116530116581%_) - (_%__kont116660116661%_ - _%hd116529116578%_ - _%hd116517116626%_ - _%hd116514116616%_) - (_%__kont116662116663%_)))) - (_%__kont116662116663%_))))) + (##car _%e116687116733%_)))) + (if (gx#stx-null? _%tl116689116740%_) + (_%__kont116819116820%_ + _%hd116688116737%_ + _%hd116676116785%_ + _%hd116673116775%_) + (_%__kont116821116822%_)))) + (_%__kont116821116822%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116662116663%_)))) - (_%__kont116662116663%_)))))) - (_%generate1115570%_ - (lambda (_%where115956%_ - _%hd115958%_ - _%fender115959%_ - _%body115960%_ - _%E115961%_) - (letrec ((_%recur115963%_ - (lambda (_%hd115966%_ - _%tgt115968%_ - _%K115969%_) - (let* ((_%__stx116701116702%_ - _%hd115966%_) - (_%g115972115984%_ + (_%__kont116821116822%_)))) + (_%__kont116821116822%_)))))) + (_%generate1115729%_ + (lambda (_%where116115%_ + _%hd116117%_ + _%fender116118%_ + _%body116119%_ + _%E116120%_) + (letrec ((_%recur116122%_ + (lambda (_%hd116125%_ + _%tgt116127%_ + _%K116128%_) + (let* ((_%__stx116860116861%_ + _%hd116125%_) + (_%g116131116143%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116701116702%_)))) - (let ((_%__kont116704116705%_ - (lambda (_%L116293%_ - _%L116295%_) - (let* ((_%g116306116314%_ - (lambda (_%g116307116310%_) + _%__stx116860116861%_)))) + (let ((_%__kont116863116864%_ + (lambda (_%L116452%_ + _%L116454%_) + (let* ((_%g116465116473%_ + (lambda (_%g116466116469%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116307116310%_))) - (_%g116305116495%_ - (lambda (_%g116307116318%_) - ((lambda (_%L116321%_) - (let* ((_%g116333116341%_ - (lambda (_%g116334116337%_) + _%g116466116469%_))) + (_%g116464116654%_ + (lambda (_%g116466116477%_) + ((lambda (_%L116480%_) + (let* ((_%g116492116500%_ + (lambda (_%g116493116496%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116334116337%_))) - (_%g116332116491%_ - (lambda (_%g116334116345%_) - ((lambda (_%L116348%_) - (let* ((_%g116361116369%_ - (lambda (_%g116362116365%_) + _%g116493116496%_))) + (_%g116491116650%_ + (lambda (_%g116493116504%_) + ((lambda (_%L116507%_) + (let* ((_%g116520116528%_ + (lambda (_%g116521116524%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116362116365%_))) - (_%g116360116487%_ - (lambda (_%g116362116373%_) - ((lambda (_%L116376%_) - (let* ((_%g116389116397%_ - (lambda (_%g116390116393%_) + _%g116521116524%_))) + (_%g116519116646%_ + (lambda (_%g116521116532%_) + ((lambda (_%L116535%_) + (let* ((_%g116548116556%_ + (lambda (_%g116549116552%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g116390116393%_))) - (_%g116388116483%_ - (lambda (_%g116390116401%_) - ((lambda (_%L116404%_) - (let* ((_%g116417116425%_ - (lambda (_%g116418116421%_) + _%g116549116552%_))) + (_%g116547116642%_ + (lambda (_%g116549116560%_) + ((lambda (_%L116563%_) + (let* ((_%g116576116584%_ + (lambda (_%g116577116580%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116418116421%_))) - (_%g116416116479%_ - (lambda (_%g116418116429%_) - ((lambda (_%L116432%_) - (let* ((_%g116445116453%_ - (lambda (_%g116446116449%_) + _%g116577116580%_))) + (_%g116575116638%_ + (lambda (_%g116577116588%_) + ((lambda (_%L116591%_) + (let* ((_%g116604116612%_ + (lambda (_%g116605116608%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116446116449%_))) - (_%g116444116475%_ - (lambda (_%g116446116457%_) - ((lambda (_%L116460%_) + _%g116605116608%_))) + (_%g116603116634%_ + (lambda (_%g116605116616%_) + ((lambda (_%L116619%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L116321%_ '())) + (cons _%L116480%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116348%_ + (cons (cons (cons _%L116507%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L116321%_ '())) + (cons _%L116480%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116376%_ + (cons (cons (cons _%L116535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L116348%_ '())) + (cons _%L116507%_ '())) '())) - (cons (cons _%L116404%_ + (cons (cons _%L116563%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L116348%_ '())) + (cons _%L116507%_ '())) '())) '())) - (cons _%L116432%_ '()))) + (cons _%L116591%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L116460%_ '()))))) + (cons _%L116619%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116446116457%_)))) - (_%g116444116475%_ _%E115961%_))) - _%g116418116429%_)))) - (_%g116416116479%_ - (_%recur115963%_ - _%L116295%_ - _%L116376%_ - (_%recur115963%_ - _%L116293%_ - _%L116404%_ - _%K115969%_))))) - _%g116390116401%_)))) - (_%g116388116483%_ (gx#genident 'tl)))) + _%g116605116616%_)))) + (_%g116603116634%_ _%E116120%_))) + _%g116577116588%_)))) + (_%g116575116638%_ + (_%recur116122%_ + _%L116454%_ + _%L116535%_ + (_%recur116122%_ + _%L116452%_ + _%L116563%_ + _%K116128%_))))) + _%g116549116560%_)))) + (_%g116547116642%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116362116373%_)))) - (_%g116360116487%_ + _%g116521116532%_)))) + (_%g116519116646%_ (gx#genident 'hd)))) - _%g116334116345%_)))) - (_%g116332116491%_ (gx#genident 'e)))) - _%g116307116318%_)))) - (_%g116305116495%_ _%tgt115968%_)))) + _%g116493116504%_)))) + (_%g116491116650%_ (gx#genident 'e)))) + _%g116466116477%_)))) + (_%g116464116654%_ _%tgt116127%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116706116707%_ + (_%__kont116865116866%_ (lambda () (if (gx#identifier? - _%hd115966%_) + _%hd116125%_) (if (gx#underscore? - _%hd115966%_) - _%K115969%_ - (if (let ((__tmp116773 + _%hd116125%_) + _%K116128%_ + (if (let ((__tmp116932 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115998116000%_) + (lambda (_%g116157116159%_) (gx#bound-identifier=? - _%g115998116000%_ - _%hd115966%_)))) + _%g116157116159%_ + _%hd116125%_)))) (declare (not safe)) - (__find __tmp116773 _%kws115565%_)) - (let* ((_%g116006116021%_ - (lambda (_%g116007116017%_) + (__find __tmp116932 _%kws115724%_)) + (let* ((_%g116165116180%_ + (lambda (_%g116166116176%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116007116017%_))) - (_%g116005116074%_ - (lambda (_%g116007116025%_) - (if (gx#stx-pair? _%g116007116025%_) - (let ((_%e116010116028%_ + _%g116166116176%_))) + (_%g116164116233%_ + (lambda (_%g116166116184%_) + (if (gx#stx-pair? _%g116166116184%_) + (let ((_%e116169116187%_ (gx#syntax-e - _%g116007116025%_))) - (let ((_%hd116011116032%_ + _%g116166116184%_))) + (let ((_%hd116170116191%_ (let () (declare (not safe)) - (##car _%e116010116028%_))) - (_%tl116012116035%_ + (##car _%e116169116187%_))) + (_%tl116171116194%_ (let () (declare (not safe)) - (##cdr _%e116010116028%_)))) + (##cdr _%e116169116187%_)))) (if (gx#stx-pair? - _%tl116012116035%_) - (let ((_%e116013116038%_ + _%tl116171116194%_) + (let ((_%e116172116197%_ (gx#syntax-e - _%tl116012116035%_))) - (let ((_%hd116014116042%_ + _%tl116171116194%_))) + (let ((_%hd116173116201%_ (let () (declare (not safe)) - (##car _%e116013116038%_))) - (_%tl116015116045%_ + (##car _%e116172116197%_))) + (_%tl116174116204%_ (let () (declare (not safe)) - (##cdr _%e116013116038%_)))) + (##cdr _%e116172116197%_)))) (if (gx#stx-null? - _%tl116015116045%_) - ((lambda (_%L116048%_ + _%tl116174116204%_) + ((lambda (_%L116207%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116050%_) + _%L116209%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L116050%_ '())) + (cons _%L116209%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L116050%_ + (cons _%L116209%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116048%_ '())) + (cons _%L116207%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K115969%_ (cons _%E115961%_ '()))))) - _%hd116014116042%_ - _%hd116011116032%_) - (_%g116006116021%_ _%g116007116025%_)))) + (cons _%K116128%_ (cons _%E116120%_ '()))))) + _%hd116173116201%_ + _%hd116170116191%_) + (_%g116165116180%_ _%g116166116184%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116006116021%_ - _%g116007116025%_)))) - (_%g116006116021%_ - _%g116007116025%_))))) - (_%g116005116074%_ - (list _%tgt115968%_ _%hd115966%_))) - (let* ((_%g116080116095%_ - (lambda (_%g116081116091%_) + (_%g116165116180%_ + _%g116166116184%_)))) + (_%g116165116180%_ + _%g116166116184%_))))) + (_%g116164116233%_ + (list _%tgt116127%_ _%hd116125%_))) + (let* ((_%g116239116254%_ + (lambda (_%g116240116250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116081116091%_))) - (_%g116079116140%_ - (lambda (_%g116081116099%_) - (if (gx#stx-pair? _%g116081116099%_) - (let ((_%e116084116102%_ + _%g116240116250%_))) + (_%g116238116299%_ + (lambda (_%g116240116258%_) + (if (gx#stx-pair? _%g116240116258%_) + (let ((_%e116243116261%_ (gx#syntax-e - _%g116081116099%_))) - (let ((_%hd116085116106%_ + _%g116240116258%_))) + (let ((_%hd116244116265%_ (let () (declare (not safe)) - (##car _%e116084116102%_))) - (_%tl116086116109%_ + (##car _%e116243116261%_))) + (_%tl116245116268%_ (let () (declare (not safe)) - (##cdr _%e116084116102%_)))) + (##cdr _%e116243116261%_)))) (if (gx#stx-pair? - _%tl116086116109%_) - (let ((_%e116087116112%_ + _%tl116245116268%_) + (let ((_%e116246116271%_ (gx#syntax-e - _%tl116086116109%_))) - (let ((_%hd116088116116%_ + _%tl116245116268%_))) + (let ((_%hd116247116275%_ (let () (declare (not safe)) - (##car _%e116087116112%_))) - (_%tl116089116119%_ + (##car _%e116246116271%_))) + (_%tl116248116278%_ (let () (declare (not safe)) - (##cdr _%e116087116112%_)))) + (##cdr _%e116246116271%_)))) (if (gx#stx-null? - _%tl116089116119%_) - ((lambda (_%L116122%_ + _%tl116248116278%_) + ((lambda (_%L116281%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116124%_) + _%L116283%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116122%_ (cons _%L116124%_ '())) + (cons (cons (cons _%L116281%_ (cons _%L116283%_ '())) '()) - (cons _%K115969%_ '())))) - _%hd116088116116%_ - _%hd116085116106%_) - (_%g116080116095%_ _%g116081116099%_)))) + (cons _%K116128%_ '())))) + _%hd116247116275%_ + _%hd116244116265%_) + (_%g116239116254%_ _%g116240116258%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116080116095%_ - _%g116081116099%_)))) - (_%g116080116095%_ - _%g116081116099%_))))) - (_%g116079116140%_ - (list _%tgt115968%_ _%hd115966%_))))) - (if (gx#stx-null? _%hd115966%_) - (let* ((_%g116146116154%_ - (lambda (_%g116147116150%_) + (_%g116239116254%_ + _%g116240116258%_)))) + (_%g116239116254%_ + _%g116240116258%_))))) + (_%g116238116299%_ + (list _%tgt116127%_ _%hd116125%_))))) + (if (gx#stx-null? _%hd116125%_) + (let* ((_%g116305116313%_ + (lambda (_%g116306116309%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116147116150%_))) - (_%g116145116173%_ - (lambda (_%g116147116158%_) - ((lambda (_%L116161%_) + _%g116306116309%_))) + (_%g116304116332%_ + (lambda (_%g116306116317%_) + ((lambda (_%L116320%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L116161%_ '())) - (cons _%K115969%_ - (cons _%E115961%_ + (cons _%L116320%_ '())) + (cons _%K116128%_ + (cons _%E116120%_ '()))))) - _%g116147116158%_)))) - (_%g116145116173%_ _%tgt115968%_)) - (if (gx#stx-datum? _%hd115966%_) - (let* ((_%g116179116198%_ - (lambda (_%g116180116194%_) + _%g116306116317%_)))) + (_%g116304116332%_ _%tgt116127%_)) + (if (gx#stx-datum? _%hd116125%_) + (let* ((_%g116338116357%_ + (lambda (_%g116339116353%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116180116194%_))) - (_%g116178116257%_ - (lambda (_%g116180116202%_) - (if (gx#stx-pair? _%g116180116202%_) - (let ((_%e116184116205%_ + _%g116339116353%_))) + (_%g116337116416%_ + (lambda (_%g116339116361%_) + (if (gx#stx-pair? _%g116339116361%_) + (let ((_%e116343116364%_ (gx#syntax-e - _%g116180116202%_))) - (let ((_%hd116185116209%_ + _%g116339116361%_))) + (let ((_%hd116344116368%_ (let () (declare (not safe)) - (##car _%e116184116205%_))) - (_%tl116186116212%_ + (##car _%e116343116364%_))) + (_%tl116345116371%_ (let () (declare (not safe)) - (##cdr _%e116184116205%_)))) + (##cdr _%e116343116364%_)))) (if (gx#stx-pair? - _%tl116186116212%_) - (let ((_%e116187116215%_ + _%tl116345116371%_) + (let ((_%e116346116374%_ (gx#syntax-e - _%tl116186116212%_))) - (let ((_%hd116188116219%_ + _%tl116345116371%_))) + (let ((_%hd116347116378%_ (let () (declare (not safe)) - (##car _%e116187116215%_))) - (_%tl116189116222%_ + (##car _%e116346116374%_))) + (_%tl116348116381%_ (let () (declare (not safe)) - (##cdr _%e116187116215%_)))) + (##cdr _%e116346116374%_)))) (if (gx#stx-pair? - _%tl116189116222%_) - (let ((_%e116190116225%_ + _%tl116348116381%_) + (let ((_%e116349116384%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl116189116222%_))) - (let ((_%hd116191116229%_ + _%tl116348116381%_))) + (let ((_%hd116350116388%_ (let () (declare (not safe)) - (##car _%e116190116225%_))) - (_%tl116192116232%_ + (##car _%e116349116384%_))) + (_%tl116351116391%_ (let () (declare (not safe)) - (##cdr _%e116190116225%_)))) - (if (gx#stx-null? _%tl116192116232%_) - ((lambda (_%L116235%_ _%L116237%_ _%L116238%_) + (##cdr _%e116349116384%_)))) + (if (gx#stx-null? _%tl116351116391%_) + ((lambda (_%L116394%_ _%L116396%_ _%L116397%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L116235%_ + (cons (cons _%L116394%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L116238%_ + (cons _%L116397%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116237%_ '())) + (cons _%L116396%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K115969%_ - (cons _%E115961%_ '()))))) - _%hd116191116229%_ - _%hd116188116219%_ - _%hd116185116209%_) - (_%g116179116198%_ _%g116180116202%_)))) - (_%g116179116198%_ _%g116180116202%_)))) + (cons _%K116128%_ + (cons _%E116120%_ '()))))) + _%hd116350116388%_ + _%hd116347116378%_ + _%hd116344116368%_) + (_%g116338116357%_ _%g116339116361%_)))) + (_%g116338116357%_ _%g116339116361%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116179116198%_ - _%g116180116202%_)))) - (_%g116179116198%_ - _%g116180116202%_))))) - (_%g116178116257%_ - (list _%tgt115968%_ - _%hd115966%_ - (let ((_%e116261%_ - (gx#stx-e _%hd115966%_))) - (if (or (keyword? _%e116261%_) + (_%g116338116357%_ + _%g116339116361%_)))) + (_%g116338116357%_ + _%g116339116361%_))))) + (_%g116337116416%_ + (list _%tgt116127%_ + _%hd116125%_ + (let ((_%e116420%_ + (gx#stx-e _%hd116125%_))) + (if (or (keyword? _%e116420%_) (let () (declare (not safe)) - (immediate? _%e116261%_))) + (immediate? _%e116420%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e116261%_) + (if (number? _%e116420%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +714,69 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx115411%_ - _%where115956%_ - _%hd115966%_))))))) + _%stx115570%_ + _%where116115%_ + _%hd116125%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116701116702%_) - (let ((_%e115976116283%_ + _%__stx116860116861%_) + (let ((_%e116135116442%_ (gx#syntax-e - _%__stx116701116702%_))) - (let ((_%tl115978116290%_ + _%__stx116860116861%_))) + (let ((_%tl116137116449%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e115976116283%_))) - (_%hd115977116287%_ - (let () (declare (not safe)) (##car _%e115976116283%_)))) - (_%__kont116704116705%_ - _%tl115978116290%_ - _%hd115977116287%_))) + (##cdr _%e116135116442%_))) + (_%hd116136116446%_ + (let () (declare (not safe)) (##car _%e116135116442%_)))) + (_%__kont116863116864%_ + _%tl116137116449%_ + _%hd116136116446%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116706116707%_))))))) - (_%recur115963%_ - _%hd115958%_ - _%tgt115563%_ + (_%__kont116865116866%_))))))) + (_%recur116122%_ + _%hd116117%_ + _%tgt115722%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender115959%_ - (cons _%body115960%_ - (cons _%E115961%_ + (cons _%fender116118%_ + (cons _%body116119%_ + (cons _%E116120%_ '())))))))) - (_%generate-clauses115571%_ - (lambda (_%clauses115694%_) - (let _%lp115697%_ ((_%rest115700%_ - _%clauses115694%_) - (_%E115702%_ + (_%generate-clauses115730%_ + (lambda (_%clauses115853%_) + (let _%lp115856%_ ((_%rest115859%_ + _%clauses115853%_) + (_%E115861%_ (gx#genident 'E)) - (_%r115703%_ '())) - (let* ((_%__stx116737116738%_ _%rest115700%_) - (_%g115706115718%_ + (_%r115862%_ '())) + (let* ((_%__stx116896116897%_ _%rest115859%_) + (_%g115865115877%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116737116738%_)))) - (let ((_%__kont116740116741%_ - (lambda (_%L115783%_ _%L115785%_) - (let* ((_%__stx116717116718%_ - _%L115785%_) - (_%g115797115808%_ + _%__stx116896116897%_)))) + (let ((_%__kont116899116900%_ + (lambda (_%L115942%_ _%L115944%_) + (let* ((_%__stx116876116877%_ + _%L115944%_) + (_%g115956115967%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116717116718%_)))) - (let ((_%__kont116720116721%_ - (lambda (_%L115937%_) + _%__stx116876116877%_)))) + (let ((_%__kont116879116880%_ + (lambda (_%L116096%_) (if (gx#stx-null? - _%L115783%_) + _%L115942%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L115937%_) - (not (gx#stx-null? _%L115937%_))) - (cons (cons _%E115702%_ + _%L116096%_) + (not (gx#stx-null? _%L116096%_))) + (cons (cons _%E115861%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +784,113 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L115937%_) + _%L116096%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L115785%_)) + (gx#stx-source _%L115944%_)) '())) - _%r115703%_) + _%r115862%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx115411%_ - _%L115785%_)) + _%stx115570%_ + _%L115944%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx115411%_ - _%L115785%_)))) + _%stx115570%_ + _%L115944%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116722116723%_ + (_%__kont116881116882%_ (lambda () - (let* ((_%g115819115827%_ - (lambda (_%g115820115823%_) + (let* ((_%g115978115986%_ + (lambda (_%g115979115982%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115820115823%_))) - (_%g115818115916%_ - (lambda (_%g115820115831%_) - ((lambda (_%L115834%_) - (let* ((_%g115850115858%_ - (lambda (_%g115851115854%_) + _%g115979115982%_))) + (_%g115977116075%_ + (lambda (_%g115979115990%_) + ((lambda (_%L115993%_) + (let* ((_%g116009116017%_ + (lambda (_%g116010116013%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115851115854%_))) - (_%g115849115912%_ - (lambda (_%g115851115862%_) - ((lambda (_%L115865%_) - (let* ((_%g115878115886%_ - (lambda (_%g115879115882%_) + _%g116010116013%_))) + (_%g116008116071%_ + (lambda (_%g116010116021%_) + ((lambda (_%L116024%_) + (let* ((_%g116037116045%_ + (lambda (_%g116038116041%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115879115882%_))) - (_%g115877115908%_ - (lambda (_%g115879115890%_) - ((lambda (_%L115893%_) - (_%lp115697%_ - _%L115783%_ - _%L115834%_ - (cons (cons _%E115702%_ + _%g116038116041%_))) + (_%g116036116067%_ + (lambda (_%g116038116049%_) + ((lambda (_%L116052%_) + (_%lp115856%_ + _%L115942%_ + _%L115993%_ + (cons (cons _%E115861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L115893%_ '())) - _%r115703%_))) + (cons _%L116052%_ '())) + _%r115862%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g115879115890%_)))) - (_%g115877115908%_ + _%g116038116049%_)))) + (_%g116036116067%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L115865%_ + (cons _%L116024%_ '()))) - (gx#stx-source _%L115785%_))))) - _%g115851115862%_)))) - (_%g115849115912%_ - (_%generate-clause115568%_ - _%L115785%_ - (cons _%L115834%_ '()))))) - _%g115820115831%_)))) - (_%g115818115916%_ (gx#genident 'E)))))) + (gx#stx-source _%L115944%_))))) + _%g116010116021%_)))) + (_%g116008116071%_ + (_%generate-clause115727%_ + _%L115944%_ + (cons _%L115993%_ '()))))) + _%g115979115990%_)))) + (_%g115977116075%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116717116718%_) - (let ((_%e115800115927%_ + _%__stx116876116877%_) + (let ((_%e115959116086%_ (gx#syntax-e - _%__stx116717116718%_))) - (let ((_%tl115802115934%_ + _%__stx116876116877%_))) + (let ((_%tl115961116093%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e115800115927%_))) - (_%hd115801115931%_ - (let () (declare (not safe)) (##car _%e115800115927%_)))) - (if (gx#identifier? _%hd115801115931%_) + (##cdr _%e115959116086%_))) + (_%hd115960116090%_ + (let () (declare (not safe)) (##car _%e115959116086%_)))) + (if (gx#identifier? _%hd115960116090%_) (if (gx#free-identifier=? - |gx[1]#_g116774_| - _%hd115801115931%_) - (_%__kont116720116721%_ _%tl115802115934%_) - (_%__kont116722116723%_)) - (_%__kont116722116723%_)))) + |gx[1]#_g116933_| + _%hd115960116090%_) + (_%__kont116879116880%_ _%tl115961116093%_) + (_%__kont116881116882%_)) + (_%__kont116881116882%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116722116723%_)))))) - (_%__kont116742116743%_ + (_%__kont116881116882%_)))))) + (_%__kont116901116902%_ (lambda () - (let* ((_%g115729115737%_ - (lambda (_%g115730115733%_) + (let* ((_%g115888115896%_ + (lambda (_%g115889115892%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115730115733%_))) - (_%g115728115762%_ - (lambda (_%g115730115741%_) - ((lambda (_%L115744%_) - (cons (cons _%E115702%_ + _%g115889115892%_))) + (_%g115887115921%_ + (lambda (_%g115889115900%_) + ((lambda (_%L115903%_) + (cons (cons _%E115861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L115744%_ '())))) + (cons _%L115903%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx115411%_)) + (gx#stx-source _%stx115570%_)) '())) - _%r115703%_)) - _%g115730115741%_)))) + _%r115862%_)) + _%g115889115900%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115728115762%_ - _%tgt115563%_))))) - (if (gx#stx-pair? _%__stx116737116738%_) - (let ((_%e115710115773%_ + (_%g115887115921%_ + _%tgt115722%_))))) + (if (gx#stx-pair? _%__stx116896116897%_) + (let ((_%e115869115932%_ (gx#syntax-e - _%__stx116737116738%_))) - (let ((_%tl115712115780%_ + _%__stx116896116897%_))) + (let ((_%tl115871115939%_ (let () (declare (not safe)) - (##cdr _%e115710115773%_))) - (_%hd115711115777%_ + (##cdr _%e115869115932%_))) + (_%hd115870115936%_ (let () (declare (not safe)) - (##car _%e115710115773%_)))) - (_%__kont116740116741%_ - _%tl115712115780%_ - _%hd115711115777%_))) - (_%__kont116742116743%_)))))))) - (let* ((_%bind115573%_ - (_%generate-clauses115571%_ _%clauses115566%_)) - (_%g115576115593%_ - (lambda (_%g115577115589%_) + (##car _%e115869115932%_)))) + (_%__kont116899116900%_ + _%tl115871115939%_ + _%hd115870115936%_))) + (_%__kont116901116902%_)))))))) + (let* ((_%bind115732%_ + (_%generate-clauses115730%_ _%clauses115725%_)) + (_%g115735115752%_ + (lambda (_%g115736115748%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115577115589%_))) - (_%g115575115690%_ - (lambda (_%g115577115597%_) - (if (gx#stx-pair/null? _%g115577115597%_) - (let ((_g116775_ + _%g115736115748%_))) + (_%g115734115849%_ + (lambda (_%g115736115756%_) + (if (gx#stx-pair/null? _%g115736115756%_) + (let ((_g116934_ (gx#syntax-split-splice - _%g115577115597%_ + _%g115736115756%_ '0))) (begin - (let ((_g116776_ + (let ((_g116935_ (let () (declare (not safe)) - (if (##values? _g116775_) + (if (##values? _g116934_) (##vector-length - _g116775_) + _g116934_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g116776_ 2))) + (##fx= _g116935_ 2))) (error "Context expects 2 values" - _g116776_))) - (let ((_%target115579115600%_ + _g116935_))) + (let ((_%target115738115759%_ (let () (declare (not safe)) - (##vector-ref _g116775_ 0))) - (_%tl115581115603%_ + (##vector-ref _g116934_ 0))) + (_%tl115740115762%_ (let () (declare (not safe)) - (##vector-ref _g116775_ 1)))) - (if (gx#stx-null? _%tl115581115603%_) - (letrec ((_%loop115582115606%_ - (lambda (_%hd115580115610%_ + (##vector-ref _g116934_ 1)))) + (if (gx#stx-null? _%tl115740115762%_) + (letrec ((_%loop115741115765%_ + (lambda (_%hd115739115769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try115586115613%_) - (if (gx#stx-pair? _%hd115580115610%_) - (let ((_%e115583115616%_ - (gx#syntax-e _%hd115580115610%_))) - (let ((_%lp-hd115584115620%_ + _%bind-try115745115772%_) + (if (gx#stx-pair? _%hd115739115769%_) + (let ((_%e115742115775%_ + (gx#syntax-e _%hd115739115769%_))) + (let ((_%lp-hd115743115779%_ (let () (declare (not safe)) - (##car _%e115583115616%_))) - (_%lp-tl115585115623%_ + (##car _%e115742115775%_))) + (_%lp-tl115744115782%_ (let () (declare (not safe)) - (##cdr _%e115583115616%_)))) - (_%loop115582115606%_ - _%lp-tl115585115623%_ - (cons _%lp-hd115584115620%_ - _%bind-try115586115613%_)))) - (let ((_%bind-try115587115626%_ - (reverse _%bind-try115586115613%_))) - ((lambda (_%L115630%_) - (let* ((_%g115648115656%_ - (lambda (_%g115649115652%_) + (##cdr _%e115742115775%_)))) + (_%loop115741115765%_ + _%lp-tl115744115782%_ + (cons _%lp-hd115743115779%_ + _%bind-try115745115772%_)))) + (let ((_%bind-try115746115785%_ + (reverse _%bind-try115745115772%_))) + ((lambda (_%L115789%_) + (let* ((_%g115807115815%_ + (lambda (_%g115808115811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115649115652%_))) - (_%g115647115686%_ - (lambda (_%g115649115660%_) - ((lambda (_%L115663%_) + _%g115808115811%_))) + (_%g115806115845%_ + (lambda (_%g115808115819%_) + ((lambda (_%L115822%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp116777 - (lambda (_%g115677115680%_ + (cons (let ((__tmp116936 + (lambda (_%g115836115839%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g115678115683%_) - (cons _%g115677115680%_ _%g115678115683%_)))) + _%g115837115842%_) + (cons _%g115836115839%_ _%g115837115842%_)))) (declare (not safe)) - (__foldr1 __tmp116777 '() _%L115630%_)) + (__foldr1 __tmp116936 '() _%L115789%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L115663%_ + (cons (cons _%L115822%_ '()) '())))) - _%g115649115660%_)))) - (_%g115647115686%_ (car (last _%bind115573%_))))) - _%bind-try115587115626%_)))))) + _%g115808115819%_)))) + (_%g115806115845%_ (car (last _%bind115732%_))))) + _%bind-try115746115785%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop115582115606%_ - _%target115579115600%_ + (_%loop115741115765%_ + _%target115738115759%_ '())) - (_%g115576115593%_ - _%g115577115597%_))))) - (_%g115576115593%_ _%g115577115597%_))))) - (_%g115575115690%_ _%bind115573%_)))))) - (let* ((_%g115417115436%_ - (lambda (_%g115418115432%_) + (_%g115735115752%_ + _%g115736115756%_))))) + (_%g115735115752%_ _%g115736115756%_))))) + (_%g115734115849%_ _%bind115732%_)))))) + (let* ((_%g115576115595%_ + (lambda (_%g115577115591%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115418115432%_))) - (_%g115416115559%_ - (lambda (_%g115418115440%_) - (if (gx#stx-pair? _%g115418115440%_) - (let ((_%e115422115443%_ - (gx#syntax-e _%g115418115440%_))) - (let ((_%hd115423115447%_ + _%g115577115591%_))) + (_%g115575115718%_ + (lambda (_%g115577115599%_) + (if (gx#stx-pair? _%g115577115599%_) + (let ((_%e115581115602%_ + (gx#syntax-e _%g115577115599%_))) + (let ((_%hd115582115606%_ (let () (declare (not safe)) - (##car _%e115422115443%_))) - (_%tl115424115450%_ + (##car _%e115581115602%_))) + (_%tl115583115609%_ (let () (declare (not safe)) - (##cdr _%e115422115443%_)))) - (if (gx#stx-pair? _%tl115424115450%_) - (let ((_%e115425115453%_ - (gx#syntax-e _%tl115424115450%_))) - (let ((_%hd115426115457%_ + (##cdr _%e115581115602%_)))) + (if (gx#stx-pair? _%tl115583115609%_) + (let ((_%e115584115612%_ + (gx#syntax-e _%tl115583115609%_))) + (let ((_%hd115585115616%_ (let () (declare (not safe)) - (##car _%e115425115453%_))) - (_%tl115427115460%_ + (##car _%e115584115612%_))) + (_%tl115586115619%_ (let () (declare (not safe)) - (##cdr _%e115425115453%_)))) - (if (gx#stx-pair? _%tl115427115460%_) - (let ((_%e115428115463%_ + (##cdr _%e115584115612%_)))) + (if (gx#stx-pair? _%tl115586115619%_) + (let ((_%e115587115622%_ (gx#syntax-e - _%tl115427115460%_))) - (let ((_%hd115429115467%_ + _%tl115586115619%_))) + (let ((_%hd115588115626%_ (let () (declare (not safe)) - (##car _%e115428115463%_))) - (_%tl115430115470%_ + (##car _%e115587115622%_))) + (_%tl115589115629%_ (let () (declare (not safe)) - (##cdr _%e115428115463%_)))) - ((lambda (_%L115473%_ - _%L115475%_ - _%L115476%_) + (##cdr _%e115587115622%_)))) + ((lambda (_%L115632%_ + _%L115634%_ + _%L115635%_) (if (and (gx#identifier-list? - _%L115475%_) + _%L115634%_) (gx#stx-list? - _%L115473%_)) - (let* ((_%g115494115502%_ - (lambda (_%g115495115498%_) + _%L115632%_)) + (let* ((_%g115653115661%_ + (lambda (_%g115654115657%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115495115498%_))) - (_%g115493115555%_ - (lambda (_%g115495115506%_) - ((lambda (_%L115509%_) - (let* ((_%g115521115529%_ + _%g115654115657%_))) + (_%g115652115714%_ + (lambda (_%g115654115665%_) + ((lambda (_%L115668%_) + (let* ((_%g115680115688%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115522115525%_) + (lambda (_%g115681115684%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115522115525%_))) - (_%g115520115551%_ - (lambda (_%g115522115533%_) - ((lambda (_%L115536%_) + _%g115681115684%_))) + (_%g115679115710%_ + (lambda (_%g115681115692%_) + ((lambda (_%L115695%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115509%_ - (cons _%L115476%_ + (cons (cons (cons _%L115668%_ + (cons _%L115635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L115536%_ '())))) - _%g115522115533%_)))) - (_%g115520115551%_ - (_%generate115414%_ - _%L115509%_ - (gx#syntax->list _%L115475%_) - _%L115473%_)))) - _%g115495115506%_)))) + (cons _%L115695%_ '())))) + _%g115681115692%_)))) + (_%g115679115710%_ + (_%generate115573%_ + _%L115668%_ + (gx#syntax->list _%L115634%_) + _%L115632%_)))) + _%g115654115665%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115493115555%_ + (_%g115652115714%_ (gx#genident 'e))) - (_%g115417115436%_ - _%g115418115440%_))) - _%tl115430115470%_ - _%hd115429115467%_ - _%hd115426115457%_))) - (_%g115417115436%_ - _%g115418115440%_)))) - (_%g115417115436%_ _%g115418115440%_)))) - (_%g115417115436%_ _%g115418115440%_))))) - (_%g115416115559%_ _%stx115411%_))))))) + (_%g115576115595%_ + _%g115577115599%_))) + _%tl115589115629%_ + _%hd115588115626%_ + _%hd115585115616%_))) + (_%g115576115595%_ + _%g115577115599%_)))) + (_%g115576115595%_ _%g115577115599%_)))) + (_%g115576115595%_ _%g115577115599%_))))) + (_%g115575115718%_ _%stx115570%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index a8ea9991f..a57874372 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 1713631266) + (define gerbil/expander/compile::timestamp 1733687560) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx130175%_) - (let* ((_%e130176130183%_ _%stx130175%_) - (_%E130178130187%_ + (lambda (_%stx130334%_) + (let* ((_%e130335130342%_ _%stx130334%_) + (_%E130337130346%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130176130183%_))) - (_%E130177130201%_ - (lambda () - (if (gx#stx-pair? _%e130176130183%_) - (let ((_%e130179130191%_ - (gx#syntax-e _%e130176130183%_))) - (let ((_%hd130180130194%_ (##car _%e130179130191%_)) - (_%tl130181130196%_ (##cdr _%e130179130191%_))) - (let* ((_%form130199%_ _%hd130180130194%_) - (__self130204 - (gx#syntax-local-e__0 _%form130199%_)) - (__method130205 + _%e130335130342%_))) + (_%E130336130360%_ + (lambda () + (if (gx#stx-pair? _%e130335130342%_) + (let ((_%e130338130350%_ + (gx#syntax-e _%e130335130342%_))) + (let ((_%hd130339130353%_ (##car _%e130338130350%_)) + (_%tl130340130355%_ (##cdr _%e130338130350%_))) + (let* ((_%form130358%_ _%hd130339130353%_) + (__self130363 + (gx#syntax-local-e__0 _%form130358%_)) + (__method130364 (__method-ref - __self130204 + __self130363 'compile-top-syntax))) - (if __method130205 - (__method130205 __self130204 _%stx130175%_) + (if __method130364 + (__method130364 __self130363 _%stx130334%_) (begin (error '"Missing method" - __self130204 + __self130363 'compile-top-syntax) '#!void))))) - (_%E130178130187%_))))) - (_%E130177130201%_)))) + (_%E130337130346%_))))) + (_%E130336130360%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self129018130121%_ _%stx130123%_) - (let* ((_%self130125%_ _%self129018130121%_) - (_%self130127%_ _%self130125%_) - (_%self130136130144%_ _%self130127%_) - (_%E130138130148%_ + (lambda (_%self129177130280%_ _%stx130282%_) + (let* ((_%self130284%_ _%self129177130280%_) + (_%self130286%_ _%self130284%_) + (_%self130295130303%_ _%self130286%_) + (_%E130297130307%_ (lambda () (error '"No clause matching" - _%self130136130144%_ + _%self130295130303%_ '((core-expander _ _ K))) '#!void)) - (_%K130139130161%_ - (lambda (_%K130151%_) - (let ((_%$e130153%_ (gx#stx-source _%stx130123%_))) - (if _%$e130153%_ - ((lambda (_%g130155130157%_) + (_%K130298130320%_ + (lambda (_%K130310%_) + (let ((_%$e130312%_ (gx#stx-source _%stx130282%_))) + (if _%$e130312%_ + ((lambda (_%g130314130316%_) (gx#stx-wrap-source - (_%K130151%_ _%stx130123%_) - _%g130155130157%_)) - _%$e130153%_) - (_%K130151%_ _%stx130123%_))))) - (_%e130140130164%_ - (##unchecked-structure-ref _%self130136130144%_ '1 '#f '#f)) - (_%e130141130167%_ - (##unchecked-structure-ref _%self130136130144%_ '2 '#f '#f)) - (_%e130142130170%_ - (##unchecked-structure-ref _%self130136130144%_ '3 '#f '#f)) - (_%K130173%_ _%e130142130170%_)) - (_%K130139130161%_ _%K130173%_)))) + (_%K130310%_ _%stx130282%_) + _%g130314130316%_)) + _%$e130312%_) + (_%K130310%_ _%stx130282%_))))) + (_%e130299130323%_ + (##unchecked-structure-ref _%self130295130303%_ '1 '#f '#f)) + (_%e130300130326%_ + (##unchecked-structure-ref _%self130295130303%_ '2 '#f '#f)) + (_%e130301130329%_ + (##unchecked-structure-ref _%self130295130303%_ '3 '#f '#f)) + (_%K130332%_ _%e130301130329%_)) + (_%K130298130320%_ _%K130332%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx129995%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx129995%_))) + (lambda (_%stx130154%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx130154%_))) (define gx#core-compile-top-begin% - (lambda (_%stx129965%_) - (let* ((_%e129966129973%_ _%stx129965%_) - (_%E129968129977%_ + (lambda (_%stx130124%_) + (let* ((_%e130125130132%_ _%stx130124%_) + (_%E130127130136%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129966129973%_))) - (_%E129967129991%_ - (lambda () - (if (gx#stx-pair? _%e129966129973%_) - (let ((_%e129969129981%_ - (gx#syntax-e _%e129966129973%_))) - (let ((_%hd129970129984%_ (##car _%e129969129981%_)) - (_%tl129971129986%_ (##cdr _%e129969129981%_))) - (let ((_%body129989%_ _%tl129971129986%_)) + _%e130125130132%_))) + (_%E130126130150%_ + (lambda () + (if (gx#stx-pair? _%e130125130132%_) + (let ((_%e130128130140%_ + (gx#syntax-e _%e130125130132%_))) + (let ((_%hd130129130143%_ (##car _%e130128130140%_)) + (_%tl130130130145%_ (##cdr _%e130128130140%_))) + (let ((_%body130148%_ _%tl130130130145%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body129989%_))))) - (_%E129968129977%_))))) - (_%E129967129991%_)))) + _%body130148%_))))) + (_%E130127130136%_))))) + (_%E130126130150%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx129934%_) - (let* ((_%e129935129942%_ _%stx129934%_) - (_%E129937129946%_ + (lambda (_%stx130093%_) + (let* ((_%e130094130101%_ _%stx130093%_) + (_%E130096130105%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129935129942%_))) - (_%E129936129961%_ - (lambda () - (if (gx#stx-pair? _%e129935129942%_) - (let ((_%e129938129950%_ - (gx#syntax-e _%e129935129942%_))) - (let ((_%hd129939129953%_ (##car _%e129938129950%_)) - (_%tl129940129955%_ (##cdr _%e129938129950%_))) - (let ((_%body129958%_ _%tl129940129955%_)) + _%e130094130101%_))) + (_%E130095130120%_ + (lambda () + (if (gx#stx-pair? _%e130094130101%_) + (let ((_%e130097130109%_ + (gx#syntax-e _%e130094130101%_))) + (let ((_%hd130098130112%_ (##car _%e130097130109%_)) + (_%tl130099130114%_ (##cdr _%e130097130109%_))) + (let ((_%body130117%_ _%tl130099130114%_)) (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body129958%_)) + _%body130117%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E129937129946%_))))) - (_%E129936129961%_)))) + (_%E130096130105%_))))) + (_%E130095130120%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx129904%_) - (let* ((_%e129905129912%_ _%stx129904%_) - (_%E129907129916%_ + (lambda (_%stx130063%_) + (let* ((_%e130064130071%_ _%stx130063%_) + (_%E130066130075%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129905129912%_))) - (_%E129906129930%_ - (lambda () - (if (gx#stx-pair? _%e129905129912%_) - (let ((_%e129908129920%_ - (gx#syntax-e _%e129905129912%_))) - (let ((_%hd129909129923%_ (##car _%e129908129920%_)) - (_%tl129910129925%_ (##cdr _%e129908129920%_))) - (let ((_%body129928%_ _%tl129910129925%_)) - (cons '%#begin-foreign _%body129928%_)))) - (_%E129907129916%_))))) - (_%E129906129930%_)))) + _%e130064130071%_))) + (_%E130065130089%_ + (lambda () + (if (gx#stx-pair? _%e130064130071%_) + (let ((_%e130067130079%_ + (gx#syntax-e _%e130064130071%_))) + (let ((_%hd130068130082%_ (##car _%e130067130079%_)) + (_%tl130069130084%_ (##cdr _%e130067130079%_))) + (let ((_%body130087%_ _%tl130069130084%_)) + (cons '%#begin-foreign _%body130087%_)))) + (_%E130066130075%_))))) + (_%E130065130089%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx129850%_) - (let* ((_%e129851129864%_ _%stx129850%_) - (_%E129853129868%_ + (lambda (_%stx130009%_) + (let* ((_%e130010130023%_ _%stx130009%_) + (_%E130012130027%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129851129864%_))) - (_%E129852129900%_ - (lambda () - (if (gx#stx-pair? _%e129851129864%_) - (let ((_%e129854129872%_ - (gx#syntax-e _%e129851129864%_))) - (let ((_%hd129855129875%_ (##car _%e129854129872%_)) - (_%tl129856129877%_ (##cdr _%e129854129872%_))) - (if (gx#stx-pair? _%tl129856129877%_) - (let ((_%e129857129880%_ - (gx#syntax-e _%tl129856129877%_))) - (let ((_%hd129858129883%_ - (##car _%e129857129880%_)) - (_%tl129859129885%_ - (##cdr _%e129857129880%_))) - (let ((_%ann129888%_ _%hd129858129883%_)) - (if (gx#stx-pair? _%tl129859129885%_) - (let ((_%e129860129890%_ + _%e130010130023%_))) + (_%E130011130059%_ + (lambda () + (if (gx#stx-pair? _%e130010130023%_) + (let ((_%e130013130031%_ + (gx#syntax-e _%e130010130023%_))) + (let ((_%hd130014130034%_ (##car _%e130013130031%_)) + (_%tl130015130036%_ (##cdr _%e130013130031%_))) + (if (gx#stx-pair? _%tl130015130036%_) + (let ((_%e130016130039%_ + (gx#syntax-e _%tl130015130036%_))) + (let ((_%hd130017130042%_ + (##car _%e130016130039%_)) + (_%tl130018130044%_ + (##cdr _%e130016130039%_))) + (let ((_%ann130047%_ _%hd130017130042%_)) + (if (gx#stx-pair? _%tl130018130044%_) + (let ((_%e130019130049%_ (gx#syntax-e - _%tl129859129885%_))) - (let ((_%hd129861129893%_ - (##car _%e129860129890%_)) - (_%tl129862129895%_ - (##cdr _%e129860129890%_))) - (let ((_%expr129898%_ - _%hd129861129893%_)) + _%tl130018130044%_))) + (let ((_%hd130020130052%_ + (##car _%e130019130049%_)) + (_%tl130021130054%_ + (##cdr _%e130019130049%_))) + (let ((_%expr130057%_ + _%hd130020130052%_)) (if (gx#stx-null? - _%tl129862129895%_) + _%tl130021130054%_) (gx#core-compile-top-syntax - _%expr129898%_) - (_%E129853129868%_))))) - (_%E129853129868%_))))) - (_%E129853129868%_)))) - (_%E129853129868%_))))) - (_%E129852129900%_)))) + _%expr130057%_) + (_%E130012130027%_))))) + (_%E130012130027%_))))) + (_%E130012130027%_)))) + (_%E130012130027%_))))) + (_%E130011130059%_)))) (define gx#core-compile-top-import% - (lambda (_%stx129820%_) - (let* ((_%e129821129828%_ _%stx129820%_) - (_%E129823129832%_ + (lambda (_%stx129979%_) + (let* ((_%e129980129987%_ _%stx129979%_) + (_%E129982129991%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%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 '%#import _%body129844%_)))) - (_%E129823129832%_))))) - (_%E129822129846%_)))) + _%e129980129987%_))) + (_%E129981130005%_ + (lambda () + (if (gx#stx-pair? _%e129980129987%_) + (let ((_%e129983129995%_ + (gx#syntax-e _%e129980129987%_))) + (let ((_%hd129984129998%_ (##car _%e129983129995%_)) + (_%tl129985130000%_ (##cdr _%e129983129995%_))) + (let ((_%body130003%_ _%tl129985130000%_)) + (cons '%#import _%body130003%_)))) + (_%E129982129991%_))))) + (_%E129981130005%_)))) (define gx#core-compile-top-module% - (lambda (_%stx129777%_) - (let* ((_%e129778129788%_ _%stx129777%_) - (_%E129780129792%_ + (lambda (_%stx129936%_) + (let* ((_%e129937129947%_ _%stx129936%_) + (_%E129939129951%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129778129788%_))) - (_%E129779129816%_ - (lambda () - (if (gx#stx-pair? _%e129778129788%_) - (let ((_%e129781129796%_ - (gx#syntax-e _%e129778129788%_))) - (let ((_%hd129782129799%_ (##car _%e129781129796%_)) - (_%tl129783129801%_ (##cdr _%e129781129796%_))) - (if (gx#stx-pair? _%tl129783129801%_) - (let ((_%e129784129804%_ - (gx#syntax-e _%tl129783129801%_))) - (let ((_%hd129785129807%_ - (##car _%e129784129804%_)) - (_%tl129786129809%_ - (##cdr _%e129784129804%_))) - (let* ((_%hd129812%_ _%hd129785129807%_) - (_%body129814%_ _%tl129786129809%_)) + _%e129937129947%_))) + (_%E129938129975%_ + (lambda () + (if (gx#stx-pair? _%e129937129947%_) + (let ((_%e129940129955%_ + (gx#syntax-e _%e129937129947%_))) + (let ((_%hd129941129958%_ (##car _%e129940129955%_)) + (_%tl129942129960%_ (##cdr _%e129940129955%_))) + (if (gx#stx-pair? _%tl129942129960%_) + (let ((_%e129943129963%_ + (gx#syntax-e _%tl129942129960%_))) + (let ((_%hd129944129966%_ + (##car _%e129943129963%_)) + (_%tl129945129968%_ + (##cdr _%e129943129963%_))) + (let* ((_%hd129971%_ _%hd129944129966%_) + (_%body129973%_ _%tl129945129968%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd129812%_) + _%hd129971%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body129814%_)))))) - (_%E129780129792%_)))) - (_%E129780129792%_))))) - (_%E129779129816%_)))) + _%body129973%_)))))) + (_%E129939129951%_)))) + (_%E129939129951%_))))) + (_%E129938129975%_)))) (define gx#core-compile-top-export% - (lambda (_%stx129747%_) - (let* ((_%e129748129755%_ _%stx129747%_) - (_%E129750129759%_ + (lambda (_%stx129906%_) + (let* ((_%e129907129914%_ _%stx129906%_) + (_%E129909129918%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129748129755%_))) - (_%E129749129773%_ - (lambda () - (if (gx#stx-pair? _%e129748129755%_) - (let ((_%e129751129763%_ - (gx#syntax-e _%e129748129755%_))) - (let ((_%hd129752129766%_ (##car _%e129751129763%_)) - (_%tl129753129768%_ (##cdr _%e129751129763%_))) - (let ((_%body129771%_ _%tl129753129768%_)) - (cons '%#export _%body129771%_)))) - (_%E129750129759%_))))) - (_%E129749129773%_)))) + _%e129907129914%_))) + (_%E129908129932%_ + (lambda () + (if (gx#stx-pair? _%e129907129914%_) + (let ((_%e129910129922%_ + (gx#syntax-e _%e129907129914%_))) + (let ((_%hd129911129925%_ (##car _%e129910129922%_)) + (_%tl129912129927%_ (##cdr _%e129910129922%_))) + (let ((_%body129930%_ _%tl129912129927%_)) + (cons '%#export _%body129930%_)))) + (_%E129909129918%_))))) + (_%E129908129932%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx129717%_) - (let* ((_%e129718129725%_ _%stx129717%_) - (_%E129720129729%_ + (lambda (_%stx129876%_) + (let* ((_%e129877129884%_ _%stx129876%_) + (_%E129879129888%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129718129725%_))) - (_%E129719129743%_ - (lambda () - (if (gx#stx-pair? _%e129718129725%_) - (let ((_%e129721129733%_ - (gx#syntax-e _%e129718129725%_))) - (let ((_%hd129722129736%_ (##car _%e129721129733%_)) - (_%tl129723129738%_ (##cdr _%e129721129733%_))) - (let ((_%body129741%_ _%tl129723129738%_)) - (cons '%#provide _%body129741%_)))) - (_%E129720129729%_))))) - (_%E129719129743%_)))) + _%e129877129884%_))) + (_%E129878129902%_ + (lambda () + (if (gx#stx-pair? _%e129877129884%_) + (let ((_%e129880129892%_ + (gx#syntax-e _%e129877129884%_))) + (let ((_%hd129881129895%_ (##car _%e129880129892%_)) + (_%tl129882129897%_ (##cdr _%e129880129892%_))) + (let ((_%body129900%_ _%tl129882129897%_)) + (cons '%#provide _%body129900%_)))) + (_%E129879129888%_))))) + (_%E129878129902%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx129687%_) - (let* ((_%e129688129695%_ _%stx129687%_) - (_%E129690129699%_ + (lambda (_%stx129846%_) + (let* ((_%e129847129854%_ _%stx129846%_) + (_%E129849129858%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129688129695%_))) - (_%E129689129713%_ - (lambda () - (if (gx#stx-pair? _%e129688129695%_) - (let ((_%e129691129703%_ - (gx#syntax-e _%e129688129695%_))) - (let ((_%hd129692129706%_ (##car _%e129691129703%_)) - (_%tl129693129708%_ (##cdr _%e129691129703%_))) - (let ((_%body129711%_ _%tl129693129708%_)) - (cons '%#extern _%body129711%_)))) - (_%E129690129699%_))))) - (_%E129689129713%_)))) + _%e129847129854%_))) + (_%E129848129872%_ + (lambda () + (if (gx#stx-pair? _%e129847129854%_) + (let ((_%e129850129862%_ + (gx#syntax-e _%e129847129854%_))) + (let ((_%hd129851129865%_ (##car _%e129850129862%_)) + (_%tl129852129867%_ (##cdr _%e129850129862%_))) + (let ((_%body129870%_ _%tl129852129867%_)) + (cons '%#extern _%body129870%_)))) + (_%E129849129858%_))))) + (_%E129848129872%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx129633%_) - (let* ((_%e129634129647%_ _%stx129633%_) - (_%E129636129651%_ + (lambda (_%stx129792%_) + (let* ((_%e129793129806%_ _%stx129792%_) + (_%E129795129810%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129634129647%_))) - (_%E129635129683%_ - (lambda () - (if (gx#stx-pair? _%e129634129647%_) - (let ((_%e129637129655%_ - (gx#syntax-e _%e129634129647%_))) - (let ((_%hd129638129658%_ (##car _%e129637129655%_)) - (_%tl129639129660%_ (##cdr _%e129637129655%_))) - (if (gx#stx-pair? _%tl129639129660%_) - (let ((_%e129640129663%_ - (gx#syntax-e _%tl129639129660%_))) - (let ((_%hd129641129666%_ - (##car _%e129640129663%_)) - (_%tl129642129668%_ - (##cdr _%e129640129663%_))) - (let ((_%hd129671%_ _%hd129641129666%_)) - (if (gx#stx-pair? _%tl129642129668%_) - (let ((_%e129643129673%_ + _%e129793129806%_))) + (_%E129794129842%_ + (lambda () + (if (gx#stx-pair? _%e129793129806%_) + (let ((_%e129796129814%_ + (gx#syntax-e _%e129793129806%_))) + (let ((_%hd129797129817%_ (##car _%e129796129814%_)) + (_%tl129798129819%_ (##cdr _%e129796129814%_))) + (if (gx#stx-pair? _%tl129798129819%_) + (let ((_%e129799129822%_ + (gx#syntax-e _%tl129798129819%_))) + (let ((_%hd129800129825%_ + (##car _%e129799129822%_)) + (_%tl129801129827%_ + (##cdr _%e129799129822%_))) + (let ((_%hd129830%_ _%hd129800129825%_)) + (if (gx#stx-pair? _%tl129801129827%_) + (let ((_%e129802129832%_ (gx#syntax-e - _%tl129642129668%_))) - (let ((_%hd129644129676%_ - (##car _%e129643129673%_)) - (_%tl129645129678%_ - (##cdr _%e129643129673%_))) - (let ((_%expr129681%_ - _%hd129644129676%_)) + _%tl129801129827%_))) + (let ((_%hd129803129835%_ + (##car _%e129802129832%_)) + (_%tl129804129837%_ + (##cdr _%e129802129832%_))) + (let ((_%expr129840%_ + _%hd129803129835%_)) (if (gx#stx-null? - _%tl129645129678%_) + _%tl129804129837%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129671%_) + _%hd129830%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr129681%_) + _%expr129840%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129636129651%_))))) - (_%E129636129651%_))))) - (_%E129636129651%_)))) - (_%E129636129651%_))))) - (_%E129635129683%_)))) + (_%E129795129810%_))))) + (_%E129795129810%_))))) + (_%E129795129810%_)))) + (_%E129795129810%_))))) + (_%E129794129842%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx129578%_) - (let* ((_%e129579129592%_ _%stx129578%_) - (_%E129581129596%_ + (lambda (_%stx129737%_) + (let* ((_%e129738129751%_ _%stx129737%_) + (_%E129740129755%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129579129592%_))) - (_%E129580129629%_ - (lambda () - (if (gx#stx-pair? _%e129579129592%_) - (let ((_%e129582129600%_ - (gx#syntax-e _%e129579129592%_))) - (let ((_%hd129583129603%_ (##car _%e129582129600%_)) - (_%tl129584129605%_ (##cdr _%e129582129600%_))) - (if (gx#stx-pair? _%tl129584129605%_) - (let ((_%e129585129608%_ - (gx#syntax-e _%tl129584129605%_))) - (let ((_%hd129586129611%_ - (##car _%e129585129608%_)) - (_%tl129587129613%_ - (##cdr _%e129585129608%_))) - (let ((_%hd129616%_ _%hd129586129611%_)) - (if (gx#stx-pair? _%tl129587129613%_) - (let ((_%e129588129618%_ + _%e129738129751%_))) + (_%E129739129788%_ + (lambda () + (if (gx#stx-pair? _%e129738129751%_) + (let ((_%e129741129759%_ + (gx#syntax-e _%e129738129751%_))) + (let ((_%hd129742129762%_ (##car _%e129741129759%_)) + (_%tl129743129764%_ (##cdr _%e129741129759%_))) + (if (gx#stx-pair? _%tl129743129764%_) + (let ((_%e129744129767%_ + (gx#syntax-e _%tl129743129764%_))) + (let ((_%hd129745129770%_ + (##car _%e129744129767%_)) + (_%tl129746129772%_ + (##cdr _%e129744129767%_))) + (let ((_%hd129775%_ _%hd129745129770%_)) + (if (gx#stx-pair? _%tl129746129772%_) + (let ((_%e129747129777%_ (gx#syntax-e - _%tl129587129613%_))) - (let ((_%hd129589129621%_ - (##car _%e129588129618%_)) - (_%tl129590129623%_ - (##cdr _%e129588129618%_))) - (let ((_%expr129626%_ - _%hd129589129621%_)) + _%tl129746129772%_))) + (let ((_%hd129748129780%_ + (##car _%e129747129777%_)) + (_%tl129749129782%_ + (##cdr _%e129747129777%_))) + (let ((_%expr129785%_ + _%hd129748129780%_)) (if (gx#stx-null? - _%tl129590129623%_) + _%tl129749129782%_) (cons '%#define-syntax - (cons _%hd129616%_ + (cons _%hd129775%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr129626%_)) + (gx#core-compile-top-syntax _%expr129785%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129581129596%_))))) - (_%E129581129596%_))))) - (_%E129581129596%_)))) - (_%E129581129596%_))))) - (_%E129580129629%_)))) + (_%E129740129755%_))))) + (_%E129740129755%_))))) + (_%E129740129755%_)))) + (_%E129740129755%_))))) + (_%E129739129788%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx129548%_) - (let* ((_%e129549129556%_ _%stx129548%_) - (_%E129551129560%_ + (lambda (_%stx129707%_) + (let* ((_%e129708129715%_ _%stx129707%_) + (_%E129710129719%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129549129556%_))) - (_%E129550129574%_ - (lambda () - (if (gx#stx-pair? _%e129549129556%_) - (let ((_%e129552129564%_ - (gx#syntax-e _%e129549129556%_))) - (let ((_%hd129553129567%_ (##car _%e129552129564%_)) - (_%tl129554129569%_ (##cdr _%e129552129564%_))) - (let ((_%body129572%_ _%tl129554129569%_)) - (cons '%#define-alias _%body129572%_)))) - (_%E129551129560%_))))) - (_%E129550129574%_)))) + _%e129708129715%_))) + (_%E129709129733%_ + (lambda () + (if (gx#stx-pair? _%e129708129715%_) + (let ((_%e129711129723%_ + (gx#syntax-e _%e129708129715%_))) + (let ((_%hd129712129726%_ (##car _%e129711129723%_)) + (_%tl129713129728%_ (##cdr _%e129711129723%_))) + (let ((_%body129731%_ _%tl129713129728%_)) + (cons '%#define-alias _%body129731%_)))) + (_%E129710129719%_))))) + (_%E129709129733%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx129518%_) - (let* ((_%e129519129526%_ _%stx129518%_) - (_%E129521129530%_ + (lambda (_%stx129677%_) + (let* ((_%e129678129685%_ _%stx129677%_) + (_%E129680129689%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129519129526%_))) - (_%E129520129544%_ - (lambda () - (if (gx#stx-pair? _%e129519129526%_) - (let ((_%e129522129534%_ - (gx#syntax-e _%e129519129526%_))) - (let ((_%hd129523129537%_ (##car _%e129522129534%_)) - (_%tl129524129539%_ (##cdr _%e129522129534%_))) - (let ((_%body129542%_ _%tl129524129539%_)) - (cons '%#define-runtime _%body129542%_)))) - (_%E129521129530%_))))) - (_%E129520129544%_)))) + _%e129678129685%_))) + (_%E129679129703%_ + (lambda () + (if (gx#stx-pair? _%e129678129685%_) + (let ((_%e129681129693%_ + (gx#syntax-e _%e129678129685%_))) + (let ((_%hd129682129696%_ (##car _%e129681129693%_)) + (_%tl129683129698%_ (##cdr _%e129681129693%_))) + (let ((_%body129701%_ _%tl129683129698%_)) + (cons '%#define-runtime _%body129701%_)))) + (_%E129680129689%_))))) + (_%E129679129703%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx129488%_) - (let* ((_%e129489129496%_ _%stx129488%_) - (_%E129491129500%_ + (lambda (_%stx129647%_) + (let* ((_%e129648129655%_ _%stx129647%_) + (_%E129650129659%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129489129496%_))) - (_%E129490129514%_ - (lambda () - (if (gx#stx-pair? _%e129489129496%_) - (let ((_%e129492129504%_ - (gx#syntax-e _%e129489129496%_))) - (let ((_%hd129493129507%_ (##car _%e129492129504%_)) - (_%tl129494129509%_ (##cdr _%e129492129504%_))) - (let ((_%decls129512%_ _%tl129494129509%_)) - (cons '%#declare _%decls129512%_)))) - (_%E129491129500%_))))) - (_%E129490129514%_)))) + _%e129648129655%_))) + (_%E129649129673%_ + (lambda () + (if (gx#stx-pair? _%e129648129655%_) + (let ((_%e129651129663%_ + (gx#syntax-e _%e129648129655%_))) + (let ((_%hd129652129666%_ (##car _%e129651129663%_)) + (_%tl129653129668%_ (##cdr _%e129651129663%_))) + (let ((_%decls129671%_ _%tl129653129668%_)) + (cons '%#declare _%decls129671%_)))) + (_%E129650129659%_))))) + (_%E129649129673%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx129458%_) - (let* ((_%e129459129466%_ _%stx129458%_) - (_%E129461129470%_ + (lambda (_%stx129617%_) + (let* ((_%e129618129625%_ _%stx129617%_) + (_%E129620129629%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129459129466%_))) - (_%E129460129484%_ - (lambda () - (if (gx#stx-pair? _%e129459129466%_) - (let ((_%e129462129474%_ - (gx#syntax-e _%e129459129466%_))) - (let ((_%hd129463129477%_ (##car _%e129462129474%_)) - (_%tl129464129479%_ (##cdr _%e129462129474%_))) - (let ((_%clause129482%_ _%tl129464129479%_)) + _%e129618129625%_))) + (_%E129619129643%_ + (lambda () + (if (gx#stx-pair? _%e129618129625%_) + (let ((_%e129621129633%_ + (gx#syntax-e _%e129618129625%_))) + (let ((_%hd129622129636%_ (##car _%e129621129633%_)) + (_%tl129623129638%_ (##cdr _%e129621129633%_))) + (let ((_%clause129641%_ _%tl129623129638%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause129482%_))))) - (_%E129461129470%_))))) - (_%E129460129484%_)))) + _%clause129641%_))))) + (_%E129620129629%_))))) + (_%E129619129643%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx129415%_) - (let* ((_%e129416129426%_ _%stx129415%_) - (_%E129418129430%_ + (lambda (_%stx129574%_) + (let* ((_%e129575129585%_ _%stx129574%_) + (_%E129577129589%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129416129426%_))) - (_%E129417129454%_ - (lambda () - (if (gx#stx-pair? _%e129416129426%_) - (let ((_%e129419129434%_ - (gx#syntax-e _%e129416129426%_))) - (let ((_%hd129420129437%_ (##car _%e129419129434%_)) - (_%tl129421129439%_ (##cdr _%e129419129434%_))) - (let ((_%hd129442%_ _%hd129420129437%_)) - (if (gx#stx-pair? _%tl129421129439%_) - (let ((_%e129422129444%_ - (gx#syntax-e _%tl129421129439%_))) - (let ((_%hd129423129447%_ - (##car _%e129422129444%_)) - (_%tl129424129449%_ - (##cdr _%e129422129444%_))) - (let ((_%body129452%_ _%hd129423129447%_)) - (if (gx#stx-null? _%tl129424129449%_) + _%e129575129585%_))) + (_%E129576129613%_ + (lambda () + (if (gx#stx-pair? _%e129575129585%_) + (let ((_%e129578129593%_ + (gx#syntax-e _%e129575129585%_))) + (let ((_%hd129579129596%_ (##car _%e129578129593%_)) + (_%tl129580129598%_ (##cdr _%e129578129593%_))) + (let ((_%hd129601%_ _%hd129579129596%_)) + (if (gx#stx-pair? _%tl129580129598%_) + (let ((_%e129581129603%_ + (gx#syntax-e _%tl129580129598%_))) + (let ((_%hd129582129606%_ + (##car _%e129581129603%_)) + (_%tl129583129608%_ + (##cdr _%e129581129603%_))) + (let ((_%body129611%_ _%hd129582129606%_)) + (if (gx#stx-null? _%tl129583129608%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129442%_) + _%hd129601%_) (cons (gx#core-compile-top-syntax - _%body129452%_) + _%body129611%_) '())) - (_%E129418129430%_))))) - (_%E129418129430%_))))) - (_%E129418129430%_))))) - (_%E129417129454%_)))) + (_%E129577129589%_))))) + (_%E129577129589%_))))) + (_%E129577129589%_))))) + (_%E129576129613%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx129385%_) - (let* ((_%e129386129393%_ _%stx129385%_) - (_%E129388129397%_ + (lambda (_%stx129544%_) + (let* ((_%e129545129552%_ _%stx129544%_) + (_%E129547129556%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129386129393%_))) - (_%E129387129411%_ - (lambda () - (if (gx#stx-pair? _%e129386129393%_) - (let ((_%e129389129401%_ - (gx#syntax-e _%e129386129393%_))) - (let ((_%hd129390129404%_ (##car _%e129389129401%_)) - (_%tl129391129406%_ (##cdr _%e129389129401%_))) - (let ((_%clauses129409%_ _%tl129391129406%_)) + _%e129545129552%_))) + (_%E129546129570%_ + (lambda () + (if (gx#stx-pair? _%e129545129552%_) + (let ((_%e129548129560%_ + (gx#syntax-e _%e129545129552%_))) + (let ((_%hd129549129563%_ (##car _%e129548129560%_)) + (_%tl129550129565%_ (##cdr _%e129548129560%_))) + (let ((_%clauses129568%_ _%tl129550129565%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses129409%_))))) - (_%E129388129397%_))))) - (_%E129387129411%_)))) + _%clauses129568%_))))) + (_%E129547129556%_))))) + (_%E129546129570%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx129320%_ _%form129321%_) - (let* ((_%e129322129335%_ _%stx129320%_) - (_%E129324129339%_ + (lambda (_%stx129479%_ _%form129480%_) + (let* ((_%e129481129494%_ _%stx129479%_) + (_%E129483129498%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129322129335%_))) - (_%E129323129371%_ - (lambda () - (if (gx#stx-pair? _%e129322129335%_) - (let ((_%e129325129343%_ - (gx#syntax-e _%e129322129335%_))) - (let ((_%hd129326129346%_ (##car _%e129325129343%_)) - (_%tl129327129348%_ (##cdr _%e129325129343%_))) - (if (gx#stx-pair? _%tl129327129348%_) - (let ((_%e129328129351%_ - (gx#syntax-e _%tl129327129348%_))) - (let ((_%hd129329129354%_ - (##car _%e129328129351%_)) - (_%tl129330129356%_ - (##cdr _%e129328129351%_))) - (let ((_%hd129359%_ _%hd129329129354%_)) - (if (gx#stx-pair? _%tl129330129356%_) - (let ((_%e129331129361%_ + _%e129481129494%_))) + (_%E129482129530%_ + (lambda () + (if (gx#stx-pair? _%e129481129494%_) + (let ((_%e129484129502%_ + (gx#syntax-e _%e129481129494%_))) + (let ((_%hd129485129505%_ (##car _%e129484129502%_)) + (_%tl129486129507%_ (##cdr _%e129484129502%_))) + (if (gx#stx-pair? _%tl129486129507%_) + (let ((_%e129487129510%_ + (gx#syntax-e _%tl129486129507%_))) + (let ((_%hd129488129513%_ + (##car _%e129487129510%_)) + (_%tl129489129515%_ + (##cdr _%e129487129510%_))) + (let ((_%hd129518%_ _%hd129488129513%_)) + (if (gx#stx-pair? _%tl129489129515%_) + (let ((_%e129490129520%_ (gx#syntax-e - _%tl129330129356%_))) - (let ((_%hd129332129364%_ - (##car _%e129331129361%_)) - (_%tl129333129366%_ - (##cdr _%e129331129361%_))) - (let ((_%body129369%_ - _%hd129332129364%_)) + _%tl129489129515%_))) + (let ((_%hd129491129523%_ + (##car _%e129490129520%_)) + (_%tl129492129525%_ + (##cdr _%e129490129520%_))) + (let ((_%body129528%_ + _%hd129491129523%_)) (if (gx#stx-null? - _%tl129333129366%_) - (cons _%form129321%_ + _%tl129492129525%_) + (cons _%form129480%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd129359%_) + _%hd129518%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body129369%_) + _%body129528%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129324129339%_))))) - (_%E129324129339%_))))) - (_%E129324129339%_)))) - (_%E129324129339%_))))) - (_%E129323129371%_)))) + (_%E129483129498%_))))) + (_%E129483129498%_))))) + (_%E129483129498%_)))) + (_%E129483129498%_))))) + (_%E129482129530%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx129378%_) - (let ((_%form129380%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx129378%_ _%form129380%_)))) + (lambda (_%stx129537%_) + (let ((_%form129539%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx129537%_ _%form129539%_)))) (define gx#core-compile-top-let-values% - (lambda _g130207_ - (let ((_g130206_ (##length _g130207_))) - (cond ((##fx= _g130206_ 1) - (apply gx#core-compile-top-let-values%__0 _g130207_)) - ((##fx= _g130206_ 2) - (apply gx#core-compile-top-let-values%__% _g130207_)) + (lambda _g130366_ + (let ((_g130365_ (##length _g130366_))) + (cond ((##fx= _g130365_ 1) + (apply gx#core-compile-top-let-values%__0 _g130366_)) + ((##fx= _g130365_ 2) + (apply gx#core-compile-top-let-values%__% _g130366_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g130207_)))))) + _g130366_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx129317%_) - (gx#core-compile-top-let-values%__% _%stx129317%_ '%#letrec-values))) + (lambda (_%stx129476%_) + (gx#core-compile-top-let-values%__% _%stx129476%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx129315%_) - (gx#core-compile-top-let-values%__% _%stx129315%_ '%#letrec*-values))) + (lambda (_%stx129474%_) + (gx#core-compile-top-let-values%__% _%stx129474%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx129274%_) - (let* ((_%e129275129285%_ _%stx129274%_) - (_%E129277129289%_ + (lambda (_%stx129433%_) + (let* ((_%e129434129444%_ _%stx129433%_) + (_%E129436129448%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129275129285%_))) - (_%E129276129311%_ - (lambda () - (if (gx#stx-pair? _%e129275129285%_) - (let ((_%e129278129293%_ - (gx#syntax-e _%e129275129285%_))) - (let ((_%hd129279129296%_ (##car _%e129278129293%_)) - (_%tl129280129298%_ (##cdr _%e129278129293%_))) - (if (gx#stx-pair? _%tl129280129298%_) - (let ((_%e129281129301%_ - (gx#syntax-e _%tl129280129298%_))) - (let ((_%hd129282129304%_ - (##car _%e129281129301%_)) - (_%tl129283129306%_ - (##cdr _%e129281129301%_))) - (let ((_%e129309%_ _%hd129282129304%_)) - (if (gx#stx-null? _%tl129283129306%_) + _%e129434129444%_))) + (_%E129435129470%_ + (lambda () + (if (gx#stx-pair? _%e129434129444%_) + (let ((_%e129437129452%_ + (gx#syntax-e _%e129434129444%_))) + (let ((_%hd129438129455%_ (##car _%e129437129452%_)) + (_%tl129439129457%_ (##cdr _%e129437129452%_))) + (if (gx#stx-pair? _%tl129439129457%_) + (let ((_%e129440129460%_ + (gx#syntax-e _%tl129439129457%_))) + (let ((_%hd129441129463%_ + (##car _%e129440129460%_)) + (_%tl129442129465%_ + (##cdr _%e129440129460%_))) + (let ((_%e129468%_ _%hd129441129463%_)) + (if (gx#stx-null? _%tl129442129465%_) (cons '%#quote (cons (gx#syntax->datum - _%e129309%_) + _%e129468%_) '())) - (_%E129277129289%_))))) - (_%E129277129289%_)))) - (_%E129277129289%_))))) - (_%E129276129311%_)))) + (_%E129436129448%_))))) + (_%E129436129448%_)))) + (_%E129436129448%_))))) + (_%E129435129470%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx129233%_) - (let* ((_%e129234129244%_ _%stx129233%_) - (_%E129236129248%_ + (lambda (_%stx129392%_) + (let* ((_%e129393129403%_ _%stx129392%_) + (_%E129395129407%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129234129244%_))) - (_%E129235129270%_ - (lambda () - (if (gx#stx-pair? _%e129234129244%_) - (let ((_%e129237129252%_ - (gx#syntax-e _%e129234129244%_))) - (let ((_%hd129238129255%_ (##car _%e129237129252%_)) - (_%tl129239129257%_ (##cdr _%e129237129252%_))) - (if (gx#stx-pair? _%tl129239129257%_) - (let ((_%e129240129260%_ - (gx#syntax-e _%tl129239129257%_))) - (let ((_%hd129241129263%_ - (##car _%e129240129260%_)) - (_%tl129242129265%_ - (##cdr _%e129240129260%_))) - (let ((_%e129268%_ _%hd129241129263%_)) - (if (gx#stx-null? _%tl129242129265%_) + _%e129393129403%_))) + (_%E129394129429%_ + (lambda () + (if (gx#stx-pair? _%e129393129403%_) + (let ((_%e129396129411%_ + (gx#syntax-e _%e129393129403%_))) + (let ((_%hd129397129414%_ (##car _%e129396129411%_)) + (_%tl129398129416%_ (##cdr _%e129396129411%_))) + (if (gx#stx-pair? _%tl129398129416%_) + (let ((_%e129399129419%_ + (gx#syntax-e _%tl129398129416%_))) + (let ((_%hd129400129422%_ + (##car _%e129399129419%_)) + (_%tl129401129424%_ + (##cdr _%e129399129419%_))) + (let ((_%e129427%_ _%hd129400129422%_)) + (if (gx#stx-null? _%tl129401129424%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e129268%_) + _%e129427%_) '())) - (_%E129236129248%_))))) - (_%E129236129248%_)))) - (_%E129236129248%_))))) - (_%E129235129270%_)))) + (_%E129395129407%_))))) + (_%E129395129407%_)))) + (_%E129395129407%_))))) + (_%E129394129429%_)))) (define gx#core-compile-top-call% - (lambda (_%stx129190%_) - (let* ((_%e129191129201%_ _%stx129190%_) - (_%E129193129205%_ + (lambda (_%stx129349%_) + (let* ((_%e129350129360%_ _%stx129349%_) + (_%E129352129364%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129191129201%_))) - (_%E129192129229%_ - (lambda () - (if (gx#stx-pair? _%e129191129201%_) - (let ((_%e129194129209%_ - (gx#syntax-e _%e129191129201%_))) - (let ((_%hd129195129212%_ (##car _%e129194129209%_)) - (_%tl129196129214%_ (##cdr _%e129194129209%_))) - (if (gx#stx-pair? _%tl129196129214%_) - (let ((_%e129197129217%_ - (gx#syntax-e _%tl129196129214%_))) - (let ((_%hd129198129220%_ - (##car _%e129197129217%_)) - (_%tl129199129222%_ - (##cdr _%e129197129217%_))) - (let* ((_%rator129225%_ _%hd129198129220%_) - (_%args129227%_ _%tl129199129222%_)) + _%e129350129360%_))) + (_%E129351129388%_ + (lambda () + (if (gx#stx-pair? _%e129350129360%_) + (let ((_%e129353129368%_ + (gx#syntax-e _%e129350129360%_))) + (let ((_%hd129354129371%_ (##car _%e129353129368%_)) + (_%tl129355129373%_ (##cdr _%e129353129368%_))) + (if (gx#stx-pair? _%tl129355129373%_) + (let ((_%e129356129376%_ + (gx#syntax-e _%tl129355129373%_))) + (let ((_%hd129357129379%_ + (##car _%e129356129376%_)) + (_%tl129358129381%_ + (##cdr _%e129356129376%_))) + (let* ((_%rator129384%_ _%hd129357129379%_) + (_%args129386%_ _%tl129358129381%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator129225%_) + _%rator129384%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args129227%_)))))) - (_%E129193129205%_)))) - (_%E129193129205%_))))) - (_%E129192129229%_)))) + _%args129386%_)))))) + (_%E129352129364%_)))) + (_%E129352129364%_))))) + (_%E129351129388%_)))) (define gx#core-compile-top-if% - (lambda (_%stx129123%_) - (let* ((_%e129124129140%_ _%stx129123%_) - (_%E129126129144%_ + (lambda (_%stx129282%_) + (let* ((_%e129283129299%_ _%stx129282%_) + (_%E129285129303%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129124129140%_))) - (_%E129125129186%_ - (lambda () - (if (gx#stx-pair? _%e129124129140%_) - (let ((_%e129127129148%_ - (gx#syntax-e _%e129124129140%_))) - (let ((_%hd129128129151%_ (##car _%e129127129148%_)) - (_%tl129129129153%_ (##cdr _%e129127129148%_))) - (if (gx#stx-pair? _%tl129129129153%_) - (let ((_%e129130129156%_ - (gx#syntax-e _%tl129129129153%_))) - (let ((_%hd129131129159%_ - (##car _%e129130129156%_)) - (_%tl129132129161%_ - (##cdr _%e129130129156%_))) - (let ((_%test129164%_ _%hd129131129159%_)) - (if (gx#stx-pair? _%tl129132129161%_) - (let ((_%e129133129166%_ + _%e129283129299%_))) + (_%E129284129345%_ + (lambda () + (if (gx#stx-pair? _%e129283129299%_) + (let ((_%e129286129307%_ + (gx#syntax-e _%e129283129299%_))) + (let ((_%hd129287129310%_ (##car _%e129286129307%_)) + (_%tl129288129312%_ (##cdr _%e129286129307%_))) + (if (gx#stx-pair? _%tl129288129312%_) + (let ((_%e129289129315%_ + (gx#syntax-e _%tl129288129312%_))) + (let ((_%hd129290129318%_ + (##car _%e129289129315%_)) + (_%tl129291129320%_ + (##cdr _%e129289129315%_))) + (let ((_%test129323%_ _%hd129290129318%_)) + (if (gx#stx-pair? _%tl129291129320%_) + (let ((_%e129292129325%_ (gx#syntax-e - _%tl129132129161%_))) - (let ((_%hd129134129169%_ - (##car _%e129133129166%_)) - (_%tl129135129171%_ - (##cdr _%e129133129166%_))) - (let ((_%K129174%_ - _%hd129134129169%_)) + _%tl129291129320%_))) + (let ((_%hd129293129328%_ + (##car _%e129292129325%_)) + (_%tl129294129330%_ + (##cdr _%e129292129325%_))) + (let ((_%K129333%_ + _%hd129293129328%_)) (if (gx#stx-pair? - _%tl129135129171%_) - (let ((_%e129136129176%_ + _%tl129294129330%_) + (let ((_%e129295129335%_ (gx#syntax-e - _%tl129135129171%_))) - (let ((_%hd129137129179%_ - (##car _%e129136129176%_)) - (_%tl129138129181%_ - (##cdr _%e129136129176%_))) - (let ((_%E129184%_ - _%hd129137129179%_)) + _%tl129294129330%_))) + (let ((_%hd129296129338%_ + (##car _%e129295129335%_)) + (_%tl129297129340%_ + (##cdr _%e129295129335%_))) + (let ((_%E129343%_ + _%hd129296129338%_)) (if (gx#stx-null? - _%tl129138129181%_) + _%tl129297129340%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test129164%_) - (cons (gx#core-compile-top-syntax _%K129174%_) + (cons (gx#core-compile-top-syntax _%test129323%_) + (cons (gx#core-compile-top-syntax _%K129333%_) (cons (gx#core-compile-top-syntax - _%E129184%_) + _%E129343%_) '())))) - (_%E129126129144%_))))) + (_%E129285129303%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129126129144%_))))) - (_%E129126129144%_))))) - (_%E129126129144%_)))) - (_%E129126129144%_))))) - (_%E129125129186%_)))) + (_%E129285129303%_))))) + (_%E129285129303%_))))) + (_%E129285129303%_)))) + (_%E129285129303%_))))) + (_%E129284129345%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx129082%_) - (let* ((_%e129083129093%_ _%stx129082%_) - (_%E129085129097%_ + (lambda (_%stx129241%_) + (let* ((_%e129242129252%_ _%stx129241%_) + (_%E129244129256%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129083129093%_))) - (_%E129084129119%_ - (lambda () - (if (gx#stx-pair? _%e129083129093%_) - (let ((_%e129086129101%_ - (gx#syntax-e _%e129083129093%_))) - (let ((_%hd129087129104%_ (##car _%e129086129101%_)) - (_%tl129088129106%_ (##cdr _%e129086129101%_))) - (if (gx#stx-pair? _%tl129088129106%_) - (let ((_%e129089129109%_ - (gx#syntax-e _%tl129088129106%_))) - (let ((_%hd129090129112%_ - (##car _%e129089129109%_)) - (_%tl129091129114%_ - (##cdr _%e129089129109%_))) - (let ((_%id129117%_ _%hd129090129112%_)) - (if (gx#stx-null? _%tl129091129114%_) - (if (gx#identifier? _%id129117%_) + _%e129242129252%_))) + (_%E129243129278%_ + (lambda () + (if (gx#stx-pair? _%e129242129252%_) + (let ((_%e129245129260%_ + (gx#syntax-e _%e129242129252%_))) + (let ((_%hd129246129263%_ (##car _%e129245129260%_)) + (_%tl129247129265%_ (##cdr _%e129245129260%_))) + (if (gx#stx-pair? _%tl129247129265%_) + (let ((_%e129248129268%_ + (gx#syntax-e _%tl129247129265%_))) + (let ((_%hd129249129271%_ + (##car _%e129248129268%_)) + (_%tl129250129273%_ + (##cdr _%e129248129268%_))) + (let ((_%id129276%_ _%hd129249129271%_)) + (if (gx#stx-null? _%tl129250129273%_) + (if (gx#identifier? _%id129276%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id129117%_) + _%id129276%_) '())) - (_%E129085129097%_)) - (_%E129085129097%_))))) - (_%E129085129097%_)))) - (_%E129085129097%_))))) - (_%E129084129119%_)))) + (_%E129244129256%_)) + (_%E129244129256%_))))) + (_%E129244129256%_)))) + (_%E129244129256%_))))) + (_%E129243129278%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx129028%_) - (let* ((_%e129029129042%_ _%stx129028%_) - (_%E129031129046%_ + (lambda (_%stx129187%_) + (let* ((_%e129188129201%_ _%stx129187%_) + (_%E129190129205%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129029129042%_))) - (_%E129030129078%_ - (lambda () - (if (gx#stx-pair? _%e129029129042%_) - (let ((_%e129032129050%_ - (gx#syntax-e _%e129029129042%_))) - (let ((_%hd129033129053%_ (##car _%e129032129050%_)) - (_%tl129034129055%_ (##cdr _%e129032129050%_))) - (if (gx#stx-pair? _%tl129034129055%_) - (let ((_%e129035129058%_ - (gx#syntax-e _%tl129034129055%_))) - (let ((_%hd129036129061%_ - (##car _%e129035129058%_)) - (_%tl129037129063%_ - (##cdr _%e129035129058%_))) - (let ((_%id129066%_ _%hd129036129061%_)) - (if (gx#stx-pair? _%tl129037129063%_) - (let ((_%e129038129068%_ + _%e129188129201%_))) + (_%E129189129237%_ + (lambda () + (if (gx#stx-pair? _%e129188129201%_) + (let ((_%e129191129209%_ + (gx#syntax-e _%e129188129201%_))) + (let ((_%hd129192129212%_ (##car _%e129191129209%_)) + (_%tl129193129214%_ (##cdr _%e129191129209%_))) + (if (gx#stx-pair? _%tl129193129214%_) + (let ((_%e129194129217%_ + (gx#syntax-e _%tl129193129214%_))) + (let ((_%hd129195129220%_ + (##car _%e129194129217%_)) + (_%tl129196129222%_ + (##cdr _%e129194129217%_))) + (let ((_%id129225%_ _%hd129195129220%_)) + (if (gx#stx-pair? _%tl129196129222%_) + (let ((_%e129197129227%_ (gx#syntax-e - _%tl129037129063%_))) - (let ((_%hd129039129071%_ - (##car _%e129038129068%_)) - (_%tl129040129073%_ - (##cdr _%e129038129068%_))) - (let ((_%expr129076%_ - _%hd129039129071%_)) + _%tl129196129222%_))) + (let ((_%hd129198129230%_ + (##car _%e129197129227%_)) + (_%tl129199129232%_ + (##cdr _%e129197129227%_))) + (let ((_%expr129235%_ + _%hd129198129230%_)) (if (gx#stx-null? - _%tl129040129073%_) + _%tl129199129232%_) (if (gx#identifier? - _%id129066%_) + _%id129225%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id129066%_) - (cons (gx#core-compile-top-syntax _%expr129076%_) + _%id129225%_) + (cons (gx#core-compile-top-syntax _%expr129235%_) '()))) - (_%E129031129046%_)) + (_%E129190129205%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129031129046%_))))) - (_%E129031129046%_))))) - (_%E129031129046%_)))) - (_%E129031129046%_))))) - (_%E129030129078%_)))) + (_%E129190129205%_))))) + (_%E129190129205%_))))) + (_%E129190129205%_)))) + (_%E129190129205%_))))) + (_%E129189129237%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id129022%_) - (let ((_%$e129024%_ (gx#resolve-identifier__0 _%id129022%_))) - (if _%$e129024%_ - (##unchecked-structure-ref _%$e129024%_ '1 '#f '#f) - _%id129022%_)))) + (lambda (_%id129181%_) + (let ((_%$e129183%_ (gx#resolve-identifier__0 _%id129181%_))) + (if _%$e129183%_ + (##unchecked-structure-ref _%$e129183%_ '1 '#f '#f) + _%id129181%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd129020%_) - (if (gx#identifier? _%hd129020%_) - (gx#core-compile-top-runtime-ref _%hd129020%_) + (lambda (_%hd129179%_) + (if (gx#identifier? _%hd129179%_) + (gx#core-compile-top-runtime-ref _%hd129179%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index ccfc2637c..35d949aed 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 1713631266) + (define gerbil/expander/core::timestamp 1733687559) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -25,8 +25,8 @@ (define gx#expander-context? (__make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _%$args121290%_ - (apply make-instance gx#expander-context::t _%$args121290%_))) + (lambda _%$args121449%_ + (apply make-instance gx#expander-context::t _%$args121449%_))) (define gx#expander-context-id (__make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -53,8 +53,8 @@ '#f)) (define gx#root-context? (__make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _%$args121287%_ - (apply make-instance gx#root-context::t _%$args121287%_))) + (lambda _%$args121446%_ + (apply make-instance gx#root-context::t _%$args121446%_))) (define gx#root-context-id (__make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -81,8 +81,8 @@ '#f)) (define gx#phi-context? (__make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _%$args121284%_ - (apply make-instance gx#phi-context::t _%$args121284%_))) + (lambda _%$args121443%_ + (apply make-instance gx#phi-context::t _%$args121443%_))) (define gx#phi-context-super (__make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up @@ -133,8 +133,8 @@ '#f)) (define gx#top-context? (__make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _%$args121281%_ - (apply make-instance gx#top-context::t _%$args121281%_))) + (lambda _%$args121440%_ + (apply make-instance gx#top-context::t _%$args121440%_))) (define gx#top-context-super (__make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up @@ -185,8 +185,8 @@ '#f)) (define gx#module-context? (__make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _%$args121278%_ - (apply make-instance gx#module-context::t _%$args121278%_))) + (lambda _%$args121437%_ + (apply make-instance gx#module-context::t _%$args121437%_))) (define gx#module-context-ns (__make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -285,8 +285,8 @@ '#f)) (define gx#prelude-context? (__make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _%$args121275%_ - (apply make-instance gx#prelude-context::t _%$args121275%_))) + (lambda _%$args121434%_ + (apply make-instance gx#prelude-context::t _%$args121434%_))) (define gx#prelude-context-path (__make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -361,8 +361,8 @@ '#f)) (define gx#local-context? (__make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _%$args121272%_ - (apply make-instance gx#local-context::t _%$args121272%_))) + (lambda _%$args121431%_ + (apply make-instance gx#local-context::t _%$args121431%_))) (define gx#local-context-super (__make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -404,97 +404,97 @@ (define gx#&local-context-table-set! (__make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_%self118178121243%_ _%id121245%_ _%super121246%_) - (let* ((_%self121248%_ _%self118178121243%_) - (_%self121250%_ _%self121248%_)) - (if (##fx< '3 (##structure-length _%self121250%_)) + (lambda (_%self118337121402%_ _%id121404%_ _%super121405%_) + (let* ((_%self121407%_ _%self118337121402%_) + (_%self121409%_ _%self121407%_)) + (if (##fx< '3 (##structure-length _%self121409%_)) (begin (##unchecked-structure-set! - _%self121250%_ - _%id121245%_ + _%self121409%_ + _%id121404%_ '1 '#f '#f) (##unchecked-structure-set! - _%self121250%_ + _%self121409%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121250%_ - _%super121246%_ + _%self121409%_ + _%super121405%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121250%_ + _%self121409%_ '3 - (##vector-length _%self121250%_)))))) + (##vector-length _%self121409%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self118178121263%_ _%id121264%_) - (let ((_%super121266%_ (gx#current-expander-context))) + (lambda (_%self118337121422%_ _%id121423%_) + (let ((_%super121425%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self118178121263%_ - _%id121264%_ - _%super121266%_)))) + _%self118337121422%_ + _%id121423%_ + _%super121425%_)))) (define gx#phi-context:::init! - (lambda _g121333_ - (let ((_g121332_ (##length _g121333_))) - (cond ((##fx= _g121332_ 2) - (apply gx#phi-context:::init!__0 _g121333_)) - ((##fx= _g121332_ 3) - (apply gx#phi-context:::init!__% _g121333_)) + (lambda _g121492_ + (let ((_g121491_ (##length _g121492_))) + (cond ((##fx= _g121491_ 2) + (apply gx#phi-context:::init!__0 _g121492_)) + ((##fx= _g121491_ 3) + (apply gx#phi-context:::init!__% _g121492_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g121333_)))))) + _g121492_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self118179121094%_ _%super121096%_) - (let* ((_%self121098%_ _%self118179121094%_) - (_%self121100%_ _%self121098%_)) - (if (##fx< '3 (##structure-length _%self121100%_)) + (lambda (_%self118338121253%_ _%super121255%_) + (let* ((_%self121257%_ _%self118338121253%_) + (_%self121259%_ _%self121257%_)) + (if (##fx< '3 (##structure-length _%self121259%_)) (begin (##unchecked-structure-set! - _%self121100%_ + _%self121259%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self121100%_ + _%self121259%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121100%_ - _%super121096%_ + _%self121259%_ + _%super121255%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121100%_ + _%self121259%_ '3 - (##vector-length _%self121100%_)))))) + (##vector-length _%self121259%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self118179121113%_) - (let ((_%super121115%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self118179121113%_ _%super121115%_)))) + (lambda (_%self118338121272%_) + (let ((_%super121274%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self118338121272%_ _%super121274%_)))) (define gx#local-context:::init! - (lambda _g121335_ - (let ((_g121334_ (##length _g121335_))) - (cond ((##fx= _g121334_ 1) - (apply gx#local-context:::init!__0 _g121335_)) - ((##fx= _g121334_ 2) - (apply gx#local-context:::init!__% _g121335_)) + (lambda _g121494_ + (let ((_g121493_ (##length _g121494_))) + (cond ((##fx= _g121493_ 1) + (apply gx#local-context:::init!__0 _g121494_)) + ((##fx= _g121493_ 2) + (apply gx#local-context:::init!__% _g121494_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g121335_)))))) + _g121494_)))))) (__bind-method!__% gx#local-context::t ':init! @@ -510,8 +510,8 @@ '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args120968%_ - (apply make-instance gx#binding::t _%$args120968%_))) + (lambda _%$args121127%_ + (apply make-instance gx#binding::t _%$args121127%_))) (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 +540,8 @@ '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args120965%_ - (apply make-instance gx#runtime-binding::t _%$args120965%_))) + (lambda _%$args121124%_ + (apply make-instance gx#runtime-binding::t _%$args121124%_))) (define gx#runtime-binding-id (__make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -576,8 +576,8 @@ '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args120962%_ - (apply make-instance gx#local-binding::t _%$args120962%_))) + (lambda _%$args121121%_ + (apply make-instance gx#local-binding::t _%$args121121%_))) (define gx#local-binding-id (__make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -612,8 +612,8 @@ '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args120959%_ - (apply make-instance gx#top-binding::t _%$args120959%_))) + (lambda _%$args121118%_ + (apply make-instance gx#top-binding::t _%$args121118%_))) (define gx#top-binding-id (__make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -648,8 +648,8 @@ '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args120956%_ - (apply make-instance gx#module-binding::t _%$args120956%_))) + (lambda _%$args121115%_ + (apply make-instance gx#module-binding::t _%$args121115%_))) (define gx#module-binding-context (__make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -692,8 +692,8 @@ '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args120953%_ - (apply make-instance gx#extern-binding::t _%$args120953%_))) + (lambda _%$args121112%_ + (apply make-instance gx#extern-binding::t _%$args121112%_))) (define gx#extern-binding-id (__make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -729,8 +729,8 @@ '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args120950%_ - (apply make-instance gx#syntax-binding::t _%$args120950%_))) + (lambda _%$args121109%_ + (apply make-instance gx#syntax-binding::t _%$args121109%_))) (define gx#syntax-binding-e (__make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -774,8 +774,8 @@ '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args120947%_ - (apply make-instance gx#import-binding::t _%$args120947%_))) + (lambda _%$args121106%_ + (apply make-instance gx#import-binding::t _%$args121106%_))) (define gx#import-binding-e (__make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -835,8 +835,8 @@ '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args120944%_ - (apply make-instance gx#alias-binding::t _%$args120944%_))) + (lambda _%$args121103%_ + (apply make-instance gx#alias-binding::t _%$args121103%_))) (define gx#alias-binding-e (__make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -879,8 +879,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args120941%_ - (apply make-instance gx#expander::t _%$args120941%_))) + (lambda _%$args121100%_ + (apply make-instance gx#expander::t _%$args121100%_))) (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 +897,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args120938%_ - (apply make-instance gx#core-expander::t _%$args120938%_))) + (lambda _%$args121097%_ + (apply make-instance gx#core-expander::t _%$args121097%_))) (define gx#core-expander-id (__make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -933,8 +933,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args120935%_ - (apply make-instance gx#expression-form::t _%$args120935%_))) + (lambda _%$args121094%_ + (apply make-instance gx#expression-form::t _%$args121094%_))) (define gx#expression-form-id (__make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -971,8 +971,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args120932%_ - (apply make-instance gx#special-form::t _%$args120932%_))) + (lambda _%$args121091%_ + (apply make-instance gx#special-form::t _%$args121091%_))) (define gx#special-form-id (__make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1007,8 +1007,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args120929%_ - (apply make-instance gx#definition-form::t _%$args120929%_))) + (lambda _%$args121088%_ + (apply make-instance gx#definition-form::t _%$args121088%_))) (define gx#definition-form-id (__make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1046,8 +1046,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args120926%_ - (apply make-instance gx#top-special-form::t _%$args120926%_))) + (lambda _%$args121085%_ + (apply make-instance gx#top-special-form::t _%$args121085%_))) (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 +1087,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args120923%_ - (apply make-instance gx#module-special-form::t _%$args120923%_))) + (lambda _%$args121082%_ + (apply make-instance gx#module-special-form::t _%$args121082%_))) (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 +1128,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args120920%_ - (apply make-instance gx#feature-expander::t _%$args120920%_))) + (lambda _%$args121079%_ + (apply make-instance gx#feature-expander::t _%$args121079%_))) (define gx#feature-expander-e (__make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1149,8 +1149,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args120917%_ - (apply make-instance gx#private-feature-expander::t _%$args120917%_))) + (lambda _%$args121076%_ + (apply make-instance gx#private-feature-expander::t _%$args121076%_))) (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 +1170,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args120914%_ - (apply make-instance gx#reserved-expander::t _%$args120914%_))) + (lambda _%$args121073%_ + (apply make-instance gx#reserved-expander::t _%$args121073%_))) (define gx#reserved-expander-e (__make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1190,8 +1190,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args120911%_ - (apply make-instance gx#macro-expander::t _%$args120911%_))) + (lambda _%$args121070%_ + (apply make-instance gx#macro-expander::t _%$args121070%_))) (define gx#macro-expander-e (__make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1211,8 +1211,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args120908%_ - (apply make-instance gx#rename-macro-expander::t _%$args120908%_))) + (lambda _%$args121067%_ + (apply make-instance gx#rename-macro-expander::t _%$args121067%_))) (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 +1231,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args120905%_ - (apply make-instance gx#user-expander::t _%$args120905%_))) + (lambda _%$args121064%_ + (apply make-instance gx#user-expander::t _%$args121064%_))) (define gx#user-expander-context (__make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1267,8 +1267,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args120902%_ - (apply make-instance gx#expander-mark::t _%$args120902%_))) + (lambda _%$args121061%_ + (apply make-instance gx#expander-mark::t _%$args121061%_))) (define gx#expander-mark-subst (__make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1302,985 +1302,985 @@ (define gx#&expander-mark-trace-set! (__make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_%ctx120886%_ - _%message120887%_ - _%stx120888%_ + (lambda (_%ctx121045%_ + _%message121046%_ + _%stx121047%_ . - _%details120889%_) - (let ((_%ctx120900%_ - (let ((_%$e120891%_ _%ctx120886%_)) - (if _%$e120891%_ - _%$e120891%_ - (let ((_%$e120894%_ (gx#core-context-top__0))) - (if _%$e120894%_ - ((lambda (_%ctx120897%_) + _%details121048%_) + (let ((_%ctx121059%_ + (let ((_%$e121050%_ _%ctx121045%_)) + (if _%$e121050%_ + _%$e121050%_ + (let ((_%$e121053%_ (gx#core-context-top__0))) + (if _%$e121053%_ + ((lambda (_%ctx121056%_) (cons 'expand (cons (##structure-ref - _%ctx120897%_ + _%ctx121056%_ '1 gx#expander-context::t '#f) '()))) - _%$e120894%_) + _%$e121053%_) '#f)))))) (raise (make-syntax-error - _%message120887%_ - (cons _%stx120888%_ _%details120889%_) - _%ctx120900%_ + _%message121046%_ + (cons _%stx121047%_ _%details121048%_) + _%ctx121059%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx120873%_ _%expression?120874%_) + (lambda (_%stx121032%_ _%expression?121033%_) (gx#eval-syntax* - (gx#core-expand__% _%stx120873%_ _%expression?120874%_)))) + (gx#core-expand__% _%stx121032%_ _%expression?121033%_)))) (define gx#eval-syntax__0 - (lambda (_%stx120879%_) - (let ((_%expression?120881%_ '#f)) - (gx#eval-syntax__% _%stx120879%_ _%expression?120881%_)))) + (lambda (_%stx121038%_) + (let ((_%expression?121040%_ '#f)) + (gx#eval-syntax__% _%stx121038%_ _%expression?121040%_)))) (define gx#eval-syntax - (lambda _g121337_ - (let ((_g121336_ (##length _g121337_))) - (cond ((##fx= _g121336_ 1) (apply gx#eval-syntax__0 _g121337_)) - ((##fx= _g121336_ 2) (apply gx#eval-syntax__% _g121337_)) + (lambda _g121496_ + (let ((_g121495_ (##length _g121496_))) + (cond ((##fx= _g121495_ 1) (apply gx#eval-syntax__0 _g121496_)) + ((##fx= _g121495_ 2) (apply gx#eval-syntax__% _g121496_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g121337_)))))) + _g121496_)))))) (define gx#eval-syntax* - (lambda (_%stx120870%_) + (lambda (_%stx121029%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx120870%_)))) + ((gx#current-expander-compile) _%stx121029%_)))) (define gx#core-expand__% - (lambda (_%stx120857%_ _%expression?120858%_) - (if _%expression?120858%_ - (gx#core-expand-expression _%stx120857%_) - (gx#core-expand-top _%stx120857%_)))) + (lambda (_%stx121016%_ _%expression?121017%_) + (if _%expression?121017%_ + (gx#core-expand-expression _%stx121016%_) + (gx#core-expand-top _%stx121016%_)))) (define gx#core-expand__0 - (lambda (_%stx120863%_) - (let ((_%expression?120865%_ '#f)) - (gx#core-expand__% _%stx120863%_ _%expression?120865%_)))) + (lambda (_%stx121022%_) + (let ((_%expression?121024%_ '#f)) + (gx#core-expand__% _%stx121022%_ _%expression?121024%_)))) (define gx#core-expand - (lambda _g121339_ - (let ((_g121338_ (##length _g121339_))) - (cond ((##fx= _g121338_ 1) (apply gx#core-expand__0 _g121339_)) - ((##fx= _g121338_ 2) (apply gx#core-expand__% _g121339_)) + (lambda _g121498_ + (let ((_g121497_ (##length _g121498_))) + (cond ((##fx= _g121497_ 1) (apply gx#core-expand__0 _g121498_)) + ((##fx= _g121497_ 2) (apply gx#core-expand__% _g121498_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g121339_)))))) + _g121498_)))))) (define gx#core-expand-top - (lambda (_%stx120824%_) - (let* ((_%stx120826%_ (gx#core-expand*__0 _%stx120824%_)) - (_%e120827120834%_ _%stx120826%_) - (_%E120829120838%_ - (lambda () (gx#core-expand-expression _%stx120826%_))) - (_%E120828120852%_ + (lambda (_%stx120983%_) + (let* ((_%stx120985%_ (gx#core-expand*__0 _%stx120983%_)) + (_%e120986120993%_ _%stx120985%_) + (_%E120988120997%_ + (lambda () (gx#core-expand-expression _%stx120985%_))) + (_%E120987121011%_ (lambda () - (if (gx#stx-pair? _%e120827120834%_) - (let ((_%e120830120842%_ - (gx#syntax-e _%e120827120834%_))) - (let ((_%hd120831120845%_ (##car _%e120830120842%_)) - (_%tl120832120847%_ (##cdr _%e120830120842%_))) - (let ((_%form120850%_ _%hd120831120845%_)) - (if (gx#core-bound-identifier?__0 _%form120850%_) - _%stx120826%_ - (_%E120829120838%_))))) - (_%E120829120838%_))))) - (_%E120828120852%_)))) + (if (gx#stx-pair? _%e120986120993%_) + (let ((_%e120989121001%_ + (gx#syntax-e _%e120986120993%_))) + (let ((_%hd120990121004%_ (##car _%e120989121001%_)) + (_%tl120991121006%_ (##cdr _%e120989121001%_))) + (let ((_%form121009%_ _%hd120990121004%_)) + (if (gx#core-bound-identifier?__0 _%form121009%_) + _%stx120985%_ + (_%E120988120997%_))))) + (_%E120988120997%_))))) + (_%E120987121011%_)))) (define gx#core-expand-expression - (lambda (_%stx120756%_) - (letrec ((_%sealed-expression?120758%_ - (lambda (_%hd120794%_) - (if (gx#sealed-syntax? _%hd120794%_) - (let* ((_%e120795120802%_ _%hd120794%_) - (_%E120797120806%_ (lambda () '#f)) - (_%E120796120820%_ + (lambda (_%stx120915%_) + (letrec ((_%sealed-expression?120917%_ + (lambda (_%hd120953%_) + (if (gx#sealed-syntax? _%hd120953%_) + (let* ((_%e120954120961%_ _%hd120953%_) + (_%E120956120965%_ (lambda () '#f)) + (_%E120955120979%_ (lambda () - (if (gx#stx-pair? _%e120795120802%_) - (let ((_%e120798120810%_ - (gx#syntax-e _%e120795120802%_))) - (let ((_%hd120799120813%_ - (##car _%e120798120810%_)) - (_%tl120800120815%_ - (##cdr _%e120798120810%_))) - (let ((_%form120818%_ - _%hd120799120813%_)) + (if (gx#stx-pair? _%e120954120961%_) + (let ((_%e120957120969%_ + (gx#syntax-e _%e120954120961%_))) + (let ((_%hd120958120972%_ + (##car _%e120957120969%_)) + (_%tl120959120974%_ + (##cdr _%e120957120969%_))) + (let ((_%form120977%_ + _%hd120958120972%_)) (gx#core-bound-identifier?__% - _%form120818%_ + _%form120977%_ gx#expression-form-binding?)))) - (_%E120797120806%_))))) - (_%E120796120820%_)) + (_%E120956120965%_))))) + (_%E120955120979%_)) '#f))) - (_%illegal-expression120759%_ - (lambda (_%hd120791%_ . _%_120792%_) + (_%illegal-expression120918%_ + (lambda (_%hd120950%_ . _%_120951%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx120756%_ - _%hd120791%_))) - (_%expand-e120760%_ - (lambda (_%form120783%_ _%hd120784%_) - (let ((_%bind120786%_ + _%stx120915%_ + _%hd120950%_))) + (_%expand-e120919%_ + (lambda (_%form120942%_ _%hd120943%_) + (let ((_%bind120945%_ (if (##structure-instance-of? - _%form120783%_ + _%form120942%_ 'gx#binding::t) - _%form120783%_ - (gx#resolve-identifier__0 _%form120783%_)))) - (if (gx#core-expander-binding? _%bind120786%_) + _%form120942%_ + (gx#resolve-identifier__0 _%form120942%_)))) + (if (gx#core-expander-binding? _%bind120945%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120786%_ + _%bind120945%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120784%_ - (gx#stx-source _%stx120756%_))) + _%hd120943%_ + (gx#stx-source _%stx120915%_))) (if (##structure-direct-instance-of? - _%bind120786%_ + _%bind120945%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120786%_ + _%bind120945%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120784%_ - (gx#stx-source _%stx120756%_)))) + _%hd120943%_ + (gx#stx-source _%stx120915%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx120756%_ - _%form120783%_))))))) - (let ((_%hd120762%_ (gx#core-expand-head _%stx120756%_))) - (if (_%sealed-expression?120758%_ _%hd120762%_) - _%hd120762%_ - (if (gx#stx-pair? _%hd120762%_) - (let* ((_%form120766%_ (gx#stx-car _%hd120762%_)) - (_%bind120768%_ - (if (gx#identifier? _%form120766%_) - (gx#resolve-identifier__0 _%form120766%_) + _%stx120915%_ + _%form120942%_))))))) + (let ((_%hd120921%_ (gx#core-expand-head _%stx120915%_))) + (if (_%sealed-expression?120917%_ _%hd120921%_) + _%hd120921%_ + (if (gx#stx-pair? _%hd120921%_) + (let* ((_%form120925%_ (gx#stx-car _%hd120921%_)) + (_%bind120927%_ + (if (gx#identifier? _%form120925%_) + (gx#resolve-identifier__0 _%form120925%_) '#f))) - (if (or (not _%bind120768%_) - (not (gx#core-expander-binding? _%bind120768%_))) - (_%expand-e120760%_ + (if (or (not _%bind120927%_) + (not (gx#core-expander-binding? _%bind120927%_))) + (_%expand-e120919%_ '%%app - (cons '%%app _%hd120762%_)) + (cons '%%app _%hd120921%_)) (if (eq? (##unchecked-structure-ref - _%bind120768%_ + _%bind120927%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd120762%_ - _%illegal-expression120759%_) - (if (gx#expression-form-binding? _%bind120768%_) - (_%expand-e120760%_ - _%bind120768%_ - _%hd120762%_) + _%hd120921%_ + _%illegal-expression120918%_) + (if (gx#expression-form-binding? _%bind120927%_) + (_%expand-e120919%_ + _%bind120927%_ + _%hd120921%_) (if (gx#direct-special-form-binding? - _%bind120768%_) + _%bind120927%_) (gx#core-expand-expression - (_%expand-e120760%_ - _%bind120768%_ - _%hd120762%_)) - (_%illegal-expression120759%_ - _%hd120762%_)))))) - (if (gx#core-bound-identifier?__0 _%hd120762%_) - (_%illegal-expression120759%_ _%hd120762%_) - (if (gx#identifier? _%hd120762%_) - (_%expand-e120760%_ + (_%expand-e120919%_ + _%bind120927%_ + _%hd120921%_)) + (_%illegal-expression120918%_ + _%hd120921%_)))))) + (if (gx#core-bound-identifier?__0 _%hd120921%_) + (_%illegal-expression120918%_ _%hd120921%_) + (if (gx#identifier? _%hd120921%_) + (_%expand-e120919%_ '%%ref - (cons '%%ref (cons _%hd120762%_ '()))) - (if (gx#stx-datum? _%hd120762%_) - (_%expand-e120760%_ + (cons '%%ref (cons _%hd120921%_ '()))) + (if (gx#stx-datum? _%hd120921%_) + (_%expand-e120919%_ '%#quote - (cons '%#quote (cons _%hd120762%_ '()))) - (_%illegal-expression120759%_ - _%hd120762%_)))))))))) + (cons '%#quote (cons _%hd120921%_ '()))) + (_%illegal-expression120918%_ + _%hd120921%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx120751%_) + (lambda (_%stx120910%_) (__call-with-parameters (lambda () - (let ((_%stx120754%_ (gx#core-expand-expression _%stx120751%_))) - (values _%stx120754%_ (gx#eval-syntax* _%stx120754%_)))) + (let ((_%stx120913%_ (gx#core-expand-expression _%stx120910%_))) + (values _%stx120913%_ (gx#eval-syntax* _%stx120913%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx120732%_ _%stop?120733%_) - (let _%lp120735%_ ((_%stx120737%_ _%stx120732%_)) - (if (_%stop?120733%_ _%stx120737%_) - _%stx120737%_ - (let ((_%rstx120739%_ (gx#core-expand1 _%stx120737%_))) - (if (eq? _%stx120737%_ _%rstx120739%_) - _%stx120737%_ - (_%lp120735%_ _%rstx120739%_))))))) + (lambda (_%stx120891%_ _%stop?120892%_) + (let _%lp120894%_ ((_%stx120896%_ _%stx120891%_)) + (if (_%stop?120892%_ _%stx120896%_) + _%stx120896%_ + (let ((_%rstx120898%_ (gx#core-expand1 _%stx120896%_))) + (if (eq? _%stx120896%_ _%rstx120898%_) + _%stx120896%_ + (_%lp120894%_ _%rstx120898%_))))))) (define gx#core-expand*__0 - (lambda (_%stx120744%_) - (let ((_%stop?120746%_ false)) - (gx#core-expand*__% _%stx120744%_ _%stop?120746%_)))) + (lambda (_%stx120903%_) + (let ((_%stop?120905%_ false)) + (gx#core-expand*__% _%stx120903%_ _%stop?120905%_)))) (define gx#core-expand* - (lambda _g121341_ - (let ((_g121340_ (##length _g121341_))) - (cond ((##fx= _g121340_ 1) (apply gx#core-expand*__0 _g121341_)) - ((##fx= _g121340_ 2) (apply gx#core-expand*__% _g121341_)) + (lambda _g121500_ + (let ((_g121499_ (##length _g121500_))) + (cond ((##fx= _g121499_ 1) (apply gx#core-expand*__0 _g121500_)) + ((##fx= _g121499_ 2) (apply gx#core-expand*__% _g121500_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g121341_)))))) + _g121500_)))))) (define gx#core-expand1 - (lambda (_%stx120684%_) - (letrec ((_%step120686%_ - (lambda (_%hd120723%_) - (let ((_%bind120725%_ - (gx#resolve-identifier__0 _%hd120723%_))) + (lambda (_%stx120843%_) + (letrec ((_%step120845%_ + (lambda (_%hd120882%_) + (let ((_%bind120884%_ + (gx#resolve-identifier__0 _%hd120882%_))) (if (##structure-instance-of? - _%bind120725%_ + _%bind120884%_ 'gx#runtime-binding::t) - _%stx120684%_ + _%stx120843%_ (if (##structure-direct-instance-of? - _%bind120725%_ + _%bind120884%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120725%_ + _%bind120884%_ '4 '#f '#f) - _%stx120684%_) - (if (not _%bind120725%_) - _%stx120684%_ + _%stx120843%_) + (if (not _%bind120884%_) + _%stx120843%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx120684%_)))))))) - (let* ((_%e120687120695%_ _%stx120684%_) - (_%E120693120699%_ (lambda () _%stx120684%_)) - (_%E120689120705%_ + _%stx120843%_)))))))) + (let* ((_%e120846120854%_ _%stx120843%_) + (_%E120852120858%_ (lambda () _%stx120843%_)) + (_%E120848120864%_ (lambda () - (let ((_%hd120703%_ _%e120687120695%_)) - (if (gx#identifier? _%hd120703%_) - (_%step120686%_ _%hd120703%_) - (_%E120693120699%_))))) - (_%E120688120719%_ + (let ((_%hd120862%_ _%e120846120854%_)) + (if (gx#identifier? _%hd120862%_) + (_%step120845%_ _%hd120862%_) + (_%E120852120858%_))))) + (_%E120847120878%_ (lambda () - (if (gx#stx-pair? _%e120687120695%_) - (let ((_%e120690120709%_ - (gx#syntax-e _%e120687120695%_))) - (let ((_%hd120691120712%_ (##car _%e120690120709%_)) - (_%tl120692120714%_ (##cdr _%e120690120709%_))) - (let ((_%hd120717%_ _%hd120691120712%_)) - (if (gx#identifier? _%hd120717%_) - (_%step120686%_ _%hd120717%_) - (_%E120689120705%_))))) - (_%E120689120705%_))))) - (_%E120688120719%_))))) + (if (gx#stx-pair? _%e120846120854%_) + (let ((_%e120849120868%_ + (gx#syntax-e _%e120846120854%_))) + (let ((_%hd120850120871%_ (##car _%e120849120868%_)) + (_%tl120851120873%_ (##cdr _%e120849120868%_))) + (let ((_%hd120876%_ _%hd120850120871%_)) + (if (gx#identifier? _%hd120876%_) + (_%step120845%_ _%hd120876%_) + (_%E120848120864%_))))) + (_%E120848120864%_))))) + (_%E120847120878%_))))) (define gx#core-expand-head - (lambda (_%stx120650%_) - (letrec ((_%stop?120652%_ - (lambda (_%stx120654%_) - (let* ((_%e120655120662%_ _%stx120654%_) - (_%E120657120666%_ (lambda () '#f)) - (_%E120656120680%_ + (lambda (_%stx120809%_) + (letrec ((_%stop?120811%_ + (lambda (_%stx120813%_) + (let* ((_%e120814120821%_ _%stx120813%_) + (_%E120816120825%_ (lambda () '#f)) + (_%E120815120839%_ (lambda () - (if (gx#stx-pair? _%e120655120662%_) - (let ((_%e120658120670%_ - (gx#syntax-e _%e120655120662%_))) - (let ((_%hd120659120673%_ - (##car _%e120658120670%_)) - (_%tl120660120675%_ - (##cdr _%e120658120670%_))) - (let ((_%hd120678%_ _%hd120659120673%_)) + (if (gx#stx-pair? _%e120814120821%_) + (let ((_%e120817120829%_ + (gx#syntax-e _%e120814120821%_))) + (let ((_%hd120818120832%_ + (##car _%e120817120829%_)) + (_%tl120819120834%_ + (##cdr _%e120817120829%_))) + (let ((_%hd120837%_ _%hd120818120832%_)) (gx#core-bound-identifier?__0 - _%hd120678%_)))) - (_%E120657120666%_))))) - (_%E120656120680%_))))) - (gx#core-expand*__% _%stx120650%_ _%stop?120652%_)))) + _%hd120837%_)))) + (_%E120816120825%_))))) + (_%E120815120839%_))))) + (gx#core-expand*__% _%stx120809%_ _%stop?120811%_)))) (define gx#core-expand-block__% - (lambda (_%stx120456%_ - _%expand-special120457%_ - _%begin-form120458%_ - _%expand-e120459%_) - (letrec ((_%expand-splice120461%_ - (lambda (_%hd120624%_ - _%body120625%_ - _%rest120626%_ - _%r120627%_) - (if (gx#stx-list? _%body120625%_) - (_%K120465%_ - (gx#stx-foldr cons _%rest120626%_ _%body120625%_) - _%r120627%_) + (lambda (_%stx120615%_ + _%expand-special120616%_ + _%begin-form120617%_ + _%expand-e120618%_) + (letrec ((_%expand-splice120620%_ + (lambda (_%hd120783%_ + _%body120784%_ + _%rest120785%_ + _%r120786%_) + (if (gx#stx-list? _%body120784%_) + (_%K120624%_ + (gx#stx-foldr cons _%rest120785%_ _%body120784%_) + _%r120786%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx120456%_ - _%hd120624%_)))) - (_%expand-cond-expand120462%_ - (lambda (_%hd120620%_ _%rest120621%_ _%r120622%_) - (_%K120465%_ - (cons (gx#core-expand-cond-expand% _%hd120620%_) - _%rest120621%_) - _%r120622%_))) - (_%expand-include120463%_ - (lambda (_%hd120569%_ _%rest120570%_ _%r120571%_) - (let* ((_%e120572120582%_ _%hd120569%_) - (_%E120574120586%_ + _%stx120615%_ + _%hd120783%_)))) + (_%expand-cond-expand120621%_ + (lambda (_%hd120779%_ _%rest120780%_ _%r120781%_) + (_%K120624%_ + (cons (gx#core-expand-cond-expand% _%hd120779%_) + _%rest120780%_) + _%r120781%_))) + (_%expand-include120622%_ + (lambda (_%hd120728%_ _%rest120729%_ _%r120730%_) + (let* ((_%e120731120741%_ _%hd120728%_) + (_%E120733120745%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120572120582%_))) - (_%E120573120616%_ + _%e120731120741%_))) + (_%E120732120775%_ (lambda () - (if (gx#stx-pair? _%e120572120582%_) - (let ((_%e120575120590%_ - (gx#syntax-e _%e120572120582%_))) - (let ((_%hd120576120593%_ - (##car _%e120575120590%_)) - (_%tl120577120595%_ - (##cdr _%e120575120590%_))) - (if (gx#stx-pair? _%tl120577120595%_) - (let ((_%e120578120598%_ + (if (gx#stx-pair? _%e120731120741%_) + (let ((_%e120734120749%_ + (gx#syntax-e _%e120731120741%_))) + (let ((_%hd120735120752%_ + (##car _%e120734120749%_)) + (_%tl120736120754%_ + (##cdr _%e120734120749%_))) + (if (gx#stx-pair? _%tl120736120754%_) + (let ((_%e120737120757%_ (gx#syntax-e - _%tl120577120595%_))) - (let ((_%hd120579120601%_ - (##car _%e120578120598%_)) - (_%tl120580120603%_ - (##cdr _%e120578120598%_))) - (let ((_%path120606%_ - _%hd120579120601%_)) + _%tl120736120754%_))) + (let ((_%hd120738120760%_ + (##car _%e120737120757%_)) + (_%tl120739120762%_ + (##cdr _%e120737120757%_))) + (let ((_%path120765%_ + _%hd120738120760%_)) (if (gx#stx-null? - _%tl120580120603%_) + _%tl120739120762%_) (if (gx#stx-string? - _%path120606%_) - (let* ((_%rpath120608%_ + _%path120765%_) + (let* ((_%rpath120767%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path120606%_ - (gx#stx-source _%hd120569%_))) - (_%block120610%_ + _%path120765%_ + (gx#stx-source _%hd120728%_))) + (_%block120769%_ (gx#core-expand-include%__% - _%hd120569%_ - _%rpath120608%_)) - (_%rbody120613%_ + _%hd120728%_ + _%rpath120767%_)) + (_%rbody120772%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block120610%_ - _%expand-special120457%_ + _%block120769%_ + _%expand-special120616%_ '#f - _%expand-e120459%_)) + _%expand-e120618%_)) gx#current-expander-path - (cons _%rpath120608%_ (gx#current-expander-path))))) - (_%K120465%_ - _%rest120570%_ - (__foldr1 cons _%r120571%_ _%rbody120613%_))) - (_%E120574120586%_)) + (cons _%rpath120767%_ (gx#current-expander-path))))) + (_%K120624%_ + _%rest120729%_ + (__foldr1 cons _%r120730%_ _%rbody120772%_))) + (_%E120733120745%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120574120586%_))))) - (_%E120574120586%_)))) - (_%E120574120586%_))))) - (_%E120573120616%_)))) - (_%expand-expression120464%_ - (lambda (_%hd120565%_ _%rest120566%_ _%r120567%_) - (_%K120465%_ - _%rest120566%_ - (cons (_%expand-e120459%_ _%hd120565%_) _%r120567%_)))) - (_%K120465%_ - (lambda (_%rest120495%_ _%r120496%_) - (let* ((_%e120497120504%_ _%rest120495%_) - (_%E120499120508%_ + (_%E120733120745%_))))) + (_%E120733120745%_)))) + (_%E120733120745%_))))) + (_%E120732120775%_)))) + (_%expand-expression120623%_ + (lambda (_%hd120724%_ _%rest120725%_ _%r120726%_) + (_%K120624%_ + _%rest120725%_ + (cons (_%expand-e120618%_ _%hd120724%_) _%r120726%_)))) + (_%K120624%_ + (lambda (_%rest120654%_ _%r120655%_) + (let* ((_%e120656120663%_ _%rest120654%_) + (_%E120658120667%_ (lambda () - (if _%begin-form120458%_ + (if _%begin-form120617%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form120458%_ - (reverse _%r120496%_)) - (gx#stx-source _%stx120456%_)) - _%r120496%_))) - (_%E120498120561%_ + _%begin-form120617%_ + (reverse _%r120655%_)) + (gx#stx-source _%stx120615%_)) + _%r120655%_))) + (_%E120657120720%_ (lambda () - (if (gx#stx-pair? _%e120497120504%_) - (let ((_%e120500120512%_ - (gx#syntax-e _%e120497120504%_))) - (let ((_%hd120501120515%_ - (##car _%e120500120512%_)) - (_%tl120502120517%_ - (##cdr _%e120500120512%_))) - (let* ((_%hd120520%_ _%hd120501120515%_) - (_%rest120522%_ - _%tl120502120517%_) - (_%hd120524%_ + (if (gx#stx-pair? _%e120656120663%_) + (let ((_%e120659120671%_ + (gx#syntax-e _%e120656120663%_))) + (let ((_%hd120660120674%_ + (##car _%e120659120671%_)) + (_%tl120661120676%_ + (##cdr _%e120659120671%_))) + (let* ((_%hd120679%_ _%hd120660120674%_) + (_%rest120681%_ + _%tl120661120676%_) + (_%hd120683%_ (gx#core-expand-head - _%hd120520%_)) - (_%e120525120532%_ _%hd120524%_) - (_%E120527120536%_ + _%hd120679%_)) + (_%e120684120691%_ _%hd120683%_) + (_%E120686120695%_ (lambda () - (_%expand-expression120464%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_))) - (_%E120526120557%_ + (_%expand-expression120623%_ + _%hd120683%_ + _%rest120681%_ + _%r120655%_))) + (_%E120685120716%_ (lambda () (if (gx#stx-pair? - _%e120525120532%_) - (let ((_%e120528120540%_ + _%e120684120691%_) + (let ((_%e120687120699%_ (gx#syntax-e - _%e120525120532%_))) - (let ((_%hd120529120543%_ - (##car _%e120528120540%_)) - (_%tl120530120545%_ - (##cdr _%e120528120540%_))) - (let* ((_%form120548%_ - _%hd120529120543%_) - (_%body120550%_ - _%tl120530120545%_) - (_%bind120552%_ + _%e120684120691%_))) + (let ((_%hd120688120702%_ + (##car _%e120687120699%_)) + (_%tl120689120704%_ + (##cdr _%e120687120699%_))) + (let* ((_%form120707%_ + _%hd120688120702%_) + (_%body120709%_ + _%tl120689120704%_) + (_%bind120711%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form120548%_) - (gx#resolve-identifier__0 _%form120548%_) + _%form120707%_) + (gx#resolve-identifier__0 _%form120707%_) '#f))) - (if (gx#special-form-binding? _%bind120552%_) - (let ((_%$e120554%_ + (if (gx#special-form-binding? _%bind120711%_) + (let ((_%$e120713%_ (##unchecked-structure-ref - _%bind120552%_ + _%bind120711%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e120554%_) - (_%expand-splice120461%_ - _%hd120524%_ - _%body120550%_ - _%rest120522%_ - _%r120496%_) - (if (eq? '%#cond-expand _%$e120554%_) - (_%expand-cond-expand120462%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_) - (if (eq? '%#include _%$e120554%_) - (_%expand-include120463%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_) - (_%expand-special120457%_ - _%hd120524%_ - _%K120465%_ - _%rest120522%_ - _%r120496%_))))) - (_%expand-expression120464%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_))))) + (if (eq? '%#begin _%$e120713%_) + (_%expand-splice120620%_ + _%hd120683%_ + _%body120709%_ + _%rest120681%_ + _%r120655%_) + (if (eq? '%#cond-expand _%$e120713%_) + (_%expand-cond-expand120621%_ + _%hd120683%_ + _%rest120681%_ + _%r120655%_) + (if (eq? '%#include _%$e120713%_) + (_%expand-include120622%_ + _%hd120683%_ + _%rest120681%_ + _%r120655%_) + (_%expand-special120616%_ + _%hd120683%_ + _%K120624%_ + _%rest120681%_ + _%r120655%_))))) + (_%expand-expression120623%_ + _%hd120683%_ + _%rest120681%_ + _%r120655%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120527120536%_))))) - (_%E120526120557%_)))) - (_%E120499120508%_))))) - (_%E120498120561%_))))) - (let* ((_%e120466120473%_ _%stx120456%_) - (_%E120468120477%_ + (_%E120686120695%_))))) + (_%E120685120716%_)))) + (_%E120658120667%_))))) + (_%E120657120720%_))))) + (let* ((_%e120625120632%_ _%stx120615%_) + (_%E120627120636%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120466120473%_))) - (_%E120467120491%_ + _%e120625120632%_))) + (_%E120626120650%_ (lambda () - (if (gx#stx-pair? _%e120466120473%_) - (let ((_%e120469120481%_ - (gx#syntax-e _%e120466120473%_))) - (let ((_%hd120470120484%_ (##car _%e120469120481%_)) - (_%tl120471120486%_ (##cdr _%e120469120481%_))) - (let ((_%body120489%_ _%tl120471120486%_)) - (if (gx#stx-list? _%body120489%_) - (_%K120465%_ _%body120489%_ '()) - (_%E120468120477%_))))) - (_%E120468120477%_))))) - (_%E120467120491%_))))) + (if (gx#stx-pair? _%e120625120632%_) + (let ((_%e120628120640%_ + (gx#syntax-e _%e120625120632%_))) + (let ((_%hd120629120643%_ (##car _%e120628120640%_)) + (_%tl120630120645%_ (##cdr _%e120628120640%_))) + (let ((_%body120648%_ _%tl120630120645%_)) + (if (gx#stx-list? _%body120648%_) + (_%K120624%_ _%body120648%_ '()) + (_%E120627120636%_))))) + (_%E120627120636%_))))) + (_%E120626120650%_))))) (define gx#core-expand-block__0 - (lambda (_%stx120632%_ _%expand-special120633%_) - (let* ((_%begin-form120635%_ '%#begin) - (_%expand-e120637%_ gx#core-expand-expression)) + (lambda (_%stx120791%_ _%expand-special120792%_) + (let* ((_%begin-form120794%_ '%#begin) + (_%expand-e120796%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120632%_ - _%expand-special120633%_ - _%begin-form120635%_ - _%expand-e120637%_)))) + _%stx120791%_ + _%expand-special120792%_ + _%begin-form120794%_ + _%expand-e120796%_)))) (define gx#core-expand-block__1 - (lambda (_%stx120639%_ _%expand-special120640%_ _%begin-form120641%_) - (let ((_%expand-e120643%_ gx#core-expand-expression)) + (lambda (_%stx120798%_ _%expand-special120799%_ _%begin-form120800%_) + (let ((_%expand-e120802%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120639%_ - _%expand-special120640%_ - _%begin-form120641%_ - _%expand-e120643%_)))) + _%stx120798%_ + _%expand-special120799%_ + _%begin-form120800%_ + _%expand-e120802%_)))) (define gx#core-expand-block - (lambda _g121343_ - (let ((_g121342_ (##length _g121343_))) - (cond ((##fx= _g121342_ 2) (apply gx#core-expand-block__0 _g121343_)) - ((##fx= _g121342_ 3) (apply gx#core-expand-block__1 _g121343_)) - ((##fx= _g121342_ 4) (apply gx#core-expand-block__% _g121343_)) + (lambda _g121502_ + (let ((_g121501_ (##length _g121502_))) + (cond ((##fx= _g121501_ 2) (apply gx#core-expand-block__0 _g121502_)) + ((##fx= _g121501_ 3) (apply gx#core-expand-block__1 _g121502_)) + ((##fx= _g121501_ 4) (apply gx#core-expand-block__% _g121502_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g121343_)))))) + _g121502_)))))) (define gx#core-expand-block* - (lambda (_%stx120404%_ _%expand-special120405%_) - (let* ((_%g120406120417%_ + (lambda (_%stx120563%_ _%expand-special120564%_) + (let* ((_%g120565120576%_ (gx#core-expand-block__1 - _%stx120404%_ - _%expand-special120405%_ + _%stx120563%_ + _%expand-special120564%_ '#f)) - (_%E120410120421%_ + (_%E120569120580%_ (lambda () (error '"No clause matching" - _%g120406120417%_ + _%g120565120576%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K120415120452%_ + (let ((_%K120574120611%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx120404%_))) - (_%K120412120438%_ (lambda (_%expr120436%_) _%expr120436%_)) - (_%K120411120427%_ - (lambda (_%body120425%_) + _%stx120563%_))) + (_%K120571120597%_ (lambda (_%expr120595%_) _%expr120595%_)) + (_%K120570120586%_ + (lambda (_%body120584%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body120425%_)) - (gx#stx-source _%stx120404%_))))) - (let ((_%try-match120408120448%_ + (gx#core-cons '%#begin (reverse _%body120584%_)) + (gx#stx-source _%stx120563%_))))) + (let ((_%try-match120567120607%_ (lambda () - (if (pair? _%g120406120417%_) - (let ((_%tl120414120443%_ (##cdr _%g120406120417%_)) - (_%hd120413120441%_ (##car _%g120406120417%_))) - (if (null? _%tl120414120443%_) - (let ((_%expr120446%_ _%hd120413120441%_)) - (_%K120412120438%_ _%expr120446%_)) - (let ((_%body120430%_ _%g120406120417%_)) - (_%K120411120427%_ _%body120430%_)))) - (let ((_%body120430%_ _%g120406120417%_)) - (_%K120411120427%_ _%body120430%_)))))) - (if (null? _%g120406120417%_) - (_%K120415120452%_) - (_%try-match120408120448%_))))))) + (if (pair? _%g120565120576%_) + (let ((_%tl120573120602%_ (##cdr _%g120565120576%_)) + (_%hd120572120600%_ (##car _%g120565120576%_))) + (if (null? _%tl120573120602%_) + (let ((_%expr120605%_ _%hd120572120600%_)) + (_%K120571120597%_ _%expr120605%_)) + (let ((_%body120589%_ _%g120565120576%_)) + (_%K120570120586%_ _%body120589%_)))) + (let ((_%body120589%_ _%g120565120576%_)) + (_%K120570120586%_ _%body120589%_)))))) + (if (null? _%g120565120576%_) + (_%K120574120611%_) + (_%try-match120567120607%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx120229%_) - (letrec ((_%satisfied?120231%_ - (lambda (_%condition120332%_) - (let* ((_%e120333120348%_ _%condition120332%_) - (_%E120343120352%_ + (lambda (_%stx120388%_) + (letrec ((_%satisfied?120390%_ + (lambda (_%condition120491%_) + (let* ((_%e120492120507%_ _%condition120491%_) + (_%E120502120511%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120333120348%_))) - (_%E120336120371%_ + _%e120492120507%_))) + (_%E120495120530%_ (lambda () - (if (gx#stx-pair? _%e120333120348%_) - (let ((_%e120344120356%_ - (gx#syntax-e _%e120333120348%_))) - (let ((_%hd120345120359%_ - (##car _%e120344120356%_)) - (_%tl120346120361%_ - (##cdr _%e120344120356%_))) - (let* ((_%combinator120364%_ - _%hd120345120359%_) - (_%body120366%_ - _%tl120346120361%_)) - (if (gx#stx-list? _%body120366%_) - (let ((_%$e120368%_ + (if (gx#stx-pair? _%e120492120507%_) + (let ((_%e120503120515%_ + (gx#syntax-e _%e120492120507%_))) + (let ((_%hd120504120518%_ + (##car _%e120503120515%_)) + (_%tl120505120520%_ + (##cdr _%e120503120515%_))) + (let* ((_%combinator120523%_ + _%hd120504120518%_) + (_%body120525%_ + _%tl120505120520%_)) + (if (gx#stx-list? _%body120525%_) + (let ((_%$e120527%_ (gx#stx-e - _%combinator120364%_))) - (if (eq? 'not _%$e120368%_) + _%combinator120523%_))) + (if (eq? 'not _%$e120527%_) (not (gx#stx-ormap - _%satisfied?120231%_ - _%body120366%_)) - (if (eq? 'and _%$e120368%_) + _%satisfied?120390%_ + _%body120525%_)) + (if (eq? 'and _%$e120527%_) (gx#stx-andmap - _%satisfied?120231%_ - _%body120366%_) + _%satisfied?120390%_ + _%body120525%_) (if (eq? 'or - _%$e120368%_) + _%$e120527%_) (gx#stx-ormap - _%satisfied?120231%_ - _%body120366%_) + _%satisfied?120390%_ + _%body120525%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e120368%_) - (gx#stx-andmap gx#core-resolve-identifier _%body120366%_) + _%$e120527%_) + (gx#stx-andmap gx#core-resolve-identifier _%body120525%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx120229%_ - _%combinator120364%_)))))) + _%stx120388%_ + _%combinator120523%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120343120352%_))))) - (_%E120343120352%_)))) - (_%E120335120394%_ + (_%E120502120511%_))))) + (_%E120502120511%_)))) + (_%E120494120553%_ (lambda () - (if (gx#stx-pair? _%e120333120348%_) - (let ((_%e120337120375%_ - (gx#syntax-e _%e120333120348%_))) - (let ((_%hd120338120378%_ - (##car _%e120337120375%_)) - (_%tl120339120380%_ - (##cdr _%e120337120375%_))) + (if (gx#stx-pair? _%e120492120507%_) + (let ((_%e120496120534%_ + (gx#syntax-e _%e120492120507%_))) + (let ((_%hd120497120537%_ + (##car _%e120496120534%_)) + (_%tl120498120539%_ + (##cdr _%e120496120534%_))) (if (and (gx#identifier? - _%hd120338120378%_) + _%hd120497120537%_) (gx#core-identifier=? - _%hd120338120378%_ + _%hd120497120537%_ 'unquote)) - (if (gx#stx-pair? _%tl120339120380%_) - (let ((_%e120340120383%_ + (if (gx#stx-pair? _%tl120498120539%_) + (let ((_%e120499120542%_ (gx#syntax-e - _%tl120339120380%_))) - (let ((_%hd120341120386%_ - (##car _%e120340120383%_)) - (_%tl120342120388%_ - (##cdr _%e120340120383%_))) - (let ((_%expr120391%_ - _%hd120341120386%_)) + _%tl120498120539%_))) + (let ((_%hd120500120545%_ + (##car _%e120499120542%_)) + (_%tl120501120547%_ + (##cdr _%e120499120542%_))) + (let ((_%expr120550%_ + _%hd120500120545%_)) (if (gx#stx-null? - _%tl120342120388%_) + _%tl120501120547%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr120391%_)) + _%expr120550%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E120336120371%_))))) - (_%E120336120371%_)) - (_%E120336120371%_)))) - (_%E120336120371%_)))) - (_%E120334120400%_ + (_%E120495120530%_))))) + (_%E120495120530%_)) + (_%E120495120530%_)))) + (_%E120495120530%_)))) + (_%E120493120559%_ (lambda () - (let ((_%id120398%_ _%e120333120348%_)) - (if (gx#identifier? _%id120398%_) + (let ((_%id120557%_ _%e120492120507%_)) + (if (gx#identifier? _%id120557%_) (gx#core-bound-identifier?__% - _%id120398%_ + _%id120557%_ gx#feature-binding?) - (_%E120335120394%_)))))) - (_%E120334120400%_)))) - (_%loop120232%_ - (lambda (_%rest120262%_) - (let* ((_%e120263120271%_ _%rest120262%_) - (_%E120269120275%_ + (_%E120494120553%_)))))) + (_%E120493120559%_)))) + (_%loop120391%_ + (lambda (_%rest120421%_) + (let* ((_%e120422120430%_ _%rest120421%_) + (_%E120428120434%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120263120271%_))) - (_%E120265120279%_ + _%e120422120430%_))) + (_%E120424120438%_ (lambda () - (if (gx#stx-null? _%e120263120271%_) + (if (gx#stx-null? _%e120422120430%_) '() - (_%E120269120275%_)))) - (_%E120264120328%_ + (_%E120428120434%_)))) + (_%E120423120487%_ (lambda () - (if (gx#stx-pair? _%e120263120271%_) - (let ((_%e120266120283%_ - (gx#syntax-e _%e120263120271%_))) - (let ((_%hd120267120286%_ - (##car _%e120266120283%_)) - (_%tl120268120288%_ - (##cdr _%e120266120283%_))) - (let* ((_%hd120291%_ _%hd120267120286%_) - (_%rest120293%_ - _%tl120268120288%_) - (_%e120294120301%_ _%hd120291%_) - (_%E120296120305%_ + (if (gx#stx-pair? _%e120422120430%_) + (let ((_%e120425120442%_ + (gx#syntax-e _%e120422120430%_))) + (let ((_%hd120426120445%_ + (##car _%e120425120442%_)) + (_%tl120427120447%_ + (##cdr _%e120425120442%_))) + (let* ((_%hd120450%_ _%hd120426120445%_) + (_%rest120452%_ + _%tl120427120447%_) + (_%e120453120460%_ _%hd120450%_) + (_%E120455120464%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120294120301%_))) - (_%E120295120324%_ + _%e120453120460%_))) + (_%E120454120483%_ (lambda () (if (gx#stx-pair? - _%e120294120301%_) - (let ((_%e120297120309%_ + _%e120453120460%_) + (let ((_%e120456120468%_ (gx#syntax-e - _%e120294120301%_))) - (let ((_%hd120298120312%_ - (##car _%e120297120309%_)) - (_%tl120299120314%_ - (##cdr _%e120297120309%_))) - (let* ((_%condition120317%_ - _%hd120298120312%_) - (_%body120319%_ - _%tl120299120314%_)) + _%e120453120460%_))) + (let ((_%hd120457120471%_ + (##car _%e120456120468%_)) + (_%tl120458120473%_ + (##cdr _%e120456120468%_))) + (let* ((_%condition120476%_ + _%hd120457120471%_) + (_%body120478%_ + _%tl120458120473%_)) (if (gx#stx-eq? - _%condition120317%_ + _%condition120476%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest120293%_) - _%body120319%_ + _%rest120452%_) + _%body120478%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx120229%_ - _%hd120291%_)) - (if (_%satisfied?120231%_ _%condition120317%_) - _%body120319%_ - (_%loop120232%_ _%rest120293%_)))))) + _%stx120388%_ + _%hd120450%_)) + (if (_%satisfied?120390%_ _%condition120476%_) + _%body120478%_ + (_%loop120391%_ _%rest120452%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120296120305%_))))) - (_%E120295120324%_)))) - (_%E120265120279%_))))) - (_%E120264120328%_))))) - (let* ((_%e120233120240%_ _%stx120229%_) - (_%E120235120244%_ + (_%E120455120464%_))))) + (_%E120454120483%_)))) + (_%E120424120438%_))))) + (_%E120423120487%_))))) + (let* ((_%e120392120399%_ _%stx120388%_) + (_%E120394120403%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120233120240%_))) - (_%E120234120258%_ + _%e120392120399%_))) + (_%E120393120417%_ (lambda () - (if (gx#stx-pair? _%e120233120240%_) - (let ((_%e120236120248%_ - (gx#syntax-e _%e120233120240%_))) - (let ((_%hd120237120251%_ (##car _%e120236120248%_)) - (_%tl120238120253%_ (##cdr _%e120236120248%_))) - (let ((_%clauses120256%_ _%tl120238120253%_)) - (if (gx#stx-list? _%clauses120256%_) + (if (gx#stx-pair? _%e120392120399%_) + (let ((_%e120395120407%_ + (gx#syntax-e _%e120392120399%_))) + (let ((_%hd120396120410%_ (##car _%e120395120407%_)) + (_%tl120397120412%_ (##cdr _%e120395120407%_))) + (let ((_%clauses120415%_ _%tl120397120412%_)) + (if (gx#stx-list? _%clauses120415%_) (gx#core-cons 'begin - (_%loop120232%_ _%clauses120256%_)) - (_%E120235120244%_))))) - (_%E120235120244%_))))) - (_%E120234120258%_))))) + (_%loop120391%_ _%clauses120415%_)) + (_%E120394120403%_))))) + (_%E120394120403%_))))) + (_%E120393120417%_))))) (define gx#core-expand-include%__% - (lambda (_%stx120172%_ _%rpath120173%_) - (let* ((_%e120174120184%_ _%stx120172%_) - (_%E120176120188%_ + (lambda (_%stx120331%_ _%rpath120332%_) + (let* ((_%e120333120343%_ _%stx120331%_) + (_%E120335120347%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120174120184%_))) - (_%E120175120215%_ + _%e120333120343%_))) + (_%E120334120374%_ (lambda () - (if (gx#stx-pair? _%e120174120184%_) - (let ((_%e120177120192%_ - (gx#syntax-e _%e120174120184%_))) - (let ((_%hd120178120195%_ (##car _%e120177120192%_)) - (_%tl120179120197%_ (##cdr _%e120177120192%_))) - (if (gx#stx-pair? _%tl120179120197%_) - (let ((_%e120180120200%_ - (gx#syntax-e _%tl120179120197%_))) - (let ((_%hd120181120203%_ - (##car _%e120180120200%_)) - (_%tl120182120205%_ - (##cdr _%e120180120200%_))) - (let ((_%path120208%_ _%hd120181120203%_)) - (if (gx#stx-null? _%tl120182120205%_) - (if (gx#stx-string? _%path120208%_) - (let ((_%rpath120213%_ - (let ((_%$e120210%_ - _%rpath120173%_)) - (if _%$e120210%_ - _%$e120210%_ + (if (gx#stx-pair? _%e120333120343%_) + (let ((_%e120336120351%_ + (gx#syntax-e _%e120333120343%_))) + (let ((_%hd120337120354%_ (##car _%e120336120351%_)) + (_%tl120338120356%_ (##cdr _%e120336120351%_))) + (if (gx#stx-pair? _%tl120338120356%_) + (let ((_%e120339120359%_ + (gx#syntax-e _%tl120338120356%_))) + (let ((_%hd120340120362%_ + (##car _%e120339120359%_)) + (_%tl120341120364%_ + (##cdr _%e120339120359%_))) + (let ((_%path120367%_ _%hd120340120362%_)) + (if (gx#stx-null? _%tl120341120364%_) + (if (gx#stx-string? _%path120367%_) + (let ((_%rpath120372%_ + (let ((_%$e120369%_ + _%rpath120332%_)) + (if _%$e120369%_ + _%$e120369%_ (gx#core-resolve-path__% - _%path120208%_ + _%path120367%_ (gx#stx-source - _%stx120172%_)))))) - (if (member _%rpath120213%_ + _%stx120331%_)))))) + (if (member _%rpath120372%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx120172%_) + _%stx120331%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath120213%_)) + _%rpath120372%_)) (gx#stx-source - _%stx120172%_))))) - (_%E120176120188%_)) - (_%E120176120188%_))))) - (_%E120176120188%_)))) - (_%E120176120188%_))))) - (_%E120175120215%_)))) + _%stx120331%_))))) + (_%E120335120347%_)) + (_%E120335120347%_))))) + (_%E120335120347%_)))) + (_%E120335120347%_))))) + (_%E120334120374%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx120222%_) - (let ((_%rpath120224%_ '#f)) - (gx#core-expand-include%__% _%stx120222%_ _%rpath120224%_)))) + (lambda (_%stx120381%_) + (let ((_%rpath120383%_ '#f)) + (gx#core-expand-include%__% _%stx120381%_ _%rpath120383%_)))) (define gx#core-expand-include% - (lambda _g121345_ - (let ((_g121344_ (##length _g121345_))) - (cond ((##fx= _g121344_ 1) - (apply gx#core-expand-include%__0 _g121345_)) - ((##fx= _g121344_ 2) - (apply gx#core-expand-include%__% _g121345_)) + (lambda _g121504_ + (let ((_g121503_ (##length _g121504_))) + (cond ((##fx= _g121503_ 1) + (apply gx#core-expand-include%__0 _g121504_)) + ((##fx= _g121503_ 2) + (apply gx#core-expand-include%__% _g121504_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g121345_)))))) + _g121504_)))))) (define gx#core-apply-expander__% - (lambda (_%K120138%_ _%stx120139%_ _%method120140%_) - (if (procedure? _%K120138%_) - (let ((_%$e120143%_ (gx#stx-source _%stx120139%_))) - (if _%$e120143%_ - ((lambda (_%g120145120147%_) + (lambda (_%K120297%_ _%stx120298%_ _%method120299%_) + (if (procedure? _%K120297%_) + (let ((_%$e120302%_ (gx#stx-source _%stx120298%_))) + (if _%$e120302%_ + ((lambda (_%g120304120306%_) (gx#stx-wrap-source - (_%K120138%_ _%stx120139%_) - _%g120145120147%_)) - _%$e120143%_) - (_%K120138%_ _%stx120139%_))) - (let ((_%$e120151%_ - (bound-method-ref _%K120138%_ _%method120140%_))) - (if _%$e120151%_ - ((lambda (_%g120153120155%_) + (_%K120297%_ _%stx120298%_) + _%g120304120306%_)) + _%$e120302%_) + (_%K120297%_ _%stx120298%_))) + (let ((_%$e120310%_ + (bound-method-ref _%K120297%_ _%method120299%_))) + (if _%$e120310%_ + ((lambda (_%g120312120314%_) (gx#core-apply-expander__% - _%g120153120155%_ - _%stx120139%_ - _%method120140%_)) - _%$e120151%_) + _%g120312120314%_ + _%stx120298%_ + _%method120299%_)) + _%$e120310%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx120139%_ - _%method120140%_)))))) + _%stx120298%_ + _%method120299%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K120162%_ _%stx120163%_) - (let ((_%method120165%_ 'apply-macro-expander)) + (lambda (_%K120321%_ _%stx120322%_) + (let ((_%method120324%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K120162%_ - _%stx120163%_ - _%method120165%_)))) + _%K120321%_ + _%stx120322%_ + _%method120324%_)))) (define gx#core-apply-expander - (lambda _g121347_ - (let ((_g121346_ (##length _g121347_))) - (cond ((##fx= _g121346_ 2) - (apply gx#core-apply-expander__0 _g121347_)) - ((##fx= _g121346_ 3) - (apply gx#core-apply-expander__% _g121347_)) + (lambda _g121506_ + (let ((_g121505_ (##length _g121506_))) + (cond ((##fx= _g121505_ 2) + (apply gx#core-apply-expander__0 _g121506_)) + ((##fx= _g121505_ 3) + (apply gx#core-apply-expander__% _g121506_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g121347_)))))) + _g121506_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self118180120121%_ _%stx120123%_) - (let* ((_%self120125%_ _%self118180120121%_) - (_%self120127%_ _%self120125%_)) + (lambda (_%self118339120280%_ _%stx120282%_) + (let* ((_%self120284%_ _%self118339120280%_) + (_%self120286%_ _%self120284%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx120123%_)))) + _%stx120282%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self118181119961%_ _%stx119963%_) - (let* ((_%self119965%_ _%self118181119961%_) - (_%self119967%_ _%self119965%_) - (_%self119976119982%_ _%self119967%_) - (_%E119978119986%_ + (lambda (_%self118340120120%_ _%stx120122%_) + (let* ((_%self120124%_ _%self118340120120%_) + (_%self120126%_ _%self120124%_) + (_%self120135120141%_ _%self120126%_) + (_%E120137120145%_ (lambda () (error '"No clause matching" - _%self119976119982%_ + _%self120135120141%_ '((macro-expander K))) '#!void)) - (_%K119979119991%_ - (lambda (_%K119989%_) - (gx#core-apply-expander__0 _%K119989%_ _%stx119963%_))) - (_%e119980119994%_ - (##unchecked-structure-ref _%self119976119982%_ '1 '#f '#f)) - (_%K119997%_ _%e119980119994%_)) - (_%K119979119991%_ _%K119997%_)))) + (_%K120138120150%_ + (lambda (_%K120148%_) + (gx#core-apply-expander__0 _%K120148%_ _%stx120122%_))) + (_%e120139120153%_ + (##unchecked-structure-ref _%self120135120141%_ '1 '#f '#f)) + (_%K120156%_ _%e120139120153%_)) + (_%K120138120150%_ _%K120156%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self118182119801%_ _%stx119803%_) - (let* ((_%self119805%_ _%self118182119801%_) - (_%self119807%_ _%self119805%_)) - (if (gx#sealed-syntax? _%stx119803%_) - _%stx119803%_ - (let* ((_%self119816119822%_ _%self119807%_) - (_%E119818119826%_ + (lambda (_%self118341119960%_ _%stx119962%_) + (let* ((_%self119964%_ _%self118341119960%_) + (_%self119966%_ _%self119964%_)) + (if (gx#sealed-syntax? _%stx119962%_) + _%stx119962%_ + (let* ((_%self119975119981%_ _%self119966%_) + (_%E119977119985%_ (lambda () (error '"No clause matching" - _%self119816119822%_ + _%self119975119981%_ '((core-expander K))) '#!void)) - (_%K119819119831%_ - (lambda (_%K119829%_) - (gx#core-apply-expander__0 _%K119829%_ _%stx119803%_))) - (_%e119820119834%_ + (_%K119978119990%_ + (lambda (_%K119988%_) + (gx#core-apply-expander__0 _%K119988%_ _%stx119962%_))) + (_%e119979119993%_ (##unchecked-structure-ref - _%self119816119822%_ + _%self119975119981%_ '1 '#f '#f)) - (_%K119837%_ _%e119820119834%_)) - (_%K119819119831%_ _%K119837%_)))))) + (_%K119996%_ _%e119979119993%_)) + (_%K119978119990%_ _%K119996%_)))))) (__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 (_%self118183119650%_ _%stx119652%_ _%top?119653%_) - (let* ((_%self119655%_ _%self118183119650%_) - (_%self119657%_ _%self119655%_)) - (if (_%top?119653%_ (gx#current-expander-context)) + (lambda (_%self118342119809%_ _%stx119811%_ _%top?119812%_) + (let* ((_%self119814%_ _%self118342119809%_) + (_%self119816%_ _%self119814%_)) + (if (_%top?119812%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self119657%_ - _%stx119652%_) + _%self119816%_ + _%stx119811%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx119652%_))))) + _%stx119811%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self118183119670%_ _%stx119671%_) - (let ((_%top?119673%_ gx#top-context?)) + (lambda (_%self118342119829%_ _%stx119830%_) + (let ((_%top?119832%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self118183119670%_ - _%stx119671%_ - _%top?119673%_)))) + _%self118342119829%_ + _%stx119830%_ + _%top?119832%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g121349_ - (let ((_g121348_ (##length _g121349_))) - (cond ((##fx= _g121348_ 2) + (lambda _g121508_ + (let ((_g121507_ (##length _g121508_))) + (cond ((##fx= _g121507_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g121349_)) - ((##fx= _g121348_ 3) + _g121508_)) + ((##fx= _g121507_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g121349_)) + _g121508_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g121349_)))))) + _g121508_)))))) (__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 (_%self118184119511%_ _%stx119513%_) - (let* ((_%self119515%_ _%self118184119511%_) - (_%self119517%_ _%self119515%_)) + (lambda (_%self118343119670%_ _%stx119672%_) + (let* ((_%self119674%_ _%self118343119670%_) + (_%self119676%_ _%self119674%_)) (gx#top-special-form::apply-macro-expander__% - _%self119517%_ - _%stx119513%_ + _%self119676%_ + _%stx119672%_ gx#module-context?)))) (__bind-method!__% gx#module-special-form::t @@ -2288,133 +2288,133 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self118185119323%_ _%stx119325%_) - (let* ((_%self119327%_ _%self118185119323%_) - (_%self119329%_ _%self119327%_) - (_%self119338119344%_ _%self119329%_) - (_%E119340119348%_ + (lambda (_%self118344119482%_ _%stx119484%_) + (let* ((_%self119486%_ _%self118344119482%_) + (_%self119488%_ _%self119486%_) + (_%self119497119503%_ _%self119488%_) + (_%E119499119507%_ (lambda () (error '"No clause matching" - _%self119338119344%_ + _%self119497119503%_ '((rename-macro-expander id))) '#!void)) - (_%K119341119381%_ - (lambda (_%id119351%_) - (let* ((_%e119352119359%_ _%stx119325%_) - (_%E119354119363%_ + (_%K119500119540%_ + (lambda (_%id119510%_) + (let* ((_%e119511119518%_ _%stx119484%_) + (_%E119513119522%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119352119359%_))) - (_%E119353119377%_ + _%e119511119518%_))) + (_%E119512119536%_ (lambda () - (if (gx#stx-pair? _%e119352119359%_) - (let ((_%e119355119367%_ - (gx#syntax-e _%e119352119359%_))) - (let ((_%hd119356119370%_ - (##car _%e119355119367%_)) - (_%tl119357119372%_ - (##cdr _%e119355119367%_))) - (let ((_%body119375%_ _%tl119357119372%_)) + (if (gx#stx-pair? _%e119511119518%_) + (let ((_%e119514119526%_ + (gx#syntax-e _%e119511119518%_))) + (let ((_%hd119515119529%_ + (##car _%e119514119526%_)) + (_%tl119516119531%_ + (##cdr _%e119514119526%_))) + (let ((_%body119534%_ _%tl119516119531%_)) (gx#core-cons - _%id119351%_ - _%body119375%_)))) - (_%E119354119363%_))))) - (_%E119353119377%_)))) - (_%e119342119384%_ - (##unchecked-structure-ref _%self119338119344%_ '1 '#f '#f)) - (_%id119387%_ _%e119342119384%_)) - (_%K119341119381%_ _%id119387%_)))) + _%id119510%_ + _%body119534%_)))) + (_%E119513119522%_))))) + (_%E119512119536%_)))) + (_%e119501119543%_ + (##unchecked-structure-ref _%self119497119503%_ '1 '#f '#f)) + (_%id119546%_ _%e119501119543%_)) + (_%K119500119540%_ _%id119546%_)))) (__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 (_%self119149%_ _%stx119150%_ _%method119151%_) - (let* ((_%self119152119160%_ _%self119149%_) - (_%E119154119164%_ + (lambda (_%self119308%_ _%stx119309%_ _%method119310%_) + (let* ((_%self119311119319%_ _%self119308%_) + (_%E119313119323%_ (lambda () (error '"No clause matching" - _%self119152119160%_ + _%self119311119319%_ '((user-expander K ctx phi))) '#!void)) - (_%K119155119171%_ - (lambda (_%phi119167%_ _%ctx119168%_ _%K119169%_) + (_%K119314119330%_ + (lambda (_%phi119326%_ _%ctx119327%_ _%K119328%_) (gx#core-apply-user-macro - _%K119169%_ - _%stx119150%_ - _%ctx119168%_ - _%phi119167%_ - _%method119151%_)))) + _%K119328%_ + _%stx119309%_ + _%ctx119327%_ + _%phi119326%_ + _%method119310%_)))) (if (##structure-instance-of? - _%self119152119160%_ + _%self119311119319%_ 'gx#user-expander::t) - (let* ((_%e119156119174%_ + (let* ((_%e119315119333%_ (##unchecked-structure-ref - _%self119152119160%_ + _%self119311119319%_ '1 '#f '#f)) - (_%K119177%_ _%e119156119174%_) - (_%e119157119179%_ + (_%K119336%_ _%e119315119333%_) + (_%e119316119338%_ (##unchecked-structure-ref - _%self119152119160%_ + _%self119311119319%_ '2 '#f '#f)) - (_%ctx119182%_ _%e119157119179%_) - (_%e119158119184%_ + (_%ctx119341%_ _%e119316119338%_) + (_%e119317119343%_ (##unchecked-structure-ref - _%self119152119160%_ + _%self119311119319%_ '3 '#f '#f)) - (_%phi119187%_ _%e119158119184%_)) - (_%K119155119171%_ _%phi119187%_ _%ctx119182%_ _%K119177%_)) - (_%E119154119164%_))))) + (_%phi119346%_ _%e119317119343%_)) + (_%K119314119330%_ _%phi119346%_ _%ctx119341%_ _%K119336%_)) + (_%E119313119323%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self119192%_ _%stx119193%_) - (let ((_%method119195%_ 'apply-macro-expander)) + (lambda (_%self119351%_ _%stx119352%_) + (let ((_%method119354%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self119192%_ - _%stx119193%_ - _%method119195%_)))) + _%self119351%_ + _%stx119352%_ + _%method119354%_)))) (define gx#core-apply-user-expander - (lambda _g121351_ - (let ((_g121350_ (##length _g121351_))) - (cond ((##fx= _g121350_ 2) - (apply gx#core-apply-user-expander__0 _g121351_)) - ((##fx= _g121350_ 3) - (apply gx#core-apply-user-expander__% _g121351_)) + (lambda _g121510_ + (let ((_g121509_ (##length _g121510_))) + (cond ((##fx= _g121509_ 2) + (apply gx#core-apply-user-expander__0 _g121510_)) + ((##fx= _g121509_ 3) + (apply gx#core-apply-user-expander__% _g121510_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g121351_)))))) + _g121510_)))))) (define gx#core-apply-user-macro - (lambda (_%K119139%_ - _%stx119140%_ - _%ctx119141%_ - _%phi119142%_ - _%method119143%_) - (let ((_%mark119145%_ + (lambda (_%K119298%_ + _%stx119299%_ + _%ctx119300%_ + _%phi119301%_ + _%method119302%_) + (let ((_%mark119304%_ (##structure gx#expander-mark::t '#f - _%ctx119141%_ - _%phi119142%_ - _%stx119140%_))) + _%ctx119300%_ + _%phi119301%_ + _%stx119299%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K119139%_ - (gx#stx-apply-mark _%stx119140%_ _%mark119145%_) - _%method119143%_) - _%mark119145%_)) + _%K119298%_ + (gx#stx-apply-mark _%stx119299%_ _%mark119304%_) + _%method119302%_) + _%mark119304%_)) gx#current-expander-marks - (cons _%mark119145%_ (gx#current-expander-marks)))))) + (cons _%mark119304%_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (__bind-method!__% gx#user-expander::t @@ -2422,372 +2422,372 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx118987%_ _%phi118988%_ _%ctx118989%_) - (let _%lp118991%_ ((_%bind118993%_ + (lambda (_%stx119146%_ _%phi119147%_ _%ctx119148%_) + (let _%lp119150%_ ((_%bind119152%_ (gx#core-resolve-identifier__% - _%stx118987%_ - _%phi118988%_ - _%ctx118989%_))) + _%stx119146%_ + _%phi119147%_ + _%ctx119148%_))) (if (##structure-direct-instance-of? - _%bind118993%_ + _%bind119152%_ 'gx#import-binding::t) - (_%lp118991%_ - (##unchecked-structure-ref _%bind118993%_ '4 '#f '#f)) + (_%lp119150%_ + (##unchecked-structure-ref _%bind119152%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind118993%_ + _%bind119152%_ 'gx#alias-binding::t) - (_%lp118991%_ + (_%lp119150%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind118993%_ '4 '#f '#f) - _%phi118988%_ - _%ctx118989%_)) - _%bind118993%_))))) + (##unchecked-structure-ref _%bind119152%_ '4 '#f '#f) + _%phi119147%_ + _%ctx119148%_)) + _%bind119152%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx119001%_) - (let* ((_%phi119003%_ (gx#current-expander-phi)) - (_%ctx119005%_ (gx#current-expander-context))) + (lambda (_%stx119160%_) + (let* ((_%phi119162%_ (gx#current-expander-phi)) + (_%ctx119164%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119001%_ - _%phi119003%_ - _%ctx119005%_)))) + _%stx119160%_ + _%phi119162%_ + _%ctx119164%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx119007%_ _%phi119008%_) - (let ((_%ctx119010%_ (gx#current-expander-context))) + (lambda (_%stx119166%_ _%phi119167%_) + (let ((_%ctx119169%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119007%_ - _%phi119008%_ - _%ctx119010%_)))) + _%stx119166%_ + _%phi119167%_ + _%ctx119169%_)))) (define gx#resolve-identifier - (lambda _g121353_ - (let ((_g121352_ (##length _g121353_))) - (cond ((##fx= _g121352_ 1) - (apply gx#resolve-identifier__0 _g121353_)) - ((##fx= _g121352_ 2) - (apply gx#resolve-identifier__1 _g121353_)) - ((##fx= _g121352_ 3) - (apply gx#resolve-identifier__% _g121353_)) + (lambda _g121512_ + (let ((_g121511_ (##length _g121512_))) + (cond ((##fx= _g121511_ 1) + (apply gx#resolve-identifier__0 _g121512_)) + ((##fx= _g121511_ 2) + (apply gx#resolve-identifier__1 _g121512_)) + ((##fx= _g121511_ 3) + (apply gx#resolve-identifier__% _g121512_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g121353_)))))) + _g121512_)))))) (define gx#bind-identifier!__% - (lambda (_%stx118942%_ - _%val118943%_ - _%rebind?118944%_ - _%phi118945%_ - _%ctx118946%_) - (let ((_%rebind?118951%_ - (if (not _%rebind?118944%_) + (lambda (_%stx119101%_ + _%val119102%_ + _%rebind?119103%_ + _%phi119104%_ + _%ctx119105%_) + (let ((_%rebind?119110%_ + (if (not _%rebind?119103%_) gx#core-context-rebind? - (if (procedure? _%rebind?118944%_) - _%rebind?118944%_ + (if (procedure? _%rebind?119103%_) + _%rebind?119103%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx118942%_) - _%val118943%_ - _%rebind?118951%_ - _%phi118945%_ - _%ctx118946%_)))) + (gx#core-identifier-key _%stx119101%_) + _%val119102%_ + _%rebind?119110%_ + _%phi119104%_ + _%ctx119105%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx118956%_ _%val118957%_) - (let* ((_%rebind?118959%_ '#f) - (_%phi118961%_ (gx#current-expander-phi)) - (_%ctx118963%_ (gx#current-expander-context))) + (lambda (_%stx119115%_ _%val119116%_) + (let* ((_%rebind?119118%_ '#f) + (_%phi119120%_ (gx#current-expander-phi)) + (_%ctx119122%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx118956%_ - _%val118957%_ - _%rebind?118959%_ - _%phi118961%_ - _%ctx118963%_)))) + _%stx119115%_ + _%val119116%_ + _%rebind?119118%_ + _%phi119120%_ + _%ctx119122%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx118965%_ _%val118966%_ _%rebind?118967%_) - (let* ((_%phi118969%_ (gx#current-expander-phi)) - (_%ctx118971%_ (gx#current-expander-context))) + (lambda (_%stx119124%_ _%val119125%_ _%rebind?119126%_) + (let* ((_%phi119128%_ (gx#current-expander-phi)) + (_%ctx119130%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx118965%_ - _%val118966%_ - _%rebind?118967%_ - _%phi118969%_ - _%ctx118971%_)))) + _%stx119124%_ + _%val119125%_ + _%rebind?119126%_ + _%phi119128%_ + _%ctx119130%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx118973%_ _%val118974%_ _%rebind?118975%_ _%phi118976%_) - (let ((_%ctx118978%_ (gx#current-expander-context))) + (lambda (_%stx119132%_ _%val119133%_ _%rebind?119134%_ _%phi119135%_) + (let ((_%ctx119137%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx118973%_ - _%val118974%_ - _%rebind?118975%_ - _%phi118976%_ - _%ctx118978%_)))) + _%stx119132%_ + _%val119133%_ + _%rebind?119134%_ + _%phi119135%_ + _%ctx119137%_)))) (define gx#bind-identifier! - (lambda _g121355_ - (let ((_g121354_ (##length _g121355_))) - (cond ((##fx= _g121354_ 2) (apply gx#bind-identifier!__0 _g121355_)) - ((##fx= _g121354_ 3) (apply gx#bind-identifier!__1 _g121355_)) - ((##fx= _g121354_ 4) (apply gx#bind-identifier!__2 _g121355_)) - ((##fx= _g121354_ 5) (apply gx#bind-identifier!__% _g121355_)) + (lambda _g121514_ + (let ((_g121513_ (##length _g121514_))) + (cond ((##fx= _g121513_ 2) (apply gx#bind-identifier!__0 _g121514_)) + ((##fx= _g121513_ 3) (apply gx#bind-identifier!__1 _g121514_)) + ((##fx= _g121513_ 4) (apply gx#bind-identifier!__2 _g121514_)) + ((##fx= _g121513_ 5) (apply gx#bind-identifier!__% _g121514_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g121355_)))))) + _g121514_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx118908%_ _%phi118909%_ _%ctx118910%_) - (let _%lp118912%_ ((_%e118914%_ _%stx118908%_) - (_%marks118915%_ (gx#current-expander-marks))) - (if (symbol? _%e118914%_) + (lambda (_%stx119067%_ _%phi119068%_ _%ctx119069%_) + (let _%lp119071%_ ((_%e119073%_ _%stx119067%_) + (_%marks119074%_ (gx#current-expander-marks))) + (if (symbol? _%e119073%_) (gx#core-resolve-binding - _%e118914%_ - _%phi118909%_ - _%phi118909%_ - _%ctx118910%_ - (reverse _%marks118915%_)) - (if (gx#identifier-quote? _%e118914%_) + _%e119073%_ + _%phi119068%_ + _%phi119068%_ + _%ctx119069%_ + (reverse _%marks119074%_)) + (if (gx#identifier-quote? _%e119073%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) - _%phi118909%_ + (##unchecked-structure-ref _%e119073%_ '1 '#f '#f) + _%phi119068%_ '0 - (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) - (##unchecked-structure-ref _%e118914%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e119073%_ '3 '#f '#f) + (##unchecked-structure-ref _%e119073%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e118914%_ + _%e119073%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) - _%phi118909%_ - _%phi118909%_ - _%ctx118910%_ + (##unchecked-structure-ref _%e119073%_ '1 '#f '#f) + _%phi119068%_ + _%phi119068%_ + _%ctx119069%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) - _%marks118915%_)) + (##unchecked-structure-ref _%e119073%_ '3 '#f '#f) + _%marks119074%_)) (if (##structure-direct-instance-of? - _%e118914%_ + _%e119073%_ 'gx#syntax-wrap::t) - (_%lp118912%_ - (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) + (_%lp119071%_ + (##unchecked-structure-ref _%e119073%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) - _%marks118915%_)) + (##unchecked-structure-ref _%e119073%_ '3 '#f '#f) + _%marks119074%_)) (if (##structure-instance-of? - _%e118914%_ + _%e119073%_ 'gerbil#AST::t) - (_%lp118912%_ + (_%lp119071%_ (##unchecked-structure-ref - _%e118914%_ + _%e119073%_ '1 '#f '#f) - _%marks118915%_) + _%marks119074%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx118908%_))))))))) + _%stx119067%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx118926%_) - (let* ((_%phi118928%_ (gx#current-expander-phi)) - (_%ctx118930%_ (gx#current-expander-context))) + (lambda (_%stx119085%_) + (let* ((_%phi119087%_ (gx#current-expander-phi)) + (_%ctx119089%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx118926%_ - _%phi118928%_ - _%ctx118930%_)))) + _%stx119085%_ + _%phi119087%_ + _%ctx119089%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx118932%_ _%phi118933%_) - (let ((_%ctx118935%_ (gx#current-expander-context))) + (lambda (_%stx119091%_ _%phi119092%_) + (let ((_%ctx119094%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx118932%_ - _%phi118933%_ - _%ctx118935%_)))) + _%stx119091%_ + _%phi119092%_ + _%ctx119094%_)))) (define gx#core-resolve-identifier - (lambda _g121357_ - (let ((_g121356_ (##length _g121357_))) - (cond ((##fx= _g121356_ 1) - (apply gx#core-resolve-identifier__0 _g121357_)) - ((##fx= _g121356_ 2) - (apply gx#core-resolve-identifier__1 _g121357_)) - ((##fx= _g121356_ 3) - (apply gx#core-resolve-identifier__% _g121357_)) + (lambda _g121516_ + (let ((_g121515_ (##length _g121516_))) + (cond ((##fx= _g121515_ 1) + (apply gx#core-resolve-identifier__0 _g121516_)) + ((##fx= _g121515_ 2) + (apply gx#core-resolve-identifier__1 _g121516_)) + ((##fx= _g121515_ 3) + (apply gx#core-resolve-identifier__% _g121516_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g121357_)))))) + _g121516_)))))) (define gx#core-resolve-binding - (lambda (_%id118818%_ - _%phi118819%_ - _%src-phi118820%_ - _%ctx118821%_ - _%marks118822%_) - (letrec ((_%resolve118824%_ - (lambda (_%ctx118892%_ _%src-phi118893%_ _%key118894%_) - (let _%lp118896%_ ((_%ctx118898%_ + (lambda (_%id118977%_ + _%phi118978%_ + _%src-phi118979%_ + _%ctx118980%_ + _%marks118981%_) + (letrec ((_%resolve118983%_ + (lambda (_%ctx119051%_ _%src-phi119052%_ _%key119053%_) + (let _%lp119055%_ ((_%ctx119057%_ (gx#core-context-shift - _%ctx118892%_ - _%phi118819%_)) - (_%dphi118899%_ - (fx- _%phi118819%_ _%src-phi118893%_))) - (let ((_%$e118901%_ + _%ctx119051%_ + _%phi118978%_)) + (_%dphi119058%_ + (fx- _%phi118978%_ _%src-phi119052%_))) + (let ((_%$e119060%_ (gx#core-context-resolve - _%ctx118898%_ - _%key118894%_))) - (if _%$e118901%_ - _%$e118901%_ - (if (fxzero? _%dphi118899%_) + _%ctx119057%_ + _%key119053%_))) + (if _%$e119060%_ + _%$e119060%_ + (if (fxzero? _%dphi119058%_) '#f - (if (fxpositive? _%dphi118899%_) - (_%lp118896%_ - (gx#core-context-shift _%ctx118898%_ '-1) - (##fx- _%dphi118899%_ '1)) - (_%lp118896%_ - (gx#core-context-shift _%ctx118898%_ '1) - (##fx+ _%dphi118899%_ '1)))))))))) - (let _%lp118826%_ ((_%ctx118828%_ _%ctx118821%_) - (_%src-phi118829%_ _%src-phi118820%_) - (_%rest118830%_ _%marks118822%_)) - (let* ((_%rest118831118839%_ _%rest118830%_) - (_%else118833118847%_ + (if (fxpositive? _%dphi119058%_) + (_%lp119055%_ + (gx#core-context-shift _%ctx119057%_ '-1) + (##fx- _%dphi119058%_ '1)) + (_%lp119055%_ + (gx#core-context-shift _%ctx119057%_ '1) + (##fx+ _%dphi119058%_ '1)))))))))) + (let _%lp118985%_ ((_%ctx118987%_ _%ctx118980%_) + (_%src-phi118988%_ _%src-phi118979%_) + (_%rest118989%_ _%marks118981%_)) + (let* ((_%rest118990118998%_ _%rest118989%_) + (_%else118992119006%_ (lambda () - (_%resolve118824%_ - _%ctx118828%_ - _%src-phi118829%_ - _%id118818%_))) - (_%K118835118880%_ - (lambda (_%rest118850%_ _%hd118851%_) - (let* ((_%hd118852118858%_ _%hd118851%_) - (_%E118854118862%_ + (_%resolve118983%_ + _%ctx118987%_ + _%src-phi118988%_ + _%id118977%_))) + (_%K118994119039%_ + (lambda (_%rest119009%_ _%hd119010%_) + (let* ((_%hd119011119017%_ _%hd119010%_) + (_%E119013119021%_ (lambda () (error '"No clause matching" - _%hd118852118858%_ + _%hd119011119017%_ '((expander-mark subst))) '#!void)) - (_%K118855118872%_ - (lambda (_%subst118865%_) - (let ((_%$e118869%_ - (let ((_%key118867%_ - (if _%subst118865%_ + (_%K119014119031%_ + (lambda (_%subst119024%_) + (let ((_%$e119028%_ + (let ((_%key119026%_ + (if _%subst119024%_ (hash-get - _%subst118865%_ - _%id118818%_) + _%subst119024%_ + _%id118977%_) '#f))) - (if _%key118867%_ - (_%resolve118824%_ - _%ctx118828%_ - _%src-phi118829%_ - _%key118867%_) + (if _%key119026%_ + (_%resolve118983%_ + _%ctx118987%_ + _%src-phi118988%_ + _%key119026%_) '#f)))) - (if _%$e118869%_ - _%$e118869%_ - (_%lp118826%_ + (if _%$e119028%_ + _%$e119028%_ + (_%lp118985%_ (##unchecked-structure-ref - _%hd118851%_ + _%hd119010%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd118851%_ + _%hd119010%_ '3 '#f '#f) - _%rest118850%_)))))) + _%rest119009%_)))))) (if (##structure-instance-of? - _%hd118852118858%_ + _%hd119011119017%_ 'gx#expander-mark::t) - (let* ((_%e118856118875%_ + (let* ((_%e119015119034%_ (##unchecked-structure-ref - _%hd118852118858%_ + _%hd119011119017%_ '1 '#f '#f)) - (_%subst118878%_ _%e118856118875%_)) - (_%K118855118872%_ _%subst118878%_)) - (_%E118854118862%_)))))) - (if (pair? _%rest118831118839%_) - (let ((_%hd118836118883%_ (##car _%rest118831118839%_)) - (_%tl118837118885%_ (##cdr _%rest118831118839%_))) - (let* ((_%hd118888%_ _%hd118836118883%_) - (_%rest118890%_ _%tl118837118885%_)) - (_%K118835118880%_ _%rest118890%_ _%hd118888%_))) - (_%else118833118847%_))))))) + (_%subst119037%_ _%e119015119034%_)) + (_%K119014119031%_ _%subst119037%_)) + (_%E119013119021%_)))))) + (if (pair? _%rest118990118998%_) + (let ((_%hd118995119042%_ (##car _%rest118990118998%_)) + (_%tl118996119044%_ (##cdr _%rest118990118998%_))) + (let* ((_%hd119047%_ _%hd118995119042%_) + (_%rest119049%_ _%tl118996119044%_)) + (_%K118994119039%_ _%rest119049%_ _%hd119047%_))) + (_%else118992119006%_))))))) (define gx#core-bind!__% - (lambda (_%key118688%_ - _%val118689%_ - _%rebind?118690%_ - _%phi118691%_ - _%ctx118692%_) - (letrec ((_%update-binding118694%_ - (lambda (_%xval118767%_) - (if (or (_%rebind?118690%_ - _%ctx118692%_ - _%xval118767%_ - _%val118689%_) + (lambda (_%key118847%_ + _%val118848%_ + _%rebind?118849%_ + _%phi118850%_ + _%ctx118851%_) + (letrec ((_%update-binding118853%_ + (lambda (_%xval118926%_) + (if (or (_%rebind?118849%_ + _%ctx118851%_ + _%xval118926%_ + _%val118848%_) (and (##structure-direct-instance-of? - _%xval118767%_ + _%xval118926%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval118767%_ + _%xval118926%_ '6 '#f '#f) (and (##structure-instance-of? - _%val118689%_ + _%val118848%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val118689%_ + _%val118848%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval118767%_ + _%xval118926%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val118689%_ + _%val118848%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val118689%_ + _%val118848%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118767%_ + _%xval118926%_ '1 '#f '#f)))) - _%val118689%_ + _%val118848%_ (if (and (##structure-direct-instance-of? - _%val118689%_ + _%val118848%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val118689%_ + _%val118848%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval118767%_ + _%xval118926%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val118689%_ + _%val118848%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118767%_ + _%xval118926%_ '1 '#f '#f))))) - _%xval118767%_ + _%xval118926%_ (if (and (##structure-direct-instance-of? - _%val118689%_ + _%val118848%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval118767%_ + _%xval118926%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key118688%_ + _%key118847%_ (cons (##unchecked-structure-ref - _%val118689%_ + _%val118848%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val118689%_ + _%val118848%_ '5 '#f '#f) @@ -2796,175 +2796,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval118767%_ + _%xval118926%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval118767%_ + _%xval118926%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval118767%_ + _%xval118926%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval118767%_) + _%xval118926%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key118688%_ - _%val118689%_ - _%xval118767%_)))))) - (_%gensubst118695%_ - (lambda (_%subst118762%_ _%id118763%_) - (let ((_%eid118765%_ - (gensym (if (uninterned-symbol? _%id118763%_) + _%key118847%_ + _%val118848%_ + _%xval118926%_)))))) + (_%gensubst118854%_ + (lambda (_%subst118921%_ _%id118922%_) + (let ((_%eid118924%_ + (gensym (if (uninterned-symbol? _%id118922%_) '% - _%id118763%_)))) - (hash-put! _%subst118762%_ _%id118763%_ _%eid118765%_) - _%eid118765%_))) - (_%subst!118696%_ - (lambda (_%key118698%_) - (let* ((_%key118699118707%_ _%key118698%_) - (_%else118701118715%_ (lambda () _%key118698%_)) - (_%K118703118750%_ - (lambda (_%mark118718%_ _%id118719%_) - (let* ((_%mark118720118726%_ _%mark118718%_) - (_%E118722118730%_ + _%id118922%_)))) + (hash-put! _%subst118921%_ _%id118922%_ _%eid118924%_) + _%eid118924%_))) + (_%subst!118855%_ + (lambda (_%key118857%_) + (let* ((_%key118858118866%_ _%key118857%_) + (_%else118860118874%_ (lambda () _%key118857%_)) + (_%K118862118909%_ + (lambda (_%mark118877%_ _%id118878%_) + (let* ((_%mark118879118885%_ _%mark118877%_) + (_%E118881118889%_ (lambda () (error '"No clause matching" - _%mark118720118726%_ + _%mark118879118885%_ '((expander-mark subst))) '#!void)) - (_%K118723118742%_ - (lambda (_%subst118733%_) - (if (not _%subst118733%_) - (let ((_%subst118736%_ + (_%K118882118901%_ + (lambda (_%subst118892%_) + (if (not _%subst118892%_) + (let ((_%subst118895%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark118718%_ - _%subst118736%_ + _%mark118877%_ + _%subst118895%_ '1 '#f '#f) - (_%gensubst118695%_ - _%subst118736%_ - _%id118719%_)) - (let ((_%$e118738%_ + (_%gensubst118854%_ + _%subst118895%_ + _%id118878%_)) + (let ((_%$e118897%_ (hash-get - _%subst118733%_ - _%id118719%_))) - (if _%$e118738%_ - _%$e118738%_ - (_%gensubst118695%_ - _%subst118733%_ - _%id118719%_))))))) + _%subst118892%_ + _%id118878%_))) + (if _%$e118897%_ + _%$e118897%_ + (_%gensubst118854%_ + _%subst118892%_ + _%id118878%_))))))) (if (##structure-instance-of? - _%mark118720118726%_ + _%mark118879118885%_ 'gx#expander-mark::t) - (let* ((_%e118724118745%_ + (let* ((_%e118883118904%_ (##unchecked-structure-ref - _%mark118720118726%_ + _%mark118879118885%_ '1 '#f '#f)) - (_%subst118748%_ _%e118724118745%_)) - (_%K118723118742%_ _%subst118748%_)) - (_%E118722118730%_)))))) - (if (pair? _%key118699118707%_) - (let ((_%hd118704118753%_ - (##car _%key118699118707%_)) - (_%tl118705118755%_ - (##cdr _%key118699118707%_))) - (let* ((_%id118758%_ _%hd118704118753%_) - (_%mark118760%_ _%tl118705118755%_)) - (_%K118703118750%_ _%mark118760%_ _%id118758%_))) - (_%else118701118715%_)))))) + (_%subst118907%_ _%e118883118904%_)) + (_%K118882118901%_ _%subst118907%_)) + (_%E118881118889%_)))))) + (if (pair? _%key118858118866%_) + (let ((_%hd118863118912%_ + (##car _%key118858118866%_)) + (_%tl118864118914%_ + (##cdr _%key118858118866%_))) + (let* ((_%id118917%_ _%hd118863118912%_) + (_%mark118919%_ _%tl118864118914%_)) + (_%K118862118909%_ _%mark118919%_ _%id118917%_))) + (_%else118860118874%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx118692%_ _%phi118691%_) - (_%subst!118696%_ _%key118688%_) - _%val118689%_ - _%update-binding118694%_)))) + (gx#core-context-shift _%ctx118851%_ _%phi118850%_) + (_%subst!118855%_ _%key118847%_) + _%val118848%_ + _%update-binding118853%_)))) (define gx#core-bind!__0 - (lambda (_%key118788%_ _%val118789%_) - (let* ((_%rebind?118791%_ false) - (_%phi118793%_ (gx#current-expander-phi)) - (_%ctx118795%_ (gx#current-expander-context))) + (lambda (_%key118947%_ _%val118948%_) + (let* ((_%rebind?118950%_ false) + (_%phi118952%_ (gx#current-expander-phi)) + (_%ctx118954%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118788%_ - _%val118789%_ - _%rebind?118791%_ - _%phi118793%_ - _%ctx118795%_)))) + _%key118947%_ + _%val118948%_ + _%rebind?118950%_ + _%phi118952%_ + _%ctx118954%_)))) (define gx#core-bind!__1 - (lambda (_%key118797%_ _%val118798%_ _%rebind?118799%_) - (let* ((_%phi118801%_ (gx#current-expander-phi)) - (_%ctx118803%_ (gx#current-expander-context))) + (lambda (_%key118956%_ _%val118957%_ _%rebind?118958%_) + (let* ((_%phi118960%_ (gx#current-expander-phi)) + (_%ctx118962%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118797%_ - _%val118798%_ - _%rebind?118799%_ - _%phi118801%_ - _%ctx118803%_)))) + _%key118956%_ + _%val118957%_ + _%rebind?118958%_ + _%phi118960%_ + _%ctx118962%_)))) (define gx#core-bind!__2 - (lambda (_%key118805%_ _%val118806%_ _%rebind?118807%_ _%phi118808%_) - (let ((_%ctx118810%_ (gx#current-expander-context))) + (lambda (_%key118964%_ _%val118965%_ _%rebind?118966%_ _%phi118967%_) + (let ((_%ctx118969%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118805%_ - _%val118806%_ - _%rebind?118807%_ - _%phi118808%_ - _%ctx118810%_)))) + _%key118964%_ + _%val118965%_ + _%rebind?118966%_ + _%phi118967%_ + _%ctx118969%_)))) (define gx#core-bind! - (lambda _g121359_ - (let ((_g121358_ (##length _g121359_))) - (cond ((##fx= _g121358_ 2) (apply gx#core-bind!__0 _g121359_)) - ((##fx= _g121358_ 3) (apply gx#core-bind!__1 _g121359_)) - ((##fx= _g121358_ 4) (apply gx#core-bind!__2 _g121359_)) - ((##fx= _g121358_ 5) (apply gx#core-bind!__% _g121359_)) + (lambda _g121518_ + (let ((_g121517_ (##length _g121518_))) + (cond ((##fx= _g121517_ 2) (apply gx#core-bind!__0 _g121518_)) + ((##fx= _g121517_ 3) (apply gx#core-bind!__1 _g121518_)) + ((##fx= _g121517_ 4) (apply gx#core-bind!__2 _g121518_)) + ((##fx= _g121517_ 5) (apply gx#core-bind!__% _g121518_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g121359_)))))) + _g121518_)))))) (define gx#core-identifier-key - (lambda (_%stx118619%_) - (if (symbol? _%stx118619%_) - (let* ((_%g118621118629%_ (gx#current-expander-marks)) - (_%else118623118637%_ (lambda () _%stx118619%_)) - (_%K118625118642%_ - (lambda (_%hd118640%_) (cons _%stx118619%_ _%hd118640%_)))) - (if (pair? _%g118621118629%_) - (let* ((_%hd118626118645%_ (##car _%g118621118629%_)) - (_%hd118648%_ _%hd118626118645%_)) - (_%K118625118642%_ _%hd118648%_)) - (_%else118623118637%_))) - (if (gx#identifier? _%stx118619%_) - (let* ((_%id118651%_ (gx#syntax-local-unwrap _%stx118619%_)) - (_%eid118653%_ (gx#stx-e _%id118651%_)) - (_%marks118655%_ - (gx#stx-identifier-marks* _%id118651%_)) - (_%marks118657118665%_ _%marks118655%_) - (_%else118659118673%_ (lambda () _%eid118653%_)) - (_%K118661118678%_ - (lambda (_%hd118676%_) - (cons _%eid118653%_ _%hd118676%_)))) - (if (pair? _%marks118657118665%_) - (let* ((_%hd118662118681%_ (##car _%marks118657118665%_)) - (_%hd118684%_ _%hd118662118681%_)) - (_%K118661118678%_ _%hd118684%_)) - (_%else118659118673%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx118619%_))))) + (lambda (_%stx118778%_) + (if (symbol? _%stx118778%_) + (let* ((_%g118780118788%_ (gx#current-expander-marks)) + (_%else118782118796%_ (lambda () _%stx118778%_)) + (_%K118784118801%_ + (lambda (_%hd118799%_) (cons _%stx118778%_ _%hd118799%_)))) + (if (pair? _%g118780118788%_) + (let* ((_%hd118785118804%_ (##car _%g118780118788%_)) + (_%hd118807%_ _%hd118785118804%_)) + (_%K118784118801%_ _%hd118807%_)) + (_%else118782118796%_))) + (if (gx#identifier? _%stx118778%_) + (let* ((_%id118810%_ (gx#syntax-local-unwrap _%stx118778%_)) + (_%eid118812%_ (gx#stx-e _%id118810%_)) + (_%marks118814%_ + (gx#stx-identifier-marks* _%id118810%_)) + (_%marks118816118824%_ _%marks118814%_) + (_%else118818118832%_ (lambda () _%eid118812%_)) + (_%K118820118837%_ + (lambda (_%hd118835%_) + (cons _%eid118812%_ _%hd118835%_)))) + (if (pair? _%marks118816118824%_) + (let* ((_%hd118821118840%_ (##car _%marks118816118824%_)) + (_%hd118843%_ _%hd118821118840%_)) + (_%K118820118837%_ _%hd118843%_)) + (_%else118818118832%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx118778%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx118558%_ _%phi118559%_) - (letrec ((_%make-phi118561%_ - (lambda (_%super118617%_) - (let ((__obj121331 + (lambda (_%ctx118717%_ _%phi118718%_) + (letrec ((_%make-phi118720%_ + (lambda (_%super118776%_) + (let ((__obj121490 (##structure gx#phi-context::t '#f @@ -2973,579 +2973,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj121331 + __obj121490 (##gensym 'phi) - _%super118617%_) - __obj121331))) - (_%make-phi/up118562%_ - (lambda (_%ctx118612%_ _%super118613%_) - (let ((_%ctx+1118615%_ - (_%make-phi118561%_ _%super118613%_))) + _%super118776%_) + __obj121490))) + (_%make-phi/up118721%_ + (lambda (_%ctx118771%_ _%super118772%_) + (let ((_%ctx+1118774%_ + (_%make-phi118720%_ _%super118772%_))) (##unchecked-structure-set! - _%ctx118612%_ - _%ctx+1118615%_ + _%ctx118771%_ + _%ctx+1118774%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1118615%_ - _%ctx118612%_ + _%ctx+1118774%_ + _%ctx118771%_ '5 '#f '#f) - _%ctx+1118615%_))) - (_%make-phi/down118563%_ - (lambda (_%ctx118607%_ _%super118608%_) - (let ((_%ctx-1118610%_ - (_%make-phi118561%_ _%super118608%_))) + _%ctx+1118774%_))) + (_%make-phi/down118722%_ + (lambda (_%ctx118766%_ _%super118767%_) + (let ((_%ctx-1118769%_ + (_%make-phi118720%_ _%super118767%_))) (##unchecked-structure-set! - _%ctx-1118610%_ - _%ctx118607%_ + _%ctx-1118769%_ + _%ctx118766%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx118607%_ - _%ctx-1118610%_ + _%ctx118766%_ + _%ctx-1118769%_ '5 '#f '#f) - _%ctx-1118610%_))) - (_%shift118564%_ - (lambda (_%ctx118590%_ - _%delta118591%_ - _%make-delta-context118592%_ - _%phi118593%_ - _%K118594%_) - (let ((_%$e118596%_ + _%ctx-1118769%_))) + (_%shift118723%_ + (lambda (_%ctx118749%_ + _%delta118750%_ + _%make-delta-context118751%_ + _%phi118752%_ + _%K118753%_) + (let ((_%$e118755%_ (##unchecked-structure-ref - _%ctx118590%_ + _%ctx118749%_ '3 '#f '#f))) - (if _%$e118596%_ - ((lambda (_%super118599%_) - (let* ((_%super118601%_ - (_%K118594%_ - _%super118599%_ - _%delta118591%_)) - (_%ctx+d118603%_ - (_%make-delta-context118592%_ - _%ctx118590%_ - _%super118601%_))) - (_%K118594%_ - _%ctx+d118603%_ - (fx- _%phi118593%_ _%delta118591%_)))) - _%$e118596%_) - (error '"Bad context" _%ctx118590%_)))))) - (let _%K118566%_ ((_%ctx118568%_ _%ctx118558%_) - (_%phi118569%_ _%phi118559%_)) - (if (fxzero? _%phi118569%_) - _%ctx118568%_ - (if (##structure-instance-of? _%ctx118568%_ 'gx#phi-context::t) - (if (fxpositive? _%phi118569%_) - (let ((_%$e118573%_ + (if _%$e118755%_ + ((lambda (_%super118758%_) + (let* ((_%super118760%_ + (_%K118753%_ + _%super118758%_ + _%delta118750%_)) + (_%ctx+d118762%_ + (_%make-delta-context118751%_ + _%ctx118749%_ + _%super118760%_))) + (_%K118753%_ + _%ctx+d118762%_ + (fx- _%phi118752%_ _%delta118750%_)))) + _%$e118755%_) + (error '"Bad context" _%ctx118749%_)))))) + (let _%K118725%_ ((_%ctx118727%_ _%ctx118717%_) + (_%phi118728%_ _%phi118718%_)) + (if (fxzero? _%phi118728%_) + _%ctx118727%_ + (if (##structure-instance-of? _%ctx118727%_ 'gx#phi-context::t) + (if (fxpositive? _%phi118728%_) + (let ((_%$e118732%_ (##unchecked-structure-ref - _%ctx118568%_ + _%ctx118727%_ '4 '#f '#f))) - (if _%$e118573%_ - ((lambda (_%g118575118577%_) - (_%K118566%_ - _%g118575118577%_ - (##fx- _%phi118569%_ '1))) - _%$e118573%_) - (_%shift118564%_ - _%ctx118568%_ + (if _%$e118732%_ + ((lambda (_%g118734118736%_) + (_%K118725%_ + _%g118734118736%_ + (##fx- _%phi118728%_ '1))) + _%$e118732%_) + (_%shift118723%_ + _%ctx118727%_ '1 - _%make-phi/up118562%_ - _%phi118569%_ - _%K118566%_))) - (let ((_%$e118581%_ + _%make-phi/up118721%_ + _%phi118728%_ + _%K118725%_))) + (let ((_%$e118740%_ (##unchecked-structure-ref - _%ctx118568%_ + _%ctx118727%_ '5 '#f '#f))) - (if _%$e118581%_ - ((lambda (_%g118583118585%_) - (_%K118566%_ - _%g118583118585%_ - (##fx+ _%phi118569%_ '1))) - _%$e118581%_) - (_%shift118564%_ - _%ctx118568%_ + (if _%$e118740%_ + ((lambda (_%g118742118744%_) + (_%K118725%_ + _%g118742118744%_ + (##fx+ _%phi118728%_ '1))) + _%$e118740%_) + (_%shift118723%_ + _%ctx118727%_ '-1 - _%make-phi/down118563%_ - _%phi118569%_ - _%K118566%_)))) - _%ctx118568%_)))))) + _%make-phi/down118722%_ + _%phi118728%_ + _%K118725%_)))) + _%ctx118727%_)))))) (define gx#core-context-get - (lambda (_%ctx118555%_ _%key118556%_) + (lambda (_%ctx118714%_ _%key118715%_) (hash-get - (##unchecked-structure-ref _%ctx118555%_ '2 '#f '#f) - _%key118556%_))) + (##unchecked-structure-ref _%ctx118714%_ '2 '#f '#f) + _%key118715%_))) (define gx#core-context-put! - (lambda (_%ctx118551%_ _%key118552%_ _%val118553%_) + (lambda (_%ctx118710%_ _%key118711%_ _%val118712%_) (hash-put! - (##unchecked-structure-ref _%ctx118551%_ '2 '#f '#f) - _%key118552%_ - _%val118553%_))) + (##unchecked-structure-ref _%ctx118710%_ '2 '#f '#f) + _%key118711%_ + _%val118712%_))) (define gx#core-context-resolve - (lambda (_%ctx118537%_ _%key118538%_) - (let _%lp118540%_ ((_%ctx118542%_ _%ctx118537%_)) - (let ((_%$e118544%_ - (gx#core-context-get _%ctx118542%_ _%key118538%_))) - (if _%$e118544%_ - _%$e118544%_ - (let ((_%$e118547%_ + (lambda (_%ctx118696%_ _%key118697%_) + (let _%lp118699%_ ((_%ctx118701%_ _%ctx118696%_)) + (let ((_%$e118703%_ + (gx#core-context-get _%ctx118701%_ _%key118697%_))) + (if _%$e118703%_ + _%$e118703%_ + (let ((_%$e118706%_ (if (##structure-instance-of? - _%ctx118542%_ + _%ctx118701%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx118542%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx118701%_ '3 '#f '#f) '#f))) - (if _%$e118547%_ (_%lp118540%_ _%$e118547%_) '#f))))))) + (if _%$e118706%_ (_%lp118699%_ _%$e118706%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx118526%_ _%key118527%_ _%val118528%_ _%rebind118529%_) - (let ((_%$e118531%_ (gx#core-context-get _%ctx118526%_ _%key118527%_))) - (if _%$e118531%_ - ((lambda (_%xval118534%_) + (lambda (_%ctx118685%_ _%key118686%_ _%val118687%_ _%rebind118688%_) + (let ((_%$e118690%_ (gx#core-context-get _%ctx118685%_ _%key118686%_))) + (if _%$e118690%_ + ((lambda (_%xval118693%_) (gx#core-context-put! - _%ctx118526%_ - _%key118527%_ - (_%rebind118529%_ _%xval118534%_))) - _%$e118531%_) + _%ctx118685%_ + _%key118686%_ + (_%rebind118688%_ _%xval118693%_))) + _%$e118690%_) (gx#core-context-put! - _%ctx118526%_ - _%key118527%_ - _%val118528%_))))) + _%ctx118685%_ + _%key118686%_ + _%val118687%_))))) (define gx#core-context-top__% - (lambda (_%ctx118501%_ _%stop?118502%_) - (let _%lp118504%_ ((_%ctx118506%_ _%ctx118501%_)) - (if (_%stop?118502%_ _%ctx118506%_) - _%ctx118506%_ - (if (##structure-instance-of? _%ctx118506%_ 'gx#phi-context::t) - (_%lp118504%_ - (##unchecked-structure-ref _%ctx118506%_ '3 '#f '#f)) + (lambda (_%ctx118660%_ _%stop?118661%_) + (let _%lp118663%_ ((_%ctx118665%_ _%ctx118660%_)) + (if (_%stop?118661%_ _%ctx118665%_) + _%ctx118665%_ + (if (##structure-instance-of? _%ctx118665%_ 'gx#phi-context::t) + (_%lp118663%_ + (##unchecked-structure-ref _%ctx118665%_ '3 '#f '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx118515%_ (gx#current-expander-context)) - (_%stop?118517%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118515%_ _%stop?118517%_)))) + (let* ((_%ctx118674%_ (gx#current-expander-context)) + (_%stop?118676%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118674%_ _%stop?118676%_)))) (define gx#core-context-top__1 - (lambda (_%ctx118519%_) - (let ((_%stop?118521%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118519%_ _%stop?118521%_)))) + (lambda (_%ctx118678%_) + (let ((_%stop?118680%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118678%_ _%stop?118680%_)))) (define gx#core-context-top - (lambda _g121361_ - (let ((_g121360_ (##length _g121361_))) - (cond ((##fx= _g121360_ 0) (apply gx#core-context-top__0 _g121361_)) - ((##fx= _g121360_ 1) (apply gx#core-context-top__1 _g121361_)) - ((##fx= _g121360_ 2) (apply gx#core-context-top__% _g121361_)) + (lambda _g121520_ + (let ((_g121519_ (##length _g121520_))) + (cond ((##fx= _g121519_ 0) (apply gx#core-context-top__0 _g121520_)) + ((##fx= _g121519_ 1) (apply gx#core-context-top__1 _g121520_)) + ((##fx= _g121519_ 2) (apply gx#core-context-top__% _g121520_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g121361_)))))) + _g121520_)))))) (define gx#core-context-root__% - (lambda (_%ctx118486%_) - (let _%lp118488%_ ((_%ctx118490%_ _%ctx118486%_)) - (if (##structure-instance-of? _%ctx118490%_ 'gx#phi-context::t) - (_%lp118488%_ - (##unchecked-structure-ref _%ctx118490%_ '3 '#f '#f)) - _%ctx118490%_)))) + (lambda (_%ctx118645%_) + (let _%lp118647%_ ((_%ctx118649%_ _%ctx118645%_)) + (if (##structure-instance-of? _%ctx118649%_ 'gx#phi-context::t) + (_%lp118647%_ + (##unchecked-structure-ref _%ctx118649%_ '3 '#f '#f)) + _%ctx118649%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx118496%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx118496%_)))) + (let ((_%ctx118655%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx118655%_)))) (define gx#core-context-root - (lambda _g121363_ - (let ((_g121362_ (##length _g121363_))) - (cond ((##fx= _g121362_ 0) (apply gx#core-context-root__0 _g121363_)) - ((##fx= _g121362_ 1) (apply gx#core-context-root__% _g121363_)) + (lambda _g121522_ + (let ((_g121521_ (##length _g121522_))) + (cond ((##fx= _g121521_ 0) (apply gx#core-context-root__0 _g121522_)) + ((##fx= _g121521_ 1) (apply gx#core-context-root__% _g121522_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g121363_)))))) + _g121522_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx118468%_ . _%ignore118469%_) - (let ((_%$e118471%_ (gx#current-expander-allow-rebind?))) - (if _%$e118471%_ - _%$e118471%_ - (if (##structure-instance-of? _%ctx118468%_ 'gx#top-context::t) + (lambda (_%ctx118627%_ . _%ignore118628%_) + (let ((_%$e118630%_ (gx#current-expander-allow-rebind?))) + (if _%$e118630%_ + _%$e118630%_ + (if (##structure-instance-of? _%ctx118627%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx118468%_ + _%ctx118627%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx118468%_ + _%ctx118627%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx118478%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx118478%_)))) + (let ((_%ctx118637%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx118637%_)))) (define gx#core-context-rebind? - (lambda _g121365_ - (let ((_g121364_ (##length _g121365_))) - (cond ((##fx= _g121364_ 0) - (apply gx#core-context-rebind?__0 _g121365_)) - ((##fx= _g121364_ 1) - (apply gx#core-context-rebind?__% _g121365_)) - ((##fx>= _g121364_ 1) - (apply gx#core-context-rebind?__% _g121365_)) + (lambda _g121524_ + (let ((_g121523_ (##length _g121524_))) + (cond ((##fx= _g121523_ 0) + (apply gx#core-context-rebind?__0 _g121524_)) + ((##fx= _g121523_ 1) + (apply gx#core-context-rebind?__% _g121524_)) + ((##fx>= _g121523_ 1) + (apply gx#core-context-rebind?__% _g121524_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g121365_)))))) + _g121524_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx118451%_) - (let ((_%$e118453%_ (gx#core-context-top__1 _%ctx118451%_))) - (if _%$e118453%_ - ((lambda (_%ctx118456%_) + (lambda (_%ctx118610%_) + (let ((_%$e118612%_ (gx#core-context-top__1 _%ctx118610%_))) + (if _%$e118612%_ + ((lambda (_%ctx118615%_) (if (##structure-instance-of? - _%ctx118456%_ + _%ctx118615%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx118456%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx118615%_ '6 '#f '#f) '#f)) - _%$e118453%_) + _%$e118612%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx118463%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx118463%_)))) + (let ((_%ctx118622%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx118622%_)))) (define gx#core-context-namespace - (lambda _g121367_ - (let ((_g121366_ (##length _g121367_))) - (cond ((##fx= _g121366_ 0) - (apply gx#core-context-namespace__0 _g121367_)) - ((##fx= _g121366_ 1) - (apply gx#core-context-namespace__% _g121367_)) + (lambda _g121526_ + (let ((_g121525_ (##length _g121526_))) + (cond ((##fx= _g121525_ 0) + (apply gx#core-context-namespace__0 _g121526_)) + ((##fx= _g121525_ 1) + (apply gx#core-context-namespace__% _g121526_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g121367_)))))) + _g121526_)))))) (define gx#expander-binding?__% - (lambda (_%bind118437%_ _%is?118438%_) + (lambda (_%bind118596%_ _%is?118597%_) (if (##structure-direct-instance-of? - _%bind118437%_ + _%bind118596%_ 'gx#syntax-binding::t) - (_%is?118438%_ - (##unchecked-structure-ref _%bind118437%_ '4 '#f '#f)) + (_%is?118597%_ + (##unchecked-structure-ref _%bind118596%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind118443%_) - (let ((_%is?118445%_ gx#expander?)) - (gx#expander-binding?__% _%bind118443%_ _%is?118445%_)))) + (lambda (_%bind118602%_) + (let ((_%is?118604%_ gx#expander?)) + (gx#expander-binding?__% _%bind118602%_ _%is?118604%_)))) (define gx#expander-binding? - (lambda _g121369_ - (let ((_g121368_ (##length _g121369_))) - (cond ((##fx= _g121368_ 1) (apply gx#expander-binding?__0 _g121369_)) - ((##fx= _g121368_ 2) (apply gx#expander-binding?__% _g121369_)) + (lambda _g121528_ + (let ((_g121527_ (##length _g121528_))) + (cond ((##fx= _g121527_ 1) (apply gx#expander-binding?__0 _g121528_)) + ((##fx= _g121527_ 2) (apply gx#expander-binding?__% _g121528_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g121369_)))))) + _g121528_)))))) (define gx#core-expander-binding? - (lambda (_%bind118434%_) - (gx#expander-binding?__% _%bind118434%_ gx#core-expander?))) + (lambda (_%bind118593%_) + (gx#expander-binding?__% _%bind118593%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind118432%_) - (gx#expander-binding?__% _%bind118432%_ gx#expression-form?))) + (lambda (_%bind118591%_) + (gx#expander-binding?__% _%bind118591%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind118426%_) - (letrec ((_%direct-special-form?118428%_ - (lambda (_%obj118430%_) + (lambda (_%bind118585%_) + (letrec ((_%direct-special-form?118587%_ + (lambda (_%obj118589%_) (##structure-direct-instance-of? - _%obj118430%_ + _%obj118589%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind118426%_ - _%direct-special-form?118428%_)))) + _%bind118585%_ + _%direct-special-form?118587%_)))) (define gx#special-form-binding? - (lambda (_%bind118424%_) - (gx#expander-binding?__% _%bind118424%_ gx#special-form?))) + (lambda (_%bind118583%_) + (gx#expander-binding?__% _%bind118583%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind118415%_) - (letrec ((_%feature?118417%_ - (lambda (_%e118419%_) - (let ((_%$e118421%_ + (lambda (_%bind118574%_) + (letrec ((_%feature?118576%_ + (lambda (_%e118578%_) + (let ((_%$e118580%_ (##structure-instance-of? - _%e118419%_ + _%e118578%_ 'gx#feature-expander::t))) - (if _%$e118421%_ - _%$e118421%_ + (if _%$e118580%_ + _%$e118580%_ (##structure-instance-of? - _%e118419%_ + _%e118578%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind118415%_ _%feature?118417%_)))) + (gx#expander-binding?__% _%bind118574%_ _%feature?118576%_)))) (define gx#private-feature-binding? - (lambda (_%bind118413%_) - (gx#expander-binding?__% _%bind118413%_ gx#private-feature-expander?))) + (lambda (_%bind118572%_) + (gx#expander-binding?__% _%bind118572%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id118400%_ _%bound?118401%_) - (if (gx#identifier? _%id118400%_) - (_%bound?118401%_ (gx#resolve-identifier__0 _%id118400%_)) + (lambda (_%id118559%_ _%bound?118560%_) + (if (gx#identifier? _%id118559%_) + (_%bound?118560%_ (gx#resolve-identifier__0 _%id118559%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id118406%_) - (let ((_%bound?118408%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id118406%_ _%bound?118408%_)))) + (lambda (_%id118565%_) + (let ((_%bound?118567%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id118565%_ _%bound?118567%_)))) (define gx#core-bound-identifier? - (lambda _g121371_ - (let ((_g121370_ (##length _g121371_))) - (cond ((##fx= _g121370_ 1) - (apply gx#core-bound-identifier?__0 _g121371_)) - ((##fx= _g121370_ 2) - (apply gx#core-bound-identifier?__% _g121371_)) + (lambda _g121530_ + (let ((_g121529_ (##length _g121530_))) + (cond ((##fx= _g121529_ 1) + (apply gx#core-bound-identifier?__0 _g121530_)) + ((##fx= _g121529_ 2) + (apply gx#core-bound-identifier?__% _g121530_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g121371_)))))) + _g121530_)))))) (define gx#core-identifier=? - (lambda (_%x118390%_ _%y118391%_) - (letrec ((_%y=?118393%_ - (lambda (_%xid118397%_) - ((if (list? _%y118391%_) memq eq?) - _%xid118397%_ - _%y118391%_)))) - (let ((_%bind118395%_ (gx#resolve-identifier__0 _%x118390%_))) - (if (##structure-instance-of? _%bind118395%_ 'gx#binding::t) - (_%y=?118393%_ - (##unchecked-structure-ref _%bind118395%_ '1 '#f '#f)) - (_%y=?118393%_ (gx#stx-e _%x118390%_))))))) + (lambda (_%x118549%_ _%y118550%_) + (letrec ((_%y=?118552%_ + (lambda (_%xid118556%_) + ((if (list? _%y118550%_) memq eq?) + _%xid118556%_ + _%y118550%_)))) + (let ((_%bind118554%_ (gx#resolve-identifier__0 _%x118549%_))) + (if (##structure-instance-of? _%bind118554%_ 'gx#binding::t) + (_%y=?118552%_ + (##unchecked-structure-ref _%bind118554%_ '1 '#f '#f)) + (_%y=?118552%_ (gx#stx-e _%x118549%_))))))) (define gx#core-extern-symbol? - (lambda (_%e118388%_) - (if (interned-symbol? _%e118388%_) - (string-index__0 (symbol->string _%e118388%_) '#\#) + (lambda (_%e118547%_) + (if (interned-symbol? _%e118547%_) + (string-index__0 (symbol->string _%e118547%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx118341%_ _%src118342%_ _%ctx118343%_ _%marks118344%_) - (if (##structure? _%stx118341%_) - (let ((_%$e118346%_ (gx#sealed-syntax-unwrap _%stx118341%_))) - (if _%$e118346%_ - _%$e118346%_ - (if (gx#identifier? _%stx118341%_) - (let ((_%id118350%_ - (gx#stx-unwrap__% _%stx118341%_ _%marks118344%_))) + (lambda (_%stx118500%_ _%src118501%_ _%ctx118502%_ _%marks118503%_) + (if (##structure? _%stx118500%_) + (let ((_%$e118505%_ (gx#sealed-syntax-unwrap _%stx118500%_))) + (if _%$e118505%_ + _%$e118505%_ + (if (gx#identifier? _%stx118500%_) + (let ((_%id118509%_ + (gx#stx-unwrap__% _%stx118500%_ _%marks118503%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id118350%_ '1 '#f '#f) - (let ((_%$e118352%_ + (##unchecked-structure-ref _%id118509%_ '1 '#f '#f) + (let ((_%$e118511%_ (##unchecked-structure-ref - _%id118350%_ + _%id118509%_ '2 '#f '#f))) - (if _%$e118352%_ _%$e118352%_ _%src118342%_)) - _%ctx118343%_ - (##unchecked-structure-ref _%id118350%_ '3 '#f '#f))) + (if _%$e118511%_ _%$e118511%_ _%src118501%_)) + _%ctx118502%_ + (##unchecked-structure-ref _%id118509%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx118341%_) - (let ((_%$e118356%_ (gx#stx-source _%stx118341%_))) - (if _%$e118356%_ _%$e118356%_ _%src118342%_)) - _%ctx118343%_ - (reverse _%marks118344%_))))) + (gx#stx-e _%stx118500%_) + (let ((_%$e118515%_ (gx#stx-source _%stx118500%_))) + (if _%$e118515%_ _%$e118515%_ _%src118501%_)) + _%ctx118502%_ + (reverse _%marks118503%_))))) (##structure gx#syntax-quote::t - _%stx118341%_ - _%src118342%_ - _%ctx118343%_ - (reverse _%marks118344%_))))) + _%stx118500%_ + _%src118501%_ + _%ctx118502%_ + (reverse _%marks118503%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx118362%_) - (let* ((_%src118364%_ '#f) - (_%ctx118366%_ (gx#current-expander-context)) - (_%marks118368%_ (gx#current-expander-marks))) + (lambda (_%stx118521%_) + (let* ((_%src118523%_ '#f) + (_%ctx118525%_ (gx#current-expander-context)) + (_%marks118527%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118362%_ - _%src118364%_ - _%ctx118366%_ - _%marks118368%_)))) + _%stx118521%_ + _%src118523%_ + _%ctx118525%_ + _%marks118527%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx118370%_ _%src118371%_) - (let* ((_%ctx118373%_ (gx#current-expander-context)) - (_%marks118375%_ (gx#current-expander-marks))) + (lambda (_%stx118529%_ _%src118530%_) + (let* ((_%ctx118532%_ (gx#current-expander-context)) + (_%marks118534%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118370%_ - _%src118371%_ - _%ctx118373%_ - _%marks118375%_)))) + _%stx118529%_ + _%src118530%_ + _%ctx118532%_ + _%marks118534%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx118377%_ _%src118378%_ _%ctx118379%_) - (let ((_%marks118381%_ (gx#current-expander-marks))) + (lambda (_%stx118536%_ _%src118537%_ _%ctx118538%_) + (let ((_%marks118540%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118377%_ - _%src118378%_ - _%ctx118379%_ - _%marks118381%_)))) + _%stx118536%_ + _%src118537%_ + _%ctx118538%_ + _%marks118540%_)))) (define gx#core-quote-syntax - (lambda _g121373_ - (let ((_g121372_ (##length _g121373_))) - (cond ((##fx= _g121372_ 1) (apply gx#core-quote-syntax__0 _g121373_)) - ((##fx= _g121372_ 2) (apply gx#core-quote-syntax__1 _g121373_)) - ((##fx= _g121372_ 3) (apply gx#core-quote-syntax__2 _g121373_)) - ((##fx= _g121372_ 4) (apply gx#core-quote-syntax__% _g121373_)) + (lambda _g121532_ + (let ((_g121531_ (##length _g121532_))) + (cond ((##fx= _g121531_ 1) (apply gx#core-quote-syntax__0 _g121532_)) + ((##fx= _g121531_ 2) (apply gx#core-quote-syntax__1 _g121532_)) + ((##fx= _g121531_ 3) (apply gx#core-quote-syntax__2 _g121532_)) + ((##fx= _g121531_ 4) (apply gx#core-quote-syntax__% _g121532_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g121373_)))))) + _g121532_)))))) (define gx#core-cons - (lambda (_%hd118337%_ _%tl118338%_) - (cons (gx#core-quote-syntax__0 _%hd118337%_) _%tl118338%_))) + (lambda (_%hd118496%_ _%tl118497%_) + (cons (gx#core-quote-syntax__0 _%hd118496%_) _%tl118497%_))) (define gx#core-list - (lambda (_%hd118334%_ . _%rest118335%_) - (cons (gx#core-quote-syntax__0 _%hd118334%_) _%rest118335%_))) + (lambda (_%hd118493%_ . _%rest118494%_) + (cons (gx#core-quote-syntax__0 _%hd118493%_) _%rest118494%_))) (define gx#core-cons* - (lambda (_%hd118331%_ . _%rest118332%_) - (apply cons* (gx#core-quote-syntax__0 _%hd118331%_) _%rest118332%_))) + (lambda (_%hd118490%_ . _%rest118491%_) + (apply cons* (gx#core-quote-syntax__0 _%hd118490%_) _%rest118491%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path118300%_ _%rel118301%_) - (let ((_%path118318%_ (gx#stx-e _%stx-path118300%_)) - (_%reldir118319%_ - (let _%lp118303%_ ((_%relsrc118305%_ - (let ((_%$e118315%_ - (gx#stx-source _%stx-path118300%_))) - (if _%$e118315%_ - _%$e118315%_ - _%rel118301%_)))) - (if (##structure-instance-of? _%relsrc118305%_ 'gerbil#AST::t) - (_%lp118303%_ - (let ((_%$e118308%_ (gx#stx-source _%relsrc118305%_))) - (if _%$e118308%_ - _%$e118308%_ - (gx#stx-e _%relsrc118305%_)))) - (if (source-location-path? _%relsrc118305%_) + (lambda (_%stx-path118459%_ _%rel118460%_) + (let ((_%path118477%_ (gx#stx-e _%stx-path118459%_)) + (_%reldir118478%_ + (let _%lp118462%_ ((_%relsrc118464%_ + (let ((_%$e118474%_ + (gx#stx-source _%stx-path118459%_))) + (if _%$e118474%_ + _%$e118474%_ + _%rel118460%_)))) + (if (##structure-instance-of? _%relsrc118464%_ 'gerbil#AST::t) + (_%lp118462%_ + (let ((_%$e118467%_ (gx#stx-source _%relsrc118464%_))) + (if _%$e118467%_ + _%$e118467%_ + (gx#stx-e _%relsrc118464%_)))) + (if (source-location-path? _%relsrc118464%_) (path-directory - (source-location-path _%relsrc118305%_)) - (if (string? _%relsrc118305%_) - (path-directory _%relsrc118305%_) + (source-location-path _%relsrc118464%_)) + (if (string? _%relsrc118464%_) + (path-directory _%relsrc118464%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path118318%_ (path-normalize _%reldir118319%_))))) + (path-expand _%path118477%_ (path-normalize _%reldir118478%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path118324%_) - (let ((_%rel118326%_ '#f)) - (gx#core-resolve-path__% _%stx-path118324%_ _%rel118326%_)))) + (lambda (_%stx-path118483%_) + (let ((_%rel118485%_ '#f)) + (gx#core-resolve-path__% _%stx-path118483%_ _%rel118485%_)))) (define gx#core-resolve-path - (lambda _g121375_ - (let ((_g121374_ (##length _g121375_))) - (cond ((##fx= _g121374_ 1) (apply gx#core-resolve-path__0 _g121375_)) - ((##fx= _g121374_ 2) (apply gx#core-resolve-path__% _g121375_)) + (lambda _g121534_ + (let ((_g121533_ (##length _g121534_))) + (cond ((##fx= _g121533_ 1) (apply gx#core-resolve-path__0 _g121534_)) + ((##fx= _g121533_ 2) (apply gx#core-resolve-path__% _g121534_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g121375_)))))) + _g121534_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr118256%_ _%ctx118257%_) - (let* ((_%repr118258118265%_ _%repr118256%_) - (_%E118260118269%_ + (lambda (_%repr118415%_ _%ctx118416%_) + (let* ((_%repr118417118424%_ _%repr118415%_) + (_%E118419118428%_ (lambda () (error '"No clause matching" - _%repr118258118265%_ + _%repr118417118424%_ '([phi . subs])) '#!void)) - (_%K118261118277%_ - (lambda (_%subs118272%_ _%phi118273%_) - (let ((_%subst118275%_ - (if (null? _%subs118272%_) + (_%K118420118436%_ + (lambda (_%subs118431%_ _%phi118432%_) + (let ((_%subst118434%_ + (if (null? _%subs118431%_) '#f - (list->hash-table-eq _%subs118272%_)))) + (list->hash-table-eq _%subs118431%_)))) (##structure gx#expander-mark::t - _%subst118275%_ - _%ctx118257%_ - _%phi118273%_ + _%subst118434%_ + _%ctx118416%_ + _%phi118432%_ '#f))))) - (if (pair? _%repr118258118265%_) - (let ((_%hd118262118280%_ (##car _%repr118258118265%_)) - (_%tl118263118282%_ (##cdr _%repr118258118265%_))) - (let* ((_%phi118285%_ _%hd118262118280%_) - (_%subs118287%_ _%tl118263118282%_)) - (_%K118261118277%_ _%subs118287%_ _%phi118285%_))) - (_%E118260118269%_))))) + (if (pair? _%repr118417118424%_) + (let ((_%hd118421118439%_ (##car _%repr118417118424%_)) + (_%tl118422118441%_ (##cdr _%repr118417118424%_))) + (let* ((_%phi118444%_ _%hd118421118439%_) + (_%subs118446%_ _%tl118422118441%_)) + (_%K118420118436%_ _%subs118446%_ _%phi118444%_))) + (_%E118419118428%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr118292%_) - (let ((_%ctx118294%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr118292%_ _%ctx118294%_)))) + (lambda (_%repr118451%_) + (let ((_%ctx118453%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr118451%_ _%ctx118453%_)))) (define gx#core-deserialize-mark - (lambda _g121377_ - (let ((_g121376_ (##length _g121377_))) - (cond ((##fx= _g121376_ 1) - (apply gx#core-deserialize-mark__0 _g121377_)) - ((##fx= _g121376_ 2) - (apply gx#core-deserialize-mark__% _g121377_)) + (lambda _g121536_ + (let ((_g121535_ (##length _g121536_))) + (cond ((##fx= _g121535_ 1) + (apply gx#core-deserialize-mark__0 _g121536_)) + ((##fx= _g121535_ 2) + (apply gx#core-deserialize-mark__% _g121536_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g121377_)))))) + _g121536_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx118253%_) - (gx#stx-rewrap _%stx118253%_ (gx#current-expander-marks)))) + (lambda (_%stx118412%_) + (gx#stx-rewrap _%stx118412%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx118251%_) - (gx#stx-unwrap__% _%stx118251%_ (gx#current-expander-marks)))) + (lambda (_%stx118410%_) + (gx#stx-unwrap__% _%stx118410%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx118221%_) - (let* ((_%g118222118230%_ (gx#current-expander-marks)) - (_%else118224118238%_ (lambda () _%stx118221%_)) - (_%K118226118243%_ - (lambda (_%hd118241%_) - (gx#stx-apply-mark _%stx118221%_ _%hd118241%_)))) - (if (pair? _%g118222118230%_) - (let* ((_%hd118227118246%_ (##car _%g118222118230%_)) - (_%hd118249%_ _%hd118227118246%_)) - (_%K118226118243%_ _%hd118249%_)) - (_%else118224118238%_))))) + (lambda (_%stx118380%_) + (let* ((_%g118381118389%_ (gx#current-expander-marks)) + (_%else118383118397%_ (lambda () _%stx118380%_)) + (_%K118385118402%_ + (lambda (_%hd118400%_) + (gx#stx-apply-mark _%stx118380%_ _%hd118400%_)))) + (if (pair? _%g118381118389%_) + (let* ((_%hd118386118405%_ (##car _%g118381118389%_)) + (_%hd118408%_ _%hd118386118405%_)) + (_%K118385118402%_ _%hd118408%_)) + (_%else118383118397%_))))) (define gx#syntax-local-e__% - (lambda (_%stx118206%_ _%E118207%_) - (let ((_%bind118209%_ (gx#resolve-identifier__0 _%stx118206%_))) + (lambda (_%stx118365%_ _%E118366%_) + (let ((_%bind118368%_ (gx#resolve-identifier__0 _%stx118365%_))) (if (##structure-direct-instance-of? - _%bind118209%_ + _%bind118368%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind118209%_ '4 '#f '#f) - (_%E118207%_ _%stx118206%_))))) + (##unchecked-structure-ref _%bind118368%_ '4 '#f '#f) + (_%E118366%_ _%stx118365%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx118214%_) - (let ((_%E118216%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx118214%_ _%E118216%_)))) + (lambda (_%stx118373%_) + (let ((_%E118375%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx118373%_ _%E118375%_)))) (define gx#syntax-local-e - (lambda _g121379_ - (let ((_g121378_ (##length _g121379_))) - (cond ((##fx= _g121378_ 1) (apply gx#syntax-local-e__0 _g121379_)) - ((##fx= _g121378_ 2) (apply gx#syntax-local-e__% _g121379_)) + (lambda _g121538_ + (let ((_g121537_ (##length _g121538_))) + (cond ((##fx= _g121537_ 1) (apply gx#syntax-local-e__0 _g121538_)) + ((##fx= _g121537_ 2) (apply gx#syntax-local-e__% _g121538_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g121379_)))))) + _g121538_)))))) (define gx#syntax-local-value__% - (lambda (_%stx118190%_ _%E118191%_) - (let ((_%e118193%_ (gx#syntax-local-e__% _%stx118190%_ _%E118191%_))) - (if (##structure-instance-of? _%e118193%_ 'gx#expander::t) - (##unchecked-structure-ref _%e118193%_ '1 '#f '#f) - _%e118193%_)))) + (lambda (_%stx118349%_ _%E118350%_) + (let ((_%e118352%_ (gx#syntax-local-e__% _%stx118349%_ _%E118350%_))) + (if (##structure-instance-of? _%e118352%_ 'gx#expander::t) + (##unchecked-structure-ref _%e118352%_ '1 '#f '#f) + _%e118352%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx118198%_) - (let ((_%E118200%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx118198%_ _%E118200%_)))) + (lambda (_%stx118357%_) + (let ((_%E118359%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx118357%_ _%E118359%_)))) (define gx#syntax-local-value - (lambda _g121381_ - (let ((_g121380_ (##length _g121381_))) - (cond ((##fx= _g121380_ 1) - (apply gx#syntax-local-value__0 _g121381_)) - ((##fx= _g121380_ 2) - (apply gx#syntax-local-value__% _g121381_)) + (lambda _g121540_ + (let ((_g121539_ (##length _g121540_))) + (cond ((##fx= _g121539_ 1) + (apply gx#syntax-local-value__0 _g121540_)) + ((##fx= _g121539_ 2) + (apply gx#syntax-local-value__% _g121540_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g121381_)))))) + _g121540_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx118187%_) + (lambda (_%stx118346%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx118187%_))))) + _%stx118346%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index dea84d96f..885483fe2 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]#_g121383_| + (define |gx[1]#_g121542_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121385_| + (define |gx[1]#_g121544_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121387_| + (define |gx[1]#_g121546_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121389_| + (define |gx[1]#_g121548_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121390_| + (define |gx[1]#_g121549_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121392_| + (define |gx[1]#_g121551_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121393_| + (define |gx[1]#_g121552_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121395_| + (define |gx[1]#_g121554_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121396_| + (define |gx[1]#_g121555_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121398_| + (define |gx[1]#_g121557_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121399_| + (define |gx[1]#_g121558_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121401_| + (define |gx[1]#_g121560_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121403_| + (define |gx[1]#_g121562_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121405_| + (define |gx[1]#_g121564_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121407_| + (define |gx[1]#_g121566_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121409_| + (define |gx[1]#_g121568_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121410_| + (define |gx[1]#_g121569_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121412_| + (define |gx[1]#_g121571_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121413_| + (define |gx[1]#_g121572_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121415_| + (define |gx[1]#_g121574_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121416_| + (define |gx[1]#_g121575_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121418_| + (define |gx[1]#_g121577_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121419_| + (define |gx[1]#_g121578_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121422_| + (define |gx[1]#_g121581_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121424_| + (define |gx[1]#_g121583_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121426_| + (define |gx[1]#_g121585_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121428_| + (define |gx[1]#_g121587_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121429_| + (define |gx[1]#_g121588_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121430_| + (define |gx[1]#_g121589_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121431_| + (define |gx[1]#_g121590_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121432_| + (define |gx[1]#_g121591_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121434_| + (define |gx[1]#_g121593_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121435_| + (define |gx[1]#_g121594_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121436_| + (define |gx[1]#_g121595_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121437_| + (define |gx[1]#_g121596_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121438_| + (define |gx[1]#_g121597_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121440_| + (define |gx[1]#_g121599_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121441_| + (define |gx[1]#_g121600_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121442_| + (define |gx[1]#_g121601_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121443_| + (define |gx[1]#_g121602_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121444_| + (define |gx[1]#_g121603_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121446_| + (define |gx[1]#_g121605_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121447_| + (define |gx[1]#_g121606_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121448_| + (define |gx[1]#_g121607_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121449_| + (define |gx[1]#_g121608_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121450_| + (define |gx[1]#_g121609_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121452_| + (define |gx[1]#_g121611_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121454_| + (define |gx[1]#_g121613_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121456_| + (define |gx[1]#_g121615_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121458_| + (define |gx[1]#_g121617_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121460_| + (define |gx[1]#_g121619_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121461_| + (define |gx[1]#_g121620_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121462_| + (define |gx[1]#_g121621_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121463_| + (define |gx[1]#_g121622_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121464_| + (define |gx[1]#_g121623_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121466_| + (define |gx[1]#_g121625_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121467_| + (define |gx[1]#_g121626_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121468_| + (define |gx[1]#_g121627_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121469_| + (define |gx[1]#_g121628_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121470_| + (define |gx[1]#_g121629_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121472_| + (define |gx[1]#_g121631_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121473_| + (define |gx[1]#_g121632_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121474_| + (define |gx[1]#_g121633_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121475_| + (define |gx[1]#_g121634_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121476_| + (define |gx[1]#_g121635_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121478_| + (define |gx[1]#_g121637_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121479_| + (define |gx[1]#_g121638_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121480_| + (define |gx[1]#_g121639_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121481_| + (define |gx[1]#_g121640_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121482_| + (define |gx[1]#_g121641_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121484_| + (define |gx[1]#_g121643_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121486_| + (define |gx[1]#_g121645_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121488_| + (define |gx[1]#_g121647_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121490_| + (define |gx[1]#_g121649_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121492_| + (define |gx[1]#_g121651_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121493_| + (define |gx[1]#_g121652_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121494_| + (define |gx[1]#_g121653_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121495_| + (define |gx[1]#_g121654_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121496_| + (define |gx[1]#_g121655_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121497_| + (define |gx[1]#_g121656_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121498_| + (define |gx[1]#_g121657_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121499_| + (define |gx[1]#_g121658_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121500_| + (define |gx[1]#_g121659_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121501_| + (define |gx[1]#_g121660_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121502_| + (define |gx[1]#_g121661_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121504_| + (define |gx[1]#_g121663_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121505_| + (define |gx[1]#_g121664_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121506_| + (define |gx[1]#_g121665_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121507_| + (define |gx[1]#_g121666_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121508_| + (define |gx[1]#_g121667_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121509_| + (define |gx[1]#_g121668_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121510_| + (define |gx[1]#_g121669_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121511_| + (define |gx[1]#_g121670_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121512_| + (define |gx[1]#_g121671_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121513_| + (define |gx[1]#_g121672_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121514_| + (define |gx[1]#_g121673_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121516_| + (define |gx[1]#_g121675_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121517_| + (define |gx[1]#_g121676_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121518_| + (define |gx[1]#_g121677_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121519_| + (define |gx[1]#_g121678_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121520_| + (define |gx[1]#_g121679_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121521_| + (define |gx[1]#_g121680_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121522_| + (define |gx[1]#_g121681_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121523_| + (define |gx[1]#_g121682_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121524_| + (define |gx[1]#_g121683_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121525_| + (define |gx[1]#_g121684_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121526_| + (define |gx[1]#_g121685_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121528_| + (define |gx[1]#_g121687_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121529_| + (define |gx[1]#_g121688_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121530_| + (define |gx[1]#_g121689_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121531_| + (define |gx[1]#_g121690_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121532_| + (define |gx[1]#_g121691_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121533_| + (define |gx[1]#_g121692_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121534_| + (define |gx[1]#_g121693_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121535_| + (define |gx[1]#_g121694_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121536_| + (define |gx[1]#_g121695_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121537_| + (define |gx[1]#_g121696_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121538_| + (define |gx[1]#_g121697_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121541_| + (define |gx[1]#_g121700_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121543_| + (define |gx[1]#_g121702_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121545_| + (define |gx[1]#_g121704_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121547_| + (define |gx[1]#_g121706_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121548_| + (define |gx[1]#_g121707_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121549_| + (define |gx[1]#_g121708_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121550_| + (define |gx[1]#_g121709_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121551_| + (define |gx[1]#_g121710_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121552_| + (define |gx[1]#_g121711_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121553_| + (define |gx[1]#_g121712_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121554_| + (define |gx[1]#_g121713_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121556_| + (define |gx[1]#_g121715_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121557_| + (define |gx[1]#_g121716_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121558_| + (define |gx[1]#_g121717_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121559_| + (define |gx[1]#_g121718_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121560_| + (define |gx[1]#_g121719_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121561_| + (define |gx[1]#_g121720_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121562_| + (define |gx[1]#_g121721_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121563_| + (define |gx[1]#_g121722_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121565_| + (define |gx[1]#_g121724_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121566_| + (define |gx[1]#_g121725_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121567_| + (define |gx[1]#_g121726_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121568_| + (define |gx[1]#_g121727_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121569_| + (define |gx[1]#_g121728_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121570_| + (define |gx[1]#_g121729_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121571_| + (define |gx[1]#_g121730_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121572_| + (define |gx[1]#_g121731_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121574_| + (define |gx[1]#_g121733_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121575_| + (define |gx[1]#_g121734_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121576_| + (define |gx[1]#_g121735_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121577_| + (define |gx[1]#_g121736_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121578_| + (define |gx[1]#_g121737_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121579_| + (define |gx[1]#_g121738_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121580_| + (define |gx[1]#_g121739_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121581_| + (define |gx[1]#_g121740_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121584_| + (define |gx[1]#_g121743_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121586_| + (define |gx[1]#_g121745_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121588_| + (define |gx[1]#_g121747_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121590_| + (define |gx[1]#_g121749_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121591_| + (define |gx[1]#_g121750_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121592_| + (define |gx[1]#_g121751_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121593_| + (define |gx[1]#_g121752_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121594_| + (define |gx[1]#_g121753_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121596_| + (define |gx[1]#_g121755_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121597_| + (define |gx[1]#_g121756_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121598_| + (define |gx[1]#_g121757_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121599_| + (define |gx[1]#_g121758_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121600_| + (define |gx[1]#_g121759_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121602_| + (define |gx[1]#_g121761_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121603_| + (define |gx[1]#_g121762_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121604_| + (define |gx[1]#_g121763_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121605_| + (define |gx[1]#_g121764_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121606_| + (define |gx[1]#_g121765_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121608_| + (define |gx[1]#_g121767_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121609_| + (define |gx[1]#_g121768_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121610_| + (define |gx[1]#_g121769_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121611_| + (define |gx[1]#_g121770_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121612_| + (define |gx[1]#_g121771_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121614_| + (define |gx[1]#_g121773_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121616_| + (define |gx[1]#_g121775_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121618_| + (define |gx[1]#_g121777_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121620_| + (define |gx[1]#_g121779_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121621_| + (define |gx[1]#_g121780_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121622_| + (define |gx[1]#_g121781_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121624_| + (define |gx[1]#_g121783_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121625_| + (define |gx[1]#_g121784_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121626_| + (define |gx[1]#_g121785_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121628_| + (define |gx[1]#_g121787_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121629_| + (define |gx[1]#_g121788_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121630_| + (define |gx[1]#_g121789_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121632_| + (define |gx[1]#_g121791_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121633_| + (define |gx[1]#_g121792_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121634_| + (define |gx[1]#_g121793_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121636_| + (define |gx[1]#_g121795_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121638_| + (define |gx[1]#_g121797_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121640_| + (define |gx[1]#_g121799_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121642_| + (define |gx[1]#_g121801_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121644_| + (define |gx[1]#_g121803_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121645_| + (define |gx[1]#_g121804_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121646_| + (define |gx[1]#_g121805_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121648_| + (define |gx[1]#_g121807_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121649_| + (define |gx[1]#_g121808_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121650_| + (define |gx[1]#_g121809_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121652_| + (define |gx[1]#_g121811_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121653_| + (define |gx[1]#_g121812_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121654_| + (define |gx[1]#_g121813_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121656_| + (define |gx[1]#_g121815_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121657_| + (define |gx[1]#_g121816_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121658_| + (define |gx[1]#_g121817_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121660_| + (define |gx[1]#_g121819_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121662_| + (define |gx[1]#_g121821_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121664_| + (define |gx[1]#_g121823_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121666_| + (define |gx[1]#_g121825_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121668_| + (define |gx[1]#_g121827_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121669_| + (define |gx[1]#_g121828_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121670_| + (define |gx[1]#_g121829_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121672_| + (define |gx[1]#_g121831_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121673_| + (define |gx[1]#_g121832_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121674_| + (define |gx[1]#_g121833_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121676_| + (define |gx[1]#_g121835_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121677_| + (define |gx[1]#_g121836_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121678_| + (define |gx[1]#_g121837_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121680_| + (define |gx[1]#_g121839_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121681_| + (define |gx[1]#_g121840_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121682_| + (define |gx[1]#_g121841_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121685_| + (define |gx[1]#_g121844_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121687_| + (define |gx[1]#_g121846_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121689_| + (define |gx[1]#_g121848_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121691_| + (define |gx[1]#_g121850_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121692_| + (define |gx[1]#_g121851_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121693_| + (define |gx[1]#_g121852_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121695_| + (define |gx[1]#_g121854_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121696_| + (define |gx[1]#_g121855_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121697_| + (define |gx[1]#_g121856_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121699_| + (define |gx[1]#_g121858_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121700_| + (define |gx[1]#_g121859_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121701_| + (define |gx[1]#_g121860_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121703_| + (define |gx[1]#_g121862_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121704_| + (define |gx[1]#_g121863_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121705_| + (define |gx[1]#_g121864_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121707_| + (define |gx[1]#_g121866_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121709_| + (define |gx[1]#_g121868_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121711_| + (define |gx[1]#_g121870_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121713_| + (define |gx[1]#_g121872_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121715_| + (define |gx[1]#_g121874_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121716_| + (define |gx[1]#_g121875_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121717_| + (define |gx[1]#_g121876_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121718_| + (define |gx[1]#_g121877_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121720_| + (define |gx[1]#_g121879_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121721_| + (define |gx[1]#_g121880_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121722_| + (define |gx[1]#_g121881_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121723_| + (define |gx[1]#_g121882_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121725_| + (define |gx[1]#_g121884_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121726_| + (define |gx[1]#_g121885_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121727_| + (define |gx[1]#_g121886_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121728_| + (define |gx[1]#_g121887_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121730_| + (define |gx[1]#_g121889_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121731_| + (define |gx[1]#_g121890_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121732_| + (define |gx[1]#_g121891_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121733_| + (define |gx[1]#_g121892_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121736_| + (define |gx[1]#_g121895_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121738_| + (define |gx[1]#_g121897_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121740_| + (define |gx[1]#_g121899_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121742_| + (define |gx[1]#_g121901_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121743_| + (define |gx[1]#_g121902_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121744_| + (define |gx[1]#_g121903_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121746_| + (define |gx[1]#_g121905_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121747_| + (define |gx[1]#_g121906_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121748_| + (define |gx[1]#_g121907_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121750_| + (define |gx[1]#_g121909_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121751_| + (define |gx[1]#_g121910_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121752_| + (define |gx[1]#_g121911_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121754_| + (define |gx[1]#_g121913_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121755_| + (define |gx[1]#_g121914_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121756_| + (define |gx[1]#_g121915_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121759_| + (define |gx[1]#_g121918_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121761_| + (define |gx[1]#_g121920_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121763_| + (define |gx[1]#_g121922_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121765_| + (define |gx[1]#_g121924_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121766_| + (define |gx[1]#_g121925_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121767_| + (define |gx[1]#_g121926_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121768_| + (define |gx[1]#_g121927_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121770_| + (define |gx[1]#_g121929_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121771_| + (define |gx[1]#_g121930_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121772_| + (define |gx[1]#_g121931_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121773_| + (define |gx[1]#_g121932_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121775_| + (define |gx[1]#_g121934_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121776_| + (define |gx[1]#_g121935_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121777_| + (define |gx[1]#_g121936_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121778_| + (define |gx[1]#_g121937_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121780_| + (define |gx[1]#_g121939_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121781_| + (define |gx[1]#_g121940_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121782_| + (define |gx[1]#_g121941_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121783_| + (define |gx[1]#_g121942_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121786_| + (define |gx[1]#_g121945_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121788_| + (define |gx[1]#_g121947_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121790_| + (define |gx[1]#_g121949_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121792_| + (define |gx[1]#_g121951_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121793_| + (define |gx[1]#_g121952_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121794_| + (define |gx[1]#_g121953_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121795_| + (define |gx[1]#_g121954_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121796_| + (define |gx[1]#_g121955_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121797_| + (define |gx[1]#_g121956_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121799_| + (define |gx[1]#_g121958_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121800_| + (define |gx[1]#_g121959_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121801_| + (define |gx[1]#_g121960_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121802_| + (define |gx[1]#_g121961_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121803_| + (define |gx[1]#_g121962_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121804_| + (define |gx[1]#_g121963_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121806_| + (define |gx[1]#_g121965_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121807_| + (define |gx[1]#_g121966_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121808_| + (define |gx[1]#_g121967_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121809_| + (define |gx[1]#_g121968_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121810_| + (define |gx[1]#_g121969_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121811_| + (define |gx[1]#_g121970_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121813_| + (define |gx[1]#_g121972_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121814_| + (define |gx[1]#_g121973_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121815_| + (define |gx[1]#_g121974_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121816_| + (define |gx[1]#_g121975_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121817_| + (define |gx[1]#_g121976_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121818_| + (define |gx[1]#_g121977_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121821_| + (define |gx[1]#_g121980_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121823_| + (define |gx[1]#_g121982_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121825_| + (define |gx[1]#_g121984_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121827_| + (define |gx[1]#_g121986_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121828_| + (define |gx[1]#_g121987_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121829_| + (define |gx[1]#_g121988_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121830_| + (define |gx[1]#_g121989_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121832_| + (define |gx[1]#_g121991_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121833_| + (define |gx[1]#_g121992_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121834_| + (define |gx[1]#_g121993_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121835_| + (define |gx[1]#_g121994_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121837_| + (define |gx[1]#_g121996_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121838_| + (define |gx[1]#_g121997_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121839_| + (define |gx[1]#_g121998_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121840_| + (define |gx[1]#_g121999_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121842_| + (define |gx[1]#_g122001_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121843_| + (define |gx[1]#_g122002_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121844_| + (define |gx[1]#_g122003_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121845_| + (define |gx[1]#_g122004_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121847_| + (define |gx[1]#_g122006_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121849_| + (define |gx[1]#_g122008_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121851_| + (define |gx[1]#_g122010_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121853_| + (define |gx[1]#_g122012_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121855_| + (define |gx[1]#_g122014_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121857_| + (define |gx[1]#_g122016_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121859_| + (define |gx[1]#_g122018_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121861_| + (define |gx[1]#_g122020_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121863_| + (define |gx[1]#_g122022_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121865_| + (define |gx[1]#_g122024_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121867_| + (define |gx[1]#_g122026_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121869_| + (define |gx[1]#_g122028_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121870_| + (define |gx[1]#_g122029_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121871_| + (define |gx[1]#_g122030_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121873_| + (define |gx[1]#_g122032_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121874_| + (define |gx[1]#_g122033_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121875_| + (define |gx[1]#_g122034_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121877_| + (define |gx[1]#_g122036_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121878_| + (define |gx[1]#_g122037_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121879_| + (define |gx[1]#_g122038_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121881_| + (define |gx[1]#_g122040_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121882_| + (define |gx[1]#_g122041_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121883_| + (define |gx[1]#_g122042_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121885_| + (define |gx[1]#_g122044_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121887_| + (define |gx[1]#_g122046_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121889_| + (define |gx[1]#_g122048_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121891_| + (define |gx[1]#_g122050_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121893_| + (define |gx[1]#_g122052_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121894_| + (define |gx[1]#_g122053_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121895_| + (define |gx[1]#_g122054_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121897_| + (define |gx[1]#_g122056_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121898_| + (define |gx[1]#_g122057_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121899_| + (define |gx[1]#_g122058_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121901_| + (define |gx[1]#_g122060_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121902_| + (define |gx[1]#_g122061_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121903_| + (define |gx[1]#_g122062_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121905_| + (define |gx[1]#_g122064_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121906_| + (define |gx[1]#_g122065_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121907_| + (define |gx[1]#_g122066_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121910_| + (define |gx[1]#_g122069_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121912_| + (define |gx[1]#_g122071_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121914_| + (define |gx[1]#_g122073_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121916_| + (define |gx[1]#_g122075_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121917_| + (define |gx[1]#_g122076_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121918_| + (define |gx[1]#_g122077_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121920_| + (define |gx[1]#_g122079_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121921_| + (define |gx[1]#_g122080_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121922_| + (define |gx[1]#_g122081_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121924_| + (define |gx[1]#_g122083_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121925_| + (define |gx[1]#_g122084_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121926_| + (define |gx[1]#_g122085_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121928_| + (define |gx[1]#_g122087_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121929_| + (define |gx[1]#_g122088_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121930_| + (define |gx[1]#_g122089_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121932_| + (define |gx[1]#_g122091_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121934_| + (define |gx[1]#_g122093_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121936_| + (define |gx[1]#_g122095_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121938_| + (define |gx[1]#_g122097_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121940_| + (define |gx[1]#_g122099_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121941_| + (define |gx[1]#_g122100_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121942_| + (define |gx[1]#_g122101_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121944_| + (define |gx[1]#_g122103_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121945_| + (define |gx[1]#_g122104_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121946_| + (define |gx[1]#_g122105_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121948_| + (define |gx[1]#_g122107_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121949_| + (define |gx[1]#_g122108_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121950_| + (define |gx[1]#_g122109_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121952_| + (define |gx[1]#_g122111_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121953_| + (define |gx[1]#_g122112_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121954_| + (define |gx[1]#_g122113_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121957_| + (define |gx[1]#_g122116_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121959_| + (define |gx[1]#_g122118_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121961_| + (define |gx[1]#_g122120_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121963_| + (define |gx[1]#_g122122_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121964_| + (define |gx[1]#_g122123_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121965_| + (define |gx[1]#_g122124_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121967_| + (define |gx[1]#_g122126_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121968_| + (define |gx[1]#_g122127_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121969_| + (define |gx[1]#_g122128_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121971_| + (define |gx[1]#_g122130_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121972_| + (define |gx[1]#_g122131_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121973_| + (define |gx[1]#_g122132_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121975_| + (define |gx[1]#_g122134_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121976_| + (define |gx[1]#_g122135_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121977_| + (define |gx[1]#_g122136_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121979_| + (define |gx[1]#_g122138_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121981_| + (define |gx[1]#_g122140_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121983_| + (define |gx[1]#_g122142_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121985_| + (define |gx[1]#_g122144_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121987_| + (define |gx[1]#_g122146_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121988_| + (define |gx[1]#_g122147_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121989_| + (define |gx[1]#_g122148_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121991_| + (define |gx[1]#_g122150_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121992_| + (define |gx[1]#_g122151_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121993_| + (define |gx[1]#_g122152_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121995_| + (define |gx[1]#_g122154_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121996_| + (define |gx[1]#_g122155_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121997_| + (define |gx[1]#_g122156_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121999_| + (define |gx[1]#_g122158_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122000_| + (define |gx[1]#_g122159_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122001_| + (define |gx[1]#_g122160_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122004_| + (define |gx[1]#_g122163_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122006_| + (define |gx[1]#_g122165_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122008_| + (define |gx[1]#_g122167_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122010_| + (define |gx[1]#_g122169_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122012_| + (define |gx[1]#_g122171_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122014_| + (define |gx[1]#_g122173_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122016_| + (define |gx[1]#_g122175_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122018_| + (define |gx[1]#_g122177_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122020_| + (define |gx[1]#_g122179_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122022_| + (define |gx[1]#_g122181_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122024_| + (define |gx[1]#_g122183_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122026_| + (define |gx[1]#_g122185_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122028_| + (define |gx[1]#_g122187_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122030_| + (define |gx[1]#_g122189_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122032_| + (define |gx[1]#_g122191_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122035_| + (define |gx[1]#_g122194_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122037_| + (define |gx[1]#_g122196_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122039_| + (define |gx[1]#_g122198_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122041_| + (define |gx[1]#_g122200_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122043_| + (define |gx[1]#_g122202_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122045_| + (define |gx[1]#_g122204_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122047_| + (define |gx[1]#_g122206_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122050_| + (define |gx[1]#_g122209_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122052_| + (define |gx[1]#_g122211_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122054_| + (define |gx[1]#_g122213_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122056_| + (define |gx[1]#_g122215_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122058_| + (define |gx[1]#_g122217_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122060_| + (define |gx[1]#_g122219_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122062_| + (define |gx[1]#_g122221_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122064_| + (define |gx[1]#_g122223_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122066_| + (define |gx[1]#_g122225_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122068_| + (define |gx[1]#_g122227_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122070_| + (define |gx[1]#_g122229_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122072_| + (define |gx[1]#_g122231_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122074_| + (define |gx[1]#_g122233_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122076_| + (define |gx[1]#_g122235_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122078_| + (define |gx[1]#_g122237_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122081_| + (define |gx[1]#_g122240_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122083_| + (define |gx[1]#_g122242_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122085_| + (define |gx[1]#_g122244_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122087_| + (define |gx[1]#_g122246_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122088_| + (define |gx[1]#_g122247_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122089_| + (define |gx[1]#_g122248_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122091_| + (define |gx[1]#_g122250_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122092_| + (define |gx[1]#_g122251_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122093_| + (define |gx[1]#_g122252_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122095_| + (define |gx[1]#_g122254_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122096_| + (define |gx[1]#_g122255_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122097_| + (define |gx[1]#_g122256_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122099_| + (define |gx[1]#_g122258_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122100_| + (define |gx[1]#_g122259_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122101_| + (define |gx[1]#_g122260_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122103_| + (define |gx[1]#_g122262_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122105_| + (define |gx[1]#_g122264_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g122107_| + (define |gx[1]#_g122266_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122109_| + (define |gx[1]#_g122268_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122110_| + (define |gx[1]#_g122269_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122111_| + (define |gx[1]#_g122270_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122112_| + (define |gx[1]#_g122271_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122114_| + (define |gx[1]#_g122273_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122115_| + (define |gx[1]#_g122274_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122116_| + (define |gx[1]#_g122275_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122117_| + (define |gx[1]#_g122276_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122119_| + (define |gx[1]#_g122278_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122120_| + (define |gx[1]#_g122279_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122121_| + (define |gx[1]#_g122280_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122122_| + (define |gx[1]#_g122281_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122124_| + (define |gx[1]#_g122283_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122125_| + (define |gx[1]#_g122284_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122126_| + (define |gx[1]#_g122285_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122127_| + (define |gx[1]#_g122286_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj121301 + (let ((__obj121460 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121301 + __obj121460 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121301 + __obj121460 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj121460 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj121460 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121460 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121460 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121460 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121460 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 ':init! '11 '#f '#f)) - (let ((__tmp121382 |gx[1]#_g121383_|)) + (##unchecked-structure-set! __obj121460 ':init! '11 '#f '#f)) + (let ((__tmp121541 |gx[1]#_g121542_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121382 '12 '#f '#f)) - (let ((__tmp121384 |gx[1]#_g121385_|)) + (##unchecked-structure-set! __obj121460 __tmp121541 '12 '#f '#f)) + (let ((__tmp121543 |gx[1]#_g121544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121384 '13 '#f '#f)) - (let ((__tmp121386 |gx[1]#_g121387_|)) + (##unchecked-structure-set! __obj121460 __tmp121543 '13 '#f '#f)) + (let ((__tmp121545 |gx[1]#_g121546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121386 '14 '#f '#f)) - (let ((__tmp121388 - (cons (cons 'id |gx[1]#_g121389_|) - (cons (cons 'table |gx[1]#_g121390_|) '())))) + (##unchecked-structure-set! __obj121460 __tmp121545 '14 '#f '#f)) + (let ((__tmp121547 + (cons (cons 'id |gx[1]#_g121548_|) + (cons (cons 'table |gx[1]#_g121549_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121388 '15 '#f '#f)) - (let ((__tmp121391 - (cons (cons 'id |gx[1]#_g121392_|) - (cons (cons 'table |gx[1]#_g121393_|) '())))) + (##unchecked-structure-set! __obj121460 __tmp121547 '15 '#f '#f)) + (let ((__tmp121550 + (cons (cons 'id |gx[1]#_g121551_|) + (cons (cons 'table |gx[1]#_g121552_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121391 '16 '#f '#f)) - (let ((__tmp121394 - (cons (cons 'id |gx[1]#_g121395_|) - (cons (cons 'table |gx[1]#_g121396_|) '())))) + (##unchecked-structure-set! __obj121460 __tmp121550 '16 '#f '#f)) + (let ((__tmp121553 + (cons (cons 'id |gx[1]#_g121554_|) + (cons (cons 'table |gx[1]#_g121555_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121394 '17 '#f '#f)) - (let ((__tmp121397 - (cons (cons 'id |gx[1]#_g121398_|) - (cons (cons 'table |gx[1]#_g121399_|) '())))) + (##unchecked-structure-set! __obj121460 __tmp121553 '17 '#f '#f)) + (let ((__tmp121556 + (cons (cons 'id |gx[1]#_g121557_|) + (cons (cons 'table |gx[1]#_g121558_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121397 '18 '#f '#f)) + (##unchecked-structure-set! __obj121460 __tmp121556 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121460 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121460 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '20 '#f '#f)) - __obj121301)) + (##unchecked-structure-set! __obj121460 '() '20 '#f '#f)) + __obj121460)) (define |gx[:0:]#root-context| - (let ((__obj121302 + (let ((__obj121461 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121302 + __obj121461 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121461 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121461 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '(id table) '6 '#f '#f)) - (let ((__tmp121400 (cons |gx[1]#_g121401_| '()))) + (##unchecked-structure-set! __obj121461 '(id table) '6 '#f '#f)) + (let ((__tmp121559 (cons |gx[1]#_g121560_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121400 '3 '#f '#f)) + (##unchecked-structure-set! __obj121461 __tmp121559 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121461 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121461 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121461 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#f '11 '#f '#f)) - (let ((__tmp121402 |gx[1]#_g121403_|)) + (##unchecked-structure-set! __obj121461 '#f '11 '#f '#f)) + (let ((__tmp121561 |gx[1]#_g121562_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121402 '12 '#f '#f)) - (let ((__tmp121404 |gx[1]#_g121405_|)) + (##unchecked-structure-set! __obj121461 __tmp121561 '12 '#f '#f)) + (let ((__tmp121563 |gx[1]#_g121564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121404 '13 '#f '#f)) - (let ((__tmp121406 |gx[1]#_g121407_|)) + (##unchecked-structure-set! __obj121461 __tmp121563 '13 '#f '#f)) + (let ((__tmp121565 |gx[1]#_g121566_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121406 '14 '#f '#f)) - (let ((__tmp121408 - (cons (cons 'id |gx[1]#_g121409_|) - (cons (cons 'table |gx[1]#_g121410_|) '())))) + (##unchecked-structure-set! __obj121461 __tmp121565 '14 '#f '#f)) + (let ((__tmp121567 + (cons (cons 'id |gx[1]#_g121568_|) + (cons (cons 'table |gx[1]#_g121569_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121408 '15 '#f '#f)) - (let ((__tmp121411 - (cons (cons 'id |gx[1]#_g121412_|) - (cons (cons 'table |gx[1]#_g121413_|) '())))) + (##unchecked-structure-set! __obj121461 __tmp121567 '15 '#f '#f)) + (let ((__tmp121570 + (cons (cons 'id |gx[1]#_g121571_|) + (cons (cons 'table |gx[1]#_g121572_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121411 '16 '#f '#f)) - (let ((__tmp121414 - (cons (cons 'id |gx[1]#_g121415_|) - (cons (cons 'table |gx[1]#_g121416_|) '())))) + (##unchecked-structure-set! __obj121461 __tmp121570 '16 '#f '#f)) + (let ((__tmp121573 + (cons (cons 'id |gx[1]#_g121574_|) + (cons (cons 'table |gx[1]#_g121575_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121414 '17 '#f '#f)) - (let ((__tmp121417 - (cons (cons 'id |gx[1]#_g121418_|) - (cons (cons 'table |gx[1]#_g121419_|) '())))) + (##unchecked-structure-set! __obj121461 __tmp121573 '17 '#f '#f)) + (let ((__tmp121576 + (cons (cons 'id |gx[1]#_g121577_|) + (cons (cons 'table |gx[1]#_g121578_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121417 '18 '#f '#f)) + (##unchecked-structure-set! __obj121461 __tmp121576 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121461 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121461 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '20 '#f '#f)) - __obj121302)) + (##unchecked-structure-set! __obj121461 '() '20 '#f '#f)) + __obj121461)) (define |gx[:0:]#phi-context| - (let ((__obj121303 + (let ((__obj121462 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121303 + __obj121462 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121462 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj121462 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121303 + __obj121462 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121420 (cons |gx[1]#_g121401_| '()))) + (let ((__tmp121579 (cons |gx[1]#_g121560_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121420 '3 '#f '#f)) + (##unchecked-structure-set! __obj121462 __tmp121579 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121462 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121462 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121462 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#f '11 '#f '#f)) - (let ((__tmp121421 |gx[1]#_g121422_|)) + (##unchecked-structure-set! __obj121462 '#f '11 '#f '#f)) + (let ((__tmp121580 |gx[1]#_g121581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121421 '12 '#f '#f)) - (let ((__tmp121423 |gx[1]#_g121424_|)) + (##unchecked-structure-set! __obj121462 __tmp121580 '12 '#f '#f)) + (let ((__tmp121582 |gx[1]#_g121583_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121423 '13 '#f '#f)) - (let ((__tmp121425 |gx[1]#_g121426_|)) + (##unchecked-structure-set! __obj121462 __tmp121582 '13 '#f '#f)) + (let ((__tmp121584 |gx[1]#_g121585_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121425 '14 '#f '#f)) - (let ((__tmp121427 - (cons (cons 'super |gx[1]#_g121428_|) - (cons (cons 'up |gx[1]#_g121429_|) - (cons (cons 'down |gx[1]#_g121430_|) - (cons (cons 'id |gx[1]#_g121431_|) - (cons (cons 'table |gx[1]#_g121432_|) + (##unchecked-structure-set! __obj121462 __tmp121584 '14 '#f '#f)) + (let ((__tmp121586 + (cons (cons 'super |gx[1]#_g121587_|) + (cons (cons 'up |gx[1]#_g121588_|) + (cons (cons 'down |gx[1]#_g121589_|) + (cons (cons 'id |gx[1]#_g121590_|) + (cons (cons 'table |gx[1]#_g121591_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121427 '15 '#f '#f)) - (let ((__tmp121433 - (cons (cons 'super |gx[1]#_g121434_|) - (cons (cons 'up |gx[1]#_g121435_|) - (cons (cons 'down |gx[1]#_g121436_|) - (cons (cons 'id |gx[1]#_g121437_|) - (cons (cons 'table |gx[1]#_g121438_|) + (##unchecked-structure-set! __obj121462 __tmp121586 '15 '#f '#f)) + (let ((__tmp121592 + (cons (cons 'super |gx[1]#_g121593_|) + (cons (cons 'up |gx[1]#_g121594_|) + (cons (cons 'down |gx[1]#_g121595_|) + (cons (cons 'id |gx[1]#_g121596_|) + (cons (cons 'table |gx[1]#_g121597_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121433 '16 '#f '#f)) - (let ((__tmp121439 - (cons (cons 'super |gx[1]#_g121440_|) - (cons (cons 'up |gx[1]#_g121441_|) - (cons (cons 'down |gx[1]#_g121442_|) - (cons (cons 'id |gx[1]#_g121443_|) - (cons (cons 'table |gx[1]#_g121444_|) + (##unchecked-structure-set! __obj121462 __tmp121592 '16 '#f '#f)) + (let ((__tmp121598 + (cons (cons 'super |gx[1]#_g121599_|) + (cons (cons 'up |gx[1]#_g121600_|) + (cons (cons 'down |gx[1]#_g121601_|) + (cons (cons 'id |gx[1]#_g121602_|) + (cons (cons 'table |gx[1]#_g121603_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121439 '17 '#f '#f)) - (let ((__tmp121445 - (cons (cons 'super |gx[1]#_g121446_|) - (cons (cons 'up |gx[1]#_g121447_|) - (cons (cons 'down |gx[1]#_g121448_|) - (cons (cons 'id |gx[1]#_g121449_|) - (cons (cons 'table |gx[1]#_g121450_|) + (##unchecked-structure-set! __obj121462 __tmp121598 '17 '#f '#f)) + (let ((__tmp121604 + (cons (cons 'super |gx[1]#_g121605_|) + (cons (cons 'up |gx[1]#_g121606_|) + (cons (cons 'down |gx[1]#_g121607_|) + (cons (cons 'id |gx[1]#_g121608_|) + (cons (cons 'table |gx[1]#_g121609_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121445 '18 '#f '#f)) + (##unchecked-structure-set! __obj121462 __tmp121604 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121462 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121462 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '() '20 '#f '#f)) - __obj121303)) + (##unchecked-structure-set! __obj121462 '() '20 '#f '#f)) + __obj121462)) (define |gx[:0:]#top-context| - (let ((__obj121304 + (let ((__obj121463 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121304 + __obj121463 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121463 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121463 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121304 + __obj121463 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121451 (cons |gx[1]#_g121452_| '()))) + (let ((__tmp121610 (cons |gx[1]#_g121611_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121451 '3 '#f '#f)) + (##unchecked-structure-set! __obj121463 __tmp121610 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121463 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121463 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121463 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#f '11 '#f '#f)) - (let ((__tmp121453 |gx[1]#_g121454_|)) + (##unchecked-structure-set! __obj121463 '#f '11 '#f '#f)) + (let ((__tmp121612 |gx[1]#_g121613_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121453 '12 '#f '#f)) - (let ((__tmp121455 |gx[1]#_g121456_|)) + (##unchecked-structure-set! __obj121463 __tmp121612 '12 '#f '#f)) + (let ((__tmp121614 |gx[1]#_g121615_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121455 '13 '#f '#f)) - (let ((__tmp121457 |gx[1]#_g121458_|)) + (##unchecked-structure-set! __obj121463 __tmp121614 '13 '#f '#f)) + (let ((__tmp121616 |gx[1]#_g121617_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121457 '14 '#f '#f)) - (let ((__tmp121459 - (cons (cons 'super |gx[1]#_g121460_|) - (cons (cons 'up |gx[1]#_g121461_|) - (cons (cons 'down |gx[1]#_g121462_|) - (cons (cons 'id |gx[1]#_g121463_|) - (cons (cons 'table |gx[1]#_g121464_|) + (##unchecked-structure-set! __obj121463 __tmp121616 '14 '#f '#f)) + (let ((__tmp121618 + (cons (cons 'super |gx[1]#_g121619_|) + (cons (cons 'up |gx[1]#_g121620_|) + (cons (cons 'down |gx[1]#_g121621_|) + (cons (cons 'id |gx[1]#_g121622_|) + (cons (cons 'table |gx[1]#_g121623_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121459 '15 '#f '#f)) - (let ((__tmp121465 - (cons (cons 'super |gx[1]#_g121466_|) - (cons (cons 'up |gx[1]#_g121467_|) - (cons (cons 'down |gx[1]#_g121468_|) - (cons (cons 'id |gx[1]#_g121469_|) - (cons (cons 'table |gx[1]#_g121470_|) + (##unchecked-structure-set! __obj121463 __tmp121618 '15 '#f '#f)) + (let ((__tmp121624 + (cons (cons 'super |gx[1]#_g121625_|) + (cons (cons 'up |gx[1]#_g121626_|) + (cons (cons 'down |gx[1]#_g121627_|) + (cons (cons 'id |gx[1]#_g121628_|) + (cons (cons 'table |gx[1]#_g121629_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121465 '16 '#f '#f)) - (let ((__tmp121471 - (cons (cons 'super |gx[1]#_g121472_|) - (cons (cons 'up |gx[1]#_g121473_|) - (cons (cons 'down |gx[1]#_g121474_|) - (cons (cons 'id |gx[1]#_g121475_|) - (cons (cons 'table |gx[1]#_g121476_|) + (##unchecked-structure-set! __obj121463 __tmp121624 '16 '#f '#f)) + (let ((__tmp121630 + (cons (cons 'super |gx[1]#_g121631_|) + (cons (cons 'up |gx[1]#_g121632_|) + (cons (cons 'down |gx[1]#_g121633_|) + (cons (cons 'id |gx[1]#_g121634_|) + (cons (cons 'table |gx[1]#_g121635_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121471 '17 '#f '#f)) - (let ((__tmp121477 - (cons (cons 'super |gx[1]#_g121478_|) - (cons (cons 'up |gx[1]#_g121479_|) - (cons (cons 'down |gx[1]#_g121480_|) - (cons (cons 'id |gx[1]#_g121481_|) - (cons (cons 'table |gx[1]#_g121482_|) + (##unchecked-structure-set! __obj121463 __tmp121630 '17 '#f '#f)) + (let ((__tmp121636 + (cons (cons 'super |gx[1]#_g121637_|) + (cons (cons 'up |gx[1]#_g121638_|) + (cons (cons 'down |gx[1]#_g121639_|) + (cons (cons 'id |gx[1]#_g121640_|) + (cons (cons 'table |gx[1]#_g121641_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121477 '18 '#f '#f)) + (##unchecked-structure-set! __obj121463 __tmp121636 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121463 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121463 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '20 '#f '#f)) - __obj121304)) + (##unchecked-structure-set! __obj121463 '() '20 '#f '#f)) + __obj121463)) (define |gx[:0:]#module-context| - (let ((__obj121305 + (let ((__obj121464 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121305 + __obj121464 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121464 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121305 + __obj121464 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121305 + __obj121464 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp121483 (cons |gx[1]#_g121484_| '()))) + (let ((__tmp121642 (cons |gx[1]#_g121643_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121483 '3 '#f '#f)) + (##unchecked-structure-set! __obj121464 __tmp121642 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121464 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121464 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121464 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#f '11 '#f '#f)) - (let ((__tmp121485 |gx[1]#_g121486_|)) + (##unchecked-structure-set! __obj121464 '#f '11 '#f '#f)) + (let ((__tmp121644 |gx[1]#_g121645_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121485 '12 '#f '#f)) - (let ((__tmp121487 |gx[1]#_g121488_|)) + (##unchecked-structure-set! __obj121464 __tmp121644 '12 '#f '#f)) + (let ((__tmp121646 |gx[1]#_g121647_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121487 '13 '#f '#f)) - (let ((__tmp121489 |gx[1]#_g121490_|)) + (##unchecked-structure-set! __obj121464 __tmp121646 '13 '#f '#f)) + (let ((__tmp121648 |gx[1]#_g121649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121489 '14 '#f '#f)) - (let ((__tmp121491 - (cons (cons 'ns |gx[1]#_g121492_|) - (cons (cons 'path |gx[1]#_g121493_|) - (cons (cons 'import |gx[1]#_g121494_|) - (cons (cons 'export |gx[1]#_g121495_|) - (cons (cons 'e |gx[1]#_g121496_|) + (##unchecked-structure-set! __obj121464 __tmp121648 '14 '#f '#f)) + (let ((__tmp121650 + (cons (cons 'ns |gx[1]#_g121651_|) + (cons (cons 'path |gx[1]#_g121652_|) + (cons (cons 'import |gx[1]#_g121653_|) + (cons (cons 'export |gx[1]#_g121654_|) + (cons (cons 'e |gx[1]#_g121655_|) (cons (cons 'code - |gx[1]#_g121497_|) + |gx[1]#_g121656_|) (cons (cons 'super - |gx[1]#_g121498_|) + |gx[1]#_g121657_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121499_|) - (cons (cons 'down |gx[1]#_g121500_|) - (cons (cons 'id |gx[1]#_g121501_|) - (cons (cons 'table |gx[1]#_g121502_|) + |gx[1]#_g121658_|) + (cons (cons 'down |gx[1]#_g121659_|) + (cons (cons 'id |gx[1]#_g121660_|) + (cons (cons 'table |gx[1]#_g121661_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121491 '15 '#f '#f)) - (let ((__tmp121503 - (cons (cons 'ns |gx[1]#_g121504_|) - (cons (cons 'path |gx[1]#_g121505_|) - (cons (cons 'import |gx[1]#_g121506_|) - (cons (cons 'export |gx[1]#_g121507_|) - (cons (cons 'e |gx[1]#_g121508_|) + (##unchecked-structure-set! __obj121464 __tmp121650 '15 '#f '#f)) + (let ((__tmp121662 + (cons (cons 'ns |gx[1]#_g121663_|) + (cons (cons 'path |gx[1]#_g121664_|) + (cons (cons 'import |gx[1]#_g121665_|) + (cons (cons 'export |gx[1]#_g121666_|) + (cons (cons 'e |gx[1]#_g121667_|) (cons (cons 'code - |gx[1]#_g121509_|) + |gx[1]#_g121668_|) (cons (cons 'super - |gx[1]#_g121510_|) + |gx[1]#_g121669_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121511_|) - (cons (cons 'down |gx[1]#_g121512_|) - (cons (cons 'id |gx[1]#_g121513_|) - (cons (cons 'table |gx[1]#_g121514_|) + |gx[1]#_g121670_|) + (cons (cons 'down |gx[1]#_g121671_|) + (cons (cons 'id |gx[1]#_g121672_|) + (cons (cons 'table |gx[1]#_g121673_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121503 '16 '#f '#f)) - (let ((__tmp121515 - (cons (cons 'ns |gx[1]#_g121516_|) - (cons (cons 'path |gx[1]#_g121517_|) - (cons (cons 'import |gx[1]#_g121518_|) - (cons (cons 'export |gx[1]#_g121519_|) - (cons (cons 'e |gx[1]#_g121520_|) + (##unchecked-structure-set! __obj121464 __tmp121662 '16 '#f '#f)) + (let ((__tmp121674 + (cons (cons 'ns |gx[1]#_g121675_|) + (cons (cons 'path |gx[1]#_g121676_|) + (cons (cons 'import |gx[1]#_g121677_|) + (cons (cons 'export |gx[1]#_g121678_|) + (cons (cons 'e |gx[1]#_g121679_|) (cons (cons 'code - |gx[1]#_g121521_|) + |gx[1]#_g121680_|) (cons (cons 'super - |gx[1]#_g121522_|) + |gx[1]#_g121681_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121523_|) - (cons (cons 'down |gx[1]#_g121524_|) - (cons (cons 'id |gx[1]#_g121525_|) - (cons (cons 'table |gx[1]#_g121526_|) + |gx[1]#_g121682_|) + (cons (cons 'down |gx[1]#_g121683_|) + (cons (cons 'id |gx[1]#_g121684_|) + (cons (cons 'table |gx[1]#_g121685_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121515 '17 '#f '#f)) - (let ((__tmp121527 - (cons (cons 'ns |gx[1]#_g121528_|) - (cons (cons 'path |gx[1]#_g121529_|) - (cons (cons 'import |gx[1]#_g121530_|) - (cons (cons 'export |gx[1]#_g121531_|) - (cons (cons 'e |gx[1]#_g121532_|) + (##unchecked-structure-set! __obj121464 __tmp121674 '17 '#f '#f)) + (let ((__tmp121686 + (cons (cons 'ns |gx[1]#_g121687_|) + (cons (cons 'path |gx[1]#_g121688_|) + (cons (cons 'import |gx[1]#_g121689_|) + (cons (cons 'export |gx[1]#_g121690_|) + (cons (cons 'e |gx[1]#_g121691_|) (cons (cons 'code - |gx[1]#_g121533_|) + |gx[1]#_g121692_|) (cons (cons 'super - |gx[1]#_g121534_|) + |gx[1]#_g121693_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121535_|) - (cons (cons 'down |gx[1]#_g121536_|) - (cons (cons 'id |gx[1]#_g121537_|) - (cons (cons 'table |gx[1]#_g121538_|) + |gx[1]#_g121694_|) + (cons (cons 'down |gx[1]#_g121695_|) + (cons (cons 'id |gx[1]#_g121696_|) + (cons (cons 'table |gx[1]#_g121697_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121527 '18 '#f '#f)) + (##unchecked-structure-set! __obj121464 __tmp121686 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121464 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121464 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '() '20 '#f '#f)) - __obj121305)) + (##unchecked-structure-set! __obj121464 '() '20 '#f '#f)) + __obj121464)) (define |gx[:0:]#prelude-context| - (let ((__obj121306 + (let ((__obj121465 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121306 + __obj121465 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121465 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121465 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121306 + __obj121465 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp121539 (cons |gx[1]#_g121484_| '()))) + (let ((__tmp121698 (cons |gx[1]#_g121643_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121539 '3 '#f '#f)) + (##unchecked-structure-set! __obj121465 __tmp121698 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121465 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121465 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121465 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#f '11 '#f '#f)) - (let ((__tmp121540 |gx[1]#_g121541_|)) + (##unchecked-structure-set! __obj121465 '#f '11 '#f '#f)) + (let ((__tmp121699 |gx[1]#_g121700_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121540 '12 '#f '#f)) - (let ((__tmp121542 |gx[1]#_g121543_|)) + (##unchecked-structure-set! __obj121465 __tmp121699 '12 '#f '#f)) + (let ((__tmp121701 |gx[1]#_g121702_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121542 '13 '#f '#f)) - (let ((__tmp121544 |gx[1]#_g121545_|)) + (##unchecked-structure-set! __obj121465 __tmp121701 '13 '#f '#f)) + (let ((__tmp121703 |gx[1]#_g121704_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121544 '14 '#f '#f)) - (let ((__tmp121546 - (cons (cons 'path |gx[1]#_g121547_|) - (cons (cons 'import |gx[1]#_g121548_|) - (cons (cons 'e |gx[1]#_g121549_|) - (cons (cons 'super |gx[1]#_g121550_|) - (cons (cons 'up |gx[1]#_g121551_|) + (##unchecked-structure-set! __obj121465 __tmp121703 '14 '#f '#f)) + (let ((__tmp121705 + (cons (cons 'path |gx[1]#_g121706_|) + (cons (cons 'import |gx[1]#_g121707_|) + (cons (cons 'e |gx[1]#_g121708_|) + (cons (cons 'super |gx[1]#_g121709_|) + (cons (cons 'up |gx[1]#_g121710_|) (cons (cons 'down - |gx[1]#_g121552_|) + |gx[1]#_g121711_|) (cons (cons 'id - |gx[1]#_g121553_|) + |gx[1]#_g121712_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121554_|) + |gx[1]#_g121713_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121546 '15 '#f '#f)) - (let ((__tmp121555 - (cons (cons 'path |gx[1]#_g121556_|) - (cons (cons 'import |gx[1]#_g121557_|) - (cons (cons 'e |gx[1]#_g121558_|) - (cons (cons 'super |gx[1]#_g121559_|) - (cons (cons 'up |gx[1]#_g121560_|) + (##unchecked-structure-set! __obj121465 __tmp121705 '15 '#f '#f)) + (let ((__tmp121714 + (cons (cons 'path |gx[1]#_g121715_|) + (cons (cons 'import |gx[1]#_g121716_|) + (cons (cons 'e |gx[1]#_g121717_|) + (cons (cons 'super |gx[1]#_g121718_|) + (cons (cons 'up |gx[1]#_g121719_|) (cons (cons 'down - |gx[1]#_g121561_|) + |gx[1]#_g121720_|) (cons (cons 'id - |gx[1]#_g121562_|) + |gx[1]#_g121721_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121563_|) + |gx[1]#_g121722_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121555 '16 '#f '#f)) - (let ((__tmp121564 - (cons (cons 'path |gx[1]#_g121565_|) - (cons (cons 'import |gx[1]#_g121566_|) - (cons (cons 'e |gx[1]#_g121567_|) - (cons (cons 'super |gx[1]#_g121568_|) - (cons (cons 'up |gx[1]#_g121569_|) + (##unchecked-structure-set! __obj121465 __tmp121714 '16 '#f '#f)) + (let ((__tmp121723 + (cons (cons 'path |gx[1]#_g121724_|) + (cons (cons 'import |gx[1]#_g121725_|) + (cons (cons 'e |gx[1]#_g121726_|) + (cons (cons 'super |gx[1]#_g121727_|) + (cons (cons 'up |gx[1]#_g121728_|) (cons (cons 'down - |gx[1]#_g121570_|) + |gx[1]#_g121729_|) (cons (cons 'id - |gx[1]#_g121571_|) + |gx[1]#_g121730_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121572_|) + |gx[1]#_g121731_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121564 '17 '#f '#f)) - (let ((__tmp121573 - (cons (cons 'path |gx[1]#_g121574_|) - (cons (cons 'import |gx[1]#_g121575_|) - (cons (cons 'e |gx[1]#_g121576_|) - (cons (cons 'super |gx[1]#_g121577_|) - (cons (cons 'up |gx[1]#_g121578_|) + (##unchecked-structure-set! __obj121465 __tmp121723 '17 '#f '#f)) + (let ((__tmp121732 + (cons (cons 'path |gx[1]#_g121733_|) + (cons (cons 'import |gx[1]#_g121734_|) + (cons (cons 'e |gx[1]#_g121735_|) + (cons (cons 'super |gx[1]#_g121736_|) + (cons (cons 'up |gx[1]#_g121737_|) (cons (cons 'down - |gx[1]#_g121579_|) + |gx[1]#_g121738_|) (cons (cons 'id - |gx[1]#_g121580_|) + |gx[1]#_g121739_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121581_|) + |gx[1]#_g121740_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121573 '18 '#f '#f)) + (##unchecked-structure-set! __obj121465 __tmp121732 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121465 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121465 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '() '20 '#f '#f)) - __obj121306)) + (##unchecked-structure-set! __obj121465 '() '20 '#f '#f)) + __obj121465)) (define |gx[:0:]#local-context| - (let ((__obj121307 + (let ((__obj121466 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121307 + __obj121466 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121466 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121466 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121307 + __obj121466 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121582 (cons |gx[1]#_g121452_| '()))) + (let ((__tmp121741 (cons |gx[1]#_g121611_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121582 '3 '#f '#f)) + (##unchecked-structure-set! __obj121466 __tmp121741 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121466 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121466 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121466 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#f '11 '#f '#f)) - (let ((__tmp121583 |gx[1]#_g121584_|)) + (##unchecked-structure-set! __obj121466 '#f '11 '#f '#f)) + (let ((__tmp121742 |gx[1]#_g121743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121583 '12 '#f '#f)) - (let ((__tmp121585 |gx[1]#_g121586_|)) + (##unchecked-structure-set! __obj121466 __tmp121742 '12 '#f '#f)) + (let ((__tmp121744 |gx[1]#_g121745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121585 '13 '#f '#f)) - (let ((__tmp121587 |gx[1]#_g121588_|)) + (##unchecked-structure-set! __obj121466 __tmp121744 '13 '#f '#f)) + (let ((__tmp121746 |gx[1]#_g121747_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121587 '14 '#f '#f)) - (let ((__tmp121589 - (cons (cons 'super |gx[1]#_g121590_|) - (cons (cons 'up |gx[1]#_g121591_|) - (cons (cons 'down |gx[1]#_g121592_|) - (cons (cons 'id |gx[1]#_g121593_|) - (cons (cons 'table |gx[1]#_g121594_|) + (##unchecked-structure-set! __obj121466 __tmp121746 '14 '#f '#f)) + (let ((__tmp121748 + (cons (cons 'super |gx[1]#_g121749_|) + (cons (cons 'up |gx[1]#_g121750_|) + (cons (cons 'down |gx[1]#_g121751_|) + (cons (cons 'id |gx[1]#_g121752_|) + (cons (cons 'table |gx[1]#_g121753_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121589 '15 '#f '#f)) - (let ((__tmp121595 - (cons (cons 'super |gx[1]#_g121596_|) - (cons (cons 'up |gx[1]#_g121597_|) - (cons (cons 'down |gx[1]#_g121598_|) - (cons (cons 'id |gx[1]#_g121599_|) - (cons (cons 'table |gx[1]#_g121600_|) + (##unchecked-structure-set! __obj121466 __tmp121748 '15 '#f '#f)) + (let ((__tmp121754 + (cons (cons 'super |gx[1]#_g121755_|) + (cons (cons 'up |gx[1]#_g121756_|) + (cons (cons 'down |gx[1]#_g121757_|) + (cons (cons 'id |gx[1]#_g121758_|) + (cons (cons 'table |gx[1]#_g121759_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121595 '16 '#f '#f)) - (let ((__tmp121601 - (cons (cons 'super |gx[1]#_g121602_|) - (cons (cons 'up |gx[1]#_g121603_|) - (cons (cons 'down |gx[1]#_g121604_|) - (cons (cons 'id |gx[1]#_g121605_|) - (cons (cons 'table |gx[1]#_g121606_|) + (##unchecked-structure-set! __obj121466 __tmp121754 '16 '#f '#f)) + (let ((__tmp121760 + (cons (cons 'super |gx[1]#_g121761_|) + (cons (cons 'up |gx[1]#_g121762_|) + (cons (cons 'down |gx[1]#_g121763_|) + (cons (cons 'id |gx[1]#_g121764_|) + (cons (cons 'table |gx[1]#_g121765_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121601 '17 '#f '#f)) - (let ((__tmp121607 - (cons (cons 'super |gx[1]#_g121608_|) - (cons (cons 'up |gx[1]#_g121609_|) - (cons (cons 'down |gx[1]#_g121610_|) - (cons (cons 'id |gx[1]#_g121611_|) - (cons (cons 'table |gx[1]#_g121612_|) + (##unchecked-structure-set! __obj121466 __tmp121760 '17 '#f '#f)) + (let ((__tmp121766 + (cons (cons 'super |gx[1]#_g121767_|) + (cons (cons 'up |gx[1]#_g121768_|) + (cons (cons 'down |gx[1]#_g121769_|) + (cons (cons 'id |gx[1]#_g121770_|) + (cons (cons 'table |gx[1]#_g121771_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121607 '18 '#f '#f)) + (##unchecked-structure-set! __obj121466 __tmp121766 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121466 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121466 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '20 '#f '#f)) - __obj121307)) + (##unchecked-structure-set! __obj121466 '() '20 '#f '#f)) + __obj121466)) (define |gx[:0:]#binding| - (let ((__obj121308 + (let ((__obj121467 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121467 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121467 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121467 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj121467 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121467 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121467 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121467 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121467 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#f '11 '#f '#f)) - (let ((__tmp121613 |gx[1]#_g121614_|)) + (##unchecked-structure-set! __obj121467 '#f '11 '#f '#f)) + (let ((__tmp121772 |gx[1]#_g121773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121613 '12 '#f '#f)) - (let ((__tmp121615 |gx[1]#_g121616_|)) + (##unchecked-structure-set! __obj121467 __tmp121772 '12 '#f '#f)) + (let ((__tmp121774 |gx[1]#_g121775_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121615 '13 '#f '#f)) - (let ((__tmp121617 |gx[1]#_g121618_|)) + (##unchecked-structure-set! __obj121467 __tmp121774 '13 '#f '#f)) + (let ((__tmp121776 |gx[1]#_g121777_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121617 '14 '#f '#f)) - (let ((__tmp121619 - (cons (cons 'id |gx[1]#_g121620_|) - (cons (cons 'key |gx[1]#_g121621_|) - (cons (cons 'phi |gx[1]#_g121622_|) '()))))) + (##unchecked-structure-set! __obj121467 __tmp121776 '14 '#f '#f)) + (let ((__tmp121778 + (cons (cons 'id |gx[1]#_g121779_|) + (cons (cons 'key |gx[1]#_g121780_|) + (cons (cons 'phi |gx[1]#_g121781_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121619 '15 '#f '#f)) - (let ((__tmp121623 - (cons (cons 'id |gx[1]#_g121624_|) - (cons (cons 'key |gx[1]#_g121625_|) - (cons (cons 'phi |gx[1]#_g121626_|) '()))))) + (##unchecked-structure-set! __obj121467 __tmp121778 '15 '#f '#f)) + (let ((__tmp121782 + (cons (cons 'id |gx[1]#_g121783_|) + (cons (cons 'key |gx[1]#_g121784_|) + (cons (cons 'phi |gx[1]#_g121785_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121623 '16 '#f '#f)) - (let ((__tmp121627 - (cons (cons 'id |gx[1]#_g121628_|) - (cons (cons 'key |gx[1]#_g121629_|) - (cons (cons 'phi |gx[1]#_g121630_|) '()))))) + (##unchecked-structure-set! __obj121467 __tmp121782 '16 '#f '#f)) + (let ((__tmp121786 + (cons (cons 'id |gx[1]#_g121787_|) + (cons (cons 'key |gx[1]#_g121788_|) + (cons (cons 'phi |gx[1]#_g121789_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121627 '17 '#f '#f)) - (let ((__tmp121631 - (cons (cons 'id |gx[1]#_g121632_|) - (cons (cons 'key |gx[1]#_g121633_|) - (cons (cons 'phi |gx[1]#_g121634_|) '()))))) + (##unchecked-structure-set! __obj121467 __tmp121786 '17 '#f '#f)) + (let ((__tmp121790 + (cons (cons 'id |gx[1]#_g121791_|) + (cons (cons 'key |gx[1]#_g121792_|) + (cons (cons 'phi |gx[1]#_g121793_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121631 '18 '#f '#f)) + (##unchecked-structure-set! __obj121467 __tmp121790 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121467 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121467 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '20 '#f '#f)) - __obj121308)) + (##unchecked-structure-set! __obj121467 '() '20 '#f '#f)) + __obj121467)) (define |gx[:0:]#runtime-binding| - (let ((__obj121309 + (let ((__obj121468 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121309 + __obj121468 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121468 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121468 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '(id key phi) '6 '#f '#f)) - (let ((__tmp121635 (cons |gx[1]#_g121636_| '()))) + (##unchecked-structure-set! __obj121468 '(id key phi) '6 '#f '#f)) + (let ((__tmp121794 (cons |gx[1]#_g121795_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121635 '3 '#f '#f)) + (##unchecked-structure-set! __obj121468 __tmp121794 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121468 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121468 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121468 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#f '11 '#f '#f)) - (let ((__tmp121637 |gx[1]#_g121638_|)) + (##unchecked-structure-set! __obj121468 '#f '11 '#f '#f)) + (let ((__tmp121796 |gx[1]#_g121797_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121637 '12 '#f '#f)) - (let ((__tmp121639 |gx[1]#_g121640_|)) + (##unchecked-structure-set! __obj121468 __tmp121796 '12 '#f '#f)) + (let ((__tmp121798 |gx[1]#_g121799_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121639 '13 '#f '#f)) - (let ((__tmp121641 |gx[1]#_g121642_|)) + (##unchecked-structure-set! __obj121468 __tmp121798 '13 '#f '#f)) + (let ((__tmp121800 |gx[1]#_g121801_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121641 '14 '#f '#f)) - (let ((__tmp121643 - (cons (cons 'id |gx[1]#_g121644_|) - (cons (cons 'key |gx[1]#_g121645_|) - (cons (cons 'phi |gx[1]#_g121646_|) '()))))) + (##unchecked-structure-set! __obj121468 __tmp121800 '14 '#f '#f)) + (let ((__tmp121802 + (cons (cons 'id |gx[1]#_g121803_|) + (cons (cons 'key |gx[1]#_g121804_|) + (cons (cons 'phi |gx[1]#_g121805_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121643 '15 '#f '#f)) - (let ((__tmp121647 - (cons (cons 'id |gx[1]#_g121648_|) - (cons (cons 'key |gx[1]#_g121649_|) - (cons (cons 'phi |gx[1]#_g121650_|) '()))))) + (##unchecked-structure-set! __obj121468 __tmp121802 '15 '#f '#f)) + (let ((__tmp121806 + (cons (cons 'id |gx[1]#_g121807_|) + (cons (cons 'key |gx[1]#_g121808_|) + (cons (cons 'phi |gx[1]#_g121809_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121647 '16 '#f '#f)) - (let ((__tmp121651 - (cons (cons 'id |gx[1]#_g121652_|) - (cons (cons 'key |gx[1]#_g121653_|) - (cons (cons 'phi |gx[1]#_g121654_|) '()))))) + (##unchecked-structure-set! __obj121468 __tmp121806 '16 '#f '#f)) + (let ((__tmp121810 + (cons (cons 'id |gx[1]#_g121811_|) + (cons (cons 'key |gx[1]#_g121812_|) + (cons (cons 'phi |gx[1]#_g121813_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121651 '17 '#f '#f)) - (let ((__tmp121655 - (cons (cons 'id |gx[1]#_g121656_|) - (cons (cons 'key |gx[1]#_g121657_|) - (cons (cons 'phi |gx[1]#_g121658_|) '()))))) + (##unchecked-structure-set! __obj121468 __tmp121810 '17 '#f '#f)) + (let ((__tmp121814 + (cons (cons 'id |gx[1]#_g121815_|) + (cons (cons 'key |gx[1]#_g121816_|) + (cons (cons 'phi |gx[1]#_g121817_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121655 '18 '#f '#f)) + (##unchecked-structure-set! __obj121468 __tmp121814 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121468 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121468 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '20 '#f '#f)) - __obj121309)) + (##unchecked-structure-set! __obj121468 '() '20 '#f '#f)) + __obj121468)) (define |gx[:0:]#local-binding| - (let ((__obj121310 + (let ((__obj121469 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121310 + __obj121469 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121469 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121469 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '(id key phi) '6 '#f '#f)) - (let ((__tmp121659 (cons |gx[1]#_g121660_| '()))) + (##unchecked-structure-set! __obj121469 '(id key phi) '6 '#f '#f)) + (let ((__tmp121818 (cons |gx[1]#_g121819_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121659 '3 '#f '#f)) + (##unchecked-structure-set! __obj121469 __tmp121818 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121469 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121469 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121469 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#f '11 '#f '#f)) - (let ((__tmp121661 |gx[1]#_g121662_|)) + (##unchecked-structure-set! __obj121469 '#f '11 '#f '#f)) + (let ((__tmp121820 |gx[1]#_g121821_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121661 '12 '#f '#f)) - (let ((__tmp121663 |gx[1]#_g121664_|)) + (##unchecked-structure-set! __obj121469 __tmp121820 '12 '#f '#f)) + (let ((__tmp121822 |gx[1]#_g121823_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121663 '13 '#f '#f)) - (let ((__tmp121665 |gx[1]#_g121666_|)) + (##unchecked-structure-set! __obj121469 __tmp121822 '13 '#f '#f)) + (let ((__tmp121824 |gx[1]#_g121825_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121665 '14 '#f '#f)) - (let ((__tmp121667 - (cons (cons 'id |gx[1]#_g121668_|) - (cons (cons 'key |gx[1]#_g121669_|) - (cons (cons 'phi |gx[1]#_g121670_|) '()))))) + (##unchecked-structure-set! __obj121469 __tmp121824 '14 '#f '#f)) + (let ((__tmp121826 + (cons (cons 'id |gx[1]#_g121827_|) + (cons (cons 'key |gx[1]#_g121828_|) + (cons (cons 'phi |gx[1]#_g121829_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121667 '15 '#f '#f)) - (let ((__tmp121671 - (cons (cons 'id |gx[1]#_g121672_|) - (cons (cons 'key |gx[1]#_g121673_|) - (cons (cons 'phi |gx[1]#_g121674_|) '()))))) + (##unchecked-structure-set! __obj121469 __tmp121826 '15 '#f '#f)) + (let ((__tmp121830 + (cons (cons 'id |gx[1]#_g121831_|) + (cons (cons 'key |gx[1]#_g121832_|) + (cons (cons 'phi |gx[1]#_g121833_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121671 '16 '#f '#f)) - (let ((__tmp121675 - (cons (cons 'id |gx[1]#_g121676_|) - (cons (cons 'key |gx[1]#_g121677_|) - (cons (cons 'phi |gx[1]#_g121678_|) '()))))) + (##unchecked-structure-set! __obj121469 __tmp121830 '16 '#f '#f)) + (let ((__tmp121834 + (cons (cons 'id |gx[1]#_g121835_|) + (cons (cons 'key |gx[1]#_g121836_|) + (cons (cons 'phi |gx[1]#_g121837_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121675 '17 '#f '#f)) - (let ((__tmp121679 - (cons (cons 'id |gx[1]#_g121680_|) - (cons (cons 'key |gx[1]#_g121681_|) - (cons (cons 'phi |gx[1]#_g121682_|) '()))))) + (##unchecked-structure-set! __obj121469 __tmp121834 '17 '#f '#f)) + (let ((__tmp121838 + (cons (cons 'id |gx[1]#_g121839_|) + (cons (cons 'key |gx[1]#_g121840_|) + (cons (cons 'phi |gx[1]#_g121841_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121679 '18 '#f '#f)) + (##unchecked-structure-set! __obj121469 __tmp121838 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121469 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121469 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '20 '#f '#f)) - __obj121310)) + (##unchecked-structure-set! __obj121469 '() '20 '#f '#f)) + __obj121469)) (define |gx[:0:]#top-binding| - (let ((__obj121311 + (let ((__obj121470 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121311 + __obj121470 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121470 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121470 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '(id key phi) '6 '#f '#f)) - (let ((__tmp121683 (cons |gx[1]#_g121660_| '()))) + (##unchecked-structure-set! __obj121470 '(id key phi) '6 '#f '#f)) + (let ((__tmp121842 (cons |gx[1]#_g121819_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121683 '3 '#f '#f)) + (##unchecked-structure-set! __obj121470 __tmp121842 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121470 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121470 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121470 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#f '11 '#f '#f)) - (let ((__tmp121684 |gx[1]#_g121685_|)) + (##unchecked-structure-set! __obj121470 '#f '11 '#f '#f)) + (let ((__tmp121843 |gx[1]#_g121844_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121684 '12 '#f '#f)) - (let ((__tmp121686 |gx[1]#_g121687_|)) + (##unchecked-structure-set! __obj121470 __tmp121843 '12 '#f '#f)) + (let ((__tmp121845 |gx[1]#_g121846_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121686 '13 '#f '#f)) - (let ((__tmp121688 |gx[1]#_g121689_|)) + (##unchecked-structure-set! __obj121470 __tmp121845 '13 '#f '#f)) + (let ((__tmp121847 |gx[1]#_g121848_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121688 '14 '#f '#f)) - (let ((__tmp121690 - (cons (cons 'id |gx[1]#_g121691_|) - (cons (cons 'key |gx[1]#_g121692_|) - (cons (cons 'phi |gx[1]#_g121693_|) '()))))) + (##unchecked-structure-set! __obj121470 __tmp121847 '14 '#f '#f)) + (let ((__tmp121849 + (cons (cons 'id |gx[1]#_g121850_|) + (cons (cons 'key |gx[1]#_g121851_|) + (cons (cons 'phi |gx[1]#_g121852_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121690 '15 '#f '#f)) - (let ((__tmp121694 - (cons (cons 'id |gx[1]#_g121695_|) - (cons (cons 'key |gx[1]#_g121696_|) - (cons (cons 'phi |gx[1]#_g121697_|) '()))))) + (##unchecked-structure-set! __obj121470 __tmp121849 '15 '#f '#f)) + (let ((__tmp121853 + (cons (cons 'id |gx[1]#_g121854_|) + (cons (cons 'key |gx[1]#_g121855_|) + (cons (cons 'phi |gx[1]#_g121856_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121694 '16 '#f '#f)) - (let ((__tmp121698 - (cons (cons 'id |gx[1]#_g121699_|) - (cons (cons 'key |gx[1]#_g121700_|) - (cons (cons 'phi |gx[1]#_g121701_|) '()))))) + (##unchecked-structure-set! __obj121470 __tmp121853 '16 '#f '#f)) + (let ((__tmp121857 + (cons (cons 'id |gx[1]#_g121858_|) + (cons (cons 'key |gx[1]#_g121859_|) + (cons (cons 'phi |gx[1]#_g121860_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121698 '17 '#f '#f)) - (let ((__tmp121702 - (cons (cons 'id |gx[1]#_g121703_|) - (cons (cons 'key |gx[1]#_g121704_|) - (cons (cons 'phi |gx[1]#_g121705_|) '()))))) + (##unchecked-structure-set! __obj121470 __tmp121857 '17 '#f '#f)) + (let ((__tmp121861 + (cons (cons 'id |gx[1]#_g121862_|) + (cons (cons 'key |gx[1]#_g121863_|) + (cons (cons 'phi |gx[1]#_g121864_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121702 '18 '#f '#f)) + (##unchecked-structure-set! __obj121470 __tmp121861 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121470 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121470 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '20 '#f '#f)) - __obj121311)) + (##unchecked-structure-set! __obj121470 '() '20 '#f '#f)) + __obj121470)) (define |gx[:0:]#module-binding| - (let ((__obj121312 + (let ((__obj121471 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121312 + __obj121471 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121471 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj121471 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121312 + __obj121471 '(id key phi context) '6 '#f '#f)) - (let ((__tmp121706 (cons |gx[1]#_g121707_| '()))) + (let ((__tmp121865 (cons |gx[1]#_g121866_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121706 '3 '#f '#f)) + (##unchecked-structure-set! __obj121471 __tmp121865 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121471 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121471 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121471 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#f '11 '#f '#f)) - (let ((__tmp121708 |gx[1]#_g121709_|)) + (##unchecked-structure-set! __obj121471 '#f '11 '#f '#f)) + (let ((__tmp121867 |gx[1]#_g121868_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121708 '12 '#f '#f)) - (let ((__tmp121710 |gx[1]#_g121711_|)) + (##unchecked-structure-set! __obj121471 __tmp121867 '12 '#f '#f)) + (let ((__tmp121869 |gx[1]#_g121870_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121710 '13 '#f '#f)) - (let ((__tmp121712 |gx[1]#_g121713_|)) + (##unchecked-structure-set! __obj121471 __tmp121869 '13 '#f '#f)) + (let ((__tmp121871 |gx[1]#_g121872_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121712 '14 '#f '#f)) - (let ((__tmp121714 - (cons (cons 'context |gx[1]#_g121715_|) - (cons (cons 'id |gx[1]#_g121716_|) - (cons (cons 'key |gx[1]#_g121717_|) - (cons (cons 'phi |gx[1]#_g121718_|) '())))))) + (##unchecked-structure-set! __obj121471 __tmp121871 '14 '#f '#f)) + (let ((__tmp121873 + (cons (cons 'context |gx[1]#_g121874_|) + (cons (cons 'id |gx[1]#_g121875_|) + (cons (cons 'key |gx[1]#_g121876_|) + (cons (cons 'phi |gx[1]#_g121877_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121714 '15 '#f '#f)) - (let ((__tmp121719 - (cons (cons 'context |gx[1]#_g121720_|) - (cons (cons 'id |gx[1]#_g121721_|) - (cons (cons 'key |gx[1]#_g121722_|) - (cons (cons 'phi |gx[1]#_g121723_|) '())))))) + (##unchecked-structure-set! __obj121471 __tmp121873 '15 '#f '#f)) + (let ((__tmp121878 + (cons (cons 'context |gx[1]#_g121879_|) + (cons (cons 'id |gx[1]#_g121880_|) + (cons (cons 'key |gx[1]#_g121881_|) + (cons (cons 'phi |gx[1]#_g121882_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121719 '16 '#f '#f)) - (let ((__tmp121724 - (cons (cons 'context |gx[1]#_g121725_|) - (cons (cons 'id |gx[1]#_g121726_|) - (cons (cons 'key |gx[1]#_g121727_|) - (cons (cons 'phi |gx[1]#_g121728_|) '())))))) + (##unchecked-structure-set! __obj121471 __tmp121878 '16 '#f '#f)) + (let ((__tmp121883 + (cons (cons 'context |gx[1]#_g121884_|) + (cons (cons 'id |gx[1]#_g121885_|) + (cons (cons 'key |gx[1]#_g121886_|) + (cons (cons 'phi |gx[1]#_g121887_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121724 '17 '#f '#f)) - (let ((__tmp121729 - (cons (cons 'context |gx[1]#_g121730_|) - (cons (cons 'id |gx[1]#_g121731_|) - (cons (cons 'key |gx[1]#_g121732_|) - (cons (cons 'phi |gx[1]#_g121733_|) '())))))) + (##unchecked-structure-set! __obj121471 __tmp121883 '17 '#f '#f)) + (let ((__tmp121888 + (cons (cons 'context |gx[1]#_g121889_|) + (cons (cons 'id |gx[1]#_g121890_|) + (cons (cons 'key |gx[1]#_g121891_|) + (cons (cons 'phi |gx[1]#_g121892_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121729 '18 '#f '#f)) + (##unchecked-structure-set! __obj121471 __tmp121888 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121471 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121471 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '() '20 '#f '#f)) - __obj121312)) + (##unchecked-structure-set! __obj121471 '() '20 '#f '#f)) + __obj121471)) (define |gx[:0:]#extern-binding| - (let ((__obj121313 + (let ((__obj121472 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121313 + __obj121472 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121472 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121472 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '(id key phi) '6 '#f '#f)) - (let ((__tmp121734 (cons |gx[1]#_g121707_| '()))) + (##unchecked-structure-set! __obj121472 '(id key phi) '6 '#f '#f)) + (let ((__tmp121893 (cons |gx[1]#_g121866_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121734 '3 '#f '#f)) + (##unchecked-structure-set! __obj121472 __tmp121893 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121472 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121472 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121472 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#f '11 '#f '#f)) - (let ((__tmp121735 |gx[1]#_g121736_|)) + (##unchecked-structure-set! __obj121472 '#f '11 '#f '#f)) + (let ((__tmp121894 |gx[1]#_g121895_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121735 '12 '#f '#f)) - (let ((__tmp121737 |gx[1]#_g121738_|)) + (##unchecked-structure-set! __obj121472 __tmp121894 '12 '#f '#f)) + (let ((__tmp121896 |gx[1]#_g121897_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121737 '13 '#f '#f)) - (let ((__tmp121739 |gx[1]#_g121740_|)) + (##unchecked-structure-set! __obj121472 __tmp121896 '13 '#f '#f)) + (let ((__tmp121898 |gx[1]#_g121899_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121739 '14 '#f '#f)) - (let ((__tmp121741 - (cons (cons 'id |gx[1]#_g121742_|) - (cons (cons 'key |gx[1]#_g121743_|) - (cons (cons 'phi |gx[1]#_g121744_|) '()))))) + (##unchecked-structure-set! __obj121472 __tmp121898 '14 '#f '#f)) + (let ((__tmp121900 + (cons (cons 'id |gx[1]#_g121901_|) + (cons (cons 'key |gx[1]#_g121902_|) + (cons (cons 'phi |gx[1]#_g121903_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121741 '15 '#f '#f)) - (let ((__tmp121745 - (cons (cons 'id |gx[1]#_g121746_|) - (cons (cons 'key |gx[1]#_g121747_|) - (cons (cons 'phi |gx[1]#_g121748_|) '()))))) + (##unchecked-structure-set! __obj121472 __tmp121900 '15 '#f '#f)) + (let ((__tmp121904 + (cons (cons 'id |gx[1]#_g121905_|) + (cons (cons 'key |gx[1]#_g121906_|) + (cons (cons 'phi |gx[1]#_g121907_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121745 '16 '#f '#f)) - (let ((__tmp121749 - (cons (cons 'id |gx[1]#_g121750_|) - (cons (cons 'key |gx[1]#_g121751_|) - (cons (cons 'phi |gx[1]#_g121752_|) '()))))) + (##unchecked-structure-set! __obj121472 __tmp121904 '16 '#f '#f)) + (let ((__tmp121908 + (cons (cons 'id |gx[1]#_g121909_|) + (cons (cons 'key |gx[1]#_g121910_|) + (cons (cons 'phi |gx[1]#_g121911_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121749 '17 '#f '#f)) - (let ((__tmp121753 - (cons (cons 'id |gx[1]#_g121754_|) - (cons (cons 'key |gx[1]#_g121755_|) - (cons (cons 'phi |gx[1]#_g121756_|) '()))))) + (##unchecked-structure-set! __obj121472 __tmp121908 '17 '#f '#f)) + (let ((__tmp121912 + (cons (cons 'id |gx[1]#_g121913_|) + (cons (cons 'key |gx[1]#_g121914_|) + (cons (cons 'phi |gx[1]#_g121915_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121753 '18 '#f '#f)) + (##unchecked-structure-set! __obj121472 __tmp121912 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121472 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121472 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '20 '#f '#f)) - __obj121313)) + (##unchecked-structure-set! __obj121472 '() '20 '#f '#f)) + __obj121472)) (define |gx[:0:]#syntax-binding| - (let ((__obj121314 + (let ((__obj121473 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121314 + __obj121473 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121473 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121473 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121757 (cons |gx[1]#_g121636_| '()))) + (##unchecked-structure-set! __obj121473 '(id key phi e) '6 '#f '#f)) + (let ((__tmp121916 (cons |gx[1]#_g121795_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121757 '3 '#f '#f)) + (##unchecked-structure-set! __obj121473 __tmp121916 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121473 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121473 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121473 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#f '11 '#f '#f)) - (let ((__tmp121758 |gx[1]#_g121759_|)) + (##unchecked-structure-set! __obj121473 '#f '11 '#f '#f)) + (let ((__tmp121917 |gx[1]#_g121918_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121758 '12 '#f '#f)) - (let ((__tmp121760 |gx[1]#_g121761_|)) + (##unchecked-structure-set! __obj121473 __tmp121917 '12 '#f '#f)) + (let ((__tmp121919 |gx[1]#_g121920_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121760 '13 '#f '#f)) - (let ((__tmp121762 |gx[1]#_g121763_|)) + (##unchecked-structure-set! __obj121473 __tmp121919 '13 '#f '#f)) + (let ((__tmp121921 |gx[1]#_g121922_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121762 '14 '#f '#f)) - (let ((__tmp121764 - (cons (cons 'e |gx[1]#_g121765_|) - (cons (cons 'id |gx[1]#_g121766_|) - (cons (cons 'key |gx[1]#_g121767_|) - (cons (cons 'phi |gx[1]#_g121768_|) '())))))) + (##unchecked-structure-set! __obj121473 __tmp121921 '14 '#f '#f)) + (let ((__tmp121923 + (cons (cons 'e |gx[1]#_g121924_|) + (cons (cons 'id |gx[1]#_g121925_|) + (cons (cons 'key |gx[1]#_g121926_|) + (cons (cons 'phi |gx[1]#_g121927_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121764 '15 '#f '#f)) - (let ((__tmp121769 - (cons (cons 'e |gx[1]#_g121770_|) - (cons (cons 'id |gx[1]#_g121771_|) - (cons (cons 'key |gx[1]#_g121772_|) - (cons (cons 'phi |gx[1]#_g121773_|) '())))))) + (##unchecked-structure-set! __obj121473 __tmp121923 '15 '#f '#f)) + (let ((__tmp121928 + (cons (cons 'e |gx[1]#_g121929_|) + (cons (cons 'id |gx[1]#_g121930_|) + (cons (cons 'key |gx[1]#_g121931_|) + (cons (cons 'phi |gx[1]#_g121932_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121769 '16 '#f '#f)) - (let ((__tmp121774 - (cons (cons 'e |gx[1]#_g121775_|) - (cons (cons 'id |gx[1]#_g121776_|) - (cons (cons 'key |gx[1]#_g121777_|) - (cons (cons 'phi |gx[1]#_g121778_|) '())))))) + (##unchecked-structure-set! __obj121473 __tmp121928 '16 '#f '#f)) + (let ((__tmp121933 + (cons (cons 'e |gx[1]#_g121934_|) + (cons (cons 'id |gx[1]#_g121935_|) + (cons (cons 'key |gx[1]#_g121936_|) + (cons (cons 'phi |gx[1]#_g121937_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121774 '17 '#f '#f)) - (let ((__tmp121779 - (cons (cons 'e |gx[1]#_g121780_|) - (cons (cons 'id |gx[1]#_g121781_|) - (cons (cons 'key |gx[1]#_g121782_|) - (cons (cons 'phi |gx[1]#_g121783_|) '())))))) + (##unchecked-structure-set! __obj121473 __tmp121933 '17 '#f '#f)) + (let ((__tmp121938 + (cons (cons 'e |gx[1]#_g121939_|) + (cons (cons 'id |gx[1]#_g121940_|) + (cons (cons 'key |gx[1]#_g121941_|) + (cons (cons 'phi |gx[1]#_g121942_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121779 '18 '#f '#f)) + (##unchecked-structure-set! __obj121473 __tmp121938 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121473 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121473 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '() '20 '#f '#f)) - __obj121314)) + (##unchecked-structure-set! __obj121473 '() '20 '#f '#f)) + __obj121473)) (define |gx[:0:]#import-binding| - (let ((__obj121315 + (let ((__obj121474 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121315 + __obj121474 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121474 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121315 + __obj121474 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121315 + __obj121474 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp121784 (cons |gx[1]#_g121636_| '()))) + (let ((__tmp121943 (cons |gx[1]#_g121795_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121784 '3 '#f '#f)) + (##unchecked-structure-set! __obj121474 __tmp121943 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121474 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121474 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121474 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#f '11 '#f '#f)) - (let ((__tmp121785 |gx[1]#_g121786_|)) + (##unchecked-structure-set! __obj121474 '#f '11 '#f '#f)) + (let ((__tmp121944 |gx[1]#_g121945_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121785 '12 '#f '#f)) - (let ((__tmp121787 |gx[1]#_g121788_|)) + (##unchecked-structure-set! __obj121474 __tmp121944 '12 '#f '#f)) + (let ((__tmp121946 |gx[1]#_g121947_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121787 '13 '#f '#f)) - (let ((__tmp121789 |gx[1]#_g121790_|)) + (##unchecked-structure-set! __obj121474 __tmp121946 '13 '#f '#f)) + (let ((__tmp121948 |gx[1]#_g121949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121789 '14 '#f '#f)) - (let ((__tmp121791 - (cons (cons 'e |gx[1]#_g121792_|) - (cons (cons 'context |gx[1]#_g121793_|) - (cons (cons 'weak? |gx[1]#_g121794_|) - (cons (cons 'id |gx[1]#_g121795_|) - (cons (cons 'key |gx[1]#_g121796_|) + (##unchecked-structure-set! __obj121474 __tmp121948 '14 '#f '#f)) + (let ((__tmp121950 + (cons (cons 'e |gx[1]#_g121951_|) + (cons (cons 'context |gx[1]#_g121952_|) + (cons (cons 'weak? |gx[1]#_g121953_|) + (cons (cons 'id |gx[1]#_g121954_|) + (cons (cons 'key |gx[1]#_g121955_|) (cons (cons 'phi - |gx[1]#_g121797_|) + |gx[1]#_g121956_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121791 '15 '#f '#f)) - (let ((__tmp121798 - (cons (cons 'e |gx[1]#_g121799_|) - (cons (cons 'context |gx[1]#_g121800_|) - (cons (cons 'weak? |gx[1]#_g121801_|) - (cons (cons 'id |gx[1]#_g121802_|) - (cons (cons 'key |gx[1]#_g121803_|) + (##unchecked-structure-set! __obj121474 __tmp121950 '15 '#f '#f)) + (let ((__tmp121957 + (cons (cons 'e |gx[1]#_g121958_|) + (cons (cons 'context |gx[1]#_g121959_|) + (cons (cons 'weak? |gx[1]#_g121960_|) + (cons (cons 'id |gx[1]#_g121961_|) + (cons (cons 'key |gx[1]#_g121962_|) (cons (cons 'phi - |gx[1]#_g121804_|) + |gx[1]#_g121963_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121798 '16 '#f '#f)) - (let ((__tmp121805 - (cons (cons 'e |gx[1]#_g121806_|) - (cons (cons 'context |gx[1]#_g121807_|) - (cons (cons 'weak? |gx[1]#_g121808_|) - (cons (cons 'id |gx[1]#_g121809_|) - (cons (cons 'key |gx[1]#_g121810_|) + (##unchecked-structure-set! __obj121474 __tmp121957 '16 '#f '#f)) + (let ((__tmp121964 + (cons (cons 'e |gx[1]#_g121965_|) + (cons (cons 'context |gx[1]#_g121966_|) + (cons (cons 'weak? |gx[1]#_g121967_|) + (cons (cons 'id |gx[1]#_g121968_|) + (cons (cons 'key |gx[1]#_g121969_|) (cons (cons 'phi - |gx[1]#_g121811_|) + |gx[1]#_g121970_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121805 '17 '#f '#f)) - (let ((__tmp121812 - (cons (cons 'e |gx[1]#_g121813_|) - (cons (cons 'context |gx[1]#_g121814_|) - (cons (cons 'weak? |gx[1]#_g121815_|) - (cons (cons 'id |gx[1]#_g121816_|) - (cons (cons 'key |gx[1]#_g121817_|) + (##unchecked-structure-set! __obj121474 __tmp121964 '17 '#f '#f)) + (let ((__tmp121971 + (cons (cons 'e |gx[1]#_g121972_|) + (cons (cons 'context |gx[1]#_g121973_|) + (cons (cons 'weak? |gx[1]#_g121974_|) + (cons (cons 'id |gx[1]#_g121975_|) + (cons (cons 'key |gx[1]#_g121976_|) (cons (cons 'phi - |gx[1]#_g121818_|) + |gx[1]#_g121977_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121812 '18 '#f '#f)) + (##unchecked-structure-set! __obj121474 __tmp121971 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121474 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121474 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '() '20 '#f '#f)) - __obj121315)) + (##unchecked-structure-set! __obj121474 '() '20 '#f '#f)) + __obj121474)) (define |gx[:0:]#alias-binding| - (let ((__obj121316 + (let ((__obj121475 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121316 + __obj121475 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121475 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121475 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121819 (cons |gx[1]#_g121636_| '()))) + (##unchecked-structure-set! __obj121475 '(id key phi e) '6 '#f '#f)) + (let ((__tmp121978 (cons |gx[1]#_g121795_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121819 '3 '#f '#f)) + (##unchecked-structure-set! __obj121475 __tmp121978 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121475 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121475 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121475 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#f '11 '#f '#f)) - (let ((__tmp121820 |gx[1]#_g121821_|)) + (##unchecked-structure-set! __obj121475 '#f '11 '#f '#f)) + (let ((__tmp121979 |gx[1]#_g121980_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121820 '12 '#f '#f)) - (let ((__tmp121822 |gx[1]#_g121823_|)) + (##unchecked-structure-set! __obj121475 __tmp121979 '12 '#f '#f)) + (let ((__tmp121981 |gx[1]#_g121982_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121822 '13 '#f '#f)) - (let ((__tmp121824 |gx[1]#_g121825_|)) + (##unchecked-structure-set! __obj121475 __tmp121981 '13 '#f '#f)) + (let ((__tmp121983 |gx[1]#_g121984_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121824 '14 '#f '#f)) - (let ((__tmp121826 - (cons (cons 'e |gx[1]#_g121827_|) - (cons (cons 'id |gx[1]#_g121828_|) - (cons (cons 'key |gx[1]#_g121829_|) - (cons (cons 'phi |gx[1]#_g121830_|) '())))))) + (##unchecked-structure-set! __obj121475 __tmp121983 '14 '#f '#f)) + (let ((__tmp121985 + (cons (cons 'e |gx[1]#_g121986_|) + (cons (cons 'id |gx[1]#_g121987_|) + (cons (cons 'key |gx[1]#_g121988_|) + (cons (cons 'phi |gx[1]#_g121989_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121826 '15 '#f '#f)) - (let ((__tmp121831 - (cons (cons 'e |gx[1]#_g121832_|) - (cons (cons 'id |gx[1]#_g121833_|) - (cons (cons 'key |gx[1]#_g121834_|) - (cons (cons 'phi |gx[1]#_g121835_|) '())))))) + (##unchecked-structure-set! __obj121475 __tmp121985 '15 '#f '#f)) + (let ((__tmp121990 + (cons (cons 'e |gx[1]#_g121991_|) + (cons (cons 'id |gx[1]#_g121992_|) + (cons (cons 'key |gx[1]#_g121993_|) + (cons (cons 'phi |gx[1]#_g121994_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121831 '16 '#f '#f)) - (let ((__tmp121836 - (cons (cons 'e |gx[1]#_g121837_|) - (cons (cons 'id |gx[1]#_g121838_|) - (cons (cons 'key |gx[1]#_g121839_|) - (cons (cons 'phi |gx[1]#_g121840_|) '())))))) + (##unchecked-structure-set! __obj121475 __tmp121990 '16 '#f '#f)) + (let ((__tmp121995 + (cons (cons 'e |gx[1]#_g121996_|) + (cons (cons 'id |gx[1]#_g121997_|) + (cons (cons 'key |gx[1]#_g121998_|) + (cons (cons 'phi |gx[1]#_g121999_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121836 '17 '#f '#f)) - (let ((__tmp121841 - (cons (cons 'e |gx[1]#_g121842_|) - (cons (cons 'id |gx[1]#_g121843_|) - (cons (cons 'key |gx[1]#_g121844_|) - (cons (cons 'phi |gx[1]#_g121845_|) '())))))) + (##unchecked-structure-set! __obj121475 __tmp121995 '17 '#f '#f)) + (let ((__tmp122000 + (cons (cons 'e |gx[1]#_g122001_|) + (cons (cons 'id |gx[1]#_g122002_|) + (cons (cons 'key |gx[1]#_g122003_|) + (cons (cons 'phi |gx[1]#_g122004_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121841 '18 '#f '#f)) + (##unchecked-structure-set! __obj121475 __tmp122000 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121475 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121475 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '() '20 '#f '#f)) - __obj121316)) + (##unchecked-structure-set! __obj121475 '() '20 '#f '#f)) + __obj121475)) (define |gx[:0:]#expander| - (let ((__obj121317 + (let ((__obj121476 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121476 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121476 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121476 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj121476 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121476 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121476 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121476 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121476 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#f '11 '#f '#f)) - (let ((__tmp121846 |gx[1]#_g121847_|)) + (##unchecked-structure-set! __obj121476 '#f '11 '#f '#f)) + (let ((__tmp122005 |gx[1]#_g122006_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121846 '12 '#f '#f)) - (let ((__tmp121848 |gx[1]#_g121849_|)) + (##unchecked-structure-set! __obj121476 __tmp122005 '12 '#f '#f)) + (let ((__tmp122007 |gx[1]#_g122008_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121848 '13 '#f '#f)) - (let ((__tmp121850 |gx[1]#_g121851_|)) + (##unchecked-structure-set! __obj121476 __tmp122007 '13 '#f '#f)) + (let ((__tmp122009 |gx[1]#_g122010_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121850 '14 '#f '#f)) - (let ((__tmp121852 (cons (cons 'e |gx[1]#_g121853_|) '()))) + (##unchecked-structure-set! __obj121476 __tmp122009 '14 '#f '#f)) + (let ((__tmp122011 (cons (cons 'e |gx[1]#_g122012_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121852 '15 '#f '#f)) - (let ((__tmp121854 (cons (cons 'e |gx[1]#_g121855_|) '()))) + (##unchecked-structure-set! __obj121476 __tmp122011 '15 '#f '#f)) + (let ((__tmp122013 (cons (cons 'e |gx[1]#_g122014_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121854 '16 '#f '#f)) - (let ((__tmp121856 (cons (cons 'e |gx[1]#_g121857_|) '()))) + (##unchecked-structure-set! __obj121476 __tmp122013 '16 '#f '#f)) + (let ((__tmp122015 (cons (cons 'e |gx[1]#_g122016_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121856 '17 '#f '#f)) - (let ((__tmp121858 (cons (cons 'e |gx[1]#_g121859_|) '()))) + (##unchecked-structure-set! __obj121476 __tmp122015 '17 '#f '#f)) + (let ((__tmp122017 (cons (cons 'e |gx[1]#_g122018_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121858 '18 '#f '#f)) + (##unchecked-structure-set! __obj121476 __tmp122017 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121476 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121476 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '20 '#f '#f)) - __obj121317)) + (##unchecked-structure-set! __obj121476 '() '20 '#f '#f)) + __obj121476)) (define |gx[:0:]#core-expander| - (let ((__obj121318 + (let ((__obj121477 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121318 + __obj121477 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121477 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121318 + __obj121477 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121318 + __obj121477 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121860 (cons |gx[1]#_g121861_| '()))) + (let ((__tmp122019 (cons |gx[1]#_g122020_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121860 '3 '#f '#f)) + (##unchecked-structure-set! __obj121477 __tmp122019 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121477 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121477 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121477 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#f '11 '#f '#f)) - (let ((__tmp121862 |gx[1]#_g121863_|)) + (##unchecked-structure-set! __obj121477 '#f '11 '#f '#f)) + (let ((__tmp122021 |gx[1]#_g122022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121862 '12 '#f '#f)) - (let ((__tmp121864 |gx[1]#_g121865_|)) + (##unchecked-structure-set! __obj121477 __tmp122021 '12 '#f '#f)) + (let ((__tmp122023 |gx[1]#_g122024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121864 '13 '#f '#f)) - (let ((__tmp121866 |gx[1]#_g121867_|)) + (##unchecked-structure-set! __obj121477 __tmp122023 '13 '#f '#f)) + (let ((__tmp122025 |gx[1]#_g122026_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121866 '14 '#f '#f)) - (let ((__tmp121868 - (cons (cons 'id |gx[1]#_g121869_|) - (cons (cons 'compile-top |gx[1]#_g121870_|) - (cons (cons 'e |gx[1]#_g121871_|) '()))))) + (##unchecked-structure-set! __obj121477 __tmp122025 '14 '#f '#f)) + (let ((__tmp122027 + (cons (cons 'id |gx[1]#_g122028_|) + (cons (cons 'compile-top |gx[1]#_g122029_|) + (cons (cons 'e |gx[1]#_g122030_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121868 '15 '#f '#f)) - (let ((__tmp121872 - (cons (cons 'id |gx[1]#_g121873_|) - (cons (cons 'compile-top |gx[1]#_g121874_|) - (cons (cons 'e |gx[1]#_g121875_|) '()))))) + (##unchecked-structure-set! __obj121477 __tmp122027 '15 '#f '#f)) + (let ((__tmp122031 + (cons (cons 'id |gx[1]#_g122032_|) + (cons (cons 'compile-top |gx[1]#_g122033_|) + (cons (cons 'e |gx[1]#_g122034_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121872 '16 '#f '#f)) - (let ((__tmp121876 - (cons (cons 'id |gx[1]#_g121877_|) - (cons (cons 'compile-top |gx[1]#_g121878_|) - (cons (cons 'e |gx[1]#_g121879_|) '()))))) + (##unchecked-structure-set! __obj121477 __tmp122031 '16 '#f '#f)) + (let ((__tmp122035 + (cons (cons 'id |gx[1]#_g122036_|) + (cons (cons 'compile-top |gx[1]#_g122037_|) + (cons (cons 'e |gx[1]#_g122038_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121876 '17 '#f '#f)) - (let ((__tmp121880 - (cons (cons 'id |gx[1]#_g121881_|) - (cons (cons 'compile-top |gx[1]#_g121882_|) - (cons (cons 'e |gx[1]#_g121883_|) '()))))) + (##unchecked-structure-set! __obj121477 __tmp122035 '17 '#f '#f)) + (let ((__tmp122039 + (cons (cons 'id |gx[1]#_g122040_|) + (cons (cons 'compile-top |gx[1]#_g122041_|) + (cons (cons 'e |gx[1]#_g122042_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121880 '18 '#f '#f)) + (##unchecked-structure-set! __obj121477 __tmp122039 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121477 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121477 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '() '20 '#f '#f)) - __obj121318)) + (##unchecked-structure-set! __obj121477 '() '20 '#f '#f)) + __obj121477)) (define |gx[:0:]#expression-form| - (let ((__obj121319 + (let ((__obj121478 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121319 + __obj121478 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121478 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121478 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121319 + __obj121478 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121884 (cons |gx[1]#_g121885_| '()))) + (let ((__tmp122043 (cons |gx[1]#_g122044_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121884 '3 '#f '#f)) + (##unchecked-structure-set! __obj121478 __tmp122043 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121478 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121478 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121478 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#f '11 '#f '#f)) - (let ((__tmp121886 |gx[1]#_g121887_|)) + (##unchecked-structure-set! __obj121478 '#f '11 '#f '#f)) + (let ((__tmp122045 |gx[1]#_g122046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121886 '12 '#f '#f)) - (let ((__tmp121888 |gx[1]#_g121889_|)) + (##unchecked-structure-set! __obj121478 __tmp122045 '12 '#f '#f)) + (let ((__tmp122047 |gx[1]#_g122048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121888 '13 '#f '#f)) - (let ((__tmp121890 |gx[1]#_g121891_|)) + (##unchecked-structure-set! __obj121478 __tmp122047 '13 '#f '#f)) + (let ((__tmp122049 |gx[1]#_g122050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121890 '14 '#f '#f)) - (let ((__tmp121892 - (cons (cons 'id |gx[1]#_g121893_|) - (cons (cons 'compile-top |gx[1]#_g121894_|) - (cons (cons 'e |gx[1]#_g121895_|) '()))))) + (##unchecked-structure-set! __obj121478 __tmp122049 '14 '#f '#f)) + (let ((__tmp122051 + (cons (cons 'id |gx[1]#_g122052_|) + (cons (cons 'compile-top |gx[1]#_g122053_|) + (cons (cons 'e |gx[1]#_g122054_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121892 '15 '#f '#f)) - (let ((__tmp121896 - (cons (cons 'id |gx[1]#_g121897_|) - (cons (cons 'compile-top |gx[1]#_g121898_|) - (cons (cons 'e |gx[1]#_g121899_|) '()))))) + (##unchecked-structure-set! __obj121478 __tmp122051 '15 '#f '#f)) + (let ((__tmp122055 + (cons (cons 'id |gx[1]#_g122056_|) + (cons (cons 'compile-top |gx[1]#_g122057_|) + (cons (cons 'e |gx[1]#_g122058_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121896 '16 '#f '#f)) - (let ((__tmp121900 - (cons (cons 'id |gx[1]#_g121901_|) - (cons (cons 'compile-top |gx[1]#_g121902_|) - (cons (cons 'e |gx[1]#_g121903_|) '()))))) + (##unchecked-structure-set! __obj121478 __tmp122055 '16 '#f '#f)) + (let ((__tmp122059 + (cons (cons 'id |gx[1]#_g122060_|) + (cons (cons 'compile-top |gx[1]#_g122061_|) + (cons (cons 'e |gx[1]#_g122062_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121900 '17 '#f '#f)) - (let ((__tmp121904 - (cons (cons 'id |gx[1]#_g121905_|) - (cons (cons 'compile-top |gx[1]#_g121906_|) - (cons (cons 'e |gx[1]#_g121907_|) '()))))) + (##unchecked-structure-set! __obj121478 __tmp122059 '17 '#f '#f)) + (let ((__tmp122063 + (cons (cons 'id |gx[1]#_g122064_|) + (cons (cons 'compile-top |gx[1]#_g122065_|) + (cons (cons 'e |gx[1]#_g122066_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121904 '18 '#f '#f)) + (##unchecked-structure-set! __obj121478 __tmp122063 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121478 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121478 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '20 '#f '#f)) - __obj121319)) + (##unchecked-structure-set! __obj121478 '() '20 '#f '#f)) + __obj121478)) (define |gx[:0:]#special-form| - (let ((__obj121320 + (let ((__obj121479 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121320 + __obj121479 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121479 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121479 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121320 + __obj121479 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121908 (cons |gx[1]#_g121885_| '()))) + (let ((__tmp122067 (cons |gx[1]#_g122044_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121908 '3 '#f '#f)) + (##unchecked-structure-set! __obj121479 __tmp122067 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121479 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121479 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121479 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#f '11 '#f '#f)) - (let ((__tmp121909 |gx[1]#_g121910_|)) + (##unchecked-structure-set! __obj121479 '#f '11 '#f '#f)) + (let ((__tmp122068 |gx[1]#_g122069_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121909 '12 '#f '#f)) - (let ((__tmp121911 |gx[1]#_g121912_|)) + (##unchecked-structure-set! __obj121479 __tmp122068 '12 '#f '#f)) + (let ((__tmp122070 |gx[1]#_g122071_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121911 '13 '#f '#f)) - (let ((__tmp121913 |gx[1]#_g121914_|)) + (##unchecked-structure-set! __obj121479 __tmp122070 '13 '#f '#f)) + (let ((__tmp122072 |gx[1]#_g122073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121913 '14 '#f '#f)) - (let ((__tmp121915 - (cons (cons 'id |gx[1]#_g121916_|) - (cons (cons 'compile-top |gx[1]#_g121917_|) - (cons (cons 'e |gx[1]#_g121918_|) '()))))) + (##unchecked-structure-set! __obj121479 __tmp122072 '14 '#f '#f)) + (let ((__tmp122074 + (cons (cons 'id |gx[1]#_g122075_|) + (cons (cons 'compile-top |gx[1]#_g122076_|) + (cons (cons 'e |gx[1]#_g122077_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121915 '15 '#f '#f)) - (let ((__tmp121919 - (cons (cons 'id |gx[1]#_g121920_|) - (cons (cons 'compile-top |gx[1]#_g121921_|) - (cons (cons 'e |gx[1]#_g121922_|) '()))))) + (##unchecked-structure-set! __obj121479 __tmp122074 '15 '#f '#f)) + (let ((__tmp122078 + (cons (cons 'id |gx[1]#_g122079_|) + (cons (cons 'compile-top |gx[1]#_g122080_|) + (cons (cons 'e |gx[1]#_g122081_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121919 '16 '#f '#f)) - (let ((__tmp121923 - (cons (cons 'id |gx[1]#_g121924_|) - (cons (cons 'compile-top |gx[1]#_g121925_|) - (cons (cons 'e |gx[1]#_g121926_|) '()))))) + (##unchecked-structure-set! __obj121479 __tmp122078 '16 '#f '#f)) + (let ((__tmp122082 + (cons (cons 'id |gx[1]#_g122083_|) + (cons (cons 'compile-top |gx[1]#_g122084_|) + (cons (cons 'e |gx[1]#_g122085_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121923 '17 '#f '#f)) - (let ((__tmp121927 - (cons (cons 'id |gx[1]#_g121928_|) - (cons (cons 'compile-top |gx[1]#_g121929_|) - (cons (cons 'e |gx[1]#_g121930_|) '()))))) + (##unchecked-structure-set! __obj121479 __tmp122082 '17 '#f '#f)) + (let ((__tmp122086 + (cons (cons 'id |gx[1]#_g122087_|) + (cons (cons 'compile-top |gx[1]#_g122088_|) + (cons (cons 'e |gx[1]#_g122089_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121927 '18 '#f '#f)) + (##unchecked-structure-set! __obj121479 __tmp122086 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121479 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121479 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '20 '#f '#f)) - __obj121320)) + (##unchecked-structure-set! __obj121479 '() '20 '#f '#f)) + __obj121479)) (define |gx[:0:]#definition-form| - (let ((__obj121321 + (let ((__obj121480 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121321 + __obj121480 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121480 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121480 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121321 + __obj121480 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121931 (cons |gx[1]#_g121932_| '()))) + (let ((__tmp122090 (cons |gx[1]#_g122091_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121931 '3 '#f '#f)) + (##unchecked-structure-set! __obj121480 __tmp122090 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121480 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121480 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121480 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#f '11 '#f '#f)) - (let ((__tmp121933 |gx[1]#_g121934_|)) + (##unchecked-structure-set! __obj121480 '#f '11 '#f '#f)) + (let ((__tmp122092 |gx[1]#_g122093_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121933 '12 '#f '#f)) - (let ((__tmp121935 |gx[1]#_g121936_|)) + (##unchecked-structure-set! __obj121480 __tmp122092 '12 '#f '#f)) + (let ((__tmp122094 |gx[1]#_g122095_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121935 '13 '#f '#f)) - (let ((__tmp121937 |gx[1]#_g121938_|)) + (##unchecked-structure-set! __obj121480 __tmp122094 '13 '#f '#f)) + (let ((__tmp122096 |gx[1]#_g122097_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121937 '14 '#f '#f)) - (let ((__tmp121939 - (cons (cons 'id |gx[1]#_g121940_|) - (cons (cons 'compile-top |gx[1]#_g121941_|) - (cons (cons 'e |gx[1]#_g121942_|) '()))))) + (##unchecked-structure-set! __obj121480 __tmp122096 '14 '#f '#f)) + (let ((__tmp122098 + (cons (cons 'id |gx[1]#_g122099_|) + (cons (cons 'compile-top |gx[1]#_g122100_|) + (cons (cons 'e |gx[1]#_g122101_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121939 '15 '#f '#f)) - (let ((__tmp121943 - (cons (cons 'id |gx[1]#_g121944_|) - (cons (cons 'compile-top |gx[1]#_g121945_|) - (cons (cons 'e |gx[1]#_g121946_|) '()))))) + (##unchecked-structure-set! __obj121480 __tmp122098 '15 '#f '#f)) + (let ((__tmp122102 + (cons (cons 'id |gx[1]#_g122103_|) + (cons (cons 'compile-top |gx[1]#_g122104_|) + (cons (cons 'e |gx[1]#_g122105_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121943 '16 '#f '#f)) - (let ((__tmp121947 - (cons (cons 'id |gx[1]#_g121948_|) - (cons (cons 'compile-top |gx[1]#_g121949_|) - (cons (cons 'e |gx[1]#_g121950_|) '()))))) + (##unchecked-structure-set! __obj121480 __tmp122102 '16 '#f '#f)) + (let ((__tmp122106 + (cons (cons 'id |gx[1]#_g122107_|) + (cons (cons 'compile-top |gx[1]#_g122108_|) + (cons (cons 'e |gx[1]#_g122109_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121947 '17 '#f '#f)) - (let ((__tmp121951 - (cons (cons 'id |gx[1]#_g121952_|) - (cons (cons 'compile-top |gx[1]#_g121953_|) - (cons (cons 'e |gx[1]#_g121954_|) '()))))) + (##unchecked-structure-set! __obj121480 __tmp122106 '17 '#f '#f)) + (let ((__tmp122110 + (cons (cons 'id |gx[1]#_g122111_|) + (cons (cons 'compile-top |gx[1]#_g122112_|) + (cons (cons 'e |gx[1]#_g122113_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121951 '18 '#f '#f)) + (##unchecked-structure-set! __obj121480 __tmp122110 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121480 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121480 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '20 '#f '#f)) - __obj121321)) + (##unchecked-structure-set! __obj121480 '() '20 '#f '#f)) + __obj121480)) (define |gx[:0:]#top-special-form| - (let ((__obj121322 + (let ((__obj121481 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121322 + __obj121481 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121322 + __obj121481 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121481 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121322 + __obj121481 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121955 (cons |gx[1]#_g121932_| '()))) + (let ((__tmp122114 (cons |gx[1]#_g122091_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121955 '3 '#f '#f)) + (##unchecked-structure-set! __obj121481 __tmp122114 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121481 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121481 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121481 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#f '11 '#f '#f)) - (let ((__tmp121956 |gx[1]#_g121957_|)) + (##unchecked-structure-set! __obj121481 '#f '11 '#f '#f)) + (let ((__tmp122115 |gx[1]#_g122116_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121956 '12 '#f '#f)) - (let ((__tmp121958 |gx[1]#_g121959_|)) + (##unchecked-structure-set! __obj121481 __tmp122115 '12 '#f '#f)) + (let ((__tmp122117 |gx[1]#_g122118_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121958 '13 '#f '#f)) - (let ((__tmp121960 |gx[1]#_g121961_|)) + (##unchecked-structure-set! __obj121481 __tmp122117 '13 '#f '#f)) + (let ((__tmp122119 |gx[1]#_g122120_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121960 '14 '#f '#f)) - (let ((__tmp121962 - (cons (cons 'id |gx[1]#_g121963_|) - (cons (cons 'compile-top |gx[1]#_g121964_|) - (cons (cons 'e |gx[1]#_g121965_|) '()))))) + (##unchecked-structure-set! __obj121481 __tmp122119 '14 '#f '#f)) + (let ((__tmp122121 + (cons (cons 'id |gx[1]#_g122122_|) + (cons (cons 'compile-top |gx[1]#_g122123_|) + (cons (cons 'e |gx[1]#_g122124_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121962 '15 '#f '#f)) - (let ((__tmp121966 - (cons (cons 'id |gx[1]#_g121967_|) - (cons (cons 'compile-top |gx[1]#_g121968_|) - (cons (cons 'e |gx[1]#_g121969_|) '()))))) + (##unchecked-structure-set! __obj121481 __tmp122121 '15 '#f '#f)) + (let ((__tmp122125 + (cons (cons 'id |gx[1]#_g122126_|) + (cons (cons 'compile-top |gx[1]#_g122127_|) + (cons (cons 'e |gx[1]#_g122128_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121966 '16 '#f '#f)) - (let ((__tmp121970 - (cons (cons 'id |gx[1]#_g121971_|) - (cons (cons 'compile-top |gx[1]#_g121972_|) - (cons (cons 'e |gx[1]#_g121973_|) '()))))) + (##unchecked-structure-set! __obj121481 __tmp122125 '16 '#f '#f)) + (let ((__tmp122129 + (cons (cons 'id |gx[1]#_g122130_|) + (cons (cons 'compile-top |gx[1]#_g122131_|) + (cons (cons 'e |gx[1]#_g122132_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121970 '17 '#f '#f)) - (let ((__tmp121974 - (cons (cons 'id |gx[1]#_g121975_|) - (cons (cons 'compile-top |gx[1]#_g121976_|) - (cons (cons 'e |gx[1]#_g121977_|) '()))))) + (##unchecked-structure-set! __obj121481 __tmp122129 '17 '#f '#f)) + (let ((__tmp122133 + (cons (cons 'id |gx[1]#_g122134_|) + (cons (cons 'compile-top |gx[1]#_g122135_|) + (cons (cons 'e |gx[1]#_g122136_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121974 '18 '#f '#f)) + (##unchecked-structure-set! __obj121481 __tmp122133 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121481 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121481 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '20 '#f '#f)) - __obj121322)) + (##unchecked-structure-set! __obj121481 '() '20 '#f '#f)) + __obj121481)) (define |gx[:0:]#module-special-form| - (let ((__obj121323 + (let ((__obj121482 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121323 + __obj121482 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121323 + __obj121482 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121482 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121323 + __obj121482 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121978 (cons |gx[1]#_g121979_| '()))) + (let ((__tmp122137 (cons |gx[1]#_g122138_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121978 '3 '#f '#f)) + (##unchecked-structure-set! __obj121482 __tmp122137 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121482 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121482 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121482 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#f '11 '#f '#f)) - (let ((__tmp121980 |gx[1]#_g121981_|)) + (##unchecked-structure-set! __obj121482 '#f '11 '#f '#f)) + (let ((__tmp122139 |gx[1]#_g122140_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121980 '12 '#f '#f)) - (let ((__tmp121982 |gx[1]#_g121983_|)) + (##unchecked-structure-set! __obj121482 __tmp122139 '12 '#f '#f)) + (let ((__tmp122141 |gx[1]#_g122142_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121982 '13 '#f '#f)) - (let ((__tmp121984 |gx[1]#_g121985_|)) + (##unchecked-structure-set! __obj121482 __tmp122141 '13 '#f '#f)) + (let ((__tmp122143 |gx[1]#_g122144_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121984 '14 '#f '#f)) - (let ((__tmp121986 - (cons (cons 'id |gx[1]#_g121987_|) - (cons (cons 'compile-top |gx[1]#_g121988_|) - (cons (cons 'e |gx[1]#_g121989_|) '()))))) + (##unchecked-structure-set! __obj121482 __tmp122143 '14 '#f '#f)) + (let ((__tmp122145 + (cons (cons 'id |gx[1]#_g122146_|) + (cons (cons 'compile-top |gx[1]#_g122147_|) + (cons (cons 'e |gx[1]#_g122148_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121986 '15 '#f '#f)) - (let ((__tmp121990 - (cons (cons 'id |gx[1]#_g121991_|) - (cons (cons 'compile-top |gx[1]#_g121992_|) - (cons (cons 'e |gx[1]#_g121993_|) '()))))) + (##unchecked-structure-set! __obj121482 __tmp122145 '15 '#f '#f)) + (let ((__tmp122149 + (cons (cons 'id |gx[1]#_g122150_|) + (cons (cons 'compile-top |gx[1]#_g122151_|) + (cons (cons 'e |gx[1]#_g122152_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121990 '16 '#f '#f)) - (let ((__tmp121994 - (cons (cons 'id |gx[1]#_g121995_|) - (cons (cons 'compile-top |gx[1]#_g121996_|) - (cons (cons 'e |gx[1]#_g121997_|) '()))))) + (##unchecked-structure-set! __obj121482 __tmp122149 '16 '#f '#f)) + (let ((__tmp122153 + (cons (cons 'id |gx[1]#_g122154_|) + (cons (cons 'compile-top |gx[1]#_g122155_|) + (cons (cons 'e |gx[1]#_g122156_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121994 '17 '#f '#f)) - (let ((__tmp121998 - (cons (cons 'id |gx[1]#_g121999_|) - (cons (cons 'compile-top |gx[1]#_g122000_|) - (cons (cons 'e |gx[1]#_g122001_|) '()))))) + (##unchecked-structure-set! __obj121482 __tmp122153 '17 '#f '#f)) + (let ((__tmp122157 + (cons (cons 'id |gx[1]#_g122158_|) + (cons (cons 'compile-top |gx[1]#_g122159_|) + (cons (cons 'e |gx[1]#_g122160_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121998 '18 '#f '#f)) + (##unchecked-structure-set! __obj121482 __tmp122157 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121482 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121482 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '20 '#f '#f)) - __obj121323)) + (##unchecked-structure-set! __obj121482 '() '20 '#f '#f)) + __obj121482)) (define |gx[:0:]#feature-expander| - (let ((__obj121324 + (let ((__obj121483 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121324 + __obj121483 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121324 + __obj121483 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121483 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '(e) '6 '#f '#f)) - (let ((__tmp122002 (cons |gx[1]#_g121861_| '()))) + (##unchecked-structure-set! __obj121483 '(e) '6 '#f '#f)) + (let ((__tmp122161 (cons |gx[1]#_g122020_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122002 '3 '#f '#f)) + (##unchecked-structure-set! __obj121483 __tmp122161 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121483 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121483 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121483 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#f '11 '#f '#f)) - (let ((__tmp122003 |gx[1]#_g122004_|)) + (##unchecked-structure-set! __obj121483 '#f '11 '#f '#f)) + (let ((__tmp122162 |gx[1]#_g122163_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122003 '12 '#f '#f)) - (let ((__tmp122005 |gx[1]#_g122006_|)) + (##unchecked-structure-set! __obj121483 __tmp122162 '12 '#f '#f)) + (let ((__tmp122164 |gx[1]#_g122165_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122005 '13 '#f '#f)) - (let ((__tmp122007 |gx[1]#_g122008_|)) + (##unchecked-structure-set! __obj121483 __tmp122164 '13 '#f '#f)) + (let ((__tmp122166 |gx[1]#_g122167_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122007 '14 '#f '#f)) - (let ((__tmp122009 (cons (cons 'e |gx[1]#_g122010_|) '()))) + (##unchecked-structure-set! __obj121483 __tmp122166 '14 '#f '#f)) + (let ((__tmp122168 (cons (cons 'e |gx[1]#_g122169_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122009 '15 '#f '#f)) - (let ((__tmp122011 (cons (cons 'e |gx[1]#_g122012_|) '()))) + (##unchecked-structure-set! __obj121483 __tmp122168 '15 '#f '#f)) + (let ((__tmp122170 (cons (cons 'e |gx[1]#_g122171_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122011 '16 '#f '#f)) - (let ((__tmp122013 (cons (cons 'e |gx[1]#_g122014_|) '()))) + (##unchecked-structure-set! __obj121483 __tmp122170 '16 '#f '#f)) + (let ((__tmp122172 (cons (cons 'e |gx[1]#_g122173_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122013 '17 '#f '#f)) - (let ((__tmp122015 (cons (cons 'e |gx[1]#_g122016_|) '()))) + (##unchecked-structure-set! __obj121483 __tmp122172 '17 '#f '#f)) + (let ((__tmp122174 (cons (cons 'e |gx[1]#_g122175_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122015 '18 '#f '#f)) + (##unchecked-structure-set! __obj121483 __tmp122174 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121483 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121483 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '20 '#f '#f)) - __obj121324)) + (##unchecked-structure-set! __obj121483 '() '20 '#f '#f)) + __obj121483)) (define |gx[:0:]#private-feature-expander| - (let ((__obj121325 + (let ((__obj121484 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121325 + __obj121484 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121325 + __obj121484 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121484 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '(e) '6 '#f '#f)) - (let ((__tmp122017 (cons |gx[1]#_g122018_| '()))) + (##unchecked-structure-set! __obj121484 '(e) '6 '#f '#f)) + (let ((__tmp122176 (cons |gx[1]#_g122177_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122017 '3 '#f '#f)) + (##unchecked-structure-set! __obj121484 __tmp122176 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121484 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121484 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121484 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#f '11 '#f '#f)) - (let ((__tmp122019 |gx[1]#_g122020_|)) + (##unchecked-structure-set! __obj121484 '#f '11 '#f '#f)) + (let ((__tmp122178 |gx[1]#_g122179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122019 '12 '#f '#f)) - (let ((__tmp122021 |gx[1]#_g122022_|)) + (##unchecked-structure-set! __obj121484 __tmp122178 '12 '#f '#f)) + (let ((__tmp122180 |gx[1]#_g122181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122021 '13 '#f '#f)) - (let ((__tmp122023 |gx[1]#_g122024_|)) + (##unchecked-structure-set! __obj121484 __tmp122180 '13 '#f '#f)) + (let ((__tmp122182 |gx[1]#_g122183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122023 '14 '#f '#f)) - (let ((__tmp122025 (cons (cons 'e |gx[1]#_g122026_|) '()))) + (##unchecked-structure-set! __obj121484 __tmp122182 '14 '#f '#f)) + (let ((__tmp122184 (cons (cons 'e |gx[1]#_g122185_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122025 '15 '#f '#f)) - (let ((__tmp122027 (cons (cons 'e |gx[1]#_g122028_|) '()))) + (##unchecked-structure-set! __obj121484 __tmp122184 '15 '#f '#f)) + (let ((__tmp122186 (cons (cons 'e |gx[1]#_g122187_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122027 '16 '#f '#f)) - (let ((__tmp122029 (cons (cons 'e |gx[1]#_g122030_|) '()))) + (##unchecked-structure-set! __obj121484 __tmp122186 '16 '#f '#f)) + (let ((__tmp122188 (cons (cons 'e |gx[1]#_g122189_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122029 '17 '#f '#f)) - (let ((__tmp122031 (cons (cons 'e |gx[1]#_g122032_|) '()))) + (##unchecked-structure-set! __obj121484 __tmp122188 '17 '#f '#f)) + (let ((__tmp122190 (cons (cons 'e |gx[1]#_g122191_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122031 '18 '#f '#f)) + (##unchecked-structure-set! __obj121484 __tmp122190 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121484 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121484 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '20 '#f '#f)) - __obj121325)) + (##unchecked-structure-set! __obj121484 '() '20 '#f '#f)) + __obj121484)) (define |gx[:0:]#reserved-expander| - (let ((__obj121326 + (let ((__obj121485 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121326 + __obj121485 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121326 + __obj121485 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121485 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '(e) '6 '#f '#f)) - (let ((__tmp122033 (cons |gx[1]#_g121861_| '()))) + (##unchecked-structure-set! __obj121485 '(e) '6 '#f '#f)) + (let ((__tmp122192 (cons |gx[1]#_g122020_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122033 '3 '#f '#f)) + (##unchecked-structure-set! __obj121485 __tmp122192 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121485 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121485 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121485 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#f '11 '#f '#f)) - (let ((__tmp122034 |gx[1]#_g122035_|)) + (##unchecked-structure-set! __obj121485 '#f '11 '#f '#f)) + (let ((__tmp122193 |gx[1]#_g122194_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122034 '12 '#f '#f)) - (let ((__tmp122036 |gx[1]#_g122037_|)) + (##unchecked-structure-set! __obj121485 __tmp122193 '12 '#f '#f)) + (let ((__tmp122195 |gx[1]#_g122196_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122036 '13 '#f '#f)) - (let ((__tmp122038 |gx[1]#_g122039_|)) + (##unchecked-structure-set! __obj121485 __tmp122195 '13 '#f '#f)) + (let ((__tmp122197 |gx[1]#_g122198_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122038 '14 '#f '#f)) - (let ((__tmp122040 (cons (cons 'e |gx[1]#_g122041_|) '()))) + (##unchecked-structure-set! __obj121485 __tmp122197 '14 '#f '#f)) + (let ((__tmp122199 (cons (cons 'e |gx[1]#_g122200_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122040 '15 '#f '#f)) - (let ((__tmp122042 (cons (cons 'e |gx[1]#_g122043_|) '()))) + (##unchecked-structure-set! __obj121485 __tmp122199 '15 '#f '#f)) + (let ((__tmp122201 (cons (cons 'e |gx[1]#_g122202_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122042 '16 '#f '#f)) - (let ((__tmp122044 (cons (cons 'e |gx[1]#_g122045_|) '()))) + (##unchecked-structure-set! __obj121485 __tmp122201 '16 '#f '#f)) + (let ((__tmp122203 (cons (cons 'e |gx[1]#_g122204_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122044 '17 '#f '#f)) - (let ((__tmp122046 (cons (cons 'e |gx[1]#_g122047_|) '()))) + (##unchecked-structure-set! __obj121485 __tmp122203 '17 '#f '#f)) + (let ((__tmp122205 (cons (cons 'e |gx[1]#_g122206_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122046 '18 '#f '#f)) + (##unchecked-structure-set! __obj121485 __tmp122205 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121485 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121485 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '20 '#f '#f)) - __obj121326)) + (##unchecked-structure-set! __obj121485 '() '20 '#f '#f)) + __obj121485)) (define |gx[:0:]#macro-expander| - (let ((__obj121327 + (let ((__obj121486 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121327 + __obj121486 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121486 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121486 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '(e) '6 '#f '#f)) - (let ((__tmp122048 (cons |gx[1]#_g121861_| '()))) + (##unchecked-structure-set! __obj121486 '(e) '6 '#f '#f)) + (let ((__tmp122207 (cons |gx[1]#_g122020_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122048 '3 '#f '#f)) + (##unchecked-structure-set! __obj121486 __tmp122207 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121486 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121486 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121486 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#f '11 '#f '#f)) - (let ((__tmp122049 |gx[1]#_g122050_|)) + (##unchecked-structure-set! __obj121486 '#f '11 '#f '#f)) + (let ((__tmp122208 |gx[1]#_g122209_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122049 '12 '#f '#f)) - (let ((__tmp122051 |gx[1]#_g122052_|)) + (##unchecked-structure-set! __obj121486 __tmp122208 '12 '#f '#f)) + (let ((__tmp122210 |gx[1]#_g122211_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122051 '13 '#f '#f)) - (let ((__tmp122053 |gx[1]#_g122054_|)) + (##unchecked-structure-set! __obj121486 __tmp122210 '13 '#f '#f)) + (let ((__tmp122212 |gx[1]#_g122213_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122053 '14 '#f '#f)) - (let ((__tmp122055 (cons (cons 'e |gx[1]#_g122056_|) '()))) + (##unchecked-structure-set! __obj121486 __tmp122212 '14 '#f '#f)) + (let ((__tmp122214 (cons (cons 'e |gx[1]#_g122215_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122055 '15 '#f '#f)) - (let ((__tmp122057 (cons (cons 'e |gx[1]#_g122058_|) '()))) + (##unchecked-structure-set! __obj121486 __tmp122214 '15 '#f '#f)) + (let ((__tmp122216 (cons (cons 'e |gx[1]#_g122217_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122057 '16 '#f '#f)) - (let ((__tmp122059 (cons (cons 'e |gx[1]#_g122060_|) '()))) + (##unchecked-structure-set! __obj121486 __tmp122216 '16 '#f '#f)) + (let ((__tmp122218 (cons (cons 'e |gx[1]#_g122219_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122059 '17 '#f '#f)) - (let ((__tmp122061 (cons (cons 'e |gx[1]#_g122062_|) '()))) + (##unchecked-structure-set! __obj121486 __tmp122218 '17 '#f '#f)) + (let ((__tmp122220 (cons (cons 'e |gx[1]#_g122221_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122061 '18 '#f '#f)) + (##unchecked-structure-set! __obj121486 __tmp122220 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121486 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121486 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '20 '#f '#f)) - __obj121327)) + (##unchecked-structure-set! __obj121486 '() '20 '#f '#f)) + __obj121486)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj121328 + (let ((__obj121487 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121328 + __obj121487 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121328 + __obj121487 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121487 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '(e) '6 '#f '#f)) - (let ((__tmp122063 (cons |gx[1]#_g122064_| '()))) + (##unchecked-structure-set! __obj121487 '(e) '6 '#f '#f)) + (let ((__tmp122222 (cons |gx[1]#_g122223_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122063 '3 '#f '#f)) + (##unchecked-structure-set! __obj121487 __tmp122222 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121487 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121487 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121487 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#f '11 '#f '#f)) - (let ((__tmp122065 |gx[1]#_g122066_|)) + (##unchecked-structure-set! __obj121487 '#f '11 '#f '#f)) + (let ((__tmp122224 |gx[1]#_g122225_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122065 '12 '#f '#f)) - (let ((__tmp122067 |gx[1]#_g122068_|)) + (##unchecked-structure-set! __obj121487 __tmp122224 '12 '#f '#f)) + (let ((__tmp122226 |gx[1]#_g122227_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122067 '13 '#f '#f)) - (let ((__tmp122069 |gx[1]#_g122070_|)) + (##unchecked-structure-set! __obj121487 __tmp122226 '13 '#f '#f)) + (let ((__tmp122228 |gx[1]#_g122229_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122069 '14 '#f '#f)) - (let ((__tmp122071 (cons (cons 'e |gx[1]#_g122072_|) '()))) + (##unchecked-structure-set! __obj121487 __tmp122228 '14 '#f '#f)) + (let ((__tmp122230 (cons (cons 'e |gx[1]#_g122231_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122071 '15 '#f '#f)) - (let ((__tmp122073 (cons (cons 'e |gx[1]#_g122074_|) '()))) + (##unchecked-structure-set! __obj121487 __tmp122230 '15 '#f '#f)) + (let ((__tmp122232 (cons (cons 'e |gx[1]#_g122233_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122073 '16 '#f '#f)) - (let ((__tmp122075 (cons (cons 'e |gx[1]#_g122076_|) '()))) + (##unchecked-structure-set! __obj121487 __tmp122232 '16 '#f '#f)) + (let ((__tmp122234 (cons (cons 'e |gx[1]#_g122235_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122075 '17 '#f '#f)) - (let ((__tmp122077 (cons (cons 'e |gx[1]#_g122078_|) '()))) + (##unchecked-structure-set! __obj121487 __tmp122234 '17 '#f '#f)) + (let ((__tmp122236 (cons (cons 'e |gx[1]#_g122237_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122077 '18 '#f '#f)) + (##unchecked-structure-set! __obj121487 __tmp122236 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121487 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121487 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '20 '#f '#f)) - __obj121328)) + (##unchecked-structure-set! __obj121487 '() '20 '#f '#f)) + __obj121487)) (define |gx[:0:]#user-expander| - (let ((__obj121329 + (let ((__obj121488 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121329 + __obj121488 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121488 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121488 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '(e context phi) '6 '#f '#f)) - (let ((__tmp122079 (cons |gx[1]#_g122064_| '()))) + (##unchecked-structure-set! __obj121488 '(e context phi) '6 '#f '#f)) + (let ((__tmp122238 (cons |gx[1]#_g122223_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122079 '3 '#f '#f)) + (##unchecked-structure-set! __obj121488 __tmp122238 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121488 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121488 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121488 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#f '11 '#f '#f)) - (let ((__tmp122080 |gx[1]#_g122081_|)) + (##unchecked-structure-set! __obj121488 '#f '11 '#f '#f)) + (let ((__tmp122239 |gx[1]#_g122240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122080 '12 '#f '#f)) - (let ((__tmp122082 |gx[1]#_g122083_|)) + (##unchecked-structure-set! __obj121488 __tmp122239 '12 '#f '#f)) + (let ((__tmp122241 |gx[1]#_g122242_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122082 '13 '#f '#f)) - (let ((__tmp122084 |gx[1]#_g122085_|)) + (##unchecked-structure-set! __obj121488 __tmp122241 '13 '#f '#f)) + (let ((__tmp122243 |gx[1]#_g122244_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122084 '14 '#f '#f)) - (let ((__tmp122086 - (cons (cons 'context |gx[1]#_g122087_|) - (cons (cons 'phi |gx[1]#_g122088_|) - (cons (cons 'e |gx[1]#_g122089_|) '()))))) + (##unchecked-structure-set! __obj121488 __tmp122243 '14 '#f '#f)) + (let ((__tmp122245 + (cons (cons 'context |gx[1]#_g122246_|) + (cons (cons 'phi |gx[1]#_g122247_|) + (cons (cons 'e |gx[1]#_g122248_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122086 '15 '#f '#f)) - (let ((__tmp122090 - (cons (cons 'context |gx[1]#_g122091_|) - (cons (cons 'phi |gx[1]#_g122092_|) - (cons (cons 'e |gx[1]#_g122093_|) '()))))) + (##unchecked-structure-set! __obj121488 __tmp122245 '15 '#f '#f)) + (let ((__tmp122249 + (cons (cons 'context |gx[1]#_g122250_|) + (cons (cons 'phi |gx[1]#_g122251_|) + (cons (cons 'e |gx[1]#_g122252_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122090 '16 '#f '#f)) - (let ((__tmp122094 - (cons (cons 'context |gx[1]#_g122095_|) - (cons (cons 'phi |gx[1]#_g122096_|) - (cons (cons 'e |gx[1]#_g122097_|) '()))))) + (##unchecked-structure-set! __obj121488 __tmp122249 '16 '#f '#f)) + (let ((__tmp122253 + (cons (cons 'context |gx[1]#_g122254_|) + (cons (cons 'phi |gx[1]#_g122255_|) + (cons (cons 'e |gx[1]#_g122256_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122094 '17 '#f '#f)) - (let ((__tmp122098 - (cons (cons 'context |gx[1]#_g122099_|) - (cons (cons 'phi |gx[1]#_g122100_|) - (cons (cons 'e |gx[1]#_g122101_|) '()))))) + (##unchecked-structure-set! __obj121488 __tmp122253 '17 '#f '#f)) + (let ((__tmp122257 + (cons (cons 'context |gx[1]#_g122258_|) + (cons (cons 'phi |gx[1]#_g122259_|) + (cons (cons 'e |gx[1]#_g122260_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122098 '18 '#f '#f)) + (##unchecked-structure-set! __obj121488 __tmp122257 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121488 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121488 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '() '20 '#f '#f)) - __obj121329)) + (##unchecked-structure-set! __obj121488 '() '20 '#f '#f)) + __obj121488)) (define |gx[:0:]#expander-mark| - (let ((__obj121330 + (let ((__obj121489 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121330 + __obj121489 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj121489 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121330 + __obj121489 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121330 + __obj121489 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121489 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121489 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121489 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121489 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#f '11 '#f '#f)) - (let ((__tmp122102 |gx[1]#_g122103_|)) + (##unchecked-structure-set! __obj121489 '#f '11 '#f '#f)) + (let ((__tmp122261 |gx[1]#_g122262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122102 '12 '#f '#f)) - (let ((__tmp122104 |gx[1]#_g122105_|)) + (##unchecked-structure-set! __obj121489 __tmp122261 '12 '#f '#f)) + (let ((__tmp122263 |gx[1]#_g122264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122104 '13 '#f '#f)) - (let ((__tmp122106 |gx[1]#_g122107_|)) + (##unchecked-structure-set! __obj121489 __tmp122263 '13 '#f '#f)) + (let ((__tmp122265 |gx[1]#_g122266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122106 '14 '#f '#f)) - (let ((__tmp122108 - (cons (cons 'subst |gx[1]#_g122109_|) - (cons (cons 'context |gx[1]#_g122110_|) - (cons (cons 'phi |gx[1]#_g122111_|) - (cons (cons 'trace |gx[1]#_g122112_|) + (##unchecked-structure-set! __obj121489 __tmp122265 '14 '#f '#f)) + (let ((__tmp122267 + (cons (cons 'subst |gx[1]#_g122268_|) + (cons (cons 'context |gx[1]#_g122269_|) + (cons (cons 'phi |gx[1]#_g122270_|) + (cons (cons 'trace |gx[1]#_g122271_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122108 '15 '#f '#f)) - (let ((__tmp122113 - (cons (cons 'subst |gx[1]#_g122114_|) - (cons (cons 'context |gx[1]#_g122115_|) - (cons (cons 'phi |gx[1]#_g122116_|) - (cons (cons 'trace |gx[1]#_g122117_|) + (##unchecked-structure-set! __obj121489 __tmp122267 '15 '#f '#f)) + (let ((__tmp122272 + (cons (cons 'subst |gx[1]#_g122273_|) + (cons (cons 'context |gx[1]#_g122274_|) + (cons (cons 'phi |gx[1]#_g122275_|) + (cons (cons 'trace |gx[1]#_g122276_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122113 '16 '#f '#f)) - (let ((__tmp122118 - (cons (cons 'subst |gx[1]#_g122119_|) - (cons (cons 'context |gx[1]#_g122120_|) - (cons (cons 'phi |gx[1]#_g122121_|) - (cons (cons 'trace |gx[1]#_g122122_|) + (##unchecked-structure-set! __obj121489 __tmp122272 '16 '#f '#f)) + (let ((__tmp122277 + (cons (cons 'subst |gx[1]#_g122278_|) + (cons (cons 'context |gx[1]#_g122279_|) + (cons (cons 'phi |gx[1]#_g122280_|) + (cons (cons 'trace |gx[1]#_g122281_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122118 '17 '#f '#f)) - (let ((__tmp122123 - (cons (cons 'subst |gx[1]#_g122124_|) - (cons (cons 'context |gx[1]#_g122125_|) - (cons (cons 'phi |gx[1]#_g122126_|) - (cons (cons 'trace |gx[1]#_g122127_|) + (##unchecked-structure-set! __obj121489 __tmp122277 '17 '#f '#f)) + (let ((__tmp122282 + (cons (cons 'subst |gx[1]#_g122283_|) + (cons (cons 'context |gx[1]#_g122284_|) + (cons (cons 'phi |gx[1]#_g122285_|) + (cons (cons 'trace |gx[1]#_g122286_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122123 '18 '#f '#f)) + (##unchecked-structure-set! __obj121489 __tmp122282 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121489 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121489 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '20 '#f '#f)) - __obj121330)))) + (##unchecked-structure-set! __obj121489 '() '20 '#f '#f)) + __obj121489)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index 0172b0b2e..a0676eac8 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 1713631267) + (define gerbil/expander/init::timestamp 1733687560) (begin - (let ((__tmp132915 - (let ((__obj132913 + (let ((__tmp133074 + (let ((__obj133072 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj132913)) - __obj132913))) + (gx#top-context:::init!__0 __obj133072)) + __obj133072))) (declare (not safe)) - (gx#current-expander-context __tmp132915)) + (gx#current-expander-context __tmp133074)) (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 ((__tmp132916 - (let ((__obj132914 + (let ((__tmp133075 + (let ((__obj133073 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj132914 '#f)) - __obj132914))) + (gx#prelude-context:::init!__0 __obj133073 '#f)) + __obj133073))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp132916 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp133075 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 0bfac44c3..262c2fd91 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -279,8 +279,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 ba3a03824..9aafa19be 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 1713631266) + (define gerbil/expander/module::timestamp 1733687560) (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 _%$args128764%_ - (apply make-instance gx#module-import::t _%$args128764%_))) + (lambda _%$args128923%_ + (apply make-instance gx#module-import::t _%$args128923%_))) (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 _%$args128761%_ - (apply make-instance gx#module-export::t _%$args128761%_))) + (lambda _%$args128920%_ + (apply make-instance gx#module-export::t _%$args128920%_))) (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 _%$args128758%_ - (apply make-instance gx#import-set::t _%$args128758%_))) + (lambda _%$args128917%_ + (apply make-instance gx#import-set::t _%$args128917%_))) (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 _%$args128755%_ - (apply make-instance gx#export-set::t _%$args128755%_))) + (lambda _%$args128914%_ + (apply make-instance gx#export-set::t _%$args128914%_))) (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 _%$args128752%_ - (apply make-instance gx#import-expander::t _%$args128752%_))) + (lambda _%$args128911%_ + (apply make-instance gx#import-expander::t _%$args128911%_))) (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 _%$args128749%_ - (apply make-instance gx#export-expander::t _%$args128749%_))) + (lambda _%$args128908%_ + (apply make-instance gx#export-expander::t _%$args128908%_))) (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 _%$args128746%_ - (apply make-instance gx#import-export-expander::t _%$args128746%_))) + (lambda _%$args128905%_ + (apply make-instance gx#import-export-expander::t _%$args128905%_))) (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 (_%path128743%_ _%fun128744%_) + (lambda (_%path128902%_ _%fun128903%_) (call-with-input-file - (cons 'path: (cons _%path128743%_ gx#source-file-settings)) - _%fun128744%_))) + (cons 'path: (cons _%path128902%_ gx#source-file-settings)) + _%fun128903%_))) (define gx#module-context:::init! - (lambda (_%self125195128724%_ - _%id128726%_ - _%super128727%_ - _%ns128728%_ - _%path128729%_) - (let* ((_%self128731%_ _%self125195128724%_) - (_%self128733%_ _%self128731%_)) - (if (##fx< '11 (##structure-length _%self128733%_)) + (lambda (_%self125354128883%_ + _%id128885%_ + _%super128886%_ + _%ns128887%_ + _%path128888%_) + (let* ((_%self128890%_ _%self125354128883%_) + (_%self128892%_ _%self128890%_)) + (if (##fx< '11 (##structure-length _%self128892%_)) (begin (##unchecked-structure-set! - _%self128733%_ - _%id128726%_ + _%self128892%_ + _%id128885%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128733%_ + _%self128892%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128733%_ - _%super128727%_ + _%self128892%_ + _%super128886%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self128892%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self128892%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128733%_ - _%ns128728%_ + _%self128892%_ + _%ns128887%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128733%_ - _%path128729%_ + _%self128892%_ + _%path128888%_ '7 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self128892%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self128892%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self128892%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self128892%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128733%_ + _%self128892%_ '11 - (##vector-length _%self128733%_)))))) + (##vector-length _%self128892%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self125196128555%_ _%ctx128557%_ _%root128558%_) - (let* ((_%self128560%_ _%self125196128555%_) - (_%self128562%_ _%self128560%_) - (_%super128578%_ - (let ((_%$e128572%_ _%root128558%_)) - (if _%$e128572%_ - _%$e128572%_ - (let ((_%$e128575%_ (gx#core-context-root__0))) - (if _%$e128575%_ - _%$e128575%_ - (let ((__obj128808 + (lambda (_%self125355128714%_ _%ctx128716%_ _%root128717%_) + (let* ((_%self128719%_ _%self125355128714%_) + (_%self128721%_ _%self128719%_) + (_%super128737%_ + (let ((_%$e128731%_ _%root128717%_)) + (if _%$e128731%_ + _%$e128731%_ + (let ((_%$e128734%_ (gx#core-context-root__0))) + (if _%$e128734%_ + _%$e128734%_ + (let ((__obj128967 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor128809 + (let ((__constructor128968 (direct-method-ref gx#root-context::t - __obj128808 + __obj128967 ':init!))) - (if __constructor128809 - (__constructor128809 __obj128808) + (if __constructor128968 + (__constructor128968 __obj128967) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj128808))))))) - (if _%ctx128557%_ - (let ((_%id128581%_ + __obj128967))))))) + (if _%ctx128716%_ + (let ((_%id128740%_ (##structure-ref - _%ctx128557%_ + _%ctx128716%_ '1 gx#expander-context::t '#f)) - (_%path128582%_ + (_%path128741%_ (##structure-ref - _%ctx128557%_ + _%ctx128716%_ '7 gx#module-context::t '#f)) - (_%in128583%_ + (_%in128742%_ (map gx#core-module-export->import (##structure-ref - _%ctx128557%_ + _%ctx128716%_ '9 gx#module-context::t '#f))) - (_%e128584%_ + (_%e128743%_ (__make-promise - (lambda () (gx#eval-module _%ctx128557%_))))) - (if (##fx< '8 (##structure-length _%self128562%_)) + (lambda () (gx#eval-module _%ctx128716%_))))) + (if (##fx< '8 (##structure-length _%self128721%_)) (begin (##unchecked-structure-set! - _%self128562%_ - _%id128581%_ + _%self128721%_ + _%id128740%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - (make-hash-table-eq 'size: (##length _%in128583%_)) + _%self128721%_ + (make-hash-table-eq 'size: (##length _%in128742%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%super128578%_ + _%self128721%_ + _%super128737%_ '3 '#f '#f) (##unchecked-structure-set! - _%self128562%_ + _%self128721%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self128562%_ + _%self128721%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%path128582%_ + _%self128721%_ + _%path128741%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%in128583%_ + _%self128721%_ + _%in128742%_ '7 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%e128584%_ + _%self128721%_ + _%e128743%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128562%_ + _%self128721%_ '8 - (##vector-length _%self128562%_))) + (##vector-length _%self128721%_))) (##for-each - (lambda (_%g128585128587%_) + (lambda (_%g128744128746%_) (gx#core-bind-weak-import!__% - _%g128585128587%_ - _%self128562%_)) - _%in128583%_)) - (if (##fx< '8 (##structure-length _%self128562%_)) + _%g128744128746%_ + _%self128721%_)) + _%in128742%_)) + (if (##fx< '8 (##structure-length _%self128721%_)) (begin - (##unchecked-structure-set! _%self128562%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self128721%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self128562%_ + _%self128721%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%super128578%_ + _%self128721%_ + _%super128737%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '8 '#f '#f) + (##unchecked-structure-set! _%self128721%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self128721%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self128721%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self128721%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self128721%_ '#f '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128562%_ + _%self128721%_ '8 - (##vector-length _%self128562%_))))))) + (##vector-length _%self128721%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self125196128593%_ _%ctx128594%_) - (let ((_%root128596%_ '#f)) + (lambda (_%self125355128752%_ _%ctx128753%_) + (let ((_%root128755%_ '#f)) (gx#prelude-context:::init!__% - _%self125196128593%_ - _%ctx128594%_ - _%root128596%_)))) + _%self125355128752%_ + _%ctx128753%_ + _%root128755%_)))) (define gx#prelude-context:::init! - (lambda _g128815_ - (let ((_g128814_ (##length _g128815_))) - (cond ((##fx= _g128814_ 2) - (apply gx#prelude-context:::init!__0 _g128815_)) - ((##fx= _g128814_ 3) - (apply gx#prelude-context:::init!__% _g128815_)) + (lambda _g128974_ + (let ((_g128973_ (##length _g128974_))) + (cond ((##fx= _g128973_ 2) + (apply gx#prelude-context:::init!__0 _g128974_)) + ((##fx= _g128973_ 3) + (apply gx#prelude-context:::init!__% _g128974_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g128815_)))))) + _g128974_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self128429%_ _%e128430%_) - (if (##fx< '3 (##structure-length _%self128429%_)) + (lambda (_%self128588%_ _%e128589%_) + (if (##fx< '3 (##structure-length _%self128588%_)) (begin (##unchecked-structure-set! - _%self128429%_ - _%e128430%_ + _%self128588%_ + _%e128589%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128429%_ + _%self128588%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self128429%_ + _%self128588%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128429%_ + _%self128588%_ '3 - (##vector-length _%self128429%_))))) + (##vector-length _%self128588%_))))) (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 (_%g128055128058%_ _%g128056128060%_) + (lambda (_%g128214128217%_ _%g128215128219%_) (gx#core-apply-user-expander__% - _%g128055128058%_ - _%g128056128060%_ + _%g128214128217%_ + _%g128215128219%_ '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 (_%g127926127929%_ _%g127927127931%_) + (lambda (_%g128085128088%_ _%g128086128090%_) (gx#core-apply-user-expander__% - _%g127926127929%_ - _%g127927127931%_ + _%g128085128088%_ + _%g128086128090%_ '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 (_%ctx127797%_) - (let* ((_%path127799%_ - (##structure-ref _%ctx127797%_ '7 gx#module-context::t '#f)) - (_%path127801%_ - (if (pair? _%path127799%_) - (##last _%path127799%_) - _%path127799%_))) - (if (string? _%path127801%_) _%path127801%_ '#f)))) + (lambda (_%ctx127956%_) + (let* ((_%path127958%_ + (##structure-ref _%ctx127956%_ '7 gx#module-context::t '#f)) + (_%path127960%_ + (if (pair? _%path127958%_) + (##last _%path127958%_) + _%path127958%_))) + (if (string? _%path127960%_) _%path127960%_ '#f)))) (define gx#import-module__% - (lambda (_%path127773%_ _%reload?127774%_ _%eval?127775%_) - (let ((_%ctx127777%_ + (lambda (_%path127932%_ _%reload?127933%_ _%eval?127934%_) + (let ((_%ctx127936%_ ((gx#current-expander-module-import) - _%path127773%_ - _%reload?127774%_))) - (if (and _%ctx127777%_ _%eval?127775%_) - (gx#eval-module _%ctx127777%_) + _%path127932%_ + _%reload?127933%_))) + (if (and _%ctx127936%_ _%eval?127934%_) + (gx#eval-module _%ctx127936%_) '#!void) - _%ctx127777%_))) + _%ctx127936%_))) (define gx#import-module__0 - (lambda (_%path127782%_) - (let* ((_%reload?127784%_ '#f) (_%eval?127786%_ '#f)) + (lambda (_%path127941%_) + (let* ((_%reload?127943%_ '#f) (_%eval?127945%_ '#f)) (gx#import-module__% - _%path127782%_ - _%reload?127784%_ - _%eval?127786%_)))) + _%path127941%_ + _%reload?127943%_ + _%eval?127945%_)))) (define gx#import-module__1 - (lambda (_%path127788%_ _%reload?127789%_) - (let ((_%eval?127791%_ '#f)) + (lambda (_%path127947%_ _%reload?127948%_) + (let ((_%eval?127950%_ '#f)) (gx#import-module__% - _%path127788%_ - _%reload?127789%_ - _%eval?127791%_)))) + _%path127947%_ + _%reload?127948%_ + _%eval?127950%_)))) (define gx#import-module - (lambda _g128817_ - (let ((_g128816_ (##length _g128817_))) - (cond ((##fx= _g128816_ 1) (apply gx#import-module__0 _g128817_)) - ((##fx= _g128816_ 2) (apply gx#import-module__1 _g128817_)) - ((##fx= _g128816_ 3) (apply gx#import-module__% _g128817_)) + (lambda _g128976_ + (let ((_g128975_ (##length _g128976_))) + (cond ((##fx= _g128975_ 1) (apply gx#import-module__0 _g128976_)) + ((##fx= _g128975_ 2) (apply gx#import-module__1 _g128976_)) + ((##fx= _g128975_ 3) (apply gx#import-module__% _g128976_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g128817_)))))) + _g128976_)))))) (define gx#eval-module - (lambda (_%mod127770%_) - ((gx#current-expander-module-eval) _%mod127770%_))) + (lambda (_%mod127929%_) + ((gx#current-expander-module-eval) _%mod127929%_))) (define gx#core-eval-module - (lambda (_%obj127750%_) - (letrec ((_%force-e127752%_ - (lambda (_%getf127766%_ _%e127767%_) + (lambda (_%obj127909%_) + (letrec ((_%force-e127911%_ + (lambda (_%getf127925%_ _%e127926%_) (__call-with-parameters - (lambda () (force (_%getf127766%_ _%e127767%_))) + (lambda () (force (_%getf127925%_ _%e127926%_))) gx#current-expander-context - _%e127767%_ + _%e127926%_ gx#current-expander-phi '0)))) - (let _%recur127754%_ ((_%e127756%_ _%obj127750%_)) - (if (##structure-instance-of? _%e127756%_ 'gx#module-context::t) + (let _%recur127913%_ ((_%e127915%_ _%obj127909%_)) + (if (##structure-instance-of? _%e127915%_ 'gx#module-context::t) (let () - (let ((_%$e127759%_ - (gx#core-context-prelude__% _%e127756%_))) - (if _%$e127759%_ (_%recur127754%_ _%$e127759%_) '#!void)) - (_%force-e127752%_ gx#module-context-e _%e127756%_)) + (let ((_%$e127918%_ + (gx#core-context-prelude__% _%e127915%_))) + (if _%$e127918%_ (_%recur127913%_ _%$e127918%_) '#!void)) + (_%force-e127911%_ gx#module-context-e _%e127915%_)) (if (##structure-instance-of? - _%e127756%_ + _%e127915%_ 'gx#prelude-context::t) - (_%force-e127752%_ gx#prelude-context-e _%e127756%_) - (if (gx#stx-string? _%e127756%_) - (_%recur127754%_ + (_%force-e127911%_ gx#prelude-context-e _%e127915%_) + (if (gx#stx-string? _%e127915%_) + (_%recur127913%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e127756%_))) - (if (gx#core-library-module-path? _%e127756%_) - (_%recur127754%_ + (gx#core-resolve-module-path__0 _%e127915%_))) + (if (gx#core-library-module-path? _%e127915%_) + (_%recur127913%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e127756%_))) - (error '"cannot eval module" _%obj127750%_))))))))) + _%e127915%_))) + (error '"cannot eval module" _%obj127909%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx127730%_) - (let _%lp127732%_ ((_%e127734%_ _%ctx127730%_)) - (if (or (##structure-instance-of? _%e127734%_ 'gx#module-context::t) - (##structure-instance-of? _%e127734%_ 'gx#local-context::t)) - (_%lp127732%_ (##unchecked-structure-ref _%e127734%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e127734%_ 'gx#prelude-context::t) - _%e127734%_ + (lambda (_%ctx127889%_) + (let _%lp127891%_ ((_%e127893%_ _%ctx127889%_)) + (if (or (##structure-instance-of? _%e127893%_ 'gx#module-context::t) + (##structure-instance-of? _%e127893%_ 'gx#local-context::t)) + (_%lp127891%_ (##unchecked-structure-ref _%e127893%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e127893%_ 'gx#prelude-context::t) + _%e127893%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx127746%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx127746%_)))) + (let ((_%ctx127905%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx127905%_)))) (define gx#core-context-prelude - (lambda _g128819_ - (let ((_g128818_ (##length _g128819_))) - (cond ((##fx= _g128818_ 0) - (apply gx#core-context-prelude__0 _g128819_)) - ((##fx= _g128818_ 1) - (apply gx#core-context-prelude__% _g128819_)) + (lambda _g128978_ + (let ((_g128977_ (##length _g128978_))) + (cond ((##fx= _g128977_ 0) + (apply gx#core-context-prelude__0 _g128978_)) + ((##fx= _g128977_ 1) + (apply gx#core-context-prelude__% _g128978_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g128819_)))))) + _g128978_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx127721%_) - (let ((_%$e127723%_ (__hash-get gx#__module-registry _%ctx127721%_))) - (if _%$e127723%_ - _%$e127723%_ - (let ((_%pre127727%_ - (let ((__obj128810 + (lambda (_%ctx127880%_) + (let ((_%$e127882%_ (__hash-get gx#__module-registry _%ctx127880%_))) + (if _%$e127882%_ + _%$e127882%_ + (let ((_%pre127886%_ + (let ((__obj128969 (##structure gx#prelude-context::t '#f @@ -720,52 +720,52 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj128810 - _%ctx127721%_) - __obj128810))) - (__hash-put! gx#__module-registry _%ctx127721%_ _%pre127727%_) - _%pre127727%_))))) + __obj128969 + _%ctx127880%_) + __obj128969))) + (__hash-put! gx#__module-registry _%ctx127880%_ _%pre127886%_) + _%pre127886%_))))) (define gx#core-import-module__% - (lambda (_%rpath127593%_ _%reload?127594%_) - (letrec ((_%import-source127596%_ - (lambda (_%path127685%_) - (if (member _%path127685%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path127685%_) + (lambda (_%rpath127752%_ _%reload?127753%_) + (letrec ((_%import-source127755%_ + (lambda (_%path127844%_) + (if (member _%path127844%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path127844%_) '#!void) (__call-with-parameters (lambda () - (let ((_g128820_ (gx#core-read-module _%path127685%_))) + (let ((_g128979_ (gx#core-read-module _%path127844%_))) (begin - (let ((_g128821_ - (if (##values? _g128820_) - (##vector-length _g128820_) + (let ((_g128980_ + (if (##values? _g128979_) + (##vector-length _g128979_) 1))) - (if (not (##fx= _g128821_ 4)) - (error "Context expects 4 values" _g128821_))) - (let ((_%pre127688%_ (##vector-ref _g128820_ 0)) - (_%id127689%_ (##vector-ref _g128820_ 1)) - (_%ns127690%_ (##vector-ref _g128820_ 2)) - (_%body127691%_ (##vector-ref _g128820_ 3))) - (let* ((_%prelude127701%_ + (if (not (##fx= _g128980_ 4)) + (error "Context expects 4 values" _g128980_))) + (let ((_%pre127847%_ (##vector-ref _g128979_ 0)) + (_%id127848%_ (##vector-ref _g128979_ 1)) + (_%ns127849%_ (##vector-ref _g128979_ 2)) + (_%body127850%_ (##vector-ref _g128979_ 3))) + (let* ((_%prelude127860%_ (if (##structure-instance-of? - _%pre127688%_ + _%pre127847%_ 'gx#prelude-context::t) - _%pre127688%_ + _%pre127847%_ (if (##structure-instance-of? - _%pre127688%_ + _%pre127847%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre127688%_) - (if (string? _%pre127688%_) + _%pre127847%_) + (if (string? _%pre127847%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre127688%_)) - (if (not _%pre127688%_) - (let ((_%$e127697%_ + _%pre127847%_)) + (if (not _%pre127847%_) + (let ((_%$e127856%_ (gx#current-expander-module-prelude))) - (if _%$e127697%_ - _%$e127697%_ - (let ((__obj128811 + (if _%$e127856%_ + _%$e127856%_ + (let ((__obj128970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj128811 '#f) - __obj128811))) + (gx#prelude-context:::init!__0 __obj128970 '#f) + __obj128970))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath127593%_ - _%pre127688%_)))))) - (_%ctx127703%_ - (let ((__obj128812 + _%rpath127752%_ + _%pre127847%_)))))) + (_%ctx127862%_ + (let ((__obj128971 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj128812 - _%id127689%_ - _%prelude127701%_ - _%ns127690%_ - _%path127685%_) - __obj128812)) - (_%body127705%_ + __obj128971 + _%id127848%_ + _%prelude127860%_ + _%ns127849%_ + _%path127844%_) + __obj128971)) + (_%body127864%_ (gx#core-expand-module-begin - _%body127691%_ - _%ctx127703%_)) - (_%body127707%_ + _%body127850%_ + _%ctx127862%_)) + (_%body127866%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body127705%_) - _%path127685%_ - _%ctx127703%_ + (gx#core-cons '%#begin _%body127864%_) + _%path127844%_ + _%ctx127862%_ '()))) (##unchecked-structure-set! - _%ctx127703%_ + _%ctx127862%_ (__make-promise - (lambda () (gx#eval-syntax* _%body127707%_))) + (lambda () (gx#eval-syntax* _%body127866%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx127703%_ - _%body127707%_ + _%ctx127862%_ + _%body127866%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path127685%_ - _%ctx127703%_) + _%path127844%_ + _%ctx127862%_) (__hash-put! gx#__module-registry - _%id127689%_ - _%ctx127703%_) - _%ctx127703%_))))) + _%id127848%_ + _%ctx127862%_) + _%ctx127862%_))))) 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 _%path127685%_ (gx#current-expander-path)) + (cons _%path127844%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule127597%_ - (lambda (_%rpath127613%_) - (let* ((_%rpath127614127621%_ _%rpath127613%_) - (_%E127616127625%_ + (_%import-submodule127756%_ + (lambda (_%rpath127772%_) + (let* ((_%rpath127773127780%_ _%rpath127772%_) + (_%E127775127784%_ (lambda () (error '"No clause matching" - _%rpath127614127621%_ + _%rpath127773127780%_ '([origin . refs])) '#!void)) - (_%K127617127673%_ - (lambda (_%refs127628%_ _%origin127629%_) - (let ((_%ctx127631%_ - (if _%origin127629%_ + (_%K127776127832%_ + (lambda (_%refs127787%_ _%origin127788%_) + (let ((_%ctx127790%_ + (if _%origin127788%_ (gx#core-import-module__% - _%origin127629%_ - _%reload?127594%_) + _%origin127788%_ + _%reload?127753%_) (gx#current-expander-context)))) - (let _%lp127633%_ ((_%rest127635%_ - _%refs127628%_) - (_%ctx127636%_ - _%ctx127631%_)) - (let* ((_%rest127637127645%_ _%rest127635%_) - (_%else127639127653%_ - (lambda () _%ctx127636%_)) - (_%K127641127661%_ - (lambda (_%rest127656%_ _%id127657%_) - (let ((_%bind127659%_ + (let _%lp127792%_ ((_%rest127794%_ + _%refs127787%_) + (_%ctx127795%_ + _%ctx127790%_)) + (let* ((_%rest127796127804%_ _%rest127794%_) + (_%else127798127812%_ + (lambda () _%ctx127795%_)) + (_%K127800127820%_ + (lambda (_%rest127815%_ _%id127816%_) + (let ((_%bind127818%_ (gx#resolve-identifier__% - _%id127657%_ + _%id127816%_ '0 - _%ctx127636%_))) + _%ctx127795%_))) (if (and (##structure-direct-instance-of? - _%bind127659%_ + _%bind127818%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind127659%_ + _%bind127818%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp127633%_ - _%rest127656%_ + (_%lp127792%_ + _%rest127815%_ (##unchecked-structure-ref - _%bind127659%_ + _%bind127818%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath127613%_ - _%id127657%_ - _%bind127659%_)))))) - (if (pair? _%rest127637127645%_) - (let ((_%hd127642127664%_ - (##car _%rest127637127645%_)) - (_%tl127643127666%_ - (##cdr _%rest127637127645%_))) - (let* ((_%id127669%_ - _%hd127642127664%_) - (_%rest127671%_ - _%tl127643127666%_)) - (_%K127641127661%_ - _%rest127671%_ - _%id127669%_))) - (_%else127639127653%_)))))))) - (if (pair? _%rpath127614127621%_) - (let ((_%hd127618127676%_ - (##car _%rpath127614127621%_)) - (_%tl127619127678%_ - (##cdr _%rpath127614127621%_))) - (let* ((_%origin127681%_ _%hd127618127676%_) - (_%refs127683%_ _%tl127619127678%_)) - (_%K127617127673%_ - _%refs127683%_ - _%origin127681%_))) - (_%E127616127625%_)))))) - (let ((_%$e127599%_ - (if (not _%reload?127594%_) - (__hash-get gx#__module-registry _%rpath127593%_) + _%rpath127772%_ + _%id127816%_ + _%bind127818%_)))))) + (if (pair? _%rest127796127804%_) + (let ((_%hd127801127823%_ + (##car _%rest127796127804%_)) + (_%tl127802127825%_ + (##cdr _%rest127796127804%_))) + (let* ((_%id127828%_ + _%hd127801127823%_) + (_%rest127830%_ + _%tl127802127825%_)) + (_%K127800127820%_ + _%rest127830%_ + _%id127828%_))) + (_%else127798127812%_)))))))) + (if (pair? _%rpath127773127780%_) + (let ((_%hd127777127835%_ + (##car _%rpath127773127780%_)) + (_%tl127778127837%_ + (##cdr _%rpath127773127780%_))) + (let* ((_%origin127840%_ _%hd127777127835%_) + (_%refs127842%_ _%tl127778127837%_)) + (_%K127776127832%_ + _%refs127842%_ + _%origin127840%_))) + (_%E127775127784%_)))))) + (let ((_%$e127758%_ + (if (not _%reload?127753%_) + (__hash-get gx#__module-registry _%rpath127752%_) '#f))) - (if _%$e127599%_ - _%$e127599%_ - (if (list? _%rpath127593%_) - (_%import-submodule127597%_ _%rpath127593%_) - (if (gx#core-library-module-path? _%rpath127593%_) - (let ((_%ctx127604%_ + (if _%$e127758%_ + _%$e127758%_ + (if (list? _%rpath127752%_) + (_%import-submodule127756%_ _%rpath127752%_) + (if (gx#core-library-module-path? _%rpath127752%_) + (let ((_%ctx127763%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath127593%_) - _%reload?127594%_))) + _%rpath127752%_) + _%reload?127753%_))) (__hash-put! gx#__module-registry - _%rpath127593%_ - _%ctx127604%_) - _%ctx127604%_) - (let* ((_%npath127607%_ - (path-normalize _%rpath127593%_)) - (_%$e127609%_ - (if (not _%reload?127594%_) + _%rpath127752%_ + _%ctx127763%_) + _%ctx127763%_) + (let* ((_%npath127766%_ + (path-normalize _%rpath127752%_)) + (_%$e127768%_ + (if (not _%reload?127753%_) (__hash-get gx#__module-registry - _%npath127607%_) + _%npath127766%_) '#f))) - (if _%$e127609%_ - _%$e127609%_ - (_%import-source127596%_ - _%npath127607%_)))))))))) + (if _%$e127768%_ + _%$e127768%_ + (_%import-source127755%_ + _%npath127766%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath127714%_) - (let ((_%reload?127716%_ '#f)) - (gx#core-import-module__% _%rpath127714%_ _%reload?127716%_)))) + (lambda (_%rpath127873%_) + (let ((_%reload?127875%_ '#f)) + (gx#core-import-module__% _%rpath127873%_ _%reload?127875%_)))) (define gx#core-import-module - (lambda _g128823_ - (let ((_g128822_ (##length _g128823_))) - (cond ((##fx= _g128822_ 1) - (apply gx#core-import-module__0 _g128823_)) - ((##fx= _g128822_ 2) - (apply gx#core-import-module__% _g128823_)) + (lambda _g128982_ + (let ((_g128981_ (##length _g128982_))) + (cond ((##fx= _g128981_ 1) + (apply gx#core-import-module__0 _g128982_)) + ((##fx= _g128981_ 2) + (apply gx#core-import-module__% _g128982_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g128823_)))))) + _g128982_)))))) (define gx#core-read-module - (lambda (_%path127582%_) + (lambda (_%path127741%_) (__with-catch - (lambda (_%exn127584%_) - (if (and (datum-parsing-exception? _%exn127584%_) - (eq? (datum-parsing-exception-filepos _%exn127584%_) '0)) - (gx#core-read-module/lang _%path127582%_) + (lambda (_%exn127743%_) + (if (and (datum-parsing-exception? _%exn127743%_) + (eq? (datum-parsing-exception-filepos _%exn127743%_) '0)) + (gx#core-read-module/lang _%path127741%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path127582%_ + _%path127741%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g127586127588%_) - (display-exception__% _%exn127584%_ _%g127586127588%_)))) + (lambda (_%g127745127747%_) + (display-exception__% _%exn127743%_ _%g127745127747%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path127582%_))))) + (lambda () (gx#core-read-module/sexp _%path127741%_))))) (define gx#core-read-module/sexp - (lambda (_%path127434%_) - (let _%lp127436%_ ((_%body127438%_ - (read-syntax-from-file _%path127434%_)) - (_%pre127439%_ '#f) - (_%ns127440%_ '#f) - (_%pkg127441%_ '#f)) - (let* ((_%e127442127466%_ _%body127438%_) - (_%E127458127492%_ + (lambda (_%path127593%_) + (let _%lp127595%_ ((_%body127597%_ + (read-syntax-from-file _%path127593%_)) + (_%pre127598%_ '#f) + (_%ns127599%_ '#f) + (_%pkg127600%_ '#f)) + (let* ((_%e127601127625%_ _%body127597%_) + (_%E127617127651%_ (lambda () - (let ((_g128824_ - (if _%pkg127441%_ - (values _%pre127439%_ - _%ns127440%_ - _%pkg127441%_) + (let ((_g128983_ + (if _%pkg127600%_ + (values _%pre127598%_ + _%ns127599%_ + _%pkg127600%_) (gx#core-read-module-package - _%path127434%_ - _%pre127439%_ - _%ns127440%_)))) + _%path127593%_ + _%pre127598%_ + _%ns127599%_)))) (begin - (let ((_g128825_ - (if (##values? _g128824_) - (##vector-length _g128824_) + (let ((_g128984_ + (if (##values? _g128983_) + (##vector-length _g128983_) 1))) - (if (not (##fx= _g128825_ 3)) - (error "Context expects 3 values" _g128825_))) - (let ((_%pre127470%_ (##vector-ref _g128824_ 0)) - (_%ns127471%_ (##vector-ref _g128824_ 1)) - (_%pkg127472%_ (##vector-ref _g128824_ 2))) - (let* ((_%prelude127478%_ + (if (not (##fx= _g128984_ 3)) + (error "Context expects 3 values" _g128984_))) + (let ((_%pre127629%_ (##vector-ref _g128983_ 0)) + (_%ns127630%_ (##vector-ref _g128983_ 1)) + (_%pkg127631%_ (##vector-ref _g128983_ 2))) + (let* ((_%prelude127637%_ (if (gx#core-bound-module-prelude? - _%pre127470%_) - (gx#syntax-local-e__0 _%pre127470%_) + _%pre127629%_) + (gx#syntax-local-e__0 _%pre127629%_) (if (gx#core-library-module-path? - _%pre127470%_) + _%pre127629%_) (gx#core-resolve-library-module-path - _%pre127470%_) - (if (gx#stx-string? _%pre127470%_) + _%pre127629%_) + (if (gx#stx-string? _%pre127629%_) (gx#core-resolve-module-path__% - _%pre127470%_ - _%path127434%_) - (gx#stx-e _%pre127470%_))))) - (_%path-id127480%_ + _%pre127629%_ + _%path127593%_) + (gx#stx-e _%pre127629%_))))) + (_%path-id127639%_ (gx#core-module-path->namespace - _%path127434%_)) - (_%pkg-id127482%_ - (if _%pkg127472%_ + _%path127593%_)) + (_%pkg-id127641%_ + (if _%pkg127631%_ (##string-append - _%pkg127472%_ + _%pkg127631%_ '"/" - _%path-id127480%_) - _%path-id127480%_)) - (_%module-id127484%_ - (##string->symbol _%pkg-id127482%_)) - (_%module-ns127489%_ - (if (eq? _%ns127471%_ '#!void) + _%path-id127639%_) + _%path-id127639%_)) + (_%module-id127643%_ + (##string->symbol _%pkg-id127641%_)) + (_%module-ns127648%_ + (if (eq? _%ns127630%_ '#!void) '#f - (let ((_%$e127486%_ _%ns127471%_)) - (if _%$e127486%_ - _%$e127486%_ - _%pkg-id127482%_))))) - (values _%prelude127478%_ - _%module-id127484%_ - _%module-ns127489%_ - _%body127438%_))))))) - (_%E127451127524%_ + (let ((_%$e127645%_ _%ns127630%_)) + (if _%$e127645%_ + _%$e127645%_ + _%pkg-id127641%_))))) + (values _%prelude127637%_ + _%module-id127643%_ + _%module-ns127648%_ + _%body127597%_))))))) + (_%E127610127683%_ (lambda () - (if (gx#stx-pair? _%e127442127466%_) - (let ((_%e127459127496%_ - (gx#syntax-e _%e127442127466%_))) - (let ((_%hd127460127499%_ (##car _%e127459127496%_)) - (_%tl127461127501%_ (##cdr _%e127459127496%_))) - (if (eq? (gx#stx-e _%hd127460127499%_) 'package:) - (if (gx#stx-pair? _%tl127461127501%_) - (let ((_%e127462127504%_ - (gx#syntax-e _%tl127461127501%_))) - (let ((_%hd127463127507%_ - (##car _%e127462127504%_)) - (_%tl127464127509%_ - (##cdr _%e127462127504%_))) - (let* ((_%pkg127512%_ - _%hd127463127507%_) - (_%rest127514%_ - _%tl127464127509%_) - (_%pkg127522%_ + (if (gx#stx-pair? _%e127601127625%_) + (let ((_%e127618127655%_ + (gx#syntax-e _%e127601127625%_))) + (let ((_%hd127619127658%_ (##car _%e127618127655%_)) + (_%tl127620127660%_ (##cdr _%e127618127655%_))) + (if (eq? (gx#stx-e _%hd127619127658%_) 'package:) + (if (gx#stx-pair? _%tl127620127660%_) + (let ((_%e127621127663%_ + (gx#syntax-e _%tl127620127660%_))) + (let ((_%hd127622127666%_ + (##car _%e127621127663%_)) + (_%tl127623127668%_ + (##cdr _%e127621127663%_))) + (let* ((_%pkg127671%_ + _%hd127622127666%_) + (_%rest127673%_ + _%tl127623127668%_) + (_%pkg127681%_ (if (gx#identifier? - _%pkg127512%_) + _%pkg127671%_) (symbol->string - (gx#stx-e _%pkg127512%_)) + (gx#stx-e _%pkg127671%_)) (if (or (gx#stx-string? - _%pkg127512%_) + _%pkg127671%_) (gx#stx-false? - _%pkg127512%_)) + _%pkg127671%_)) (gx#stx-e - _%pkg127512%_) + _%pkg127671%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg127512%_))))) - (_%lp127436%_ - _%rest127514%_ - _%pre127439%_ - _%ns127440%_ - _%pkg127522%_)))) - (_%E127458127492%_)) - (_%E127458127492%_)))) - (_%E127458127492%_)))) - (_%E127444127554%_ + _%pkg127671%_))))) + (_%lp127595%_ + _%rest127673%_ + _%pre127598%_ + _%ns127599%_ + _%pkg127681%_)))) + (_%E127617127651%_)) + (_%E127617127651%_)))) + (_%E127617127651%_)))) + (_%E127603127713%_ (lambda () - (if (gx#stx-pair? _%e127442127466%_) - (let ((_%e127452127528%_ - (gx#syntax-e _%e127442127466%_))) - (let ((_%hd127453127531%_ (##car _%e127452127528%_)) - (_%tl127454127533%_ (##cdr _%e127452127528%_))) - (if (eq? (gx#stx-e _%hd127453127531%_) 'namespace:) - (if (gx#stx-pair? _%tl127454127533%_) - (let ((_%e127455127536%_ - (gx#syntax-e _%tl127454127533%_))) - (let ((_%hd127456127539%_ - (##car _%e127455127536%_)) - (_%tl127457127541%_ - (##cdr _%e127455127536%_))) - (let* ((_%ns127544%_ - _%hd127456127539%_) - (_%rest127546%_ - _%tl127457127541%_) - (_%ns127552%_ + (if (gx#stx-pair? _%e127601127625%_) + (let ((_%e127611127687%_ + (gx#syntax-e _%e127601127625%_))) + (let ((_%hd127612127690%_ (##car _%e127611127687%_)) + (_%tl127613127692%_ (##cdr _%e127611127687%_))) + (if (eq? (gx#stx-e _%hd127612127690%_) 'namespace:) + (if (gx#stx-pair? _%tl127613127692%_) + (let ((_%e127614127695%_ + (gx#syntax-e _%tl127613127692%_))) + (let ((_%hd127615127698%_ + (##car _%e127614127695%_)) + (_%tl127616127700%_ + (##cdr _%e127614127695%_))) + (let* ((_%ns127703%_ + _%hd127615127698%_) + (_%rest127705%_ + _%tl127616127700%_) + (_%ns127711%_ (if (gx#identifier? - _%ns127544%_) + _%ns127703%_) (symbol->string - (gx#stx-e _%ns127544%_)) + (gx#stx-e _%ns127703%_)) (if (gx#stx-string? - _%ns127544%_) - (gx#stx-e _%ns127544%_) + _%ns127703%_) + (gx#stx-e _%ns127703%_) (if (gx#stx-false? - _%ns127544%_) + _%ns127703%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns127544%_)))))) - (_%lp127436%_ - _%rest127546%_ - _%pre127439%_ - _%ns127552%_ - _%pkg127441%_)))) - (_%E127451127524%_)) - (_%E127451127524%_)))) - (_%E127451127524%_)))) - (_%E127443127578%_ + _%ns127703%_)))))) + (_%lp127595%_ + _%rest127705%_ + _%pre127598%_ + _%ns127711%_ + _%pkg127600%_)))) + (_%E127610127683%_)) + (_%E127610127683%_)))) + (_%E127610127683%_)))) + (_%E127602127737%_ (lambda () - (if (gx#stx-pair? _%e127442127466%_) - (let ((_%e127445127558%_ - (gx#syntax-e _%e127442127466%_))) - (let ((_%hd127446127561%_ (##car _%e127445127558%_)) - (_%tl127447127563%_ (##cdr _%e127445127558%_))) - (if (eq? (gx#stx-e _%hd127446127561%_) 'prelude:) - (if (gx#stx-pair? _%tl127447127563%_) - (let ((_%e127448127566%_ - (gx#syntax-e _%tl127447127563%_))) - (let ((_%hd127449127569%_ - (##car _%e127448127566%_)) - (_%tl127450127571%_ - (##cdr _%e127448127566%_))) - (let* ((_%prelude127574%_ - _%hd127449127569%_) - (_%rest127576%_ - _%tl127450127571%_)) - (_%lp127436%_ - _%rest127576%_ - _%prelude127574%_ - _%ns127440%_ - _%pkg127441%_)))) - (_%E127444127554%_)) - (_%E127444127554%_)))) - (_%E127444127554%_))))) - (_%E127443127578%_))))) + (if (gx#stx-pair? _%e127601127625%_) + (let ((_%e127604127717%_ + (gx#syntax-e _%e127601127625%_))) + (let ((_%hd127605127720%_ (##car _%e127604127717%_)) + (_%tl127606127722%_ (##cdr _%e127604127717%_))) + (if (eq? (gx#stx-e _%hd127605127720%_) 'prelude:) + (if (gx#stx-pair? _%tl127606127722%_) + (let ((_%e127607127725%_ + (gx#syntax-e _%tl127606127722%_))) + (let ((_%hd127608127728%_ + (##car _%e127607127725%_)) + (_%tl127609127730%_ + (##cdr _%e127607127725%_))) + (let* ((_%prelude127733%_ + _%hd127608127728%_) + (_%rest127735%_ + _%tl127609127730%_)) + (_%lp127595%_ + _%rest127735%_ + _%prelude127733%_ + _%ns127599%_ + _%pkg127600%_)))) + (_%E127603127713%_)) + (_%E127603127713%_)))) + (_%E127603127713%_))))) + (_%E127602127737%_))))) (define gx#core-read-module/lang - (lambda (_%path127256%_) - (letrec ((_%default-read-module-body127258%_ - (lambda (_%inp127426%_) - (let _%lp127428%_ ((_%body127430%_ '())) - (let ((_%next127432%_ (read-syntax__% _%inp127426%_))) - (if (eof-object? _%next127432%_) - (reverse _%body127430%_) - (_%lp127428%_ - (cons _%next127432%_ _%body127430%_))))))) - (_%read-body127259%_ - (lambda (_%inp127344%_ - _%pre127345%_ - _%ns127346%_ - _%pkg127347%_ - _%args127348%_) - (let ((_g128826_ - (if _%pkg127347%_ - (values _%pre127345%_ - _%ns127346%_ - _%pkg127347%_) + (lambda (_%path127415%_) + (letrec ((_%default-read-module-body127417%_ + (lambda (_%inp127585%_) + (let _%lp127587%_ ((_%body127589%_ '())) + (let ((_%next127591%_ (read-syntax__% _%inp127585%_))) + (if (eof-object? _%next127591%_) + (reverse _%body127589%_) + (_%lp127587%_ + (cons _%next127591%_ _%body127589%_))))))) + (_%read-body127418%_ + (lambda (_%inp127503%_ + _%pre127504%_ + _%ns127505%_ + _%pkg127506%_ + _%args127507%_) + (let ((_g128985_ + (if _%pkg127506%_ + (values _%pre127504%_ + _%ns127505%_ + _%pkg127506%_) (gx#core-read-module-package - _%path127256%_ - _%pre127345%_ - _%ns127346%_)))) + _%path127415%_ + _%pre127504%_ + _%ns127505%_)))) (begin - (let ((_g128827_ - (if (##values? _g128826_) - (##vector-length _g128826_) + (let ((_g128986_ + (if (##values? _g128985_) + (##vector-length _g128985_) 1))) - (if (not (##fx= _g128827_ 3)) - (error "Context expects 3 values" _g128827_))) - (let ((_%pre127350%_ (##vector-ref _g128826_ 0)) - (_%ns127351%_ (##vector-ref _g128826_ 1)) - (_%pkg127352%_ (##vector-ref _g128826_ 2))) - (let* ((_%prelude127354%_ - (gx#import-module__0 _%pre127350%_)) - (_%read-module-body127409%_ - (let ((_%$e127400%_ - (__find (lambda (_%e127355127357%_) - (let* ((_%g127359127369%_ - _%e127355127357%_) - (_%else127361127377%_ + (if (not (##fx= _g128986_ 3)) + (error "Context expects 3 values" _g128986_))) + (let ((_%pre127509%_ (##vector-ref _g128985_ 0)) + (_%ns127510%_ (##vector-ref _g128985_ 1)) + (_%pkg127511%_ (##vector-ref _g128985_ 2))) + (let* ((_%prelude127513%_ + (gx#import-module__0 _%pre127509%_)) + (_%read-module-body127568%_ + (let ((_%$e127559%_ + (__find (lambda (_%e127514127516%_) + (let* ((_%g127518127528%_ + _%e127514127516%_) + (_%else127520127536%_ (lambda () '#f)) - (_%K127363127381%_ + (_%K127522127540%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g127359127369%_ + _%g127518127528%_ 'gx#module-export::t) - (let* ((_%e127364127384%_ + (let* ((_%e127523127543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g127359127369%_ + _%g127518127528%_ '1 '#f '#f)) - (_%e127365127387%_ + (_%e127524127546%_ (##unchecked-structure-ref - _%g127359127369%_ + _%g127518127528%_ '2 '#f '#f)) - (_%e127366127390%_ + (_%e127525127549%_ (##unchecked-structure-ref - _%g127359127369%_ + _%g127518127528%_ '3 '#f '#f))) - (if (##eq? _%e127366127390%_ '1) - (let ((_%e127367127393%_ + (if (##eq? _%e127525127549%_ '1) + (let ((_%e127526127552%_ (##unchecked-structure-ref - _%g127359127369%_ + _%g127518127528%_ '4 '#f '#f))) - (if ((lambda (_%g127395127397%_) - (eq? _%g127395127397%_ 'read-module-body)) - _%e127367127393%_) - (_%K127363127381%_) - (_%else127361127377%_))) - (_%else127361127377%_))) - (_%else127361127377%_)))) + (if ((lambda (_%g127554127556%_) + (eq? _%g127554127556%_ 'read-module-body)) + _%e127526127552%_) + (_%K127522127540%_) + (_%else127520127536%_))) + (_%else127520127536%_))) + (_%else127520127536%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude127354%_ + _%prelude127513%_ '9 '#f '#f)))) - (if _%$e127400%_ - ((lambda (_%xport127403%_) - (let ((_%proc127406%_ + (if _%$e127559%_ + ((lambda (_%xport127562%_) + (let ((_%proc127565%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport127403%_) + _%xport127562%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc127406%_) - _%proc127406%_ + (if (procedure? _%proc127565%_) + _%proc127565%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path127256%_ - _%pre127350%_ - _%proc127406%_)))) - _%$e127400%_) - _%default-read-module-body127258%_))) - (_%path-id127411%_ + _%path127415%_ + _%pre127509%_ + _%proc127565%_)))) + _%$e127559%_) + _%default-read-module-body127417%_))) + (_%path-id127570%_ (gx#core-module-path->namespace - _%path127256%_)) - (_%pkg-id127413%_ - (if _%pkg127352%_ + _%path127415%_)) + (_%pkg-id127572%_ + (if _%pkg127511%_ (##string-append - _%pkg127352%_ + _%pkg127511%_ '"/" - _%path-id127411%_) - _%path-id127411%_)) - (_%module-id127415%_ - (##string->symbol _%pkg-id127413%_)) - (_%module-ns127420%_ - (let ((_%$e127417%_ _%ns127351%_)) - (if _%$e127417%_ - _%$e127417%_ - _%pkg-id127413%_))) - (_%body127423%_ + _%path-id127570%_) + _%path-id127570%_)) + (_%module-id127574%_ + (##string->symbol _%pkg-id127572%_)) + (_%module-ns127579%_ + (let ((_%$e127576%_ _%ns127510%_)) + (if _%$e127576%_ + _%$e127576%_ + _%pkg-id127572%_))) + (_%body127582%_ (__call-with-parameters (lambda () - (_%read-module-body127409%_ - _%inp127344%_)) + (_%read-module-body127568%_ + _%inp127503%_)) gx#current-module-reader-path - _%path127256%_ + _%path127415%_ gx#current-module-reader-args - _%args127348%_))) - (values _%prelude127354%_ - _%module-id127415%_ - _%module-ns127420%_ - _%body127423%_))))))) - (_%string-e127260%_ - (lambda (_%obj127338%_ _%what127339%_) - (if (string? _%obj127338%_) - _%obj127338%_ - (if (symbol? _%obj127338%_) - (##symbol->string _%obj127338%_) + _%args127507%_))) + (values _%prelude127513%_ + _%module-id127574%_ + _%module-ns127579%_ + _%body127582%_))))))) + (_%string-e127419%_ + (lambda (_%obj127497%_ _%what127498%_) + (if (string? _%obj127497%_) + _%obj127497%_ + (if (symbol? _%obj127497%_) + (##symbol->string _%obj127497%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what127339%_) - _%path127256%_ - _%obj127338%_))))) - (_%read-lang-args127261%_ - (lambda (_%inp127293%_ _%args127294%_) - (let* ((_%args127295127303%_ _%args127294%_) - (_%else127297127311%_ + (string-append '"Illegal module " _%what127498%_) + _%path127415%_ + _%obj127497%_))))) + (_%read-lang-args127420%_ + (lambda (_%inp127452%_ _%args127453%_) + (let* ((_%args127454127462%_ _%args127453%_) + (_%else127456127470%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path127256%_))) - (_%K127299127326%_ - (lambda (_%args127314%_ _%prelude127315%_) - (let* ((_%pkg127317%_ - (pgetq__0 'package: _%args127314%_)) - (_%pkg127319%_ - (if _%pkg127317%_ - (_%string-e127260%_ - _%pkg127317%_ + _%path127415%_))) + (_%K127458127485%_ + (lambda (_%args127473%_ _%prelude127474%_) + (let* ((_%pkg127476%_ + (pgetq__0 'package: _%args127473%_)) + (_%pkg127478%_ + (if _%pkg127476%_ + (_%string-e127419%_ + _%pkg127476%_ '"package") '#f)) - (_%ns127321%_ - (pgetq__0 'namespace: _%args127314%_)) - (_%ns127323%_ - (if _%ns127321%_ - (_%string-e127260%_ - _%ns127321%_ + (_%ns127480%_ + (pgetq__0 'namespace: _%args127473%_)) + (_%ns127482%_ + (if _%ns127480%_ + (_%string-e127419%_ + _%ns127480%_ '"namespace") '#f))) - (_%read-body127259%_ - _%inp127293%_ - _%prelude127315%_ - _%ns127323%_ - _%pkg127319%_ - _%args127314%_))))) - (if (pair? _%args127295127303%_) - (let ((_%hd127300127329%_ - (##car _%args127295127303%_)) - (_%tl127301127331%_ - (##cdr _%args127295127303%_))) - (let* ((_%prelude127334%_ _%hd127300127329%_) - (_%args127336%_ _%tl127301127331%_)) - (_%K127299127326%_ - _%args127336%_ - _%prelude127334%_))) - (_%else127297127311%_))))) - (_%read-lang127262%_ - (lambda (_%inp127267%_) - (let* ((_%head127269%_ (read-line _%inp127267%_)) - (_%$e127271%_ - (string-index__0 _%head127269%_ '#\space))) - (if _%$e127271%_ - ((lambda (_%ix127274%_) - (let ((_%lang127276%_ + (_%read-body127418%_ + _%inp127452%_ + _%prelude127474%_ + _%ns127482%_ + _%pkg127478%_ + _%args127473%_))))) + (if (pair? _%args127454127462%_) + (let ((_%hd127459127488%_ + (##car _%args127454127462%_)) + (_%tl127460127490%_ + (##cdr _%args127454127462%_))) + (let* ((_%prelude127493%_ _%hd127459127488%_) + (_%args127495%_ _%tl127460127490%_)) + (_%K127458127485%_ + _%args127495%_ + _%prelude127493%_))) + (_%else127456127470%_))))) + (_%read-lang127421%_ + (lambda (_%inp127426%_) + (let* ((_%head127428%_ (read-line _%inp127426%_)) + (_%$e127430%_ + (string-index__0 _%head127428%_ '#\space))) + (if _%$e127430%_ + ((lambda (_%ix127433%_) + (let ((_%lang127435%_ (substring - _%head127269%_ + _%head127428%_ '0 - _%ix127274%_))) - (if (equal? _%lang127276%_ '"#lang") - (let* ((_%rest127278%_ + _%ix127433%_))) + (if (equal? _%lang127435%_ '"#lang") + (let* ((_%rest127437%_ (substring - _%head127269%_ - (##fx+ _%ix127274%_ '1) - (string-length _%head127269%_))) - (_%args127289%_ + _%head127428%_ + (##fx+ _%ix127433%_ '1) + (string-length _%head127428%_))) + (_%args127448%_ (__with-catch - (lambda (_%g127279127281%_) + (lambda (_%g127438127440%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path127256%_ - _%g127279127281%_)) + _%path127415%_ + _%g127438127440%_)) (lambda () (call-with-input-string - _%rest127278%_ - (lambda (_%g127284127286%_) + _%rest127437%_ + (lambda (_%g127443127445%_) (read-all - _%g127284127286%_ + _%g127443127445%_ read))))))) - (_%read-lang-args127261%_ - _%inp127267%_ - _%args127289%_)) + (_%read-lang-args127420%_ + _%inp127426%_ + _%args127448%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127256%_)))) - _%$e127271%_) + _%path127415%_)))) + _%$e127430%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127256%_))))) - (_%read-e127263%_ - (lambda (_%inp127265%_) - (if (eq? (peek-char _%inp127265%_) '#\#) - (_%read-lang127262%_ _%inp127265%_) + _%path127415%_))))) + (_%read-e127422%_ + (lambda (_%inp127424%_) + (if (eq? (peek-char _%inp127424%_) '#\#) + (_%read-lang127421%_ _%inp127424%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127256%_))))) - (gx#call-with-input-source-file _%path127256%_ _%read-e127263%_)))) + _%path127415%_))))) + (gx#call-with-input-source-file _%path127415%_ _%read-e127422%_)))) (define gx#core-read-module-package - (lambda (_%path127204%_ _%pre127205%_ _%ns127206%_) - (letrec ((_%string-e127208%_ - (lambda (_%e127251%_) - (if (symbol? _%e127251%_) - (##symbol->string _%e127251%_) - (if (string? _%e127251%_) - _%e127251%_ + (lambda (_%path127363%_ _%pre127364%_ _%ns127365%_) + (letrec ((_%string-e127367%_ + (lambda (_%e127410%_) + (if (symbol? _%e127410%_) + (##symbol->string _%e127410%_) + (if (string? _%e127410%_) + _%e127410%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e127251%_)))))) - (let _%lp127210%_ ((_%dir127212%_ (path-directory _%path127204%_)) - (_%pkg-path127213%_ '())) - (let ((_%gerbil.pkg127215%_ - (path-expand '"gerbil.pkg" _%dir127212%_))) - (if (##file-exists? _%gerbil.pkg127215%_) - (let ((_%plist127217%_ - (gx#core-library-package-plist__% _%dir127212%_ '#t))) - (if (null? _%plist127217%_) - (let ((_%pkg127220%_ - (if (null? _%pkg-path127213%_) + _%e127410%_)))))) + (let _%lp127369%_ ((_%dir127371%_ (path-directory _%path127363%_)) + (_%pkg-path127372%_ '())) + (let ((_%gerbil.pkg127374%_ + (path-expand '"gerbil.pkg" _%dir127371%_))) + (if (##file-exists? _%gerbil.pkg127374%_) + (let ((_%plist127376%_ + (gx#core-library-package-plist__% _%dir127371%_ '#t))) + (if (null? _%plist127376%_) + (let ((_%pkg127379%_ + (if (null? _%pkg-path127372%_) '#f - (string-join _%pkg-path127213%_ '"/")))) - (values _%pre127205%_ _%ns127206%_ _%pkg127220%_)) - (if (list? _%plist127217%_) - (let* ((_%root127223%_ - (pgetq__0 'package: _%plist127217%_)) - (_%pkg127227%_ - (let ((_%pkg-path127225%_ - (if _%root127223%_ - (cons (_%string-e127208%_ - _%root127223%_) - _%pkg-path127213%_) - _%pkg-path127213%_))) - (if (null? _%pkg-path127225%_) + (string-join _%pkg-path127372%_ '"/")))) + (values _%pre127364%_ _%ns127365%_ _%pkg127379%_)) + (if (list? _%plist127376%_) + (let* ((_%root127382%_ + (pgetq__0 'package: _%plist127376%_)) + (_%pkg127386%_ + (let ((_%pkg-path127384%_ + (if _%root127382%_ + (cons (_%string-e127367%_ + _%root127382%_) + _%pkg-path127372%_) + _%pkg-path127372%_))) + (if (null? _%pkg-path127384%_) '#f (string-join - _%pkg-path127225%_ + _%pkg-path127384%_ '"/")))) - (_%ns127234%_ - (let ((_%ns127232%_ - (let ((_%$e127229%_ _%ns127206%_)) - (if _%$e127229%_ - _%$e127229%_ + (_%ns127393%_ + (let ((_%ns127391%_ + (let ((_%$e127388%_ _%ns127365%_)) + (if _%$e127388%_ + _%$e127388%_ (pgetq__0 'namespace: - _%plist127217%_))))) - (if _%ns127232%_ - (_%string-e127208%_ _%ns127232%_) + _%plist127376%_))))) + (if _%ns127391%_ + (_%string-e127367%_ _%ns127391%_) '#f))) - (_%pre127239%_ - (let ((_%$e127236%_ _%pre127205%_)) - (if _%$e127236%_ - _%$e127236%_ + (_%pre127398%_ + (let ((_%$e127395%_ _%pre127364%_)) + (if _%$e127395%_ + _%$e127395%_ (pgetq__0 'prelude: - _%plist127217%_))))) - (values _%pre127239%_ - _%ns127234%_ - _%pkg127227%_)) + _%plist127376%_))))) + (values _%pre127398%_ + _%ns127393%_ + _%pkg127386%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist127217%_)))) - (let ((_%dir*127243%_ + _%plist127376%_)))) + (let ((_%dir*127402%_ (path-strip-trailing-directory-separator - _%dir127212%_))) - (if (or (__string-empty? _%dir*127243%_) - (equal? _%dir127212%_ _%dir*127243%_)) - (values _%pre127205%_ _%ns127206%_ '#f) - (let ((_%xpath127248%_ - (path-strip-directory _%dir*127243%_)) - (_%xdir127249%_ (path-directory _%dir*127243%_))) - (_%lp127210%_ - _%xdir127249%_ - (cons _%xpath127248%_ _%pkg-path127213%_))))))))))) + _%dir127371%_))) + (if (or (__string-empty? _%dir*127402%_) + (equal? _%dir127371%_ _%dir*127402%_)) + (values _%pre127364%_ _%ns127365%_ '#f) + (let ((_%xpath127407%_ + (path-strip-directory _%dir*127402%_)) + (_%xdir127408%_ (path-directory _%dir*127402%_))) + (_%lp127369%_ + _%xdir127408%_ + (cons _%xpath127407%_ _%pkg-path127372%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path127202%_) - (path-strip-extension (path-strip-directory _%path127202%_)))) + (lambda (_%path127361%_) + (path-strip-extension (path-strip-directory _%path127361%_)))) (define gx#core-module-path->id - (lambda (_%path127200%_) - (##string->symbol (gx#core-module-path->namespace _%path127200%_)))) + (lambda (_%path127359%_) + (##string->symbol (gx#core-module-path->namespace _%path127359%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path127179%_ _%rel127180%_) - (let* ((_%path127182%_ (gx#stx-e _%stx-path127179%_)) - (_%path127184%_ - (if (__string-empty? (path-extension _%path127182%_)) - (##string-append _%path127182%_ '".ss") - _%path127182%_))) + (lambda (_%stx-path127338%_ _%rel127339%_) + (let* ((_%path127341%_ (gx#stx-e _%stx-path127338%_)) + (_%path127343%_ + (if (__string-empty? (path-extension _%path127341%_)) + (##string-append _%path127341%_ '".ss") + _%path127341%_))) (gx#core-resolve-path__% - _%path127184%_ - (let ((_%$e127187%_ (gx#stx-source _%stx-path127179%_))) - (if _%$e127187%_ _%$e127187%_ _%rel127180%_)))))) + _%path127343%_ + (let ((_%$e127346%_ (gx#stx-source _%stx-path127338%_))) + (if _%$e127346%_ _%$e127346%_ _%rel127339%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path127193%_) - (let ((_%rel127195%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path127193%_ _%rel127195%_)))) + (lambda (_%stx-path127352%_) + (let ((_%rel127354%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path127352%_ _%rel127354%_)))) (define gx#core-resolve-module-path - (lambda _g128829_ - (let ((_g128828_ (##length _g128829_))) - (cond ((##fx= _g128828_ 1) - (apply gx#core-resolve-module-path__0 _g128829_)) - ((##fx= _g128828_ 2) - (apply gx#core-resolve-module-path__% _g128829_)) + (lambda _g128988_ + (let ((_g128987_ (##length _g128988_))) + (cond ((##fx= _g128987_ 1) + (apply gx#core-resolve-module-path__0 _g128988_)) + ((##fx= _g128987_ 2) + (apply gx#core-resolve-module-path__% _g128988_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g128829_)))))) + _g128988_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath127064%_) - (let* ((_%spath127066%_ (symbol->string (gx#stx-e _%libpath127064%_))) - (_%spath127068%_ + (lambda (_%libpath127223%_) + (let* ((_%spath127225%_ (symbol->string (gx#stx-e _%libpath127223%_))) + (_%spath127227%_ (substring - _%spath127066%_ + _%spath127225%_ '1 - (##string-length _%spath127066%_))) - (_%ext127070%_ (path-extension _%spath127068%_)) - (_%ssi127072%_ - (if (__string-empty? _%ext127070%_) - (##string-append _%spath127068%_ '".ssi") + (##string-length _%spath127225%_))) + (_%ext127229%_ (path-extension _%spath127227%_)) + (_%ssi127231%_ + (if (__string-empty? _%ext127229%_) + (##string-append _%spath127227%_ '".ssi") (##string-append - (path-strip-extension _%spath127068%_) + (path-strip-extension _%spath127227%_) '".ssi"))) - (_%srcs127076%_ - (if (__string-empty? _%ext127070%_) - (##map (lambda (_%ext127074%_) - (string-append _%spath127068%_ _%ext127074%_)) + (_%srcs127235%_ + (if (__string-empty? _%ext127229%_) + (##map (lambda (_%ext127233%_) + (string-append _%spath127227%_ _%ext127233%_)) '(".ss" ".sld" ".scm")) - (cons _%spath127068%_ '())))) - (let _%lp127079%_ ((_%rest127081%_ (load-path))) - (let* ((_%rest127082127091%_ _%rest127081%_) - (_%E127085127095%_ + (cons _%spath127227%_ '())))) + (let _%lp127238%_ ((_%rest127240%_ (load-path))) + (let* ((_%rest127241127250%_ _%rest127240%_) + (_%E127244127254%_ (lambda () (error '"No clause matching" - _%rest127082127091%_ + _%rest127241127250%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K127087127166%_ - (lambda (_%rest127106%_ _%dir127107%_) - (letrec ((_%resolve127109%_ - (lambda (_%ssi127122%_ _%srcs127123%_) - (let ((_%compiled-path127125%_ + (let ((_%K127246127325%_ + (lambda (_%rest127265%_ _%dir127266%_) + (letrec ((_%resolve127268%_ + (lambda (_%ssi127281%_ _%srcs127282%_) + (let ((_%compiled-path127284%_ (path-expand - _%ssi127122%_ - _%dir127107%_))) + _%ssi127281%_ + _%dir127266%_))) (if (##file-exists? - _%compiled-path127125%_) + _%compiled-path127284%_) (path-normalize - _%compiled-path127125%_) - (let _%lpr127127%_ ((_%rest-src127129%_ - _%srcs127123%_)) - (let* ((_%rest-src127130127138%_ - _%rest-src127129%_) - (_%else127132127146%_ + _%compiled-path127284%_) + (let _%lpr127286%_ ((_%rest-src127288%_ + _%srcs127282%_)) + (let* ((_%rest-src127289127297%_ + _%rest-src127288%_) + (_%else127291127305%_ (lambda () - (_%lp127079%_ - _%rest127106%_))) - (_%K127134127154%_ - (lambda (_%rest-src127149%_ - _%src127150%_) - (let ((_%src-path127152%_ + (_%lp127238%_ + _%rest127265%_))) + (_%K127293127313%_ + (lambda (_%rest-src127308%_ + _%src127309%_) + (let ((_%src-path127311%_ (path-expand - _%src127150%_ - _%dir127107%_))) + _%src127309%_ + _%dir127266%_))) (if (##file-exists? - _%src-path127152%_) + _%src-path127311%_) (path-normalize - _%src-path127152%_) - (_%lpr127127%_ - _%rest-src127149%_)))))) - (if (pair? _%rest-src127130127138%_) - (let ((_%hd127135127157%_ - (##car _%rest-src127130127138%_)) - (_%tl127136127159%_ - (##cdr _%rest-src127130127138%_))) - (let* ((_%src127162%_ - _%hd127135127157%_) - (_%rest-src127164%_ - _%tl127136127159%_)) - (_%K127134127154%_ - _%rest-src127164%_ - _%src127162%_))) - (_%else127132127146%_))))))))) - (let ((_%$e127111%_ + _%src-path127311%_) + (_%lpr127286%_ + _%rest-src127308%_)))))) + (if (pair? _%rest-src127289127297%_) + (let ((_%hd127294127316%_ + (##car _%rest-src127289127297%_)) + (_%tl127295127318%_ + (##cdr _%rest-src127289127297%_))) + (let* ((_%src127321%_ + _%hd127294127316%_) + (_%rest-src127323%_ + _%tl127295127318%_)) + (_%K127293127313%_ + _%rest-src127323%_ + _%src127321%_))) + (_%else127291127305%_))))))))) + (let ((_%$e127270%_ (gx#core-library-package-path-prefix - _%dir127107%_))) - (if _%$e127111%_ - ((lambda (_%prefix127114%_) + _%dir127266%_))) + (if _%$e127270%_ + ((lambda (_%prefix127273%_) (if (string-prefix? - _%prefix127114%_ - _%spath127068%_) - (let ((_%ssi127118%_ + _%prefix127273%_ + _%spath127227%_) + (let ((_%ssi127277%_ (substring - _%ssi127072%_ - (string-length _%prefix127114%_) - (##string-length _%ssi127072%_))) - (_%srcs127119%_ - (##map (lambda (_%src127116%_) + _%ssi127231%_ + (string-length _%prefix127273%_) + (##string-length _%ssi127231%_))) + (_%srcs127278%_ + (##map (lambda (_%src127275%_) (substring - _%src127116%_ + _%src127275%_ (string-length - _%prefix127114%_) + _%prefix127273%_) (string-length - _%src127116%_))) - _%srcs127076%_))) - (_%resolve127109%_ - _%ssi127118%_ - _%srcs127119%_)) - (_%lp127079%_ _%rest127106%_))) - _%$e127111%_) - (_%resolve127109%_ - _%ssi127072%_ - _%srcs127076%_)))))) - (_%K127086127100%_ + _%src127275%_))) + _%srcs127235%_))) + (_%resolve127268%_ + _%ssi127277%_ + _%srcs127278%_)) + (_%lp127238%_ _%rest127265%_))) + _%$e127270%_) + (_%resolve127268%_ + _%ssi127231%_ + _%srcs127235%_)))))) + (_%K127245127259%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath127064%_)))) - (let ((_%try-match127084127103%_ + _%libpath127223%_)))) + (let ((_%try-match127243127262%_ (lambda () - (if (null? _%rest127082127091%_) - (_%K127086127100%_) - (_%E127085127095%_))))) - (if (pair? _%rest127082127091%_) - (let ((_%tl127089127171%_ (##cdr _%rest127082127091%_)) - (_%hd127088127169%_ (##car _%rest127082127091%_))) - (let ((_%dir127174%_ _%hd127088127169%_) - (_%rest127176%_ _%tl127089127171%_)) - (_%K127087127166%_ _%rest127176%_ _%dir127174%_))) - (_%try-match127084127103%_))))))))) + (if (null? _%rest127241127250%_) + (_%K127245127259%_) + (_%E127244127254%_))))) + (if (pair? _%rest127241127250%_) + (let ((_%tl127248127330%_ (##cdr _%rest127241127250%_)) + (_%hd127247127328%_ (##car _%rest127241127250%_))) + (let ((_%dir127333%_ _%hd127247127328%_) + (_%rest127335%_ _%tl127248127330%_)) + (_%K127246127325%_ _%rest127335%_ _%dir127333%_))) + (_%try-match127243127262%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath127032%_) - (letrec ((_%resolve127034%_ - (lambda (_%path127055%_ _%base127056%_) - (let ((_%$e127058%_ - (string-rindex__0 _%base127056%_ '#\/))) - (if _%$e127058%_ - ((lambda (_%idx127061%_) + (lambda (_%modpath127191%_) + (letrec ((_%resolve127193%_ + (lambda (_%path127214%_ _%base127215%_) + (let ((_%$e127217%_ + (string-rindex__0 _%base127215%_ '#\/))) + (if _%$e127217%_ + ((lambda (_%idx127220%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base127056%_ '0 _%idx127061%_) + (substring _%base127215%_ '0 _%idx127220%_) '"/" - _%path127055%_)))) - _%$e127058%_) + _%path127214%_)))) + _%$e127217%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path127055%_)))))))) - (let ((_%spath127036%_ (symbol->string (gx#stx-e _%modpath127032%_))) - (_%mod127037%_ + (string-append '":" _%path127214%_)))))))) + (let ((_%spath127195%_ (symbol->string (gx#stx-e _%modpath127191%_))) + (_%mod127196%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod127037%_ + (if _%mod127196%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath127032%_)) - (let ((_%mpath127039%_ + _%modpath127191%_)) + (let ((_%mpath127198%_ (symbol->string (##structure-ref - _%mod127037%_ + _%mod127196%_ '1 gx#expander-context::t '#f)))) - (let _%lp127041%_ ((_%spath127043%_ _%spath127036%_) - (_%mpath127044%_ _%mpath127039%_)) - (if (string-prefix? '"../" _%spath127043%_) - (let ((_%$e127047%_ - (string-rindex__0 _%mpath127044%_ '#\/))) - (if _%$e127047%_ - ((lambda (_%idx127050%_) - (_%lp127041%_ + (let _%lp127200%_ ((_%spath127202%_ _%spath127195%_) + (_%mpath127203%_ _%mpath127198%_)) + (if (string-prefix? '"../" _%spath127202%_) + (let ((_%$e127206%_ + (string-rindex__0 _%mpath127203%_ '#\/))) + (if _%$e127206%_ + ((lambda (_%idx127209%_) + (_%lp127200%_ (substring - _%spath127043%_ + _%spath127202%_ '3 - (string-length _%spath127043%_)) - (substring _%mpath127044%_ '0 _%idx127050%_))) - _%$e127047%_) + (string-length _%spath127202%_)) + (substring _%mpath127203%_ '0 _%idx127209%_))) + _%$e127206%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath127032%_))) - (if (string-prefix? '"./" _%spath127043%_) - (_%lp127041%_ + _%modpath127191%_))) + (if (string-prefix? '"./" _%spath127202%_) + (_%lp127200%_ (substring - _%spath127043%_ + _%spath127202%_ '2 - (string-length _%spath127043%_)) - _%mpath127044%_) - (_%resolve127034%_ - _%spath127043%_ - _%mpath127044%_))))))))) + (string-length _%spath127202%_)) + _%mpath127203%_) + (_%resolve127193%_ + _%spath127202%_ + _%mpath127203%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir127024%_) - (let ((_%$e127026%_ + (lambda (_%dir127183%_) + (let ((_%$e127185%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir127024%_)))) - (if _%$e127026%_ - ((lambda (_%pkg127029%_) - (##string-append (symbol->string _%pkg127029%_) '"/")) - _%$e127026%_) + (gx#core-library-package-plist__0 _%dir127183%_)))) + (if _%$e127185%_ + ((lambda (_%pkg127188%_) + (##string-append (symbol->string _%pkg127188%_) '"/")) + _%$e127185%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir126994%_ _%exists?126995%_) - (let ((_%$e126997%_ (__hash-get gx#__module-pkg-cache _%dir126994%_))) - (if _%$e126997%_ - _%$e126997%_ - (let* ((_%gerbil.pkg127001%_ - (path-expand '"gerbil.pkg" _%dir126994%_)) - (_%plist127011%_ - (if (or _%exists?126995%_ - (##file-exists? _%gerbil.pkg127001%_)) - (let ((_%e127006%_ + (lambda (_%dir127153%_ _%exists?127154%_) + (let ((_%$e127156%_ (__hash-get gx#__module-pkg-cache _%dir127153%_))) + (if _%$e127156%_ + _%$e127156%_ + (let* ((_%gerbil.pkg127160%_ + (path-expand '"gerbil.pkg" _%dir127153%_)) + (_%plist127170%_ + (if (or _%exists?127154%_ + (##file-exists? _%gerbil.pkg127160%_)) + (let ((_%e127165%_ (gx#call-with-input-source-file - _%gerbil.pkg127001%_ + _%gerbil.pkg127160%_ read))) - (if (eof-object? _%e127006%_) + (if (eof-object? _%e127165%_) '() - (if (list? _%e127006%_) - _%e127006%_ + (if (list? _%e127165%_) + _%e127165%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg127001%_ - _%e127006%_)))) + _%gerbil.pkg127160%_ + _%e127165%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir126994%_ - _%plist127011%_) - _%plist127011%_))))) + _%dir127153%_ + _%plist127170%_) + _%plist127170%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir127017%_) - (let ((_%exists?127019%_ '#f)) - (gx#core-library-package-plist__% _%dir127017%_ _%exists?127019%_)))) + (lambda (_%dir127176%_) + (let ((_%exists?127178%_ '#f)) + (gx#core-library-package-plist__% _%dir127176%_ _%exists?127178%_)))) (define gx#core-library-package-plist - (lambda _g128831_ - (let ((_g128830_ (##length _g128831_))) - (cond ((##fx= _g128830_ 1) - (apply gx#core-library-package-plist__0 _g128831_)) - ((##fx= _g128830_ 2) - (apply gx#core-library-package-plist__% _g128831_)) + (lambda _g128990_ + (let ((_g128989_ (##length _g128990_))) + (cond ((##fx= _g128989_ 1) + (apply gx#core-library-package-plist__0 _g128990_)) + ((##fx= _g128989_ 2) + (apply gx#core-library-package-plist__% _g128990_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g128831_)))))) + _g128990_)))))) (define gx#core-library-module-path? - (lambda (_%stx126991%_) - (gx#core-special-module-path? _%stx126991%_ '#\:))) + (lambda (_%stx127150%_) + (gx#core-special-module-path? _%stx127150%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx126989%_) - (gx#core-special-module-path? _%stx126989%_ '#\.))) + (lambda (_%stx127148%_) + (gx#core-special-module-path? _%stx127148%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx126984%_ _%char126985%_) - (if (gx#identifier? _%stx126984%_) - (if (interned-symbol? (gx#stx-e _%stx126984%_)) - (let ((_%str126987%_ - (symbol->string (gx#stx-e _%stx126984%_)))) - (if (##fx> (##string-length _%str126987%_) '1) - (eq? (string-ref _%str126987%_ '0) _%char126985%_) + (lambda (_%stx127143%_ _%char127144%_) + (if (gx#identifier? _%stx127143%_) + (if (interned-symbol? (gx#stx-e _%stx127143%_)) + (let ((_%str127146%_ + (symbol->string (gx#stx-e _%stx127143%_)))) + (if (##fx> (##string-length _%str127146%_) '1) + (eq? (string-ref _%str127146%_ '0) _%char127144%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx126978%_) + (lambda (_%stx127137%_) (gx#core-bound-identifier?__% - _%stx126978%_ - (lambda (_%g126979126981%_) - (gx#expander-binding?__% _%g126979126981%_ gx#prelude-context?))))) + _%stx127137%_ + (lambda (_%g127138127140%_) + (gx#expander-binding?__% _%g127138127140%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx126972%_) + (lambda (_%stx127131%_) (gx#core-bound-identifier?__% - _%stx126972%_ - (lambda (_%g126973126975%_) - (gx#expander-binding?__% _%g126973126975%_ gx#module-context?))))) + _%stx127131%_ + (lambda (_%g127132127134%_) + (gx#expander-binding?__% _%g127132127134%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx126959%_) - (letrec ((_%module-prelude?126961%_ - (lambda (_%e126967%_) - (let ((_%$e126969%_ + (lambda (_%stx127118%_) + (letrec ((_%module-prelude?127120%_ + (lambda (_%e127126%_) + (let ((_%$e127128%_ (##structure-instance-of? - _%e126967%_ + _%e127126%_ 'gx#module-context::t))) - (if _%$e126969%_ - _%$e126969%_ + (if _%$e127128%_ + _%$e127128%_ (##structure-instance-of? - _%e126967%_ + _%e127126%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx126959%_ - (lambda (_%g126962126964%_) + _%stx127118%_ + (lambda (_%g127121127123%_) (gx#expander-binding?__% - _%g126962126964%_ - _%module-prelude?126961%_)))))) + _%g127121127123%_ + _%module-prelude?127120%_)))))) (define gx#core-bind-import!__% - (lambda (_%in126889%_ _%ctx126890%_ _%force-weak?126891%_) - (let* ((_%in126892126901%_ _%in126889%_) - (_%E126894126905%_ + (lambda (_%in127048%_ _%ctx127049%_ _%force-weak?127050%_) + (let* ((_%in127051127060%_ _%in127048%_) + (_%E127053127064%_ (lambda () (error '"No clause matching" - _%in126892126901%_ + _%in127051127060%_ '((module-import source key phi weak?))) '#!void)) - (_%K126895126918%_ - (lambda (_%weak?126908%_ - _%phi126909%_ - _%key126910%_ - _%source126911%_) + (_%K127054127077%_ + (lambda (_%weak?127067%_ + _%phi127068%_ + _%key127069%_ + _%source127070%_) (gx#core-bind!__% - _%key126910%_ - (let ((_%e126913%_ - (gx#core-resolve-module-export _%source126911%_))) + _%key127069%_ + (let ((_%e127072%_ + (gx#core-resolve-module-export _%source127070%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e126913%_ '1 '#f '#f) - _%key126910%_ - _%phi126909%_ - _%e126913%_ - (##unchecked-structure-ref _%source126911%_ '1 '#f '#f) - (let ((_%$e126915%_ _%force-weak?126891%_)) - (if _%$e126915%_ _%$e126915%_ _%weak?126908%_)))) + (##unchecked-structure-ref _%e127072%_ '1 '#f '#f) + _%key127069%_ + _%phi127068%_ + _%e127072%_ + (##unchecked-structure-ref _%source127070%_ '1 '#f '#f) + (let ((_%$e127074%_ _%force-weak?127050%_)) + (if _%$e127074%_ _%$e127074%_ _%weak?127067%_)))) gx#core-context-rebind? - _%phi126909%_ - _%ctx126890%_)))) + _%phi127068%_ + _%ctx127049%_)))) (if (##structure-direct-instance-of? - _%in126892126901%_ + _%in127051127060%_ 'gx#module-import::t) - (let* ((_%e126896126921%_ + (let* ((_%e127055127080%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in127051127060%_ '1 '#f '#f)) - (_%source126924%_ _%e126896126921%_) - (_%e126897126926%_ + (_%source127083%_ _%e127055127080%_) + (_%e127056127085%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in127051127060%_ '2 '#f '#f)) - (_%key126929%_ _%e126897126926%_) - (_%e126898126931%_ + (_%key127088%_ _%e127056127085%_) + (_%e127057127090%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in127051127060%_ '3 '#f '#f)) - (_%phi126934%_ _%e126898126931%_) - (_%e126899126936%_ + (_%phi127093%_ _%e127057127090%_) + (_%e127058127095%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in127051127060%_ '4 '#f '#f)) - (_%weak?126939%_ _%e126899126936%_)) - (_%K126895126918%_ - _%weak?126939%_ - _%phi126934%_ - _%key126929%_ - _%source126924%_)) - (_%E126894126905%_))))) + (_%weak?127098%_ _%e127058127095%_)) + (_%K127054127077%_ + _%weak?127098%_ + _%phi127093%_ + _%key127088%_ + _%source127083%_)) + (_%E127053127064%_))))) (define gx#core-bind-import!__0 - (lambda (_%in126944%_) - (let* ((_%ctx126946%_ (gx#current-expander-context)) - (_%force-weak?126948%_ '#f)) + (lambda (_%in127103%_) + (let* ((_%ctx127105%_ (gx#current-expander-context)) + (_%force-weak?127107%_ '#f)) (gx#core-bind-import!__% - _%in126944%_ - _%ctx126946%_ - _%force-weak?126948%_)))) + _%in127103%_ + _%ctx127105%_ + _%force-weak?127107%_)))) (define gx#core-bind-import!__1 - (lambda (_%in126950%_ _%ctx126951%_) - (let ((_%force-weak?126953%_ '#f)) + (lambda (_%in127109%_ _%ctx127110%_) + (let ((_%force-weak?127112%_ '#f)) (gx#core-bind-import!__% - _%in126950%_ - _%ctx126951%_ - _%force-weak?126953%_)))) + _%in127109%_ + _%ctx127110%_ + _%force-weak?127112%_)))) (define gx#core-bind-import! - (lambda _g128833_ - (let ((_g128832_ (##length _g128833_))) - (cond ((##fx= _g128832_ 1) (apply gx#core-bind-import!__0 _g128833_)) - ((##fx= _g128832_ 2) (apply gx#core-bind-import!__1 _g128833_)) - ((##fx= _g128832_ 3) (apply gx#core-bind-import!__% _g128833_)) + (lambda _g128992_ + (let ((_g128991_ (##length _g128992_))) + (cond ((##fx= _g128991_ 1) (apply gx#core-bind-import!__0 _g128992_)) + ((##fx= _g128991_ 2) (apply gx#core-bind-import!__1 _g128992_)) + ((##fx= _g128991_ 3) (apply gx#core-bind-import!__% _g128992_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g128833_)))))) + _g128992_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in126875%_ _%ctx126876%_) - (gx#core-bind-import!__% _%in126875%_ _%ctx126876%_ '#t))) + (lambda (_%in127034%_ _%ctx127035%_) + (gx#core-bind-import!__% _%in127034%_ _%ctx127035%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in126881%_) - (let ((_%ctx126883%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in126881%_ _%ctx126883%_)))) + (lambda (_%in127040%_) + (let ((_%ctx127042%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in127040%_ _%ctx127042%_)))) (define gx#core-bind-weak-import! - (lambda _g128835_ - (let ((_g128834_ (##length _g128835_))) - (cond ((##fx= _g128834_ 1) - (apply gx#core-bind-weak-import!__0 _g128835_)) - ((##fx= _g128834_ 2) - (apply gx#core-bind-weak-import!__% _g128835_)) + (lambda _g128994_ + (let ((_g128993_ (##length _g128994_))) + (cond ((##fx= _g128993_ 1) + (apply gx#core-bind-weak-import!__0 _g128994_)) + ((##fx= _g128993_ 2) + (apply gx#core-bind-weak-import!__% _g128994_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g128835_)))))) + _g128994_)))))) (define gx#core-resolve-module-export - (lambda (_%out126766%_) - (letrec ((_%subst126768%_ - (lambda (_%key126814%_) - (let* ((_%key126815126823%_ _%key126814%_) - (_%else126817126831%_ (lambda () _%key126814%_)) - (_%K126819126862%_ - (lambda (_%mark126834%_ _%id126835%_) - (let* ((_%mark126836126842%_ _%mark126834%_) - (_%E126838126846%_ + (lambda (_%out126925%_) + (letrec ((_%subst126927%_ + (lambda (_%key126973%_) + (let* ((_%key126974126982%_ _%key126973%_) + (_%else126976126990%_ (lambda () _%key126973%_)) + (_%K126978127021%_ + (lambda (_%mark126993%_ _%id126994%_) + (let* ((_%mark126995127001%_ _%mark126993%_) + (_%E126997127005%_ (lambda () (error '"No clause matching" - _%mark126836126842%_ + _%mark126995127001%_ '((expander-mark subst))) '#!void)) - (_%K126839126854%_ - (lambda (_%subst126849%_) - (let ((_%$e126851%_ - (if _%subst126849%_ + (_%K126998127013%_ + (lambda (_%subst127008%_) + (let ((_%$e127010%_ + (if _%subst127008%_ (hash-get - _%subst126849%_ - _%id126835%_) + _%subst127008%_ + _%id126994%_) '#f))) - (if _%$e126851%_ - _%$e126851%_ + (if _%$e127010%_ + _%$e127010%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key126814%_)))))) + _%key126973%_)))))) (if (##structure-instance-of? - _%mark126836126842%_ + _%mark126995127001%_ 'gx#expander-mark::t) - (let* ((_%e126840126857%_ + (let* ((_%e126999127016%_ (##unchecked-structure-ref - _%mark126836126842%_ + _%mark126995127001%_ '1 '#f '#f)) - (_%subst126860%_ _%e126840126857%_)) - (_%K126839126854%_ _%subst126860%_)) - (_%E126838126846%_)))))) - (if (pair? _%key126815126823%_) - (let ((_%hd126820126865%_ - (##car _%key126815126823%_)) - (_%tl126821126867%_ - (##cdr _%key126815126823%_))) - (let* ((_%id126870%_ _%hd126820126865%_) - (_%mark126872%_ _%tl126821126867%_)) - (_%K126819126862%_ _%mark126872%_ _%id126870%_))) - (_%else126817126831%_)))))) - (let* ((_%out126769126779%_ _%out126766%_) - (_%E126771126783%_ + (_%subst127019%_ _%e126999127016%_)) + (_%K126998127013%_ _%subst127019%_)) + (_%E126997127005%_)))))) + (if (pair? _%key126974126982%_) + (let ((_%hd126979127024%_ + (##car _%key126974126982%_)) + (_%tl126980127026%_ + (##cdr _%key126974126982%_))) + (let* ((_%id127029%_ _%hd126979127024%_) + (_%mark127031%_ _%tl126980127026%_)) + (_%K126978127021%_ _%mark127031%_ _%id127029%_))) + (_%else126976126990%_)))))) + (let* ((_%out126928126938%_ _%out126925%_) + (_%E126930126942%_ (lambda () (error '"No clause matching" - _%out126769126779%_ + _%out126928126938%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K126772126790%_ - (lambda (_%phi126786%_ _%key126787%_ _%ctx126788%_) + (_%K126931126949%_ + (lambda (_%phi126945%_ _%key126946%_ _%ctx126947%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx126788%_ _%phi126786%_) - (_%subst126768%_ _%key126787%_))))) + (gx#core-context-shift _%ctx126947%_ _%phi126945%_) + (_%subst126927%_ _%key126946%_))))) (if (##structure-direct-instance-of? - _%out126769126779%_ + _%out126928126938%_ 'gx#module-export::t) - (let* ((_%e126773126793%_ + (let* ((_%e126932126952%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out126928126938%_ '1 '#f '#f)) - (_%ctx126796%_ _%e126773126793%_) - (_%e126774126798%_ + (_%ctx126955%_ _%e126932126952%_) + (_%e126933126957%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out126928126938%_ '2 '#f '#f)) - (_%key126801%_ _%e126774126798%_) - (_%e126775126803%_ + (_%key126960%_ _%e126933126957%_) + (_%e126934126962%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out126928126938%_ '3 '#f '#f)) - (_%phi126806%_ _%e126775126803%_) - (_%e126776126808%_ + (_%phi126965%_ _%e126934126962%_) + (_%e126935126967%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out126928126938%_ '4 '#f '#f)) - (_%e126777126811%_ + (_%e126936126970%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out126928126938%_ '5 '#f '#f))) - (_%K126772126790%_ - _%phi126806%_ - _%key126801%_ - _%ctx126796%_)) - (_%E126771126783%_)))))) + (_%K126931126949%_ + _%phi126965%_ + _%key126960%_ + _%ctx126955%_)) + (_%E126930126942%_)))))) (define gx#core-module-export->import__% - (lambda (_%out126691%_ _%rename126692%_ _%dphi126693%_) - (let* ((_%out126694126704%_ _%out126691%_) - (_%E126696126708%_ + (lambda (_%out126850%_ _%rename126851%_ _%dphi126852%_) + (let* ((_%out126853126863%_ _%out126850%_) + (_%E126855126867%_ (lambda () (error '"No clause matching" - _%out126694126704%_ + _%out126853126863%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K126697126720%_ - (lambda (_%weak?126711%_ - _%name126712%_ - _%phi126713%_ - _%key126714%_ - _%ctx126715%_) + (_%K126856126879%_ + (lambda (_%weak?126870%_ + _%name126871%_ + _%phi126872%_ + _%key126873%_ + _%ctx126874%_) (##structure gx#module-import::t - _%out126691%_ - (let ((_%$e126717%_ _%rename126692%_)) - (if _%$e126717%_ _%$e126717%_ _%name126712%_)) - (fx+ _%phi126713%_ _%dphi126693%_) - _%weak?126711%_)))) + _%out126850%_ + (let ((_%$e126876%_ _%rename126851%_)) + (if _%$e126876%_ _%$e126876%_ _%name126871%_)) + (fx+ _%phi126872%_ _%dphi126852%_) + _%weak?126870%_)))) (if (##structure-direct-instance-of? - _%out126694126704%_ + _%out126853126863%_ 'gx#module-export::t) - (let* ((_%e126698126723%_ + (let* ((_%e126857126882%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out126853126863%_ '1 '#f '#f)) - (_%ctx126726%_ _%e126698126723%_) - (_%e126699126728%_ + (_%ctx126885%_ _%e126857126882%_) + (_%e126858126887%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out126853126863%_ '2 '#f '#f)) - (_%key126731%_ _%e126699126728%_) - (_%e126700126733%_ + (_%key126890%_ _%e126858126887%_) + (_%e126859126892%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out126853126863%_ '3 '#f '#f)) - (_%phi126736%_ _%e126700126733%_) - (_%e126701126738%_ + (_%phi126895%_ _%e126859126892%_) + (_%e126860126897%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out126853126863%_ '4 '#f '#f)) - (_%name126741%_ _%e126701126738%_) - (_%e126702126743%_ + (_%name126900%_ _%e126860126897%_) + (_%e126861126902%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out126853126863%_ '5 '#f '#f)) - (_%weak?126746%_ _%e126702126743%_)) - (_%K126697126720%_ - _%weak?126746%_ - _%name126741%_ - _%phi126736%_ - _%key126731%_ - _%ctx126726%_)) - (_%E126696126708%_))))) + (_%weak?126905%_ _%e126861126902%_)) + (_%K126856126879%_ + _%weak?126905%_ + _%name126900%_ + _%phi126895%_ + _%key126890%_ + _%ctx126885%_)) + (_%E126855126867%_))))) (define gx#core-module-export->import__0 - (lambda (_%out126751%_) - (let* ((_%rename126753%_ '#f) (_%dphi126755%_ '0)) + (lambda (_%out126910%_) + (let* ((_%rename126912%_ '#f) (_%dphi126914%_ '0)) (gx#core-module-export->import__% - _%out126751%_ - _%rename126753%_ - _%dphi126755%_)))) + _%out126910%_ + _%rename126912%_ + _%dphi126914%_)))) (define gx#core-module-export->import__1 - (lambda (_%out126757%_ _%rename126758%_) - (let ((_%dphi126760%_ '0)) + (lambda (_%out126916%_ _%rename126917%_) + (let ((_%dphi126919%_ '0)) (gx#core-module-export->import__% - _%out126757%_ - _%rename126758%_ - _%dphi126760%_)))) + _%out126916%_ + _%rename126917%_ + _%dphi126919%_)))) (define gx#core-module-export->import - (lambda _g128837_ - (let ((_g128836_ (##length _g128837_))) - (cond ((##fx= _g128836_ 1) - (apply gx#core-module-export->import__0 _g128837_)) - ((##fx= _g128836_ 2) - (apply gx#core-module-export->import__1 _g128837_)) - ((##fx= _g128836_ 3) - (apply gx#core-module-export->import__% _g128837_)) + (lambda _g128996_ + (let ((_g128995_ (##length _g128996_))) + (cond ((##fx= _g128995_ 1) + (apply gx#core-module-export->import__0 _g128996_)) + ((##fx= _g128995_ 2) + (apply gx#core-module-export->import__1 _g128996_)) + ((##fx= _g128995_ 3) + (apply gx#core-module-export->import__% _g128996_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g128837_)))))) + _g128996_)))))) (define gx#core-expand-module% - (lambda (_%stx126590%_) - (letrec ((_%make-context126592%_ - (lambda (_%id126669%_) - (let* ((_%super126671%_ (gx#current-expander-context)) - (_%bind-id126673%_ (gx#stx-e _%id126669%_)) - (_%mod-id126675%_ + (lambda (_%stx126749%_) + (letrec ((_%make-context126751%_ + (lambda (_%id126828%_) + (let* ((_%super126830%_ (gx#current-expander-context)) + (_%bind-id126832%_ (gx#stx-e _%id126828%_)) + (_%mod-id126834%_ (if (##structure-instance-of? - _%super126671%_ + _%super126830%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super126671%_ + _%super126830%_ '1 '#f '#f) '"~" - _%bind-id126673%_) - _%bind-id126673%_)) - (_%ns126677%_ (symbol->string _%mod-id126675%_)) - (_%path126687%_ + _%bind-id126832%_) + _%bind-id126832%_)) + (_%ns126836%_ (symbol->string _%mod-id126834%_)) + (_%path126846%_ (if (##structure-instance-of? - _%super126671%_ + _%super126830%_ 'gx#module-context::t) - (let ((_%path126679%_ + (let ((_%path126838%_ (##unchecked-structure-ref - _%super126671%_ + _%super126830%_ '7 '#f '#f))) - (if (or (pair? _%path126679%_) - (null? _%path126679%_)) - (cons _%bind-id126673%_ _%path126679%_) - (if (not _%path126679%_) - _%bind-id126673%_ - (cons _%bind-id126673%_ - (cons _%path126679%_ '()))))) - _%bind-id126673%_)) - (__obj128813 + (if (or (pair? _%path126838%_) + (null? _%path126838%_)) + (cons _%bind-id126832%_ _%path126838%_) + (if (not _%path126838%_) + _%bind-id126832%_ + (cons _%bind-id126832%_ + (cons _%path126838%_ '()))))) + _%bind-id126832%_)) + (__obj128972 (##structure gx#module-context::t '#f @@ -2179,702 +2179,702 @@ '#f '#f))) (gx#module-context:::init! - __obj128813 - _%mod-id126675%_ - _%super126671%_ - _%ns126677%_ - _%path126687%_) - __obj128813))) - (_%valid-module-id?126593%_ - (lambda (_%id126644%_) - (let* ((_%str126646%_ (symbol->string _%id126644%_)) - (_%len126648%_ (##string-length _%str126646%_))) - (if (##fx>= _%len126648%_ '1) - (let _%loop126651%_ ((_%index126653%_ + __obj128972 + _%mod-id126834%_ + _%super126830%_ + _%ns126836%_ + _%path126846%_) + __obj128972))) + (_%valid-module-id?126752%_ + (lambda (_%id126803%_) + (let* ((_%str126805%_ (symbol->string _%id126803%_)) + (_%len126807%_ (##string-length _%str126805%_))) + (if (##fx>= _%len126807%_ '1) + (let _%loop126810%_ ((_%index126812%_ (##fx- (##string-length - _%str126646%_) + _%str126805%_) '1))) - (if (##fx>= _%index126653%_ '0) - (let ((_%c126655%_ + (if (##fx>= _%index126812%_ '0) + (let ((_%c126814%_ (string-ref - _%str126646%_ - _%index126653%_))) - (if (or (and (##char>=? _%c126655%_ '#\a) - (##char<=? _%c126655%_ '#\z)) - (and (##char>=? _%c126655%_ '#\A) - (##char<=? _%c126655%_ '#\Z)) - (and (##char>=? _%c126655%_ '#\0) - (##char<=? _%c126655%_ '#\9)) - (##char=? _%c126655%_ '#\_) - (##char=? _%c126655%_ '#\-)) - (_%loop126651%_ - (##fx- _%index126653%_ '1)) + _%str126805%_ + _%index126812%_))) + (if (or (and (##char>=? _%c126814%_ '#\a) + (##char<=? _%c126814%_ '#\z)) + (and (##char>=? _%c126814%_ '#\A) + (##char<=? _%c126814%_ '#\Z)) + (and (##char>=? _%c126814%_ '#\0) + (##char<=? _%c126814%_ '#\9)) + (##char=? _%c126814%_ '#\_) + (##char=? _%c126814%_ '#\-)) + (_%loop126810%_ + (##fx- _%index126812%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e126594126604%_ _%stx126590%_) - (_%E126596126608%_ + (let* ((_%e126753126763%_ _%stx126749%_) + (_%E126755126767%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126594126604%_))) - (_%E126595126640%_ + _%e126753126763%_))) + (_%E126754126799%_ (lambda () - (if (gx#stx-pair? _%e126594126604%_) - (let ((_%e126597126612%_ - (gx#syntax-e _%e126594126604%_))) - (let ((_%hd126598126615%_ (##car _%e126597126612%_)) - (_%tl126599126617%_ (##cdr _%e126597126612%_))) - (if (gx#stx-pair? _%tl126599126617%_) - (let ((_%e126600126620%_ - (gx#syntax-e _%tl126599126617%_))) - (let ((_%hd126601126623%_ - (##car _%e126600126620%_)) - (_%tl126602126625%_ - (##cdr _%e126600126620%_))) - (let* ((_%id126628%_ _%hd126601126623%_) - (_%body126630%_ _%tl126602126625%_)) - (if (and (gx#identifier? _%id126628%_) - (gx#stx-list? _%body126630%_)) - (if (_%valid-module-id?126593%_ + (if (gx#stx-pair? _%e126753126763%_) + (let ((_%e126756126771%_ + (gx#syntax-e _%e126753126763%_))) + (let ((_%hd126757126774%_ (##car _%e126756126771%_)) + (_%tl126758126776%_ (##cdr _%e126756126771%_))) + (if (gx#stx-pair? _%tl126758126776%_) + (let ((_%e126759126779%_ + (gx#syntax-e _%tl126758126776%_))) + (let ((_%hd126760126782%_ + (##car _%e126759126779%_)) + (_%tl126761126784%_ + (##cdr _%e126759126779%_))) + (let* ((_%id126787%_ _%hd126760126782%_) + (_%body126789%_ _%tl126761126784%_)) + (if (and (gx#identifier? _%id126787%_) + (gx#stx-list? _%body126789%_)) + (if (_%valid-module-id?126752%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx126632%_ - (_%make-context126592%_ - _%id126628%_)) - (_%body126634%_ + (let* ((_%ctx126791%_ + (_%make-context126751%_ + _%id126787%_)) + (_%body126793%_ (gx#core-expand-module-begin - _%body126630%_ - _%ctx126632%_)) - (_%body126636%_ + _%body126789%_ + _%ctx126791%_)) + (_%body126795%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body126634%_) + _%body126793%_) (gx#stx-source - _%stx126590%_)))) + _%stx126749%_)))) (##unchecked-structure-set! - _%ctx126632%_ + _%ctx126791%_ (__make-promise (lambda () (gx#eval-syntax* - _%body126636%_))) + _%body126795%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126632%_ - _%body126636%_ + _%ctx126791%_ + _%body126795%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id126628%_ - _%ctx126632%_) + _%id126787%_ + _%ctx126791%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id126628%_) - _%body126636%_) + _%id126787%_) + _%body126795%_) (gx#stx-source - _%stx126590%_))) + _%stx126749%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx126590%_ + _%stx126749%_ (gx#datum->syntax__0 '#f 'id))) - (_%E126596126608%_))))) - (_%E126596126608%_)))) - (_%E126596126608%_))))) - (_%E126595126640%_))))) + (_%E126755126767%_))))) + (_%E126755126767%_)))) + (_%E126755126767%_))))) + (_%E126754126799%_))))) (define gx#core-expand-module-begin - (lambda (_%body126556%_ _%ctx126557%_) + (lambda (_%body126715%_ _%ctx126716%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx126560%_ - (gx#core-expand-head (cons '%%begin-module _%body126556%_))) - (_%e126561126568%_ _%stx126560%_) - (_%E126563126572%_ + (let* ((_%stx126719%_ + (gx#core-expand-head (cons '%%begin-module _%body126715%_))) + (_%e126720126727%_ _%stx126719%_) + (_%E126722126731%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx126560%_))) - (_%E126562126586%_ + _%stx126719%_))) + (_%E126721126745%_ (lambda () - (if (gx#stx-pair? _%e126561126568%_) - (let ((_%e126564126576%_ - (gx#syntax-e _%e126561126568%_))) - (let ((_%hd126565126579%_ (##car _%e126564126576%_)) - (_%tl126566126581%_ - (##cdr _%e126564126576%_))) - (if (and (gx#identifier? _%hd126565126579%_) + (if (gx#stx-pair? _%e126720126727%_) + (let ((_%e126723126735%_ + (gx#syntax-e _%e126720126727%_))) + (let ((_%hd126724126738%_ (##car _%e126723126735%_)) + (_%tl126725126740%_ + (##cdr _%e126723126735%_))) + (if (and (gx#identifier? _%hd126724126738%_) (gx#core-identifier=? - _%hd126565126579%_ + _%hd126724126738%_ '%#begin-module)) - (let ((_%body126584%_ _%tl126566126581%_)) - (if (gx#sealed-syntax? _%stx126560%_) - _%body126584%_ + (let ((_%body126743%_ _%tl126725126740%_)) + (if (gx#sealed-syntax? _%stx126719%_) + _%body126743%_ (gx#core-expand-module-body - _%body126584%_))) - (_%E126563126572%_)))) - (_%E126563126572%_))))) - (_%E126562126586%_))) + _%body126743%_))) + (_%E126722126731%_)))) + (_%E126722126731%_))))) + (_%E126721126745%_))) gx#current-expander-context - _%ctx126557%_ + _%ctx126716%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body126352%_) - (letrec ((_%expand-special126354%_ - (lambda (_%hd126483%_ _%K126484%_ _%rest126485%_ _%r126486%_) - (let* ((_%e126487126504%_ _%hd126483%_) - (_%E126499126508%_ + (lambda (_%body126511%_) + (letrec ((_%expand-special126513%_ + (lambda (_%hd126642%_ _%K126643%_ _%rest126644%_ _%r126645%_) + (let* ((_%e126646126663%_ _%hd126642%_) + (_%E126658126667%_ (lambda () - (_%K126484%_ - _%rest126485%_ - (cons (gx#core-expand-top _%hd126483%_) - _%r126486%_)))) - (_%E126489126520%_ + (_%K126643%_ + _%rest126644%_ + (cons (gx#core-expand-top _%hd126642%_) + _%r126645%_)))) + (_%E126648126679%_ (lambda () - (if (gx#stx-pair? _%e126487126504%_) - (let ((_%e126500126512%_ - (gx#syntax-e _%e126487126504%_))) - (let ((_%hd126501126515%_ - (##car _%e126500126512%_)) - (_%tl126502126517%_ - (##cdr _%e126500126512%_))) + (if (gx#stx-pair? _%e126646126663%_) + (let ((_%e126659126671%_ + (gx#syntax-e _%e126646126663%_))) + (let ((_%hd126660126674%_ + (##car _%e126659126671%_)) + (_%tl126661126676%_ + (##cdr _%e126659126671%_))) (if (and (gx#identifier? - _%hd126501126515%_) + _%hd126660126674%_) (gx#core-identifier=? - _%hd126501126515%_ + _%hd126660126674%_ '%#export)) - (_%K126484%_ - _%rest126485%_ - (cons _%hd126483%_ _%r126486%_)) - (_%E126499126508%_)))) - (_%E126499126508%_)))) - (_%E126488126552%_ + (_%K126643%_ + _%rest126644%_ + (cons _%hd126642%_ _%r126645%_)) + (_%E126658126667%_)))) + (_%E126658126667%_)))) + (_%E126647126711%_ (lambda () - (if (gx#stx-pair? _%e126487126504%_) - (let ((_%e126490126524%_ - (gx#syntax-e _%e126487126504%_))) - (let ((_%hd126491126527%_ - (##car _%e126490126524%_)) - (_%tl126492126529%_ - (##cdr _%e126490126524%_))) + (if (gx#stx-pair? _%e126646126663%_) + (let ((_%e126649126683%_ + (gx#syntax-e _%e126646126663%_))) + (let ((_%hd126650126686%_ + (##car _%e126649126683%_)) + (_%tl126651126688%_ + (##cdr _%e126649126683%_))) (if (and (gx#identifier? - _%hd126491126527%_) + _%hd126650126686%_) (gx#core-identifier=? - _%hd126491126527%_ + _%hd126650126686%_ '%#define-values)) - (if (gx#stx-pair? _%tl126492126529%_) - (let ((_%e126493126532%_ + (if (gx#stx-pair? _%tl126651126688%_) + (let ((_%e126652126691%_ (gx#syntax-e - _%tl126492126529%_))) - (let ((_%hd126494126535%_ - (##car _%e126493126532%_)) - (_%tl126495126537%_ - (##cdr _%e126493126532%_))) - (let ((_%hd-bind126540%_ - _%hd126494126535%_)) + _%tl126651126688%_))) + (let ((_%hd126653126694%_ + (##car _%e126652126691%_)) + (_%tl126654126696%_ + (##cdr _%e126652126691%_))) + (let ((_%hd-bind126699%_ + _%hd126653126694%_)) (if (gx#stx-pair? - _%tl126495126537%_) - (let ((_%e126496126542%_ + _%tl126654126696%_) + (let ((_%e126655126701%_ (gx#syntax-e - _%tl126495126537%_))) - (let ((_%hd126497126545%_ + _%tl126654126696%_))) + (let ((_%hd126656126704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e126496126542%_)) - (_%tl126498126547%_ (##cdr _%e126496126542%_))) - (let ((_%expr126550%_ _%hd126497126545%_)) - (if (gx#stx-null? _%tl126498126547%_) - (if (gx#core-bind-values? _%hd-bind126540%_) + (##car _%e126655126701%_)) + (_%tl126657126706%_ (##cdr _%e126655126701%_))) + (let ((_%expr126709%_ _%hd126656126704%_)) + (if (gx#stx-null? _%tl126657126706%_) + (if (gx#core-bind-values? _%hd-bind126699%_) (begin - (gx#core-bind-values!__0 _%hd-bind126540%_) - (_%K126484%_ - _%rest126485%_ - (cons _%hd126483%_ _%r126486%_))) - (_%E126489126520%_)) - (_%E126489126520%_))))) - (_%E126489126520%_))))) + (gx#core-bind-values!__0 _%hd-bind126699%_) + (_%K126643%_ + _%rest126644%_ + (cons _%hd126642%_ _%r126645%_))) + (_%E126648126679%_)) + (_%E126648126679%_))))) + (_%E126648126679%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126489126520%_)) - (_%E126489126520%_)))) - (_%E126489126520%_))))) - (_%E126488126552%_)))) - (_%expand-body126355%_ - (lambda (_%rbody126357%_) - (let _%lp126359%_ ((_%rest126361%_ _%rbody126357%_) - (_%body126362%_ '())) - (let* ((_%rest126363126371%_ _%rest126361%_) - (_%else126365126379%_ (lambda () _%body126362%_)) - (_%K126367126471%_ - (lambda (_%rest126382%_ _%hd126383%_) - (let* ((_%e126384126405%_ _%hd126383%_) - (_%E126400126409%_ + (_%E126648126679%_)) + (_%E126648126679%_)))) + (_%E126648126679%_))))) + (_%E126647126711%_)))) + (_%expand-body126514%_ + (lambda (_%rbody126516%_) + (let _%lp126518%_ ((_%rest126520%_ _%rbody126516%_) + (_%body126521%_ '())) + (let* ((_%rest126522126530%_ _%rest126520%_) + (_%else126524126538%_ (lambda () _%body126521%_)) + (_%K126526126630%_ + (lambda (_%rest126541%_ _%hd126542%_) + (let* ((_%e126543126564%_ _%hd126542%_) + (_%E126559126568%_ (lambda () - (_%lp126359%_ - _%rest126382%_ + (_%lp126518%_ + _%rest126541%_ (cons (gx#core-expand-expression - _%hd126383%_) - _%body126362%_)))) - (_%E126396126423%_ + _%hd126542%_) + _%body126521%_)))) + (_%E126555126582%_ (lambda () - (if (gx#stx-pair? _%e126384126405%_) - (let ((_%e126401126413%_ + (if (gx#stx-pair? _%e126543126564%_) + (let ((_%e126560126572%_ (gx#syntax-e - _%e126384126405%_))) - (let ((_%hd126402126416%_ - (##car _%e126401126413%_)) - (_%tl126403126418%_ - (##cdr _%e126401126413%_))) - (let ((_%form126421%_ - _%hd126402126416%_)) + _%e126543126564%_))) + (let ((_%hd126561126575%_ + (##car _%e126560126572%_)) + (_%tl126562126577%_ + (##cdr _%e126560126572%_))) + (let ((_%form126580%_ + _%hd126561126575%_)) (if (gx#core-bound-identifier?__% - _%form126421%_ + _%form126580%_ gx#special-form-binding?) - (_%lp126359%_ - _%rest126382%_ - (cons _%hd126383%_ - _%body126362%_)) - (_%E126400126409%_))))) - (_%E126400126409%_)))) - (_%E126386126435%_ + (_%lp126518%_ + _%rest126541%_ + (cons _%hd126542%_ + _%body126521%_)) + (_%E126559126568%_))))) + (_%E126559126568%_)))) + (_%E126545126594%_ (lambda () - (if (gx#stx-pair? _%e126384126405%_) - (let ((_%e126397126427%_ + (if (gx#stx-pair? _%e126543126564%_) + (let ((_%e126556126586%_ (gx#syntax-e - _%e126384126405%_))) - (let ((_%hd126398126430%_ - (##car _%e126397126427%_)) - (_%tl126399126432%_ - (##cdr _%e126397126427%_))) + _%e126543126564%_))) + (let ((_%hd126557126589%_ + (##car _%e126556126586%_)) + (_%tl126558126591%_ + (##cdr _%e126556126586%_))) (if (and (gx#identifier? - _%hd126398126430%_) + _%hd126557126589%_) (gx#core-identifier=? - _%hd126398126430%_ + _%hd126557126589%_ '%#export)) - (_%lp126359%_ - _%rest126382%_ + (_%lp126518%_ + _%rest126541%_ (cons (gx#core-expand-export%__0 - _%hd126383%_) - _%body126362%_)) - (_%E126396126423%_)))) - (_%E126396126423%_)))) - (_%E126385126467%_ + _%hd126542%_) + _%body126521%_)) + (_%E126555126582%_)))) + (_%E126555126582%_)))) + (_%E126544126626%_ (lambda () - (if (gx#stx-pair? _%e126384126405%_) - (let ((_%e126387126439%_ + (if (gx#stx-pair? _%e126543126564%_) + (let ((_%e126546126598%_ (gx#syntax-e - _%e126384126405%_))) - (let ((_%hd126388126442%_ - (##car _%e126387126439%_)) - (_%tl126389126444%_ - (##cdr _%e126387126439%_))) + _%e126543126564%_))) + (let ((_%hd126547126601%_ + (##car _%e126546126598%_)) + (_%tl126548126603%_ + (##cdr _%e126546126598%_))) (if (and (gx#identifier? - _%hd126388126442%_) + _%hd126547126601%_) (gx#core-identifier=? - _%hd126388126442%_ + _%hd126547126601%_ '%#define-values)) (if (gx#stx-pair? - _%tl126389126444%_) - (let ((_%e126390126447%_ + _%tl126548126603%_) + (let ((_%e126549126606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126389126444%_))) - (let ((_%hd126391126450%_ (##car _%e126390126447%_)) - (_%tl126392126452%_ (##cdr _%e126390126447%_))) - (let ((_%hd-bind126455%_ _%hd126391126450%_)) - (if (gx#stx-pair? _%tl126392126452%_) - (let ((_%e126393126457%_ - (gx#syntax-e _%tl126392126452%_))) - (let ((_%hd126394126460%_ - (##car _%e126393126457%_)) - (_%tl126395126462%_ - (##cdr _%e126393126457%_))) - (let ((_%expr126465%_ _%hd126394126460%_)) - (if (gx#stx-null? _%tl126395126462%_) - (_%lp126359%_ - _%rest126382%_ + (gx#syntax-e _%tl126548126603%_))) + (let ((_%hd126550126609%_ (##car _%e126549126606%_)) + (_%tl126551126611%_ (##cdr _%e126549126606%_))) + (let ((_%hd-bind126614%_ _%hd126550126609%_)) + (if (gx#stx-pair? _%tl126551126611%_) + (let ((_%e126552126616%_ + (gx#syntax-e _%tl126551126611%_))) + (let ((_%hd126553126619%_ + (##car _%e126552126616%_)) + (_%tl126554126621%_ + (##cdr _%e126552126616%_))) + (let ((_%expr126624%_ _%hd126553126619%_)) + (if (gx#stx-null? _%tl126554126621%_) + (_%lp126518%_ + _%rest126541%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind126455%_) + _%hd-bind126614%_) (gx#core-expand-expression - _%expr126465%_)) - (gx#stx-source _%hd126383%_)) - _%body126362%_)) - (_%E126386126435%_))))) - (_%E126386126435%_))))) - (_%E126386126435%_)) - (_%E126386126435%_)))) + _%expr126624%_)) + (gx#stx-source _%hd126542%_)) + _%body126521%_)) + (_%E126545126594%_))))) + (_%E126545126594%_))))) + (_%E126545126594%_)) + (_%E126545126594%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126386126435%_))))) - (_%E126385126467%_))))) - (if (pair? _%rest126363126371%_) - (let ((_%hd126368126474%_ - (##car _%rest126363126371%_)) - (_%tl126369126476%_ - (##cdr _%rest126363126371%_))) - (let* ((_%hd126479%_ _%hd126368126474%_) - (_%rest126481%_ _%tl126369126476%_)) - (_%K126367126471%_ - _%rest126481%_ - _%hd126479%_))) - (_%else126365126379%_))))))) - (_%expand-body126355%_ + (_%E126545126594%_))))) + (_%E126544126626%_))))) + (if (pair? _%rest126522126530%_) + (let ((_%hd126527126633%_ + (##car _%rest126522126530%_)) + (_%tl126528126635%_ + (##cdr _%rest126522126530%_))) + (let* ((_%hd126638%_ _%hd126527126633%_) + (_%rest126640%_ _%tl126528126635%_)) + (_%K126526126630%_ + _%rest126640%_ + _%hd126638%_))) + (_%else126524126538%_))))))) + (_%expand-body126514%_ (gx#core-expand-block__% - (cons '%#begin-module _%body126352%_) - _%expand-special126354%_ + (cons '%#begin-module _%body126511%_) + _%expand-special126513%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx126193%_ - _%expanded?126194%_ - _%method126195%_ - _%current-phi126196%_ - _%expand1126197%_) - (letrec ((_%K126199%_ - (lambda (_%rest126319%_ _%r126320%_) - (let* ((_%e126321126328%_ _%rest126319%_) - (_%E126323126332%_ (lambda () _%r126320%_)) - (_%E126322126348%_ + (lambda (_%stx126352%_ + _%expanded?126353%_ + _%method126354%_ + _%current-phi126355%_ + _%expand1126356%_) + (letrec ((_%K126358%_ + (lambda (_%rest126478%_ _%r126479%_) + (let* ((_%e126480126487%_ _%rest126478%_) + (_%E126482126491%_ (lambda () _%r126479%_)) + (_%E126481126507%_ (lambda () - (if (gx#stx-pair? _%e126321126328%_) - (let ((_%e126324126336%_ - (gx#syntax-e _%e126321126328%_))) - (let ((_%hd126325126339%_ - (##car _%e126324126336%_)) - (_%tl126326126341%_ - (##cdr _%e126324126336%_))) - (let* ((_%hd126344%_ _%hd126325126339%_) - (_%rest126346%_ - _%tl126326126341%_)) - (_%step126200%_ - _%hd126344%_ - _%rest126346%_ - _%r126320%_)))) - (_%E126323126332%_))))) - (_%E126322126348%_)))) - (_%step126200%_ - (lambda (_%hd126233%_ _%rest126234%_ _%r126235%_) - (let* ((_%e126236126254%_ _%hd126233%_) - (_%E126249126258%_ + (if (gx#stx-pair? _%e126480126487%_) + (let ((_%e126483126495%_ + (gx#syntax-e _%e126480126487%_))) + (let ((_%hd126484126498%_ + (##car _%e126483126495%_)) + (_%tl126485126500%_ + (##cdr _%e126483126495%_))) + (let* ((_%hd126503%_ _%hd126484126498%_) + (_%rest126505%_ + _%tl126485126500%_)) + (_%step126359%_ + _%hd126503%_ + _%rest126505%_ + _%r126479%_)))) + (_%E126482126491%_))))) + (_%E126481126507%_)))) + (_%step126359%_ + (lambda (_%hd126392%_ _%rest126393%_ _%r126394%_) + (let* ((_%e126395126413%_ _%hd126392%_) + (_%E126408126417%_ (lambda () - (if (_%expanded?126194%_ (gx#stx-e _%hd126233%_)) - (_%K126199%_ - _%rest126234%_ - (cons (gx#stx-e _%hd126233%_) _%r126235%_)) - (_%expand1126197%_ - _%hd126233%_ - _%K126199%_ - _%rest126234%_ - _%r126235%_)))) - (_%E126245126274%_ + (if (_%expanded?126353%_ (gx#stx-e _%hd126392%_)) + (_%K126358%_ + _%rest126393%_ + (cons (gx#stx-e _%hd126392%_) _%r126394%_)) + (_%expand1126356%_ + _%hd126392%_ + _%K126358%_ + _%rest126393%_ + _%r126394%_)))) + (_%E126404126433%_ (lambda () - (if (gx#stx-pair? _%e126236126254%_) - (let ((_%e126250126262%_ - (gx#syntax-e _%e126236126254%_))) - (let ((_%hd126251126265%_ - (##car _%e126250126262%_)) - (_%tl126252126267%_ - (##cdr _%e126250126262%_))) - (let* ((_%macro126270%_ - _%hd126251126265%_) - (_%body126272%_ - _%tl126252126267%_)) + (if (gx#stx-pair? _%e126395126413%_) + (let ((_%e126409126421%_ + (gx#syntax-e _%e126395126413%_))) + (let ((_%hd126410126424%_ + (##car _%e126409126421%_)) + (_%tl126411126426%_ + (##cdr _%e126409126421%_))) + (let* ((_%macro126429%_ + _%hd126410126424%_) + (_%body126431%_ + _%tl126411126426%_)) (if (gx#core-bound-identifier?__% - _%macro126270%_ + _%macro126429%_ gx#syntax-binding?) - (_%K126199%_ + (_%K126358%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro126270%_) - _%hd126233%_ - _%method126195%_) - _%rest126234%_) - _%r126235%_) - (_%E126249126258%_))))) - (_%E126249126258%_)))) - (_%E126238126288%_ + _%macro126429%_) + _%hd126392%_ + _%method126354%_) + _%rest126393%_) + _%r126394%_) + (_%E126408126417%_))))) + (_%E126408126417%_)))) + (_%E126397126447%_ (lambda () - (if (gx#stx-pair? _%e126236126254%_) - (let ((_%e126246126278%_ - (gx#syntax-e _%e126236126254%_))) - (let ((_%hd126247126281%_ - (##car _%e126246126278%_)) - (_%tl126248126283%_ - (##cdr _%e126246126278%_))) - (if (eq? (gx#stx-e _%hd126247126281%_) + (if (gx#stx-pair? _%e126395126413%_) + (let ((_%e126405126437%_ + (gx#syntax-e _%e126395126413%_))) + (let ((_%hd126406126440%_ + (##car _%e126405126437%_)) + (_%tl126407126442%_ + (##cdr _%e126405126437%_))) + (if (eq? (gx#stx-e _%hd126406126440%_) 'begin:) - (let ((_%body126286%_ - _%tl126248126283%_)) - (_%K126199%_ + (let ((_%body126445%_ + _%tl126407126442%_)) + (_%K126358%_ (gx#stx-foldr cons - _%rest126234%_ - _%body126286%_) - _%r126235%_)) - (_%E126245126274%_)))) - (_%E126245126274%_)))) - (_%E126237126315%_ + _%rest126393%_ + _%body126445%_) + _%r126394%_)) + (_%E126404126433%_)))) + (_%E126404126433%_)))) + (_%E126396126474%_ (lambda () - (if (gx#stx-pair? _%e126236126254%_) - (let ((_%e126239126292%_ - (gx#syntax-e _%e126236126254%_))) - (let ((_%hd126240126295%_ - (##car _%e126239126292%_)) - (_%tl126241126297%_ - (##cdr _%e126239126292%_))) - (if (eq? (gx#stx-e _%hd126240126295%_) + (if (gx#stx-pair? _%e126395126413%_) + (let ((_%e126398126451%_ + (gx#syntax-e _%e126395126413%_))) + (let ((_%hd126399126454%_ + (##car _%e126398126451%_)) + (_%tl126400126456%_ + (##cdr _%e126398126451%_))) + (if (eq? (gx#stx-e _%hd126399126454%_) 'phi:) - (if (gx#stx-pair? _%tl126241126297%_) - (let ((_%e126242126300%_ + (if (gx#stx-pair? _%tl126400126456%_) + (let ((_%e126401126459%_ (gx#syntax-e - _%tl126241126297%_))) - (let ((_%hd126243126303%_ - (##car _%e126242126300%_)) - (_%tl126244126305%_ - (##cdr _%e126242126300%_))) - (let* ((_%dphi126308%_ - _%hd126243126303%_) - (_%body126310%_ - _%tl126244126305%_)) + _%tl126400126456%_))) + (let ((_%hd126402126462%_ + (##car _%e126401126459%_)) + (_%tl126403126464%_ + (##cdr _%e126401126459%_))) + (let* ((_%dphi126467%_ + _%hd126402126462%_) + (_%body126469%_ + _%tl126403126464%_)) (if (gx#stx-fixnum? - _%dphi126308%_) - (let ((_%rbody126313%_ + _%dphi126467%_) + (let ((_%rbody126472%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K126199%_ _%body126310%_ '())) - _%current-phi126196%_ - (fx+ (gx#stx-e _%dphi126308%_) - (_%current-phi126196%_))))) - (_%K126199%_ - _%rest126234%_ - (__foldr1 cons _%r126235%_ _%rbody126313%_))) - (_%E126238126288%_))))) + (_%K126358%_ _%body126469%_ '())) + _%current-phi126355%_ + (fx+ (gx#stx-e _%dphi126467%_) + (_%current-phi126355%_))))) + (_%K126358%_ + _%rest126393%_ + (__foldr1 cons _%r126394%_ _%rbody126472%_))) + (_%E126397126447%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126238126288%_)) - (_%E126238126288%_)))) - (_%E126238126288%_))))) - (_%E126237126315%_))))) - (let* ((_%e126201126208%_ _%stx126193%_) - (_%E126203126212%_ + (_%E126397126447%_)) + (_%E126397126447%_)))) + (_%E126397126447%_))))) + (_%E126396126474%_))))) + (let* ((_%e126360126367%_ _%stx126352%_) + (_%E126362126371%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126201126208%_))) - (_%E126202126229%_ + _%e126360126367%_))) + (_%E126361126388%_ (lambda () - (if (gx#stx-pair? _%e126201126208%_) - (let ((_%e126204126216%_ - (gx#syntax-e _%e126201126208%_))) - (let ((_%hd126205126219%_ (##car _%e126204126216%_)) - (_%tl126206126221%_ (##cdr _%e126204126216%_))) - (let ((_%body126224%_ _%tl126206126221%_)) - (if (_%current-phi126196%_) - (_%K126199%_ _%body126224%_ '()) + (if (gx#stx-pair? _%e126360126367%_) + (let ((_%e126363126375%_ + (gx#syntax-e _%e126360126367%_))) + (let ((_%hd126364126378%_ (##car _%e126363126375%_)) + (_%tl126365126380%_ (##cdr _%e126363126375%_))) + (let ((_%body126383%_ _%tl126365126380%_)) + (if (_%current-phi126355%_) + (_%K126358%_ _%body126383%_ '()) (__call-with-parameters - (lambda () (_%K126199%_ _%body126224%_ '())) - _%current-phi126196%_ + (lambda () (_%K126358%_ _%body126383%_ '())) + _%current-phi126355%_ (gx#current-expander-phi)))))) - (_%E126203126212%_))))) - (_%E126202126229%_))))) + (_%E126362126371%_))))) + (_%E126361126388%_))))) (define gx#core-expand-import%__% - (lambda (_%stx125847%_ _%internal-expand?125848%_) - (letrec ((_%expand1125850%_ - (lambda (_%hd126165%_ _%K126166%_ _%rest126167%_ _%r126168%_) - (if (gx#core-bound-module? _%hd126165%_) - (_%import1125851%_ - (gx#syntax-local-e__0 _%hd126165%_) - _%K126166%_ - _%rest126167%_ - _%r126168%_) - (if (gx#core-library-module-path? _%hd126165%_) - (_%import1125851%_ + (lambda (_%stx126006%_ _%internal-expand?126007%_) + (letrec ((_%expand1126009%_ + (lambda (_%hd126324%_ _%K126325%_ _%rest126326%_ _%r126327%_) + (if (gx#core-bound-module? _%hd126324%_) + (_%import1126010%_ + (gx#syntax-local-e__0 _%hd126324%_) + _%K126325%_ + _%rest126326%_ + _%r126327%_) + (if (gx#core-library-module-path? _%hd126324%_) + (_%import1126010%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd126165%_)) - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%hd126324%_)) + _%K126325%_ + _%rest126326%_ + _%r126327%_) (if (gx#core-library-relative-module-path? - _%hd126165%_) - (_%import1125851%_ + _%hd126324%_) + (_%import1126010%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd126165%_)) - _%K126166%_ - _%rest126167%_ - _%r126168%_) - (let ((_%e126174%_ (gx#stx-e _%hd126165%_))) - (if (pair? _%e126174%_) - (let ((_%$e126177%_ - (gx#stx-e (##car _%e126174%_)))) - (if (eq? 'spec: _%$e126177%_) - (_%import-spec125854%_ - _%hd126165%_ - _%K126166%_ - _%rest126167%_ - _%r126168%_) - (if (eq? 'in: _%$e126177%_) - (_%import-submodule125852%_ - _%hd126165%_ - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%hd126324%_)) + _%K126325%_ + _%rest126326%_ + _%r126327%_) + (let ((_%e126333%_ (gx#stx-e _%hd126324%_))) + (if (pair? _%e126333%_) + (let ((_%$e126336%_ + (gx#stx-e (##car _%e126333%_)))) + (if (eq? 'spec: _%$e126336%_) + (_%import-spec126013%_ + _%hd126324%_ + _%K126325%_ + _%rest126326%_ + _%r126327%_) + (if (eq? 'in: _%$e126336%_) + (_%import-submodule126011%_ + _%hd126324%_ + _%K126325%_ + _%rest126326%_ + _%r126327%_) (if (eq? 'runtime: - _%$e126177%_) - (_%import-runtime125853%_ - _%hd126165%_ - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%$e126336%_) + (_%import-runtime126012%_ + _%hd126324%_ + _%K126325%_ + _%rest126326%_ + _%r126327%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx125847%_ - _%hd126165%_))))) - (if (string? _%e126174%_) - (_%import1125851%_ + _%stx126006%_ + _%hd126324%_))))) + (if (string? _%e126333%_) + (_%import1126010%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd126165%_ - (gx#stx-source _%stx125847%_))) - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%hd126324%_ + (gx#stx-source _%stx126006%_))) + _%K126325%_ + _%rest126326%_ + _%r126327%_) (if (##structure-instance-of? - _%e126174%_ + _%e126333%_ 'gx#module-context::t) - (_%K126166%_ - _%rest126167%_ - (cons _%e126174%_ _%r126168%_)) + (_%K126325%_ + _%rest126326%_ + (cons _%e126333%_ _%r126327%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx125847%_ - _%hd126165%_)))))))))) - (_%import1125851%_ - (lambda (_%ctx126154%_ - _%K126155%_ - _%rest126156%_ - _%r126157%_) - (let ((_%dphi126159%_ + _%stx126006%_ + _%hd126324%_)))))))))) + (_%import1126010%_ + (lambda (_%ctx126313%_ + _%K126314%_ + _%rest126315%_ + _%r126316%_) + (let ((_%dphi126318%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K126155%_ - _%rest126156%_ + (_%K126314%_ + _%rest126315%_ (cons (##structure gx#import-set::t - _%ctx126154%_ - _%dphi126159%_ - (map (lambda (_%g126160126162%_) + _%ctx126313%_ + _%dphi126318%_ + (map (lambda (_%g126319126321%_) (gx#core-module-export->import__% - _%g126160126162%_ + _%g126319126321%_ '#f - _%dphi126159%_)) + _%dphi126318%_)) (##unchecked-structure-ref - _%ctx126154%_ + _%ctx126313%_ '9 '#f '#f))) - _%r126157%_))))) - (_%import-submodule125852%_ - (lambda (_%hd126121%_ _%K126122%_ _%rest126123%_ _%r126124%_) - (let* ((_%e126125126132%_ _%hd126121%_) - (_%E126127126136%_ + _%r126316%_))))) + (_%import-submodule126011%_ + (lambda (_%hd126280%_ _%K126281%_ _%rest126282%_ _%r126283%_) + (let* ((_%e126284126291%_ _%hd126280%_) + (_%E126286126295%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126125126132%_))) - (_%E126126126150%_ + _%e126284126291%_))) + (_%E126285126309%_ (lambda () - (if (gx#stx-pair? _%e126125126132%_) - (let ((_%e126128126140%_ - (gx#syntax-e _%e126125126132%_))) - (let ((_%hd126129126143%_ - (##car _%e126128126140%_)) - (_%tl126130126145%_ - (##cdr _%e126128126140%_))) - (let ((_%spath126148%_ - _%tl126130126145%_)) - (_%import1125851%_ - (_%import-spec-source125855%_ - _%spath126148%_) - _%K126122%_ - _%rest126123%_ - _%r126124%_)))) - (_%E126127126136%_))))) - (_%E126126126150%_)))) - (_%import-runtime125853%_ - (lambda (_%hd126088%_ _%K126089%_ _%rest126090%_ _%r126091%_) - (let* ((_%e126092126099%_ _%hd126088%_) - (_%E126094126103%_ + (if (gx#stx-pair? _%e126284126291%_) + (let ((_%e126287126299%_ + (gx#syntax-e _%e126284126291%_))) + (let ((_%hd126288126302%_ + (##car _%e126287126299%_)) + (_%tl126289126304%_ + (##cdr _%e126287126299%_))) + (let ((_%spath126307%_ + _%tl126289126304%_)) + (_%import1126010%_ + (_%import-spec-source126014%_ + _%spath126307%_) + _%K126281%_ + _%rest126282%_ + _%r126283%_)))) + (_%E126286126295%_))))) + (_%E126285126309%_)))) + (_%import-runtime126012%_ + (lambda (_%hd126247%_ _%K126248%_ _%rest126249%_ _%r126250%_) + (let* ((_%e126251126258%_ _%hd126247%_) + (_%E126253126262%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126092126099%_))) - (_%E126093126117%_ + _%e126251126258%_))) + (_%E126252126276%_ (lambda () - (if (gx#stx-pair? _%e126092126099%_) - (let ((_%e126095126107%_ - (gx#syntax-e _%e126092126099%_))) - (let ((_%hd126096126110%_ - (##car _%e126095126107%_)) - (_%tl126097126112%_ - (##cdr _%e126095126107%_))) - (let ((_%spath126115%_ - _%tl126097126112%_)) - (_%K126089%_ - _%rest126090%_ - (cons (_%import-spec-source125855%_ - _%spath126115%_) - _%r126091%_))))) - (_%E126094126103%_))))) - (_%E126093126117%_)))) - (_%import-spec125854%_ - (lambda (_%hd125926%_ _%K125927%_ _%rest125928%_ _%r125929%_) - (let* ((_%e125930125947%_ _%hd125926%_) - (_%E125939125951%_ + (if (gx#stx-pair? _%e126251126258%_) + (let ((_%e126254126266%_ + (gx#syntax-e _%e126251126258%_))) + (let ((_%hd126255126269%_ + (##car _%e126254126266%_)) + (_%tl126256126271%_ + (##cdr _%e126254126266%_))) + (let ((_%spath126274%_ + _%tl126256126271%_)) + (_%K126248%_ + _%rest126249%_ + (cons (_%import-spec-source126014%_ + _%spath126274%_) + _%r126250%_))))) + (_%E126253126262%_))))) + (_%E126252126276%_)))) + (_%import-spec126013%_ + (lambda (_%hd126085%_ _%K126086%_ _%rest126087%_ _%r126088%_) + (let* ((_%e126089126106%_ _%hd126085%_) + (_%E126098126110%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125930125947%_))) - (_%E125932126062%_ + _%e126089126106%_))) + (_%E126091126221%_ (lambda () - (if (gx#stx-pair? _%e125930125947%_) - (let ((_%e125940125955%_ - (gx#syntax-e _%e125930125947%_))) - (let ((_%hd125941125958%_ - (##car _%e125940125955%_)) - (_%tl125942125960%_ - (##cdr _%e125940125955%_))) - (if (gx#stx-pair? _%tl125942125960%_) - (let ((_%e125943125963%_ + (if (gx#stx-pair? _%e126089126106%_) + (let ((_%e126099126114%_ + (gx#syntax-e _%e126089126106%_))) + (let ((_%hd126100126117%_ + (##car _%e126099126114%_)) + (_%tl126101126119%_ + (##cdr _%e126099126114%_))) + (if (gx#stx-pair? _%tl126101126119%_) + (let ((_%e126102126122%_ (gx#syntax-e - _%tl125942125960%_))) - (let ((_%hd125944125966%_ - (##car _%e125943125963%_)) - (_%tl125945125968%_ - (##cdr _%e125943125963%_))) - (let* ((_%path125971%_ - _%hd125944125966%_) - (_%specs125973%_ - _%tl125945125968%_)) - (let ((_%src-ctx125975%_ - (_%import-spec-source125855%_ - _%path125971%_)) - (_%exports125976%_ + _%tl126101126119%_))) + (let ((_%hd126103126125%_ + (##car _%e126102126122%_)) + (_%tl126104126127%_ + (##cdr _%e126102126122%_))) + (let* ((_%path126130%_ + _%hd126103126125%_) + (_%specs126132%_ + _%tl126104126127%_)) + (let ((_%src-ctx126134%_ + (_%import-spec-source126014%_ + _%path126130%_)) + (_%exports126135%_ (make-hash-table__% '#f absent-value @@ -2885,215 +2885,215 @@ absent-value absent-value absent-value)) - (_%specs125977%_ + (_%specs126136%_ (gx#syntax->list - _%specs125973%_))) + _%specs126132%_))) (for-each - (lambda (_%out125979%_) + (lambda (_%out126138%_) (__hash-put! - _%exports125976%_ + _%exports126135%_ (cons (##unchecked-structure-ref - _%out125979%_ + _%out126138%_ '3 '#f '#f) (##unchecked-structure-ref - _%out125979%_ + _%out126138%_ '4 '#f '#f)) - _%out125979%_)) + _%out126138%_)) (##unchecked-structure-ref - _%src-ctx125975%_ + _%src-ctx126134%_ '9 '#f '#f)) - (_%K125927%_ - _%rest125928%_ + (_%K126086%_ + _%rest126087%_ (__foldl1 - (lambda (_%spec125981%_ - _%r125982%_) - (let* ((_%e125983125999%_ - _%spec125981%_) - (_%E125985126003%_ + (lambda (_%spec126140%_ + _%r126141%_) + (let* ((_%e126142126158%_ + _%spec126140%_) + (_%E126144126162%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e125983125999%_))) - (_%E125984126058%_ + _%e126142126158%_))) + (_%E126143126217%_ (lambda () - (if (gx#stx-pair? _%e125983125999%_) - (let ((_%e125986126007%_ - (gx#syntax-e _%e125983125999%_))) - (let ((_%hd125987126010%_ - (##car _%e125986126007%_)) - (_%tl125988126012%_ - (##cdr _%e125986126007%_))) - (let ((_%phi126015%_ _%hd125987126010%_)) - (if (gx#stx-pair? _%tl125988126012%_) - (let ((_%e125989126017%_ - (gx#syntax-e _%tl125988126012%_))) - (let ((_%hd125990126020%_ - (##car _%e125989126017%_)) - (_%tl125991126022%_ - (##cdr _%e125989126017%_))) - (let ((_%name126025%_ - _%hd125990126020%_)) + (if (gx#stx-pair? _%e126142126158%_) + (let ((_%e126145126166%_ + (gx#syntax-e _%e126142126158%_))) + (let ((_%hd126146126169%_ + (##car _%e126145126166%_)) + (_%tl126147126171%_ + (##cdr _%e126145126166%_))) + (let ((_%phi126174%_ _%hd126146126169%_)) + (if (gx#stx-pair? _%tl126147126171%_) + (let ((_%e126148126176%_ + (gx#syntax-e _%tl126147126171%_))) + (let ((_%hd126149126179%_ + (##car _%e126148126176%_)) + (_%tl126150126181%_ + (##cdr _%e126148126176%_))) + (let ((_%name126184%_ + _%hd126149126179%_)) (if (gx#stx-pair? - _%tl125991126022%_) - (let ((_%e125992126027%_ + _%tl126150126181%_) + (let ((_%e126151126186%_ (gx#syntax-e - _%tl125991126022%_))) - (let ((_%hd125993126030%_ - (##car _%e125992126027%_)) - (_%tl125994126032%_ - (##cdr _%e125992126027%_))) - (let ((_%src-phi126035%_ - _%hd125993126030%_)) + _%tl126150126181%_))) + (let ((_%hd126152126189%_ + (##car _%e126151126186%_)) + (_%tl126153126191%_ + (##cdr _%e126151126186%_))) + (let ((_%src-phi126194%_ + _%hd126152126189%_)) (if (gx#stx-pair? - _%tl125994126032%_) - (let ((_%e125995126037%_ + _%tl126153126191%_) + (let ((_%e126154126196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125994126032%_))) - (let ((_%hd125996126040%_ (##car _%e125995126037%_)) - (_%tl125997126042%_ (##cdr _%e125995126037%_))) - (let ((_%src-name126045%_ _%hd125996126040%_)) - (if (gx#stx-null? _%tl125997126042%_) - (if (and (gx#stx-fixnum? _%src-phi126035%_) - (gx#identifier? _%src-name126045%_) - (gx#stx-fixnum? _%phi126015%_) - (gx#identifier? _%name126025%_)) - (let ((_%src-phi126047%_ - (gx#stx-e _%src-phi126035%_)) - (_%src-name126048%_ + (gx#syntax-e _%tl126153126191%_))) + (let ((_%hd126155126199%_ (##car _%e126154126196%_)) + (_%tl126156126201%_ (##cdr _%e126154126196%_))) + (let ((_%src-name126204%_ _%hd126155126199%_)) + (if (gx#stx-null? _%tl126156126201%_) + (if (and (gx#stx-fixnum? _%src-phi126194%_) + (gx#identifier? _%src-name126204%_) + (gx#stx-fixnum? _%phi126174%_) + (gx#identifier? _%name126184%_)) + (let ((_%src-phi126206%_ + (gx#stx-e _%src-phi126194%_)) + (_%src-name126207%_ (gx#core-identifier-key - _%src-name126045%_)) - (_%phi126049%_ (gx#stx-e _%phi126015%_)) - (_%name126050%_ + _%src-name126204%_)) + (_%phi126208%_ (gx#stx-e _%phi126174%_)) + (_%name126209%_ (gx#core-identifier-key - _%name126025%_))) - (let ((_%$e126052%_ + _%name126184%_))) + (let ((_%$e126211%_ (__hash-get - _%exports125976%_ - (cons _%src-phi126047%_ - _%src-name126048%_)))) - (if _%$e126052%_ - ((lambda (_%out126055%_) + _%exports126135%_ + (cons _%src-phi126206%_ + _%src-name126207%_)))) + (if _%$e126211%_ + ((lambda (_%out126214%_) (cons (gx#core-module-export->import__% - _%out126055%_ - _%name126050%_ - (fx- _%phi126049%_ - _%src-phi126047%_)) - _%r125982%_)) - _%$e126052%_) + _%out126214%_ + _%name126209%_ + (fx- _%phi126208%_ + _%src-phi126206%_)) + _%r126141%_)) + _%$e126211%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx125847%_ - _%hd125926%_)))) - (_%E125985126003%_)) - (_%E125985126003%_))))) - (_%E125985126003%_))))) + _%stx126006%_ + _%hd126085%_)))) + (_%E126144126162%_)) + (_%E126144126162%_))))) + (_%E126144126162%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125985126003%_))))) - (_%E125985126003%_))))) - (_%E125985126003%_))))) - (_%E125984126058%_))) + (_%E126144126162%_))))) + (_%E126144126162%_))))) + (_%E126144126162%_))))) + (_%E126143126217%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r125929%_ - _%specs125977%_)))))) - (_%E125939125951%_)))) - (_%E125939125951%_)))) - (_%E125931126084%_ + _%r126088%_ + _%specs126136%_)))))) + (_%E126098126110%_)))) + (_%E126098126110%_)))) + (_%E126090126243%_ (lambda () - (if (gx#stx-pair? _%e125930125947%_) - (let ((_%e125933126066%_ - (gx#syntax-e _%e125930125947%_))) - (let ((_%hd125934126069%_ - (##car _%e125933126066%_)) - (_%tl125935126071%_ - (##cdr _%e125933126066%_))) - (if (gx#stx-pair? _%tl125935126071%_) - (let ((_%e125936126074%_ + (if (gx#stx-pair? _%e126089126106%_) + (let ((_%e126092126225%_ + (gx#syntax-e _%e126089126106%_))) + (let ((_%hd126093126228%_ + (##car _%e126092126225%_)) + (_%tl126094126230%_ + (##cdr _%e126092126225%_))) + (if (gx#stx-pair? _%tl126094126230%_) + (let ((_%e126095126233%_ (gx#syntax-e - _%tl125935126071%_))) - (let ((_%hd125937126077%_ - (##car _%e125936126074%_)) - (_%tl125938126079%_ - (##cdr _%e125936126074%_))) - (let ((_%path126082%_ - _%hd125937126077%_)) + _%tl126094126230%_))) + (let ((_%hd126096126236%_ + (##car _%e126095126233%_)) + (_%tl126097126238%_ + (##cdr _%e126095126233%_))) + (let ((_%path126241%_ + _%hd126096126236%_)) (if (gx#stx-null? - _%tl125938126079%_) - (_%K125927%_ - _%rest125928%_ - (cons (_%import-spec-source125855%_ - _%path126082%_) - _%r125929%_)) - (_%E125932126062%_))))) - (_%E125932126062%_)))) - (_%E125932126062%_))))) - (_%E125931126084%_)))) - (_%import-spec-source125855%_ - (lambda (_%spath125924%_) + _%tl126097126238%_) + (_%K126086%_ + _%rest126087%_ + (cons (_%import-spec-source126014%_ + _%path126241%_) + _%r126088%_)) + (_%E126091126221%_))))) + (_%E126091126221%_)))) + (_%E126091126221%_))))) + (_%E126090126243%_)))) + (_%import-spec-source126014%_ + (lambda (_%spath126083%_) (gx#core-import-nested-module - _%spath125924%_ - _%stx125847%_))) - (_%import!125856%_ - (lambda (_%rbody125869%_) - (letrec* ((_%current-ctx125871%_ + _%spath126083%_ + _%stx126006%_))) + (_%import!126015%_ + (lambda (_%rbody126028%_) + (letrec* ((_%current-ctx126030%_ (gx#current-expander-context)) - (_%deps125872%_ (make-hash-table-eq)) - (_%bind!125873%_ - (lambda (_%hd125922%_) + (_%deps126031%_ (make-hash-table-eq)) + (_%bind!126032%_ + (lambda (_%hd126081%_) (gx#core-bind-import!__1 - _%hd125922%_ - _%current-ctx125871%_)))) - (let _%lp125875%_ ((_%rest125877%_ _%rbody125869%_) - (_%body125878%_ '())) - (let* ((_%rest125879125887%_ _%rest125877%_) - (_%else125881125898%_ + _%hd126081%_ + _%current-ctx126030%_)))) + (let _%lp126034%_ ((_%rest126036%_ _%rbody126028%_) + (_%body126037%_ '())) + (let* ((_%rest126038126046%_ _%rest126036%_) + (_%else126040126057%_ (lambda () (if (##structure-instance-of? - _%current-ctx125871%_ + _%current-ctx126030%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx125871%_ + _%current-ctx126030%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx125871%_ + _%current-ctx126030%_ '8 '#f '#f) - _%body125878%_) + _%body126037%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx125895%_ _%_125896%_) - (gx#eval-module _%ctx125895%_)) - _%deps125872%_) - _%body125878%_)) - (_%K125883125910%_ - (lambda (_%rest125901%_ _%hd125902%_) + (lambda (_%ctx126054%_ _%_126055%_) + (gx#eval-module _%ctx126054%_)) + _%deps126031%_) + _%body126037%_)) + (_%K126042126069%_ + (lambda (_%rest126060%_ _%hd126061%_) (if (##structure-direct-instance-of? - _%hd125902%_ + _%hd126061%_ 'gx#module-import::t) (let () - (_%bind!125873%_ _%hd125902%_) + (_%bind!126032%_ _%hd126061%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd125902%_ + _%hd126061%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd125902%_ + _%hd126061%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps125872%_ + _%deps126031%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd125902%_ + _%hd126061%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd125902%_ + _%hd126061%_ 'gx#import-set::t) (let () (for-each - _%bind!125873%_ + _%bind!126032%_ (##unchecked-structure-ref - _%hd125902%_ + _%hd126061%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd125902%_ + _%hd126061%_ '2 '#f '#f)) (__hash-put! - _%deps125872%_ + _%deps126031%_ (##unchecked-structure-ref - _%hd125902%_ + _%hd126061%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e125906%_ + (let ((_%$e126065%_ (##structure-instance-of? - _%hd125902%_ + _%hd126061%_ 'gx#module-context::t))) - (if _%$e125906%_ - _%$e125906%_ + (if _%$e126065%_ + _%$e126065%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx125847%_ - _%hd125902%_))))) - (_%lp125875%_ - _%rest125901%_ - (cons _%hd125902%_ _%body125878%_))))) - (if (pair? _%rest125879125887%_) - (let ((_%hd125884125913%_ - (##car _%rest125879125887%_)) - (_%tl125885125915%_ - (##cdr _%rest125879125887%_))) - (let* ((_%hd125918%_ _%hd125884125913%_) - (_%rest125920%_ _%tl125885125915%_)) - (_%K125883125910%_ - _%rest125920%_ - _%hd125918%_))) - (_%else125881125898%_))))))) - (_%expanded-import?125857%_ - (lambda (_%e125861%_) - (let ((_%$e125863%_ + _%stx126006%_ + _%hd126061%_))))) + (_%lp126034%_ + _%rest126060%_ + (cons _%hd126061%_ _%body126037%_))))) + (if (pair? _%rest126038126046%_) + (let ((_%hd126043126072%_ + (##car _%rest126038126046%_)) + (_%tl126044126074%_ + (##cdr _%rest126038126046%_))) + (let* ((_%hd126077%_ _%hd126043126072%_) + (_%rest126079%_ _%tl126044126074%_)) + (_%K126042126069%_ + _%rest126079%_ + _%hd126077%_))) + (_%else126040126057%_))))))) + (_%expanded-import?126016%_ + (lambda (_%e126020%_) + (let ((_%$e126022%_ (##structure-direct-instance-of? - _%e125861%_ + _%e126020%_ 'gx#import-set::t))) - (if _%$e125863%_ - _%$e125863%_ - (let ((_%$e125866%_ + (if _%$e126022%_ + _%$e126022%_ + (let ((_%$e126025%_ (##structure-direct-instance-of? - _%e125861%_ + _%e126020%_ 'gx#module-import::t))) - (if _%$e125866%_ - _%$e125866%_ + (if _%$e126025%_ + _%$e126025%_ (##structure-instance-of? - _%e125861%_ + _%e126020%_ 'gx#module-context::t)))))))) - (let ((_%rbody125859%_ + (let ((_%rbody126018%_ (gx#core-expand-import/export - _%stx125847%_ - _%expanded-import?125857%_ + _%stx126006%_ + _%expanded-import?126016%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1125850%_))) - (if _%internal-expand?125848%_ - (reverse _%rbody125859%_) + _%expand1126009%_))) + (if _%internal-expand?126007%_ + (reverse _%rbody126018%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!125856%_ _%rbody125859%_)) - (gx#stx-source _%stx125847%_))))))) + (gx#core-cons '%#import (_%import!126015%_ _%rbody126018%_)) + (gx#stx-source _%stx126006%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx126186%_) - (let ((_%internal-expand?126188%_ '#f)) + (lambda (_%stx126345%_) + (let ((_%internal-expand?126347%_ '#f)) (gx#core-expand-import%__% - _%stx126186%_ - _%internal-expand?126188%_)))) + _%stx126345%_ + _%internal-expand?126347%_)))) (define gx#core-expand-import% - (lambda _g128839_ - (let ((_g128838_ (##length _g128839_))) - (cond ((##fx= _g128838_ 1) - (apply gx#core-expand-import%__0 _g128839_)) - ((##fx= _g128838_ 2) - (apply gx#core-expand-import%__% _g128839_)) + (lambda _g128998_ + (let ((_g128997_ (##length _g128998_))) + (cond ((##fx= _g128997_ 1) + (apply gx#core-expand-import%__0 _g128998_)) + ((##fx= _g128997_ 2) + (apply gx#core-expand-import%__% _g128998_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g128839_)))))) + _g128998_)))))) (define gx#core-import-nested-module - (lambda (_%spath125774%_ _%where125775%_) - (let* ((_%e125776125783%_ _%spath125774%_) - (_%E125778125787%_ + (lambda (_%spath125933%_ _%where125934%_) + (let* ((_%e125935125942%_ _%spath125933%_) + (_%E125937125946%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125776125783%_))) - (_%E125777125842%_ + _%e125935125942%_))) + (_%E125936126001%_ (lambda () - (if (gx#stx-pair? _%e125776125783%_) - (let ((_%e125779125791%_ - (gx#syntax-e _%e125776125783%_))) - (let ((_%hd125780125794%_ (##car _%e125779125791%_)) - (_%tl125781125796%_ (##cdr _%e125779125791%_))) - (let* ((_%origin125799%_ _%hd125780125794%_) - (_%sub125801%_ _%tl125781125796%_) - (_%origin-ctx125803%_ - (if (gx#stx-false? _%origin125799%_) + (if (gx#stx-pair? _%e125935125942%_) + (let ((_%e125938125950%_ + (gx#syntax-e _%e125935125942%_))) + (let ((_%hd125939125953%_ (##car _%e125938125950%_)) + (_%tl125940125955%_ (##cdr _%e125938125950%_))) + (let* ((_%origin125958%_ _%hd125939125953%_) + (_%sub125960%_ _%tl125940125955%_) + (_%origin-ctx125962%_ + (if (gx#stx-false? _%origin125958%_) (gx#current-expander-context) - (gx#import-module__0 _%origin125799%_)))) - (let _%lp125805%_ ((_%rest125807%_ _%sub125801%_) - (_%ctx125808%_ - _%origin-ctx125803%_)) - (let* ((_%e125809125816%_ _%rest125807%_) - (_%E125811125820%_ - (lambda () _%ctx125808%_)) - (_%E125810125838%_ + (gx#import-module__0 _%origin125958%_)))) + (let _%lp125964%_ ((_%rest125966%_ _%sub125960%_) + (_%ctx125967%_ + _%origin-ctx125962%_)) + (let* ((_%e125968125975%_ _%rest125966%_) + (_%E125970125979%_ + (lambda () _%ctx125967%_)) + (_%E125969125997%_ (lambda () - (if (gx#stx-pair? _%e125809125816%_) - (let ((_%e125812125824%_ + (if (gx#stx-pair? _%e125968125975%_) + (let ((_%e125971125983%_ (gx#syntax-e - _%e125809125816%_))) - (let ((_%hd125813125827%_ - (##car _%e125812125824%_)) - (_%tl125814125829%_ - (##cdr _%e125812125824%_))) - (let* ((_%id125832%_ - _%hd125813125827%_) - (_%rest125834%_ - _%tl125814125829%_) - (_%bind125836%_ + _%e125968125975%_))) + (let ((_%hd125972125986%_ + (##car _%e125971125983%_)) + (_%tl125973125988%_ + (##cdr _%e125971125983%_))) + (let* ((_%id125991%_ + _%hd125972125986%_) + (_%rest125993%_ + _%tl125973125988%_) + (_%bind125995%_ (gx#resolve-identifier__% - _%id125832%_ + _%id125991%_ '0 - _%ctx125808%_))) + _%ctx125967%_))) (if (and (##structure-direct-instance-of? - _%bind125836%_ + _%bind125995%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind125836%_ + _%bind125995%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where125775%_ - _%spath125774%_ - _%id125832%_)) - (_%lp125805%_ - _%rest125834%_ + _%where125934%_ + _%spath125933%_ + _%id125991%_)) + (_%lp125964%_ + _%rest125993%_ (##unchecked-structure-ref - _%bind125836%_ + _%bind125995%_ '4 '#f '#f))))) - (_%E125811125820%_))))) - (_%E125810125838%_)))))) - (_%E125778125787%_))))) - (_%E125777125842%_)))) + (_%E125970125979%_))))) + (_%E125969125997%_)))))) + (_%E125937125946%_))))) + (_%E125936126001%_)))) (define gx#core-expand-import-source - (lambda (_%hd125772%_) + (lambda (_%hd125931%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd125772%_ '())) + (cons 'import-internal% (cons _%hd125931%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx125266%_ _%internal-expand?125267%_) - (letrec* ((_%make-export__128767128768%_ - (lambda (_%bind125720%_ - _%phi125721%_ - _%ctx125722%_ - _%name125723%_) - (let* ((_%key125725%_ + (lambda (_%stx125425%_ _%internal-expand?125426%_) + (letrec* ((_%make-export__128926128927%_ + (lambda (_%bind125879%_ + _%phi125880%_ + _%ctx125881%_ + _%name125882%_) + (let* ((_%key125884%_ (##unchecked-structure-ref - _%bind125720%_ + _%bind125879%_ '2 '#f '#f)) - (_%export-key125727%_ - (if _%name125723%_ - (gx#core-identifier-key _%name125723%_) - _%key125725%_))) + (_%export-key125886%_ + (if _%name125882%_ + (gx#core-identifier-key _%name125882%_) + _%key125884%_))) (##structure gx#module-export::t - _%ctx125722%_ - _%key125725%_ - _%phi125721%_ - _%export-key125727%_ - (let ((_%$e125730%_ + _%ctx125881%_ + _%key125884%_ + _%phi125880%_ + _%export-key125886%_ + (let ((_%$e125889%_ (##structure-instance-of? - _%bind125720%_ + _%bind125879%_ 'gx#extern-binding::t))) - (if _%$e125730%_ - _%$e125730%_ + (if _%$e125889%_ + _%$e125889%_ (##structure-direct-instance-of? - _%bind125720%_ + _%bind125879%_ 'gx#import-binding::t))))))) - (_%make-export__0__128769128772%_ - (lambda (_%bind125736%_) - (let* ((_%phi125738%_ (gx#current-export-expander-phi)) - (_%ctx125740%_ (gx#current-expander-context)) - (_%name125742%_ '#f)) - (_%make-export__128767128768%_ - _%bind125736%_ - _%phi125738%_ - _%ctx125740%_ - _%name125742%_)))) - (_%make-export__1__128770128773%_ - (lambda (_%bind125744%_ _%phi125745%_) - (let* ((_%ctx125747%_ (gx#current-expander-context)) - (_%name125749%_ '#f)) - (_%make-export__128767128768%_ - _%bind125744%_ - _%phi125745%_ - _%ctx125747%_ - _%name125749%_)))) - (_%make-export__2__128771128774%_ - (lambda (_%bind125751%_ _%phi125752%_ _%ctx125753%_) - (let ((_%name125755%_ '#f)) - (_%make-export__128767128768%_ - _%bind125751%_ - _%phi125752%_ - _%ctx125753%_ - _%name125755%_)))) - (_%make-export125269%_ - (lambda _g128841_ - (let ((_g128840_ (##length _g128841_))) - (cond ((##fx= _g128840_ 1) - (apply _%make-export__0__128769128772%_ - _g128841_)) - ((##fx= _g128840_ 2) - (apply _%make-export__1__128770128773%_ - _g128841_)) - ((##fx= _g128840_ 3) - (apply _%make-export__2__128771128774%_ - _g128841_)) - ((##fx= _g128840_ 4) - (apply _%make-export__128767128768%_ _g128841_)) + (_%make-export__0__128928128931%_ + (lambda (_%bind125895%_) + (let* ((_%phi125897%_ (gx#current-export-expander-phi)) + (_%ctx125899%_ (gx#current-expander-context)) + (_%name125901%_ '#f)) + (_%make-export__128926128927%_ + _%bind125895%_ + _%phi125897%_ + _%ctx125899%_ + _%name125901%_)))) + (_%make-export__1__128929128932%_ + (lambda (_%bind125903%_ _%phi125904%_) + (let* ((_%ctx125906%_ (gx#current-expander-context)) + (_%name125908%_ '#f)) + (_%make-export__128926128927%_ + _%bind125903%_ + _%phi125904%_ + _%ctx125906%_ + _%name125908%_)))) + (_%make-export__2__128930128933%_ + (lambda (_%bind125910%_ _%phi125911%_ _%ctx125912%_) + (let ((_%name125914%_ '#f)) + (_%make-export__128926128927%_ + _%bind125910%_ + _%phi125911%_ + _%ctx125912%_ + _%name125914%_)))) + (_%make-export125428%_ + (lambda _g129000_ + (let ((_g128999_ (##length _g129000_))) + (cond ((##fx= _g128999_ 1) + (apply _%make-export__0__128928128931%_ + _g129000_)) + ((##fx= _g128999_ 2) + (apply _%make-export__1__128929128932%_ + _g129000_)) + ((##fx= _g128999_ 3) + (apply _%make-export__2__128930128933%_ + _g129000_)) + ((##fx= _g128999_ 4) + (apply _%make-export__128926128927%_ _g129000_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g128841_)))))) - (_%expand1125270%_ - (lambda (_%hd125425%_ - _%K125426%_ - _%rest125427%_ - _%r125428%_) - (let* ((_%e125429125461%_ _%hd125425%_) - (_%E125456125465%_ + _g129000_)))))) + (_%expand1125429%_ + (lambda (_%hd125584%_ + _%K125585%_ + _%rest125586%_ + _%r125587%_) + (let* ((_%e125588125620%_ _%hd125584%_) + (_%E125615125624%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx125266%_ - _%hd125425%_))) - (_%E125446125549%_ + _%stx125425%_ + _%hd125584%_))) + (_%E125605125708%_ (lambda () - (if (gx#stx-pair? _%e125429125461%_) - (let ((_%e125457125469%_ - (gx#syntax-e _%e125429125461%_))) - (let ((_%hd125458125472%_ - (##car _%e125457125469%_)) - (_%tl125459125474%_ - (##cdr _%e125457125469%_))) - (if (eq? (gx#stx-e _%hd125458125472%_) + (if (gx#stx-pair? _%e125588125620%_) + (let ((_%e125616125628%_ + (gx#syntax-e _%e125588125620%_))) + (let ((_%hd125617125631%_ + (##car _%e125616125628%_)) + (_%tl125618125633%_ + (##cdr _%e125616125628%_))) + (if (eq? (gx#stx-e _%hd125617125631%_) 'import:) - (let ((_%in125477%_ - _%tl125459125474%_)) - (if (gx#stx-list? _%in125477%_) - (let _%lp125479%_ ((_%in-rest125481%_ + (let ((_%in125636%_ + _%tl125618125633%_)) + (if (gx#stx-list? _%in125636%_) + (let _%lp125638%_ ((_%in-rest125640%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in125477%_) - (_%r125482%_ _%r125428%_)) + _%in125636%_) + (_%r125641%_ _%r125587%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e125483125490%_ - _%in-rest125481%_) - (_%E125485125494%_ + (let* ((_%e125642125649%_ + _%in-rest125640%_) + (_%E125644125653%_ (lambda () - (_%K125426%_ - _%rest125427%_ - _%r125482%_))) - (_%E125484125545%_ + (_%K125585%_ + _%rest125586%_ + _%r125641%_))) + (_%E125643125704%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125483125490%_) - (let ((_%e125486125498%_ - (gx#syntax-e _%e125483125490%_))) - (let ((_%hd125487125501%_ (##car _%e125486125498%_)) - (_%tl125488125503%_ - (##cdr _%e125486125498%_))) - (let* ((_%hd125506%_ _%hd125487125501%_) - (_%in-rest125508%_ _%tl125488125503%_) - (_%src125543%_ - (if (gx#core-bound-module? _%hd125506%_) - (gx#syntax-local-e__0 _%hd125506%_) + _%e125642125649%_) + (let ((_%e125645125657%_ + (gx#syntax-e _%e125642125649%_))) + (let ((_%hd125646125660%_ (##car _%e125645125657%_)) + (_%tl125647125662%_ + (##cdr _%e125645125657%_))) + (let* ((_%hd125665%_ _%hd125646125660%_) + (_%in-rest125667%_ _%tl125647125662%_) + (_%src125702%_ + (if (gx#core-bound-module? _%hd125665%_) + (gx#syntax-local-e__0 _%hd125665%_) (if (gx#core-library-module-path? - _%hd125506%_) + _%hd125665%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd125506%_)) + _%hd125665%_)) (if (gx#core-library-relative-module-path? - _%hd125506%_) + _%hd125665%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd125506%_)) + _%hd125665%_)) (if (gx#stx-string? - _%hd125506%_) + _%hd125665%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd125506%_ + _%hd125665%_ (gx#stx-source - _%stx125266%_))) - (let* ((_%e125514125521%_ - _%hd125506%_) - (_%E125516125525%_ + _%stx125425%_))) + (let* ((_%e125673125680%_ + _%hd125665%_) + (_%E125675125684%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx125266%_ - _%hd125506%_))) - (_%E125515125539%_ + _%stx125425%_ + _%hd125665%_))) + (_%E125674125698%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125514125521%_) - (let ((_%e125517125529%_ - (gx#syntax-e _%e125514125521%_))) - (let ((_%hd125518125532%_ - (##car _%e125517125529%_)) - (_%tl125519125534%_ - (##cdr _%e125517125529%_))) - (if (eq? (gx#stx-e _%hd125518125532%_) 'in:) - (let ((_%spath125537%_ _%tl125519125534%_)) + _%e125673125680%_) + (let ((_%e125676125688%_ + (gx#syntax-e _%e125673125680%_))) + (let ((_%hd125677125691%_ + (##car _%e125676125688%_)) + (_%tl125678125693%_ + (##cdr _%e125676125688%_))) + (if (eq? (gx#stx-e _%hd125677125691%_) 'in:) + (let ((_%spath125696%_ _%tl125678125693%_)) (gx#core-import-nested-module - _%spath125537%_ - _%stx125266%_)) - (_%E125516125525%_)))) - (_%E125516125525%_))))) - (_%E125515125539%_)))))))) + _%spath125696%_ + _%stx125425%_)) + (_%E125675125684%_)))) + (_%E125675125684%_))))) + (_%E125674125698%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp125479%_ - _%in-rest125508%_ - (_%export-imports125271%_ - _%src125543%_ - _%r125482%_))))) - (_%E125485125494%_))))) + (_%lp125638%_ + _%in-rest125667%_ + (_%export-imports125430%_ + _%src125702%_ + _%r125641%_))))) + (_%E125644125653%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125484125545%_))) - (_%E125456125465%_))) - (_%E125456125465%_)))) - (_%E125456125465%_)))) - (_%E125433125589%_ + (_%E125643125704%_))) + (_%E125615125624%_))) + (_%E125615125624%_)))) + (_%E125615125624%_)))) + (_%E125592125748%_ (lambda () - (if (gx#stx-pair? _%e125429125461%_) - (let ((_%e125447125553%_ - (gx#syntax-e _%e125429125461%_))) - (let ((_%hd125448125556%_ - (##car _%e125447125553%_)) - (_%tl125449125558%_ - (##cdr _%e125447125553%_))) - (if (eq? (gx#stx-e _%hd125448125556%_) + (if (gx#stx-pair? _%e125588125620%_) + (let ((_%e125606125712%_ + (gx#syntax-e _%e125588125620%_))) + (let ((_%hd125607125715%_ + (##car _%e125606125712%_)) + (_%tl125608125717%_ + (##cdr _%e125606125712%_))) + (if (eq? (gx#stx-e _%hd125607125715%_) 'rename:) (if (gx#stx-pair? - _%tl125449125558%_) - (let ((_%e125450125561%_ + _%tl125608125717%_) + (let ((_%e125609125720%_ (gx#syntax-e - _%tl125449125558%_))) - (let ((_%hd125451125564%_ - (##car _%e125450125561%_)) - (_%tl125452125566%_ - (##cdr _%e125450125561%_))) - (let ((_%id125569%_ - _%hd125451125564%_)) + _%tl125608125717%_))) + (let ((_%hd125610125723%_ + (##car _%e125609125720%_)) + (_%tl125611125725%_ + (##cdr _%e125609125720%_))) + (let ((_%id125728%_ + _%hd125610125723%_)) (if (gx#stx-pair? - _%tl125452125566%_) - (let ((_%e125453125571%_ + _%tl125611125725%_) + (let ((_%e125612125730%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125452125566%_))) - (let ((_%hd125454125574%_ (##car _%e125453125571%_)) - (_%tl125455125576%_ (##cdr _%e125453125571%_))) - (let ((_%name125579%_ _%hd125454125574%_)) - (if (gx#stx-null? _%tl125455125576%_) - (let* ((_%phi125581%_ + _%tl125611125725%_))) + (let ((_%hd125613125733%_ (##car _%e125612125730%_)) + (_%tl125614125735%_ (##cdr _%e125612125730%_))) + (let ((_%name125738%_ _%hd125613125733%_)) + (if (gx#stx-null? _%tl125614125735%_) + (let* ((_%phi125740%_ (gx#current-export-expander-phi)) - (_%$e125583%_ + (_%$e125742%_ (gx#core-resolve-identifier__1 - _%id125569%_ - _%phi125581%_))) - (if _%$e125583%_ - ((lambda (_%bind125586%_) - (_%K125426%_ - _%rest125427%_ - (cons (_%make-export__128767128768%_ - _%bind125586%_ - _%phi125581%_ + _%id125728%_ + _%phi125740%_))) + (if _%$e125742%_ + ((lambda (_%bind125745%_) + (_%K125585%_ + _%rest125586%_ + (cons (_%make-export__128926128927%_ + _%bind125745%_ + _%phi125740%_ (gx#current-expander-context) - _%name125579%_) - _%r125428%_))) - _%$e125583%_) + _%name125738%_) + _%r125587%_))) + _%$e125742%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125266%_ - _%hd125425%_ - _%id125569%_))) - (_%E125446125549%_))))) - (_%E125446125549%_))))) + _%stx125425%_ + _%hd125584%_ + _%id125728%_))) + (_%E125605125708%_))))) + (_%E125605125708%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125446125549%_)) - (_%E125446125549%_)))) - (_%E125446125549%_)))) - (_%E125432125639%_ + (_%E125605125708%_)) + (_%E125605125708%_)))) + (_%E125605125708%_)))) + (_%E125591125798%_ (lambda () - (if (gx#stx-pair? _%e125429125461%_) - (let ((_%e125434125593%_ - (gx#syntax-e _%e125429125461%_))) - (let ((_%hd125435125596%_ - (##car _%e125434125593%_)) - (_%tl125436125598%_ - (##cdr _%e125434125593%_))) - (if (eq? (gx#stx-e _%hd125435125596%_) + (if (gx#stx-pair? _%e125588125620%_) + (let ((_%e125593125752%_ + (gx#syntax-e _%e125588125620%_))) + (let ((_%hd125594125755%_ + (##car _%e125593125752%_)) + (_%tl125595125757%_ + (##cdr _%e125593125752%_))) + (if (eq? (gx#stx-e _%hd125594125755%_) 'spec:) (if (gx#stx-pair? - _%tl125436125598%_) - (let ((_%e125437125601%_ + _%tl125595125757%_) + (let ((_%e125596125760%_ (gx#syntax-e - _%tl125436125598%_))) - (let ((_%hd125438125604%_ - (##car _%e125437125601%_)) - (_%tl125439125606%_ - (##cdr _%e125437125601%_))) - (let ((_%phi125609%_ - _%hd125438125604%_)) + _%tl125595125757%_))) + (let ((_%hd125597125763%_ + (##car _%e125596125760%_)) + (_%tl125598125765%_ + (##cdr _%e125596125760%_))) + (let ((_%phi125768%_ + _%hd125597125763%_)) (if (gx#stx-pair? - _%tl125439125606%_) - (let ((_%e125440125611%_ + _%tl125598125765%_) + (let ((_%e125599125770%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125439125606%_))) - (let ((_%hd125441125614%_ (##car _%e125440125611%_)) - (_%tl125442125616%_ (##cdr _%e125440125611%_))) - (let ((_%id125619%_ _%hd125441125614%_)) - (if (gx#stx-pair? _%tl125442125616%_) - (let ((_%e125443125621%_ - (gx#syntax-e _%tl125442125616%_))) - (let ((_%hd125444125624%_ - (##car _%e125443125621%_)) - (_%tl125445125626%_ - (##cdr _%e125443125621%_))) - (let ((_%name125629%_ _%hd125444125624%_)) - (if (gx#stx-null? _%tl125445125626%_) - (if (and (gx#stx-fixnum? _%phi125609%_) - (gx#identifier? _%id125619%_) - (gx#identifier? _%name125629%_)) - (let* ((_%phi125631%_ - (gx#stx-e _%phi125609%_)) - (_%$e125633%_ + _%tl125598125765%_))) + (let ((_%hd125600125773%_ (##car _%e125599125770%_)) + (_%tl125601125775%_ (##cdr _%e125599125770%_))) + (let ((_%id125778%_ _%hd125600125773%_)) + (if (gx#stx-pair? _%tl125601125775%_) + (let ((_%e125602125780%_ + (gx#syntax-e _%tl125601125775%_))) + (let ((_%hd125603125783%_ + (##car _%e125602125780%_)) + (_%tl125604125785%_ + (##cdr _%e125602125780%_))) + (let ((_%name125788%_ _%hd125603125783%_)) + (if (gx#stx-null? _%tl125604125785%_) + (if (and (gx#stx-fixnum? _%phi125768%_) + (gx#identifier? _%id125778%_) + (gx#identifier? _%name125788%_)) + (let* ((_%phi125790%_ + (gx#stx-e _%phi125768%_)) + (_%$e125792%_ (gx#core-resolve-identifier__1 - _%id125619%_ - _%phi125631%_))) - (if _%$e125633%_ - ((lambda (_%bind125636%_) - (_%K125426%_ - _%rest125427%_ - (cons (_%make-export__128767128768%_ - _%bind125636%_ - _%phi125631%_ + _%id125778%_ + _%phi125790%_))) + (if _%$e125792%_ + ((lambda (_%bind125795%_) + (_%K125585%_ + _%rest125586%_ + (cons (_%make-export__128926128927%_ + _%bind125795%_ + _%phi125790%_ (gx#current-expander-context) - _%name125629%_) - _%r125428%_))) - _%$e125633%_) + _%name125788%_) + _%r125587%_))) + _%$e125792%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125266%_ - _%hd125425%_ - _%id125619%_))) - (_%E125433125589%_)) - (_%E125433125589%_))))) - (_%E125433125589%_))))) - (_%E125433125589%_))))) + _%stx125425%_ + _%hd125584%_ + _%id125778%_))) + (_%E125592125748%_)) + (_%E125592125748%_))))) + (_%E125592125748%_))))) + (_%E125592125748%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125433125589%_)) - (_%E125433125589%_)))) - (_%E125433125589%_)))) - (_%E125431125651%_ + (_%E125592125748%_)) + (_%E125592125748%_)))) + (_%E125592125748%_)))) + (_%E125590125810%_ (lambda () - (let ((_%id125643%_ _%e125429125461%_)) - (if (gx#identifier? _%id125643%_) - (let ((_%$e125645%_ + (let ((_%id125802%_ _%e125588125620%_)) + (if (gx#identifier? _%id125802%_) + (let ((_%$e125804%_ (gx#core-resolve-identifier__1 - _%id125643%_ + _%id125802%_ (gx#current-export-expander-phi)))) - (if _%$e125645%_ - ((lambda (_%bind125648%_) - (_%K125426%_ - _%rest125427%_ - (cons (_%make-export__0__128769128772%_ - _%bind125648%_) - _%r125428%_))) - _%$e125645%_) + (if _%$e125804%_ + ((lambda (_%bind125807%_) + (_%K125585%_ + _%rest125586%_ + (cons (_%make-export__0__128928128931%_ + _%bind125807%_) + _%r125587%_))) + _%$e125804%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125266%_ - _%hd125425%_))) - (_%E125432125639%_))))) - (_%E125430125715%_ + _%stx125425%_ + _%hd125584%_))) + (_%E125591125798%_))))) + (_%E125589125874%_ (lambda () - (if (eq? (gx#stx-e _%e125429125461%_) '#t) - (let* ((_%current-ctx125655%_ + (if (eq? (gx#stx-e _%e125588125620%_) '#t) + (let* ((_%current-ctx125814%_ (gx#current-expander-context)) - (_%current-phi125657%_ + (_%current-phi125816%_ (gx#current-export-expander-phi)) - (_%phi-ctx125659%_ + (_%phi-ctx125818%_ (gx#core-context-shift - _%current-ctx125655%_ - _%current-phi125657%_)) - (_%phi-bind125661%_ + _%current-ctx125814%_ + _%current-phi125816%_)) + (_%phi-bind125820%_ (hash->list (##unchecked-structure-ref - _%phi-ctx125659%_ + _%phi-ctx125818%_ '2 '#f '#f)))) - (let _%lp125664%_ ((_%bind-rest125666%_ - _%phi-bind125661%_) - (_%set125667%_ '())) - (let* ((_%bind-rest125668125678%_ - _%bind-rest125666%_) - (_%else125670125686%_ + (let _%lp125823%_ ((_%bind-rest125825%_ + _%phi-bind125820%_) + (_%set125826%_ '())) + (let* ((_%bind-rest125827125837%_ + _%bind-rest125825%_) + (_%else125829125845%_ (lambda () - (_%K125426%_ - _%rest125427%_ + (_%K125585%_ + _%rest125586%_ (cons (##structure gx#export-set::t '#f - _%current-phi125657%_ - _%set125667%_) - _%r125428%_)))) - (_%K125672125696%_ - (lambda (_%bind-rest125689%_ - _%bind125690%_ - _%key125691%_) + _%current-phi125816%_ + _%set125826%_) + _%r125587%_)))) + (_%K125831125855%_ + (lambda (_%bind-rest125848%_ + _%bind125849%_ + _%key125850%_) (if (or (##structure-direct-instance-of? - _%bind125690%_ + _%bind125849%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind125690%_)) - (_%lp125664%_ - _%bind-rest125689%_ - _%set125667%_) - (_%lp125664%_ - _%bind-rest125689%_ - (cons (_%make-export__2__128771128774%_ - _%bind125690%_ - _%current-phi125657%_ - _%current-ctx125655%_) - _%set125667%_)))))) - (if (pair? _%bind-rest125668125678%_) - (let ((_%hd125673125699%_ - (##car _%bind-rest125668125678%_)) - (_%tl125674125701%_ - (##cdr _%bind-rest125668125678%_))) - (if (pair? _%hd125673125699%_) - (let ((_%hd125675125704%_ - (##car _%hd125673125699%_)) - (_%tl125676125706%_ - (##cdr _%hd125673125699%_))) - (let* ((_%key125709%_ - _%hd125675125704%_) - (_%bind125711%_ - _%tl125676125706%_) - (_%bind-rest125713%_ - _%tl125674125701%_)) - (_%K125672125696%_ - _%bind-rest125713%_ - _%bind125711%_ - _%key125709%_))) - (_%else125670125686%_))) - (_%else125670125686%_))))) - (_%E125431125651%_))))) - (_%E125430125715%_)))) - (_%export-imports125271%_ - (lambda (_%src125301%_ _%r125302%_) - (letrec* ((_%current-ctx125304%_ + _%bind125849%_)) + (_%lp125823%_ + _%bind-rest125848%_ + _%set125826%_) + (_%lp125823%_ + _%bind-rest125848%_ + (cons (_%make-export__2__128930128933%_ + _%bind125849%_ + _%current-phi125816%_ + _%current-ctx125814%_) + _%set125826%_)))))) + (if (pair? _%bind-rest125827125837%_) + (let ((_%hd125832125858%_ + (##car _%bind-rest125827125837%_)) + (_%tl125833125860%_ + (##cdr _%bind-rest125827125837%_))) + (if (pair? _%hd125832125858%_) + (let ((_%hd125834125863%_ + (##car _%hd125832125858%_)) + (_%tl125835125865%_ + (##cdr _%hd125832125858%_))) + (let* ((_%key125868%_ + _%hd125834125863%_) + (_%bind125870%_ + _%tl125835125865%_) + (_%bind-rest125872%_ + _%tl125833125860%_)) + (_%K125831125855%_ + _%bind-rest125872%_ + _%bind125870%_ + _%key125868%_))) + (_%else125829125845%_))) + (_%else125829125845%_))))) + (_%E125590125810%_))))) + (_%E125589125874%_)))) + (_%export-imports125430%_ + (lambda (_%src125460%_ _%r125461%_) + (letrec* ((_%current-ctx125463%_ (gx#current-expander-context)) - (_%current-phi125305%_ + (_%current-phi125464%_ (gx#current-export-expander-phi)) - (_%import->export125306%_ - (lambda (_%in125387%_) - (let* ((_%in125388125396%_ _%in125387%_) - (_%E125390125400%_ + (_%import->export125465%_ + (lambda (_%in125546%_) + (let* ((_%in125547125555%_ _%in125546%_) + (_%E125549125559%_ (lambda () (error '"No clause matching" - _%in125388125396%_ + _%in125547125555%_ '((module-import out key phi))) '#!void)) - (_%K125391125407%_ - (lambda (_%phi125403%_ - _%key125404%_ - _%out125405%_) + (_%K125550125566%_ + (lambda (_%phi125562%_ + _%key125563%_ + _%out125564%_) (##structure gx#module-export::t - _%current-ctx125304%_ - _%key125404%_ - _%phi125403%_ - _%key125404%_ + _%current-ctx125463%_ + _%key125563%_ + _%phi125562%_ + _%key125563%_ '#t)))) (if (##structure-direct-instance-of? - _%in125388125396%_ + _%in125547125555%_ 'gx#module-import::t) - (let* ((_%e125392125410%_ + (let* ((_%e125551125569%_ (##unchecked-structure-ref - _%in125388125396%_ + _%in125547125555%_ '1 '#f '#f)) - (_%out125413%_ - _%e125392125410%_) - (_%e125393125415%_ + (_%out125572%_ + _%e125551125569%_) + (_%e125552125574%_ (##unchecked-structure-ref - _%in125388125396%_ + _%in125547125555%_ '2 '#f '#f)) - (_%key125418%_ - _%e125393125415%_) - (_%e125394125420%_ + (_%key125577%_ + _%e125552125574%_) + (_%e125553125579%_ (##unchecked-structure-ref - _%in125388125396%_ + _%in125547125555%_ '3 '#f '#f)) - (_%phi125423%_ - _%e125394125420%_)) - (_%K125391125407%_ - _%phi125423%_ - _%key125418%_ - _%out125413%_)) - (_%E125390125400%_))))) - (_%fold-e125307%_ - (lambda (_%in125309%_ _%r125310%_) - (let* ((_%in125311125325%_ _%in125309%_) - (_%else125314125333%_ - (lambda () _%r125310%_))) - (let ((_%K125320125369%_ - (lambda (_%phi125365%_ - _%key125366%_ - _%out125367%_) - (if (and (fx= _%phi125365%_ - _%current-phi125305%_) - (eq? _%src125301%_ + (_%phi125582%_ + _%e125553125579%_)) + (_%K125550125566%_ + _%phi125582%_ + _%key125577%_ + _%out125572%_)) + (_%E125549125559%_))))) + (_%fold-e125466%_ + (lambda (_%in125468%_ _%r125469%_) + (let* ((_%in125470125484%_ _%in125468%_) + (_%else125473125492%_ + (lambda () _%r125469%_))) + (let ((_%K125479125528%_ + (lambda (_%phi125524%_ + _%key125525%_ + _%out125526%_) + (if (and (fx= _%phi125524%_ + _%current-phi125464%_) + (eq? _%src125460%_ (##unchecked-structure-ref - _%out125367%_ + _%out125526%_ '1 '#f '#f))) - (cons (_%import->export125306%_ - _%in125309%_) - _%r125310%_) - _%r125310%_))) - (_%K125316125344%_ - (lambda (_%imports125337%_ - _%phi125338%_ - _%ctx125339%_) - (if (and (fx= _%phi125338%_ - _%current-phi125305%_) - (eq? _%src125301%_ - _%ctx125339%_)) + (cons (_%import->export125465%_ + _%in125468%_) + _%r125469%_) + _%r125469%_))) + (_%K125475125503%_ + (lambda (_%imports125496%_ + _%phi125497%_ + _%ctx125498%_) + (if (and (fx= _%phi125497%_ + _%current-phi125464%_) + (eq? _%src125460%_ + _%ctx125498%_)) (__foldl1 - (lambda (_%in125341%_ - _%r125342%_) - (cons (_%import->export125306%_ - _%in125341%_) - _%r125342%_)) - _%r125310%_ - _%imports125337%_) - _%r125310%_)))) - (let ((_%try-match125313125362%_ + (lambda (_%in125500%_ + _%r125501%_) + (cons (_%import->export125465%_ + _%in125500%_) + _%r125501%_)) + _%r125469%_ + _%imports125496%_) + _%r125469%_)))) + (let ((_%try-match125472125521%_ (lambda () (if (##structure-direct-instance-of? - _%in125311125325%_ + _%in125470125484%_ 'gx#import-set::t) - (let* ((_%e125317125347%_ + (let* ((_%e125476125506%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in125470125484%_ '1 '#f '#f)) - (_%e125318125352%_ + (_%e125477125511%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in125470125484%_ '2 '#f '#f)) - (_%e125319125357%_ + (_%e125478125516%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in125470125484%_ '3 '#f '#f))) - (let ((_%ctx125350%_ - _%e125317125347%_) - (_%phi125355%_ - _%e125318125352%_) - (_%imports125360%_ - _%e125319125357%_)) - (_%K125316125344%_ - _%imports125360%_ - _%phi125355%_ - _%ctx125350%_))) - (_%else125314125333%_))))) + (let ((_%ctx125509%_ + _%e125476125506%_) + (_%phi125514%_ + _%e125477125511%_) + (_%imports125519%_ + _%e125478125516%_)) + (_%K125475125503%_ + _%imports125519%_ + _%phi125514%_ + _%ctx125509%_))) + (_%else125473125492%_))))) (if (##structure-direct-instance-of? - _%in125311125325%_ + _%in125470125484%_ 'gx#module-import::t) - (let* ((_%e125321125372%_ + (let* ((_%e125480125531%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in125470125484%_ '1 '#f '#f)) - (_%e125322125377%_ + (_%e125481125536%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in125470125484%_ '2 '#f '#f)) - (_%e125323125382%_ + (_%e125482125541%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in125470125484%_ '3 '#f '#f))) - (let ((_%out125375%_ - _%e125321125372%_) - (_%key125380%_ - _%e125322125377%_) - (_%phi125385%_ - _%e125323125382%_)) - (_%K125320125369%_ - _%phi125385%_ - _%key125380%_ - _%out125375%_))) - (_%try-match125313125362%_)))))))) + (let ((_%out125534%_ + _%e125480125531%_) + (_%key125539%_ + _%e125481125536%_) + (_%phi125544%_ + _%e125482125541%_)) + (_%K125479125528%_ + _%phi125544%_ + _%key125539%_ + _%out125534%_))) + (_%try-match125472125521%_)))))))) (cons (##structure gx#export-set::t - _%src125301%_ - _%current-phi125305%_ + _%src125460%_ + _%current-phi125464%_ (__foldl1 - _%fold-e125307%_ + _%fold-e125466%_ '() (##unchecked-structure-ref - _%current-ctx125304%_ + _%current-ctx125463%_ '8 '#f '#f))) - _%r125302%_)))) - (_%export!125272%_ - (lambda (_%rbody125288%_) - (letrec* ((_%current-ctx125290%_ + _%r125461%_)))) + (_%export!125431%_ + (lambda (_%rbody125447%_) + (letrec* ((_%current-ctx125449%_ (gx#current-expander-context)) - (_%fold-e125291%_ - (lambda (_%out125295%_ _%r125296%_) + (_%fold-e125450%_ + (lambda (_%out125454%_ _%r125455%_) (if (##structure-direct-instance-of? - _%out125295%_ + _%out125454%_ 'gx#module-export::t) - (cons _%out125295%_ _%r125296%_) + (cons _%out125454%_ _%r125455%_) (if (##structure-direct-instance-of? - _%out125295%_ + _%out125454%_ 'gx#export-set::t) (__foldl1 cons - _%r125296%_ + _%r125455%_ (##unchecked-structure-ref - _%out125295%_ + _%out125454%_ '3 '#f '#f)) - _%r125296%_))))) - (let ((_%body125293%_ (reverse _%rbody125288%_))) + _%r125455%_))))) + (let ((_%body125452%_ (reverse _%rbody125447%_))) (##unchecked-structure-set! - _%current-ctx125290%_ + _%current-ctx125449%_ (__foldl1 - _%fold-e125291%_ + _%fold-e125450%_ (##unchecked-structure-ref - _%current-ctx125290%_ + _%current-ctx125449%_ '9 '#f '#f) - _%body125293%_) + _%body125452%_) '9 '#f '#f) - _%body125293%_)))) - (_%expanded-export?125273%_ - (lambda (_%e125283%_) - (let ((_%$e125285%_ + _%body125452%_)))) + (_%expanded-export?125432%_ + (lambda (_%e125442%_) + (let ((_%$e125444%_ (##structure-direct-instance-of? - _%e125283%_ + _%e125442%_ 'gx#module-export::t))) - (if _%$e125285%_ - _%$e125285%_ + (if _%$e125444%_ + _%$e125444%_ (##structure-direct-instance-of? - _%e125283%_ + _%e125442%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?125267%_) - (let ((_%rbody125279%_ + _%internal-expand?125426%_) + (let ((_%rbody125438%_ (gx#core-expand-import/export - _%stx125266%_ - _%expanded-export?125273%_ + _%stx125425%_ + _%expanded-export?125432%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1125270%_))) - (if _%internal-expand?125267%_ - (reverse _%rbody125279%_) + _%expand1125429%_))) + (if _%internal-expand?125426%_ + (reverse _%rbody125438%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!125272%_ _%rbody125279%_)) - (gx#stx-source _%stx125266%_)))) + (_%export!125431%_ _%rbody125438%_)) + (gx#stx-source _%stx125425%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx125266%_)) + (gx#stx-source _%stx125425%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx125266%_)))))) + _%stx125425%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx125765%_) - (let ((_%internal-expand?125767%_ '#f)) + (lambda (_%stx125924%_) + (let ((_%internal-expand?125926%_ '#f)) (gx#core-expand-export%__% - _%stx125765%_ - _%internal-expand?125767%_)))) + _%stx125924%_ + _%internal-expand?125926%_)))) (define gx#core-expand-export% - (lambda _g128843_ - (let ((_g128842_ (##length _g128843_))) - (cond ((##fx= _g128842_ 1) - (apply gx#core-expand-export%__0 _g128843_)) - ((##fx= _g128842_ 2) - (apply gx#core-expand-export%__% _g128843_)) + (lambda _g129002_ + (let ((_g129001_ (##length _g129002_))) + (cond ((##fx= _g129001_ 1) + (apply gx#core-expand-export%__0 _g129002_)) + ((##fx= _g129001_ 2) + (apply gx#core-expand-export%__% _g129002_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g128843_)))))) + _g129002_)))))) (define gx#core-expand-export-source - (lambda (_%hd125263%_) + (lambda (_%hd125422%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd125263%_ '())) + (cons 'export-macro% (cons _%hd125422%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx125233%_) - (let* ((_%e125234125241%_ _%stx125233%_) - (_%E125236125245%_ + (lambda (_%stx125392%_) + (let* ((_%e125393125400%_ _%stx125392%_) + (_%E125395125404%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125234125241%_))) - (_%E125235125259%_ + _%e125393125400%_))) + (_%E125394125418%_ (lambda () - (if (gx#stx-pair? _%e125234125241%_) - (let ((_%e125237125249%_ - (gx#syntax-e _%e125234125241%_))) - (let ((_%hd125238125252%_ (##car _%e125237125249%_)) - (_%tl125239125254%_ (##cdr _%e125237125249%_))) - (let ((_%body125257%_ _%tl125239125254%_)) - (if (gx#identifier-list? _%body125257%_) + (if (gx#stx-pair? _%e125393125400%_) + (let ((_%e125396125408%_ + (gx#syntax-e _%e125393125400%_))) + (let ((_%hd125397125411%_ (##car _%e125396125408%_)) + (_%tl125398125413%_ (##cdr _%e125396125408%_))) + (let ((_%body125416%_ _%tl125398125413%_)) + (if (gx#identifier-list? _%body125416%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body125257%_) + _%body125416%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body125257%_)) - (gx#stx-source _%stx125233%_))) - (_%E125236125245%_))))) - (_%E125236125245%_))))) - (_%E125235125259%_)))) + _%body125416%_)) + (gx#stx-source _%stx125392%_))) + (_%E125395125404%_))))) + (_%E125395125404%_))))) + (_%E125394125418%_)))) (define gx#core-bind-feature!__% - (lambda (_%id125199%_ _%private?125200%_ _%phi125201%_ _%ctx125202%_) + (lambda (_%id125358%_ _%private?125359%_ _%phi125360%_ _%ctx125361%_) (gx#core-bind-syntax!__% - _%id125199%_ - ((if _%private?125200%_ + _%id125358%_ + ((if _%private?125359%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id125199%_)) - _%private?125200%_ - _%phi125201%_ - _%ctx125202%_))) + (gx#stx-e _%id125358%_)) + _%private?125359%_ + _%phi125360%_ + _%ctx125361%_))) (define gx#core-bind-feature!__0 - (lambda (_%id125207%_) - (let* ((_%private?125209%_ '#f) - (_%phi125211%_ (gx#current-expander-phi)) - (_%ctx125213%_ (gx#current-expander-context))) + (lambda (_%id125366%_) + (let* ((_%private?125368%_ '#f) + (_%phi125370%_ (gx#current-expander-phi)) + (_%ctx125372%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125207%_ - _%private?125209%_ - _%phi125211%_ - _%ctx125213%_)))) + _%id125366%_ + _%private?125368%_ + _%phi125370%_ + _%ctx125372%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id125215%_ _%private?125216%_) - (let* ((_%phi125218%_ (gx#current-expander-phi)) - (_%ctx125220%_ (gx#current-expander-context))) + (lambda (_%id125374%_ _%private?125375%_) + (let* ((_%phi125377%_ (gx#current-expander-phi)) + (_%ctx125379%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125215%_ - _%private?125216%_ - _%phi125218%_ - _%ctx125220%_)))) + _%id125374%_ + _%private?125375%_ + _%phi125377%_ + _%ctx125379%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id125222%_ _%private?125223%_ _%phi125224%_) - (let ((_%ctx125226%_ (gx#current-expander-context))) + (lambda (_%id125381%_ _%private?125382%_ _%phi125383%_) + (let ((_%ctx125385%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125222%_ - _%private?125223%_ - _%phi125224%_ - _%ctx125226%_)))) + _%id125381%_ + _%private?125382%_ + _%phi125383%_ + _%ctx125385%_)))) (define gx#core-bind-feature! - (lambda _g128845_ - (let ((_g128844_ (##length _g128845_))) - (cond ((##fx= _g128844_ 1) - (apply gx#core-bind-feature!__0 _g128845_)) - ((##fx= _g128844_ 2) - (apply gx#core-bind-feature!__1 _g128845_)) - ((##fx= _g128844_ 3) - (apply gx#core-bind-feature!__2 _g128845_)) - ((##fx= _g128844_ 4) - (apply gx#core-bind-feature!__% _g128845_)) + (lambda _g129004_ + (let ((_g129003_ (##length _g129004_))) + (cond ((##fx= _g129003_ 1) + (apply gx#core-bind-feature!__0 _g129004_)) + ((##fx= _g129003_ 2) + (apply gx#core-bind-feature!__1 _g129004_)) + ((##fx= _g129003_ 3) + (apply gx#core-bind-feature!__2 _g129004_)) + ((##fx= _g129003_ 4) + (apply gx#core-bind-feature!__% _g129004_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g128845_)))))))) + _g129004_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 9cb20ac36..a85557058 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]#_g128847_| + (define |gx[1]#_g129006_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128849_| + (define |gx[1]#_g129008_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g128851_| + (define |gx[1]#_g129010_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128853_| + (define |gx[1]#_g129012_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128854_| + (define |gx[1]#_g129013_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128855_| + (define |gx[1]#_g129014_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128856_| + (define |gx[1]#_g129015_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128858_| + (define |gx[1]#_g129017_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128859_| + (define |gx[1]#_g129018_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128860_| + (define |gx[1]#_g129019_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128861_| + (define |gx[1]#_g129020_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128863_| + (define |gx[1]#_g129022_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128864_| + (define |gx[1]#_g129023_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128865_| + (define |gx[1]#_g129024_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128866_| + (define |gx[1]#_g129025_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128868_| + (define |gx[1]#_g129027_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128869_| + (define |gx[1]#_g129028_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128870_| + (define |gx[1]#_g129029_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128871_| + (define |gx[1]#_g129030_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128873_| + (define |gx[1]#_g129032_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128875_| + (define |gx[1]#_g129034_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g128877_| + (define |gx[1]#_g129036_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128879_| + (define |gx[1]#_g129038_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128880_| + (define |gx[1]#_g129039_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g128881_| + (define |gx[1]#_g129040_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128882_| + (define |gx[1]#_g129041_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128883_| + (define |gx[1]#_g129042_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128885_| + (define |gx[1]#_g129044_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128886_| + (define |gx[1]#_g129045_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128887_| + (define |gx[1]#_g129046_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128888_| + (define |gx[1]#_g129047_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128889_| + (define |gx[1]#_g129048_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128891_| + (define |gx[1]#_g129050_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128892_| + (define |gx[1]#_g129051_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g128893_| + (define |gx[1]#_g129052_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128894_| + (define |gx[1]#_g129053_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128895_| + (define |gx[1]#_g129054_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128897_| + (define |gx[1]#_g129056_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128898_| + (define |gx[1]#_g129057_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128899_| + (define |gx[1]#_g129058_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128900_| + (define |gx[1]#_g129059_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128901_| + (define |gx[1]#_g129060_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128903_| + (define |gx[1]#_g129062_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128905_| + (define |gx[1]#_g129064_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g128907_| + (define |gx[1]#_g129066_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128909_| + (define |gx[1]#_g129068_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128910_| + (define |gx[1]#_g129069_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128911_| + (define |gx[1]#_g129070_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128913_| + (define |gx[1]#_g129072_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128914_| + (define |gx[1]#_g129073_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128915_| + (define |gx[1]#_g129074_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128917_| + (define |gx[1]#_g129076_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128918_| + (define |gx[1]#_g129077_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128919_| + (define |gx[1]#_g129078_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128921_| + (define |gx[1]#_g129080_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128922_| + (define |gx[1]#_g129081_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128923_| + (define |gx[1]#_g129082_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128925_| + (define |gx[1]#_g129084_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128927_| + (define |gx[1]#_g129086_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g128929_| + (define |gx[1]#_g129088_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128931_| + (define |gx[1]#_g129090_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128932_| + (define |gx[1]#_g129091_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128933_| + (define |gx[1]#_g129092_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128935_| + (define |gx[1]#_g129094_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128936_| + (define |gx[1]#_g129095_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128937_| + (define |gx[1]#_g129096_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128939_| + (define |gx[1]#_g129098_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128940_| + (define |gx[1]#_g129099_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128941_| + (define |gx[1]#_g129100_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128943_| + (define |gx[1]#_g129102_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128944_| + (define |gx[1]#_g129103_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128945_| + (define |gx[1]#_g129104_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128947_| + (define |gx[1]#_g129106_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128949_| + (define |gx[1]#_g129108_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128951_| + (define |gx[1]#_g129110_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128953_| + (define |gx[1]#_g129112_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128955_| + (define |gx[1]#_g129114_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128956_| + (define |gx[1]#_g129115_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128957_| + (define |gx[1]#_g129116_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128959_| + (define |gx[1]#_g129118_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128960_| + (define |gx[1]#_g129119_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128961_| + (define |gx[1]#_g129120_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128963_| + (define |gx[1]#_g129122_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128964_| + (define |gx[1]#_g129123_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128965_| + (define |gx[1]#_g129124_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128967_| + (define |gx[1]#_g129126_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128968_| + (define |gx[1]#_g129127_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128969_| + (define |gx[1]#_g129128_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128972_| + (define |gx[1]#_g129131_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128974_| + (define |gx[1]#_g129133_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128976_| + (define |gx[1]#_g129135_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128978_| + (define |gx[1]#_g129137_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128979_| + (define |gx[1]#_g129138_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128980_| + (define |gx[1]#_g129139_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128982_| + (define |gx[1]#_g129141_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128983_| + (define |gx[1]#_g129142_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128984_| + (define |gx[1]#_g129143_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128986_| + (define |gx[1]#_g129145_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128987_| + (define |gx[1]#_g129146_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128988_| + (define |gx[1]#_g129147_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128990_| + (define |gx[1]#_g129149_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128991_| + (define |gx[1]#_g129150_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128992_| + (define |gx[1]#_g129151_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128994_| + (define |gx[1]#_g129153_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128995_| + (define |gx[1]#_g129154_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128997_| + (define |gx[1]#_g129156_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128999_| + (define |gx[1]#_g129158_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129001_| + (define |gx[1]#_g129160_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129003_| + (define |gx[1]#_g129162_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129004_| + (define |gx[1]#_g129163_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129005_| + (define |gx[1]#_g129164_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129007_| + (define |gx[1]#_g129166_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129008_| + (define |gx[1]#_g129167_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129009_| + (define |gx[1]#_g129168_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129011_| + (define |gx[1]#_g129170_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129012_| + (define |gx[1]#_g129171_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129013_| + (define |gx[1]#_g129172_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129015_| + (define |gx[1]#_g129174_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129016_| + (define |gx[1]#_g129175_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129017_| + (define |gx[1]#_g129176_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj128801 + (let ((__obj128960 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128801 + __obj128960 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj128960 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128801 + __obj128960 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128801 + __obj128960 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128960 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128960 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128960 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128960 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#f '11 '#f '#f)) - (let ((__tmp128846 |gx[1]#_g128847_|)) + (##unchecked-structure-set! __obj128960 '#f '11 '#f '#f)) + (let ((__tmp129005 |gx[1]#_g129006_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128846 '12 '#f '#f)) - (let ((__tmp128848 |gx[1]#_g128849_|)) + (##unchecked-structure-set! __obj128960 __tmp129005 '12 '#f '#f)) + (let ((__tmp129007 |gx[1]#_g129008_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128848 '13 '#f '#f)) - (let ((__tmp128850 |gx[1]#_g128851_|)) + (##unchecked-structure-set! __obj128960 __tmp129007 '13 '#f '#f)) + (let ((__tmp129009 |gx[1]#_g129010_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128850 '14 '#f '#f)) - (let ((__tmp128852 - (cons (cons 'source |gx[1]#_g128853_|) - (cons (cons 'name |gx[1]#_g128854_|) - (cons (cons 'phi |gx[1]#_g128855_|) - (cons (cons 'weak? |gx[1]#_g128856_|) + (##unchecked-structure-set! __obj128960 __tmp129009 '14 '#f '#f)) + (let ((__tmp129011 + (cons (cons 'source |gx[1]#_g129012_|) + (cons (cons 'name |gx[1]#_g129013_|) + (cons (cons 'phi |gx[1]#_g129014_|) + (cons (cons 'weak? |gx[1]#_g129015_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128852 '15 '#f '#f)) - (let ((__tmp128857 - (cons (cons 'source |gx[1]#_g128858_|) - (cons (cons 'name |gx[1]#_g128859_|) - (cons (cons 'phi |gx[1]#_g128860_|) - (cons (cons 'weak? |gx[1]#_g128861_|) + (##unchecked-structure-set! __obj128960 __tmp129011 '15 '#f '#f)) + (let ((__tmp129016 + (cons (cons 'source |gx[1]#_g129017_|) + (cons (cons 'name |gx[1]#_g129018_|) + (cons (cons 'phi |gx[1]#_g129019_|) + (cons (cons 'weak? |gx[1]#_g129020_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128857 '16 '#f '#f)) - (let ((__tmp128862 - (cons (cons 'source |gx[1]#_g128863_|) - (cons (cons 'name |gx[1]#_g128864_|) - (cons (cons 'phi |gx[1]#_g128865_|) - (cons (cons 'weak? |gx[1]#_g128866_|) + (##unchecked-structure-set! __obj128960 __tmp129016 '16 '#f '#f)) + (let ((__tmp129021 + (cons (cons 'source |gx[1]#_g129022_|) + (cons (cons 'name |gx[1]#_g129023_|) + (cons (cons 'phi |gx[1]#_g129024_|) + (cons (cons 'weak? |gx[1]#_g129025_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128862 '17 '#f '#f)) - (let ((__tmp128867 - (cons (cons 'source |gx[1]#_g128868_|) - (cons (cons 'name |gx[1]#_g128869_|) - (cons (cons 'phi |gx[1]#_g128870_|) - (cons (cons 'weak? |gx[1]#_g128871_|) + (##unchecked-structure-set! __obj128960 __tmp129021 '17 '#f '#f)) + (let ((__tmp129026 + (cons (cons 'source |gx[1]#_g129027_|) + (cons (cons 'name |gx[1]#_g129028_|) + (cons (cons 'phi |gx[1]#_g129029_|) + (cons (cons 'weak? |gx[1]#_g129030_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128867 '18 '#f '#f)) + (##unchecked-structure-set! __obj128960 __tmp129026 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128960 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128960 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '20 '#f '#f)) - __obj128801)) + (##unchecked-structure-set! __obj128960 '() '20 '#f '#f)) + __obj128960)) (define |gx[:0:]#module-export| - (let ((__obj128802 + (let ((__obj128961 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128802 + __obj128961 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj128961 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128802 + __obj128961 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128802 + __obj128961 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128961 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128961 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128961 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128961 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#f '11 '#f '#f)) - (let ((__tmp128872 |gx[1]#_g128873_|)) + (##unchecked-structure-set! __obj128961 '#f '11 '#f '#f)) + (let ((__tmp129031 |gx[1]#_g129032_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128872 '12 '#f '#f)) - (let ((__tmp128874 |gx[1]#_g128875_|)) + (##unchecked-structure-set! __obj128961 __tmp129031 '12 '#f '#f)) + (let ((__tmp129033 |gx[1]#_g129034_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128874 '13 '#f '#f)) - (let ((__tmp128876 |gx[1]#_g128877_|)) + (##unchecked-structure-set! __obj128961 __tmp129033 '13 '#f '#f)) + (let ((__tmp129035 |gx[1]#_g129036_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128876 '14 '#f '#f)) - (let ((__tmp128878 - (cons (cons 'context |gx[1]#_g128879_|) - (cons (cons 'key |gx[1]#_g128880_|) - (cons (cons 'phi |gx[1]#_g128881_|) - (cons (cons 'name |gx[1]#_g128882_|) - (cons (cons 'weak? |gx[1]#_g128883_|) + (##unchecked-structure-set! __obj128961 __tmp129035 '14 '#f '#f)) + (let ((__tmp129037 + (cons (cons 'context |gx[1]#_g129038_|) + (cons (cons 'key |gx[1]#_g129039_|) + (cons (cons 'phi |gx[1]#_g129040_|) + (cons (cons 'name |gx[1]#_g129041_|) + (cons (cons 'weak? |gx[1]#_g129042_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128878 '15 '#f '#f)) - (let ((__tmp128884 - (cons (cons 'context |gx[1]#_g128885_|) - (cons (cons 'key |gx[1]#_g128886_|) - (cons (cons 'phi |gx[1]#_g128887_|) - (cons (cons 'name |gx[1]#_g128888_|) - (cons (cons 'weak? |gx[1]#_g128889_|) + (##unchecked-structure-set! __obj128961 __tmp129037 '15 '#f '#f)) + (let ((__tmp129043 + (cons (cons 'context |gx[1]#_g129044_|) + (cons (cons 'key |gx[1]#_g129045_|) + (cons (cons 'phi |gx[1]#_g129046_|) + (cons (cons 'name |gx[1]#_g129047_|) + (cons (cons 'weak? |gx[1]#_g129048_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128884 '16 '#f '#f)) - (let ((__tmp128890 - (cons (cons 'context |gx[1]#_g128891_|) - (cons (cons 'key |gx[1]#_g128892_|) - (cons (cons 'phi |gx[1]#_g128893_|) - (cons (cons 'name |gx[1]#_g128894_|) - (cons (cons 'weak? |gx[1]#_g128895_|) + (##unchecked-structure-set! __obj128961 __tmp129043 '16 '#f '#f)) + (let ((__tmp129049 + (cons (cons 'context |gx[1]#_g129050_|) + (cons (cons 'key |gx[1]#_g129051_|) + (cons (cons 'phi |gx[1]#_g129052_|) + (cons (cons 'name |gx[1]#_g129053_|) + (cons (cons 'weak? |gx[1]#_g129054_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128890 '17 '#f '#f)) - (let ((__tmp128896 - (cons (cons 'context |gx[1]#_g128897_|) - (cons (cons 'key |gx[1]#_g128898_|) - (cons (cons 'phi |gx[1]#_g128899_|) - (cons (cons 'name |gx[1]#_g128900_|) - (cons (cons 'weak? |gx[1]#_g128901_|) + (##unchecked-structure-set! __obj128961 __tmp129049 '17 '#f '#f)) + (let ((__tmp129055 + (cons (cons 'context |gx[1]#_g129056_|) + (cons (cons 'key |gx[1]#_g129057_|) + (cons (cons 'phi |gx[1]#_g129058_|) + (cons (cons 'name |gx[1]#_g129059_|) + (cons (cons 'weak? |gx[1]#_g129060_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128896 '18 '#f '#f)) + (##unchecked-structure-set! __obj128961 __tmp129055 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128961 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128961 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '20 '#f '#f)) - __obj128802)) + (##unchecked-structure-set! __obj128961 '() '20 '#f '#f)) + __obj128961)) (define |gx[:0:]#import-set| - (let ((__obj128803 + (let ((__obj128962 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128803 + __obj128962 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj128962 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128803 + __obj128962 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128803 + __obj128962 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128962 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128962 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128962 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128962 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#f '11 '#f '#f)) - (let ((__tmp128902 |gx[1]#_g128903_|)) + (##unchecked-structure-set! __obj128962 '#f '11 '#f '#f)) + (let ((__tmp129061 |gx[1]#_g129062_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128902 '12 '#f '#f)) - (let ((__tmp128904 |gx[1]#_g128905_|)) + (##unchecked-structure-set! __obj128962 __tmp129061 '12 '#f '#f)) + (let ((__tmp129063 |gx[1]#_g129064_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128904 '13 '#f '#f)) - (let ((__tmp128906 |gx[1]#_g128907_|)) + (##unchecked-structure-set! __obj128962 __tmp129063 '13 '#f '#f)) + (let ((__tmp129065 |gx[1]#_g129066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128906 '14 '#f '#f)) - (let ((__tmp128908 - (cons (cons 'source |gx[1]#_g128909_|) - (cons (cons 'phi |gx[1]#_g128910_|) - (cons (cons 'imports |gx[1]#_g128911_|) '()))))) + (##unchecked-structure-set! __obj128962 __tmp129065 '14 '#f '#f)) + (let ((__tmp129067 + (cons (cons 'source |gx[1]#_g129068_|) + (cons (cons 'phi |gx[1]#_g129069_|) + (cons (cons 'imports |gx[1]#_g129070_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128908 '15 '#f '#f)) - (let ((__tmp128912 - (cons (cons 'source |gx[1]#_g128913_|) - (cons (cons 'phi |gx[1]#_g128914_|) - (cons (cons 'imports |gx[1]#_g128915_|) '()))))) + (##unchecked-structure-set! __obj128962 __tmp129067 '15 '#f '#f)) + (let ((__tmp129071 + (cons (cons 'source |gx[1]#_g129072_|) + (cons (cons 'phi |gx[1]#_g129073_|) + (cons (cons 'imports |gx[1]#_g129074_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128912 '16 '#f '#f)) - (let ((__tmp128916 - (cons (cons 'source |gx[1]#_g128917_|) - (cons (cons 'phi |gx[1]#_g128918_|) - (cons (cons 'imports |gx[1]#_g128919_|) '()))))) + (##unchecked-structure-set! __obj128962 __tmp129071 '16 '#f '#f)) + (let ((__tmp129075 + (cons (cons 'source |gx[1]#_g129076_|) + (cons (cons 'phi |gx[1]#_g129077_|) + (cons (cons 'imports |gx[1]#_g129078_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128916 '17 '#f '#f)) - (let ((__tmp128920 - (cons (cons 'source |gx[1]#_g128921_|) - (cons (cons 'phi |gx[1]#_g128922_|) - (cons (cons 'imports |gx[1]#_g128923_|) '()))))) + (##unchecked-structure-set! __obj128962 __tmp129075 '17 '#f '#f)) + (let ((__tmp129079 + (cons (cons 'source |gx[1]#_g129080_|) + (cons (cons 'phi |gx[1]#_g129081_|) + (cons (cons 'imports |gx[1]#_g129082_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128920 '18 '#f '#f)) + (##unchecked-structure-set! __obj128962 __tmp129079 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128962 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128962 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '20 '#f '#f)) - __obj128803)) + (##unchecked-structure-set! __obj128962 '() '20 '#f '#f)) + __obj128962)) (define |gx[:0:]#export-set| - (let ((__obj128804 + (let ((__obj128963 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128804 + __obj128963 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj128963 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128804 + __obj128963 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128804 + __obj128963 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128963 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128963 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128963 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128963 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#f '11 '#f '#f)) - (let ((__tmp128924 |gx[1]#_g128925_|)) + (##unchecked-structure-set! __obj128963 '#f '11 '#f '#f)) + (let ((__tmp129083 |gx[1]#_g129084_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128924 '12 '#f '#f)) - (let ((__tmp128926 |gx[1]#_g128927_|)) + (##unchecked-structure-set! __obj128963 __tmp129083 '12 '#f '#f)) + (let ((__tmp129085 |gx[1]#_g129086_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128926 '13 '#f '#f)) - (let ((__tmp128928 |gx[1]#_g128929_|)) + (##unchecked-structure-set! __obj128963 __tmp129085 '13 '#f '#f)) + (let ((__tmp129087 |gx[1]#_g129088_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128928 '14 '#f '#f)) - (let ((__tmp128930 - (cons (cons 'source |gx[1]#_g128931_|) - (cons (cons 'phi |gx[1]#_g128932_|) - (cons (cons 'exports |gx[1]#_g128933_|) '()))))) + (##unchecked-structure-set! __obj128963 __tmp129087 '14 '#f '#f)) + (let ((__tmp129089 + (cons (cons 'source |gx[1]#_g129090_|) + (cons (cons 'phi |gx[1]#_g129091_|) + (cons (cons 'exports |gx[1]#_g129092_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128930 '15 '#f '#f)) - (let ((__tmp128934 - (cons (cons 'source |gx[1]#_g128935_|) - (cons (cons 'phi |gx[1]#_g128936_|) - (cons (cons 'exports |gx[1]#_g128937_|) '()))))) + (##unchecked-structure-set! __obj128963 __tmp129089 '15 '#f '#f)) + (let ((__tmp129093 + (cons (cons 'source |gx[1]#_g129094_|) + (cons (cons 'phi |gx[1]#_g129095_|) + (cons (cons 'exports |gx[1]#_g129096_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128934 '16 '#f '#f)) - (let ((__tmp128938 - (cons (cons 'source |gx[1]#_g128939_|) - (cons (cons 'phi |gx[1]#_g128940_|) - (cons (cons 'exports |gx[1]#_g128941_|) '()))))) + (##unchecked-structure-set! __obj128963 __tmp129093 '16 '#f '#f)) + (let ((__tmp129097 + (cons (cons 'source |gx[1]#_g129098_|) + (cons (cons 'phi |gx[1]#_g129099_|) + (cons (cons 'exports |gx[1]#_g129100_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128938 '17 '#f '#f)) - (let ((__tmp128942 - (cons (cons 'source |gx[1]#_g128943_|) - (cons (cons 'phi |gx[1]#_g128944_|) - (cons (cons 'exports |gx[1]#_g128945_|) '()))))) + (##unchecked-structure-set! __obj128963 __tmp129097 '17 '#f '#f)) + (let ((__tmp129101 + (cons (cons 'source |gx[1]#_g129102_|) + (cons (cons 'phi |gx[1]#_g129103_|) + (cons (cons 'exports |gx[1]#_g129104_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128942 '18 '#f '#f)) + (##unchecked-structure-set! __obj128963 __tmp129101 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128963 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128963 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '20 '#f '#f)) - __obj128804)) + (##unchecked-structure-set! __obj128963 '() '20 '#f '#f)) + __obj128963)) (define |gx[:0:]#import-expander| - (let ((__obj128805 + (let ((__obj128964 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128805 + __obj128964 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj128964 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj128964 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '(e context phi) '6 '#f '#f)) - (let ((__tmp128946 (cons |gx[1]#_g128947_| '()))) + (##unchecked-structure-set! __obj128964 '(e context phi) '6 '#f '#f)) + (let ((__tmp129105 (cons |gx[1]#_g129106_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128946 '3 '#f '#f)) + (##unchecked-structure-set! __obj128964 __tmp129105 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj128964 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128964 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128964 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 ':init! '11 '#f '#f)) - (let ((__tmp128948 |gx[1]#_g128949_|)) + (##unchecked-structure-set! __obj128964 ':init! '11 '#f '#f)) + (let ((__tmp129107 |gx[1]#_g129108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128948 '12 '#f '#f)) - (let ((__tmp128950 |gx[1]#_g128951_|)) + (##unchecked-structure-set! __obj128964 __tmp129107 '12 '#f '#f)) + (let ((__tmp129109 |gx[1]#_g129110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128950 '13 '#f '#f)) - (let ((__tmp128952 |gx[1]#_g128953_|)) + (##unchecked-structure-set! __obj128964 __tmp129109 '13 '#f '#f)) + (let ((__tmp129111 |gx[1]#_g129112_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128952 '14 '#f '#f)) - (let ((__tmp128954 - (cons (cons 'context |gx[1]#_g128955_|) - (cons (cons 'phi |gx[1]#_g128956_|) - (cons (cons 'e |gx[1]#_g128957_|) '()))))) + (##unchecked-structure-set! __obj128964 __tmp129111 '14 '#f '#f)) + (let ((__tmp129113 + (cons (cons 'context |gx[1]#_g129114_|) + (cons (cons 'phi |gx[1]#_g129115_|) + (cons (cons 'e |gx[1]#_g129116_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128954 '15 '#f '#f)) - (let ((__tmp128958 - (cons (cons 'context |gx[1]#_g128959_|) - (cons (cons 'phi |gx[1]#_g128960_|) - (cons (cons 'e |gx[1]#_g128961_|) '()))))) + (##unchecked-structure-set! __obj128964 __tmp129113 '15 '#f '#f)) + (let ((__tmp129117 + (cons (cons 'context |gx[1]#_g129118_|) + (cons (cons 'phi |gx[1]#_g129119_|) + (cons (cons 'e |gx[1]#_g129120_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128958 '16 '#f '#f)) - (let ((__tmp128962 - (cons (cons 'context |gx[1]#_g128963_|) - (cons (cons 'phi |gx[1]#_g128964_|) - (cons (cons 'e |gx[1]#_g128965_|) '()))))) + (##unchecked-structure-set! __obj128964 __tmp129117 '16 '#f '#f)) + (let ((__tmp129121 + (cons (cons 'context |gx[1]#_g129122_|) + (cons (cons 'phi |gx[1]#_g129123_|) + (cons (cons 'e |gx[1]#_g129124_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128962 '17 '#f '#f)) - (let ((__tmp128966 - (cons (cons 'context |gx[1]#_g128967_|) - (cons (cons 'phi |gx[1]#_g128968_|) - (cons (cons 'e |gx[1]#_g128969_|) '()))))) + (##unchecked-structure-set! __obj128964 __tmp129121 '17 '#f '#f)) + (let ((__tmp129125 + (cons (cons 'context |gx[1]#_g129126_|) + (cons (cons 'phi |gx[1]#_g129127_|) + (cons (cons 'e |gx[1]#_g129128_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128966 '18 '#f '#f)) + (##unchecked-structure-set! __obj128964 __tmp129125 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128964 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128964 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '20 '#f '#f)) - __obj128805)) + (##unchecked-structure-set! __obj128964 '() '20 '#f '#f)) + __obj128964)) (define |gx[:0:]#export-expander| - (let ((__obj128806 + (let ((__obj128965 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128806 + __obj128965 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj128965 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj128965 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '(e context phi) '6 '#f '#f)) - (let ((__tmp128970 (cons |gx[1]#_g128947_| '()))) + (##unchecked-structure-set! __obj128965 '(e context phi) '6 '#f '#f)) + (let ((__tmp129129 (cons |gx[1]#_g129106_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128970 '3 '#f '#f)) + (##unchecked-structure-set! __obj128965 __tmp129129 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj128965 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128965 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128965 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 ':init! '11 '#f '#f)) - (let ((__tmp128971 |gx[1]#_g128972_|)) + (##unchecked-structure-set! __obj128965 ':init! '11 '#f '#f)) + (let ((__tmp129130 |gx[1]#_g129131_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128971 '12 '#f '#f)) - (let ((__tmp128973 |gx[1]#_g128974_|)) + (##unchecked-structure-set! __obj128965 __tmp129130 '12 '#f '#f)) + (let ((__tmp129132 |gx[1]#_g129133_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128973 '13 '#f '#f)) - (let ((__tmp128975 |gx[1]#_g128976_|)) + (##unchecked-structure-set! __obj128965 __tmp129132 '13 '#f '#f)) + (let ((__tmp129134 |gx[1]#_g129135_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128975 '14 '#f '#f)) - (let ((__tmp128977 - (cons (cons 'context |gx[1]#_g128978_|) - (cons (cons 'phi |gx[1]#_g128979_|) - (cons (cons 'e |gx[1]#_g128980_|) '()))))) + (##unchecked-structure-set! __obj128965 __tmp129134 '14 '#f '#f)) + (let ((__tmp129136 + (cons (cons 'context |gx[1]#_g129137_|) + (cons (cons 'phi |gx[1]#_g129138_|) + (cons (cons 'e |gx[1]#_g129139_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128977 '15 '#f '#f)) - (let ((__tmp128981 - (cons (cons 'context |gx[1]#_g128982_|) - (cons (cons 'phi |gx[1]#_g128983_|) - (cons (cons 'e |gx[1]#_g128984_|) '()))))) + (##unchecked-structure-set! __obj128965 __tmp129136 '15 '#f '#f)) + (let ((__tmp129140 + (cons (cons 'context |gx[1]#_g129141_|) + (cons (cons 'phi |gx[1]#_g129142_|) + (cons (cons 'e |gx[1]#_g129143_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128981 '16 '#f '#f)) - (let ((__tmp128985 - (cons (cons 'context |gx[1]#_g128986_|) - (cons (cons 'phi |gx[1]#_g128987_|) - (cons (cons 'e |gx[1]#_g128988_|) '()))))) + (##unchecked-structure-set! __obj128965 __tmp129140 '16 '#f '#f)) + (let ((__tmp129144 + (cons (cons 'context |gx[1]#_g129145_|) + (cons (cons 'phi |gx[1]#_g129146_|) + (cons (cons 'e |gx[1]#_g129147_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128985 '17 '#f '#f)) - (let ((__tmp128989 - (cons (cons 'context |gx[1]#_g128990_|) - (cons (cons 'phi |gx[1]#_g128991_|) - (cons (cons 'e |gx[1]#_g128992_|) '()))))) + (##unchecked-structure-set! __obj128965 __tmp129144 '17 '#f '#f)) + (let ((__tmp129148 + (cons (cons 'context |gx[1]#_g129149_|) + (cons (cons 'phi |gx[1]#_g129150_|) + (cons (cons 'e |gx[1]#_g129151_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128989 '18 '#f '#f)) + (##unchecked-structure-set! __obj128965 __tmp129148 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128965 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128965 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '20 '#f '#f)) - __obj128806)) + (##unchecked-structure-set! __obj128965 '() '20 '#f '#f)) + __obj128965)) (define |gx[:0:]#import-export-expander| - (let ((__obj128807 + (let ((__obj128966 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128807 + __obj128966 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128807 + __obj128966 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj128966 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '(e context phi) '6 '#f '#f)) - (let ((__tmp128993 - (cons |gx[1]#_g128994_| (cons |gx[1]#_g128995_| '())))) + (##unchecked-structure-set! __obj128966 '(e context phi) '6 '#f '#f)) + (let ((__tmp129152 + (cons |gx[1]#_g129153_| (cons |gx[1]#_g129154_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp128993 '3 '#f '#f)) + (##unchecked-structure-set! __obj128966 __tmp129152 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj128966 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj128966 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128966 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 ':init! '11 '#f '#f)) - (let ((__tmp128996 |gx[1]#_g128997_|)) + (##unchecked-structure-set! __obj128966 ':init! '11 '#f '#f)) + (let ((__tmp129155 |gx[1]#_g129156_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp128996 '12 '#f '#f)) - (let ((__tmp128998 |gx[1]#_g128999_|)) + (##unchecked-structure-set! __obj128966 __tmp129155 '12 '#f '#f)) + (let ((__tmp129157 |gx[1]#_g129158_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp128998 '13 '#f '#f)) - (let ((__tmp129000 |gx[1]#_g129001_|)) + (##unchecked-structure-set! __obj128966 __tmp129157 '13 '#f '#f)) + (let ((__tmp129159 |gx[1]#_g129160_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129000 '14 '#f '#f)) - (let ((__tmp129002 - (cons (cons 'context |gx[1]#_g129003_|) - (cons (cons 'phi |gx[1]#_g129004_|) - (cons (cons 'e |gx[1]#_g129005_|) '()))))) + (##unchecked-structure-set! __obj128966 __tmp129159 '14 '#f '#f)) + (let ((__tmp129161 + (cons (cons 'context |gx[1]#_g129162_|) + (cons (cons 'phi |gx[1]#_g129163_|) + (cons (cons 'e |gx[1]#_g129164_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129002 '15 '#f '#f)) - (let ((__tmp129006 - (cons (cons 'context |gx[1]#_g129007_|) - (cons (cons 'phi |gx[1]#_g129008_|) - (cons (cons 'e |gx[1]#_g129009_|) '()))))) + (##unchecked-structure-set! __obj128966 __tmp129161 '15 '#f '#f)) + (let ((__tmp129165 + (cons (cons 'context |gx[1]#_g129166_|) + (cons (cons 'phi |gx[1]#_g129167_|) + (cons (cons 'e |gx[1]#_g129168_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129006 '16 '#f '#f)) - (let ((__tmp129010 - (cons (cons 'context |gx[1]#_g129011_|) - (cons (cons 'phi |gx[1]#_g129012_|) - (cons (cons 'e |gx[1]#_g129013_|) '()))))) + (##unchecked-structure-set! __obj128966 __tmp129165 '16 '#f '#f)) + (let ((__tmp129169 + (cons (cons 'context |gx[1]#_g129170_|) + (cons (cons 'phi |gx[1]#_g129171_|) + (cons (cons 'e |gx[1]#_g129172_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129010 '17 '#f '#f)) - (let ((__tmp129014 - (cons (cons 'context |gx[1]#_g129015_|) - (cons (cons 'phi |gx[1]#_g129016_|) - (cons (cons 'e |gx[1]#_g129017_|) '()))))) + (##unchecked-structure-set! __obj128966 __tmp129169 '17 '#f '#f)) + (let ((__tmp129173 + (cons (cons 'context |gx[1]#_g129174_|) + (cons (cons 'phi |gx[1]#_g129175_|) + (cons (cons 'e |gx[1]#_g129176_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129014 '18 '#f '#f)) + (##unchecked-structure-set! __obj128966 __tmp129173 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128966 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128966 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '20 '#f '#f)) - __obj128807)))) + (##unchecked-structure-set! __obj128966 '() '20 '#f '#f)) + __obj128966)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index fd6ec1593..dc16f5e28 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 1713631266) + (define gerbil/expander/root::timestamp 1733687560) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,603 +262,603 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self130208131288%_ _%bind?131290%_) - (let* ((_%self131292%_ _%self130208131288%_) - (_%self131294%_ _%self131292%_)) - (if (##fx< '2 (##structure-length _%self131294%_)) + (lambda (_%self130367131447%_ _%bind?131449%_) + (let* ((_%self131451%_ _%self130367131447%_) + (_%self131453%_ _%self131451%_)) + (if (##fx< '2 (##structure-length _%self131453%_)) (begin - (##unchecked-structure-set! _%self131294%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self131453%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131294%_ + _%self131453%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131294%_ + _%self131453%_ '2 - (##vector-length _%self131294%_))) - (if _%bind?131290%_ + (##vector-length _%self131453%_))) + (if _%bind?131449%_ (begin - (let ((__method131357 + (let ((__method131516 (__method-ref - _%self131294%_ + _%self131453%_ 'bind-core-syntax-expanders!))) - (if __method131357 - (__method131357 _%self131294%_) + (if __method131516 + (__method131516 _%self131453%_) (begin (error '"Missing method" - _%self131294%_ + _%self131453%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method131358 + (let ((__method131517 (__method-ref - _%self131294%_ + _%self131453%_ 'bind-core-macro-expanders!))) - (if __method131358 - (__method131358 _%self131294%_) + (if __method131517 + (__method131517 _%self131453%_) (begin (error '"Missing method" - _%self131294%_ + _%self131453%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method131359 - (__method-ref _%self131294%_ 'bind-core-features!))) - (if __method131359 - (__method131359 _%self131294%_) + (let ((__method131518 + (__method-ref _%self131453%_ 'bind-core-features!))) + (if __method131518 + (__method131518 _%self131453%_) (begin (error '"Missing method" - _%self131294%_ + _%self131453%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self130208131307%_) - (let ((_%bind?131309%_ '#t)) - (gx#root-context:::init!__% _%self130208131307%_ _%bind?131309%_)))) + (lambda (_%self130367131466%_) + (let ((_%bind?131468%_ '#t)) + (gx#root-context:::init!__% _%self130367131466%_ _%bind?131468%_)))) (define gx#root-context:::init! - (lambda _g131362_ - (let ((_g131361_ (##length _g131362_))) - (cond ((##fx= _g131361_ 1) - (apply gx#root-context:::init!__0 _g131362_)) - ((##fx= _g131361_ 2) - (apply gx#root-context:::init!__% _g131362_)) + (lambda _g131521_ + (let ((_g131520_ (##length _g131521_))) + (cond ((##fx= _g131520_ 1) + (apply gx#root-context:::init!__0 _g131521_)) + ((##fx= _g131520_ 2) + (apply gx#root-context:::init!__% _g131521_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g131362_)))))) + _g131521_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass131313 __method-table131314) - (let ((__bind-core-features!131315 + (lambda (__klass131472 __method-table131473) + (let ((__bind-core-features!131474 (__make-promise (lambda () - (let ((__method131318 + (let ((__method131477 (symbolic-table-ref - __method-table131314 + __method-table131473 'bind-core-features! '#f))) - (if __method131318 - __method131318 + (if __method131477 + __method131477 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!131316 + (__bind-core-macro-expanders!131475 (__make-promise (lambda () - (let ((__method131319 + (let ((__method131478 (symbolic-table-ref - __method-table131314 + __method-table131473 'bind-core-macro-expanders! '#f))) - (if __method131319 - __method131319 + (if __method131478 + __method131478 (error '"Missing method" 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!131317 + (__bind-core-syntax-expanders!131476 (__make-promise (lambda () - (let ((__method131320 + (let ((__method131479 (symbolic-table-ref - __method-table131314 + __method-table131473 'bind-core-syntax-expanders! '#f))) - (if __method131320 - __method131320 + (if __method131479 + __method131479 (error '"Missing method" 'bind-core-syntax-expanders!))))))) - (let ((_%opt-lambda131286131304%_ - (lambda (_%self130208131288%_ _%bind?131290%_) - (let* ((_%self131292%_ _%self130208131288%_) - (_%self131294%_ _%self131292%_)) - (if (##fx< '2 (##structure-length _%self131294%_)) + (let ((_%opt-lambda131445131463%_ + (lambda (_%self130367131447%_ _%bind?131449%_) + (let* ((_%self131451%_ _%self130367131447%_) + (_%self131453%_ _%self131451%_)) + (if (##fx< '2 (##structure-length _%self131453%_)) (begin (##unchecked-structure-set! - _%self131294%_ + _%self131453%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131294%_ + _%self131453%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131294%_ + _%self131453%_ '2 - (##vector-length _%self131294%_))) - (if _%bind?131290%_ + (##vector-length _%self131453%_))) + (if _%bind?131449%_ (begin - ((force __bind-core-syntax-expanders!131317) - _%self131294%_) - ((force __bind-core-macro-expanders!131316) - _%self131294%_) - ((force __bind-core-features!131315) - _%self131294%_)) + ((force __bind-core-syntax-expanders!131476) + _%self131453%_) + ((force __bind-core-macro-expanders!131475) + _%self131453%_) + ((force __bind-core-features!131474) + _%self131453%_)) '#!void))))) - (lambda _g131364_ - (let ((_g131363_ (##length _g131364_))) - (cond ((##fx= _g131363_ 1) - (apply (lambda (_%self130208131307%_) - (let ((_%bind?131309%_ '#t)) - (_%opt-lambda131286131304%_ - _%self130208131307%_ - _%bind?131309%_))) - _g131364_)) - ((##fx= _g131363_ 2) - (apply _%opt-lambda131286131304%_ _g131364_)) + (lambda _g131523_ + (let ((_g131522_ (##length _g131523_))) + (cond ((##fx= _g131522_ 1) + (apply (lambda (_%self130367131466%_) + (let ((_%bind?131468%_ '#t)) + (_%opt-lambda131445131463%_ + _%self130367131466%_ + _%bind?131468%_))) + _g131523_)) + ((##fx= _g131522_ 2) + (apply _%opt-lambda131445131463%_ _g131523_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g131364_))))))))) + _g131523_))))))))) (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 (_%self130209131131%_ _%super131133%_) - (let* ((_%self131135%_ _%self130209131131%_) - (_%self131137%_ _%self131135%_) - (_%super131153%_ - (let ((_%$e131147%_ _%super131133%_)) - (if _%$e131147%_ - _%$e131147%_ - (let ((_%$e131150%_ (gx#core-context-root__0))) - (if _%$e131150%_ - _%$e131150%_ - (let ((__obj131360 + (lambda (_%self130368131290%_ _%super131292%_) + (let* ((_%self131294%_ _%self130368131290%_) + (_%self131296%_ _%self131294%_) + (_%super131312%_ + (let ((_%$e131306%_ _%super131292%_)) + (if _%$e131306%_ + _%$e131306%_ + (let ((_%$e131309%_ (gx#core-context-root__0))) + (if _%$e131309%_ + _%$e131309%_ + (let ((__obj131519 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj131360) - __obj131360))))))) - (if (##fx< '5 (##structure-length _%self131137%_)) + (gx#root-context:::init!__0 __obj131519) + __obj131519))))))) + (if (##fx< '5 (##structure-length _%self131296%_)) (begin - (##unchecked-structure-set! _%self131137%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self131296%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self131137%_ + _%self131296%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self131137%_ - _%super131153%_ + _%self131296%_ + _%super131312%_ '3 '#f '#f) - (##unchecked-structure-set! _%self131137%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self131137%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self131296%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self131296%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131137%_ + _%self131296%_ '5 - (##vector-length _%self131137%_)))))) + (##vector-length _%self131296%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self130209131158%_) - (let ((_%super131160%_ '#f)) - (gx#top-context:::init!__% _%self130209131158%_ _%super131160%_)))) + (lambda (_%self130368131317%_) + (let ((_%super131319%_ '#f)) + (gx#top-context:::init!__% _%self130368131317%_ _%super131319%_)))) (define gx#top-context:::init! - (lambda _g131366_ - (let ((_g131365_ (##length _g131366_))) - (cond ((##fx= _g131365_ 1) - (apply gx#top-context:::init!__0 _g131366_)) - ((##fx= _g131365_ 2) - (apply gx#top-context:::init!__% _g131366_)) + (lambda _g131525_ + (let ((_g131524_ (##length _g131525_))) + (cond ((##fx= _g131524_ 1) + (apply gx#top-context:::init!__0 _g131525_)) + ((##fx= _g131524_ 2) + (apply gx#top-context:::init!__% _g131525_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g131366_)))))) + _g131525_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self130210130849%_ _%bindings130851%_) - (let* ((_%self130853%_ _%self130210130849%_) - (_%self130855%_ _%self130853%_)) + (lambda (_%self130369131008%_ _%bindings131010%_) + (let* ((_%self131012%_ _%self130369131008%_) + (_%self131014%_ _%self131012%_)) (for-each - (lambda (_%bind130865%_) - (let* ((_%bind130866130873%_ _%bind130865%_) - (_%E130868130877%_ + (lambda (_%bind131024%_) + (let* ((_%bind131025131032%_ _%bind131024%_) + (_%E131027131036%_ (lambda () (error '"No clause matching" - _%bind130866130873%_ + _%bind131025131032%_ '([id . rest])) '#!void)) - (_%K130869130986%_ - (lambda (_%rest130880%_ _%id130881%_) + (_%K131028131145%_ + (lambda (_%rest131039%_ _%id131040%_) (gx#core-context-put! - _%self130855%_ - _%id130881%_ + _%self131014%_ + _%id131040%_ (##structure gx#syntax-binding::t - _%id130881%_ - _%id130881%_ + _%id131040%_ + _%id131040%_ '#f - (let* ((_%rest130882130893%_ _%rest130880%_) - (_%E130884130897%_ + (let* ((_%rest131041131052%_ _%rest131039%_) + (_%E131043131056%_ (lambda () (error '"No clause matching" - _%rest130882130893%_ + _%rest131041131052%_ '([key expander compiler])) '#!void)) - (_%K130885130962%_ - (lambda (_%compiler130900%_ - _%expander130901%_ - _%key130902%_) - ((let* ((_%key130903130916%_ _%key130902%_) - (_%E130909130920%_ + (_%K131044131121%_ + (lambda (_%compiler131059%_ + _%expander131060%_ + _%key131061%_) + ((let* ((_%key131062131075%_ _%key131061%_) + (_%E131068131079%_ (lambda () (error '"No clause matching" - _%key130903130916%_ + _%key131062131075%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K130914130956%_ + (let ((_%K131073131115%_ (lambda () gx#make-top-special-form)) - (_%K130913130949%_ + (_%K131072131108%_ (lambda () gx#make-module-special-form)) - (_%K130912130941%_ + (_%K131071131100%_ (lambda () gx#make-definition-form)) - (_%K130911130933%_ + (_%K131070131092%_ (lambda () gx#make-special-form)) - (_%K130910130925%_ + (_%K131069131084%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match130908130928%_ + (let* ((_%try-match131067131087%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key131062131075%_ 'expr:) - (_%K130910130925%_) - (_%E130909130920%_)))) - (_%try-match130907130936%_ + (_%K131069131084%_) + (_%E131068131079%_)))) + (_%try-match131066131095%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key131062131075%_ 'special:) - (_%K130911130933%_) - (_%try-match130908130928%_)))) - (_%try-match130906130944%_ + (_%K131070131092%_) + (_%try-match131067131087%_)))) + (_%try-match131065131103%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key131062131075%_ 'define:) - (_%K130912130941%_) - (_%try-match130907130936%_)))) - (_%try-match130905130952%_ + (_%K131071131100%_) + (_%try-match131066131095%_)))) + (_%try-match131064131111%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key131062131075%_ 'module:) - (_%K130913130949%_) - (_%try-match130906130944%_))))) - (if (##eq? _%key130903130916%_ 'top:) - (_%K130914130956%_) - (_%try-match130905130952%_))))) - _%expander130901%_ - _%id130881%_ - (let ((_%$e130959%_ _%compiler130900%_)) - (if _%$e130959%_ - _%$e130959%_ + (_%K131072131108%_) + (_%try-match131065131103%_))))) + (if (##eq? _%key131062131075%_ 'top:) + (_%K131073131115%_) + (_%try-match131064131111%_))))) + _%expander131060%_ + _%id131040%_ + (let ((_%$e131118%_ _%compiler131059%_)) + (if _%$e131118%_ + _%$e131118%_ gx#core-compile-top-error)))))) - (if (pair? _%rest130882130893%_) - (let ((_%hd130886130965%_ - (##car _%rest130882130893%_)) - (_%tl130887130967%_ - (##cdr _%rest130882130893%_))) - (let ((_%key130970%_ _%hd130886130965%_)) - (if (pair? _%tl130887130967%_) - (let ((_%hd130888130972%_ - (##car _%tl130887130967%_)) - (_%tl130889130974%_ - (##cdr _%tl130887130967%_))) - (let ((_%expander130977%_ - _%hd130888130972%_)) - (if (pair? _%tl130889130974%_) - (let ((_%hd130890130979%_ - (##car _%tl130889130974%_)) - (_%tl130891130981%_ - (##cdr _%tl130889130974%_))) - (let ((_%compiler130984%_ - _%hd130890130979%_)) - (if (null? _%tl130891130981%_) - (_%K130885130962%_ - _%compiler130984%_ - _%expander130977%_ - _%key130970%_) - (_%E130884130897%_)))) - (_%E130884130897%_)))) - (_%E130884130897%_)))) - (_%E130884130897%_)))))))) - (if (pair? _%bind130866130873%_) - (let ((_%hd130870130989%_ (##car _%bind130866130873%_)) - (_%tl130871130991%_ (##cdr _%bind130866130873%_))) - (let* ((_%id130994%_ _%hd130870130989%_) - (_%rest130996%_ _%tl130871130991%_)) - (_%K130869130986%_ _%rest130996%_ _%id130994%_))) - (_%E130868130877%_)))) - _%bindings130851%_)))) + (if (pair? _%rest131041131052%_) + (let ((_%hd131045131124%_ + (##car _%rest131041131052%_)) + (_%tl131046131126%_ + (##cdr _%rest131041131052%_))) + (let ((_%key131129%_ _%hd131045131124%_)) + (if (pair? _%tl131046131126%_) + (let ((_%hd131047131131%_ + (##car _%tl131046131126%_)) + (_%tl131048131133%_ + (##cdr _%tl131046131126%_))) + (let ((_%expander131136%_ + _%hd131047131131%_)) + (if (pair? _%tl131048131133%_) + (let ((_%hd131049131138%_ + (##car _%tl131048131133%_)) + (_%tl131050131140%_ + (##cdr _%tl131048131133%_))) + (let ((_%compiler131143%_ + _%hd131049131138%_)) + (if (null? _%tl131050131140%_) + (_%K131044131121%_ + _%compiler131143%_ + _%expander131136%_ + _%key131129%_) + (_%E131043131056%_)))) + (_%E131043131056%_)))) + (_%E131043131056%_)))) + (_%E131043131056%_)))))))) + (if (pair? _%bind131025131032%_) + (let ((_%hd131029131148%_ (##car _%bind131025131032%_)) + (_%tl131030131150%_ (##cdr _%bind131025131032%_))) + (let* ((_%id131153%_ _%hd131029131148%_) + (_%rest131155%_ _%tl131030131150%_)) + (_%K131028131145%_ _%rest131155%_ _%id131153%_))) + (_%E131027131036%_)))) + _%bindings131010%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self130210131001%_) - (let ((_%bindings131003%_ gx#*core-syntax-expanders*)) + (lambda (_%self130369131160%_) + (let ((_%bindings131162%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self130210131001%_ - _%bindings131003%_)))) + _%self130369131160%_ + _%bindings131162%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g131368_ - (let ((_g131367_ (##length _g131368_))) - (cond ((##fx= _g131367_ 1) + (lambda _g131527_ + (let ((_g131526_ (##length _g131527_))) + (cond ((##fx= _g131526_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g131368_)) - ((##fx= _g131367_ 2) + _g131527_)) + ((##fx= _g131526_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g131368_)) + _g131527_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g131368_)))))) + _g131527_)))))) (__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 (_%self130211130608%_ _%bindings130610%_) - (let* ((_%self130612%_ _%self130211130608%_) - (_%self130614%_ _%self130612%_)) + (lambda (_%self130370130767%_ _%bindings130769%_) + (let* ((_%self130771%_ _%self130370130767%_) + (_%self130773%_ _%self130771%_)) (for-each - (lambda (_%bind130624%_) - (let* ((_%bind130625130632%_ _%bind130624%_) - (_%E130627130636%_ + (lambda (_%bind130783%_) + (let* ((_%bind130784130791%_ _%bind130783%_) + (_%E130786130795%_ (lambda () (error '"No clause matching" - _%bind130625130632%_ + _%bind130784130791%_ '([id . rest])) '#!void)) - (_%K130628130704%_ - (lambda (_%rest130639%_ _%id130640%_) + (_%K130787130863%_ + (lambda (_%rest130798%_ _%id130799%_) (gx#core-context-put! - _%self130614%_ - _%id130640%_ + _%self130773%_ + _%id130799%_ (##structure gx#syntax-binding::t - _%id130640%_ - _%id130640%_ + _%id130799%_ + _%id130799%_ '#f - (let* ((_%rest130641130656%_ _%rest130639%_) - (_%E130645130660%_ + (let* ((_%rest130800130815%_ _%rest130798%_) + (_%E130804130819%_ (lambda () (error '"No clause matching" - _%rest130641130656%_ + _%rest130800130815%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K130650130689%_ - (lambda (_%core-id130687%_) + (let ((_%K130809130848%_ + (lambda (_%core-id130846%_) (##structure gx#rename-macro-expander::t - _%core-id130687%_))) - (_%K130647130674%_ - (lambda (_%proc130672%_) + _%core-id130846%_))) + (_%K130806130833%_ + (lambda (_%proc130831%_) (##structure gx#macro-expander::t - _%proc130672%_))) - (_%K130646130665%_ + _%proc130831%_))) + (_%K130805130824%_ (lambda () (##structure gx#reserved-expander::t - _%id130640%_)))) - (let ((_%try-match130644130668%_ + _%id130799%_)))) + (let ((_%try-match130803130827%_ (lambda () - (if (null? _%rest130641130656%_) - (_%K130646130665%_) - (_%E130645130660%_))))) - (if (pair? _%rest130641130656%_) - (let ((_%tl130652130694%_ - (##cdr _%rest130641130656%_)) - (_%hd130651130692%_ - (##car _%rest130641130656%_))) - (if (##eq? _%hd130651130692%_ '=>) - (if (pair? _%tl130652130694%_) - (let ((_%tl130654130699%_ - (##cdr _%tl130652130694%_)) - (_%hd130653130697%_ - (##car _%tl130652130694%_))) - (if (null? _%tl130654130699%_) - (let ((_%core-id130702%_ - _%hd130653130697%_)) + (if (null? _%rest130800130815%_) + (_%K130805130824%_) + (_%E130804130819%_))))) + (if (pair? _%rest130800130815%_) + (let ((_%tl130811130853%_ + (##cdr _%rest130800130815%_)) + (_%hd130810130851%_ + (##car _%rest130800130815%_))) + (if (##eq? _%hd130810130851%_ '=>) + (if (pair? _%tl130811130853%_) + (let ((_%tl130813130858%_ + (##cdr _%tl130811130853%_)) + (_%hd130812130856%_ + (##car _%tl130811130853%_))) + (if (null? _%tl130813130858%_) + (let ((_%core-id130861%_ + _%hd130812130856%_)) (##structure gx#rename-macro-expander::t - _%core-id130702%_)) - (_%E130645130660%_))) - (if (null? _%tl130652130694%_) - (let ((_%proc130682%_ - _%hd130651130692%_)) + _%core-id130861%_)) + (_%E130804130819%_))) + (if (null? _%tl130811130853%_) + (let ((_%proc130841%_ + _%hd130810130851%_)) (##structure gx#macro-expander::t - _%proc130682%_)) - (_%E130645130660%_))) - (if (null? _%tl130652130694%_) - (let ((_%proc130682%_ - _%hd130651130692%_)) + _%proc130841%_)) + (_%E130804130819%_))) + (if (null? _%tl130811130853%_) + (let ((_%proc130841%_ + _%hd130810130851%_)) (##structure gx#macro-expander::t - _%proc130682%_)) - (_%E130645130660%_)))) - (_%try-match130644130668%_)))))))))) - (if (pair? _%bind130625130632%_) - (let ((_%hd130629130707%_ (##car _%bind130625130632%_)) - (_%tl130630130709%_ (##cdr _%bind130625130632%_))) - (let* ((_%id130712%_ _%hd130629130707%_) - (_%rest130714%_ _%tl130630130709%_)) - (_%K130628130704%_ _%rest130714%_ _%id130712%_))) - (_%E130627130636%_)))) - _%bindings130610%_)))) + _%proc130841%_)) + (_%E130804130819%_)))) + (_%try-match130803130827%_)))))))))) + (if (pair? _%bind130784130791%_) + (let ((_%hd130788130866%_ (##car _%bind130784130791%_)) + (_%tl130789130868%_ (##cdr _%bind130784130791%_))) + (let* ((_%id130871%_ _%hd130788130866%_) + (_%rest130873%_ _%tl130789130868%_)) + (_%K130787130863%_ _%rest130873%_ _%id130871%_))) + (_%E130786130795%_)))) + _%bindings130769%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self130211130719%_) - (let ((_%bindings130721%_ gx#*core-macro-expanders*)) + (lambda (_%self130370130878%_) + (let ((_%bindings130880%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self130211130719%_ - _%bindings130721%_)))) + _%self130370130878%_ + _%bindings130880%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g131370_ - (let ((_g131369_ (##length _g131370_))) - (cond ((##fx= _g131369_ 1) + (lambda _g131529_ + (let ((_g131528_ (##length _g131529_))) + (cond ((##fx= _g131528_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g131370_)) - ((##fx= _g131369_ 2) + _g131529_)) + ((##fx= _g131528_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g131370_)) + _g131529_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g131370_)))))) + _g131529_)))))) (__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 (_%self130212130338%_) - (let* ((_%self130341%_ _%self130212130338%_) - (_%self130343%_ _%self130341%_)) - (letrec ((_%linux-variant?130353%_ - (lambda (_%sys-type130453%_) - (let* ((_%g130454130462%_ + (lambda (_%self130371130497%_) + (let* ((_%self130500%_ _%self130371130497%_) + (_%self130502%_ _%self130500%_)) + (letrec ((_%linux-variant?130512%_ + (lambda (_%sys-type130612%_) + (let* ((_%g130613130621%_ (__string-split - (symbol->string _%sys-type130453%_) + (symbol->string _%sys-type130612%_) '#\-)) - (_%else130456130470%_ (lambda () '#f)) - (_%K130458130475%_ - (lambda (_%rest130473%_) - (not (null? _%rest130473%_))))) - (if (pair? _%g130454130462%_) - (let ((_%hd130459130478%_ - (##car _%g130454130462%_)) - (_%tl130460130480%_ - (##cdr _%g130454130462%_))) - (if (equal? _%hd130459130478%_ '"linux") - (let ((_%rest130483%_ _%tl130460130480%_)) - (_%K130458130475%_ _%rest130483%_)) - (_%else130456130470%_))) - (_%else130456130470%_))))) - (_%bsd-variant130354%_ - (lambda (_%sys-type130412%_) - (let ((_%sys-type-str130414%_ - (symbol->string _%sys-type130412%_))) - (let _%lp130416%_ ((_%rest130418%_ + (_%else130615130629%_ (lambda () '#f)) + (_%K130617130634%_ + (lambda (_%rest130632%_) + (not (null? _%rest130632%_))))) + (if (pair? _%g130613130621%_) + (let ((_%hd130618130637%_ + (##car _%g130613130621%_)) + (_%tl130619130639%_ + (##cdr _%g130613130621%_))) + (if (equal? _%hd130618130637%_ '"linux") + (let ((_%rest130642%_ _%tl130619130639%_)) + (_%K130617130634%_ _%rest130642%_)) + (_%else130615130629%_))) + (_%else130615130629%_))))) + (_%bsd-variant130513%_ + (lambda (_%sys-type130571%_) + (let ((_%sys-type-str130573%_ + (symbol->string _%sys-type130571%_))) + (let _%lp130575%_ ((_%rest130577%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest130419130427%_ _%rest130418%_) - (_%else130421130435%_ (lambda () '#f)) - (_%K130423130441%_ - (lambda (_%rest130438%_ _%sys130439%_) + (let* ((_%rest130578130586%_ _%rest130577%_) + (_%else130580130594%_ (lambda () '#f)) + (_%K130582130600%_ + (lambda (_%rest130597%_ _%sys130598%_) (if (string-prefix? - _%sys130439%_ - _%sys-type-str130414%_) - _%sys130439%_ - (_%lp130416%_ _%rest130438%_))))) - (if (pair? _%rest130419130427%_) - (let ((_%hd130424130444%_ - (##car _%rest130419130427%_)) - (_%tl130425130446%_ - (##cdr _%rest130419130427%_))) - (let* ((_%sys130449%_ _%hd130424130444%_) - (_%rest130451%_ _%tl130425130446%_)) - (_%K130423130441%_ - _%rest130451%_ - _%sys130449%_))) - (_%else130421130435%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130343%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130343%_) - (let* ((_%g130355130367%_ (system-type)) - (_%else130357130375%_ (lambda () '#!void)) - (_%K130359130388%_ - (lambda (_%sys-type130378%_ - _%sys-vendor130379%_ - _%sys-cpu130380%_) + _%sys130598%_ + _%sys-type-str130573%_) + _%sys130598%_ + (_%lp130575%_ _%rest130597%_))))) + (if (pair? _%rest130578130586%_) + (let ((_%hd130583130603%_ + (##car _%rest130578130586%_)) + (_%tl130584130605%_ + (##cdr _%rest130578130586%_))) + (let* ((_%sys130608%_ _%hd130583130603%_) + (_%rest130610%_ _%tl130584130605%_)) + (_%K130582130600%_ + _%rest130610%_ + _%sys130608%_))) + (_%else130580130594%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130502%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130502%_) + (let* ((_%g130514130526%_ (system-type)) + (_%else130516130534%_ (lambda () '#!void)) + (_%K130518130547%_ + (lambda (_%sys-type130537%_ + _%sys-vendor130538%_ + _%sys-cpu130539%_) (gx#core-bind-feature!__% - _%sys-cpu130380%_ + _%sys-cpu130539%_ '#f '0 - _%self130343%_) + _%self130502%_) (gx#core-bind-feature!__% - _%sys-type130378%_ + _%sys-type130537%_ '#f '0 - _%self130343%_) - (if (_%linux-variant?130353%_ _%sys-type130378%_) + _%self130502%_) + (if (_%linux-variant?130512%_ _%sys-type130537%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self130343%_) - (let ((_%$e130383%_ - (_%bsd-variant130354%_ _%sys-type130378%_))) - (if _%$e130383%_ - ((lambda (_%sys-prefix130386%_) + _%self130502%_) + (let ((_%$e130542%_ + (_%bsd-variant130513%_ _%sys-type130537%_))) + (if _%$e130542%_ + ((lambda (_%sys-prefix130545%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self130343%_) + _%self130502%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix130386%_) + (string->symbol _%sys-prefix130545%_) '#f '0 - _%self130343%_)) - _%$e130383%_) + _%self130502%_)) + _%$e130542%_) '#!void)))))) - (if (pair? _%g130355130367%_) - (let ((_%hd130360130391%_ (##car _%g130355130367%_)) - (_%tl130361130393%_ (##cdr _%g130355130367%_))) - (let ((_%sys-cpu130396%_ _%hd130360130391%_)) - (if (pair? _%tl130361130393%_) - (let ((_%hd130362130398%_ (##car _%tl130361130393%_)) - (_%tl130363130400%_ - (##cdr _%tl130361130393%_))) - (let ((_%sys-vendor130403%_ _%hd130362130398%_)) - (if (pair? _%tl130363130400%_) - (let ((_%hd130364130405%_ - (##car _%tl130363130400%_)) - (_%tl130365130407%_ - (##cdr _%tl130363130400%_))) - (let ((_%sys-type130410%_ - _%hd130364130405%_)) - (if (null? _%tl130365130407%_) - (_%K130359130388%_ - _%sys-type130410%_ - _%sys-vendor130403%_ - _%sys-cpu130396%_) + (if (pair? _%g130514130526%_) + (let ((_%hd130519130550%_ (##car _%g130514130526%_)) + (_%tl130520130552%_ (##cdr _%g130514130526%_))) + (let ((_%sys-cpu130555%_ _%hd130519130550%_)) + (if (pair? _%tl130520130552%_) + (let ((_%hd130521130557%_ (##car _%tl130520130552%_)) + (_%tl130522130559%_ + (##cdr _%tl130520130552%_))) + (let ((_%sys-vendor130562%_ _%hd130521130557%_)) + (if (pair? _%tl130522130559%_) + (let ((_%hd130523130564%_ + (##car _%tl130522130559%_)) + (_%tl130524130566%_ + (##cdr _%tl130522130559%_))) + (let ((_%sys-type130569%_ + _%hd130523130564%_)) + (if (null? _%tl130524130566%_) + (_%K130518130547%_ + _%sys-type130569%_ + _%sys-vendor130562%_ + _%sys-cpu130555%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130343%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130502%_) '#!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 757ac8d88..76f717c55 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 1713631267) + (define gerbil/expander/stxcase::timestamp 1733687560) (begin (define gx#syntax-pattern::t - (let ((__tmp132769 (list gx#expander::t)) - (__tmp132768 (cons (cons 'struct: '#t) '()))) + (let ((__tmp132928 (list gx#expander::t)) + (__tmp132927 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp132769 + __tmp132928 '(id depth) - __tmp132768 + __tmp132927 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args132765%_ - (apply make-instance gx#syntax-pattern::t _%$args132765%_))) + (lambda _%$args132924%_ + (apply make-instance gx#syntax-pattern::t _%$args132924%_))) (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 (_%self131372132749%_ _%stx132751%_) - (let* ((_%self132753%_ _%self131372132749%_) - (_%self132755%_ _%self132753%_)) + (lambda (_%self131531132908%_ _%stx132910%_) + (let* ((_%self132912%_ _%self131531132908%_) + (_%self132914%_ _%self132912%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx132751%_)))) + _%stx132910%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,602 +85,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx132215%_) - (letrec ((_%generate132217%_ - (lambda (_%e132457%_) - (letrec ((_%BUG132459%_ - (lambda (_%q132624%_) + (lambda (_%stx132374%_) + (letrec ((_%generate132376%_ + (lambda (_%e132616%_) + (letrec ((_%BUG132618%_ + (lambda (_%q132783%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx132215%_ - _%e132457%_ - _%q132624%_)))) - (_%local-pattern-e132460%_ - (lambda (_%pat132622%_) - (let ((__tmp132770 + _%stx132374%_ + _%e132616%_ + _%q132783%_)))) + (_%local-pattern-e132619%_ + (lambda (_%pat132781%_) + (let ((__tmp132929 (##structure-ref - _%pat132622%_ + _%pat132781%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp132770)))) - (_%getvar132461%_ - (lambda (_%q132619%_ _%vars132620%_) + (gx#syntax-local-rewrap __tmp132929)))) + (_%getvar132620%_ + (lambda (_%q132778%_ _%vars132779%_) (let () (declare (not safe)) (agetq__% - _%q132619%_ - _%vars132620%_ - _%BUG132459%_)))) - (_%getarg132462%_ - (lambda (_%arg132585%_ _%vars132586%_) - (let* ((_%arg132587132594%_ _%arg132585%_) - (_%E132589132598%_ + _%q132778%_ + _%vars132779%_ + _%BUG132618%_)))) + (_%getarg132621%_ + (lambda (_%arg132744%_ _%vars132745%_) + (let* ((_%arg132746132753%_ _%arg132744%_) + (_%E132748132757%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg132587132594%_ + _%arg132746132753%_ '([tag . e]))) '#!void)) - (_%K132590132607%_ - (lambda (_%e132601%_ _%tag132602%_) - (let ((_%$e132604%_ _%tag132602%_)) - (if (eq? 'ref _%$e132604%_) - (_%getvar132461%_ - _%e132601%_ - _%vars132586%_) - (if (eq? 'pattern _%$e132604%_) - (_%local-pattern-e132460%_ - _%e132601%_) - (_%BUG132459%_ - _%arg132585%_))))))) - (if (pair? _%arg132587132594%_) - (let ((_%hd132591132610%_ + (_%K132749132766%_ + (lambda (_%e132760%_ _%tag132761%_) + (let ((_%$e132763%_ _%tag132761%_)) + (if (eq? 'ref _%$e132763%_) + (_%getvar132620%_ + _%e132760%_ + _%vars132745%_) + (if (eq? 'pattern _%$e132763%_) + (_%local-pattern-e132619%_ + _%e132760%_) + (_%BUG132618%_ + _%arg132744%_))))))) + (if (pair? _%arg132746132753%_) + (let ((_%hd132750132769%_ (let () (declare (not safe)) - (##car _%arg132587132594%_))) - (_%tl132592132612%_ + (##car _%arg132746132753%_))) + (_%tl132751132771%_ (let () (declare (not safe)) - (##cdr _%arg132587132594%_)))) - (let* ((_%tag132615%_ - _%hd132591132610%_) - (_%e132617%_ - _%tl132592132612%_)) - (_%K132590132607%_ - _%e132617%_ - _%tag132615%_))) - (_%E132589132598%_)))))) - (let _%recur132464%_ ((_%e132466%_ _%e132457%_) - (_%vars132467%_ '())) - (let* ((_%e132468132475%_ _%e132466%_) - (_%E132470132479%_ + (##cdr _%arg132746132753%_)))) + (let* ((_%tag132774%_ + _%hd132750132769%_) + (_%e132776%_ + _%tl132751132771%_)) + (_%K132749132766%_ + _%e132776%_ + _%tag132774%_))) + (_%E132748132757%_)))))) + (let _%recur132623%_ ((_%e132625%_ _%e132616%_) + (_%vars132626%_ '())) + (let* ((_%e132627132634%_ _%e132625%_) + (_%E132629132638%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e132468132475%_ + _%e132627132634%_ '([tag . body]))) '#!void)) - (_%K132471132573%_ - (lambda (_%body132482%_ _%tag132483%_) - (let ((_%$e132485%_ _%tag132483%_)) - (if (eq? 'datum _%$e132485%_) + (_%K132630132732%_ + (lambda (_%body132641%_ _%tag132642%_) + (let ((_%$e132644%_ _%tag132642%_)) + (if (eq? 'datum _%$e132644%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body132482%_)) - (if (eq? 'term _%$e132485%_) - (let ((_%id132488%_ + (gx#core-list 'quote _%body132641%_)) + (if (eq? 'term _%$e132644%_) + (let ((_%id132647%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body132482%_)))) + _%body132641%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132488%_ + _%id132647%_ 'gx#identifier-wrap::t)) - (let ((_%marks132491%_ + (let ((_%marks132650%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id132488%_ + _%id132647%_ '3 '#f '#f)))) - (if (null? _%marks132491%_) - (let ((__tmp132771 + (if (null? _%marks132650%_) + (let ((__tmp132930 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body132482%_)))) + (gx#core-list 'quote _%body132641%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp132771)) - (let ((__tmp132773 + (gx#core-list 'datum->syntax '#f __tmp132930)) + (let ((__tmp132932 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body132482%_))) - (__tmp132772 + (gx#core-list 'quote-syntax _%body132641%_))) + (__tmp132931 (let () (declare (not safe)) - (gx#core-list 'quote _%body132482%_)))) + (gx#core-list 'quote _%body132641%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp132773 - __tmp132772 + __tmp132932 + __tmp132931 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132488%_ + _%id132647%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body132482%_)) - (_%BUG132459%_ - _%e132466%_)))) - (if (eq? 'pattern _%$e132485%_) - (_%local-pattern-e132460%_ - _%body132482%_) - (if (eq? 'ref _%$e132485%_) - (_%getvar132461%_ - _%body132482%_ - _%vars132467%_) + _%body132641%_)) + (_%BUG132618%_ + _%e132625%_)))) + (if (eq? 'pattern _%$e132644%_) + (_%local-pattern-e132619%_ + _%body132641%_) + (if (eq? 'ref _%$e132644%_) + (_%getvar132620%_ + _%body132641%_ + _%vars132626%_) (if (eq? 'cons - _%$e132485%_) - (let ((__tmp132775 - (_%recur132464%_ - (car _%body132482%_) - _%vars132467%_)) - (__tmp132774 - (_%recur132464%_ - (cdr _%body132482%_) - _%vars132467%_))) + _%$e132644%_) + (let ((__tmp132934 + (_%recur132623%_ + (car _%body132641%_) + _%vars132626%_)) + (__tmp132933 + (_%recur132623%_ + (cdr _%body132641%_) + _%vars132626%_))) (declare (not safe)) (gx#core-list 'cons - __tmp132775 - __tmp132774)) + __tmp132934 + __tmp132933)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e132485%_) - (let ((__tmp132776 - (_%recur132464%_ _%body132482%_ _%vars132467%_))) + _%$e132644%_) + (let ((__tmp132935 + (_%recur132623%_ _%body132641%_ _%vars132626%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp132776)) - (if (eq? 'box _%$e132485%_) - (let ((__tmp132777 - (_%recur132464%_ - _%body132482%_ - _%vars132467%_))) + (gx#core-list 'list->vector __tmp132935)) + (if (eq? 'box _%$e132644%_) + (let ((__tmp132936 + (_%recur132623%_ + _%body132641%_ + _%vars132626%_))) (declare (not safe)) - (gx#core-list 'box __tmp132777)) - (if (eq? 'splice _%$e132485%_) - (let* ((_%body132494132505%_ _%body132482%_) - (_%E132496132509%_ + (gx#core-list 'box __tmp132936)) + (if (eq? 'splice _%$e132644%_) + (let* ((_%body132653132664%_ _%body132641%_) + (_%E132655132668%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132494132505%_ + _%body132653132664%_ '([depth hd iv . args]))) '#!void)) - (_%K132497132547%_ - (lambda (_%args132512%_ - _%iv132513%_ - _%hd132514%_ - _%depth132515%_) - (let* ((_%targets132521%_ - (map (lambda (_%g132516132518%_) - (_%getarg132462%_ - _%g132516132518%_ - _%vars132467%_)) - _%args132512%_)) - (_%fold-in132523%_ + (_%K132656132706%_ + (lambda (_%args132671%_ + _%iv132672%_ + _%hd132673%_ + _%depth132674%_) + (let* ((_%targets132680%_ + (map (lambda (_%g132675132677%_) + (_%getarg132621%_ + _%g132675132677%_ + _%vars132626%_)) + _%args132671%_)) + (_%fold-in132682%_ (let () (declare (not safe)) - (gx#gentemps _%args132512%_))) - (_%fold-out132525%_ + (gx#gentemps _%args132671%_))) + (_%fold-out132684%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args132527%_ - (let ((__tmp132778 - (cons _%fold-out132525%_ + (_%lambda-args132686%_ + (let ((__tmp132937 + (cons _%fold-out132684%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp132778 - _%fold-in132523%_))) - (_%lambda-body132544%_ + __tmp132937 + _%fold-in132682%_))) + (_%lambda-body132703%_ (if (let () (declare (not safe)) - (##fx> _%depth132515%_ '1)) - (let ((_%r-args132535%_ - (map (lambda (_%arg132529%_) + (##fx> _%depth132674%_ '1)) + (let ((_%r-args132694%_ + (map (lambda (_%arg132688%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg132529%_))) - _%args132512%_)) - (_%r-vars132536%_ - (let ((__tmp132779 - (lambda (_%arg132531%_ _%var132532%_ _%r132533%_) - (cons (cons (cdr _%arg132531%_) _%var132532%_) - _%r132533%_)))) + (cdr _%arg132688%_))) + _%args132671%_)) + (_%r-vars132695%_ + (let ((__tmp132938 + (lambda (_%arg132690%_ _%var132691%_ _%r132692%_) + (cons (cons (cdr _%arg132690%_) _%var132691%_) + _%r132692%_)))) (declare (not safe)) (__foldr2 - __tmp132779 - _%vars132467%_ - _%args132512%_ - _%fold-in132523%_)))) + __tmp132938 + _%vars132626%_ + _%args132671%_ + _%fold-in132682%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur132464%_ + (_%recur132623%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth132515%_ '1)) - (cons _%hd132514%_ - (cons (cons 'var _%fold-out132525%_) - _%r-args132535%_)))) + (##fx- _%depth132674%_ '1)) + (cons _%hd132673%_ + (cons (cons 'var _%fold-out132684%_) + _%r-args132694%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars132536%_)) - (let* ((_%hd-vars132542%_ - (let ((__tmp132780 + _%r-vars132695%_)) + (let* ((_%hd-vars132701%_ + (let ((__tmp132939 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg132538%_ _%var132539%_ _%r132540%_) - (cons (cons (cdr _%arg132538%_) _%var132539%_) - _%r132540%_)))) + (lambda (_%arg132697%_ _%var132698%_ _%r132699%_) + (cons (cons (cdr _%arg132697%_) _%var132698%_) + _%r132699%_)))) (declare (not safe)) (__foldr2 - __tmp132780 - _%vars132467%_ - _%args132512%_ - _%fold-in132523%_))) - (__tmp132781 - (_%recur132464%_ _%hd132514%_ _%hd-vars132542%_))) + __tmp132939 + _%vars132626%_ + _%args132671%_ + _%fold-in132682%_))) + (__tmp132940 + (_%recur132623%_ _%hd132673%_ _%hd-vars132701%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp132781 - _%fold-out132525%_))))) - (let ((__tmp132785 - (if (let ((__tmp132786 + __tmp132940 + _%fold-out132684%_))))) + (let ((__tmp132944 + (if (let ((__tmp132945 (let () (declare (not safe)) (##length - _%targets132521%_)))) + _%targets132680%_)))) (declare (not safe)) - (##fx> __tmp132786 '1)) + (##fx> __tmp132945 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets132521%_)) + _%targets132680%_)) '#!void)) - (__tmp132782 - (let ((__tmp132784 + (__tmp132941 + (let ((__tmp132943 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args132527%_ - _%lambda-body132544%_))) - (__tmp132783 - (_%recur132464%_ - _%iv132513%_ - _%vars132467%_))) + _%lambda-args132686%_ + _%lambda-body132703%_))) + (__tmp132942 + (_%recur132623%_ + _%iv132672%_ + _%vars132626%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp132784 - __tmp132783 - _%targets132521%_)))) + __tmp132943 + __tmp132942 + _%targets132680%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp132785 - __tmp132782)))))) - (if (pair? _%body132494132505%_) - (let ((_%hd132498132550%_ + __tmp132944 + __tmp132941)))))) + (if (pair? _%body132653132664%_) + (let ((_%hd132657132709%_ (let () (declare (not safe)) - (##car _%body132494132505%_))) - (_%tl132499132552%_ + (##car _%body132653132664%_))) + (_%tl132658132711%_ (let () (declare (not safe)) - (##cdr _%body132494132505%_)))) - (let ((_%depth132555%_ _%hd132498132550%_)) - (if (pair? _%tl132499132552%_) - (let ((_%hd132500132557%_ + (##cdr _%body132653132664%_)))) + (let ((_%depth132714%_ _%hd132657132709%_)) + (if (pair? _%tl132658132711%_) + (let ((_%hd132659132716%_ (let () (declare (not safe)) - (##car _%tl132499132552%_))) - (_%tl132501132559%_ + (##car _%tl132658132711%_))) + (_%tl132660132718%_ (let () (declare (not safe)) - (##cdr _%tl132499132552%_)))) - (let ((_%hd132562%_ - _%hd132500132557%_)) - (if (pair? _%tl132501132559%_) - (let ((_%hd132502132564%_ + (##cdr _%tl132658132711%_)))) + (let ((_%hd132721%_ + _%hd132659132716%_)) + (if (pair? _%tl132660132718%_) + (let ((_%hd132661132723%_ (let () (declare (not safe)) - (##car _%tl132501132559%_))) - (_%tl132503132566%_ + (##car _%tl132660132718%_))) + (_%tl132662132725%_ (let () (declare (not safe)) - (##cdr _%tl132501132559%_)))) - (let* ((_%iv132569%_ - _%hd132502132564%_) - (_%args132571%_ - _%tl132503132566%_)) - (_%K132497132547%_ - _%args132571%_ - _%iv132569%_ - _%hd132562%_ - _%depth132555%_))) - (_%E132496132509%_)))) - (_%E132496132509%_)))) - (_%E132496132509%_))) - (if (eq? 'var _%$e132485%_) - _%body132482%_ - (_%BUG132459%_ _%e132466%_)))))))))))))) + (##cdr _%tl132660132718%_)))) + (let* ((_%iv132728%_ + _%hd132661132723%_) + (_%args132730%_ + _%tl132662132725%_)) + (_%K132656132706%_ + _%args132730%_ + _%iv132728%_ + _%hd132721%_ + _%depth132714%_))) + (_%E132655132668%_)))) + (_%E132655132668%_)))) + (_%E132655132668%_))) + (if (eq? 'var _%$e132644%_) + _%body132641%_ + (_%BUG132618%_ _%e132625%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e132468132475%_) - (let ((_%hd132472132576%_ + (if (pair? _%e132627132634%_) + (let ((_%hd132631132735%_ (let () (declare (not safe)) - (##car _%e132468132475%_))) - (_%tl132473132578%_ + (##car _%e132627132634%_))) + (_%tl132632132737%_ (let () (declare (not safe)) - (##cdr _%e132468132475%_)))) - (let* ((_%tag132581%_ _%hd132472132576%_) - (_%body132583%_ _%tl132473132578%_)) - (_%K132471132573%_ - _%body132583%_ - _%tag132581%_))) - (_%E132470132479%_))))))) - (_%parse132218%_ - (lambda (_%e132259%_) - (letrec ((_%make-cons132261%_ - (lambda (_%hd132449%_ _%tl132450%_) - (let ((_g132787_ _%hd132449%_) - (_g132789_ _%tl132450%_)) + (##cdr _%e132627132634%_)))) + (let* ((_%tag132740%_ _%hd132631132735%_) + (_%body132742%_ _%tl132632132737%_)) + (_%K132630132732%_ + _%body132742%_ + _%tag132740%_))) + (_%E132629132638%_))))))) + (_%parse132377%_ + (lambda (_%e132418%_) + (letrec ((_%make-cons132420%_ + (lambda (_%hd132608%_ _%tl132609%_) + (let ((_g132946_ _%hd132608%_) + (_g132948_ _%tl132609%_)) (begin - (let ((_g132788_ + (let ((_g132947_ (let () (declare (not safe)) - (if (##values? _g132787_) - (##vector-length _g132787_) + (if (##values? _g132946_) + (##vector-length _g132946_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132788_ 2))) + (##fx= _g132947_ 2))) (error "Context expects 2 values" - _g132788_))) - (let ((_g132790_ + _g132947_))) + (let ((_g132949_ (let () (declare (not safe)) - (if (##values? _g132789_) - (##vector-length _g132789_) + (if (##values? _g132948_) + (##vector-length _g132948_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132790_ 2))) + (##fx= _g132949_ 2))) (error "Context expects 2 values" - _g132790_))) - (let ((_%hd-e132452%_ + _g132949_))) + (let ((_%hd-e132611%_ (let () (declare (not safe)) - (##vector-ref _g132787_ 0))) - (_%hd-vars132453%_ + (##vector-ref _g132946_ 0))) + (_%hd-vars132612%_ (let () (declare (not safe)) - (##vector-ref _g132787_ 1)))) - (let ((_%tl-e132454%_ + (##vector-ref _g132946_ 1)))) + (let ((_%tl-e132613%_ (let () (declare (not safe)) - (##vector-ref _g132789_ 0))) - (_%tl-vars132455%_ + (##vector-ref _g132948_ 0))) + (_%tl-vars132614%_ (let () (declare (not safe)) - (##vector-ref _g132789_ 1)))) + (##vector-ref _g132948_ 1)))) (values (cons 'cons - (cons _%hd-e132452%_ - _%tl-e132454%_)) - (append _%hd-vars132453%_ - _%tl-vars132455%_)))))))) - (_%make-splice132262%_ - (lambda (_%where132385%_ - _%depth132386%_ - _%hd132387%_ - _%tl132388%_) - (let ((_g132791_ _%hd132387%_) - (_g132793_ _%tl132388%_)) + (cons _%hd-e132611%_ + _%tl-e132613%_)) + (append _%hd-vars132612%_ + _%tl-vars132614%_)))))))) + (_%make-splice132421%_ + (lambda (_%where132544%_ + _%depth132545%_ + _%hd132546%_ + _%tl132547%_) + (let ((_g132950_ _%hd132546%_) + (_g132952_ _%tl132547%_)) (begin - (let ((_g132792_ + (let ((_g132951_ (let () (declare (not safe)) - (if (##values? _g132791_) - (##vector-length _g132791_) + (if (##values? _g132950_) + (##vector-length _g132950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132792_ 2))) + (##fx= _g132951_ 2))) (error "Context expects 2 values" - _g132792_))) - (let ((_g132794_ + _g132951_))) + (let ((_g132953_ (let () (declare (not safe)) - (if (##values? _g132793_) - (##vector-length _g132793_) + (if (##values? _g132952_) + (##vector-length _g132952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132794_ 2))) + (##fx= _g132953_ 2))) (error "Context expects 2 values" - _g132794_))) - (let ((_%hd-e132390%_ + _g132953_))) + (let ((_%hd-e132549%_ (let () (declare (not safe)) - (##vector-ref _g132791_ 0))) - (_%hd-vars132391%_ + (##vector-ref _g132950_ 0))) + (_%hd-vars132550%_ (let () (declare (not safe)) - (##vector-ref _g132791_ 1)))) - (let ((_%tl-e132392%_ + (##vector-ref _g132950_ 1)))) + (let ((_%tl-e132551%_ (let () (declare (not safe)) - (##vector-ref _g132793_ 0))) - (_%tl-vars132393%_ + (##vector-ref _g132952_ 0))) + (_%tl-vars132552%_ (let () (declare (not safe)) - (##vector-ref _g132793_ 1)))) - (let _%lp132395%_ ((_%rest132397%_ - _%hd-vars132391%_) - (_%targets132398%_ + (##vector-ref _g132952_ 1)))) + (let _%lp132554%_ ((_%rest132556%_ + _%hd-vars132550%_) + (_%targets132557%_ '()) - (_%vars132399%_ - _%tl-vars132393%_)) - (let* ((_%rest132400132410%_ - _%rest132397%_) - (_%else132402132418%_ + (_%vars132558%_ + _%tl-vars132552%_)) + (let* ((_%rest132559132569%_ + _%rest132556%_) + (_%else132561132577%_ (lambda () - (if (null? _%targets132398%_) + (if (null? _%targets132557%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx132215%_ - _%where132385%_)) + _%stx132374%_ + _%where132544%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth132386%_ - (cons _%hd-e132390%_ - (cons _%tl-e132392%_ - _%targets132398%_)))) - _%vars132399%_)))) + (cons _%depth132545%_ + (cons _%hd-e132549%_ + (cons _%tl-e132551%_ + _%targets132557%_)))) + _%vars132558%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K132404132430%_ - (lambda (_%rest132421%_ - _%hd-pat132422%_ - _%hd-depth*132423%_) - (let ((_%hd-depth132425%_ - (fx- _%hd-depth*132423%_ - _%depth132386%_))) + (_%K132563132589%_ + (lambda (_%rest132580%_ + _%hd-pat132581%_ + _%hd-depth*132582%_) + (let ((_%hd-depth132584%_ + (fx- _%hd-depth*132582%_ + _%depth132545%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth132425%_)) - (_%lp132395%_ - _%rest132421%_ + _%hd-depth132584%_)) + (_%lp132554%_ + _%rest132580%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat132422%_) - _%targets132398%_) - (cons (cons _%hd-depth132425%_ _%hd-pat132422%_) - _%vars132399%_)) + _%hd-pat132581%_) + _%targets132557%_) + (cons (cons _%hd-depth132584%_ _%hd-pat132581%_) + _%vars132558%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth132425%_)) - (_%lp132395%_ - _%rest132421%_ - (cons (cons 'pattern _%hd-pat132422%_) - _%targets132398%_) - _%vars132399%_) + (##fxzero? _%hd-depth132584%_)) + (_%lp132554%_ + _%rest132580%_ + (cons (cons 'pattern _%hd-pat132581%_) + _%targets132557%_) + _%vars132558%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx132215%_ - _%where132385%_)))))))) + _%stx132374%_ + _%where132544%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest132400132410%_) - (let ((_%hd132405132433%_ + (if (pair? _%rest132559132569%_) + (let ((_%hd132564132592%_ (let () (declare (not safe)) - (##car _%rest132400132410%_))) - (_%tl132406132435%_ + (##car _%rest132559132569%_))) + (_%tl132565132594%_ (let () (declare (not safe)) - (##cdr _%rest132400132410%_)))) - (if (pair? _%hd132405132433%_) - (let ((_%hd132407132438%_ + (##cdr _%rest132559132569%_)))) + (if (pair? _%hd132564132592%_) + (let ((_%hd132566132597%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd132405132433%_))) - (_%tl132408132440%_ - (let () (declare (not safe)) (##cdr _%hd132405132433%_)))) - (let* ((_%hd-depth*132443%_ _%hd132407132438%_) - (_%hd-pat132445%_ _%tl132408132440%_) - (_%rest132447%_ _%tl132406132435%_)) - (_%K132404132430%_ - _%rest132447%_ - _%hd-pat132445%_ - _%hd-depth*132443%_))) - (_%else132402132418%_))) + (##car _%hd132564132592%_))) + (_%tl132567132599%_ + (let () (declare (not safe)) (##cdr _%hd132564132592%_)))) + (let* ((_%hd-depth*132602%_ _%hd132566132597%_) + (_%hd-pat132604%_ _%tl132567132599%_) + (_%rest132606%_ _%tl132565132594%_)) + (_%K132563132589%_ + _%rest132606%_ + _%hd-pat132604%_ + _%hd-depth*132602%_))) + (_%else132561132577%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else132402132418%_)))))))))) - (_%recur132263%_ - (lambda (_%e132268%_ _%is-e?132269%_) - (if (_%is-e?132269%_ _%e132268%_) + (_%else132561132577%_)))))))))) + (_%recur132422%_ + (lambda (_%e132427%_ _%is-e?132428%_) + (if (_%is-e?132428%_ _%e132427%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx132215%_)) - (if (gx#syntax-local-pattern? _%e132268%_) - (let* ((_%pat132273%_ + _%stx132374%_)) + (if (gx#syntax-local-pattern? _%e132427%_) + (let* ((_%pat132432%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e132268%_))) - (_%depth132275%_ + _%e132427%_))) + (_%depth132434%_ (##structure-ref - _%pat132273%_ + _%pat132432%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth132275%_) - (values (cons 'ref _%pat132273%_) - (cons (cons _%depth132275%_ + (if (fxpositive? _%depth132434%_) + (values (cons 'ref _%pat132432%_) + (cons (cons _%depth132434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat132273%_) + _%pat132432%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat132273%_) + _%pat132432%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e132268%_)) - (values (cons 'term _%e132268%_) + (gx#identifier? _%e132427%_)) + (values (cons 'term _%e132427%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e132268%_)) - (let* ((_%e132279132286%_ - _%e132268%_) - (_%E132281132290%_ + (gx#stx-pair? _%e132427%_)) + (let* ((_%e132438132445%_ + _%e132427%_) + (_%E132440132449%_ (lambda () (let () (declare @@ -688,1989 +688,1989 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132279132286%_)))) - (_%E132280132372%_ + _%e132438132445%_)))) + (_%E132439132531%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e132279132286%_)) - (let ((_%e132282132294%_ + (gx#stx-pair? _%e132438132445%_)) + (let ((_%e132441132453%_ (let () (declare (not safe)) - (gx#syntax-e _%e132279132286%_)))) - (let ((_%hd132283132297%_ + (gx#syntax-e _%e132438132445%_)))) + (let ((_%hd132442132456%_ (let () (declare (not safe)) - (##car _%e132282132294%_))) - (_%tl132284132299%_ + (##car _%e132441132453%_))) + (_%tl132443132458%_ (let () (declare (not safe)) - (##cdr _%e132282132294%_)))) - (let* ((_%hd132302%_ _%hd132283132297%_) - (_%rest132304%_ _%tl132284132299%_)) - (if (_%is-e?132269%_ _%hd132302%_) - (let* ((_%e132305132312%_ _%rest132304%_) - (_%E132307132316%_ + (##cdr _%e132441132453%_)))) + (let* ((_%hd132461%_ _%hd132442132456%_) + (_%rest132463%_ _%tl132443132458%_)) + (if (_%is-e?132428%_ _%hd132461%_) + (let* ((_%e132464132471%_ _%rest132463%_) + (_%E132466132475%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx132215%_ - _%e132268%_)))) - (_%E132306132330%_ + _%stx132374%_ + _%e132427%_)))) + (_%E132465132489%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132305132312%_)) - (let ((_%e132308132320%_ + _%e132464132471%_)) + (let ((_%e132467132479%_ (let () (declare (not safe)) (gx#syntax-e - _%e132305132312%_)))) - (let ((_%hd132309132323%_ + _%e132464132471%_)))) + (let ((_%hd132468132482%_ (let () (declare (not safe)) - (##car _%e132308132320%_))) - (_%tl132310132325%_ + (##car _%e132467132479%_))) + (_%tl132469132484%_ (let () (declare (not safe)) - (##cdr _%e132308132320%_)))) - (let ((_%rest132328%_ - _%hd132309132323%_)) + (##cdr _%e132467132479%_)))) + (let ((_%rest132487%_ + _%hd132468132482%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132310132325%_)) - (_%recur132263%_ - _%rest132328%_ + _%tl132469132484%_)) + (_%recur132422%_ + _%rest132487%_ false) - (_%E132307132316%_))))) - (_%E132307132316%_))))) - (_%E132306132330%_)) - (let _%lp132334%_ ((_%rest132336%_ - _%rest132304%_) - (_%depth132337%_ '0)) - (let* ((_%e132338132345%_ _%rest132336%_) - (_%E132340132349%_ + (_%E132466132475%_))))) + (_%E132466132475%_))))) + (_%E132465132489%_)) + (let _%lp132493%_ ((_%rest132495%_ + _%rest132463%_) + (_%depth132496%_ '0)) + (let* ((_%e132497132504%_ _%rest132495%_) + (_%E132499132508%_ (lambda () - (if (fxpositive? _%depth132337%_) - (_%make-splice132262%_ - _%e132268%_ - _%depth132337%_ - (_%recur132263%_ - _%hd132302%_ - _%is-e?132269%_) - (_%recur132263%_ - _%rest132336%_ - _%is-e?132269%_)) - (_%make-cons132261%_ - (_%recur132263%_ - _%hd132302%_ - _%is-e?132269%_) - (_%recur132263%_ - _%rest132336%_ - _%is-e?132269%_))))) - (_%E132339132368%_ + (if (fxpositive? _%depth132496%_) + (_%make-splice132421%_ + _%e132427%_ + _%depth132496%_ + (_%recur132422%_ + _%hd132461%_ + _%is-e?132428%_) + (_%recur132422%_ + _%rest132495%_ + _%is-e?132428%_)) + (_%make-cons132420%_ + (_%recur132422%_ + _%hd132461%_ + _%is-e?132428%_) + (_%recur132422%_ + _%rest132495%_ + _%is-e?132428%_))))) + (_%E132498132527%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132338132345%_)) - (let ((_%e132341132353%_ + _%e132497132504%_)) + (let ((_%e132500132512%_ (let () (declare (not safe)) (gx#syntax-e - _%e132338132345%_)))) - (let ((_%hd132342132356%_ + _%e132497132504%_)))) + (let ((_%hd132501132515%_ (let () (declare (not safe)) - (##car _%e132341132353%_))) - (_%tl132343132358%_ + (##car _%e132500132512%_))) + (_%tl132502132517%_ (let () (declare (not safe)) - (##cdr _%e132341132353%_)))) - (let* ((_%rest-hd132361%_ - _%hd132342132356%_) - (_%rest-tl132363%_ - _%tl132343132358%_)) - (if (_%is-e?132269%_ - _%rest-hd132361%_) - (_%lp132334%_ - _%rest-tl132363%_ + (##cdr _%e132500132512%_)))) + (let* ((_%rest-hd132520%_ + _%hd132501132515%_) + (_%rest-tl132522%_ + _%tl132502132517%_)) + (if (_%is-e?132428%_ + _%rest-hd132520%_) + (_%lp132493%_ + _%rest-tl132522%_ (let () (declare (not safe)) - (##fx+ _%depth132337%_ + (##fx+ _%depth132496%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth132337%_) - (_%make-splice132262%_ - _%e132268%_ - _%depth132337%_ - (_%recur132263%_ _%hd132302%_ _%is-e?132269%_) - (_%recur132263%_ _%rest132336%_ _%is-e?132269%_)) - (_%make-cons132261%_ - (_%recur132263%_ _%hd132302%_ _%is-e?132269%_) - (_%recur132263%_ _%rest132336%_ _%is-e?132269%_))))))) + (if (fxpositive? _%depth132496%_) + (_%make-splice132421%_ + _%e132427%_ + _%depth132496%_ + (_%recur132422%_ _%hd132461%_ _%is-e?132428%_) + (_%recur132422%_ _%rest132495%_ _%is-e?132428%_)) + (_%make-cons132420%_ + (_%recur132422%_ _%hd132461%_ _%is-e?132428%_) + (_%recur132422%_ _%rest132495%_ _%is-e?132428%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132340132349%_))))) - (_%E132339132368%_))))))) - (_%E132281132290%_))))) + (_%E132499132508%_))))) + (_%E132498132527%_))))))) + (_%E132440132449%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132280132372%_)) + (_%E132439132531%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e132268%_)) - (let ((_g132795_ - (_%recur132263%_ + _%e132427%_)) + (let ((_g132954_ + (_%recur132422%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e132268%_))) - _%is-e?132269%_))) + (gx#stx-unwrap__0 _%e132427%_))) + _%is-e?132428%_))) (begin - (let ((_g132796_ + (let ((_g132955_ (let () (declare (not safe)) - (if (##values? _g132795_) - (##vector-length _g132795_) + (if (##values? _g132954_) + (##vector-length _g132954_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g132796_ 2))) - (error "Context expects 2 values" _g132796_))) - (let ((_%e132377%_ + (if (not (let () (declare (not safe)) (##fx= _g132955_ 2))) + (error "Context expects 2 values" _g132955_))) + (let ((_%e132536%_ (let () (declare (not safe)) - (##vector-ref _g132795_ 0))) - (_%vars132378%_ + (##vector-ref _g132954_ 0))) + (_%vars132537%_ (let () (declare (not safe)) - (##vector-ref _g132795_ 1)))) - (values (cons 'vector _%e132377%_) _%vars132378%_)))) + (##vector-ref _g132954_ 1)))) + (values (cons 'vector _%e132536%_) _%vars132537%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e132268%_)) - (let ((_g132797_ - (_%recur132263%_ + _%e132427%_)) + (let ((_g132956_ + (_%recur132422%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e132268%_))) - _%is-e?132269%_))) + (gx#stx-unwrap__0 _%e132427%_))) + _%is-e?132428%_))) (begin - (let ((_g132798_ + (let ((_g132957_ (let () (declare (not safe)) - (if (##values? _g132797_) - (##vector-length _g132797_) + (if (##values? _g132956_) + (##vector-length _g132956_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132798_ 2))) - (error "Context expects 2 values" _g132798_))) - (let ((_%e132381%_ + (##fx= _g132957_ 2))) + (error "Context expects 2 values" _g132957_))) + (let ((_%e132540%_ (let () (declare (not safe)) - (##vector-ref _g132797_ 0))) - (_%vars132382%_ + (##vector-ref _g132956_ 0))) + (_%vars132541%_ (let () (declare (not safe)) - (##vector-ref _g132797_ 1)))) - (values (cons 'box _%e132381%_) _%vars132382%_)))) - (values (cons 'datum _%e132268%_) '())))))))))) + (##vector-ref _g132956_ 1)))) + (values (cons 'box _%e132540%_) _%vars132541%_)))) + (values (cons 'datum _%e132427%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g132799_ - (_%recur132263%_ _%e132259%_ gx#ellipsis?))) + (let ((_g132958_ + (_%recur132422%_ _%e132418%_ gx#ellipsis?))) (begin - (let ((_g132800_ + (let ((_g132959_ (let () (declare (not safe)) - (if (##values? _g132799_) - (##vector-length _g132799_) + (if (##values? _g132958_) + (##vector-length _g132958_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132800_ 2))) - (error "Context expects 2 values" _g132800_))) - (let ((_%tree132265%_ + (##fx= _g132959_ 2))) + (error "Context expects 2 values" _g132959_))) + (let ((_%tree132424%_ (let () (declare (not safe)) - (##vector-ref _g132799_ 0))) - (_%vars132266%_ + (##vector-ref _g132958_ 0))) + (_%vars132425%_ (let () (declare (not safe)) - (##vector-ref _g132799_ 1)))) - (if (null? _%vars132266%_) - _%tree132265%_ + (##vector-ref _g132958_ 1)))) + (if (null? _%vars132425%_) + _%tree132424%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx132215%_ - _%vars132266%_)))))))))) - (let* ((_%e132219132229%_ _%stx132215%_) - (_%E132221132233%_ + _%stx132374%_ + _%vars132425%_)))))))))) + (let* ((_%e132378132388%_ _%stx132374%_) + (_%E132380132392%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx132215%_)))) - (_%E132220132255%_ + _%stx132374%_)))) + (_%E132379132414%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132219132229%_)) - (let ((_%e132222132237%_ + (gx#stx-pair? _%e132378132388%_)) + (let ((_%e132381132396%_ (let () (declare (not safe)) - (gx#syntax-e _%e132219132229%_)))) - (let ((_%hd132223132240%_ + (gx#syntax-e _%e132378132388%_)))) + (let ((_%hd132382132399%_ (let () (declare (not safe)) - (##car _%e132222132237%_))) - (_%tl132224132242%_ + (##car _%e132381132396%_))) + (_%tl132383132401%_ (let () (declare (not safe)) - (##cdr _%e132222132237%_)))) + (##cdr _%e132381132396%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132224132242%_)) - (let ((_%e132225132245%_ + (gx#stx-pair? _%tl132383132401%_)) + (let ((_%e132384132404%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132224132242%_)))) - (let ((_%hd132226132248%_ + (gx#syntax-e _%tl132383132401%_)))) + (let ((_%hd132385132407%_ (let () (declare (not safe)) - (##car _%e132225132245%_))) - (_%tl132227132250%_ + (##car _%e132384132404%_))) + (_%tl132386132409%_ (let () (declare (not safe)) - (##cdr _%e132225132245%_)))) - (let ((_%form132253%_ _%hd132226132248%_)) + (##cdr _%e132384132404%_)))) + (let ((_%form132412%_ _%hd132385132407%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132227132250%_)) - (let ((__tmp132802 - (_%generate132217%_ - (_%parse132218%_ - _%form132253%_))) - (__tmp132801 + (gx#stx-null? _%tl132386132409%_)) + (let ((__tmp132961 + (_%generate132376%_ + (_%parse132377%_ + _%form132412%_))) + (__tmp132960 (let () (declare (not safe)) (gx#stx-source - _%stx132215%_)))) + _%stx132374%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp132802 - __tmp132801)) - (_%E132221132233%_))))) - (_%E132221132233%_)))) - (_%E132221132233%_))))) - (_%E132220132255%_))))) + __tmp132961 + __tmp132960)) + (_%E132380132392%_))))) + (_%E132380132392%_)))) + (_%E132380132392%_))))) + (_%E132379132414%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx131464%_ - _%identifier=?131465%_ - _%unwrap-e131466%_ - _%wrap-e131467%_) - (letrec ((_%generate-bindings131469%_ - (lambda (_%target132079%_ - _%ids132080%_ - _%clauses132081%_ - _%clause-ids132082%_ - _%E132083%_) - (letrec ((_%generate1132085%_ - (lambda (_%clause132182%_ - _%clause-id132183%_ - _%E132184%_) - (cons (cons _%clause-id132183%_ '()) - (cons (let ((__tmp132804 - (cons _%target132079%_ '())) - (__tmp132803 - (_%generate-clause131471%_ - _%target132079%_ - _%ids132080%_ - _%clause132182%_ - _%E132184%_))) + (lambda (_%stx131623%_ + _%identifier=?131624%_ + _%unwrap-e131625%_ + _%wrap-e131626%_) + (letrec ((_%generate-bindings131628%_ + (lambda (_%target132238%_ + _%ids132239%_ + _%clauses132240%_ + _%clause-ids132241%_ + _%E132242%_) + (letrec ((_%generate1132244%_ + (lambda (_%clause132341%_ + _%clause-id132342%_ + _%E132343%_) + (cons (cons _%clause-id132342%_ '()) + (cons (let ((__tmp132963 + (cons _%target132238%_ '())) + (__tmp132962 + (_%generate-clause131630%_ + _%target132238%_ + _%ids132239%_ + _%clause132341%_ + _%E132343%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp132804 - __tmp132803)) + __tmp132963 + __tmp132962)) '()))))) - (let _%lp132087%_ ((_%rest132089%_ _%clauses132081%_) - (_%rest-ids132090%_ - _%clause-ids132082%_) - (_%bindings132091%_ '())) - (let* ((_%rest132092132100%_ _%rest132089%_) - (_%else132094132108%_ - (lambda () _%bindings132091%_)) - (_%K132096132170%_ - (lambda (_%rest132111%_ _%clause132112%_) - (let* ((_%rest-ids132113132120%_ - _%rest-ids132090%_) - (_%E132115132124%_ + (let _%lp132246%_ ((_%rest132248%_ _%clauses132240%_) + (_%rest-ids132249%_ + _%clause-ids132241%_) + (_%bindings132250%_ '())) + (let* ((_%rest132251132259%_ _%rest132248%_) + (_%else132253132267%_ + (lambda () _%bindings132250%_)) + (_%K132255132329%_ + (lambda (_%rest132270%_ _%clause132271%_) + (let* ((_%rest-ids132272132279%_ + _%rest-ids132249%_) + (_%E132274132283%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids132113132120%_ + _%rest-ids132272132279%_ '([clause-id . rest-ids]))) '#!void)) - (_%K132116132158%_ - (lambda (_%rest-ids132127%_ - _%clause-id132128%_) - (let* ((_%rest-ids132129132137%_ - _%rest-ids132127%_) - (_%else132131132145%_ + (_%K132275132317%_ + (lambda (_%rest-ids132286%_ + _%clause-id132287%_) + (let* ((_%rest-ids132288132296%_ + _%rest-ids132286%_) + (_%else132290132304%_ (lambda () - (cons (_%generate1132085%_ - _%clause132112%_ - _%clause-id132128%_ - _%E132083%_) - _%bindings132091%_))) - (_%K132133132150%_ - (lambda (_%next-clause-id132148%_) - (_%lp132087%_ - _%rest132111%_ - _%rest-ids132127%_ - (cons (_%generate1132085%_ - _%clause132112%_ - _%clause-id132128%_ - _%next-clause-id132148%_) - _%bindings132091%_))))) - (if (pair? _%rest-ids132129132137%_) - (let* ((_%hd132134132153%_ + (cons (_%generate1132244%_ + _%clause132271%_ + _%clause-id132287%_ + _%E132242%_) + _%bindings132250%_))) + (_%K132292132309%_ + (lambda (_%next-clause-id132307%_) + (_%lp132246%_ + _%rest132270%_ + _%rest-ids132286%_ + (cons (_%generate1132244%_ + _%clause132271%_ + _%clause-id132287%_ + _%next-clause-id132307%_) + _%bindings132250%_))))) + (if (pair? _%rest-ids132288132296%_) + (let* ((_%hd132293132312%_ (let () (declare (not safe)) - (##car _%rest-ids132129132137%_))) - (_%next-clause-id132156%_ - _%hd132134132153%_)) - (_%K132133132150%_ - _%next-clause-id132156%_)) - (_%else132131132145%_)))))) - (if (pair? _%rest-ids132113132120%_) - (let ((_%hd132117132161%_ + (##car _%rest-ids132288132296%_))) + (_%next-clause-id132315%_ + _%hd132293132312%_)) + (_%K132292132309%_ + _%next-clause-id132315%_)) + (_%else132290132304%_)))))) + (if (pair? _%rest-ids132272132279%_) + (let ((_%hd132276132320%_ (let () (declare (not safe)) - (##car _%rest-ids132113132120%_))) - (_%tl132118132163%_ + (##car _%rest-ids132272132279%_))) + (_%tl132277132322%_ (let () (declare (not safe)) - (##cdr _%rest-ids132113132120%_)))) - (let* ((_%clause-id132166%_ - _%hd132117132161%_) - (_%rest-ids132168%_ - _%tl132118132163%_)) - (_%K132116132158%_ - _%rest-ids132168%_ - _%clause-id132166%_))) - (_%E132115132124%_)))))) - (if (pair? _%rest132092132100%_) - (let ((_%hd132097132173%_ + (##cdr _%rest-ids132272132279%_)))) + (let* ((_%clause-id132325%_ + _%hd132276132320%_) + (_%rest-ids132327%_ + _%tl132277132322%_)) + (_%K132275132317%_ + _%rest-ids132327%_ + _%clause-id132325%_))) + (_%E132274132283%_)))))) + (if (pair? _%rest132251132259%_) + (let ((_%hd132256132332%_ (let () (declare (not safe)) - (##car _%rest132092132100%_))) - (_%tl132098132175%_ + (##car _%rest132251132259%_))) + (_%tl132257132334%_ (let () (declare (not safe)) - (##cdr _%rest132092132100%_)))) - (let* ((_%clause132178%_ _%hd132097132173%_) - (_%rest132180%_ _%tl132098132175%_)) - (_%K132096132170%_ - _%rest132180%_ - _%clause132178%_))) - (_%else132094132108%_))))))) - (_%generate-body131470%_ - (lambda (_%bindings132039%_ _%body132040%_) - (let _%recur132042%_ ((_%rest132044%_ _%bindings132039%_)) - (let* ((_%rest132045132053%_ _%rest132044%_) - (_%else132047132061%_ (lambda () _%body132040%_)) - (_%K132049132067%_ - (lambda (_%rest132064%_ _%hd132065%_) - (let ((__tmp132806 (cons _%hd132065%_ '())) - (__tmp132805 - (_%recur132042%_ _%rest132064%_))) + (##cdr _%rest132251132259%_)))) + (let* ((_%clause132337%_ _%hd132256132332%_) + (_%rest132339%_ _%tl132257132334%_)) + (_%K132255132329%_ + _%rest132339%_ + _%clause132337%_))) + (_%else132253132267%_))))))) + (_%generate-body131629%_ + (lambda (_%bindings132198%_ _%body132199%_) + (let _%recur132201%_ ((_%rest132203%_ _%bindings132198%_)) + (let* ((_%rest132204132212%_ _%rest132203%_) + (_%else132206132220%_ (lambda () _%body132199%_)) + (_%K132208132226%_ + (lambda (_%rest132223%_ _%hd132224%_) + (let ((__tmp132965 (cons _%hd132224%_ '())) + (__tmp132964 + (_%recur132201%_ _%rest132223%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132806 - __tmp132805))))) - (if (pair? _%rest132045132053%_) - (let ((_%hd132050132070%_ + __tmp132965 + __tmp132964))))) + (if (pair? _%rest132204132212%_) + (let ((_%hd132209132229%_ (let () (declare (not safe)) - (##car _%rest132045132053%_))) - (_%tl132051132072%_ + (##car _%rest132204132212%_))) + (_%tl132210132231%_ (let () (declare (not safe)) - (##cdr _%rest132045132053%_)))) - (let* ((_%hd132075%_ _%hd132050132070%_) - (_%rest132077%_ _%tl132051132072%_)) - (_%K132049132067%_ - _%rest132077%_ - _%hd132075%_))) - (_%else132047132061%_)))))) - (_%generate-clause131471%_ - (lambda (_%target131902%_ - _%ids131903%_ - _%clause131904%_ - _%E131905%_) - (letrec ((_%generate1131907%_ - (lambda (_%hd131994%_ - _%fender131995%_ - _%body131996%_) - (let ((_g132807_ - (_%parse-clause131473%_ - _%hd131994%_ - _%ids131903%_))) + (##cdr _%rest132204132212%_)))) + (let* ((_%hd132234%_ _%hd132209132229%_) + (_%rest132236%_ _%tl132210132231%_)) + (_%K132208132226%_ + _%rest132236%_ + _%hd132234%_))) + (_%else132206132220%_)))))) + (_%generate-clause131630%_ + (lambda (_%target132061%_ + _%ids132062%_ + _%clause132063%_ + _%E132064%_) + (letrec ((_%generate1132066%_ + (lambda (_%hd132153%_ + _%fender132154%_ + _%body132155%_) + (let ((_g132966_ + (_%parse-clause131632%_ + _%hd132153%_ + _%ids132062%_))) (begin - (let ((_g132808_ + (let ((_g132967_ (let () (declare (not safe)) - (if (##values? _g132807_) - (##vector-length _g132807_) + (if (##values? _g132966_) + (##vector-length _g132966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132808_ 2))) + (##fx= _g132967_ 2))) (error "Context expects 2 values" - _g132808_))) - (let ((_%e131998%_ + _g132967_))) + (let ((_%e132157%_ (let () (declare (not safe)) - (##vector-ref _g132807_ 0))) - (_%mvars131999%_ + (##vector-ref _g132966_ 0))) + (_%mvars132158%_ (let () (declare (not safe)) - (##vector-ref _g132807_ 1)))) - (let* ((_%pvars132001%_ + (##vector-ref _g132966_ 1)))) + (let* ((_%pvars132160%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars131999%_)))) - (_%E132003%_ - (cons _%E131905%_ - (cons _%target131902%_ + _%mvars132158%_)))) + (_%E132162%_ + (cons _%E132064%_ + (cons _%target132061%_ '()))) - (_%K132036%_ - (let ((__tmp132809 - (let ((__tmp132811 - (map (lambda (_%mvar132005%_ + (_%K132195%_ + (let ((__tmp132968 + (let ((__tmp132970 + (map (lambda (_%mvar132164%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar132006%_) - (let* ((_%mvar132007132014%_ _%mvar132005%_) - (_%E132009132018%_ + _%pvar132165%_) + (let* ((_%mvar132166132173%_ _%mvar132164%_) + (_%E132168132177%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar132007132014%_ + _%mvar132166132173%_ '([id . depth]))) '#!void)) - (_%K132010132024%_ - (lambda (_%depth132021%_ _%id132022%_) - (cons _%id132022%_ - (cons (let ((__tmp132813 + (_%K132169132183%_ + (lambda (_%depth132180%_ _%id132181%_) + (cons _%id132181%_ + (cons (let ((__tmp132972 (let () (declare (not safe)) (gx#core-list 'quote - _%id132022%_))) - (__tmp132812 + _%id132181%_))) + (__tmp132971 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar132006%_)))) + _%pvar132165%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp132813 - __tmp132812 - _%depth132021%_)) + __tmp132972 + __tmp132971 + _%depth132180%_)) '()))))) - (if (pair? _%mvar132007132014%_) - (let ((_%hd132011132027%_ + (if (pair? _%mvar132166132173%_) + (let ((_%hd132170132186%_ (let () (declare (not safe)) - (##car _%mvar132007132014%_))) - (_%tl132012132029%_ + (##car _%mvar132166132173%_))) + (_%tl132171132188%_ (let () (declare (not safe)) - (##cdr _%mvar132007132014%_)))) - (let* ((_%id132032%_ _%hd132011132027%_) - (_%depth132034%_ _%tl132012132029%_)) - (_%K132010132024%_ - _%depth132034%_ - _%id132032%_))) - (_%E132009132018%_)))) - _%mvars131999%_ - _%pvars132001%_)) - (__tmp132810 - (if (eq? _%fender131995%_ '#t) - _%body131996%_ + (##cdr _%mvar132166132173%_)))) + (let* ((_%id132191%_ _%hd132170132186%_) + (_%depth132193%_ _%tl132171132188%_)) + (_%K132169132183%_ + _%depth132193%_ + _%id132191%_))) + (_%E132168132177%_)))) + _%mvars132158%_ + _%pvars132160%_)) + (__tmp132969 + (if (eq? _%fender132154%_ '#t) + _%body132155%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender131995%_ - _%body131996%_ - _%E132003%_))))) + _%fender132154%_ + _%body132155%_ + _%E132162%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp132811 __tmp132810)))) + (gx#core-list 'let-syntax __tmp132970 __tmp132969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars132001%_ - __tmp132809)))) - (_%generate-match131472%_ - _%hd131994%_ - _%target131902%_ - _%e131998%_ - _%mvars131999%_ - _%K132036%_ - _%E132003%_)))))))) - (let* ((_%e131908131928%_ _%clause131904%_) - (_%E131917131932%_ + _%pvars132160%_ + __tmp132968)))) + (_%generate-match131631%_ + _%hd132153%_ + _%target132061%_ + _%e132157%_ + _%mvars132158%_ + _%K132195%_ + _%E132162%_)))))))) + (let* ((_%e132067132087%_ _%clause132063%_) + (_%E132076132091%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131908131928%_)))) - (_%E131910131966%_ + _%e132067132087%_)))) + (_%E132069132125%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131908131928%_)) - (let ((_%e131918131936%_ + (gx#stx-pair? _%e132067132087%_)) + (let ((_%e132077132095%_ (let () (declare (not safe)) - (gx#syntax-e _%e131908131928%_)))) - (let ((_%hd131919131939%_ + (gx#syntax-e _%e132067132087%_)))) + (let ((_%hd132078132098%_ (let () (declare (not safe)) - (##car _%e131918131936%_))) - (_%tl131920131941%_ + (##car _%e132077132095%_))) + (_%tl132079132100%_ (let () (declare (not safe)) - (##cdr _%e131918131936%_)))) - (let ((_%hd131944%_ - _%hd131919131939%_)) + (##cdr _%e132077132095%_)))) + (let ((_%hd132103%_ + _%hd132078132098%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl131920131941%_)) - (let ((_%e131921131946%_ + _%tl132079132100%_)) + (let ((_%e132080132105%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131920131941%_)))) - (let ((_%hd131922131949%_ + _%tl132079132100%_)))) + (let ((_%hd132081132108%_ (let () (declare (not safe)) - (##car _%e131921131946%_))) - (_%tl131923131951%_ + (##car _%e132080132105%_))) + (_%tl132082132110%_ (let () (declare (not safe)) - (##cdr _%e131921131946%_)))) - (let ((_%fender131954%_ - _%hd131922131949%_)) + (##cdr _%e132080132105%_)))) + (let ((_%fender132113%_ + _%hd132081132108%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl131923131951%_)) - (let ((_%e131924131956%_ + _%tl132082132110%_)) + (let ((_%e132083132115%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl131923131951%_)))) - (let ((_%hd131925131959%_ + (gx#syntax-e _%tl132082132110%_)))) + (let ((_%hd132084132118%_ (let () (declare (not safe)) - (##car _%e131924131956%_))) - (_%tl131926131961%_ + (##car _%e132083132115%_))) + (_%tl132085132120%_ (let () (declare (not safe)) - (##cdr _%e131924131956%_)))) - (let ((_%body131964%_ _%hd131925131959%_)) + (##cdr _%e132083132115%_)))) + (let ((_%body132123%_ _%hd132084132118%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131926131961%_)) - (_%generate1131907%_ - _%hd131944%_ - _%fender131954%_ - _%body131964%_) - (_%E131917131932%_))))) - (_%E131917131932%_))))) + (gx#stx-null? _%tl132085132120%_)) + (_%generate1132066%_ + _%hd132103%_ + _%fender132113%_ + _%body132123%_) + (_%E132076132091%_))))) + (_%E132076132091%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131917131932%_))))) - (_%E131917131932%_)))) - (_%E131909131990%_ + (_%E132076132091%_))))) + (_%E132076132091%_)))) + (_%E132068132149%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131908131928%_)) - (let ((_%e131911131970%_ + (gx#stx-pair? _%e132067132087%_)) + (let ((_%e132070132129%_ (let () (declare (not safe)) - (gx#syntax-e _%e131908131928%_)))) - (let ((_%hd131912131973%_ + (gx#syntax-e _%e132067132087%_)))) + (let ((_%hd132071132132%_ (let () (declare (not safe)) - (##car _%e131911131970%_))) - (_%tl131913131975%_ + (##car _%e132070132129%_))) + (_%tl132072132134%_ (let () (declare (not safe)) - (##cdr _%e131911131970%_)))) - (let ((_%hd131978%_ - _%hd131912131973%_)) + (##cdr _%e132070132129%_)))) + (let ((_%hd132137%_ + _%hd132071132132%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl131913131975%_)) - (let ((_%e131914131980%_ + _%tl132072132134%_)) + (let ((_%e132073132139%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131913131975%_)))) - (let ((_%hd131915131983%_ + _%tl132072132134%_)))) + (let ((_%hd132074132142%_ (let () (declare (not safe)) - (##car _%e131914131980%_))) - (_%tl131916131985%_ + (##car _%e132073132139%_))) + (_%tl132075132144%_ (let () (declare (not safe)) - (##cdr _%e131914131980%_)))) - (let ((_%body131988%_ - _%hd131915131983%_)) + (##cdr _%e132073132139%_)))) + (let ((_%body132147%_ + _%hd132074132142%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131916131985%_)) - (_%generate1131907%_ - _%hd131978%_ + _%tl132075132144%_)) + (_%generate1132066%_ + _%hd132137%_ '#t - _%body131988%_) - (_%E131910131966%_))))) - (_%E131910131966%_))))) - (_%E131910131966%_))))) - (_%E131909131990%_))))) - (_%generate-match131472%_ - (lambda (_%where131651%_ - _%target131652%_ - _%hd131653%_ - _%mvars131654%_ - _%K131655%_ - _%E131656%_) - (letrec ((_%BUG131658%_ - (lambda (_%q131900%_) + _%body132147%_) + (_%E132069132125%_))))) + (_%E132069132125%_))))) + (_%E132069132125%_))))) + (_%E132068132149%_))))) + (_%generate-match131631%_ + (lambda (_%where131810%_ + _%target131811%_ + _%hd131812%_ + _%mvars131813%_ + _%K131814%_ + _%E131815%_) + (letrec ((_%BUG131817%_ + (lambda (_%q132059%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx131464%_ - _%hd131653%_ - _%q131900%_)))) - (_%recur131659%_ - (lambda (_%e131750%_ - _%vars131751%_ - _%target131752%_ - _%E131753%_ - _%k131754%_) - (let* ((_%e131755131762%_ _%e131750%_) - (_%E131757131766%_ + _%stx131623%_ + _%hd131812%_ + _%q132059%_)))) + (_%recur131818%_ + (lambda (_%e131909%_ + _%vars131910%_ + _%target131911%_ + _%E131912%_ + _%k131913%_) + (let* ((_%e131914131921%_ _%e131909%_) + (_%E131916131925%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131755131762%_ + _%e131914131921%_ '([tag . body]))) '#!void)) - (_%K131758131888%_ - (lambda (_%body131769%_ _%tag131770%_) - (let ((_%$e131772%_ _%tag131770%_)) - (if (eq? 'any _%$e131772%_) - (_%k131754%_ _%vars131751%_) - (if (eq? 'id _%$e131772%_) - (let ((__tmp132818 + (_%K131917132047%_ + (lambda (_%body131928%_ _%tag131929%_) + (let ((_%$e131931%_ _%tag131929%_)) + (if (eq? 'any _%$e131931%_) + (_%k131913%_ _%vars131910%_) + (if (eq? 'id _%$e131931%_) + (let ((__tmp132977 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target131752%_))) - (__tmp132814 - (let ((__tmp132816 + _%target131911%_))) + (__tmp132973 + (let ((__tmp132975 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp132817 + (let ((__tmp132976 (let () (declare (not safe)) (gx#core-list - _%wrap-e131467%_ - _%body131769%_)))) + _%wrap-e131626%_ + _%body131928%_)))) (declare (not safe)) (gx#core-list - _%identifier=?131465%_ - __tmp132817 - _%target131752%_))) - (__tmp132815 (_%k131754%_ _%vars131751%_))) + _%identifier=?131624%_ + __tmp132976 + _%target131911%_))) + (__tmp132974 (_%k131913%_ _%vars131910%_))) (declare (not safe)) - (gx#core-list 'if __tmp132816 __tmp132815 _%E131753%_)))) + (gx#core-list 'if __tmp132975 __tmp132974 _%E131912%_)))) (declare (not safe)) - (gx#core-list 'if __tmp132818 __tmp132814 _%E131753%_)) + (gx#core-list 'if __tmp132977 __tmp132973 _%E131912%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e131772%_) - (_%k131754%_ - (cons (cons _%body131769%_ + (if (eq? 'var _%$e131931%_) + (_%k131913%_ + (cons (cons _%body131928%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target131752%_) - _%vars131751%_)) - (if (eq? 'cons _%$e131772%_) - (let ((_%$e131775%_ + _%target131911%_) + _%vars131910%_)) + (if (eq? 'cons _%$e131931%_) + (let ((_%$e131934%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd131776%_ + (_%$hd131935%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131777%_ + (_%$tl131936%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp132824 + (let ((__tmp132983 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target131752%_))) - (__tmp132819 - (let ((__tmp132823 - (cons (cons (cons _%$e131775%_ '()) + (gx#core-list 'stx-pair? _%target131911%_))) + (__tmp132978 + (let ((__tmp132982 + (cons (cons (cons _%$e131934%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%target131752%_)) + _%unwrap-e131625%_ + _%target131911%_)) '())) '())) - (__tmp132820 - (let ((__tmp132822 - (cons (cons (cons _%$hd131776%_ '()) + (__tmp132979 + (let ((__tmp132981 + (cons (cons (cons _%$hd131935%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e131775%_)) + (gx#core-list '##car _%$e131934%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl131777%_ + (cons (cons (cons _%$tl131936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e131775%_)) + (gx#core-list '##cdr _%$e131934%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132821 - (let* ((_%body131778131785%_ - _%body131769%_) - (_%E131780131789%_ + (__tmp132980 + (let* ((_%body131937131944%_ + _%body131928%_) + (_%E131939131948%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131778131785%_ + _%body131937131944%_ '([hd . tl]))) '#!void)) - (_%K131781131797%_ - (lambda (_%tl131792%_ - _%hd131793%_) - (_%recur131659%_ - _%hd131793%_ - _%vars131751%_ - _%$hd131776%_ - _%E131753%_ - (lambda (_%vars131795%_) - (_%recur131659%_ - _%tl131792%_ - _%vars131795%_ - _%$tl131777%_ - _%E131753%_ - _%k131754%_)))))) - (if (pair? _%body131778131785%_) - (let ((_%hd131782131800%_ + (_%K131940131956%_ + (lambda (_%tl131951%_ + _%hd131952%_) + (_%recur131818%_ + _%hd131952%_ + _%vars131910%_ + _%$hd131935%_ + _%E131912%_ + (lambda (_%vars131954%_) + (_%recur131818%_ + _%tl131951%_ + _%vars131954%_ + _%$tl131936%_ + _%E131912%_ + _%k131913%_)))))) + (if (pair? _%body131937131944%_) + (let ((_%hd131941131959%_ (let () (declare (not safe)) - (##car _%body131778131785%_))) - (_%tl131783131802%_ + (##car _%body131937131944%_))) + (_%tl131942131961%_ (let () (declare (not safe)) - (##cdr _%body131778131785%_)))) - (let* ((_%hd131805%_ - _%hd131782131800%_) - (_%tl131807%_ - _%tl131783131802%_)) - (_%K131781131797%_ - _%tl131807%_ - _%hd131805%_))) - (_%E131780131789%_))))) + (##cdr _%body131937131944%_)))) + (let* ((_%hd131964%_ + _%hd131941131959%_) + (_%tl131966%_ + _%tl131942131961%_)) + (_%K131940131956%_ + _%tl131966%_ + _%hd131964%_))) + (_%E131939131948%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp132822 - __tmp132821)))) + __tmp132981 + __tmp132980)))) (declare (not safe)) (gx#core-list 'let-values - __tmp132823 - __tmp132820)))) + __tmp132982 + __tmp132979)))) (declare (not safe)) (gx#core-list 'if - __tmp132824 - __tmp132819 - _%E131753%_))) - (if (eq? 'splice _%$e131772%_) - (let* ((_%body131808131815%_ _%body131769%_) - (_%E131810131819%_ + __tmp132983 + __tmp132978 + _%E131912%_))) + (if (eq? 'splice _%$e131931%_) + (let* ((_%body131967131974%_ _%body131928%_) + (_%E131969131978%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131808131815%_ + _%body131967131974%_ '([hd . tl]))) '#!void)) - (_%K131811131870%_ - (lambda (_%tl131822%_ _%hd131823%_) - (let* ((_%rlen131825%_ - (_%splice-rlen131660%_ _%tl131822%_)) - (_%$target131827%_ + (_%K131970132029%_ + (lambda (_%tl131981%_ _%hd131982%_) + (let* ((_%rlen131984%_ + (_%splice-rlen131819%_ _%tl131981%_)) + (_%$target131986%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd131829%_ + (_%$hd131988%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131831%_ + (_%$tl131990%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp131833%_ + (_%$lp131992%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e131835%_ + (_%$lp-e131994%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd131837%_ + (_%$lp-hd131996%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl131839%_ + (_%$lp-tl131998%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars131841%_ - (_%splice-vars131661%_ _%hd131823%_)) - (_%lvars131843%_ + (_%svars132000%_ + (_%splice-vars131820%_ _%hd131982%_)) + (_%lvars132002%_ (let () (declare (not safe)) - (gx#gentemps _%svars131841%_))) - (_%tlvars131845%_ + (gx#gentemps _%svars132000%_))) + (_%tlvars132004%_ (let () (declare (not safe)) - (gx#gentemps _%svars131841%_))) - (_%linit131849%_ - (map (lambda (_%var131847%_) + (gx#gentemps _%svars132000%_))) + (_%linit132008%_ + (map (lambda (_%var132006%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars131843%_))) - (letrec ((_%make-loop131852%_ - (lambda (_%vars131856%_) - (let ((__tmp132826 - (cons (cons (cons _%$lp131833%_ + _%lvars132002%_))) + (letrec ((_%make-loop132011%_ + (lambda (_%vars132015%_) + (let ((__tmp132985 + (cons (cons (cons _%$lp131992%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132839 - (cons _%$hd131829%_ _%lvars131843%_)) - (__tmp132827 - (let ((__tmp132838 + (cons (let ((__tmp132998 + (cons _%$hd131988%_ _%lvars132002%_)) + (__tmp132986 + (let ((__tmp132997 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd131829%_))) - (__tmp132832 - (let ((__tmp132837 - (cons (cons (cons _%$lp-e131835%_ + _%$hd131988%_))) + (__tmp132991 + (let ((__tmp132996 + (cons (cons (cons _%$lp-e131994%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%$hd131829%_)) + _%unwrap-e131625%_ + _%$hd131988%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132833 - (let ((__tmp132836 - (cons (cons (cons _%$lp-hd131837%_ + (__tmp132992 + (let ((__tmp132995 + (cons (cons (cons _%$lp-hd131996%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e131835%_)) + (gx#core-list '##car _%$lp-e131994%_)) '())) - (cons (cons (cons _%$lp-tl131839%_ '()) + (cons (cons (cons _%$lp-tl131998%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e131835%_)) + _%$lp-e131994%_)) '())) '()))) - (__tmp132834 - (_%recur131659%_ - _%hd131823%_ + (__tmp132993 + (_%recur131818%_ + _%hd131982%_ '() - _%$lp-hd131837%_ - _%E131753%_ - (lambda (_%hdvars131858%_) - (cons _%$lp131833%_ - (cons _%$lp-tl131839%_ - (map (lambda (_%svar131860%_ - _%lvar131861%_) - (let ((__tmp132835 + _%$lp-hd131996%_ + _%E131912%_ + (lambda (_%hdvars132017%_) + (cons _%$lp131992%_ + (cons _%$lp-tl131998%_ + (map (lambda (_%svar132019%_ + _%lvar132020%_) + (let ((__tmp132994 (let () (declare (not safe)) (agetq__% - _%svar131860%_ - _%hdvars131858%_ - _%BUG131658%_)))) + _%svar132019%_ + _%hdvars132017%_ + _%BUG131817%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp132835 - _%lvar131861%_))) - _%svars131841%_ - _%lvars131843%_))))))) + __tmp132994 + _%lvar132020%_))) + _%svars132000%_ + _%lvars132002%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp132836 __tmp132834)))) + (gx#core-list 'let-values __tmp132995 __tmp132993)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132837 - __tmp132833))) - (__tmp132828 - (let ((__tmp132831 - (map (lambda (_%lvar131863%_ + __tmp132996 + __tmp132992))) + (__tmp132987 + (let ((__tmp132990 + (map (lambda (_%lvar132022%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar131864%_) - (cons (cons _%tlvar131864%_ '()) + _%tlvar132023%_) + (cons (cons _%tlvar132023%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar131863%_)) + (gx#core-list 'reverse _%lvar132022%_)) '()))) - _%lvars131843%_ - _%tlvars131845%_)) + _%lvars132002%_ + _%tlvars132004%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132829 - (_%k131754%_ - (let ((__tmp132830 - (lambda (_%svar131866%_ + (__tmp132988 + (_%k131913%_ + (let ((__tmp132989 + (lambda (_%svar132025%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar131867%_ - _%r131868%_) - (cons (cons _%svar131866%_ _%tlvar131867%_) - _%r131868%_)))) + _%tlvar132026%_ + _%r132027%_) + (cons (cons _%svar132025%_ _%tlvar132026%_) + _%r132027%_)))) (declare (not safe)) (__foldl2 - __tmp132830 - _%vars131856%_ - _%svars131841%_ - _%tlvars131845%_))))) + __tmp132989 + _%vars132015%_ + _%svars132000%_ + _%tlvars132004%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132831 - __tmp132829)))) + __tmp132990 + __tmp132988)))) (declare (not safe)) (gx#core-list 'if - __tmp132838 - __tmp132832 - __tmp132828)))) + __tmp132997 + __tmp132991 + __tmp132987)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp132839 - __tmp132827)) + __tmp132998 + __tmp132986)) '())) '())) - (__tmp132825 - (cons _%$lp131833%_ (cons _%$target131827%_ _%linit131849%_)))) + (__tmp132984 + (cons _%$lp131992%_ (cons _%$target131986%_ _%linit132008%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp132826 - __tmp132825))))) - (let ((_%body131854%_ - (let ((__tmp132841 - (cons (cons (cons _%$target131827%_ + __tmp132985 + __tmp132984))))) + (let ((_%body132013%_ + (let ((__tmp133000 + (cons (cons (cons _%$target131986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl131831%_ '())) + (cons _%$tl131990%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target131752%_ - _%rlen131825%_)) + _%target131911%_ + _%rlen131984%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132840 - (_%recur131659%_ - _%tl131822%_ - _%vars131751%_ - _%$tl131831%_ - _%E131753%_ - _%make-loop131852%_))) + (__tmp132999 + (_%recur131818%_ + _%tl131981%_ + _%vars131910%_ + _%$tl131990%_ + _%E131912%_ + _%make-loop132011%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132841 - __tmp132840)))) - (let ((__tmp132845 + __tmp133000 + __tmp132999)))) + (let ((__tmp133004 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target131752%_))) - (__tmp132842 - (if (zero? _%rlen131825%_) - _%body131854%_ - (let ((__tmp132843 - (let ((__tmp132844 + _%target131911%_))) + (__tmp133001 + (if (zero? _%rlen131984%_) + _%body132013%_ + (let ((__tmp133002 + (let ((__tmp133003 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target131752%_)))) + (gx#core-list 'stx-length _%target131911%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp132844 _%rlen131825%_)))) + (gx#core-list 'fx>= __tmp133003 _%rlen131984%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp132843 - _%body131854%_ - _%E131753%_))))) + __tmp133002 + _%body132013%_ + _%E131912%_))))) (declare (not safe)) (gx#core-list 'if - __tmp132845 - __tmp132842 - _%E131753%_)))))))) - (if (pair? _%body131808131815%_) - (let ((_%hd131812131873%_ + __tmp133004 + __tmp133001 + _%E131912%_)))))))) + (if (pair? _%body131967131974%_) + (let ((_%hd131971132032%_ (let () (declare (not safe)) - (##car _%body131808131815%_))) - (_%tl131813131875%_ + (##car _%body131967131974%_))) + (_%tl131972132034%_ (let () (declare (not safe)) - (##cdr _%body131808131815%_)))) - (let* ((_%hd131878%_ _%hd131812131873%_) - (_%tl131880%_ _%tl131813131875%_)) - (_%K131811131870%_ - _%tl131880%_ - _%hd131878%_))) - (_%E131810131819%_))) - (if (eq? 'null _%$e131772%_) - (let ((__tmp132847 + (##cdr _%body131967131974%_)))) + (let* ((_%hd132037%_ _%hd131971132032%_) + (_%tl132039%_ _%tl131972132034%_)) + (_%K131970132029%_ + _%tl132039%_ + _%hd132037%_))) + (_%E131969131978%_))) + (if (eq? 'null _%$e131931%_) + (let ((__tmp133006 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target131752%_))) - (__tmp132846 (_%k131754%_ _%vars131751%_))) + _%target131911%_))) + (__tmp133005 (_%k131913%_ _%vars131910%_))) (declare (not safe)) (gx#core-list 'if - __tmp132847 - __tmp132846 - _%E131753%_)) - (if (eq? 'vector _%$e131772%_) - (let ((_%$e131882%_ + __tmp133006 + __tmp133005 + _%E131912%_)) + (if (eq? 'vector _%$e131931%_) + (let ((_%$e132041%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp132852 + (let ((__tmp133011 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target131752%_))) - (__tmp132848 - (let ((__tmp132850 - (cons (cons (cons _%$e131882%_ + _%target131911%_))) + (__tmp133007 + (let ((__tmp133009 + (cons (cons (cons _%$e132041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132851 + (cons (let ((__tmp133010 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%target131752%_)))) + _%unwrap-e131625%_ + _%target131911%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp132851)) + (gx#core-list 'vector->list __tmp133010)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132849 - (_%recur131659%_ - _%body131769%_ - _%vars131751%_ - _%$e131882%_ - _%E131753%_ - _%k131754%_))) + (__tmp133008 + (_%recur131818%_ + _%body131928%_ + _%vars131910%_ + _%$e132041%_ + _%E131912%_ + _%k131913%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132850 - __tmp132849)))) + __tmp133009 + __tmp133008)))) (declare (not safe)) (gx#core-list 'if - __tmp132852 - __tmp132848 - _%E131753%_))) - (if (eq? 'box _%$e131772%_) - (let ((_%$e131884%_ + __tmp133011 + __tmp133007 + _%E131912%_))) + (if (eq? 'box _%$e131931%_) + (let ((_%$e132043%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp132857 + (let ((__tmp133016 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target131752%_))) - (__tmp132853 - (let ((__tmp132855 - (cons (cons (cons _%$e131884%_ + _%target131911%_))) + (__tmp133012 + (let ((__tmp133014 + (cons (cons (cons _%$e132043%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132856 + (cons (let ((__tmp133015 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%target131752%_)))) + _%unwrap-e131625%_ + _%target131911%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp132856)) + (gx#core-list 'unbox __tmp133015)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132854 - (_%recur131659%_ - _%body131769%_ - _%vars131751%_ - _%$e131884%_ - _%E131753%_ - _%k131754%_))) + (__tmp133013 + (_%recur131818%_ + _%body131928%_ + _%vars131910%_ + _%$e132043%_ + _%E131912%_ + _%k131913%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132855 - __tmp132854)))) + __tmp133014 + __tmp133013)))) (declare (not safe)) (gx#core-list 'if - __tmp132857 - __tmp132853 - _%E131753%_))) - (if (eq? 'datum _%$e131772%_) - (let ((_%$e131886%_ + __tmp133016 + __tmp133012 + _%E131912%_))) + (if (eq? 'datum _%$e131931%_) + (let ((_%$e132045%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp132863 + (let ((__tmp133022 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target131752%_))) - (__tmp132858 - (let ((__tmp132862 - (cons (cons (cons _%$e131886%_ + _%target131911%_))) + (__tmp133017 + (let ((__tmp133021 + (cons (cons (cons _%$e132045%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target131752%_)) + (gx#core-list 'stx-e _%target131911%_)) '())) '())) - (__tmp132859 - (let ((__tmp132861 + (__tmp133018 + (let ((__tmp133020 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e131886%_ _%body131769%_))) - (__tmp132860 (_%k131754%_ _%vars131751%_))) + (gx#core-list 'equal? _%$e132045%_ _%body131928%_))) + (__tmp133019 (_%k131913%_ _%vars131910%_))) (declare (not safe)) - (gx#core-list 'if __tmp132861 __tmp132860 _%E131753%_)))) + (gx#core-list 'if __tmp133020 __tmp133019 _%E131912%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132862 - __tmp132859)))) + __tmp133021 + __tmp133018)))) (declare (not safe)) (gx#core-list 'if - __tmp132863 - __tmp132858 - _%E131753%_))) - (_%BUG131658%_ - _%e131750%_)))))))))))))) + __tmp133022 + __tmp133017 + _%E131912%_))) + (_%BUG131817%_ + _%e131909%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131755131762%_) - (let ((_%hd131759131891%_ + (if (pair? _%e131914131921%_) + (let ((_%hd131918132050%_ (let () (declare (not safe)) - (##car _%e131755131762%_))) - (_%tl131760131893%_ + (##car _%e131914131921%_))) + (_%tl131919132052%_ (let () (declare (not safe)) - (##cdr _%e131755131762%_)))) - (let* ((_%tag131896%_ - _%hd131759131891%_) - (_%body131898%_ - _%tl131760131893%_)) - (_%K131758131888%_ - _%body131898%_ - _%tag131896%_))) - (_%E131757131766%_))))) - (_%splice-rlen131660%_ - (lambda (_%e131712%_) - (let _%lp131714%_ ((_%e131716%_ _%e131712%_) - (_%n131717%_ '0)) - (let* ((_%e131718131725%_ _%e131716%_) - (_%E131720131729%_ + (##cdr _%e131914131921%_)))) + (let* ((_%tag132055%_ + _%hd131918132050%_) + (_%body132057%_ + _%tl131919132052%_)) + (_%K131917132047%_ + _%body132057%_ + _%tag132055%_))) + (_%E131916131925%_))))) + (_%splice-rlen131819%_ + (lambda (_%e131871%_) + (let _%lp131873%_ ((_%e131875%_ _%e131871%_) + (_%n131876%_ '0)) + (let* ((_%e131877131884%_ _%e131875%_) + (_%E131879131888%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131718131725%_ + _%e131877131884%_ '([tag . body]))) '#!void)) - (_%K131721131738%_ - (lambda (_%body131732%_ - _%tag131733%_) - (let ((_%$e131735%_ _%tag131733%_)) - (if (eq? 'splice _%$e131735%_) + (_%K131880131897%_ + (lambda (_%body131891%_ + _%tag131892%_) + (let ((_%$e131894%_ _%tag131892%_)) + (if (eq? 'splice _%$e131894%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx131464%_ - _%where131651%_)) - (if (eq? 'cons _%$e131735%_) - (_%lp131714%_ - (cdr _%body131732%_) + _%stx131623%_ + _%where131810%_)) + (if (eq? 'cons _%$e131894%_) + (_%lp131873%_ + (cdr _%body131891%_) (let () (declare (not safe)) - (##fx+ _%n131717%_ + (##fx+ _%n131876%_ '1))) - _%n131717%_)))))) - (if (pair? _%e131718131725%_) - (let ((_%hd131722131741%_ + _%n131876%_)))))) + (if (pair? _%e131877131884%_) + (let ((_%hd131881131900%_ (let () (declare (not safe)) - (##car _%e131718131725%_))) - (_%tl131723131743%_ + (##car _%e131877131884%_))) + (_%tl131882131902%_ (let () (declare (not safe)) - (##cdr _%e131718131725%_)))) - (let* ((_%tag131746%_ - _%hd131722131741%_) - (_%body131748%_ - _%tl131723131743%_)) - (_%K131721131738%_ - _%body131748%_ - _%tag131746%_))) - (_%E131720131729%_)))))) - (_%splice-vars131661%_ - (lambda (_%e131668%_) - (let _%recur131670%_ ((_%e131672%_ _%e131668%_) - (_%vars131673%_ '())) - (let* ((_%e131674131681%_ _%e131672%_) - (_%E131676131685%_ + (##cdr _%e131877131884%_)))) + (let* ((_%tag131905%_ + _%hd131881131900%_) + (_%body131907%_ + _%tl131882131902%_)) + (_%K131880131897%_ + _%body131907%_ + _%tag131905%_))) + (_%E131879131888%_)))))) + (_%splice-vars131820%_ + (lambda (_%e131827%_) + (let _%recur131829%_ ((_%e131831%_ _%e131827%_) + (_%vars131832%_ '())) + (let* ((_%e131833131840%_ _%e131831%_) + (_%E131835131844%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131674131681%_ + _%e131833131840%_ '([tag . body]))) '#!void)) - (_%K131677131700%_ - (lambda (_%body131688%_ - _%tag131689%_) - (let ((_%$e131691%_ _%tag131689%_)) - (if (eq? 'var _%$e131691%_) - (cons _%body131688%_ - _%vars131673%_) + (_%K131836131859%_ + (lambda (_%body131847%_ + _%tag131848%_) + (let ((_%$e131850%_ _%tag131848%_)) + (if (eq? 'var _%$e131850%_) + (cons _%body131847%_ + _%vars131832%_) (if (or (eq? 'cons - _%$e131691%_) + _%$e131850%_) (eq? 'splice - _%$e131691%_)) - (_%recur131670%_ - (cdr _%body131688%_) - (_%recur131670%_ - (car _%body131688%_) - _%vars131673%_)) + _%$e131850%_)) + (_%recur131829%_ + (cdr _%body131847%_) + (_%recur131829%_ + (car _%body131847%_) + _%vars131832%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131691%_) - (eq? 'box _%$e131691%_)) - (_%recur131670%_ _%body131688%_ _%vars131673%_) - _%vars131673%_))))))) + _%$e131850%_) + (eq? 'box _%$e131850%_)) + (_%recur131829%_ _%body131847%_ _%vars131832%_) + _%vars131832%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131674131681%_) - (let ((_%hd131678131703%_ + (if (pair? _%e131833131840%_) + (let ((_%hd131837131862%_ (let () (declare (not safe)) - (##car _%e131674131681%_))) - (_%tl131679131705%_ + (##car _%e131833131840%_))) + (_%tl131838131864%_ (let () (declare (not safe)) - (##cdr _%e131674131681%_)))) - (let* ((_%tag131708%_ - _%hd131678131703%_) - (_%body131710%_ - _%tl131679131705%_)) - (_%K131677131700%_ - _%body131710%_ - _%tag131708%_))) - (_%E131676131685%_)))))) - (_%make-body131662%_ - (lambda (_%vars131664%_) - (cons _%K131655%_ - (map (lambda (_%mvar131666%_) - (let ((__tmp132864 - (car _%mvar131666%_))) + (##cdr _%e131833131840%_)))) + (let* ((_%tag131867%_ + _%hd131837131862%_) + (_%body131869%_ + _%tl131838131864%_)) + (_%K131836131859%_ + _%body131869%_ + _%tag131867%_))) + (_%E131835131844%_)))))) + (_%make-body131821%_ + (lambda (_%vars131823%_) + (cons _%K131814%_ + (map (lambda (_%mvar131825%_) + (let ((__tmp133023 + (car _%mvar131825%_))) (declare (not safe)) (agetq__% - __tmp132864 - _%vars131664%_ - _%BUG131658%_))) - _%mvars131654%_))))) - (_%recur131659%_ - _%hd131653%_ + __tmp133023 + _%vars131823%_ + _%BUG131817%_))) + _%mvars131813%_))))) + (_%recur131818%_ + _%hd131812%_ '() - _%target131652%_ - _%E131656%_ - _%make-body131662%_)))) - (_%parse-clause131473%_ - (lambda (_%hd131545%_ _%ids131546%_) - (let _%recur131548%_ ((_%e131550%_ _%hd131545%_) - (_%vars131551%_ '()) - (_%depth131552%_ '0)) + _%target131811%_ + _%E131815%_ + _%make-body131821%_)))) + (_%parse-clause131632%_ + (lambda (_%hd131704%_ _%ids131705%_) + (let _%recur131707%_ ((_%e131709%_ _%hd131704%_) + (_%vars131710%_ '()) + (_%depth131711%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e131550%_)) + (gx#identifier? _%e131709%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e131550%_)) - (values '(any) _%vars131551%_) + (gx#underscore? _%e131709%_)) + (values '(any) _%vars131710%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e131550%_)) + (gx#ellipsis? _%e131709%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx131464%_ - _%hd131545%_)) - (if (let ((__tmp132865 - (lambda (_%id131557%_) + _%stx131623%_ + _%hd131704%_)) + (if (let ((__tmp133024 + (lambda (_%id131716%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e131550%_ - _%id131557%_))))) + _%e131709%_ + _%id131716%_))))) (declare (not safe)) - (__find __tmp132865 _%ids131546%_)) - (values (cons 'id _%e131550%_) - _%vars131551%_) - (if (let ((__tmp132866 - (lambda (_%var131560%_) - (let ((__tmp132867 - (car _%var131560%_))) + (__find __tmp133024 _%ids131705%_)) + (values (cons 'id _%e131709%_) + _%vars131710%_) + (if (let ((__tmp133025 + (lambda (_%var131719%_) + (let ((__tmp133026 + (car _%var131719%_))) (declare (not safe)) (gx#bound-identifier=? - _%e131550%_ - __tmp132867))))) + _%e131709%_ + __tmp133026))))) (declare (not safe)) - (__find __tmp132866 - _%vars131551%_)) + (__find __tmp133025 + _%vars131710%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx131464%_ - _%e131550%_)) - (values (cons 'var _%e131550%_) - (cons (cons _%e131550%_ - _%depth131552%_) - _%vars131551%_)))))) + _%stx131623%_ + _%e131709%_)) + (values (cons 'var _%e131709%_) + (cons (cons _%e131709%_ + _%depth131711%_) + _%vars131710%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e131550%_)) - (let* ((_%e131564131571%_ _%e131550%_) - (_%E131566131575%_ + (gx#stx-pair? _%e131709%_)) + (let* ((_%e131723131730%_ _%e131709%_) + (_%E131725131734%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131564131571%_)))) - (_%E131565131636%_ + _%e131723131730%_)))) + (_%E131724131795%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131564131571%_)) - (let ((_%e131567131579%_ + (gx#stx-pair? _%e131723131730%_)) + (let ((_%e131726131738%_ (let () (declare (not safe)) (gx#syntax-e - _%e131564131571%_)))) - (let ((_%hd131568131582%_ + _%e131723131730%_)))) + (let ((_%hd131727131741%_ (let () (declare (not safe)) - (##car _%e131567131579%_))) - (_%tl131569131584%_ + (##car _%e131726131738%_))) + (_%tl131728131743%_ (let () (declare (not safe)) - (##cdr _%e131567131579%_)))) - (let* ((_%hd131587%_ - _%hd131568131582%_) - (_%rest131589%_ - _%tl131569131584%_) - (_%make-pair131604%_ - (lambda (_%tag131591%_ + (##cdr _%e131726131738%_)))) + (let* ((_%hd131746%_ + _%hd131727131741%_) + (_%rest131748%_ + _%tl131728131743%_) + (_%make-pair131763%_ + (lambda (_%tag131750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd131592%_ - _%tl131593%_) - (let* ((_%hd-depth131595%_ - (if (eq? _%tag131591%_ 'splice) + _%hd131751%_ + _%tl131752%_) + (let* ((_%hd-depth131754%_ + (if (eq? _%tag131750%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth131552%_ '1)) - _%depth131552%_)) - (_g132868_ - (_%recur131548%_ - _%hd131592%_ - _%vars131551%_ - _%hd-depth131595%_))) + (##fx+ _%depth131711%_ '1)) + _%depth131711%_)) + (_g133027_ + (_%recur131707%_ + _%hd131751%_ + _%vars131710%_ + _%hd-depth131754%_))) (begin - (let ((_g132869_ + (let ((_g133028_ (let () (declare (not safe)) - (if (##values? _g132868_) - (##vector-length _g132868_) + (if (##values? _g133027_) + (##vector-length _g133027_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132869_ 2))) - (error "Context expects 2 values" _g132869_))) - (let ((_%hd131597%_ + (##fx= _g133028_ 2))) + (error "Context expects 2 values" _g133028_))) + (let ((_%hd131756%_ (let () (declare (not safe)) - (##vector-ref _g132868_ 0))) - (_%vars131598%_ + (##vector-ref _g133027_ 0))) + (_%vars131757%_ (let () (declare (not safe)) - (##vector-ref _g132868_ 1)))) - (let ((_g132870_ - (_%recur131548%_ - _%tl131593%_ - _%vars131598%_ - _%depth131552%_))) + (##vector-ref _g133027_ 1)))) + (let ((_g133029_ + (_%recur131707%_ + _%tl131752%_ + _%vars131757%_ + _%depth131711%_))) (begin - (let ((_g132871_ + (let ((_g133030_ (let () (declare (not safe)) - (if (##values? _g132870_) - (##vector-length _g132870_) + (if (##values? _g133029_) + (##vector-length _g133029_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132871_ 2))) + (##fx= _g133030_ 2))) (error "Context expects 2 values" - _g132871_))) - (let ((_%tl131600%_ + _g133030_))) + (let ((_%tl131759%_ (let () (declare (not safe)) - (##vector-ref _g132870_ 0))) - (_%vars131601%_ + (##vector-ref _g133029_ 0))) + (_%vars131760%_ (let () (declare (not safe)) - (##vector-ref _g132870_ 1)))) - (values (cons _%tag131591%_ - (cons _%hd131597%_ _%tl131600%_)) - _%vars131601%_))))))))) - (_%e131605131612%_ _%rest131589%_) - (_%E131607131616%_ + (##vector-ref _g133029_ 1)))) + (values (cons _%tag131750%_ + (cons _%hd131756%_ _%tl131759%_)) + _%vars131760%_))))))))) + (_%e131764131771%_ _%rest131748%_) + (_%E131766131775%_ (lambda () - (_%make-pair131604%_ 'cons _%hd131587%_ _%rest131589%_))) - (_%E131606131632%_ + (_%make-pair131763%_ 'cons _%hd131746%_ _%rest131748%_))) + (_%E131765131791%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131605131612%_)) - (let ((_%e131608131620%_ + (gx#stx-pair? _%e131764131771%_)) + (let ((_%e131767131779%_ (let () (declare (not safe)) - (gx#syntax-e _%e131605131612%_)))) - (let ((_%hd131609131623%_ + (gx#syntax-e _%e131764131771%_)))) + (let ((_%hd131768131782%_ (let () (declare (not safe)) - (##car _%e131608131620%_))) - (_%tl131610131625%_ + (##car _%e131767131779%_))) + (_%tl131769131784%_ (let () (declare (not safe)) - (##cdr _%e131608131620%_)))) - (let* ((_%rest-hd131628%_ _%hd131609131623%_) - (_%rest-tl131630%_ _%tl131610131625%_)) + (##cdr _%e131767131779%_)))) + (let* ((_%rest-hd131787%_ _%hd131768131782%_) + (_%rest-tl131789%_ _%tl131769131784%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd131628%_)) - (_%make-pair131604%_ + (gx#ellipsis? _%rest-hd131787%_)) + (_%make-pair131763%_ 'splice - _%hd131587%_ - _%rest-tl131630%_) - (_%make-pair131604%_ + _%hd131746%_ + _%rest-tl131789%_) + (_%make-pair131763%_ 'cons - _%hd131587%_ - _%rest131589%_))))) - (_%E131607131616%_))))) + _%hd131746%_ + _%rest131748%_))))) + (_%E131766131775%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131606131632%_)))) - (_%E131566131575%_))))) - (_%E131565131636%_)) + (_%E131765131791%_)))) + (_%E131725131734%_))))) + (_%E131724131795%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e131550%_)) - (values '(null) _%vars131551%_) + (gx#stx-null? _%e131709%_)) + (values '(null) _%vars131710%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e131550%_)) - (let ((_g132872_ - (_%recur131548%_ + (gx#stx-vector? _%e131709%_)) + (let ((_g133031_ + (_%recur131707%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e131550%_))) - _%vars131551%_ - _%depth131552%_))) + (gx#syntax-e _%e131709%_))) + _%vars131710%_ + _%depth131711%_))) (begin - (let ((_g132873_ + (let ((_g133032_ (let () (declare (not safe)) - (if (##values? _g132872_) + (if (##values? _g133031_) (##vector-length - _g132872_) + _g133031_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132873_ 2))) + (##fx= _g133032_ 2))) (error "Context expects 2 values" - _g132873_))) - (let ((_%e131642%_ + _g133032_))) + (let ((_%e131801%_ (let () (declare (not safe)) - (##vector-ref _g132872_ 0))) - (_%vars131643%_ + (##vector-ref _g133031_ 0))) + (_%vars131802%_ (let () (declare (not safe)) (##vector-ref - _g132872_ + _g133031_ 1)))) - (values (cons 'vector _%e131642%_) - _%vars131643%_)))) + (values (cons 'vector _%e131801%_) + _%vars131802%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e131550%_)) - (let ((_g132874_ - (_%recur131548%_ + (gx#stx-box? _%e131709%_)) + (let ((_g133033_ + (_%recur131707%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e131550%_))) - _%vars131551%_ - _%depth131552%_))) + _%e131709%_))) + _%vars131710%_ + _%depth131711%_))) (begin - (let ((_g132875_ + (let ((_g133034_ (let () (declare (not safe)) (if (##values? - _g132874_) + _g133033_) (##vector-length - _g132874_) + _g133033_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132875_ + (##fx= _g133034_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g132875_))) - (let ((_%e131646%_ + _g133034_))) + (let ((_%e131805%_ (let () (declare (not safe)) (##vector-ref - _g132874_ + _g133033_ 0))) - (_%vars131647%_ + (_%vars131806%_ (let () (declare (not safe)) (##vector-ref - _g132874_ + _g133033_ 1)))) - (values (cons 'box _%e131646%_) - _%vars131647%_)))) + (values (cons 'box _%e131805%_) + _%vars131806%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e131550%_)) + (gx#stx-datum? _%e131709%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e131550%_))) - _%vars131551%_) + _%e131709%_))) + _%vars131710%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx131464%_ - _%e131550%_)))))))))))) - (let* ((_%e131474131487%_ _%stx131464%_) - (_%E131476131491%_ + _%stx131623%_ + _%e131709%_)))))))))))) + (let* ((_%e131633131646%_ _%stx131623%_) + (_%E131635131650%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131474131487%_)))) - (_%E131475131541%_ + _%e131633131646%_)))) + (_%E131634131700%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131474131487%_)) - (let ((_%e131477131495%_ + (gx#stx-pair? _%e131633131646%_)) + (let ((_%e131636131654%_ (let () (declare (not safe)) - (gx#syntax-e _%e131474131487%_)))) - (let ((_%hd131478131498%_ + (gx#syntax-e _%e131633131646%_)))) + (let ((_%hd131637131657%_ (let () (declare (not safe)) - (##car _%e131477131495%_))) - (_%tl131479131500%_ + (##car _%e131636131654%_))) + (_%tl131638131659%_ (let () (declare (not safe)) - (##cdr _%e131477131495%_)))) + (##cdr _%e131636131654%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131479131500%_)) - (let ((_%e131480131503%_ + (gx#stx-pair? _%tl131638131659%_)) + (let ((_%e131639131662%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131479131500%_)))) - (let ((_%hd131481131506%_ + (gx#syntax-e _%tl131638131659%_)))) + (let ((_%hd131640131665%_ (let () (declare (not safe)) - (##car _%e131480131503%_))) - (_%tl131482131508%_ + (##car _%e131639131662%_))) + (_%tl131641131667%_ (let () (declare (not safe)) - (##cdr _%e131480131503%_)))) - (let ((_%expr131511%_ _%hd131481131506%_)) + (##cdr _%e131639131662%_)))) + (let ((_%expr131670%_ _%hd131640131665%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131482131508%_)) - (let ((_%e131483131513%_ + (gx#stx-pair? _%tl131641131667%_)) + (let ((_%e131642131672%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131482131508%_)))) - (let ((_%hd131484131516%_ + _%tl131641131667%_)))) + (let ((_%hd131643131675%_ (let () (declare (not safe)) - (##car _%e131483131513%_))) - (_%tl131485131518%_ + (##car _%e131642131672%_))) + (_%tl131644131677%_ (let () (declare (not safe)) - (##cdr _%e131483131513%_)))) - (let* ((_%ids131521%_ - _%hd131484131516%_) - (_%clauses131523%_ - _%tl131485131518%_)) + (##cdr _%e131642131672%_)))) + (let* ((_%ids131680%_ + _%hd131643131675%_) + (_%clauses131682%_ + _%tl131644131677%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids131521%_)) + _%ids131680%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses131523%_)) - (let* ((_%ids131528%_ + _%clauses131682%_)) + (let* ((_%ids131687%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids131521%_))) - (_%clauses131530%_ + (gx#syntax->list _%ids131680%_))) + (_%clauses131689%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses131523%_))) - (_%clause-ids131532%_ + (gx#syntax->list _%clauses131682%_))) + (_%clause-ids131691%_ (let () (declare (not safe)) - (gx#gentemps _%clauses131530%_))) - (_%E131534%_ + (gx#gentemps _%clauses131689%_))) + (_%E131693%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target131536%_ + (_%target131695%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first131538%_ - (if (null? _%clauses131530%_) - _%E131534%_ - (car _%clause-ids131532%_)))) - (let ((__tmp132877 - (let ((__tmp132878 - (let ((__tmp132880 - (let ((__tmp132882 - (cons (cons (cons _%E131534%_ + (_%first131697%_ + (if (null? _%clauses131689%_) + _%E131693%_ + (car _%clause-ids131691%_)))) + (let ((__tmp133036 + (let ((__tmp133037 + (let ((__tmp133039 + (let ((__tmp133041 + (cons (cons (cons _%E131693%_ '()) - (cons (let ((__tmp132884 + (cons (let ((__tmp133043 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target131536%_ '())) - (__tmp132883 + (cons _%target131695%_ '())) + (__tmp133042 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target131536%_)))) + _%target131695%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp132884 __tmp132883)) + (gx#core-list 'lambda% __tmp133043 __tmp133042)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp132881 - (_%generate-body131470%_ - (_%generate-bindings131469%_ - _%target131536%_ - _%ids131528%_ - _%clauses131530%_ - _%clause-ids131532%_ - _%E131534%_) - (cons _%first131538%_ - (cons _%expr131511%_ + (__tmp133040 + (_%generate-body131629%_ + (_%generate-bindings131628%_ + _%target131695%_ + _%ids131687%_ + _%clauses131689%_ + _%clause-ids131691%_ + _%E131693%_) + (cons _%first131697%_ + (cons _%expr131670%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp132882 - __tmp132881))) - (__tmp132879 + __tmp133041 + __tmp133040))) + (__tmp133038 (let () (declare (not safe)) - (gx#stx-source _%stx131464%_)))) + (gx#stx-source _%stx131623%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp132880 - __tmp132879)))) + __tmp133039 + __tmp133038)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp132878))) - (__tmp132876 + __tmp133037))) + (__tmp133035 (let () (declare (not safe)) - (gx#stx-source _%stx131464%_)))) + (gx#stx-source _%stx131623%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp132877 __tmp132876))) + (gx#stx-wrap-source __tmp133036 __tmp133035))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx131464%_))) + _%stx131623%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx131464%_ - _%ids131521%_)))))) - (_%E131476131491%_))))) - (_%E131476131491%_)))) - (_%E131476131491%_))))) - (_%E131475131541%_))))) + _%stx131623%_ + _%ids131680%_)))))) + (_%E131635131650%_))))) + (_%E131635131650%_)))) + (_%E131635131650%_))))) + (_%E131634131700%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx132189%_) - (let* ((_%identifier=?132191%_ 'free-identifier=?) - (_%unwrap-e132193%_ 'syntax-e) - (_%wrap-e132195%_ 'quote-syntax)) + (lambda (_%stx132348%_) + (let* ((_%identifier=?132350%_ 'free-identifier=?) + (_%unwrap-e132352%_ 'syntax-e) + (_%wrap-e132354%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132189%_ - _%identifier=?132191%_ - _%unwrap-e132193%_ - _%wrap-e132195%_)))) + _%stx132348%_ + _%identifier=?132350%_ + _%unwrap-e132352%_ + _%wrap-e132354%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx132197%_ _%identifier=?132198%_) - (let* ((_%unwrap-e132200%_ 'syntax-e) (_%wrap-e132202%_ 'quote-syntax)) + (lambda (_%stx132356%_ _%identifier=?132357%_) + (let* ((_%unwrap-e132359%_ 'syntax-e) (_%wrap-e132361%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132197%_ - _%identifier=?132198%_ - _%unwrap-e132200%_ - _%wrap-e132202%_)))) + _%stx132356%_ + _%identifier=?132357%_ + _%unwrap-e132359%_ + _%wrap-e132361%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx132204%_ _%identifier=?132205%_ _%unwrap-e132206%_) - (let ((_%wrap-e132208%_ 'quote-syntax)) + (lambda (_%stx132363%_ _%identifier=?132364%_ _%unwrap-e132365%_) + (let ((_%wrap-e132367%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132204%_ - _%identifier=?132205%_ - _%unwrap-e132206%_ - _%wrap-e132208%_)))) + _%stx132363%_ + _%identifier=?132364%_ + _%unwrap-e132365%_ + _%wrap-e132367%_)))) (define gx#macro-expand-syntax-case - (lambda _g132886_ - (let ((_g132885_ (let () (declare (not safe)) (##length _g132886_)))) - (cond ((let () (declare (not safe)) (##fx= _g132885_ 1)) - (apply gx#macro-expand-syntax-case__0 _g132886_)) - ((let () (declare (not safe)) (##fx= _g132885_ 2)) - (apply gx#macro-expand-syntax-case__1 _g132886_)) - ((let () (declare (not safe)) (##fx= _g132885_ 3)) - (apply gx#macro-expand-syntax-case__2 _g132886_)) - ((let () (declare (not safe)) (##fx= _g132885_ 4)) - (apply gx#macro-expand-syntax-case__% _g132886_)) + (lambda _g133045_ + (let ((_g133044_ (let () (declare (not safe)) (##length _g133045_)))) + (cond ((let () (declare (not safe)) (##fx= _g133044_ 1)) + (apply gx#macro-expand-syntax-case__0 _g133045_)) + ((let () (declare (not safe)) (##fx= _g133044_ 2)) + (apply gx#macro-expand-syntax-case__1 _g133045_)) + ((let () (declare (not safe)) (##fx= _g133044_ 3)) + (apply gx#macro-expand-syntax-case__2 _g133045_)) + ((let () (declare (not safe)) (##fx= _g133044_ 4)) + (apply gx#macro-expand-syntax-case__% _g133045_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g132886_)))))) + _g133045_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx131461%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx131461%_)) - (let ((__tmp132887 + (lambda (_%stx131620%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx131620%_)) + (let ((__tmp133046 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx131461%_ false)))) + (gx#syntax-local-e__% _%stx131620%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp132887 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp133046 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd131419%_ . _%rest131420%_) - (let ((_%len131422%_ (length _%hd131419%_))) - (let _%lp131424%_ ((_%rest131426%_ _%rest131420%_)) - (let* ((_%rest131427131435%_ _%rest131426%_) - (_%else131429131443%_ (lambda () '#!void)) - (_%K131431131449%_ - (lambda (_%rest131446%_ _%hd131447%_) - (if (let ((__tmp132888 (length _%hd131447%_))) + (lambda (_%hd131578%_ . _%rest131579%_) + (let ((_%len131581%_ (length _%hd131578%_))) + (let _%lp131583%_ ((_%rest131585%_ _%rest131579%_)) + (let* ((_%rest131586131594%_ _%rest131585%_) + (_%else131588131602%_ (lambda () '#!void)) + (_%K131590131608%_ + (lambda (_%rest131605%_ _%hd131606%_) + (if (let ((__tmp133047 (length _%hd131606%_))) (declare (not safe)) - (##fx= _%len131422%_ __tmp132888)) - (_%lp131424%_ _%rest131446%_) + (##fx= _%len131581%_ __tmp133047)) + (_%lp131583%_ _%rest131605%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd131447%_)))))) - (if (pair? _%rest131427131435%_) - (let ((_%hd131432131452%_ + _%hd131606%_)))))) + (if (pair? _%rest131586131594%_) + (let ((_%hd131591131611%_ (let () (declare (not safe)) - (##car _%rest131427131435%_))) - (_%tl131433131454%_ + (##car _%rest131586131594%_))) + (_%tl131592131613%_ (let () (declare (not safe)) - (##cdr _%rest131427131435%_)))) - (let* ((_%hd131457%_ _%hd131432131452%_) - (_%rest131459%_ _%tl131433131454%_)) - (_%K131431131449%_ _%rest131459%_ _%hd131457%_))) + (##cdr _%rest131586131594%_)))) + (let* ((_%hd131616%_ _%hd131591131611%_) + (_%rest131618%_ _%tl131592131613%_)) + (_%K131590131608%_ _%rest131618%_ _%hd131616%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx131374%_ _%n131375%_) - (let _%lp131377%_ ((_%rest131379%_ _%stx131374%_) (_%r131380%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest131379%_)) - (let* ((_%g131381131388%_ + (lambda (_%stx131533%_ _%n131534%_) + (let _%lp131536%_ ((_%rest131538%_ _%stx131533%_) (_%r131539%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest131538%_)) + (let* ((_%g131540131547%_ (let () (declare (not safe)) - (gx#syntax-e _%rest131379%_))) - (_%E131383131392%_ + (gx#syntax-e _%rest131538%_))) + (_%E131542131551%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g131381131388%_ + _%g131540131547%_ '([hd . rest]))) '#!void)) - (_%K131384131398%_ - (lambda (_%rest131395%_ _%hd131396%_) - (_%lp131377%_ - _%rest131395%_ - (cons _%hd131396%_ _%r131380%_))))) - (if (pair? _%g131381131388%_) - (let ((_%hd131385131401%_ + (_%K131543131557%_ + (lambda (_%rest131554%_ _%hd131555%_) + (_%lp131536%_ + _%rest131554%_ + (cons _%hd131555%_ _%r131539%_))))) + (if (pair? _%g131540131547%_) + (let ((_%hd131544131560%_ (let () (declare (not safe)) - (##car _%g131381131388%_))) - (_%tl131386131403%_ + (##car _%g131540131547%_))) + (_%tl131545131562%_ (let () (declare (not safe)) - (##cdr _%g131381131388%_)))) - (let* ((_%hd131406%_ _%hd131385131401%_) - (_%rest131408%_ _%tl131386131403%_)) - (_%K131384131398%_ _%rest131408%_ _%hd131406%_))) - (_%E131383131392%_))) - (let _%lp131410%_ ((_%n131412%_ _%n131375%_) - (_%l131413%_ _%r131380%_) - (_%r131414%_ _%rest131379%_)) - (if (null? _%l131413%_) - (values _%l131413%_ _%r131414%_) - (if (fxpositive? _%n131412%_) - (_%lp131410%_ - (let () (declare (not safe)) (##fx- _%n131412%_ '1)) - (cdr _%l131413%_) - (cons (car _%l131413%_) _%r131414%_)) - (values (reverse _%l131413%_) _%r131414%_)))))))))) + (##cdr _%g131540131547%_)))) + (let* ((_%hd131565%_ _%hd131544131560%_) + (_%rest131567%_ _%tl131545131562%_)) + (_%K131543131557%_ _%rest131567%_ _%hd131565%_))) + (_%E131542131551%_))) + (let _%lp131569%_ ((_%n131571%_ _%n131534%_) + (_%l131572%_ _%r131539%_) + (_%r131573%_ _%rest131538%_)) + (if (null? _%l131572%_) + (values _%l131572%_ _%r131573%_) + (if (fxpositive? _%n131571%_) + (_%lp131569%_ + (let () (declare (not safe)) (##fx- _%n131571%_ '1)) + (cdr _%l131572%_) + (cons (car _%l131572%_) _%r131573%_)) + (values (reverse _%l131572%_) _%r131573%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 6264ddfbb..de4ded647 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]#_g132890_| + (define |gx[1]#_g133049_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g132892_| + (define |gx[1]#_g133051_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g132894_| + (define |gx[1]#_g133053_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g132896_| + (define |gx[1]#_g133055_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g132898_| + (define |gx[1]#_g133057_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g132899_| + (define |gx[1]#_g133058_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g132900_| + (define |gx[1]#_g133059_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g132902_| + (define |gx[1]#_g133061_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132903_| + (define |gx[1]#_g133062_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132904_| + (define |gx[1]#_g133063_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132906_| + (define |gx[1]#_g133065_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g132907_| + (define |gx[1]#_g133066_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g132908_| + (define |gx[1]#_g133067_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g132910_| + (define |gx[1]#_g133069_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132911_| + (define |gx[1]#_g133070_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132912_| + (define |gx[1]#_g133071_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj132767 + (let ((__obj132926 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132767 + __obj132926 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj132926 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj132926 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '(e id depth) '6 '#f '#f)) - (let ((__tmp132889 (cons |gx[1]#_g132890_| '()))) + (##unchecked-structure-set! __obj132926 '(e id depth) '6 '#f '#f)) + (let ((__tmp133048 (cons |gx[1]#_g133049_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132889 '3 '#f '#f)) + (##unchecked-structure-set! __obj132926 __tmp133048 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj132926 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj132926 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj132926 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#f '11 '#f '#f)) - (let ((__tmp132891 |gx[1]#_g132892_|)) + (##unchecked-structure-set! __obj132926 '#f '11 '#f '#f)) + (let ((__tmp133050 |gx[1]#_g133051_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132891 '12 '#f '#f)) - (let ((__tmp132893 |gx[1]#_g132894_|)) + (##unchecked-structure-set! __obj132926 __tmp133050 '12 '#f '#f)) + (let ((__tmp133052 |gx[1]#_g133053_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132893 '13 '#f '#f)) - (let ((__tmp132895 |gx[1]#_g132896_|)) + (##unchecked-structure-set! __obj132926 __tmp133052 '13 '#f '#f)) + (let ((__tmp133054 |gx[1]#_g133055_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132895 '14 '#f '#f)) - (let ((__tmp132897 - (cons (cons 'id |gx[1]#_g132898_|) - (cons (cons 'depth |gx[1]#_g132899_|) - (cons (cons 'e |gx[1]#_g132900_|) '()))))) + (##unchecked-structure-set! __obj132926 __tmp133054 '14 '#f '#f)) + (let ((__tmp133056 + (cons (cons 'id |gx[1]#_g133057_|) + (cons (cons 'depth |gx[1]#_g133058_|) + (cons (cons 'e |gx[1]#_g133059_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132897 '15 '#f '#f)) - (let ((__tmp132901 - (cons (cons 'id |gx[1]#_g132902_|) - (cons (cons 'depth |gx[1]#_g132903_|) - (cons (cons 'e |gx[1]#_g132904_|) '()))))) + (##unchecked-structure-set! __obj132926 __tmp133056 '15 '#f '#f)) + (let ((__tmp133060 + (cons (cons 'id |gx[1]#_g133061_|) + (cons (cons 'depth |gx[1]#_g133062_|) + (cons (cons 'e |gx[1]#_g133063_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132901 '16 '#f '#f)) - (let ((__tmp132905 - (cons (cons 'id |gx[1]#_g132906_|) - (cons (cons 'depth |gx[1]#_g132907_|) - (cons (cons 'e |gx[1]#_g132908_|) '()))))) + (##unchecked-structure-set! __obj132926 __tmp133060 '16 '#f '#f)) + (let ((__tmp133064 + (cons (cons 'id |gx[1]#_g133065_|) + (cons (cons 'depth |gx[1]#_g133066_|) + (cons (cons 'e |gx[1]#_g133067_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132905 '17 '#f '#f)) - (let ((__tmp132909 - (cons (cons 'id |gx[1]#_g132910_|) - (cons (cons 'depth |gx[1]#_g132911_|) - (cons (cons 'e |gx[1]#_g132912_|) '()))))) + (##unchecked-structure-set! __obj132926 __tmp133064 '17 '#f '#f)) + (let ((__tmp133068 + (cons (cons 'id |gx[1]#_g133069_|) + (cons (cons 'depth |gx[1]#_g133070_|) + (cons (cons 'e |gx[1]#_g133071_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132909 '18 '#f '#f)) + (##unchecked-structure-set! __obj132926 __tmp133068 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj132926 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj132926 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '() '20 '#f '#f)) - __obj132767))) + (##unchecked-structure-set! __obj132926 '() '20 '#f '#f)) + __obj132926))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 377c26090..703b2b1d4 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 1713631266) + (define gerbil/expander/stx::timestamp 1733687559) (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 _%$args118009%_ - (apply make-instance gx#identifier-wrap::t _%$args118009%_))) + (lambda _%$args118168%_ + (apply make-instance gx#identifier-wrap::t _%$args118168%_))) (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 _%$args118006%_ - (apply make-instance gx#syntax-wrap::t _%$args118006%_))) + (lambda _%$args118165%_ + (apply make-instance gx#syntax-wrap::t _%$args118165%_))) (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 _%$args118003%_ - (apply make-instance gx#syntax-quote::t _%$args118003%_))) + (lambda _%$args118162%_ + (apply make-instance gx#syntax-quote::t _%$args118162%_))) (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 (_%stx118001%_) (symbol? (gx#stx-e _%stx118001%_)))) + (lambda (_%stx118160%_) (symbol? (gx#stx-e _%stx118160%_)))) (define gx#identifier-quote? - (lambda (_%stx117999%_) - (if (##structure-direct-instance-of? _%stx117999%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx117999%_ '1 '#f '#f)) + (lambda (_%stx118158%_) + (if (##structure-direct-instance-of? _%stx118158%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx118158%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx117994%_) - (if (##structure-direct-instance-of? _%stx117994%_ 'gx#syntax-quote::t) + (lambda (_%stx118153%_) + (if (##structure-direct-instance-of? _%stx118153%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx117994%_ + _%stx118153%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx117994%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx118153%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx117989%_) - (if (##structure-direct-instance-of? _%stx117989%_ 'gx#syntax-quote::t) - _%stx117989%_ + (lambda (_%stx118148%_) + (if (##structure-direct-instance-of? _%stx118148%_ 'gx#syntax-quote::t) + _%stx118148%_ (if (##structure-direct-instance-of? - _%stx117989%_ + _%stx118148%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx117989%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx118148%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx117963%_) - (if (##structure-direct-instance-of? _%stx117963%_ 'gx#syntax-wrap::t) - (let _%lp117966%_ ((_%e117968%_ + (lambda (_%stx118122%_) + (if (##structure-direct-instance-of? _%stx118122%_ 'gx#syntax-wrap::t) + (let _%lp118125%_ ((_%e118127%_ (##unchecked-structure-ref - _%stx117963%_ + _%stx118122%_ '1 '#f '#f)) - (_%marks117969%_ + (_%marks118128%_ (cons (##unchecked-structure-ref - _%stx117963%_ + _%stx118122%_ '3 '#f '#f) '()))) - (if (##structure? _%e117968%_) - (let ((_%$e117972%_ - (##type-id (##structure-type _%e117968%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e117972%_) - (_%lp117966%_ - (##unchecked-structure-ref _%e117968%_ '1 '#f '#f) + (if (##structure? _%e118127%_) + (let ((_%$e118131%_ + (##type-id (##structure-type _%e118127%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e118131%_) + (_%lp118125%_ + (##unchecked-structure-ref _%e118127%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e117968%_ '3 '#f '#f) - _%marks117969%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e117972%_) - (eq? 'gx#identifier-wrap::t _%$e117972%_)) - (##unchecked-structure-ref _%e117968%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e117972%_) - (_%lp117966%_ + (##unchecked-structure-ref _%e118127%_ '3 '#f '#f) + _%marks118128%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e118131%_) + (eq? 'gx#identifier-wrap::t _%$e118131%_)) + (##unchecked-structure-ref _%e118127%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e118131%_) + (_%lp118125%_ (##unchecked-structure-ref - _%e117968%_ + _%e118127%_ '1 '#f '#f) - _%marks117969%_) - _%e117968%_)))) - (if (null? _%marks117969%_) - _%e117968%_ - (if (pair? _%e117968%_) + _%marks118128%_) + _%e118127%_)))) + (if (null? _%marks118128%_) + _%e118127%_ + (if (pair? _%e118127%_) (cons (gx#stx-wrap - (##car _%e117968%_) - _%marks117969%_) + (##car _%e118127%_) + _%marks118128%_) (gx#stx-wrap - (##cdr _%e117968%_) - _%marks117969%_)) - (if (vector? _%e117968%_) + (##cdr _%e118127%_) + _%marks118128%_)) + (if (vector? _%e118127%_) (vector-map - (lambda (_%g117980117982%_) + (lambda (_%g118139118141%_) (gx#stx-wrap - _%g117980117982%_ - _%marks117969%_)) - _%e117968%_) - (if (box? _%e117968%_) + _%g118139118141%_ + _%marks118128%_)) + _%e118127%_) + (if (box? _%e118127%_) (box (gx#stx-wrap - (unbox _%e117968%_) - _%marks117969%_)) - _%e117968%_)))))) - (if (##structure-instance-of? _%stx117963%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117963%_ '1 '#f '#f) - _%stx117963%_)))) + (unbox _%e118127%_) + _%marks118128%_)) + _%e118127%_)))))) + (if (##structure-instance-of? _%stx118122%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx118122%_ '1 '#f '#f) + _%stx118122%_)))) (define gx#syntax->datum - (lambda (_%stx117956%_) - (if (##structure-instance-of? _%stx117956%_ 'gerbil#AST::t) + (lambda (_%stx118115%_) + (if (##structure-instance-of? _%stx118115%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx117956%_ '1 '#f '#f)) - (if (pair? _%stx117956%_) - (cons (gx#syntax->datum (##car _%stx117956%_)) - (gx#syntax->datum (##cdr _%stx117956%_))) - (if (vector? _%stx117956%_) - (vector-map gx#syntax->datum _%stx117956%_) - (if (box? _%stx117956%_) - (box (gx#syntax->datum (unbox _%stx117956%_))) - _%stx117956%_)))))) + (##unchecked-structure-ref _%stx118115%_ '1 '#f '#f)) + (if (pair? _%stx118115%_) + (cons (gx#syntax->datum (##car _%stx118115%_)) + (gx#syntax->datum (##cdr _%stx118115%_))) + (if (vector? _%stx118115%_) + (vector-map gx#syntax->datum _%stx118115%_) + (if (box? _%stx118115%_) + (box (gx#syntax->datum (unbox _%stx118115%_))) + _%stx118115%_)))))) (define gx#datum->syntax__% - (lambda (_%stx117890%_ _%datum117891%_ _%src117892%_ _%quote?117893%_) - (letrec ((_%wrap-datum117895%_ - (lambda (_%e117928%_ _%marks117929%_) - (_%wrap-inner117897%_ - _%e117928%_ - (lambda (_%g117930117932%_) + (lambda (_%stx118049%_ _%datum118050%_ _%src118051%_ _%quote?118052%_) + (letrec ((_%wrap-datum118054%_ + (lambda (_%e118087%_ _%marks118088%_) + (_%wrap-inner118056%_ + _%e118087%_ + (lambda (_%g118089118091%_) (##structure gx#identifier-wrap::t - _%g117930117932%_ - _%src117892%_ - _%marks117929%_))))) - (_%wrap-quote117896%_ - (lambda (_%e117920%_ _%ctx117921%_ _%marks117922%_) - (_%wrap-inner117897%_ - _%e117920%_ - (lambda (_%g117923117925%_) + _%g118089118091%_ + _%src118051%_ + _%marks118088%_))))) + (_%wrap-quote118055%_ + (lambda (_%e118079%_ _%ctx118080%_ _%marks118081%_) + (_%wrap-inner118056%_ + _%e118079%_ + (lambda (_%g118082118084%_) (##structure gx#syntax-quote::t - _%g117923117925%_ - _%src117892%_ - _%ctx117921%_ - _%marks117922%_))))) - (_%wrap-inner117897%_ - (lambda (_%e117908%_ _%wrap-e117909%_) - (let _%recur117911%_ ((_%e117913%_ _%e117908%_)) - (if (symbol? _%e117913%_) - (_%wrap-e117909%_ _%e117913%_) - (if (pair? _%e117913%_) - (cons (_%recur117911%_ (##car _%e117913%_)) - (_%recur117911%_ (##cdr _%e117913%_))) - (if (vector? _%e117913%_) - (vector-map _%recur117911%_ _%e117913%_) - (if (box? _%e117913%_) - (box (_%recur117911%_ - (unbox _%e117913%_))) - _%e117913%_))))))) - (_%wrap-outer117898%_ - (lambda (_%e117906%_) - (if (##structure-instance-of? _%e117906%_ 'gerbil#AST::t) - _%e117906%_ - (##structure gx#AST::t _%e117906%_ _%src117892%_))))) - (if (##structure-instance-of? _%datum117891%_ 'gerbil#AST::t) - _%datum117891%_ - (if (not _%stx117890%_) - (##structure gx#AST::t _%datum117891%_ _%src117892%_) - (if (gx#identifier? _%stx117890%_) - (let ((_%stx117903%_ (gx#stx-unwrap__0 _%stx117890%_))) - (_%wrap-outer117898%_ + _%g118082118084%_ + _%src118051%_ + _%ctx118080%_ + _%marks118081%_))))) + (_%wrap-inner118056%_ + (lambda (_%e118067%_ _%wrap-e118068%_) + (let _%recur118070%_ ((_%e118072%_ _%e118067%_)) + (if (symbol? _%e118072%_) + (_%wrap-e118068%_ _%e118072%_) + (if (pair? _%e118072%_) + (cons (_%recur118070%_ (##car _%e118072%_)) + (_%recur118070%_ (##cdr _%e118072%_))) + (if (vector? _%e118072%_) + (vector-map _%recur118070%_ _%e118072%_) + (if (box? _%e118072%_) + (box (_%recur118070%_ + (unbox _%e118072%_))) + _%e118072%_))))))) + (_%wrap-outer118057%_ + (lambda (_%e118065%_) + (if (##structure-instance-of? _%e118065%_ 'gerbil#AST::t) + _%e118065%_ + (##structure gx#AST::t _%e118065%_ _%src118051%_))))) + (if (##structure-instance-of? _%datum118050%_ 'gerbil#AST::t) + _%datum118050%_ + (if (not _%stx118049%_) + (##structure gx#AST::t _%datum118050%_ _%src118051%_) + (if (gx#identifier? _%stx118049%_) + (let ((_%stx118062%_ (gx#stx-unwrap__0 _%stx118049%_))) + (_%wrap-outer118057%_ (if (##structure-direct-instance-of? - _%stx117903%_ + _%stx118062%_ 'gx#syntax-quote::t) - (if _%quote?117893%_ - (_%wrap-quote117896%_ - _%datum117891%_ + (if _%quote?118052%_ + (_%wrap-quote118055%_ + _%datum118050%_ (##unchecked-structure-ref - _%stx117903%_ + _%stx118062%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx117903%_ + _%stx118062%_ '4 '#f '#f)) - (_%wrap-datum117895%_ - _%datum117891%_ + (_%wrap-datum118054%_ + _%datum118050%_ (##unchecked-structure-ref - _%stx117903%_ + _%stx118062%_ '4 '#f '#f))) - (_%wrap-datum117895%_ - _%datum117891%_ + (_%wrap-datum118054%_ + _%datum118050%_ (##unchecked-structure-ref - _%stx117903%_ + _%stx118062%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx117890%_))))))) + _%stx118049%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx117938%_ _%datum117939%_) - (let* ((_%src117941%_ '#f) (_%quote?117943%_ '#t)) + (lambda (_%stx118097%_ _%datum118098%_) + (let* ((_%src118100%_ '#f) (_%quote?118102%_ '#t)) (gx#datum->syntax__% - _%stx117938%_ - _%datum117939%_ - _%src117941%_ - _%quote?117943%_)))) + _%stx118097%_ + _%datum118098%_ + _%src118100%_ + _%quote?118102%_)))) (define gx#datum->syntax__1 - (lambda (_%stx117945%_ _%datum117946%_ _%src117947%_) - (let ((_%quote?117949%_ '#t)) + (lambda (_%stx118104%_ _%datum118105%_ _%src118106%_) + (let ((_%quote?118108%_ '#t)) (gx#datum->syntax__% - _%stx117945%_ - _%datum117946%_ - _%src117947%_ - _%quote?117949%_)))) + _%stx118104%_ + _%datum118105%_ + _%src118106%_ + _%quote?118108%_)))) (define gx#datum->syntax - (lambda _g118090_ - (let ((_g118089_ (##length _g118090_))) - (cond ((##fx= _g118089_ 2) (apply gx#datum->syntax__0 _g118090_)) - ((##fx= _g118089_ 3) (apply gx#datum->syntax__1 _g118090_)) - ((##fx= _g118089_ 4) (apply gx#datum->syntax__% _g118090_)) + (lambda _g118249_ + (let ((_g118248_ (##length _g118249_))) + (cond ((##fx= _g118248_ 2) (apply gx#datum->syntax__0 _g118249_)) + ((##fx= _g118248_ 3) (apply gx#datum->syntax__1 _g118249_)) + ((##fx= _g118248_ 4) (apply gx#datum->syntax__% _g118249_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g118090_)))))) + _g118249_)))))) (define gx#stx-unwrap__% - (lambda (_%stx117856%_ _%marks117857%_) - (let _%lp117859%_ ((_%e117861%_ _%stx117856%_) - (_%marks117862%_ _%marks117857%_) - (_%src117863%_ (gx#stx-source _%stx117856%_))) - (if (##structure-direct-instance-of? _%e117861%_ 'gx#syntax-wrap::t) - (_%lp117859%_ - (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) + (lambda (_%stx118015%_ _%marks118016%_) + (let _%lp118018%_ ((_%e118020%_ _%stx118015%_) + (_%marks118021%_ _%marks118016%_) + (_%src118022%_ (gx#stx-source _%stx118015%_))) + (if (##structure-direct-instance-of? _%e118020%_ 'gx#syntax-wrap::t) + (_%lp118018%_ + (##unchecked-structure-ref _%e118020%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e117861%_ '3 '#f '#f) - _%marks117862%_) - (##unchecked-structure-ref _%e117861%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e118020%_ '3 '#f '#f) + _%marks118021%_) + (##unchecked-structure-ref _%e118020%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e117861%_ + _%e118020%_ 'gx#identifier-wrap::t) - (if (null? _%marks117862%_) - _%e117861%_ + (if (null? _%marks118021%_) + _%e118020%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) - (##unchecked-structure-ref _%e117861%_ '2 '#f '#f) + (##unchecked-structure-ref _%e118020%_ '1 '#f '#f) + (##unchecked-structure-ref _%e118020%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e117861%_ '3 '#f '#f) - _%marks117862%_))) + (##unchecked-structure-ref _%e118020%_ '3 '#f '#f) + _%marks118021%_))) (if (##structure-direct-instance-of? - _%e117861%_ + _%e118020%_ 'gx#syntax-quote::t) - _%e117861%_ - (if (##structure-instance-of? _%e117861%_ 'gerbil#AST::t) - (_%lp117859%_ - (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) - _%marks117862%_ - (##unchecked-structure-ref _%e117861%_ '2 '#f '#f)) - (if (symbol? _%e117861%_) + _%e118020%_ + (if (##structure-instance-of? _%e118020%_ 'gerbil#AST::t) + (_%lp118018%_ + (##unchecked-structure-ref _%e118020%_ '1 '#f '#f) + _%marks118021%_ + (##unchecked-structure-ref _%e118020%_ '2 '#f '#f)) + (if (symbol? _%e118020%_) (##structure gx#identifier-wrap::t - _%e117861%_ - _%src117863%_ - (reverse _%marks117862%_)) - (if (null? _%marks117862%_) - _%e117861%_ - (if (pair? _%e117861%_) + _%e118020%_ + _%src118022%_ + (reverse _%marks118021%_)) + (if (null? _%marks118021%_) + _%e118020%_ + (if (pair? _%e118020%_) (cons (gx#stx-wrap - (##car _%e117861%_) - _%marks117862%_) + (##car _%e118020%_) + _%marks118021%_) (gx#stx-wrap - (##cdr _%e117861%_) - _%marks117862%_)) - (if (vector? _%e117861%_) + (##cdr _%e118020%_) + _%marks118021%_)) + (if (vector? _%e118020%_) (vector-map - (lambda (_%g117872117874%_) + (lambda (_%g118031118033%_) (gx#stx-wrap - _%g117872117874%_ - _%marks117862%_)) - _%e117861%_) - (if (box? _%e117861%_) + _%g118031118033%_ + _%marks118021%_)) + _%e118020%_) + (if (box? _%e118020%_) (box (gx#stx-wrap - (unbox _%e117861%_) - _%marks117862%_)) - _%e117861%_)))))))))))) + (unbox _%e118020%_) + _%marks118021%_)) + _%e118020%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx117882%_) - (let ((_%marks117884%_ '())) - (gx#stx-unwrap__% _%stx117882%_ _%marks117884%_)))) + (lambda (_%stx118041%_) + (let ((_%marks118043%_ '())) + (gx#stx-unwrap__% _%stx118041%_ _%marks118043%_)))) (define gx#stx-unwrap - (lambda _g118092_ - (let ((_g118091_ (##length _g118092_))) - (cond ((##fx= _g118091_ 1) (apply gx#stx-unwrap__0 _g118092_)) - ((##fx= _g118091_ 2) (apply gx#stx-unwrap__% _g118092_)) + (lambda _g118251_ + (let ((_g118250_ (##length _g118251_))) + (cond ((##fx= _g118250_ 1) (apply gx#stx-unwrap__0 _g118251_)) + ((##fx= _g118250_ 2) (apply gx#stx-unwrap__% _g118251_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g118092_)))))) + _g118251_)))))) (define gx#stx-wrap - (lambda (_%stx117849%_ _%marks117850%_) + (lambda (_%stx118008%_ _%marks118009%_) (__foldl1 - (lambda (_%mark117852%_ _%stx117853%_) - (gx#stx-apply-mark _%stx117853%_ _%mark117852%_)) - _%stx117849%_ - _%marks117850%_))) + (lambda (_%mark118011%_ _%stx118012%_) + (gx#stx-apply-mark _%stx118012%_ _%mark118011%_)) + _%stx118008%_ + _%marks118009%_))) (define gx#stx-rewrap - (lambda (_%stx117843%_ _%marks117844%_) + (lambda (_%stx118002%_ _%marks118003%_) (__foldr1 - (lambda (_%mark117846%_ _%stx117847%_) - (gx#stx-apply-mark _%stx117847%_ _%mark117846%_)) - _%stx117843%_ - _%marks117844%_))) + (lambda (_%mark118005%_ _%stx118006%_) + (gx#stx-apply-mark _%stx118006%_ _%mark118005%_)) + _%stx118002%_ + _%marks118003%_))) (define gx#stx-apply-mark - (lambda (_%stx117837%_ _%mark117838%_) - (if (##structure-direct-instance-of? _%stx117837%_ 'gx#syntax-quote::t) - _%stx117837%_ + (lambda (_%stx117996%_ _%mark117997%_) + (if (##structure-direct-instance-of? _%stx117996%_ 'gx#syntax-quote::t) + _%stx117996%_ (if (and (##structure-direct-instance-of? - _%stx117837%_ + _%stx117996%_ 'gx#syntax-wrap::t) - (eq? _%mark117838%_ + (eq? _%mark117997%_ (##unchecked-structure-ref - _%stx117837%_ + _%stx117996%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx117837%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx117996%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx117837%_ - (gx#stx-source _%stx117837%_) - _%mark117838%_))))) + _%stx117996%_ + (gx#stx-source _%stx117996%_) + _%mark117997%_))))) (define gx#apply-mark - (lambda (_%mark117801%_ _%marks117802%_) - (let* ((_%marks117803117811%_ _%marks117802%_) - (_%else117805117819%_ - (lambda () (cons _%mark117801%_ _%marks117802%_))) - (_%K117807117825%_ - (lambda (_%rest117822%_ _%hd117823%_) - (if (eq? _%mark117801%_ _%hd117823%_) - _%rest117822%_ - (cons _%mark117801%_ _%marks117802%_))))) - (if (pair? _%marks117803117811%_) - (let ((_%hd117808117828%_ (##car _%marks117803117811%_)) - (_%tl117809117830%_ (##cdr _%marks117803117811%_))) - (let* ((_%hd117833%_ _%hd117808117828%_) - (_%rest117835%_ _%tl117809117830%_)) - (_%K117807117825%_ _%rest117835%_ _%hd117833%_))) - (_%else117805117819%_))))) + (lambda (_%mark117960%_ _%marks117961%_) + (let* ((_%marks117962117970%_ _%marks117961%_) + (_%else117964117978%_ + (lambda () (cons _%mark117960%_ _%marks117961%_))) + (_%K117966117984%_ + (lambda (_%rest117981%_ _%hd117982%_) + (if (eq? _%mark117960%_ _%hd117982%_) + _%rest117981%_ + (cons _%mark117960%_ _%marks117961%_))))) + (if (pair? _%marks117962117970%_) + (let ((_%hd117967117987%_ (##car _%marks117962117970%_)) + (_%tl117968117989%_ (##cdr _%marks117962117970%_))) + (let* ((_%hd117992%_ _%hd117967117987%_) + (_%rest117994%_ _%tl117968117989%_)) + (_%K117966117984%_ _%rest117994%_ _%hd117992%_))) + (_%else117964117978%_))))) (define gx#stx-e - (lambda (_%stx117796%_) - (if (##structure-direct-instance-of? _%stx117796%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx117796%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx117796%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117796%_ '1 '#f '#f) - _%stx117796%_)))) + (lambda (_%stx117955%_) + (if (##structure-direct-instance-of? _%stx117955%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx117955%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx117955%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx117955%_ '1 '#f '#f) + _%stx117955%_)))) (define gx#stx-source - (lambda (_%stx117794%_) - (if (##structure-instance-of? _%stx117794%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117794%_ '2 '#f '#f) + (lambda (_%stx117953%_) + (if (##structure-instance-of? _%stx117953%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx117953%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx117788%_ _%src117789%_) - (if (or (##structure-instance-of? _%stx117788%_ 'gerbil#AST::t) - (not _%src117789%_)) - _%stx117788%_ - (##structure gx#AST::t _%stx117788%_ _%src117789%_)))) + (lambda (_%stx117947%_ _%src117948%_) + (if (or (##structure-instance-of? _%stx117947%_ 'gerbil#AST::t) + (not _%src117948%_)) + _%stx117947%_ + (##structure gx#AST::t _%stx117947%_ _%src117948%_)))) (define gx#stx-datum? - (lambda (_%stx117786%_) (gx#self-quoting? (gx#stx-e _%stx117786%_)))) + (lambda (_%stx117945%_) (gx#self-quoting? (gx#stx-e _%stx117945%_)))) (define gx#self-quoting? - (lambda (_%x117769%_) - (let ((_%$e117771%_ (immediate? _%x117769%_))) - (if _%$e117771%_ - _%$e117771%_ - (let ((_%$e117774%_ (number? _%x117769%_))) - (if _%$e117774%_ - _%$e117774%_ - (let ((_%$e117777%_ (keyword? _%x117769%_))) - (if _%$e117777%_ - _%$e117777%_ - (let ((_%$e117780%_ (string? _%x117769%_))) - (if _%$e117780%_ - _%$e117780%_ - (let ((_%$e117783%_ (vector? _%x117769%_))) - (if _%$e117783%_ - _%$e117783%_ - (u8vector? _%x117769%_))))))))))))) + (lambda (_%x117928%_) + (let ((_%$e117930%_ (immediate? _%x117928%_))) + (if _%$e117930%_ + _%$e117930%_ + (let ((_%$e117933%_ (number? _%x117928%_))) + (if _%$e117933%_ + _%$e117933%_ + (let ((_%$e117936%_ (keyword? _%x117928%_))) + (if _%$e117936%_ + _%$e117936%_ + (let ((_%$e117939%_ (string? _%x117928%_))) + (if _%$e117939%_ + _%$e117939%_ + (let ((_%$e117942%_ (vector? _%x117928%_))) + (if _%$e117942%_ + _%$e117942%_ + (u8vector? _%x117928%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e117767%_) (boolean? (gx#stx-e _%e117767%_)))) + (lambda (_%e117926%_) (boolean? (gx#stx-e _%e117926%_)))) (define gx#stx-keyword? - (lambda (_%e117765%_) (keyword? (gx#stx-e _%e117765%_)))) - (define gx#stx-char? (lambda (_%e117763%_) (char? (gx#stx-e _%e117763%_)))) + (lambda (_%e117924%_) (keyword? (gx#stx-e _%e117924%_)))) + (define gx#stx-char? (lambda (_%e117922%_) (char? (gx#stx-e _%e117922%_)))) (define gx#stx-number? - (lambda (_%e117761%_) (number? (gx#stx-e _%e117761%_)))) + (lambda (_%e117920%_) (number? (gx#stx-e _%e117920%_)))) (define gx#stx-fixnum? - (lambda (_%e117759%_) (fixnum? (gx#stx-e _%e117759%_)))) + (lambda (_%e117918%_) (fixnum? (gx#stx-e _%e117918%_)))) (define gx#stx-string? - (lambda (_%e117757%_) (string? (gx#stx-e _%e117757%_)))) - (define gx#stx-null? (lambda (_%e117755%_) (null? (gx#stx-e _%e117755%_)))) - (define gx#stx-pair? (lambda (_%e117753%_) (pair? (gx#stx-e _%e117753%_)))) + (lambda (_%e117916%_) (string? (gx#stx-e _%e117916%_)))) + (define gx#stx-null? (lambda (_%e117914%_) (null? (gx#stx-e _%e117914%_)))) + (define gx#stx-pair? (lambda (_%e117912%_) (pair? (gx#stx-e _%e117912%_)))) (define gx#stx-list? - (lambda (_%e117715%_) - (let* ((_%g117716117725%_ (gx#stx-e _%e117715%_)) - (_%E117719117729%_ + (lambda (_%e117874%_) + (let* ((_%g117875117884%_ (gx#stx-e _%e117874%_)) + (_%E117878117888%_ (lambda () (error '"No clause matching" - _%g117716117725%_ + _%g117875117884%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K117721117745%_ - (lambda (_%rest117743%_) (gx#stx-list? _%rest117743%_))) - (_%K117720117735%_ - (lambda (_%tail117733%_) (null? _%tail117733%_)))) - (if (pair? _%g117716117725%_) - (let* ((_%tl117723117748%_ (##cdr _%g117716117725%_)) - (_%rest117751%_ _%tl117723117748%_)) - (gx#stx-list? _%rest117751%_)) - (let ((_%tail117738%_ _%g117716117725%_)) - (null? _%tail117738%_))))))) + (let ((_%K117880117904%_ + (lambda (_%rest117902%_) (gx#stx-list? _%rest117902%_))) + (_%K117879117894%_ + (lambda (_%tail117892%_) (null? _%tail117892%_)))) + (if (pair? _%g117875117884%_) + (let* ((_%tl117882117907%_ (##cdr _%g117875117884%_)) + (_%rest117910%_ _%tl117882117907%_)) + (gx#stx-list? _%rest117910%_)) + (let ((_%tail117897%_ _%g117875117884%_)) + (null? _%tail117897%_))))))) (define gx#stx-pair/null? - (lambda (_%e117708%_) - (let* ((_%e117710%_ (gx#stx-e _%e117708%_)) - (_%$e117712%_ (pair? _%e117710%_))) - (if _%$e117712%_ _%$e117712%_ (null? _%e117710%_))))) + (lambda (_%e117867%_) + (let* ((_%e117869%_ (gx#stx-e _%e117867%_)) + (_%$e117871%_ (pair? _%e117869%_))) + (if _%$e117871%_ _%$e117871%_ (null? _%e117869%_))))) (define gx#stx-vector? - (lambda (_%e117706%_) (vector? (gx#stx-e _%e117706%_)))) - (define gx#stx-box? (lambda (_%e117704%_) (box? (gx#stx-e _%e117704%_)))) + (lambda (_%e117865%_) (vector? (gx#stx-e _%e117865%_)))) + (define gx#stx-box? (lambda (_%e117863%_) (box? (gx#stx-e _%e117863%_)))) (define gx#stx-eq? - (lambda (_%x117701%_ _%y117702%_) - (eq? (gx#stx-e _%x117701%_) (gx#stx-e _%y117702%_)))) + (lambda (_%x117860%_ _%y117861%_) + (eq? (gx#stx-e _%x117860%_) (gx#stx-e _%y117861%_)))) (define gx#stx-eqv? - (lambda (_%x117698%_ _%y117699%_) - (eqv? (gx#stx-e _%x117698%_) (gx#stx-e _%y117699%_)))) + (lambda (_%x117857%_ _%y117858%_) + (eqv? (gx#stx-e _%x117857%_) (gx#stx-e _%y117858%_)))) (define gx#stx-equal? - (lambda (_%x117695%_ _%y117696%_) - (equal? (gx#stx-e _%x117695%_) (gx#stx-e _%y117696%_)))) - (define gx#stx-false? (lambda (_%x117693%_) (not (gx#stx-e _%x117693%_)))) + (lambda (_%x117854%_ _%y117855%_) + (equal? (gx#stx-e _%x117854%_) (gx#stx-e _%y117855%_)))) + (define gx#stx-false? (lambda (_%x117852%_) (not (gx#stx-e _%x117852%_)))) (define gx#stx-identifier - (lambda (_%template117690%_ . _%args117691%_) + (lambda (_%template117849%_ . _%args117850%_) (gx#datum->syntax__1 - _%template117690%_ - (apply make-symbol (gx#syntax->datum _%args117691%_)) - (gx#stx-source _%template117690%_)))) + _%template117849%_ + (apply make-symbol (gx#syntax->datum _%args117850%_)) + (gx#stx-source _%template117849%_)))) (define gx#stx-identifier-marks - (lambda (_%stx117688%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117688%_)))) + (lambda (_%stx117847%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117847%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx117683%_) + (lambda (_%stx117842%_) (if (##structure-direct-instance-of? - _%stx117683%_ + _%stx117842%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx117683%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx117842%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx117683%_ + _%stx117842%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx117683%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx117842%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx117683%_))))) + _%stx117842%_))))) (define gx#stx-identifier-context - (lambda (_%stx117679%_) - (let ((_%stx117681%_ (gx#stx-unwrap__0 _%stx117679%_))) - (if (gx#identifier-quote? _%stx117681%_) - (##unchecked-structure-ref _%stx117681%_ '3 '#f '#f) + (lambda (_%stx117838%_) + (let ((_%stx117840%_ (gx#stx-unwrap__0 _%stx117838%_))) + (if (gx#identifier-quote? _%stx117840%_) + (##unchecked-structure-ref _%stx117840%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx117634%_) - (let* ((_%g117635117645%_ (gx#stx-e _%stx117634%_)) - (_%else117638117653%_ (lambda () '#f))) - (let ((_%K117641117667%_ - (lambda (_%rest117664%_ _%hd117665%_) - (if (gx#identifier? _%hd117665%_) - (gx#identifier-list? _%rest117664%_) + (lambda (_%stx117793%_) + (let* ((_%g117794117804%_ (gx#stx-e _%stx117793%_)) + (_%else117797117812%_ (lambda () '#f))) + (let ((_%K117800117826%_ + (lambda (_%rest117823%_ _%hd117824%_) + (if (gx#identifier? _%hd117824%_) + (gx#identifier-list? _%rest117823%_) '#f))) - (_%K117640117658%_ (lambda () '#t))) - (let ((_%try-match117637117661%_ + (_%K117799117817%_ (lambda () '#t))) + (let ((_%try-match117796117820%_ (lambda () - (if (null? _%g117635117645%_) - (_%K117640117658%_) - (_%else117638117653%_))))) - (if (pair? _%g117635117645%_) - (let ((_%tl117643117672%_ (##cdr _%g117635117645%_)) - (_%hd117642117670%_ (##car _%g117635117645%_))) - (let ((_%hd117675%_ _%hd117642117670%_) - (_%rest117677%_ _%tl117643117672%_)) - (_%K117641117667%_ _%rest117677%_ _%hd117675%_))) - (_%try-match117637117661%_))))))) + (if (null? _%g117794117804%_) + (_%K117799117817%_) + (_%else117797117812%_))))) + (if (pair? _%g117794117804%_) + (let ((_%tl117802117831%_ (##cdr _%g117794117804%_)) + (_%hd117801117829%_ (##car _%g117794117804%_))) + (let ((_%hd117834%_ _%hd117801117829%_) + (_%rest117836%_ _%tl117802117831%_)) + (_%K117800117826%_ _%rest117836%_ _%hd117834%_))) + (_%try-match117796117820%_))))))) (define gx#genident__% - (lambda (_%e117611%_ _%src117612%_) + (lambda (_%e117770%_ _%src117771%_) (gx#stx-wrap-source - (gensym (let ((_%e117614%_ (gx#stx-e _%e117611%_))) - (if (interned-symbol? _%e117614%_) _%e117614%_ 'g))) - (let ((_%$e117616%_ (gx#stx-source _%e117611%_))) - (if _%$e117616%_ _%$e117616%_ _%src117612%_))))) + (gensym (let ((_%e117773%_ (gx#stx-e _%e117770%_))) + (if (interned-symbol? _%e117773%_) _%e117773%_ 'g))) + (let ((_%$e117775%_ (gx#stx-source _%e117770%_))) + (if _%$e117775%_ _%$e117775%_ _%src117771%_))))) (define gx#genident__0 (lambda () - (let* ((_%e117623%_ 'g) (_%src117625%_ '#f)) - (gx#genident__% _%e117623%_ _%src117625%_)))) + (let* ((_%e117782%_ 'g) (_%src117784%_ '#f)) + (gx#genident__% _%e117782%_ _%src117784%_)))) (define gx#genident__1 - (lambda (_%e117627%_) - (let ((_%src117629%_ '#f)) - (gx#genident__% _%e117627%_ _%src117629%_)))) + (lambda (_%e117786%_) + (let ((_%src117788%_ '#f)) + (gx#genident__% _%e117786%_ _%src117788%_)))) (define gx#genident - (lambda _g118094_ - (let ((_g118093_ (##length _g118094_))) - (cond ((##fx= _g118093_ 0) (apply gx#genident__0 _g118094_)) - ((##fx= _g118093_ 1) (apply gx#genident__1 _g118094_)) - ((##fx= _g118093_ 2) (apply gx#genident__% _g118094_)) + (lambda _g118253_ + (let ((_g118252_ (##length _g118253_))) + (cond ((##fx= _g118252_ 0) (apply gx#genident__0 _g118253_)) + ((##fx= _g118252_ 1) (apply gx#genident__1 _g118253_)) + ((##fx= _g118252_ 2) (apply gx#genident__% _g118253_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g118094_)))))) + _g118253_)))))) (define gx#gentemps - (lambda (_%stx-lst117608%_) (gx#stx-map1 gx#genident _%stx-lst117608%_))) + (lambda (_%stx-lst117767%_) (gx#stx-map1 gx#genident _%stx-lst117767%_))) (define gx#syntax->list - (lambda (_%stx117606%_) (gx#stx-map1 values _%stx117606%_))) + (lambda (_%stx117765%_) (gx#stx-map1 values _%stx117765%_))) (define gx#stx-car - (lambda (_%stx117603%_) + (lambda (_%stx117762%_) (declare (safe)) - (car (gx#syntax-e _%stx117603%_)))) + (car (gx#syntax-e _%stx117762%_)))) (define gx#stx-cdr - (lambda (_%stx117600%_) + (lambda (_%stx117759%_) (declare (safe)) - (cdr (gx#syntax-e _%stx117600%_)))) + (cdr (gx#syntax-e _%stx117759%_)))) (define gx#stx-length - (lambda (_%stx117565%_) - (let _%lp117567%_ ((_%rest117569%_ _%stx117565%_) (_%n117570%_ '0)) - (let* ((_%g117571117579%_ (gx#stx-e _%rest117569%_)) - (_%else117573117587%_ (lambda () _%n117570%_)) - (_%K117575117592%_ - (lambda (_%rest117590%_) - (_%lp117567%_ _%rest117590%_ (##fx+ _%n117570%_ '1))))) - (if (pair? _%g117571117579%_) - (let* ((_%tl117577117595%_ (##cdr _%g117571117579%_)) - (_%rest117598%_ _%tl117577117595%_)) - (_%K117575117592%_ _%rest117598%_)) - (_%else117573117587%_)))))) + (lambda (_%stx117724%_) + (let _%lp117726%_ ((_%rest117728%_ _%stx117724%_) (_%n117729%_ '0)) + (let* ((_%g117730117738%_ (gx#stx-e _%rest117728%_)) + (_%else117732117746%_ (lambda () _%n117729%_)) + (_%K117734117751%_ + (lambda (_%rest117749%_) + (_%lp117726%_ _%rest117749%_ (##fx+ _%n117729%_ '1))))) + (if (pair? _%g117730117738%_) + (let* ((_%tl117736117754%_ (##cdr _%g117730117738%_)) + (_%rest117757%_ _%tl117736117754%_)) + (_%K117734117751%_ _%rest117757%_)) + (_%else117732117746%_)))))) (define gx#stx-for-each - (lambda _g118096_ - (let ((_g118095_ (##length _g118096_))) - (cond ((##fx= _g118095_ 2) (apply gx#stx-for-each1 _g118096_)) - ((##fx= _g118095_ 3) (apply gx#stx-for-each2 _g118096_)) + (lambda _g118255_ + (let ((_g118254_ (##length _g118255_))) + (cond ((##fx= _g118254_ 2) (apply gx#stx-for-each1 _g118255_)) + ((##fx= _g118254_ 3) (apply gx#stx-for-each2 _g118255_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g118096_)))))) + _g118255_)))))) (define gx#stx-for-each1 - (lambda (_%f117508%_ _%stx117509%_) - (if (procedure? _%f117508%_) + (lambda (_%f117667%_ _%stx117668%_) + (if (procedure? _%f117667%_) '#!void - (error '"expected procedure" _%f117508%_)) - (let _%lp117511%_ ((_%rest117513%_ _%stx117509%_)) - (let* ((_%g117514117524%_ (gx#syntax-e _%rest117513%_)) - (_%else117517117532%_ - (lambda () (_%f117508%_ _%rest117513%_)))) - (let ((_%K117520117546%_ - (lambda (_%rest117543%_ _%hd117544%_) - (_%f117508%_ _%hd117544%_) - (_%lp117511%_ _%rest117543%_))) - (_%K117519117537%_ (lambda () '#!void))) - (let ((_%try-match117516117540%_ + (error '"expected procedure" _%f117667%_)) + (let _%lp117670%_ ((_%rest117672%_ _%stx117668%_)) + (let* ((_%g117673117683%_ (gx#syntax-e _%rest117672%_)) + (_%else117676117691%_ + (lambda () (_%f117667%_ _%rest117672%_)))) + (let ((_%K117679117705%_ + (lambda (_%rest117702%_ _%hd117703%_) + (_%f117667%_ _%hd117703%_) + (_%lp117670%_ _%rest117702%_))) + (_%K117678117696%_ (lambda () '#!void))) + (let ((_%try-match117675117699%_ (lambda () - (if (null? _%g117514117524%_) - (_%K117519117537%_) - (_%else117517117532%_))))) - (if (pair? _%g117514117524%_) - (let ((_%tl117522117551%_ (##cdr _%g117514117524%_)) - (_%hd117521117549%_ (##car _%g117514117524%_))) - (let ((_%hd117554%_ _%hd117521117549%_) - (_%rest117556%_ _%tl117522117551%_)) - (_%K117520117546%_ _%rest117556%_ _%hd117554%_))) - (_%try-match117516117540%_)))))))) + (if (null? _%g117673117683%_) + (_%K117678117696%_) + (_%else117676117691%_))))) + (if (pair? _%g117673117683%_) + (let ((_%tl117681117710%_ (##cdr _%g117673117683%_)) + (_%hd117680117708%_ (##car _%g117673117683%_))) + (let ((_%hd117713%_ _%hd117680117708%_) + (_%rest117715%_ _%tl117681117710%_)) + (_%K117679117705%_ _%rest117715%_ _%hd117713%_))) + (_%try-match117675117699%_)))))))) (define gx#stx-for-each2 - (lambda (_%f117413%_ _%xstx117414%_ _%ystx117415%_) - (if (procedure? _%f117413%_) + (lambda (_%f117572%_ _%xstx117573%_ _%ystx117574%_) + (if (procedure? _%f117572%_) '#!void - (error '"expected procedure" _%f117413%_)) - (let _%lp117417%_ ((_%xrest117419%_ _%xstx117414%_) - (_%yrest117420%_ _%ystx117415%_)) - (let* ((_%g117421117431%_ (gx#syntax-e _%xrest117419%_)) - (_%else117424117439%_ (lambda () '#!void))) - (let ((_%K117427117496%_ - (lambda (_%xrest117465%_ _%xhd117466%_) - (let* ((_%g117467117474%_ (gx#syntax-e _%yrest117420%_)) - (_%E117469117478%_ + (error '"expected procedure" _%f117572%_)) + (let _%lp117576%_ ((_%xrest117578%_ _%xstx117573%_) + (_%yrest117579%_ _%ystx117574%_)) + (let* ((_%g117580117590%_ (gx#syntax-e _%xrest117578%_)) + (_%else117583117598%_ (lambda () '#!void))) + (let ((_%K117586117655%_ + (lambda (_%xrest117624%_ _%xhd117625%_) + (let* ((_%g117626117633%_ (gx#syntax-e _%yrest117579%_)) + (_%E117628117637%_ (lambda () (error '"No clause matching" - _%g117467117474%_ + _%g117626117633%_ '([yhd . yrest])) '#!void)) - (_%K117470117484%_ - (lambda (_%yrest117481%_ _%yhd117482%_) - (_%f117413%_ _%xhd117466%_ _%yhd117482%_) - (_%lp117417%_ - _%xrest117465%_ - _%yrest117481%_)))) - (if (pair? _%g117467117474%_) - (let ((_%hd117471117487%_ (##car _%g117467117474%_)) - (_%tl117472117489%_ - (##cdr _%g117467117474%_))) - (let* ((_%yhd117492%_ _%hd117471117487%_) - (_%yrest117494%_ _%tl117472117489%_)) - (_%K117470117484%_ - _%yrest117494%_ - _%yhd117492%_))) - (_%E117469117478%_))))) - (_%K117426117459%_ + (_%K117629117643%_ + (lambda (_%yrest117640%_ _%yhd117641%_) + (_%f117572%_ _%xhd117625%_ _%yhd117641%_) + (_%lp117576%_ + _%xrest117624%_ + _%yrest117640%_)))) + (if (pair? _%g117626117633%_) + (let ((_%hd117630117646%_ (##car _%g117626117633%_)) + (_%tl117631117648%_ + (##cdr _%g117626117633%_))) + (let* ((_%yhd117651%_ _%hd117630117646%_) + (_%yrest117653%_ _%tl117631117648%_)) + (_%K117629117643%_ + _%yrest117653%_ + _%yhd117651%_))) + (_%E117628117637%_))))) + (_%K117585117618%_ (lambda () - (let* ((_%yrest117443117448%_ _%yrest117420%_) - (_%E117445117452%_ + (let* ((_%yrest117602117607%_ _%yrest117579%_) + (_%E117604117611%_ (lambda () (error '"No clause matching" - _%yrest117443117448%_ + _%yrest117602117607%_ '((? (not stx-null?)))) '#!void)) - (_%K117446117456%_ + (_%K117605117615%_ (lambda () - (_%f117413%_ _%xrest117419%_ _%yrest117420%_)))) - (if (gx#stx-null? _%yrest117443117448%_) - (_%E117445117452%_) - (_%K117446117456%_)))))) - (let ((_%try-match117423117462%_ + (_%f117572%_ _%xrest117578%_ _%yrest117579%_)))) + (if (gx#stx-null? _%yrest117602117607%_) + (_%E117604117611%_) + (_%K117605117615%_)))))) + (let ((_%try-match117582117621%_ (lambda () - (if (null? _%g117421117431%_) - (_%else117424117439%_) - (_%K117426117459%_))))) - (if (pair? _%g117421117431%_) - (let ((_%tl117429117501%_ (##cdr _%g117421117431%_)) - (_%hd117428117499%_ (##car _%g117421117431%_))) - (let ((_%xhd117504%_ _%hd117428117499%_) - (_%xrest117506%_ _%tl117429117501%_)) - (_%K117427117496%_ _%xrest117506%_ _%xhd117504%_))) - (_%try-match117423117462%_)))))))) + (if (null? _%g117580117590%_) + (_%else117583117598%_) + (_%K117585117618%_))))) + (if (pair? _%g117580117590%_) + (let ((_%tl117588117660%_ (##cdr _%g117580117590%_)) + (_%hd117587117658%_ (##car _%g117580117590%_))) + (let ((_%xhd117663%_ _%hd117587117658%_) + (_%xrest117665%_ _%tl117588117660%_)) + (_%K117586117655%_ _%xrest117665%_ _%xhd117663%_))) + (_%try-match117582117621%_)))))))) (define gx#stx-map - (lambda _g118098_ - (let ((_g118097_ (##length _g118098_))) - (cond ((##fx= _g118097_ 2) (apply gx#stx-map1 _g118098_)) - ((##fx= _g118097_ 3) (apply gx#stx-map2 _g118098_)) + (lambda _g118257_ + (let ((_g118256_ (##length _g118257_))) + (cond ((##fx= _g118256_ 2) (apply gx#stx-map1 _g118257_)) + ((##fx= _g118256_ 3) (apply gx#stx-map2 _g118257_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g118098_)))))) + _g118257_)))))) (define gx#stx-map1 - (lambda (_%f117356%_ _%stx117357%_) - (if (procedure? _%f117356%_) + (lambda (_%f117515%_ _%stx117516%_) + (if (procedure? _%f117515%_) '#!void - (error '"expected procedure" _%f117356%_)) - (let _%recur117359%_ ((_%rest117361%_ _%stx117357%_)) - (let* ((_%g117362117372%_ (gx#syntax-e _%rest117361%_)) - (_%else117365117380%_ - (lambda () (_%f117356%_ _%rest117361%_)))) - (let ((_%K117368117394%_ - (lambda (_%rest117391%_ _%hd117392%_) - (cons (_%f117356%_ _%hd117392%_) - (_%recur117359%_ _%rest117391%_)))) - (_%K117367117385%_ (lambda () '()))) - (let ((_%try-match117364117388%_ + (error '"expected procedure" _%f117515%_)) + (let _%recur117518%_ ((_%rest117520%_ _%stx117516%_)) + (let* ((_%g117521117531%_ (gx#syntax-e _%rest117520%_)) + (_%else117524117539%_ + (lambda () (_%f117515%_ _%rest117520%_)))) + (let ((_%K117527117553%_ + (lambda (_%rest117550%_ _%hd117551%_) + (cons (_%f117515%_ _%hd117551%_) + (_%recur117518%_ _%rest117550%_)))) + (_%K117526117544%_ (lambda () '()))) + (let ((_%try-match117523117547%_ (lambda () - (if (null? _%g117362117372%_) - (_%K117367117385%_) - (_%else117365117380%_))))) - (if (pair? _%g117362117372%_) - (let ((_%tl117370117399%_ (##cdr _%g117362117372%_)) - (_%hd117369117397%_ (##car _%g117362117372%_))) - (let ((_%hd117402%_ _%hd117369117397%_) - (_%rest117404%_ _%tl117370117399%_)) - (_%K117368117394%_ _%rest117404%_ _%hd117402%_))) - (_%try-match117364117388%_)))))))) + (if (null? _%g117521117531%_) + (_%K117526117544%_) + (_%else117524117539%_))))) + (if (pair? _%g117521117531%_) + (let ((_%tl117529117558%_ (##cdr _%g117521117531%_)) + (_%hd117528117556%_ (##car _%g117521117531%_))) + (let ((_%hd117561%_ _%hd117528117556%_) + (_%rest117563%_ _%tl117529117558%_)) + (_%K117527117553%_ _%rest117563%_ _%hd117561%_))) + (_%try-match117523117547%_)))))))) (define gx#stx-map2 - (lambda (_%f117261%_ _%xstx117262%_ _%ystx117263%_) - (if (procedure? _%f117261%_) + (lambda (_%f117420%_ _%xstx117421%_ _%ystx117422%_) + (if (procedure? _%f117420%_) '#!void - (error '"expected procedure" _%f117261%_)) - (let _%recur117265%_ ((_%xrest117267%_ _%xstx117262%_) - (_%yrest117268%_ _%ystx117263%_)) - (let* ((_%g117269117279%_ (gx#syntax-e _%xrest117267%_)) - (_%else117272117287%_ (lambda () '()))) - (let ((_%K117275117344%_ - (lambda (_%xrest117313%_ _%xhd117314%_) - (let* ((_%g117315117322%_ (gx#syntax-e _%yrest117268%_)) - (_%E117317117326%_ + (error '"expected procedure" _%f117420%_)) + (let _%recur117424%_ ((_%xrest117426%_ _%xstx117421%_) + (_%yrest117427%_ _%ystx117422%_)) + (let* ((_%g117428117438%_ (gx#syntax-e _%xrest117426%_)) + (_%else117431117446%_ (lambda () '()))) + (let ((_%K117434117503%_ + (lambda (_%xrest117472%_ _%xhd117473%_) + (let* ((_%g117474117481%_ (gx#syntax-e _%yrest117427%_)) + (_%E117476117485%_ (lambda () (error '"No clause matching" - _%g117315117322%_ + _%g117474117481%_ '([yhd . yrest])) '#!void)) - (_%K117318117332%_ - (lambda (_%yrest117329%_ _%yhd117330%_) - (cons (_%f117261%_ _%xhd117314%_ _%yhd117330%_) - (_%recur117265%_ - _%xrest117313%_ - _%yrest117329%_))))) - (if (pair? _%g117315117322%_) - (let ((_%hd117319117335%_ (##car _%g117315117322%_)) - (_%tl117320117337%_ - (##cdr _%g117315117322%_))) - (let* ((_%yhd117340%_ _%hd117319117335%_) - (_%yrest117342%_ _%tl117320117337%_)) - (_%K117318117332%_ - _%yrest117342%_ - _%yhd117340%_))) - (_%E117317117326%_))))) - (_%K117274117307%_ + (_%K117477117491%_ + (lambda (_%yrest117488%_ _%yhd117489%_) + (cons (_%f117420%_ _%xhd117473%_ _%yhd117489%_) + (_%recur117424%_ + _%xrest117472%_ + _%yrest117488%_))))) + (if (pair? _%g117474117481%_) + (let ((_%hd117478117494%_ (##car _%g117474117481%_)) + (_%tl117479117496%_ + (##cdr _%g117474117481%_))) + (let* ((_%yhd117499%_ _%hd117478117494%_) + (_%yrest117501%_ _%tl117479117496%_)) + (_%K117477117491%_ + _%yrest117501%_ + _%yhd117499%_))) + (_%E117476117485%_))))) + (_%K117433117466%_ (lambda () - (let* ((_%yrest117291117296%_ _%yrest117268%_) - (_%E117293117300%_ + (let* ((_%yrest117450117455%_ _%yrest117427%_) + (_%E117452117459%_ (lambda () (error '"No clause matching" - _%yrest117291117296%_ + _%yrest117450117455%_ '((? (not stx-null?)))) '#!void)) - (_%K117294117304%_ + (_%K117453117463%_ (lambda () - (_%f117261%_ _%xrest117267%_ _%yrest117268%_)))) - (if (gx#stx-null? _%yrest117291117296%_) - (_%E117293117300%_) - (_%K117294117304%_)))))) - (let ((_%try-match117271117310%_ + (_%f117420%_ _%xrest117426%_ _%yrest117427%_)))) + (if (gx#stx-null? _%yrest117450117455%_) + (_%E117452117459%_) + (_%K117453117463%_)))))) + (let ((_%try-match117430117469%_ (lambda () - (if (null? _%g117269117279%_) - (_%else117272117287%_) - (_%K117274117307%_))))) - (if (pair? _%g117269117279%_) - (let ((_%tl117277117349%_ (##cdr _%g117269117279%_)) - (_%hd117276117347%_ (##car _%g117269117279%_))) - (let ((_%xhd117352%_ _%hd117276117347%_) - (_%xrest117354%_ _%tl117277117349%_)) - (_%K117275117344%_ _%xrest117354%_ _%xhd117352%_))) - (_%try-match117271117310%_)))))))) + (if (null? _%g117428117438%_) + (_%else117431117446%_) + (_%K117433117466%_))))) + (if (pair? _%g117428117438%_) + (let ((_%tl117436117508%_ (##cdr _%g117428117438%_)) + (_%hd117435117506%_ (##car _%g117428117438%_))) + (let ((_%xhd117511%_ _%hd117435117506%_) + (_%xrest117513%_ _%tl117436117508%_)) + (_%K117434117503%_ _%xrest117513%_ _%xhd117511%_))) + (_%try-match117430117469%_)))))))) (define gx#stx-andmap - (lambda (_%f117211%_ _%stx117212%_) - (if (procedure? _%f117211%_) + (lambda (_%f117370%_ _%stx117371%_) + (if (procedure? _%f117370%_) '#!void - (error '"expected procedure" _%f117211%_)) - (let _%lp117214%_ ((_%rest117216%_ _%stx117212%_)) - (let* ((_%g117217117227%_ (gx#syntax-e _%rest117216%_)) - (_%else117220117235%_ - (lambda () (_%f117211%_ _%rest117216%_)))) - (let ((_%K117223117249%_ - (lambda (_%rest117246%_ _%hd117247%_) - (if (_%f117211%_ _%hd117247%_) - (_%lp117214%_ _%rest117246%_) + (error '"expected procedure" _%f117370%_)) + (let _%lp117373%_ ((_%rest117375%_ _%stx117371%_)) + (let* ((_%g117376117386%_ (gx#syntax-e _%rest117375%_)) + (_%else117379117394%_ + (lambda () (_%f117370%_ _%rest117375%_)))) + (let ((_%K117382117408%_ + (lambda (_%rest117405%_ _%hd117406%_) + (if (_%f117370%_ _%hd117406%_) + (_%lp117373%_ _%rest117405%_) '#f))) - (_%K117222117240%_ (lambda () '#t))) - (let ((_%try-match117219117243%_ + (_%K117381117399%_ (lambda () '#t))) + (let ((_%try-match117378117402%_ (lambda () - (if (null? _%g117217117227%_) - (_%K117222117240%_) - (_%else117220117235%_))))) - (if (pair? _%g117217117227%_) - (let ((_%tl117225117254%_ (##cdr _%g117217117227%_)) - (_%hd117224117252%_ (##car _%g117217117227%_))) - (let ((_%hd117257%_ _%hd117224117252%_) - (_%rest117259%_ _%tl117225117254%_)) - (_%K117223117249%_ _%rest117259%_ _%hd117257%_))) - (_%try-match117219117243%_)))))))) + (if (null? _%g117376117386%_) + (_%K117381117399%_) + (_%else117379117394%_))))) + (if (pair? _%g117376117386%_) + (let ((_%tl117384117413%_ (##cdr _%g117376117386%_)) + (_%hd117383117411%_ (##car _%g117376117386%_))) + (let ((_%hd117416%_ _%hd117383117411%_) + (_%rest117418%_ _%tl117384117413%_)) + (_%K117382117408%_ _%rest117418%_ _%hd117416%_))) + (_%try-match117378117402%_)))))))) (define gx#stx-ormap - (lambda (_%f117158%_ _%stx117159%_) - (if (procedure? _%f117158%_) + (lambda (_%f117317%_ _%stx117318%_) + (if (procedure? _%f117317%_) '#!void - (error '"expected procedure" _%f117158%_)) - (let _%lp117161%_ ((_%rest117163%_ _%stx117159%_)) - (let* ((_%g117164117174%_ (gx#syntax-e _%rest117163%_)) - (_%else117167117182%_ - (lambda () (_%f117158%_ _%rest117163%_)))) - (let ((_%K117170117199%_ - (lambda (_%rest117193%_ _%hd117194%_) - (let ((_%$e117196%_ (_%f117158%_ _%hd117194%_))) - (if _%$e117196%_ - _%$e117196%_ - (_%lp117161%_ _%rest117193%_))))) - (_%K117169117187%_ (lambda () '#f))) - (let ((_%try-match117166117190%_ + (error '"expected procedure" _%f117317%_)) + (let _%lp117320%_ ((_%rest117322%_ _%stx117318%_)) + (let* ((_%g117323117333%_ (gx#syntax-e _%rest117322%_)) + (_%else117326117341%_ + (lambda () (_%f117317%_ _%rest117322%_)))) + (let ((_%K117329117358%_ + (lambda (_%rest117352%_ _%hd117353%_) + (let ((_%$e117355%_ (_%f117317%_ _%hd117353%_))) + (if _%$e117355%_ + _%$e117355%_ + (_%lp117320%_ _%rest117352%_))))) + (_%K117328117346%_ (lambda () '#f))) + (let ((_%try-match117325117349%_ (lambda () - (if (null? _%g117164117174%_) - (_%K117169117187%_) - (_%else117167117182%_))))) - (if (pair? _%g117164117174%_) - (let ((_%tl117172117204%_ (##cdr _%g117164117174%_)) - (_%hd117171117202%_ (##car _%g117164117174%_))) - (let ((_%hd117207%_ _%hd117171117202%_) - (_%rest117209%_ _%tl117172117204%_)) - (_%K117170117199%_ _%rest117209%_ _%hd117207%_))) - (_%try-match117166117190%_)))))))) + (if (null? _%g117323117333%_) + (_%K117328117346%_) + (_%else117326117341%_))))) + (if (pair? _%g117323117333%_) + (let ((_%tl117331117363%_ (##cdr _%g117323117333%_)) + (_%hd117330117361%_ (##car _%g117323117333%_))) + (let ((_%hd117366%_ _%hd117330117361%_) + (_%rest117368%_ _%tl117331117363%_)) + (_%K117329117358%_ _%rest117368%_ _%hd117366%_))) + (_%try-match117325117349%_)))))))) (define gx#stx-foldl - (lambda (_%f117106%_ _%iv117107%_ _%stx117108%_) - (if (procedure? _%f117106%_) + (lambda (_%f117265%_ _%iv117266%_ _%stx117267%_) + (if (procedure? _%f117265%_) '#!void - (error '"expected procedure" _%f117106%_)) - (let _%lp117110%_ ((_%r117112%_ _%iv117107%_) - (_%rest117113%_ _%stx117108%_)) - (let* ((_%g117114117124%_ (gx#syntax-e _%rest117113%_)) - (_%else117117117132%_ - (lambda () (_%f117106%_ _%rest117113%_ _%r117112%_)))) - (let ((_%K117120117146%_ - (lambda (_%rest117143%_ _%hd117144%_) - (_%lp117110%_ - (_%f117106%_ _%hd117144%_ _%r117112%_) - _%rest117143%_))) - (_%K117119117137%_ (lambda () _%r117112%_))) - (let ((_%try-match117116117140%_ + (error '"expected procedure" _%f117265%_)) + (let _%lp117269%_ ((_%r117271%_ _%iv117266%_) + (_%rest117272%_ _%stx117267%_)) + (let* ((_%g117273117283%_ (gx#syntax-e _%rest117272%_)) + (_%else117276117291%_ + (lambda () (_%f117265%_ _%rest117272%_ _%r117271%_)))) + (let ((_%K117279117305%_ + (lambda (_%rest117302%_ _%hd117303%_) + (_%lp117269%_ + (_%f117265%_ _%hd117303%_ _%r117271%_) + _%rest117302%_))) + (_%K117278117296%_ (lambda () _%r117271%_))) + (let ((_%try-match117275117299%_ (lambda () - (if (null? _%g117114117124%_) - (_%K117119117137%_) - (_%else117117117132%_))))) - (if (pair? _%g117114117124%_) - (let ((_%tl117122117151%_ (##cdr _%g117114117124%_)) - (_%hd117121117149%_ (##car _%g117114117124%_))) - (let ((_%hd117154%_ _%hd117121117149%_) - (_%rest117156%_ _%tl117122117151%_)) - (_%K117120117146%_ _%rest117156%_ _%hd117154%_))) - (_%try-match117116117140%_)))))))) + (if (null? _%g117273117283%_) + (_%K117278117296%_) + (_%else117276117291%_))))) + (if (pair? _%g117273117283%_) + (let ((_%tl117281117310%_ (##cdr _%g117273117283%_)) + (_%hd117280117308%_ (##car _%g117273117283%_))) + (let ((_%hd117313%_ _%hd117280117308%_) + (_%rest117315%_ _%tl117281117310%_)) + (_%K117279117305%_ _%rest117315%_ _%hd117313%_))) + (_%try-match117275117299%_)))))))) (define gx#stx-foldr - (lambda (_%f117055%_ _%iv117056%_ _%stx117057%_) - (if (procedure? _%f117055%_) + (lambda (_%f117214%_ _%iv117215%_ _%stx117216%_) + (if (procedure? _%f117214%_) '#!void - (error '"expected procedure" _%f117055%_)) - (let _%recur117059%_ ((_%rest117061%_ _%stx117057%_)) - (let* ((_%g117062117072%_ (gx#syntax-e _%rest117061%_)) - (_%else117065117080%_ - (lambda () (_%f117055%_ _%rest117061%_ _%iv117056%_)))) - (let ((_%K117068117094%_ - (lambda (_%rest117091%_ _%hd117092%_) - (_%f117055%_ - _%hd117092%_ - (_%recur117059%_ _%rest117091%_)))) - (_%K117067117085%_ (lambda () _%iv117056%_))) - (let ((_%try-match117064117088%_ + (error '"expected procedure" _%f117214%_)) + (let _%recur117218%_ ((_%rest117220%_ _%stx117216%_)) + (let* ((_%g117221117231%_ (gx#syntax-e _%rest117220%_)) + (_%else117224117239%_ + (lambda () (_%f117214%_ _%rest117220%_ _%iv117215%_)))) + (let ((_%K117227117253%_ + (lambda (_%rest117250%_ _%hd117251%_) + (_%f117214%_ + _%hd117251%_ + (_%recur117218%_ _%rest117250%_)))) + (_%K117226117244%_ (lambda () _%iv117215%_))) + (let ((_%try-match117223117247%_ (lambda () - (if (null? _%g117062117072%_) - (_%K117067117085%_) - (_%else117065117080%_))))) - (if (pair? _%g117062117072%_) - (let ((_%tl117070117099%_ (##cdr _%g117062117072%_)) - (_%hd117069117097%_ (##car _%g117062117072%_))) - (let ((_%hd117102%_ _%hd117069117097%_) - (_%rest117104%_ _%tl117070117099%_)) - (_%K117068117094%_ _%rest117104%_ _%hd117102%_))) - (_%try-match117064117088%_)))))))) + (if (null? _%g117221117231%_) + (_%K117226117244%_) + (_%else117224117239%_))))) + (if (pair? _%g117221117231%_) + (let ((_%tl117229117258%_ (##cdr _%g117221117231%_)) + (_%hd117228117256%_ (##car _%g117221117231%_))) + (let ((_%hd117261%_ _%hd117228117256%_) + (_%rest117263%_ _%tl117229117258%_)) + (_%K117227117253%_ _%rest117263%_ _%hd117261%_))) + (_%try-match117223117247%_)))))))) (define gx#stx-reverse - (lambda (_%stx117053%_) (gx#stx-foldl cons '() _%stx117053%_))) + (lambda (_%stx117212%_) (gx#stx-foldl cons '() _%stx117212%_))) (define gx#stx-last - (lambda (_%stx117014%_) - (let _%lp117016%_ ((_%rest117018%_ _%stx117014%_)) - (let* ((_%g117019117027%_ (gx#syntax-e _%rest117018%_)) - (_%else117021117035%_ (lambda () _%rest117018%_)) - (_%K117023117041%_ - (lambda (_%rest117038%_ _%hd117039%_) - (if (gx#stx-null? _%rest117038%_) - _%hd117039%_ - (_%lp117016%_ _%rest117038%_))))) - (if (pair? _%g117019117027%_) - (let ((_%hd117024117044%_ (##car _%g117019117027%_)) - (_%tl117025117046%_ (##cdr _%g117019117027%_))) - (let* ((_%hd117049%_ _%hd117024117044%_) - (_%rest117051%_ _%tl117025117046%_)) - (_%K117023117041%_ _%rest117051%_ _%hd117049%_))) - (_%else117021117035%_)))))) + (lambda (_%stx117173%_) + (let _%lp117175%_ ((_%rest117177%_ _%stx117173%_)) + (let* ((_%g117178117186%_ (gx#syntax-e _%rest117177%_)) + (_%else117180117194%_ (lambda () _%rest117177%_)) + (_%K117182117200%_ + (lambda (_%rest117197%_ _%hd117198%_) + (if (gx#stx-null? _%rest117197%_) + _%hd117198%_ + (_%lp117175%_ _%rest117197%_))))) + (if (pair? _%g117178117186%_) + (let ((_%hd117183117203%_ (##car _%g117178117186%_)) + (_%tl117184117205%_ (##cdr _%g117178117186%_))) + (let* ((_%hd117208%_ _%hd117183117203%_) + (_%rest117210%_ _%tl117184117205%_)) + (_%K117182117200%_ _%rest117210%_ _%hd117208%_))) + (_%else117180117194%_)))))) (define gx#stx-last-pair - (lambda (_%stx116985%_) - (let _%lp116987%_ ((_%hd116989%_ _%stx116985%_)) - (let* ((_%g116990116997%_ (gx#syntax-e _%hd116989%_)) - (_%E116992117001%_ + (lambda (_%stx117144%_) + (let _%lp117146%_ ((_%hd117148%_ _%stx117144%_)) + (let* ((_%g117149117156%_ (gx#syntax-e _%hd117148%_)) + (_%E117151117160%_ (lambda () (error '"No clause matching" - _%g116990116997%_ + _%g117149117156%_ '([_ . rest])) '#!void)) - (_%K116993117006%_ - (lambda (_%rest117004%_) - (if (gx#stx-pair? _%rest117004%_) - (_%lp116987%_ _%rest117004%_) - _%hd116989%_)))) - (if (pair? _%g116990116997%_) - (let* ((_%tl116995117009%_ (##cdr _%g116990116997%_)) - (_%rest117012%_ _%tl116995117009%_)) - (_%K116993117006%_ _%rest117012%_)) - (_%E116992117001%_)))))) + (_%K117152117165%_ + (lambda (_%rest117163%_) + (if (gx#stx-pair? _%rest117163%_) + (_%lp117146%_ _%rest117163%_) + _%hd117148%_)))) + (if (pair? _%g117149117156%_) + (let* ((_%tl117154117168%_ (##cdr _%g117149117156%_)) + (_%rest117171%_ _%tl117154117168%_)) + (_%K117152117165%_ _%rest117171%_)) + (_%E117151117160%_)))))) (define gx#stx-list-tail - (lambda (_%stx116954%_ _%k116955%_) - (let _%lp116957%_ ((_%rest116959%_ _%stx116954%_) - (_%k116960%_ _%k116955%_)) - (if (fxpositive? _%k116960%_) - (let* ((_%g116961116968%_ (gx#syntax-e _%rest116959%_)) - (_%E116963116972%_ + (lambda (_%stx117113%_ _%k117114%_) + (let _%lp117116%_ ((_%rest117118%_ _%stx117113%_) + (_%k117119%_ _%k117114%_)) + (if (fxpositive? _%k117119%_) + (let* ((_%g117120117127%_ (gx#syntax-e _%rest117118%_)) + (_%E117122117131%_ (lambda () (error '"No clause matching" - _%g116961116968%_ + _%g117120117127%_ '([_ . rest])) '#!void)) - (_%K116964116977%_ - (lambda (_%rest116975%_) - (_%lp116957%_ _%rest116975%_ (##fx- _%k116960%_ '1))))) - (if (pair? _%g116961116968%_) - (let* ((_%tl116966116980%_ (##cdr _%g116961116968%_)) - (_%rest116983%_ _%tl116966116980%_)) - (_%K116964116977%_ _%rest116983%_)) - (_%E116963116972%_))) - _%rest116959%_)))) + (_%K117123117136%_ + (lambda (_%rest117134%_) + (_%lp117116%_ _%rest117134%_ (##fx- _%k117119%_ '1))))) + (if (pair? _%g117120117127%_) + (let* ((_%tl117125117139%_ (##cdr _%g117120117127%_)) + (_%rest117142%_ _%tl117125117139%_)) + (_%K117123117136%_ _%rest117142%_)) + (_%E117122117131%_))) + _%rest117118%_)))) (define gx#stx-list-ref - (lambda (_%stx116951%_ _%k116952%_) - (gx#stx-car (gx#stx-list-tail _%stx116951%_ _%k116952%_)))) + (lambda (_%stx117110%_ _%k117111%_) + (gx#stx-car (gx#stx-list-tail _%stx117110%_ _%k117111%_)))) (define gx#stx-plist?__% - (lambda (_%stx116863%_ _%key?116864%_) - (if (procedure? _%key?116864%_) + (lambda (_%stx117022%_ _%key?117023%_) + (if (procedure? _%key?117023%_) '#!void - (error '"expected procedure" _%key?116864%_)) - (let _%lp116866%_ ((_%rest116868%_ _%stx116863%_)) - (let* ((_%g116869116879%_ (gx#stx-e _%rest116868%_)) - (_%else116872116887%_ (lambda () '#f))) - (let ((_%K116875116929%_ - (lambda (_%rest116898%_ _%hd116899%_) - (if (_%key?116864%_ _%hd116899%_) - (let* ((_%g116900116908%_ (gx#stx-e _%rest116898%_)) - (_%else116902116916%_ (lambda () '#f)) - (_%K116904116921%_ - (lambda (_%rest116919%_) - (_%lp116866%_ _%rest116919%_)))) - (if (pair? _%g116900116908%_) - (let* ((_%tl116906116924%_ - (##cdr _%g116900116908%_)) - (_%rest116927%_ _%tl116906116924%_)) - (_%lp116866%_ _%rest116927%_)) - (_%else116902116916%_))) + (error '"expected procedure" _%key?117023%_)) + (let _%lp117025%_ ((_%rest117027%_ _%stx117022%_)) + (let* ((_%g117028117038%_ (gx#stx-e _%rest117027%_)) + (_%else117031117046%_ (lambda () '#f))) + (let ((_%K117034117088%_ + (lambda (_%rest117057%_ _%hd117058%_) + (if (_%key?117023%_ _%hd117058%_) + (let* ((_%g117059117067%_ (gx#stx-e _%rest117057%_)) + (_%else117061117075%_ (lambda () '#f)) + (_%K117063117080%_ + (lambda (_%rest117078%_) + (_%lp117025%_ _%rest117078%_)))) + (if (pair? _%g117059117067%_) + (let* ((_%tl117065117083%_ + (##cdr _%g117059117067%_)) + (_%rest117086%_ _%tl117065117083%_)) + (_%lp117025%_ _%rest117086%_)) + (_%else117061117075%_))) '#f))) - (_%K116874116892%_ (lambda () '#t))) - (let ((_%try-match116871116895%_ + (_%K117033117051%_ (lambda () '#t))) + (let ((_%try-match117030117054%_ (lambda () - (if (null? _%g116869116879%_) - (_%K116874116892%_) - (_%else116872116887%_))))) - (if (pair? _%g116869116879%_) - (let ((_%tl116877116934%_ (##cdr _%g116869116879%_)) - (_%hd116876116932%_ (##car _%g116869116879%_))) - (let ((_%hd116937%_ _%hd116876116932%_) - (_%rest116939%_ _%tl116877116934%_)) - (_%K116875116929%_ _%rest116939%_ _%hd116937%_))) - (_%try-match116871116895%_)))))))) + (if (null? _%g117028117038%_) + (_%K117033117051%_) + (_%else117031117046%_))))) + (if (pair? _%g117028117038%_) + (let ((_%tl117036117093%_ (##cdr _%g117028117038%_)) + (_%hd117035117091%_ (##car _%g117028117038%_))) + (let ((_%hd117096%_ _%hd117035117091%_) + (_%rest117098%_ _%tl117036117093%_)) + (_%K117034117088%_ _%rest117098%_ _%hd117096%_))) + (_%try-match117030117054%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx116944%_) - (let ((_%key?116946%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx116944%_ _%key?116946%_)))) + (lambda (_%stx117103%_) + (let ((_%key?117105%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx117103%_ _%key?117105%_)))) (define gx#stx-plist? - (lambda _g118100_ - (let ((_g118099_ (##length _g118100_))) - (cond ((##fx= _g118099_ 1) (apply gx#stx-plist?__0 _g118100_)) - ((##fx= _g118099_ 2) (apply gx#stx-plist?__% _g118100_)) + (lambda _g118259_ + (let ((_g118258_ (##length _g118259_))) + (cond ((##fx= _g118258_ 1) (apply gx#stx-plist?__0 _g118259_)) + ((##fx= _g118258_ 2) (apply gx#stx-plist?__% _g118259_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g118100_)))))) + _g118259_)))))) (define gx#stx-getq__% - (lambda (_%key116781%_ _%stx116782%_ _%key=?116783%_) - (if (procedure? _%key=?116783%_) + (lambda (_%key116940%_ _%stx116941%_ _%key=?116942%_) + (if (procedure? _%key=?116942%_) '#!void - (error '"expected procedure" _%key=?116783%_)) - (let _%lp116785%_ ((_%rest116787%_ _%stx116782%_)) - (let* ((_%g116788116796%_ (gx#syntax-e _%rest116787%_)) - (_%else116790116804%_ (lambda () '#f)) - (_%K116792116838%_ - (lambda (_%rest116807%_ _%hd116808%_) - (let* ((_%g116809116816%_ (gx#syntax-e _%rest116807%_)) - (_%E116811116820%_ + (error '"expected procedure" _%key=?116942%_)) + (let _%lp116944%_ ((_%rest116946%_ _%stx116941%_)) + (let* ((_%g116947116955%_ (gx#syntax-e _%rest116946%_)) + (_%else116949116963%_ (lambda () '#f)) + (_%K116951116997%_ + (lambda (_%rest116966%_ _%hd116967%_) + (let* ((_%g116968116975%_ (gx#syntax-e _%rest116966%_)) + (_%E116970116979%_ (lambda () (error '"No clause matching" - _%g116809116816%_ + _%g116968116975%_ '([val . rest])) '#!void)) - (_%K116812116826%_ - (lambda (_%rest116823%_ _%val116824%_) - (if (_%key=?116783%_ _%hd116808%_ _%key116781%_) - _%val116824%_ - (_%lp116785%_ _%rest116823%_))))) - (if (pair? _%g116809116816%_) - (let ((_%hd116813116829%_ (##car _%g116809116816%_)) - (_%tl116814116831%_ (##cdr _%g116809116816%_))) - (let* ((_%val116834%_ _%hd116813116829%_) - (_%rest116836%_ _%tl116814116831%_)) - (_%K116812116826%_ - _%rest116836%_ - _%val116834%_))) - (_%E116811116820%_)))))) - (if (pair? _%g116788116796%_) - (let ((_%hd116793116841%_ (##car _%g116788116796%_)) - (_%tl116794116843%_ (##cdr _%g116788116796%_))) - (let* ((_%hd116846%_ _%hd116793116841%_) - (_%rest116848%_ _%tl116794116843%_)) - (_%K116792116838%_ _%rest116848%_ _%hd116846%_))) - (_%else116790116804%_)))))) + (_%K116971116985%_ + (lambda (_%rest116982%_ _%val116983%_) + (if (_%key=?116942%_ _%hd116967%_ _%key116940%_) + _%val116983%_ + (_%lp116944%_ _%rest116982%_))))) + (if (pair? _%g116968116975%_) + (let ((_%hd116972116988%_ (##car _%g116968116975%_)) + (_%tl116973116990%_ (##cdr _%g116968116975%_))) + (let* ((_%val116993%_ _%hd116972116988%_) + (_%rest116995%_ _%tl116973116990%_)) + (_%K116971116985%_ + _%rest116995%_ + _%val116993%_))) + (_%E116970116979%_)))))) + (if (pair? _%g116947116955%_) + (let ((_%hd116952117000%_ (##car _%g116947116955%_)) + (_%tl116953117002%_ (##cdr _%g116947116955%_))) + (let* ((_%hd117005%_ _%hd116952117000%_) + (_%rest117007%_ _%tl116953117002%_)) + (_%K116951116997%_ _%rest117007%_ _%hd117005%_))) + (_%else116949116963%_)))))) (define gx#stx-getq__0 - (lambda (_%key116853%_ _%stx116854%_) - (let ((_%key=?116856%_ gx#stx-eq?)) - (gx#stx-getq__% _%key116853%_ _%stx116854%_ _%key=?116856%_)))) + (lambda (_%key117012%_ _%stx117013%_) + (let ((_%key=?117015%_ gx#stx-eq?)) + (gx#stx-getq__% _%key117012%_ _%stx117013%_ _%key=?117015%_)))) (define gx#stx-getq - (lambda _g118102_ - (let ((_g118101_ (##length _g118102_))) - (cond ((##fx= _g118101_ 2) (apply gx#stx-getq__0 _g118102_)) - ((##fx= _g118101_ 3) (apply gx#stx-getq__% _g118102_)) + (lambda _g118261_ + (let ((_g118260_ (##length _g118261_))) + (cond ((##fx= _g118260_ 2) (apply gx#stx-getq__0 _g118261_)) + ((##fx= _g118260_ 3) (apply gx#stx-getq__% _g118261_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g118102_)))))))) + _g118261_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 3ec2d7b51..6787b15fe 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]#_g118104_| + (define |gx[1]#_g118263_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g118106_| + (define |gx[1]#_g118265_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118108_| + (define |gx[1]#_g118267_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118110_| + (define |gx[1]#_g118269_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118112_| + (define |gx[1]#_g118271_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118113_| + (define |gx[1]#_g118272_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118114_| + (define |gx[1]#_g118273_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118116_| + (define |gx[1]#_g118275_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118117_| + (define |gx[1]#_g118276_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118118_| + (define |gx[1]#_g118277_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118120_| + (define |gx[1]#_g118279_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118121_| + (define |gx[1]#_g118280_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118122_| + (define |gx[1]#_g118281_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118124_| + (define |gx[1]#_g118283_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118125_| + (define |gx[1]#_g118284_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118126_| + (define |gx[1]#_g118285_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118129_| + (define |gx[1]#_g118288_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118131_| + (define |gx[1]#_g118290_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118133_| + (define |gx[1]#_g118292_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118135_| + (define |gx[1]#_g118294_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118136_| + (define |gx[1]#_g118295_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118137_| + (define |gx[1]#_g118296_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118139_| + (define |gx[1]#_g118298_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118140_| + (define |gx[1]#_g118299_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118141_| + (define |gx[1]#_g118300_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118143_| + (define |gx[1]#_g118302_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118144_| + (define |gx[1]#_g118303_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118145_| + (define |gx[1]#_g118304_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118147_| + (define |gx[1]#_g118306_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118148_| + (define |gx[1]#_g118307_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118149_| + (define |gx[1]#_g118308_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118152_| + (define |gx[1]#_g118311_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118154_| + (define |gx[1]#_g118313_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g118156_| + (define |gx[1]#_g118315_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118158_| + (define |gx[1]#_g118317_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118159_| + (define |gx[1]#_g118318_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118160_| + (define |gx[1]#_g118319_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118161_| + (define |gx[1]#_g118320_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118163_| + (define |gx[1]#_g118322_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118164_| + (define |gx[1]#_g118323_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118165_| + (define |gx[1]#_g118324_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118166_| + (define |gx[1]#_g118325_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118168_| + (define |gx[1]#_g118327_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118169_| + (define |gx[1]#_g118328_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118170_| + (define |gx[1]#_g118329_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118171_| + (define |gx[1]#_g118330_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118173_| + (define |gx[1]#_g118332_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118174_| + (define |gx[1]#_g118333_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118175_| + (define |gx[1]#_g118334_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118176_| + (define |gx[1]#_g118335_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj118086 + (let ((__obj118245 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118086 + __obj118245 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118245 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118245 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118086 + __obj118245 '(e source marks) '6 '#f '#f)) - (let ((__tmp118103 (cons |gx[1]#_g118104_| '()))) + (let ((__tmp118262 (cons |gx[1]#_g118263_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118103 '3 '#f '#f)) + (##unchecked-structure-set! __obj118245 __tmp118262 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118245 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118245 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118245 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#f '11 '#f '#f)) - (let ((__tmp118105 |gx[1]#_g118106_|)) + (##unchecked-structure-set! __obj118245 '#f '11 '#f '#f)) + (let ((__tmp118264 |gx[1]#_g118265_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118105 '12 '#f '#f)) - (let ((__tmp118107 |gx[1]#_g118108_|)) + (##unchecked-structure-set! __obj118245 __tmp118264 '12 '#f '#f)) + (let ((__tmp118266 |gx[1]#_g118267_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118107 '13 '#f '#f)) - (let ((__tmp118109 |gx[1]#_g118110_|)) + (##unchecked-structure-set! __obj118245 __tmp118266 '13 '#f '#f)) + (let ((__tmp118268 |gx[1]#_g118269_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118109 '14 '#f '#f)) - (let ((__tmp118111 - (cons (cons 'marks |gx[1]#_g118112_|) - (cons (cons 'e |gx[1]#_g118113_|) - (cons (cons 'source |gx[1]#_g118114_|) '()))))) + (##unchecked-structure-set! __obj118245 __tmp118268 '14 '#f '#f)) + (let ((__tmp118270 + (cons (cons 'marks |gx[1]#_g118271_|) + (cons (cons 'e |gx[1]#_g118272_|) + (cons (cons 'source |gx[1]#_g118273_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118111 '15 '#f '#f)) - (let ((__tmp118115 - (cons (cons 'marks |gx[1]#_g118116_|) - (cons (cons 'e |gx[1]#_g118117_|) - (cons (cons 'source |gx[1]#_g118118_|) '()))))) + (##unchecked-structure-set! __obj118245 __tmp118270 '15 '#f '#f)) + (let ((__tmp118274 + (cons (cons 'marks |gx[1]#_g118275_|) + (cons (cons 'e |gx[1]#_g118276_|) + (cons (cons 'source |gx[1]#_g118277_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118115 '16 '#f '#f)) - (let ((__tmp118119 - (cons (cons 'marks |gx[1]#_g118120_|) - (cons (cons 'e |gx[1]#_g118121_|) - (cons (cons 'source |gx[1]#_g118122_|) '()))))) + (##unchecked-structure-set! __obj118245 __tmp118274 '16 '#f '#f)) + (let ((__tmp118278 + (cons (cons 'marks |gx[1]#_g118279_|) + (cons (cons 'e |gx[1]#_g118280_|) + (cons (cons 'source |gx[1]#_g118281_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118119 '17 '#f '#f)) - (let ((__tmp118123 - (cons (cons 'marks |gx[1]#_g118124_|) - (cons (cons 'e |gx[1]#_g118125_|) - (cons (cons 'source |gx[1]#_g118126_|) '()))))) + (##unchecked-structure-set! __obj118245 __tmp118278 '17 '#f '#f)) + (let ((__tmp118282 + (cons (cons 'marks |gx[1]#_g118283_|) + (cons (cons 'e |gx[1]#_g118284_|) + (cons (cons 'source |gx[1]#_g118285_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118123 '18 '#f '#f)) + (##unchecked-structure-set! __obj118245 __tmp118282 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118245 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118245 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '() '20 '#f '#f)) - __obj118086)) + (##unchecked-structure-set! __obj118245 '() '20 '#f '#f)) + __obj118245)) (define |gx[:0:]#syntax-wrap| - (let ((__obj118087 + (let ((__obj118246 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118087 + __obj118246 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118246 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj118246 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '(e source mark) '6 '#f '#f)) - (let ((__tmp118127 (cons |gx[1]#_g118104_| '()))) + (##unchecked-structure-set! __obj118246 '(e source mark) '6 '#f '#f)) + (let ((__tmp118286 (cons |gx[1]#_g118263_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118127 '3 '#f '#f)) + (##unchecked-structure-set! __obj118246 __tmp118286 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118246 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118246 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118246 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#f '11 '#f '#f)) - (let ((__tmp118128 |gx[1]#_g118129_|)) + (##unchecked-structure-set! __obj118246 '#f '11 '#f '#f)) + (let ((__tmp118287 |gx[1]#_g118288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118128 '12 '#f '#f)) - (let ((__tmp118130 |gx[1]#_g118131_|)) + (##unchecked-structure-set! __obj118246 __tmp118287 '12 '#f '#f)) + (let ((__tmp118289 |gx[1]#_g118290_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118130 '13 '#f '#f)) - (let ((__tmp118132 |gx[1]#_g118133_|)) + (##unchecked-structure-set! __obj118246 __tmp118289 '13 '#f '#f)) + (let ((__tmp118291 |gx[1]#_g118292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118132 '14 '#f '#f)) - (let ((__tmp118134 - (cons (cons 'mark |gx[1]#_g118135_|) - (cons (cons 'e |gx[1]#_g118136_|) - (cons (cons 'source |gx[1]#_g118137_|) '()))))) + (##unchecked-structure-set! __obj118246 __tmp118291 '14 '#f '#f)) + (let ((__tmp118293 + (cons (cons 'mark |gx[1]#_g118294_|) + (cons (cons 'e |gx[1]#_g118295_|) + (cons (cons 'source |gx[1]#_g118296_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118134 '15 '#f '#f)) - (let ((__tmp118138 - (cons (cons 'mark |gx[1]#_g118139_|) - (cons (cons 'e |gx[1]#_g118140_|) - (cons (cons 'source |gx[1]#_g118141_|) '()))))) + (##unchecked-structure-set! __obj118246 __tmp118293 '15 '#f '#f)) + (let ((__tmp118297 + (cons (cons 'mark |gx[1]#_g118298_|) + (cons (cons 'e |gx[1]#_g118299_|) + (cons (cons 'source |gx[1]#_g118300_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118138 '16 '#f '#f)) - (let ((__tmp118142 - (cons (cons 'mark |gx[1]#_g118143_|) - (cons (cons 'e |gx[1]#_g118144_|) - (cons (cons 'source |gx[1]#_g118145_|) '()))))) + (##unchecked-structure-set! __obj118246 __tmp118297 '16 '#f '#f)) + (let ((__tmp118301 + (cons (cons 'mark |gx[1]#_g118302_|) + (cons (cons 'e |gx[1]#_g118303_|) + (cons (cons 'source |gx[1]#_g118304_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118142 '17 '#f '#f)) - (let ((__tmp118146 - (cons (cons 'mark |gx[1]#_g118147_|) - (cons (cons 'e |gx[1]#_g118148_|) - (cons (cons 'source |gx[1]#_g118149_|) '()))))) + (##unchecked-structure-set! __obj118246 __tmp118301 '17 '#f '#f)) + (let ((__tmp118305 + (cons (cons 'mark |gx[1]#_g118306_|) + (cons (cons 'e |gx[1]#_g118307_|) + (cons (cons 'source |gx[1]#_g118308_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118146 '18 '#f '#f)) + (##unchecked-structure-set! __obj118246 __tmp118305 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118246 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118246 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '() '20 '#f '#f)) - __obj118087)) + (##unchecked-structure-set! __obj118246 '() '20 '#f '#f)) + __obj118246)) (define |gx[:0:]#syntax-quote| - (let ((__obj118088 + (let ((__obj118247 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118088 + __obj118247 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118247 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118247 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118088 + __obj118247 '(e source context marks) '6 '#f '#f)) - (let ((__tmp118150 (cons |gx[1]#_g118104_| '()))) + (let ((__tmp118309 (cons |gx[1]#_g118263_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118150 '3 '#f '#f)) + (##unchecked-structure-set! __obj118247 __tmp118309 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118247 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118247 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118247 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#f '11 '#f '#f)) - (let ((__tmp118151 |gx[1]#_g118152_|)) + (##unchecked-structure-set! __obj118247 '#f '11 '#f '#f)) + (let ((__tmp118310 |gx[1]#_g118311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118151 '12 '#f '#f)) - (let ((__tmp118153 |gx[1]#_g118154_|)) + (##unchecked-structure-set! __obj118247 __tmp118310 '12 '#f '#f)) + (let ((__tmp118312 |gx[1]#_g118313_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118153 '13 '#f '#f)) - (let ((__tmp118155 |gx[1]#_g118156_|)) + (##unchecked-structure-set! __obj118247 __tmp118312 '13 '#f '#f)) + (let ((__tmp118314 |gx[1]#_g118315_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118155 '14 '#f '#f)) - (let ((__tmp118157 - (cons (cons 'context |gx[1]#_g118158_|) - (cons (cons 'marks |gx[1]#_g118159_|) - (cons (cons 'e |gx[1]#_g118160_|) - (cons (cons 'source |gx[1]#_g118161_|) + (##unchecked-structure-set! __obj118247 __tmp118314 '14 '#f '#f)) + (let ((__tmp118316 + (cons (cons 'context |gx[1]#_g118317_|) + (cons (cons 'marks |gx[1]#_g118318_|) + (cons (cons 'e |gx[1]#_g118319_|) + (cons (cons 'source |gx[1]#_g118320_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118157 '15 '#f '#f)) - (let ((__tmp118162 - (cons (cons 'context |gx[1]#_g118163_|) - (cons (cons 'marks |gx[1]#_g118164_|) - (cons (cons 'e |gx[1]#_g118165_|) - (cons (cons 'source |gx[1]#_g118166_|) + (##unchecked-structure-set! __obj118247 __tmp118316 '15 '#f '#f)) + (let ((__tmp118321 + (cons (cons 'context |gx[1]#_g118322_|) + (cons (cons 'marks |gx[1]#_g118323_|) + (cons (cons 'e |gx[1]#_g118324_|) + (cons (cons 'source |gx[1]#_g118325_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118162 '16 '#f '#f)) - (let ((__tmp118167 - (cons (cons 'context |gx[1]#_g118168_|) - (cons (cons 'marks |gx[1]#_g118169_|) - (cons (cons 'e |gx[1]#_g118170_|) - (cons (cons 'source |gx[1]#_g118171_|) + (##unchecked-structure-set! __obj118247 __tmp118321 '16 '#f '#f)) + (let ((__tmp118326 + (cons (cons 'context |gx[1]#_g118327_|) + (cons (cons 'marks |gx[1]#_g118328_|) + (cons (cons 'e |gx[1]#_g118329_|) + (cons (cons 'source |gx[1]#_g118330_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118167 '17 '#f '#f)) - (let ((__tmp118172 - (cons (cons 'context |gx[1]#_g118173_|) - (cons (cons 'marks |gx[1]#_g118174_|) - (cons (cons 'e |gx[1]#_g118175_|) - (cons (cons 'source |gx[1]#_g118176_|) + (##unchecked-structure-set! __obj118247 __tmp118326 '17 '#f '#f)) + (let ((__tmp118331 + (cons (cons 'context |gx[1]#_g118332_|) + (cons (cons 'marks |gx[1]#_g118333_|) + (cons (cons 'e |gx[1]#_g118334_|) + (cons (cons 'source |gx[1]#_g118335_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118172 '18 '#f '#f)) + (##unchecked-structure-set! __obj118247 __tmp118331 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118247 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118247 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '() '20 '#f '#f)) - __obj118088)))) + (##unchecked-structure-set! __obj118247 '() '20 '#f '#f)) + __obj118247)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 4cde01989..57ddb21fa 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 1713631266) + (define gerbil/expander/top::timestamp 1733687559) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx125139%_) - (letrec ((_%expand-special125141%_ - (lambda (_%hd125143%_ _%K125144%_ _%rest125145%_ _%r125146%_) - (_%K125144%_ - _%rest125145%_ - (cons (gx#core-expand-top _%hd125143%_) _%r125146%_))))) - (gx#core-expand-block__0 _%stx125139%_ _%expand-special125141%_)))) + (lambda (_%stx125298%_) + (letrec ((_%expand-special125300%_ + (lambda (_%hd125302%_ _%K125303%_ _%rest125304%_ _%r125305%_) + (_%K125303%_ + _%rest125304%_ + (cons (gx#core-expand-top _%hd125302%_) _%r125305%_))))) + (gx#core-expand-block__0 _%stx125298%_ _%expand-special125300%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx124892%_) - (letrec ((_%expand-special124894%_ - (lambda (_%hd125014%_ _%K125015%_ _%rest125016%_ _%r125017%_) - (let* ((_%K125021%_ - (lambda (_%e125019%_) - (_%K125015%_ - _%rest125016%_ - (cons _%e125019%_ _%r125017%_)))) - (_%e125022125051%_ _%hd125014%_) - (_%E125046125055%_ + (lambda (_%stx125051%_) + (letrec ((_%expand-special125053%_ + (lambda (_%hd125173%_ _%K125174%_ _%rest125175%_ _%r125176%_) + (let* ((_%K125180%_ + (lambda (_%e125178%_) + (_%K125174%_ + _%rest125175%_ + (cons _%e125178%_ _%r125176%_)))) + (_%e125181125210%_ _%hd125173%_) + (_%E125205125214%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125022125051%_))) - (_%E125042125067%_ + _%e125181125210%_))) + (_%E125201125226%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125047125059%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125048125062%_ - (##car _%e125047125059%_)) - (_%tl125049125064%_ - (##cdr _%e125047125059%_))) + (if (gx#stx-pair? _%e125181125210%_) + (let ((_%e125206125218%_ + (gx#syntax-e _%e125181125210%_))) + (let ((_%hd125207125221%_ + (##car _%e125206125218%_)) + (_%tl125208125223%_ + (##cdr _%e125206125218%_))) (if (and (gx#identifier? - _%hd125048125062%_) + _%hd125207125221%_) (gx#core-identifier=? - _%hd125048125062%_ + _%hd125207125221%_ '%#define-runtime)) - (_%K125021%_ + (_%K125180%_ (gx#core-expand-define-runtime% - _%hd125014%_)) - (_%E125046125055%_)))) - (_%E125046125055%_)))) - (_%E125038125079%_ + _%hd125173%_)) + (_%E125205125214%_)))) + (_%E125205125214%_)))) + (_%E125197125238%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125043125071%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125044125074%_ - (##car _%e125043125071%_)) - (_%tl125045125076%_ - (##cdr _%e125043125071%_))) + (if (gx#stx-pair? _%e125181125210%_) + (let ((_%e125202125230%_ + (gx#syntax-e _%e125181125210%_))) + (let ((_%hd125203125233%_ + (##car _%e125202125230%_)) + (_%tl125204125235%_ + (##cdr _%e125202125230%_))) (if (and (gx#identifier? - _%hd125044125074%_) + _%hd125203125233%_) (gx#core-identifier=? - _%hd125044125074%_ + _%hd125203125233%_ '%#define-alias)) - (_%K125021%_ + (_%K125180%_ (gx#core-expand-define-alias% - _%hd125014%_)) - (_%E125042125067%_)))) - (_%E125042125067%_)))) - (_%E125028125091%_ + _%hd125173%_)) + (_%E125201125226%_)))) + (_%E125201125226%_)))) + (_%E125187125250%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125039125083%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125040125086%_ - (##car _%e125039125083%_)) - (_%tl125041125088%_ - (##cdr _%e125039125083%_))) + (if (gx#stx-pair? _%e125181125210%_) + (let ((_%e125198125242%_ + (gx#syntax-e _%e125181125210%_))) + (let ((_%hd125199125245%_ + (##car _%e125198125242%_)) + (_%tl125200125247%_ + (##cdr _%e125198125242%_))) (if (and (gx#identifier? - _%hd125040125086%_) + _%hd125199125245%_) (gx#core-identifier=? - _%hd125040125086%_ + _%hd125199125245%_ '%#define-syntax)) - (_%K125021%_ + (_%K125180%_ (gx#core-expand-define-syntax% - _%hd125014%_)) - (_%E125038125079%_)))) - (_%E125038125079%_)))) - (_%E125024125123%_ + _%hd125173%_)) + (_%E125197125238%_)))) + (_%E125197125238%_)))) + (_%E125183125282%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125029125095%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125030125098%_ - (##car _%e125029125095%_)) - (_%tl125031125100%_ - (##cdr _%e125029125095%_))) + (if (gx#stx-pair? _%e125181125210%_) + (let ((_%e125188125254%_ + (gx#syntax-e _%e125181125210%_))) + (let ((_%hd125189125257%_ + (##car _%e125188125254%_)) + (_%tl125190125259%_ + (##cdr _%e125188125254%_))) (if (and (gx#identifier? - _%hd125030125098%_) + _%hd125189125257%_) (gx#core-identifier=? - _%hd125030125098%_ + _%hd125189125257%_ '%#define-values)) - (if (gx#stx-pair? _%tl125031125100%_) - (let ((_%e125032125103%_ + (if (gx#stx-pair? _%tl125190125259%_) + (let ((_%e125191125262%_ (gx#syntax-e - _%tl125031125100%_))) - (let ((_%hd125033125106%_ - (##car _%e125032125103%_)) - (_%tl125034125108%_ - (##cdr _%e125032125103%_))) - (let ((_%hd-bind125111%_ - _%hd125033125106%_)) + _%tl125190125259%_))) + (let ((_%hd125192125265%_ + (##car _%e125191125262%_)) + (_%tl125193125267%_ + (##cdr _%e125191125262%_))) + (let ((_%hd-bind125270%_ + _%hd125192125265%_)) (if (gx#stx-pair? - _%tl125034125108%_) - (let ((_%e125035125113%_ + _%tl125193125267%_) + (let ((_%e125194125272%_ (gx#syntax-e - _%tl125034125108%_))) - (let ((_%hd125036125116%_ + _%tl125193125267%_))) + (let ((_%hd125195125275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125035125113%_)) - (_%tl125037125118%_ (##cdr _%e125035125113%_))) - (let ((_%expr125121%_ _%hd125036125116%_)) - (if (gx#stx-null? _%tl125037125118%_) - (if (gx#core-bind-values? _%hd-bind125111%_) + (##car _%e125194125272%_)) + (_%tl125196125277%_ (##cdr _%e125194125272%_))) + (let ((_%expr125280%_ _%hd125195125275%_)) + (if (gx#stx-null? _%tl125196125277%_) + (if (gx#core-bind-values? _%hd-bind125270%_) (begin - (gx#core-bind-values!__0 _%hd-bind125111%_) - (_%K125021%_ _%hd125014%_)) - (_%E125028125091%_)) - (_%E125028125091%_))))) - (_%E125028125091%_))))) + (gx#core-bind-values!__0 _%hd-bind125270%_) + (_%K125180%_ _%hd125173%_)) + (_%E125187125250%_)) + (_%E125187125250%_))))) + (_%E125187125250%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125028125091%_)) - (_%E125028125091%_)))) - (_%E125028125091%_)))) - (_%E125023125135%_ + (_%E125187125250%_)) + (_%E125187125250%_)))) + (_%E125187125250%_)))) + (_%E125182125294%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125025125127%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125026125130%_ - (##car _%e125025125127%_)) - (_%tl125027125132%_ - (##cdr _%e125025125127%_))) + (if (gx#stx-pair? _%e125181125210%_) + (let ((_%e125184125286%_ + (gx#syntax-e _%e125181125210%_))) + (let ((_%hd125185125289%_ + (##car _%e125184125286%_)) + (_%tl125186125291%_ + (##cdr _%e125184125286%_))) (if (and (gx#identifier? - _%hd125026125130%_) + _%hd125185125289%_) (gx#core-identifier=? - _%hd125026125130%_ + _%hd125185125289%_ '%#begin-syntax)) - (_%K125021%_ + (_%K125180%_ (gx#core-expand-begin-syntax% - _%hd125014%_)) - (_%E125024125123%_)))) - (_%E125024125123%_))))) - (_%E125023125135%_)))) - (_%eval-body124895%_ - (lambda (_%rbody124903%_) - (let _%lp124905%_ ((_%rest124907%_ _%rbody124903%_) - (_%body124908%_ '()) - (_%ebody124909%_ '())) - (let* ((_%rest124910124918%_ _%rest124907%_) - (_%else124912124926%_ + _%hd125173%_)) + (_%E125183125282%_)))) + (_%E125183125282%_))))) + (_%E125182125294%_)))) + (_%eval-body125054%_ + (lambda (_%rbody125062%_) + (let _%lp125064%_ ((_%rest125066%_ _%rbody125062%_) + (_%body125067%_ '()) + (_%ebody125068%_ '())) + (let* ((_%rest125069125077%_ _%rest125066%_) + (_%else125071125085%_ (lambda () - (values _%body124908%_ + (values _%body125067%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody124909%_) - (gx#stx-source _%stx124892%_)))))) - (_%K124914125002%_ - (lambda (_%rest124929%_ _%hd124930%_) - (let* ((_%e124931124948%_ _%hd124930%_) - (_%E124943124952%_ + _%ebody125068%_) + (gx#stx-source _%stx125051%_)))))) + (_%K125073125161%_ + (lambda (_%rest125088%_ _%hd125089%_) + (let* ((_%e125090125107%_ _%hd125089%_) + (_%E125102125111%_ (lambda () - (_%lp124905%_ - _%rest124929%_ - (cons _%hd124930%_ _%body124908%_) - (cons _%hd124930%_ - _%ebody124909%_)))) - (_%E124933124964%_ + (_%lp125064%_ + _%rest125088%_ + (cons _%hd125089%_ _%body125067%_) + (cons _%hd125089%_ + _%ebody125068%_)))) + (_%E125092125123%_ (lambda () - (if (gx#stx-pair? _%e124931124948%_) - (let ((_%e124944124956%_ + (if (gx#stx-pair? _%e125090125107%_) + (let ((_%e125103125115%_ (gx#syntax-e - _%e124931124948%_))) - (let ((_%hd124945124959%_ - (##car _%e124944124956%_)) - (_%tl124946124961%_ - (##cdr _%e124944124956%_))) + _%e125090125107%_))) + (let ((_%hd125104125118%_ + (##car _%e125103125115%_)) + (_%tl125105125120%_ + (##cdr _%e125103125115%_))) (if (and (gx#identifier? - _%hd124945124959%_) + _%hd125104125118%_) (gx#core-identifier=? - _%hd124945124959%_ + _%hd125104125118%_ '%#begin-syntax)) - (_%lp124905%_ - _%rest124929%_ - (cons _%hd124930%_ - _%body124908%_) - _%ebody124909%_) - (_%E124943124952%_)))) - (_%E124943124952%_)))) - (_%E124932124998%_ + (_%lp125064%_ + _%rest125088%_ + (cons _%hd125089%_ + _%body125067%_) + _%ebody125068%_) + (_%E125102125111%_)))) + (_%E125102125111%_)))) + (_%E125091125157%_ (lambda () - (if (gx#stx-pair? _%e124931124948%_) - (let ((_%e124934124968%_ + (if (gx#stx-pair? _%e125090125107%_) + (let ((_%e125093125127%_ (gx#syntax-e - _%e124931124948%_))) - (let ((_%hd124935124971%_ - (##car _%e124934124968%_)) - (_%tl124936124973%_ - (##cdr _%e124934124968%_))) + _%e125090125107%_))) + (let ((_%hd125094125130%_ + (##car _%e125093125127%_)) + (_%tl125095125132%_ + (##cdr _%e125093125127%_))) (if (and (gx#identifier? - _%hd124935124971%_) + _%hd125094125130%_) (gx#core-identifier=? - _%hd124935124971%_ + _%hd125094125130%_ '%#define-values)) (if (gx#stx-pair? - _%tl124936124973%_) - (let ((_%e124937124976%_ + _%tl125095125132%_) + (let ((_%e125096125135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124936124973%_))) - (let ((_%hd124938124979%_ (##car _%e124937124976%_)) - (_%tl124939124981%_ (##cdr _%e124937124976%_))) - (let ((_%hd-bind124984%_ _%hd124938124979%_)) - (if (gx#stx-pair? _%tl124939124981%_) - (let ((_%e124940124986%_ - (gx#syntax-e _%tl124939124981%_))) - (let ((_%hd124941124989%_ - (##car _%e124940124986%_)) - (_%tl124942124991%_ - (##cdr _%e124940124986%_))) - (let ((_%expr124994%_ _%hd124941124989%_)) - (if (gx#stx-null? _%tl124942124991%_) - (let ((_%ehd124996%_ + (gx#syntax-e _%tl125095125132%_))) + (let ((_%hd125097125138%_ (##car _%e125096125135%_)) + (_%tl125098125140%_ (##cdr _%e125096125135%_))) + (let ((_%hd-bind125143%_ _%hd125097125138%_)) + (if (gx#stx-pair? _%tl125098125140%_) + (let ((_%e125099125145%_ + (gx#syntax-e _%tl125098125140%_))) + (let ((_%hd125100125148%_ + (##car _%e125099125145%_)) + (_%tl125101125150%_ + (##cdr _%e125099125145%_))) + (let ((_%expr125153%_ _%hd125100125148%_)) + (if (gx#stx-null? _%tl125101125150%_) + (let ((_%ehd125155%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind124984%_) + _%hd-bind125143%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124994%_) + _%expr125153%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd124930%_)))) - (_%lp124905%_ - _%rest124929%_ - (cons _%ehd124996%_ _%body124908%_) - (cons _%ehd124996%_ _%ebody124909%_))) - (_%E124933124964%_))))) - (_%E124933124964%_))))) - (_%E124933124964%_)) - (_%E124933124964%_)))) + (gx#stx-source _%hd125089%_)))) + (_%lp125064%_ + _%rest125088%_ + (cons _%ehd125155%_ _%body125067%_) + (cons _%ehd125155%_ _%ebody125068%_))) + (_%E125092125123%_))))) + (_%E125092125123%_))))) + (_%E125092125123%_)) + (_%E125092125123%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124933124964%_))))) - (_%E124932124998%_))))) - (if (pair? _%rest124910124918%_) - (let ((_%hd124915125005%_ - (##car _%rest124910124918%_)) - (_%tl124916125007%_ - (##cdr _%rest124910124918%_))) - (let* ((_%hd125010%_ _%hd124915125005%_) - (_%rest125012%_ _%tl124916125007%_)) - (_%K124914125002%_ - _%rest125012%_ - _%hd125010%_))) - (_%else124912124926%_))))))) + (_%E125092125123%_))))) + (_%E125091125157%_))))) + (if (pair? _%rest125069125077%_) + (let ((_%hd125074125164%_ + (##car _%rest125069125077%_)) + (_%tl125075125166%_ + (##cdr _%rest125069125077%_))) + (let* ((_%hd125169%_ _%hd125074125164%_) + (_%rest125171%_ _%tl125075125166%_)) + (_%K125073125161%_ + _%rest125171%_ + _%hd125169%_))) + (_%else125071125085%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody124898%_ + (let* ((_%rbody125057%_ (gx#core-expand-block__1 - _%stx124892%_ - _%expand-special124894%_ + _%stx125051%_ + _%expand-special125053%_ '#f)) - (_g125162_ (_%eval-body124895%_ _%rbody124898%_))) + (_g125321_ (_%eval-body125054%_ _%rbody125057%_))) (begin - (let ((_g125163_ - (if (##values? _g125162_) - (##vector-length _g125162_) + (let ((_g125322_ + (if (##values? _g125321_) + (##vector-length _g125321_) 1))) - (if (not (##fx= _g125163_ 2)) - (error "Context expects 2 values" _g125163_))) - (let ((_%expanded-body124900%_ (##vector-ref _g125162_ 0)) - (_%value124901%_ (##vector-ref _g125162_ 1))) + (if (not (##fx= _g125322_ 2)) + (error "Context expects 2 values" _g125322_))) + (let ((_%expanded-body125059%_ (##vector-ref _g125321_ 0)) + (_%value125060%_ (##vector-ref _g125321_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body124900%_) + (gx#core-cons '%#begin-syntax _%expanded-body125059%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value124901%_ '()))) - (gx#stx-source _%stx124892%_)))))) + (cons _%value125060%_ '()))) + (gx#stx-source _%stx125051%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx124862%_) - (let* ((_%e124863124870%_ _%stx124862%_) - (_%E124865124874%_ + (lambda (_%stx125021%_) + (let* ((_%e125022125029%_ _%stx125021%_) + (_%E125024125033%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124863124870%_))) - (_%E124864124888%_ + _%e125022125029%_))) + (_%E125023125047%_ (lambda () - (if (gx#stx-pair? _%e124863124870%_) - (let ((_%e124866124878%_ - (gx#syntax-e _%e124863124870%_))) - (let ((_%hd124867124881%_ (##car _%e124866124878%_)) - (_%tl124868124883%_ (##cdr _%e124866124878%_))) - (let ((_%body124886%_ _%tl124868124883%_)) - (if (gx#stx-list? _%body124886%_) + (if (gx#stx-pair? _%e125022125029%_) + (let ((_%e125025125037%_ + (gx#syntax-e _%e125022125029%_))) + (let ((_%hd125026125040%_ (##car _%e125025125037%_)) + (_%tl125027125042%_ (##cdr _%e125025125037%_))) + (let ((_%body125045%_ _%tl125027125042%_)) + (if (gx#stx-list? _%body125045%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body124886%_) - (gx#stx-source _%stx124862%_)) - (_%E124865124874%_))))) - (_%E124865124874%_))))) - (_%E124864124888%_)))) + (gx#core-cons '%#begin-foreign _%body125045%_) + (gx#stx-source _%stx125021%_)) + (_%E125024125033%_))))) + (_%E125024125033%_))))) + (_%E125023125047%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx124860%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx124860%_))) + (lambda (_%stx125019%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx125019%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx124806%_) - (let* ((_%e124807124820%_ _%stx124806%_) - (_%E124809124824%_ + (lambda (_%stx124965%_) + (let* ((_%e124966124979%_ _%stx124965%_) + (_%E124968124983%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124807124820%_))) - (_%E124808124856%_ + _%e124966124979%_))) + (_%E124967125015%_ (lambda () - (if (gx#stx-pair? _%e124807124820%_) - (let ((_%e124810124828%_ - (gx#syntax-e _%e124807124820%_))) - (let ((_%hd124811124831%_ (##car _%e124810124828%_)) - (_%tl124812124833%_ (##cdr _%e124810124828%_))) - (if (gx#stx-pair? _%tl124812124833%_) - (let ((_%e124813124836%_ - (gx#syntax-e _%tl124812124833%_))) - (let ((_%hd124814124839%_ - (##car _%e124813124836%_)) - (_%tl124815124841%_ - (##cdr _%e124813124836%_))) - (let ((_%ann124844%_ _%hd124814124839%_)) - (if (gx#stx-pair? _%tl124815124841%_) - (let ((_%e124816124846%_ + (if (gx#stx-pair? _%e124966124979%_) + (let ((_%e124969124987%_ + (gx#syntax-e _%e124966124979%_))) + (let ((_%hd124970124990%_ (##car _%e124969124987%_)) + (_%tl124971124992%_ (##cdr _%e124969124987%_))) + (if (gx#stx-pair? _%tl124971124992%_) + (let ((_%e124972124995%_ + (gx#syntax-e _%tl124971124992%_))) + (let ((_%hd124973124998%_ + (##car _%e124972124995%_)) + (_%tl124974125000%_ + (##cdr _%e124972124995%_))) + (let ((_%ann125003%_ _%hd124973124998%_)) + (if (gx#stx-pair? _%tl124974125000%_) + (let ((_%e124975125005%_ (gx#syntax-e - _%tl124815124841%_))) - (let ((_%hd124817124849%_ - (##car _%e124816124846%_)) - (_%tl124818124851%_ - (##cdr _%e124816124846%_))) - (let ((_%expr124854%_ - _%hd124817124849%_)) + _%tl124974125000%_))) + (let ((_%hd124976125008%_ + (##car _%e124975125005%_)) + (_%tl124977125010%_ + (##cdr _%e124975125005%_))) + (let ((_%expr125013%_ + _%hd124976125008%_)) (if (gx#stx-null? - _%tl124818124851%_) + _%tl124977125010%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann124844%_ + (cons _%ann125003%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124854%_) + _%expr125013%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx124806%_)) - (_%E124809124824%_))))) - (_%E124809124824%_))))) - (_%E124809124824%_)))) - (_%E124809124824%_))))) - (_%E124808124856%_)))) + _%stx124965%_)) + (_%E124968124983%_))))) + (_%E124968124983%_))))) + (_%E124968124983%_)))) + (_%E124968124983%_))))) + (_%E124967125015%_)))) (define gx#core-expand-local-block - (lambda (_%stx124530%_ _%body124531%_) - (letrec ((_%expand-special124533%_ - (lambda (_%hd124801%_ _%K124802%_ _%rest124803%_ _%r124804%_) - (_%K124802%_ + (lambda (_%stx124689%_ _%body124690%_) + (letrec ((_%expand-special124692%_ + (lambda (_%hd124960%_ _%K124961%_ _%rest124962%_ _%r124963%_) + (_%K124961%_ '() - (cons (_%expand-internal124534%_ - _%hd124801%_ - _%rest124803%_) - _%r124804%_)))) - (_%expand-internal124534%_ - (lambda (_%hd124797%_ _%rest124798%_) + (cons (_%expand-internal124693%_ + _%hd124960%_ + _%rest124962%_) + _%r124963%_)))) + (_%expand-internal124693%_ + (lambda (_%hd124956%_ _%rest124957%_) (__call-with-parameters (lambda () - (_%wrap-internal124536%_ + (_%wrap-internal124695%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd124797%_ _%rest124798%_)) - (gx#stx-source _%stx124530%_)) - _%expand-internal-special124535%_ + (cons '%#begin (cons _%hd124956%_ _%rest124957%_)) + (gx#stx-source _%stx124689%_)) + _%expand-internal-special124694%_ '#f))) gx#current-expander-context - (let ((__obj125156 + (let ((__obj125315 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj125156) - __obj125156)))) - (_%expand-internal-special124535%_ - (lambda (_%hd124692%_ _%K124693%_ _%rest124694%_ _%r124695%_) - (let* ((_%e124696124721%_ _%hd124692%_) - (_%E124716124725%_ + (gx#local-context:::init!__0 __obj125315) + __obj125315)))) + (_%expand-internal-special124694%_ + (lambda (_%hd124851%_ _%K124852%_ _%rest124853%_ _%r124854%_) + (let* ((_%e124855124880%_ _%hd124851%_) + (_%E124875124884%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124696124721%_))) - (_%E124712124737%_ + _%e124855124880%_))) + (_%E124871124896%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124717124729%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124718124732%_ - (##car _%e124717124729%_)) - (_%tl124719124734%_ - (##cdr _%e124717124729%_))) + (if (gx#stx-pair? _%e124855124880%_) + (let ((_%e124876124888%_ + (gx#syntax-e _%e124855124880%_))) + (let ((_%hd124877124891%_ + (##car _%e124876124888%_)) + (_%tl124878124893%_ + (##cdr _%e124876124888%_))) (if (and (gx#identifier? - _%hd124718124732%_) + _%hd124877124891%_) (gx#core-identifier=? - _%hd124718124732%_ + _%hd124877124891%_ '%#declare)) - (_%K124693%_ - _%rest124694%_ + (_%K124852%_ + _%rest124853%_ (cons (gx#core-expand-declare% - _%hd124692%_) - _%r124695%_)) - (_%E124716124725%_)))) - (_%E124716124725%_)))) - (_%E124708124749%_ + _%hd124851%_) + _%r124854%_)) + (_%E124875124884%_)))) + (_%E124875124884%_)))) + (_%E124867124908%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124713124741%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124714124744%_ - (##car _%e124713124741%_)) - (_%tl124715124746%_ - (##cdr _%e124713124741%_))) + (if (gx#stx-pair? _%e124855124880%_) + (let ((_%e124872124900%_ + (gx#syntax-e _%e124855124880%_))) + (let ((_%hd124873124903%_ + (##car _%e124872124900%_)) + (_%tl124874124905%_ + (##cdr _%e124872124900%_))) (if (and (gx#identifier? - _%hd124714124744%_) + _%hd124873124903%_) (gx#core-identifier=? - _%hd124714124744%_ + _%hd124873124903%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd124692%_) - (_%K124693%_ - _%rest124694%_ - _%r124695%_)) - (_%E124712124737%_)))) - (_%E124712124737%_)))) - (_%E124698124761%_ + _%hd124851%_) + (_%K124852%_ + _%rest124853%_ + _%r124854%_)) + (_%E124871124896%_)))) + (_%E124871124896%_)))) + (_%E124857124920%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124709124753%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124710124756%_ - (##car _%e124709124753%_)) - (_%tl124711124758%_ - (##cdr _%e124709124753%_))) + (if (gx#stx-pair? _%e124855124880%_) + (let ((_%e124868124912%_ + (gx#syntax-e _%e124855124880%_))) + (let ((_%hd124869124915%_ + (##car _%e124868124912%_)) + (_%tl124870124917%_ + (##cdr _%e124868124912%_))) (if (and (gx#identifier? - _%hd124710124756%_) + _%hd124869124915%_) (gx#core-identifier=? - _%hd124710124756%_ + _%hd124869124915%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd124692%_) - (_%K124693%_ - _%rest124694%_ - _%r124695%_)) - (_%E124708124749%_)))) - (_%E124708124749%_)))) - (_%E124697124793%_ + _%hd124851%_) + (_%K124852%_ + _%rest124853%_ + _%r124854%_)) + (_%E124867124908%_)))) + (_%E124867124908%_)))) + (_%E124856124952%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124699124765%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124700124768%_ - (##car _%e124699124765%_)) - (_%tl124701124770%_ - (##cdr _%e124699124765%_))) + (if (gx#stx-pair? _%e124855124880%_) + (let ((_%e124858124924%_ + (gx#syntax-e _%e124855124880%_))) + (let ((_%hd124859124927%_ + (##car _%e124858124924%_)) + (_%tl124860124929%_ + (##cdr _%e124858124924%_))) (if (and (gx#identifier? - _%hd124700124768%_) + _%hd124859124927%_) (gx#core-identifier=? - _%hd124700124768%_ + _%hd124859124927%_ '%#define-values)) - (if (gx#stx-pair? _%tl124701124770%_) - (let ((_%e124702124773%_ + (if (gx#stx-pair? _%tl124860124929%_) + (let ((_%e124861124932%_ (gx#syntax-e - _%tl124701124770%_))) - (let ((_%hd124703124776%_ - (##car _%e124702124773%_)) - (_%tl124704124778%_ - (##cdr _%e124702124773%_))) - (let ((_%hd-bind124781%_ - _%hd124703124776%_)) + _%tl124860124929%_))) + (let ((_%hd124862124935%_ + (##car _%e124861124932%_)) + (_%tl124863124937%_ + (##cdr _%e124861124932%_))) + (let ((_%hd-bind124940%_ + _%hd124862124935%_)) (if (gx#stx-pair? - _%tl124704124778%_) - (let ((_%e124705124783%_ + _%tl124863124937%_) + (let ((_%e124864124942%_ (gx#syntax-e - _%tl124704124778%_))) - (let ((_%hd124706124786%_ + _%tl124863124937%_))) + (let ((_%hd124865124945%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e124705124783%_)) - (_%tl124707124788%_ (##cdr _%e124705124783%_))) - (let ((_%expr124791%_ _%hd124706124786%_)) - (if (gx#stx-null? _%tl124707124788%_) - (if (gx#core-bind-values? _%hd-bind124781%_) + (##car _%e124864124942%_)) + (_%tl124866124947%_ (##cdr _%e124864124942%_))) + (let ((_%expr124950%_ _%hd124865124945%_)) + (if (gx#stx-null? _%tl124866124947%_) + (if (gx#core-bind-values? _%hd-bind124940%_) (begin - (gx#core-bind-values!__0 _%hd-bind124781%_) - (_%K124693%_ - _%rest124694%_ - (cons _%hd124692%_ _%r124695%_))) - (_%E124698124761%_)) - (_%E124698124761%_))))) - (_%E124698124761%_))))) + (gx#core-bind-values!__0 _%hd-bind124940%_) + (_%K124852%_ + _%rest124853%_ + (cons _%hd124851%_ _%r124854%_))) + (_%E124857124920%_)) + (_%E124857124920%_))))) + (_%E124857124920%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124698124761%_)) - (_%E124698124761%_)))) - (_%E124698124761%_))))) - (_%E124697124793%_)))) - (_%wrap-internal124536%_ - (lambda (_%rbody124538%_) - (let _%lp124540%_ ((_%rest124542%_ _%rbody124538%_) - (_%decls124543%_ '()) - (_%bind124544%_ '()) - (_%body124545%_ '())) - (let* ((_%e124546124553%_ _%rest124542%_) - (_%E124548124602%_ + (_%E124857124920%_)) + (_%E124857124920%_)))) + (_%E124857124920%_))))) + (_%E124856124952%_)))) + (_%wrap-internal124695%_ + (lambda (_%rbody124697%_) + (let _%lp124699%_ ((_%rest124701%_ _%rbody124697%_) + (_%decls124702%_ '()) + (_%bind124703%_ '()) + (_%body124704%_ '())) + (let* ((_%e124705124712%_ _%rest124701%_) + (_%E124707124761%_ (lambda () - (let* ((_%body124597%_ - (let* ((_%body124556124566%_ - _%body124545%_) - (_%else124559124574%_ + (let* ((_%body124756%_ + (let* ((_%body124715124725%_ + _%body124704%_) + (_%else124718124733%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body124545%_) + _%body124704%_) (gx#stx-source - _%stx124530%_))))) - (let ((_%K124564124594%_ + _%stx124689%_))))) + (let ((_%K124723124753%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx124530%_))) - (_%K124561124580%_ - (lambda (_%expr124578%_) - _%expr124578%_))) - (let ((_%try-match124558124590%_ + _%stx124689%_))) + (_%K124720124739%_ + (lambda (_%expr124737%_) + _%expr124737%_))) + (let ((_%try-match124717124749%_ (lambda () - (if (pair? _%body124556124566%_) - (let ((_%tl124563124585%_ - (##cdr _%body124556124566%_)) - (_%hd124562124583%_ - (##car _%body124556124566%_))) - (if (null? _%tl124563124585%_) - (let ((_%expr124588%_ + (if (pair? _%body124715124725%_) + (let ((_%tl124722124744%_ + (##cdr _%body124715124725%_)) + (_%hd124721124742%_ + (##car _%body124715124725%_))) + (if (null? _%tl124722124744%_) + (let ((_%expr124747%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124562124583%_)) - (_%K124561124580%_ _%expr124588%_)) - (_%else124559124574%_))) - (_%else124559124574%_))))) + _%hd124721124742%_)) + (_%K124720124739%_ _%expr124747%_)) + (_%else124718124733%_))) + (_%else124718124733%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? _%body124556124566%_) - (_%K124564124594%_) - (_%try-match124558124590%_)))))) - (_%body124599%_ - (if (null? _%bind124544%_) - _%body124597%_ + (if (null? _%body124715124725%_) + (_%K124723124753%_) + (_%try-match124717124749%_)))))) + (_%body124758%_ + (if (null? _%bind124703%_) + _%body124756%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind124544%_ - (cons _%body124597%_ + (cons _%bind124703%_ + (cons _%body124756%_ '()))) - (gx#stx-source _%stx124530%_))))) - (if (null? _%decls124543%_) - _%body124599%_ + (gx#stx-source _%stx124689%_))))) + (if (null? _%decls124702%_) + _%body124758%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls124543%_ - (cons _%body124599%_ '()))) - (gx#stx-source _%stx124530%_)))))) - (_%E124547124688%_ + (cons _%decls124702%_ + (cons _%body124758%_ '()))) + (gx#stx-source _%stx124689%_)))))) + (_%E124706124847%_ (lambda () - (if (gx#stx-pair? _%e124546124553%_) - (let ((_%e124549124606%_ - (gx#syntax-e _%e124546124553%_))) - (let ((_%hd124550124609%_ - (##car _%e124549124606%_)) - (_%tl124551124611%_ - (##cdr _%e124549124606%_))) - (let* ((_%hd124614%_ - _%hd124550124609%_) - (_%rest124616%_ - _%tl124551124611%_) - (_%e124617124634%_ _%hd124614%_) - (_%E124629124638%_ + (if (gx#stx-pair? _%e124705124712%_) + (let ((_%e124708124765%_ + (gx#syntax-e _%e124705124712%_))) + (let ((_%hd124709124768%_ + (##car _%e124708124765%_)) + (_%tl124710124770%_ + (##cdr _%e124708124765%_))) + (let* ((_%hd124773%_ + _%hd124709124768%_) + (_%rest124775%_ + _%tl124710124770%_) + (_%e124776124793%_ _%hd124773%_) + (_%E124788124797%_ (lambda () - (if (null? _%bind124544%_) - (_%lp124540%_ - _%rest124616%_ - _%decls124543%_ - _%bind124544%_ - (cons _%hd124614%_ - _%body124545%_)) - (_%lp124540%_ - _%rest124616%_ - _%decls124543%_ + (if (null? _%bind124703%_) + (_%lp124699%_ + _%rest124775%_ + _%decls124702%_ + _%bind124703%_ + (cons _%hd124773%_ + _%body124704%_)) + (_%lp124699%_ + _%rest124775%_ + _%decls124702%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd124614%_ '())) - _%bind124544%_) - _%body124545%_)))) + (cons _%hd124773%_ '())) + _%bind124703%_) + _%body124704%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124619124652%_ + (_%E124778124811%_ (lambda () (if (gx#stx-pair? - _%e124617124634%_) - (let ((_%e124630124642%_ + _%e124776124793%_) + (let ((_%e124789124801%_ (gx#syntax-e - _%e124617124634%_))) - (let ((_%hd124631124645%_ - (##car _%e124630124642%_)) - (_%tl124632124647%_ - (##cdr _%e124630124642%_))) + _%e124776124793%_))) + (let ((_%hd124790124804%_ + (##car _%e124789124801%_)) + (_%tl124791124806%_ + (##cdr _%e124789124801%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124631124645%_) + _%hd124790124804%_) (gx#core-identifier=? - _%hd124631124645%_ + _%hd124790124804%_ '%#declare)) - (let ((_%xdecls124650%_ _%tl124632124647%_)) - (_%lp124540%_ - _%rest124616%_ - (gx#stx-foldr cons _%decls124543%_ _%xdecls124650%_) - _%bind124544%_ - _%body124545%_)) - (_%E124629124638%_)))) - (_%E124629124638%_)))) + (let ((_%xdecls124809%_ _%tl124791124806%_)) + (_%lp124699%_ + _%rest124775%_ + (gx#stx-foldr cons _%decls124702%_ _%xdecls124809%_) + _%bind124703%_ + _%body124704%_)) + (_%E124788124797%_)))) + (_%E124788124797%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124618124684%_ + (_%E124777124843%_ (lambda () (if (gx#stx-pair? - _%e124617124634%_) - (let ((_%e124620124656%_ + _%e124776124793%_) + (let ((_%e124779124815%_ (gx#syntax-e - _%e124617124634%_))) - (let ((_%hd124621124659%_ - (##car _%e124620124656%_)) - (_%tl124622124661%_ - (##cdr _%e124620124656%_))) + _%e124776124793%_))) + (let ((_%hd124780124818%_ + (##car _%e124779124815%_)) + (_%tl124781124820%_ + (##cdr _%e124779124815%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124621124659%_) + _%hd124780124818%_) (gx#core-identifier=? - _%hd124621124659%_ + _%hd124780124818%_ '%#define-values)) - (if (gx#stx-pair? _%tl124622124661%_) - (let ((_%e124623124664%_ - (gx#syntax-e _%tl124622124661%_))) - (let ((_%hd124624124667%_ - (##car _%e124623124664%_)) - (_%tl124625124669%_ - (##cdr _%e124623124664%_))) - (let ((_%hd-bind124672%_ _%hd124624124667%_)) - (if (gx#stx-pair? _%tl124625124669%_) - (let ((_%e124626124674%_ - (gx#syntax-e _%tl124625124669%_))) - (let ((_%hd124627124677%_ - (##car _%e124626124674%_)) - (_%tl124628124679%_ - (##cdr _%e124626124674%_))) - (let ((_%expr124682%_ - _%hd124627124677%_)) - (if (gx#stx-null? _%tl124628124679%_) - (_%lp124540%_ - _%rest124616%_ - _%decls124543%_ + (if (gx#stx-pair? _%tl124781124820%_) + (let ((_%e124782124823%_ + (gx#syntax-e _%tl124781124820%_))) + (let ((_%hd124783124826%_ + (##car _%e124782124823%_)) + (_%tl124784124828%_ + (##cdr _%e124782124823%_))) + (let ((_%hd-bind124831%_ _%hd124783124826%_)) + (if (gx#stx-pair? _%tl124784124828%_) + (let ((_%e124785124833%_ + (gx#syntax-e _%tl124784124828%_))) + (let ((_%hd124786124836%_ + (##car _%e124785124833%_)) + (_%tl124787124838%_ + (##cdr _%e124785124833%_))) + (let ((_%expr124841%_ + _%hd124786124836%_)) + (if (gx#stx-null? _%tl124787124838%_) + (_%lp124699%_ + _%rest124775%_ + _%decls124702%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind124672%_) + _%hd-bind124831%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124682%_) + _%expr124841%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind124544%_) - _%body124545%_) - (_%E124619124652%_))))) - (_%E124619124652%_))))) - (_%E124619124652%_)) - (_%E124619124652%_)))) - (_%E124619124652%_))))) + _%bind124703%_) + _%body124704%_) + (_%E124778124811%_))))) + (_%E124778124811%_))))) + (_%E124778124811%_)) + (_%E124778124811%_)))) + (_%E124778124811%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124618124684%_)))) - (_%E124548124602%_))))) - (_%E124547124688%_)))))) + (_%E124777124843%_)))) + (_%E124707124761%_))))) + (_%E124706124847%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body124531%_) - (gx#stx-source _%stx124530%_)) - _%expand-special124533%_)))) + (cons '%#begin _%body124690%_) + (gx#stx-source _%stx124689%_)) + _%expand-special124692%_)))) (define gx#core-expand-declare% - (lambda (_%stx124468%_) - (let* ((_%e124469124476%_ _%stx124468%_) - (_%E124471124480%_ + (lambda (_%stx124627%_) + (let* ((_%e124628124635%_ _%stx124627%_) + (_%E124630124639%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124469124476%_))) - (_%E124470124526%_ + _%e124628124635%_))) + (_%E124629124685%_ (lambda () - (if (gx#stx-pair? _%e124469124476%_) - (let ((_%e124472124484%_ - (gx#syntax-e _%e124469124476%_))) - (let ((_%hd124473124487%_ (##car _%e124472124484%_)) - (_%tl124474124489%_ (##cdr _%e124472124484%_))) - (let ((_%body124492%_ _%tl124474124489%_)) - (if (gx#stx-list? _%body124492%_) + (if (gx#stx-pair? _%e124628124635%_) + (let ((_%e124631124643%_ + (gx#syntax-e _%e124628124635%_))) + (let ((_%hd124632124646%_ (##car _%e124631124643%_)) + (_%tl124633124648%_ (##cdr _%e124631124643%_))) + (let ((_%body124651%_ _%tl124633124648%_)) + (if (gx#stx-list? _%body124651%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl124494%_) - (let* ((_%e124495124502%_ _%decl124494%_) - (_%E124497124506%_ + (lambda (_%decl124653%_) + (let* ((_%e124654124661%_ _%decl124653%_) + (_%E124656124665%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124495124502%_))) - (_%E124496124522%_ + _%e124654124661%_))) + (_%E124655124681%_ (lambda () (if (gx#stx-pair? - _%e124495124502%_) - (let ((_%e124498124510%_ + _%e124654124661%_) + (let ((_%e124657124669%_ (gx#syntax-e - _%e124495124502%_))) - (let ((_%hd124499124513%_ - (##car _%e124498124510%_)) - (_%tl124500124515%_ - (##cdr _%e124498124510%_))) - (let* ((_%head124518%_ - _%hd124499124513%_) - (_%args124520%_ - _%tl124500124515%_)) + _%e124654124661%_))) + (let ((_%hd124658124672%_ + (##car _%e124657124669%_)) + (_%tl124659124674%_ + (##cdr _%e124657124669%_))) + (let* ((_%head124677%_ + _%hd124658124672%_) + (_%args124679%_ + _%tl124659124674%_)) (if (gx#stx-list? - _%args124520%_) + _%args124679%_) (gx#stx-map1 gx#core-quote-syntax - _%decl124494%_) - (_%E124497124506%_))))) - (_%E124497124506%_))))) - (_%E124496124522%_))) - _%body124492%_)) - (gx#stx-source _%stx124468%_)) - (_%E124471124480%_))))) - (_%E124471124480%_))))) - (_%E124470124526%_)))) + _%decl124653%_) + (_%E124656124665%_))))) + (_%E124656124665%_))))) + (_%E124655124681%_))) + _%body124651%_)) + (gx#stx-source _%stx124627%_)) + (_%E124630124639%_))))) + (_%E124630124639%_))))) + (_%E124629124685%_)))) (define gx#core-expand-extern% - (lambda (_%stx124372%_) - (let* ((_%e124373124380%_ _%stx124372%_) - (_%E124375124384%_ + (lambda (_%stx124531%_) + (let* ((_%e124532124539%_ _%stx124531%_) + (_%E124534124543%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124373124380%_))) - (_%E124374124464%_ + _%e124532124539%_))) + (_%E124533124623%_ (lambda () - (if (gx#stx-pair? _%e124373124380%_) - (let ((_%e124376124388%_ - (gx#syntax-e _%e124373124380%_))) - (let ((_%hd124377124391%_ (##car _%e124376124388%_)) - (_%tl124378124393%_ (##cdr _%e124376124388%_))) - (let ((_%body124396%_ _%tl124378124393%_)) - (let _%lp124398%_ ((_%rest124400%_ _%body124396%_) - (_%r124401%_ '())) - (let* ((_%e124402124416%_ _%rest124400%_) - (_%E124414124420%_ + (if (gx#stx-pair? _%e124532124539%_) + (let ((_%e124535124547%_ + (gx#syntax-e _%e124532124539%_))) + (let ((_%hd124536124550%_ (##car _%e124535124547%_)) + (_%tl124537124552%_ (##cdr _%e124535124547%_))) + (let ((_%body124555%_ _%tl124537124552%_)) + (let _%lp124557%_ ((_%rest124559%_ _%body124555%_) + (_%r124560%_ '())) + (let* ((_%e124561124575%_ _%rest124559%_) + (_%E124573124579%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx124372%_))) - (_%E124404124424%_ + _%stx124531%_))) + (_%E124563124583%_ (lambda () - (if (gx#stx-null? _%e124402124416%_) + (if (gx#stx-null? _%e124561124575%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r124401%_)) - (gx#stx-source _%stx124372%_)) - (_%E124414124420%_)))) - (_%E124403124460%_ + (reverse _%r124560%_)) + (gx#stx-source _%stx124531%_)) + (_%E124573124579%_)))) + (_%E124562124619%_ (lambda () - (if (gx#stx-pair? _%e124402124416%_) - (let ((_%e124405124428%_ + (if (gx#stx-pair? _%e124561124575%_) + (let ((_%e124564124587%_ (gx#syntax-e - _%e124402124416%_))) - (let ((_%hd124406124431%_ - (##car _%e124405124428%_)) - (_%tl124407124433%_ - (##cdr _%e124405124428%_))) + _%e124561124575%_))) + (let ((_%hd124565124590%_ + (##car _%e124564124587%_)) + (_%tl124566124592%_ + (##cdr _%e124564124587%_))) (if (gx#stx-pair? - _%hd124406124431%_) - (let ((_%e124408124436%_ + _%hd124565124590%_) + (let ((_%e124567124595%_ (gx#syntax-e - _%hd124406124431%_))) - (let ((_%hd124409124439%_ - (##car _%e124408124436%_)) - (_%tl124410124441%_ - (##cdr _%e124408124436%_))) - (let ((_%id124444%_ - _%hd124409124439%_)) + _%hd124565124590%_))) + (let ((_%hd124568124598%_ + (##car _%e124567124595%_)) + (_%tl124569124600%_ + (##cdr _%e124567124595%_))) + (let ((_%id124603%_ + _%hd124568124598%_)) (if (gx#stx-pair? - _%tl124410124441%_) - (let ((_%e124411124446%_ + _%tl124569124600%_) + (let ((_%e124570124605%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124410124441%_))) - (let ((_%hd124412124449%_ (##car _%e124411124446%_)) - (_%tl124413124451%_ (##cdr _%e124411124446%_))) - (let ((_%eid124454%_ _%hd124412124449%_)) - (if (gx#stx-null? _%tl124413124451%_) - (let ((_%rest124456%_ _%tl124407124433%_)) - (if (and (gx#identifier? _%id124444%_) - (gx#identifier? _%eid124454%_)) - (let ((_%eid124458%_ - (gx#stx-e _%eid124454%_))) + (gx#syntax-e _%tl124569124600%_))) + (let ((_%hd124571124608%_ (##car _%e124570124605%_)) + (_%tl124572124610%_ (##cdr _%e124570124605%_))) + (let ((_%eid124613%_ _%hd124571124608%_)) + (if (gx#stx-null? _%tl124572124610%_) + (let ((_%rest124615%_ _%tl124566124592%_)) + (if (and (gx#identifier? _%id124603%_) + (gx#identifier? _%eid124613%_)) + (let ((_%eid124617%_ + (gx#stx-e _%eid124613%_))) (gx#core-bind-extern!__0 - _%id124444%_ - _%eid124458%_) - (_%lp124398%_ - _%rest124456%_ + _%id124603%_ + _%eid124617%_) + (_%lp124557%_ + _%rest124615%_ (cons (cons (gx#core-quote-syntax__0 - _%id124444%_) - (cons _%eid124458%_ '())) - _%r124401%_))) - (_%E124404124424%_))) - (_%E124404124424%_))))) - (_%E124404124424%_))))) + _%id124603%_) + (cons _%eid124617%_ '())) + _%r124560%_))) + (_%E124563124583%_))) + (_%E124563124583%_))))) + (_%E124563124583%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124404124424%_)))) - (_%E124404124424%_))))) - (_%E124403124460%_)))))) - (_%E124375124384%_))))) - (_%E124374124464%_)))) + (_%E124563124583%_)))) + (_%E124563124583%_))))) + (_%E124562124619%_)))))) + (_%E124534124543%_))))) + (_%E124533124623%_)))) (define gx#core-expand-define-values% - (lambda (_%stx124318%_) - (let* ((_%e124319124332%_ _%stx124318%_) - (_%E124321124336%_ + (lambda (_%stx124477%_) + (let* ((_%e124478124491%_ _%stx124477%_) + (_%E124480124495%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124319124332%_))) - (_%E124320124368%_ + _%e124478124491%_))) + (_%E124479124527%_ (lambda () - (if (gx#stx-pair? _%e124319124332%_) - (let ((_%e124322124340%_ - (gx#syntax-e _%e124319124332%_))) - (let ((_%hd124323124343%_ (##car _%e124322124340%_)) - (_%tl124324124345%_ (##cdr _%e124322124340%_))) - (if (gx#stx-pair? _%tl124324124345%_) - (let ((_%e124325124348%_ - (gx#syntax-e _%tl124324124345%_))) - (let ((_%hd124326124351%_ - (##car _%e124325124348%_)) - (_%tl124327124353%_ - (##cdr _%e124325124348%_))) - (let ((_%hd124356%_ _%hd124326124351%_)) - (if (gx#stx-pair? _%tl124327124353%_) - (let ((_%e124328124358%_ + (if (gx#stx-pair? _%e124478124491%_) + (let ((_%e124481124499%_ + (gx#syntax-e _%e124478124491%_))) + (let ((_%hd124482124502%_ (##car _%e124481124499%_)) + (_%tl124483124504%_ (##cdr _%e124481124499%_))) + (if (gx#stx-pair? _%tl124483124504%_) + (let ((_%e124484124507%_ + (gx#syntax-e _%tl124483124504%_))) + (let ((_%hd124485124510%_ + (##car _%e124484124507%_)) + (_%tl124486124512%_ + (##cdr _%e124484124507%_))) + (let ((_%hd124515%_ _%hd124485124510%_)) + (if (gx#stx-pair? _%tl124486124512%_) + (let ((_%e124487124517%_ (gx#syntax-e - _%tl124327124353%_))) - (let ((_%hd124329124361%_ - (##car _%e124328124358%_)) - (_%tl124330124363%_ - (##cdr _%e124328124358%_))) - (let ((_%expr124366%_ - _%hd124329124361%_)) + _%tl124486124512%_))) + (let ((_%hd124488124520%_ + (##car _%e124487124517%_)) + (_%tl124489124522%_ + (##cdr _%e124487124517%_))) + (let ((_%expr124525%_ + _%hd124488124520%_)) (if (gx#stx-null? - _%tl124330124363%_) + _%tl124489124522%_) (if (gx#core-bind-values? - _%hd124356%_) + _%hd124515%_) (begin (gx#core-bind-values!__0 - _%hd124356%_) + _%hd124515%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124356%_) - (cons (gx#core-expand-expression _%expr124366%_) + _%hd124515%_) + (cons (gx#core-expand-expression _%expr124525%_) '()))) - (gx#stx-source _%stx124318%_))) - (_%E124321124336%_)) + (gx#stx-source _%stx124477%_))) + (_%E124480124495%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124321124336%_))))) - (_%E124321124336%_))))) - (_%E124321124336%_)))) - (_%E124321124336%_))))) - (_%E124320124368%_)))) + (_%E124480124495%_))))) + (_%E124480124495%_))))) + (_%E124480124495%_)))) + (_%E124480124495%_))))) + (_%E124479124527%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx124262%_) - (let* ((_%e124263124276%_ _%stx124262%_) - (_%E124265124280%_ + (lambda (_%stx124421%_) + (let* ((_%e124422124435%_ _%stx124421%_) + (_%E124424124439%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124263124276%_))) - (_%E124264124314%_ + _%e124422124435%_))) + (_%E124423124473%_ (lambda () - (if (gx#stx-pair? _%e124263124276%_) - (let ((_%e124266124284%_ - (gx#syntax-e _%e124263124276%_))) - (let ((_%hd124267124287%_ (##car _%e124266124284%_)) - (_%tl124268124289%_ (##cdr _%e124266124284%_))) - (if (gx#stx-pair? _%tl124268124289%_) - (let ((_%e124269124292%_ - (gx#syntax-e _%tl124268124289%_))) - (let ((_%hd124270124295%_ - (##car _%e124269124292%_)) - (_%tl124271124297%_ - (##cdr _%e124269124292%_))) - (let ((_%id124300%_ _%hd124270124295%_)) - (if (gx#stx-pair? _%tl124271124297%_) - (let ((_%e124272124302%_ + (if (gx#stx-pair? _%e124422124435%_) + (let ((_%e124425124443%_ + (gx#syntax-e _%e124422124435%_))) + (let ((_%hd124426124446%_ (##car _%e124425124443%_)) + (_%tl124427124448%_ (##cdr _%e124425124443%_))) + (if (gx#stx-pair? _%tl124427124448%_) + (let ((_%e124428124451%_ + (gx#syntax-e _%tl124427124448%_))) + (let ((_%hd124429124454%_ + (##car _%e124428124451%_)) + (_%tl124430124456%_ + (##cdr _%e124428124451%_))) + (let ((_%id124459%_ _%hd124429124454%_)) + (if (gx#stx-pair? _%tl124430124456%_) + (let ((_%e124431124461%_ (gx#syntax-e - _%tl124271124297%_))) - (let ((_%hd124273124305%_ - (##car _%e124272124302%_)) - (_%tl124274124307%_ - (##cdr _%e124272124302%_))) - (let ((_%binding-id124310%_ - _%hd124273124305%_)) + _%tl124430124456%_))) + (let ((_%hd124432124464%_ + (##car _%e124431124461%_)) + (_%tl124433124466%_ + (##cdr _%e124431124461%_))) + (let ((_%binding-id124469%_ + _%hd124432124464%_)) (if (gx#stx-null? - _%tl124274124307%_) + _%tl124433124466%_) (if (and (gx#identifier? - _%id124300%_) + _%id124459%_) (gx#identifier? - _%binding-id124310%_)) - (let ((_%eid124312%_ + _%binding-id124469%_)) + (let ((_%eid124471%_ (gx#stx-e - _%binding-id124310%_))) + _%binding-id124469%_))) (gx#core-bind-runtime-reference!__0 - _%id124300%_ - _%eid124312%_) + _%id124459%_ + _%eid124471%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124300%_) - (cons _%eid124312%_ '()))))) - (_%E124265124280%_)) + _%id124459%_) + (cons _%eid124471%_ '()))))) + (_%E124424124439%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124265124280%_))))) - (_%E124265124280%_))))) - (_%E124265124280%_)))) - (_%E124265124280%_))))) - (_%E124264124314%_)))) + (_%E124424124439%_))))) + (_%E124424124439%_))))) + (_%E124424124439%_)))) + (_%E124424124439%_))))) + (_%E124423124473%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx124205%_) - (let* ((_%e124206124219%_ _%stx124205%_) - (_%E124208124223%_ + (lambda (_%stx124364%_) + (let* ((_%e124365124378%_ _%stx124364%_) + (_%E124367124382%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124206124219%_))) - (_%E124207124258%_ + _%e124365124378%_))) + (_%E124366124417%_ (lambda () - (if (gx#stx-pair? _%e124206124219%_) - (let ((_%e124209124227%_ - (gx#syntax-e _%e124206124219%_))) - (let ((_%hd124210124230%_ (##car _%e124209124227%_)) - (_%tl124211124232%_ (##cdr _%e124209124227%_))) - (if (gx#stx-pair? _%tl124211124232%_) - (let ((_%e124212124235%_ - (gx#syntax-e _%tl124211124232%_))) - (let ((_%hd124213124238%_ - (##car _%e124212124235%_)) - (_%tl124214124240%_ - (##cdr _%e124212124235%_))) - (let ((_%id124243%_ _%hd124213124238%_)) - (if (gx#stx-pair? _%tl124214124240%_) - (let ((_%e124215124245%_ + (if (gx#stx-pair? _%e124365124378%_) + (let ((_%e124368124386%_ + (gx#syntax-e _%e124365124378%_))) + (let ((_%hd124369124389%_ (##car _%e124368124386%_)) + (_%tl124370124391%_ (##cdr _%e124368124386%_))) + (if (gx#stx-pair? _%tl124370124391%_) + (let ((_%e124371124394%_ + (gx#syntax-e _%tl124370124391%_))) + (let ((_%hd124372124397%_ + (##car _%e124371124394%_)) + (_%tl124373124399%_ + (##cdr _%e124371124394%_))) + (let ((_%id124402%_ _%hd124372124397%_)) + (if (gx#stx-pair? _%tl124373124399%_) + (let ((_%e124374124404%_ (gx#syntax-e - _%tl124214124240%_))) - (let ((_%hd124216124248%_ - (##car _%e124215124245%_)) - (_%tl124217124250%_ - (##cdr _%e124215124245%_))) - (let ((_%expr124253%_ - _%hd124216124248%_)) + _%tl124373124399%_))) + (let ((_%hd124375124407%_ + (##car _%e124374124404%_)) + (_%tl124376124409%_ + (##cdr _%e124374124404%_))) + (let ((_%expr124412%_ + _%hd124375124407%_)) (if (gx#stx-null? - _%tl124217124250%_) + _%tl124376124409%_) (if (gx#identifier? - _%id124243%_) - (let ((_g125164_ + _%id124402%_) + (let ((_g125323_ (gx#core-expand-expression+1 - _%expr124253%_))) + _%expr124412%_))) (begin - (let ((_g125165_ + (let ((_g125324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g125164_) - (##vector-length _g125164_) + (if (##values? _g125323_) + (##vector-length _g125323_) 1))) - (if (not (##fx= _g125165_ 2)) - (error "Context expects 2 values" _g125165_))) - (let ((_%e-stx124255%_ (##vector-ref _g125164_ 0)) - (_%e124256%_ (##vector-ref _g125164_ 1))) + (if (not (##fx= _g125324_ 2)) + (error "Context expects 2 values" _g125324_))) + (let ((_%e-stx124414%_ (##vector-ref _g125323_ 0)) + (_%e124415%_ (##vector-ref _g125323_ 1))) (begin - (gx#core-bind-syntax!__0 _%id124243%_ _%e124256%_) + (gx#core-bind-syntax!__0 _%id124402%_ _%e124415%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id124243%_) - (cons _%e-stx124255%_ '()))) - (gx#stx-source _%stx124205%_)))))) - (_%E124208124223%_)) + (cons (gx#core-quote-syntax__0 _%id124402%_) + (cons _%e-stx124414%_ '()))) + (gx#stx-source _%stx124364%_)))))) + (_%E124367124382%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124208124223%_))))) - (_%E124208124223%_))))) - (_%E124208124223%_)))) - (_%E124208124223%_))))) - (_%E124207124258%_)))) + (_%E124367124382%_))))) + (_%E124367124382%_))))) + (_%E124367124382%_)))) + (_%E124367124382%_))))) + (_%E124366124417%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx124149%_) - (let* ((_%e124150124163%_ _%stx124149%_) - (_%E124152124167%_ + (lambda (_%stx124308%_) + (let* ((_%e124309124322%_ _%stx124308%_) + (_%E124311124326%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124150124163%_))) - (_%E124151124201%_ + _%e124309124322%_))) + (_%E124310124360%_ (lambda () - (if (gx#stx-pair? _%e124150124163%_) - (let ((_%e124153124171%_ - (gx#syntax-e _%e124150124163%_))) - (let ((_%hd124154124174%_ (##car _%e124153124171%_)) - (_%tl124155124176%_ (##cdr _%e124153124171%_))) - (if (gx#stx-pair? _%tl124155124176%_) - (let ((_%e124156124179%_ - (gx#syntax-e _%tl124155124176%_))) - (let ((_%hd124157124182%_ - (##car _%e124156124179%_)) - (_%tl124158124184%_ - (##cdr _%e124156124179%_))) - (let ((_%id124187%_ _%hd124157124182%_)) - (if (gx#stx-pair? _%tl124158124184%_) - (let ((_%e124159124189%_ + (if (gx#stx-pair? _%e124309124322%_) + (let ((_%e124312124330%_ + (gx#syntax-e _%e124309124322%_))) + (let ((_%hd124313124333%_ (##car _%e124312124330%_)) + (_%tl124314124335%_ (##cdr _%e124312124330%_))) + (if (gx#stx-pair? _%tl124314124335%_) + (let ((_%e124315124338%_ + (gx#syntax-e _%tl124314124335%_))) + (let ((_%hd124316124341%_ + (##car _%e124315124338%_)) + (_%tl124317124343%_ + (##cdr _%e124315124338%_))) + (let ((_%id124346%_ _%hd124316124341%_)) + (if (gx#stx-pair? _%tl124317124343%_) + (let ((_%e124318124348%_ (gx#syntax-e - _%tl124158124184%_))) - (let ((_%hd124160124192%_ - (##car _%e124159124189%_)) - (_%tl124161124194%_ - (##cdr _%e124159124189%_))) - (let ((_%alias-id124197%_ - _%hd124160124192%_)) + _%tl124317124343%_))) + (let ((_%hd124319124351%_ + (##car _%e124318124348%_)) + (_%tl124320124353%_ + (##cdr _%e124318124348%_))) + (let ((_%alias-id124356%_ + _%hd124319124351%_)) (if (gx#stx-null? - _%tl124161124194%_) + _%tl124320124353%_) (if (and (gx#identifier? - _%id124187%_) + _%id124346%_) (gx#identifier? - _%alias-id124197%_)) - (let ((_%alias-id124199%_ + _%alias-id124356%_)) + (let ((_%alias-id124358%_ (gx#core-quote-syntax__0 - _%alias-id124197%_))) + _%alias-id124356%_))) (gx#core-bind-alias!__0 - _%id124187%_ - _%alias-id124199%_) + _%id124346%_ + _%alias-id124358%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124187%_) - (cons _%alias-id124199%_ '()))))) - (_%E124152124167%_)) + _%id124346%_) + (cons _%alias-id124358%_ '()))))) + (_%E124311124326%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124152124167%_))))) - (_%E124152124167%_))))) - (_%E124152124167%_)))) - (_%E124152124167%_))))) - (_%E124151124201%_)))) + (_%E124311124326%_))))) + (_%E124311124326%_))))) + (_%E124311124326%_)))) + (_%E124311124326%_))))) + (_%E124310124360%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx124092%_ _%wrap?124093%_) - (let* ((_%e124094124104%_ _%stx124092%_) - (_%E124096124108%_ + (lambda (_%stx124251%_ _%wrap?124252%_) + (let* ((_%e124253124263%_ _%stx124251%_) + (_%E124255124267%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124094124104%_))) - (_%E124095124135%_ + _%e124253124263%_))) + (_%E124254124294%_ (lambda () - (if (gx#stx-pair? _%e124094124104%_) - (let ((_%e124097124112%_ - (gx#syntax-e _%e124094124104%_))) - (let ((_%hd124098124115%_ (##car _%e124097124112%_)) - (_%tl124099124117%_ (##cdr _%e124097124112%_))) - (if (gx#stx-pair? _%tl124099124117%_) - (let ((_%e124100124120%_ - (gx#syntax-e _%tl124099124117%_))) - (let ((_%hd124101124123%_ - (##car _%e124100124120%_)) - (_%tl124102124125%_ - (##cdr _%e124100124120%_))) - (let* ((_%hd124128%_ _%hd124101124123%_) - (_%body124130%_ _%tl124102124125%_)) - (if (gx#core-bind-values? _%hd124128%_) + (if (gx#stx-pair? _%e124253124263%_) + (let ((_%e124256124271%_ + (gx#syntax-e _%e124253124263%_))) + (let ((_%hd124257124274%_ (##car _%e124256124271%_)) + (_%tl124258124276%_ (##cdr _%e124256124271%_))) + (if (gx#stx-pair? _%tl124258124276%_) + (let ((_%e124259124279%_ + (gx#syntax-e _%tl124258124276%_))) + (let ((_%hd124260124282%_ + (##car _%e124259124279%_)) + (_%tl124261124284%_ + (##cdr _%e124259124279%_))) + (let* ((_%hd124287%_ _%hd124260124282%_) + (_%body124289%_ _%tl124261124284%_)) + (if (gx#core-bind-values? _%hd124287%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd124128%_) - (let ((_%body124133%_ + _%hd124287%_) + (let ((_%body124292%_ (cons (gx#core-quote-bind-values - _%hd124128%_) + _%hd124287%_) (cons (gx#core-expand-local-block - _%stx124092%_ - _%body124130%_) + _%stx124251%_ + _%body124289%_) '())))) - (if _%wrap?124093%_ + (if _%wrap?124252%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body124133%_) + _%body124292%_) (gx#stx-source - _%stx124092%_)) - _%body124133%_))) + _%stx124251%_)) + _%body124292%_))) gx#current-expander-context - (let ((__obj125157 + (let ((__obj125316 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125157) - __obj125157)) - (_%E124096124108%_))))) - (_%E124096124108%_)))) - (_%E124096124108%_))))) - (_%E124095124135%_)))) + __obj125316) + __obj125316)) + (_%E124255124267%_))))) + (_%E124255124267%_)))) + (_%E124255124267%_))))) + (_%E124254124294%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx124142%_) - (let ((_%wrap?124144%_ '#t)) - (gx#core-expand-lambda%__% _%stx124142%_ _%wrap?124144%_)))) + (lambda (_%stx124301%_) + (let ((_%wrap?124303%_ '#t)) + (gx#core-expand-lambda%__% _%stx124301%_ _%wrap?124303%_)))) (define gx#core-expand-lambda% - (lambda _g125167_ - (let ((_g125166_ (##length _g125167_))) - (cond ((##fx= _g125166_ 1) - (apply gx#core-expand-lambda%__0 _g125167_)) - ((##fx= _g125166_ 2) - (apply gx#core-expand-lambda%__% _g125167_)) + (lambda _g125326_ + (let ((_g125325_ (##length _g125326_))) + (cond ((##fx= _g125325_ 1) + (apply gx#core-expand-lambda%__0 _g125326_)) + ((##fx= _g125325_ 2) + (apply gx#core-expand-lambda%__% _g125326_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g125167_)))))) + _g125326_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx124056%_) - (let* ((_%e124057124064%_ _%stx124056%_) - (_%E124059124068%_ + (lambda (_%stx124215%_) + (let* ((_%e124216124223%_ _%stx124215%_) + (_%E124218124227%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124057124064%_))) - (_%E124058124087%_ + _%e124216124223%_))) + (_%E124217124246%_ (lambda () - (if (gx#stx-pair? _%e124057124064%_) - (let ((_%e124060124072%_ - (gx#syntax-e _%e124057124064%_))) - (let ((_%hd124061124075%_ (##car _%e124060124072%_)) - (_%tl124062124077%_ (##cdr _%e124060124072%_))) - (let ((_%clauses124080%_ _%tl124062124077%_)) - (if (gx#stx-list? _%clauses124080%_) + (if (gx#stx-pair? _%e124216124223%_) + (let ((_%e124219124231%_ + (gx#syntax-e _%e124216124223%_))) + (let ((_%hd124220124234%_ (##car _%e124219124231%_)) + (_%tl124221124236%_ (##cdr _%e124219124231%_))) + (let ((_%clauses124239%_ _%tl124221124236%_)) + (if (gx#stx-list? _%clauses124239%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause124082%_) + (lambda (_%clause124241%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause124082%_) - (let ((_%$e124084%_ + _%clause124241%_) + (let ((_%$e124243%_ (gx#stx-source - _%clause124082%_))) - (if _%$e124084%_ - _%$e124084%_ - (gx#stx-source _%stx124056%_)))) + _%clause124241%_))) + (if _%$e124243%_ + _%$e124243%_ + (gx#stx-source _%stx124215%_)))) '#f)) - _%clauses124080%_)) - (gx#stx-source _%stx124056%_)) - (_%E124059124068%_))))) - (_%E124059124068%_))))) - (_%E124058124087%_)))) + _%clauses124239%_)) + (gx#stx-source _%stx124215%_)) + (_%E124218124227%_))))) + (_%E124218124227%_))))) + (_%E124217124246%_)))) (define gx#core-expand-let-values% - (lambda (_%stx124010%_) - (let* ((_%e124011124021%_ _%stx124010%_) - (_%E124013124025%_ + (lambda (_%stx124169%_) + (let* ((_%e124170124180%_ _%stx124169%_) + (_%E124172124184%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124011124021%_))) - (_%E124012124052%_ + _%e124170124180%_))) + (_%E124171124211%_ (lambda () - (if (gx#stx-pair? _%e124011124021%_) - (let ((_%e124014124029%_ - (gx#syntax-e _%e124011124021%_))) - (let ((_%hd124015124032%_ (##car _%e124014124029%_)) - (_%tl124016124034%_ (##cdr _%e124014124029%_))) - (if (gx#stx-pair? _%tl124016124034%_) - (let ((_%e124017124037%_ - (gx#syntax-e _%tl124016124034%_))) - (let ((_%hd124018124040%_ - (##car _%e124017124037%_)) - (_%tl124019124042%_ - (##cdr _%e124017124037%_))) - (let* ((_%hd124045%_ _%hd124018124040%_) - (_%body124047%_ _%tl124019124042%_)) - (if (gx#core-expand-let-bind? _%hd124045%_) - (let ((_%expressions124049%_ + (if (gx#stx-pair? _%e124170124180%_) + (let ((_%e124173124188%_ + (gx#syntax-e _%e124170124180%_))) + (let ((_%hd124174124191%_ (##car _%e124173124188%_)) + (_%tl124175124193%_ (##cdr _%e124173124188%_))) + (if (gx#stx-pair? _%tl124175124193%_) + (let ((_%e124176124196%_ + (gx#syntax-e _%tl124175124193%_))) + (let ((_%hd124177124199%_ + (##car _%e124176124196%_)) + (_%tl124178124201%_ + (##cdr _%e124176124196%_))) + (let* ((_%hd124204%_ _%hd124177124199%_) + (_%body124206%_ _%tl124178124201%_)) + (if (gx#core-expand-let-bind? _%hd124204%_) + (let ((_%expressions124208%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124045%_))) + _%hd124204%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124045%_) + _%hd124204%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124045%_ - _%expressions124049%_) + _%hd124204%_ + _%expressions124208%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx124010%_ - _%body124047%_) + _%stx124169%_ + _%body124206%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx124010%_))) + (gx#stx-source _%stx124169%_))) gx#current-expander-context - (let ((__obj125158 + (let ((__obj125317 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125158) - __obj125158))) - (_%E124013124025%_))))) - (_%E124013124025%_)))) - (_%E124013124025%_))))) - (_%E124012124052%_)))) + __obj125317) + __obj125317))) + (_%E124172124184%_))))) + (_%E124172124184%_)))) + (_%E124172124184%_))))) + (_%E124171124211%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx123955%_ _%form123956%_) - (let* ((_%e123957123967%_ _%stx123955%_) - (_%E123959123971%_ + (lambda (_%stx124114%_ _%form124115%_) + (let* ((_%e124116124126%_ _%stx124114%_) + (_%E124118124130%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123957123967%_))) - (_%E123958123996%_ + _%e124116124126%_))) + (_%E124117124155%_ (lambda () - (if (gx#stx-pair? _%e123957123967%_) - (let ((_%e123960123975%_ - (gx#syntax-e _%e123957123967%_))) - (let ((_%hd123961123978%_ (##car _%e123960123975%_)) - (_%tl123962123980%_ (##cdr _%e123960123975%_))) - (if (gx#stx-pair? _%tl123962123980%_) - (let ((_%e123963123983%_ - (gx#syntax-e _%tl123962123980%_))) - (let ((_%hd123964123986%_ - (##car _%e123963123983%_)) - (_%tl123965123988%_ - (##cdr _%e123963123983%_))) - (let* ((_%hd123991%_ _%hd123964123986%_) - (_%body123993%_ _%tl123965123988%_)) - (if (gx#core-expand-let-bind? _%hd123991%_) + (if (gx#stx-pair? _%e124116124126%_) + (let ((_%e124119124134%_ + (gx#syntax-e _%e124116124126%_))) + (let ((_%hd124120124137%_ (##car _%e124119124134%_)) + (_%tl124121124139%_ (##cdr _%e124119124134%_))) + (if (gx#stx-pair? _%tl124121124139%_) + (let ((_%e124122124142%_ + (gx#syntax-e _%tl124121124139%_))) + (let ((_%hd124123124145%_ + (##car _%e124122124142%_)) + (_%tl124124124147%_ + (##cdr _%e124122124142%_))) + (let* ((_%hd124150%_ _%hd124123124145%_) + (_%body124152%_ _%tl124124124147%_)) + (if (gx#core-expand-let-bind? _%hd124150%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd123991%_) + _%hd124150%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form123956%_) + _%form124115%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd123991%_ + _%hd124150%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd123991%_)) + _%hd124150%_)) (cons (gx#core-expand-local-block - _%stx123955%_ - _%body123993%_) + _%stx124114%_ + _%body124152%_) '()))) - (gx#stx-source _%stx123955%_))) + (gx#stx-source _%stx124114%_))) gx#current-expander-context - (let ((__obj125159 + (let ((__obj125318 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125159) - __obj125159)) - (_%E123959123971%_))))) - (_%E123959123971%_)))) - (_%E123959123971%_))))) - (_%E123958123996%_)))) + __obj125318) + __obj125318)) + (_%E124118124130%_))))) + (_%E124118124130%_)))) + (_%E124118124130%_))))) + (_%E124117124155%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx124003%_) - (let ((_%form124005%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx124003%_ _%form124005%_)))) + (lambda (_%stx124162%_) + (let ((_%form124164%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx124162%_ _%form124164%_)))) (define gx#core-expand-letrec-values% - (lambda _g125169_ - (let ((_g125168_ (##length _g125169_))) - (cond ((##fx= _g125168_ 1) - (apply gx#core-expand-letrec-values%__0 _g125169_)) - ((##fx= _g125168_ 2) - (apply gx#core-expand-letrec-values%__% _g125169_)) + (lambda _g125328_ + (let ((_g125327_ (##length _g125328_))) + (cond ((##fx= _g125327_ 1) + (apply gx#core-expand-letrec-values%__0 _g125328_)) + ((##fx= _g125327_ 2) + (apply gx#core-expand-letrec-values%__% _g125328_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g125169_)))))) + _g125328_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx123952%_) - (gx#core-expand-letrec-values%__% _%stx123952%_ '%#letrec*-values))) + (lambda (_%stx124111%_) + (gx#core-expand-letrec-values%__% _%stx124111%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx123909%_) - (if (gx#stx-list? _%stx123909%_) + (lambda (_%stx124068%_) + (if (gx#stx-list? _%stx124068%_) (gx#stx-andmap - (lambda (_%bind123911%_) - (let* ((_%e123912123922%_ _%bind123911%_) - (_%E123914123926%_ (lambda () '#f)) - (_%E123913123948%_ + (lambda (_%bind124070%_) + (let* ((_%e124071124081%_ _%bind124070%_) + (_%E124073124085%_ (lambda () '#f)) + (_%E124072124107%_ (lambda () - (if (gx#stx-pair? _%e123912123922%_) - (let ((_%e123915123930%_ - (gx#syntax-e _%e123912123922%_))) - (let ((_%hd123916123933%_ - (##car _%e123915123930%_)) - (_%tl123917123935%_ - (##cdr _%e123915123930%_))) - (let ((_%hd123938%_ _%hd123916123933%_)) - (if (gx#stx-pair? _%tl123917123935%_) - (let ((_%e123918123940%_ + (if (gx#stx-pair? _%e124071124081%_) + (let ((_%e124074124089%_ + (gx#syntax-e _%e124071124081%_))) + (let ((_%hd124075124092%_ + (##car _%e124074124089%_)) + (_%tl124076124094%_ + (##cdr _%e124074124089%_))) + (let ((_%hd124097%_ _%hd124075124092%_)) + (if (gx#stx-pair? _%tl124076124094%_) + (let ((_%e124077124099%_ (gx#syntax-e - _%tl123917123935%_))) - (let ((_%hd123919123943%_ - (##car _%e123918123940%_)) - (_%tl123920123945%_ - (##cdr _%e123918123940%_))) + _%tl124076124094%_))) + (let ((_%hd124078124102%_ + (##car _%e124077124099%_)) + (_%tl124079124104%_ + (##cdr _%e124077124099%_))) (if (gx#stx-null? - _%tl123920123945%_) + _%tl124079124104%_) (gx#core-bind-values? - _%hd123938%_) - (_%E123914123926%_)))) - (_%E123914123926%_))))) - (_%E123914123926%_))))) - (_%E123913123948%_))) - _%stx123909%_) + _%hd124097%_) + (_%E124073124085%_)))) + (_%E124073124085%_))))) + (_%E124073124085%_))))) + (_%E124072124107%_))) + _%stx124068%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind123868%_) - (let* ((_%e123869123879%_ _%bind123868%_) - (_%E123871123883%_ + (lambda (_%bind124027%_) + (let* ((_%e124028124038%_ _%bind124027%_) + (_%E124030124042%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123869123879%_))) - (_%E123870123905%_ + _%e124028124038%_))) + (_%E124029124064%_ (lambda () - (if (gx#stx-pair? _%e123869123879%_) - (let ((_%e123872123887%_ - (gx#syntax-e _%e123869123879%_))) - (let ((_%hd123873123890%_ (##car _%e123872123887%_)) - (_%tl123874123892%_ (##cdr _%e123872123887%_))) - (if (gx#stx-pair? _%tl123874123892%_) - (let ((_%e123875123895%_ - (gx#syntax-e _%tl123874123892%_))) - (let ((_%hd123876123898%_ - (##car _%e123875123895%_)) - (_%tl123877123900%_ - (##cdr _%e123875123895%_))) - (let ((_%expr123903%_ _%hd123876123898%_)) - (if (gx#stx-null? _%tl123877123900%_) + (if (gx#stx-pair? _%e124028124038%_) + (let ((_%e124031124046%_ + (gx#syntax-e _%e124028124038%_))) + (let ((_%hd124032124049%_ (##car _%e124031124046%_)) + (_%tl124033124051%_ (##cdr _%e124031124046%_))) + (if (gx#stx-pair? _%tl124033124051%_) + (let ((_%e124034124054%_ + (gx#syntax-e _%tl124033124051%_))) + (let ((_%hd124035124057%_ + (##car _%e124034124054%_)) + (_%tl124036124059%_ + (##cdr _%e124034124054%_))) + (let ((_%expr124062%_ _%hd124035124057%_)) + (if (gx#stx-null? _%tl124036124059%_) (gx#core-expand-expression - _%expr123903%_) - (_%E123871123883%_))))) - (_%E123871123883%_)))) - (_%E123871123883%_))))) - (_%E123870123905%_)))) + _%expr124062%_) + (_%E124030124042%_))))) + (_%E124030124042%_)))) + (_%E124030124042%_))))) + (_%E124029124064%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind123827%_) - (let* ((_%e123828123838%_ _%bind123827%_) - (_%E123830123842%_ + (lambda (_%bind123986%_) + (let* ((_%e123987123997%_ _%bind123986%_) + (_%E123989124001%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123828123838%_))) - (_%E123829123864%_ + _%e123987123997%_))) + (_%E123988124023%_ (lambda () - (if (gx#stx-pair? _%e123828123838%_) - (let ((_%e123831123846%_ - (gx#syntax-e _%e123828123838%_))) - (let ((_%hd123832123849%_ (##car _%e123831123846%_)) - (_%tl123833123851%_ (##cdr _%e123831123846%_))) - (let ((_%hd123854%_ _%hd123832123849%_)) - (if (gx#stx-pair? _%tl123833123851%_) - (let ((_%e123834123856%_ - (gx#syntax-e _%tl123833123851%_))) - (let ((_%hd123835123859%_ - (##car _%e123834123856%_)) - (_%tl123836123861%_ - (##cdr _%e123834123856%_))) - (if (gx#stx-null? _%tl123836123861%_) - (gx#core-bind-values!__0 _%hd123854%_) - (_%E123830123842%_)))) - (_%E123830123842%_))))) - (_%E123830123842%_))))) - (_%E123829123864%_)))) + (if (gx#stx-pair? _%e123987123997%_) + (let ((_%e123990124005%_ + (gx#syntax-e _%e123987123997%_))) + (let ((_%hd123991124008%_ (##car _%e123990124005%_)) + (_%tl123992124010%_ (##cdr _%e123990124005%_))) + (let ((_%hd124013%_ _%hd123991124008%_)) + (if (gx#stx-pair? _%tl123992124010%_) + (let ((_%e123993124015%_ + (gx#syntax-e _%tl123992124010%_))) + (let ((_%hd123994124018%_ + (##car _%e123993124015%_)) + (_%tl123995124020%_ + (##cdr _%e123993124015%_))) + (if (gx#stx-null? _%tl123995124020%_) + (gx#core-bind-values!__0 _%hd124013%_) + (_%E123989124001%_)))) + (_%E123989124001%_))))) + (_%E123989124001%_))))) + (_%E123988124023%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind123785%_ _%expr123786%_) - (let* ((_%e123787123797%_ _%bind123785%_) - (_%E123789123801%_ + (lambda (_%bind123944%_ _%expr123945%_) + (let* ((_%e123946123956%_ _%bind123944%_) + (_%E123948123960%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123787123797%_))) - (_%E123788123823%_ + _%e123946123956%_))) + (_%E123947123982%_ (lambda () - (if (gx#stx-pair? _%e123787123797%_) - (let ((_%e123790123805%_ - (gx#syntax-e _%e123787123797%_))) - (let ((_%hd123791123808%_ (##car _%e123790123805%_)) - (_%tl123792123810%_ (##cdr _%e123790123805%_))) - (let ((_%hd123813%_ _%hd123791123808%_)) - (if (gx#stx-pair? _%tl123792123810%_) - (let ((_%e123793123815%_ - (gx#syntax-e _%tl123792123810%_))) - (let ((_%hd123794123818%_ - (##car _%e123793123815%_)) - (_%tl123795123820%_ - (##cdr _%e123793123815%_))) - (if (gx#stx-null? _%tl123795123820%_) + (if (gx#stx-pair? _%e123946123956%_) + (let ((_%e123949123964%_ + (gx#syntax-e _%e123946123956%_))) + (let ((_%hd123950123967%_ (##car _%e123949123964%_)) + (_%tl123951123969%_ (##cdr _%e123949123964%_))) + (let ((_%hd123972%_ _%hd123950123967%_)) + (if (gx#stx-pair? _%tl123951123969%_) + (let ((_%e123952123974%_ + (gx#syntax-e _%tl123951123969%_))) + (let ((_%hd123953123977%_ + (##car _%e123952123974%_)) + (_%tl123954123979%_ + (##cdr _%e123952123974%_))) + (if (gx#stx-null? _%tl123954123979%_) (cons (gx#core-quote-bind-values - _%hd123813%_) - (cons _%expr123786%_ '())) - (_%E123789123801%_)))) - (_%E123789123801%_))))) - (_%E123789123801%_))))) - (_%E123788123823%_)))) + _%hd123972%_) + (cons _%expr123945%_ '())) + (_%E123948123960%_)))) + (_%E123948123960%_))))) + (_%E123948123960%_))))) + (_%E123947123982%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx123739%_) - (let* ((_%e123740123750%_ _%stx123739%_) - (_%E123742123754%_ + (lambda (_%stx123898%_) + (let* ((_%e123899123909%_ _%stx123898%_) + (_%E123901123913%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123740123750%_))) - (_%E123741123781%_ + _%e123899123909%_))) + (_%E123900123940%_ (lambda () - (if (gx#stx-pair? _%e123740123750%_) - (let ((_%e123743123758%_ - (gx#syntax-e _%e123740123750%_))) - (let ((_%hd123744123761%_ (##car _%e123743123758%_)) - (_%tl123745123763%_ (##cdr _%e123743123758%_))) - (if (gx#stx-pair? _%tl123745123763%_) - (let ((_%e123746123766%_ - (gx#syntax-e _%tl123745123763%_))) - (let ((_%hd123747123769%_ - (##car _%e123746123766%_)) - (_%tl123748123771%_ - (##cdr _%e123746123766%_))) - (let* ((_%hd123774%_ _%hd123747123769%_) - (_%body123776%_ _%tl123748123771%_)) + (if (gx#stx-pair? _%e123899123909%_) + (let ((_%e123902123917%_ + (gx#syntax-e _%e123899123909%_))) + (let ((_%hd123903123920%_ (##car _%e123902123917%_)) + (_%tl123904123922%_ (##cdr _%e123902123917%_))) + (if (gx#stx-pair? _%tl123904123922%_) + (let ((_%e123905123925%_ + (gx#syntax-e _%tl123904123922%_))) + (let ((_%hd123906123928%_ + (##car _%e123905123925%_)) + (_%tl123907123930%_ + (##cdr _%e123905123925%_))) + (let* ((_%hd123933%_ _%hd123906123928%_) + (_%body123935%_ _%tl123907123930%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123774%_) - (let ((_%expanders123778%_ + _%hd123933%_) + (let ((_%expanders123937%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123774%_))) + _%hd123933%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123774%_ - _%expanders123778%_) + _%hd123933%_ + _%expanders123937%_) (gx#core-expand-local-block - _%stx123739%_ - _%body123776%_)) + _%stx123898%_ + _%body123935%_)) gx#current-expander-context - (let ((__obj125160 + (let ((__obj125319 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125160) - __obj125160))) - (_%E123742123754%_))))) - (_%E123742123754%_)))) - (_%E123742123754%_))))) - (_%E123741123781%_)))) + __obj125319) + __obj125319))) + (_%E123901123913%_))))) + (_%E123901123913%_)))) + (_%E123901123913%_))))) + (_%E123900123940%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx123688%_) - (let* ((_%e123689123699%_ _%stx123688%_) - (_%E123691123703%_ + (lambda (_%stx123847%_) + (let* ((_%e123848123858%_ _%stx123847%_) + (_%E123850123862%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123689123699%_))) - (_%E123690123735%_ + _%e123848123858%_))) + (_%E123849123894%_ (lambda () - (if (gx#stx-pair? _%e123689123699%_) - (let ((_%e123692123707%_ - (gx#syntax-e _%e123689123699%_))) - (let ((_%hd123693123710%_ (##car _%e123692123707%_)) - (_%tl123694123712%_ (##cdr _%e123692123707%_))) - (if (gx#stx-pair? _%tl123694123712%_) - (let ((_%e123695123715%_ - (gx#syntax-e _%tl123694123712%_))) - (let ((_%hd123696123718%_ - (##car _%e123695123715%_)) - (_%tl123697123720%_ - (##cdr _%e123695123715%_))) - (let* ((_%hd123723%_ _%hd123696123718%_) - (_%body123725%_ _%tl123697123720%_)) + (if (gx#stx-pair? _%e123848123858%_) + (let ((_%e123851123866%_ + (gx#syntax-e _%e123848123858%_))) + (let ((_%hd123852123869%_ (##car _%e123851123866%_)) + (_%tl123853123871%_ (##cdr _%e123851123866%_))) + (if (gx#stx-pair? _%tl123853123871%_) + (let ((_%e123854123874%_ + (gx#syntax-e _%tl123853123871%_))) + (let ((_%hd123855123877%_ + (##car _%e123854123874%_)) + (_%tl123856123879%_ + (##cdr _%e123854123874%_))) + (let* ((_%hd123882%_ _%hd123855123877%_) + (_%body123884%_ _%tl123856123879%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123723%_) + _%hd123882%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123723%_ + _%hd123882%_ (make-list - (gx#stx-length _%hd123723%_) + (gx#stx-length _%hd123882%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g123727123730%_ - _%g123728123732%_) + (lambda (_%g123886123889%_ + _%g123887123891%_) (gx#core-expand-let-bind-syntax!__% - _%g123727123730%_ - _%g123728123732%_ + _%g123886123889%_ + _%g123887123891%_ '#t)) - _%hd123723%_ + _%hd123882%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123723%_)) + _%hd123882%_)) (gx#core-expand-local-block - _%stx123688%_ - _%body123725%_)) + _%stx123847%_ + _%body123884%_)) gx#current-expander-context - (let ((__obj125161 + (let ((__obj125320 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125161) - __obj125161)) - (_%E123691123703%_))))) - (_%E123691123703%_)))) - (_%E123691123703%_))))) - (_%E123690123735%_)))) + __obj125320) + __obj125320)) + (_%E123850123862%_))))) + (_%E123850123862%_)))) + (_%E123850123862%_))))) + (_%E123849123894%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx123645%_) - (if (gx#stx-list? _%stx123645%_) + (lambda (_%stx123804%_) + (if (gx#stx-list? _%stx123804%_) (gx#stx-andmap - (lambda (_%bind123647%_) - (let* ((_%e123648123658%_ _%bind123647%_) - (_%E123650123662%_ (lambda () '#f)) - (_%E123649123684%_ + (lambda (_%bind123806%_) + (let* ((_%e123807123817%_ _%bind123806%_) + (_%E123809123821%_ (lambda () '#f)) + (_%E123808123843%_ (lambda () - (if (gx#stx-pair? _%e123648123658%_) - (let ((_%e123651123666%_ - (gx#syntax-e _%e123648123658%_))) - (let ((_%hd123652123669%_ - (##car _%e123651123666%_)) - (_%tl123653123671%_ - (##cdr _%e123651123666%_))) - (let ((_%hd123674%_ _%hd123652123669%_)) - (if (gx#stx-pair? _%tl123653123671%_) - (let ((_%e123654123676%_ + (if (gx#stx-pair? _%e123807123817%_) + (let ((_%e123810123825%_ + (gx#syntax-e _%e123807123817%_))) + (let ((_%hd123811123828%_ + (##car _%e123810123825%_)) + (_%tl123812123830%_ + (##cdr _%e123810123825%_))) + (let ((_%hd123833%_ _%hd123811123828%_)) + (if (gx#stx-pair? _%tl123812123830%_) + (let ((_%e123813123835%_ (gx#syntax-e - _%tl123653123671%_))) - (let ((_%hd123655123679%_ - (##car _%e123654123676%_)) - (_%tl123656123681%_ - (##cdr _%e123654123676%_))) + _%tl123812123830%_))) + (let ((_%hd123814123838%_ + (##car _%e123813123835%_)) + (_%tl123815123840%_ + (##cdr _%e123813123835%_))) (if (gx#stx-null? - _%tl123656123681%_) - (gx#identifier? _%hd123674%_) - (_%E123650123662%_)))) - (_%E123650123662%_))))) - (_%E123650123662%_))))) - (_%E123649123684%_))) - _%stx123645%_) + _%tl123815123840%_) + (gx#identifier? _%hd123833%_) + (_%E123809123821%_)))) + (_%E123809123821%_))))) + (_%E123809123821%_))))) + (_%E123808123843%_))) + _%stx123804%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind123601%_) - (let* ((_%e123602123612%_ _%bind123601%_) - (_%E123604123616%_ + (lambda (_%bind123760%_) + (let* ((_%e123761123771%_ _%bind123760%_) + (_%E123763123775%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123602123612%_))) - (_%E123603123641%_ + _%e123761123771%_))) + (_%E123762123800%_ (lambda () - (if (gx#stx-pair? _%e123602123612%_) - (let ((_%e123605123620%_ - (gx#syntax-e _%e123602123612%_))) - (let ((_%hd123606123623%_ (##car _%e123605123620%_)) - (_%tl123607123625%_ (##cdr _%e123605123620%_))) - (if (gx#stx-pair? _%tl123607123625%_) - (let ((_%e123608123628%_ - (gx#syntax-e _%tl123607123625%_))) - (let ((_%hd123609123631%_ - (##car _%e123608123628%_)) - (_%tl123610123633%_ - (##cdr _%e123608123628%_))) - (let ((_%expr123636%_ _%hd123609123631%_)) - (if (gx#stx-null? _%tl123610123633%_) - (let ((_g125170_ + (if (gx#stx-pair? _%e123761123771%_) + (let ((_%e123764123779%_ + (gx#syntax-e _%e123761123771%_))) + (let ((_%hd123765123782%_ (##car _%e123764123779%_)) + (_%tl123766123784%_ (##cdr _%e123764123779%_))) + (if (gx#stx-pair? _%tl123766123784%_) + (let ((_%e123767123787%_ + (gx#syntax-e _%tl123766123784%_))) + (let ((_%hd123768123790%_ + (##car _%e123767123787%_)) + (_%tl123769123792%_ + (##cdr _%e123767123787%_))) + (let ((_%expr123795%_ _%hd123768123790%_)) + (if (gx#stx-null? _%tl123769123792%_) + (let ((_g125329_ (gx#core-expand-expression+1 - _%expr123636%_))) + _%expr123795%_))) (begin - (let ((_g125171_ - (if (##values? _g125170_) + (let ((_g125330_ + (if (##values? _g125329_) (##vector-length - _g125170_) + _g125329_) 1))) - (if (not (##fx= _g125171_ 2)) + (if (not (##fx= _g125330_ 2)) (error "Context expects 2 values" - _g125171_))) - (let ((_%_123638%_ - (##vector-ref _g125170_ 0)) - (_%e123639%_ - (##vector-ref _g125170_ 1))) - _%e123639%_))) - (_%E123604123616%_))))) - (_%E123604123616%_)))) - (_%E123604123616%_))))) - (_%E123603123641%_)))) + _g125330_))) + (let ((_%_123797%_ + (##vector-ref _g125329_ 0)) + (_%e123798%_ + (##vector-ref _g125329_ 1))) + _%e123798%_))) + (_%E123763123775%_))))) + (_%E123763123775%_)))) + (_%E123763123775%_))))) + (_%E123762123800%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind123546%_ _%e123547%_ _%rebind?123548%_) - (let* ((_%e123549123559%_ _%bind123546%_) - (_%E123551123563%_ + (lambda (_%bind123705%_ _%e123706%_ _%rebind?123707%_) + (let* ((_%e123708123718%_ _%bind123705%_) + (_%E123710123722%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123549123559%_))) - (_%E123550123585%_ + _%e123708123718%_))) + (_%E123709123744%_ (lambda () - (if (gx#stx-pair? _%e123549123559%_) - (let ((_%e123552123567%_ - (gx#syntax-e _%e123549123559%_))) - (let ((_%hd123553123570%_ (##car _%e123552123567%_)) - (_%tl123554123572%_ (##cdr _%e123552123567%_))) - (let ((_%id123575%_ _%hd123553123570%_)) - (if (gx#stx-pair? _%tl123554123572%_) - (let ((_%e123555123577%_ - (gx#syntax-e _%tl123554123572%_))) - (let ((_%hd123556123580%_ - (##car _%e123555123577%_)) - (_%tl123557123582%_ - (##cdr _%e123555123577%_))) - (if (gx#stx-null? _%tl123557123582%_) + (if (gx#stx-pair? _%e123708123718%_) + (let ((_%e123711123726%_ + (gx#syntax-e _%e123708123718%_))) + (let ((_%hd123712123729%_ (##car _%e123711123726%_)) + (_%tl123713123731%_ (##cdr _%e123711123726%_))) + (let ((_%id123734%_ _%hd123712123729%_)) + (if (gx#stx-pair? _%tl123713123731%_) + (let ((_%e123714123736%_ + (gx#syntax-e _%tl123713123731%_))) + (let ((_%hd123715123739%_ + (##car _%e123714123736%_)) + (_%tl123716123741%_ + (##cdr _%e123714123736%_))) + (if (gx#stx-null? _%tl123716123741%_) (gx#core-bind-syntax!__1 - _%id123575%_ - _%e123547%_ - _%rebind?123548%_) - (_%E123551123563%_)))) - (_%E123551123563%_))))) - (_%E123551123563%_))))) - (_%E123550123585%_)))) + _%id123734%_ + _%e123706%_ + _%rebind?123707%_) + (_%E123710123722%_)))) + (_%E123710123722%_))))) + (_%E123710123722%_))))) + (_%E123709123744%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind123592%_ _%e123593%_) - (let ((_%rebind?123595%_ '#f)) + (lambda (_%bind123751%_ _%e123752%_) + (let ((_%rebind?123754%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind123592%_ - _%e123593%_ - _%rebind?123595%_)))) + _%bind123751%_ + _%e123752%_ + _%rebind?123754%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g125173_ - (let ((_g125172_ (##length _g125173_))) - (cond ((##fx= _g125172_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g125173_)) - ((##fx= _g125172_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g125173_)) + (lambda _g125332_ + (let ((_g125331_ (##length _g125332_))) + (cond ((##fx= _g125331_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g125332_)) + ((##fx= _g125331_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g125332_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g125173_)))))) + _g125332_)))))) (define gx#core-expand-expression% - (lambda (_%stx123504%_) - (let* ((_%e123505123515%_ _%stx123504%_) - (_%E123507123519%_ + (lambda (_%stx123663%_) + (let* ((_%e123664123674%_ _%stx123663%_) + (_%E123666123678%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123505123515%_))) - (_%E123506123541%_ + _%e123664123674%_))) + (_%E123665123700%_ (lambda () - (if (gx#stx-pair? _%e123505123515%_) - (let ((_%e123508123523%_ - (gx#syntax-e _%e123505123515%_))) - (let ((_%hd123509123526%_ (##car _%e123508123523%_)) - (_%tl123510123528%_ (##cdr _%e123508123523%_))) - (if (gx#stx-pair? _%tl123510123528%_) - (let ((_%e123511123531%_ - (gx#syntax-e _%tl123510123528%_))) - (let ((_%hd123512123534%_ - (##car _%e123511123531%_)) - (_%tl123513123536%_ - (##cdr _%e123511123531%_))) - (let ((_%expr123539%_ _%hd123512123534%_)) - (if (gx#stx-null? _%tl123513123536%_) + (if (gx#stx-pair? _%e123664123674%_) + (let ((_%e123667123682%_ + (gx#syntax-e _%e123664123674%_))) + (let ((_%hd123668123685%_ (##car _%e123667123682%_)) + (_%tl123669123687%_ (##cdr _%e123667123682%_))) + (if (gx#stx-pair? _%tl123669123687%_) + (let ((_%e123670123690%_ + (gx#syntax-e _%tl123669123687%_))) + (let ((_%hd123671123693%_ + (##car _%e123670123690%_)) + (_%tl123672123695%_ + (##cdr _%e123670123690%_))) + (let ((_%expr123698%_ _%hd123671123693%_)) + (if (gx#stx-null? _%tl123672123695%_) (gx#core-expand-expression - _%expr123539%_) - (_%E123507123519%_))))) - (_%E123507123519%_)))) - (_%E123507123519%_))))) - (_%E123506123541%_)))) + _%expr123698%_) + (_%E123666123678%_))))) + (_%E123666123678%_)))) + (_%E123666123678%_))))) + (_%E123665123700%_)))) (define gx#core-expand-quote% - (lambda (_%stx123463%_) - (let* ((_%e123464123474%_ _%stx123463%_) - (_%E123466123478%_ + (lambda (_%stx123622%_) + (let* ((_%e123623123633%_ _%stx123622%_) + (_%E123625123637%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123464123474%_))) - (_%E123465123500%_ + _%e123623123633%_))) + (_%E123624123659%_ (lambda () - (if (gx#stx-pair? _%e123464123474%_) - (let ((_%e123467123482%_ - (gx#syntax-e _%e123464123474%_))) - (let ((_%hd123468123485%_ (##car _%e123467123482%_)) - (_%tl123469123487%_ (##cdr _%e123467123482%_))) - (if (gx#stx-pair? _%tl123469123487%_) - (let ((_%e123470123490%_ - (gx#syntax-e _%tl123469123487%_))) - (let ((_%hd123471123493%_ - (##car _%e123470123490%_)) - (_%tl123472123495%_ - (##cdr _%e123470123490%_))) - (let ((_%e123498%_ _%hd123471123493%_)) - (if (gx#stx-null? _%tl123472123495%_) + (if (gx#stx-pair? _%e123623123633%_) + (let ((_%e123626123641%_ + (gx#syntax-e _%e123623123633%_))) + (let ((_%hd123627123644%_ (##car _%e123626123641%_)) + (_%tl123628123646%_ (##cdr _%e123626123641%_))) + (if (gx#stx-pair? _%tl123628123646%_) + (let ((_%e123629123649%_ + (gx#syntax-e _%tl123628123646%_))) + (let ((_%hd123630123652%_ + (##car _%e123629123649%_)) + (_%tl123631123654%_ + (##cdr _%e123629123649%_))) + (let ((_%e123657%_ _%hd123630123652%_)) + (if (gx#stx-null? _%tl123631123654%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e123498%_) + _%e123657%_) '())) - (gx#stx-source _%stx123463%_)) - (_%E123466123478%_))))) - (_%E123466123478%_)))) - (_%E123466123478%_))))) - (_%E123465123500%_)))) + (gx#stx-source _%stx123622%_)) + (_%E123625123637%_))))) + (_%E123625123637%_)))) + (_%E123625123637%_))))) + (_%E123624123659%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx123422%_) - (let* ((_%e123423123433%_ _%stx123422%_) - (_%E123425123437%_ + (lambda (_%stx123581%_) + (let* ((_%e123582123592%_ _%stx123581%_) + (_%E123584123596%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123423123433%_))) - (_%E123424123459%_ + _%e123582123592%_))) + (_%E123583123618%_ (lambda () - (if (gx#stx-pair? _%e123423123433%_) - (let ((_%e123426123441%_ - (gx#syntax-e _%e123423123433%_))) - (let ((_%hd123427123444%_ (##car _%e123426123441%_)) - (_%tl123428123446%_ (##cdr _%e123426123441%_))) - (if (gx#stx-pair? _%tl123428123446%_) - (let ((_%e123429123449%_ - (gx#syntax-e _%tl123428123446%_))) - (let ((_%hd123430123452%_ - (##car _%e123429123449%_)) - (_%tl123431123454%_ - (##cdr _%e123429123449%_))) - (let ((_%e123457%_ _%hd123430123452%_)) - (if (gx#stx-null? _%tl123431123454%_) + (if (gx#stx-pair? _%e123582123592%_) + (let ((_%e123585123600%_ + (gx#syntax-e _%e123582123592%_))) + (let ((_%hd123586123603%_ (##car _%e123585123600%_)) + (_%tl123587123605%_ (##cdr _%e123585123600%_))) + (if (gx#stx-pair? _%tl123587123605%_) + (let ((_%e123588123608%_ + (gx#syntax-e _%tl123587123605%_))) + (let ((_%hd123589123611%_ + (##car _%e123588123608%_)) + (_%tl123590123613%_ + (##cdr _%e123588123608%_))) + (let ((_%e123616%_ _%hd123589123611%_)) + (if (gx#stx-null? _%tl123590123613%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e123457%_) + _%e123616%_) '())) - (gx#stx-source _%stx123422%_)) - (_%E123425123437%_))))) - (_%E123425123437%_)))) - (_%E123425123437%_))))) - (_%E123424123459%_)))) + (gx#stx-source _%stx123581%_)) + (_%E123584123596%_))))) + (_%E123584123596%_)))) + (_%E123584123596%_))))) + (_%E123583123618%_)))) (define gx#core-expand-call% - (lambda (_%stx123379%_) - (let* ((_%e123380123390%_ _%stx123379%_) - (_%E123382123394%_ + (lambda (_%stx123538%_) + (let* ((_%e123539123549%_ _%stx123538%_) + (_%E123541123553%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123380123390%_))) - (_%E123381123418%_ + _%e123539123549%_))) + (_%E123540123577%_ (lambda () - (if (gx#stx-pair? _%e123380123390%_) - (let ((_%e123383123398%_ - (gx#syntax-e _%e123380123390%_))) - (let ((_%hd123384123401%_ (##car _%e123383123398%_)) - (_%tl123385123403%_ (##cdr _%e123383123398%_))) - (if (gx#stx-pair? _%tl123385123403%_) - (let ((_%e123386123406%_ - (gx#syntax-e _%tl123385123403%_))) - (let ((_%hd123387123409%_ - (##car _%e123386123406%_)) - (_%tl123388123411%_ - (##cdr _%e123386123406%_))) - (let* ((_%rator123414%_ _%hd123387123409%_) - (_%args123416%_ _%tl123388123411%_)) - (if (gx#stx-list? _%args123416%_) + (if (gx#stx-pair? _%e123539123549%_) + (let ((_%e123542123557%_ + (gx#syntax-e _%e123539123549%_))) + (let ((_%hd123543123560%_ (##car _%e123542123557%_)) + (_%tl123544123562%_ (##cdr _%e123542123557%_))) + (if (gx#stx-pair? _%tl123544123562%_) + (let ((_%e123545123565%_ + (gx#syntax-e _%tl123544123562%_))) + (let ((_%hd123546123568%_ + (##car _%e123545123565%_)) + (_%tl123547123570%_ + (##cdr _%e123545123565%_))) + (let* ((_%rator123573%_ _%hd123546123568%_) + (_%args123575%_ _%tl123547123570%_)) + (if (gx#stx-list? _%args123575%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator123414%_) + _%rator123573%_) (gx#stx-map1 gx#core-expand-expression - _%args123416%_)) - (gx#stx-source _%stx123379%_)) - (_%E123382123394%_))))) - (_%E123382123394%_)))) - (_%E123382123394%_))))) - (_%E123381123418%_)))) + _%args123575%_)) + (gx#stx-source _%stx123538%_)) + (_%E123541123553%_))))) + (_%E123541123553%_)))) + (_%E123541123553%_))))) + (_%E123540123577%_)))) (define gx#core-expand-if% - (lambda (_%stx123312%_) - (let* ((_%e123313123329%_ _%stx123312%_) - (_%E123315123333%_ + (lambda (_%stx123471%_) + (let* ((_%e123472123488%_ _%stx123471%_) + (_%E123474123492%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123313123329%_))) - (_%E123314123375%_ + _%e123472123488%_))) + (_%E123473123534%_ (lambda () - (if (gx#stx-pair? _%e123313123329%_) - (let ((_%e123316123337%_ - (gx#syntax-e _%e123313123329%_))) - (let ((_%hd123317123340%_ (##car _%e123316123337%_)) - (_%tl123318123342%_ (##cdr _%e123316123337%_))) - (if (gx#stx-pair? _%tl123318123342%_) - (let ((_%e123319123345%_ - (gx#syntax-e _%tl123318123342%_))) - (let ((_%hd123320123348%_ - (##car _%e123319123345%_)) - (_%tl123321123350%_ - (##cdr _%e123319123345%_))) - (let ((_%test123353%_ _%hd123320123348%_)) - (if (gx#stx-pair? _%tl123321123350%_) - (let ((_%e123322123355%_ + (if (gx#stx-pair? _%e123472123488%_) + (let ((_%e123475123496%_ + (gx#syntax-e _%e123472123488%_))) + (let ((_%hd123476123499%_ (##car _%e123475123496%_)) + (_%tl123477123501%_ (##cdr _%e123475123496%_))) + (if (gx#stx-pair? _%tl123477123501%_) + (let ((_%e123478123504%_ + (gx#syntax-e _%tl123477123501%_))) + (let ((_%hd123479123507%_ + (##car _%e123478123504%_)) + (_%tl123480123509%_ + (##cdr _%e123478123504%_))) + (let ((_%test123512%_ _%hd123479123507%_)) + (if (gx#stx-pair? _%tl123480123509%_) + (let ((_%e123481123514%_ (gx#syntax-e - _%tl123321123350%_))) - (let ((_%hd123323123358%_ - (##car _%e123322123355%_)) - (_%tl123324123360%_ - (##cdr _%e123322123355%_))) - (let ((_%K123363%_ - _%hd123323123358%_)) + _%tl123480123509%_))) + (let ((_%hd123482123517%_ + (##car _%e123481123514%_)) + (_%tl123483123519%_ + (##cdr _%e123481123514%_))) + (let ((_%K123522%_ + _%hd123482123517%_)) (if (gx#stx-pair? - _%tl123324123360%_) - (let ((_%e123325123365%_ + _%tl123483123519%_) + (let ((_%e123484123524%_ (gx#syntax-e - _%tl123324123360%_))) - (let ((_%hd123326123368%_ - (##car _%e123325123365%_)) - (_%tl123327123370%_ - (##cdr _%e123325123365%_))) - (let ((_%E123373%_ - _%hd123326123368%_)) + _%tl123483123519%_))) + (let ((_%hd123485123527%_ + (##car _%e123484123524%_)) + (_%tl123486123529%_ + (##cdr _%e123484123524%_))) + (let ((_%E123532%_ + _%hd123485123527%_)) (if (gx#stx-null? - _%tl123327123370%_) + _%tl123486123529%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test123353%_) - (cons (gx#core-expand-expression _%K123363%_) + (cons (gx#core-expand-expression _%test123512%_) + (cons (gx#core-expand-expression _%K123522%_) (cons (gx#core-expand-expression - _%E123373%_) + _%E123532%_) '())))) - (gx#stx-source _%stx123312%_)) - (_%E123315123333%_))))) + (gx#stx-source _%stx123471%_)) + (_%E123474123492%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123315123333%_))))) - (_%E123315123333%_))))) - (_%E123315123333%_)))) - (_%E123315123333%_))))) - (_%E123314123375%_)))) + (_%E123474123492%_))))) + (_%E123474123492%_))))) + (_%E123474123492%_)))) + (_%E123474123492%_))))) + (_%E123473123534%_)))) (define gx#core-expand-ref% - (lambda (_%stx123271%_) - (let* ((_%e123272123282%_ _%stx123271%_) - (_%E123274123286%_ + (lambda (_%stx123430%_) + (let* ((_%e123431123441%_ _%stx123430%_) + (_%E123433123445%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123272123282%_))) - (_%E123273123308%_ + _%e123431123441%_))) + (_%E123432123467%_ (lambda () - (if (gx#stx-pair? _%e123272123282%_) - (let ((_%e123275123290%_ - (gx#syntax-e _%e123272123282%_))) - (let ((_%hd123276123293%_ (##car _%e123275123290%_)) - (_%tl123277123295%_ (##cdr _%e123275123290%_))) - (if (gx#stx-pair? _%tl123277123295%_) - (let ((_%e123278123298%_ - (gx#syntax-e _%tl123277123295%_))) - (let ((_%hd123279123301%_ - (##car _%e123278123298%_)) - (_%tl123280123303%_ - (##cdr _%e123278123298%_))) - (let ((_%id123306%_ _%hd123279123301%_)) - (if (gx#stx-null? _%tl123280123303%_) - (if (gx#identifier? _%id123306%_) + (if (gx#stx-pair? _%e123431123441%_) + (let ((_%e123434123449%_ + (gx#syntax-e _%e123431123441%_))) + (let ((_%hd123435123452%_ (##car _%e123434123449%_)) + (_%tl123436123454%_ (##cdr _%e123434123449%_))) + (if (gx#stx-pair? _%tl123436123454%_) + (let ((_%e123437123457%_ + (gx#syntax-e _%tl123436123454%_))) + (let ((_%hd123438123460%_ + (##car _%e123437123457%_)) + (_%tl123439123462%_ + (##cdr _%e123437123457%_))) + (let ((_%id123465%_ _%hd123438123460%_)) + (if (gx#stx-null? _%tl123439123462%_) + (if (gx#identifier? _%id123465%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id123306%_ - _%stx123271%_) + _%id123465%_ + _%stx123430%_) '())) - (gx#stx-source _%stx123271%_)) - (_%E123274123286%_)) - (_%E123274123286%_))))) - (_%E123274123286%_)))) - (_%E123274123286%_))))) - (_%E123273123308%_)))) + (gx#stx-source _%stx123430%_)) + (_%E123433123445%_)) + (_%E123433123445%_))))) + (_%E123433123445%_)))) + (_%E123433123445%_))))) + (_%E123432123467%_)))) (define gx#core-expand-setq% - (lambda (_%stx123217%_) - (let* ((_%e123218123231%_ _%stx123217%_) - (_%E123220123235%_ + (lambda (_%stx123376%_) + (let* ((_%e123377123390%_ _%stx123376%_) + (_%E123379123394%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123218123231%_))) - (_%E123219123267%_ + _%e123377123390%_))) + (_%E123378123426%_ (lambda () - (if (gx#stx-pair? _%e123218123231%_) - (let ((_%e123221123239%_ - (gx#syntax-e _%e123218123231%_))) - (let ((_%hd123222123242%_ (##car _%e123221123239%_)) - (_%tl123223123244%_ (##cdr _%e123221123239%_))) - (if (gx#stx-pair? _%tl123223123244%_) - (let ((_%e123224123247%_ - (gx#syntax-e _%tl123223123244%_))) - (let ((_%hd123225123250%_ - (##car _%e123224123247%_)) - (_%tl123226123252%_ - (##cdr _%e123224123247%_))) - (let ((_%id123255%_ _%hd123225123250%_)) - (if (gx#stx-pair? _%tl123226123252%_) - (let ((_%e123227123257%_ + (if (gx#stx-pair? _%e123377123390%_) + (let ((_%e123380123398%_ + (gx#syntax-e _%e123377123390%_))) + (let ((_%hd123381123401%_ (##car _%e123380123398%_)) + (_%tl123382123403%_ (##cdr _%e123380123398%_))) + (if (gx#stx-pair? _%tl123382123403%_) + (let ((_%e123383123406%_ + (gx#syntax-e _%tl123382123403%_))) + (let ((_%hd123384123409%_ + (##car _%e123383123406%_)) + (_%tl123385123411%_ + (##cdr _%e123383123406%_))) + (let ((_%id123414%_ _%hd123384123409%_)) + (if (gx#stx-pair? _%tl123385123411%_) + (let ((_%e123386123416%_ (gx#syntax-e - _%tl123226123252%_))) - (let ((_%hd123228123260%_ - (##car _%e123227123257%_)) - (_%tl123229123262%_ - (##cdr _%e123227123257%_))) - (let ((_%expr123265%_ - _%hd123228123260%_)) + _%tl123385123411%_))) + (let ((_%hd123387123419%_ + (##car _%e123386123416%_)) + (_%tl123388123421%_ + (##cdr _%e123386123416%_))) + (let ((_%expr123424%_ + _%hd123387123419%_)) (if (gx#stx-null? - _%tl123229123262%_) + _%tl123388123421%_) (if (gx#identifier? - _%id123255%_) + _%id123414%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123255%_ - _%stx123217%_) - (cons (gx#core-expand-expression _%expr123265%_) + _%id123414%_ + _%stx123376%_) + (cons (gx#core-expand-expression _%expr123424%_) '()))) - (gx#stx-source _%stx123217%_)) - (_%E123220123235%_)) + (gx#stx-source _%stx123376%_)) + (_%E123379123394%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123220123235%_))))) - (_%E123220123235%_))))) - (_%E123220123235%_)))) - (_%E123220123235%_))))) - (_%E123219123267%_)))) + (_%E123379123394%_))))) + (_%E123379123394%_))))) + (_%E123379123394%_)))) + (_%E123379123394%_))))) + (_%E123378123426%_)))) (define gx#macro-expand-extern - (lambda (_%stx123062%_) - (letrec ((_%generate123064%_ - (lambda (_%body123094%_) - (let _%lp123096%_ ((_%rest123098%_ _%body123094%_) - (_%ns123099%_ + (lambda (_%stx123221%_) + (letrec ((_%generate123223%_ + (lambda (_%body123253%_) + (let _%lp123255%_ ((_%rest123257%_ _%body123253%_) + (_%ns123258%_ (gx#core-context-namespace__0)) - (_%r123100%_ '())) - (let* ((_%e123101123116%_ _%rest123098%_) - (_%E123114123120%_ + (_%r123259%_ '())) + (let* ((_%e123260123275%_ _%rest123257%_) + (_%E123273123279%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123101123116%_))) - (_%E123110123124%_ + _%e123260123275%_))) + (_%E123269123283%_ (lambda () - (if (gx#stx-null? _%e123101123116%_) - (reverse _%r123100%_) - (_%E123114123120%_)))) - (_%E123103123181%_ + (if (gx#stx-null? _%e123260123275%_) + (reverse _%r123259%_) + (_%E123273123279%_)))) + (_%E123262123340%_ (lambda () - (if (gx#stx-pair? _%e123101123116%_) - (let ((_%e123111123128%_ - (gx#syntax-e _%e123101123116%_))) - (let ((_%hd123112123131%_ - (##car _%e123111123128%_)) - (_%tl123113123133%_ - (##cdr _%e123111123128%_))) - (let* ((_%hd123136%_ - _%hd123112123131%_) - (_%rest123138%_ - _%tl123113123133%_)) - (if (gx#identifier? _%hd123136%_) - (_%lp123096%_ - _%rest123138%_ - _%ns123099%_ - (cons (cons _%hd123136%_ - (cons (if _%ns123099%_ + (if (gx#stx-pair? _%e123260123275%_) + (let ((_%e123270123287%_ + (gx#syntax-e _%e123260123275%_))) + (let ((_%hd123271123290%_ + (##car _%e123270123287%_)) + (_%tl123272123292%_ + (##cdr _%e123270123287%_))) + (let* ((_%hd123295%_ + _%hd123271123290%_) + (_%rest123297%_ + _%tl123272123292%_)) + (if (gx#identifier? _%hd123295%_) + (_%lp123255%_ + _%rest123297%_ + _%ns123258%_ + (cons (cons _%hd123295%_ + (cons (if _%ns123258%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd123136%_ - _%ns123099%_ + _%hd123295%_ + _%ns123258%_ '"#" - _%hd123136%_) - _%hd123136%_) + _%hd123295%_) + _%hd123295%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r123100%_)) - (let* ((_%e123139123149%_ - _%hd123136%_) - (_%E123141123153%_ + _%r123259%_)) + (let* ((_%e123298123308%_ + _%hd123295%_) + (_%E123300123312%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123139123149%_))) - (_%E123140123177%_ + _%e123298123308%_))) + (_%E123299123336%_ (lambda () (if (gx#stx-pair? - _%e123139123149%_) - (let ((_%e123142123157%_ + _%e123298123308%_) + (let ((_%e123301123316%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e123139123149%_))) - (let ((_%hd123143123160%_ (##car _%e123142123157%_)) - (_%tl123144123162%_ (##cdr _%e123142123157%_))) - (let ((_%id123165%_ _%hd123143123160%_)) - (if (gx#stx-pair? _%tl123144123162%_) - (let ((_%e123145123167%_ - (gx#syntax-e _%tl123144123162%_))) - (let ((_%hd123146123170%_ - (##car _%e123145123167%_)) - (_%tl123147123172%_ - (##cdr _%e123145123167%_))) - (let ((_%eid123175%_ _%hd123146123170%_)) - (if (gx#stx-null? _%tl123147123172%_) - (if (and (gx#identifier? _%id123165%_) + (gx#syntax-e _%e123298123308%_))) + (let ((_%hd123302123319%_ (##car _%e123301123316%_)) + (_%tl123303123321%_ (##cdr _%e123301123316%_))) + (let ((_%id123324%_ _%hd123302123319%_)) + (if (gx#stx-pair? _%tl123303123321%_) + (let ((_%e123304123326%_ + (gx#syntax-e _%tl123303123321%_))) + (let ((_%hd123305123329%_ + (##car _%e123304123326%_)) + (_%tl123306123331%_ + (##cdr _%e123304123326%_))) + (let ((_%eid123334%_ _%hd123305123329%_)) + (if (gx#stx-null? _%tl123306123331%_) + (if (and (gx#identifier? _%id123324%_) (gx#identifier? - _%eid123175%_)) - (_%lp123096%_ - _%rest123138%_ - _%ns123099%_ - (cons (cons _%id123165%_ - (cons _%eid123175%_ + _%eid123334%_)) + (_%lp123255%_ + _%rest123297%_ + _%ns123258%_ + (cons (cons _%id123324%_ + (cons _%eid123334%_ '())) - _%r123100%_)) - (_%E123141123153%_)) - (_%E123141123153%_))))) - (_%E123141123153%_))))) - (_%E123141123153%_))))) + _%r123259%_)) + (_%E123300123312%_)) + (_%E123300123312%_))))) + (_%E123300123312%_))))) + (_%E123300123312%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123140123177%_)))))) - (_%E123110123124%_)))) - (_%E123102123213%_ + (_%E123299123336%_)))))) + (_%E123269123283%_)))) + (_%E123261123372%_ (lambda () - (if (gx#stx-pair? _%e123101123116%_) - (let ((_%e123104123185%_ - (gx#syntax-e _%e123101123116%_))) - (let ((_%hd123105123188%_ - (##car _%e123104123185%_)) - (_%tl123106123190%_ - (##cdr _%e123104123185%_))) - (if (eq? (gx#stx-e _%hd123105123188%_) + (if (gx#stx-pair? _%e123260123275%_) + (let ((_%e123263123344%_ + (gx#syntax-e _%e123260123275%_))) + (let ((_%hd123264123347%_ + (##car _%e123263123344%_)) + (_%tl123265123349%_ + (##cdr _%e123263123344%_))) + (if (eq? (gx#stx-e _%hd123264123347%_) 'namespace:) (if (gx#stx-pair? - _%tl123106123190%_) - (let ((_%e123107123193%_ + _%tl123265123349%_) + (let ((_%e123266123352%_ (gx#syntax-e - _%tl123106123190%_))) - (let ((_%hd123108123196%_ - (##car _%e123107123193%_)) - (_%tl123109123198%_ - (##cdr _%e123107123193%_))) - (let* ((_%ns123201%_ - _%hd123108123196%_) - (_%rest123203%_ - _%tl123109123198%_) - (_%ns123211%_ + _%tl123265123349%_))) + (let ((_%hd123267123355%_ + (##car _%e123266123352%_)) + (_%tl123268123357%_ + (##cdr _%e123266123352%_))) + (let* ((_%ns123360%_ + _%hd123267123355%_) + (_%rest123362%_ + _%tl123268123357%_) + (_%ns123370%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns123201%_) - (symbol->string (gx#stx-e _%ns123201%_)) - (if (or (gx#stx-string? _%ns123201%_) - (gx#stx-false? _%ns123201%_)) - (gx#stx-e _%ns123201%_) + _%ns123360%_) + (symbol->string (gx#stx-e _%ns123360%_)) + (if (or (gx#stx-string? _%ns123360%_) + (gx#stx-false? _%ns123360%_)) + (gx#stx-e _%ns123360%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx123062%_ - _%ns123201%_))))) - (_%lp123096%_ _%rest123203%_ _%ns123211%_ _%r123100%_)))) + _%stx123221%_ + _%ns123360%_))))) + (_%lp123255%_ _%rest123362%_ _%ns123370%_ _%r123259%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123103123181%_)) - (_%E123103123181%_)))) - (_%E123103123181%_))))) - (_%E123102123213%_)))))) - (let* ((_%e123065123072%_ _%stx123062%_) - (_%E123067123076%_ + (_%E123262123340%_)) + (_%E123262123340%_)))) + (_%E123262123340%_))))) + (_%E123261123372%_)))))) + (let* ((_%e123224123231%_ _%stx123221%_) + (_%E123226123235%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123065123072%_))) - (_%E123066123090%_ + _%e123224123231%_))) + (_%E123225123249%_ (lambda () - (if (gx#stx-pair? _%e123065123072%_) - (let ((_%e123068123080%_ - (gx#syntax-e _%e123065123072%_))) - (let ((_%hd123069123083%_ (##car _%e123068123080%_)) - (_%tl123070123085%_ (##cdr _%e123068123080%_))) - (let ((_%body123088%_ _%tl123070123085%_)) - (if (gx#stx-list? _%body123088%_) + (if (gx#stx-pair? _%e123224123231%_) + (let ((_%e123227123239%_ + (gx#syntax-e _%e123224123231%_))) + (let ((_%hd123228123242%_ (##car _%e123227123239%_)) + (_%tl123229123244%_ (##cdr _%e123227123239%_))) + (let ((_%body123247%_ _%tl123229123244%_)) + (if (gx#stx-list? _%body123247%_) (gx#core-cons '%#extern - (_%generate123064%_ _%body123088%_)) - (_%E123067123076%_))))) - (_%E123067123076%_))))) - (_%E123066123090%_))))) + (_%generate123223%_ _%body123247%_)) + (_%E123226123235%_))))) + (_%E123226123235%_))))) + (_%E123225123249%_))))) (define gx#macro-expand-define-values - (lambda (_%stx123008%_) - (let* ((_%e123009123022%_ _%stx123008%_) - (_%E123011123026%_ + (lambda (_%stx123167%_) + (let* ((_%e123168123181%_ _%stx123167%_) + (_%E123170123185%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123009123022%_))) - (_%E123010123058%_ + _%e123168123181%_))) + (_%E123169123217%_ (lambda () - (if (gx#stx-pair? _%e123009123022%_) - (let ((_%e123012123030%_ - (gx#syntax-e _%e123009123022%_))) - (let ((_%hd123013123033%_ (##car _%e123012123030%_)) - (_%tl123014123035%_ (##cdr _%e123012123030%_))) - (if (gx#stx-pair? _%tl123014123035%_) - (let ((_%e123015123038%_ - (gx#syntax-e _%tl123014123035%_))) - (let ((_%hd123016123041%_ - (##car _%e123015123038%_)) - (_%tl123017123043%_ - (##cdr _%e123015123038%_))) - (let ((_%hd123046%_ _%hd123016123041%_)) - (if (gx#stx-pair? _%tl123017123043%_) - (let ((_%e123018123048%_ + (if (gx#stx-pair? _%e123168123181%_) + (let ((_%e123171123189%_ + (gx#syntax-e _%e123168123181%_))) + (let ((_%hd123172123192%_ (##car _%e123171123189%_)) + (_%tl123173123194%_ (##cdr _%e123171123189%_))) + (if (gx#stx-pair? _%tl123173123194%_) + (let ((_%e123174123197%_ + (gx#syntax-e _%tl123173123194%_))) + (let ((_%hd123175123200%_ + (##car _%e123174123197%_)) + (_%tl123176123202%_ + (##cdr _%e123174123197%_))) + (let ((_%hd123205%_ _%hd123175123200%_)) + (if (gx#stx-pair? _%tl123176123202%_) + (let ((_%e123177123207%_ (gx#syntax-e - _%tl123017123043%_))) - (let ((_%hd123019123051%_ - (##car _%e123018123048%_)) - (_%tl123020123053%_ - (##cdr _%e123018123048%_))) - (let ((_%expr123056%_ - _%hd123019123051%_)) + _%tl123176123202%_))) + (let ((_%hd123178123210%_ + (##car _%e123177123207%_)) + (_%tl123179123212%_ + (##cdr _%e123177123207%_))) + (let ((_%expr123215%_ + _%hd123178123210%_)) (if (gx#stx-null? - _%tl123020123053%_) + _%tl123179123212%_) (if (gx#stx-andmap gx#identifier? - _%hd123046%_) + _%hd123205%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd123046%_) - (cons _%expr123056%_ '()))) - (_%E123011123026%_)) + _%hd123205%_) + (cons _%expr123215%_ '()))) + (_%E123170123185%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123011123026%_))))) - (_%E123011123026%_))))) - (_%E123011123026%_)))) - (_%E123011123026%_))))) - (_%E123010123058%_)))) + (_%E123170123185%_))))) + (_%E123170123185%_))))) + (_%E123170123185%_)))) + (_%E123170123185%_))))) + (_%E123169123217%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx122954%_) - (let* ((_%e122955122968%_ _%stx122954%_) - (_%E122957122972%_ + (lambda (_%stx123113%_) + (let* ((_%e123114123127%_ _%stx123113%_) + (_%E123116123131%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122955122968%_))) - (_%E122956123004%_ + _%e123114123127%_))) + (_%E123115123163%_ (lambda () - (if (gx#stx-pair? _%e122955122968%_) - (let ((_%e122958122976%_ - (gx#syntax-e _%e122955122968%_))) - (let ((_%hd122959122979%_ (##car _%e122958122976%_)) - (_%tl122960122981%_ (##cdr _%e122958122976%_))) - (if (gx#stx-pair? _%tl122960122981%_) - (let ((_%e122961122984%_ - (gx#syntax-e _%tl122960122981%_))) - (let ((_%hd122962122987%_ - (##car _%e122961122984%_)) - (_%tl122963122989%_ - (##cdr _%e122961122984%_))) - (let ((_%hd122992%_ _%hd122962122987%_)) - (if (gx#stx-pair? _%tl122963122989%_) - (let ((_%e122964122994%_ + (if (gx#stx-pair? _%e123114123127%_) + (let ((_%e123117123135%_ + (gx#syntax-e _%e123114123127%_))) + (let ((_%hd123118123138%_ (##car _%e123117123135%_)) + (_%tl123119123140%_ (##cdr _%e123117123135%_))) + (if (gx#stx-pair? _%tl123119123140%_) + (let ((_%e123120123143%_ + (gx#syntax-e _%tl123119123140%_))) + (let ((_%hd123121123146%_ + (##car _%e123120123143%_)) + (_%tl123122123148%_ + (##cdr _%e123120123143%_))) + (let ((_%hd123151%_ _%hd123121123146%_)) + (if (gx#stx-pair? _%tl123122123148%_) + (let ((_%e123123123153%_ (gx#syntax-e - _%tl122963122989%_))) - (let ((_%hd122965122997%_ - (##car _%e122964122994%_)) - (_%tl122966122999%_ - (##cdr _%e122964122994%_))) - (let ((_%expr123002%_ - _%hd122965122997%_)) + _%tl123122123148%_))) + (let ((_%hd123124123156%_ + (##car _%e123123123153%_)) + (_%tl123125123158%_ + (##cdr _%e123123123153%_))) + (let ((_%expr123161%_ + _%hd123124123156%_)) (if (gx#stx-null? - _%tl122966122999%_) + _%tl123125123158%_) (if (gx#identifier? - _%hd122992%_) + _%hd123151%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd122992%_ + (cons _%hd123151%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr123002%_ '()))) - (_%E122957122972%_)) + (cons _%expr123161%_ '()))) + (_%E123116123131%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122957122972%_))))) - (_%E122957122972%_))))) - (_%E122957122972%_)))) - (_%E122957122972%_))))) - (_%E122956123004%_)))) + (_%E123116123131%_))))) + (_%E123116123131%_))))) + (_%E123116123131%_)))) + (_%E123116123131%_))))) + (_%E123115123163%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx122900%_) - (let* ((_%e122901122914%_ _%stx122900%_) - (_%E122903122918%_ + (lambda (_%stx123059%_) + (let* ((_%e123060123073%_ _%stx123059%_) + (_%E123062123077%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122901122914%_))) - (_%E122902122950%_ + _%e123060123073%_))) + (_%E123061123109%_ (lambda () - (if (gx#stx-pair? _%e122901122914%_) - (let ((_%e122904122922%_ - (gx#syntax-e _%e122901122914%_))) - (let ((_%hd122905122925%_ (##car _%e122904122922%_)) - (_%tl122906122927%_ (##cdr _%e122904122922%_))) - (if (gx#stx-pair? _%tl122906122927%_) - (let ((_%e122907122930%_ - (gx#syntax-e _%tl122906122927%_))) - (let ((_%hd122908122933%_ - (##car _%e122907122930%_)) - (_%tl122909122935%_ - (##cdr _%e122907122930%_))) - (let ((_%id122938%_ _%hd122908122933%_)) - (if (gx#stx-pair? _%tl122909122935%_) - (let ((_%e122910122940%_ + (if (gx#stx-pair? _%e123060123073%_) + (let ((_%e123063123081%_ + (gx#syntax-e _%e123060123073%_))) + (let ((_%hd123064123084%_ (##car _%e123063123081%_)) + (_%tl123065123086%_ (##cdr _%e123063123081%_))) + (if (gx#stx-pair? _%tl123065123086%_) + (let ((_%e123066123089%_ + (gx#syntax-e _%tl123065123086%_))) + (let ((_%hd123067123092%_ + (##car _%e123066123089%_)) + (_%tl123068123094%_ + (##cdr _%e123066123089%_))) + (let ((_%id123097%_ _%hd123067123092%_)) + (if (gx#stx-pair? _%tl123068123094%_) + (let ((_%e123069123099%_ (gx#syntax-e - _%tl122909122935%_))) - (let ((_%hd122911122943%_ - (##car _%e122910122940%_)) - (_%tl122912122945%_ - (##cdr _%e122910122940%_))) - (let ((_%alias-id122948%_ - _%hd122911122943%_)) + _%tl123068123094%_))) + (let ((_%hd123070123102%_ + (##car _%e123069123099%_)) + (_%tl123071123104%_ + (##cdr _%e123069123099%_))) + (let ((_%alias-id123107%_ + _%hd123070123102%_)) (if (gx#stx-null? - _%tl122912122945%_) + _%tl123071123104%_) (if (and (gx#identifier? - _%id122938%_) + _%id123097%_) (gx#identifier? - _%alias-id122948%_)) + _%alias-id123107%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id122938%_ + (cons _%id123097%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id122948%_ '()))) - (_%E122903122918%_)) + (cons _%alias-id123107%_ '()))) + (_%E123062123077%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122903122918%_))))) - (_%E122903122918%_))))) - (_%E122903122918%_)))) - (_%E122903122918%_))))) - (_%E122902122950%_)))) + (_%E123062123077%_))))) + (_%E123062123077%_))))) + (_%E123062123077%_)))) + (_%E123062123077%_))))) + (_%E123061123109%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx122857%_) - (let* ((_%e122858122868%_ _%stx122857%_) - (_%E122860122872%_ + (lambda (_%stx123016%_) + (let* ((_%e123017123027%_ _%stx123016%_) + (_%E123019123031%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122858122868%_))) - (_%E122859122896%_ + _%e123017123027%_))) + (_%E123018123055%_ (lambda () - (if (gx#stx-pair? _%e122858122868%_) - (let ((_%e122861122876%_ - (gx#syntax-e _%e122858122868%_))) - (let ((_%hd122862122879%_ (##car _%e122861122876%_)) - (_%tl122863122881%_ (##cdr _%e122861122876%_))) - (if (gx#stx-pair? _%tl122863122881%_) - (let ((_%e122864122884%_ - (gx#syntax-e _%tl122863122881%_))) - (let ((_%hd122865122887%_ - (##car _%e122864122884%_)) - (_%tl122866122889%_ - (##cdr _%e122864122884%_))) - (let* ((_%hd122892%_ _%hd122865122887%_) - (_%body122894%_ _%tl122866122889%_)) + (if (gx#stx-pair? _%e123017123027%_) + (let ((_%e123020123035%_ + (gx#syntax-e _%e123017123027%_))) + (let ((_%hd123021123038%_ (##car _%e123020123035%_)) + (_%tl123022123040%_ (##cdr _%e123020123035%_))) + (if (gx#stx-pair? _%tl123022123040%_) + (let ((_%e123023123043%_ + (gx#syntax-e _%tl123022123040%_))) + (let ((_%hd123024123046%_ + (##car _%e123023123043%_)) + (_%tl123025123048%_ + (##cdr _%e123023123043%_))) + (let* ((_%hd123051%_ _%hd123024123046%_) + (_%body123053%_ _%tl123025123048%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd122892%_) - (gx#stx-list? _%body122894%_) + _%hd123051%_) + (gx#stx-list? _%body123053%_) (not (gx#stx-null? - _%body122894%_))) + _%body123053%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd122892%_) - _%body122894%_) - (_%E122860122872%_))))) - (_%E122860122872%_)))) - (_%E122860122872%_))))) - (_%E122859122896%_)))) + (gx#stx-map1 identity _%hd123051%_) + _%body123053%_) + (_%E123019123031%_))))) + (_%E123019123031%_)))) + (_%E123019123031%_))))) + (_%E123018123055%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx122793%_) - (letrec ((_%generate122795%_ - (lambda (_%clause122825%_) - (let* ((_%e122826122833%_ _%clause122825%_) - (_%E122828122837%_ + (lambda (_%stx122952%_) + (letrec ((_%generate122954%_ + (lambda (_%clause122984%_) + (let* ((_%e122985122992%_ _%clause122984%_) + (_%E122987122996%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx122793%_ - _%clause122825%_))) - (_%E122827122853%_ + _%stx122952%_ + _%clause122984%_))) + (_%E122986123012%_ (lambda () - (if (gx#stx-pair? _%e122826122833%_) - (let ((_%e122829122841%_ - (gx#syntax-e _%e122826122833%_))) - (let ((_%hd122830122844%_ - (##car _%e122829122841%_)) - (_%tl122831122846%_ - (##cdr _%e122829122841%_))) - (let* ((_%hd122849%_ _%hd122830122844%_) - (_%body122851%_ - _%tl122831122846%_)) + (if (gx#stx-pair? _%e122985122992%_) + (let ((_%e122988123000%_ + (gx#syntax-e _%e122985122992%_))) + (let ((_%hd122989123003%_ + (##car _%e122988123000%_)) + (_%tl122990123005%_ + (##cdr _%e122988123000%_))) + (let* ((_%hd123008%_ _%hd122989123003%_) + (_%body123010%_ + _%tl122990123005%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd122849%_) - (gx#stx-list? _%body122851%_) + _%hd123008%_) + (gx#stx-list? _%body123010%_) (not (gx#stx-null? - _%body122851%_))) + _%body123010%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd122849%_) - _%body122851%_) - (gx#stx-source _%clause122825%_)) - (_%E122828122837%_))))) - (_%E122828122837%_))))) - (_%E122827122853%_))))) - (let* ((_%e122796122803%_ _%stx122793%_) - (_%E122798122807%_ + _%hd123008%_) + _%body123010%_) + (gx#stx-source _%clause122984%_)) + (_%E122987122996%_))))) + (_%E122987122996%_))))) + (_%E122986123012%_))))) + (let* ((_%e122955122962%_ _%stx122952%_) + (_%E122957122966%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122796122803%_))) - (_%E122797122821%_ + _%e122955122962%_))) + (_%E122956122980%_ (lambda () - (if (gx#stx-pair? _%e122796122803%_) - (let ((_%e122799122811%_ - (gx#syntax-e _%e122796122803%_))) - (let ((_%hd122800122814%_ (##car _%e122799122811%_)) - (_%tl122801122816%_ (##cdr _%e122799122811%_))) - (let ((_%clauses122819%_ _%tl122801122816%_)) - (if (gx#stx-list? _%clauses122819%_) + (if (gx#stx-pair? _%e122955122962%_) + (let ((_%e122958122970%_ + (gx#syntax-e _%e122955122962%_))) + (let ((_%hd122959122973%_ (##car _%e122958122970%_)) + (_%tl122960122975%_ (##cdr _%e122958122970%_))) + (let ((_%clauses122978%_ _%tl122960122975%_)) + (if (gx#stx-list? _%clauses122978%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate122795%_ - _%clauses122819%_)) - (_%E122798122807%_))))) - (_%E122798122807%_))))) - (_%E122797122821%_))))) + _%generate122954%_ + _%clauses122978%_)) + (_%E122957122966%_))))) + (_%E122957122966%_))))) + (_%E122956122980%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx122694%_ _%form122695%_) - (letrec ((_%generate122697%_ - (lambda (_%bind122740%_) - (let* ((_%e122741122751%_ _%bind122740%_) - (_%E122743122755%_ + (lambda (_%stx122853%_ _%form122854%_) + (letrec ((_%generate122856%_ + (lambda (_%bind122899%_) + (let* ((_%e122900122910%_ _%bind122899%_) + (_%E122902122914%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx122694%_ - _%bind122740%_))) - (_%E122742122779%_ + _%stx122853%_ + _%bind122899%_))) + (_%E122901122938%_ (lambda () - (if (gx#stx-pair? _%e122741122751%_) - (let ((_%e122744122759%_ - (gx#syntax-e _%e122741122751%_))) - (let ((_%hd122745122762%_ - (##car _%e122744122759%_)) - (_%tl122746122764%_ - (##cdr _%e122744122759%_))) - (let ((_%ids122767%_ _%hd122745122762%_)) - (if (gx#stx-pair? _%tl122746122764%_) - (let ((_%e122747122769%_ + (if (gx#stx-pair? _%e122900122910%_) + (let ((_%e122903122918%_ + (gx#syntax-e _%e122900122910%_))) + (let ((_%hd122904122921%_ + (##car _%e122903122918%_)) + (_%tl122905122923%_ + (##cdr _%e122903122918%_))) + (let ((_%ids122926%_ _%hd122904122921%_)) + (if (gx#stx-pair? _%tl122905122923%_) + (let ((_%e122906122928%_ (gx#syntax-e - _%tl122746122764%_))) - (let ((_%hd122748122772%_ - (##car _%e122747122769%_)) - (_%tl122749122774%_ - (##cdr _%e122747122769%_))) - (let ((_%expr122777%_ - _%hd122748122772%_)) + _%tl122905122923%_))) + (let ((_%hd122907122931%_ + (##car _%e122906122928%_)) + (_%tl122908122933%_ + (##cdr _%e122906122928%_))) + (let ((_%expr122936%_ + _%hd122907122931%_)) (if (gx#stx-null? - _%tl122749122774%_) + _%tl122908122933%_) (if (gx#stx-andmap gx#identifier? - _%ids122767%_) + _%ids122926%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids122767%_) - (cons _%expr122777%_ '())) - (_%E122743122755%_)) - (_%E122743122755%_))))) + _%ids122926%_) + (cons _%expr122936%_ '())) + (_%E122902122914%_)) + (_%E122902122914%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122743122755%_))))) - (_%E122743122755%_))))) - (_%E122742122779%_))))) - (let* ((_%e122698122708%_ _%stx122694%_) - (_%E122700122712%_ + (_%E122902122914%_))))) + (_%E122902122914%_))))) + (_%E122901122938%_))))) + (let* ((_%e122857122867%_ _%stx122853%_) + (_%E122859122871%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122698122708%_))) - (_%E122699122736%_ + _%e122857122867%_))) + (_%E122858122895%_ (lambda () - (if (gx#stx-pair? _%e122698122708%_) - (let ((_%e122701122716%_ - (gx#syntax-e _%e122698122708%_))) - (let ((_%hd122702122719%_ (##car _%e122701122716%_)) - (_%tl122703122721%_ (##cdr _%e122701122716%_))) - (if (gx#stx-pair? _%tl122703122721%_) - (let ((_%e122704122724%_ - (gx#syntax-e _%tl122703122721%_))) - (let ((_%hd122705122727%_ - (##car _%e122704122724%_)) - (_%tl122706122729%_ - (##cdr _%e122704122724%_))) - (let* ((_%hd122732%_ _%hd122705122727%_) - (_%body122734%_ _%tl122706122729%_)) - (if (and (gx#stx-list? _%hd122732%_) - (gx#stx-list? _%body122734%_) + (if (gx#stx-pair? _%e122857122867%_) + (let ((_%e122860122875%_ + (gx#syntax-e _%e122857122867%_))) + (let ((_%hd122861122878%_ (##car _%e122860122875%_)) + (_%tl122862122880%_ (##cdr _%e122860122875%_))) + (if (gx#stx-pair? _%tl122862122880%_) + (let ((_%e122863122883%_ + (gx#syntax-e _%tl122862122880%_))) + (let ((_%hd122864122886%_ + (##car _%e122863122883%_)) + (_%tl122865122888%_ + (##cdr _%e122863122883%_))) + (let* ((_%hd122891%_ _%hd122864122886%_) + (_%body122893%_ _%tl122865122888%_)) + (if (and (gx#stx-list? _%hd122891%_) + (gx#stx-list? _%body122893%_) (not (gx#stx-null? - _%body122734%_))) + _%body122893%_))) (gx#core-cons* - _%form122695%_ + _%form122854%_ (gx#stx-map1 - _%generate122697%_ - _%hd122732%_) - _%body122734%_) - (_%E122700122712%_))))) - (_%E122700122712%_)))) - (_%E122700122712%_))))) - (_%E122699122736%_))))) + _%generate122856%_ + _%hd122891%_) + _%body122893%_) + (_%E122859122871%_))))) + (_%E122859122871%_)))) + (_%E122859122871%_))))) + (_%E122858122895%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx122786%_) - (let ((_%form122788%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx122786%_ _%form122788%_)))) + (lambda (_%stx122945%_) + (let ((_%form122947%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx122945%_ _%form122947%_)))) (define gx#macro-expand-let-values - (lambda _g125175_ - (let ((_g125174_ (##length _g125175_))) - (cond ((##fx= _g125174_ 1) - (apply gx#macro-expand-let-values__0 _g125175_)) - ((##fx= _g125174_ 2) - (apply gx#macro-expand-let-values__% _g125175_)) + (lambda _g125334_ + (let ((_g125333_ (##length _g125334_))) + (cond ((##fx= _g125333_ 1) + (apply gx#macro-expand-let-values__0 _g125334_)) + ((##fx= _g125333_ 2) + (apply gx#macro-expand-let-values__% _g125334_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g125175_)))))) + _g125334_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx122691%_) - (gx#macro-expand-let-values__% _%stx122691%_ '%#letrec-values))) + (lambda (_%stx122850%_) + (gx#macro-expand-let-values__% _%stx122850%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx122689%_) - (gx#macro-expand-let-values__% _%stx122689%_ '%#letrec*-values))) + (lambda (_%stx122848%_) + (gx#macro-expand-let-values__% _%stx122848%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx122580%_) - (let* ((_%e122581122607%_ _%stx122580%_) - (_%E122593122611%_ + (lambda (_%stx122739%_) + (let* ((_%e122740122766%_ _%stx122739%_) + (_%E122752122770%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122581122607%_))) - (_%E122583122653%_ + _%e122740122766%_))) + (_%E122742122812%_ (lambda () - (if (gx#stx-pair? _%e122581122607%_) - (let ((_%e122594122615%_ - (gx#syntax-e _%e122581122607%_))) - (let ((_%hd122595122618%_ (##car _%e122594122615%_)) - (_%tl122596122620%_ (##cdr _%e122594122615%_))) - (if (gx#stx-pair? _%tl122596122620%_) - (let ((_%e122597122623%_ - (gx#syntax-e _%tl122596122620%_))) - (let ((_%hd122598122626%_ - (##car _%e122597122623%_)) - (_%tl122599122628%_ - (##cdr _%e122597122623%_))) - (let ((_%test122631%_ _%hd122598122626%_)) - (if (gx#stx-pair? _%tl122599122628%_) - (let ((_%e122600122633%_ + (if (gx#stx-pair? _%e122740122766%_) + (let ((_%e122753122774%_ + (gx#syntax-e _%e122740122766%_))) + (let ((_%hd122754122777%_ (##car _%e122753122774%_)) + (_%tl122755122779%_ (##cdr _%e122753122774%_))) + (if (gx#stx-pair? _%tl122755122779%_) + (let ((_%e122756122782%_ + (gx#syntax-e _%tl122755122779%_))) + (let ((_%hd122757122785%_ + (##car _%e122756122782%_)) + (_%tl122758122787%_ + (##cdr _%e122756122782%_))) + (let ((_%test122790%_ _%hd122757122785%_)) + (if (gx#stx-pair? _%tl122758122787%_) + (let ((_%e122759122792%_ (gx#syntax-e - _%tl122599122628%_))) - (let ((_%hd122601122636%_ - (##car _%e122600122633%_)) - (_%tl122602122638%_ - (##cdr _%e122600122633%_))) - (let ((_%K122641%_ - _%hd122601122636%_)) + _%tl122758122787%_))) + (let ((_%hd122760122795%_ + (##car _%e122759122792%_)) + (_%tl122761122797%_ + (##cdr _%e122759122792%_))) + (let ((_%K122800%_ + _%hd122760122795%_)) (if (gx#stx-pair? - _%tl122602122638%_) - (let ((_%e122603122643%_ + _%tl122761122797%_) + (let ((_%e122762122802%_ (gx#syntax-e - _%tl122602122638%_))) - (let ((_%hd122604122646%_ - (##car _%e122603122643%_)) - (_%tl122605122648%_ - (##cdr _%e122603122643%_))) - (let ((_%E122651%_ - _%hd122604122646%_)) + _%tl122761122797%_))) + (let ((_%hd122763122805%_ + (##car _%e122762122802%_)) + (_%tl122764122807%_ + (##cdr _%e122762122802%_))) + (let ((_%E122810%_ + _%hd122763122805%_)) (if (gx#stx-null? - _%tl122605122648%_) + _%tl122764122807%_) (gx#core-list '%#if - _%test122631%_ - _%K122641%_ - _%E122651%_) - (_%E122593122611%_))))) - (_%E122593122611%_))))) - (_%E122593122611%_))))) - (_%E122593122611%_)))) - (_%E122593122611%_)))) - (_%E122582122685%_ + _%test122790%_ + _%K122800%_ + _%E122810%_) + (_%E122752122770%_))))) + (_%E122752122770%_))))) + (_%E122752122770%_))))) + (_%E122752122770%_)))) + (_%E122752122770%_)))) + (_%E122741122844%_ (lambda () - (if (gx#stx-pair? _%e122581122607%_) - (let ((_%e122584122657%_ - (gx#syntax-e _%e122581122607%_))) - (let ((_%hd122585122660%_ (##car _%e122584122657%_)) - (_%tl122586122662%_ (##cdr _%e122584122657%_))) - (if (gx#stx-pair? _%tl122586122662%_) - (let ((_%e122587122665%_ - (gx#syntax-e _%tl122586122662%_))) - (let ((_%hd122588122668%_ - (##car _%e122587122665%_)) - (_%tl122589122670%_ - (##cdr _%e122587122665%_))) - (let ((_%test122673%_ _%hd122588122668%_)) - (if (gx#stx-pair? _%tl122589122670%_) - (let ((_%e122590122675%_ + (if (gx#stx-pair? _%e122740122766%_) + (let ((_%e122743122816%_ + (gx#syntax-e _%e122740122766%_))) + (let ((_%hd122744122819%_ (##car _%e122743122816%_)) + (_%tl122745122821%_ (##cdr _%e122743122816%_))) + (if (gx#stx-pair? _%tl122745122821%_) + (let ((_%e122746122824%_ + (gx#syntax-e _%tl122745122821%_))) + (let ((_%hd122747122827%_ + (##car _%e122746122824%_)) + (_%tl122748122829%_ + (##cdr _%e122746122824%_))) + (let ((_%test122832%_ _%hd122747122827%_)) + (if (gx#stx-pair? _%tl122748122829%_) + (let ((_%e122749122834%_ (gx#syntax-e - _%tl122589122670%_))) - (let ((_%hd122591122678%_ - (##car _%e122590122675%_)) - (_%tl122592122680%_ - (##cdr _%e122590122675%_))) - (let ((_%K122683%_ - _%hd122591122678%_)) + _%tl122748122829%_))) + (let ((_%hd122750122837%_ + (##car _%e122749122834%_)) + (_%tl122751122839%_ + (##cdr _%e122749122834%_))) + (let ((_%K122842%_ + _%hd122750122837%_)) (if (gx#stx-null? - _%tl122592122680%_) + _%tl122751122839%_) (gx#core-list '%#if - _%test122673%_ - _%K122683%_ + _%test122832%_ + _%K122842%_ '#!void) - (_%E122583122653%_))))) - (_%E122583122653%_))))) - (_%E122583122653%_)))) - (_%E122583122653%_))))) - (_%E122582122685%_)))) + (_%E122742122812%_))))) + (_%E122742122812%_))))) + (_%E122742122812%_)))) + (_%E122742122812%_))))) + (_%E122741122844%_)))) (define gx#free-identifier=? - (lambda (_%xid122565%_ _%yid122566%_) - (let ((_%xe122568%_ (gx#resolve-identifier__0 _%xid122565%_)) - (_%ye122569%_ (gx#resolve-identifier__0 _%yid122566%_))) - (if (and _%xe122568%_ _%ye122569%_) - (let ((_%$e122572%_ (eq? _%xe122568%_ _%ye122569%_))) - (if _%$e122572%_ - _%$e122572%_ - (if (##structure-instance-of? _%xe122568%_ 'gx#binding::t) + (lambda (_%xid122724%_ _%yid122725%_) + (let ((_%xe122727%_ (gx#resolve-identifier__0 _%xid122724%_)) + (_%ye122728%_ (gx#resolve-identifier__0 _%yid122725%_))) + (if (and _%xe122727%_ _%ye122728%_) + (let ((_%$e122731%_ (eq? _%xe122727%_ _%ye122728%_))) + (if _%$e122731%_ + _%$e122731%_ + (if (##structure-instance-of? _%xe122727%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye122569%_ + _%ye122728%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe122568%_ + _%xe122727%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye122569%_ + _%ye122728%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe122568%_ _%ye122569%_) + (if (or _%xe122727%_ _%ye122728%_) '#f - (gx#stx-eq? _%xid122565%_ _%yid122566%_)))))) + (gx#stx-eq? _%xid122724%_ _%yid122725%_)))))) (define gx#bound-identifier=? - (lambda (_%xid122546%_ _%yid122547%_) - (letrec ((_%context122549%_ - (lambda (_%e122563%_) + (lambda (_%xid122705%_ _%yid122706%_) + (letrec ((_%context122708%_ + (lambda (_%e122722%_) (if (##structure-direct-instance-of? - _%e122563%_ + _%e122722%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e122563%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122722%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks122550%_ - (lambda (_%e122558%_) - (if (symbol? _%e122558%_) + (_%marks122709%_ + (lambda (_%e122717%_) + (if (symbol? _%e122717%_) '() (if (##structure-direct-instance-of? - _%e122558%_ + _%e122717%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e122558%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122717%_ '3 '#f '#f) (##unchecked-structure-ref - _%e122558%_ + _%e122717%_ '4 '#f '#f))))) - (_%unwrap122551%_ - (lambda (_%e122556%_) - (if (symbol? _%e122556%_) - _%e122556%_ - (gx#syntax-local-unwrap _%e122556%_))))) - (let ((_%x122553%_ (_%unwrap122551%_ _%xid122546%_)) - (_%y122554%_ (_%unwrap122551%_ _%yid122547%_))) - (if (gx#stx-eq? _%x122553%_ _%y122554%_) - (if (eq? (_%context122549%_ _%x122553%_) - (_%context122549%_ _%y122554%_)) - (equal? (_%marks122550%_ _%x122553%_) - (_%marks122550%_ _%y122554%_)) + (_%unwrap122710%_ + (lambda (_%e122715%_) + (if (symbol? _%e122715%_) + _%e122715%_ + (gx#syntax-local-unwrap _%e122715%_))))) + (let ((_%x122712%_ (_%unwrap122710%_ _%xid122705%_)) + (_%y122713%_ (_%unwrap122710%_ _%yid122706%_))) + (if (gx#stx-eq? _%x122712%_ _%y122713%_) + (if (eq? (_%context122708%_ _%x122712%_) + (_%context122708%_ _%y122713%_)) + (equal? (_%marks122709%_ _%x122712%_) + (_%marks122709%_ _%y122713%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx122544%_) - (if (gx#identifier? _%stx122544%_) - (gx#core-identifier=? _%stx122544%_ '_) + (lambda (_%stx122703%_) + (if (gx#identifier? _%stx122703%_) + (gx#core-identifier=? _%stx122703%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx122542%_) - (if (gx#identifier? _%stx122542%_) - (gx#core-identifier=? _%stx122542%_ '...) + (lambda (_%stx122701%_) + (if (gx#identifier? _%stx122701%_) + (gx#core-identifier=? _%stx122701%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx122485%_ _%where122486%_) - (let _%lp122488%_ ((_%rest122490%_ (gx#syntax->list _%stx122485%_))) - (let* ((_%rest122491122499%_ _%rest122490%_) - (_%else122493122507%_ (lambda () '#t)) - (_%K122495122520%_ - (lambda (_%rest122510%_ _%hd122511%_) - (if (gx#identifier? _%hd122511%_) - (if (__find (lambda (_%g122513122515%_) + (lambda (_%stx122644%_ _%where122645%_) + (let _%lp122647%_ ((_%rest122649%_ (gx#syntax->list _%stx122644%_))) + (let* ((_%rest122650122658%_ _%rest122649%_) + (_%else122652122666%_ (lambda () '#t)) + (_%K122654122679%_ + (lambda (_%rest122669%_ _%hd122670%_) + (if (gx#identifier? _%hd122670%_) + (if (__find (lambda (_%g122672122674%_) (gx#bound-identifier=? - _%g122513122515%_ - _%hd122511%_)) - _%rest122510%_) + _%g122672122674%_ + _%hd122670%_)) + _%rest122669%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where122486%_ - _%hd122511%_) - (_%lp122488%_ _%rest122510%_)) + _%where122645%_ + _%hd122670%_) + (_%lp122647%_ _%rest122669%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where122486%_ - _%hd122511%_))))) - (if (pair? _%rest122491122499%_) - (let ((_%hd122496122523%_ (##car _%rest122491122499%_)) - (_%tl122497122525%_ (##cdr _%rest122491122499%_))) - (let* ((_%hd122528%_ _%hd122496122523%_) - (_%rest122530%_ _%tl122497122525%_)) - (_%K122495122520%_ _%rest122530%_ _%hd122528%_))) - (_%else122493122507%_)))))) + _%where122645%_ + _%hd122670%_))))) + (if (pair? _%rest122650122658%_) + (let ((_%hd122655122682%_ (##car _%rest122650122658%_)) + (_%tl122656122684%_ (##cdr _%rest122650122658%_))) + (let* ((_%hd122687%_ _%hd122655122682%_) + (_%rest122689%_ _%tl122656122684%_)) + (_%K122654122679%_ _%rest122689%_ _%hd122687%_))) + (_%else122652122666%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx122535%_) - (let ((_%where122537%_ _%stx122535%_)) - (gx#check-duplicate-identifiers__% _%stx122535%_ _%where122537%_)))) + (lambda (_%stx122694%_) + (let ((_%where122696%_ _%stx122694%_)) + (gx#check-duplicate-identifiers__% _%stx122694%_ _%where122696%_)))) (define gx#check-duplicate-identifiers - (lambda _g125177_ - (let ((_g125176_ (##length _g125177_))) - (cond ((##fx= _g125176_ 1) - (apply gx#check-duplicate-identifiers__0 _g125177_)) - ((##fx= _g125176_ 2) - (apply gx#check-duplicate-identifiers__% _g125177_)) + (lambda _g125336_ + (let ((_g125335_ (##length _g125336_))) + (cond ((##fx= _g125335_ 1) + (apply gx#check-duplicate-identifiers__0 _g125336_)) + ((##fx= _g125335_ 2) + (apply gx#check-duplicate-identifiers__% _g125336_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g125177_)))))) + _g125336_)))))) (define gx#core-bind-values? - (lambda (_%stx122477%_) + (lambda (_%stx122636%_) (gx#stx-andmap - (lambda (_%x122479%_) - (let ((_%$e122481%_ (gx#identifier? _%x122479%_))) - (if _%$e122481%_ _%$e122481%_ (gx#stx-false? _%x122479%_)))) - _%stx122477%_))) + (lambda (_%x122638%_) + (let ((_%$e122640%_ (gx#identifier? _%x122638%_))) + (if _%$e122640%_ _%$e122640%_ (gx#stx-false? _%x122638%_)))) + _%stx122636%_))) (define gx#core-bind-values!__% - (lambda (_%stx122441%_ _%rebind?122442%_ _%phi122443%_ _%ctx122444%_) + (lambda (_%stx122600%_ _%rebind?122601%_ _%phi122602%_ _%ctx122603%_) (gx#stx-for-each1 - (lambda (_%id122446%_) - (if (gx#identifier? _%id122446%_) + (lambda (_%id122605%_) + (if (gx#identifier? _%id122605%_) (gx#core-bind-runtime!__% - _%id122446%_ - _%rebind?122442%_ - _%phi122443%_ - _%ctx122444%_) + _%id122605%_ + _%rebind?122601%_ + _%phi122602%_ + _%ctx122603%_) '#!void)) - _%stx122441%_))) + _%stx122600%_))) (define gx#core-bind-values!__0 - (lambda (_%stx122451%_) - (let* ((_%rebind?122453%_ '#f) - (_%phi122455%_ (gx#current-expander-phi)) - (_%ctx122457%_ (gx#current-expander-context))) + (lambda (_%stx122610%_) + (let* ((_%rebind?122612%_ '#f) + (_%phi122614%_ (gx#current-expander-phi)) + (_%ctx122616%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122451%_ - _%rebind?122453%_ - _%phi122455%_ - _%ctx122457%_)))) + _%stx122610%_ + _%rebind?122612%_ + _%phi122614%_ + _%ctx122616%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx122459%_ _%rebind?122460%_) - (let* ((_%phi122462%_ (gx#current-expander-phi)) - (_%ctx122464%_ (gx#current-expander-context))) + (lambda (_%stx122618%_ _%rebind?122619%_) + (let* ((_%phi122621%_ (gx#current-expander-phi)) + (_%ctx122623%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122459%_ - _%rebind?122460%_ - _%phi122462%_ - _%ctx122464%_)))) + _%stx122618%_ + _%rebind?122619%_ + _%phi122621%_ + _%ctx122623%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx122466%_ _%rebind?122467%_ _%phi122468%_) - (let ((_%ctx122470%_ (gx#current-expander-context))) + (lambda (_%stx122625%_ _%rebind?122626%_ _%phi122627%_) + (let ((_%ctx122629%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122466%_ - _%rebind?122467%_ - _%phi122468%_ - _%ctx122470%_)))) + _%stx122625%_ + _%rebind?122626%_ + _%phi122627%_ + _%ctx122629%_)))) (define gx#core-bind-values! - (lambda _g125179_ - (let ((_g125178_ (##length _g125179_))) - (cond ((##fx= _g125178_ 1) (apply gx#core-bind-values!__0 _g125179_)) - ((##fx= _g125178_ 2) (apply gx#core-bind-values!__1 _g125179_)) - ((##fx= _g125178_ 3) (apply gx#core-bind-values!__2 _g125179_)) - ((##fx= _g125178_ 4) (apply gx#core-bind-values!__% _g125179_)) + (lambda _g125338_ + (let ((_g125337_ (##length _g125338_))) + (cond ((##fx= _g125337_ 1) (apply gx#core-bind-values!__0 _g125338_)) + ((##fx= _g125337_ 2) (apply gx#core-bind-values!__1 _g125338_)) + ((##fx= _g125337_ 3) (apply gx#core-bind-values!__2 _g125338_)) + ((##fx= _g125337_ 4) (apply gx#core-bind-values!__% _g125338_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g125179_)))))) + _g125338_)))))) (define gx#core-quote-bind-values - (lambda (_%stx122436%_) + (lambda (_%stx122595%_) (gx#stx-map1 - (lambda (_%x122438%_) - (if (gx#identifier? _%x122438%_) - (gx#core-quote-syntax__0 _%x122438%_) + (lambda (_%x122597%_) + (if (gx#identifier? _%x122597%_) + (gx#core-quote-syntax__0 _%x122597%_) '#f)) - _%stx122436%_))) + _%stx122595%_))) (define gx#core-runtime-ref? - (lambda (_%stx122429%_) - (if (gx#identifier? _%stx122429%_) - (let* ((_%bind122431%_ (gx#resolve-identifier__0 _%stx122429%_)) - (_%$e122433%_ (not _%bind122431%_))) - (if _%$e122433%_ - _%$e122433%_ + (lambda (_%stx122588%_) + (if (gx#identifier? _%stx122588%_) + (let* ((_%bind122590%_ (gx#resolve-identifier__0 _%stx122588%_)) + (_%$e122592%_ (not _%bind122590%_))) + (if _%$e122592%_ + _%$e122592%_ (##structure-instance-of? - _%bind122431%_ + _%bind122590%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id122418%_ _%form122419%_) - (let ((_%bind122421%_ (gx#resolve-identifier__0 _%id122418%_))) - (if (##structure-instance-of? _%bind122421%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id122418%_) - (if (not _%bind122421%_) + (lambda (_%id122577%_ _%form122578%_) + (let ((_%bind122580%_ (gx#resolve-identifier__0 _%id122577%_))) + (if (##structure-instance-of? _%bind122580%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id122577%_) + (if (not _%bind122580%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id122418%_))) - (gx#core-quote-syntax__0 _%id122418%_) + (gx#core-extern-symbol? (gx#stx-e _%id122577%_))) + (gx#core-quote-syntax__0 _%id122577%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form122419%_ - _%id122418%_)) + _%form122578%_ + _%id122577%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form122419%_ - _%id122418%_)))))) + _%form122578%_ + _%id122577%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id122373%_ _%rebind?122374%_ _%phi122375%_ _%ctx122376%_) - (let* ((_%key122378%_ (gx#core-identifier-key _%id122373%_)) - (_%eid122380%_ + (lambda (_%id122532%_ _%rebind?122533%_ _%phi122534%_ _%ctx122535%_) + (let* ((_%key122537%_ (gx#core-identifier-key _%id122532%_)) + (_%eid122539%_ (gx#make-binding-id__% - _%key122378%_ + _%key122537%_ '#f - _%phi122375%_ - _%ctx122376%_)) - (_%bind122386%_ + _%phi122534%_ + _%ctx122535%_)) + (_%bind122545%_ (if (##structure-instance-of? - _%ctx122376%_ + _%ctx122535%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_ - _%ctx122376%_) + _%eid122539%_ + _%key122537%_ + _%phi122534%_ + _%ctx122535%_) (if (##structure-instance-of? - _%ctx122376%_ + _%ctx122535%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_) + _%eid122539%_ + _%key122537%_ + _%phi122534%_) (if (##structure-instance-of? - _%ctx122376%_ + _%ctx122535%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_) + _%eid122539%_ + _%key122537%_ + _%phi122534%_) (##structure gx#runtime-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_)))))) + _%eid122539%_ + _%key122537%_ + _%phi122534%_)))))) (gx#bind-identifier!__% - _%id122373%_ - _%bind122386%_ - _%rebind?122374%_ - _%phi122375%_ - _%ctx122376%_)))) + _%id122532%_ + _%bind122545%_ + _%rebind?122533%_ + _%phi122534%_ + _%ctx122535%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id122392%_) - (let* ((_%rebind?122394%_ '#f) - (_%phi122396%_ (gx#current-expander-phi)) - (_%ctx122398%_ (gx#current-expander-context))) + (lambda (_%id122551%_) + (let* ((_%rebind?122553%_ '#f) + (_%phi122555%_ (gx#current-expander-phi)) + (_%ctx122557%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122392%_ - _%rebind?122394%_ - _%phi122396%_ - _%ctx122398%_)))) + _%id122551%_ + _%rebind?122553%_ + _%phi122555%_ + _%ctx122557%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id122400%_ _%rebind?122401%_) - (let* ((_%phi122403%_ (gx#current-expander-phi)) - (_%ctx122405%_ (gx#current-expander-context))) + (lambda (_%id122559%_ _%rebind?122560%_) + (let* ((_%phi122562%_ (gx#current-expander-phi)) + (_%ctx122564%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122400%_ - _%rebind?122401%_ - _%phi122403%_ - _%ctx122405%_)))) + _%id122559%_ + _%rebind?122560%_ + _%phi122562%_ + _%ctx122564%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id122407%_ _%rebind?122408%_ _%phi122409%_) - (let ((_%ctx122411%_ (gx#current-expander-context))) + (lambda (_%id122566%_ _%rebind?122567%_ _%phi122568%_) + (let ((_%ctx122570%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122407%_ - _%rebind?122408%_ - _%phi122409%_ - _%ctx122411%_)))) + _%id122566%_ + _%rebind?122567%_ + _%phi122568%_ + _%ctx122570%_)))) (define gx#core-bind-runtime! - (lambda _g125181_ - (let ((_g125180_ (##length _g125181_))) - (cond ((##fx= _g125180_ 1) - (apply gx#core-bind-runtime!__0 _g125181_)) - ((##fx= _g125180_ 2) - (apply gx#core-bind-runtime!__1 _g125181_)) - ((##fx= _g125180_ 3) - (apply gx#core-bind-runtime!__2 _g125181_)) - ((##fx= _g125180_ 4) - (apply gx#core-bind-runtime!__% _g125181_)) + (lambda _g125340_ + (let ((_g125339_ (##length _g125340_))) + (cond ((##fx= _g125339_ 1) + (apply gx#core-bind-runtime!__0 _g125340_)) + ((##fx= _g125339_ 2) + (apply gx#core-bind-runtime!__1 _g125340_)) + ((##fx= _g125339_ 3) + (apply gx#core-bind-runtime!__2 _g125340_)) + ((##fx= _g125339_ 4) + (apply gx#core-bind-runtime!__% _g125340_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g125181_)))))) + _g125340_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id122325%_ - _%eid122326%_ - _%rebind?122327%_ - _%phi122328%_ - _%ctx122329%_) - (let* ((_%key122331%_ (gx#core-identifier-key _%id122325%_)) - (_%bind122336%_ + (lambda (_%id122484%_ + _%eid122485%_ + _%rebind?122486%_ + _%phi122487%_ + _%ctx122488%_) + (let* ((_%key122490%_ (gx#core-identifier-key _%id122484%_)) + (_%bind122495%_ (if (##structure-instance-of? - _%ctx122329%_ + _%ctx122488%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122326%_ - _%key122331%_ - _%phi122328%_ - _%ctx122329%_) + _%eid122485%_ + _%key122490%_ + _%phi122487%_ + _%ctx122488%_) (if (##structure-instance-of? - _%ctx122329%_ + _%ctx122488%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122326%_ - _%key122331%_ - _%phi122328%_) + _%eid122485%_ + _%key122490%_ + _%phi122487%_) (##structure gx#runtime-binding::t - _%eid122326%_ - _%key122331%_ - _%phi122328%_))))) + _%eid122485%_ + _%key122490%_ + _%phi122487%_))))) (gx#bind-identifier!__% - _%id122325%_ - _%bind122336%_ - _%rebind?122327%_ - _%phi122328%_ - _%ctx122329%_)))) + _%id122484%_ + _%bind122495%_ + _%rebind?122486%_ + _%phi122487%_ + _%ctx122488%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id122342%_ _%eid122343%_) - (let* ((_%rebind?122345%_ '#f) - (_%phi122347%_ (gx#current-expander-phi)) - (_%ctx122349%_ (gx#current-expander-context))) + (lambda (_%id122501%_ _%eid122502%_) + (let* ((_%rebind?122504%_ '#f) + (_%phi122506%_ (gx#current-expander-phi)) + (_%ctx122508%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122342%_ - _%eid122343%_ - _%rebind?122345%_ - _%phi122347%_ - _%ctx122349%_)))) + _%id122501%_ + _%eid122502%_ + _%rebind?122504%_ + _%phi122506%_ + _%ctx122508%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id122351%_ _%eid122352%_ _%rebind?122353%_) - (let* ((_%phi122355%_ (gx#current-expander-phi)) - (_%ctx122357%_ (gx#current-expander-context))) + (lambda (_%id122510%_ _%eid122511%_ _%rebind?122512%_) + (let* ((_%phi122514%_ (gx#current-expander-phi)) + (_%ctx122516%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122351%_ - _%eid122352%_ - _%rebind?122353%_ - _%phi122355%_ - _%ctx122357%_)))) + _%id122510%_ + _%eid122511%_ + _%rebind?122512%_ + _%phi122514%_ + _%ctx122516%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id122359%_ _%eid122360%_ _%rebind?122361%_ _%phi122362%_) - (let ((_%ctx122364%_ (gx#current-expander-context))) + (lambda (_%id122518%_ _%eid122519%_ _%rebind?122520%_ _%phi122521%_) + (let ((_%ctx122523%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122359%_ - _%eid122360%_ - _%rebind?122361%_ - _%phi122362%_ - _%ctx122364%_)))) + _%id122518%_ + _%eid122519%_ + _%rebind?122520%_ + _%phi122521%_ + _%ctx122523%_)))) (define gx#core-bind-runtime-reference! - (lambda _g125183_ - (let ((_g125182_ (##length _g125183_))) - (cond ((##fx= _g125182_ 2) - (apply gx#core-bind-runtime-reference!__0 _g125183_)) - ((##fx= _g125182_ 3) - (apply gx#core-bind-runtime-reference!__1 _g125183_)) - ((##fx= _g125182_ 4) - (apply gx#core-bind-runtime-reference!__2 _g125183_)) - ((##fx= _g125182_ 5) - (apply gx#core-bind-runtime-reference!__% _g125183_)) + (lambda _g125342_ + (let ((_g125341_ (##length _g125342_))) + (cond ((##fx= _g125341_ 2) + (apply gx#core-bind-runtime-reference!__0 _g125342_)) + ((##fx= _g125341_ 3) + (apply gx#core-bind-runtime-reference!__1 _g125342_)) + ((##fx= _g125341_ 4) + (apply gx#core-bind-runtime-reference!__2 _g125342_)) + ((##fx= _g125341_ 5) + (apply gx#core-bind-runtime-reference!__% _g125342_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g125183_)))))) + _g125342_)))))) (define gx#core-bind-extern!__% - (lambda (_%id122285%_ - _%eid122286%_ - _%rebind?122287%_ - _%phi122288%_ - _%ctx122289%_) + (lambda (_%id122444%_ + _%eid122445%_ + _%rebind?122446%_ + _%phi122447%_ + _%ctx122448%_) (gx#bind-identifier!__% - _%id122285%_ + _%id122444%_ (##structure gx#extern-binding::t - _%eid122286%_ - (gx#core-identifier-key _%id122285%_) - _%phi122288%_) - _%rebind?122287%_ - _%phi122288%_ - _%ctx122289%_))) + _%eid122445%_ + (gx#core-identifier-key _%id122444%_) + _%phi122447%_) + _%rebind?122446%_ + _%phi122447%_ + _%ctx122448%_))) (define gx#core-bind-extern!__0 - (lambda (_%id122294%_ _%eid122295%_) - (let* ((_%rebind?122297%_ '#f) - (_%phi122299%_ (gx#current-expander-phi)) - (_%ctx122301%_ (gx#current-expander-context))) + (lambda (_%id122453%_ _%eid122454%_) + (let* ((_%rebind?122456%_ '#f) + (_%phi122458%_ (gx#current-expander-phi)) + (_%ctx122460%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122294%_ - _%eid122295%_ - _%rebind?122297%_ - _%phi122299%_ - _%ctx122301%_)))) + _%id122453%_ + _%eid122454%_ + _%rebind?122456%_ + _%phi122458%_ + _%ctx122460%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id122303%_ _%eid122304%_ _%rebind?122305%_) - (let* ((_%phi122307%_ (gx#current-expander-phi)) - (_%ctx122309%_ (gx#current-expander-context))) + (lambda (_%id122462%_ _%eid122463%_ _%rebind?122464%_) + (let* ((_%phi122466%_ (gx#current-expander-phi)) + (_%ctx122468%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122303%_ - _%eid122304%_ - _%rebind?122305%_ - _%phi122307%_ - _%ctx122309%_)))) + _%id122462%_ + _%eid122463%_ + _%rebind?122464%_ + _%phi122466%_ + _%ctx122468%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id122311%_ _%eid122312%_ _%rebind?122313%_ _%phi122314%_) - (let ((_%ctx122316%_ (gx#current-expander-context))) + (lambda (_%id122470%_ _%eid122471%_ _%rebind?122472%_ _%phi122473%_) + (let ((_%ctx122475%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122311%_ - _%eid122312%_ - _%rebind?122313%_ - _%phi122314%_ - _%ctx122316%_)))) + _%id122470%_ + _%eid122471%_ + _%rebind?122472%_ + _%phi122473%_ + _%ctx122475%_)))) (define gx#core-bind-extern! - (lambda _g125185_ - (let ((_g125184_ (##length _g125185_))) - (cond ((##fx= _g125184_ 2) (apply gx#core-bind-extern!__0 _g125185_)) - ((##fx= _g125184_ 3) (apply gx#core-bind-extern!__1 _g125185_)) - ((##fx= _g125184_ 4) (apply gx#core-bind-extern!__2 _g125185_)) - ((##fx= _g125184_ 5) (apply gx#core-bind-extern!__% _g125185_)) + (lambda _g125344_ + (let ((_g125343_ (##length _g125344_))) + (cond ((##fx= _g125343_ 2) (apply gx#core-bind-extern!__0 _g125344_)) + ((##fx= _g125343_ 3) (apply gx#core-bind-extern!__1 _g125344_)) + ((##fx= _g125343_ 4) (apply gx#core-bind-extern!__2 _g125344_)) + ((##fx= _g125343_ 5) (apply gx#core-bind-extern!__% _g125344_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g125185_)))))) + _g125344_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id122239%_ - _%e122240%_ - _%rebind?122241%_ - _%phi122242%_ - _%ctx122243%_) + (lambda (_%id122398%_ + _%e122399%_ + _%rebind?122400%_ + _%phi122401%_ + _%ctx122402%_) (gx#bind-identifier!__% - _%id122239%_ - (let ((_%key122248%_ (gx#core-identifier-key _%id122239%_)) - (_%e122249%_ - (if (or (##structure-instance-of? _%e122240%_ 'gx#expander::t) + _%id122398%_ + (let ((_%key122407%_ (gx#core-identifier-key _%id122398%_)) + (_%e122408%_ + (if (or (##structure-instance-of? _%e122399%_ 'gx#expander::t) (##structure-instance-of? - _%e122240%_ + _%e122399%_ 'gx#expander-context::t)) - _%e122240%_ + _%e122399%_ (##structure gx#user-expander::t - _%e122240%_ - _%ctx122243%_ - _%phi122242%_)))) + _%e122399%_ + _%ctx122402%_ + _%phi122401%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key122248%_ + _%key122407%_ '#t - _%phi122242%_ - _%ctx122243%_) - _%key122248%_ - _%phi122242%_ - _%e122249%_)) - _%rebind?122241%_ - _%phi122242%_ - _%ctx122243%_))) + _%phi122401%_ + _%ctx122402%_) + _%key122407%_ + _%phi122401%_ + _%e122408%_)) + _%rebind?122400%_ + _%phi122401%_ + _%ctx122402%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id122254%_ _%e122255%_) - (let* ((_%rebind?122257%_ '#f) - (_%phi122259%_ (gx#current-expander-phi)) - (_%ctx122261%_ (gx#current-expander-context))) + (lambda (_%id122413%_ _%e122414%_) + (let* ((_%rebind?122416%_ '#f) + (_%phi122418%_ (gx#current-expander-phi)) + (_%ctx122420%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122254%_ - _%e122255%_ - _%rebind?122257%_ - _%phi122259%_ - _%ctx122261%_)))) + _%id122413%_ + _%e122414%_ + _%rebind?122416%_ + _%phi122418%_ + _%ctx122420%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id122263%_ _%e122264%_ _%rebind?122265%_) - (let* ((_%phi122267%_ (gx#current-expander-phi)) - (_%ctx122269%_ (gx#current-expander-context))) + (lambda (_%id122422%_ _%e122423%_ _%rebind?122424%_) + (let* ((_%phi122426%_ (gx#current-expander-phi)) + (_%ctx122428%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122263%_ - _%e122264%_ - _%rebind?122265%_ - _%phi122267%_ - _%ctx122269%_)))) + _%id122422%_ + _%e122423%_ + _%rebind?122424%_ + _%phi122426%_ + _%ctx122428%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id122271%_ _%e122272%_ _%rebind?122273%_ _%phi122274%_) - (let ((_%ctx122276%_ (gx#current-expander-context))) + (lambda (_%id122430%_ _%e122431%_ _%rebind?122432%_ _%phi122433%_) + (let ((_%ctx122435%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122271%_ - _%e122272%_ - _%rebind?122273%_ - _%phi122274%_ - _%ctx122276%_)))) + _%id122430%_ + _%e122431%_ + _%rebind?122432%_ + _%phi122433%_ + _%ctx122435%_)))) (define gx#core-bind-syntax! - (lambda _g125187_ - (let ((_g125186_ (##length _g125187_))) - (cond ((##fx= _g125186_ 2) (apply gx#core-bind-syntax!__0 _g125187_)) - ((##fx= _g125186_ 3) (apply gx#core-bind-syntax!__1 _g125187_)) - ((##fx= _g125186_ 4) (apply gx#core-bind-syntax!__2 _g125187_)) - ((##fx= _g125186_ 5) (apply gx#core-bind-syntax!__% _g125187_)) + (lambda _g125346_ + (let ((_g125345_ (##length _g125346_))) + (cond ((##fx= _g125345_ 2) (apply gx#core-bind-syntax!__0 _g125346_)) + ((##fx= _g125345_ 3) (apply gx#core-bind-syntax!__1 _g125346_)) + ((##fx= _g125345_ 4) (apply gx#core-bind-syntax!__2 _g125346_)) + ((##fx= _g125345_ 5) (apply gx#core-bind-syntax!__% _g125346_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g125187_)))))) + _g125346_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id122222%_ _%e122223%_ _%rebind?122224%_) + (lambda (_%id122381%_ _%e122382%_ _%rebind?122383%_) (gx#core-bind-syntax!__% - _%id122222%_ - _%e122223%_ - _%rebind?122224%_ + _%id122381%_ + _%e122382%_ + _%rebind?122383%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id122229%_ _%e122230%_) - (let ((_%rebind?122232%_ '#f)) + (lambda (_%id122388%_ _%e122389%_) + (let ((_%rebind?122391%_ '#f)) (gx#core-bind-root-syntax!__% - _%id122229%_ - _%e122230%_ - _%rebind?122232%_)))) + _%id122388%_ + _%e122389%_ + _%rebind?122391%_)))) (define gx#core-bind-root-syntax! - (lambda _g125189_ - (let ((_g125188_ (##length _g125189_))) - (cond ((##fx= _g125188_ 2) - (apply gx#core-bind-root-syntax!__0 _g125189_)) - ((##fx= _g125188_ 3) - (apply gx#core-bind-root-syntax!__% _g125189_)) + (lambda _g125348_ + (let ((_g125347_ (##length _g125348_))) + (cond ((##fx= _g125347_ 2) + (apply gx#core-bind-root-syntax!__0 _g125348_)) + ((##fx= _g125347_ 3) + (apply gx#core-bind-root-syntax!__% _g125348_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g125189_)))))) + _g125348_)))))) (define gx#core-bind-alias!__% - (lambda (_%id122180%_ - _%alias-id122181%_ - _%rebind?122182%_ - _%phi122183%_ - _%ctx122184%_) + (lambda (_%id122339%_ + _%alias-id122340%_ + _%rebind?122341%_ + _%phi122342%_ + _%ctx122343%_) (gx#bind-identifier!__% - _%id122180%_ - (let ((_%key122186%_ (gx#core-identifier-key _%id122180%_))) + _%id122339%_ + (let ((_%key122345%_ (gx#core-identifier-key _%id122339%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key122186%_ + _%key122345%_ '#t - _%phi122183%_ - _%ctx122184%_) - _%key122186%_ - _%phi122183%_ - _%alias-id122181%_)) - _%rebind?122182%_ - _%phi122183%_ - _%ctx122184%_))) + _%phi122342%_ + _%ctx122343%_) + _%key122345%_ + _%phi122342%_ + _%alias-id122340%_)) + _%rebind?122341%_ + _%phi122342%_ + _%ctx122343%_))) (define gx#core-bind-alias!__0 - (lambda (_%id122191%_ _%alias-id122192%_) - (let* ((_%rebind?122194%_ '#f) - (_%phi122196%_ (gx#current-expander-phi)) - (_%ctx122198%_ (gx#current-expander-context))) + (lambda (_%id122350%_ _%alias-id122351%_) + (let* ((_%rebind?122353%_ '#f) + (_%phi122355%_ (gx#current-expander-phi)) + (_%ctx122357%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122191%_ - _%alias-id122192%_ - _%rebind?122194%_ - _%phi122196%_ - _%ctx122198%_)))) + _%id122350%_ + _%alias-id122351%_ + _%rebind?122353%_ + _%phi122355%_ + _%ctx122357%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id122200%_ _%alias-id122201%_ _%rebind?122202%_) - (let* ((_%phi122204%_ (gx#current-expander-phi)) - (_%ctx122206%_ (gx#current-expander-context))) + (lambda (_%id122359%_ _%alias-id122360%_ _%rebind?122361%_) + (let* ((_%phi122363%_ (gx#current-expander-phi)) + (_%ctx122365%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122200%_ - _%alias-id122201%_ - _%rebind?122202%_ - _%phi122204%_ - _%ctx122206%_)))) + _%id122359%_ + _%alias-id122360%_ + _%rebind?122361%_ + _%phi122363%_ + _%ctx122365%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id122208%_ _%alias-id122209%_ _%rebind?122210%_ _%phi122211%_) - (let ((_%ctx122213%_ (gx#current-expander-context))) + (lambda (_%id122367%_ _%alias-id122368%_ _%rebind?122369%_ _%phi122370%_) + (let ((_%ctx122372%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122208%_ - _%alias-id122209%_ - _%rebind?122210%_ - _%phi122211%_ - _%ctx122213%_)))) + _%id122367%_ + _%alias-id122368%_ + _%rebind?122369%_ + _%phi122370%_ + _%ctx122372%_)))) (define gx#core-bind-alias! - (lambda _g125191_ - (let ((_g125190_ (##length _g125191_))) - (cond ((##fx= _g125190_ 2) (apply gx#core-bind-alias!__0 _g125191_)) - ((##fx= _g125190_ 3) (apply gx#core-bind-alias!__1 _g125191_)) - ((##fx= _g125190_ 4) (apply gx#core-bind-alias!__2 _g125191_)) - ((##fx= _g125190_ 5) (apply gx#core-bind-alias!__% _g125191_)) + (lambda _g125350_ + (let ((_g125349_ (##length _g125350_))) + (cond ((##fx= _g125349_ 2) (apply gx#core-bind-alias!__0 _g125350_)) + ((##fx= _g125349_ 3) (apply gx#core-bind-alias!__1 _g125350_)) + ((##fx= _g125349_ 4) (apply gx#core-bind-alias!__2 _g125350_)) + ((##fx= _g125349_ 5) (apply gx#core-bind-alias!__% _g125350_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g125191_)))))) + _g125350_)))))) (define gx#make-binding-id__% - (lambda (_%key122130%_ _%syntax?122131%_ _%phi122132%_ _%ctx122133%_) - (if (uninterned-symbol? _%key122130%_) + (lambda (_%key122289%_ _%syntax?122290%_ _%phi122291%_ _%ctx122292%_) + (if (uninterned-symbol? _%key122289%_) (##gensym 'L) - (if (pair? _%key122130%_) - (gensym (##car _%key122130%_)) - (if (##structure-instance-of? _%ctx122133%_ 'gx#top-context::t) - (let ((_%ns122138%_ - (gx#core-context-namespace__% _%ctx122133%_))) - (if (and (fxzero? _%phi122132%_) (not _%syntax?122131%_)) - (if _%ns122138%_ - (make-symbol__1 _%ns122138%_ '"#" _%key122130%_) - _%key122130%_) - (if _%syntax?122131%_ + (if (pair? _%key122289%_) + (gensym (##car _%key122289%_)) + (if (##structure-instance-of? _%ctx122292%_ 'gx#top-context::t) + (let ((_%ns122297%_ + (gx#core-context-namespace__% _%ctx122292%_))) + (if (and (fxzero? _%phi122291%_) (not _%syntax?122290%_)) + (if _%ns122297%_ + (make-symbol__1 _%ns122297%_ '"#" _%key122289%_) + _%key122289%_) + (if _%syntax?122290%_ (make-symbol__1 - (let ((_%$e122142%_ _%ns122138%_)) - (if _%$e122142%_ _%$e122142%_ '"")) + (let ((_%$e122301%_ _%ns122297%_)) + (if _%$e122301%_ _%$e122301%_ '"")) '"[:" - (number->string _%phi122132%_) + (number->string _%phi122291%_) '":]#" - _%key122130%_) + _%key122289%_) (make-symbol__1 - (let ((_%$e122146%_ _%ns122138%_)) - (if _%$e122146%_ _%$e122146%_ '"")) + (let ((_%$e122305%_ _%ns122297%_)) + (if _%$e122305%_ _%$e122305%_ '"")) '"[" - (number->string _%phi122132%_) + (number->string _%phi122291%_) '"]#" - _%key122130%_)))) - (gensym _%key122130%_)))))) + _%key122289%_)))) + (gensym _%key122289%_)))))) (define gx#make-binding-id__0 - (lambda (_%key122153%_) - (let* ((_%syntax?122155%_ '#f) - (_%phi122157%_ (gx#current-expander-phi)) - (_%ctx122159%_ (gx#current-expander-context))) + (lambda (_%key122312%_) + (let* ((_%syntax?122314%_ '#f) + (_%phi122316%_ (gx#current-expander-phi)) + (_%ctx122318%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122153%_ - _%syntax?122155%_ - _%phi122157%_ - _%ctx122159%_)))) + _%key122312%_ + _%syntax?122314%_ + _%phi122316%_ + _%ctx122318%_)))) (define gx#make-binding-id__1 - (lambda (_%key122161%_ _%syntax?122162%_) - (let* ((_%phi122164%_ (gx#current-expander-phi)) - (_%ctx122166%_ (gx#current-expander-context))) + (lambda (_%key122320%_ _%syntax?122321%_) + (let* ((_%phi122323%_ (gx#current-expander-phi)) + (_%ctx122325%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122161%_ - _%syntax?122162%_ - _%phi122164%_ - _%ctx122166%_)))) + _%key122320%_ + _%syntax?122321%_ + _%phi122323%_ + _%ctx122325%_)))) (define gx#make-binding-id__2 - (lambda (_%key122168%_ _%syntax?122169%_ _%phi122170%_) - (let ((_%ctx122172%_ (gx#current-expander-context))) + (lambda (_%key122327%_ _%syntax?122328%_ _%phi122329%_) + (let ((_%ctx122331%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122168%_ - _%syntax?122169%_ - _%phi122170%_ - _%ctx122172%_)))) + _%key122327%_ + _%syntax?122328%_ + _%phi122329%_ + _%ctx122331%_)))) (define gx#make-binding-id - (lambda _g125193_ - (let ((_g125192_ (##length _g125193_))) - (cond ((##fx= _g125192_ 1) (apply gx#make-binding-id__0 _g125193_)) - ((##fx= _g125192_ 2) (apply gx#make-binding-id__1 _g125193_)) - ((##fx= _g125192_ 3) (apply gx#make-binding-id__2 _g125193_)) - ((##fx= _g125192_ 4) (apply gx#make-binding-id__% _g125193_)) + (lambda _g125352_ + (let ((_g125351_ (##length _g125352_))) + (cond ((##fx= _g125351_ 1) (apply gx#make-binding-id__0 _g125352_)) + ((##fx= _g125351_ 2) (apply gx#make-binding-id__1 _g125352_)) + ((##fx= _g125351_ 3) (apply gx#make-binding-id__2 _g125352_)) + ((##fx= _g125351_ 4) (apply gx#make-binding-id__% _g125352_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g125193_)))))))) + _g125352_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 90759ca68..1ddeed956 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,428 +1,437 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1713631264) + (define gerbil/runtime/c3::timestamp 1733687558) (begin (define c4-linearize__% - (lambda (_%@@keywords94445%_ - _%get-precedence-list9443994446%_ - _%struct?9444094448%_ - _%eq9444194450%_ - _%get-name9444294452%_ - _%rhead94454%_ - _%supers94455%_) - (let* ((_%get-precedence-list94457%_ - (if (eq? _%get-precedence-list9443994446%_ absent-value) + (lambda (_%@@keywords94597%_ + _%get-precedence-list9459194598%_ + _%struct?9459294600%_ + _%eq9459394602%_ + _%get-name9459494604%_ + _%rhead94606%_ + _%supers94607%_) + (let* ((_%get-precedence-list94609%_ + (if (eq? _%get-precedence-list9459194598%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list9443994446%_)) - (_%struct?94459%_ - (if (eq? _%struct?9444094448%_ absent-value) + _%get-precedence-list9459194598%_)) + (_%struct?94611%_ + (if (eq? _%struct?9459294600%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9444094448%_)) - (_%eq94461%_ - (if (eq? _%eq9444194450%_ absent-value) eq? _%eq9444194450%_)) - (_%get-name94463%_ - (if (eq? _%get-name9444294452%_ absent-value) + _%struct?9459294600%_)) + (_%eq94613%_ + (if (eq? _%eq9459394602%_ absent-value) eq? _%eq9459394602%_)) + (_%get-name94615%_ + (if (eq? _%get-name9459494604%_ absent-value) identity - _%get-name9444294452%_))) - (letrec* ((_%pls94466%_ - (map _%get-precedence-list94457%_ _%supers94455%_)) - (_%sit94467%_ '()) - (_%get-names94468%_ - (lambda (_%lst94743%_) - (map _%get-name94463%_ _%lst94743%_))) - (_%err94469%_ - (lambda _%a94741%_ + _%get-name9459494604%_))) + (letrec* ((_%pls94618%_ + (map _%get-precedence-list94609%_ _%supers94607%_)) + (_%sis94619%_ '()) + (_%get-names94620%_ + (lambda (_%lst94902%_) + (map _%get-name94615%_ _%lst94902%_))) + (_%err94621%_ + (lambda _%a94900%_ (apply error '"Inconsistent precedence graph" 'head: - (_%get-names94468%_ (reverse _%rhead94454%_)) + (_%get-names94620%_ (reverse _%rhead94606%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names94468%_ _%pls94466%_)) - 'single-inheritance-tail: - (_%get-names94468%_ _%sit94467%_) - _%a94741%_))) - (_%same?94470%_ - (lambda (_%lst194738%_ _%lst294739%_) - (if (let ((__tmp94791 (length _%lst194738%_)) - (__tmp94790 (length _%lst294739%_))) - (declare (not safe)) - (##fx= __tmp94791 __tmp94790)) - (let () - (declare (not safe)) - (andmap2 _%eq94461%_ _%lst194738%_ _%lst294739%_)) - '#f))) - (_%merge-sit!94471%_ - (lambda (_%sit294721%_) - (if (null? _%sit294721%_) + (##map _%get-names94620%_ _%pls94618%_)) + 'single-inheritance-suffix: + (_%get-names94620%_ _%sis94619%_) + _%a94900%_))) + (_%eqlist?94622%_ + (lambda (_%l194894%_ _%l294895%_) + (let ((_%$e94897%_ (eq? _%l194894%_ _%l294895%_))) + (if _%$e94897%_ + _%$e94897%_ + (if (let () + (declare (not safe)) + (andmap2 _%eq94613%_ + _%l194894%_ + _%l294895%_)) + (let ((__tmp94950 (length _%l194894%_)) + (__tmp94949 (length _%l294895%_))) + (declare (not safe)) + (##fx= __tmp94950 __tmp94949)) + '#f))))) + (_%merge-sis!94623%_ + (lambda (_%sis294877%_) + (if (null? _%sis294877%_) '#!void - (if (null? _%sit94467%_) - (set! _%sit94467%_ _%sit294721%_) - (let _%loop94726%_ ((_%t194728%_ _%sit94467%_) - (_%t294729%_ _%sit294721%_)) - (if (_%same?94470%_ _%t194728%_ _%sit294721%_) + (if (null? _%sis94619%_) + (set! _%sis94619%_ _%sis294877%_) + (let _%loop94882%_ ((_%t194884%_ _%sis94619%_) + (_%t294885%_ _%sis294877%_)) + (if (_%eqlist?94622%_ + _%t194884%_ + _%sis294877%_) '#!void - (if (_%same?94470%_ - _%t294729%_ - _%sit94467%_) - (set! _%sit94467%_ _%sit294721%_) - (if (or (null? _%t194728%_) - (null? _%t294729%_)) - (_%err94469%_ - 'single-inheritance-incompatibility: - (cons (_%get-names94468%_ - _%sit94467%_) - (cons (_%get-names94468%_ - _%sit294721%_) + (if (_%eqlist?94622%_ + _%t294885%_ + _%sis94619%_) + (set! _%sis94619%_ _%sis294877%_) + (if (or (null? _%t194884%_) + (null? _%t294885%_)) + (_%err94621%_ + 'struct-incompatibility: + (cons (_%get-names94620%_ + _%sis94619%_) + (cons (_%get-names94620%_ + _%sis294877%_) '()))) - (_%loop94726%_ - (cdr _%t194728%_) - (cdr _%t294729%_)))))))))) - (_%rpls94472%_ - (let ((__tmp94792 - (lambda (_%pl94716%_) - (let ((_g94793_ + (_%loop94882%_ + (cdr _%t194884%_) + (cdr _%t294885%_)))))))))) + (_%rpls94624%_ + (let ((__tmp94951 + (lambda (_%pl94872%_) + (let ((_g94952_ (let () (declare (not safe)) (append-reverse-until - _%struct?94459%_ - _%pl94716%_ + _%struct?94611%_ + _%pl94872%_ '())))) (begin - (let ((_g94794_ + (let ((_g94953_ (let () (declare (not safe)) - (if (##values? _g94793_) - (##vector-length _g94793_) + (if (##values? _g94952_) + (##vector-length _g94952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g94794_ 2))) + (##fx= _g94953_ 2))) (error "Context expects 2 values" - _g94794_))) - (let ((_%tl94718%_ + _g94953_))) + (let ((_%tl94874%_ (let () (declare (not safe)) - (##vector-ref _g94793_ 0))) - (_%rh94719%_ + (##vector-ref _g94952_ 0))) + (_%rh94875%_ (let () (declare (not safe)) - (##vector-ref _g94793_ 1)))) + (##vector-ref _g94952_ 1)))) (begin - (_%merge-sit!94471%_ _%tl94718%_) - _%rh94719%_))))))) + (_%merge-sis!94623%_ _%tl94874%_) + _%rh94875%_))))))) (declare (not safe)) - (##map __tmp94792 _%pls94466%_))) - (_%unsitr-rpl94473%_ - (lambda (_%rpl94662%_) - (let _%u94664%_ ((_%pl-rhead94666%_ _%rpl94662%_) - (_%pl-tail94667%_ '()) - (_%sit-rhead94668%_ - (reverse _%sit94467%_)) - (_%sit-tail94669%_ '())) - (let* ((_%pl-rhead9467094679%_ _%pl-rhead94666%_) - (_%E9467394683%_ + (##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%_ (lambda () (error '"No clause matching" - _%pl-rhead9467094679%_ + _%pl-rhead9482694835%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9467794713%_ (lambda () _%pl-tail94667%_)) - (_%K9467494697%_ - (lambda (_%plrh94687%_ _%c94688%_) - (if (member _%c94688%_ - _%sit-tail94669%_ - _%eq94461%_) - (_%err94469%_ + (let ((_%K9483394869%_ (lambda () _%pl-tail94823%_)) + (_%K9483094853%_ + (lambda (_%plrh94843%_ _%c94844%_) + (if (member _%c94844%_ + _%sis-tail94825%_ + _%eq94613%_) + (_%err94621%_ 'precedence-list-head: - (_%get-names94468%_ - (reverse _%pl-rhead94666%_)) + (_%get-names94620%_ + (reverse _%pl-rhead94822%_)) 'precedence-list-tail: - (_%get-names94468%_ _%pl-tail94667%_) + (_%get-names94620%_ _%pl-tail94823%_) 'single-inheritance-head: - (_%get-names94468%_ - (reverse _%sit-rhead94668%_)) + (_%get-names94620%_ + (reverse _%sis-rhead94824%_)) 'single-inheritance-tail: - (_%get-names94468%_ _%sit-tail94669%_) + (_%get-names94620%_ _%sis-tail94825%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name94463%_ _%c94688%_)) - (let ((_g94795_ - (let ((__tmp94797 - (lambda (_%g9468994691%_) - (_%eq94461%_ - _%c94688%_ - _%g9468994691%_)))) + (_%get-name94615%_ _%c94844%_)) + (let ((_g94954_ + (let ((__tmp94956 + (lambda (_%g9484594847%_) + (_%eq94613%_ + _%c94844%_ + _%g9484594847%_)))) (declare (not safe)) (__append-reverse-until - __tmp94797 - _%sit-rhead94668%_ - _%sit-tail94669%_)))) + __tmp94956 + _%sis-rhead94824%_ + _%sis-tail94825%_)))) (begin - (let ((_g94796_ + (let ((_g94955_ (let () (declare (not safe)) - (if (##values? _g94795_) + (if (##values? _g94954_) (##vector-length - _g94795_) + _g94954_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g94796_ 2))) + (##fx= _g94955_ 2))) (error "Context expects 2 values" - _g94796_))) - (let ((_%sit-rh294694%_ + _g94955_))) + (let ((_%sis-rh294850%_ (let () (declare (not safe)) (##vector-ref - _g94795_ + _g94954_ 0))) - (_%sit-tl294695%_ + (_%sis-tl294851%_ (let () (declare (not safe)) (##vector-ref - _g94795_ + _g94954_ 1)))) - (if (null? _%sit-rh294694%_) - (_%u94664%_ - _%plrh94687%_ - (cons _%c94688%_ - _%pl-tail94667%_) + (if (null? _%sis-rh294850%_) + (_%u94820%_ + _%plrh94843%_ + (cons _%c94844%_ + _%pl-tail94823%_) '() - _%sit-tl294695%_) - (_%u94664%_ - _%plrh94687%_ - _%pl-tail94667%_ - (cdr _%sit-rh294694%_) - _%sit-tl294695%_))))))))) - (let ((_%try-match9467294709%_ + _%sis-tl294851%_) + (_%u94820%_ + _%plrh94843%_ + _%pl-tail94823%_ + (cdr _%sis-rh294850%_) + _%sis-tl294851%_))))))))) + (let ((_%try-match9482894865%_ (lambda () - (if (pair? _%pl-rhead9467094679%_) - (let ((_%tl9467694702%_ + (if (pair? _%pl-rhead9482694835%_) + (let ((_%tl9483294858%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9467094679%_))) - (_%hd9467594700%_ + (##cdr _%pl-rhead9482694835%_))) + (_%hd9483194856%_ (let () (declare (not safe)) - (##car _%pl-rhead9467094679%_)))) - (let ((_%c94705%_ _%hd9467594700%_) - (_%plrh94707%_ - _%tl9467694702%_)) - (_%K9467494697%_ - _%plrh94707%_ - _%c94705%_))) - (_%E9467394683%_))))) - (if (null? _%pl-rhead9467094679%_) - (_%K9467794713%_) - (_%try-match9467294709%_)))))))) - (_g94798_ - (let ((_g94799_ - (let ((__tmp94801 (reverse _%supers94455%_))) + (##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%_))) (declare (not safe)) - (append1! _%rpls94472%_ __tmp94801)))) + (append1! _%rpls94624%_ __tmp94960)))) #!void - _g94799_)) - (_g94802_ - (let ((_g94803_ - (set! _%pls94466%_ - (let () - (declare (not safe)) - (##map _%unsitr-rpl94473%_ - _%rpls94472%_))))) - #!void - _g94803_)) - (_%c3-select-next94474%_ - (lambda (_%tails94612%_) - (let ((_%candidate?94618%_ - (lambda (_%c94614%_) - (let ((__tmp94805 - (lambda (_%tail94616%_) - (not (member _%c94614%_ - (cdr _%tail94616%_) - _%eq94461%_))))) + _g94958_)) + (_%hpls94626%_ + (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%_))))) (declare (not safe)) - (__andmap1 __tmp94805 _%tails94612%_))))) - (let _%loop94620%_ ((_%ts94622%_ _%tails94612%_)) - (let* ((_%ts9462394633%_ _%ts94622%_) - (_%else9462594641%_ - (lambda () (_%err94469%_))) - (_%K9462794647%_ - (lambda (_%rts94644%_ _%c94645%_) - (if (_%candidate?94618%_ _%c94645%_) - _%c94645%_ - (_%loop94620%_ _%rts94644%_))))) - (if (pair? _%ts9462394633%_) - (let ((_%hd9462894650%_ + (__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%_ (let () (declare (not safe)) - (##car _%ts9462394633%_))) - (_%tl9462994652%_ + (##car _%ts9477994789%_))) + (_%tl9478594808%_ (let () (declare (not safe)) - (##cdr _%ts9462394633%_)))) - (if (pair? _%hd9462894650%_) - (let* ((_%hd9463094655%_ + (##cdr _%ts9477994789%_)))) + (if (pair? _%hd9478494806%_) + (let* ((_%hd9478694811%_ (let () (declare (not safe)) - (##car _%hd9462894650%_))) - (_%c94658%_ _%hd9463094655%_) - (_%rts94660%_ _%tl9462994652%_)) - (_%K9462794647%_ - _%rts94660%_ - _%c94658%_)) - (_%err94469%_))) - (_%err94469%_))))))) - (_%remove-next!94475%_ - (lambda (_%next94557%_ _%tails94558%_) - (let _%loop94560%_ ((_%t94562%_ _%tails94558%_)) - (let* ((_%t9456394574%_ _%t94562%_) - (_%E9456694578%_ + (##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%_ (lambda () (error '"No clause matching" - _%t9456394574%_ + _%t9471994730%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9457294609%_ (lambda () _%tails94558%_)) - (_%K9456794586%_ - (lambda (_%more94582%_ - _%tail94583%_ - _%head94584%_) - (if (_%eq94461%_ - _%head94584%_ - _%next94557%_) - (set-car! _%t94562%_ _%tail94583%_) + (let ((_%K9472894765%_ (lambda () _%tails94714%_)) + (_%K9472394742%_ + (lambda (_%more94738%_ + _%tail94739%_ + _%head94740%_) + (if (_%eq94613%_ + _%head94740%_ + _%next94713%_) + (set-car! _%t94718%_ _%tail94739%_) '#!void) - (_%loop94560%_ _%more94582%_)))) - (let ((_%try-match9456594605%_ + (_%loop94716%_ _%more94738%_)))) + (let ((_%try-match9472194761%_ (lambda () - (if (pair? _%t9456394574%_) - (let ((_%tl9456994591%_ + (if (pair? _%t9471994730%_) + (let ((_%tl9472594747%_ (let () (declare (not safe)) - (##cdr _%t9456394574%_))) - (_%hd9456894589%_ + (##cdr _%t9471994730%_))) + (_%hd9472494745%_ (let () (declare (not safe)) - (##car _%t9456394574%_)))) - (if (pair? _%hd9456894589%_) - (let ((_%tl9457194596%_ + (##car _%t9471994730%_)))) + (if (pair? _%hd9472494745%_) + (let ((_%tl9472794752%_ (let () (declare (not safe)) - (##cdr _%hd9456894589%_))) - (_%hd9457094594%_ + (##cdr _%hd9472494745%_))) + (_%hd9472694750%_ (let () (declare (not safe)) - (##car _%hd9456894589%_)))) - (let ((_%head94599%_ - _%hd9457094594%_) - (_%tail94601%_ - _%tl9457194596%_) - (_%more94603%_ - _%tl9456994591%_)) - (_%K9456794586%_ - _%more94603%_ - _%tail94601%_ - _%head94599%_))) - (_%E9456694578%_))) - (_%E9456694578%_))))) - (if (null? _%t9456394574%_) - (_%K9457294609%_) - (_%try-match9456594605%_)))))))) - (_%precedence-list94476%_ - (let _%c3loop94507%_ ((_%rhead94509%_ _%rhead94454%_) - (_%tails94510%_ _%pls94466%_)) - (let* ((_%tails94512%_ - (let () - (declare (not safe)) - (remove-nulls! _%tails94510%_))) - (_%tails9451394523%_ _%tails94512%_) - (_%else9451694534%_ - (lambda () - (let ((_%next94531%_ - (_%c3-select-next94474%_ - _%tails94512%_))) - (_%c3loop94507%_ - (cons _%next94531%_ _%rhead94509%_) - (_%remove-next!94475%_ - _%next94531%_ - _%tails94512%_)))))) - (let ((_%K9452194554%_ - (lambda () - (append-reverse - _%rhead94509%_ - _%sit94467%_))) - (_%K9451894540%_ - (lambda (_%tail94538%_) - (append-reverse - _%rhead94509%_ - (append _%tail94538%_ _%sit94467%_))))) - (let ((_%try-match9451594550%_ - (lambda () - (if (pair? _%tails9451394523%_) - (let ((_%tl9452094545%_ - (let () - (declare (not safe)) - (##cdr _%tails9451394523%_))) - (_%hd9451994543%_ - (let () - (declare (not safe)) - (##car _%tails9451394523%_)))) - (if (null? _%tl9452094545%_) - (let ((_%tail94548%_ - _%hd9451994543%_)) - (_%K9451894540%_ - _%tail94548%_)) - (_%else9451694534%_))) - (_%else9451694534%_))))) - (if (null? _%tails9451394523%_) - (_%K9452194554%_) - (_%try-match9451594550%_))))))) - (_%super-struct94477%_ - (let* ((_%sit9447894486%_ _%sit94467%_) - (_%else9448094494%_ (lambda () '#f)) - (_%K9448294499%_ (lambda (_%s94497%_) _%s94497%_))) - (if (pair? _%sit9447894486%_) - (let* ((_%hd9448394502%_ + (##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%_ + (let () + (declare (not safe)) + (remove-nulls! _%tails94666%_))) + (_%tails9466994679%_ _%tails94668%_) + (_%else9467294690%_ + (lambda () + (let ((_%next94687%_ + (_%c3-select-next94627%_ + _%tails94668%_))) + (_%c3loop94663%_ + (cons _%next94687%_ _%rhead94665%_) + (_%remove-next!94628%_ + _%next94687%_ + _%tails94668%_)))))) + (let ((_%K9467794710%_ + (lambda () + (append-reverse + _%rhead94665%_ + _%sis94619%_))) + (_%K9467494696%_ + (lambda (_%tail94694%_) + (append-reverse + _%rhead94665%_ + (append _%tail94694%_ + _%sis94619%_))))) + (let ((_%try-match9467194706%_ + (lambda () + (if (pair? _%tails9466994679%_) + (let ((_%tl9467694701%_ + (let () + (declare (not safe)) + (##cdr _%tails9466994679%_))) + (_%hd9467594699%_ + (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%_ (let () (declare (not safe)) - (##car _%sit9447894486%_))) - (_%s94505%_ _%hd9448394502%_)) - (_%K9448294499%_ _%s94505%_)) - (_%else9448094494%_))))) - (values _%precedence-list94476%_ _%super-struct94477%_))))) + (##car _%sis9463194639%_))) + (_%s94658%_ _%hd9463694655%_)) + (_%K9463594652%_ _%s94658%_)) + (_%else9463394647%_))))) + (values _%precedence-list94629%_ _%super-struct94630%_))))) (define c4-linearize__@ - (lambda (_%@@keywords94748%_ . _%args94749%_) + (lambda (_%@@keywords94907%_ . _%args94908%_) (apply c4-linearize__% - _%@@keywords94748%_ + _%@@keywords94907%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94748%_ + _%@@keywords94907%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94748%_ + _%@@keywords94907%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords94748%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords94907%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94748%_ + _%@@keywords94907%_ 'get-name: absent-value)) - _%args94749%_))) + _%args94908%_))) (define c4-linearize - (lambda _%args9444394755%_ + (lambda _%args9459594914%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9444394755%_))))) + _%args9459594914%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 0c931a568..b6749a7a7 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 1713631264) + (define gerbil/runtime/control::timestamp 1733687558) (begin (define make-promise - (lambda (_%thunk94152%_) - (if (procedure? _%thunk94152%_) - (let ((_%thunk94156%_ _%thunk94152%_)) - (__make-promise _%thunk94156%_)) + (lambda (_%thunk94304%_) + (if (procedure? _%thunk94304%_) + (let ((_%thunk94308%_ _%thunk94304%_)) + (__make-promise _%thunk94308%_)) (begin (raise-contract-violation-error '"contract violation" @@ -15,19 +15,19 @@ 'contract: 'procedure? 'value: - _%thunk94152%_) + _%thunk94304%_) '#!void)))) (define __make-promise - (lambda (_%thunk94140%_) - (let ((_%thunk94143%_ _%thunk94140%_)) + (lambda (_%thunk94292%_) + (let ((_%thunk94295%_ _%thunk94292%_)) (declare (not safe)) - (##make-delay-promise _%thunk94143%_)))) + (##make-delay-promise _%thunk94295%_)))) (define call-with-parameters - (lambda (_%thunk94125%_ . _%rest94126%_) - (if (procedure? _%thunk94125%_) - (let ((_%thunk94130%_ _%thunk94125%_)) + (lambda (_%thunk94277%_ . _%rest94278%_) + (if (procedure? _%thunk94277%_) + (let ((_%thunk94282%_ _%thunk94277%_)) (declare (not safe)) - (##apply __call-with-parameters _%thunk94130%_ _%rest94126%_)) + (##apply __call-with-parameters _%thunk94282%_ _%rest94278%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,74 +36,74 @@ 'contract: 'procedure? 'value: - _%thunk94125%_) + _%thunk94277%_) '#!void)))) (define __call-with-parameters - (lambda (_%thunk94063%_ . _%rest94064%_) - (let* ((_%thunk94067%_ _%thunk94063%_) - (_%rest9407594086%_ _%rest94064%_) - (_%E9407894090%_ + (lambda (_%thunk94215%_ . _%rest94216%_) + (let* ((_%thunk94219%_ _%thunk94215%_) + (_%rest9422794238%_ _%rest94216%_) + (_%E9423094242%_ (lambda () (error '"No clause matching" - _%rest9407594086%_ + _%rest9422794238%_ '([param val . rest]) '([])) '#!void))) - (let ((_%K9408094106%_ - (lambda (_%rest94101%_ _%val94102%_ _%param94103%_) - (let ((__tmp94178 - (if (null? _%rest94101%_) - _%thunk94067%_ + (let ((_%K9423294258%_ + (lambda (_%rest94253%_ _%val94254%_ _%param94255%_) + (let ((__tmp94330 + (if (null? _%rest94253%_) + _%thunk94219%_ (lambda () (apply call-with-parameters - _%thunk94067%_ - _%rest94101%_))))) + _%thunk94219%_ + _%rest94253%_))))) (declare (not safe)) (##parameterize1 - _%param94103%_ - _%val94102%_ - __tmp94178)))) - (_%K9407994095%_ - (lambda () (let () (declare (not safe)) (_%thunk94067%_))))) - (let ((_%try-match9407794098%_ + _%param94255%_ + _%val94254%_ + __tmp94330)))) + (_%K9423194247%_ + (lambda () (let () (declare (not safe)) (_%thunk94219%_))))) + (let ((_%try-match9422994250%_ (lambda () - (if (null? _%rest9407594086%_) - (let () (declare (not safe)) (_%thunk94067%_)) - (_%E9407894090%_))))) - (if (pair? _%rest9407594086%_) - (let ((_%tl9408294111%_ + (if (null? _%rest9422794238%_) + (let () (declare (not safe)) (_%thunk94219%_)) + (_%E9423094242%_))))) + (if (pair? _%rest9422794238%_) + (let ((_%tl9423494263%_ (let () (declare (not safe)) - (##cdr _%rest9407594086%_))) - (_%hd9408194109%_ + (##cdr _%rest9422794238%_))) + (_%hd9423394261%_ (let () (declare (not safe)) - (##car _%rest9407594086%_)))) - (if (pair? _%tl9408294111%_) - (let ((_%tl9408494118%_ + (##car _%rest9422794238%_)))) + (if (pair? _%tl9423494263%_) + (let ((_%tl9423694270%_ (let () (declare (not safe)) - (##cdr _%tl9408294111%_))) - (_%hd9408394116%_ + (##cdr _%tl9423494263%_))) + (_%hd9423594268%_ (let () (declare (not safe)) - (##car _%tl9408294111%_)))) - (let ((_%param94114%_ _%hd9408194109%_) - (_%val94121%_ _%hd9408394116%_) - (_%rest94123%_ _%tl9408494118%_)) - (_%K9408094106%_ - _%rest94123%_ - _%val94121%_ - _%param94114%_))) - (_%E9407894090%_))) - (_%try-match9407794098%_))))))) + (##car _%tl9423494263%_)))) + (let ((_%param94266%_ _%hd9423394261%_) + (_%val94273%_ _%hd9423594268%_) + (_%rest94275%_ _%tl9423694270%_)) + (_%K9423294258%_ + _%rest94275%_ + _%val94273%_ + _%param94266%_))) + (_%E9423094242%_))) + (_%try-match9422994250%_))))))) (define with-unwind-protect - (lambda (_%K94038%_ _%fini94039%_) - (if (procedure? _%K94038%_) - (let ((_%K94043%_ _%K94038%_)) - (if (procedure? _%fini94039%_) - (let ((_%fini94053%_ _%fini94039%_)) - (__with-unwind-protect _%K94043%_ _%fini94053%_)) + (lambda (_%K94190%_ _%fini94191%_) + (if (procedure? _%K94190%_) + (let ((_%K94195%_ _%K94190%_)) + (if (procedure? _%fini94191%_) + (let ((_%fini94205%_ _%fini94191%_)) + (__with-unwind-protect _%K94195%_ _%fini94205%_)) (begin (raise-contract-violation-error '"contract violation" @@ -112,7 +112,7 @@ 'contract: 'procedure? 'value: - _%fini94039%_) + _%fini94191%_) '#!void))) (begin (raise-contract-violation-error @@ -122,222 +122,222 @@ 'contract: 'procedure? 'value: - _%K94038%_) + _%K94190%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K94012%_ _%fini94013%_) - (let* ((_%K94016%_ _%K94012%_) - (_%fini94025%_ _%fini94013%_) - (_%once94034%_ '#f) - (__tmp94179 + (lambda (_%K94164%_ _%fini94165%_) + (let* ((_%K94168%_ _%K94164%_) + (_%fini94177%_ _%fini94165%_) + (_%once94186%_ '#f) + (__tmp94331 (lambda () (declare (not interrupts-enabled)) - (if _%once94034%_ + (if _%once94186%_ (error '"Cannot re-enter unwind protected block") - (set! _%once94034%_ '#t))))) + (set! _%once94186%_ '#t))))) (declare (not safe)) - (##dynamic-wind __tmp94179 _%K94016%_ _%fini94025%_)))) + (##dynamic-wind __tmp94331 _%K94168%_ _%fini94177%_)))) (define keyword-dispatch - (lambda (_%kwt93905%_ _%K93906%_ . _%all-args93907%_) - (if _%kwt93905%_ - (if (vector? _%kwt93905%_) + (lambda (_%kwt94057%_ _%K94058%_ . _%all-args94059%_) + (if _%kwt94057%_ + (if (vector? _%kwt94057%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt93905%_)) + (error '"keyword-dispatch: expected vector" _%kwt94057%_)) '#!void) - (if (procedure? _%K93906%_) + (if (procedure? _%K94058%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K93906%_)) - (let ((_%keys93909%_ + (error '"keyword-dispatch: expected procedure" _%K94058%_)) + (let ((_%keys94061%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp93911%_ ((_%rest93913%_ _%all-args93907%_) - (_%args93914%_ '#f) - (_%tail93915%_ '#f)) - (let* ((_%rest9391693924%_ _%rest93913%_) - (_%else9391893932%_ + (let _%lp94063%_ ((_%rest94065%_ _%all-args94059%_) + (_%args94066%_ '#f) + (_%tail94067%_ '#f)) + (let* ((_%rest9406894076%_ _%rest94065%_) + (_%else9407094084%_ (lambda () - (if _%args93914%_ + (if _%args94066%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail93915%_ '())) - (let ((__tmp94180 - (cons _%keys93909%_ _%args93914%_))) + (##set-cdr! _%tail94067%_ '())) + (let ((__tmp94332 + (cons _%keys94061%_ _%args94066%_))) (declare (not safe)) - (##apply _%K93906%_ __tmp94180))) - (_%K93906%_ _%keys93909%_)))) - (_%K9392094000%_ - (lambda (_%hd-rest93935%_ _%hd93936%_) - (if (keyword? _%hd93936%_) - (let* ((_%hd-rest9393893945%_ _%hd-rest93935%_) - (_%E9394093949%_ + (##apply _%K94058%_ __tmp94332))) + (_%K94058%_ _%keys94061%_)))) + (_%K9407294152%_ + (lambda (_%hd-rest94087%_ _%hd94088%_) + (if (keyword? _%hd94088%_) + (let* ((_%hd-rest9409094097%_ _%hd-rest94087%_) + (_%E9409294101%_ (lambda () (error '"No clause matching" - _%hd-rest9393893945%_ + _%hd-rest9409094097%_ '([val . rest])) '#!void)) - (_%K9394193957%_ - (lambda (_%rest93952%_ _%val93953%_) - (if _%kwt93905%_ - (let ((_%pos93955%_ - (let ((__tmp94182 + (_%K9409394109%_ + (lambda (_%rest94104%_ _%val94105%_) + (if _%kwt94057%_ + (let ((_%pos94107%_ + (let ((__tmp94334 (let () (declare (not safe)) (##keyword-hash - _%hd93936%_))) - (__tmp94181 + _%hd94088%_))) + (__tmp94333 (let () (declare (not safe)) (##vector-length - _%kwt93905%_)))) + _%kwt94057%_)))) (declare (not safe)) (##fxmodulo - __tmp94182 - __tmp94181)))) - (if (eq? _%hd93936%_ + __tmp94334 + __tmp94333)))) + (if (eq? _%hd94088%_ (let () (declare (not safe)) (##vector-ref - _%kwt93905%_ - _%pos93955%_))) + _%kwt94057%_ + _%pos94107%_))) '#!void (error '"Unexpected keyword argument" - _%K93906%_ - _%hd93936%_))) + _%K94058%_ + _%hd94088%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys93909%_ - _%hd93936%_ + _%keys94061%_ + _%hd94088%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K93906%_ - _%hd93936%_)) + _%K94058%_ + _%hd94088%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys93909%_ - _%hd93936%_ - _%val93953%_)) - (_%lp93911%_ - _%rest93952%_ - _%args93914%_ - _%tail93915%_)))) - (if (pair? _%hd-rest9393893945%_) - (let ((_%hd9394293960%_ + _%keys94061%_ + _%hd94088%_ + _%val94105%_)) + (_%lp94063%_ + _%rest94104%_ + _%args94066%_ + _%tail94067%_)))) + (if (pair? _%hd-rest9409094097%_) + (let ((_%hd9409494112%_ (let () (declare (not safe)) - (##car _%hd-rest9393893945%_))) - (_%tl9394393962%_ + (##car _%hd-rest9409094097%_))) + (_%tl9409594114%_ (let () (declare (not safe)) - (##cdr _%hd-rest9393893945%_)))) - (let* ((_%val93965%_ _%hd9394293960%_) - (_%rest93967%_ _%tl9394393962%_)) - (_%K9394193957%_ - _%rest93967%_ - _%val93965%_))) - (_%E9394093949%_))) - (if (eq? _%hd93936%_ '#!key) - (let* ((_%hd-rest9396993976%_ _%hd-rest93935%_) - (_%E9397193980%_ + (##cdr _%hd-rest9409094097%_)))) + (let* ((_%val94117%_ _%hd9409494112%_) + (_%rest94119%_ _%tl9409594114%_)) + (_%K9409394109%_ + _%rest94119%_ + _%val94117%_))) + (_%E9409294101%_))) + (if (eq? _%hd94088%_ '#!key) + (let* ((_%hd-rest9412194128%_ _%hd-rest94087%_) + (_%E9412394132%_ (lambda () (error '"No clause matching" - _%hd-rest9396993976%_ + _%hd-rest9412194128%_ '([val . rest])) '#!void)) - (_%K9397293986%_ - (lambda (_%rest93983%_ _%val93984%_) - (if _%args93914%_ + (_%K9412494138%_ + (lambda (_%rest94135%_ _%val94136%_) + (if _%args94066%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail93915%_ - _%hd-rest93935%_)) - (_%lp93911%_ - _%rest93983%_ - _%args93914%_ - _%hd-rest93935%_)) - (_%lp93911%_ - _%rest93983%_ - _%hd-rest93935%_ - _%hd-rest93935%_))))) - (if (pair? _%hd-rest9396993976%_) - (let ((_%hd9397393989%_ + _%tail94067%_ + _%hd-rest94087%_)) + (_%lp94063%_ + _%rest94135%_ + _%args94066%_ + _%hd-rest94087%_)) + (_%lp94063%_ + _%rest94135%_ + _%hd-rest94087%_ + _%hd-rest94087%_))))) + (if (pair? _%hd-rest9412194128%_) + (let ((_%hd9412594141%_ (let () (declare (not safe)) - (##car _%hd-rest9396993976%_))) - (_%tl9397493991%_ + (##car _%hd-rest9412194128%_))) + (_%tl9412694143%_ (let () (declare (not safe)) - (##cdr _%hd-rest9396993976%_)))) - (let* ((_%val93994%_ _%hd9397393989%_) - (_%rest93996%_ _%tl9397493991%_)) - (_%K9397293986%_ - _%rest93996%_ - _%val93994%_))) - (_%E9397193980%_))) - (if (eq? _%hd93936%_ '#!rest) - (if _%args93914%_ + (##cdr _%hd-rest9412194128%_)))) + (let* ((_%val94146%_ _%hd9412594141%_) + (_%rest94148%_ _%tl9412694143%_)) + (_%K9412494138%_ + _%rest94148%_ + _%val94146%_))) + (_%E9412394132%_))) + (if (eq? _%hd94088%_ '#!rest) + (if _%args94066%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail93915%_ - _%hd-rest93935%_)) - (let ((__tmp94183 - (cons _%keys93909%_ - _%args93914%_))) + _%tail94067%_ + _%hd-rest94087%_)) + (let ((__tmp94335 + (cons _%keys94061%_ + _%args94066%_))) (declare (not safe)) - (##apply _%K93906%_ __tmp94183))) - (let ((__tmp94184 - (cons _%keys93909%_ - _%hd-rest93935%_))) + (##apply _%K94058%_ __tmp94335))) + (let ((__tmp94336 + (cons _%keys94061%_ + _%hd-rest94087%_))) (declare (not safe)) - (##apply _%K93906%_ __tmp94184))) - (if _%args93914%_ + (##apply _%K94058%_ __tmp94336))) + (if _%args94066%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail93915%_ - _%rest93913%_)) - (_%lp93911%_ - _%hd-rest93935%_ - _%args93914%_ - _%rest93913%_)) - (_%lp93911%_ - _%hd-rest93935%_ - _%rest93913%_ - _%rest93913%_)))))))) - (if (pair? _%rest9391693924%_) - (let ((_%hd9392194003%_ + _%tail94067%_ + _%rest94065%_)) + (_%lp94063%_ + _%hd-rest94087%_ + _%args94066%_ + _%rest94065%_)) + (_%lp94063%_ + _%hd-rest94087%_ + _%rest94065%_ + _%rest94065%_)))))))) + (if (pair? _%rest9406894076%_) + (let ((_%hd9407394155%_ (let () (declare (not safe)) - (##car _%rest9391693924%_))) - (_%tl9392294005%_ + (##car _%rest9406894076%_))) + (_%tl9407494157%_ (let () (declare (not safe)) - (##cdr _%rest9391693924%_)))) - (let* ((_%hd94008%_ _%hd9392194003%_) - (_%hd-rest94010%_ _%tl9392294005%_)) - (_%K9392094000%_ _%hd-rest94010%_ _%hd94008%_))) - (_%else9391893932%_))))))) + (##cdr _%rest9406894076%_)))) + (let* ((_%hd94160%_ _%hd9407394155%_) + (_%hd-rest94162%_ _%tl9407494157%_)) + (_%K9407294152%_ _%hd-rest94162%_ _%hd94160%_))) + (_%else9407094084%_))))))) (define keyword-rest - (lambda (_%kwt93897%_ . _%drop93898%_) - (let ((_%rest93900%_ '())) - (let ((__tmp94185 - (lambda (_%k93902%_ _%v93903%_) + (lambda (_%kwt94049%_ . _%drop94050%_) + (let ((_%rest94052%_ '())) + (let ((__tmp94337 + (lambda (_%k94054%_ _%v94055%_) (if (let () (declare (not safe)) - (##memq _%k93902%_ _%drop93898%_)) + (##memq _%k94054%_ _%drop94050%_)) '#!void - (set! _%rest93900%_ - (cons _%k93902%_ - (cons _%v93903%_ _%rest93900%_))))))) + (set! _%rest94052%_ + (cons _%k94054%_ + (cons _%v94055%_ _%rest94052%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt93897%_ __tmp94185)) - _%rest93900%_))))) + (raw-table-for-each _%kwt94049%_ __tmp94337)) + _%rest94052%_))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index 302ed0b8b..21b2b0022 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 - ((:init! . Error:::init!) - (display-exception . Error::display-exception)))) + ((display-exception . Error::display-exception) + (:init! . Error:::init!)))) (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 d88a1c9ad..c4dfe3a39 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 1713631265) + (define gerbil/runtime/error::timestamp 1733687558) (begin (define Exception::t - (let ((__tmp103865 (list))) + (let ((__tmp104024 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp103865 + __tmp104024 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args103835%_ - (apply make-instance Exception::t _%$args103835%_))) + (lambda _%$args103994%_ + (apply make-instance Exception::t _%$args103994%_))) (define StackTrace::t - (let ((__tmp103866 (list))) + (let ((__tmp104025 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp103866 + __tmp104025 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args103832%_ - (apply make-instance StackTrace::t _%$args103832%_))) + (lambda _%$args103991%_ + (apply make-instance StackTrace::t _%$args103991%_))) (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 ((__tmp103867 (list StackTrace::t Exception::t))) + (let ((__tmp104026 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp103867 + __tmp104026 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args103829%_ (apply make-instance Error::t _%$args103829%_))) + (lambda _%$args103988%_ (apply make-instance Error::t _%$args103988%_))) (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 ((__tmp103868 (list Error::t))) + (let ((__tmp104027 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp103868 + __tmp104027 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args103826%_ - (apply make-instance ContractViolation::t _%$args103826%_))) + (lambda _%$args103985%_ + (apply make-instance ContractViolation::t _%$args103985%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,12 +214,12 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp103869 (list StackTrace::t Exception::t))) + (let ((__tmp104028 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp103869 + __tmp104028 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args103823%_ - (apply make-instance RuntimeException::t _%$args103823%_))) + (lambda _%$args103982%_ + (apply make-instance RuntimeException::t _%$args103982%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,118 +267,118 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn103818%_ _%continue103819%_) - (let ((_%exn103821%_ (wrap-runtime-exception _%exn103818%_))) + (lambda (_%exn103977%_ _%continue103978%_) + (let ((_%exn103980%_ (wrap-runtime-exception _%exn103977%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn103821%_ _%continue103819%_)))) + (##repl-exception-handler-hook _%exn103980%_ _%continue103978%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn103814%_) + (lambda (_%exn103973%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn103814%_)) + (class-instance? StackTrace::t _%exn103973%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn103814%_ 'continuation)) + (unchecked-slot-ref _%exn103973%_ 'continuation)) '#!void - (let ((__tmp103870 - (lambda (_%cont103816%_) + (let ((__tmp104029 + (lambda (_%cont103975%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn103814%_ + _%exn103973%_ 'continuation - _%cont103816%_))))) + _%cont103975%_))))) (declare (not safe)) - (##continuation-capture __tmp103870))) + (##continuation-capture __tmp104029))) '#!void) - (let () (declare (not safe)) (##raise _%exn103814%_)))) + (let () (declare (not safe)) (##raise _%exn103973%_)))) (define error - (lambda (_%message103811%_ . _%irritants103812%_) - (raise (let ((__obj103862 + (lambda (_%message103970%_ . _%irritants103971%_) + (raise (let ((__obj104021 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj103862 - _%message103811%_ + __obj104021 + _%message103970%_ 'irritants: - _%irritants103812%_) - __obj103862)))) + _%irritants103971%_) + __obj104021)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords103783%_ - _%ctx103778103784%_ - _%contract-expr103779103786%_ - _%value103780103788%_ - _%message103790%_) - (let* ((_%ctx103792%_ - (if (eq? _%ctx103778103784%_ absent-value) + (lambda (_%@@keywords103942%_ + _%ctx103937103943%_ + _%contract-expr103938103945%_ + _%value103939103947%_ + _%message103949%_) + (let* ((_%ctx103951%_ + (if (eq? _%ctx103937103943%_ absent-value) '#f - _%ctx103778103784%_)) - (_%contract-expr103794%_ - (if (eq? _%contract-expr103779103786%_ absent-value) + _%ctx103937103943%_)) + (_%contract-expr103953%_ + (if (eq? _%contract-expr103938103945%_ absent-value) '#f - _%contract-expr103779103786%_)) - (_%value103796%_ - (if (eq? _%value103780103788%_ absent-value) + _%contract-expr103938103945%_)) + (_%value103955%_ + (if (eq? _%value103939103947%_ absent-value) '#f - _%value103780103788%_))) - (raise (let ((__obj103863 + _%value103939103947%_))) + (raise (let ((__obj104022 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj103863 - _%message103790%_ + __obj104022 + _%message103949%_ 'where: - _%ctx103792%_ + _%ctx103951%_ 'irritants: (cons 'contract: - (cons _%contract-expr103794%_ - (cons 'value: (cons _%value103796%_ '()))))) - __obj103863))))) + (cons _%contract-expr103953%_ + (cons 'value: (cons _%value103955%_ '()))))) + __obj104022))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords103801%_ . _%args103802%_) + (lambda (_%@@keywords103960%_ . _%args103961%_) (apply __raise-contract-violation-error__% - _%@@keywords103801%_ + _%@@keywords103960%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103801%_ + _%@@keywords103960%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103801%_ + _%@@keywords103960%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103801%_ + _%@@keywords103960%_ 'value: absent-value)) - _%args103802%_))) + _%args103961%_))) (define __raise-contract-violation-error - (lambda _%args103781103808%_ + (lambda _%args103940103967%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args103781103808%_))) + _%args103940103967%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler103752%_ _%thunk103753%_) - (if (procedure? _%handler103752%_) - (let ((_%handler103757%_ _%handler103752%_)) - (if (procedure? _%thunk103753%_) - (let ((_%thunk103767%_ _%thunk103753%_)) + (lambda (_%handler103911%_ _%thunk103912%_) + (if (procedure? _%handler103911%_) + (let ((_%handler103916%_ _%handler103911%_)) + (if (procedure? _%thunk103912%_) + (let ((_%thunk103926%_ _%thunk103912%_)) (__with-exception-handler - _%handler103757%_ - _%thunk103767%_)) + _%handler103916%_ + _%thunk103926%_)) (begin (raise-contract-violation-error '"contract violation" @@ -387,7 +387,7 @@ 'contract: 'procedure? 'value: - _%thunk103753%_) + _%thunk103912%_) '#!void))) (begin (raise-contract-violation-error @@ -397,26 +397,26 @@ 'contract: 'procedure? 'value: - _%handler103752%_) + _%handler103911%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler103727%_ _%thunk103728%_) - (let* ((_%handler103731%_ _%handler103727%_) - (_%thunk103739%_ _%thunk103728%_) - (__tmp103871 - (lambda (_%exn103748%_) - (let ((_%exn103750%_ (wrap-runtime-exception _%exn103748%_))) + (lambda (_%handler103886%_ _%thunk103887%_) + (let* ((_%handler103890%_ _%handler103886%_) + (_%thunk103898%_ _%thunk103887%_) + (__tmp104030 + (lambda (_%exn103907%_) + (let ((_%exn103909%_ (wrap-runtime-exception _%exn103907%_))) (declare (not safe)) - (_%handler103731%_ _%exn103750%_))))) + (_%handler103890%_ _%exn103909%_))))) (declare (not safe)) - (##with-exception-handler __tmp103871 _%thunk103739%_)))) + (##with-exception-handler __tmp104030 _%thunk103898%_)))) (define with-catch - (lambda (_%handler103702%_ _%thunk103703%_) - (if (procedure? _%handler103702%_) - (let ((_%handler103707%_ _%handler103702%_)) - (if (procedure? _%thunk103703%_) - (let ((_%thunk103717%_ _%thunk103703%_)) - (__with-catch _%handler103707%_ _%thunk103717%_)) + (lambda (_%handler103861%_ _%thunk103862%_) + (if (procedure? _%handler103861%_) + (let ((_%handler103866%_ _%handler103861%_)) + (if (procedure? _%thunk103862%_) + (let ((_%thunk103876%_ _%thunk103862%_)) + (__with-catch _%handler103866%_ _%thunk103876%_)) (begin (raise-contract-violation-error '"contract violation" @@ -425,7 +425,7 @@ 'contract: 'procedure? 'value: - _%thunk103703%_) + _%thunk103862%_) '#!void))) (begin (raise-contract-violation-error @@ -435,38 +435,38 @@ 'contract: 'procedure? 'value: - _%handler103702%_) + _%handler103861%_) '#!void)))) (define __with-catch - (lambda (_%handler103677%_ _%thunk103678%_) - (let* ((_%handler103681%_ _%handler103677%_) - (_%thunk103689%_ _%thunk103678%_) - (__tmp103872 - (lambda (_%cont103698%_) + (lambda (_%handler103836%_ _%thunk103837%_) + (let* ((_%handler103840%_ _%handler103836%_) + (_%thunk103848%_ _%thunk103837%_) + (__tmp104031 + (lambda (_%cont103857%_) (__with-exception-handler - (lambda (_%exn103700%_) + (lambda (_%exn103859%_) (let () (declare (not safe)) (##continuation-graft - _%cont103698%_ - _%handler103681%_ - _%exn103700%_))) - _%thunk103689%_)))) + _%cont103857%_ + _%handler103840%_ + _%exn103859%_))) + _%thunk103848%_)))) (declare (not safe)) - (##continuation-capture __tmp103872)))) + (##continuation-capture __tmp104031)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn103664%_) - (if (or (heap-overflow-exception? _%exn103664%_) - (stack-overflow-exception? _%exn103664%_)) - _%exn103664%_ + (lambda (_%exn103823%_) + (if (or (heap-overflow-exception? _%exn103823%_) + (stack-overflow-exception? _%exn103823%_)) + _%exn103823%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn103664%_)) - _%exn103664%_ - (if (macro-exception? _%exn103664%_) - (let ((_%rte103672%_ - (let ((__obj103864 + (class-instance? Exception::t _%exn103823%_)) + _%exn103823%_ + (if (macro-exception? _%exn103823%_) + (let ((_%rte103831%_ + (let ((__obj104023 (let () (declare (not safe)) (##structure @@ -476,141 +476,141 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103864 - _%exn103664%_ + __obj104023 + _%exn103823%_ '2 '#f '#f)) - __obj103864))) - (let ((__tmp103873 - (lambda (_%cont103674%_) - (let ((__tmp103874 + __obj104023))) + (let ((__tmp104032 + (lambda (_%cont103833%_) + (let ((__tmp104033 (let () (declare (not safe)) - (##continuation-next _%cont103674%_)))) + (##continuation-next _%cont103833%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte103672%_ + _%rte103831%_ 'continuation - __tmp103874))))) + __tmp104033))))) (declare (not safe)) - (##continuation-capture __tmp103873)) - _%rte103672%_) - _%exn103664%_))))) + (##continuation-capture __tmp104032)) + _%rte103831%_) + _%exn103823%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj103659%_) - (let ((_%$e103661%_ + (lambda (_%obj103818%_) + (let ((_%$e103820%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj103659%_)))) - (if _%$e103661%_ _%$e103661%_ (error-exception? _%obj103659%_))))) + (class-instance? Error::t _%obj103818%_)))) + (if _%$e103820%_ _%$e103820%_ (error-exception? _%obj103818%_))))) (define error-message - (lambda (_%obj103652%_) - (let ((_%$e103654%_ + (lambda (_%obj103811%_) + (let ((_%$e103813%_ (let () (declare (not safe)) - (__slot-ref__% _%obj103652%_ 'message false)))) - (if _%$e103654%_ - _%$e103654%_ - (if (error-exception? _%obj103652%_) - (error-exception-message _%obj103652%_) + (__slot-ref__% _%obj103811%_ 'message false)))) + (if _%$e103813%_ + _%$e103813%_ + (if (error-exception? _%obj103811%_) + (error-exception-message _%obj103811%_) '#f))))) (define error-irritants - (lambda (_%obj103647%_) + (lambda (_%obj103806%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103647%_)) + (class-instance? Error::t _%obj103806%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103647%_ 'irritants)) - (if (error-exception? _%obj103647%_) - (error-exception-parameters _%obj103647%_) + (unchecked-slot-ref _%obj103806%_ 'irritants)) + (if (error-exception? _%obj103806%_) + (error-exception-parameters _%obj103806%_) '#f)))) (define error-trace - (lambda (_%obj103645%_) + (lambda (_%obj103804%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103645%_)) + (class-instance? Error::t _%obj103804%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103645%_ 'where)) + (unchecked-slot-ref _%obj103804%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e103626%_ _%port103627%_) - (let ((_%$e103629%_ + (lambda (_%e103785%_ _%port103786%_) + (let ((_%$e103788%_ (let () (declare (not safe)) - (__method-ref _%e103626%_ 'display-exception)))) - (if _%$e103629%_ - ((lambda (_%f103632%_) (_%f103632%_ _%e103626%_ _%port103627%_)) - _%$e103629%_) + (__method-ref _%e103785%_ 'display-exception)))) + (if _%$e103788%_ + ((lambda (_%f103791%_) (_%f103791%_ _%e103785%_ _%port103786%_)) + _%$e103788%_) (let () (declare (not safe)) - (##default-display-exception _%e103626%_ _%port103627%_)))))) + (##default-display-exception _%e103785%_ _%port103786%_)))))) (define display-exception__0 - (lambda (_%e103638%_) - (let ((_%port103640%_ (current-error-port))) - (display-exception__% _%e103638%_ _%port103640%_)))) + (lambda (_%e103797%_) + (let ((_%port103799%_ (current-error-port))) + (display-exception__% _%e103797%_ _%port103799%_)))) (define display-exception - (lambda _g103876_ - (let ((_g103875_ (let () (declare (not safe)) (##length _g103876_)))) - (cond ((let () (declare (not safe)) (##fx= _g103875_ 1)) - (apply display-exception__0 _g103876_)) - ((let () (declare (not safe)) (##fx= _g103875_ 2)) - (apply display-exception__% _g103876_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g103876_)))))) + _g104035_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self101995103602%_ _%message103604%_ . _%rest103605%_) - (let* ((_%self103607%_ _%self101995103602%_) - (_%self103609%_ _%self103607%_) - (_%message103623%_ - (if (string? _%message103604%_) - _%message103604%_ + (lambda (_%self102154103761%_ _%message103763%_ . _%rest103764%_) + (let* ((_%self103766%_ _%self102154103761%_) + (_%self103768%_ _%self103766%_) + (_%message103782%_ + (if (string? _%message103763%_) + _%message103763%_ (call-with-output-string '"" - (lambda (_%g103618103620%_) - (display _%message103604%_ _%g103618103620%_)))))) + (lambda (_%g103777103779%_) + (display _%message103763%_ _%g103777103779%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self103609%_ 'message _%message103623%_)) - (apply class-instance-init! _%self103609%_ _%rest103605%_)))) + (unchecked-slot-set! _%self103768%_ 'message _%message103782%_)) + (apply class-instance-init! _%self103768%_ _%rest103764%_)))) (define Error:::init!::specialize - (lambda (__klass103837 __method-table103838) - (let ((__message103839 - (let ((__slot103840 + (lambda (__klass103996 __method-table103997) + (let ((__message103998 + (let ((__slot103999 (let () (declare (not safe)) - (class-slot-offset __klass103837 'message)))) - (if __slot103840 - __slot103840 + (class-slot-offset __klass103996 'message)))) + (if __slot103999 + __slot103999 (error '"Unknown slot" 'message))))) - (lambda (_%self101995103602%_ _%message103604%_ . _%rest103605%_) - (let* ((_%self103607%_ _%self101995103602%_) - (_%self103609%_ _%self103607%_) - (_%message103623%_ - (if (string? _%message103604%_) - _%message103604%_ + (lambda (_%self102154103761%_ _%message103763%_ . _%rest103764%_) + (let* ((_%self103766%_ _%self102154103761%_) + (_%self103768%_ _%self103766%_) + (_%message103782%_ + (if (string? _%message103763%_) + _%message103763%_ (call-with-output-string '"" - (lambda (_%g103618103620%_) - (display _%message103604%_ _%g103618103620%_)))))) + (lambda (_%g103777103779%_) + (display _%message103763%_ _%g103777103779%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self103609%_ - _%message103623%_ - __message103839 + _%self103768%_ + _%message103782%_ + __message103998 '#f '#f)) - (apply class-instance-init! _%self103609%_ _%rest103605%_)))))) + (apply class-instance-init! _%self103768%_ _%rest103764%_)))))) (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 (_%self101996103324%_ _%port103326%_) - (let* ((_%self103328%_ _%self101996103324%_) - (_%self103330%_ _%self103328%_)) - (let ((_%tmp-port103340%_ (open-output-string)) - (_%display-error-newline103341%_ - (> (output-port-column _%port103326%_) '0))) - (fix-port-width! _%tmp-port103340%_) - (let ((__tmp103877 + (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 () - (if _%display-error-newline103341%_ (newline) '#!void) + (if _%display-error-newline103500%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103344%_ + (let ((_%$e103503%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103330%_ 'where)))) - (if _%$e103344%_ (display _%$e103344%_) (display '"?"))) - (let ((__tmp103878 - (let ((__tmp103879 + (unchecked-slot-ref _%self103489%_ 'where)))) + (if _%$e103503%_ (display _%$e103503%_) (display '"?"))) + (let ((__tmp104037 + (let ((__tmp104038 (let () (declare (not safe)) - (object-type _%self103330%_)))) + (object-type _%self103489%_)))) (declare (not safe)) - (##type-name __tmp103879)))) + (##type-name __tmp104038)))) (declare (not safe)) - (display* '" [" __tmp103878 '"]: ")) - (let ((__tmp103880 + (display* '" [" __tmp104037 '"]: ")) + (let ((__tmp104039 (let () (declare (not safe)) - (unchecked-slot-ref _%self103330%_ 'message)))) + (unchecked-slot-ref _%self103489%_ 'message)))) (declare (not safe)) - (displayln __tmp103880)) - (let ((_%irritants103348%_ + (displayln __tmp104039)) + (let ((_%irritants103507%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103330%_ 'irritants)))) - (if (null? _%irritants103348%_) + (unchecked-slot-ref _%self103489%_ 'irritants)))) + (if (null? _%irritants103507%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103350%_) - (if (u8vector? _%obj103350%_) - (let ((__tmp103881 + (lambda (_%obj103509%_) + (if (u8vector? _%obj103509%_) + (let ((__tmp104040 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103350%_)) + _%obj103509%_)) '())))) (declare (not safe)) - (##write __tmp103881)) + (##write __tmp104040)) (let () (declare (not safe)) - (##write _%obj103350%_))) + (##write _%obj103509%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103348%_) + _%irritants103507%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103351103353%_ + (let ((_%cont103510103512%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self103330%_ + _%self103489%_ 'continuation)))) - (if _%cont103351103353%_ - (let ((_%cont103356%_ _%cont103351103353%_)) + (if _%cont103510103512%_ + (let ((_%cont103515%_ _%cont103510103512%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103356%_)) + _%cont103515%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp103877 + __tmp104036 current-output-port - _%tmp-port103340%_)) - (let ((__tmp103882 (get-output-string _%tmp-port103340%_))) + _%tmp-port103499%_)) + (let ((__tmp104041 (get-output-string _%tmp-port103499%_))) (declare (not safe)) - (##write-string __tmp103882 _%port103326%_)))))) + (##write-string __tmp104041 _%port103485%_)))))) (define Error::display-exception::specialize - (lambda (__klass103841 __method-table103842) - (let ((__where103843 - (let ((__slot103847 + (lambda (__klass104000 __method-table104001) + (let ((__irritants104002 + (let ((__slot104006 (let () (declare (not safe)) - (class-slot-offset __klass103841 'where)))) - (if __slot103847 - __slot103847 - (error '"Unknown slot" 'where)))) - (__irritants103844 - (let ((__slot103848 - (let () - (declare (not safe)) - (class-slot-offset __klass103841 'irritants)))) - (if __slot103848 - __slot103848 + (class-slot-offset __klass104000 'irritants)))) + (if __slot104006 + __slot104006 (error '"Unknown slot" 'irritants)))) - (__continuation103845 - (let ((__slot103849 + (__continuation104003 + (let ((__slot104007 (let () (declare (not safe)) - (class-slot-offset __klass103841 'continuation)))) - (if __slot103849 - __slot103849 + (class-slot-offset __klass104000 'continuation)))) + (if __slot104007 + __slot104007 (error '"Unknown slot" 'continuation)))) - (__message103846 - (let ((__slot103850 + (__where104004 + (let ((__slot104008 (let () (declare (not safe)) - (class-slot-offset __klass103841 'message)))) - (if __slot103850 - __slot103850 + (class-slot-offset __klass104000 'where)))) + (if __slot104008 + __slot104008 + (error '"Unknown slot" 'where)))) + (__message104005 + (let ((__slot104009 + (let () + (declare (not safe)) + (class-slot-offset __klass104000 'message)))) + (if __slot104009 + __slot104009 (error '"Unknown slot" 'message))))) - (lambda (_%self101996103324%_ _%port103326%_) - (let* ((_%self103328%_ _%self101996103324%_) - (_%self103330%_ _%self103328%_)) - (let ((_%tmp-port103340%_ (open-output-string)) - (_%display-error-newline103341%_ - (> (output-port-column _%port103326%_) '0))) - (fix-port-width! _%tmp-port103340%_) - (let ((__tmp103883 + (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 () - (if _%display-error-newline103341%_ (newline) '#!void) + (if _%display-error-newline103500%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103344%_ + (let ((_%$e103503%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __where103843 + _%self103489%_ + __where104004 '#f '#f)))) - (if _%$e103344%_ - (display _%$e103344%_) + (if _%$e103503%_ + (display _%$e103503%_) (display '"?"))) - (let ((__tmp103884 - (let ((__tmp103885 + (let ((__tmp104043 + (let ((__tmp104044 (let () (declare (not safe)) - (object-type _%self103330%_)))) + (object-type _%self103489%_)))) (declare (not safe)) - (##type-name __tmp103885)))) + (##type-name __tmp104044)))) (declare (not safe)) - (display* '" [" __tmp103884 '"]: ")) - (let ((__tmp103886 + (display* '" [" __tmp104043 '"]: ")) + (let ((__tmp104045 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __message103846 + _%self103489%_ + __message104005 '#f '#f)))) (declare (not safe)) - (displayln __tmp103886)) - (let ((_%irritants103348%_ + (displayln __tmp104045)) + (let ((_%irritants103507%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __irritants103844 + _%self103489%_ + __irritants104002 '#f '#f)))) - (if (null? _%irritants103348%_) + (if (null? _%irritants103507%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103350%_) - (if (u8vector? _%obj103350%_) - (let ((__tmp103887 + (lambda (_%obj103509%_) + (if (u8vector? _%obj103509%_) + (let ((__tmp104046 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103350%_)) + _%obj103509%_)) '())))) (declare (not safe)) - (##write __tmp103887)) + (##write __tmp104046)) (let () (declare (not safe)) - (##write _%obj103350%_))) + (##write _%obj103509%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103348%_) + _%irritants103507%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103351103353%_ + (let ((_%cont103510103512%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __continuation103845 + _%self103489%_ + __continuation104003 '#f '#f)))) - (if _%cont103351103353%_ - (let ((_%cont103356%_ _%cont103351103353%_)) + (if _%cont103510103512%_ + (let ((_%cont103515%_ _%cont103510103512%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103356%_)) + _%cont103515%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp103883 + __tmp104042 current-output-port - _%tmp-port103340%_)) - (let ((__tmp103888 (get-output-string _%tmp-port103340%_))) + _%tmp-port103499%_)) + (let ((__tmp104047 (get-output-string _%tmp-port103499%_))) (declare (not safe)) - (##write-string __tmp103888 _%port103326%_)))))))) + (##write-string __tmp104047 _%port103485%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -858,90 +858,90 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self101997103178%_ _%port103180%_) - (let* ((_%self103182%_ _%self101997103178%_) - (_%self103184%_ _%self103182%_) - (_%tmp-port103194%_ (open-output-string))) - (fix-port-width! _%tmp-port103194%_) - (let ((__tmp103889 + (lambda (_%self102156103337%_ _%port103339%_) + (let* ((_%self103341%_ _%self102156103337%_) + (_%self103343%_ _%self103341%_) + (_%tmp-port103353%_ (open-output-string))) + (fix-port-width! _%tmp-port103353%_) + (let ((__tmp104048 (let () (declare (not safe)) - (unchecked-slot-ref _%self103184%_ 'exception)))) + (unchecked-slot-ref _%self103343%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp103889 _%tmp-port103194%_)) + (##default-display-exception __tmp104048 _%tmp-port103353%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103195103197%_ + (let ((_%cont103354103356%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103184%_ 'continuation)))) - (if _%cont103195103197%_ - (let ((_%cont103200%_ _%cont103195103197%_)) + (unchecked-slot-ref _%self103343%_ 'continuation)))) + (if _%cont103354103356%_ + (let ((_%cont103359%_ _%cont103354103356%_)) (display '"--- continuation backtrace:" - _%tmp-port103194%_) - (newline _%tmp-port103194%_) + _%tmp-port103353%_) + (newline _%tmp-port103353%_) (display-continuation-backtrace - _%cont103200%_ - _%tmp-port103194%_)) + _%cont103359%_ + _%tmp-port103353%_)) '#f)) '#!void) - (let ((__tmp103890 (get-output-string _%tmp-port103194%_))) + (let ((__tmp104049 (get-output-string _%tmp-port103353%_))) (declare (not safe)) - (##write-string __tmp103890 _%port103180%_))))) + (##write-string __tmp104049 _%port103339%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass103851 __method-table103852) - (let ((__continuation103853 - (let ((__slot103855 + (lambda (__klass104010 __method-table104011) + (let ((__exception104012 + (let ((__slot104014 (let () (declare (not safe)) - (class-slot-offset __klass103851 'continuation)))) - (if __slot103855 - __slot103855 - (error '"Unknown slot" 'continuation)))) - (__exception103854 - (let ((__slot103856 + (class-slot-offset __klass104010 'exception)))) + (if __slot104014 + __slot104014 + (error '"Unknown slot" 'exception)))) + (__continuation104013 + (let ((__slot104015 (let () (declare (not safe)) - (class-slot-offset __klass103851 'exception)))) - (if __slot103856 - __slot103856 - (error '"Unknown slot" 'exception))))) - (lambda (_%self101997103178%_ _%port103180%_) - (let* ((_%self103182%_ _%self101997103178%_) - (_%self103184%_ _%self103182%_) - (_%tmp-port103194%_ (open-output-string))) - (fix-port-width! _%tmp-port103194%_) - (let ((__tmp103891 + (class-slot-offset __klass104010 'continuation)))) + (if __slot104015 + __slot104015 + (error '"Unknown slot" 'continuation))))) + (lambda (_%self102156103337%_ _%port103339%_) + (let* ((_%self103341%_ _%self102156103337%_) + (_%self103343%_ _%self103341%_) + (_%tmp-port103353%_ (open-output-string))) + (fix-port-width! _%tmp-port103353%_) + (let ((__tmp104050 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103184%_ - __exception103854 + _%self103343%_ + __exception104012 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp103891 _%tmp-port103194%_)) + (##default-display-exception __tmp104050 _%tmp-port103353%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103195103197%_ + (let ((_%cont103354103356%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103184%_ - __continuation103853 + _%self103343%_ + __continuation104013 '#f '#f)))) - (if _%cont103195103197%_ - (let ((_%cont103200%_ _%cont103195103197%_)) + (if _%cont103354103356%_ + (let ((_%cont103359%_ _%cont103354103356%_)) (display '"--- continuation backtrace:" - _%tmp-port103194%_) - (newline _%tmp-port103194%_) + _%tmp-port103353%_) + (newline _%tmp-port103353%_) (display-continuation-backtrace - _%cont103200%_ - _%tmp-port103194%_)) + _%cont103359%_ + _%tmp-port103353%_)) '#f)) '#!void) - (let ((__tmp103892 (get-output-string _%tmp-port103194%_))) + (let ((__tmp104051 (get-output-string _%tmp-port103353%_))) (declare (not safe)) - (##write-string __tmp103892 _%port103180%_))))))) + (##write-string __tmp104051 _%port103339%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -955,2636 +955,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port103050%_) - (if (macro-character-port? _%port103050%_) - (let ((_%old-width103052%_ - (macro-character-port-output-width _%port103050%_))) + (lambda (_%port103209%_) + (if (macro-character-port? _%port103209%_) + (let ((_%old-width103211%_ + (macro-character-port-output-width _%port103209%_))) (macro-character-port-output-width-set! - _%port103050%_ - (lambda (_%port103054%_) '256)) - _%old-width103052%_) + _%port103209%_ + (lambda (_%port103213%_) '256)) + _%old-width103211%_) '#!void))) (define reset-port-width! - (lambda (_%port103047%_ _%old-width103048%_) - (if (macro-character-port? _%port103047%_) + (lambda (_%port103206%_ _%old-width103207%_) + (if (macro-character-port? _%port103206%_) (macro-character-port-output-width-set! - _%port103047%_ - _%old-width103048%_) + _%port103206%_ + _%old-width103207%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e103045%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e103045%_)))) + (lambda (_%e103204%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e103204%_)))) (define abandoned-mutex-exception? - (lambda (_%exn103039%_) + (lambda (_%exn103198%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103039%_)) - (let ((_%e103042%_ + (class-instance? RuntimeException::t _%exn103198%_)) + (let ((_%e103201%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103039%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e103042%_)) - (macro-abandoned-mutex-exception? _%exn103039%_)))) + (unchecked-slot-ref _%exn103198%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e103201%_)) + (macro-abandoned-mutex-exception? _%exn103198%_)))) (define cfun-conversion-exception? - (lambda (_%exn103035%_) + (lambda (_%exn103194%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103035%_)) - (let ((_%e103037%_ + (class-instance? RuntimeException::t _%exn103194%_)) + (let ((_%e103196%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103035%_ 'exception)))) - (macro-cfun-conversion-exception? _%e103037%_)) - (macro-cfun-conversion-exception? _%exn103035%_)))) + (unchecked-slot-ref _%exn103194%_ 'exception)))) + (macro-cfun-conversion-exception? _%e103196%_)) + (macro-cfun-conversion-exception? _%exn103194%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn103031%_) + (lambda (_%exn103190%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103031%_)) - (let ((_%e103033%_ + (class-instance? RuntimeException::t _%exn103190%_)) + (let ((_%e103192%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103031%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103033%_) - (macro-cfun-conversion-exception-arguments _%e103033%_) + (unchecked-slot-ref _%exn103190%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103192%_) + (macro-cfun-conversion-exception-arguments _%e103192%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%e103033%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103031%_) - (macro-cfun-conversion-exception-arguments _%exn103031%_) + (cons _%e103192%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103190%_) + (macro-cfun-conversion-exception-arguments _%exn103190%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%exn103031%_ '()))))))) + (cons _%exn103190%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn103027%_) + (lambda (_%exn103186%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103027%_)) - (let ((_%e103029%_ + (class-instance? RuntimeException::t _%exn103186%_)) + (let ((_%e103188%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103027%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103029%_) - (macro-cfun-conversion-exception-code _%e103029%_) + (unchecked-slot-ref _%exn103186%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103188%_) + (macro-cfun-conversion-exception-code _%e103188%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%e103029%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103027%_) - (macro-cfun-conversion-exception-code _%exn103027%_) + (cons _%e103188%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103186%_) + (macro-cfun-conversion-exception-code _%exn103186%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%exn103027%_ '()))))))) + (cons _%exn103186%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn103023%_) + (lambda (_%exn103182%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103023%_)) - (let ((_%e103025%_ + (class-instance? RuntimeException::t _%exn103182%_)) + (let ((_%e103184%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103023%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103025%_) - (macro-cfun-conversion-exception-message _%e103025%_) + (unchecked-slot-ref _%exn103182%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103184%_) + (macro-cfun-conversion-exception-message _%e103184%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%e103025%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103023%_) - (macro-cfun-conversion-exception-message _%exn103023%_) + (cons _%e103184%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103182%_) + (macro-cfun-conversion-exception-message _%exn103182%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%exn103023%_ '()))))))) + (cons _%exn103182%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn103017%_) + (lambda (_%exn103176%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103017%_)) - (let ((_%e103020%_ + (class-instance? RuntimeException::t _%exn103176%_)) + (let ((_%e103179%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103017%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103020%_) - (macro-cfun-conversion-exception-procedure _%e103020%_) + (unchecked-slot-ref _%exn103176%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103179%_) + (macro-cfun-conversion-exception-procedure _%e103179%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%e103020%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103017%_) - (macro-cfun-conversion-exception-procedure _%exn103017%_) + (cons _%e103179%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103176%_) + (macro-cfun-conversion-exception-procedure _%exn103176%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%exn103017%_ '()))))))) + (cons _%exn103176%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn103013%_) + (lambda (_%exn103172%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103013%_)) - (let ((_%e103015%_ + (class-instance? RuntimeException::t _%exn103172%_)) + (let ((_%e103174%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103013%_ 'exception)))) - (macro-datum-parsing-exception? _%e103015%_)) - (macro-datum-parsing-exception? _%exn103013%_)))) + (unchecked-slot-ref _%exn103172%_ 'exception)))) + (macro-datum-parsing-exception? _%e103174%_)) + (macro-datum-parsing-exception? _%exn103172%_)))) (define datum-parsing-exception-kind - (lambda (_%exn103009%_) + (lambda (_%exn103168%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103009%_)) - (let ((_%e103011%_ + (class-instance? RuntimeException::t _%exn103168%_)) + (let ((_%e103170%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103009%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103011%_) - (macro-datum-parsing-exception-kind _%e103011%_) + (unchecked-slot-ref _%exn103168%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103170%_) + (macro-datum-parsing-exception-kind _%e103170%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%e103011%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103009%_) - (macro-datum-parsing-exception-kind _%exn103009%_) + (cons _%e103170%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103168%_) + (macro-datum-parsing-exception-kind _%exn103168%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%exn103009%_ '()))))))) + (cons _%exn103168%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn103005%_) + (lambda (_%exn103164%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103005%_)) - (let ((_%e103007%_ + (class-instance? RuntimeException::t _%exn103164%_)) + (let ((_%e103166%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103005%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103007%_) - (macro-datum-parsing-exception-parameters _%e103007%_) + (unchecked-slot-ref _%exn103164%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103166%_) + (macro-datum-parsing-exception-parameters _%e103166%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%e103007%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103005%_) - (macro-datum-parsing-exception-parameters _%exn103005%_) + (cons _%e103166%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103164%_) + (macro-datum-parsing-exception-parameters _%exn103164%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%exn103005%_ '()))))))) + (cons _%exn103164%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn102999%_) + (lambda (_%exn103158%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102999%_)) - (let ((_%e103002%_ + (class-instance? RuntimeException::t _%exn103158%_)) + (let ((_%e103161%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102999%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103002%_) - (macro-datum-parsing-exception-readenv _%e103002%_) + (unchecked-slot-ref _%exn103158%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103161%_) + (macro-datum-parsing-exception-readenv _%e103161%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%e103002%_ '()))))) - (if (macro-datum-parsing-exception? _%exn102999%_) - (macro-datum-parsing-exception-readenv _%exn102999%_) + (cons _%e103161%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103158%_) + (macro-datum-parsing-exception-readenv _%exn103158%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%exn102999%_ '()))))))) + (cons _%exn103158%_ '()))))))) (define deadlock-exception? - (lambda (_%exn102993%_) + (lambda (_%exn103152%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102993%_)) - (let ((_%e102996%_ + (class-instance? RuntimeException::t _%exn103152%_)) + (let ((_%e103155%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102993%_ 'exception)))) - (macro-deadlock-exception? _%e102996%_)) - (macro-deadlock-exception? _%exn102993%_)))) + (unchecked-slot-ref _%exn103152%_ 'exception)))) + (macro-deadlock-exception? _%e103155%_)) + (macro-deadlock-exception? _%exn103152%_)))) (define divide-by-zero-exception? - (lambda (_%exn102989%_) + (lambda (_%exn103148%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102989%_)) - (let ((_%e102991%_ + (class-instance? RuntimeException::t _%exn103148%_)) + (let ((_%e103150%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102989%_ 'exception)))) - (macro-divide-by-zero-exception? _%e102991%_)) - (macro-divide-by-zero-exception? _%exn102989%_)))) + (unchecked-slot-ref _%exn103148%_ 'exception)))) + (macro-divide-by-zero-exception? _%e103150%_)) + (macro-divide-by-zero-exception? _%exn103148%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn102985%_) + (lambda (_%exn103144%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102985%_)) - (let ((_%e102987%_ + (class-instance? RuntimeException::t _%exn103144%_)) + (let ((_%e103146%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102985%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e102987%_) - (macro-divide-by-zero-exception-arguments _%e102987%_) + (unchecked-slot-ref _%exn103144%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e103146%_) + (macro-divide-by-zero-exception-arguments _%e103146%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%e102987%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn102985%_) - (macro-divide-by-zero-exception-arguments _%exn102985%_) + (cons _%e103146%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn103144%_) + (macro-divide-by-zero-exception-arguments _%exn103144%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%exn102985%_ '()))))))) + (cons _%exn103144%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn102979%_) + (lambda (_%exn103138%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102979%_)) - (let ((_%e102982%_ + (class-instance? RuntimeException::t _%exn103138%_)) + (let ((_%e103141%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102979%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e102982%_) - (macro-divide-by-zero-exception-procedure _%e102982%_) + (unchecked-slot-ref _%exn103138%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e103141%_) + (macro-divide-by-zero-exception-procedure _%e103141%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%e102982%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn102979%_) - (macro-divide-by-zero-exception-procedure _%exn102979%_) + (cons _%e103141%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn103138%_) + (macro-divide-by-zero-exception-procedure _%exn103138%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%exn102979%_ '()))))))) + (cons _%exn103138%_ '()))))))) (define error-exception? - (lambda (_%exn102975%_) + (lambda (_%exn103134%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102975%_)) - (let ((_%e102977%_ + (class-instance? RuntimeException::t _%exn103134%_)) + (let ((_%e103136%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102975%_ 'exception)))) - (macro-error-exception? _%e102977%_)) - (macro-error-exception? _%exn102975%_)))) + (unchecked-slot-ref _%exn103134%_ 'exception)))) + (macro-error-exception? _%e103136%_)) + (macro-error-exception? _%exn103134%_)))) (define error-exception-message - (lambda (_%exn102971%_) + (lambda (_%exn103130%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102971%_)) - (let ((_%e102973%_ + (class-instance? RuntimeException::t _%exn103130%_)) + (let ((_%e103132%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102971%_ 'exception)))) - (if (macro-error-exception? _%e102973%_) - (macro-error-exception-message _%e102973%_) + (unchecked-slot-ref _%exn103130%_ 'exception)))) + (if (macro-error-exception? _%e103132%_) + (macro-error-exception-message _%e103132%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%e102973%_ '()))))) - (if (macro-error-exception? _%exn102971%_) - (macro-error-exception-message _%exn102971%_) + (cons _%e103132%_ '()))))) + (if (macro-error-exception? _%exn103130%_) + (macro-error-exception-message _%exn103130%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn102971%_ '()))))))) + (cons _%exn103130%_ '()))))))) (define error-exception-parameters - (lambda (_%exn102965%_) + (lambda (_%exn103124%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102965%_)) - (let ((_%e102968%_ + (class-instance? RuntimeException::t _%exn103124%_)) + (let ((_%e103127%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102965%_ 'exception)))) - (if (macro-error-exception? _%e102968%_) - (macro-error-exception-parameters _%e102968%_) + (unchecked-slot-ref _%exn103124%_ 'exception)))) + (if (macro-error-exception? _%e103127%_) + (macro-error-exception-parameters _%e103127%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%e102968%_ '()))))) - (if (macro-error-exception? _%exn102965%_) - (macro-error-exception-parameters _%exn102965%_) + (cons _%e103127%_ '()))))) + (if (macro-error-exception? _%exn103124%_) + (macro-error-exception-parameters _%exn103124%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn102965%_ '()))))))) + (cons _%exn103124%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn102961%_) + (lambda (_%exn103120%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102961%_)) - (let ((_%e102963%_ + (class-instance? RuntimeException::t _%exn103120%_)) + (let ((_%e103122%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102961%_ 'exception)))) - (macro-expression-parsing-exception? _%e102963%_)) - (macro-expression-parsing-exception? _%exn102961%_)))) + (unchecked-slot-ref _%exn103120%_ 'exception)))) + (macro-expression-parsing-exception? _%e103122%_)) + (macro-expression-parsing-exception? _%exn103120%_)))) (define expression-parsing-exception-kind - (lambda (_%exn102957%_) + (lambda (_%exn103116%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102957%_)) - (let ((_%e102959%_ + (class-instance? RuntimeException::t _%exn103116%_)) + (let ((_%e103118%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102957%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e102959%_) - (macro-expression-parsing-exception-kind _%e102959%_) + (unchecked-slot-ref _%exn103116%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e103118%_) + (macro-expression-parsing-exception-kind _%e103118%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%e102959%_ '()))))) - (if (macro-expression-parsing-exception? _%exn102957%_) - (macro-expression-parsing-exception-kind _%exn102957%_) + (cons _%e103118%_ '()))))) + (if (macro-expression-parsing-exception? _%exn103116%_) + (macro-expression-parsing-exception-kind _%exn103116%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%exn102957%_ '()))))))) + (cons _%exn103116%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn102953%_) + (lambda (_%exn103112%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102953%_)) - (let ((_%e102955%_ + (class-instance? RuntimeException::t _%exn103112%_)) + (let ((_%e103114%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102953%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e102955%_) - (macro-expression-parsing-exception-parameters _%e102955%_) + (unchecked-slot-ref _%exn103112%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e103114%_) + (macro-expression-parsing-exception-parameters _%e103114%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%e102955%_ '()))))) - (if (macro-expression-parsing-exception? _%exn102953%_) - (macro-expression-parsing-exception-parameters _%exn102953%_) + (cons _%e103114%_ '()))))) + (if (macro-expression-parsing-exception? _%exn103112%_) + (macro-expression-parsing-exception-parameters _%exn103112%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%exn102953%_ '()))))))) + (cons _%exn103112%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn102947%_) + (lambda (_%exn103106%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102947%_)) - (let ((_%e102950%_ + (class-instance? RuntimeException::t _%exn103106%_)) + (let ((_%e103109%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102947%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e102950%_) - (macro-expression-parsing-exception-source _%e102950%_) + (unchecked-slot-ref _%exn103106%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e103109%_) + (macro-expression-parsing-exception-source _%e103109%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%e102950%_ '()))))) - (if (macro-expression-parsing-exception? _%exn102947%_) - (macro-expression-parsing-exception-source _%exn102947%_) + (cons _%e103109%_ '()))))) + (if (macro-expression-parsing-exception? _%exn103106%_) + (macro-expression-parsing-exception-source _%exn103106%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%exn102947%_ '()))))))) + (cons _%exn103106%_ '()))))))) (define file-exists-exception? - (lambda (_%exn102943%_) + (lambda (_%exn103102%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102943%_)) - (let ((_%e102945%_ + (class-instance? RuntimeException::t _%exn103102%_)) + (let ((_%e103104%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102943%_ 'exception)))) - (macro-file-exists-exception? _%e102945%_)) - (macro-file-exists-exception? _%exn102943%_)))) + (unchecked-slot-ref _%exn103102%_ 'exception)))) + (macro-file-exists-exception? _%e103104%_)) + (macro-file-exists-exception? _%exn103102%_)))) (define file-exists-exception-arguments - (lambda (_%exn102939%_) + (lambda (_%exn103098%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102939%_)) - (let ((_%e102941%_ + (class-instance? RuntimeException::t _%exn103098%_)) + (let ((_%e103100%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102939%_ 'exception)))) - (if (macro-file-exists-exception? _%e102941%_) - (macro-file-exists-exception-arguments _%e102941%_) + (unchecked-slot-ref _%exn103098%_ 'exception)))) + (if (macro-file-exists-exception? _%e103100%_) + (macro-file-exists-exception-arguments _%e103100%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%e102941%_ '()))))) - (if (macro-file-exists-exception? _%exn102939%_) - (macro-file-exists-exception-arguments _%exn102939%_) + (cons _%e103100%_ '()))))) + (if (macro-file-exists-exception? _%exn103098%_) + (macro-file-exists-exception-arguments _%exn103098%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%exn102939%_ '()))))))) + (cons _%exn103098%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn102933%_) + (lambda (_%exn103092%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102933%_)) - (let ((_%e102936%_ + (class-instance? RuntimeException::t _%exn103092%_)) + (let ((_%e103095%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102933%_ 'exception)))) - (if (macro-file-exists-exception? _%e102936%_) - (macro-file-exists-exception-procedure _%e102936%_) + (unchecked-slot-ref _%exn103092%_ 'exception)))) + (if (macro-file-exists-exception? _%e103095%_) + (macro-file-exists-exception-procedure _%e103095%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%e102936%_ '()))))) - (if (macro-file-exists-exception? _%exn102933%_) - (macro-file-exists-exception-procedure _%exn102933%_) + (cons _%e103095%_ '()))))) + (if (macro-file-exists-exception? _%exn103092%_) + (macro-file-exists-exception-procedure _%exn103092%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%exn102933%_ '()))))))) + (cons _%exn103092%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn102929%_) + (lambda (_%exn103088%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102929%_)) - (let ((_%e102931%_ + (class-instance? RuntimeException::t _%exn103088%_)) + (let ((_%e103090%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102929%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e102931%_)) - (macro-fixnum-overflow-exception? _%exn102929%_)))) + (unchecked-slot-ref _%exn103088%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e103090%_)) + (macro-fixnum-overflow-exception? _%exn103088%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn102925%_) + (lambda (_%exn103084%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102925%_)) - (let ((_%e102927%_ + (class-instance? RuntimeException::t _%exn103084%_)) + (let ((_%e103086%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102925%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e102927%_) - (macro-fixnum-overflow-exception-arguments _%e102927%_) + (unchecked-slot-ref _%exn103084%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e103086%_) + (macro-fixnum-overflow-exception-arguments _%e103086%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%e102927%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn102925%_) - (macro-fixnum-overflow-exception-arguments _%exn102925%_) + (cons _%e103086%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn103084%_) + (macro-fixnum-overflow-exception-arguments _%exn103084%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%exn102925%_ '()))))))) + (cons _%exn103084%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn102919%_) + (lambda (_%exn103078%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102919%_)) - (let ((_%e102922%_ + (class-instance? RuntimeException::t _%exn103078%_)) + (let ((_%e103081%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102919%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e102922%_) - (macro-fixnum-overflow-exception-procedure _%e102922%_) + (unchecked-slot-ref _%exn103078%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e103081%_) + (macro-fixnum-overflow-exception-procedure _%e103081%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%e102922%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn102919%_) - (macro-fixnum-overflow-exception-procedure _%exn102919%_) + (cons _%e103081%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn103078%_) + (macro-fixnum-overflow-exception-procedure _%exn103078%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%exn102919%_ '()))))))) + (cons _%exn103078%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn102913%_) + (lambda (_%exn103072%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102913%_)) - (let ((_%e102916%_ + (class-instance? RuntimeException::t _%exn103072%_)) + (let ((_%e103075%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102913%_ 'exception)))) - (macro-heap-overflow-exception? _%e102916%_)) - (macro-heap-overflow-exception? _%exn102913%_)))) + (unchecked-slot-ref _%exn103072%_ 'exception)))) + (macro-heap-overflow-exception? _%e103075%_)) + (macro-heap-overflow-exception? _%exn103072%_)))) (define inactive-thread-exception? - (lambda (_%exn102909%_) + (lambda (_%exn103068%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102909%_)) - (let ((_%e102911%_ + (class-instance? RuntimeException::t _%exn103068%_)) + (let ((_%e103070%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102909%_ 'exception)))) - (macro-inactive-thread-exception? _%e102911%_)) - (macro-inactive-thread-exception? _%exn102909%_)))) + (unchecked-slot-ref _%exn103068%_ 'exception)))) + (macro-inactive-thread-exception? _%e103070%_)) + (macro-inactive-thread-exception? _%exn103068%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn102905%_) + (lambda (_%exn103064%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102905%_)) - (let ((_%e102907%_ + (class-instance? RuntimeException::t _%exn103064%_)) + (let ((_%e103066%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102905%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e102907%_) - (macro-inactive-thread-exception-arguments _%e102907%_) + (unchecked-slot-ref _%exn103064%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e103066%_) + (macro-inactive-thread-exception-arguments _%e103066%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%e102907%_ '()))))) - (if (macro-inactive-thread-exception? _%exn102905%_) - (macro-inactive-thread-exception-arguments _%exn102905%_) + (cons _%e103066%_ '()))))) + (if (macro-inactive-thread-exception? _%exn103064%_) + (macro-inactive-thread-exception-arguments _%exn103064%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%exn102905%_ '()))))))) + (cons _%exn103064%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn102899%_) + (lambda (_%exn103058%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102899%_)) - (let ((_%e102902%_ + (class-instance? RuntimeException::t _%exn103058%_)) + (let ((_%e103061%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102899%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e102902%_) - (macro-inactive-thread-exception-procedure _%e102902%_) + (unchecked-slot-ref _%exn103058%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e103061%_) + (macro-inactive-thread-exception-procedure _%e103061%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%e102902%_ '()))))) - (if (macro-inactive-thread-exception? _%exn102899%_) - (macro-inactive-thread-exception-procedure _%exn102899%_) + (cons _%e103061%_ '()))))) + (if (macro-inactive-thread-exception? _%exn103058%_) + (macro-inactive-thread-exception-procedure _%exn103058%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%exn102899%_ '()))))))) + (cons _%exn103058%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn102895%_) + (lambda (_%exn103054%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102895%_)) - (let ((_%e102897%_ + (class-instance? RuntimeException::t _%exn103054%_)) + (let ((_%e103056%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102895%_ 'exception)))) - (macro-initialized-thread-exception? _%e102897%_)) - (macro-initialized-thread-exception? _%exn102895%_)))) + (unchecked-slot-ref _%exn103054%_ 'exception)))) + (macro-initialized-thread-exception? _%e103056%_)) + (macro-initialized-thread-exception? _%exn103054%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn102891%_) + (lambda (_%exn103050%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102891%_)) - (let ((_%e102893%_ + (class-instance? RuntimeException::t _%exn103050%_)) + (let ((_%e103052%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102891%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e102893%_) - (macro-initialized-thread-exception-arguments _%e102893%_) + (unchecked-slot-ref _%exn103050%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e103052%_) + (macro-initialized-thread-exception-arguments _%e103052%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%e102893%_ '()))))) - (if (macro-initialized-thread-exception? _%exn102891%_) - (macro-initialized-thread-exception-arguments _%exn102891%_) + (cons _%e103052%_ '()))))) + (if (macro-initialized-thread-exception? _%exn103050%_) + (macro-initialized-thread-exception-arguments _%exn103050%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%exn102891%_ '()))))))) + (cons _%exn103050%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn102885%_) + (lambda (_%exn103044%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102885%_)) - (let ((_%e102888%_ + (class-instance? RuntimeException::t _%exn103044%_)) + (let ((_%e103047%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102885%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e102888%_) - (macro-initialized-thread-exception-procedure _%e102888%_) + (unchecked-slot-ref _%exn103044%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e103047%_) + (macro-initialized-thread-exception-procedure _%e103047%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%e102888%_ '()))))) - (if (macro-initialized-thread-exception? _%exn102885%_) - (macro-initialized-thread-exception-procedure _%exn102885%_) + (cons _%e103047%_ '()))))) + (if (macro-initialized-thread-exception? _%exn103044%_) + (macro-initialized-thread-exception-procedure _%exn103044%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%exn102885%_ '()))))))) + (cons _%exn103044%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn102881%_) + (lambda (_%exn103040%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102881%_)) - (let ((_%e102883%_ + (class-instance? RuntimeException::t _%exn103040%_)) + (let ((_%e103042%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102881%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e102883%_)) - (macro-invalid-hash-number-exception? _%exn102881%_)))) + (unchecked-slot-ref _%exn103040%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e103042%_)) + (macro-invalid-hash-number-exception? _%exn103040%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn102877%_) + (lambda (_%exn103036%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102877%_)) - (let ((_%e102879%_ + (class-instance? RuntimeException::t _%exn103036%_)) + (let ((_%e103038%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102877%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e102879%_) - (macro-invalid-hash-number-exception-arguments _%e102879%_) + (unchecked-slot-ref _%exn103036%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e103038%_) + (macro-invalid-hash-number-exception-arguments _%e103038%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%e102879%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn102877%_) - (macro-invalid-hash-number-exception-arguments _%exn102877%_) + (cons _%e103038%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn103036%_) + (macro-invalid-hash-number-exception-arguments _%exn103036%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%exn102877%_ '()))))))) + (cons _%exn103036%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn102871%_) + (lambda (_%exn103030%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102871%_)) - (let ((_%e102874%_ + (class-instance? RuntimeException::t _%exn103030%_)) + (let ((_%e103033%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102871%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e102874%_) - (macro-invalid-hash-number-exception-procedure _%e102874%_) + (unchecked-slot-ref _%exn103030%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e103033%_) + (macro-invalid-hash-number-exception-procedure _%e103033%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%e102874%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn102871%_) - (macro-invalid-hash-number-exception-procedure _%exn102871%_) + (cons _%e103033%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn103030%_) + (macro-invalid-hash-number-exception-procedure _%exn103030%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%exn102871%_ '()))))))) + (cons _%exn103030%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn102867%_) + (lambda (_%exn103026%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102867%_)) - (let ((_%e102869%_ + (class-instance? RuntimeException::t _%exn103026%_)) + (let ((_%e103028%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102867%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e102869%_)) - (macro-invalid-utf8-encoding-exception? _%exn102867%_)))) + (unchecked-slot-ref _%exn103026%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e103028%_)) + (macro-invalid-utf8-encoding-exception? _%exn103026%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn102863%_) + (lambda (_%exn103022%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102863%_)) - (let ((_%e102865%_ + (class-instance? RuntimeException::t _%exn103022%_)) + (let ((_%e103024%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102863%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e102865%_) - (macro-invalid-utf8-encoding-exception-arguments _%e102865%_) + (unchecked-slot-ref _%exn103022%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e103024%_) + (macro-invalid-utf8-encoding-exception-arguments _%e103024%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e102865%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn102863%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn102863%_) + (cons _%e103024%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn103022%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn103022%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn102863%_ '()))))))) + (cons _%exn103022%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn102857%_) + (lambda (_%exn103016%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102857%_)) - (let ((_%e102860%_ + (class-instance? RuntimeException::t _%exn103016%_)) + (let ((_%e103019%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102857%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e102860%_) - (macro-invalid-utf8-encoding-exception-procedure _%e102860%_) + (unchecked-slot-ref _%exn103016%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e103019%_) + (macro-invalid-utf8-encoding-exception-procedure _%e103019%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e102860%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn102857%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn102857%_) + (cons _%e103019%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn103016%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn103016%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn102857%_ '()))))))) + (cons _%exn103016%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn102853%_) + (lambda (_%exn103012%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102853%_)) - (let ((_%e102855%_ + (class-instance? RuntimeException::t _%exn103012%_)) + (let ((_%e103014%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102853%_ 'exception)))) - (macro-join-timeout-exception? _%e102855%_)) - (macro-join-timeout-exception? _%exn102853%_)))) + (unchecked-slot-ref _%exn103012%_ 'exception)))) + (macro-join-timeout-exception? _%e103014%_)) + (macro-join-timeout-exception? _%exn103012%_)))) (define join-timeout-exception-arguments - (lambda (_%exn102849%_) + (lambda (_%exn103008%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102849%_)) - (let ((_%e102851%_ + (class-instance? RuntimeException::t _%exn103008%_)) + (let ((_%e103010%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102849%_ 'exception)))) - (if (macro-join-timeout-exception? _%e102851%_) - (macro-join-timeout-exception-arguments _%e102851%_) + (unchecked-slot-ref _%exn103008%_ 'exception)))) + (if (macro-join-timeout-exception? _%e103010%_) + (macro-join-timeout-exception-arguments _%e103010%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%e102851%_ '()))))) - (if (macro-join-timeout-exception? _%exn102849%_) - (macro-join-timeout-exception-arguments _%exn102849%_) + (cons _%e103010%_ '()))))) + (if (macro-join-timeout-exception? _%exn103008%_) + (macro-join-timeout-exception-arguments _%exn103008%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%exn102849%_ '()))))))) + (cons _%exn103008%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn102843%_) + (lambda (_%exn103002%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102843%_)) - (let ((_%e102846%_ + (class-instance? RuntimeException::t _%exn103002%_)) + (let ((_%e103005%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102843%_ 'exception)))) - (if (macro-join-timeout-exception? _%e102846%_) - (macro-join-timeout-exception-procedure _%e102846%_) + (unchecked-slot-ref _%exn103002%_ 'exception)))) + (if (macro-join-timeout-exception? _%e103005%_) + (macro-join-timeout-exception-procedure _%e103005%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%e102846%_ '()))))) - (if (macro-join-timeout-exception? _%exn102843%_) - (macro-join-timeout-exception-procedure _%exn102843%_) + (cons _%e103005%_ '()))))) + (if (macro-join-timeout-exception? _%exn103002%_) + (macro-join-timeout-exception-procedure _%exn103002%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%exn102843%_ '()))))))) + (cons _%exn103002%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn102839%_) + (lambda (_%exn102998%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102839%_)) - (let ((_%e102841%_ + (class-instance? RuntimeException::t _%exn102998%_)) + (let ((_%e103000%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102839%_ 'exception)))) - (macro-keyword-expected-exception? _%e102841%_)) - (macro-keyword-expected-exception? _%exn102839%_)))) + (unchecked-slot-ref _%exn102998%_ 'exception)))) + (macro-keyword-expected-exception? _%e103000%_)) + (macro-keyword-expected-exception? _%exn102998%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn102835%_) + (lambda (_%exn102994%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102835%_)) - (let ((_%e102837%_ + (class-instance? RuntimeException::t _%exn102994%_)) + (let ((_%e102996%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102835%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e102837%_) - (macro-keyword-expected-exception-arguments _%e102837%_) + (unchecked-slot-ref _%exn102994%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e102996%_) + (macro-keyword-expected-exception-arguments _%e102996%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%e102837%_ '()))))) - (if (macro-keyword-expected-exception? _%exn102835%_) - (macro-keyword-expected-exception-arguments _%exn102835%_) + (cons _%e102996%_ '()))))) + (if (macro-keyword-expected-exception? _%exn102994%_) + (macro-keyword-expected-exception-arguments _%exn102994%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%exn102835%_ '()))))))) + (cons _%exn102994%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn102829%_) + (lambda (_%exn102988%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102829%_)) - (let ((_%e102832%_ + (class-instance? RuntimeException::t _%exn102988%_)) + (let ((_%e102991%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102829%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e102832%_) - (macro-keyword-expected-exception-procedure _%e102832%_) + (unchecked-slot-ref _%exn102988%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e102991%_) + (macro-keyword-expected-exception-procedure _%e102991%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%e102832%_ '()))))) - (if (macro-keyword-expected-exception? _%exn102829%_) - (macro-keyword-expected-exception-procedure _%exn102829%_) + (cons _%e102991%_ '()))))) + (if (macro-keyword-expected-exception? _%exn102988%_) + (macro-keyword-expected-exception-procedure _%exn102988%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%exn102829%_ '()))))))) + (cons _%exn102988%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn102825%_) + (lambda (_%exn102984%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102825%_)) - (let ((_%e102827%_ + (class-instance? RuntimeException::t _%exn102984%_)) + (let ((_%e102986%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102825%_ 'exception)))) - (macro-length-mismatch-exception? _%e102827%_)) - (macro-length-mismatch-exception? _%exn102825%_)))) + (unchecked-slot-ref _%exn102984%_ 'exception)))) + (macro-length-mismatch-exception? _%e102986%_)) + (macro-length-mismatch-exception? _%exn102984%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn102821%_) + (lambda (_%exn102980%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102821%_)) - (let ((_%e102823%_ + (class-instance? RuntimeException::t _%exn102980%_)) + (let ((_%e102982%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102821%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102823%_) - (macro-length-mismatch-exception-arg-id _%e102823%_) + (unchecked-slot-ref _%exn102980%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e102982%_) + (macro-length-mismatch-exception-arg-id _%e102982%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%e102823%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102821%_) - (macro-length-mismatch-exception-arg-id _%exn102821%_) + (cons _%e102982%_ '()))))) + (if (macro-length-mismatch-exception? _%exn102980%_) + (macro-length-mismatch-exception-arg-id _%exn102980%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%exn102821%_ '()))))))) + (cons _%exn102980%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn102817%_) + (lambda (_%exn102976%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102817%_)) - (let ((_%e102819%_ + (class-instance? RuntimeException::t _%exn102976%_)) + (let ((_%e102978%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102817%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102819%_) - (macro-length-mismatch-exception-arguments _%e102819%_) + (unchecked-slot-ref _%exn102976%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e102978%_) + (macro-length-mismatch-exception-arguments _%e102978%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%e102819%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102817%_) - (macro-length-mismatch-exception-arguments _%exn102817%_) + (cons _%e102978%_ '()))))) + (if (macro-length-mismatch-exception? _%exn102976%_) + (macro-length-mismatch-exception-arguments _%exn102976%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%exn102817%_ '()))))))) + (cons _%exn102976%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn102811%_) + (lambda (_%exn102970%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102811%_)) - (let ((_%e102814%_ + (class-instance? RuntimeException::t _%exn102970%_)) + (let ((_%e102973%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102811%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102814%_) - (macro-length-mismatch-exception-procedure _%e102814%_) + (unchecked-slot-ref _%exn102970%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e102973%_) + (macro-length-mismatch-exception-procedure _%e102973%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%e102814%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102811%_) - (macro-length-mismatch-exception-procedure _%exn102811%_) + (cons _%e102973%_ '()))))) + (if (macro-length-mismatch-exception? _%exn102970%_) + (macro-length-mismatch-exception-procedure _%exn102970%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%exn102811%_ '()))))))) + (cons _%exn102970%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn102807%_) + (lambda (_%exn102966%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102807%_)) - (let ((_%e102809%_ + (class-instance? RuntimeException::t _%exn102966%_)) + (let ((_%e102968%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102807%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e102809%_)) - (macro-mailbox-receive-timeout-exception? _%exn102807%_)))) + (unchecked-slot-ref _%exn102966%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e102968%_)) + (macro-mailbox-receive-timeout-exception? _%exn102966%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn102803%_) + (lambda (_%exn102962%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102803%_)) - (let ((_%e102805%_ + (class-instance? RuntimeException::t _%exn102962%_)) + (let ((_%e102964%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102803%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e102805%_) + (unchecked-slot-ref _%exn102962%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e102964%_) (macro-mailbox-receive-timeout-exception-arguments - _%e102805%_) + _%e102964%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e102805%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn102803%_) + (cons _%e102964%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn102962%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn102803%_) + _%exn102962%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn102803%_ '()))))))) + (cons _%exn102962%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn102797%_) + (lambda (_%exn102956%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102797%_)) - (let ((_%e102800%_ + (class-instance? RuntimeException::t _%exn102956%_)) + (let ((_%e102959%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102797%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e102800%_) + (unchecked-slot-ref _%exn102956%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e102959%_) (macro-mailbox-receive-timeout-exception-procedure - _%e102800%_) + _%e102959%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e102800%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn102797%_) + (cons _%e102959%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn102956%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn102797%_) + _%exn102956%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn102797%_ '()))))))) + (cons _%exn102956%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn102793%_) + (lambda (_%exn102952%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102793%_)) - (let ((_%e102795%_ + (class-instance? RuntimeException::t _%exn102952%_)) + (let ((_%e102954%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102793%_ 'exception)))) - (macro-module-not-found-exception? _%e102795%_)) - (macro-module-not-found-exception? _%exn102793%_)))) + (unchecked-slot-ref _%exn102952%_ 'exception)))) + (macro-module-not-found-exception? _%e102954%_)) + (macro-module-not-found-exception? _%exn102952%_)))) (define module-not-found-exception-arguments - (lambda (_%exn102789%_) + (lambda (_%exn102948%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102789%_)) - (let ((_%e102791%_ + (class-instance? RuntimeException::t _%exn102948%_)) + (let ((_%e102950%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102789%_ 'exception)))) - (if (macro-module-not-found-exception? _%e102791%_) - (macro-module-not-found-exception-arguments _%e102791%_) + (unchecked-slot-ref _%exn102948%_ 'exception)))) + (if (macro-module-not-found-exception? _%e102950%_) + (macro-module-not-found-exception-arguments _%e102950%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%e102791%_ '()))))) - (if (macro-module-not-found-exception? _%exn102789%_) - (macro-module-not-found-exception-arguments _%exn102789%_) + (cons _%e102950%_ '()))))) + (if (macro-module-not-found-exception? _%exn102948%_) + (macro-module-not-found-exception-arguments _%exn102948%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%exn102789%_ '()))))))) + (cons _%exn102948%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn102783%_) + (lambda (_%exn102942%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102783%_)) - (let ((_%e102786%_ + (class-instance? RuntimeException::t _%exn102942%_)) + (let ((_%e102945%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102783%_ 'exception)))) - (if (macro-module-not-found-exception? _%e102786%_) - (macro-module-not-found-exception-procedure _%e102786%_) + (unchecked-slot-ref _%exn102942%_ 'exception)))) + (if (macro-module-not-found-exception? _%e102945%_) + (macro-module-not-found-exception-procedure _%e102945%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%e102786%_ '()))))) - (if (macro-module-not-found-exception? _%exn102783%_) - (macro-module-not-found-exception-procedure _%exn102783%_) + (cons _%e102945%_ '()))))) + (if (macro-module-not-found-exception? _%exn102942%_) + (macro-module-not-found-exception-procedure _%exn102942%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%exn102783%_ '()))))))) + (cons _%exn102942%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn102777%_) + (lambda (_%exn102936%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102777%_)) - (let ((_%e102780%_ + (class-instance? RuntimeException::t _%exn102936%_)) + (let ((_%e102939%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102777%_ 'exception)))) - (macro-multiple-c-return-exception? _%e102780%_)) - (macro-multiple-c-return-exception? _%exn102777%_)))) + (unchecked-slot-ref _%exn102936%_ 'exception)))) + (macro-multiple-c-return-exception? _%e102939%_)) + (macro-multiple-c-return-exception? _%exn102936%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn102773%_) + (lambda (_%exn102932%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102773%_)) - (let ((_%e102775%_ + (class-instance? RuntimeException::t _%exn102932%_)) + (let ((_%e102934%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102773%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e102775%_)) - (macro-no-such-file-or-directory-exception? _%exn102773%_)))) + (unchecked-slot-ref _%exn102932%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e102934%_)) + (macro-no-such-file-or-directory-exception? _%exn102932%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn102769%_) + (lambda (_%exn102928%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102769%_)) - (let ((_%e102771%_ + (class-instance? RuntimeException::t _%exn102928%_)) + (let ((_%e102930%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102769%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e102771%_) + (unchecked-slot-ref _%exn102928%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e102930%_) (macro-no-such-file-or-directory-exception-arguments - _%e102771%_) + _%e102930%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e102771%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn102769%_) + (cons _%e102930%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn102928%_) (macro-no-such-file-or-directory-exception-arguments - _%exn102769%_) + _%exn102928%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn102769%_ '()))))))) + (cons _%exn102928%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn102763%_) + (lambda (_%exn102922%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102763%_)) - (let ((_%e102766%_ + (class-instance? RuntimeException::t _%exn102922%_)) + (let ((_%e102925%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102763%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e102766%_) + (unchecked-slot-ref _%exn102922%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e102925%_) (macro-no-such-file-or-directory-exception-procedure - _%e102766%_) + _%e102925%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e102766%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn102763%_) + (cons _%e102925%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn102922%_) (macro-no-such-file-or-directory-exception-procedure - _%exn102763%_) + _%exn102922%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn102763%_ '()))))))) + (cons _%exn102922%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn102759%_) + (lambda (_%exn102918%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102759%_)) - (let ((_%e102761%_ + (class-instance? RuntimeException::t _%exn102918%_)) + (let ((_%e102920%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102759%_ 'exception)))) - (macro-noncontinuable-exception? _%e102761%_)) - (macro-noncontinuable-exception? _%exn102759%_)))) + (unchecked-slot-ref _%exn102918%_ 'exception)))) + (macro-noncontinuable-exception? _%e102920%_)) + (macro-noncontinuable-exception? _%exn102918%_)))) (define noncontinuable-exception-reason - (lambda (_%exn102753%_) + (lambda (_%exn102912%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102753%_)) - (let ((_%e102756%_ + (class-instance? RuntimeException::t _%exn102912%_)) + (let ((_%e102915%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102753%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e102756%_) - (macro-noncontinuable-exception-reason _%e102756%_) + (unchecked-slot-ref _%exn102912%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e102915%_) + (macro-noncontinuable-exception-reason _%e102915%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%e102756%_ '()))))) - (if (macro-noncontinuable-exception? _%exn102753%_) - (macro-noncontinuable-exception-reason _%exn102753%_) + (cons _%e102915%_ '()))))) + (if (macro-noncontinuable-exception? _%exn102912%_) + (macro-noncontinuable-exception-reason _%exn102912%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn102753%_ '()))))))) + (cons _%exn102912%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn102749%_) + (lambda (_%exn102908%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102749%_)) - (let ((_%e102751%_ + (class-instance? RuntimeException::t _%exn102908%_)) + (let ((_%e102910%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102749%_ 'exception)))) + (unchecked-slot-ref _%exn102908%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e102751%_)) + _%e102910%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn102749%_)))) + _%exn102908%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn102745%_) + (lambda (_%exn102904%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102745%_)) - (let ((_%e102747%_ + (class-instance? RuntimeException::t _%exn102904%_)) + (let ((_%e102906%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102745%_ 'exception)))) + (unchecked-slot-ref _%exn102904%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e102747%_) + _%e102906%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e102747%_) + _%e102906%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e102747%_ '()))))) + (cons _%e102906%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn102745%_) + _%exn102904%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn102745%_) + _%exn102904%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn102745%_ '()))))))) + (cons _%exn102904%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn102739%_) + (lambda (_%exn102898%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102739%_)) - (let ((_%e102742%_ + (class-instance? RuntimeException::t _%exn102898%_)) + (let ((_%e102901%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102739%_ 'exception)))) + (unchecked-slot-ref _%exn102898%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e102742%_) + _%e102901%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e102742%_) + _%e102901%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e102742%_ '()))))) + (cons _%e102901%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn102739%_) + _%exn102898%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn102739%_) + _%exn102898%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn102739%_ '()))))))) + (cons _%exn102898%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn102735%_) + (lambda (_%exn102894%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102735%_)) - (let ((_%e102737%_ + (class-instance? RuntimeException::t _%exn102894%_)) + (let ((_%e102896%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102735%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e102737%_)) - (macro-nonprocedure-operator-exception? _%exn102735%_)))) + (unchecked-slot-ref _%exn102894%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e102896%_)) + (macro-nonprocedure-operator-exception? _%exn102894%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn102731%_) + (lambda (_%exn102890%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102731%_)) - (let ((_%e102733%_ + (class-instance? RuntimeException::t _%exn102890%_)) + (let ((_%e102892%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102731%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102733%_) - (macro-nonprocedure-operator-exception-arguments _%e102733%_) + (unchecked-slot-ref _%exn102890%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102892%_) + (macro-nonprocedure-operator-exception-arguments _%e102892%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%e102733%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102731%_) - (macro-nonprocedure-operator-exception-arguments _%exn102731%_) + (cons _%e102892%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102890%_) + (macro-nonprocedure-operator-exception-arguments _%exn102890%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%exn102731%_ '()))))))) + (cons _%exn102890%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn102727%_) + (lambda (_%exn102886%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102727%_)) - (let ((_%e102729%_ + (class-instance? RuntimeException::t _%exn102886%_)) + (let ((_%e102888%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102727%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102729%_) - (macro-nonprocedure-operator-exception-code _%e102729%_) + (unchecked-slot-ref _%exn102886%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102888%_) + (macro-nonprocedure-operator-exception-code _%e102888%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%e102729%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102727%_) - (macro-nonprocedure-operator-exception-code _%exn102727%_) + (cons _%e102888%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102886%_) + (macro-nonprocedure-operator-exception-code _%exn102886%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%exn102727%_ '()))))))) + (cons _%exn102886%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn102723%_) + (lambda (_%exn102882%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102723%_)) - (let ((_%e102725%_ + (class-instance? RuntimeException::t _%exn102882%_)) + (let ((_%e102884%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102723%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102725%_) - (macro-nonprocedure-operator-exception-operator _%e102725%_) + (unchecked-slot-ref _%exn102882%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102884%_) + (macro-nonprocedure-operator-exception-operator _%e102884%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%e102725%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102723%_) - (macro-nonprocedure-operator-exception-operator _%exn102723%_) + (cons _%e102884%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102882%_) + (macro-nonprocedure-operator-exception-operator _%exn102882%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%exn102723%_ '()))))))) + (cons _%exn102882%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn102717%_) + (lambda (_%exn102876%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102717%_)) - (let ((_%e102720%_ + (class-instance? RuntimeException::t _%exn102876%_)) + (let ((_%e102879%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102717%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102720%_) - (macro-nonprocedure-operator-exception-rte _%e102720%_) + (unchecked-slot-ref _%exn102876%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102879%_) + (macro-nonprocedure-operator-exception-rte _%e102879%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%e102720%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102717%_) - (macro-nonprocedure-operator-exception-rte _%exn102717%_) + (cons _%e102879%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102876%_) + (macro-nonprocedure-operator-exception-rte _%exn102876%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%exn102717%_ '()))))))) + (cons _%exn102876%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn102713%_) + (lambda (_%exn102872%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102713%_)) - (let ((_%e102715%_ + (class-instance? RuntimeException::t _%exn102872%_)) + (let ((_%e102874%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102713%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e102715%_)) - (macro-not-in-compilation-context-exception? _%exn102713%_)))) + (unchecked-slot-ref _%exn102872%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e102874%_)) + (macro-not-in-compilation-context-exception? _%exn102872%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn102709%_) + (lambda (_%exn102868%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102709%_)) - (let ((_%e102711%_ + (class-instance? RuntimeException::t _%exn102868%_)) + (let ((_%e102870%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102709%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102711%_) + (unchecked-slot-ref _%exn102868%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e102870%_) (macro-not-in-compilation-context-exception-arguments - _%e102711%_) + _%e102870%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e102711%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102709%_) + (cons _%e102870%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn102868%_) (macro-not-in-compilation-context-exception-arguments - _%exn102709%_) + _%exn102868%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn102709%_ '()))))))) + (cons _%exn102868%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn102703%_) + (lambda (_%exn102862%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102703%_)) - (let ((_%e102706%_ + (class-instance? RuntimeException::t _%exn102862%_)) + (let ((_%e102865%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102703%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102706%_) + (unchecked-slot-ref _%exn102862%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e102865%_) (macro-not-in-compilation-context-exception-procedure - _%e102706%_) + _%e102865%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e102706%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102703%_) + (cons _%e102865%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn102862%_) (macro-not-in-compilation-context-exception-procedure - _%exn102703%_) + _%exn102862%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn102703%_ '()))))))) + (cons _%exn102862%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn102699%_) + (lambda (_%exn102858%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102699%_)) - (let ((_%e102701%_ + (class-instance? RuntimeException::t _%exn102858%_)) + (let ((_%e102860%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102699%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e102701%_)) - (macro-number-of-arguments-limit-exception? _%exn102699%_)))) + (unchecked-slot-ref _%exn102858%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e102860%_)) + (macro-number-of-arguments-limit-exception? _%exn102858%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn102695%_) + (lambda (_%exn102854%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102695%_)) - (let ((_%e102697%_ + (class-instance? RuntimeException::t _%exn102854%_)) + (let ((_%e102856%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102695%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102697%_) + (unchecked-slot-ref _%exn102854%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e102856%_) (macro-number-of-arguments-limit-exception-arguments - _%e102697%_) + _%e102856%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e102697%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102695%_) + (cons _%e102856%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn102854%_) (macro-number-of-arguments-limit-exception-arguments - _%exn102695%_) + _%exn102854%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn102695%_ '()))))))) + (cons _%exn102854%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn102689%_) + (lambda (_%exn102848%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102689%_)) - (let ((_%e102692%_ + (class-instance? RuntimeException::t _%exn102848%_)) + (let ((_%e102851%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102689%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102692%_) + (unchecked-slot-ref _%exn102848%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e102851%_) (macro-number-of-arguments-limit-exception-procedure - _%e102692%_) + _%e102851%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e102692%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102689%_) + (cons _%e102851%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn102848%_) (macro-number-of-arguments-limit-exception-procedure - _%exn102689%_) + _%exn102848%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn102689%_ '()))))))) + (cons _%exn102848%_ '()))))))) (define os-exception? - (lambda (_%exn102685%_) + (lambda (_%exn102844%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102685%_)) - (let ((_%e102687%_ + (class-instance? RuntimeException::t _%exn102844%_)) + (let ((_%e102846%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102685%_ 'exception)))) - (macro-os-exception? _%e102687%_)) - (macro-os-exception? _%exn102685%_)))) + (unchecked-slot-ref _%exn102844%_ 'exception)))) + (macro-os-exception? _%e102846%_)) + (macro-os-exception? _%exn102844%_)))) (define os-exception-arguments - (lambda (_%exn102681%_) + (lambda (_%exn102840%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102681%_)) - (let ((_%e102683%_ + (class-instance? RuntimeException::t _%exn102840%_)) + (let ((_%e102842%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102681%_ 'exception)))) - (if (macro-os-exception? _%e102683%_) - (macro-os-exception-arguments _%e102683%_) + (unchecked-slot-ref _%exn102840%_ 'exception)))) + (if (macro-os-exception? _%e102842%_) + (macro-os-exception-arguments _%e102842%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%e102683%_ '()))))) - (if (macro-os-exception? _%exn102681%_) - (macro-os-exception-arguments _%exn102681%_) + (cons _%e102842%_ '()))))) + (if (macro-os-exception? _%exn102840%_) + (macro-os-exception-arguments _%exn102840%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn102681%_ '()))))))) + (cons _%exn102840%_ '()))))))) (define os-exception-code - (lambda (_%exn102677%_) + (lambda (_%exn102836%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102677%_)) - (let ((_%e102679%_ + (class-instance? RuntimeException::t _%exn102836%_)) + (let ((_%e102838%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102677%_ 'exception)))) - (if (macro-os-exception? _%e102679%_) - (macro-os-exception-code _%e102679%_) + (unchecked-slot-ref _%exn102836%_ 'exception)))) + (if (macro-os-exception? _%e102838%_) + (macro-os-exception-code _%e102838%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%e102679%_ '()))))) - (if (macro-os-exception? _%exn102677%_) - (macro-os-exception-code _%exn102677%_) + (cons 'os-exception-code (cons _%e102838%_ '()))))) + (if (macro-os-exception? _%exn102836%_) + (macro-os-exception-code _%exn102836%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%exn102677%_ '()))))))) + (cons 'os-exception-code (cons _%exn102836%_ '()))))))) (define os-exception-message - (lambda (_%exn102673%_) + (lambda (_%exn102832%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102673%_)) - (let ((_%e102675%_ + (class-instance? RuntimeException::t _%exn102832%_)) + (let ((_%e102834%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102673%_ 'exception)))) - (if (macro-os-exception? _%e102675%_) - (macro-os-exception-message _%e102675%_) + (unchecked-slot-ref _%exn102832%_ 'exception)))) + (if (macro-os-exception? _%e102834%_) + (macro-os-exception-message _%e102834%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-message (cons _%e102675%_ '()))))) - (if (macro-os-exception? _%exn102673%_) - (macro-os-exception-message _%exn102673%_) + (cons 'os-exception-message (cons _%e102834%_ '()))))) + (if (macro-os-exception? _%exn102832%_) + (macro-os-exception-message _%exn102832%_) (error '"not an instance" 'os-exception? (cons 'os-exception-message - (cons _%exn102673%_ '()))))))) + (cons _%exn102832%_ '()))))))) (define os-exception-procedure - (lambda (_%exn102667%_) + (lambda (_%exn102826%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102667%_)) - (let ((_%e102670%_ + (class-instance? RuntimeException::t _%exn102826%_)) + (let ((_%e102829%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102667%_ 'exception)))) - (if (macro-os-exception? _%e102670%_) - (macro-os-exception-procedure _%e102670%_) + (unchecked-slot-ref _%exn102826%_ 'exception)))) + (if (macro-os-exception? _%e102829%_) + (macro-os-exception-procedure _%e102829%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%e102670%_ '()))))) - (if (macro-os-exception? _%exn102667%_) - (macro-os-exception-procedure _%exn102667%_) + (cons _%e102829%_ '()))))) + (if (macro-os-exception? _%exn102826%_) + (macro-os-exception-procedure _%exn102826%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn102667%_ '()))))))) + (cons _%exn102826%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn102663%_) + (lambda (_%exn102822%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102663%_)) - (let ((_%e102665%_ + (class-instance? RuntimeException::t _%exn102822%_)) + (let ((_%e102824%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102663%_ 'exception)))) - (macro-permission-denied-exception? _%e102665%_)) - (macro-permission-denied-exception? _%exn102663%_)))) + (unchecked-slot-ref _%exn102822%_ 'exception)))) + (macro-permission-denied-exception? _%e102824%_)) + (macro-permission-denied-exception? _%exn102822%_)))) (define permission-denied-exception-arguments - (lambda (_%exn102659%_) + (lambda (_%exn102818%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102659%_)) - (let ((_%e102661%_ + (class-instance? RuntimeException::t _%exn102818%_)) + (let ((_%e102820%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102659%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102661%_) - (macro-permission-denied-exception-arguments _%e102661%_) + (unchecked-slot-ref _%exn102818%_ 'exception)))) + (if (macro-permission-denied-exception? _%e102820%_) + (macro-permission-denied-exception-arguments _%e102820%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%e102661%_ '()))))) - (if (macro-permission-denied-exception? _%exn102659%_) - (macro-permission-denied-exception-arguments _%exn102659%_) + (cons _%e102820%_ '()))))) + (if (macro-permission-denied-exception? _%exn102818%_) + (macro-permission-denied-exception-arguments _%exn102818%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%exn102659%_ '()))))))) + (cons _%exn102818%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn102653%_) + (lambda (_%exn102812%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102653%_)) - (let ((_%e102656%_ + (class-instance? RuntimeException::t _%exn102812%_)) + (let ((_%e102815%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102653%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102656%_) - (macro-permission-denied-exception-procedure _%e102656%_) + (unchecked-slot-ref _%exn102812%_ 'exception)))) + (if (macro-permission-denied-exception? _%e102815%_) + (macro-permission-denied-exception-procedure _%e102815%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%e102656%_ '()))))) - (if (macro-permission-denied-exception? _%exn102653%_) - (macro-permission-denied-exception-procedure _%exn102653%_) + (cons _%e102815%_ '()))))) + (if (macro-permission-denied-exception? _%exn102812%_) + (macro-permission-denied-exception-procedure _%exn102812%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%exn102653%_ '()))))))) + (cons _%exn102812%_ '()))))))) (define range-exception? - (lambda (_%exn102649%_) + (lambda (_%exn102808%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102649%_)) - (let ((_%e102651%_ + (class-instance? RuntimeException::t _%exn102808%_)) + (let ((_%e102810%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102649%_ 'exception)))) - (macro-range-exception? _%e102651%_)) - (macro-range-exception? _%exn102649%_)))) + (unchecked-slot-ref _%exn102808%_ 'exception)))) + (macro-range-exception? _%e102810%_)) + (macro-range-exception? _%exn102808%_)))) (define range-exception-arg-id - (lambda (_%exn102645%_) + (lambda (_%exn102804%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102645%_)) - (let ((_%e102647%_ + (class-instance? RuntimeException::t _%exn102804%_)) + (let ((_%e102806%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102645%_ 'exception)))) - (if (macro-range-exception? _%e102647%_) - (macro-range-exception-arg-id _%e102647%_) + (unchecked-slot-ref _%exn102804%_ 'exception)))) + (if (macro-range-exception? _%e102806%_) + (macro-range-exception-arg-id _%e102806%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%e102647%_ '()))))) - (if (macro-range-exception? _%exn102645%_) - (macro-range-exception-arg-id _%exn102645%_) + (cons _%e102806%_ '()))))) + (if (macro-range-exception? _%exn102804%_) + (macro-range-exception-arg-id _%exn102804%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%exn102645%_ '()))))))) + (cons _%exn102804%_ '()))))))) (define range-exception-arguments - (lambda (_%exn102641%_) + (lambda (_%exn102800%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102641%_)) - (let ((_%e102643%_ + (class-instance? RuntimeException::t _%exn102800%_)) + (let ((_%e102802%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102641%_ 'exception)))) - (if (macro-range-exception? _%e102643%_) - (macro-range-exception-arguments _%e102643%_) + (unchecked-slot-ref _%exn102800%_ 'exception)))) + (if (macro-range-exception? _%e102802%_) + (macro-range-exception-arguments _%e102802%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%e102643%_ '()))))) - (if (macro-range-exception? _%exn102641%_) - (macro-range-exception-arguments _%exn102641%_) + (cons _%e102802%_ '()))))) + (if (macro-range-exception? _%exn102800%_) + (macro-range-exception-arguments _%exn102800%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn102641%_ '()))))))) + (cons _%exn102800%_ '()))))))) (define range-exception-procedure - (lambda (_%exn102635%_) + (lambda (_%exn102794%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102635%_)) - (let ((_%e102638%_ + (class-instance? RuntimeException::t _%exn102794%_)) + (let ((_%e102797%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102635%_ 'exception)))) - (if (macro-range-exception? _%e102638%_) - (macro-range-exception-procedure _%e102638%_) + (unchecked-slot-ref _%exn102794%_ 'exception)))) + (if (macro-range-exception? _%e102797%_) + (macro-range-exception-procedure _%e102797%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%e102638%_ '()))))) - (if (macro-range-exception? _%exn102635%_) - (macro-range-exception-procedure _%exn102635%_) + (cons _%e102797%_ '()))))) + (if (macro-range-exception? _%exn102794%_) + (macro-range-exception-procedure _%exn102794%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn102635%_ '()))))))) + (cons _%exn102794%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn102631%_) + (lambda (_%exn102790%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102631%_)) - (let ((_%e102633%_ + (class-instance? RuntimeException::t _%exn102790%_)) + (let ((_%e102792%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102631%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e102633%_)) - (macro-rpc-remote-error-exception? _%exn102631%_)))) + (unchecked-slot-ref _%exn102790%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e102792%_)) + (macro-rpc-remote-error-exception? _%exn102790%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn102627%_) + (lambda (_%exn102786%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102627%_)) - (let ((_%e102629%_ + (class-instance? RuntimeException::t _%exn102786%_)) + (let ((_%e102788%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102627%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102629%_) - (macro-rpc-remote-error-exception-arguments _%e102629%_) + (unchecked-slot-ref _%exn102786%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102788%_) + (macro-rpc-remote-error-exception-arguments _%e102788%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%e102629%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102627%_) - (macro-rpc-remote-error-exception-arguments _%exn102627%_) + (cons _%e102788%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102786%_) + (macro-rpc-remote-error-exception-arguments _%exn102786%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%exn102627%_ '()))))))) + (cons _%exn102786%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn102623%_) + (lambda (_%exn102782%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102623%_)) - (let ((_%e102625%_ + (class-instance? RuntimeException::t _%exn102782%_)) + (let ((_%e102784%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102623%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102625%_) - (macro-rpc-remote-error-exception-message _%e102625%_) + (unchecked-slot-ref _%exn102782%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102784%_) + (macro-rpc-remote-error-exception-message _%e102784%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%e102625%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102623%_) - (macro-rpc-remote-error-exception-message _%exn102623%_) + (cons _%e102784%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102782%_) + (macro-rpc-remote-error-exception-message _%exn102782%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%exn102623%_ '()))))))) + (cons _%exn102782%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn102617%_) + (lambda (_%exn102776%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102617%_)) - (let ((_%e102620%_ + (class-instance? RuntimeException::t _%exn102776%_)) + (let ((_%e102779%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102617%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102620%_) - (macro-rpc-remote-error-exception-procedure _%e102620%_) + (unchecked-slot-ref _%exn102776%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102779%_) + (macro-rpc-remote-error-exception-procedure _%e102779%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%e102620%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102617%_) - (macro-rpc-remote-error-exception-procedure _%exn102617%_) + (cons _%e102779%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102776%_) + (macro-rpc-remote-error-exception-procedure _%exn102776%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%exn102617%_ '()))))))) + (cons _%exn102776%_ '()))))))) (define scheduler-exception? - (lambda (_%exn102613%_) + (lambda (_%exn102772%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102613%_)) - (let ((_%e102615%_ + (class-instance? RuntimeException::t _%exn102772%_)) + (let ((_%e102774%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102613%_ 'exception)))) - (macro-scheduler-exception? _%e102615%_)) - (macro-scheduler-exception? _%exn102613%_)))) + (unchecked-slot-ref _%exn102772%_ 'exception)))) + (macro-scheduler-exception? _%e102774%_)) + (macro-scheduler-exception? _%exn102772%_)))) (define scheduler-exception-reason - (lambda (_%exn102607%_) + (lambda (_%exn102766%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102607%_)) - (let ((_%e102610%_ + (class-instance? RuntimeException::t _%exn102766%_)) + (let ((_%e102769%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102607%_ 'exception)))) - (if (macro-scheduler-exception? _%e102610%_) - (macro-scheduler-exception-reason _%e102610%_) + (unchecked-slot-ref _%exn102766%_ 'exception)))) + (if (macro-scheduler-exception? _%e102769%_) + (macro-scheduler-exception-reason _%e102769%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%e102610%_ '()))))) - (if (macro-scheduler-exception? _%exn102607%_) - (macro-scheduler-exception-reason _%exn102607%_) + (cons _%e102769%_ '()))))) + (if (macro-scheduler-exception? _%exn102766%_) + (macro-scheduler-exception-reason _%exn102766%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn102607%_ '()))))))) + (cons _%exn102766%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn102603%_) + (lambda (_%exn102762%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102603%_)) - (let ((_%e102605%_ + (class-instance? RuntimeException::t _%exn102762%_)) + (let ((_%e102764%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102603%_ 'exception)))) - (macro-sfun-conversion-exception? _%e102605%_)) - (macro-sfun-conversion-exception? _%exn102603%_)))) + (unchecked-slot-ref _%exn102762%_ 'exception)))) + (macro-sfun-conversion-exception? _%e102764%_)) + (macro-sfun-conversion-exception? _%exn102762%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn102599%_) + (lambda (_%exn102758%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102599%_)) - (let ((_%e102601%_ + (class-instance? RuntimeException::t _%exn102758%_)) + (let ((_%e102760%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102599%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102601%_) - (macro-sfun-conversion-exception-arguments _%e102601%_) + (unchecked-slot-ref _%exn102758%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102760%_) + (macro-sfun-conversion-exception-arguments _%e102760%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%e102601%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102599%_) - (macro-sfun-conversion-exception-arguments _%exn102599%_) + (cons _%e102760%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102758%_) + (macro-sfun-conversion-exception-arguments _%exn102758%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%exn102599%_ '()))))))) + (cons _%exn102758%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn102595%_) + (lambda (_%exn102754%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102595%_)) - (let ((_%e102597%_ + (class-instance? RuntimeException::t _%exn102754%_)) + (let ((_%e102756%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102595%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102597%_) - (macro-sfun-conversion-exception-code _%e102597%_) + (unchecked-slot-ref _%exn102754%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102756%_) + (macro-sfun-conversion-exception-code _%e102756%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%e102597%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102595%_) - (macro-sfun-conversion-exception-code _%exn102595%_) + (cons _%e102756%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102754%_) + (macro-sfun-conversion-exception-code _%exn102754%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%exn102595%_ '()))))))) + (cons _%exn102754%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn102591%_) + (lambda (_%exn102750%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102591%_)) - (let ((_%e102593%_ + (class-instance? RuntimeException::t _%exn102750%_)) + (let ((_%e102752%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102591%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102593%_) - (macro-sfun-conversion-exception-message _%e102593%_) + (unchecked-slot-ref _%exn102750%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102752%_) + (macro-sfun-conversion-exception-message _%e102752%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%e102593%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102591%_) - (macro-sfun-conversion-exception-message _%exn102591%_) + (cons _%e102752%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102750%_) + (macro-sfun-conversion-exception-message _%exn102750%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%exn102591%_ '()))))))) + (cons _%exn102750%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn102585%_) + (lambda (_%exn102744%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102585%_)) - (let ((_%e102588%_ + (class-instance? RuntimeException::t _%exn102744%_)) + (let ((_%e102747%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102585%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102588%_) - (macro-sfun-conversion-exception-procedure _%e102588%_) + (unchecked-slot-ref _%exn102744%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102747%_) + (macro-sfun-conversion-exception-procedure _%e102747%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%e102588%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102585%_) - (macro-sfun-conversion-exception-procedure _%exn102585%_) + (cons _%e102747%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102744%_) + (macro-sfun-conversion-exception-procedure _%exn102744%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%exn102585%_ '()))))))) + (cons _%exn102744%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn102579%_) + (lambda (_%exn102738%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102579%_)) - (let ((_%e102582%_ + (class-instance? RuntimeException::t _%exn102738%_)) + (let ((_%e102741%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102579%_ 'exception)))) - (macro-stack-overflow-exception? _%e102582%_)) - (macro-stack-overflow-exception? _%exn102579%_)))) + (unchecked-slot-ref _%exn102738%_ 'exception)))) + (macro-stack-overflow-exception? _%e102741%_)) + (macro-stack-overflow-exception? _%exn102738%_)))) (define started-thread-exception? - (lambda (_%exn102575%_) + (lambda (_%exn102734%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102575%_)) - (let ((_%e102577%_ + (class-instance? RuntimeException::t _%exn102734%_)) + (let ((_%e102736%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102575%_ 'exception)))) - (macro-started-thread-exception? _%e102577%_)) - (macro-started-thread-exception? _%exn102575%_)))) + (unchecked-slot-ref _%exn102734%_ 'exception)))) + (macro-started-thread-exception? _%e102736%_)) + (macro-started-thread-exception? _%exn102734%_)))) (define started-thread-exception-arguments - (lambda (_%exn102571%_) + (lambda (_%exn102730%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102571%_)) - (let ((_%e102573%_ + (class-instance? RuntimeException::t _%exn102730%_)) + (let ((_%e102732%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102571%_ 'exception)))) - (if (macro-started-thread-exception? _%e102573%_) - (macro-started-thread-exception-arguments _%e102573%_) + (unchecked-slot-ref _%exn102730%_ 'exception)))) + (if (macro-started-thread-exception? _%e102732%_) + (macro-started-thread-exception-arguments _%e102732%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%e102573%_ '()))))) - (if (macro-started-thread-exception? _%exn102571%_) - (macro-started-thread-exception-arguments _%exn102571%_) + (cons _%e102732%_ '()))))) + (if (macro-started-thread-exception? _%exn102730%_) + (macro-started-thread-exception-arguments _%exn102730%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%exn102571%_ '()))))))) + (cons _%exn102730%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn102565%_) + (lambda (_%exn102724%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102565%_)) - (let ((_%e102568%_ + (class-instance? RuntimeException::t _%exn102724%_)) + (let ((_%e102727%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102565%_ 'exception)))) - (if (macro-started-thread-exception? _%e102568%_) - (macro-started-thread-exception-procedure _%e102568%_) + (unchecked-slot-ref _%exn102724%_ 'exception)))) + (if (macro-started-thread-exception? _%e102727%_) + (macro-started-thread-exception-procedure _%e102727%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%e102568%_ '()))))) - (if (macro-started-thread-exception? _%exn102565%_) - (macro-started-thread-exception-procedure _%exn102565%_) + (cons _%e102727%_ '()))))) + (if (macro-started-thread-exception? _%exn102724%_) + (macro-started-thread-exception-procedure _%exn102724%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%exn102565%_ '()))))))) + (cons _%exn102724%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn102561%_) + (lambda (_%exn102720%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102561%_)) - (let ((_%e102563%_ + (class-instance? RuntimeException::t _%exn102720%_)) + (let ((_%e102722%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102561%_ 'exception)))) - (macro-terminated-thread-exception? _%e102563%_)) - (macro-terminated-thread-exception? _%exn102561%_)))) + (unchecked-slot-ref _%exn102720%_ 'exception)))) + (macro-terminated-thread-exception? _%e102722%_)) + (macro-terminated-thread-exception? _%exn102720%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn102557%_) + (lambda (_%exn102716%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102557%_)) - (let ((_%e102559%_ + (class-instance? RuntimeException::t _%exn102716%_)) + (let ((_%e102718%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102557%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102559%_) - (macro-terminated-thread-exception-arguments _%e102559%_) + (unchecked-slot-ref _%exn102716%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e102718%_) + (macro-terminated-thread-exception-arguments _%e102718%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%e102559%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102557%_) - (macro-terminated-thread-exception-arguments _%exn102557%_) + (cons _%e102718%_ '()))))) + (if (macro-terminated-thread-exception? _%exn102716%_) + (macro-terminated-thread-exception-arguments _%exn102716%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%exn102557%_ '()))))))) + (cons _%exn102716%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn102551%_) + (lambda (_%exn102710%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102551%_)) - (let ((_%e102554%_ + (class-instance? RuntimeException::t _%exn102710%_)) + (let ((_%e102713%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102551%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102554%_) - (macro-terminated-thread-exception-procedure _%e102554%_) + (unchecked-slot-ref _%exn102710%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e102713%_) + (macro-terminated-thread-exception-procedure _%e102713%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%e102554%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102551%_) - (macro-terminated-thread-exception-procedure _%exn102551%_) + (cons _%e102713%_ '()))))) + (if (macro-terminated-thread-exception? _%exn102710%_) + (macro-terminated-thread-exception-procedure _%exn102710%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%exn102551%_ '()))))))) + (cons _%exn102710%_ '()))))))) (define type-exception? - (lambda (_%exn102547%_) + (lambda (_%exn102706%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102547%_)) - (let ((_%e102549%_ + (class-instance? RuntimeException::t _%exn102706%_)) + (let ((_%e102708%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102547%_ 'exception)))) - (macro-type-exception? _%e102549%_)) - (macro-type-exception? _%exn102547%_)))) + (unchecked-slot-ref _%exn102706%_ 'exception)))) + (macro-type-exception? _%e102708%_)) + (macro-type-exception? _%exn102706%_)))) (define type-exception-arg-id - (lambda (_%exn102543%_) + (lambda (_%exn102702%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102543%_)) - (let ((_%e102545%_ + (class-instance? RuntimeException::t _%exn102702%_)) + (let ((_%e102704%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102543%_ 'exception)))) - (if (macro-type-exception? _%e102545%_) - (macro-type-exception-arg-id _%e102545%_) + (unchecked-slot-ref _%exn102702%_ 'exception)))) + (if (macro-type-exception? _%e102704%_) + (macro-type-exception-arg-id _%e102704%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%e102545%_ '()))))) - (if (macro-type-exception? _%exn102543%_) - (macro-type-exception-arg-id _%exn102543%_) + (cons _%e102704%_ '()))))) + (if (macro-type-exception? _%exn102702%_) + (macro-type-exception-arg-id _%exn102702%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%exn102543%_ '()))))))) + (cons _%exn102702%_ '()))))))) (define type-exception-arguments - (lambda (_%exn102539%_) + (lambda (_%exn102698%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102539%_)) - (let ((_%e102541%_ + (class-instance? RuntimeException::t _%exn102698%_)) + (let ((_%e102700%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102539%_ 'exception)))) - (if (macro-type-exception? _%e102541%_) - (macro-type-exception-arguments _%e102541%_) + (unchecked-slot-ref _%exn102698%_ 'exception)))) + (if (macro-type-exception? _%e102700%_) + (macro-type-exception-arguments _%e102700%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%e102541%_ '()))))) - (if (macro-type-exception? _%exn102539%_) - (macro-type-exception-arguments _%exn102539%_) + (cons _%e102700%_ '()))))) + (if (macro-type-exception? _%exn102698%_) + (macro-type-exception-arguments _%exn102698%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn102539%_ '()))))))) + (cons _%exn102698%_ '()))))))) (define type-exception-procedure - (lambda (_%exn102535%_) + (lambda (_%exn102694%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102535%_)) - (let ((_%e102537%_ + (class-instance? RuntimeException::t _%exn102694%_)) + (let ((_%e102696%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102535%_ 'exception)))) - (if (macro-type-exception? _%e102537%_) - (macro-type-exception-procedure _%e102537%_) + (unchecked-slot-ref _%exn102694%_ 'exception)))) + (if (macro-type-exception? _%e102696%_) + (macro-type-exception-procedure _%e102696%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%e102537%_ '()))))) - (if (macro-type-exception? _%exn102535%_) - (macro-type-exception-procedure _%exn102535%_) + (cons _%e102696%_ '()))))) + (if (macro-type-exception? _%exn102694%_) + (macro-type-exception-procedure _%exn102694%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn102535%_ '()))))))) + (cons _%exn102694%_ '()))))))) (define type-exception-type-id - (lambda (_%exn102529%_) + (lambda (_%exn102688%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102529%_)) - (let ((_%e102532%_ + (class-instance? RuntimeException::t _%exn102688%_)) + (let ((_%e102691%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102529%_ 'exception)))) - (if (macro-type-exception? _%e102532%_) - (macro-type-exception-type-id _%e102532%_) + (unchecked-slot-ref _%exn102688%_ 'exception)))) + (if (macro-type-exception? _%e102691%_) + (macro-type-exception-type-id _%e102691%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%e102532%_ '()))))) - (if (macro-type-exception? _%exn102529%_) - (macro-type-exception-type-id _%exn102529%_) + (cons _%e102691%_ '()))))) + (if (macro-type-exception? _%exn102688%_) + (macro-type-exception-type-id _%exn102688%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%exn102529%_ '()))))))) + (cons _%exn102688%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn102525%_) + (lambda (_%exn102684%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102525%_)) - (let ((_%e102527%_ + (class-instance? RuntimeException::t _%exn102684%_)) + (let ((_%e102686%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102525%_ 'exception)))) - (macro-unbound-global-exception? _%e102527%_)) - (macro-unbound-global-exception? _%exn102525%_)))) + (unchecked-slot-ref _%exn102684%_ 'exception)))) + (macro-unbound-global-exception? _%e102686%_)) + (macro-unbound-global-exception? _%exn102684%_)))) (define unbound-global-exception-code - (lambda (_%exn102521%_) + (lambda (_%exn102680%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102521%_)) - (let ((_%e102523%_ + (class-instance? RuntimeException::t _%exn102680%_)) + (let ((_%e102682%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102521%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102523%_) - (macro-unbound-global-exception-code _%e102523%_) + (unchecked-slot-ref _%exn102680%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102682%_) + (macro-unbound-global-exception-code _%e102682%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%e102523%_ '()))))) - (if (macro-unbound-global-exception? _%exn102521%_) - (macro-unbound-global-exception-code _%exn102521%_) + (cons _%e102682%_ '()))))) + (if (macro-unbound-global-exception? _%exn102680%_) + (macro-unbound-global-exception-code _%exn102680%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%exn102521%_ '()))))))) + (cons _%exn102680%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn102517%_) + (lambda (_%exn102676%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102517%_)) - (let ((_%e102519%_ + (class-instance? RuntimeException::t _%exn102676%_)) + (let ((_%e102678%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102517%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102519%_) - (macro-unbound-global-exception-rte _%e102519%_) + (unchecked-slot-ref _%exn102676%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102678%_) + (macro-unbound-global-exception-rte _%e102678%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%e102519%_ '()))))) - (if (macro-unbound-global-exception? _%exn102517%_) - (macro-unbound-global-exception-rte _%exn102517%_) + (cons _%e102678%_ '()))))) + (if (macro-unbound-global-exception? _%exn102676%_) + (macro-unbound-global-exception-rte _%exn102676%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%exn102517%_ '()))))))) + (cons _%exn102676%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn102511%_) + (lambda (_%exn102670%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102511%_)) - (let ((_%e102514%_ + (class-instance? RuntimeException::t _%exn102670%_)) + (let ((_%e102673%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102511%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102514%_) - (macro-unbound-global-exception-variable _%e102514%_) + (unchecked-slot-ref _%exn102670%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102673%_) + (macro-unbound-global-exception-variable _%e102673%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%e102514%_ '()))))) - (if (macro-unbound-global-exception? _%exn102511%_) - (macro-unbound-global-exception-variable _%exn102511%_) + (cons _%e102673%_ '()))))) + (if (macro-unbound-global-exception? _%exn102670%_) + (macro-unbound-global-exception-variable _%exn102670%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%exn102511%_ '()))))))) + (cons _%exn102670%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn102507%_) + (lambda (_%exn102666%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102507%_)) - (let ((_%e102509%_ + (class-instance? RuntimeException::t _%exn102666%_)) + (let ((_%e102668%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102507%_ 'exception)))) - (macro-unbound-key-exception? _%e102509%_)) - (macro-unbound-key-exception? _%exn102507%_)))) + (unchecked-slot-ref _%exn102666%_ 'exception)))) + (macro-unbound-key-exception? _%e102668%_)) + (macro-unbound-key-exception? _%exn102666%_)))) (define unbound-key-exception-arguments - (lambda (_%exn102503%_) + (lambda (_%exn102662%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102503%_)) - (let ((_%e102505%_ + (class-instance? RuntimeException::t _%exn102662%_)) + (let ((_%e102664%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102503%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102505%_) - (macro-unbound-key-exception-arguments _%e102505%_) + (unchecked-slot-ref _%exn102662%_ 'exception)))) + (if (macro-unbound-key-exception? _%e102664%_) + (macro-unbound-key-exception-arguments _%e102664%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%e102505%_ '()))))) - (if (macro-unbound-key-exception? _%exn102503%_) - (macro-unbound-key-exception-arguments _%exn102503%_) + (cons _%e102664%_ '()))))) + (if (macro-unbound-key-exception? _%exn102662%_) + (macro-unbound-key-exception-arguments _%exn102662%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%exn102503%_ '()))))))) + (cons _%exn102662%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn102497%_) + (lambda (_%exn102656%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102497%_)) - (let ((_%e102500%_ + (class-instance? RuntimeException::t _%exn102656%_)) + (let ((_%e102659%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102497%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102500%_) - (macro-unbound-key-exception-procedure _%e102500%_) + (unchecked-slot-ref _%exn102656%_ 'exception)))) + (if (macro-unbound-key-exception? _%e102659%_) + (macro-unbound-key-exception-procedure _%e102659%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%e102500%_ '()))))) - (if (macro-unbound-key-exception? _%exn102497%_) - (macro-unbound-key-exception-procedure _%exn102497%_) + (cons _%e102659%_ '()))))) + (if (macro-unbound-key-exception? _%exn102656%_) + (macro-unbound-key-exception-procedure _%exn102656%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%exn102497%_ '()))))))) + (cons _%exn102656%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn102493%_) + (lambda (_%exn102652%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102493%_)) - (let ((_%e102495%_ + (class-instance? RuntimeException::t _%exn102652%_)) + (let ((_%e102654%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102493%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e102495%_)) - (macro-unbound-os-environment-variable-exception? _%exn102493%_)))) + (unchecked-slot-ref _%exn102652%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e102654%_)) + (macro-unbound-os-environment-variable-exception? _%exn102652%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn102489%_) + (lambda (_%exn102648%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102489%_)) - (let ((_%e102491%_ + (class-instance? RuntimeException::t _%exn102648%_)) + (let ((_%e102650%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102489%_ 'exception)))) + (unchecked-slot-ref _%exn102648%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102491%_) + _%e102650%_) (macro-unbound-os-environment-variable-exception-arguments - _%e102491%_) + _%e102650%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e102491%_ '()))))) + (cons _%e102650%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102489%_) + _%exn102648%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn102489%_) + _%exn102648%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn102489%_ '()))))))) + (cons _%exn102648%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn102483%_) + (lambda (_%exn102642%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102483%_)) - (let ((_%e102486%_ + (class-instance? RuntimeException::t _%exn102642%_)) + (let ((_%e102645%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102483%_ 'exception)))) + (unchecked-slot-ref _%exn102642%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102486%_) + _%e102645%_) (macro-unbound-os-environment-variable-exception-procedure - _%e102486%_) + _%e102645%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e102486%_ '()))))) + (cons _%e102645%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102483%_) + _%exn102642%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn102483%_) + _%exn102642%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn102483%_ '()))))))) + (cons _%exn102642%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn102479%_) + (lambda (_%exn102638%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102479%_)) - (let ((_%e102481%_ + (class-instance? RuntimeException::t _%exn102638%_)) + (let ((_%e102640%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102479%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e102481%_)) - (macro-unbound-serial-number-exception? _%exn102479%_)))) + (unchecked-slot-ref _%exn102638%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e102640%_)) + (macro-unbound-serial-number-exception? _%exn102638%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn102475%_) + (lambda (_%exn102634%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102475%_)) - (let ((_%e102477%_ + (class-instance? RuntimeException::t _%exn102634%_)) + (let ((_%e102636%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102475%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102477%_) - (macro-unbound-serial-number-exception-arguments _%e102477%_) + (unchecked-slot-ref _%exn102634%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e102636%_) + (macro-unbound-serial-number-exception-arguments _%e102636%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%e102477%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102475%_) - (macro-unbound-serial-number-exception-arguments _%exn102475%_) + (cons _%e102636%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn102634%_) + (macro-unbound-serial-number-exception-arguments _%exn102634%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%exn102475%_ '()))))))) + (cons _%exn102634%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn102469%_) + (lambda (_%exn102628%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102469%_)) - (let ((_%e102472%_ + (class-instance? RuntimeException::t _%exn102628%_)) + (let ((_%e102631%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102469%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102472%_) - (macro-unbound-serial-number-exception-procedure _%e102472%_) + (unchecked-slot-ref _%exn102628%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e102631%_) + (macro-unbound-serial-number-exception-procedure _%e102631%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%e102472%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102469%_) - (macro-unbound-serial-number-exception-procedure _%exn102469%_) + (cons _%e102631%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn102628%_) + (macro-unbound-serial-number-exception-procedure _%exn102628%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%exn102469%_ '()))))))) + (cons _%exn102628%_ '()))))))) (define uncaught-exception? - (lambda (_%exn102465%_) + (lambda (_%exn102624%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102465%_)) - (let ((_%e102467%_ + (class-instance? RuntimeException::t _%exn102624%_)) + (let ((_%e102626%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102465%_ 'exception)))) - (macro-uncaught-exception? _%e102467%_)) - (macro-uncaught-exception? _%exn102465%_)))) + (unchecked-slot-ref _%exn102624%_ 'exception)))) + (macro-uncaught-exception? _%e102626%_)) + (macro-uncaught-exception? _%exn102624%_)))) (define uncaught-exception-arguments - (lambda (_%exn102461%_) + (lambda (_%exn102620%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102461%_)) - (let ((_%e102463%_ + (class-instance? RuntimeException::t _%exn102620%_)) + (let ((_%e102622%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102461%_ 'exception)))) - (if (macro-uncaught-exception? _%e102463%_) - (macro-uncaught-exception-arguments _%e102463%_) + (unchecked-slot-ref _%exn102620%_ 'exception)))) + (if (macro-uncaught-exception? _%e102622%_) + (macro-uncaught-exception-arguments _%e102622%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%e102463%_ '()))))) - (if (macro-uncaught-exception? _%exn102461%_) - (macro-uncaught-exception-arguments _%exn102461%_) + (cons _%e102622%_ '()))))) + (if (macro-uncaught-exception? _%exn102620%_) + (macro-uncaught-exception-arguments _%exn102620%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn102461%_ '()))))))) + (cons _%exn102620%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn102457%_) + (lambda (_%exn102616%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102457%_)) - (let ((_%e102459%_ + (class-instance? RuntimeException::t _%exn102616%_)) + (let ((_%e102618%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102457%_ 'exception)))) - (if (macro-uncaught-exception? _%e102459%_) - (macro-uncaught-exception-procedure _%e102459%_) + (unchecked-slot-ref _%exn102616%_ 'exception)))) + (if (macro-uncaught-exception? _%e102618%_) + (macro-uncaught-exception-procedure _%e102618%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%e102459%_ '()))))) - (if (macro-uncaught-exception? _%exn102457%_) - (macro-uncaught-exception-procedure _%exn102457%_) + (cons _%e102618%_ '()))))) + (if (macro-uncaught-exception? _%exn102616%_) + (macro-uncaught-exception-procedure _%exn102616%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn102457%_ '()))))))) + (cons _%exn102616%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn102451%_) + (lambda (_%exn102610%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102451%_)) - (let ((_%e102454%_ + (class-instance? RuntimeException::t _%exn102610%_)) + (let ((_%e102613%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102451%_ 'exception)))) - (if (macro-uncaught-exception? _%e102454%_) - (macro-uncaught-exception-reason _%e102454%_) + (unchecked-slot-ref _%exn102610%_ 'exception)))) + (if (macro-uncaught-exception? _%e102613%_) + (macro-uncaught-exception-reason _%e102613%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%e102454%_ '()))))) - (if (macro-uncaught-exception? _%exn102451%_) - (macro-uncaught-exception-reason _%exn102451%_) + (cons _%e102613%_ '()))))) + (if (macro-uncaught-exception? _%exn102610%_) + (macro-uncaught-exception-reason _%exn102610%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn102451%_ '()))))))) + (cons _%exn102610%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn102447%_) + (lambda (_%exn102606%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102447%_)) - (let ((_%e102449%_ + (class-instance? RuntimeException::t _%exn102606%_)) + (let ((_%e102608%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102447%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e102449%_)) - (macro-uninitialized-thread-exception? _%exn102447%_)))) + (unchecked-slot-ref _%exn102606%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e102608%_)) + (macro-uninitialized-thread-exception? _%exn102606%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn102443%_) + (lambda (_%exn102602%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102443%_)) - (let ((_%e102445%_ + (class-instance? RuntimeException::t _%exn102602%_)) + (let ((_%e102604%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102443%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102445%_) - (macro-uninitialized-thread-exception-arguments _%e102445%_) + (unchecked-slot-ref _%exn102602%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e102604%_) + (macro-uninitialized-thread-exception-arguments _%e102604%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%e102445%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102443%_) - (macro-uninitialized-thread-exception-arguments _%exn102443%_) + (cons _%e102604%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn102602%_) + (macro-uninitialized-thread-exception-arguments _%exn102602%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%exn102443%_ '()))))))) + (cons _%exn102602%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn102437%_) + (lambda (_%exn102596%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102437%_)) - (let ((_%e102440%_ + (class-instance? RuntimeException::t _%exn102596%_)) + (let ((_%e102599%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102437%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102440%_) - (macro-uninitialized-thread-exception-procedure _%e102440%_) + (unchecked-slot-ref _%exn102596%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e102599%_) + (macro-uninitialized-thread-exception-procedure _%e102599%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%e102440%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102437%_) - (macro-uninitialized-thread-exception-procedure _%exn102437%_) + (cons _%e102599%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn102596%_) + (macro-uninitialized-thread-exception-procedure _%exn102596%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%exn102437%_ '()))))))) + (cons _%exn102596%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn102433%_) + (lambda (_%exn102592%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102433%_)) - (let ((_%e102435%_ + (class-instance? RuntimeException::t _%exn102592%_)) + (let ((_%e102594%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102433%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e102435%_)) - (macro-unknown-keyword-argument-exception? _%exn102433%_)))) + (unchecked-slot-ref _%exn102592%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e102594%_)) + (macro-unknown-keyword-argument-exception? _%exn102592%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn102429%_) + (lambda (_%exn102588%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102429%_)) - (let ((_%e102431%_ + (class-instance? RuntimeException::t _%exn102588%_)) + (let ((_%e102590%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102429%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102431%_) + (unchecked-slot-ref _%exn102588%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e102590%_) (macro-unknown-keyword-argument-exception-arguments - _%e102431%_) + _%e102590%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e102431%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102429%_) + (cons _%e102590%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn102588%_) (macro-unknown-keyword-argument-exception-arguments - _%exn102429%_) + _%exn102588%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn102429%_ '()))))))) + (cons _%exn102588%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn102423%_) + (lambda (_%exn102582%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102423%_)) - (let ((_%e102426%_ + (class-instance? RuntimeException::t _%exn102582%_)) + (let ((_%e102585%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102423%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102426%_) + (unchecked-slot-ref _%exn102582%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e102585%_) (macro-unknown-keyword-argument-exception-procedure - _%e102426%_) + _%e102585%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e102426%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102423%_) + (cons _%e102585%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn102582%_) (macro-unknown-keyword-argument-exception-procedure - _%exn102423%_) + _%exn102582%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn102423%_ '()))))))) + (cons _%exn102582%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn102419%_) + (lambda (_%exn102578%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102419%_)) - (let ((_%e102421%_ + (class-instance? RuntimeException::t _%exn102578%_)) + (let ((_%e102580%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102419%_ 'exception)))) - (macro-unterminated-process-exception? _%e102421%_)) - (macro-unterminated-process-exception? _%exn102419%_)))) + (unchecked-slot-ref _%exn102578%_ 'exception)))) + (macro-unterminated-process-exception? _%e102580%_)) + (macro-unterminated-process-exception? _%exn102578%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn102415%_) + (lambda (_%exn102574%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102415%_)) - (let ((_%e102417%_ + (class-instance? RuntimeException::t _%exn102574%_)) + (let ((_%e102576%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102415%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102417%_) - (macro-unterminated-process-exception-arguments _%e102417%_) + (unchecked-slot-ref _%exn102574%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e102576%_) + (macro-unterminated-process-exception-arguments _%e102576%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%e102417%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102415%_) - (macro-unterminated-process-exception-arguments _%exn102415%_) + (cons _%e102576%_ '()))))) + (if (macro-unterminated-process-exception? _%exn102574%_) + (macro-unterminated-process-exception-arguments _%exn102574%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%exn102415%_ '()))))))) + (cons _%exn102574%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn102409%_) + (lambda (_%exn102568%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102409%_)) - (let ((_%e102412%_ + (class-instance? RuntimeException::t _%exn102568%_)) + (let ((_%e102571%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102409%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102412%_) - (macro-unterminated-process-exception-procedure _%e102412%_) + (unchecked-slot-ref _%exn102568%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e102571%_) + (macro-unterminated-process-exception-procedure _%e102571%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%e102412%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102409%_) - (macro-unterminated-process-exception-procedure _%exn102409%_) + (cons _%e102571%_ '()))))) + (if (macro-unterminated-process-exception? _%exn102568%_) + (macro-unterminated-process-exception-procedure _%exn102568%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%exn102409%_ '()))))))) + (cons _%exn102568%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn102405%_) + (lambda (_%exn102564%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102405%_)) - (let ((_%e102407%_ + (class-instance? RuntimeException::t _%exn102564%_)) + (let ((_%e102566%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102405%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e102407%_)) - (macro-wrong-number-of-arguments-exception? _%exn102405%_)))) + (unchecked-slot-ref _%exn102564%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e102566%_)) + (macro-wrong-number-of-arguments-exception? _%exn102564%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn102401%_) + (lambda (_%exn102560%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102401%_)) - (let ((_%e102403%_ + (class-instance? RuntimeException::t _%exn102560%_)) + (let ((_%e102562%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102401%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102403%_) + (unchecked-slot-ref _%exn102560%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e102562%_) (macro-wrong-number-of-arguments-exception-arguments - _%e102403%_) + _%e102562%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e102403%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102401%_) + (cons _%e102562%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn102560%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn102401%_) + _%exn102560%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn102401%_ '()))))))) + (cons _%exn102560%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn102395%_) + (lambda (_%exn102554%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102395%_)) - (let ((_%e102398%_ + (class-instance? RuntimeException::t _%exn102554%_)) + (let ((_%e102557%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102395%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102398%_) + (unchecked-slot-ref _%exn102554%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e102557%_) (macro-wrong-number-of-arguments-exception-procedure - _%e102398%_) + _%e102557%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e102398%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102395%_) + (cons _%e102557%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn102554%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn102395%_) + _%exn102554%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn102395%_ '()))))))) + (cons _%exn102554%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn102391%_) + (lambda (_%exn102550%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102391%_)) - (let ((_%e102393%_ + (class-instance? RuntimeException::t _%exn102550%_)) + (let ((_%e102552%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102391%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e102393%_)) - (macro-wrong-number-of-values-exception? _%exn102391%_)))) + (unchecked-slot-ref _%exn102550%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e102552%_)) + (macro-wrong-number-of-values-exception? _%exn102550%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn102387%_) + (lambda (_%exn102546%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102387%_)) - (let ((_%e102389%_ + (class-instance? RuntimeException::t _%exn102546%_)) + (let ((_%e102548%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102387%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102389%_) - (macro-wrong-number-of-values-exception-code _%e102389%_) + (unchecked-slot-ref _%exn102546%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102548%_) + (macro-wrong-number-of-values-exception-code _%e102548%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%e102389%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102387%_) - (macro-wrong-number-of-values-exception-code _%exn102387%_) + (cons _%e102548%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102546%_) + (macro-wrong-number-of-values-exception-code _%exn102546%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%exn102387%_ '()))))))) + (cons _%exn102546%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn102383%_) + (lambda (_%exn102542%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102383%_)) - (let ((_%e102385%_ + (class-instance? RuntimeException::t _%exn102542%_)) + (let ((_%e102544%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102383%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102385%_) - (macro-wrong-number-of-values-exception-rte _%e102385%_) + (unchecked-slot-ref _%exn102542%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102544%_) + (macro-wrong-number-of-values-exception-rte _%e102544%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%e102385%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102383%_) - (macro-wrong-number-of-values-exception-rte _%exn102383%_) + (cons _%e102544%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102542%_) + (macro-wrong-number-of-values-exception-rte _%exn102542%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%exn102383%_ '()))))))) + (cons _%exn102542%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn102377%_) + (lambda (_%exn102536%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102377%_)) - (let ((_%e102380%_ + (class-instance? RuntimeException::t _%exn102536%_)) + (let ((_%e102539%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102377%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102380%_) - (macro-wrong-number-of-values-exception-vals _%e102380%_) + (unchecked-slot-ref _%exn102536%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102539%_) + (macro-wrong-number-of-values-exception-vals _%e102539%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%e102380%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102377%_) - (macro-wrong-number-of-values-exception-vals _%exn102377%_) + (cons _%e102539%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102536%_) + (macro-wrong-number-of-values-exception-vals _%exn102536%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%exn102377%_ '()))))))) + (cons _%exn102536%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn102371%_) + (lambda (_%exn102530%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102371%_)) - (let ((_%e102374%_ + (class-instance? RuntimeException::t _%exn102530%_)) + (let ((_%e102533%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102371%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e102374%_)) - (macro-wrong-processor-c-return-exception? _%exn102371%_)))))) + (unchecked-slot-ref _%exn102530%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e102533%_)) + (macro-wrong-processor-c-return-exception? _%exn102530%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index 0f6c3dcc4..617a7a83a 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]#_g103894_| + (define |[1]#_g104053_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g103896_| + (define |[1]#_g104055_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g103898_| + (define |[1]#_g104057_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g103900_| + (define |[1]#_g104059_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g103902_| + (define |[1]#_g104061_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g103904_| + (define |[1]#_g104063_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g103906_| + (define |[1]#_g104065_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103908_| + (define |[1]#_g104067_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103910_| + (define |[1]#_g104069_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103912_| + (define |[1]#_g104071_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103914_| + (define |[1]#_g104073_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g103915_| + (define |[1]#_g104074_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g103917_| + (define |[1]#_g104076_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g103919_| + (define |[1]#_g104078_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g103921_| + (define |[1]#_g104080_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g103923_| + (define |[1]#_g104082_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g103924_| + (define |[1]#_g104083_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103925_| + (define |[1]#_g104084_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g103926_| + (define |[1]#_g104085_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103928_| + (define |[1]#_g104087_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103929_| + (define |[1]#_g104088_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103930_| + (define |[1]#_g104089_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103931_| + (define |[1]#_g104090_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103933_| + (define |[1]#_g104092_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g103934_| + (define |[1]#_g104093_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103935_| + (define |[1]#_g104094_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g103936_| + (define |[1]#_g104095_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103938_| + (define |[1]#_g104097_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103939_| + (define |[1]#_g104098_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103940_| + (define |[1]#_g104099_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103941_| + (define |[1]#_g104100_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103943_| + (define |[1]#_g104102_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g103945_| + (define |[1]#_g104104_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g103947_| + (define |[1]#_g104106_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g103949_| + (define |[1]#_g104108_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g103951_| + (define |[1]#_g104110_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g103952_| + (define |[1]#_g104111_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103953_| + (define |[1]#_g104112_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g103954_| + (define |[1]#_g104113_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103956_| + (define |[1]#_g104115_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103957_| + (define |[1]#_g104116_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103958_| + (define |[1]#_g104117_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103959_| + (define |[1]#_g104118_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103961_| + (define |[1]#_g104120_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g103962_| + (define |[1]#_g104121_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103963_| + (define |[1]#_g104122_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g103964_| + (define |[1]#_g104123_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103966_| + (define |[1]#_g104125_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103967_| + (define |[1]#_g104126_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103968_| + (define |[1]#_g104127_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103969_| + (define |[1]#_g104128_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103972_| + (define |[1]#_g104131_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g103974_| + (define |[1]#_g104133_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g103976_| + (define |[1]#_g104135_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g103978_| + (define |[1]#_g104137_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g103979_| + (define |[1]#_g104138_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103981_| + (define |[1]#_g104140_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103982_| + (define |[1]#_g104141_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103984_| + (define |[1]#_g104143_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g103985_| + (define |[1]#_g104144_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103987_| + (define |[1]#_g104146_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103988_| + (define |[1]#_g104147_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj103857 + (let ((__obj104016 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103857 + __obj104016 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj104016 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104016 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104016 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104016 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '11 '#f '#f)) - (let ((__tmp103893 |[1]#_g103894_|)) + (##unchecked-structure-set! __obj104016 '#f '11 '#f '#f)) + (let ((__tmp104052 |[1]#_g104053_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103857 __tmp103893 '12 '#f '#f)) - (let ((__tmp103895 |[1]#_g103896_|)) + (##unchecked-structure-set! __obj104016 __tmp104052 '12 '#f '#f)) + (let ((__tmp104054 |[1]#_g104055_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103857 __tmp103895 '13 '#f '#f)) - (let ((__tmp103897 |[1]#_g103898_|)) + (##unchecked-structure-set! __obj104016 __tmp104054 '13 '#f '#f)) + (let ((__tmp104056 |[1]#_g104057_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103857 __tmp103897 '14 '#f '#f)) + (##unchecked-structure-set! __obj104016 __tmp104056 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104016 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '20 '#f '#f)) - __obj103857)) + (##unchecked-structure-set! __obj104016 '() '20 '#f '#f)) + __obj104016)) (define |[:0:]#StackTrace| - (let ((__obj103858 + (let ((__obj104017 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103858 + __obj104017 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj104017 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj104017 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj104017 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj104017 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104017 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104017 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104017 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '11 '#f '#f)) - (let ((__tmp103899 |[1]#_g103900_|)) + (##unchecked-structure-set! __obj104017 '#f '11 '#f '#f)) + (let ((__tmp104058 |[1]#_g104059_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103899 '12 '#f '#f)) - (let ((__tmp103901 |[1]#_g103902_|)) + (##unchecked-structure-set! __obj104017 __tmp104058 '12 '#f '#f)) + (let ((__tmp104060 |[1]#_g104061_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103901 '13 '#f '#f)) - (let ((__tmp103903 |[1]#_g103904_|)) + (##unchecked-structure-set! __obj104017 __tmp104060 '13 '#f '#f)) + (let ((__tmp104062 |[1]#_g104063_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103903 '14 '#f '#f)) - (let ((__tmp103905 (cons (cons 'continuation |[1]#_g103906_|) '()))) + (##unchecked-structure-set! __obj104017 __tmp104062 '14 '#f '#f)) + (let ((__tmp104064 (cons (cons 'continuation |[1]#_g104065_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103905 '15 '#f '#f)) - (let ((__tmp103907 (cons (cons 'continuation |[1]#_g103908_|) '()))) + (##unchecked-structure-set! __obj104017 __tmp104064 '15 '#f '#f)) + (let ((__tmp104066 (cons (cons 'continuation |[1]#_g104067_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103907 '16 '#f '#f)) - (let ((__tmp103909 (cons (cons 'continuation |[1]#_g103910_|) '()))) + (##unchecked-structure-set! __obj104017 __tmp104066 '16 '#f '#f)) + (let ((__tmp104068 (cons (cons 'continuation |[1]#_g104069_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103909 '17 '#f '#f)) - (let ((__tmp103911 (cons (cons 'continuation |[1]#_g103912_|) '()))) + (##unchecked-structure-set! __obj104017 __tmp104068 '17 '#f '#f)) + (let ((__tmp104070 (cons (cons 'continuation |[1]#_g104071_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103911 '18 '#f '#f)) + (##unchecked-structure-set! __obj104017 __tmp104070 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104017 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104017 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '20 '#f '#f)) - __obj103858)) + (##unchecked-structure-set! __obj104017 '() '20 '#f '#f)) + __obj104017)) (define |[:0:]#Error| - (let ((__obj103859 + (let ((__obj104018 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103859 + __obj104018 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj104018 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103859 + __obj104018 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103859 + __obj104018 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp103913 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '())))) + (let ((__tmp104072 (cons |[1]#_g104073_| (cons |[1]#_g104074_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103913 '3 '#f '#f)) + (##unchecked-structure-set! __obj104018 __tmp104072 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104018 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104018 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104018 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 ':init! '11 '#f '#f)) - (let ((__tmp103916 |[1]#_g103917_|)) + (##unchecked-structure-set! __obj104018 ':init! '11 '#f '#f)) + (let ((__tmp104075 |[1]#_g104076_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103916 '12 '#f '#f)) - (let ((__tmp103918 |[1]#_g103919_|)) + (##unchecked-structure-set! __obj104018 __tmp104075 '12 '#f '#f)) + (let ((__tmp104077 |[1]#_g104078_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103918 '13 '#f '#f)) - (let ((__tmp103920 |[1]#_g103921_|)) + (##unchecked-structure-set! __obj104018 __tmp104077 '13 '#f '#f)) + (let ((__tmp104079 |[1]#_g104080_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103920 '14 '#f '#f)) - (let ((__tmp103922 - (cons (cons 'message |[1]#_g103923_|) - (cons (cons 'irritants |[1]#_g103924_|) - (cons (cons 'where |[1]#_g103925_|) - (cons (cons 'continuation |[1]#_g103926_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103922 '15 '#f '#f)) - (let ((__tmp103927 - (cons (cons 'message |[1]#_g103928_|) - (cons (cons 'irritants |[1]#_g103929_|) - (cons (cons 'where |[1]#_g103930_|) - (cons (cons 'continuation |[1]#_g103931_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103927 '16 '#f '#f)) - (let ((__tmp103932 - (cons (cons 'message |[1]#_g103933_|) - (cons (cons 'irritants |[1]#_g103934_|) - (cons (cons 'where |[1]#_g103935_|) - (cons (cons 'continuation |[1]#_g103936_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103932 '17 '#f '#f)) - (let ((__tmp103937 - (cons (cons 'message |[1]#_g103938_|) - (cons (cons 'irritants |[1]#_g103939_|) - (cons (cons 'where |[1]#_g103940_|) - (cons (cons 'continuation |[1]#_g103941_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103937 '18 '#f '#f)) + (##unchecked-structure-set! __obj104018 __tmp104096 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104018 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104018 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '() '20 '#f '#f)) - __obj103859)) + (##unchecked-structure-set! __obj104018 '() '20 '#f '#f)) + __obj104018)) (define |[:0:]#ContractViolation| - (let ((__obj103860 + (let ((__obj104019 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103860 + __obj104019 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103860 + __obj104019 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj104019 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103860 + __obj104019 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp103942 (cons |[1]#_g103943_| '()))) + (let ((__tmp104101 (cons |[1]#_g104102_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103942 '3 '#f '#f)) + (##unchecked-structure-set! __obj104019 __tmp104101 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104019 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104019 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104019 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '11 '#f '#f)) - (let ((__tmp103944 |[1]#_g103945_|)) + (##unchecked-structure-set! __obj104019 '#f '11 '#f '#f)) + (let ((__tmp104103 |[1]#_g104104_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103944 '12 '#f '#f)) - (let ((__tmp103946 |[1]#_g103947_|)) + (##unchecked-structure-set! __obj104019 __tmp104103 '12 '#f '#f)) + (let ((__tmp104105 |[1]#_g104106_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103946 '13 '#f '#f)) - (let ((__tmp103948 |[1]#_g103949_|)) + (##unchecked-structure-set! __obj104019 __tmp104105 '13 '#f '#f)) + (let ((__tmp104107 |[1]#_g104108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103948 '14 '#f '#f)) - (let ((__tmp103950 - (cons (cons 'message |[1]#_g103951_|) - (cons (cons 'irritants |[1]#_g103952_|) - (cons (cons 'where |[1]#_g103953_|) - (cons (cons 'continuation |[1]#_g103954_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103950 '15 '#f '#f)) - (let ((__tmp103955 - (cons (cons 'message |[1]#_g103956_|) - (cons (cons 'irritants |[1]#_g103957_|) - (cons (cons 'where |[1]#_g103958_|) - (cons (cons 'continuation |[1]#_g103959_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103955 '16 '#f '#f)) - (let ((__tmp103960 - (cons (cons 'message |[1]#_g103961_|) - (cons (cons 'irritants |[1]#_g103962_|) - (cons (cons 'where |[1]#_g103963_|) - (cons (cons 'continuation |[1]#_g103964_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103960 '17 '#f '#f)) - (let ((__tmp103965 - (cons (cons 'message |[1]#_g103966_|) - (cons (cons 'irritants |[1]#_g103967_|) - (cons (cons 'where |[1]#_g103968_|) - (cons (cons 'continuation |[1]#_g103969_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103965 '18 '#f '#f)) + (##unchecked-structure-set! __obj104019 __tmp104124 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104019 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104019 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '20 '#f '#f)) - __obj103860)) + (##unchecked-structure-set! __obj104019 '() '20 '#f '#f)) + __obj104019)) (define |[:0:]#RuntimeException| - (let ((__obj103861 + (let ((__obj104020 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103861 + __obj104020 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103861 + __obj104020 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj104020 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103861 + __obj104020 '(continuation exception) '6 '#f '#f)) - (let ((__tmp103970 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '())))) + (let ((__tmp104129 (cons |[1]#_g104073_| (cons |[1]#_g104074_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103970 '3 '#f '#f)) + (##unchecked-structure-set! __obj104020 __tmp104129 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104020 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104020 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104020 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '11 '#f '#f)) - (let ((__tmp103971 |[1]#_g103972_|)) + (##unchecked-structure-set! __obj104020 '#f '11 '#f '#f)) + (let ((__tmp104130 |[1]#_g104131_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103971 '12 '#f '#f)) - (let ((__tmp103973 |[1]#_g103974_|)) + (##unchecked-structure-set! __obj104020 __tmp104130 '12 '#f '#f)) + (let ((__tmp104132 |[1]#_g104133_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103973 '13 '#f '#f)) - (let ((__tmp103975 |[1]#_g103976_|)) + (##unchecked-structure-set! __obj104020 __tmp104132 '13 '#f '#f)) + (let ((__tmp104134 |[1]#_g104135_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103975 '14 '#f '#f)) - (let ((__tmp103977 - (cons (cons 'exception |[1]#_g103978_|) - (cons (cons 'continuation |[1]#_g103979_|) '())))) + (##unchecked-structure-set! __obj104020 __tmp104134 '14 '#f '#f)) + (let ((__tmp104136 + (cons (cons 'exception |[1]#_g104137_|) + (cons (cons 'continuation |[1]#_g104138_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103977 '15 '#f '#f)) - (let ((__tmp103980 - (cons (cons 'exception |[1]#_g103981_|) - (cons (cons 'continuation |[1]#_g103982_|) '())))) + (##unchecked-structure-set! __obj104020 __tmp104136 '15 '#f '#f)) + (let ((__tmp104139 + (cons (cons 'exception |[1]#_g104140_|) + (cons (cons 'continuation |[1]#_g104141_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103980 '16 '#f '#f)) - (let ((__tmp103983 - (cons (cons 'exception |[1]#_g103984_|) - (cons (cons 'continuation |[1]#_g103985_|) '())))) + (##unchecked-structure-set! __obj104020 __tmp104139 '16 '#f '#f)) + (let ((__tmp104142 + (cons (cons 'exception |[1]#_g104143_|) + (cons (cons 'continuation |[1]#_g104144_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103983 '17 '#f '#f)) - (let ((__tmp103986 - (cons (cons 'exception |[1]#_g103987_|) - (cons (cons 'continuation |[1]#_g103988_|) '())))) + (##unchecked-structure-set! __obj104020 __tmp104142 '17 '#f '#f)) + (let ((__tmp104145 + (cons (cons 'exception |[1]#_g104146_|) + (cons (cons 'continuation |[1]#_g104147_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103986 '18 '#f '#f)) + (##unchecked-structure-set! __obj104020 __tmp104145 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104020 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104020 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '() '20 '#f '#f)) - __obj103861)) + (##unchecked-structure-set! __obj104020 '() '20 '#f '#f)) + __obj104020)) (define |[:0:]#defruntime-exception| - (lambda (_%stx101999%_) - (let* ((_%g102002102029%_ - (lambda (_%g102003102025%_) + (lambda (_%stx102158%_) + (let* ((_%g102161102188%_ + (lambda (_%g102162102184%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102003102025%_))) - (_%g102001102265%_ - (lambda (_%g102003102033%_) - (if (gx#stx-pair? _%g102003102033%_) - (let ((_%e102006102036%_ - (gx#syntax-e _%g102003102033%_))) - (let ((_%hd102007102040%_ + _%g102162102184%_))) + (_%g102160102424%_ + (lambda (_%g102162102192%_) + (if (gx#stx-pair? _%g102162102192%_) + (let ((_%e102165102195%_ + (gx#syntax-e _%g102162102192%_))) + (let ((_%hd102166102199%_ (let () (declare (not safe)) - (##car _%e102006102036%_))) - (_%tl102008102043%_ + (##car _%e102165102195%_))) + (_%tl102167102202%_ (let () (declare (not safe)) - (##cdr _%e102006102036%_)))) - (if (gx#stx-pair? _%tl102008102043%_) - (let ((_%e102009102046%_ - (gx#syntax-e _%tl102008102043%_))) - (let ((_%hd102010102050%_ + (##cdr _%e102165102195%_)))) + (if (gx#stx-pair? _%tl102167102202%_) + (let ((_%e102168102205%_ + (gx#syntax-e _%tl102167102202%_))) + (let ((_%hd102169102209%_ (let () (declare (not safe)) - (##car _%e102009102046%_))) - (_%tl102011102053%_ + (##car _%e102168102205%_))) + (_%tl102170102212%_ (let () (declare (not safe)) - (##cdr _%e102009102046%_)))) - (if (gx#stx-pair? _%hd102010102050%_) - (let ((_%e102012102056%_ - (gx#syntax-e _%hd102010102050%_))) - (let ((_%hd102013102060%_ + (##cdr _%e102168102205%_)))) + (if (gx#stx-pair? _%hd102169102209%_) + (let ((_%e102171102215%_ + (gx#syntax-e _%hd102169102209%_))) + (let ((_%hd102172102219%_ (let () (declare (not safe)) - (##car _%e102012102056%_))) - (_%tl102014102063%_ + (##car _%e102171102215%_))) + (_%tl102173102222%_ (let () (declare (not safe)) - (##cdr _%e102012102056%_)))) + (##cdr _%e102171102215%_)))) (if (gx#stx-pair/null? - _%tl102014102063%_) - (let ((_g103989_ + _%tl102173102222%_) + (let ((_g104148_ (gx#syntax-split-splice - _%tl102014102063%_ + _%tl102173102222%_ '0))) (begin - (let ((_g103990_ + (let ((_g104149_ (let () (declare (not safe)) (if (##values? - _g103989_) + _g104148_) (##vector-length - _g103989_) + _g104148_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g103990_ 2))) - (error "Context expects 2 values" _g103990_))) + (##fx= _g104149_ 2))) + (error "Context expects 2 values" _g104149_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target102015102066%_ + (let ((_%target102174102225%_ (let () (declare (not safe)) (##vector-ref - _g103989_ + _g104148_ 0))) - (_%tl102017102069%_ + (_%tl102176102228%_ (let () (declare (not safe)) (##vector-ref - _g103989_ + _g104148_ 1)))) (if (gx#stx-null? - _%tl102017102069%_) - (letrec ((_%loop102018102072%_ + _%tl102176102228%_) + (letrec ((_%loop102177102231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd102016102076%_ _%getf102022102079%_) - (if (gx#stx-pair? _%hd102016102076%_) - (let ((_%e102019102082%_ - (gx#syntax-e _%hd102016102076%_))) - (let ((_%lp-hd102020102086%_ + (lambda (_%hd102175102235%_ _%getf102181102238%_) + (if (gx#stx-pair? _%hd102175102235%_) + (let ((_%e102178102241%_ + (gx#syntax-e _%hd102175102235%_))) + (let ((_%lp-hd102179102245%_ (let () (declare (not safe)) - (##car _%e102019102082%_))) - (_%lp-tl102021102089%_ + (##car _%e102178102241%_))) + (_%lp-tl102180102248%_ (let () (declare (not safe)) - (##cdr _%e102019102082%_)))) - (_%loop102018102072%_ - _%lp-tl102021102089%_ - (cons _%lp-hd102020102086%_ - _%getf102022102079%_)))) - (let ((_%getf102023102092%_ - (reverse _%getf102022102079%_))) - (if (gx#stx-null? _%tl102011102053%_) - ((lambda (_%L102096%_ _%L102098%_) - (let* ((_%g102119102143%_ - (lambda (_%g102120102139%_) + (##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%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102120102139%_))) - (_%g102118102250%_ - (lambda (_%g102120102147%_) + _%g102279102298%_))) + (_%g102277102409%_ + (lambda (_%g102279102306%_) (if (gx#stx-pair? - _%g102120102147%_) - (let ((_%e102123102150%_ + _%g102279102306%_) + (let ((_%e102282102309%_ (gx#syntax-e - _%g102120102147%_))) - (let ((_%hd102124102154%_ + _%g102279102306%_))) + (let ((_%hd102283102313%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102123102150%_))) - (_%tl102125102157%_ + (##car _%e102282102309%_))) + (_%tl102284102316%_ (let () (declare (not safe)) - (##cdr _%e102123102150%_)))) - (if (gx#stx-pair? _%tl102125102157%_) - (let ((_%e102126102160%_ - (gx#syntax-e _%tl102125102157%_))) - (let ((_%hd102127102164%_ + (##cdr _%e102282102309%_)))) + (if (gx#stx-pair? _%tl102284102316%_) + (let ((_%e102285102319%_ + (gx#syntax-e _%tl102284102316%_))) + (let ((_%hd102286102323%_ (let () (declare (not safe)) - (##car _%e102126102160%_))) - (_%tl102128102167%_ + (##car _%e102285102319%_))) + (_%tl102287102326%_ (let () (declare (not safe)) - (##cdr _%e102126102160%_)))) - (if (gx#stx-pair/null? _%hd102127102164%_) - (let ((_g103991_ + (##cdr _%e102285102319%_)))) + (if (gx#stx-pair/null? _%hd102286102323%_) + (let ((_g104150_ (gx#syntax-split-splice - _%hd102127102164%_ + _%hd102286102323%_ '0))) (begin - (let ((_g103992_ + (let ((_g104151_ (let () (declare (not safe)) - (if (##values? _g103991_) - (##vector-length _g103991_) + (if (##values? _g104150_) + (##vector-length _g104150_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103992_ 2))) + (##fx= _g104151_ 2))) (error "Context expects 2 values" - _g103992_))) - (let ((_%target102129102170%_ + _g104151_))) + (let ((_%target102288102329%_ (let () (declare (not safe)) - (##vector-ref _g103991_ 0))) - (_%tl102131102173%_ + (##vector-ref _g104150_ 0))) + (_%tl102290102332%_ (let () (declare (not safe)) - (##vector-ref _g103991_ 1)))) - (if (gx#stx-null? _%tl102131102173%_) - (letrec ((_%loop102132102176%_ - (lambda (_%hd102130102180%_ - _%macro-getf102136102183%_) + (##vector-ref _g104150_ 1)))) + (if (gx#stx-null? _%tl102290102332%_) + (letrec ((_%loop102291102335%_ + (lambda (_%hd102289102339%_ + _%macro-getf102295102342%_) (if (gx#stx-pair? - _%hd102130102180%_) - (let ((_%e102133102186%_ + _%hd102289102339%_) + (let ((_%e102292102345%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd102130102180%_))) - (let ((_%lp-hd102134102190%_ + _%hd102289102339%_))) + (let ((_%lp-hd102293102349%_ (let () (declare (not safe)) - (##car _%e102133102186%_))) - (_%lp-tl102135102193%_ + (##car _%e102292102345%_))) + (_%lp-tl102294102352%_ (let () (declare (not safe)) - (##cdr _%e102133102186%_)))) - (_%loop102132102176%_ - _%lp-tl102135102193%_ - (cons _%lp-hd102134102190%_ - _%macro-getf102136102183%_)))) - (let ((_%macro-getf102137102196%_ - (reverse _%macro-getf102136102183%_))) - (if (gx#stx-null? _%tl102128102167%_) - ((lambda (_%L102200%_ _%L102202%_) + (##cdr _%e102292102345%_)))) + (_%loop102291102335%_ + _%lp-tl102294102352%_ + (cons _%lp-hd102293102349%_ + _%macro-getf102295102342%_)))) + (let ((_%macro-getf102296102355%_ + (reverse _%macro-getf102295102342%_))) + (if (gx#stx-null? _%tl102287102326%_) + ((lambda (_%L102359%_ _%L102361%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L102202%_ - (let ((__tmp103993 - (lambda (_%g102227102230%_ + (cons _%L102361%_ + (let ((__tmp104152 + (lambda (_%g102386102389%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102228102233%_) - (cons _%g102227102230%_ _%g102228102233%_)))) + _%g102387102392%_) + (cons _%g102386102389%_ _%g102387102392%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp103993 + __tmp104152 '() - _%L102200%_)))) + _%L102359%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L102098%_ + (cons (cons _%L102257%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102202%_ + (cons (cons _%L102361%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1193,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102202%_ + (cons (cons _%L102361%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1203,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L102096%_ - _%L102200%_ - _%L102096%_ - _%L102200%_ - _%L102096%_) - (let ((__tmp103994 - (lambda (_%g102221102236%_ - _%g102222102239%_ - _%g102223102241%_ - _%g102224102243%_ - _%g102225102245%_ - _%g102226102247%_) + _%L102255%_ + _%L102359%_ + _%L102255%_ + _%L102359%_ + _%L102255%_) + (let ((__tmp104153 + (lambda (_%g102380102395%_ + _%g102381102398%_ + _%g102382102400%_ + _%g102383102402%_ + _%g102384102404%_ + _%g102385102406%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g102221102236%_ + (cons (cons _%g102380102395%_ (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 _%L102202%_ + (cons (cons _%L102361%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g102222102239%_ + (cons (cons _%g102381102398%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1263,12 +1263,12 @@ 'error) (cons '"not an instance" (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L102098%_ '())) + (cons _%L102257%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102221102236%_ + (cons _%g102380102395%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1278,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L102202%_ + (cons (cons _%L102361%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g102222102239%_ + (cons (cons _%g102381102398%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1294,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L102098%_ '())) + (cons _%L102257%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102221102236%_ '())) + (cons _%g102380102395%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1306,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g102226102247%_)))) + _%g102385102406%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp103994 + __tmp104153 '() - _%L102096%_ - _%L102200%_ - _%L102096%_ - _%L102200%_ - _%L102096%_))))))) - _%macro-getf102137102196%_ - _%hd102124102154%_) - (_%g102119102143%_ _%g102120102147%_))))))) + _%L102255%_ + _%L102359%_ + _%L102255%_ + _%L102359%_ + _%L102255%_))))))) + _%macro-getf102296102355%_ + _%hd102283102313%_) + (_%g102278102302%_ _%g102279102306%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102132102176%_ - _%target102129102170%_ + (_%loop102291102335%_ + _%target102288102329%_ '())) - (_%g102119102143%_ - _%g102120102147%_))))) - (_%g102119102143%_ _%g102120102147%_)))) - (_%g102119102143%_ _%g102120102147%_)))) - (_%g102119102143%_ _%g102120102147%_))))) + (_%g102278102302%_ + _%g102279102306%_))))) + (_%g102278102302%_ _%g102279102306%_)))) + (_%g102278102302%_ _%g102279102306%_)))) + (_%g102278102302%_ _%g102279102306%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102118102250%_ + (_%g102277102409%_ (list (gx#stx-identifier - _%L102098%_ + _%L102257%_ '"macro-" - _%L102098%_) - (map (lambda (_%f102254%_) + _%L102257%_) + (map (lambda (_%f102413%_) (gx#stx-identifier - _%f102254%_ + _%f102413%_ '"macro-" - _%f102254%_)) - (let ((__tmp103995 - (lambda (_%g102256102259%_ + _%f102413%_)) + (let ((__tmp104154 + (lambda (_%g102415102418%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102257102262%_) - (cons _%g102256102259%_ _%g102257102262%_)))) + _%g102416102421%_) + (cons _%g102415102418%_ _%g102416102421%_)))) (declare (not safe)) - (__foldr1 __tmp103995 '() _%L102096%_))))))) + (__foldr1 __tmp104154 '() _%L102255%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf102023102092%_ - _%hd102013102060%_) - (_%g102002102029%_ - _%g102003102033%_))))))) - (_%loop102018102072%_ _%target102015102066%_ '())) - (_%g102002102029%_ _%g102003102033%_))))) + _%getf102182102251%_ + _%hd102172102219%_) + (_%g102161102188%_ + _%g102162102192%_))))))) + (_%loop102177102231%_ _%target102174102225%_ '())) + (_%g102161102188%_ _%g102162102192%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102002102029%_ - _%g102003102033%_)))) - (_%g102002102029%_ _%g102003102033%_)))) - (_%g102002102029%_ _%g102003102033%_)))) - (_%g102002102029%_ _%g102003102033%_))))) - (_%g102001102265%_ _%stx101999%_)))) + (_%g102161102188%_ + _%g102162102192%_)))) + (_%g102161102188%_ _%g102162102192%_)))) + (_%g102161102188%_ _%g102162102192%_)))) + (_%g102161102188%_ _%g102162102192%_))))) + (_%g102160102424%_ _%stx102158%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx102271%_) - (let* ((_%g102275102295%_ - (lambda (_%g102276102291%_) + (lambda (_%$stx102430%_) + (let* ((_%g102434102454%_ + (lambda (_%g102435102450%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102276102291%_))) - (_%g102274102366%_ - (lambda (_%g102276102299%_) - (if (gx#stx-pair? _%g102276102299%_) - (let ((_%e102278102302%_ - (gx#syntax-e _%g102276102299%_))) - (let ((_%hd102279102306%_ + _%g102435102450%_))) + (_%g102433102525%_ + (lambda (_%g102435102458%_) + (if (gx#stx-pair? _%g102435102458%_) + (let ((_%e102437102461%_ + (gx#syntax-e _%g102435102458%_))) + (let ((_%hd102438102465%_ (let () (declare (not safe)) - (##car _%e102278102302%_))) - (_%tl102280102309%_ + (##car _%e102437102461%_))) + (_%tl102439102468%_ (let () (declare (not safe)) - (##cdr _%e102278102302%_)))) - (if (gx#stx-pair/null? _%tl102280102309%_) - (let ((_g103996_ + (##cdr _%e102437102461%_)))) + (if (gx#stx-pair/null? _%tl102439102468%_) + (let ((_g104155_ (gx#syntax-split-splice - _%tl102280102309%_ + _%tl102439102468%_ '0))) (begin - (let ((_g103997_ + (let ((_g104156_ (let () (declare (not safe)) - (if (##values? _g103996_) - (##vector-length _g103996_) + (if (##values? _g104155_) + (##vector-length _g104155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103997_ 2))) + (##fx= _g104156_ 2))) (error "Context expects 2 values" - _g103997_))) - (let ((_%target102281102312%_ + _g104156_))) + (let ((_%target102440102471%_ (let () (declare (not safe)) - (##vector-ref _g103996_ 0))) - (_%tl102283102315%_ + (##vector-ref _g104155_ 0))) + (_%tl102442102474%_ (let () (declare (not safe)) - (##vector-ref _g103996_ 1)))) - (if (gx#stx-null? _%tl102283102315%_) - (letrec ((_%loop102284102318%_ - (lambda (_%hd102282102322%_ - _%defexn102288102325%_) + (##vector-ref _g104155_ 1)))) + (if (gx#stx-null? _%tl102442102474%_) + (letrec ((_%loop102443102477%_ + (lambda (_%hd102441102481%_ + _%defexn102447102484%_) (if (gx#stx-pair? - _%hd102282102322%_) - (let ((_%e102285102328%_ + _%hd102441102481%_) + (let ((_%e102444102487%_ (gx#syntax-e - _%hd102282102322%_))) - (let ((_%lp-hd102286102332%_ + _%hd102441102481%_))) + (let ((_%lp-hd102445102491%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e102285102328%_))) - (_%lp-tl102287102335%_ + (##car _%e102444102487%_))) + (_%lp-tl102446102494%_ (let () (declare (not safe)) - (##cdr _%e102285102328%_)))) - (_%loop102284102318%_ - _%lp-tl102287102335%_ - (cons _%lp-hd102286102332%_ _%defexn102288102325%_)))) - (let ((_%defexn102289102338%_ - (reverse _%defexn102288102325%_))) - ((lambda (_%L102342%_) + (##cdr _%e102444102487%_)))) + (_%loop102443102477%_ + _%lp-tl102446102494%_ + (cons _%lp-hd102445102491%_ _%defexn102447102484%_)))) + (let ((_%defexn102448102497%_ + (reverse _%defexn102447102484%_))) + ((lambda (_%L102501%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp103998 - (lambda (_%g102357102360%_ _%g102358102363%_) + (let ((__tmp104157 + (lambda (_%g102516102519%_ _%g102517102522%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g102357102360%_ '())) - _%g102358102363%_)))) + (cons _%g102516102519%_ '())) + _%g102517102522%_)))) (declare (not safe)) - (__foldr1 __tmp103998 '() _%L102342%_)))) - _%defexn102289102338%_)))))) + (__foldr1 __tmp104157 '() _%L102501%_)))) + _%defexn102448102497%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102284102318%_ - _%target102281102312%_ + (_%loop102443102477%_ + _%target102440102471%_ '())) - (_%g102275102295%_ - _%g102276102299%_))))) - (_%g102275102295%_ _%g102276102299%_)))) - (_%g102275102295%_ _%g102276102299%_))))) - (_%g102274102366%_ _%$stx102271%_)))))) + (_%g102434102454%_ + _%g102435102458%_))))) + (_%g102434102454%_ _%g102435102458%_)))) + (_%g102434102454%_ _%g102435102458%_))))) + (_%g102433102525%_ _%$stx102430%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index cf7964f38..7c4538ddc 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 1713631265) + (define gerbil/runtime/eval::timestamp 1733687559) (begin (define __syntax::t - (let ((__tmp114844 (list)) (__tmp114843 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115003 (list)) (__tmp115002 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp114844 + __tmp115003 '(e id) - __tmp114843 + __tmp115002 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args114648%_ - (apply make-instance __syntax::t _%$args114648%_))) + (lambda _%$args114807%_ + (apply make-instance __syntax::t _%$args114807%_))) (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 ((__tmp114846 (list __syntax::t)) - (__tmp114845 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115005 (list __syntax::t)) + (__tmp115004 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp114846 + __tmp115005 '() - __tmp114845 + __tmp115004 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args114645%_ - (apply make-instance __core-form::t _%$args114645%_))) + (lambda _%$args114804%_ + (apply make-instance __core-form::t _%$args114804%_))) (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 ((__tmp114848 (list __core-form::t)) - (__tmp114847 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115007 (list __core-form::t)) + (__tmp115006 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp114848 + __tmp115007 '() - __tmp114847 + __tmp115006 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args114642%_ - (apply make-instance __core-expression::t _%$args114642%_))) + (lambda _%$args114801%_ + (apply make-instance __core-expression::t _%$args114801%_))) (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 ((__tmp114850 (list __core-form::t)) - (__tmp114849 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115009 (list __core-form::t)) + (__tmp115008 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp114850 + __tmp115009 '() - __tmp114849 + __tmp115008 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args114639%_ - (apply make-instance __core-special-form::t _%$args114639%_))) + (lambda _%$args114798%_ + (apply make-instance __core-special-form::t _%$args114798%_))) (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 (_%id114637%_) - (let ((__tmp114851 - (let () (declare (not safe)) (__AST-e _%id114637%_)))) + (lambda (_%id114796%_) + (let ((__tmp115010 + (let () (declare (not safe)) (__AST-e _%id114796%_)))) (declare (not safe)) - (__hash-get __core __tmp114851)))) + (__hash-get __core __tmp115010)))) (define __core-bound-id?__% - (lambda (_%id114620%_ _%is?114621%_) - (let ((_%$e114623%_ (__core-resolve _%id114620%_))) - (if _%$e114623%_ (_%is?114621%_ _%$e114623%_) '#f)))) + (lambda (_%id114779%_ _%is?114780%_) + (let ((_%$e114782%_ (__core-resolve _%id114779%_))) + (if _%$e114782%_ (_%is?114780%_ _%$e114782%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id114630%_) - (let ((_%is?114632%_ true)) - (__core-bound-id?__% _%id114630%_ _%is?114632%_)))) + (lambda (_%id114789%_) + (let ((_%is?114791%_ true)) + (__core-bound-id?__% _%id114789%_ _%is?114791%_)))) (define __core-bound-id? - (lambda _g114853_ - (let ((_g114852_ (let () (declare (not safe)) (##length _g114853_)))) - (cond ((let () (declare (not safe)) (##fx= _g114852_ 1)) - (apply __core-bound-id?__0 _g114853_)) - ((let () (declare (not safe)) (##fx= _g114852_ 2)) - (apply __core-bound-id?__% _g114853_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g114853_)))))) + _g115012_)))))) (define __core-bind-syntax!__% - (lambda (_%id114603%_ _%e114604%_ _%make114605%_) - (let ((__tmp114854 + (lambda (_%id114762%_ _%e114763%_ _%make114764%_) + (let ((__tmp115013 (if (let () (declare (not safe)) (##structure-instance-of? - _%e114604%_ + _%e114763%_ 'gerbil/runtime/eval#__syntax::t)) - _%e114604%_ - (_%make114605%_ _%e114604%_ _%id114603%_)))) + _%e114763%_ + (_%make114764%_ _%e114763%_ _%id114762%_)))) (declare (not safe)) - (__hash-put! __core _%id114603%_ __tmp114854)))) + (__hash-put! __core _%id114762%_ __tmp115013)))) (define __core-bind-syntax!__0 - (lambda (_%id114610%_ _%e114611%_) - (let ((_%make114613%_ make-__syntax)) - (__core-bind-syntax!__% _%id114610%_ _%e114611%_ _%make114613%_)))) + (lambda (_%id114769%_ _%e114770%_) + (let ((_%make114772%_ make-__syntax)) + (__core-bind-syntax!__% _%id114769%_ _%e114770%_ _%make114772%_)))) (define __core-bind-syntax! - (lambda _g114856_ - (let ((_g114855_ (let () (declare (not safe)) (##length _g114856_)))) - (cond ((let () (declare (not safe)) (##fx= _g114855_ 2)) - (apply __core-bind-syntax!__0 _g114856_)) - ((let () (declare (not safe)) (##fx= _g114855_ 3)) - (apply __core-bind-syntax!__% _g114856_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g114856_)))))) + _g115015_)))))) (define __SRC__% - (lambda (_%e114583%_ _%src-stx114584%_) - (if (or (pair? _%e114583%_) (symbol? _%e114583%_)) - (let ((__tmp114857 + (lambda (_%e114742%_ _%src-stx114743%_) + (if (or (pair? _%e114742%_) (symbol? _%e114742%_)) + (let ((__tmp115016 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx114584%_ + _%src-stx114743%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx114584%_))) + (__AST-source _%src-stx114743%_))) '#f))) (declare (not safe)) - (##make-source _%e114583%_ __tmp114857)) + (##make-source _%e114742%_ __tmp115016)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e114583%_ 'gerbil#AST::t)) - (let ((__tmp114859 + (##structure-instance-of? _%e114742%_ 'gerbil#AST::t)) + (let ((__tmp115018 (let () (declare (not safe)) - (##unchecked-structure-ref _%e114583%_ '1 '#f '#f))) - (__tmp114858 + (##unchecked-structure-ref _%e114742%_ '1 '#f '#f))) + (__tmp115017 (__locat (let () (declare (not safe)) - (__AST-source _%e114583%_))))) + (__AST-source _%e114742%_))))) (declare (not safe)) - (##make-source __tmp114859 __tmp114858)) + (##make-source __tmp115018 __tmp115017)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e114583%_)))))) + (error '"BUG! Cannot sourcify object" _%e114742%_)))))) (define __SRC__0 - (lambda (_%e114595%_) - (let ((_%src-stx114597%_ '#f)) - (__SRC__% _%e114595%_ _%src-stx114597%_)))) + (lambda (_%e114754%_) + (let ((_%src-stx114756%_ '#f)) + (__SRC__% _%e114754%_ _%src-stx114756%_)))) (define __SRC - (lambda _g114861_ - (let ((_g114860_ (let () (declare (not safe)) (##length _g114861_)))) - (cond ((let () (declare (not safe)) (##fx= _g114860_ 1)) - (apply __SRC__0 _g114861_)) - ((let () (declare (not safe)) (##fx= _g114860_ 2)) - (apply __SRC__% _g114861_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g114861_)))))) + _g115020_)))))) (define __locat - (lambda (_%loc114580%_) - (if (let () (declare (not safe)) (##locat? _%loc114580%_)) - _%loc114580%_ + (lambda (_%loc114739%_) + (if (let () (declare (not safe)) (##locat? _%loc114739%_)) + _%loc114739%_ '#f))) (define __check-values - (lambda (_%obj114575%_ _%k114576%_) - (let ((_%count114578%_ - (if (let () (declare (not safe)) (##values? _%obj114575%_)) + (lambda (_%obj114734%_ _%k114735%_) + (let ((_%count114737%_ + (if (let () (declare (not safe)) (##values? _%obj114734%_)) (let () (declare (not safe)) - (##vector-length _%obj114575%_)) + (##vector-length _%obj114734%_)) '1))) - (if (fx= _%count114578%_ _%k114576%_) + (if (fx= _%count114737%_ _%k114735%_) '#!void - (let ((__tmp114863 - (if (fx< _%count114578%_ _%k114576%_) + (let ((__tmp115022 + (if (fx< _%count114737%_ _%k114735%_) '"Too few values for context" '"Too many values for context")) - (__tmp114862 + (__tmp115021 (if (let () (declare (not safe)) - (##values? _%obj114575%_)) + (##values? _%obj114734%_)) (let () (declare (not safe)) - (##vector->list _%obj114575%_)) - _%obj114575%_))) + (##vector->list _%obj114734%_)) + _%obj114734%_))) (declare (not safe)) - (error __tmp114863 __tmp114862 _%k114576%_)))))) + (error __tmp115022 __tmp115021 _%k114735%_)))))) (define __compile - (lambda (_%stx114544%_) - (let* ((_%$e114546%_ _%stx114544%_) - (_%$E114548114554%_ + (lambda (_%stx114703%_) + (let* ((_%$e114705%_ _%stx114703%_) + (_%$E114707114713%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114546%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114546%_)) - (let* ((_%$tgt114549114557%_ - (let () (declare (not safe)) (__AST-e _%$e114546%_))) - (_%$hd114550114560%_ + _%$e114705%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114705%_)) + (let* ((_%$tgt114708114716%_ + (let () (declare (not safe)) (__AST-e _%$e114705%_))) + (_%$hd114709114719%_ (let () (declare (not safe)) - (##car _%$tgt114549114557%_))) - (_%$tl114551114563%_ + (##car _%$tgt114708114716%_))) + (_%$tl114710114722%_ (let () (declare (not safe)) - (##cdr _%$tgt114549114557%_))) - (_%form114567%_ _%$hd114550114560%_) - (_%$e114569%_ (__core-resolve _%form114567%_))) - (if _%$e114569%_ - ((lambda (_%bind114572%_) - ((##structure-ref _%bind114572%_ '1 __syntax::t '#f) - _%stx114544%_)) - _%$e114569%_) + (##cdr _%$tgt114708114716%_))) + (_%form114726%_ _%$hd114709114719%_) + (_%$e114728%_ (__core-resolve _%form114726%_))) + (if _%$e114728%_ + ((lambda (_%bind114731%_) + ((##structure-ref _%bind114731%_ '1 __syntax::t '#f) + _%stx114703%_)) + _%$e114728%_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _%stx114544%_ - _%form114567%_)))) - (_%$E114548114554%_))))) + _%stx114703%_ + _%form114726%_)))) + (_%$E114707114713%_))))) (define __compile-error__% - (lambda (_%stx114531%_ _%detail114532%_) + (lambda (_%stx114690%_ _%detail114691%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx114531%_ - _%detail114532%_)))) + _%stx114690%_ + _%detail114691%_)))) (define __compile-error__0 - (lambda (_%stx114537%_) - (let ((_%detail114539%_ '#f)) - (__compile-error__% _%stx114537%_ _%detail114539%_)))) + (lambda (_%stx114696%_) + (let ((_%detail114698%_ '#f)) + (__compile-error__% _%stx114696%_ _%detail114698%_)))) (define __compile-error - (lambda _g114865_ - (let ((_g114864_ (let () (declare (not safe)) (##length _g114865_)))) - (cond ((let () (declare (not safe)) (##fx= _g114864_ 1)) - (apply __compile-error__0 _g114865_)) - ((let () (declare (not safe)) (##fx= _g114864_ 2)) - (apply __compile-error__% _g114865_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g114865_)))))) + _g115024_)))))) (define __compile-ignore% - (lambda (_%stx114528%_) (__SRC__% ''#!void _%stx114528%_))) + (lambda (_%stx114687%_) (__SRC__% ''#!void _%stx114687%_))) (define __compile-begin% - (lambda (_%stx114503%_) - (let* ((_%$e114505%_ _%stx114503%_) - (_%$E114507114513%_ + (lambda (_%stx114662%_) + (let* ((_%$e114664%_ _%stx114662%_) + (_%$E114666114672%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114505%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114505%_)) - (let* ((_%$tgt114508114516%_ - (let () (declare (not safe)) (__AST-e _%$e114505%_))) - (_%$hd114509114519%_ + _%$e114664%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114664%_)) + (let* ((_%$tgt114667114675%_ + (let () (declare (not safe)) (__AST-e _%$e114664%_))) + (_%$hd114668114678%_ (let () (declare (not safe)) - (##car _%$tgt114508114516%_))) - (_%$tl114510114522%_ + (##car _%$tgt114667114675%_))) + (_%$tl114669114681%_ (let () (declare (not safe)) - (##cdr _%$tgt114508114516%_))) - (_%body114526%_ _%$tl114510114522%_)) + (##cdr _%$tgt114667114675%_))) + (_%body114685%_ _%$tl114669114681%_)) (__SRC__% - (cons 'begin (map __compile _%body114526%_)) - _%stx114503%_)) - (_%$E114507114513%_))))) + (cons 'begin (map __compile _%body114685%_)) + _%stx114662%_)) + (_%$E114666114672%_))))) (define __compile-begin-foreign% - (lambda (_%stx114478%_) - (let* ((_%$e114480%_ _%stx114478%_) - (_%$E114482114488%_ + (lambda (_%stx114637%_) + (let* ((_%$e114639%_ _%stx114637%_) + (_%$E114641114647%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114480%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114480%_)) - (let* ((_%$tgt114483114491%_ - (let () (declare (not safe)) (__AST-e _%$e114480%_))) - (_%$hd114484114494%_ + _%$e114639%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114639%_)) + (let* ((_%$tgt114642114650%_ + (let () (declare (not safe)) (__AST-e _%$e114639%_))) + (_%$hd114643114653%_ (let () (declare (not safe)) - (##car _%$tgt114483114491%_))) - (_%$tl114485114497%_ + (##car _%$tgt114642114650%_))) + (_%$tl114644114656%_ (let () (declare (not safe)) - (##cdr _%$tgt114483114491%_))) - (_%body114501%_ _%$tl114485114497%_)) + (##cdr _%$tgt114642114650%_))) + (_%body114660%_ _%$tl114644114656%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body114501%_))) - _%stx114478%_)) - (_%$E114482114488%_))))) + (__AST->datum _%body114660%_))) + _%stx114637%_)) + (_%$E114641114647%_))))) (define __compile-import% - (lambda (_%stx114453%_) - (let* ((_%$e114455%_ _%stx114453%_) - (_%$E114457114463%_ + (lambda (_%stx114612%_) + (let* ((_%$e114614%_ _%stx114612%_) + (_%$E114616114622%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114455%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114455%_)) - (let* ((_%$tgt114458114466%_ - (let () (declare (not safe)) (__AST-e _%$e114455%_))) - (_%$hd114459114469%_ + _%$e114614%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114614%_)) + (let* ((_%$tgt114617114625%_ + (let () (declare (not safe)) (__AST-e _%$e114614%_))) + (_%$hd114618114628%_ (let () (declare (not safe)) - (##car _%$tgt114458114466%_))) - (_%$tl114460114472%_ + (##car _%$tgt114617114625%_))) + (_%$tl114619114631%_ (let () (declare (not safe)) - (##cdr _%$tgt114458114466%_))) - (_%body114476%_ _%$tl114460114472%_)) + (##cdr _%$tgt114617114625%_))) + (_%body114635%_ _%$tl114619114631%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body114476%_ '())) '())) - _%stx114453%_)) - (_%$E114457114463%_))))) + (cons (cons 'quote (cons _%body114635%_ '())) '())) + _%stx114612%_)) + (_%$E114616114622%_))))) (define __compile-begin-annotation% - (lambda (_%stx114400%_) - (let* ((_%$e114402%_ _%stx114400%_) - (_%$E114404114416%_ + (lambda (_%stx114559%_) + (let* ((_%$e114561%_ _%stx114559%_) + (_%$E114563114575%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114402%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114402%_)) - (let* ((_%$tgt114405114419%_ - (let () (declare (not safe)) (__AST-e _%$e114402%_))) - (_%$hd114406114422%_ + _%$e114561%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114561%_)) + (let* ((_%$tgt114564114578%_ + (let () (declare (not safe)) (__AST-e _%$e114561%_))) + (_%$hd114565114581%_ (let () (declare (not safe)) - (##car _%$tgt114405114419%_))) - (_%$tl114407114425%_ + (##car _%$tgt114564114578%_))) + (_%$tl114566114584%_ (let () (declare (not safe)) - (##cdr _%$tgt114405114419%_)))) + (##cdr _%$tgt114564114578%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114407114425%_)) - (let* ((_%$tgt114408114429%_ + (__AST-pair? _%$tl114566114584%_)) + (let* ((_%$tgt114567114588%_ (let () (declare (not safe)) - (__AST-e _%$tl114407114425%_))) - (_%$hd114409114432%_ + (__AST-e _%$tl114566114584%_))) + (_%$hd114568114591%_ (let () (declare (not safe)) - (##car _%$tgt114408114429%_))) - (_%$tl114410114435%_ + (##car _%$tgt114567114588%_))) + (_%$tl114569114594%_ (let () (declare (not safe)) - (##cdr _%$tgt114408114429%_))) - (_%ann114439%_ _%$hd114409114432%_)) + (##cdr _%$tgt114567114588%_))) + (_%ann114598%_ _%$hd114568114591%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114410114435%_)) - (let* ((_%$tgt114411114441%_ + (__AST-pair? _%$tl114569114594%_)) + (let* ((_%$tgt114570114600%_ (let () (declare (not safe)) - (__AST-e _%$tl114410114435%_))) - (_%$hd114412114444%_ + (__AST-e _%$tl114569114594%_))) + (_%$hd114571114603%_ (let () (declare (not safe)) - (##car _%$tgt114411114441%_))) - (_%$tl114413114447%_ + (##car _%$tgt114570114600%_))) + (_%$tl114572114606%_ (let () (declare (not safe)) - (##cdr _%$tgt114411114441%_))) - (_%expr114451%_ _%$hd114412114444%_)) + (##cdr _%$tgt114570114600%_))) + (_%expr114610%_ _%$hd114571114603%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114413114447%_)) + (__AST-e _%$tl114572114606%_)) '()) - (__compile _%expr114451%_) - (_%$E114404114416%_))) - (_%$E114404114416%_))) - (_%$E114404114416%_))) - (_%$E114404114416%_))))) + (__compile _%expr114610%_) + (_%$E114563114575%_))) + (_%$E114563114575%_))) + (_%$E114563114575%_))) + (_%$E114563114575%_))))) (define __compile-define-values% - (lambda (_%stx114291%_) - (let* ((_%$e114293%_ _%stx114291%_) - (_%$E114295114307%_ + (lambda (_%stx114450%_) + (let* ((_%$e114452%_ _%stx114450%_) + (_%$E114454114466%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114293%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114293%_)) - (let* ((_%$tgt114296114310%_ - (let () (declare (not safe)) (__AST-e _%$e114293%_))) - (_%$hd114297114313%_ + _%$e114452%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114452%_)) + (let* ((_%$tgt114455114469%_ + (let () (declare (not safe)) (__AST-e _%$e114452%_))) + (_%$hd114456114472%_ (let () (declare (not safe)) - (##car _%$tgt114296114310%_))) - (_%$tl114298114316%_ + (##car _%$tgt114455114469%_))) + (_%$tl114457114475%_ (let () (declare (not safe)) - (##cdr _%$tgt114296114310%_)))) + (##cdr _%$tgt114455114469%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114298114316%_)) - (let* ((_%$tgt114299114320%_ + (__AST-pair? _%$tl114457114475%_)) + (let* ((_%$tgt114458114479%_ (let () (declare (not safe)) - (__AST-e _%$tl114298114316%_))) - (_%$hd114300114323%_ + (__AST-e _%$tl114457114475%_))) + (_%$hd114459114482%_ (let () (declare (not safe)) - (##car _%$tgt114299114320%_))) - (_%$tl114301114326%_ + (##car _%$tgt114458114479%_))) + (_%$tl114460114485%_ (let () (declare (not safe)) - (##cdr _%$tgt114299114320%_))) - (_%hd114330%_ _%$hd114300114323%_)) + (##cdr _%$tgt114458114479%_))) + (_%hd114489%_ _%$hd114459114482%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114301114326%_)) - (let* ((_%$tgt114302114332%_ + (__AST-pair? _%$tl114460114485%_)) + (let* ((_%$tgt114461114491%_ (let () (declare (not safe)) - (__AST-e _%$tl114301114326%_))) - (_%$hd114303114335%_ + (__AST-e _%$tl114460114485%_))) + (_%$hd114462114494%_ (let () (declare (not safe)) - (##car _%$tgt114302114332%_))) - (_%$tl114304114338%_ + (##car _%$tgt114461114491%_))) + (_%$tl114463114497%_ (let () (declare (not safe)) - (##cdr _%$tgt114302114332%_))) - (_%expr114342%_ _%$hd114303114335%_)) + (##cdr _%$tgt114461114491%_))) + (_%expr114501%_ _%$hd114462114494%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114304114338%_)) + (__AST-e _%$tl114463114497%_)) '()) - (let* ((_%$e114344%_ _%hd114330%_) - (_%$E114346114387%_ + (let* ((_%$e114503%_ _%hd114489%_) + (_%$E114505114546%_ (lambda () - (let ((_%$E114347114372%_ + (let ((_%$E114506114531%_ (lambda () - (let* ((_%$E114348114359%_ + (let* ((_%$E114507114518%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114344%_)))) - (_%ids114362%_ _%hd114330%_) - (_%len114364%_ (length _%ids114362%_)) - (_%tmp114366%_ + _%$e114503%_)))) + (_%ids114521%_ _%hd114489%_) + (_%len114523%_ (length _%ids114521%_)) + (_%tmp114525%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1579 +620,1579 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp114366%_ - (cons (__compile _%expr114342%_) '()))) - _%stx114291%_) + (cons _%tmp114525%_ + (cons (__compile _%expr114501%_) '()))) + _%stx114450%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp114366%_ - (cons _%len114364%_ '()))) - _%stx114291%_) - (let ((__tmp114866 - (let ((__tmp114868 - (lambda (_%id114369%_ - _%k114370%_) + (cons _%tmp114525%_ + (cons _%len114523%_ '()))) + _%stx114450%_) + (let ((__tmp115025 + (let ((__tmp115027 + (lambda (_%id114528%_ + _%k114529%_) (if (let () (declare (not safe)) - (__AST-e _%id114369%_)) + (__AST-e _%id114528%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id114369%_) + _%id114528%_) (cons (cons '##vector-ref - (cons _%tmp114366%_ - (cons _%k114370%_ '()))) + (cons _%tmp114525%_ + (cons _%k114529%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114291%_) + _%stx114450%_) '#f))) - (__tmp114867 + (__tmp115026 (let () (declare (not safe)) - (##iota _%len114364%_)))) + (##iota _%len114523%_)))) (declare (not safe)) (__filter-map2 - __tmp114868 - _%ids114362%_ - __tmp114867)))) + __tmp115027 + _%ids114521%_ + __tmp115026)))) (declare (not safe)) - (__foldr1 cons '() __tmp114866))))) - _%stx114291%_))))) + (__foldr1 cons '() __tmp115025))))) + _%stx114450%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e114344%_)) - (let* ((_%$tgt114349114375%_ + (__AST-pair? _%$e114503%_)) + (let* ((_%$tgt114508114534%_ (let () (declare (not safe)) - (__AST-e _%$e114344%_))) - (_%$hd114350114378%_ + (__AST-e _%$e114503%_))) + (_%$hd114509114537%_ (let () (declare (not safe)) - (##car _%$tgt114349114375%_))) - (_%$tl114351114381%_ + (##car _%$tgt114508114534%_))) + (_%$tl114510114540%_ (let () (declare (not safe)) - (##cdr _%$tgt114349114375%_))) - (_%id114385%_ - _%$hd114350114378%_)) + (##cdr _%$tgt114508114534%_))) + (_%id114544%_ + _%$hd114509114537%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl114351114381%_)) + (__AST-e _%$tl114510114540%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id114385%_) - (cons (__compile _%expr114342%_) '()))) - _%stx114291%_) - (_%$E114347114372%_))) + (cons (__SRC__0 _%id114544%_) + (cons (__compile _%expr114501%_) '()))) + _%stx114450%_) + (_%$E114506114531%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E114347114372%_)))))) + (_%$E114506114531%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114344%_)) - (let* ((_%$tgt114352114390%_ + (__AST-pair? _%$e114503%_)) + (let* ((_%$tgt114511114549%_ (let () (declare (not safe)) - (__AST-e _%$e114344%_))) - (_%$hd114353114393%_ + (__AST-e _%$e114503%_))) + (_%$hd114512114552%_ (let () (declare (not safe)) - (##car _%$tgt114352114390%_))) - (_%$tl114354114396%_ + (##car _%$tgt114511114549%_))) + (_%$tl114513114555%_ (let () (declare (not safe)) - (##cdr _%$tgt114352114390%_)))) + (##cdr _%$tgt114511114549%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd114353114393%_)) + (__AST-e _%$hd114512114552%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114354114396%_)) + (__AST-e _%$tl114513114555%_)) '()) - (__compile _%expr114342%_) - (_%$E114346114387%_)) - (_%$E114346114387%_))) - (_%$E114346114387%_))) - (_%$E114295114307%_))) - (_%$E114295114307%_))) - (_%$E114295114307%_))) - (_%$E114295114307%_))))) + (__compile _%expr114501%_) + (_%$E114505114546%_)) + (_%$E114505114546%_))) + (_%$E114505114546%_))) + (_%$E114454114466%_))) + (_%$E114454114466%_))) + (_%$E114454114466%_))) + (_%$E114454114466%_))))) (define __compile-head-id - (lambda (_%e114289%_) + (lambda (_%e114448%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e114289%_)) - _%e114289%_ + (if (let () (declare (not safe)) (__AST-e _%e114448%_)) + _%e114448%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd114246%_) - (let _%recur114248%_ ((_%rest114250%_ _%hd114246%_)) - (let* ((_%$e114252%_ _%rest114250%_) - (_%$E114254114272%_ + (lambda (_%hd114405%_) + (let _%recur114407%_ ((_%rest114409%_ _%hd114405%_)) + (let* ((_%$e114411%_ _%rest114409%_) + (_%$E114413114431%_ (lambda () - (let ((_%$E114255114269%_ + (let ((_%$E114414114428%_ (lambda () - (let* ((_%$E114256114264%_ + (let* ((_%$E114415114423%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114252%_)))) - (_%tail114267%_ _%$e114252%_)) - (__compile-head-id _%tail114267%_))))) + _%$e114411%_)))) + (_%tail114426%_ _%$e114411%_)) + (__compile-head-id _%tail114426%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114252%_)) + (__AST-e _%$e114411%_)) '()) '() - (_%$E114255114269%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114252%_)) - (let* ((_%$tgt114257114275%_ - (let () (declare (not safe)) (__AST-e _%$e114252%_))) - (_%$hd114258114278%_ + (_%$E114414114428%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114411%_)) + (let* ((_%$tgt114416114434%_ + (let () (declare (not safe)) (__AST-e _%$e114411%_))) + (_%$hd114417114437%_ (let () (declare (not safe)) - (##car _%$tgt114257114275%_))) - (_%$tl114259114281%_ + (##car _%$tgt114416114434%_))) + (_%$tl114418114440%_ (let () (declare (not safe)) - (##cdr _%$tgt114257114275%_))) - (_%hd114285%_ _%$hd114258114278%_) - (_%rest114287%_ _%$tl114259114281%_)) - (cons (__compile-head-id _%hd114285%_) - (_%recur114248%_ _%rest114287%_))) - (_%$E114254114272%_)))))) + (##cdr _%$tgt114416114434%_))) + (_%hd114444%_ _%$hd114417114437%_) + (_%rest114446%_ _%$tl114418114440%_)) + (cons (__compile-head-id _%hd114444%_) + (_%recur114407%_ _%rest114446%_))) + (_%$E114413114431%_)))))) (define __compile-lambda% - (lambda (_%stx114193%_) - (let* ((_%$e114195%_ _%stx114193%_) - (_%$E114197114209%_ + (lambda (_%stx114352%_) + (let* ((_%$e114354%_ _%stx114352%_) + (_%$E114356114368%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114195%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114195%_)) - (let* ((_%$tgt114198114212%_ - (let () (declare (not safe)) (__AST-e _%$e114195%_))) - (_%$hd114199114215%_ + _%$e114354%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114354%_)) + (let* ((_%$tgt114357114371%_ + (let () (declare (not safe)) (__AST-e _%$e114354%_))) + (_%$hd114358114374%_ (let () (declare (not safe)) - (##car _%$tgt114198114212%_))) - (_%$tl114200114218%_ + (##car _%$tgt114357114371%_))) + (_%$tl114359114377%_ (let () (declare (not safe)) - (##cdr _%$tgt114198114212%_)))) + (##cdr _%$tgt114357114371%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114200114218%_)) - (let* ((_%$tgt114201114222%_ + (__AST-pair? _%$tl114359114377%_)) + (let* ((_%$tgt114360114381%_ (let () (declare (not safe)) - (__AST-e _%$tl114200114218%_))) - (_%$hd114202114225%_ + (__AST-e _%$tl114359114377%_))) + (_%$hd114361114384%_ (let () (declare (not safe)) - (##car _%$tgt114201114222%_))) - (_%$tl114203114228%_ + (##car _%$tgt114360114381%_))) + (_%$tl114362114387%_ (let () (declare (not safe)) - (##cdr _%$tgt114201114222%_))) - (_%hd114232%_ _%$hd114202114225%_)) + (##cdr _%$tgt114360114381%_))) + (_%hd114391%_ _%$hd114361114384%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114203114228%_)) - (let* ((_%$tgt114204114234%_ + (__AST-pair? _%$tl114362114387%_)) + (let* ((_%$tgt114363114393%_ (let () (declare (not safe)) - (__AST-e _%$tl114203114228%_))) - (_%$hd114205114237%_ + (__AST-e _%$tl114362114387%_))) + (_%$hd114364114396%_ (let () (declare (not safe)) - (##car _%$tgt114204114234%_))) - (_%$tl114206114240%_ + (##car _%$tgt114363114393%_))) + (_%$tl114365114399%_ (let () (declare (not safe)) - (##cdr _%$tgt114204114234%_))) - (_%body114244%_ _%$hd114205114237%_)) + (##cdr _%$tgt114363114393%_))) + (_%body114403%_ _%$hd114364114396%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114206114240%_)) + (__AST-e _%$tl114365114399%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd114232%_) - (cons (__compile _%body114244%_) + _%hd114391%_) + (cons (__compile _%body114403%_) '()))) - _%stx114193%_) - (_%$E114197114209%_))) - (_%$E114197114209%_))) - (_%$E114197114209%_))) - (_%$E114197114209%_))))) + _%stx114352%_) + (_%$E114356114368%_))) + (_%$E114356114368%_))) + (_%$E114356114368%_))) + (_%$E114356114368%_))))) (define __compile-case-lambda% - (lambda (_%stx113985%_) - (letrec ((_%variadic?113987%_ - (lambda (_%hd114158%_) - (let* ((_%$e114160%_ _%hd114158%_) - (_%$E114162114178%_ + (lambda (_%stx114144%_) + (letrec ((_%variadic?114146%_ + (lambda (_%hd114317%_) + (let* ((_%$e114319%_ _%hd114317%_) + (_%$E114321114337%_ (lambda () - (let ((_%$E114163114175%_ + (let ((_%$E114322114334%_ (lambda () - (let ((_%$E114164114172%_ + (let ((_%$E114323114331%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114160%_))))) + _%$e114319%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114160%_)) + (__AST-e _%$e114319%_)) '()) '#f - (_%$E114163114175%_)))))) + (_%$E114322114334%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114160%_)) - (let* ((_%$tgt114165114181%_ + (__AST-pair? _%$e114319%_)) + (let* ((_%$tgt114324114340%_ (let () (declare (not safe)) - (__AST-e _%$e114160%_))) - (_%$hd114166114184%_ + (__AST-e _%$e114319%_))) + (_%$hd114325114343%_ (let () (declare (not safe)) - (##car _%$tgt114165114181%_))) - (_%$tl114167114187%_ + (##car _%$tgt114324114340%_))) + (_%$tl114326114346%_ (let () (declare (not safe)) - (##cdr _%$tgt114165114181%_))) - (_%rest114191%_ _%$tl114167114187%_)) - (_%variadic?113987%_ _%rest114191%_)) - (_%$E114162114178%_))))) - (_%arity113988%_ - (lambda (_%hd114123%_) - (let _%lp114125%_ ((_%rest114127%_ _%hd114123%_) - (_%k114128%_ '0)) - (let* ((_%$e114130%_ _%rest114127%_) - (_%$E114132114143%_ + (##cdr _%$tgt114324114340%_))) + (_%rest114350%_ _%$tl114326114346%_)) + (_%variadic?114146%_ _%rest114350%_)) + (_%$E114321114337%_))))) + (_%arity114147%_ + (lambda (_%hd114282%_) + (let _%lp114284%_ ((_%rest114286%_ _%hd114282%_) + (_%k114287%_ '0)) + (let* ((_%$e114289%_ _%rest114286%_) + (_%$E114291114302%_ (lambda () - (let ((_%$E114133114140%_ + (let ((_%$E114292114299%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114130%_))))) - _%k114128%_)))) + _%$e114289%_))))) + _%k114287%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114130%_)) - (let* ((_%$tgt114134114146%_ + (__AST-pair? _%$e114289%_)) + (let* ((_%$tgt114293114305%_ (let () (declare (not safe)) - (__AST-e _%$e114130%_))) - (_%$hd114135114149%_ + (__AST-e _%$e114289%_))) + (_%$hd114294114308%_ (let () (declare (not safe)) - (##car _%$tgt114134114146%_))) - (_%$tl114136114152%_ + (##car _%$tgt114293114305%_))) + (_%$tl114295114311%_ (let () (declare (not safe)) - (##cdr _%$tgt114134114146%_))) - (_%rest114156%_ _%$tl114136114152%_)) - (_%lp114125%_ - _%rest114156%_ + (##cdr _%$tgt114293114305%_))) + (_%rest114315%_ _%$tl114295114311%_)) + (_%lp114284%_ + _%rest114315%_ (let () (declare (not safe)) - (##fx+ _%k114128%_ '1)))) - (_%$E114132114143%_)))))) - (_%generate113989%_ - (lambda (_%rest114050%_ _%args114051%_ _%len114052%_) - (let* ((_%$e114054%_ _%rest114050%_) - (_%$E114056114067%_ + (##fx+ _%k114287%_ '1)))) + (_%$E114291114302%_)))))) + (_%generate114148%_ + (lambda (_%rest114209%_ _%args114210%_ _%len114211%_) + (let* ((_%$e114213%_ _%rest114209%_) + (_%$E114215114226%_ (lambda () - (let ((_%$E114057114064%_ + (let ((_%$E114216114223%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114054%_))))) + _%$e114213%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args114051%_ '()))) - _%stx113985%_))))) + (cons _%args114210%_ '()))) + _%stx114144%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114054%_)) - (let* ((_%$tgt114058114070%_ + (__AST-pair? _%$e114213%_)) + (let* ((_%$tgt114217114229%_ (let () (declare (not safe)) - (__AST-e _%$e114054%_))) - (_%$hd114059114073%_ + (__AST-e _%$e114213%_))) + (_%$hd114218114232%_ (let () (declare (not safe)) - (##car _%$tgt114058114070%_))) - (_%$tl114060114076%_ + (##car _%$tgt114217114229%_))) + (_%$tl114219114235%_ (let () (declare (not safe)) - (##cdr _%$tgt114058114070%_))) - (_%clause114080%_ _%$hd114059114073%_) - (_%rest114082%_ _%$tl114060114076%_) - (_%$e114084%_ _%clause114080%_) - (_%$E114086114095%_ + (##cdr _%$tgt114217114229%_))) + (_%clause114239%_ _%$hd114218114232%_) + (_%rest114241%_ _%$tl114219114235%_) + (_%$e114243%_ _%clause114239%_) + (_%$E114245114254%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114084%_))))) + _%$e114243%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114084%_)) - (let* ((_%$tgt114087114098%_ + (__AST-pair? _%$e114243%_)) + (let* ((_%$tgt114246114257%_ (let () (declare (not safe)) - (__AST-e _%$e114084%_))) - (_%$hd114088114101%_ + (__AST-e _%$e114243%_))) + (_%$hd114247114260%_ (let () (declare (not safe)) - (##car _%$tgt114087114098%_))) - (_%$tl114089114104%_ + (##car _%$tgt114246114257%_))) + (_%$tl114248114263%_ (let () (declare (not safe)) - (##cdr _%$tgt114087114098%_))) - (_%hd114108%_ _%$hd114088114101%_)) + (##cdr _%$tgt114246114257%_))) + (_%hd114267%_ _%$hd114247114260%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114089114104%_)) - (let* ((_%$tgt114090114110%_ + (__AST-pair? _%$tl114248114263%_)) + (let* ((_%$tgt114249114269%_ (let () (declare (not safe)) - (__AST-e _%$tl114089114104%_))) - (_%$hd114091114113%_ + (__AST-e _%$tl114248114263%_))) + (_%$hd114250114272%_ (let () (declare (not safe)) - (##car _%$tgt114090114110%_))) - (_%$tl114092114116%_ + (##car _%$tgt114249114269%_))) + (_%$tl114251114275%_ (let () (declare (not safe)) - (##cdr _%$tgt114090114110%_)))) + (##cdr _%$tgt114249114269%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114092114116%_)) + (__AST-e _%$tl114251114275%_)) '()) - (let ((_%clen114120%_ - (_%arity113988%_ - _%hd114108%_)) - (_%cmp114121%_ - (if (_%variadic?113987%_ - _%hd114108%_) + (let ((_%clen114279%_ + (_%arity114147%_ + _%hd114267%_)) + (_%cmp114280%_ + (if (_%variadic?114146%_ + _%hd114267%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp114121%_ + (cons (cons _%cmp114280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len114052%_ (cons _%clen114120%_ '()))) + (cons _%len114211%_ (cons _%clen114279%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause114080%_)) - (cons _%args114051%_ '()))) - _%stx113985%_) - (cons (_%generate113989%_ - _%rest114082%_ - _%args114051%_ - _%len114052%_) + (cons '%#lambda _%clause114239%_)) + (cons _%args114210%_ '()))) + _%stx114144%_) + (cons (_%generate114148%_ + _%rest114241%_ + _%args114210%_ + _%len114211%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113985%_)) - (_%$E114086114095%_))) - (_%$E114086114095%_))) - (_%$E114086114095%_))) - (_%$E114056114067%_)))))) - (let* ((_%$e113991%_ _%stx113985%_) - (_%$E113993114025%_ + _%stx114144%_)) + (_%$E114245114254%_))) + (_%$E114245114254%_))) + (_%$E114245114254%_))) + (_%$E114215114226%_)))))) + (let* ((_%$e114150%_ _%stx114144%_) + (_%$E114152114184%_ (lambda () - (let ((_%$E113994114007%_ + (let ((_%$E114153114166%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113991%_))))) + _%$e114150%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113991%_)) - (let* ((_%$tgt113995114010%_ + (__AST-pair? _%$e114150%_)) + (let* ((_%$tgt114154114169%_ (let () (declare (not safe)) - (__AST-e _%$e113991%_))) - (_%$hd113996114013%_ + (__AST-e _%$e114150%_))) + (_%$hd114155114172%_ (let () (declare (not safe)) - (##car _%$tgt113995114010%_))) - (_%$tl113997114016%_ + (##car _%$tgt114154114169%_))) + (_%$tl114156114175%_ (let () (declare (not safe)) - (##cdr _%$tgt113995114010%_))) - (_%clauses114020%_ _%$tl113997114016%_)) - (let ((_%args114022%_ + (##cdr _%$tgt114154114169%_))) + (_%clauses114179%_ _%$tl114156114175%_)) + (let ((_%args114181%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx113985%_)) - (_%len114023%_ + _%stx114144%_)) + (_%len114182%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx113985%_))) + _%stx114144%_))) (__SRC__% (cons 'lambda - (cons _%args114022%_ + (cons _%args114181%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len114023%_ + (cons (cons (cons _%len114182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args114022%_ '())) - _%stx113985%_) + (cons _%args114181%_ '())) + _%stx114144%_) '())) '()) - (cons (_%generate113989%_ - _%clauses114020%_ - _%args114022%_ - _%len114023%_) + (cons (_%generate114148%_ + _%clauses114179%_ + _%args114181%_ + _%len114182%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113985%_) + _%stx114144%_) '()))) - _%stx113985%_))) - (_%$E113994114007%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113991%_)) - (let* ((_%$tgt113998114028%_ - (let () (declare (not safe)) (__AST-e _%$e113991%_))) - (_%$hd113999114031%_ + _%stx114144%_))) + (_%$E114153114166%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114150%_)) + (let* ((_%$tgt114157114187%_ + (let () (declare (not safe)) (__AST-e _%$e114150%_))) + (_%$hd114158114190%_ (let () (declare (not safe)) - (##car _%$tgt113998114028%_))) - (_%$tl114000114034%_ + (##car _%$tgt114157114187%_))) + (_%$tl114159114193%_ (let () (declare (not safe)) - (##cdr _%$tgt113998114028%_)))) + (##cdr _%$tgt114157114187%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114000114034%_)) - (let* ((_%$tgt114001114038%_ + (__AST-pair? _%$tl114159114193%_)) + (let* ((_%$tgt114160114197%_ (let () (declare (not safe)) - (__AST-e _%$tl114000114034%_))) - (_%$hd114002114041%_ + (__AST-e _%$tl114159114193%_))) + (_%$hd114161114200%_ (let () (declare (not safe)) - (##car _%$tgt114001114038%_))) - (_%$tl114003114044%_ + (##car _%$tgt114160114197%_))) + (_%$tl114162114203%_ (let () (declare (not safe)) - (##cdr _%$tgt114001114038%_))) - (_%clause114048%_ _%$hd114002114041%_)) + (##cdr _%$tgt114160114197%_))) + (_%clause114207%_ _%$hd114161114200%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114003114044%_)) + (__AST-e _%$tl114162114203%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause114048%_)) - (_%$E113993114025%_))) - (_%$E113993114025%_))) - (_%$E113993114025%_)))))) + (cons '%#lambda _%clause114207%_)) + (_%$E114152114184%_))) + (_%$E114152114184%_))) + (_%$E114152114184%_)))))) (define __compile-let-form - (lambda (_%stx113754%_ _%compile-simple113755%_ _%compile-values113756%_) - (letrec ((_%simple-bind?113758%_ - (lambda (_%hd113943%_) - (let* ((_%hd113944113954%_ _%hd113943%_) - (_%else113947113962%_ (lambda () '#f))) - (let ((_%K113950113975%_ (lambda (_%id113973%_) '#t)) - (_%K113949113967%_ (lambda () '#t))) - (let ((_%try-match113946113970%_ + (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 () (if (let () (declare (not safe)) - (##eq? _%hd113944113954%_ '#f)) - (_%K113949113967%_) - (_%else113947113962%_))))) - (if (pair? _%hd113944113954%_) - (let ((_%tl113952113980%_ + (##eq? _%hd114103114113%_ '#f)) + (_%K114108114126%_) + (_%else114106114121%_))))) + (if (pair? _%hd114103114113%_) + (let ((_%tl114111114139%_ (let () (declare (not safe)) - (##cdr _%hd113944113954%_))) - (_%hd113951113978%_ + (##cdr _%hd114103114113%_))) + (_%hd114110114137%_ (let () (declare (not safe)) - (##car _%hd113944113954%_)))) - (if (null? _%tl113952113980%_) - (let ((_%id113983%_ _%hd113951113978%_)) - (_%K113950113975%_ _%id113983%_)) - (_%try-match113946113970%_))) - (_%try-match113946113970%_))))))) - (_%car-e113759%_ - (lambda (_%hd113941%_) - (if (pair? _%hd113941%_) - (let () (declare (not safe)) (##car _%hd113941%_)) - _%hd113941%_)))) - (let* ((_%$e113761%_ _%stx113754%_) - (_%$E113763113906%_ + (##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%_ (lambda () - (let ((_%$E113764113786%_ + (let ((_%$E113923113945%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113761%_))))) + _%$e113920%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113761%_)) - (let* ((_%$tgt113765113789%_ + (__AST-pair? _%$e113920%_)) + (let* ((_%$tgt113924113948%_ (let () (declare (not safe)) - (__AST-e _%$e113761%_))) - (_%$hd113766113792%_ + (__AST-e _%$e113920%_))) + (_%$hd113925113951%_ (let () (declare (not safe)) - (##car _%$tgt113765113789%_))) - (_%$tl113767113795%_ + (##car _%$tgt113924113948%_))) + (_%$tl113926113954%_ (let () (declare (not safe)) - (##cdr _%$tgt113765113789%_)))) + (##cdr _%$tgt113924113948%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113767113795%_)) - (let* ((_%$tgt113768113799%_ + (__AST-pair? _%$tl113926113954%_)) + (let* ((_%$tgt113927113958%_ (let () (declare (not safe)) - (__AST-e _%$tl113767113795%_))) - (_%$hd113769113802%_ + (__AST-e _%$tl113926113954%_))) + (_%$hd113928113961%_ (let () (declare (not safe)) - (##car _%$tgt113768113799%_))) - (_%$tl113770113805%_ + (##car _%$tgt113927113958%_))) + (_%$tl113929113964%_ (let () (declare (not safe)) - (##cdr _%$tgt113768113799%_))) - (_%hd113809%_ _%$hd113769113802%_)) + (##cdr _%$tgt113927113958%_))) + (_%hd113968%_ _%$hd113928113961%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113770113805%_)) - (let* ((_%$tgt113771113811%_ + (__AST-pair? _%$tl113929113964%_)) + (let* ((_%$tgt113930113970%_ (let () (declare (not safe)) - (__AST-e _%$tl113770113805%_))) - (_%$hd113772113814%_ + (__AST-e _%$tl113929113964%_))) + (_%$hd113931113973%_ (let () (declare (not safe)) - (##car _%$tgt113771113811%_))) - (_%$tl113773113817%_ + (##car _%$tgt113930113970%_))) + (_%$tl113932113976%_ (let () (declare (not safe)) - (##cdr _%$tgt113771113811%_))) - (_%body113821%_ - _%$hd113772113814%_)) + (##cdr _%$tgt113930113970%_))) + (_%body113980%_ + _%$hd113931113973%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113773113817%_)) + (__AST-e _%$tl113932113976%_)) '()) - (let* ((_%hd-ids113861%_ - (map (lambda (_%bind113823%_) - (let* ((_%$e113825%_ + (let* ((_%hd-ids114020%_ + (map (lambda (_%bind113982%_) + (let* ((_%$e113984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind113823%_) - (_%$E113827113836%_ + _%bind113982%_) + (_%$E113986113995%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113825%_))))) + _%$e113984%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113825%_)) - (let* ((_%$tgt113828113839%_ + (__AST-pair? _%$e113984%_)) + (let* ((_%$tgt113987113998%_ (let () (declare (not safe)) - (__AST-e _%$e113825%_))) - (_%$hd113829113842%_ + (__AST-e _%$e113984%_))) + (_%$hd113988114001%_ (let () (declare (not safe)) - (##car _%$tgt113828113839%_))) - (_%$tl113830113845%_ + (##car _%$tgt113987113998%_))) + (_%$tl113989114004%_ (let () (declare (not safe)) - (##cdr _%$tgt113828113839%_))) - (_%ids113849%_ _%$hd113829113842%_)) + (##cdr _%$tgt113987113998%_))) + (_%ids114008%_ _%$hd113988114001%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113830113845%_)) - (let* ((_%$tgt113831113851%_ + (__AST-pair? _%$tl113989114004%_)) + (let* ((_%$tgt113990114010%_ (let () (declare (not safe)) - (__AST-e _%$tl113830113845%_))) - (_%$hd113832113854%_ + (__AST-e _%$tl113989114004%_))) + (_%$hd113991114013%_ (let () (declare (not safe)) - (##car _%$tgt113831113851%_))) - (_%$tl113833113857%_ + (##car _%$tgt113990114010%_))) + (_%$tl113992114016%_ (let () (declare (not safe)) - (##cdr _%$tgt113831113851%_)))) + (##cdr _%$tgt113990114010%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113833113857%_)) + (__AST-e _%$tl113992114016%_)) '()) - _%ids113849%_ - (_%$E113827113836%_))) - (_%$E113827113836%_))) - (_%$E113827113836%_)))) - _%hd113809%_)) + _%ids114008%_ + (_%$E113986113995%_))) + (_%$E113986113995%_))) + (_%$E113986113995%_)))) + _%hd113968%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs113901%_ - (map (lambda (_%bind113863%_) - (let* ((_%$e113865%_ + (_%exprs114060%_ + (map (lambda (_%bind114022%_) + (let* ((_%$e114024%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind113863%_) - (_%$E113867113876%_ + _%bind114022%_) + (_%$E114026114035%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113865%_))))) + _%$e114024%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113865%_)) - (let* ((_%$tgt113868113879%_ + (__AST-pair? _%$e114024%_)) + (let* ((_%$tgt114027114038%_ (let () (declare (not safe)) - (__AST-e _%$e113865%_))) - (_%$hd113869113882%_ + (__AST-e _%$e114024%_))) + (_%$hd114028114041%_ (let () (declare (not safe)) - (##car _%$tgt113868113879%_))) - (_%$tl113870113885%_ + (##car _%$tgt114027114038%_))) + (_%$tl114029114044%_ (let () (declare (not safe)) - (##cdr _%$tgt113868113879%_)))) + (##cdr _%$tgt114027114038%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113870113885%_)) - (let* ((_%$tgt113871113889%_ + (__AST-pair? _%$tl114029114044%_)) + (let* ((_%$tgt114030114048%_ (let () (declare (not safe)) - (__AST-e _%$tl113870113885%_))) - (_%$hd113872113892%_ + (__AST-e _%$tl114029114044%_))) + (_%$hd114031114051%_ (let () (declare (not safe)) - (##car _%$tgt113871113889%_))) - (_%$tl113873113895%_ + (##car _%$tgt114030114048%_))) + (_%$tl114032114054%_ (let () (declare (not safe)) - (##cdr _%$tgt113871113889%_))) - (_%expr113899%_ _%$hd113872113892%_)) + (##cdr _%$tgt114030114048%_))) + (_%expr114058%_ _%$hd114031114051%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113873113895%_)) + (__AST-e _%$tl114032114054%_)) '()) - (__compile _%expr113899%_) - (_%$E113867113876%_))) - (_%$E113867113876%_))) - (_%$E113867113876%_)))) - _%hd113809%_)) + (__compile _%expr114058%_) + (_%$E114026114035%_))) + (_%$E114026114035%_))) + (_%$E114026114035%_)))) + _%hd113968%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body113903%_ + (_%body114062%_ (__compile - _%body113821%_))) + _%body113980%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?113758%_ - _%hd-ids113861%_)) - (_%compile-simple113755%_ + _%simple-bind?113917%_ + _%hd-ids114020%_)) + (_%compile-simple113914%_ (let () (declare (not safe)) - (##map _%car-e113759%_ - _%hd-ids113861%_)) - _%exprs113901%_ - _%body113903%_) - (_%compile-values113756%_ - _%hd-ids113861%_ - _%exprs113901%_ - _%body113903%_))) - (_%$E113764113786%_))) - (_%$E113764113786%_))) - (_%$E113764113786%_))) - (_%$E113764113786%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113761%_)) - (let* ((_%$tgt113774113909%_ - (let () (declare (not safe)) (__AST-e _%$e113761%_))) - (_%$hd113775113912%_ + (##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%_ (let () (declare (not safe)) - (##car _%$tgt113774113909%_))) - (_%$tl113776113915%_ + (##car _%$tgt113933114068%_))) + (_%$tl113935114074%_ (let () (declare (not safe)) - (##cdr _%$tgt113774113909%_)))) + (##cdr _%$tgt113933114068%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113776113915%_)) - (let* ((_%$tgt113777113919%_ + (__AST-pair? _%$tl113935114074%_)) + (let* ((_%$tgt113936114078%_ (let () (declare (not safe)) - (__AST-e _%$tl113776113915%_))) - (_%$hd113778113922%_ + (__AST-e _%$tl113935114074%_))) + (_%$hd113937114081%_ (let () (declare (not safe)) - (##car _%$tgt113777113919%_))) - (_%$tl113779113925%_ + (##car _%$tgt113936114078%_))) + (_%$tl113938114084%_ (let () (declare (not safe)) - (##cdr _%$tgt113777113919%_)))) + (##cdr _%$tgt113936114078%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd113778113922%_)) + (__AST-e _%$hd113937114081%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113779113925%_)) - (let* ((_%$tgt113780113929%_ + (__AST-pair? _%$tl113938114084%_)) + (let* ((_%$tgt113939114088%_ (let () (declare (not safe)) - (__AST-e _%$tl113779113925%_))) - (_%$hd113781113932%_ + (__AST-e _%$tl113938114084%_))) + (_%$hd113940114091%_ (let () (declare (not safe)) - (##car _%$tgt113780113929%_))) - (_%$tl113782113935%_ + (##car _%$tgt113939114088%_))) + (_%$tl113941114094%_ (let () (declare (not safe)) - (##cdr _%$tgt113780113929%_))) - (_%body113939%_ _%$hd113781113932%_)) + (##cdr _%$tgt113939114088%_))) + (_%body114098%_ _%$hd113940114091%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113782113935%_)) + (__AST-e _%$tl113941114094%_)) '()) - (__compile _%body113939%_) - (_%$E113763113906%_))) - (_%$E113763113906%_)) - (_%$E113763113906%_))) - (_%$E113763113906%_))) - (_%$E113763113906%_)))))) + (__compile _%body114098%_) + (_%$E113922114065%_))) + (_%$E113922114065%_)) + (_%$E113922114065%_))) + (_%$E113922114065%_))) + (_%$E113922114065%_)))))) (define __compile-let-values% - (lambda (_%stx113566%_) - (letrec ((_%compile-simple113568%_ - (lambda (_%hd-ids113750%_ _%exprs113751%_ _%body113752%_) + (lambda (_%stx113725%_) + (letrec ((_%compile-simple113727%_ + (lambda (_%hd-ids113909%_ _%exprs113910%_ _%body113911%_) (__SRC__% (cons 'let - (cons (let ((__tmp114869 + (cons (let ((__tmp115028 (map __compile-head-id - _%hd-ids113750%_))) + _%hd-ids113909%_))) (declare (not safe)) - (##map list __tmp114869 _%exprs113751%_)) - (cons _%body113752%_ '()))) - _%stx113566%_))) - (_%compile-values113569%_ - (lambda (_%hd-ids113665%_ _%exprs113666%_ _%body113667%_) - (let _%lp113669%_ ((_%rest113671%_ _%hd-ids113665%_) - (_%exprs113672%_ _%exprs113666%_) - (_%bind113673%_ '()) - (_%post113674%_ '())) - (let* ((_%rest113675113689%_ _%rest113671%_) - (_%else113678113697%_ + (##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%_ (lambda () (__SRC__% (cons 'let - (cons (reverse _%bind113673%_) - (cons (_%compile-post113570%_ - _%post113674%_ - _%body113667%_) + (cons (reverse _%bind113832%_) + (cons (_%compile-post113729%_ + _%post113833%_ + _%body113826%_) '()))) - _%stx113566%_)))) - (let ((_%K113683113733%_ - (lambda (_%rest113730%_ _%id113731%_) - (_%lp113669%_ - _%rest113730%_ - (cdr _%exprs113672%_) - (cons (cons (__compile-head-id _%id113731%_) - (cons (car _%exprs113672%_) '())) - _%bind113673%_) - _%post113674%_))) - (_%K113680113715%_ - (lambda (_%rest113701%_ _%hd113702%_) + _%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%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113702%_)) - (_%lp113669%_ - _%rest113701%_ - (cdr _%exprs113672%_) + (__AST-id? _%hd113861%_)) + (_%lp113828%_ + _%rest113860%_ + (cdr _%exprs113831%_) (cons (cons (__compile-head-id - _%hd113702%_) + _%hd113861%_) (cons (cons 'values->list - (cons (car _%exprs113672%_) + (cons (car _%exprs113831%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113673%_) - _%post113674%_) - (if (list? _%hd113702%_) - (let* ((_%len113706%_ + _%bind113832%_) + _%post113833%_) + (if (list? _%hd113861%_) + (let* ((_%len113865%_ (let () (declare (not safe)) - (##length _%hd113702%_))) - (_%tmp113708%_ + (##length _%hd113861%_))) + (_%tmp113867%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113669%_ - _%rest113701%_ - (cdr _%exprs113672%_) - (cons (cons _%tmp113708%_ - (cons (car _%exprs113672%_) + (_%lp113828%_ + _%rest113860%_ + (cdr _%exprs113831%_) + (cons (cons _%tmp113867%_ + (cons (car _%exprs113831%_) '())) - _%bind113673%_) - (cons (cons _%tmp113708%_ - (cons _%len113706%_ - (let ((__tmp114871 + _%bind113832%_) + (cons (cons _%tmp113867%_ + (cons _%len113865%_ + (let ((__tmp115030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113711%_ _%k113712%_) + (lambda (_%id113870%_ _%k113871%_) (if (let () (declare (not safe)) - (__AST-e _%id113711%_)) - (cons (__SRC__0 _%id113711%_) _%k113712%_) + (__AST-e _%id113870%_)) + (cons (__SRC__0 _%id113870%_) _%k113871%_) '#f))) - (__tmp114870 + (__tmp115029 (let () (declare (not safe)) - (##iota _%len113706%_)))) + (##iota _%len113865%_)))) (declare (not safe)) - (__filter-map2 __tmp114871 _%hd113702%_ __tmp114870)))) + (__filter-map2 __tmp115030 _%hd113861%_ __tmp115029)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113674%_))) + _%post113833%_))) (__compile-error__% - _%stx113566%_ - _%hd113702%_)))))) - (if (pair? _%rest113675113689%_) - (let ((_%tl113685113738%_ + _%stx113725%_ + _%hd113861%_)))))) + (if (pair? _%rest113834113848%_) + (let ((_%tl113844113897%_ (let () (declare (not safe)) - (##cdr _%rest113675113689%_))) - (_%hd113684113736%_ + (##cdr _%rest113834113848%_))) + (_%hd113843113895%_ (let () (declare (not safe)) - (##car _%rest113675113689%_)))) - (if (pair? _%hd113684113736%_) - (let ((_%tl113687113743%_ + (##car _%rest113834113848%_)))) + (if (pair? _%hd113843113895%_) + (let ((_%tl113846113902%_ (let () (declare (not safe)) - (##cdr _%hd113684113736%_))) - (_%hd113686113741%_ + (##cdr _%hd113843113895%_))) + (_%hd113845113900%_ (let () (declare (not safe)) - (##car _%hd113684113736%_)))) - (if (null? _%tl113687113743%_) - (let ((_%id113746%_ - _%hd113686113741%_) - (_%rest113748%_ - _%tl113685113738%_)) - (_%K113683113733%_ - _%rest113748%_ - _%id113746%_)) - (let ((_%hd113723%_ - _%hd113684113736%_) - (_%rest113725%_ - _%tl113685113738%_)) - (_%K113680113715%_ - _%rest113725%_ - _%hd113723%_)))) - (let ((_%hd113723%_ _%hd113684113736%_) - (_%rest113725%_ _%tl113685113738%_)) - (_%K113680113715%_ - _%rest113725%_ - _%hd113723%_)))) - (_%else113678113697%_))))))) - (_%compile-post113570%_ - (lambda (_%post113572%_ _%body113573%_) - (let _%lp113575%_ ((_%rest113577%_ _%post113572%_) - (_%check113578%_ '()) - (_%bind113579%_ '())) - (let* ((_%rest113580113592%_ _%rest113577%_) - (_%else113582113600%_ + (##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%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp114872 + (let ((__tmp115031 (cons (__SRC__% (cons 'let - (cons _%bind113579%_ + (cons _%bind113738%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body113573%_ '()))) + (cons _%body113732%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113566%_) + _%stx113725%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp114872 - _%check113578%_))) - _%stx113566%_))) - (_%K113584113639%_ - (lambda (_%rest113603%_ - _%init113604%_ - _%len113605%_ - _%tmp113606%_) - (_%lp113575%_ - _%rest113603%_ + __tmp115031 + _%check113737%_))) + _%stx113725%_))) + (_%K113743113798%_ + (lambda (_%rest113762%_ + _%init113763%_ + _%len113764%_ + _%tmp113765%_) + (_%lp113734%_ + _%rest113762%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113606%_ - (cons _%len113605%_ '()))) - _%stx113566%_) - _%check113578%_) - (let ((__tmp114873 - (lambda (_%hd113608%_ _%r113609%_) - (let* ((_%hd113610113617%_ - _%hd113608%_) - (_%E113612113621%_ + (cons _%tmp113765%_ + (cons _%len113764%_ '()))) + _%stx113725%_) + _%check113737%_) + (let ((__tmp115032 + (lambda (_%hd113767%_ _%r113768%_) + (let* ((_%hd113769113776%_ + _%hd113767%_) + (_%E113771113780%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113610113617%_ + _%hd113769113776%_ '([id . k]))) '#!void)) - (_%K113613113627%_ - (lambda (_%k113624%_ - _%id113625%_) - (cons (cons _%id113625%_ + (_%K113772113786%_ + (lambda (_%k113783%_ + _%id113784%_) + (cons (cons _%id113784%_ (cons (cons '##vector-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp113606%_ - (cons _%k113624%_ '()))) + (cons _%tmp113765%_ + (cons _%k113783%_ '()))) '())) - _%r113609%_)))) + _%r113768%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113610113617%_) - (let ((_%hd113614113630%_ + (if (pair? _%hd113769113776%_) + (let ((_%hd113773113789%_ (let () (declare (not safe)) - (##car _%hd113610113617%_))) - (_%tl113615113632%_ + (##car _%hd113769113776%_))) + (_%tl113774113791%_ (let () (declare (not safe)) - (##cdr _%hd113610113617%_)))) - (let* ((_%id113635%_ - _%hd113614113630%_) - (_%k113637%_ - _%tl113615113632%_)) - (_%K113613113627%_ - _%k113637%_ - _%id113635%_))) - (_%E113612113621%_)))))) + (##cdr _%hd113769113776%_)))) + (let* ((_%id113794%_ + _%hd113773113789%_) + (_%k113796%_ + _%tl113774113791%_)) + (_%K113772113786%_ + _%k113796%_ + _%id113794%_))) + (_%E113771113780%_)))))) (declare (not safe)) (__foldr1 - __tmp114873 - _%bind113579%_ - _%init113604%_)))))) - (if (pair? _%rest113580113592%_) - (let ((_%hd113585113642%_ + __tmp115032 + _%bind113738%_ + _%init113763%_)))))) + (if (pair? _%rest113739113751%_) + (let ((_%hd113744113801%_ (let () (declare (not safe)) - (##car _%rest113580113592%_))) - (_%tl113586113644%_ + (##car _%rest113739113751%_))) + (_%tl113745113803%_ (let () (declare (not safe)) - (##cdr _%rest113580113592%_)))) - (if (pair? _%hd113585113642%_) - (let ((_%hd113587113647%_ + (##cdr _%rest113739113751%_)))) + (if (pair? _%hd113744113801%_) + (let ((_%hd113746113806%_ (let () (declare (not safe)) - (##car _%hd113585113642%_))) - (_%tl113588113649%_ + (##car _%hd113744113801%_))) + (_%tl113747113808%_ (let () (declare (not safe)) - (##cdr _%hd113585113642%_)))) - (let ((_%tmp113652%_ _%hd113587113647%_)) - (if (pair? _%tl113588113649%_) - (let ((_%hd113589113654%_ + (##cdr _%hd113744113801%_)))) + (let ((_%tmp113811%_ _%hd113746113806%_)) + (if (pair? _%tl113747113808%_) + (let ((_%hd113748113813%_ (let () (declare (not safe)) - (##car _%tl113588113649%_))) - (_%tl113590113656%_ + (##car _%tl113747113808%_))) + (_%tl113749113815%_ (let () (declare (not safe)) - (##cdr _%tl113588113649%_)))) - (let* ((_%len113659%_ - _%hd113589113654%_) - (_%init113661%_ - _%tl113590113656%_) - (_%rest113663%_ - _%tl113586113644%_)) - (_%K113584113639%_ - _%rest113663%_ - _%init113661%_ - _%len113659%_ - _%tmp113652%_))) - (_%else113582113600%_)))) - (_%else113582113600%_))) - (_%else113582113600%_))))))) + (##cdr _%tl113747113808%_)))) + (let* ((_%len113818%_ + _%hd113748113813%_) + (_%init113820%_ + _%tl113749113815%_) + (_%rest113822%_ + _%tl113745113803%_)) + (_%K113743113798%_ + _%rest113822%_ + _%init113820%_ + _%len113818%_ + _%tmp113811%_))) + (_%else113741113759%_)))) + (_%else113741113759%_))) + (_%else113741113759%_))))))) (__compile-let-form - _%stx113566%_ - _%compile-simple113568%_ - _%compile-values113569%_)))) + _%stx113725%_ + _%compile-simple113727%_ + _%compile-values113728%_)))) (define __compile-letrec-values% - (lambda (_%stx113363%_) - (letrec ((_%compile-simple113365%_ - (lambda (_%hd-ids113562%_ _%exprs113563%_ _%body113564%_) + (lambda (_%stx113522%_) + (letrec ((_%compile-simple113524%_ + (lambda (_%hd-ids113721%_ _%exprs113722%_ _%body113723%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp114874 + (cons (let ((__tmp115033 (map __compile-head-id - _%hd-ids113562%_))) + _%hd-ids113721%_))) (declare (not safe)) - (##map list __tmp114874 _%exprs113563%_)) - (cons _%body113564%_ '()))) - _%stx113363%_))) - (_%compile-values113366%_ - (lambda (_%hd-ids113473%_ _%exprs113474%_ _%body113475%_) - (let _%lp113477%_ ((_%rest113479%_ _%hd-ids113473%_) - (_%exprs113480%_ _%exprs113474%_) - (_%pre113481%_ '()) - (_%bind113482%_ '()) - (_%post113483%_ '())) - (let* ((_%rest113484113498%_ _%rest113479%_) - (_%else113487113506%_ + (##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%_ (lambda () - (_%compile-inner113367%_ - _%pre113481%_ - _%bind113482%_ - _%post113483%_ - _%body113475%_)))) - (let ((_%K113492113545%_ - (lambda (_%rest113542%_ _%id113543%_) - (_%lp113477%_ - _%rest113542%_ - (cdr _%exprs113480%_) - _%pre113481%_ - (cons (cons (__compile-head-id _%id113543%_) - (cons (car _%exprs113480%_) '())) - _%bind113482%_) - _%post113483%_))) - (_%K113489113527%_ - (lambda (_%rest113510%_ _%hd113511%_) + (_%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%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113511%_)) - (_%lp113477%_ - _%rest113510%_ - (cdr _%exprs113480%_) - _%pre113481%_ + (__AST-id? _%hd113670%_)) + (_%lp113636%_ + _%rest113669%_ + (cdr _%exprs113639%_) + _%pre113640%_ (cons (cons (__compile-head-id - _%hd113511%_) + _%hd113670%_) (cons (cons 'values->list - (cons (car _%exprs113480%_) + (cons (car _%exprs113639%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113482%_) - _%post113483%_) - (if (list? _%hd113511%_) - (let* ((_%len113515%_ + _%bind113641%_) + _%post113642%_) + (if (list? _%hd113670%_) + (let* ((_%len113674%_ (let () (declare (not safe)) - (##length _%hd113511%_))) - (_%tmp113517%_ + (##length _%hd113670%_))) + (_%tmp113676%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113477%_ - _%rest113510%_ - (cdr _%exprs113480%_) - (let ((__tmp114875 - (lambda (_%id113520%_ - _%r113521%_) + (_%lp113636%_ + _%rest113669%_ + (cdr _%exprs113639%_) + (let ((__tmp115034 + (lambda (_%id113679%_ + _%r113680%_) (if (let () (declare (not safe)) - (__AST-e _%id113520%_)) + (__AST-e _%id113679%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id113520%_) + _%id113679%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113521%_) - _%r113521%_)))) + _%r113680%_) + _%r113680%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp114875 - _%pre113481%_ - _%hd113511%_)) - (cons (cons _%tmp113517%_ - (cons (car _%exprs113480%_) + __tmp115034 + _%pre113640%_ + _%hd113670%_)) + (cons (cons _%tmp113676%_ + (cons (car _%exprs113639%_) '())) - _%bind113482%_) - (cons (cons _%tmp113517%_ - (cons _%len113515%_ - (let ((__tmp114877 + _%bind113641%_) + (cons (cons _%tmp113676%_ + (cons _%len113674%_ + (let ((__tmp115036 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113523%_ _%k113524%_) + (lambda (_%id113682%_ _%k113683%_) (if (let () (declare (not safe)) - (__AST-e _%id113523%_)) - (cons (__SRC__0 _%id113523%_) _%k113524%_) + (__AST-e _%id113682%_)) + (cons (__SRC__0 _%id113682%_) _%k113683%_) '#f))) - (__tmp114876 + (__tmp115035 (let () (declare (not safe)) - (##iota _%len113515%_)))) + (##iota _%len113674%_)))) (declare (not safe)) - (__filter-map2 __tmp114877 _%hd113511%_ __tmp114876)))) + (__filter-map2 __tmp115036 _%hd113670%_ __tmp115035)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113483%_))) + _%post113642%_))) (__compile-error__% - _%stx113363%_ - _%hd113511%_)))))) - (if (pair? _%rest113484113498%_) - (let ((_%tl113494113550%_ + _%stx113522%_ + _%hd113670%_)))))) + (if (pair? _%rest113643113657%_) + (let ((_%tl113653113709%_ (let () (declare (not safe)) - (##cdr _%rest113484113498%_))) - (_%hd113493113548%_ + (##cdr _%rest113643113657%_))) + (_%hd113652113707%_ (let () (declare (not safe)) - (##car _%rest113484113498%_)))) - (if (pair? _%hd113493113548%_) - (let ((_%tl113496113555%_ + (##car _%rest113643113657%_)))) + (if (pair? _%hd113652113707%_) + (let ((_%tl113655113714%_ (let () (declare (not safe)) - (##cdr _%hd113493113548%_))) - (_%hd113495113553%_ + (##cdr _%hd113652113707%_))) + (_%hd113654113712%_ (let () (declare (not safe)) - (##car _%hd113493113548%_)))) - (if (null? _%tl113496113555%_) - (let ((_%id113558%_ - _%hd113495113553%_) - (_%rest113560%_ - _%tl113494113550%_)) - (_%K113492113545%_ - _%rest113560%_ - _%id113558%_)) - (let ((_%hd113535%_ - _%hd113493113548%_) - (_%rest113537%_ - _%tl113494113550%_)) - (_%K113489113527%_ - _%rest113537%_ - _%hd113535%_)))) - (let ((_%hd113535%_ _%hd113493113548%_) - (_%rest113537%_ _%tl113494113550%_)) - (_%K113489113527%_ - _%rest113537%_ - _%hd113535%_)))) - (_%else113487113506%_))))))) - (_%compile-inner113367%_ - (lambda (_%pre113468%_ - _%bind113469%_ - _%post113470%_ - _%body113471%_) - (if (null? _%pre113468%_) - (_%compile-bind113368%_ - _%bind113469%_ - _%post113470%_ - _%body113471%_) + (##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%_) (__SRC__% (cons 'let - (cons (reverse _%pre113468%_) - (cons (_%compile-bind113368%_ - _%bind113469%_ - _%post113470%_ - _%body113471%_) + (cons (reverse _%pre113627%_) + (cons (_%compile-bind113527%_ + _%bind113628%_ + _%post113629%_ + _%body113630%_) '()))) - _%stx113363%_)))) - (_%compile-bind113368%_ - (lambda (_%bind113464%_ _%post113465%_ _%body113466%_) + _%stx113522%_)))) + (_%compile-bind113527%_ + (lambda (_%bind113623%_ _%post113624%_ _%body113625%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind113464%_) - (cons (_%compile-post113369%_ - _%post113465%_ - _%body113466%_) + (cons (reverse _%bind113623%_) + (cons (_%compile-post113528%_ + _%post113624%_ + _%body113625%_) '()))) - _%stx113363%_))) - (_%compile-post113369%_ - (lambda (_%post113371%_ _%body113372%_) - (let _%lp113374%_ ((_%rest113376%_ _%post113371%_) - (_%check113377%_ '()) - (_%bind113378%_ '())) - (let* ((_%rest113379113391%_ _%rest113376%_) - (_%else113381113399%_ + _%stx113522%_))) + (_%compile-post113528%_ + (lambda (_%post113530%_ _%body113531%_) + (let _%lp113533%_ ((_%rest113535%_ _%post113530%_) + (_%check113536%_ '()) + (_%bind113537%_ '())) + (let* ((_%rest113538113550%_ _%rest113535%_) + (_%else113540113558%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp114878 - (let ((__tmp114879 - (cons _%body113372%_ + (let ((__tmp115037 + (let ((__tmp115038 + (cons _%body113531%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp114879 - _%bind113378%_)))) + __tmp115038 + _%bind113537%_)))) (declare (not safe)) (__foldr1 cons - __tmp114878 - _%check113377%_))) - _%stx113363%_))) - (_%K113383113438%_ - (lambda (_%rest113402%_ - _%init113403%_ - _%len113404%_ - _%tmp113405%_) - (_%lp113374%_ - _%rest113402%_ + __tmp115037 + _%check113536%_))) + _%stx113522%_))) + (_%K113542113597%_ + (lambda (_%rest113561%_ + _%init113562%_ + _%len113563%_ + _%tmp113564%_) + (_%lp113533%_ + _%rest113561%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113405%_ - (cons _%len113404%_ '()))) - _%stx113363%_) - _%check113377%_) - (let ((__tmp114880 - (lambda (_%hd113407%_ _%r113408%_) - (let* ((_%hd113409113416%_ - _%hd113407%_) - (_%E113411113420%_ + (cons _%tmp113564%_ + (cons _%len113563%_ '()))) + _%stx113522%_) + _%check113536%_) + (let ((__tmp115039 + (lambda (_%hd113566%_ _%r113567%_) + (let* ((_%hd113568113575%_ + _%hd113566%_) + (_%E113570113579%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113409113416%_ + _%hd113568113575%_ '([id . k]))) '#!void)) - (_%K113412113426%_ - (lambda (_%k113423%_ - _%id113424%_) + (_%K113571113585%_ + (lambda (_%k113582%_ + _%id113583%_) (cons (cons 'set! - (cons _%id113424%_ + (cons _%id113583%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '##vector-ref - (cons _%tmp113405%_ - (cons _%k113423%_ '()))) + (cons _%tmp113564%_ + (cons _%k113582%_ '()))) '()))) - _%r113408%_)))) + _%r113567%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113409113416%_) - (let ((_%hd113413113429%_ + (if (pair? _%hd113568113575%_) + (let ((_%hd113572113588%_ (let () (declare (not safe)) - (##car _%hd113409113416%_))) - (_%tl113414113431%_ + (##car _%hd113568113575%_))) + (_%tl113573113590%_ (let () (declare (not safe)) - (##cdr _%hd113409113416%_)))) - (let* ((_%id113434%_ - _%hd113413113429%_) - (_%k113436%_ - _%tl113414113431%_)) - (_%K113412113426%_ - _%k113436%_ - _%id113434%_))) - (_%E113411113420%_)))))) + (##cdr _%hd113568113575%_)))) + (let* ((_%id113593%_ + _%hd113572113588%_) + (_%k113595%_ + _%tl113573113590%_)) + (_%K113571113585%_ + _%k113595%_ + _%id113593%_))) + (_%E113570113579%_)))))) (declare (not safe)) (__foldr1 - __tmp114880 - _%bind113378%_ - _%init113403%_)))))) - (if (pair? _%rest113379113391%_) - (let ((_%hd113384113441%_ + __tmp115039 + _%bind113537%_ + _%init113562%_)))))) + (if (pair? _%rest113538113550%_) + (let ((_%hd113543113600%_ (let () (declare (not safe)) - (##car _%rest113379113391%_))) - (_%tl113385113443%_ + (##car _%rest113538113550%_))) + (_%tl113544113602%_ (let () (declare (not safe)) - (##cdr _%rest113379113391%_)))) - (if (pair? _%hd113384113441%_) - (let ((_%hd113386113446%_ + (##cdr _%rest113538113550%_)))) + (if (pair? _%hd113543113600%_) + (let ((_%hd113545113605%_ (let () (declare (not safe)) - (##car _%hd113384113441%_))) - (_%tl113387113448%_ + (##car _%hd113543113600%_))) + (_%tl113546113607%_ (let () (declare (not safe)) - (##cdr _%hd113384113441%_)))) - (let ((_%tmp113451%_ _%hd113386113446%_)) - (if (pair? _%tl113387113448%_) - (let ((_%hd113388113453%_ + (##cdr _%hd113543113600%_)))) + (let ((_%tmp113610%_ _%hd113545113605%_)) + (if (pair? _%tl113546113607%_) + (let ((_%hd113547113612%_ (let () (declare (not safe)) - (##car _%tl113387113448%_))) - (_%tl113389113455%_ + (##car _%tl113546113607%_))) + (_%tl113548113614%_ (let () (declare (not safe)) - (##cdr _%tl113387113448%_)))) - (let* ((_%len113458%_ - _%hd113388113453%_) - (_%init113460%_ - _%tl113389113455%_) - (_%rest113462%_ - _%tl113385113443%_)) - (_%K113383113438%_ - _%rest113462%_ - _%init113460%_ - _%len113458%_ - _%tmp113451%_))) - (_%else113381113399%_)))) - (_%else113381113399%_))) - (_%else113381113399%_))))))) + (##cdr _%tl113546113607%_)))) + (let* ((_%len113617%_ + _%hd113547113612%_) + (_%init113619%_ + _%tl113548113614%_) + (_%rest113621%_ + _%tl113544113602%_)) + (_%K113542113597%_ + _%rest113621%_ + _%init113619%_ + _%len113617%_ + _%tmp113610%_))) + (_%else113540113558%_)))) + (_%else113540113558%_))) + (_%else113540113558%_))))))) (__compile-let-form - _%stx113363%_ - _%compile-simple113365%_ - _%compile-values113366%_)))) + _%stx113522%_ + _%compile-simple113524%_ + _%compile-values113525%_)))) (define __compile-letrec*-values% - (lambda (_%stx113114%_) - (letrec ((_%compile-simple113116%_ - (lambda (_%hd-ids113359%_ _%exprs113360%_ _%body113361%_) + (lambda (_%stx113273%_) + (letrec ((_%compile-simple113275%_ + (lambda (_%hd-ids113518%_ _%exprs113519%_ _%body113520%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp114881 + (cons (let ((__tmp115040 (map __compile-head-id - _%hd-ids113359%_))) + _%hd-ids113518%_))) (declare (not safe)) - (##map list __tmp114881 _%exprs113360%_)) - (cons _%body113361%_ '()))) - _%stx113114%_))) - (_%compile-values113117%_ - (lambda (_%hd-ids113266%_ _%exprs113267%_ _%body113268%_) - (let _%lp113270%_ ((_%rest113272%_ _%hd-ids113266%_) - (_%exprs113273%_ _%exprs113267%_) - (_%bind113274%_ '()) - (_%post113275%_ '())) - (let* ((_%rest113276113290%_ _%rest113272%_) - (_%else113279113298%_ + (##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%_ (lambda () - (_%compile-bind113118%_ - _%bind113274%_ - _%post113275%_ - _%body113268%_)))) - (let ((_%K113284113342%_ - (lambda (_%rest113337%_ _%hd113338%_) + (_%compile-bind113277%_ + _%bind113433%_ + _%post113434%_ + _%body113427%_)))) + (let ((_%K113443113501%_ + (lambda (_%rest113496%_ _%hd113497%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113338%_)) - (let ((_%id113340%_ - (__SRC__0 _%hd113338%_))) - (_%lp113270%_ - _%rest113337%_ - (cdr _%exprs113273%_) - (cons (cons _%id113340%_ + (__AST-id? _%hd113497%_)) + (let ((_%id113499%_ + (__SRC__0 _%hd113497%_))) + (_%lp113429%_ + _%rest113496%_ + (cdr _%exprs113432%_) + (cons (cons _%id113499%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113274%_) - (cons (cons _%id113340%_ - (cons (car _%exprs113273%_) + _%bind113433%_) + (cons (cons _%id113499%_ + (cons (car _%exprs113432%_) '())) - _%post113275%_))) - (_%lp113270%_ - _%rest113337%_ - (cdr _%exprs113273%_) - _%bind113274%_ + _%post113434%_))) + (_%lp113429%_ + _%rest113496%_ + (cdr _%exprs113432%_) + _%bind113433%_ (cons (cons '#f - (cons (car _%exprs113273%_) + (cons (car _%exprs113432%_) '())) - _%post113275%_))))) - (_%K113281113322%_ - (lambda (_%rest113302%_ _%hd113303%_) + _%post113434%_))))) + (_%K113440113481%_ + (lambda (_%rest113461%_ _%hd113462%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113303%_)) - (let ((_%id113306%_ - (__SRC__0 _%hd113303%_))) - (_%lp113270%_ - _%rest113302%_ - (cdr _%exprs113273%_) - (cons (cons _%id113306%_ + (__AST-id? _%hd113462%_)) + (let ((_%id113465%_ + (__SRC__0 _%hd113462%_))) + (_%lp113429%_ + _%rest113461%_ + (cdr _%exprs113432%_) + (cons (cons _%id113465%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113274%_) - (cons (cons _%id113306%_ + _%bind113433%_) + (cons (cons _%id113465%_ (cons (cons 'values->list - (cons (car _%exprs113273%_) + (cons (car _%exprs113432%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113275%_))) + _%post113434%_))) (if (let () (declare (not safe)) - (__AST-e _%hd113303%_)) - (if (list? _%hd113303%_) - (let* ((_%len113310%_ + (__AST-e _%hd113462%_)) + (if (list? _%hd113462%_) + (let* ((_%len113469%_ (let () (declare (not safe)) (##length - _%hd113303%_))) - (_%tmp113312%_ + _%hd113462%_))) + (_%tmp113471%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113270%_ - _%rest113302%_ - (cdr _%exprs113273%_) - (let ((__tmp114882 - (lambda (_%id113315%_ - _%r113316%_) + (_%lp113429%_ + _%rest113461%_ + (cdr _%exprs113432%_) + (let ((__tmp115041 + (lambda (_%id113474%_ + _%r113475%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id113315%_)) - (cons (cons (__SRC__0 _%id113315%_) + (__AST-e _%id113474%_)) + (cons (cons (__SRC__0 _%id113474%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113316%_) - _%r113316%_)))) + _%r113475%_) + _%r113475%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp114882 - _%bind113274%_ - _%hd113303%_)) - (cons (cons _%tmp113312%_ - (cons (car _%exprs113273%_) + __tmp115041 + _%bind113433%_ + _%hd113462%_)) + (cons (cons _%tmp113471%_ + (cons (car _%exprs113432%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len113310%_ - (let ((__tmp114884 - (lambda (_%id113318%_ _%k113319%_) + (cons _%len113469%_ + (let ((__tmp115043 + (lambda (_%id113477%_ _%k113478%_) (if (let () (declare (not safe)) - (__AST-e _%id113318%_)) - (cons (__SRC__0 _%id113318%_) - _%k113319%_) + (__AST-e _%id113477%_)) + (cons (__SRC__0 _%id113477%_) + _%k113478%_) '#f))) - (__tmp114883 + (__tmp115042 (let () (declare (not safe)) - (##iota _%len113310%_)))) + (##iota _%len113469%_)))) (declare (not safe)) (__filter-map2 - __tmp114884 - _%hd113303%_ - __tmp114883))))) - _%post113275%_))) + __tmp115043 + _%hd113462%_ + __tmp115042))))) + _%post113434%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx113114%_ - _%hd113303%_)) - (_%lp113270%_ - _%rest113302%_ - (cdr _%exprs113273%_) - _%bind113274%_ + _%stx113273%_ + _%hd113462%_)) + (_%lp113429%_ + _%rest113461%_ + (cdr _%exprs113432%_) + _%bind113433%_ (cons (cons '#f - (cons (car _%exprs113273%_) + (cons (car _%exprs113432%_) '())) - _%post113275%_))))))) - (if (pair? _%rest113276113290%_) - (let ((_%tl113286113347%_ + _%post113434%_))))))) + (if (pair? _%rest113435113449%_) + (let ((_%tl113445113506%_ (let () (declare (not safe)) - (##cdr _%rest113276113290%_))) - (_%hd113285113345%_ + (##cdr _%rest113435113449%_))) + (_%hd113444113504%_ (let () (declare (not safe)) - (##car _%rest113276113290%_)))) - (if (pair? _%hd113285113345%_) - (let ((_%tl113288113352%_ + (##car _%rest113435113449%_)))) + (if (pair? _%hd113444113504%_) + (let ((_%tl113447113511%_ (let () (declare (not safe)) - (##cdr _%hd113285113345%_))) - (_%hd113287113350%_ + (##cdr _%hd113444113504%_))) + (_%hd113446113509%_ (let () (declare (not safe)) - (##car _%hd113285113345%_)))) - (if (null? _%tl113288113352%_) - (let ((_%hd113355%_ - _%hd113287113350%_) - (_%rest113357%_ - _%tl113286113347%_)) - (_%K113284113342%_ - _%rest113357%_ - _%hd113355%_)) - (let ((_%hd113330%_ - _%hd113285113345%_) - (_%rest113332%_ - _%tl113286113347%_)) - (_%K113281113322%_ - _%rest113332%_ - _%hd113330%_)))) - (let ((_%hd113330%_ _%hd113285113345%_) - (_%rest113332%_ _%tl113286113347%_)) - (_%K113281113322%_ - _%rest113332%_ - _%hd113330%_)))) - (_%else113279113298%_))))))) - (_%compile-bind113118%_ - (lambda (_%bind113262%_ _%post113263%_ _%body113264%_) + (##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%_) (__SRC__% (cons 'let - (cons (reverse _%bind113262%_) - (cons (_%compile-post113119%_ - _%post113263%_ - _%body113264%_) + (cons (reverse _%bind113421%_) + (cons (_%compile-post113278%_ + _%post113422%_ + _%body113423%_) '()))) - _%stx113114%_))) - (_%compile-post113119%_ - (lambda (_%post113121%_ _%body113122%_) + _%stx113273%_))) + (_%compile-post113278%_ + (lambda (_%post113280%_ _%body113281%_) (__SRC__% (cons 'begin - (let ((__tmp114885 - (let ((__tmp114887 - (lambda (_%hd113124%_ _%r113125%_) - (let* ((_%hd113126113149%_ - _%hd113124%_) - (_%E113130113153%_ + (let ((__tmp115044 + (let ((__tmp115046 + (lambda (_%hd113283%_ _%r113284%_) + (let* ((_%hd113285113308%_ + _%hd113283%_) + (_%E113289113312%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113126113149%_ + _%hd113285113308%_ '([#f expr]) '([id expr]) '([tmp @@ -2203,553 +2203,553 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K113143113247%_ - (lambda (_%expr113245%_) - (cons _%expr113245%_ - _%r113125%_))) - (_%K113138113225%_ - (lambda (_%expr113222%_ - _%id113223%_) + (let ((_%K113302113406%_ + (lambda (_%expr113404%_) + (cons _%expr113404%_ + _%r113284%_))) + (_%K113297113384%_ + (lambda (_%expr113381%_ + _%id113382%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id113223%_ (cons _%expr113222%_ '()))) - _%stx113114%_) - _%r113125%_))) + (cons _%id113382%_ (cons _%expr113381%_ '()))) + _%stx113273%_) + _%r113284%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K113131113192%_ - (lambda (_%init113157%_ - _%len113158%_ - _%expr113159%_ - _%tmp113160%_) + (_%K113290113351%_ + (lambda (_%init113316%_ + _%len113317%_ + _%expr113318%_ + _%tmp113319%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp113160%_ - (cons _%expr113159%_ '())) + (cons (cons (cons _%tmp113319%_ + (cons _%expr113318%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp113160%_ - (cons _%len113158%_ '()))) - _%stx113114%_) - (let ((__tmp114888 - (map (lambda (_%hd113162%_) - (let* ((_%hd113163113170%_ - _%hd113162%_) - (_%E113165113174%_ + (cons _%tmp113319%_ + (cons _%len113317%_ '()))) + _%stx113273%_) + (let ((__tmp115047 + (map (lambda (_%hd113321%_) + (let* ((_%hd113322113329%_ + _%hd113321%_) + (_%E113324113333%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd113163113170%_ + _%hd113322113329%_ '([id . k]))) '#!void)) - (_%K113166113180%_ - (lambda (_%k113177%_ _%id113178%_) + (_%K113325113339%_ + (lambda (_%k113336%_ _%id113337%_) (__SRC__% (cons 'set! - (cons _%id113178%_ + (cons _%id113337%_ (cons (cons '##vector-ref - (cons _%tmp113160%_ - (cons _%k113177%_ '()))) + (cons _%tmp113319%_ + (cons _%k113336%_ '()))) '()))) - _%stx113114%_)))) - (if (pair? _%hd113163113170%_) - (let ((_%hd113167113183%_ + _%stx113273%_)))) + (if (pair? _%hd113322113329%_) + (let ((_%hd113326113342%_ (let () (declare (not safe)) - (##car _%hd113163113170%_))) - (_%tl113168113185%_ + (##car _%hd113322113329%_))) + (_%tl113327113344%_ (let () (declare (not safe)) - (##cdr _%hd113163113170%_)))) - (let* ((_%id113188%_ _%hd113167113183%_) - (_%k113190%_ _%tl113168113185%_)) - (_%K113166113180%_ _%k113190%_ _%id113188%_))) - (_%E113165113174%_)))) + (##cdr _%hd113322113329%_)))) + (let* ((_%id113347%_ _%hd113326113342%_) + (_%k113349%_ _%tl113327113344%_)) + (_%K113325113339%_ _%k113349%_ _%id113347%_))) + (_%E113324113333%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init113157%_))) + _%init113316%_))) (declare (not safe)) - (__foldr1 cons '() __tmp114888))))) - _%stx113114%_) - _%r113125%_)))) + (__foldr1 cons '() __tmp115047))))) + _%stx113273%_) + _%r113284%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match114741114742%_ - (lambda (_%hd113132113195%_ - _%tl113133113197%_ - _%hd113134113202%_ - _%tl113135113204%_) - (let ((_%tmp113200%_ - _%hd113132113195%_) - (_%expr113207%_ - _%hd113134113202%_)) - (_%E113130113153%_)))) - (_%__match114735114736%_ - (lambda (_%hd113132113195%_ - _%tl113133113197%_) - (let ((_%tmp113200%_ - _%hd113132113195%_)) - (_%E113130113153%_))))) - (if (pair? _%hd113126113149%_) - (let ((_%tl113145113252%_ + (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 () (declare (not safe)) - (##cdr _%hd113126113149%_))) - (_%hd113144113250%_ + (##cdr _%hd113285113308%_))) + (_%hd113303113409%_ (let () (declare (not safe)) - (##car _%hd113126113149%_)))) + (##car _%hd113285113308%_)))) (if (let () (declare (not safe)) - (##eq? _%hd113144113250%_ + (##eq? _%hd113303113409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (if (pair? _%tl113145113252%_) - (let ((_%tl113147113257%_ + (if (pair? _%tl113304113411%_) + (let ((_%tl113306113416%_ (let () (declare (not safe)) - (##cdr _%tl113145113252%_))) - (_%hd113146113255%_ + (##cdr _%tl113304113411%_))) + (_%hd113305113414%_ (let () (declare (not safe)) - (##car _%tl113145113252%_)))) - (if (null? _%tl113147113257%_) - (let ((_%expr113260%_ _%hd113146113255%_)) - (_%K113143113247%_ _%expr113260%_)) - (if (pair? _%tl113147113257%_) - (let ((_%tl113137113211%_ + (##car _%tl113304113411%_)))) + (if (null? _%tl113306113416%_) + (let ((_%expr113419%_ _%hd113305113414%_)) + (_%K113302113406%_ _%expr113419%_)) + (if (pair? _%tl113306113416%_) + (let ((_%tl113296113370%_ (let () (declare (not safe)) - (##cdr _%tl113147113257%_))) - (_%hd113136113209%_ + (##cdr _%tl113306113416%_))) + (_%hd113295113368%_ (let () (declare (not safe)) - (##car _%tl113147113257%_)))) - (let ((_%tmp113200%_ _%hd113144113250%_) - (_%expr113207%_ _%hd113146113255%_) - (_%len113214%_ _%hd113136113209%_) - (_%init113216%_ _%tl113137113211%_)) - (_%K113131113192%_ - _%init113216%_ - _%len113214%_ - _%expr113207%_ - _%tmp113200%_))) - (_%__match114741114742%_ - _%hd113144113250%_ - _%tl113145113252%_ - _%hd113146113255%_ - _%tl113147113257%_)))) - (_%__match114735114736%_ - _%hd113144113250%_ - _%tl113145113252%_)) - (if (pair? _%tl113145113252%_) - (let ((_%tl113142113237%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%tl113145113252%_))) - (_%hd113141113235%_ + (##cdr _%tl113304113411%_))) + (_%hd113300113394%_ (let () (declare (not safe)) - (##car _%tl113145113252%_)))) - (if (null? _%tl113142113237%_) - (let ((_%id113233%_ _%hd113144113250%_) - (_%expr113240%_ _%hd113141113235%_)) - (_%K113138113225%_ _%expr113240%_ _%id113233%_)) - (if (pair? _%tl113142113237%_) - (let ((_%tl113137113211%_ + (##car _%tl113304113411%_)))) + (if (null? _%tl113301113396%_) + (let ((_%id113392%_ _%hd113303113409%_) + (_%expr113399%_ _%hd113300113394%_)) + (_%K113297113384%_ _%expr113399%_ _%id113392%_)) + (if (pair? _%tl113301113396%_) + (let ((_%tl113296113370%_ (let () (declare (not safe)) - (##cdr _%tl113142113237%_))) - (_%hd113136113209%_ + (##cdr _%tl113301113396%_))) + (_%hd113295113368%_ (let () (declare (not safe)) - (##car _%tl113142113237%_)))) - (let ((_%tmp113200%_ _%hd113144113250%_) - (_%expr113207%_ _%hd113141113235%_) - (_%len113214%_ _%hd113136113209%_) - (_%init113216%_ _%tl113137113211%_)) - (_%K113131113192%_ - _%init113216%_ - _%len113214%_ - _%expr113207%_ - _%tmp113200%_))) - (_%__match114741114742%_ - _%hd113144113250%_ - _%tl113145113252%_ - _%hd113141113235%_ - _%tl113142113237%_)))) - (_%__match114735114736%_ - _%hd113144113250%_ - _%tl113145113252%_)))) + (##car _%tl113301113396%_)))) + (let ((_%tmp113359%_ _%hd113303113409%_) + (_%expr113366%_ _%hd113300113394%_) + (_%len113373%_ _%hd113295113368%_) + (_%init113375%_ _%tl113296113370%_)) + (_%K113290113351%_ + _%init113375%_ + _%len113373%_ + _%expr113366%_ + _%tmp113359%_))) + (_%__match114900114901%_ + _%hd113303113409%_ + _%tl113304113411%_ + _%hd113300113394%_ + _%tl113301113396%_)))) + (_%__match114894114895%_ + _%hd113303113409%_ + _%tl113304113411%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E113130113153%_))))))) - (__tmp114886 (list _%body113122%_))) + (_%E113289113312%_))))))) + (__tmp115045 (list _%body113281%_))) (declare (not safe)) (__foldl1 - __tmp114887 - __tmp114886 - _%post113121%_)))) + __tmp115046 + __tmp115045 + _%post113280%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp114885))) - _%stx113114%_)))) + (__foldr1 cons '() __tmp115044))) + _%stx113273%_)))) (__compile-let-form - _%stx113114%_ - _%compile-simple113116%_ - _%compile-values113117%_)))) + _%stx113273%_ + _%compile-simple113275%_ + _%compile-values113276%_)))) (define __compile-call% - (lambda (_%stx113074%_) - (let* ((_%$e113076%_ _%stx113074%_) - (_%$E113078113087%_ + (lambda (_%stx113233%_) + (let* ((_%$e113235%_ _%stx113233%_) + (_%$E113237113246%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113076%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113076%_)) - (let* ((_%$tgt113079113090%_ - (let () (declare (not safe)) (__AST-e _%$e113076%_))) - (_%$hd113080113093%_ + _%$e113235%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113235%_)) + (let* ((_%$tgt113238113249%_ + (let () (declare (not safe)) (__AST-e _%$e113235%_))) + (_%$hd113239113252%_ (let () (declare (not safe)) - (##car _%$tgt113079113090%_))) - (_%$tl113081113096%_ + (##car _%$tgt113238113249%_))) + (_%$tl113240113255%_ (let () (declare (not safe)) - (##cdr _%$tgt113079113090%_)))) + (##cdr _%$tgt113238113249%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113081113096%_)) - (let* ((_%$tgt113082113100%_ + (__AST-pair? _%$tl113240113255%_)) + (let* ((_%$tgt113241113259%_ (let () (declare (not safe)) - (__AST-e _%$tl113081113096%_))) - (_%$hd113083113103%_ + (__AST-e _%$tl113240113255%_))) + (_%$hd113242113262%_ (let () (declare (not safe)) - (##car _%$tgt113082113100%_))) - (_%$tl113084113106%_ + (##car _%$tgt113241113259%_))) + (_%$tl113243113265%_ (let () (declare (not safe)) - (##cdr _%$tgt113082113100%_))) - (_%rator113110%_ _%$hd113083113103%_) - (_%rands113112%_ _%$tl113084113106%_)) + (##cdr _%$tgt113241113259%_))) + (_%rator113269%_ _%$hd113242113262%_) + (_%rands113271%_ _%$tl113243113265%_)) (__SRC__% - (cons (__compile _%rator113110%_) - (map __compile _%rands113112%_)) - _%stx113074%_)) - (_%$E113078113087%_))) - (_%$E113078113087%_))))) + (cons (__compile _%rator113269%_) + (map __compile _%rands113271%_)) + _%stx113233%_)) + (_%$E113237113246%_))) + (_%$E113237113246%_))))) (define __compile-ref% - (lambda (_%stx113036%_) - (let* ((_%$e113038%_ _%stx113036%_) - (_%$E113040113049%_ + (lambda (_%stx113195%_) + (let* ((_%$e113197%_ _%stx113195%_) + (_%$E113199113208%_ (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%_ + _%$e113197%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113197%_)) + (let* ((_%$tgt113200113211%_ + (let () (declare (not safe)) (__AST-e _%$e113197%_))) + (_%$hd113201113214%_ (let () (declare (not safe)) - (##car _%$tgt113041113052%_))) - (_%$tl113043113058%_ + (##car _%$tgt113200113211%_))) + (_%$tl113202113217%_ (let () (declare (not safe)) - (##cdr _%$tgt113041113052%_)))) + (##cdr _%$tgt113200113211%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113043113058%_)) - (let* ((_%$tgt113044113062%_ + (__AST-pair? _%$tl113202113217%_)) + (let* ((_%$tgt113203113221%_ (let () (declare (not safe)) - (__AST-e _%$tl113043113058%_))) - (_%$hd113045113065%_ + (__AST-e _%$tl113202113217%_))) + (_%$hd113204113224%_ (let () (declare (not safe)) - (##car _%$tgt113044113062%_))) - (_%$tl113046113068%_ + (##car _%$tgt113203113221%_))) + (_%$tl113205113227%_ (let () (declare (not safe)) - (##cdr _%$tgt113044113062%_))) - (_%id113072%_ _%$hd113045113065%_)) + (##cdr _%$tgt113203113221%_))) + (_%id113231%_ _%$hd113204113224%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113046113068%_)) + (__AST-e _%$tl113205113227%_)) '()) - (__SRC__% _%id113072%_ _%stx113036%_) - (_%$E113040113049%_))) - (_%$E113040113049%_))) - (_%$E113040113049%_))))) + (__SRC__% _%id113231%_ _%stx113195%_) + (_%$E113199113208%_))) + (_%$E113199113208%_))) + (_%$E113199113208%_))))) (define __compile-setq% - (lambda (_%stx112983%_) - (let* ((_%$e112985%_ _%stx112983%_) - (_%$E112987112999%_ + (lambda (_%stx113142%_) + (let* ((_%$e113144%_ _%stx113142%_) + (_%$E113146113158%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112985%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112985%_)) - (let* ((_%$tgt112988113002%_ - (let () (declare (not safe)) (__AST-e _%$e112985%_))) - (_%$hd112989113005%_ + _%$e113144%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113144%_)) + (let* ((_%$tgt113147113161%_ + (let () (declare (not safe)) (__AST-e _%$e113144%_))) + (_%$hd113148113164%_ (let () (declare (not safe)) - (##car _%$tgt112988113002%_))) - (_%$tl112990113008%_ + (##car _%$tgt113147113161%_))) + (_%$tl113149113167%_ (let () (declare (not safe)) - (##cdr _%$tgt112988113002%_)))) + (##cdr _%$tgt113147113161%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112990113008%_)) - (let* ((_%$tgt112991113012%_ + (__AST-pair? _%$tl113149113167%_)) + (let* ((_%$tgt113150113171%_ (let () (declare (not safe)) - (__AST-e _%$tl112990113008%_))) - (_%$hd112992113015%_ + (__AST-e _%$tl113149113167%_))) + (_%$hd113151113174%_ (let () (declare (not safe)) - (##car _%$tgt112991113012%_))) - (_%$tl112993113018%_ + (##car _%$tgt113150113171%_))) + (_%$tl113152113177%_ (let () (declare (not safe)) - (##cdr _%$tgt112991113012%_))) - (_%id113022%_ _%$hd112992113015%_)) + (##cdr _%$tgt113150113171%_))) + (_%id113181%_ _%$hd113151113174%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112993113018%_)) - (let* ((_%$tgt112994113024%_ + (__AST-pair? _%$tl113152113177%_)) + (let* ((_%$tgt113153113183%_ (let () (declare (not safe)) - (__AST-e _%$tl112993113018%_))) - (_%$hd112995113027%_ + (__AST-e _%$tl113152113177%_))) + (_%$hd113154113186%_ (let () (declare (not safe)) - (##car _%$tgt112994113024%_))) - (_%$tl112996113030%_ + (##car _%$tgt113153113183%_))) + (_%$tl113155113189%_ (let () (declare (not safe)) - (##cdr _%$tgt112994113024%_))) - (_%expr113034%_ _%$hd112995113027%_)) + (##cdr _%$tgt113153113183%_))) + (_%expr113193%_ _%$hd113154113186%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112996113030%_)) + (__AST-e _%$tl113155113189%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id113022%_ - _%stx112983%_) - (cons (__compile _%expr113034%_) + _%id113181%_ + _%stx113142%_) + (cons (__compile _%expr113193%_) '()))) - _%stx112983%_) - (_%$E112987112999%_))) - (_%$E112987112999%_))) - (_%$E112987112999%_))) - (_%$E112987112999%_))))) + _%stx113142%_) + (_%$E113146113158%_))) + (_%$E113146113158%_))) + (_%$E113146113158%_))) + (_%$E113146113158%_))))) (define __compile-if% - (lambda (_%stx112915%_) - (let* ((_%$e112917%_ _%stx112915%_) - (_%$E112919112934%_ + (lambda (_%stx113074%_) + (let* ((_%$e113076%_ _%stx113074%_) + (_%$E113078113093%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112917%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112917%_)) - (let* ((_%$tgt112920112937%_ - (let () (declare (not safe)) (__AST-e _%$e112917%_))) - (_%$hd112921112940%_ + _%$e113076%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113076%_)) + (let* ((_%$tgt113079113096%_ + (let () (declare (not safe)) (__AST-e _%$e113076%_))) + (_%$hd113080113099%_ (let () (declare (not safe)) - (##car _%$tgt112920112937%_))) - (_%$tl112922112943%_ + (##car _%$tgt113079113096%_))) + (_%$tl113081113102%_ (let () (declare (not safe)) - (##cdr _%$tgt112920112937%_)))) + (##cdr _%$tgt113079113096%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112922112943%_)) - (let* ((_%$tgt112923112947%_ + (__AST-pair? _%$tl113081113102%_)) + (let* ((_%$tgt113082113106%_ (let () (declare (not safe)) - (__AST-e _%$tl112922112943%_))) - (_%$hd112924112950%_ + (__AST-e _%$tl113081113102%_))) + (_%$hd113083113109%_ (let () (declare (not safe)) - (##car _%$tgt112923112947%_))) - (_%$tl112925112953%_ + (##car _%$tgt113082113106%_))) + (_%$tl113084113112%_ (let () (declare (not safe)) - (##cdr _%$tgt112923112947%_))) - (_%p112957%_ _%$hd112924112950%_)) + (##cdr _%$tgt113082113106%_))) + (_%p113116%_ _%$hd113083113109%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112925112953%_)) - (let* ((_%$tgt112926112959%_ + (__AST-pair? _%$tl113084113112%_)) + (let* ((_%$tgt113085113118%_ (let () (declare (not safe)) - (__AST-e _%$tl112925112953%_))) - (_%$hd112927112962%_ + (__AST-e _%$tl113084113112%_))) + (_%$hd113086113121%_ (let () (declare (not safe)) - (##car _%$tgt112926112959%_))) - (_%$tl112928112965%_ + (##car _%$tgt113085113118%_))) + (_%$tl113087113124%_ (let () (declare (not safe)) - (##cdr _%$tgt112926112959%_))) - (_%t112969%_ _%$hd112927112962%_)) + (##cdr _%$tgt113085113118%_))) + (_%t113128%_ _%$hd113086113121%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112928112965%_)) - (let* ((_%$tgt112929112971%_ + (__AST-pair? _%$tl113087113124%_)) + (let* ((_%$tgt113088113130%_ (let () (declare (not safe)) - (__AST-e _%$tl112928112965%_))) - (_%$hd112930112974%_ + (__AST-e _%$tl113087113124%_))) + (_%$hd113089113133%_ (let () (declare (not safe)) - (##car _%$tgt112929112971%_))) - (_%$tl112931112977%_ + (##car _%$tgt113088113130%_))) + (_%$tl113090113136%_ (let () (declare (not safe)) - (##cdr _%$tgt112929112971%_))) - (_%f112981%_ _%$hd112930112974%_)) + (##cdr _%$tgt113088113130%_))) + (_%f113140%_ _%$hd113089113133%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112931112977%_)) + (__AST-e _%$tl113090113136%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p112957%_) + (cons (__compile _%p113116%_) (cons (__compile - _%t112969%_) + _%t113128%_) (cons (__compile - _%f112981%_) + _%f113140%_) '())))) - _%stx112915%_) - (_%$E112919112934%_))) - (_%$E112919112934%_))) - (_%$E112919112934%_))) - (_%$E112919112934%_))) - (_%$E112919112934%_))))) + _%stx113074%_) + (_%$E113078113093%_))) + (_%$E113078113093%_))) + (_%$E113078113093%_))) + (_%$E113078113093%_))) + (_%$E113078113093%_))))) (define __compile-quote% - (lambda (_%stx112877%_) - (let* ((_%$e112879%_ _%stx112877%_) - (_%$E112881112890%_ + (lambda (_%stx113036%_) + (let* ((_%$e113038%_ _%stx113036%_) + (_%$E113040113049%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112879%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112879%_)) - (let* ((_%$tgt112882112893%_ - (let () (declare (not safe)) (__AST-e _%$e112879%_))) - (_%$hd112883112896%_ + _%$e113038%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113038%_)) + (let* ((_%$tgt113041113052%_ + (let () (declare (not safe)) (__AST-e _%$e113038%_))) + (_%$hd113042113055%_ (let () (declare (not safe)) - (##car _%$tgt112882112893%_))) - (_%$tl112884112899%_ + (##car _%$tgt113041113052%_))) + (_%$tl113043113058%_ (let () (declare (not safe)) - (##cdr _%$tgt112882112893%_)))) + (##cdr _%$tgt113041113052%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112884112899%_)) - (let* ((_%$tgt112885112903%_ + (__AST-pair? _%$tl113043113058%_)) + (let* ((_%$tgt113044113062%_ (let () (declare (not safe)) - (__AST-e _%$tl112884112899%_))) - (_%$hd112886112906%_ + (__AST-e _%$tl113043113058%_))) + (_%$hd113045113065%_ (let () (declare (not safe)) - (##car _%$tgt112885112903%_))) - (_%$tl112887112909%_ + (##car _%$tgt113044113062%_))) + (_%$tl113046113068%_ (let () (declare (not safe)) - (##cdr _%$tgt112885112903%_))) - (_%e112913%_ _%$hd112886112906%_)) + (##cdr _%$tgt113044113062%_))) + (_%e113072%_ _%$hd113045113065%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112887112909%_)) + (__AST-e _%$tl113046113068%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e112913%_)) + (__AST->datum _%e113072%_)) '())) - _%stx112877%_) - (_%$E112881112890%_))) - (_%$E112881112890%_))) - (_%$E112881112890%_))))) + _%stx113036%_) + (_%$E113040113049%_))) + (_%$E113040113049%_))) + (_%$E113040113049%_))))) (define __compile-quote-syntax% - (lambda (_%stx112839%_) - (let* ((_%$e112841%_ _%stx112839%_) - (_%$E112843112852%_ + (lambda (_%stx112998%_) + (let* ((_%$e113000%_ _%stx112998%_) + (_%$E113002113011%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112841%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112841%_)) - (let* ((_%$tgt112844112855%_ - (let () (declare (not safe)) (__AST-e _%$e112841%_))) - (_%$hd112845112858%_ + _%$e113000%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113000%_)) + (let* ((_%$tgt113003113014%_ + (let () (declare (not safe)) (__AST-e _%$e113000%_))) + (_%$hd113004113017%_ (let () (declare (not safe)) - (##car _%$tgt112844112855%_))) - (_%$tl112846112861%_ + (##car _%$tgt113003113014%_))) + (_%$tl113005113020%_ (let () (declare (not safe)) - (##cdr _%$tgt112844112855%_)))) + (##cdr _%$tgt113003113014%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112846112861%_)) - (let* ((_%$tgt112847112865%_ + (__AST-pair? _%$tl113005113020%_)) + (let* ((_%$tgt113006113024%_ (let () (declare (not safe)) - (__AST-e _%$tl112846112861%_))) - (_%$hd112848112868%_ + (__AST-e _%$tl113005113020%_))) + (_%$hd113007113027%_ (let () (declare (not safe)) - (##car _%$tgt112847112865%_))) - (_%$tl112849112871%_ + (##car _%$tgt113006113024%_))) + (_%$tl113008113030%_ (let () (declare (not safe)) - (##cdr _%$tgt112847112865%_))) - (_%e112875%_ _%$hd112848112868%_)) + (##cdr _%$tgt113006113024%_))) + (_%e113034%_ _%$hd113007113027%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112849112871%_)) + (__AST-e _%$tl113008113030%_)) '()) (__SRC__% - (cons 'quote (cons _%e112875%_ '())) - _%stx112839%_) - (_%$E112843112852%_))) - (_%$E112843112852%_))) - (_%$E112843112852%_))))) + (cons 'quote (cons _%e113034%_ '())) + _%stx112998%_) + (_%$E113002113011%_))) + (_%$E113002113011%_))) + (_%$E113002113011%_))))) (__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 085425b3f..f148a93f1 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]#_g114890_| + (define |[1]#_g115049_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g114892_| + (define |[1]#_g115051_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g114894_| + (define |[1]#_g115053_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g114896_| + (define |[1]#_g115055_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g114897_| + (define |[1]#_g115056_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g114899_| + (define |[1]#_g115058_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114900_| + (define |[1]#_g115059_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114902_| + (define |[1]#_g115061_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g114903_| + (define |[1]#_g115062_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g114905_| + (define |[1]#_g115064_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114906_| + (define |[1]#_g115065_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114908_| + (define |[1]#_g115067_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g114910_| + (define |[1]#_g115069_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114912_| + (define |[1]#_g115071_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g114914_| + (define |[1]#_g115073_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114916_| + (define |[1]#_g115075_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114917_| + (define |[1]#_g115076_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114919_| + (define |[1]#_g115078_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114920_| + (define |[1]#_g115079_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114922_| + (define |[1]#_g115081_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114923_| + (define |[1]#_g115082_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114925_| + (define |[1]#_g115084_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114926_| + (define |[1]#_g115085_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114928_| + (define |[1]#_g115087_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g114930_| + (define |[1]#_g115089_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g114932_| + (define |[1]#_g115091_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g114934_| + (define |[1]#_g115093_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g114936_| + (define |[1]#_g115095_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g114937_| + (define |[1]#_g115096_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g114939_| + (define |[1]#_g115098_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114940_| + (define |[1]#_g115099_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114942_| + (define |[1]#_g115101_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g114943_| + (define |[1]#_g115102_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g114945_| + (define |[1]#_g115104_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114946_| + (define |[1]#_g115105_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114949_| + (define |[1]#_g115108_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114951_| + (define |[1]#_g115110_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g114953_| + (define |[1]#_g115112_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114955_| + (define |[1]#_g115114_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114956_| + (define |[1]#_g115115_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114958_| + (define |[1]#_g115117_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114959_| + (define |[1]#_g115118_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114961_| + (define |[1]#_g115120_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114962_| + (define |[1]#_g115121_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114964_| + (define |[1]#_g115123_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114965_| + (define |[1]#_g115124_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj114839 + (let ((__obj114998 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114839 + __obj114998 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj114998 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj114998 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj114998 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj114998 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114998 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114998 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114998 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#f '11 '#f '#f)) - (let ((__tmp114889 |[1]#_g114890_|)) + (##unchecked-structure-set! __obj114998 '#f '11 '#f '#f)) + (let ((__tmp115048 |[1]#_g115049_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114889 '12 '#f '#f)) - (let ((__tmp114891 |[1]#_g114892_|)) + (##unchecked-structure-set! __obj114998 __tmp115048 '12 '#f '#f)) + (let ((__tmp115050 |[1]#_g115051_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114891 '13 '#f '#f)) - (let ((__tmp114893 |[1]#_g114894_|)) + (##unchecked-structure-set! __obj114998 __tmp115050 '13 '#f '#f)) + (let ((__tmp115052 |[1]#_g115053_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114893 '14 '#f '#f)) - (let ((__tmp114895 - (cons (cons 'e |[1]#_g114896_|) - (cons (cons 'id |[1]#_g114897_|) '())))) + (##unchecked-structure-set! __obj114998 __tmp115052 '14 '#f '#f)) + (let ((__tmp115054 + (cons (cons 'e |[1]#_g115055_|) + (cons (cons 'id |[1]#_g115056_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114895 '15 '#f '#f)) - (let ((__tmp114898 - (cons (cons 'e |[1]#_g114899_|) - (cons (cons 'id |[1]#_g114900_|) '())))) + (##unchecked-structure-set! __obj114998 __tmp115054 '15 '#f '#f)) + (let ((__tmp115057 + (cons (cons 'e |[1]#_g115058_|) + (cons (cons 'id |[1]#_g115059_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114898 '16 '#f '#f)) - (let ((__tmp114901 - (cons (cons 'e |[1]#_g114902_|) - (cons (cons 'id |[1]#_g114903_|) '())))) + (##unchecked-structure-set! __obj114998 __tmp115057 '16 '#f '#f)) + (let ((__tmp115060 + (cons (cons 'e |[1]#_g115061_|) + (cons (cons 'id |[1]#_g115062_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114901 '17 '#f '#f)) - (let ((__tmp114904 - (cons (cons 'e |[1]#_g114905_|) - (cons (cons 'id |[1]#_g114906_|) '())))) + (##unchecked-structure-set! __obj114998 __tmp115060 '17 '#f '#f)) + (let ((__tmp115063 + (cons (cons 'e |[1]#_g115064_|) + (cons (cons 'id |[1]#_g115065_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114904 '18 '#f '#f)) + (##unchecked-structure-set! __obj114998 __tmp115063 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114998 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114998 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '20 '#f '#f)) - __obj114839)) + (##unchecked-structure-set! __obj114998 '() '20 '#f '#f)) + __obj114998)) (define |[:0:]#__core-form| - (let ((__obj114840 + (let ((__obj114999 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114840 + __obj114999 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj114999 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj114999 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '(e id) '6 '#f '#f)) - (let ((__tmp114907 (cons |[1]#_g114908_| '()))) + (##unchecked-structure-set! __obj114999 '(e id) '6 '#f '#f)) + (let ((__tmp115066 (cons |[1]#_g115067_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114907 '3 '#f '#f)) + (##unchecked-structure-set! __obj114999 __tmp115066 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj114999 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114999 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114999 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#f '11 '#f '#f)) - (let ((__tmp114909 |[1]#_g114910_|)) + (##unchecked-structure-set! __obj114999 '#f '11 '#f '#f)) + (let ((__tmp115068 |[1]#_g115069_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114909 '12 '#f '#f)) - (let ((__tmp114911 |[1]#_g114912_|)) + (##unchecked-structure-set! __obj114999 __tmp115068 '12 '#f '#f)) + (let ((__tmp115070 |[1]#_g115071_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114911 '13 '#f '#f)) - (let ((__tmp114913 |[1]#_g114914_|)) + (##unchecked-structure-set! __obj114999 __tmp115070 '13 '#f '#f)) + (let ((__tmp115072 |[1]#_g115073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114913 '14 '#f '#f)) - (let ((__tmp114915 - (cons (cons 'e |[1]#_g114916_|) - (cons (cons 'id |[1]#_g114917_|) '())))) + (##unchecked-structure-set! __obj114999 __tmp115072 '14 '#f '#f)) + (let ((__tmp115074 + (cons (cons 'e |[1]#_g115075_|) + (cons (cons 'id |[1]#_g115076_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114915 '15 '#f '#f)) - (let ((__tmp114918 - (cons (cons 'e |[1]#_g114919_|) - (cons (cons 'id |[1]#_g114920_|) '())))) + (##unchecked-structure-set! __obj114999 __tmp115074 '15 '#f '#f)) + (let ((__tmp115077 + (cons (cons 'e |[1]#_g115078_|) + (cons (cons 'id |[1]#_g115079_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114918 '16 '#f '#f)) - (let ((__tmp114921 - (cons (cons 'e |[1]#_g114922_|) - (cons (cons 'id |[1]#_g114923_|) '())))) + (##unchecked-structure-set! __obj114999 __tmp115077 '16 '#f '#f)) + (let ((__tmp115080 + (cons (cons 'e |[1]#_g115081_|) + (cons (cons 'id |[1]#_g115082_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114921 '17 '#f '#f)) - (let ((__tmp114924 - (cons (cons 'e |[1]#_g114925_|) - (cons (cons 'id |[1]#_g114926_|) '())))) + (##unchecked-structure-set! __obj114999 __tmp115080 '17 '#f '#f)) + (let ((__tmp115083 + (cons (cons 'e |[1]#_g115084_|) + (cons (cons 'id |[1]#_g115085_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114924 '18 '#f '#f)) + (##unchecked-structure-set! __obj114999 __tmp115083 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114999 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114999 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '20 '#f '#f)) - __obj114840)) + (##unchecked-structure-set! __obj114999 '() '20 '#f '#f)) + __obj114999)) (define |[:0:]#__core-expression| - (let ((__obj114841 + (let ((__obj115000 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114841 + __obj115000 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114841 + __obj115000 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj115000 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '(e id) '6 '#f '#f)) - (let ((__tmp114927 (cons |[1]#_g114928_| '()))) + (##unchecked-structure-set! __obj115000 '(e id) '6 '#f '#f)) + (let ((__tmp115086 (cons |[1]#_g115087_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114927 '3 '#f '#f)) + (##unchecked-structure-set! __obj115000 __tmp115086 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115000 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115000 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115000 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#f '11 '#f '#f)) - (let ((__tmp114929 |[1]#_g114930_|)) + (##unchecked-structure-set! __obj115000 '#f '11 '#f '#f)) + (let ((__tmp115088 |[1]#_g115089_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114929 '12 '#f '#f)) - (let ((__tmp114931 |[1]#_g114932_|)) + (##unchecked-structure-set! __obj115000 __tmp115088 '12 '#f '#f)) + (let ((__tmp115090 |[1]#_g115091_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114931 '13 '#f '#f)) - (let ((__tmp114933 |[1]#_g114934_|)) + (##unchecked-structure-set! __obj115000 __tmp115090 '13 '#f '#f)) + (let ((__tmp115092 |[1]#_g115093_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114933 '14 '#f '#f)) - (let ((__tmp114935 - (cons (cons 'e |[1]#_g114936_|) - (cons (cons 'id |[1]#_g114937_|) '())))) + (##unchecked-structure-set! __obj115000 __tmp115092 '14 '#f '#f)) + (let ((__tmp115094 + (cons (cons 'e |[1]#_g115095_|) + (cons (cons 'id |[1]#_g115096_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114935 '15 '#f '#f)) - (let ((__tmp114938 - (cons (cons 'e |[1]#_g114939_|) - (cons (cons 'id |[1]#_g114940_|) '())))) + (##unchecked-structure-set! __obj115000 __tmp115094 '15 '#f '#f)) + (let ((__tmp115097 + (cons (cons 'e |[1]#_g115098_|) + (cons (cons 'id |[1]#_g115099_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114938 '16 '#f '#f)) - (let ((__tmp114941 - (cons (cons 'e |[1]#_g114942_|) - (cons (cons 'id |[1]#_g114943_|) '())))) + (##unchecked-structure-set! __obj115000 __tmp115097 '16 '#f '#f)) + (let ((__tmp115100 + (cons (cons 'e |[1]#_g115101_|) + (cons (cons 'id |[1]#_g115102_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114941 '17 '#f '#f)) - (let ((__tmp114944 - (cons (cons 'e |[1]#_g114945_|) - (cons (cons 'id |[1]#_g114946_|) '())))) + (##unchecked-structure-set! __obj115000 __tmp115100 '17 '#f '#f)) + (let ((__tmp115103 + (cons (cons 'e |[1]#_g115104_|) + (cons (cons 'id |[1]#_g115105_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114944 '18 '#f '#f)) + (##unchecked-structure-set! __obj115000 __tmp115103 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115000 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115000 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '20 '#f '#f)) - __obj114841)) + (##unchecked-structure-set! __obj115000 '() '20 '#f '#f)) + __obj115000)) (define |[:0:]#__core-special-form| - (let ((__obj114842 + (let ((__obj115001 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114842 + __obj115001 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114842 + __obj115001 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj115001 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '(e id) '6 '#f '#f)) - (let ((__tmp114947 (cons |[1]#_g114928_| '()))) + (##unchecked-structure-set! __obj115001 '(e id) '6 '#f '#f)) + (let ((__tmp115106 (cons |[1]#_g115087_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114947 '3 '#f '#f)) + (##unchecked-structure-set! __obj115001 __tmp115106 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115001 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115001 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115001 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#f '11 '#f '#f)) - (let ((__tmp114948 |[1]#_g114949_|)) + (##unchecked-structure-set! __obj115001 '#f '11 '#f '#f)) + (let ((__tmp115107 |[1]#_g115108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114948 '12 '#f '#f)) - (let ((__tmp114950 |[1]#_g114951_|)) + (##unchecked-structure-set! __obj115001 __tmp115107 '12 '#f '#f)) + (let ((__tmp115109 |[1]#_g115110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114950 '13 '#f '#f)) - (let ((__tmp114952 |[1]#_g114953_|)) + (##unchecked-structure-set! __obj115001 __tmp115109 '13 '#f '#f)) + (let ((__tmp115111 |[1]#_g115112_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114952 '14 '#f '#f)) - (let ((__tmp114954 - (cons (cons 'e |[1]#_g114955_|) - (cons (cons 'id |[1]#_g114956_|) '())))) + (##unchecked-structure-set! __obj115001 __tmp115111 '14 '#f '#f)) + (let ((__tmp115113 + (cons (cons 'e |[1]#_g115114_|) + (cons (cons 'id |[1]#_g115115_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114954 '15 '#f '#f)) - (let ((__tmp114957 - (cons (cons 'e |[1]#_g114958_|) - (cons (cons 'id |[1]#_g114959_|) '())))) + (##unchecked-structure-set! __obj115001 __tmp115113 '15 '#f '#f)) + (let ((__tmp115116 + (cons (cons 'e |[1]#_g115117_|) + (cons (cons 'id |[1]#_g115118_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114957 '16 '#f '#f)) - (let ((__tmp114960 - (cons (cons 'e |[1]#_g114961_|) - (cons (cons 'id |[1]#_g114962_|) '())))) + (##unchecked-structure-set! __obj115001 __tmp115116 '16 '#f '#f)) + (let ((__tmp115119 + (cons (cons 'e |[1]#_g115120_|) + (cons (cons 'id |[1]#_g115121_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114960 '17 '#f '#f)) - (let ((__tmp114963 - (cons (cons 'e |[1]#_g114964_|) - (cons (cons 'id |[1]#_g114965_|) '())))) + (##unchecked-structure-set! __obj115001 __tmp115119 '17 '#f '#f)) + (let ((__tmp115122 + (cons (cons 'e |[1]#_g115123_|) + (cons (cons 'id |[1]#_g115124_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114963 '18 '#f '#f)) + (##unchecked-structure-set! __obj115001 __tmp115122 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115001 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115001 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '20 '#f '#f)) - __obj114842)) + (##unchecked-structure-set! __obj115001 '() '20 '#f '#f)) + __obj115001)) (define |[:0:]#defcore-forms| - (lambda (_%stx112384%_) - (letrec ((_%generate112387%_ - (lambda (_%id112751%_ _%compile112753%_ _%make112754%_) - (let* ((_%g112756112775%_ - (lambda (_%g112757112771%_) + (lambda (_%stx112543%_) + (letrec ((_%generate112546%_ + (lambda (_%id112910%_ _%compile112912%_ _%make112913%_) + (let* ((_%g112915112934%_ + (lambda (_%g112916112930%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112757112771%_))) - (_%g112755112834%_ - (lambda (_%g112757112779%_) - (if (gx#stx-pair? _%g112757112779%_) - (let ((_%e112761112782%_ - (gx#syntax-e _%g112757112779%_))) - (let ((_%hd112762112786%_ + _%g112916112930%_))) + (_%g112914112993%_ + (lambda (_%g112916112938%_) + (if (gx#stx-pair? _%g112916112938%_) + (let ((_%e112920112941%_ + (gx#syntax-e _%g112916112938%_))) + (let ((_%hd112921112945%_ (let () (declare (not safe)) - (##car _%e112761112782%_))) - (_%tl112763112789%_ + (##car _%e112920112941%_))) + (_%tl112922112948%_ (let () (declare (not safe)) - (##cdr _%e112761112782%_)))) - (if (gx#stx-pair? _%tl112763112789%_) - (let ((_%e112764112792%_ + (##cdr _%e112920112941%_)))) + (if (gx#stx-pair? _%tl112922112948%_) + (let ((_%e112923112951%_ (gx#syntax-e - _%tl112763112789%_))) - (let ((_%hd112765112796%_ + _%tl112922112948%_))) + (let ((_%hd112924112955%_ (let () (declare (not safe)) - (##car _%e112764112792%_))) - (_%tl112766112799%_ + (##car _%e112923112951%_))) + (_%tl112925112958%_ (let () (declare (not safe)) - (##cdr _%e112764112792%_)))) + (##cdr _%e112923112951%_)))) (if (gx#stx-pair? - _%tl112766112799%_) - (let ((_%e112767112802%_ + _%tl112925112958%_) + (let ((_%e112926112961%_ (gx#syntax-e - _%tl112766112799%_))) - (let ((_%hd112768112806%_ + _%tl112925112958%_))) + (let ((_%hd112927112965%_ (let () (declare (not safe)) - (##car _%e112767112802%_))) - (_%tl112769112809%_ + (##car _%e112926112961%_))) + (_%tl112928112968%_ (let () (declare (not safe)) - (##cdr _%e112767112802%_)))) + (##cdr _%e112926112961%_)))) (if (gx#stx-null? - _%tl112769112809%_) - ((lambda (_%L112812%_ + _%tl112928112968%_) + ((lambda (_%L112971%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L112814%_ - _%L112815%_) + _%L112973%_ + _%L112974%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L112815%_ '())) - (cons _%L112814%_ (cons _%L112812%_ '()))))) - _%hd112768112806%_ - _%hd112765112796%_ - _%hd112762112786%_) - (_%g112756112775%_ _%g112757112779%_)))) + (cons _%L112974%_ '())) + (cons _%L112973%_ (cons _%L112971%_ '()))))) + _%hd112927112965%_ + _%hd112924112955%_ + _%hd112921112945%_) + (_%g112915112934%_ _%g112916112938%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112756112775%_ - _%g112757112779%_)))) - (_%g112756112775%_ - _%g112757112779%_)))) - (_%g112756112775%_ _%g112757112779%_))))) - (_%g112755112834%_ - (list _%id112751%_ + (_%g112915112934%_ + _%g112916112938%_)))) + (_%g112915112934%_ + _%g112916112938%_)))) + (_%g112915112934%_ _%g112916112938%_))))) + (_%g112914112993%_ + (list _%id112910%_ (gx#stx-identifier - _%id112751%_ + _%id112910%_ '"__" - _%compile112753%_) - _%make112754%_)))))) - (let* ((_%g112390112410%_ - (lambda (_%g112391112406%_) + _%compile112912%_) + _%make112913%_)))))) + (let* ((_%g112549112569%_ + (lambda (_%g112550112565%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112391112406%_))) - (_%g112389112747%_ - (lambda (_%g112391112414%_) - (if (gx#stx-pair? _%g112391112414%_) - (let ((_%e112393112417%_ - (gx#syntax-e _%g112391112414%_))) - (let ((_%hd112394112421%_ + _%g112550112565%_))) + (_%g112548112906%_ + (lambda (_%g112550112573%_) + (if (gx#stx-pair? _%g112550112573%_) + (let ((_%e112552112576%_ + (gx#syntax-e _%g112550112573%_))) + (let ((_%hd112553112580%_ (let () (declare (not safe)) - (##car _%e112393112417%_))) - (_%tl112395112424%_ + (##car _%e112552112576%_))) + (_%tl112554112583%_ (let () (declare (not safe)) - (##cdr _%e112393112417%_)))) - (if (gx#stx-pair/null? _%tl112395112424%_) - (let ((_g114966_ + (##cdr _%e112552112576%_)))) + (if (gx#stx-pair/null? _%tl112554112583%_) + (let ((_g115125_ (gx#syntax-split-splice - _%tl112395112424%_ + _%tl112554112583%_ '0))) (begin - (let ((_g114967_ + (let ((_g115126_ (let () (declare (not safe)) - (if (##values? _g114966_) - (##vector-length _g114966_) + (if (##values? _g115125_) + (##vector-length _g115125_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114967_ 2))) + (##fx= _g115126_ 2))) (error "Context expects 2 values" - _g114967_))) - (let ((_%target112396112427%_ + _g115126_))) + (let ((_%target112555112586%_ (let () (declare (not safe)) - (##vector-ref _g114966_ 0))) - (_%tl112398112430%_ + (##vector-ref _g115125_ 0))) + (_%tl112557112589%_ (let () (declare (not safe)) - (##vector-ref _g114966_ 1)))) - (if (gx#stx-null? _%tl112398112430%_) - (letrec ((_%loop112399112433%_ - (lambda (_%hd112397112437%_ - _%form112403112440%_) + (##vector-ref _g115125_ 1)))) + (if (gx#stx-null? _%tl112557112589%_) + (letrec ((_%loop112558112592%_ + (lambda (_%hd112556112596%_ + _%form112562112599%_) (if (gx#stx-pair? - _%hd112397112437%_) - (let ((_%e112400112443%_ + _%hd112556112596%_) + (let ((_%e112559112602%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd112397112437%_))) - (let ((_%lp-hd112401112447%_ + (gx#syntax-e _%hd112556112596%_))) + (let ((_%lp-hd112560112606%_ (let () (declare (not safe)) - (##car _%e112400112443%_))) - (_%lp-tl112402112450%_ + (##car _%e112559112602%_))) + (_%lp-tl112561112609%_ (let () (declare (not safe)) - (##cdr _%e112400112443%_)))) - (_%loop112399112433%_ - _%lp-tl112402112450%_ - (cons _%lp-hd112401112447%_ _%form112403112440%_)))) - (let ((_%form112404112453%_ (reverse _%form112403112440%_))) - ((lambda (_%L112457%_) - (let _%lp112475%_ ((_%rest112478%_ - (let ((__tmp114968 - (lambda (_%g112738112741%_ - _%g112739112744%_) - (cons _%g112738112741%_ - _%g112739112744%_)))) + (##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%_)))) (declare (not safe)) (__foldr1 - __tmp114968 + __tmp115127 '() - _%L112457%_))) - (_%body112480%_ '())) - (let* ((_%__stx114746114747%_ _%rest112478%_) - (_%g112485112532%_ + _%L112616%_))) + (_%body112639%_ '())) + (let* ((_%__stx114905114906%_ _%rest112637%_) + (_%g112644112691%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx114746114747%_)))) - (let ((_%__kont114749114750%_ - (lambda (_%L112713%_ _%L112715%_ _%L112716%_) - (_%lp112475%_ - _%L112713%_ - (cons (_%generate112387%_ - _%L112716%_ - _%L112715%_ + _%__stx114905114906%_)))) + (let ((_%__kont114908114909%_ + (lambda (_%L112872%_ _%L112874%_ _%L112875%_) + (_%lp112634%_ + _%L112872%_ + (cons (_%generate112546%_ + _%L112875%_ + _%L112874%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body112480%_)))) - (_%__kont114751114752%_ - (lambda (_%L112640%_ _%L112642%_ _%L112643%_) - (_%lp112475%_ - _%L112640%_ - (cons (_%generate112387%_ - _%L112643%_ - _%L112642%_ + _%body112639%_)))) + (_%__kont114910114911%_ + (lambda (_%L112799%_ _%L112801%_ _%L112802%_) + (_%lp112634%_ + _%L112799%_ + (cons (_%generate112546%_ + _%L112802%_ + _%L112801%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body112480%_)))) - (_%__kont114753114754%_ - (lambda (_%L112570%_ _%L112572%_) - (_%lp112475%_ - _%L112570%_ - (cons (_%generate112387%_ - _%L112572%_ + _%body112639%_)))) + (_%__kont114912114913%_ + (lambda (_%L112729%_ _%L112731%_) + (_%lp112634%_ + _%L112729%_ + (cons (_%generate112546%_ + _%L112731%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body112480%_)))) - (_%__kont114755114756%_ + _%body112639%_)))) + (_%__kont114914114915%_ (lambda () - (cons 'begin (reverse _%body112480%_))))) - (let ((_%g112484112543%_ + (cons 'begin (reverse _%body112639%_))))) + (let ((_%g112643112702%_ (lambda () - (if (gx#stx-null? _%__stx114746114747%_) - (_%__kont114755114756%_) + (if (gx#stx-null? _%__stx114905114906%_) + (_%__kont114914114915%_) (let () (declare (not safe)) - (_%g112485112532%_)))))) - (if (gx#stx-pair? _%__stx114746114747%_) - (let ((_%e112490112669%_ - (gx#syntax-e _%__stx114746114747%_))) - (let ((_%tl112492112676%_ + (_%g112644112691%_)))))) + (if (gx#stx-pair? _%__stx114905114906%_) + (let ((_%e112649112828%_ + (gx#syntax-e _%__stx114905114906%_))) + (let ((_%tl112651112835%_ (let () (declare (not safe)) - (##cdr _%e112490112669%_))) - (_%hd112491112673%_ + (##cdr _%e112649112828%_))) + (_%hd112650112832%_ (let () (declare (not safe)) - (##car _%e112490112669%_)))) - (if (gx#stx-pair? _%hd112491112673%_) - (let ((_%e112493112679%_ + (##car _%e112649112828%_)))) + (if (gx#stx-pair? _%hd112650112832%_) + (let ((_%e112652112838%_ (gx#syntax-e - _%hd112491112673%_))) - (let ((_%tl112495112686%_ + _%hd112650112832%_))) + (let ((_%tl112654112845%_ (let () (declare (not safe)) - (##cdr _%e112493112679%_))) - (_%hd112494112683%_ + (##cdr _%e112652112838%_))) + (_%hd112653112842%_ (let () (declare (not safe)) - (##car _%e112493112679%_)))) + (##car _%e112652112838%_)))) (if (gx#stx-pair? - _%tl112495112686%_) - (let ((_%e112496112689%_ + _%tl112654112845%_) + (let ((_%e112655112848%_ (gx#syntax-e - _%tl112495112686%_))) - (let ((_%tl112498112696%_ + _%tl112654112845%_))) + (let ((_%tl112657112855%_ (let () (declare (not safe)) - (##cdr _%e112496112689%_))) - (_%hd112497112693%_ + (##cdr _%e112655112848%_))) + (_%hd112656112852%_ (let () (declare (not safe)) - (##car _%e112496112689%_)))) + (##car _%e112655112848%_)))) (if (gx#stx-datum? - _%hd112497112693%_) - (let ((_%e112499112699%_ + _%hd112656112852%_) + (let ((_%e112658112858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd112497112693%_))) - (if (equal? _%e112499112699%_ 'expr:) - (if (gx#stx-pair? _%tl112498112696%_) - (let ((_%e112500112703%_ - (gx#syntax-e _%tl112498112696%_))) - (let ((_%tl112502112710%_ + (gx#stx-e _%hd112656112852%_))) + (if (equal? _%e112658112858%_ 'expr:) + (if (gx#stx-pair? _%tl112657112855%_) + (let ((_%e112659112862%_ + (gx#syntax-e _%tl112657112855%_))) + (let ((_%tl112661112869%_ (let () (declare (not safe)) - (##cdr _%e112500112703%_))) - (_%hd112501112707%_ + (##cdr _%e112659112862%_))) + (_%hd112660112866%_ (let () (declare (not safe)) - (##car _%e112500112703%_)))) - (if (gx#stx-null? _%tl112502112710%_) - (_%__kont114749114750%_ - _%tl112492112676%_ - _%hd112501112707%_ - _%hd112494112683%_) + (##car _%e112659112862%_)))) + (if (gx#stx-null? _%tl112661112869%_) + (_%__kont114908114909%_ + _%tl112651112835%_ + _%hd112660112866%_ + _%hd112653112842%_) (let () (declare (not safe)) - (_%g112485112532%_))))) - (let () (declare (not safe)) (_%g112485112532%_))) - (if (equal? _%e112499112699%_ 'special:) - (if (gx#stx-pair? _%tl112498112696%_) - (let ((_%e112516112630%_ - (gx#syntax-e _%tl112498112696%_))) - (let ((_%tl112518112637%_ + (_%g112644112691%_))))) + (let () (declare (not safe)) (_%g112644112691%_))) + (if (equal? _%e112658112858%_ 'special:) + (if (gx#stx-pair? _%tl112657112855%_) + (let ((_%e112675112789%_ + (gx#syntax-e _%tl112657112855%_))) + (let ((_%tl112677112796%_ (let () (declare (not safe)) - (##cdr _%e112516112630%_))) - (_%hd112517112634%_ + (##cdr _%e112675112789%_))) + (_%hd112676112793%_ (let () (declare (not safe)) - (##car _%e112516112630%_)))) - (if (gx#stx-null? _%tl112518112637%_) - (_%__kont114751114752%_ - _%tl112492112676%_ - _%hd112517112634%_ - _%hd112494112683%_) + (##car _%e112675112789%_)))) + (if (gx#stx-null? _%tl112677112796%_) + (_%__kont114910114911%_ + _%tl112651112835%_ + _%hd112676112793%_ + _%hd112653112842%_) (let () (declare (not safe)) - (_%g112485112532%_))))) + (_%g112644112691%_))))) (let () (declare (not safe)) - (_%g112485112532%_))) + (_%g112644112691%_))) (let () (declare (not safe)) - (_%g112485112532%_))))) - (let () (declare (not safe)) (_%g112485112532%_))))) + (_%g112644112691%_))))) + (let () (declare (not safe)) (_%g112644112691%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl112495112686%_) - (_%__kont114753114754%_ - _%tl112492112676%_ - _%hd112494112683%_) + _%tl112654112845%_) + (_%__kont114912114913%_ + _%tl112651112835%_ + _%hd112653112842%_) (let () (declare (not safe)) - (_%g112485112532%_)))))) + (_%g112644112691%_)))))) (let () (declare (not safe)) - (_%g112485112532%_))))) + (_%g112644112691%_))))) (let () (declare (not safe)) - (_%g112484112543%_)))))))) - _%form112404112453%_)))))) + (_%g112643112702%_)))))))) + _%form112563112612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop112399112433%_ - _%target112396112427%_ + (_%loop112558112592%_ + _%target112555112586%_ '())) - (_%g112390112410%_ - _%g112391112414%_))))) - (_%g112390112410%_ _%g112391112414%_)))) - (_%g112390112410%_ _%g112391112414%_))))) - (_%g112389112747%_ _%stx112384%_))))))) + (_%g112549112569%_ + _%g112550112573%_))))) + (_%g112549112569%_ _%g112550112573%_)))) + (_%g112549112569%_ _%g112550112573%_))))) + (_%g112548112906%_ _%stx112543%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 7db3cb70f..ec4ce7355 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 1713631264) + (define gerbil/runtime/gambit::timestamp 1733687557) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index aa3864c6d..232733699 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::ref105248%_ - _%locked-hash-table::ref105247%_) + _%locked-hash-table::ref105407%_ + _%locked-hash-table::ref105406%_) (%#define-runtime - _%locked-hash-table::set!105251%_ - _%locked-hash-table::set!105250%_) + _%locked-hash-table::set!105410%_ + _%locked-hash-table::set!105409%_) (%#define-runtime - _%locked-hash-table::update!105254%_ - _%locked-hash-table::update!105253%_) + _%locked-hash-table::update!105413%_ + _%locked-hash-table::update!105412%_) (%#define-runtime - _%locked-hash-table::delete!105257%_ - _%locked-hash-table::delete!105256%_) + _%locked-hash-table::delete!105416%_ + _%locked-hash-table::delete!105415%_) (%#define-runtime - _%locked-hash-table::for-each105260%_ - _%locked-hash-table::for-each105259%_) + _%locked-hash-table::for-each105419%_ + _%locked-hash-table::for-each105418%_) (%#define-runtime - _%locked-hash-table::length105263%_ - _%locked-hash-table::length105262%_) + _%locked-hash-table::length105422%_ + _%locked-hash-table::length105421%_) (%#define-runtime - _%locked-hash-table::copy105266%_ - _%locked-hash-table::copy105265%_) + _%locked-hash-table::copy105425%_ + _%locked-hash-table::copy105424%_) (%#define-runtime - _%locked-hash-table::clear!105269%_ - _%locked-hash-table::clear!105268%_) + _%locked-hash-table::clear!105428%_ + _%locked-hash-table::clear!105427%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-runtime - _%checked-hash-table::ref105483%_ - _%checked-hash-table::ref105482%_) + _%checked-hash-table::ref105642%_ + _%checked-hash-table::ref105641%_) (%#define-runtime - _%checked-hash-table::set!105486%_ - _%checked-hash-table::set!105485%_) + _%checked-hash-table::set!105645%_ + _%checked-hash-table::set!105644%_) (%#define-runtime - _%checked-hash-table::update!105489%_ - _%checked-hash-table::update!105488%_) + _%checked-hash-table::update!105648%_ + _%checked-hash-table::update!105647%_) (%#define-runtime - _%checked-hash-table::delete!105492%_ - _%checked-hash-table::delete!105491%_) + _%checked-hash-table::delete!105651%_ + _%checked-hash-table::delete!105650%_) (%#define-runtime - _%checked-hash-table::for-each105495%_ - _%checked-hash-table::for-each105494%_) + _%checked-hash-table::for-each105654%_ + _%checked-hash-table::for-each105653%_) (%#define-runtime - _%checked-hash-table::length105498%_ - _%checked-hash-table::length105497%_) + _%checked-hash-table::length105657%_ + _%checked-hash-table::length105656%_) (%#define-runtime - _%checked-hash-table::copy105501%_ - _%checked-hash-table::copy105500%_) + _%checked-hash-table::copy105660%_ + _%checked-hash-table::copy105659%_) (%#define-runtime - _%checked-hash-table::clear!105504%_ - _%checked-hash-table::clear!105503%_) + _%checked-hash-table::clear!105663%_ + _%checked-hash-table::clear!105662%_) (%#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 dcd0e4c0f..26e87f751 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 - ((for-each . _%locked-hash-table::for-each105259%_) - (delete! . _%locked-hash-table::delete!105256%_) - (length . _%locked-hash-table::length105262%_) - (set! . _%locked-hash-table::set!105250%_) - (copy . _%locked-hash-table::copy105265%_) - (clear! . _%locked-hash-table::clear!105268%_) - (ref . _%locked-hash-table::ref105247%_) - (update! . _%locked-hash-table::update!105253%_)))) + ((clear! . _%locked-hash-table::clear!105427%_) + (delete! . _%locked-hash-table::delete!105415%_) + (length . _%locked-hash-table::length105421%_) + (set! . _%locked-hash-table::set!105409%_) + (copy . _%locked-hash-table::copy105424%_) + (for-each . _%locked-hash-table::for-each105418%_) + (ref . _%locked-hash-table::ref105406%_) + (update! . _%locked-hash-table::update!105412%_)))) (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 - ((for-each . _%checked-hash-table::for-each105494%_) - (delete! . _%checked-hash-table::delete!105491%_) - (length . _%checked-hash-table::length105497%_) - (set! . _%checked-hash-table::set!105485%_) - (copy . _%checked-hash-table::copy105500%_) - (clear! . _%checked-hash-table::clear!105503%_) - (ref . _%checked-hash-table::ref105482%_) - (update! . _%checked-hash-table::update!105488%_)))) + ((clear! . _%checked-hash-table::clear!105662%_) + (delete! . _%checked-hash-table::delete!105650%_) + (length . _%checked-hash-table::length105656%_) + (set! . _%checked-hash-table::set!105644%_) + (copy . _%checked-hash-table::copy105659%_) + (for-each . _%checked-hash-table::for-each105653%_) + (ref . _%checked-hash-table::ref105641%_) + (update! . _%checked-hash-table::update!105647%_)))) (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::ref105247%_ + _%locked-hash-table::ref105406%_ (@lambda 3 #f signature: @@ -916,7 +916,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::set!105250%_ + _%locked-hash-table::set!105409%_ (@lambda 3 #f signature: @@ -931,7 +931,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::update!105253%_ + _%locked-hash-table::update!105412%_ (@lambda 4 #f signature: @@ -946,7 +946,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::delete!105256%_ + _%locked-hash-table::delete!105415%_ (@lambda 2 #f signature: @@ -961,7 +961,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::for-each105259%_ + _%locked-hash-table::for-each105418%_ (@lambda 2 #f signature: @@ -976,7 +976,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::length105262%_ + _%locked-hash-table::length105421%_ (@lambda 1 #f signature: @@ -991,7 +991,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::copy105265%_ + _%locked-hash-table::copy105424%_ (@lambda 1 #f signature: @@ -1006,7 +1006,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::clear!105268%_ + _%locked-hash-table::clear!105427%_ (@lambda 1 #f signature: @@ -1021,7 +1021,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::ref105482%_ + _%checked-hash-table::ref105641%_ (@lambda 3 #f signature: @@ -1036,7 +1036,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::set!105485%_ + _%checked-hash-table::set!105644%_ (@lambda 3 #f signature: @@ -1051,7 +1051,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::update!105488%_ + _%checked-hash-table::update!105647%_ (@lambda 4 #f signature: @@ -1066,7 +1066,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::delete!105491%_ + _%checked-hash-table::delete!105650%_ (@lambda 2 #f signature: @@ -1081,7 +1081,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::for-each105494%_ + _%checked-hash-table::for-each105653%_ (@lambda 2 #f signature: @@ -1096,7 +1096,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::length105497%_ + _%checked-hash-table::length105656%_ (@lambda 1 #f signature: @@ -1111,7 +1111,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::copy105500%_ + _%checked-hash-table::copy105659%_ (@lambda 1 #f signature: @@ -1126,7 +1126,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::clear!105503%_ + _%checked-hash-table::clear!105662%_ (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index c8ac214b5..78f0def9b 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 1713631265) + (define gerbil/runtime/hash::timestamp 1733687559) (begin (define UnboundKeyError::t - (let ((__tmp109934 (list Error::t))) + (let ((__tmp110093 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp109934 + __tmp110093 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args109914%_ - (apply make-instance UnboundKeyError::t _%$args109914%_))) + (lambda _%$args110073%_ + (apply make-instance UnboundKeyError::t _%$args110073%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -96,32 +96,32 @@ UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where109788%_ _%message109789%_ . _%irritants109790%_) - (let ((__tmp109935 - (let ((__obj109928 + (lambda (_%where109947%_ _%message109948%_ . _%irritants109949%_) + (let ((__tmp110094 + (let ((__obj110087 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (UnboundKeyError:::init! - __obj109928 - _%message109789%_ + __obj110087 + _%message109948%_ 'where: - _%where109788%_ + _%where109947%_ 'irritants: - _%irritants109790%_)) - __obj109928))) + _%irritants109949%_)) + __obj110087))) (declare (not safe)) - (raise __tmp109935)))) + (raise __tmp110094)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp109936 (cons interface-instance::t '()))) + (let ((__tmp110095 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp109936 + __tmp110095 '(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 (_%obj109786%_) + (lambda (_%obj109945%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj109786%_)))) + (cast HashTable::interface _%obj109945%_)))) (define try-HashTable - (lambda (_%obj109784%_) + (lambda (_%obj109943%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj109784%_)))) + (try-cast HashTable::interface _%obj109943%_)))) (define HashTable? - (lambda (_%obj109782%_) - (let ((__tmp109937 + (lambda (_%obj109941%_) + (let ((__tmp110096 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109782%_ __tmp109937)))) + (##structure-direct-instance-of? _%obj109941%_ __tmp110096)))) (define is-HashTable? - (lambda (_%obj109780%_) + (lambda (_%obj109939%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj109780%_)) + (satisfies? HashTable::interface _%obj109939%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self109764%_) - (let* ((_%self109769%_ - (let ((_%$obj109766%_ _%self109764%_)) + (lambda (_%self109923%_) + (let* ((_%self109928%_ + (let ((_%$obj109925%_ _%self109923%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109766%_)) + (##structure? _%$obj109925%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109766%_))) + (##structure-type _%$obj109925%_))) '#t) - _%$obj109766%_ + _%$obj109925%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109766%_))))) - (_%self109771%_ _%self109769%_)) - (&HashTable-clear! _%self109771%_)))) + (cast HashTable::interface _%$obj109925%_))))) + (_%self109930%_ _%self109928%_)) + (&HashTable-clear! _%self109930%_)))) (define &HashTable-clear! - (lambda (_%self109749%_) - (let ((_%self109751%_ _%self109749%_)) + (lambda (_%self109908%_) + (let ((_%self109910%_ _%self109908%_)) (declare (not safe)) - (let ((_%obj109761%_ - (##unchecked-structure-ref _%self109751%_ '1 '#f 'clear!)) - (_%f109762%_ - (##unchecked-structure-ref _%self109751%_ '2 '#f 'clear!))) - (_%f109762%_ _%obj109761%_))))) + (let ((_%obj109920%_ + (##unchecked-structure-ref _%self109910%_ '1 '#f 'clear!)) + (_%f109921%_ + (##unchecked-structure-ref _%self109910%_ '2 '#f 'clear!))) + (_%f109921%_ _%obj109920%_))))) (define HashTable-copy - (lambda (_%self109733%_) - (let* ((_%self109738%_ - (let ((_%$obj109735%_ _%self109733%_)) + (lambda (_%self109892%_) + (let* ((_%self109897%_ + (let ((_%$obj109894%_ _%self109892%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109735%_)) + (##structure? _%$obj109894%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109735%_))) + (##structure-type _%$obj109894%_))) '#t) - _%$obj109735%_ + _%$obj109894%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109735%_))))) - (_%self109740%_ _%self109738%_)) - (__HashTable-copy _%self109740%_)))) + (cast HashTable::interface _%$obj109894%_))))) + (_%self109899%_ _%self109897%_)) + (__HashTable-copy _%self109899%_)))) (define __HashTable-copy - (lambda (_%self109720%_) - (let* ((_%self109722%_ _%self109720%_) - (_%$obj109730%_ (&HashTable-copy _%self109722%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj109730%_)) + (lambda (_%self109879%_) + (let* ((_%self109881%_ _%self109879%_) + (_%$obj109889%_ (&HashTable-copy _%self109881%_))) + (if (and (let () (declare (not safe)) (##structure? _%$obj109889%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109730%_))) + (##structure-type _%$obj109889%_))) '#t) - _%$obj109730%_ + _%$obj109889%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109730%_)))))) + (cast HashTable::interface _%$obj109889%_)))))) (define &HashTable-copy - (lambda (_%self109705%_) - (let ((_%self109707%_ _%self109705%_)) + (lambda (_%self109864%_) + (let ((_%self109866%_ _%self109864%_)) (declare (not safe)) - (let ((_%obj109717%_ - (##unchecked-structure-ref _%self109707%_ '1 '#f 'copy)) - (_%f109718%_ - (##unchecked-structure-ref _%self109707%_ '3 '#f 'copy))) - (_%f109718%_ _%obj109717%_))))) + (let ((_%obj109876%_ + (##unchecked-structure-ref _%self109866%_ '1 '#f 'copy)) + (_%f109877%_ + (##unchecked-structure-ref _%self109866%_ '3 '#f 'copy))) + (_%f109877%_ _%obj109876%_))))) (define HashTable-delete! - (lambda (_%self109688%_ _%key109689%_) - (let* ((_%self109694%_ - (let ((_%$obj109691%_ _%self109688%_)) + (lambda (_%self109847%_ _%key109848%_) + (let* ((_%self109853%_ + (let ((_%$obj109850%_ _%self109847%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109691%_)) + (##structure? _%$obj109850%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109691%_))) + (##structure-type _%$obj109850%_))) '#t) - _%$obj109691%_ + _%$obj109850%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109691%_))))) - (_%self109696%_ _%self109694%_)) - (&HashTable-delete! _%self109696%_ _%key109689%_)))) + (cast HashTable::interface _%$obj109850%_))))) + (_%self109855%_ _%self109853%_)) + (&HashTable-delete! _%self109855%_ _%key109848%_)))) (define &HashTable-delete! - (lambda (_%self109672%_ _%key109673%_) - (let ((_%self109675%_ _%self109672%_)) + (lambda (_%self109831%_ _%key109832%_) + (let ((_%self109834%_ _%self109831%_)) (declare (not safe)) - (let ((_%obj109685%_ - (##unchecked-structure-ref _%self109675%_ '1 '#f 'delete!)) - (_%f109686%_ - (##unchecked-structure-ref _%self109675%_ '4 '#f 'delete!))) - (_%f109686%_ _%obj109685%_ _%key109673%_))))) + (let ((_%obj109844%_ + (##unchecked-structure-ref _%self109834%_ '1 '#f 'delete!)) + (_%f109845%_ + (##unchecked-structure-ref _%self109834%_ '4 '#f 'delete!))) + (_%f109845%_ _%obj109844%_ _%key109832%_))))) (define HashTable-for-each - (lambda (_%self109645%_ _%proc109646%_) - (let* ((_%self109651%_ - (let ((_%$obj109648%_ _%self109645%_)) + (lambda (_%self109804%_ _%proc109805%_) + (let* ((_%self109810%_ + (let ((_%$obj109807%_ _%self109804%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109648%_)) + (##structure? _%$obj109807%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109648%_))) + (##structure-type _%$obj109807%_))) '#t) - _%$obj109648%_ + _%$obj109807%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109648%_))))) - (_%self109653%_ _%self109651%_)) - (if (procedure? _%proc109646%_) - (let ((_%proc109662%_ _%proc109646%_)) - (&HashTable-for-each _%self109653%_ _%proc109662%_)) + (cast HashTable::interface _%$obj109807%_))))) + (_%self109812%_ _%self109810%_)) + (if (procedure? _%proc109805%_) + (let ((_%proc109821%_ _%proc109805%_)) + (&HashTable-for-each _%self109812%_ _%proc109821%_)) (begin (raise-contract-violation-error '"contract violation" @@ -278,127 +278,127 @@ 'contract: 'procedure? 'value: - _%proc109646%_) + _%proc109805%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self109621%_ _%proc109622%_) - (let* ((_%self109624%_ _%self109621%_) (_%proc109631%_ _%proc109622%_)) + (lambda (_%self109780%_ _%proc109781%_) + (let* ((_%self109783%_ _%self109780%_) (_%proc109790%_ _%proc109781%_)) (declare (not safe)) - (let ((_%obj109642%_ - (##unchecked-structure-ref _%self109624%_ '1 '#f 'for-each)) - (_%f109643%_ - (##unchecked-structure-ref _%self109624%_ '5 '#f 'for-each))) - (_%f109643%_ _%obj109642%_ _%proc109631%_))))) + (let ((_%obj109801%_ + (##unchecked-structure-ref _%self109783%_ '1 '#f 'for-each)) + (_%f109802%_ + (##unchecked-structure-ref _%self109783%_ '5 '#f 'for-each))) + (_%f109802%_ _%obj109801%_ _%proc109790%_))))) (define HashTable-length - (lambda (_%self109605%_) - (let* ((_%self109610%_ - (let ((_%$obj109607%_ _%self109605%_)) + (lambda (_%self109764%_) + (let* ((_%self109769%_ + (let ((_%$obj109766%_ _%self109764%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109607%_)) + (##structure? _%$obj109766%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109607%_))) + (##structure-type _%$obj109766%_))) '#t) - _%$obj109607%_ + _%$obj109766%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109607%_))))) - (_%self109612%_ _%self109610%_)) - (__HashTable-length _%self109612%_)))) + (cast HashTable::interface _%$obj109766%_))))) + (_%self109771%_ _%self109769%_)) + (__HashTable-length _%self109771%_)))) (define __HashTable-length - (lambda (_%self109592%_) - (let* ((_%self109594%_ _%self109592%_) - (_%val109602%_ (&HashTable-length _%self109594%_))) - _%val109602%_))) + (lambda (_%self109751%_) + (let* ((_%self109753%_ _%self109751%_) + (_%val109761%_ (&HashTable-length _%self109753%_))) + _%val109761%_))) (define &HashTable-length - (lambda (_%self109577%_) - (let ((_%self109579%_ _%self109577%_)) + (lambda (_%self109736%_) + (let ((_%self109738%_ _%self109736%_)) (declare (not safe)) - (let ((_%obj109589%_ - (##unchecked-structure-ref _%self109579%_ '1 '#f 'length)) - (_%f109590%_ - (##unchecked-structure-ref _%self109579%_ '6 '#f 'length))) - (_%f109590%_ _%obj109589%_))))) + (let ((_%obj109748%_ + (##unchecked-structure-ref _%self109738%_ '1 '#f 'length)) + (_%f109749%_ + (##unchecked-structure-ref _%self109738%_ '6 '#f 'length))) + (_%f109749%_ _%obj109748%_))))) (define HashTable-ref - (lambda (_%self109559%_ _%key109560%_ _%default109561%_) - (let* ((_%self109566%_ - (let ((_%$obj109563%_ _%self109559%_)) + (lambda (_%self109718%_ _%key109719%_ _%default109720%_) + (let* ((_%self109725%_ + (let ((_%$obj109722%_ _%self109718%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109563%_)) + (##structure? _%$obj109722%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109563%_))) + (##structure-type _%$obj109722%_))) '#t) - _%$obj109563%_ + _%$obj109722%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109563%_))))) - (_%self109568%_ _%self109566%_)) - (&HashTable-ref _%self109568%_ _%key109560%_ _%default109561%_)))) + (cast HashTable::interface _%$obj109722%_))))) + (_%self109727%_ _%self109725%_)) + (&HashTable-ref _%self109727%_ _%key109719%_ _%default109720%_)))) (define &HashTable-ref - (lambda (_%self109542%_ _%key109543%_ _%default109544%_) - (let ((_%self109546%_ _%self109542%_)) + (lambda (_%self109701%_ _%key109702%_ _%default109703%_) + (let ((_%self109705%_ _%self109701%_)) (declare (not safe)) - (let ((_%obj109556%_ - (##unchecked-structure-ref _%self109546%_ '1 '#f 'ref)) - (_%f109557%_ - (##unchecked-structure-ref _%self109546%_ '7 '#f 'ref))) - (_%f109557%_ _%obj109556%_ _%key109543%_ _%default109544%_))))) + (let ((_%obj109715%_ + (##unchecked-structure-ref _%self109705%_ '1 '#f 'ref)) + (_%f109716%_ + (##unchecked-structure-ref _%self109705%_ '7 '#f 'ref))) + (_%f109716%_ _%obj109715%_ _%key109702%_ _%default109703%_))))) (define HashTable-set! - (lambda (_%self109524%_ _%key109525%_ _%value109526%_) - (let* ((_%self109531%_ - (let ((_%$obj109528%_ _%self109524%_)) + (lambda (_%self109683%_ _%key109684%_ _%value109685%_) + (let* ((_%self109690%_ + (let ((_%$obj109687%_ _%self109683%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109528%_)) + (##structure? _%$obj109687%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109528%_))) + (##structure-type _%$obj109687%_))) '#t) - _%$obj109528%_ + _%$obj109687%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109528%_))))) - (_%self109533%_ _%self109531%_)) - (&HashTable-set! _%self109533%_ _%key109525%_ _%value109526%_)))) + (cast HashTable::interface _%$obj109687%_))))) + (_%self109692%_ _%self109690%_)) + (&HashTable-set! _%self109692%_ _%key109684%_ _%value109685%_)))) (define &HashTable-set! - (lambda (_%self109507%_ _%key109508%_ _%value109509%_) - (let ((_%self109511%_ _%self109507%_)) + (lambda (_%self109666%_ _%key109667%_ _%value109668%_) + (let ((_%self109670%_ _%self109666%_)) (declare (not safe)) - (let ((_%obj109521%_ - (##unchecked-structure-ref _%self109511%_ '1 '#f 'set!)) - (_%f109522%_ - (##unchecked-structure-ref _%self109511%_ '8 '#f 'set!))) - (_%f109522%_ _%obj109521%_ _%key109508%_ _%value109509%_))))) + (let ((_%obj109680%_ + (##unchecked-structure-ref _%self109670%_ '1 '#f 'set!)) + (_%f109681%_ + (##unchecked-structure-ref _%self109670%_ '8 '#f 'set!))) + (_%f109681%_ _%obj109680%_ _%key109667%_ _%value109668%_))))) (define HashTable-update! - (lambda (_%self109478%_ _%key109479%_ _%proc109480%_ _%default109481%_) - (let* ((_%self109486%_ - (let ((_%$obj109483%_ _%self109478%_)) + (lambda (_%self109637%_ _%key109638%_ _%proc109639%_ _%default109640%_) + (let* ((_%self109645%_ + (let ((_%$obj109642%_ _%self109637%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109483%_)) + (##structure? _%$obj109642%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109483%_))) + (##structure-type _%$obj109642%_))) '#t) - _%$obj109483%_ + _%$obj109642%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109483%_))))) - (_%self109488%_ _%self109486%_)) - (if (procedure? _%proc109480%_) - (let ((_%proc109497%_ _%proc109480%_)) + (cast HashTable::interface _%$obj109642%_))))) + (_%self109647%_ _%self109645%_)) + (if (procedure? _%proc109639%_) + (let ((_%proc109656%_ _%proc109639%_)) (&HashTable-update! - _%self109488%_ - _%key109479%_ - _%proc109497%_ - _%default109481%_)) + _%self109647%_ + _%key109638%_ + _%proc109656%_ + _%default109640%_)) (begin (raise-contract-violation-error '"contract violation" @@ -407,28 +407,28 @@ 'contract: 'procedure? 'value: - _%proc109480%_) + _%proc109639%_) '#!void))))) (define &HashTable-update! - (lambda (_%self109450%_ _%key109451%_ _%proc109452%_ _%default109453%_) - (let* ((_%self109455%_ _%self109450%_) (_%proc109462%_ _%proc109452%_)) + (lambda (_%self109609%_ _%key109610%_ _%proc109611%_ _%default109612%_) + (let* ((_%self109614%_ _%self109609%_) (_%proc109621%_ _%proc109611%_)) (declare (not safe)) - (let ((_%obj109473%_ - (##unchecked-structure-ref _%self109455%_ '1 '#f 'update!)) - (_%f109475%_ - (##unchecked-structure-ref _%self109455%_ '9 '#f 'update!))) - (_%f109475%_ - _%obj109473%_ - _%key109451%_ - _%proc109462%_ - _%default109453%_))))) + (let ((_%obj109632%_ + (##unchecked-structure-ref _%self109614%_ '1 '#f 'update!)) + (_%f109634%_ + (##unchecked-structure-ref _%self109614%_ '9 '#f 'update!))) + (_%f109634%_ + _%obj109632%_ + _%key109610%_ + _%proc109621%_ + _%default109612%_))))) (define Locker::t - (let ((__tmp109938 (cons interface-instance::t '()))) + (let ((__tmp110097 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp109938 + __tmp110097 '(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 (_%obj109448%_) - (let () (declare (not safe)) (cast Locker::interface _%obj109448%_)))) + (lambda (_%obj109607%_) + (let () (declare (not safe)) (cast Locker::interface _%obj109607%_)))) (define try-Locker - (lambda (_%obj109446%_) + (lambda (_%obj109605%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj109446%_)))) + (try-cast Locker::interface _%obj109605%_)))) (define Locker? - (lambda (_%obj109444%_) - (let ((__tmp109939 + (lambda (_%obj109603%_) + (let ((__tmp110098 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109444%_ __tmp109939)))) + (##structure-direct-instance-of? _%obj109603%_ __tmp110098)))) (define is-Locker? - (lambda (_%obj109442%_) + (lambda (_%obj109601%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj109442%_)) + (satisfies? Locker::interface _%obj109601%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self109426%_) - (let* ((_%self109431%_ - (let ((_%$obj109428%_ _%self109426%_)) + (lambda (_%self109585%_) + (let* ((_%self109590%_ + (let ((_%$obj109587%_ _%self109585%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109428%_)) + (##structure? _%$obj109587%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109428%_))) + (##structure-type _%$obj109587%_))) '#t) - _%$obj109428%_ + _%$obj109587%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109428%_))))) - (_%self109433%_ _%self109431%_)) - (&Locker-read-lock! _%self109433%_)))) + (cast Locker::interface _%$obj109587%_))))) + (_%self109592%_ _%self109590%_)) + (&Locker-read-lock! _%self109592%_)))) (define &Locker-read-lock! - (lambda (_%self109411%_) - (let ((_%self109413%_ _%self109411%_)) + (lambda (_%self109570%_) + (let ((_%self109572%_ _%self109570%_)) (declare (not safe)) - (let ((_%obj109423%_ - (##unchecked-structure-ref _%self109413%_ '1 '#f 'read-lock!)) - (_%f109424%_ + (let ((_%obj109582%_ + (##unchecked-structure-ref _%self109572%_ '1 '#f 'read-lock!)) + (_%f109583%_ (##unchecked-structure-ref - _%self109413%_ + _%self109572%_ '2 '#f 'read-lock!))) - (_%f109424%_ _%obj109423%_))))) + (_%f109583%_ _%obj109582%_))))) (define Locker-read-unlock! - (lambda (_%self109395%_) - (let* ((_%self109400%_ - (let ((_%$obj109397%_ _%self109395%_)) + (lambda (_%self109554%_) + (let* ((_%self109559%_ + (let ((_%$obj109556%_ _%self109554%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109397%_)) + (##structure? _%$obj109556%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109397%_))) + (##structure-type _%$obj109556%_))) '#t) - _%$obj109397%_ + _%$obj109556%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109397%_))))) - (_%self109402%_ _%self109400%_)) - (&Locker-read-unlock! _%self109402%_)))) + (cast Locker::interface _%$obj109556%_))))) + (_%self109561%_ _%self109559%_)) + (&Locker-read-unlock! _%self109561%_)))) (define &Locker-read-unlock! - (lambda (_%self109380%_) - (let ((_%self109382%_ _%self109380%_)) + (lambda (_%self109539%_) + (let ((_%self109541%_ _%self109539%_)) (declare (not safe)) - (let ((_%obj109392%_ + (let ((_%obj109551%_ (##unchecked-structure-ref - _%self109382%_ + _%self109541%_ '1 '#f 'read-unlock!)) - (_%f109393%_ + (_%f109552%_ (##unchecked-structure-ref - _%self109382%_ + _%self109541%_ '3 '#f 'read-unlock!))) - (_%f109393%_ _%obj109392%_))))) + (_%f109552%_ _%obj109551%_))))) (define Locker-write-lock! - (lambda (_%self109364%_) - (let* ((_%self109369%_ - (let ((_%$obj109366%_ _%self109364%_)) + (lambda (_%self109523%_) + (let* ((_%self109528%_ + (let ((_%$obj109525%_ _%self109523%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109366%_)) + (##structure? _%$obj109525%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109366%_))) + (##structure-type _%$obj109525%_))) '#t) - _%$obj109366%_ + _%$obj109525%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109366%_))))) - (_%self109371%_ _%self109369%_)) - (&Locker-write-lock! _%self109371%_)))) + (cast Locker::interface _%$obj109525%_))))) + (_%self109530%_ _%self109528%_)) + (&Locker-write-lock! _%self109530%_)))) (define &Locker-write-lock! - (lambda (_%self109349%_) - (let ((_%self109351%_ _%self109349%_)) + (lambda (_%self109508%_) + (let ((_%self109510%_ _%self109508%_)) (declare (not safe)) - (let ((_%obj109361%_ + (let ((_%obj109520%_ (##unchecked-structure-ref - _%self109351%_ + _%self109510%_ '1 '#f 'write-lock!)) - (_%f109362%_ + (_%f109521%_ (##unchecked-structure-ref - _%self109351%_ + _%self109510%_ '4 '#f 'write-lock!))) - (_%f109362%_ _%obj109361%_))))) + (_%f109521%_ _%obj109520%_))))) (define Locker-write-unlock! - (lambda (_%self109333%_) - (let* ((_%self109338%_ - (let ((_%$obj109335%_ _%self109333%_)) + (lambda (_%self109492%_) + (let* ((_%self109497%_ + (let ((_%$obj109494%_ _%self109492%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109335%_)) + (##structure? _%$obj109494%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109335%_))) + (##structure-type _%$obj109494%_))) '#t) - _%$obj109335%_ + _%$obj109494%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109335%_))))) - (_%self109340%_ _%self109338%_)) - (&Locker-write-unlock! _%self109340%_)))) + (cast Locker::interface _%$obj109494%_))))) + (_%self109499%_ _%self109497%_)) + (&Locker-write-unlock! _%self109499%_)))) (define &Locker-write-unlock! - (lambda (_%self109316%_) - (let ((_%self109318%_ _%self109316%_)) + (lambda (_%self109475%_) + (let ((_%self109477%_ _%self109475%_)) (declare (not safe)) - (let ((_%obj109328%_ + (let ((_%obj109487%_ (##unchecked-structure-ref - _%self109318%_ + _%self109477%_ '1 '#f 'write-unlock!)) - (_%f109330%_ + (_%f109489%_ (##unchecked-structure-ref - _%self109318%_ + _%self109477%_ '5 '#f 'write-unlock!))) - (_%f109330%_ _%obj109328%_))))) + (_%f109489%_ _%obj109487%_))))) (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 (_%table109309%_ - _%key109310%_ - _%update109311%_ - _%default109312%_) - (let ((_%result109314%_ - (table-ref _%table109309%_ _%key109310%_ _%default109312%_))) + (lambda (_%table109468%_ + _%key109469%_ + _%update109470%_ + _%default109471%_) + (let ((_%result109473%_ + (table-ref _%table109468%_ _%key109469%_ _%default109471%_))) (table-set! - _%table109309%_ - _%key109310%_ - (_%update109311%_ _%default109312%_))))) + _%table109468%_ + _%key109469%_ + (_%update109470%_ _%default109471%_))))) (define gambit-table-for-each - (lambda (_%table109306%_ _%proc109307%_) - (table-for-each _%proc109307%_ _%table109306%_))) + (lambda (_%table109465%_ _%proc109466%_) + (table-for-each _%proc109466%_ _%table109465%_))) (define gambit-table-clear! - (lambda (_%table109304%_) + (lambda (_%table109463%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table109304%_ '0 '5 '#f '#f)))) - (let ((__tmp109940 (macro-type-table))) + (##unchecked-structure-set! _%table109463%_ '0 '5 '#f '#f)))) + (let ((__tmp110099 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109940 'ref table-ref)) - (let ((__tmp109941 (macro-type-table))) + (bind-method!__0 __tmp110099 'ref table-ref)) + (let ((__tmp110100 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109941 'set! table-set!)) - (let ((__tmp109942 (macro-type-table))) + (bind-method!__0 __tmp110100 'set! table-set!)) + (let ((__tmp110101 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109942 'update! gambit-table-update!)) - (let ((__tmp109943 (macro-type-table))) + (bind-method!__0 __tmp110101 'update! gambit-table-update!)) + (let ((__tmp110102 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109943 'delete! table-set!)) - (let ((__tmp109944 (macro-type-table))) + (bind-method!__0 __tmp110102 'delete! table-set!)) + (let ((__tmp110103 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109944 'for-each gambit-table-for-each)) - (let ((__tmp109945 (macro-type-table))) + (bind-method!__0 __tmp110103 'for-each gambit-table-for-each)) + (let ((__tmp110104 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109945 'length table-length)) - (let ((__tmp109946 (macro-type-table))) + (bind-method!__0 __tmp110104 'length table-length)) + (let ((__tmp110105 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109946 'copy table-copy)) - (let ((__tmp109947 (macro-type-table))) + (bind-method!__0 __tmp110105 'copy table-copy)) + (let ((__tmp110106 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109947 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp110106 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots109286%_ '(table count free hash test seed)) - (_%slot-vector109288%_ (list->vector (cons '#f _%slots109286%_))) - (_%slot-table109295%_ - (let ((_%slot-table109290%_ + (let* ((_%slots109445%_ '(table count free hash test seed)) + (_%slot-vector109447%_ (list->vector (cons '#f _%slots109445%_))) + (_%slot-table109454%_ + (let ((_%slot-table109449%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp109950 - (lambda (_%slot109292%_ _%field109293%_) + (let ((__tmp110109 + (lambda (_%slot109451%_ _%field109452%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109290%_ - _%slot109292%_ - _%field109293%_)) - (let ((__tmp109951 + _%slot-table109449%_ + _%slot109451%_ + _%field109452%_)) + (let ((__tmp110110 (let () (declare (not safe)) - (symbol->keyword _%slot109292%_)))) + (symbol->keyword _%slot109451%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109290%_ - __tmp109951 - _%field109293%_)))) - (__tmp109948 - (let ((__tmp109949 + _%slot-table109449%_ + __tmp110110 + _%field109452%_)))) + (__tmp110107 + (let ((__tmp110108 (let () (declare (not safe)) - (##length _%slots109286%_)))) + (##length _%slots109445%_)))) (declare (not safe)) - (##iota __tmp109949 '1)))) + (##iota __tmp110108 '1)))) (declare (not safe)) - (##for-each __tmp109950 _%slots109286%_ __tmp109948)) - _%slot-table109290%_)) - (_%flags109297%_ + (##for-each __tmp110109 _%slots109445%_ __tmp110107)) + _%slot-table109449%_)) + (_%flags109456%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields109299%_ '#()) - (_%properties109301%_ + (_%fields109458%_ '#()) + (_%properties109460%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109286%_))) + (__foldr1 cons '() _%slots109445%_))) (cons (cons 'struct: '#t) '()))) - (__tmp109952 (cons object::t (cons t::t '())))) + (__tmp110111 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags109297%_ + _%flags109456%_ __table::t - _%fields109299%_ - __tmp109952 - _%slot-vector109288%_ - _%slot-table109295%_ - _%properties109301%_ + _%fields109458%_ + __tmp110111 + _%slot-vector109447%_ + _%slot-table109454%_ + _%properties109460%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots109268%_ '(gcht immediate)) - (_%slot-vector109270%_ (list->vector (cons '#f _%slots109268%_))) - (_%slot-table109277%_ - (let ((_%slot-table109272%_ + (let* ((_%slots109427%_ '(gcht immediate)) + (_%slot-vector109429%_ (list->vector (cons '#f _%slots109427%_))) + (_%slot-table109436%_ + (let ((_%slot-table109431%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp109955 - (lambda (_%slot109274%_ _%field109275%_) + (let ((__tmp110114 + (lambda (_%slot109433%_ _%field109434%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109272%_ - _%slot109274%_ - _%field109275%_)) - (let ((__tmp109956 + _%slot-table109431%_ + _%slot109433%_ + _%field109434%_)) + (let ((__tmp110115 (let () (declare (not safe)) - (symbol->keyword _%slot109274%_)))) + (symbol->keyword _%slot109433%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109272%_ - __tmp109956 - _%field109275%_)))) - (__tmp109953 - (let ((__tmp109954 + _%slot-table109431%_ + __tmp110115 + _%field109434%_)))) + (__tmp110112 + (let ((__tmp110113 (let () (declare (not safe)) - (##length _%slots109268%_)))) + (##length _%slots109427%_)))) (declare (not safe)) - (##iota __tmp109954 '1)))) + (##iota __tmp110113 '1)))) (declare (not safe)) - (##for-each __tmp109955 _%slots109268%_ __tmp109953)) - _%slot-table109272%_)) - (_%flags109279%_ + (##for-each __tmp110114 _%slots109427%_ __tmp110112)) + _%slot-table109431%_)) + (_%flags109438%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields109281%_ '#()) - (_%properties109283%_ + (_%fields109440%_ '#()) + (_%properties109442%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109268%_))) + (__foldr1 cons '() _%slots109427%_))) (cons (cons 'struct: '#t) '()))) - (__tmp109957 (cons object::t (cons t::t '())))) + (__tmp110116 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags109279%_ + _%flags109438%_ __gc-table::t - _%fields109281%_ - __tmp109957 - _%slot-vector109270%_ - _%slot-table109277%_ - _%properties109283%_ + _%fields109440%_ + __tmp110116 + _%slot-vector109429%_ + _%slot-table109436%_ + _%properties109442%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp109959 (list)) - (__tmp109958 + (let ((__tmp110118 (list)) + (__tmp110117 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp109959 + __tmp110118 '(table lock) - __tmp109958 + __tmp110117 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args109265%_ - (apply make-instance locked-hash-table::t _%$args109265%_))) + (lambda _%$args109424%_ + (apply make-instance locked-hash-table::t _%$args109424%_))) (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 ((__tmp109961 (list)) - (__tmp109960 + (let ((__tmp110120 (list)) + (__tmp110119 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp109961 + __tmp110120 '(table key-check) - __tmp109960 + __tmp110119 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args109262%_ - (apply make-instance checked-hash-table::t _%$args109262%_))) + (lambda _%$args109421%_ + (apply make-instance checked-hash-table::t _%$args109421%_))) (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 ((__tmp109963 (list hash-table::t)) - (__tmp109962 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110122 (list hash-table::t)) + (__tmp110121 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp109963 + __tmp110122 '() - __tmp109962 + __tmp110121 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args109259%_ - (apply make-instance eq-hash-table::t _%$args109259%_))) + (lambda _%$args109418%_ + (apply make-instance eq-hash-table::t _%$args109418%_))) (define eqv-hash-table::t - (let ((__tmp109965 (list hash-table::t)) - (__tmp109964 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110124 (list hash-table::t)) + (__tmp110123 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp109965 + __tmp110124 '() - __tmp109964 + __tmp110123 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args109256%_ - (apply make-instance eqv-hash-table::t _%$args109256%_))) + (lambda _%$args109415%_ + (apply make-instance eqv-hash-table::t _%$args109415%_))) (define symbol-hash-table::t - (let ((__tmp109967 (list hash-table::t)) - (__tmp109966 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110126 (list hash-table::t)) + (__tmp110125 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp109967 + __tmp110126 '() - __tmp109966 + __tmp110125 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args109253%_ - (apply make-instance symbol-hash-table::t _%$args109253%_))) + (lambda _%$args109412%_ + (apply make-instance symbol-hash-table::t _%$args109412%_))) (define string-hash-table::t - (let ((__tmp109969 (list hash-table::t)) - (__tmp109968 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110128 (list hash-table::t)) + (__tmp110127 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp109969 + __tmp110128 '() - __tmp109968 + __tmp110127 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args109250%_ - (apply make-instance string-hash-table::t _%$args109250%_))) + (lambda _%$args109409%_ + (apply make-instance string-hash-table::t _%$args109409%_))) (define immediate-hash-table::t - (let ((__tmp109971 (list hash-table::t)) - (__tmp109970 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110130 (list hash-table::t)) + (__tmp110129 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp109971 + __tmp110130 '() - __tmp109970 + __tmp110129 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args109247%_ - (apply make-instance immediate-hash-table::t _%$args109247%_))) + (lambda _%$args109406%_ + (apply make-instance immediate-hash-table::t _%$args109406%_))) (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::ref105247%_ - (lambda (_%self105246109221%_ _%key109223%_ _%default109224%_) - (let* ((_%self109226%_ _%self105246109221%_) - (_%self109229%_ _%self109226%_)) - (let ((_%h109239%_ + (define _%locked-hash-table::ref105406%_ + (lambda (_%self105405109380%_ _%key109382%_ _%default109383%_) + (let* ((_%self109385%_ _%self105405109380%_) + (_%self109388%_ _%self109385%_)) + (let ((_%h109398%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109229%_ '1 '#f '#f))) - (_%l109241%_ + (##unchecked-structure-ref _%self109388%_ '1 '#f '#f))) + (_%l109400%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109229%_ '2 '#f '#f)))) - (let ((__tmp109974 (lambda () (&Locker-read-lock! _%l109241%_))) - (__tmp109973 + (##unchecked-structure-ref _%self109388%_ '2 '#f '#f)))) + (let ((__tmp110133 (lambda () (&Locker-read-lock! _%l109400%_))) + (__tmp110132 (lambda () (&HashTable-ref - _%h109239%_ - _%key109223%_ - _%default109224%_))) - (__tmp109972 (lambda () (&Locker-read-unlock! _%l109241%_)))) + _%h109398%_ + _%key109382%_ + _%default109383%_))) + (__tmp110131 (lambda () (&Locker-read-unlock! _%l109400%_)))) (declare (not safe)) - (##dynamic-wind __tmp109974 __tmp109973 __tmp109972)))))) + (##dynamic-wind __tmp110133 __tmp110132 __tmp110131)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'ref - _%locked-hash-table::ref105247%_ + _%locked-hash-table::ref105406%_ '#f)) - (define _%locked-hash-table::set!105250%_ - (lambda (_%self105249109072%_ _%key109074%_ _%value109075%_) - (let* ((_%self109077%_ _%self105249109072%_) - (_%self109080%_ _%self109077%_)) - (let ((_%h109090%_ + (define _%locked-hash-table::set!105409%_ + (lambda (_%self105408109231%_ _%key109233%_ _%value109234%_) + (let* ((_%self109236%_ _%self105408109231%_) + (_%self109239%_ _%self109236%_)) + (let ((_%h109249%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109080%_ '1 '#f '#f))) - (_%l109092%_ + (##unchecked-structure-ref _%self109239%_ '1 '#f '#f))) + (_%l109251%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109080%_ '2 '#f '#f)))) - (let ((__tmp109977 (lambda () (&Locker-write-lock! _%l109092%_))) - (__tmp109976 + (##unchecked-structure-ref _%self109239%_ '2 '#f '#f)))) + (let ((__tmp110136 (lambda () (&Locker-write-lock! _%l109251%_))) + (__tmp110135 (lambda () (&HashTable-set! - _%h109090%_ - _%key109074%_ - _%value109075%_))) - (__tmp109975 - (lambda () (&Locker-write-unlock! _%l109092%_)))) + _%h109249%_ + _%key109233%_ + _%value109234%_))) + (__tmp110134 + (lambda () (&Locker-write-unlock! _%l109251%_)))) (declare (not safe)) - (##dynamic-wind __tmp109977 __tmp109976 __tmp109975)))))) + (##dynamic-wind __tmp110136 __tmp110135 __tmp110134)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'set! - _%locked-hash-table::set!105250%_ + _%locked-hash-table::set!105409%_ '#f)) - (define _%locked-hash-table::update!105253%_ - (lambda (_%self105252108922%_ - _%key108924%_ - _%update108925%_ - _%default108926%_) - (let* ((_%self108928%_ _%self105252108922%_) - (_%self108931%_ _%self108928%_)) - (let ((_%h108941%_ + (define _%locked-hash-table::update!105412%_ + (lambda (_%self105411109081%_ + _%key109083%_ + _%update109084%_ + _%default109085%_) + (let* ((_%self109087%_ _%self105411109081%_) + (_%self109090%_ _%self109087%_)) + (let ((_%h109100%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108931%_ '1 '#f '#f))) - (_%l108943%_ + (##unchecked-structure-ref _%self109090%_ '1 '#f '#f))) + (_%l109102%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108931%_ '2 '#f '#f)))) - (let ((__tmp109980 (lambda () (&Locker-write-lock! _%l108943%_))) - (__tmp109979 + (##unchecked-structure-ref _%self109090%_ '2 '#f '#f)))) + (let ((__tmp110139 (lambda () (&Locker-write-lock! _%l109102%_))) + (__tmp110138 (lambda () (&HashTable-update! - _%h108941%_ - _%key108924%_ - _%update108925%_ - _%default108926%_))) - (__tmp109978 - (lambda () (&Locker-write-unlock! _%l108943%_)))) + _%h109100%_ + _%key109083%_ + _%update109084%_ + _%default109085%_))) + (__tmp110137 + (lambda () (&Locker-write-unlock! _%l109102%_)))) (declare (not safe)) - (##dynamic-wind __tmp109980 __tmp109979 __tmp109978)))))) + (##dynamic-wind __tmp110139 __tmp110138 __tmp110137)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'update! - _%locked-hash-table::update!105253%_ + _%locked-hash-table::update!105412%_ '#f)) - (define _%locked-hash-table::delete!105256%_ - (lambda (_%self105255108774%_ _%key108776%_) - (let* ((_%self108778%_ _%self105255108774%_) - (_%self108781%_ _%self108778%_)) - (let ((_%h108791%_ + (define _%locked-hash-table::delete!105415%_ + (lambda (_%self105414108933%_ _%key108935%_) + (let* ((_%self108937%_ _%self105414108933%_) + (_%self108940%_ _%self108937%_)) + (let ((_%h108950%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108781%_ '1 '#f '#f))) - (_%l108793%_ + (##unchecked-structure-ref _%self108940%_ '1 '#f '#f))) + (_%l108952%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108781%_ '2 '#f '#f)))) - (let ((__tmp109983 (lambda () (&Locker-write-lock! _%l108793%_))) - (__tmp109982 - (lambda () (&HashTable-delete! _%h108791%_ _%key108776%_))) - (__tmp109981 - (lambda () (&Locker-write-unlock! _%l108793%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp109983 __tmp109982 __tmp109981)))))) + (##dynamic-wind __tmp110142 __tmp110141 __tmp110140)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'delete! - _%locked-hash-table::delete!105256%_ + _%locked-hash-table::delete!105415%_ '#f)) - (define _%locked-hash-table::for-each105259%_ - (lambda (_%self105258108626%_ _%proc108628%_) - (let* ((_%self108630%_ _%self105258108626%_) - (_%self108633%_ _%self108630%_)) - (let ((_%h108643%_ + (define _%locked-hash-table::for-each105418%_ + (lambda (_%self105417108785%_ _%proc108787%_) + (let* ((_%self108789%_ _%self105417108785%_) + (_%self108792%_ _%self108789%_)) + (let ((_%h108802%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108633%_ '1 '#f '#f))) - (_%l108645%_ + (##unchecked-structure-ref _%self108792%_ '1 '#f '#f))) + (_%l108804%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108633%_ '2 '#f '#f)))) - (let ((__tmp109986 (lambda () (&Locker-read-lock! _%l108645%_))) - (__tmp109985 + (##unchecked-structure-ref _%self108792%_ '2 '#f '#f)))) + (let ((__tmp110145 (lambda () (&Locker-read-lock! _%l108804%_))) + (__tmp110144 (lambda () - (&HashTable-for-each _%h108643%_ _%proc108628%_))) - (__tmp109984 (lambda () (&Locker-read-unlock! _%l108645%_)))) + (&HashTable-for-each _%h108802%_ _%proc108787%_))) + (__tmp110143 (lambda () (&Locker-read-unlock! _%l108804%_)))) (declare (not safe)) - (##dynamic-wind __tmp109986 __tmp109985 __tmp109984)))))) + (##dynamic-wind __tmp110145 __tmp110144 __tmp110143)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'for-each - _%locked-hash-table::for-each105259%_ + _%locked-hash-table::for-each105418%_ '#f)) - (define _%locked-hash-table::length105262%_ - (lambda (_%self105261108479%_) - (let* ((_%self108482%_ _%self105261108479%_) - (_%self108485%_ _%self108482%_)) - (let ((_%h108495%_ + (define _%locked-hash-table::length105421%_ + (lambda (_%self105420108638%_) + (let* ((_%self108641%_ _%self105420108638%_) + (_%self108644%_ _%self108641%_)) + (let ((_%h108654%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108485%_ '1 '#f '#f))) - (_%l108497%_ + (##unchecked-structure-ref _%self108644%_ '1 '#f '#f))) + (_%l108656%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108485%_ '2 '#f '#f)))) - (let ((__tmp109989 (lambda () (&Locker-read-lock! _%l108497%_))) - (__tmp109988 (lambda () (&HashTable-length _%h108495%_))) - (__tmp109987 (lambda () (&Locker-read-unlock! _%l108497%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp109989 __tmp109988 __tmp109987)))))) + (##dynamic-wind __tmp110148 __tmp110147 __tmp110146)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'length - _%locked-hash-table::length105262%_ + _%locked-hash-table::length105421%_ '#f)) - (define _%locked-hash-table::copy105265%_ - (lambda (_%self105264108332%_) - (let* ((_%self108335%_ _%self105264108332%_) - (_%self108338%_ _%self108335%_)) - (let ((_%h108348%_ + (define _%locked-hash-table::copy105424%_ + (lambda (_%self105423108491%_) + (let* ((_%self108494%_ _%self105423108491%_) + (_%self108497%_ _%self108494%_)) + (let ((_%h108507%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108338%_ '1 '#f '#f))) - (_%l108350%_ + (##unchecked-structure-ref _%self108497%_ '1 '#f '#f))) + (_%l108509%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108338%_ '2 '#f '#f)))) - (let ((__tmp109992 (lambda () (&Locker-read-lock! _%l108350%_))) - (__tmp109991 (lambda () (&HashTable-copy _%h108348%_))) - (__tmp109990 (lambda () (&Locker-read-unlock! _%l108350%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp109992 __tmp109991 __tmp109990)))))) + (##dynamic-wind __tmp110151 __tmp110150 __tmp110149)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'copy - _%locked-hash-table::copy105265%_ + _%locked-hash-table::copy105424%_ '#f)) - (define _%locked-hash-table::clear!105268%_ - (lambda (_%self105267108185%_) - (let* ((_%self108188%_ _%self105267108185%_) - (_%self108191%_ _%self108188%_)) - (let ((_%h108201%_ + (define _%locked-hash-table::clear!105427%_ + (lambda (_%self105426108344%_) + (let* ((_%self108347%_ _%self105426108344%_) + (_%self108350%_ _%self108347%_)) + (let ((_%h108360%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108191%_ '1 '#f '#f))) - (_%l108203%_ + (##unchecked-structure-ref _%self108350%_ '1 '#f '#f))) + (_%l108362%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108191%_ '2 '#f '#f)))) - (let ((__tmp109995 (lambda () (&Locker-write-lock! _%l108203%_))) - (__tmp109994 (lambda () (&HashTable-clear! _%h108201%_))) - (__tmp109993 - (lambda () (&Locker-write-unlock! _%l108203%_)))) + (##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%_)))) (declare (not safe)) - (##dynamic-wind __tmp109995 __tmp109994 __tmp109993)))))) + (##dynamic-wind __tmp110154 __tmp110153 __tmp110152)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'clear! - _%locked-hash-table::clear!105268%_ + _%locked-hash-table::clear!105427%_ '#f)) - (let ((__tmp109996 (macro-type-mutex))) + (let ((__tmp110155 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109996 'read-lock! mutex-lock!)) - (let ((__tmp109997 (macro-type-mutex))) + (bind-method!__0 __tmp110155 'read-lock! mutex-lock!)) + (let ((__tmp110156 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109997 'read-unlock! mutex-unlock!)) - (let ((__tmp109998 (macro-type-mutex))) + (bind-method!__0 __tmp110156 'read-unlock! mutex-unlock!)) + (let ((__tmp110157 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109998 'write-lock! mutex-lock!)) - (let ((__tmp109999 (macro-type-mutex))) + (bind-method!__0 __tmp110157 'write-lock! mutex-lock!)) + (let ((__tmp110158 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109999 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref105482%_ - (lambda (_%self105481108035%_ _%key108037%_ _%default108038%_) - (let* ((_%self108040%_ _%self105481108035%_) - (_%self108042%_ _%self108040%_)) + (bind-method!__0 __tmp110158 'write-unlock! mutex-unlock!)) + (define _%checked-hash-table::ref105641%_ + (lambda (_%self105640108194%_ _%key108196%_ _%default108197%_) + (let* ((_%self108199%_ _%self105640108194%_) + (_%self108201%_ _%self108199%_)) (declare (not safe)) - (let ((_%h108053%_ - (##unchecked-structure-ref _%self108042%_ '1 '#f '#f)) - (_%key?108055%_ - (##unchecked-structure-ref _%self108042%_ '2 '#f '#f))) - (if ((lambda (_%key?108058%_ _%key108059%_ _%default108060%_) - (_%key?108058%_ _%key108059%_)) - _%key?108055%_ - _%key108037%_ - _%default108038%_) - (&HashTable-ref _%h108053%_ _%key108037%_ _%default108038%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-ref 'value: - (cons _%key108037%_ (cons _%default108038%_ '()))) + (cons _%key108196%_ (cons _%default108197%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'ref - _%checked-hash-table::ref105482%_ + _%checked-hash-table::ref105641%_ '#f)) - (define _%checked-hash-table::set!105485%_ - (lambda (_%self105484107885%_ _%key107887%_ _%value107888%_) - (let* ((_%self107890%_ _%self105484107885%_) - (_%self107892%_ _%self107890%_)) + (define _%checked-hash-table::set!105644%_ + (lambda (_%self105643108044%_ _%key108046%_ _%value108047%_) + (let* ((_%self108049%_ _%self105643108044%_) + (_%self108051%_ _%self108049%_)) (declare (not safe)) - (let ((_%h107903%_ - (##unchecked-structure-ref _%self107892%_ '1 '#f '#f)) - (_%key?107905%_ - (##unchecked-structure-ref _%self107892%_ '2 '#f '#f))) - (if ((lambda (_%key?107908%_ _%key107909%_ _%value107910%_) - (_%key?107908%_ _%key107909%_)) - _%key?107905%_ - _%key107887%_ - _%value107888%_) - (&HashTable-set! _%h107903%_ _%key107887%_ _%value107888%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-set! 'value: - (cons _%key107887%_ (cons _%value107888%_ '()))) + (cons _%key108046%_ (cons _%value108047%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'set! - _%checked-hash-table::set!105485%_ + _%checked-hash-table::set!105644%_ '#f)) - (define _%checked-hash-table::update!105488%_ - (lambda (_%self105487107733%_ - _%key107735%_ - _%update107736%_ - _%default107737%_) - (let* ((_%self107739%_ _%self105487107733%_) - (_%self107741%_ _%self107739%_)) + (define _%checked-hash-table::update!105647%_ + (lambda (_%self105646107892%_ + _%key107894%_ + _%update107895%_ + _%default107896%_) + (let* ((_%self107898%_ _%self105646107892%_) + (_%self107900%_ _%self107898%_)) (declare (not safe)) - (let ((_%h107752%_ - (##unchecked-structure-ref _%self107741%_ '1 '#f '#f)) - (_%key?107754%_ - (##unchecked-structure-ref _%self107741%_ '2 '#f '#f))) - (if ((lambda (_%key?107757%_ - _%key107758%_ - _%update107759%_ - _%default107760%_) - (_%key?107757%_ _%key107758%_)) - _%key?107754%_ - _%key107735%_ - _%update107736%_ - _%default107737%_) + (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%_) (&HashTable-update! - _%h107752%_ - _%key107735%_ - _%update107736%_ - _%default107737%_) + _%h107911%_ + _%key107894%_ + _%update107895%_ + _%default107896%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key107735%_ - (cons _%update107736%_ (cons _%default107737%_ '())))) + (cons _%key107894%_ + (cons _%update107895%_ (cons _%default107896%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'update! - _%checked-hash-table::update!105488%_ + _%checked-hash-table::update!105647%_ '#f)) - (define _%checked-hash-table::delete!105491%_ - (lambda (_%self105490107585%_ _%key107587%_) - (let* ((_%self107589%_ _%self105490107585%_) - (_%self107591%_ _%self107589%_)) + (define _%checked-hash-table::delete!105650%_ + (lambda (_%self105649107744%_ _%key107746%_) + (let* ((_%self107748%_ _%self105649107744%_) + (_%self107750%_ _%self107748%_)) (declare (not safe)) - (let ((_%h107602%_ - (##unchecked-structure-ref _%self107591%_ '1 '#f '#f)) - (_%key?107604%_ - (##unchecked-structure-ref _%self107591%_ '2 '#f '#f))) - (if ((lambda (_%key?107607%_ _%key107608%_) - (_%key?107607%_ _%key107608%_)) - _%key?107604%_ - _%key107587%_) - (&HashTable-delete! _%h107602%_ _%key107587%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-delete! 'value: - (cons _%key107587%_ '())) + (cons _%key107746%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'delete! - _%checked-hash-table::delete!105491%_ + _%checked-hash-table::delete!105650%_ '#f)) - (define _%checked-hash-table::for-each105494%_ - (lambda (_%self105493107437%_ _%proc107439%_) - (let* ((_%self107441%_ _%self105493107437%_) - (_%self107443%_ _%self107441%_)) + (define _%checked-hash-table::for-each105653%_ + (lambda (_%self105652107596%_ _%proc107598%_) + (let* ((_%self107600%_ _%self105652107596%_) + (_%self107602%_ _%self107600%_)) (declare (not safe)) - (let ((_%h107454%_ - (##unchecked-structure-ref _%self107443%_ '1 '#f '#f)) - (_%key?107456%_ - (##unchecked-structure-ref _%self107443%_ '2 '#f '#f))) - (if ((lambda (_%key?107459%_ _%proc107460%_) '#t) - _%key?107456%_ - _%proc107439%_) - (&HashTable-for-each _%h107454%_ _%proc107439%_) + (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%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-for-each 'value: - (cons _%proc107439%_ '())) + (cons _%proc107598%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'for-each - _%checked-hash-table::for-each105494%_ + _%checked-hash-table::for-each105653%_ '#f)) - (define _%checked-hash-table::length105497%_ - (lambda (_%self105496107293%_) - (let* ((_%self107296%_ _%self105496107293%_) - (_%self107298%_ _%self107296%_)) + (define _%checked-hash-table::length105656%_ + (lambda (_%self105655107452%_) + (let* ((_%self107455%_ _%self105655107452%_) + (_%self107457%_ _%self107455%_)) (declare (not safe)) - (let ((_%h107309%_ - (##unchecked-structure-ref _%self107298%_ '1 '#f '#f)) - (_%key?107311%_ - (##unchecked-structure-ref _%self107298%_ '2 '#f '#f))) + (let ((_%h107468%_ + (##unchecked-structure-ref _%self107457%_ '1 '#f '#f)) + (_%key?107470%_ + (##unchecked-structure-ref _%self107457%_ '2 '#f '#f))) (if '#!void - (&HashTable-length _%h107309%_) + (&HashTable-length _%h107468%_) (begin (raise-contract-violation-error '"invalid key" @@ -1536,19 +1536,19 @@ (__bind-method!__% checked-hash-table::t 'length - _%checked-hash-table::length105497%_ + _%checked-hash-table::length105656%_ '#f)) - (define _%checked-hash-table::copy105500%_ - (lambda (_%self105499107149%_) - (let* ((_%self107152%_ _%self105499107149%_) - (_%self107154%_ _%self107152%_)) + (define _%checked-hash-table::copy105659%_ + (lambda (_%self105658107308%_) + (let* ((_%self107311%_ _%self105658107308%_) + (_%self107313%_ _%self107311%_)) (declare (not safe)) - (let ((_%h107165%_ - (##unchecked-structure-ref _%self107154%_ '1 '#f '#f)) - (_%key?107167%_ - (##unchecked-structure-ref _%self107154%_ '2 '#f '#f))) + (let ((_%h107324%_ + (##unchecked-structure-ref _%self107313%_ '1 '#f '#f)) + (_%key?107326%_ + (##unchecked-structure-ref _%self107313%_ '2 '#f '#f))) (if '#!void - (&HashTable-copy _%h107165%_) + (&HashTable-copy _%h107324%_) (begin (raise-contract-violation-error '"invalid key" @@ -1562,19 +1562,19 @@ (__bind-method!__% checked-hash-table::t 'copy - _%checked-hash-table::copy105500%_ + _%checked-hash-table::copy105659%_ '#f)) - (define _%checked-hash-table::clear!105503%_ - (lambda (_%self105502107005%_) - (let* ((_%self107008%_ _%self105502107005%_) - (_%self107010%_ _%self107008%_)) + (define _%checked-hash-table::clear!105662%_ + (lambda (_%self105661107164%_) + (let* ((_%self107167%_ _%self105661107164%_) + (_%self107169%_ _%self107167%_)) (declare (not safe)) - (let ((_%h107021%_ - (##unchecked-structure-ref _%self107010%_ '1 '#f '#f)) - (_%key?107023%_ - (##unchecked-structure-ref _%self107010%_ '2 '#f '#f))) + (let ((_%h107180%_ + (##unchecked-structure-ref _%self107169%_ '1 '#f '#f)) + (_%key?107182%_ + (##unchecked-structure-ref _%self107169%_ '2 '#f '#f))) (if '#!void - (&HashTable-clear! _%h107021%_) + (&HashTable-clear! _%h107180%_) (begin (raise-contract-violation-error '"invalid key" @@ -1588,394 +1588,394 @@ (__bind-method!__% checked-hash-table::t 'clear! - _%checked-hash-table::clear!105503%_ + _%checked-hash-table::clear!105662%_ '#f)) (define make-generic-hash-table - (lambda (_%table106875%_ - _%count106876%_ - _%free106877%_ - _%hash106878%_ - _%test106879%_ - _%seed106880%_) + (lambda (_%table107034%_ + _%count107035%_ + _%free107036%_ + _%hash107037%_ + _%test107038%_ + _%seed107039%_) (let () (declare (not safe)) (##structure hash-table::t - _%table106875%_ - _%count106876%_ - _%free106877%_ - _%hash106878%_ - _%test106879%_ - _%seed106880%_)))) + _%table107034%_ + _%count107035%_ + _%free107036%_ + _%hash107037%_ + _%test107038%_ + _%seed107039%_)))) (define make-hash-table__% - (lambda (_%@@keywords106636%_ - _%size-hint106626106637%_ - _%seed106627106639%_ - _%test106628106641%_ - _%hash106629106643%_ - _%lock106630106645%_ - _%check106631106647%_ - _%weak-keys106632106649%_ - _%weak-values106633106651%_) - (let* ((_%size-hint106654%_ - (if (eq? _%size-hint106626106637%_ absent-value) + (lambda (_%@@keywords106795%_ + _%size-hint106785106796%_ + _%seed106786106798%_ + _%test106787106800%_ + _%hash106788106802%_ + _%lock106789106804%_ + _%check106790106806%_ + _%weak-keys106791106808%_ + _%weak-values106792106810%_) + (let* ((_%size-hint106813%_ + (if (eq? _%size-hint106785106796%_ absent-value) '#f - _%size-hint106626106637%_)) - (_%seed106656%_ - (if (eq? _%seed106627106639%_ absent-value) + _%size-hint106785106796%_)) + (_%seed106815%_ + (if (eq? _%seed106786106798%_ absent-value) '#f - _%seed106627106639%_)) - (_%test106658%_ - (if (eq? _%test106628106641%_ absent-value) + _%seed106786106798%_)) + (_%test106817%_ + (if (eq? _%test106787106800%_ absent-value) equal? - _%test106628106641%_)) - (_%hash106660%_ - (if (eq? _%hash106629106643%_ absent-value) + _%test106787106800%_)) + (_%hash106819%_ + (if (eq? _%hash106788106802%_ absent-value) '#f - _%hash106629106643%_)) - (_%lock106662%_ - (if (eq? _%lock106630106645%_ absent-value) + _%hash106788106802%_)) + (_%lock106821%_ + (if (eq? _%lock106789106804%_ absent-value) '#f - _%lock106630106645%_)) - (_%check106664%_ - (if (eq? _%check106631106647%_ absent-value) + _%lock106789106804%_)) + (_%check106823%_ + (if (eq? _%check106790106806%_ absent-value) '#f - _%check106631106647%_)) - (_%weak-keys106666%_ - (if (eq? _%weak-keys106632106649%_ absent-value) + _%check106790106806%_)) + (_%weak-keys106825%_ + (if (eq? _%weak-keys106791106808%_ absent-value) '#f - _%weak-keys106632106649%_)) - (_%weak-values106668%_ - (if (eq? _%weak-values106633106651%_ absent-value) + _%weak-keys106791106808%_)) + (_%weak-values106827%_ + (if (eq? _%weak-values106792106810%_ absent-value) '#f - _%weak-values106633106651%_))) - (letrec ((_%table-seed106671%_ + _%weak-values106792106810%_))) + (letrec ((_%table-seed106830%_ (lambda () - (if (fixnum? _%seed106656%_) - _%seed106656%_ + (if (fixnum? _%seed106815%_) + _%seed106815%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock106672%_ - (lambda (_%ht106849%_) - (let ((_%ht106852%_ _%ht106849%_)) - (_%__wrap-lock106673%_ _%ht106852%_)))) - (_%__wrap-lock106673%_ - (lambda (_%ht106831%_) - (let ((_%ht106834%_ _%ht106831%_)) - (if _%lock106662%_ - (let ((_%$obj106846%_ - (let ((__tmp110000 - (let ((_%$obj106843%_ - _%lock106662%_)) + (_%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%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj106843%_)) + _%$obj107002%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj106843%_))) + _%$obj107002%_))) '#t) - _%$obj106843%_ + _%$obj107002%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj106843%_)))))) + _%$obj107002%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht106834%_ - __tmp110000)))) + _%ht106993%_ + __tmp110159)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106846%_)) + (##structure? _%$obj107005%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106846%_))) + _%$obj107005%_))) '#t) - _%$obj106846%_ + _%$obj107005%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106846%_)))) - _%ht106834%_)))) - (_%wrap-checked106674%_ - (lambda (_%ht106818%_ _%implicit106819%_) - (let ((_%ht106822%_ _%ht106818%_)) - (_%__wrap-checked106675%_ - _%ht106822%_ - _%implicit106819%_)))) - (_%__wrap-checked106675%_ - (lambda (_%ht106791%_ _%implicit106792%_) - (let ((_%ht106795%_ _%ht106791%_)) - (if _%check106664%_ - (let ((_%$obj106815%_ - (let ((__tmp110001 - (if (procedure? _%check106664%_) - _%check106664%_ - _%implicit106792%_))) + _%$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%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht106795%_ - __tmp110001)))) + _%ht106954%_ + __tmp110160)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106815%_)) + (##structure? _%$obj106974%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106815%_))) + _%$obj106974%_))) '#t) - _%$obj106815%_ + _%$obj106974%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106815%_)))) - _%ht106795%_)))) - (_%make106676%_ - (lambda (_%kons106775%_ - _%key?106776%_ - _%hash106777%_ - _%test106778%_) - (let* ((_%size106781%_ + _%$obj106974%_)))) + _%ht106954%_)))) + (_%make106835%_ + (lambda (_%kons106934%_ + _%key?106935%_ + _%hash106936%_ + _%test106937%_) + (let* ((_%size106940%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint106654%_))) - (_%table106783%_ - (let ((__tmp110002 (macro-unused-obj))) + _%size-hint106813%_))) + (_%table106942%_ + (let ((__tmp110161 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size106781%_ __tmp110002))) - (_%ht106788%_ - (let ((_%$obj106785%_ - (_%kons106775%_ - _%table106783%_ + (##make-vector _%size106940%_ __tmp110161))) + (_%ht106947%_ + (let ((_%$obj106944%_ + (_%kons106934%_ + _%table106942%_ '0 (let () (declare (not safe)) - (##fxquotient _%size106781%_ '2)) - _%hash106777%_ - _%test106778%_ - (_%table-seed106671%_)))) + (##fxquotient _%size106940%_ '2)) + _%hash106936%_ + _%test106937%_ + (_%table-seed106830%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106785%_)) + (##structure? _%$obj106944%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106785%_))) + _%$obj106944%_))) '#t) - _%$obj106785%_ + _%$obj106944%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106785%_)))))) - (_%__wrap-checked106675%_ - (_%__wrap-lock106673%_ _%ht106788%_) - _%key?106776%_)))) - (_%make-gc-hash-table106677%_ + _%$obj106944%_)))))) + (_%__wrap-checked106834%_ + (_%__wrap-lock106832%_ _%ht106947%_) + _%key?106935%_)))) + (_%make-gc-hash-table106836%_ (lambda () - (let ((_%ht106773%_ - (let ((_%$obj106770%_ + (let ((_%ht106932%_ + (let ((_%$obj106929%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint106654%_ + _%size-hint106813%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106770%_)) + (##structure? _%$obj106929%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106770%_))) + _%$obj106929%_))) '#t) - _%$obj106770%_ + _%$obj106929%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106770%_)))))) - (_%__wrap-checked106675%_ - (_%__wrap-lock106673%_ _%ht106773%_) + _%$obj106929%_)))))) + (_%__wrap-checked106834%_ + (_%__wrap-lock106832%_ _%ht106932%_) true)))) - (_%make-gambit-table106678%_ + (_%make-gambit-table106837%_ (lambda () - (let* ((_%size106747%_ - (let ((_%$e106744%_ _%size-hint106654%_)) - (if _%$e106744%_ - _%$e106744%_ + (let* ((_%size106906%_ + (let ((_%$e106903%_ _%size-hint106813%_)) + (if _%$e106903%_ + _%$e106903%_ (macro-absent-obj)))) - (_%test106752%_ - (let ((_%$e106749%_ _%test106658%_)) - (if _%$e106749%_ _%$e106749%_ equal?))) - (_%hash106760%_ - (let ((_%$e106754%_ _%hash106660%_)) - (if _%$e106754%_ - _%$e106754%_ - (if (eq? _%test106752%_ eq?) + (_%test106911%_ + (let ((_%$e106908%_ _%test106817%_)) + (if _%$e106908%_ _%$e106908%_ equal?))) + (_%hash106919%_ + (let ((_%$e106913%_ _%hash106819%_)) + (if _%$e106913%_ + _%$e106913%_ + (if (eq? _%test106911%_ eq?) eq?-hash - (if (eq? _%test106752%_ eqv?) + (if (eq? _%test106911%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht106765%_ - (let ((_%$obj106762%_ + (_%ht106924%_ + (let ((_%$obj106921%_ (make-table 'size: - _%size106747%_ + _%size106906%_ 'test: - _%test106752%_ + _%test106911%_ 'hash: - _%hash106760%_ + _%hash106919%_ 'weak-keys: - _%weak-keys106666%_ + _%weak-keys106825%_ 'weak-values: - _%weak-values106668%_))) + _%weak-values106827%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106762%_)) + (##structure? _%$obj106921%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106762%_))) + _%$obj106921%_))) '#t) - _%$obj106762%_ + _%$obj106921%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106762%_)))))) - (_%__wrap-checked106675%_ - (_%__wrap-lock106673%_ _%ht106765%_) + _%$obj106921%_)))))) + (_%__wrap-checked106834%_ + (_%__wrap-lock106832%_ _%ht106924%_) true))))) - (if (or _%weak-keys106666%_ _%weak-values106668%_) - (_%make-gambit-table106678%_) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (or (not _%hash106660%_) - (eq? _%hash106660%_ eq?-hash) - (eq? _%hash106660%_ eq-hash)) - (not _%seed106656%_)) - (_%make-gc-hash-table106677%_) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (or (not _%hash106660%_) - (eq? _%hash106660%_ eq?-hash) - (eq? _%hash106660%_ eq-hash))) - (_%make106676%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test106658%_ eqv?) - (eq? _%test106658%_ ##eqv?)) - (or (not _%hash106660%_) - (eq? _%hash106660%_ eqv?-hash) - (eq? _%hash106660%_ eqv-hash))) - (_%make106676%_ + (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%_ make-eqv-hash-table true eqv-hash eqv?) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (or (eq? _%hash106660%_ symbolic-hash) - (eq? _%hash106660%_ ##symbol-hash))) - (_%make106676%_ + (if (and (or (eq? _%test106817%_ eq?) + (eq? _%test106817%_ ##eq?)) + (or (eq? _%hash106819%_ symbolic-hash) + (eq? _%hash106819%_ ##symbol-hash))) + (_%make106835%_ make-symbol-hash-table symbolic? symbolic-hash eq?) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (eq? _%hash106660%_ immediate-hash)) - (_%make106676%_ + (if (and (or (eq? _%test106817%_ eq?) + (eq? _%test106817%_ ##eq?)) + (eq? _%hash106819%_ immediate-hash)) + (_%make106835%_ make-immediate-hash-table immediate? immediate-hash eq?) - (if (and (or (eq? _%test106658%_ equal?) - (eq? _%test106658%_ ##equal?) - (eq? _%test106658%_ string=?) - (eq? _%test106658%_ + (if (and (or (eq? _%test106817%_ equal?) + (eq? _%test106817%_ ##equal?) + (eq? _%test106817%_ string=?) + (eq? _%test106817%_ ##string=?)) - (or (eq? _%hash106660%_ + (or (eq? _%hash106819%_ string-hash) - (eq? _%hash106660%_ + (eq? _%hash106819%_ ##string=?-hash))) - (_%make106676%_ + (_%make106835%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test106658%_ equal?) - (not _%hash106660%_)) - (_%make106676%_ + (if (and (eq? _%test106817%_ equal?) + (not _%hash106819%_)) + (_%make106835%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test106658%_) - (if (procedure? _%hash106660%_) - (_%make106676%_ + (if (procedure? _%test106817%_) + (if (procedure? _%hash106819%_) + (_%make106835%_ make-generic-hash-table true - _%hash106660%_ - _%test106658%_) + _%hash106819%_ + _%test106817%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash106660%_)) + _%hash106819%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test106658%_)) + _%test106817%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords106865%_ . _%args106866%_) + (lambda (_%@@keywords107024%_ . _%args107025%_) (apply make-hash-table__% - _%@@keywords106865%_ + _%@@keywords107024%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords107024%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords107024%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords107024%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords107024%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords107024%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords106865%_ + _%@@keywords107024%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords106865%_ + _%@@keywords107024%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords106865%_ + _%@@keywords107024%_ 'weak-values: absent-value)) - _%args106866%_))) + _%args107025%_))) (define make-hash-table - (lambda _%args106634106872%_ + (lambda _%args106793107031%_ (apply keyword-dispatch '#(#f #f @@ -2018,525 +2018,525 @@ #f #f) make-hash-table__@ - _%args106634106872%_))) + _%args106793107031%_))) (define make-hash-table-eq - (lambda _%args106623%_ - (apply make-hash-table 'test: eq? _%args106623%_))) + (lambda _%args106782%_ + (apply make-hash-table 'test: eq? _%args106782%_))) (define make-hash-table-eqv - (lambda _%args106621%_ - (apply make-hash-table 'test: eqv? _%args106621%_))) + (lambda _%args106780%_ + (apply make-hash-table 'test: eqv? _%args106780%_))) (define make-hash-table-symbolic - (lambda _%args106619%_ + (lambda _%args106778%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args106619%_))) + _%args106778%_))) (define make-hash-table-string - (lambda _%args106617%_ + (lambda _%args106776%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args106617%_))) + _%args106776%_))) (define make-hash-table-immediate - (lambda _%args106615%_ + (lambda _%args106774%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args106615%_))) + _%args106774%_))) (define list->hash-table - (lambda (_%lst106612%_ . _%args106613%_) + (lambda (_%lst106771%_ . _%args106772%_) (list->hash-table! - _%lst106612%_ + _%lst106771%_ (apply make-hash-table 'size: - (length _%lst106612%_) - _%args106613%_)))) + (length _%lst106771%_) + _%args106772%_)))) (define list->hash-table-eq - (lambda (_%lst106609%_ . _%args106610%_) + (lambda (_%lst106768%_ . _%args106769%_) (list->hash-table! - _%lst106609%_ + _%lst106768%_ (apply make-hash-table-eq 'size: - (length _%lst106609%_) - _%args106610%_)))) + (length _%lst106768%_) + _%args106769%_)))) (define list->hash-table-eqv - (lambda (_%lst106606%_ . _%args106607%_) + (lambda (_%lst106765%_ . _%args106766%_) (list->hash-table! - _%lst106606%_ + _%lst106765%_ (apply make-hash-table-eqv 'size: - (length _%lst106606%_) - _%args106607%_)))) + (length _%lst106765%_) + _%args106766%_)))) (define list->hash-table-symbolic - (lambda (_%lst106603%_ . _%args106604%_) + (lambda (_%lst106762%_ . _%args106763%_) (list->hash-table! - _%lst106603%_ + _%lst106762%_ (apply make-hash-table-symbolic 'size: - (length _%lst106603%_) - _%args106604%_)))) + (length _%lst106762%_) + _%args106763%_)))) (define list->hash-table-string - (lambda (_%lst106600%_ . _%args106601%_) + (lambda (_%lst106759%_ . _%args106760%_) (list->hash-table! - _%lst106600%_ + _%lst106759%_ (apply make-hash-table-string 'size: - (length _%lst106600%_) - _%args106601%_)))) + (length _%lst106759%_) + _%args106760%_)))) (define list->hash-table-immediate - (lambda (_%lst106597%_ . _%args106598%_) + (lambda (_%lst106756%_ . _%args106757%_) (list->hash-table! - _%lst106597%_ + _%lst106756%_ (apply make-hash-table-immediate 'size: - (length _%lst106597%_) - _%args106598%_)))) + (length _%lst106756%_) + _%args106757%_)))) (define list->hash-table! - (lambda (_%lst106564%_ _%h106565%_) + (lambda (_%lst106723%_ _%h106724%_) (for-each - (lambda (_%el106567%_) - (let* ((_%el106568106575%_ _%el106567%_) - (_%E106570106579%_ + (lambda (_%el106726%_) + (let* ((_%el106727106734%_ _%el106726%_) + (_%E106729106738%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el106568106575%_ + _%el106727106734%_ '([k . v]))) '#!void)) - (_%K106571106585%_ - (lambda (_%v106582%_ _%k106583%_) - (&HashTable-set! _%h106565%_ _%k106583%_ _%v106582%_)))) - (if (pair? _%el106568106575%_) - (let ((_%hd106572106588%_ + (_%K106730106744%_ + (lambda (_%v106741%_ _%k106742%_) + (&HashTable-set! _%h106724%_ _%k106742%_ _%v106741%_)))) + (if (pair? _%el106727106734%_) + (let ((_%hd106731106747%_ (let () (declare (not safe)) - (##car _%el106568106575%_))) - (_%tl106573106590%_ + (##car _%el106727106734%_))) + (_%tl106732106749%_ (let () (declare (not safe)) - (##cdr _%el106568106575%_)))) - (let* ((_%k106593%_ _%hd106572106588%_) - (_%v106595%_ _%tl106573106590%_)) - (_%K106571106585%_ _%v106595%_ _%k106593%_))) - (_%E106570106579%_)))) - _%lst106564%_) - _%h106565%_)) + (##cdr _%el106727106734%_)))) + (let* ((_%k106752%_ _%hd106731106747%_) + (_%v106754%_ _%tl106732106749%_)) + (_%K106730106744%_ _%v106754%_ _%k106752%_))) + (_%E106729106738%_)))) + _%lst106723%_) + _%h106724%_)) (define plist->hash-table - (lambda (_%lst106561%_ . _%args106562%_) + (lambda (_%lst106720%_ . _%args106721%_) (plist->hash-table! - _%lst106561%_ + _%lst106720%_ (apply make-hash-table 'size: - (length _%lst106561%_) - _%args106562%_)))) + (length _%lst106720%_) + _%args106721%_)))) (define plist->hash-table-eq - (lambda (_%lst106558%_ . _%args106559%_) + (lambda (_%lst106717%_ . _%args106718%_) (plist->hash-table! - _%lst106558%_ + _%lst106717%_ (apply make-hash-table-eq 'size: - (length _%lst106558%_) - _%args106559%_)))) + (length _%lst106717%_) + _%args106718%_)))) (define plist->hash-table-eqv - (lambda (_%lst106555%_ . _%args106556%_) + (lambda (_%lst106714%_ . _%args106715%_) (plist->hash-table! - _%lst106555%_ + _%lst106714%_ (apply make-hash-table-eqv 'size: - (length _%lst106555%_) - _%args106556%_)))) + (length _%lst106714%_) + _%args106715%_)))) (define plist->hash-table-symbolic - (lambda (_%lst106552%_ . _%args106553%_) + (lambda (_%lst106711%_ . _%args106712%_) (plist->hash-table! - _%lst106552%_ + _%lst106711%_ (apply make-hash-table-symbolic 'size: - (length _%lst106552%_) - _%args106553%_)))) + (length _%lst106711%_) + _%args106712%_)))) (define plist->hash-table-string - (lambda (_%lst106549%_ . _%args106550%_) + (lambda (_%lst106708%_ . _%args106709%_) (plist->hash-table! - _%lst106549%_ + _%lst106708%_ (apply make-hash-table-string 'size: - (length _%lst106549%_) - _%args106550%_)))) + (length _%lst106708%_) + _%args106709%_)))) (define plist->hash-table-immediate - (lambda (_%lst106546%_ . _%args106547%_) + (lambda (_%lst106705%_ . _%args106706%_) (plist->hash-table! - _%lst106546%_ + _%lst106705%_ (apply make-hash-table-immediate 'size: - (length _%lst106546%_) - _%args106547%_)))) + (length _%lst106705%_) + _%args106706%_)))) (define plist->hash-table! - (lambda (_%lst106486%_ _%h106487%_) - (let _%loop106489%_ ((_%rest106491%_ _%lst106486%_)) - (let* ((_%rest106492106504%_ _%rest106491%_) - (_%else106495106512%_ + (lambda (_%lst106645%_ _%h106646%_) + (let _%loop106648%_ ((_%rest106650%_ _%lst106645%_)) + (let* ((_%rest106651106663%_ _%rest106650%_) + (_%else106654106671%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst106486%_))))) - (let ((_%K106498106527%_ - (lambda (_%rest106523%_ _%val106524%_ _%key106525%_) - (&HashTable-set! _%h106487%_ _%key106525%_ _%val106524%_) - (_%loop106489%_ _%rest106523%_))) - (_%K106497106517%_ (lambda () _%h106487%_))) - (let ((_%try-match106494106520%_ + _%lst106645%_))))) + (let ((_%K106657106686%_ + (lambda (_%rest106682%_ _%val106683%_ _%key106684%_) + (&HashTable-set! _%h106646%_ _%key106684%_ _%val106683%_) + (_%loop106648%_ _%rest106682%_))) + (_%K106656106676%_ (lambda () _%h106646%_))) + (let ((_%try-match106653106679%_ (lambda () - (if (null? _%rest106492106504%_) - (_%K106497106517%_) - (_%else106495106512%_))))) - (if (pair? _%rest106492106504%_) - (let ((_%tl106500106532%_ + (if (null? _%rest106651106663%_) + (_%K106656106676%_) + (_%else106654106671%_))))) + (if (pair? _%rest106651106663%_) + (let ((_%tl106659106691%_ (let () (declare (not safe)) - (##cdr _%rest106492106504%_))) - (_%hd106499106530%_ + (##cdr _%rest106651106663%_))) + (_%hd106658106689%_ (let () (declare (not safe)) - (##car _%rest106492106504%_)))) - (if (pair? _%tl106500106532%_) - (let ((_%tl106502106539%_ + (##car _%rest106651106663%_)))) + (if (pair? _%tl106659106691%_) + (let ((_%tl106661106698%_ (let () (declare (not safe)) - (##cdr _%tl106500106532%_))) - (_%hd106501106537%_ + (##cdr _%tl106659106691%_))) + (_%hd106660106696%_ (let () (declare (not safe)) - (##car _%tl106500106532%_)))) - (let ((_%key106535%_ _%hd106499106530%_) - (_%val106542%_ _%hd106501106537%_) - (_%rest106544%_ _%tl106502106539%_)) - (_%K106498106527%_ - _%rest106544%_ - _%val106542%_ - _%key106535%_))) - (_%else106495106512%_))) - (_%try-match106494106520%_)))))))) + (##car _%tl106659106691%_)))) + (let ((_%key106694%_ _%hd106658106689%_) + (_%val106701%_ _%hd106660106696%_) + (_%rest106703%_ _%tl106661106698%_)) + (_%K106657106686%_ + _%rest106703%_ + _%val106701%_ + _%key106694%_))) + (_%else106654106671%_))) + (_%try-match106653106679%_)))))))) (define hash-length - (lambda (_%h106468%_) - (let* ((_%h106474%_ - (let ((_%$obj106471%_ _%h106468%_)) + (lambda (_%h106627%_) + (let* ((_%h106633%_ + (let ((_%$obj106630%_ _%h106627%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106471%_)) + (##structure? _%$obj106630%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106471%_))) + (##structure-type _%$obj106630%_))) '#t) - _%$obj106471%_ + _%$obj106630%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106471%_))))) - (_%h106476%_ _%h106474%_)) - (__hash-length _%h106476%_)))) + (cast HashTable::interface _%$obj106630%_))))) + (_%h106635%_ _%h106633%_)) + (__hash-length _%h106635%_)))) (define __hash-length - (lambda (_%h106456%_) - (let ((_%h106459%_ _%h106456%_)) (__HashTable-length _%h106459%_)))) + (lambda (_%h106615%_) + (let ((_%h106618%_ _%h106615%_)) (__HashTable-length _%h106618%_)))) (define hash-ref__% - (lambda (_%h106424%_ _%key106425%_ _%default106426%_) - (let* ((_%h106432%_ - (let ((_%$obj106429%_ _%h106424%_)) + (lambda (_%h106583%_ _%key106584%_ _%default106585%_) + (let* ((_%h106591%_ + (let ((_%$obj106588%_ _%h106583%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106429%_)) + (##structure? _%$obj106588%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106429%_))) + (##structure-type _%$obj106588%_))) '#t) - _%$obj106429%_ + _%$obj106588%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106429%_))))) - (_%h106434%_ _%h106432%_)) - (__hash-ref__% _%h106434%_ _%key106425%_ _%default106426%_)))) + (cast HashTable::interface _%$obj106588%_))))) + (_%h106593%_ _%h106591%_)) + (__hash-ref__% _%h106593%_ _%key106584%_ _%default106585%_)))) (define hash-ref__0 - (lambda (_%h106447%_ _%key106448%_) - (let ((_%default106450%_ (macro-absent-obj))) - (hash-ref__% _%h106447%_ _%key106448%_ _%default106450%_)))) + (lambda (_%h106606%_ _%key106607%_) + (let ((_%default106609%_ (macro-absent-obj))) + (hash-ref__% _%h106606%_ _%key106607%_ _%default106609%_)))) (define hash-ref - (lambda _g110004_ - (let ((_g110003_ (let () (declare (not safe)) (##length _g110004_)))) - (cond ((let () (declare (not safe)) (##fx= _g110003_ 2)) - (apply hash-ref__0 _g110004_)) - ((let () (declare (not safe)) (##fx= _g110003_ 3)) - (apply hash-ref__% _g110004_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g110004_)))))) + _g110163_)))))) (define __hash-ref__% - (lambda (_%h106395%_ _%key106396%_ _%default106397%_) - (let* ((_%h106400%_ _%h106395%_) - (_%result106409%_ - (&HashTable-ref _%h106400%_ _%key106396%_ _%default106397%_))) - (if (eq? _%result106409%_ (macro-absent-obj)) + (lambda (_%h106554%_ _%key106555%_ _%default106556%_) + (let* ((_%h106559%_ _%h106554%_) + (_%result106568%_ + (&HashTable-ref _%h106559%_ _%key106555%_ _%default106556%_))) + (if (eq? _%result106568%_ (macro-absent-obj)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _%h106400%_ + _%h106559%_ 'key: - _%key106396%_) - _%result106409%_)))) + _%key106555%_) + _%result106568%_)))) (define __hash-ref__0 - (lambda (_%h106414%_ _%key106415%_) - (let ((_%default106417%_ (macro-absent-obj))) - (__hash-ref__% _%h106414%_ _%key106415%_ _%default106417%_)))) + (lambda (_%h106573%_ _%key106574%_) + (let ((_%default106576%_ (macro-absent-obj))) + (__hash-ref__% _%h106573%_ _%key106574%_ _%default106576%_)))) (define __hash-ref - (lambda _g110006_ - (let ((_g110005_ (let () (declare (not safe)) (##length _g110006_)))) - (cond ((let () (declare (not safe)) (##fx= _g110005_ 2)) - (apply __hash-ref__0 _g110006_)) - ((let () (declare (not safe)) (##fx= _g110005_ 3)) - (apply __hash-ref__% _g110006_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g110006_)))))) + _g110165_)))))) (define hash-get - (lambda (_%h106375%_ _%key106376%_) - (let* ((_%h106382%_ - (let ((_%$obj106379%_ _%h106375%_)) + (lambda (_%h106534%_ _%key106535%_) + (let* ((_%h106541%_ + (let ((_%$obj106538%_ _%h106534%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106379%_)) + (##structure? _%$obj106538%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106379%_))) + (##structure-type _%$obj106538%_))) '#t) - _%$obj106379%_ + _%$obj106538%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106379%_))))) - (_%h106384%_ _%h106382%_)) - (__hash-get _%h106384%_ _%key106376%_)))) + (cast HashTable::interface _%$obj106538%_))))) + (_%h106543%_ _%h106541%_)) + (__hash-get _%h106543%_ _%key106535%_)))) (define __hash-get - (lambda (_%h106362%_ _%key106363%_) - (let ((_%h106366%_ _%h106362%_)) - (&HashTable-ref _%h106366%_ _%key106363%_ '#f)))) + (lambda (_%h106521%_ _%key106522%_) + (let ((_%h106525%_ _%h106521%_)) + (&HashTable-ref _%h106525%_ _%key106522%_ '#f)))) (define hash-put! - (lambda (_%h106342%_ _%key106343%_ _%value106344%_) - (let* ((_%h106350%_ - (let ((_%$obj106347%_ _%h106342%_)) + (lambda (_%h106501%_ _%key106502%_ _%value106503%_) + (let* ((_%h106509%_ + (let ((_%$obj106506%_ _%h106501%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106347%_)) + (##structure? _%$obj106506%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106347%_))) + (##structure-type _%$obj106506%_))) '#t) - _%$obj106347%_ + _%$obj106506%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106347%_))))) - (_%h106352%_ _%h106350%_)) - (__hash-put! _%h106352%_ _%key106343%_ _%value106344%_)))) + (cast HashTable::interface _%$obj106506%_))))) + (_%h106511%_ _%h106509%_)) + (__hash-put! _%h106511%_ _%key106502%_ _%value106503%_)))) (define __hash-put! - (lambda (_%h106328%_ _%key106329%_ _%value106330%_) - (let ((_%h106333%_ _%h106328%_)) - (&HashTable-set! _%h106333%_ _%key106329%_ _%value106330%_)))) + (lambda (_%h106487%_ _%key106488%_ _%value106489%_) + (let ((_%h106492%_ _%h106487%_)) + (&HashTable-set! _%h106492%_ _%key106488%_ _%value106489%_)))) (define hash-update!__% - (lambda (_%h106293%_ _%key106294%_ _%update106295%_ _%default106296%_) - (let* ((_%h106302%_ - (let ((_%$obj106299%_ _%h106293%_)) + (lambda (_%h106452%_ _%key106453%_ _%update106454%_ _%default106455%_) + (let* ((_%h106461%_ + (let ((_%$obj106458%_ _%h106452%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106299%_)) + (##structure? _%$obj106458%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106299%_))) + (##structure-type _%$obj106458%_))) '#t) - _%$obj106299%_ + _%$obj106458%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106299%_))))) - (_%h106304%_ _%h106302%_)) + (cast HashTable::interface _%$obj106458%_))))) + (_%h106463%_ _%h106461%_)) (__hash-update!__% - _%h106304%_ - _%key106294%_ - _%update106295%_ - _%default106296%_)))) + _%h106463%_ + _%key106453%_ + _%update106454%_ + _%default106455%_)))) (define hash-update!__0 - (lambda (_%h106317%_ _%key106318%_ _%update106319%_) - (let ((_%default106321%_ '#!void)) + (lambda (_%h106476%_ _%key106477%_ _%update106478%_) + (let ((_%default106480%_ '#!void)) (hash-update!__% - _%h106317%_ - _%key106318%_ - _%update106319%_ - _%default106321%_)))) + _%h106476%_ + _%key106477%_ + _%update106478%_ + _%default106480%_)))) (define hash-update! - (lambda _g110008_ - (let ((_g110007_ (let () (declare (not safe)) (##length _g110008_)))) - (cond ((let () (declare (not safe)) (##fx= _g110007_ 3)) - (apply hash-update!__0 _g110008_)) - ((let () (declare (not safe)) (##fx= _g110007_ 4)) - (apply hash-update!__% _g110008_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g110008_)))))) + _g110167_)))))) (define __hash-update!__% - (lambda (_%h106263%_ _%key106264%_ _%update106265%_ _%default106266%_) - (let ((_%h106269%_ _%h106263%_)) + (lambda (_%h106422%_ _%key106423%_ _%update106424%_ _%default106425%_) + (let ((_%h106428%_ _%h106422%_)) (HashTable-update! - _%h106269%_ - _%key106264%_ - _%update106265%_ - _%default106266%_)))) + _%h106428%_ + _%key106423%_ + _%update106424%_ + _%default106425%_)))) (define __hash-update!__0 - (lambda (_%h106281%_ _%key106282%_ _%update106283%_) - (let ((_%default106285%_ '#!void)) + (lambda (_%h106440%_ _%key106441%_ _%update106442%_) + (let ((_%default106444%_ '#!void)) (__hash-update!__% - _%h106281%_ - _%key106282%_ - _%update106283%_ - _%default106285%_)))) + _%h106440%_ + _%key106441%_ + _%update106442%_ + _%default106444%_)))) (define __hash-update! - (lambda _g110010_ - (let ((_g110009_ (let () (declare (not safe)) (##length _g110010_)))) - (cond ((let () (declare (not safe)) (##fx= _g110009_ 3)) - (apply __hash-update!__0 _g110010_)) - ((let () (declare (not safe)) (##fx= _g110009_ 4)) - (apply __hash-update!__% _g110010_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g110010_)))))) + _g110169_)))))) (define hash-remove! - (lambda (_%h106243%_ _%key106244%_) - (let* ((_%h106250%_ - (let ((_%$obj106247%_ _%h106243%_)) + (lambda (_%h106402%_ _%key106403%_) + (let* ((_%h106409%_ + (let ((_%$obj106406%_ _%h106402%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106247%_)) + (##structure? _%$obj106406%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106247%_))) + (##structure-type _%$obj106406%_))) '#t) - _%$obj106247%_ + _%$obj106406%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106247%_))))) - (_%h106252%_ _%h106250%_)) - (__hash-remove! _%h106252%_ _%key106244%_)))) + (cast HashTable::interface _%$obj106406%_))))) + (_%h106411%_ _%h106409%_)) + (__hash-remove! _%h106411%_ _%key106403%_)))) (define __hash-remove! - (lambda (_%h106230%_ _%key106231%_) - (let ((_%h106234%_ _%h106230%_)) - (&HashTable-delete! _%h106234%_ _%key106231%_)))) + (lambda (_%h106389%_ _%key106390%_) + (let ((_%h106393%_ _%h106389%_)) + (&HashTable-delete! _%h106393%_ _%key106390%_)))) (define hash-key? - (lambda (_%h106211%_ _%k106212%_) - (let* ((_%h106218%_ - (let ((_%$obj106215%_ _%h106211%_)) + (lambda (_%h106370%_ _%k106371%_) + (let* ((_%h106377%_ + (let ((_%$obj106374%_ _%h106370%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106215%_)) + (##structure? _%$obj106374%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106215%_))) + (##structure-type _%$obj106374%_))) '#t) - _%$obj106215%_ + _%$obj106374%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106215%_))))) - (_%h106220%_ _%h106218%_)) - (__hash-key? _%h106220%_ _%k106212%_)))) + (cast HashTable::interface _%$obj106374%_))))) + (_%h106379%_ _%h106377%_)) + (__hash-key? _%h106379%_ _%k106371%_)))) (define __hash-key? - (lambda (_%h106198%_ _%k106199%_) - (let ((_%h106202%_ _%h106198%_)) - (not (eq? (&HashTable-ref _%h106202%_ _%k106199%_ absent-value) + (lambda (_%h106357%_ _%k106358%_) + (let ((_%h106361%_ _%h106357%_)) + (not (eq? (&HashTable-ref _%h106361%_ _%k106358%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h106180%_) - (let* ((_%h106186%_ - (let ((_%$obj106183%_ _%h106180%_)) + (lambda (_%h106339%_) + (let* ((_%h106345%_ + (let ((_%$obj106342%_ _%h106339%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106183%_)) + (##structure? _%$obj106342%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106183%_))) + (##structure-type _%$obj106342%_))) '#t) - _%$obj106183%_ + _%$obj106342%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106183%_))))) - (_%h106188%_ _%h106186%_)) - (__hash->list _%h106188%_)))) + (cast HashTable::interface _%$obj106342%_))))) + (_%h106347%_ _%h106345%_)) + (__hash->list _%h106347%_)))) (define __hash->list - (lambda (_%h106163%_) - (let* ((_%h106166%_ _%h106163%_) (_%lst106175%_ '())) + (lambda (_%h106322%_) + (let* ((_%h106325%_ _%h106322%_) (_%lst106334%_ '())) (&HashTable-for-each - _%h106166%_ - (lambda (_%k106177%_ _%v106178%_) - (set! _%lst106175%_ - (cons (cons _%k106177%_ _%v106178%_) _%lst106175%_)))) - _%lst106175%_))) + _%h106325%_ + (lambda (_%k106336%_ _%v106337%_) + (set! _%lst106334%_ + (cons (cons _%k106336%_ _%v106337%_) _%lst106334%_)))) + _%lst106334%_))) (define hash->plist - (lambda (_%h106145%_) - (let* ((_%h106151%_ - (let ((_%$obj106148%_ _%h106145%_)) + (lambda (_%h106304%_) + (let* ((_%h106310%_ + (let ((_%$obj106307%_ _%h106304%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106148%_)) + (##structure? _%$obj106307%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106148%_))) + (##structure-type _%$obj106307%_))) '#t) - _%$obj106148%_ + _%$obj106307%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106148%_))))) - (_%h106153%_ _%h106151%_)) - (__hash->plist _%h106153%_)))) + (cast HashTable::interface _%$obj106307%_))))) + (_%h106312%_ _%h106310%_)) + (__hash->plist _%h106312%_)))) (define __hash->plist - (lambda (_%h106128%_) - (let* ((_%h106131%_ _%h106128%_) (_%lst106140%_ '())) + (lambda (_%h106287%_) + (let* ((_%h106290%_ _%h106287%_) (_%lst106299%_ '())) (&HashTable-for-each - _%h106131%_ - (lambda (_%k106142%_ _%v106143%_) - (set! _%lst106140%_ - (cons _%k106142%_ (cons _%v106143%_ _%lst106140%_))))) - _%lst106140%_))) + _%h106290%_ + (lambda (_%k106301%_ _%v106302%_) + (set! _%lst106299%_ + (cons _%k106301%_ (cons _%v106302%_ _%lst106299%_))))) + _%lst106299%_))) (define hash-for-each - (lambda (_%proc106099%_ _%h106100%_) - (if (procedure? _%proc106099%_) - (let* ((_%proc106104%_ _%proc106099%_) - (_%h106116%_ - (let ((_%$obj106113%_ _%h106100%_)) + (lambda (_%proc106258%_ _%h106259%_) + (if (procedure? _%proc106258%_) + (let* ((_%proc106263%_ _%proc106258%_) + (_%h106275%_ + (let ((_%$obj106272%_ _%h106259%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106113%_)) + (##structure? _%$obj106272%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106113%_))) + (##structure-type _%$obj106272%_))) '#t) - _%$obj106113%_ + _%$obj106272%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106113%_))))) - (_%h106118%_ _%h106116%_)) - (__hash-for-each _%proc106104%_ _%h106118%_)) + (cast HashTable::interface _%$obj106272%_))))) + (_%h106277%_ _%h106275%_)) + (__hash-for-each _%proc106263%_ _%h106277%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2545,32 +2545,32 @@ 'contract: 'procedure? 'value: - _%proc106099%_) + _%proc106258%_) '#!void)))) (define __hash-for-each - (lambda (_%proc106078%_ _%h106079%_) - (let* ((_%proc106082%_ _%proc106078%_) (_%h106090%_ _%h106079%_)) - (&HashTable-for-each _%h106090%_ _%proc106082%_)))) + (lambda (_%proc106237%_ _%h106238%_) + (let* ((_%proc106241%_ _%proc106237%_) (_%h106249%_ _%h106238%_)) + (&HashTable-for-each _%h106249%_ _%proc106241%_)))) (define hash-map - (lambda (_%proc106049%_ _%h106050%_) - (if (procedure? _%proc106049%_) - (let* ((_%proc106054%_ _%proc106049%_) - (_%h106066%_ - (let ((_%$obj106063%_ _%h106050%_)) + (lambda (_%proc106208%_ _%h106209%_) + (if (procedure? _%proc106208%_) + (let* ((_%proc106213%_ _%proc106208%_) + (_%h106225%_ + (let ((_%$obj106222%_ _%h106209%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106063%_)) + (##structure? _%$obj106222%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106063%_))) + (##structure-type _%$obj106222%_))) '#t) - _%$obj106063%_ + _%$obj106222%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106063%_))))) - (_%h106068%_ _%h106066%_)) - (__hash-map _%proc106054%_ _%h106068%_)) + (cast HashTable::interface _%$obj106222%_))))) + (_%h106227%_ _%h106225%_)) + (__hash-map _%proc106213%_ _%h106227%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2579,42 +2579,42 @@ 'contract: 'procedure? 'value: - _%proc106049%_) + _%proc106208%_) '#!void)))) (define __hash-map - (lambda (_%proc106023%_ _%h106024%_) - (let* ((_%proc106027%_ _%proc106023%_) - (_%h106035%_ _%h106024%_) - (_%result106044%_ '())) + (lambda (_%proc106182%_ _%h106183%_) + (let* ((_%proc106186%_ _%proc106182%_) + (_%h106194%_ _%h106183%_) + (_%result106203%_ '())) (&HashTable-for-each - _%h106035%_ - (lambda (_%k106046%_ _%v106047%_) - (set! _%result106044%_ + _%h106194%_ + (lambda (_%k106205%_ _%v106206%_) + (set! _%result106203%_ (cons (let () (declare (not safe)) - (_%proc106027%_ _%k106046%_ _%v106047%_)) - _%result106044%_)))) - _%result106044%_))) + (_%proc106186%_ _%k106205%_ _%v106206%_)) + _%result106203%_)))) + _%result106203%_))) (define hash-fold - (lambda (_%proc105993%_ _%iv105994%_ _%h105995%_) - (if (procedure? _%proc105993%_) - (let* ((_%proc105999%_ _%proc105993%_) - (_%h106011%_ - (let ((_%$obj106008%_ _%h105995%_)) + (lambda (_%proc106152%_ _%iv106153%_ _%h106154%_) + (if (procedure? _%proc106152%_) + (let* ((_%proc106158%_ _%proc106152%_) + (_%h106170%_ + (let ((_%$obj106167%_ _%h106154%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106008%_)) + (##structure? _%$obj106167%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106008%_))) + (##structure-type _%$obj106167%_))) '#t) - _%$obj106008%_ + _%$obj106167%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106008%_))))) - (_%h106013%_ _%h106011%_)) - (__hash-fold _%proc105999%_ _%iv105994%_ _%h106013%_)) + (cast HashTable::interface _%$obj106167%_))))) + (_%h106172%_ _%h106170%_)) + (__hash-fold _%proc106158%_ _%iv106153%_ _%h106172%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2623,47 +2623,47 @@ 'contract: 'procedure? 'value: - _%proc105993%_) + _%proc106152%_) '#!void)))) (define __hash-fold - (lambda (_%proc105966%_ _%iv105967%_ _%h105968%_) - (let* ((_%proc105971%_ _%proc105966%_) - (_%h105979%_ _%h105968%_) - (_%result105988%_ _%iv105967%_)) + (lambda (_%proc106125%_ _%iv106126%_ _%h106127%_) + (let* ((_%proc106130%_ _%proc106125%_) + (_%h106138%_ _%h106127%_) + (_%result106147%_ _%iv106126%_)) (&HashTable-for-each - _%h105979%_ - (lambda (_%k105990%_ _%v105991%_) - (set! _%result105988%_ + _%h106138%_ + (lambda (_%k106149%_ _%v106150%_) + (set! _%result106147%_ (let () (declare (not safe)) - (_%proc105971%_ - _%k105990%_ - _%v105991%_ - _%result105988%_))))) - _%result105988%_))) + (_%proc106130%_ + _%k106149%_ + _%v106150%_ + _%result106147%_))))) + _%result106147%_))) (define hash-find__% - (lambda (_%proc105924%_ _%h105925%_ _%default-value105926%_) - (if (procedure? _%proc105924%_) - (let* ((_%proc105930%_ _%proc105924%_) - (_%h105942%_ - (let ((_%$obj105939%_ _%h105925%_)) + (lambda (_%proc106083%_ _%h106084%_ _%default-value106085%_) + (if (procedure? _%proc106083%_) + (let* ((_%proc106089%_ _%proc106083%_) + (_%h106101%_ + (let ((_%$obj106098%_ _%h106084%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105939%_)) + (##structure? _%$obj106098%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105939%_))) + (##structure-type _%$obj106098%_))) '#t) - _%$obj105939%_ + _%$obj106098%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105939%_))))) - (_%h105944%_ _%h105942%_)) + (cast HashTable::interface _%$obj106098%_))))) + (_%h106103%_ _%h106101%_)) (__hash-find__% - _%proc105930%_ - _%h105944%_ - _%default-value105926%_)) + _%proc106089%_ + _%h106103%_ + _%default-value106085%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2672,229 +2672,229 @@ 'contract: 'procedure? 'value: - _%proc105924%_) + _%proc106083%_) '#!void)))) (define hash-find__0 - (lambda (_%proc105957%_ _%h105958%_) - (let ((_%default-value105960%_ '#f)) - (hash-find__% _%proc105957%_ _%h105958%_ _%default-value105960%_)))) + (lambda (_%proc106116%_ _%h106117%_) + (let ((_%default-value106119%_ '#f)) + (hash-find__% _%proc106116%_ _%h106117%_ _%default-value106119%_)))) (define hash-find - (lambda _g110012_ - (let ((_g110011_ (let () (declare (not safe)) (##length _g110012_)))) - (cond ((let () (declare (not safe)) (##fx= _g110011_ 2)) - (apply hash-find__0 _g110012_)) - ((let () (declare (not safe)) (##fx= _g110011_ 3)) - (apply hash-find__% _g110012_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g110012_)))))) + _g110171_)))))) (define __hash-find__% - (lambda (_%proc105881%_ _%h105882%_ _%default-value105883%_) - (let* ((_%proc105886%_ _%proc105881%_) - (_%h105894%_ _%h105882%_) - (__tmp110013 - (lambda (_%return105903%_) + (lambda (_%proc106040%_ _%h106041%_ _%default-value106042%_) + (let* ((_%proc106045%_ _%proc106040%_) + (_%h106053%_ _%h106041%_) + (__tmp110172 + (lambda (_%return106062%_) (&HashTable-for-each - _%h105894%_ - (lambda (_%k105905%_ _%v105906%_) - (let ((_%$e105908%_ + _%h106053%_ + (lambda (_%k106064%_ _%v106065%_) + (let ((_%$e106067%_ (let () (declare (not safe)) - (_%proc105886%_ _%k105905%_ _%v105906%_)))) - (if _%$e105908%_ - (_%return105903%_ _%$e105908%_) + (_%proc106045%_ _%k106064%_ _%v106065%_)))) + (if _%$e106067%_ + (_%return106062%_ _%$e106067%_) '#!void)))) - _%default-value105883%_))) + _%default-value106042%_))) (declare (not safe)) - (##call-with-current-continuation __tmp110013)))) + (##call-with-current-continuation __tmp110172)))) (define __hash-find__0 - (lambda (_%proc105914%_ _%h105915%_) - (let ((_%default-value105917%_ '#f)) + (lambda (_%proc106073%_ _%h106074%_) + (let ((_%default-value106076%_ '#f)) (__hash-find__% - _%proc105914%_ - _%h105915%_ - _%default-value105917%_)))) + _%proc106073%_ + _%h106074%_ + _%default-value106076%_)))) (define __hash-find - (lambda _g110015_ - (let ((_g110014_ (let () (declare (not safe)) (##length _g110015_)))) - (cond ((let () (declare (not safe)) (##fx= _g110014_ 2)) - (apply __hash-find__0 _g110015_)) - ((let () (declare (not safe)) (##fx= _g110014_ 3)) - (apply __hash-find__% _g110015_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g110015_)))))) + _g110174_)))))) (define hash-keys - (lambda (_%h105862%_) - (let* ((_%h105868%_ - (let ((_%$obj105865%_ _%h105862%_)) + (lambda (_%h106021%_) + (let* ((_%h106027%_ + (let ((_%$obj106024%_ _%h106021%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105865%_)) + (##structure? _%$obj106024%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105865%_))) + (##structure-type _%$obj106024%_))) '#t) - _%$obj105865%_ + _%$obj106024%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105865%_))))) - (_%h105870%_ _%h105868%_)) - (__hash-keys _%h105870%_)))) + (cast HashTable::interface _%$obj106024%_))))) + (_%h106029%_ _%h106027%_)) + (__hash-keys _%h106029%_)))) (define __hash-keys - (lambda (_%h105845%_) - (let* ((_%h105848%_ _%h105845%_) (_%result105857%_ '())) + (lambda (_%h106004%_) + (let* ((_%h106007%_ _%h106004%_) (_%result106016%_ '())) (&HashTable-for-each - _%h105848%_ - (lambda (_%k105859%_ _%v105860%_) - (set! _%result105857%_ (cons _%k105859%_ _%result105857%_)))) - _%result105857%_))) + _%h106007%_ + (lambda (_%k106018%_ _%v106019%_) + (set! _%result106016%_ (cons _%k106018%_ _%result106016%_)))) + _%result106016%_))) (define hash-values - (lambda (_%h105827%_) - (let* ((_%h105833%_ - (let ((_%$obj105830%_ _%h105827%_)) + (lambda (_%h105986%_) + (let* ((_%h105992%_ + (let ((_%$obj105989%_ _%h105986%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105830%_)) + (##structure? _%$obj105989%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105830%_))) + (##structure-type _%$obj105989%_))) '#t) - _%$obj105830%_ + _%$obj105989%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105830%_))))) - (_%h105835%_ _%h105833%_)) - (__hash-values _%h105835%_)))) + (cast HashTable::interface _%$obj105989%_))))) + (_%h105994%_ _%h105992%_)) + (__hash-values _%h105994%_)))) (define __hash-values - (lambda (_%h105810%_) - (let* ((_%h105813%_ _%h105810%_) (_%result105822%_ '())) + (lambda (_%h105969%_) + (let* ((_%h105972%_ _%h105969%_) (_%result105981%_ '())) (&HashTable-for-each - _%h105813%_ - (lambda (_%k105824%_ _%v105825%_) - (set! _%result105822%_ (cons _%v105825%_ _%result105822%_)))) - _%result105822%_))) + _%h105972%_ + (lambda (_%k105983%_ _%v105984%_) + (set! _%result105981%_ (cons _%v105984%_ _%result105981%_)))) + _%result105981%_))) (define hash-copy - (lambda (_%h105792%_) - (let* ((_%h105798%_ - (let ((_%$obj105795%_ _%h105792%_)) + (lambda (_%h105951%_) + (let* ((_%h105957%_ + (let ((_%$obj105954%_ _%h105951%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105795%_)) + (##structure? _%$obj105954%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105795%_))) + (##structure-type _%$obj105954%_))) '#t) - _%$obj105795%_ + _%$obj105954%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105795%_))))) - (_%h105800%_ _%h105798%_)) - (__hash-copy _%h105800%_)))) + (cast HashTable::interface _%$obj105954%_))))) + (_%h105959%_ _%h105957%_)) + (__hash-copy _%h105959%_)))) (define __hash-copy - (lambda (_%h105780%_) - (let ((_%h105783%_ _%h105780%_)) (__HashTable-copy _%h105783%_)))) + (lambda (_%h105939%_) + (let ((_%h105942%_ _%h105939%_)) (__HashTable-copy _%h105942%_)))) (define hash-clear! - (lambda (_%h105762%_) - (let* ((_%h105768%_ - (let ((_%$obj105765%_ _%h105762%_)) + (lambda (_%h105921%_) + (let* ((_%h105927%_ + (let ((_%$obj105924%_ _%h105921%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105765%_)) + (##structure? _%$obj105924%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105765%_))) + (##structure-type _%$obj105924%_))) '#t) - _%$obj105765%_ + _%$obj105924%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105765%_))))) - (_%h105770%_ _%h105768%_)) - (__hash-clear! _%h105770%_)))) + (cast HashTable::interface _%$obj105924%_))))) + (_%h105929%_ _%h105927%_)) + (__hash-clear! _%h105929%_)))) (define __hash-clear! - (lambda (_%h105750%_) - (let ((_%h105753%_ _%h105750%_)) (&HashTable-clear! _%h105753%_)))) + (lambda (_%h105909%_) + (let ((_%h105912%_ _%h105909%_)) (&HashTable-clear! _%h105912%_)))) (define hash-merge - (lambda (_%h105731%_ . _%rest105732%_) - (let* ((_%h105738%_ - (let ((_%$obj105735%_ _%h105731%_)) + (lambda (_%h105890%_ . _%rest105891%_) + (let* ((_%h105897%_ + (let ((_%$obj105894%_ _%h105890%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105735%_)) + (##structure? _%$obj105894%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105735%_))) + (##structure-type _%$obj105894%_))) '#t) - _%$obj105735%_ + _%$obj105894%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105735%_))))) - (_%h105740%_ _%h105738%_)) + (cast HashTable::interface _%$obj105894%_))))) + (_%h105899%_ _%h105897%_)) (declare (not safe)) - (##apply __hash-merge _%h105740%_ _%rest105732%_)))) + (##apply __hash-merge _%h105899%_ _%rest105891%_)))) (define __hash-merge - (lambda (_%h105716%_ . _%rest105717%_) - (let* ((_%h105720%_ _%h105716%_) - (_%copy105729%_ (__HashTable-copy _%h105720%_))) - (apply hash-merge! _%copy105729%_ _%rest105717%_) - _%copy105729%_))) + (lambda (_%h105875%_ . _%rest105876%_) + (let* ((_%h105879%_ _%h105875%_) + (_%copy105888%_ (__HashTable-copy _%h105879%_))) + (apply hash-merge! _%copy105888%_ _%rest105876%_) + _%copy105888%_))) (define hash-merge! - (lambda (_%h105697%_ . _%rest105698%_) - (let* ((_%h105704%_ - (let ((_%$obj105701%_ _%h105697%_)) + (lambda (_%h105856%_ . _%rest105857%_) + (let* ((_%h105863%_ + (let ((_%$obj105860%_ _%h105856%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105701%_)) + (##structure? _%$obj105860%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105701%_))) + (##structure-type _%$obj105860%_))) '#t) - _%$obj105701%_ + _%$obj105860%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105701%_))))) - (_%h105706%_ _%h105704%_)) + (cast HashTable::interface _%$obj105860%_))))) + (_%h105865%_ _%h105863%_)) (declare (not safe)) - (##apply __hash-merge! _%h105706%_ _%rest105698%_)))) + (##apply __hash-merge! _%h105865%_ _%rest105857%_)))) (define __hash-merge! - (lambda (_%h105660%_ . _%rest105661%_) - (let ((_%h105664%_ _%h105660%_)) - (let ((__tmp110016 - (lambda (_%hr105673%_) - (let* ((_%hr105679%_ - (let ((_%$obj105676%_ _%hr105673%_)) + (lambda (_%h105819%_ . _%rest105820%_) + (let ((_%h105823%_ _%h105819%_)) + (let ((__tmp110175 + (lambda (_%hr105832%_) + (let* ((_%hr105838%_ + (let ((_%$obj105835%_ _%hr105832%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105676%_)) + (##structure? _%$obj105835%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105676%_))) + _%$obj105835%_))) '#t) - _%$obj105676%_ + _%$obj105835%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105676%_))))) - (_%hr105681%_ _%hr105679%_)) + _%$obj105835%_))))) + (_%hr105840%_ _%hr105838%_)) (&HashTable-for-each - _%hr105681%_ - (lambda (_%k105694%_ _%v105695%_) - (if (__hash-key? _%h105664%_ _%k105694%_) + _%hr105840%_ + (lambda (_%k105853%_ _%v105854%_) + (if (__hash-key? _%h105823%_ _%k105853%_) '#!void (&HashTable-set! - _%h105664%_ - _%k105694%_ - _%v105695%_)))))))) + _%h105823%_ + _%k105853%_ + _%v105854%_)))))))) (declare (not safe)) - (##for-each __tmp110016 _%rest105661%_)) - _%h105664%_))))) + (##for-each __tmp110175 _%rest105820%_)) + _%h105823%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 9aff285b3..e428fb416 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]#_g110018_| + (define |[1]#_g110177_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g110020_| + (define |[1]#_g110179_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g110022_| + (define |[1]#_g110181_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g110024_| + (define |[1]#_g110183_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g110026_| + (define |[1]#_g110185_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110027_| + (define |[1]#_g110186_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110028_| + (define |[1]#_g110187_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110029_| + (define |[1]#_g110188_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110031_| + (define |[1]#_g110190_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110032_| + (define |[1]#_g110191_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110033_| + (define |[1]#_g110192_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110034_| + (define |[1]#_g110193_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110036_| + (define |[1]#_g110195_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110037_| + (define |[1]#_g110196_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110038_| + (define |[1]#_g110197_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110039_| + (define |[1]#_g110198_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110041_| + (define |[1]#_g110200_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110042_| + (define |[1]#_g110201_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110043_| + (define |[1]#_g110202_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110044_| + (define |[1]#_g110203_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110046_| + (define |[1]#_g110205_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110048_| + (define |[1]#_g110207_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g110050_| + (define |[1]#_g110209_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110052_| + (define |[1]#_g110211_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110054_| + (define |[1]#_g110213_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110056_| + (define |[1]#_g110215_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110058_| + (define |[1]#_g110217_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110060_| + (define |[1]#_g110219_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110061_| + (define |[1]#_g110220_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110062_| + (define |[1]#_g110221_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110063_| + (define |[1]#_g110222_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110064_| + (define |[1]#_g110223_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110065_| + (define |[1]#_g110224_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110066_| + (define |[1]#_g110225_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110067_| + (define |[1]#_g110226_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110069_| + (define |[1]#_g110228_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110070_| + (define |[1]#_g110229_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110071_| + (define |[1]#_g110230_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110072_| + (define |[1]#_g110231_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110073_| + (define |[1]#_g110232_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110074_| + (define |[1]#_g110233_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110075_| + (define |[1]#_g110234_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110076_| + (define |[1]#_g110235_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110078_| + (define |[1]#_g110237_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g110080_| + (define |[1]#_g110239_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110082_| + (define |[1]#_g110241_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110084_| + (define |[1]#_g110243_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110086_| + (define |[1]#_g110245_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110088_| + (define |[1]#_g110247_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110090_| + (define |[1]#_g110249_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110091_| + (define |[1]#_g110250_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110092_| + (define |[1]#_g110251_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110093_| + (define |[1]#_g110252_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110095_| + (define |[1]#_g110254_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110096_| + (define |[1]#_g110255_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110097_| + (define |[1]#_g110256_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110098_| + (define |[1]#_g110257_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110100_| + (define |[1]#_g110259_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110102_| + (define |[1]#_g110261_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110104_| + (define |[1]#_g110263_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110106_| + (define |[1]#_g110265_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110107_| + (define |[1]#_g110266_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110109_| + (define |[1]#_g110268_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110110_| + (define |[1]#_g110269_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110112_| + (define |[1]#_g110271_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110113_| + (define |[1]#_g110272_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110115_| + (define |[1]#_g110274_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110116_| + (define |[1]#_g110275_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110118_| + (define |[1]#_g110277_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110120_| + (define |[1]#_g110279_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110122_| + (define |[1]#_g110281_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110124_| + (define |[1]#_g110283_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110125_| + (define |[1]#_g110284_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110127_| + (define |[1]#_g110286_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110128_| + (define |[1]#_g110287_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110130_| + (define |[1]#_g110289_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110131_| + (define |[1]#_g110290_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110133_| + (define |[1]#_g110292_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110134_| + (define |[1]#_g110293_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj109927 + (let ((__obj110086 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109927 + __obj110086 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj110086 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj110086 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109927 + __obj110086 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp110017 (cons |[1]#_g110018_| '()))) + (let ((__tmp110176 (cons |[1]#_g110177_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110017 '3 '#f '#f)) + (##unchecked-structure-set! __obj110086 __tmp110176 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj110086 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj110086 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj110086 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 ':init! '11 '#f '#f)) - (let ((__tmp110019 |[1]#_g110020_|)) + (##unchecked-structure-set! __obj110086 ':init! '11 '#f '#f)) + (let ((__tmp110178 |[1]#_g110179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110019 '12 '#f '#f)) - (let ((__tmp110021 |[1]#_g110022_|)) + (##unchecked-structure-set! __obj110086 __tmp110178 '12 '#f '#f)) + (let ((__tmp110180 |[1]#_g110181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110021 '13 '#f '#f)) - (let ((__tmp110023 |[1]#_g110024_|)) + (##unchecked-structure-set! __obj110086 __tmp110180 '13 '#f '#f)) + (let ((__tmp110182 |[1]#_g110183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110023 '14 '#f '#f)) - (let ((__tmp110025 - (cons (cons 'message |[1]#_g110026_|) - (cons (cons 'irritants |[1]#_g110027_|) - (cons (cons 'where |[1]#_g110028_|) - (cons (cons 'continuation |[1]#_g110029_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110025 '15 '#f '#f)) - (let ((__tmp110030 - (cons (cons 'message |[1]#_g110031_|) - (cons (cons 'irritants |[1]#_g110032_|) - (cons (cons 'where |[1]#_g110033_|) - (cons (cons 'continuation |[1]#_g110034_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110030 '16 '#f '#f)) - (let ((__tmp110035 - (cons (cons 'message |[1]#_g110036_|) - (cons (cons 'irritants |[1]#_g110037_|) - (cons (cons 'where |[1]#_g110038_|) - (cons (cons 'continuation |[1]#_g110039_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110035 '17 '#f '#f)) - (let ((__tmp110040 - (cons (cons 'message |[1]#_g110041_|) - (cons (cons 'irritants |[1]#_g110042_|) - (cons (cons 'where |[1]#_g110043_|) - (cons (cons 'continuation |[1]#_g110044_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110040 '18 '#f '#f)) + (##unchecked-structure-set! __obj110086 __tmp110199 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj110086 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj110086 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '20 '#f '#f)) - __obj109927)) + (##unchecked-structure-set! __obj110086 '() '20 '#f '#f)) + __obj110086)) (define |[:0:]#@HashTable| - (let ((__obj109929 + (let ((__obj110088 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp110045 |[1]#_g110046_|)) + (let ((__tmp110204 |[1]#_g110205_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109929 __tmp110045 '1 '#f '#f)) - __obj109929)) + (##unchecked-structure-set! __obj110088 __tmp110204 '1 '#f '#f)) + __obj110088)) (define |[:0:]#HashTable| - (let ((__obj109930 + (let ((__obj110089 (let () (declare (not safe)) (##structure @@ -699,14 +699,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109930 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj110089 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109930 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj110089 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109930 + __obj110089 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -718,51 +718,51 @@ '3 '#f '#f)) - (let ((__tmp110047 |[1]#_g110048_|)) + (let ((__tmp110206 |[1]#_g110207_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110047 '4 '#f '#f)) - (let ((__tmp110049 |[1]#_g110050_|)) + (##unchecked-structure-set! __obj110089 __tmp110206 '4 '#f '#f)) + (let ((__tmp110208 |[1]#_g110209_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110049 '5 '#f '#f)) - (let ((__tmp110051 |[1]#_g110052_|)) + (##unchecked-structure-set! __obj110089 __tmp110208 '5 '#f '#f)) + (let ((__tmp110210 |[1]#_g110211_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110051 '6 '#f '#f)) - (let ((__tmp110053 |[1]#_g110054_|)) + (##unchecked-structure-set! __obj110089 __tmp110210 '6 '#f '#f)) + (let ((__tmp110212 |[1]#_g110213_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110053 '7 '#f '#f)) - (let ((__tmp110055 |[1]#_g110056_|)) + (##unchecked-structure-set! __obj110089 __tmp110212 '7 '#f '#f)) + (let ((__tmp110214 |[1]#_g110215_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110055 '8 '#f '#f)) - (let ((__tmp110057 |[1]#_g110058_|)) + (##unchecked-structure-set! __obj110089 __tmp110214 '8 '#f '#f)) + (let ((__tmp110216 |[1]#_g110217_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110057 '9 '#f '#f)) - (let ((__tmp110059 - (cons |[1]#_g110060_| - (cons |[1]#_g110061_| - (cons |[1]#_g110062_| - (cons |[1]#_g110063_| - (cons |[1]#_g110064_| - (cons |[1]#_g110065_| - (cons |[1]#_g110066_| - (cons |[1]#_g110067_| + (##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_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110059 '10 '#f '#f)) - (let ((__tmp110068 - (cons |[1]#_g110069_| - (cons |[1]#_g110070_| - (cons |[1]#_g110071_| - (cons |[1]#_g110072_| - (cons |[1]#_g110073_| - (cons |[1]#_g110074_| - (cons |[1]#_g110075_| - (cons |[1]#_g110076_| + (##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_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110068 '11 '#f '#f)) - __obj109930)) + (##unchecked-structure-set! __obj110089 __tmp110227 '11 '#f '#f)) + __obj110089)) (define |[:0:]#Locker| - (let ((__obj109931 + (let ((__obj110090 (let () (declare (not safe)) (##structure @@ -780,14 +780,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109931 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj110090 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109931 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj110090 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109931 + __obj110090 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) @@ -795,41 +795,41 @@ '3 '#f '#f)) - (let ((__tmp110077 |[1]#_g110078_|)) + (let ((__tmp110236 |[1]#_g110237_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110077 '4 '#f '#f)) - (let ((__tmp110079 |[1]#_g110080_|)) + (##unchecked-structure-set! __obj110090 __tmp110236 '4 '#f '#f)) + (let ((__tmp110238 |[1]#_g110239_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110079 '5 '#f '#f)) - (let ((__tmp110081 |[1]#_g110082_|)) + (##unchecked-structure-set! __obj110090 __tmp110238 '5 '#f '#f)) + (let ((__tmp110240 |[1]#_g110241_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110081 '6 '#f '#f)) - (let ((__tmp110083 |[1]#_g110084_|)) + (##unchecked-structure-set! __obj110090 __tmp110240 '6 '#f '#f)) + (let ((__tmp110242 |[1]#_g110243_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110083 '7 '#f '#f)) - (let ((__tmp110085 |[1]#_g110086_|)) + (##unchecked-structure-set! __obj110090 __tmp110242 '7 '#f '#f)) + (let ((__tmp110244 |[1]#_g110245_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110085 '8 '#f '#f)) - (let ((__tmp110087 |[1]#_g110088_|)) + (##unchecked-structure-set! __obj110090 __tmp110244 '8 '#f '#f)) + (let ((__tmp110246 |[1]#_g110247_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110087 '9 '#f '#f)) - (let ((__tmp110089 - (cons |[1]#_g110090_| - (cons |[1]#_g110091_| - (cons |[1]#_g110092_| - (cons |[1]#_g110093_| '())))))) + (##unchecked-structure-set! __obj110090 __tmp110246 '9 '#f '#f)) + (let ((__tmp110248 + (cons |[1]#_g110249_| + (cons |[1]#_g110250_| + (cons |[1]#_g110251_| + (cons |[1]#_g110252_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110089 '10 '#f '#f)) - (let ((__tmp110094 - (cons |[1]#_g110095_| - (cons |[1]#_g110096_| - (cons |[1]#_g110097_| - (cons |[1]#_g110098_| '())))))) + (##unchecked-structure-set! __obj110090 __tmp110248 '10 '#f '#f)) + (let ((__tmp110253 + (cons |[1]#_g110254_| + (cons |[1]#_g110255_| + (cons |[1]#_g110256_| + (cons |[1]#_g110257_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110094 '11 '#f '#f)) - __obj109931)) + (##unchecked-structure-set! __obj110090 __tmp110253 '11 '#f '#f)) + __obj110090)) (define |[:0:]#locked-hash-table| - (let ((__obj109932 + (let ((__obj110091 (let () (declare (not safe)) (##structure @@ -858,7 +858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109932 + __obj110091 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +866,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109932 + __obj110091 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj110091 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj110091 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj110091 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj110091 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj110091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj110091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#f '11 '#f '#f)) - (let ((__tmp110099 |[1]#_g110100_|)) + (##unchecked-structure-set! __obj110091 '#f '11 '#f '#f)) + (let ((__tmp110258 |[1]#_g110259_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110099 '12 '#f '#f)) - (let ((__tmp110101 |[1]#_g110102_|)) + (##unchecked-structure-set! __obj110091 __tmp110258 '12 '#f '#f)) + (let ((__tmp110260 |[1]#_g110261_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110101 '13 '#f '#f)) - (let ((__tmp110103 |[1]#_g110104_|)) + (##unchecked-structure-set! __obj110091 __tmp110260 '13 '#f '#f)) + (let ((__tmp110262 |[1]#_g110263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110103 '14 '#f '#f)) - (let ((__tmp110105 - (cons (cons 'table |[1]#_g110106_|) - (cons (cons 'lock |[1]#_g110107_|) '())))) + (##unchecked-structure-set! __obj110091 __tmp110262 '14 '#f '#f)) + (let ((__tmp110264 + (cons (cons 'table |[1]#_g110265_|) + (cons (cons 'lock |[1]#_g110266_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110105 '15 '#f '#f)) - (let ((__tmp110108 - (cons (cons 'table |[1]#_g110109_|) - (cons (cons 'lock |[1]#_g110110_|) '())))) + (##unchecked-structure-set! __obj110091 __tmp110264 '15 '#f '#f)) + (let ((__tmp110267 + (cons (cons 'table |[1]#_g110268_|) + (cons (cons 'lock |[1]#_g110269_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110108 '16 '#f '#f)) - (let ((__tmp110111 - (cons (cons 'table |[1]#_g110112_|) - (cons (cons 'lock |[1]#_g110113_|) '())))) + (##unchecked-structure-set! __obj110091 __tmp110267 '16 '#f '#f)) + (let ((__tmp110270 + (cons (cons 'table |[1]#_g110271_|) + (cons (cons 'lock |[1]#_g110272_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110111 '17 '#f '#f)) - (let ((__tmp110114 - (cons (cons 'table |[1]#_g110115_|) - (cons (cons 'lock |[1]#_g110116_|) '())))) + (##unchecked-structure-set! __obj110091 __tmp110270 '17 '#f '#f)) + (let ((__tmp110273 + (cons (cons 'table |[1]#_g110274_|) + (cons (cons 'lock |[1]#_g110275_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110114 '18 '#f '#f)) + (##unchecked-structure-set! __obj110091 __tmp110273 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj110091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj110091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '20 '#f '#f)) - __obj109932)) + (##unchecked-structure-set! __obj110091 '() '20 '#f '#f)) + __obj110091)) (define |[:0:]#checked-hash-table| - (let ((__obj109933 + (let ((__obj110092 (let () (declare (not safe)) (##structure @@ -961,7 +961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj110092 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj110092 'checked-hash-table '2 '#f @@ -977,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj110092 '(table key-check) '4 '#f @@ -985,210 +985,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj110092 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj110092 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj110092 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj110092 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj110092 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#f '11 '#f '#f)) - (let ((__tmp110117 |[1]#_g110118_|)) + (##unchecked-structure-set! __obj110092 '#f '11 '#f '#f)) + (let ((__tmp110276 |[1]#_g110277_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110117 '12 '#f '#f)) - (let ((__tmp110119 |[1]#_g110120_|)) + (##unchecked-structure-set! __obj110092 __tmp110276 '12 '#f '#f)) + (let ((__tmp110278 |[1]#_g110279_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110119 '13 '#f '#f)) - (let ((__tmp110121 |[1]#_g110122_|)) + (##unchecked-structure-set! __obj110092 __tmp110278 '13 '#f '#f)) + (let ((__tmp110280 |[1]#_g110281_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110121 '14 '#f '#f)) - (let ((__tmp110123 - (cons (cons 'table |[1]#_g110124_|) - (cons (cons 'key-check |[1]#_g110125_|) '())))) + (##unchecked-structure-set! __obj110092 __tmp110280 '14 '#f '#f)) + (let ((__tmp110282 + (cons (cons 'table |[1]#_g110283_|) + (cons (cons 'key-check |[1]#_g110284_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110123 '15 '#f '#f)) - (let ((__tmp110126 - (cons (cons 'table |[1]#_g110127_|) - (cons (cons 'key-check |[1]#_g110128_|) '())))) + (##unchecked-structure-set! __obj110092 __tmp110282 '15 '#f '#f)) + (let ((__tmp110285 + (cons (cons 'table |[1]#_g110286_|) + (cons (cons 'key-check |[1]#_g110287_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110126 '16 '#f '#f)) - (let ((__tmp110129 - (cons (cons 'table |[1]#_g110130_|) - (cons (cons 'key-check |[1]#_g110131_|) '())))) + (##unchecked-structure-set! __obj110092 __tmp110285 '16 '#f '#f)) + (let ((__tmp110288 + (cons (cons 'table |[1]#_g110289_|) + (cons (cons 'key-check |[1]#_g110290_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110129 '17 '#f '#f)) - (let ((__tmp110132 - (cons (cons 'table |[1]#_g110133_|) - (cons (cons 'key-check |[1]#_g110134_|) '())))) + (##unchecked-structure-set! __obj110092 __tmp110288 '17 '#f '#f)) + (let ((__tmp110291 + (cons (cons 'table |[1]#_g110292_|) + (cons (cons 'key-check |[1]#_g110293_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110132 '18 '#f '#f)) + (##unchecked-structure-set! __obj110092 __tmp110291 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj110092 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj110092 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '20 '#f '#f)) - __obj109933)) + (##unchecked-structure-set! __obj110092 '() '20 '#f '#f)) + __obj110092)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx105051%_) - (let* ((_%g105055105094%_ - (lambda (_%g105056105090%_) + (lambda (_%$stx105210%_) + (let* ((_%g105214105253%_ + (lambda (_%g105215105249%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105056105090%_))) - (_%g105054105242%_ - (lambda (_%g105056105098%_) - (if (gx#stx-pair? _%g105056105098%_) - (let ((_%e105062105101%_ - (gx#syntax-e _%g105056105098%_))) - (let ((_%hd105063105105%_ + _%g105215105249%_))) + (_%g105213105401%_ + (lambda (_%g105215105257%_) + (if (gx#stx-pair? _%g105215105257%_) + (let ((_%e105221105260%_ + (gx#syntax-e _%g105215105257%_))) + (let ((_%hd105222105264%_ (let () (declare (not safe)) - (##car _%e105062105101%_))) - (_%tl105064105108%_ + (##car _%e105221105260%_))) + (_%tl105223105267%_ (let () (declare (not safe)) - (##cdr _%e105062105101%_)))) - (if (gx#stx-pair? _%tl105064105108%_) - (let ((_%e105065105111%_ - (gx#syntax-e _%tl105064105108%_))) - (let ((_%hd105066105115%_ + (##cdr _%e105221105260%_)))) + (if (gx#stx-pair? _%tl105223105267%_) + (let ((_%e105224105270%_ + (gx#syntax-e _%tl105223105267%_))) + (let ((_%hd105225105274%_ (let () (declare (not safe)) - (##car _%e105065105111%_))) - (_%tl105067105118%_ + (##car _%e105224105270%_))) + (_%tl105226105277%_ (let () (declare (not safe)) - (##cdr _%e105065105111%_)))) - (if (gx#stx-pair? _%hd105066105115%_) - (let ((_%e105068105121%_ - (gx#syntax-e _%hd105066105115%_))) - (let ((_%hd105069105125%_ + (##cdr _%e105224105270%_)))) + (if (gx#stx-pair? _%hd105225105274%_) + (let ((_%e105227105280%_ + (gx#syntax-e _%hd105225105274%_))) + (let ((_%hd105228105284%_ (let () (declare (not safe)) - (##car _%e105068105121%_))) - (_%tl105070105128%_ + (##car _%e105227105280%_))) + (_%tl105229105287%_ (let () (declare (not safe)) - (##cdr _%e105068105121%_)))) + (##cdr _%e105227105280%_)))) (if (gx#stx-pair/null? - _%tl105070105128%_) - (let ((_g110135_ + _%tl105229105287%_) + (let ((_g110294_ (gx#syntax-split-splice - _%tl105070105128%_ + _%tl105229105287%_ '0))) (begin - (let ((_g110136_ + (let ((_g110295_ (let () (declare (not safe)) (if (##values? - _g110135_) + _g110294_) (##vector-length - _g110135_) + _g110294_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g110136_ 2))) - (error "Context expects 2 values" _g110136_))) + (##fx= _g110295_ 2))) + (error "Context expects 2 values" _g110295_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target105071105131%_ + (let ((_%target105230105290%_ (let () (declare (not safe)) (##vector-ref - _g110135_ + _g110294_ 0))) - (_%tl105073105134%_ + (_%tl105232105293%_ (let () (declare (not safe)) (##vector-ref - _g110135_ + _g110294_ 1)))) (if (gx#stx-null? - _%tl105073105134%_) - (letrec ((_%loop105074105137%_ + _%tl105232105293%_) + (letrec ((_%loop105233105296%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd105072105141%_ _%arg105078105144%_) - (if (gx#stx-pair? _%hd105072105141%_) - (let ((_%e105075105147%_ - (gx#syntax-e _%hd105072105141%_))) - (let ((_%lp-hd105076105151%_ + (lambda (_%hd105231105300%_ _%arg105237105303%_) + (if (gx#stx-pair? _%hd105231105300%_) + (let ((_%e105234105306%_ + (gx#syntax-e _%hd105231105300%_))) + (let ((_%lp-hd105235105310%_ (let () (declare (not safe)) - (##car _%e105075105147%_))) - (_%lp-tl105077105154%_ + (##car _%e105234105306%_))) + (_%lp-tl105236105313%_ (let () (declare (not safe)) - (##cdr _%e105075105147%_)))) - (_%loop105074105137%_ - _%lp-tl105077105154%_ - (cons _%lp-hd105076105151%_ - _%arg105078105144%_)))) - (let ((_%arg105079105157%_ - (reverse _%arg105078105144%_))) - (if (gx#stx-pair? _%tl105067105118%_) - (let ((_%e105080105161%_ - (gx#syntax-e _%tl105067105118%_))) - (let ((_%hd105081105165%_ + (##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%_ (let () (declare (not safe)) - (##car _%e105080105161%_))) - (_%tl105082105168%_ + (##car _%e105239105320%_))) + (_%tl105241105327%_ (let () (declare (not safe)) - (##cdr _%e105080105161%_)))) - (if (gx#stx-pair? _%tl105082105168%_) - (let ((_%e105083105171%_ + (##cdr _%e105239105320%_)))) + (if (gx#stx-pair? _%tl105241105327%_) + (let ((_%e105242105330%_ (gx#syntax-e - _%tl105082105168%_))) - (let ((_%hd105084105175%_ + _%tl105241105327%_))) + (let ((_%hd105243105334%_ (let () (declare (not safe)) - (##car _%e105083105171%_))) - (_%tl105085105178%_ + (##car _%e105242105330%_))) + (_%tl105244105337%_ (let () (declare (not safe)) - (##cdr _%e105083105171%_)))) + (##cdr _%e105242105330%_)))) (if (gx#stx-pair? - _%tl105085105178%_) - (let ((_%e105086105181%_ + _%tl105244105337%_) + (let ((_%e105245105340%_ (gx#syntax-e - _%tl105085105178%_))) - (let ((_%hd105087105185%_ + _%tl105244105337%_))) + (let ((_%hd105246105344%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105086105181%_))) - (_%tl105088105188%_ + (##car _%e105245105340%_))) + (_%tl105247105347%_ (let () (declare (not safe)) - (##cdr _%e105086105181%_)))) - (if (gx#stx-null? _%tl105088105188%_) - ((lambda (_%L105191%_ - _%L105193%_ - _%L105194%_ - _%L105195%_ - _%L105196%_) + (##cdr _%e105245105340%_)))) + (if (gx#stx-null? _%tl105247105347%_) + ((lambda (_%L105350%_ + _%L105352%_ + _%L105353%_ + _%L105354%_ + _%L105355%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L105196%_ + (cons _%L105355%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1197,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp110137 + (let ((__tmp110296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105227105230%_ _%g105228105233%_) - (cons _%g105227105230%_ _%g105228105233%_)))) + (lambda (_%g105386105389%_ _%g105387105392%_) + (cons _%g105386105389%_ _%g105387105392%_)))) (declare (not safe)) - (__foldr1 __tmp110137 '() _%L105195%_))) + (__foldr1 __tmp110296 '() _%L105354%_))) (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 _%L105194%_ + (cons _%L105353%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,18 +1241,18 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105193%_ + (cons _%L105352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110138 - (lambda (_%g105225105236%_ - _%g105226105239%_) - (cons _%g105225105236%_ - _%g105226105239%_)))) + (let ((__tmp110297 + (lambda (_%g105384105395%_ + _%g105385105398%_) + (cons _%g105384105395%_ + _%g105385105398%_)))) (declare (not safe)) - (__foldr1 __tmp110138 '() _%L105195%_))))) + (__foldr1 __tmp110297 '() _%L105354%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105191%_ + (cons _%L105350%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1260,175 +1260,175 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd105087105185%_ - _%hd105084105175%_ - _%hd105081105165%_ - _%arg105079105157%_ - _%hd105069105125%_) - (_%g105055105094%_ _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_)))) + _%hd105246105344%_ + _%hd105243105334%_ + _%hd105240105324%_ + _%arg105238105316%_ + _%hd105228105284%_) + (_%g105214105253%_ _%g105215105257%_)))) + (_%g105214105253%_ _%g105215105257%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105055105094%_ - _%g105056105098%_)))) - (_%g105055105094%_ - _%g105056105098%_))))))) - (_%loop105074105137%_ _%target105071105131%_ '())) - (_%g105055105094%_ _%g105056105098%_))))) + (_%g105214105253%_ + _%g105215105257%_)))) + (_%g105214105253%_ + _%g105215105257%_))))))) + (_%loop105233105296%_ _%target105230105290%_ '())) + (_%g105214105253%_ _%g105215105257%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105055105094%_ - _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_))))) - (_%g105054105242%_ _%$stx105051%_)))) + (_%g105214105253%_ + _%g105215105257%_)))) + (_%g105214105253%_ _%g105215105257%_)))) + (_%g105214105253%_ _%g105215105257%_)))) + (_%g105214105253%_ _%g105215105257%_))))) + (_%g105213105401%_ _%$stx105210%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx105271%_) - (let* ((_%g105275105314%_ - (lambda (_%g105276105310%_) + (lambda (_%$stx105430%_) + (let* ((_%g105434105473%_ + (lambda (_%g105435105469%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105276105310%_))) - (_%g105274105477%_ - (lambda (_%g105276105318%_) - (if (gx#stx-pair? _%g105276105318%_) - (let ((_%e105282105321%_ - (gx#syntax-e _%g105276105318%_))) - (let ((_%hd105283105325%_ + _%g105435105469%_))) + (_%g105433105636%_ + (lambda (_%g105435105477%_) + (if (gx#stx-pair? _%g105435105477%_) + (let ((_%e105441105480%_ + (gx#syntax-e _%g105435105477%_))) + (let ((_%hd105442105484%_ (let () (declare (not safe)) - (##car _%e105282105321%_))) - (_%tl105284105328%_ + (##car _%e105441105480%_))) + (_%tl105443105487%_ (let () (declare (not safe)) - (##cdr _%e105282105321%_)))) - (if (gx#stx-pair? _%tl105284105328%_) - (let ((_%e105285105331%_ - (gx#syntax-e _%tl105284105328%_))) - (let ((_%hd105286105335%_ + (##cdr _%e105441105480%_)))) + (if (gx#stx-pair? _%tl105443105487%_) + (let ((_%e105444105490%_ + (gx#syntax-e _%tl105443105487%_))) + (let ((_%hd105445105494%_ (let () (declare (not safe)) - (##car _%e105285105331%_))) - (_%tl105287105338%_ + (##car _%e105444105490%_))) + (_%tl105446105497%_ (let () (declare (not safe)) - (##cdr _%e105285105331%_)))) - (if (gx#stx-pair? _%hd105286105335%_) - (let ((_%e105288105341%_ - (gx#syntax-e _%hd105286105335%_))) - (let ((_%hd105289105345%_ + (##cdr _%e105444105490%_)))) + (if (gx#stx-pair? _%hd105445105494%_) + (let ((_%e105447105500%_ + (gx#syntax-e _%hd105445105494%_))) + (let ((_%hd105448105504%_ (let () (declare (not safe)) - (##car _%e105288105341%_))) - (_%tl105290105348%_ + (##car _%e105447105500%_))) + (_%tl105449105507%_ (let () (declare (not safe)) - (##cdr _%e105288105341%_)))) - (if (gx#stx-pair? _%tl105290105348%_) - (let ((_%e105291105351%_ + (##cdr _%e105447105500%_)))) + (if (gx#stx-pair? _%tl105449105507%_) + (let ((_%e105450105510%_ (gx#syntax-e - _%tl105290105348%_))) - (let ((_%hd105292105355%_ + _%tl105449105507%_))) + (let ((_%hd105451105514%_ (let () (declare (not safe)) - (##car _%e105291105351%_))) - (_%tl105293105358%_ + (##car _%e105450105510%_))) + (_%tl105452105517%_ (let () (declare (not safe)) - (##cdr _%e105291105351%_)))) + (##cdr _%e105450105510%_)))) (if (gx#stx-pair/null? - _%tl105293105358%_) - (let ((_g110139_ + _%tl105452105517%_) + (let ((_g110298_ (gx#syntax-split-splice - _%tl105293105358%_ + _%tl105452105517%_ '0))) (begin - (let ((_g110140_ + (let ((_g110299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110139_) - (##vector-length _g110139_) + (if (##values? _g110298_) + (##vector-length _g110298_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110140_ 2))) - (error "Context expects 2 values" _g110140_))) - (let ((_%target105294105361%_ + (if (not (let () (declare (not safe)) (##fx= _g110299_ 2))) + (error "Context expects 2 values" _g110299_))) + (let ((_%target105453105520%_ (let () (declare (not safe)) - (##vector-ref _g110139_ 0))) - (_%tl105296105364%_ + (##vector-ref _g110298_ 0))) + (_%tl105455105523%_ (let () (declare (not safe)) - (##vector-ref _g110139_ 1)))) - (if (gx#stx-null? _%tl105296105364%_) - (letrec ((_%loop105297105367%_ - (lambda (_%hd105295105371%_ - _%arg105301105374%_) - (if (gx#stx-pair? _%hd105295105371%_) - (let ((_%e105298105377%_ + (##vector-ref _g110298_ 1)))) + (if (gx#stx-null? _%tl105455105523%_) + (letrec ((_%loop105456105526%_ + (lambda (_%hd105454105530%_ + _%arg105460105533%_) + (if (gx#stx-pair? _%hd105454105530%_) + (let ((_%e105457105536%_ (gx#syntax-e - _%hd105295105371%_))) - (let ((_%lp-hd105299105381%_ + _%hd105454105530%_))) + (let ((_%lp-hd105458105540%_ (let () (declare (not safe)) - (##car _%e105298105377%_))) - (_%lp-tl105300105384%_ + (##car _%e105457105536%_))) + (_%lp-tl105459105543%_ (let () (declare (not safe)) - (##cdr _%e105298105377%_)))) - (_%loop105297105367%_ - _%lp-tl105300105384%_ - (cons _%lp-hd105299105381%_ - _%arg105301105374%_)))) - (let ((_%arg105302105387%_ - (reverse _%arg105301105374%_))) - (if (gx#stx-pair? _%tl105287105338%_) - (let ((_%e105303105391%_ + (##cdr _%e105457105536%_)))) + (_%loop105456105526%_ + _%lp-tl105459105543%_ + (cons _%lp-hd105458105540%_ + _%arg105460105533%_)))) + (let ((_%arg105461105546%_ + (reverse _%arg105460105533%_))) + (if (gx#stx-pair? _%tl105446105497%_) + (let ((_%e105462105550%_ (gx#syntax-e - _%tl105287105338%_))) - (let ((_%hd105304105395%_ + _%tl105446105497%_))) + (let ((_%hd105463105554%_ (let () (declare (not safe)) - (##car _%e105303105391%_))) - (_%tl105305105398%_ + (##car _%e105462105550%_))) + (_%tl105464105557%_ (let () (declare (not safe)) - (##cdr _%e105303105391%_)))) + (##cdr _%e105462105550%_)))) (if (gx#stx-pair? - _%tl105305105398%_) - (let ((_%e105306105401%_ + _%tl105464105557%_) + (let ((_%e105465105560%_ (gx#syntax-e - _%tl105305105398%_))) - (let ((_%hd105307105405%_ + _%tl105464105557%_))) + (let ((_%hd105466105564%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105306105401%_))) - (_%tl105308105408%_ + (##car _%e105465105560%_))) + (_%tl105467105567%_ (let () (declare (not safe)) - (##cdr _%e105306105401%_)))) - (if (gx#stx-null? _%tl105308105408%_) - ((lambda (_%L105411%_ - _%L105413%_ - _%L105414%_ - _%L105415%_ - _%L105416%_) + (##cdr _%e105465105560%_)))) + (if (gx#stx-null? _%tl105467105567%_) + ((lambda (_%L105570%_ + _%L105572%_ + _%L105573%_ + _%L105574%_ + _%L105575%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L105416%_ + (cons _%L105575%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L105415%_ - (let ((__tmp110141 + (cons (cons _%L105574%_ + (let ((__tmp110300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105450105453%_ _%g105451105456%_) - (cons _%g105450105453%_ _%g105451105456%_)))) + (lambda (_%g105609105612%_ _%g105610105615%_) + (cons _%g105609105612%_ _%g105610105615%_)))) (declare (not safe)) - (__foldr1 __tmp110141 '() _%L105414%_))) + (__foldr1 __tmp110300 '() _%L105573%_))) (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 _%L105415%_ + (cons _%L105574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1450,32 +1450,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L105415%_ '())) + (cons _%L105574%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L105413%_ + (cons (cons _%L105572%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp110142 - (lambda (_%g105448105459%_ - _%g105449105462%_) - (cons _%g105448105459%_ - _%g105449105462%_)))) + (let ((__tmp110301 + (lambda (_%g105607105618%_ + _%g105608105621%_) + (cons _%g105607105618%_ + _%g105608105621%_)))) (declare (not safe)) - (__foldr1 __tmp110142 '() _%L105414%_)))) - (cons (cons _%L105411%_ + (__foldr1 __tmp110301 '() _%L105573%_)))) + (cons (cons _%L105570%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110143 - (lambda (_%g105446105465%_ - _%g105447105468%_) - (cons _%g105446105465%_ - _%g105447105468%_)))) + (let ((__tmp110302 + (lambda (_%g105605105624%_ + _%g105606105627%_) + (cons _%g105605105624%_ + _%g105606105627%_)))) (declare (not safe)) - (__foldr1 __tmp110143 '() _%L105414%_)))) + (__foldr1 __tmp110302 '() _%L105573%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1486,19 +1486,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L105411%_ '())) + (cons _%L105570%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp110144 - (lambda (_%g105444105471%_ - _%g105445105474%_) - (cons _%g105444105471%_ - _%g105445105474%_)))) + (let ((__tmp110303 + (lambda (_%g105603105630%_ + _%g105604105633%_) + (cons _%g105603105630%_ + _%g105604105633%_)))) (declare (not safe)) (__foldr1 - __tmp110144 + __tmp110303 '() - _%L105414%_))) + _%L105573%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1508,158 +1508,158 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd105307105405%_ - _%hd105304105395%_ - _%arg105302105387%_ - _%hd105292105355%_ - _%hd105289105345%_) - (_%g105275105314%_ _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_)))) + _%hd105466105564%_ + _%hd105463105554%_ + _%arg105461105546%_ + _%hd105451105514%_ + _%hd105448105504%_) + (_%g105434105473%_ _%g105435105477%_)))) + (_%g105434105473%_ _%g105435105477%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105275105314%_ - _%g105276105318%_))))))) - (_%loop105297105367%_ _%target105294105361%_ '())) - (_%g105275105314%_ _%g105276105318%_))))) - (_%g105275105314%_ _%g105276105318%_)))) + (_%g105434105473%_ + _%g105435105477%_))))))) + (_%loop105456105526%_ _%target105453105520%_ '())) + (_%g105434105473%_ _%g105435105477%_))))) + (_%g105434105473%_ _%g105435105477%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105275105314%_ - _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_))))) - (_%g105274105477%_ _%$stx105271%_)))) + (_%g105434105473%_ + _%g105435105477%_)))) + (_%g105434105473%_ _%g105435105477%_)))) + (_%g105434105473%_ _%g105435105477%_)))) + (_%g105434105473%_ _%g105435105477%_))))) + (_%g105433105636%_ _%$stx105430%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx105506%_) - (let* ((_%g105510105542%_ - (lambda (_%g105511105538%_) + (lambda (_%$stx105665%_) + (let* ((_%g105669105701%_ + (lambda (_%g105670105697%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105511105538%_))) - (_%g105509105655%_ - (lambda (_%g105511105546%_) - (if (gx#stx-pair? _%g105511105546%_) - (let ((_%e105516105549%_ - (gx#syntax-e _%g105511105546%_))) - (let ((_%hd105517105553%_ + _%g105670105697%_))) + (_%g105668105814%_ + (lambda (_%g105670105705%_) + (if (gx#stx-pair? _%g105670105705%_) + (let ((_%e105675105708%_ + (gx#syntax-e _%g105670105705%_))) + (let ((_%hd105676105712%_ (let () (declare (not safe)) - (##car _%e105516105549%_))) - (_%tl105518105556%_ + (##car _%e105675105708%_))) + (_%tl105677105715%_ (let () (declare (not safe)) - (##cdr _%e105516105549%_)))) - (if (gx#stx-pair? _%tl105518105556%_) - (let ((_%e105519105559%_ - (gx#syntax-e _%tl105518105556%_))) - (let ((_%hd105520105563%_ + (##cdr _%e105675105708%_)))) + (if (gx#stx-pair? _%tl105677105715%_) + (let ((_%e105678105718%_ + (gx#syntax-e _%tl105677105715%_))) + (let ((_%hd105679105722%_ (let () (declare (not safe)) - (##car _%e105519105559%_))) - (_%tl105521105566%_ + (##car _%e105678105718%_))) + (_%tl105680105725%_ (let () (declare (not safe)) - (##cdr _%e105519105559%_)))) - (if (gx#stx-pair? _%hd105520105563%_) - (let ((_%e105522105569%_ - (gx#syntax-e _%hd105520105563%_))) - (let ((_%hd105523105573%_ + (##cdr _%e105678105718%_)))) + (if (gx#stx-pair? _%hd105679105722%_) + (let ((_%e105681105728%_ + (gx#syntax-e _%hd105679105722%_))) + (let ((_%hd105682105732%_ (let () (declare (not safe)) - (##car _%e105522105569%_))) - (_%tl105524105576%_ + (##car _%e105681105728%_))) + (_%tl105683105735%_ (let () (declare (not safe)) - (##cdr _%e105522105569%_)))) - (if (gx#stx-pair? _%tl105524105576%_) - (let ((_%e105525105579%_ + (##cdr _%e105681105728%_)))) + (if (gx#stx-pair? _%tl105683105735%_) + (let ((_%e105684105738%_ (gx#syntax-e - _%tl105524105576%_))) - (let ((_%hd105526105583%_ + _%tl105683105735%_))) + (let ((_%hd105685105742%_ (let () (declare (not safe)) - (##car _%e105525105579%_))) - (_%tl105527105586%_ + (##car _%e105684105738%_))) + (_%tl105686105745%_ (let () (declare (not safe)) - (##cdr _%e105525105579%_)))) + (##cdr _%e105684105738%_)))) (if (gx#stx-pair/null? - _%tl105521105566%_) - (let ((_g110145_ + _%tl105680105725%_) + (let ((_g110304_ (gx#syntax-split-splice - _%tl105521105566%_ + _%tl105680105725%_ '0))) (begin - (let ((_g110146_ + (let ((_g110305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110145_) - (##vector-length _g110145_) + (if (##values? _g110304_) + (##vector-length _g110304_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110146_ 2))) - (error "Context expects 2 values" _g110146_))) - (let ((_%target105528105589%_ + (if (not (let () (declare (not safe)) (##fx= _g110305_ 2))) + (error "Context expects 2 values" _g110305_))) + (let ((_%target105687105748%_ (let () (declare (not safe)) - (##vector-ref _g110145_ 0))) - (_%tl105530105592%_ + (##vector-ref _g110304_ 0))) + (_%tl105689105751%_ (let () (declare (not safe)) - (##vector-ref _g110145_ 1)))) - (if (gx#stx-null? _%tl105530105592%_) - (letrec ((_%loop105531105595%_ - (lambda (_%hd105529105599%_ - _%body105535105602%_) - (if (gx#stx-pair? _%hd105529105599%_) - (let ((_%e105532105605%_ + (##vector-ref _g110304_ 1)))) + (if (gx#stx-null? _%tl105689105751%_) + (letrec ((_%loop105690105754%_ + (lambda (_%hd105688105758%_ + _%body105694105761%_) + (if (gx#stx-pair? _%hd105688105758%_) + (let ((_%e105691105764%_ (gx#syntax-e - _%hd105529105599%_))) - (let ((_%lp-hd105533105609%_ + _%hd105688105758%_))) + (let ((_%lp-hd105692105768%_ (let () (declare (not safe)) - (##car _%e105532105605%_))) - (_%lp-tl105534105612%_ + (##car _%e105691105764%_))) + (_%lp-tl105693105771%_ (let () (declare (not safe)) - (##cdr _%e105532105605%_)))) - (_%loop105531105595%_ - _%lp-tl105534105612%_ - (cons _%lp-hd105533105609%_ - _%body105535105602%_)))) - (let ((_%body105536105615%_ - (reverse _%body105535105602%_))) - ((lambda (_%L105619%_ - _%L105621%_ - _%L105622%_ - _%L105623%_) + (##cdr _%e105691105764%_)))) + (_%loop105690105754%_ + _%lp-tl105693105771%_ + (cons _%lp-hd105692105768%_ + _%body105694105761%_)))) + (let ((_%body105695105774%_ + (reverse _%body105694105761%_))) + ((lambda (_%L105778%_ + _%L105780%_ + _%L105781%_ + _%L105782%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L105623%_ - (cons (cons _%L105622%_ + (cons (cons _%L105782%_ + (cons (cons _%L105781%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L105621%_)) - (let ((__tmp110147 - (lambda (_%g105646105649%_ _%g105647105652%_) - (cons _%g105646105649%_ _%g105647105652%_)))) + _%L105780%_)) + (let ((__tmp110306 + (lambda (_%g105805105808%_ _%g105806105811%_) + (cons _%g105805105808%_ _%g105806105811%_)))) (declare (not safe)) - (__foldr1 __tmp110147 '() _%L105619%_))))) + (__foldr1 __tmp110306 '() _%L105778%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body105536105615%_ - _%tl105527105586%_ - _%hd105526105583%_ - _%hd105523105573%_)))))) - (_%loop105531105595%_ _%target105528105589%_ '())) - (_%g105510105542%_ _%g105511105546%_))))) - (_%g105510105542%_ _%g105511105546%_)))) + _%body105695105774%_ + _%tl105686105745%_ + _%hd105685105742%_ + _%hd105682105732%_)))))) + (_%loop105690105754%_ _%target105687105748%_ '())) + (_%g105669105701%_ _%g105670105705%_))))) + (_%g105669105701%_ _%g105670105705%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105510105542%_ - _%g105511105546%_)))) - (_%g105510105542%_ _%g105511105546%_)))) - (_%g105510105542%_ _%g105511105546%_)))) - (_%g105510105542%_ _%g105511105546%_))))) - (_%g105509105655%_ _%$stx105506%_)))))) + (_%g105669105701%_ + _%g105670105705%_)))) + (_%g105669105701%_ _%g105670105705%_)))) + (_%g105669105701%_ _%g105670105705%_)))) + (_%g105669105701%_ _%g105670105705%_))))) + (_%g105668105814%_ _%$stx105665%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 24e57c61d..1d136605f 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 1713631266) + (define gerbil/runtime/init::timestamp 1733687559) (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+115309%_ __*readtable*)) - (let* ((_%core115311%_ (gx#import-module ':gerbil/core)) - (_%pre115313%_ (gx#make-prelude-context _%core115311%_))) - (gx#current-expander-module-prelude _%pre115313%_) - (gx#core-bind-root-syntax! ': _%pre115313%_ '#t) + (letrec* ((_%+readtable+115468%_ __*readtable*)) + (let* ((_%core115470%_ (gx#import-module ':gerbil/core)) + (_%pre115472%_ (gx#make-prelude-context _%core115470%_))) + (gx#current-expander-module-prelude _%pre115472%_) + (gx#core-bind-root-syntax! ': _%pre115472%_ '#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 ((__tmp115320 - (lambda (_%port115316%_) + (let ((__tmp115479 + (lambda (_%port115475%_) (input-port-readtable-set! - _%port115316%_ - _%+readtable+115309%_))) - (__tmp115319 (list ##stdin-port ##console-port))) + _%port115475%_ + _%+readtable+115468%_))) + (__tmp115478 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp115320 __tmp115319)) - (let ((__tmp115322 - (lambda (_%port115318%_) + (##for-each __tmp115479 __tmp115478)) + (let ((__tmp115481 + (lambda (_%port115477%_) (output-port-readtable-set! - _%port115318%_ + _%port115477%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port115318%_) + (output-port-readtable _%port115477%_) '#t)))) - (__tmp115321 (list ##stdout-port ##console-port))) + (__tmp115480 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp115322 __tmp115321))))) - (define __gxi-init-interactive! (lambda (_%cmdline115306%_) '#!void)) + (##for-each __tmp115481 __tmp115480))))) + (define __gxi-init-interactive! (lambda (_%cmdline115465%_) '#!void)) (define load-scheme - (lambda (_%path115301%_) - (let ((__tmp115323 + (lambda (_%path115460%_) + (let ((__tmp115482 (lambda () - (let ((__tmp115324 (lambda _%args115304%_ '#f))) + (let ((__tmp115483 (lambda _%args115463%_ '#f))) (declare (not safe)) - (##load _%path115301%_ __tmp115324 '#t '#t '#f))))) + (##load _%path115460%_ __tmp115483 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp115323 + __tmp115482 __scheme-source - _%path115301%_)))) + _%path115460%_)))) (define __expand-source - (lambda (_%src115283%_) - (letrec ((_%expand115285%_ - (lambda (_%src115299%_) + (lambda (_%src115442%_) + (letrec ((_%expand115444%_ + (lambda (_%src115458%_) (__compile-top - (gx#core-expand (__source->syntax _%src115299%_))))) - (_%no-expand115286%_ - (lambda (_%src115292%_) + (gx#core-expand (__source->syntax _%src115458%_))))) + (_%no-expand115445%_ + (lambda (_%src115451%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src115292%_ + _%src115451%_ (if (let () (declare (not safe)) - (##source? _%src115292%_)) - (let ((_%code115296%_ + (##source? _%src115451%_)) + (let ((_%code115455%_ (let () (declare (not safe)) - (##source-code _%src115292%_)))) - (if (pair? _%code115296%_) + (##source-code _%src115451%_)))) + (if (pair? _%code115455%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code115296%_))) + (##car _%code115455%_))) (let () (declare (not safe)) - (##cdr _%code115296%_)) + (##cdr _%code115455%_)) '#f) '#f)) '#f))))) - (let ((_%$e115288%_ (_%no-expand115286%_ _%src115283%_))) - (if _%$e115288%_ _%$e115288%_ (_%expand115285%_ _%src115283%_)))))) + (let ((_%$e115447%_ (_%no-expand115445%_ _%src115442%_))) + (if _%$e115447%_ _%$e115447%_ (_%expand115444%_ _%src115442%_)))))) (define __macro-descr - (lambda (_%src115269%_ _%def-syntax?115270%_) - (letrec ((_%fail!115272%_ + (lambda (_%src115428%_ _%def-syntax?115429%_) + (letrec ((_%fail!115431%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src115269%_)))) - (_%make-descr115273%_ - (lambda (_%size115277%_) - (let ((_%expander115280%_ - (let ((__tmp115325 + _%src115428%_)))) + (_%make-descr115432%_ + (lambda (_%size115436%_) + (let ((_%expander115439%_ + (let ((__tmp115484 (lambda () (let () (declare (not safe)) (##eval-top - _%src115269%_ + _%src115428%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp115325 + __tmp115484 __scheme-source 'macro)))) - (if (procedure? _%expander115280%_) + (if (procedure? _%expander115439%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?115270%_ - _%size115277%_ - _%expander115280%_ - _%src115269%_)) - (_%fail!115272%_)))))) - (if _%def-syntax?115270%_ - (_%make-descr115273%_ '-1) - (let ((_%code115275%_ + _%def-syntax?115429%_ + _%size115436%_ + _%expander115439%_ + _%src115428%_)) + (_%fail!115431%_)))))) + (if _%def-syntax?115429%_ + (_%make-descr115432%_ '-1) + (let ((_%code115434%_ (let () (declare (not safe)) - (##source-code _%src115269%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code115275%_)) - (let ((__tmp115326 - (let ((__tmp115327 - (let ((__tmp115328 + (##source-code _%src115428%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code115434%_)) + (let ((__tmp115485 + (let ((__tmp115486 + (let ((__tmp115487 (let () (declare (not safe)) - (##car _%code115275%_)))) + (##car _%code115434%_)))) (declare (not safe)) (##sourcify - __tmp115328 - _%src115269%_)))) + __tmp115487 + _%src115428%_)))) (declare (not safe)) - (##source-code __tmp115327)))) + (##source-code __tmp115486)))) (declare (not safe)) - (##memq __tmp115326 '(##lambda lambda)))) + (##memq __tmp115485 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src115269%_ _%src115269%_ '-3)) - (_%make-descr115273%_ - (let ((__tmp115329 - (let ((__tmp115330 + (##shape _%src115428%_ _%src115428%_ '-3)) + (_%make-descr115432%_ + (let ((__tmp115488 + (let ((__tmp115489 (let () (declare (not safe)) - (##cadr _%code115275%_)))) + (##cadr _%code115434%_)))) (declare (not safe)) - (##sourcify __tmp115330 _%src115269%_)))) + (##sourcify __tmp115489 _%src115428%_)))) (declare (not safe)) - (##form-size __tmp115329)))) - (_%fail!115272%_))))))) + (##form-size __tmp115488)))) + (_%fail!115431%_))))))) (define __source->syntax - (lambda (_%src115258%_) - (let _%recur115260%_ ((_%e115262%_ _%src115258%_)) - (if (let () (declare (not safe)) (##source? _%e115262%_)) - (let ((__tmp115332 - (_%recur115260%_ + (lambda (_%src115417%_) + (let _%recur115419%_ ((_%e115421%_ _%src115417%_)) + (if (let () (declare (not safe)) (##source? _%e115421%_)) + (let ((__tmp115491 + (_%recur115419%_ (let () (declare (not safe)) - (##source-code _%e115262%_)))) - (__tmp115331 + (##source-code _%e115421%_)))) + (__tmp115490 (let () (declare (not safe)) - (##source-locat _%e115262%_)))) + (##source-locat _%e115421%_)))) (declare (not safe)) - (##structure AST::t __tmp115332 __tmp115331)) - (if (pair? _%e115262%_) - (cons (_%recur115260%_ - (let () (declare (not safe)) (##car _%e115262%_))) - (_%recur115260%_ - (let () (declare (not safe)) (##cdr _%e115262%_)))) - (if (vector? _%e115262%_) - (vector-map _%recur115260%_ _%e115262%_) - (if (box? _%e115262%_) - (box (_%recur115260%_ (unbox _%e115262%_))) - _%e115262%_))))))) + (##structure AST::t __tmp115491 __tmp115490)) + (if (pair? _%e115421%_) + (cons (_%recur115419%_ + (let () (declare (not safe)) (##car _%e115421%_))) + (_%recur115419%_ + (let () (declare (not safe)) (##cdr _%e115421%_)))) + (if (vector? _%e115421%_) + (vector-map _%recur115419%_ _%e115421%_) + (if (box? _%e115421%_) + (box (_%recur115419%_ (unbox _%e115421%_))) + _%e115421%_))))))) (define __compile-top-source - (lambda (_%stx115256%_) - (cons '__noexpand: (__compile-top _%stx115256%_)))) + (lambda (_%stx115415%_) + (cons '__noexpand: (__compile-top _%stx115415%_)))) (define __compile-top - (lambda (_%stx115254%_) - (let ((__tmp115333 (gx#core-compile-top-syntax _%stx115254%_))) + (lambda (_%stx115413%_) + (let ((__tmp115492 (gx#core-compile-top-syntax _%stx115413%_))) (declare (not safe)) - (__compile __tmp115333)))) + (__compile __tmp115492)))) (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 (_%in115216%_) - (letrec ((_%import1115218%_ - (lambda (_%in115239%_ _%phi115240%_) - (if (gx#module-import? _%in115239%_) - (let ((_%iphi115243%_ - (fx+ _%phi115240%_ - (gx#module-import-phi _%in115239%_)))) + (lambda (_%in115375%_) + (letrec ((_%import1115377%_ + (lambda (_%in115398%_ _%phi115399%_) + (if (gx#module-import? _%in115398%_) + (let ((_%iphi115402%_ + (fx+ _%phi115399%_ + (gx#module-import-phi _%in115398%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115243%_)) - (_%eval1115219%_ + (##fxzero? _%iphi115402%_)) + (_%eval1115378%_ (gx#module-export-context - (gx#module-import-source _%in115239%_))) + (gx#module-import-source _%in115398%_))) '#!void)) - (if (gx#module-context? _%in115239%_) - (if (fxzero? _%phi115240%_) - (_%eval1115219%_ _%in115239%_) + (if (gx#module-context? _%in115398%_) + (if (fxzero? _%phi115399%_) + (_%eval1115378%_ _%in115398%_) '#!void) - (if (gx#import-set? _%in115239%_) - (let ((_%iphi115247%_ - (fx+ _%phi115240%_ - (gx#import-set-phi _%in115239%_)))) + (if (gx#import-set? _%in115398%_) + (let ((_%iphi115406%_ + (fx+ _%phi115399%_ + (gx#import-set-phi _%in115398%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115247%_)) - (_%eval1115219%_ - (gx#import-set-source _%in115239%_)) + (##fxzero? _%iphi115406%_)) + (_%eval1115378%_ + (gx#import-set-source _%in115398%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi115247%_)) + (##fxpositive? _%iphi115406%_)) (for-each - (lambda (_%in115251%_) - (_%import1115218%_ - _%in115251%_ - _%iphi115247%_)) + (lambda (_%in115410%_) + (_%import1115377%_ + _%in115410%_ + _%iphi115406%_)) (gx#module-context-import (gx#import-set-source - _%in115239%_))) + _%in115398%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in115239%_))))))) - (_%eval1115219%_ - (lambda (_%ctx115223%_) + _%in115398%_))))))) + (_%eval1115378%_ + (lambda (_%ctx115382%_) (mutex-lock! __modstate-mx) - (let ((_%$e115225%_ + (let ((_%$e115384%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx115223%_)))) - (if _%$e115225%_ - ((lambda (_%state115228%_) - (let ((_%$e115230%_ (car _%state115228%_))) - (if (eq? 'forcing _%$e115230%_) + (__hash-get __modstate _%ctx115382%_)))) + (if _%$e115384%_ + ((lambda (_%state115387%_) + (let ((_%$e115389%_ (car _%state115387%_))) + (if (eq? 'forcing _%$e115389%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1115219%_ _%ctx115223%_)) - (if (eq? 'ready _%$e115230%_) + (_%eval1115378%_ _%ctx115382%_)) + (if (eq? 'ready _%$e115389%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state115228%_)) - (if (eq? 'error _%$e115230%_) + (cadr _%state115387%_)) + (if (eq? 'error _%$e115389%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp115334 - (cadr _%state115228%_))) + (let ((__tmp115493 + (cadr _%state115387%_))) (declare (not safe)) - (raise __tmp115334))) + (raise __tmp115493))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state115228%_)))))))) - _%$e115225%_) + _%state115387%_)))))))) + _%$e115384%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx115223%_ + _%ctx115382%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp115337 - (lambda (_%exn115234%_) + (let ((__tmp115496 + (lambda (_%exn115393%_) (mutex-lock! __modstate-mx) - (let ((__tmp115338 + (let ((__tmp115497 (cons 'error - (cons _%exn115234%_ '())))) + (cons _%exn115393%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115223%_ - __tmp115338)) + _%ctx115382%_ + __tmp115497)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn115234%_)))) - (__tmp115335 + (raise _%exn115393%_)))) + (__tmp115494 (lambda () - (let ((_%result115237%_ - (__eval-module _%ctx115223%_))) + (let ((_%result115396%_ + (__eval-module _%ctx115382%_))) (mutex-lock! __modstate-mx) - (let ((__tmp115336 + (let ((__tmp115495 (cons 'ready - (cons _%result115237%_ + (cons _%result115396%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115223%_ - __tmp115336)) + _%ctx115382%_ + __tmp115495)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result115237%_)))) + _%result115396%_)))) (declare (not safe)) - (__with-catch __tmp115337 __tmp115335)))))))) - (if (pair? _%in115216%_) - (let ((__tmp115339 - (lambda (_%in115221%_) - (_%import1115218%_ _%in115221%_ '0)))) + (__with-catch __tmp115496 __tmp115494)))))))) + (if (pair? _%in115375%_) + (let ((__tmp115498 + (lambda (_%in115380%_) + (_%import1115377%_ _%in115380%_ '0)))) (declare (not safe)) - (##for-each __tmp115339 _%in115216%_)) - (_%import1115218%_ _%in115216%_ '0))))) + (##for-each __tmp115498 _%in115375%_)) + (_%import1115377%_ _%in115375%_ '0))))) (define __eval-module - (lambda (_%obj115214%_) (gx#core-eval-module _%obj115214%_))) + (lambda (_%obj115373%_) (gx#core-eval-module _%obj115373%_))) (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-head115210%_ - (let ((_%$e115207%_ + (let* ((_%stack-trace-head115369%_ + (let ((_%$e115366%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e115207%_ _%$e115207%_ '10))) - (__tmp115340 - (lambda (_%cont115212%_) + (if _%$e115366%_ _%$e115366%_ '10))) + (__tmp115499 + (lambda (_%cont115371%_) (display-continuation-backtrace - _%cont115212%_ + _%cont115371%_ (current-error-port) '1 '1 '0 - _%stack-trace-head115210%_)))) + _%stack-trace-head115369%_)))) (declare (not safe)) - (##continuation-capture __tmp115340))) + (##continuation-capture __tmp115499))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules115183%_) + (lambda (_%builtin-modules115342%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home115185%_ + (let* ((_%home115344%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir115187%_ (path-expand '"lib" _%home115185%_)) - (_%userpath115189%_ + (_%libdir115346%_ (path-expand '"lib" _%home115344%_)) + (_%userpath115348%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath115191%_ + (_%loadpath115350%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir115187%_ '()) - (cons _%userpath115189%_ - (cons _%libdir115187%_ '())))) - (_%loadpath115201%_ - (let ((_%$e115193%_ + (cons _%libdir115346%_ '()) + (cons _%userpath115348%_ + (cons _%libdir115346%_ '())))) + (_%loadpath115360%_ + (let ((_%$e115352%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e115193%_ - ((lambda (_%envvar115196%_) - (let ((__tmp115341 - (let ((__tmp115343 - (lambda (_%x115198%_) + (if _%$e115352%_ + ((lambda (_%envvar115355%_) + (let ((__tmp115500 + (let ((__tmp115502 + (lambda (_%x115357%_) (not (let () (declare (not safe)) (string-empty? - _%x115198%_))))) - (__tmp115342 + _%x115357%_))))) + (__tmp115501 (let () (declare (not safe)) (string-split - _%envvar115196%_ + _%envvar115355%_ '#\:)))) (declare (not safe)) - (##filter __tmp115343 __tmp115342)))) + (##filter __tmp115502 __tmp115501)))) (declare (not safe)) - (##append __tmp115341 _%loadpath115191%_))) - _%$e115193%_) - _%loadpath115191%_)))) + (##append __tmp115500 _%loadpath115350%_))) + _%$e115352%_) + _%loadpath115350%_)))) (declare (not safe)) - (__set-load-path! _%loadpath115201%_)) + (__set-load-path! _%loadpath115360%_)) (for-each - (lambda (_%mod115204%_) + (lambda (_%mod115363%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod115204%_ 'builtin)) - (let ((__tmp115344 + (__hash-put! __modules _%mod115363%_ 'builtin)) + (let ((__tmp115503 (let () (declare (not safe)) - (##string-append _%mod115204%_ '"~0")))) + (##string-append _%mod115363%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp115344 'builtin))) - _%builtin-modules115183%_) + (__hash-put! __modules __tmp115503 'builtin))) + _%builtin-modules115342%_) (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 e16b423f0..cbbcb7dfc 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 1713631265) + (define gerbil/runtime/interface::timestamp 1733687558) (begin (define CastError::t - (let ((__tmp104958 (list Error::t))) + (let ((__tmp105117 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp104958 + __tmp105117 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args104951%_ - (apply make-instance CastError::t _%$args104951%_))) + (lambda _%$args105110%_ + (apply make-instance CastError::t _%$args105110%_))) (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 (_%where104825%_ _%message104826%_ . _%irritants104827%_) - (let ((__tmp104959 - (let ((__obj104954 + (lambda (_%where104984%_ _%message104985%_ . _%irritants104986%_) + (let ((__tmp105118 + (let ((__obj105113 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (CastError:::init! - __obj104954 - _%message104826%_ + __obj105113 + _%message104985%_ 'where: - _%where104825%_ + _%where104984%_ 'irritants: - _%irritants104827%_)) - __obj104954))) + _%irritants104986%_)) + __obj105113))) (declare (not safe)) - (raise __tmp104959)))) + (raise __tmp105118)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp104961 (list)) (__tmp104960 (cons (cons 'struct: '#t) '()))) + (let ((__tmp105120 (list)) (__tmp105119 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp104961 + __tmp105120 '(__object) - __tmp104960 + __tmp105119 '#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 ((__tmp104963 (list)) - (__tmp104962 + (let ((__tmp105122 (list)) + (__tmp105121 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp104963 + __tmp105122 '(type methods) - __tmp104962 + __tmp105121 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args104822%_ - (apply make-instance interface-descriptor::t _%$args104822%_))) + (lambda _%$args104981%_ + (apply make-instance interface-descriptor::t _%$args104981%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -193,553 +193,553 @@ interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_%key104820%_) - (let ((__tmp104965 + (lambda (_%key104979%_) + (let ((__tmp105124 (macro-slot '1 - (let () (declare (not safe)) (##car _%key104820%_)))) - (__tmp104964 + (let () (declare (not safe)) (##car _%key104979%_)))) + (__tmp105123 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key104820%_))))) + (let () (declare (not safe)) (##cdr _%key104979%_))))) (declare (not safe)) - (##fxxor __tmp104965 __tmp104964)))) + (##fxxor __tmp105124 __tmp105123)))) (define __interface-test-key - (lambda (_%a104817%_ _%b104818%_) - (if (let ((__tmp104967 - (let () (declare (not safe)) (##car _%a104817%_))) - (__tmp104966 - (let () (declare (not safe)) (##car _%b104818%_)))) + (lambda (_%a104976%_ _%b104977%_) + (if (let ((__tmp105126 + (let () (declare (not safe)) (##car _%a104976%_))) + (__tmp105125 + (let () (declare (not safe)) (##car _%b104977%_)))) (declare (not safe)) - (##eq? __tmp104967 __tmp104966)) - (let ((__tmp104969 - (let () (declare (not safe)) (##cdr _%a104817%_))) - (__tmp104968 - (let () (declare (not safe)) (##cdr _%b104818%_)))) + (##eq? __tmp105126 __tmp105125)) + (let ((__tmp105128 + (let () (declare (not safe)) (##cdr _%a104976%_))) + (__tmp105127 + (let () (declare (not safe)) (##cdr _%b104977%_)))) (declare (not safe)) - (##eq? __tmp104969 __tmp104968)) + (##eq? __tmp105128 __tmp105127)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint104798%_ _%seed104800%_) + (lambda (_%size-hint104957%_ _%seed104959%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint104798%_ + _%size-hint104957%_ __interface-hash-key __interface-test-key - _%seed104800%_)))) + _%seed104959%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint104806%_ '#f) (_%seed104808%_ '0)) - (make-prototype-table__% _%size-hint104806%_ _%seed104808%_)))) + (let* ((_%size-hint104965%_ '#f) (_%seed104967%_ '0)) + (make-prototype-table__% _%size-hint104965%_ _%seed104967%_)))) (define make-prototype-table__1 - (lambda (_%size-hint104810%_) - (let ((_%seed104812%_ '0)) - (make-prototype-table__% _%size-hint104810%_ _%seed104812%_)))) + (lambda (_%size-hint104969%_) + (let ((_%seed104971%_ '0)) + (make-prototype-table__% _%size-hint104969%_ _%seed104971%_)))) (define make-prototype-table - (lambda _g104971_ - (let ((_g104970_ (let () (declare (not safe)) (##length _g104971_)))) - (cond ((let () (declare (not safe)) (##fx= _g104970_ 0)) - (apply make-prototype-table__0 _g104971_)) - ((let () (declare (not safe)) (##fx= _g104970_ 1)) - (apply make-prototype-table__1 _g104971_)) - ((let () (declare (not safe)) (##fx= _g104970_ 2)) - (apply make-prototype-table__% _g104971_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g104971_)))))) + _g105130_)))))) (define prototype-table-ref - (lambda (_%tab104751%_ _%key104752%_ _%default104753%_) - (let ((_%table104755%_ - (let () (declare (not safe)) (&raw-table-table _%tab104751%_))) - (_%seed104756%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104751%_)))) - (let* ((_%h104758%_ - (fxxor (__interface-hash-key _%key104752%_) _%seed104756%_)) - (_%size104761%_ (vector-length _%table104755%_)) - (_%entries104764%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size104761%_ '2))) - (_%start104767%_ - (let ((__tmp104972 + (##fxquotient _%size104920%_ '2))) + (_%start104926%_ + (let ((__tmp105131 (let () (declare (not safe)) - (##fxmodulo _%h104758%_ _%entries104764%_)))) + (##fxmodulo _%h104917%_ _%entries104923%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104972 '1)))) - (let _%loop104771%_ ((_%probe104774%_ _%start104767%_) - (_%i104776%_ '1) - (_%deleted104778%_ '#f)) - (let ((_%k104781%_ (vector-ref _%table104755%_ _%probe104774%_))) - (if (eq? _%k104781%_ (macro-unused-obj)) - _%default104753%_ - (if (eq? _%k104781%_ (macro-deleted-obj)) - (_%loop104771%_ - (let ((_%next-probe104786%_ - (fx+ _%start104767%_ - _%i104776%_ - (fx* _%i104776%_ _%i104776%_)))) + (##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%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104786%_ _%size104761%_)) - (let () (declare (not safe)) (##fx+ _%i104776%_ '1)) - (let ((_%$e104789%_ _%deleted104778%_)) - (if _%$e104789%_ _%$e104789%_ _%probe104774%_))) - (if (__interface-test-key _%key104752%_ _%k104781%_) + (##fxmodulo _%next-probe104945%_ _%size104920%_)) + (let () (declare (not safe)) (##fx+ _%i104935%_ '1)) + (let ((_%$e104948%_ _%deleted104937%_)) + (if _%$e104948%_ _%$e104948%_ _%probe104933%_))) + (if (__interface-test-key _%key104911%_ _%k104940%_) (vector-ref - _%table104755%_ + _%table104914%_ (let () (declare (not safe)) - (##fx+ _%probe104774%_ '1))) - (_%loop104771%_ - (let ((_%next-probe104794%_ - (fx+ _%start104767%_ - _%i104776%_ - (fx* _%i104776%_ _%i104776%_)))) + (##fx+ _%probe104933%_ '1))) + (_%loop104930%_ + (let ((_%next-probe104953%_ + (fx+ _%start104926%_ + _%i104935%_ + (fx* _%i104935%_ _%i104935%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104794%_ - _%size104761%_)) + _%next-probe104953%_ + _%size104920%_)) (let () (declare (not safe)) - (##fx+ _%i104776%_ '1)) - _%deleted104778%_)))))))))) + (##fx+ _%i104935%_ '1)) + _%deleted104937%_)))))))))) (define prototype-table-set! - (lambda (_%tab104747%_ _%key104748%_ _%value104749%_) - (if (let ((__tmp104975 + (lambda (_%tab104906%_ _%key104907%_ _%value104908%_) + (if (let ((__tmp105134 (let () (declare (not safe)) - (&raw-table-free _%tab104747%_))) - (__tmp104973 - (let ((__tmp104974 + (&raw-table-free _%tab104906%_))) + (__tmp105132 + (let ((__tmp105133 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104747%_))))) + (&raw-table-table _%tab104906%_))))) (declare (not safe)) - (##fxquotient __tmp104974 '4)))) + (##fxquotient __tmp105133 '4)))) (declare (not safe)) - (##fx< __tmp104975 __tmp104973)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104747%_)) + (##fx< __tmp105134 __tmp105132)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab104906%_)) '#!void) - (__prototype-table-set! _%tab104747%_ _%key104748%_ _%value104749%_))) + (__prototype-table-set! _%tab104906%_ _%key104907%_ _%value104908%_))) (define __prototype-table-set! - (lambda (_%tab104698%_ _%key104699%_ _%value104700%_) - (let ((_%table104703%_ - (let () (declare (not safe)) (&raw-table-table _%tab104698%_))) - (_%seed104704%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104698%_)))) - (let* ((_%h104706%_ - (fxxor (__interface-hash-key _%key104699%_) _%seed104704%_)) - (_%size104709%_ (vector-length _%table104703%_)) - (_%entries104712%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size104709%_ '2))) - (_%start104715%_ - (let ((__tmp104976 + (##fxquotient _%size104868%_ '2))) + (_%start104874%_ + (let ((__tmp105135 (let () (declare (not safe)) - (##fxmodulo _%h104706%_ _%entries104712%_)))) + (##fxmodulo _%h104865%_ _%entries104871%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104976 '1)))) - (let _%loop104719%_ ((_%probe104722%_ _%start104715%_) - (_%i104724%_ '1) - (_%deleted104726%_ '#f)) - (let ((_%k104729%_ (vector-ref _%table104703%_ _%probe104722%_))) - (if (eq? _%k104729%_ (macro-unused-obj)) - (if _%deleted104726%_ + (##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%_ (begin (vector-set! - _%table104703%_ - _%deleted104726%_ - _%key104699%_) + _%table104862%_ + _%deleted104885%_ + _%key104858%_) (vector-set! - _%table104703%_ + _%table104862%_ (let () (declare (not safe)) - (##fx+ _%deleted104726%_ '1)) - _%value104700%_) + (##fx+ _%deleted104885%_ '1)) + _%value104859%_) ((lambda () - (let ((__tmp104977 - (let ((__tmp104978 + (let ((__tmp105136 + (let ((__tmp105137 (let () (declare (not safe)) (&raw-table-count - _%tab104698%_)))) + _%tab104857%_)))) (declare (not safe)) - (##fx+ __tmp104978 '1)))) + (##fx+ __tmp105137 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104698%_ - __tmp104977))))) + _%tab104857%_ + __tmp105136))))) (begin (vector-set! - _%table104703%_ - _%probe104722%_ - _%key104699%_) + _%table104862%_ + _%probe104881%_ + _%key104858%_) (vector-set! - _%table104703%_ + _%table104862%_ (let () (declare (not safe)) - (##fx+ _%probe104722%_ '1)) - _%value104700%_) + (##fx+ _%probe104881%_ '1)) + _%value104859%_) ((lambda () - (let ((__tmp104979 - (let ((__tmp104980 + (let ((__tmp105138 + (let ((__tmp105139 (let () (declare (not safe)) - (&raw-table-free _%tab104698%_)))) + (&raw-table-free _%tab104857%_)))) (declare (not safe)) - (##fx- __tmp104980 '1)))) + (##fx- __tmp105139 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104698%_ - __tmp104979)) - (let ((__tmp104981 - (let ((__tmp104982 + _%tab104857%_ + __tmp105138)) + (let ((__tmp105140 + (let ((__tmp105141 (let () (declare (not safe)) (&raw-table-count - _%tab104698%_)))) + _%tab104857%_)))) (declare (not safe)) - (##fx+ __tmp104982 '1)))) + (##fx+ __tmp105141 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104698%_ - __tmp104981)))))) - (if (eq? _%k104729%_ (macro-deleted-obj)) - (_%loop104719%_ - (let ((_%next-probe104736%_ - (fx+ _%start104715%_ - _%i104724%_ - (fx* _%i104724%_ _%i104724%_)))) + _%tab104857%_ + __tmp105140)))))) + (if (eq? _%k104888%_ (macro-deleted-obj)) + (_%loop104878%_ + (let ((_%next-probe104895%_ + (fx+ _%start104874%_ + _%i104883%_ + (fx* _%i104883%_ _%i104883%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104736%_ _%size104709%_)) - (let () (declare (not safe)) (##fx+ _%i104724%_ '1)) - (let ((_%$e104739%_ _%deleted104726%_)) - (if _%$e104739%_ _%$e104739%_ _%probe104722%_))) - (if (__interface-test-key _%key104699%_ _%k104729%_) + (##fxmodulo _%next-probe104895%_ _%size104868%_)) + (let () (declare (not safe)) (##fx+ _%i104883%_ '1)) + (let ((_%$e104898%_ _%deleted104885%_)) + (if _%$e104898%_ _%$e104898%_ _%probe104881%_))) + (if (__interface-test-key _%key104858%_ _%k104888%_) (let () (vector-set! - _%table104703%_ - _%probe104722%_ - _%key104699%_) + _%table104862%_ + _%probe104881%_ + _%key104858%_) (vector-set! - _%table104703%_ + _%table104862%_ (let () (declare (not safe)) - (##fx+ _%probe104722%_ '1)) - _%value104700%_)) - (_%loop104719%_ - (let ((_%next-probe104744%_ - (fx+ _%start104715%_ - _%i104724%_ - (fx* _%i104724%_ _%i104724%_)))) + (##fx+ _%probe104881%_ '1)) + _%value104859%_)) + (_%loop104878%_ + (let ((_%next-probe104903%_ + (fx+ _%start104874%_ + _%i104883%_ + (fx* _%i104883%_ _%i104883%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104744%_ - _%size104709%_)) + _%next-probe104903%_ + _%size104868%_)) (let () (declare (not safe)) - (##fx+ _%i104724%_ '1)) - _%deleted104726%_)))))))))) + (##fx+ _%i104883%_ '1)) + _%deleted104885%_)))))))))) (define prototype-table-update! - (lambda (_%tab104693%_ - _%key104694%_ - _%prototype-table-update!104695%_ - _%default104696%_) - (if (let ((__tmp104985 + (lambda (_%tab104852%_ + _%key104853%_ + _%prototype-table-update!104854%_ + _%default104855%_) + (if (let ((__tmp105144 (let () (declare (not safe)) - (&raw-table-free _%tab104693%_))) - (__tmp104983 - (let ((__tmp104984 + (&raw-table-free _%tab104852%_))) + (__tmp105142 + (let ((__tmp105143 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104693%_))))) + (&raw-table-table _%tab104852%_))))) (declare (not safe)) - (##fxquotient __tmp104984 '4)))) + (##fxquotient __tmp105143 '4)))) (declare (not safe)) - (##fx< __tmp104985 __tmp104983)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104693%_)) + (##fx< __tmp105144 __tmp105142)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab104852%_)) '#!void) (__prototype-table-update! - _%tab104693%_ - _%key104694%_ - _%prototype-table-update!104695%_ - _%default104696%_))) + _%tab104852%_ + _%key104853%_ + _%prototype-table-update!104854%_ + _%default104855%_))) (define __prototype-table-update! - (lambda (_%tab104643%_ - _%key104644%_ - _%prototype-table-update!104645%_ - _%default104646%_) - (let ((_%table104649%_ - (let () (declare (not safe)) (&raw-table-table _%tab104643%_))) - (_%seed104650%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104643%_)))) - (let* ((_%h104652%_ - (fxxor (__interface-hash-key _%key104644%_) _%seed104650%_)) - (_%size104655%_ (vector-length _%table104649%_)) - (_%entries104658%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size104655%_ '2))) - (_%start104661%_ - (let ((__tmp104986 + (##fxquotient _%size104814%_ '2))) + (_%start104820%_ + (let ((__tmp105145 (let () (declare (not safe)) - (##fxmodulo _%h104652%_ _%entries104658%_)))) + (##fxmodulo _%h104811%_ _%entries104817%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104986 '1)))) - (let _%loop104665%_ ((_%probe104668%_ _%start104661%_) - (_%i104670%_ '1) - (_%deleted104672%_ '#f)) - (let ((_%k104675%_ (vector-ref _%table104649%_ _%probe104668%_))) - (if (eq? _%k104675%_ (macro-unused-obj)) - (if _%deleted104672%_ + (##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%_ (begin (vector-set! - _%table104649%_ - _%deleted104672%_ - _%key104644%_) + _%table104808%_ + _%deleted104831%_ + _%key104803%_) (vector-set! - _%table104649%_ + _%table104808%_ (let () (declare (not safe)) - (##fx+ _%deleted104672%_ '1)) - (_%prototype-table-update!104645%_ - _%default104646%_)) + (##fx+ _%deleted104831%_ '1)) + (_%prototype-table-update!104804%_ + _%default104805%_)) ((lambda () - (let ((__tmp104987 - (let ((__tmp104988 + (let ((__tmp105146 + (let ((__tmp105147 (let () (declare (not safe)) (&raw-table-count - _%tab104643%_)))) + _%tab104802%_)))) (declare (not safe)) - (##fx+ __tmp104988 '1)))) + (##fx+ __tmp105147 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104643%_ - __tmp104987))))) + _%tab104802%_ + __tmp105146))))) (begin (vector-set! - _%table104649%_ - _%probe104668%_ - _%key104644%_) + _%table104808%_ + _%probe104827%_ + _%key104803%_) (vector-set! - _%table104649%_ + _%table104808%_ (let () (declare (not safe)) - (##fx+ _%probe104668%_ '1)) - (_%prototype-table-update!104645%_ - _%default104646%_)) + (##fx+ _%probe104827%_ '1)) + (_%prototype-table-update!104804%_ + _%default104805%_)) ((lambda () - (let ((__tmp104989 - (let ((__tmp104990 + (let ((__tmp105148 + (let ((__tmp105149 (let () (declare (not safe)) - (&raw-table-free _%tab104643%_)))) + (&raw-table-free _%tab104802%_)))) (declare (not safe)) - (##fx- __tmp104990 '1)))) + (##fx- __tmp105149 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104643%_ - __tmp104989)) - (let ((__tmp104991 - (let ((__tmp104992 + _%tab104802%_ + __tmp105148)) + (let ((__tmp105150 + (let ((__tmp105151 (let () (declare (not safe)) (&raw-table-count - _%tab104643%_)))) + _%tab104802%_)))) (declare (not safe)) - (##fx+ __tmp104992 '1)))) + (##fx+ __tmp105151 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104643%_ - __tmp104991)))))) - (if (eq? _%k104675%_ (macro-deleted-obj)) - (_%loop104665%_ - (let ((_%next-probe104682%_ - (fx+ _%start104661%_ - _%i104670%_ - (fx* _%i104670%_ _%i104670%_)))) + _%tab104802%_ + __tmp105150)))))) + (if (eq? _%k104834%_ (macro-deleted-obj)) + (_%loop104824%_ + (let ((_%next-probe104841%_ + (fx+ _%start104820%_ + _%i104829%_ + (fx* _%i104829%_ _%i104829%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104682%_ _%size104655%_)) - (let () (declare (not safe)) (##fx+ _%i104670%_ '1)) - (let ((_%$e104685%_ _%deleted104672%_)) - (if _%$e104685%_ _%$e104685%_ _%probe104668%_))) - (if (__interface-test-key _%key104644%_ _%k104675%_) + (##fxmodulo _%next-probe104841%_ _%size104814%_)) + (let () (declare (not safe)) (##fx+ _%i104829%_ '1)) + (let ((_%$e104844%_ _%deleted104831%_)) + (if _%$e104844%_ _%$e104844%_ _%probe104827%_))) + (if (__interface-test-key _%key104803%_ _%k104834%_) (let () (vector-set! - _%table104649%_ - _%probe104668%_ - _%key104644%_) + _%table104808%_ + _%probe104827%_ + _%key104803%_) (vector-set! - _%table104649%_ + _%table104808%_ (let () (declare (not safe)) - (##fx+ _%probe104668%_ '1)) - (_%prototype-table-update!104645%_ + (##fx+ _%probe104827%_ '1)) + (_%prototype-table-update!104804%_ (vector-ref - _%table104649%_ + _%table104808%_ (let () (declare (not safe)) - (##fx+ _%probe104668%_ '1)))))) - (_%loop104665%_ - (let ((_%next-probe104690%_ - (fx+ _%start104661%_ - _%i104670%_ - (fx* _%i104670%_ _%i104670%_)))) + (##fx+ _%probe104827%_ '1)))))) + (_%loop104824%_ + (let ((_%next-probe104849%_ + (fx+ _%start104820%_ + _%i104829%_ + (fx* _%i104829%_ _%i104829%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104690%_ - _%size104655%_)) + _%next-probe104849%_ + _%size104814%_)) (let () (declare (not safe)) - (##fx+ _%i104670%_ '1)) - _%deleted104672%_)))))))))) + (##fx+ _%i104829%_ '1)) + _%deleted104831%_)))))))))) (define prototype-table-delete! - (lambda (_%tab104598%_ _%key104600%_) - (let ((_%table104603%_ - (let () (declare (not safe)) (&raw-table-table _%tab104598%_))) - (_%seed104605%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104598%_)))) - (let* ((_%h104608%_ - (fxxor (__interface-hash-key _%key104600%_) _%seed104605%_)) - (_%size104611%_ (vector-length _%table104603%_)) - (_%entries104614%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size104611%_ '2))) - (_%start104617%_ - (let ((__tmp104993 + (##fxquotient _%size104770%_ '2))) + (_%start104776%_ + (let ((__tmp105152 (let () (declare (not safe)) - (##fxmodulo _%h104608%_ _%entries104614%_)))) + (##fxmodulo _%h104767%_ _%entries104773%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104993 '1)))) - (let _%loop104621%_ ((_%probe104624%_ _%start104617%_) - (_%i104626%_ '1)) - (let ((_%k104629%_ (vector-ref _%table104603%_ _%probe104624%_))) - (if (eq? _%k104629%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp105152 '1)))) + (let _%loop104780%_ ((_%probe104783%_ _%start104776%_) + (_%i104785%_ '1)) + (let ((_%k104788%_ (vector-ref _%table104762%_ _%probe104783%_))) + (if (eq? _%k104788%_ (macro-unused-obj)) '#!void - (if (eq? _%k104629%_ (macro-deleted-obj)) - (_%loop104621%_ - (let ((_%next-probe104634%_ - (fx+ _%start104617%_ - _%i104626%_ - (fx* _%i104626%_ _%i104626%_)))) + (if (eq? _%k104788%_ (macro-deleted-obj)) + (_%loop104780%_ + (let ((_%next-probe104793%_ + (fx+ _%start104776%_ + _%i104785%_ + (fx* _%i104785%_ _%i104785%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104634%_ _%size104611%_)) - (let () (declare (not safe)) (##fx+ _%i104626%_ '1))) - (if (__interface-test-key _%key104600%_ _%k104629%_) + (##fxmodulo _%next-probe104793%_ _%size104770%_)) + (let () (declare (not safe)) (##fx+ _%i104785%_ '1))) + (if (__interface-test-key _%key104759%_ _%k104788%_) (let () (vector-set! - _%table104603%_ - _%probe104624%_ + _%table104762%_ + _%probe104783%_ (macro-deleted-obj)) (vector-set! - _%table104603%_ + _%table104762%_ (let () (declare (not safe)) - (##fx+ _%probe104624%_ '1)) + (##fx+ _%probe104783%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp104994 - (let ((__tmp104995 + (let ((__tmp105153 + (let ((__tmp105154 (let () (declare (not safe)) (&raw-table-count - _%tab104598%_)))) + _%tab104757%_)))) (declare (not safe)) - (##fx- __tmp104995 '1)))) + (##fx- __tmp105154 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104598%_ - __tmp104994))))) - (_%loop104621%_ - (let ((_%next-probe104640%_ - (fx+ _%start104617%_ - _%i104626%_ - (fx* _%i104626%_ _%i104626%_)))) + _%tab104757%_ + __tmp105153))))) + (_%loop104780%_ + (let ((_%next-probe104799%_ + (fx+ _%start104776%_ + _%i104785%_ + (fx* _%i104785%_ _%i104785%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104640%_ - _%size104611%_)) + _%next-probe104799%_ + _%size104770%_)) (let () (declare (not safe)) - (##fx+ _%i104626%_ '1)))))))))))) + (##fx+ _%i104785%_ '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 (_%klass104590%_) - (let ((_%super104591104593%_ - (let () (declare (not safe)) (##type-super _%klass104590%_)))) - (if _%super104591104593%_ - (let ((_%super104596%_ _%super104591104593%_)) - (eq? (let () (declare (not safe)) (##type-id _%super104596%_)) + (lambda (_%klass104749%_) + (let ((_%super104750104752%_ + (let () (declare (not safe)) (##type-super _%klass104749%_)))) + (if _%super104750104752%_ + (let ((_%super104755%_ _%super104750104752%_)) + (eq? (let () (declare (not safe)) (##type-id _%super104755%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) (define create-prototype - (lambda (_%descriptor104475%_ _%klass104476%_ _%obj-klass104477%_) - (let ((_%method-table104479%_ + (lambda (_%descriptor104634%_ _%klass104635%_ _%obj-klass104636%_) + (let ((_%method-table104638%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104477%_)))) - (let _%loop104482%_ ((_%rest104485%_ + (specialize-class _%obj-klass104636%_)))) + (let _%loop104641%_ ((_%rest104644%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104475%_ + _%descriptor104634%_ '2 '#f '#f))) - (_%count104487%_ '0) - (_%methods104489%_ '())) - (let* ((_%rest104491104499%_ _%rest104485%_) - (_%else104493104561%_ + (_%count104646%_ '0) + (_%methods104648%_ '())) + (let* ((_%rest104650104658%_ _%rest104644%_) + (_%else104652104720%_ (lambda () - (let ((_%prototype104507%_ - (let ((__obj104956 - (let ((__tmp104996 + (let ((_%prototype104666%_ + (let ((__obj105115 + (let ((__tmp105155 (let () (declare (not safe)) - (##fx+ _%count104487%_ '2)))) + (##fx+ _%count104646%_ '2)))) (declare (not safe)) (##make-structure - _%klass104476%_ - __tmp104996)))) + _%klass104635%_ + __tmp105155)))) (let () (declare (not safe)) - (object-fill! __obj104956 '#f)) - __obj104956))) - (let _%loop104510%_ ((_%rest104512%_ _%methods104489%_) - (_%off104513%_ + (object-fill! __obj105115 '#f)) + __obj105115))) + (let _%loop104669%_ ((_%rest104671%_ _%methods104648%_) + (_%off104672%_ (let () (declare (not safe)) - (##fx+ _%count104487%_ '1)))) - (let* ((_%rest104515104523%_ _%rest104512%_) - (_%else104517104542%_ + (##fx+ _%count104646%_ '1)))) + (let* ((_%rest104674104682%_ _%rest104671%_) + (_%else104676104701%_ (lambda () - (let ((_%prototype-key104531%_ + (let ((_%prototype-key104690%_ (cons (let () (declare (not safe)) - (##type-id _%klass104476%_)) + (##type-id _%klass104635%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104477%_))))) + _%obj-klass104636%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104536%_ () - (if (let ((__tmp104997 + (let _%again104695%_ () + (if (let ((__tmp105156 (let () (declare (not safe)) (##vector-cas! @@ -748,17 +748,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp104997 '0)) + (##fx= __tmp105156 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104536%_))))) + (_%again104695%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104531%_ - _%prototype104507%_) + _%prototype-key104690%_ + _%prototype104666%_) (let () (declare (not safe)) (##vector-cas! @@ -766,149 +766,149 @@ '0 '0 '1)) - ((lambda (_%prototype104540%_) - _%prototype104540%_) - _%prototype104507%_)))) - (_%K104519104549%_ - (lambda (_%rest104545%_ _%method104546%_) + ((lambda (_%prototype104699%_) + _%prototype104699%_) + _%prototype104666%_)))) + (_%K104678104708%_ + (lambda (_%rest104704%_ _%method104705%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104507%_ - _%method104546%_ - _%off104513%_ - _%klass104476%_ + _%prototype104666%_ + _%method104705%_ + _%off104672%_ + _%klass104635%_ '#f)) - (_%loop104510%_ - _%rest104545%_ + (_%loop104669%_ + _%rest104704%_ (let () (declare (not safe)) - (##fx- _%off104513%_ '1)))))) - (if (pair? _%rest104515104523%_) - (let ((_%hd104520104552%_ + (##fx- _%off104672%_ '1)))))) + (if (pair? _%rest104674104682%_) + (let ((_%hd104679104711%_ (let () (declare (not safe)) - (##car _%rest104515104523%_))) - (_%tl104521104554%_ + (##car _%rest104674104682%_))) + (_%tl104680104713%_ (let () (declare (not safe)) - (##cdr _%rest104515104523%_)))) - (let* ((_%method104557%_ _%hd104520104552%_) - (_%rest104559%_ _%tl104521104554%_)) - (_%K104519104549%_ - _%rest104559%_ - _%method104557%_))) - (_%else104517104542%_))))))) - (_%K104495104578%_ - (lambda (_%rest104564%_ _%method-name104565%_) - (let ((_%$e104568%_ + (##cdr _%rest104674104682%_)))) + (let* ((_%method104716%_ _%hd104679104711%_) + (_%rest104718%_ _%tl104680104713%_)) + (_%K104678104708%_ + _%rest104718%_ + _%method104716%_))) + (_%else104676104701%_))))))) + (_%K104654104737%_ + (lambda (_%rest104723%_ _%method-name104724%_) + (let ((_%$e104727%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table104479%_ - _%method-name104565%_ + _%method-table104638%_ + _%method-name104724%_ '#f)))) - (if _%$e104568%_ - ((lambda (_%method104571%_) - (_%loop104482%_ - _%rest104564%_ + (if _%$e104727%_ + ((lambda (_%method104730%_) + (_%loop104641%_ + _%rest104723%_ (let () (declare (not safe)) - (##fx+ _%count104487%_ '1)) - (cons _%method104571%_ _%methods104489%_))) - _%$e104568%_) - ((lambda (_%klass104574%_ - _%obj-klass104575%_ - _%method-name104576%_) + (##fx+ _%count104646%_ '1)) + (cons _%method104730%_ _%methods104648%_))) + _%$e104727%_) + ((lambda (_%klass104733%_ + _%obj-klass104734%_ + _%method-name104735%_) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'interface: - _%klass104574%_ + _%klass104733%_ 'interface-id: (let () (declare (not safe)) - (##type-id _%klass104574%_)) + (##type-id _%klass104733%_)) 'class: - _%obj-klass104575%_ + _%obj-klass104734%_ 'class-id: (let () (declare (not safe)) - (##type-id _%obj-klass104575%_)) + (##type-id _%obj-klass104734%_)) 'method: - _%method-name104576%_) + _%method-name104735%_) '#!void) - _%klass104476%_ - _%obj-klass104477%_ - _%method-name104565%_)))))) - (if (pair? _%rest104491104499%_) - (let ((_%hd104496104581%_ + _%klass104635%_ + _%obj-klass104636%_ + _%method-name104724%_)))))) + (if (pair? _%rest104650104658%_) + (let ((_%hd104655104740%_ (let () (declare (not safe)) - (##car _%rest104491104499%_))) - (_%tl104497104583%_ + (##car _%rest104650104658%_))) + (_%tl104656104742%_ (let () (declare (not safe)) - (##cdr _%rest104491104499%_)))) - (let* ((_%method-name104586%_ _%hd104496104581%_) - (_%rest104588%_ _%tl104497104583%_)) - (_%K104495104578%_ - _%rest104588%_ - _%method-name104586%_))) - (_%else104493104561%_))))))) + (##cdr _%rest104650104658%_)))) + (let* ((_%method-name104745%_ _%hd104655104740%_) + (_%rest104747%_ _%tl104656104742%_)) + (_%K104654104737%_ + _%rest104747%_ + _%method-name104745%_))) + (_%else104652104720%_))))))) (define try-create-prototype - (lambda (_%descriptor104360%_ _%klass104361%_ _%obj-klass104362%_) - (let ((_%method-table104364%_ + (lambda (_%descriptor104519%_ _%klass104520%_ _%obj-klass104521%_) + (let ((_%method-table104523%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104362%_)))) - (let _%loop104367%_ ((_%rest104370%_ + (specialize-class _%obj-klass104521%_)))) + (let _%loop104526%_ ((_%rest104529%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104360%_ + _%descriptor104519%_ '2 '#f '#f))) - (_%count104372%_ '0) - (_%methods104374%_ '())) - (let* ((_%rest104376104384%_ _%rest104370%_) - (_%else104378104446%_ + (_%count104531%_ '0) + (_%methods104533%_ '())) + (let* ((_%rest104535104543%_ _%rest104529%_) + (_%else104537104605%_ (lambda () - (let ((_%prototype104392%_ - (let ((__obj104957 - (let ((__tmp104998 + (let ((_%prototype104551%_ + (let ((__obj105116 + (let ((__tmp105157 (let () (declare (not safe)) - (##fx+ _%count104372%_ '2)))) + (##fx+ _%count104531%_ '2)))) (declare (not safe)) (##make-structure - _%klass104361%_ - __tmp104998)))) + _%klass104520%_ + __tmp105157)))) (let () (declare (not safe)) - (object-fill! __obj104957 '#f)) - __obj104957))) - (let _%loop104395%_ ((_%rest104397%_ _%methods104374%_) - (_%off104398%_ + (object-fill! __obj105116 '#f)) + __obj105116))) + (let _%loop104554%_ ((_%rest104556%_ _%methods104533%_) + (_%off104557%_ (let () (declare (not safe)) - (##fx+ _%count104372%_ '1)))) - (let* ((_%rest104400104408%_ _%rest104397%_) - (_%else104402104427%_ + (##fx+ _%count104531%_ '1)))) + (let* ((_%rest104559104567%_ _%rest104556%_) + (_%else104561104586%_ (lambda () - (let ((_%prototype-key104416%_ + (let ((_%prototype-key104575%_ (cons (let () (declare (not safe)) - (##type-id _%klass104361%_)) + (##type-id _%klass104520%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104362%_))))) + _%obj-klass104521%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104421%_ () - (if (let ((__tmp104999 + (let _%again104580%_ () + (if (let ((__tmp105158 (let () (declare (not safe)) (##vector-cas! @@ -917,17 +917,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp104999 '0)) + (##fx= __tmp105158 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104421%_))))) + (_%again104580%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104416%_ - _%prototype104392%_) + _%prototype-key104575%_ + _%prototype104551%_) (let () (declare (not safe)) (##vector-cas! @@ -935,110 +935,110 @@ '0 '0 '1)) - ((lambda (_%prototype104425%_) - _%prototype104425%_) - _%prototype104392%_)))) - (_%K104404104434%_ - (lambda (_%rest104430%_ _%method104431%_) + ((lambda (_%prototype104584%_) + _%prototype104584%_) + _%prototype104551%_)))) + (_%K104563104593%_ + (lambda (_%rest104589%_ _%method104590%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104392%_ - _%method104431%_ - _%off104398%_ - _%klass104361%_ + _%prototype104551%_ + _%method104590%_ + _%off104557%_ + _%klass104520%_ '#f)) - (_%loop104395%_ - _%rest104430%_ + (_%loop104554%_ + _%rest104589%_ (let () (declare (not safe)) - (##fx- _%off104398%_ '1)))))) - (if (pair? _%rest104400104408%_) - (let ((_%hd104405104437%_ + (##fx- _%off104557%_ '1)))))) + (if (pair? _%rest104559104567%_) + (let ((_%hd104564104596%_ (let () (declare (not safe)) - (##car _%rest104400104408%_))) - (_%tl104406104439%_ + (##car _%rest104559104567%_))) + (_%tl104565104598%_ (let () (declare (not safe)) - (##cdr _%rest104400104408%_)))) - (let* ((_%method104442%_ _%hd104405104437%_) - (_%rest104444%_ _%tl104406104439%_)) - (_%K104404104434%_ - _%rest104444%_ - _%method104442%_))) - (_%else104402104427%_))))))) - (_%K104380104463%_ - (lambda (_%rest104449%_ _%method-name104450%_) - (let ((_%$e104453%_ + (##cdr _%rest104559104567%_)))) + (let* ((_%method104601%_ _%hd104564104596%_) + (_%rest104603%_ _%tl104565104598%_)) + (_%K104563104593%_ + _%rest104603%_ + _%method104601%_))) + (_%else104561104586%_))))))) + (_%K104539104622%_ + (lambda (_%rest104608%_ _%method-name104609%_) + (let ((_%$e104612%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table104364%_ - _%method-name104450%_ + _%method-table104523%_ + _%method-name104609%_ '#f)))) - (if _%$e104453%_ - ((lambda (_%method104456%_) - (_%loop104367%_ - _%rest104449%_ + (if _%$e104612%_ + ((lambda (_%method104615%_) + (_%loop104526%_ + _%rest104608%_ (let () (declare (not safe)) - (##fx+ _%count104372%_ '1)) - (cons _%method104456%_ _%methods104374%_))) - _%$e104453%_) - ((lambda (_%klass104459%_ - _%obj-klass104460%_ - _%method-name104461%_) + (##fx+ _%count104531%_ '1)) + (cons _%method104615%_ _%methods104533%_))) + _%$e104612%_) + ((lambda (_%klass104618%_ + _%obj-klass104619%_ + _%method-name104620%_) '#f) - _%klass104361%_ - _%obj-klass104362%_ - _%method-name104450%_)))))) - (if (pair? _%rest104376104384%_) - (let ((_%hd104381104466%_ + _%klass104520%_ + _%obj-klass104521%_ + _%method-name104609%_)))))) + (if (pair? _%rest104535104543%_) + (let ((_%hd104540104625%_ (let () (declare (not safe)) - (##car _%rest104376104384%_))) - (_%tl104382104468%_ + (##car _%rest104535104543%_))) + (_%tl104541104627%_ (let () (declare (not safe)) - (##cdr _%rest104376104384%_)))) - (let* ((_%method-name104471%_ _%hd104381104466%_) - (_%rest104473%_ _%tl104382104468%_)) - (_%K104380104463%_ - _%rest104473%_ - _%method-name104471%_))) - (_%else104378104446%_))))))) + (##cdr _%rest104535104543%_)))) + (let* ((_%method-name104630%_ _%hd104540104625%_) + (_%rest104632%_ _%tl104541104627%_)) + (_%K104539104622%_ + _%rest104632%_ + _%method-name104630%_))) + (_%else104537104605%_))))))) (define cast - (lambda (_%descriptor104318%_ _%obj104320%_) + (lambda (_%descriptor104477%_ _%obj104479%_) (declare (not interrupts-enabled)) - (let* ((_%klass104324%_ + (let* ((_%klass104483%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104318%_ '1 '#f '#f))) - (_%klass-id104327%_ - (let () (declare (not safe)) (##type-id _%klass104324%_))) - (_%obj-klass104330%_ - (let () (declare (not safe)) (class-of _%obj104320%_))) - (_%obj-klass-id104333%_ - (let () (declare (not safe)) (##type-id _%obj-klass104330%_)))) + (##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%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104327%_ _%obj-klass-id104333%_)) - _%obj104320%_ - (if (interface-subclass? _%obj-klass104330%_) - (cast _%descriptor104318%_ + (##eq? _%klass-id104486%_ _%obj-klass-id104492%_)) + _%obj104479%_ + (if (interface-subclass? _%obj-klass104489%_) + (cast _%descriptor104477%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%obj104320%_ + _%obj104479%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104342%_ () - (if (let ((__tmp105000 + (let _%again104501%_ () + (if (let ((__tmp105159 (let () (declare (not safe)) (##vector-cas! @@ -1047,29 +1047,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105000 '0)) + (##fx= __tmp105159 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104342%_))))) + (_%again104501%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104327%_)) + _%klass-id104486%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104333%_)) - (let ((_%prototype104353%_ - (let ((_%$e104346%_ + _%obj-klass-id104492%_)) + (let ((_%prototype104512%_ + (let ((_%$e104505%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104346%_ - ((lambda (_%prototype104349%_) + (if _%$e104505%_ + ((lambda (_%prototype104508%_) (let () (declare (not safe)) (##vector-cas! @@ -1077,8 +1077,8 @@ '0 '0 '1)) - _%prototype104349%_) - _%$e104346%_) + _%prototype104508%_) + _%$e104505%_) (let () (let () (declare (not safe)) @@ -1088,53 +1088,53 @@ '0 '1)) (create-prototype - _%descriptor104318%_ - _%klass104324%_ - _%obj-klass104330%_)))))) - ((lambda (_%prototype104355%_ _%obj104356%_) - (let ((_%instance104358%_ + _%descriptor104477%_ + _%klass104483%_ + _%obj-klass104489%_)))))) + ((lambda (_%prototype104514%_ _%obj104515%_) + (let ((_%instance104517%_ (let () (declare (not safe)) - (##structure-copy _%prototype104355%_)))) + (##structure-copy _%prototype104514%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104358%_ - _%obj104356%_ + _%instance104517%_ + _%obj104515%_ '1 '#f 'cast)) - _%instance104358%_)) - _%prototype104353%_ - _%obj104320%_)))))))) + _%instance104517%_)) + _%prototype104512%_ + _%obj104479%_)))))))) (define try-cast - (lambda (_%descriptor104276%_ _%obj104278%_) + (lambda (_%descriptor104435%_ _%obj104437%_) (declare (not interrupts-enabled)) - (let* ((_%klass104282%_ + (let* ((_%klass104441%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104276%_ '1 '#f '#f))) - (_%klass-id104285%_ - (let () (declare (not safe)) (##type-id _%klass104282%_))) - (_%obj-klass104288%_ - (let () (declare (not safe)) (class-of _%obj104278%_))) - (_%obj-klass-id104291%_ - (let () (declare (not safe)) (##type-id _%obj-klass104288%_)))) + (##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%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104285%_ _%obj-klass-id104291%_)) - _%obj104278%_ - (if (interface-subclass? _%obj-klass104288%_) + (##eq? _%klass-id104444%_ _%obj-klass-id104450%_)) + _%obj104437%_ + (if (interface-subclass? _%obj-klass104447%_) (try-cast - _%descriptor104276%_ + _%descriptor104435%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104278%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj104437%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104300%_ () - (if (let ((__tmp105001 + (let _%again104459%_ () + (if (let ((__tmp105160 (let () (declare (not safe)) (##vector-cas! @@ -1143,29 +1143,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105001 '0)) + (##fx= __tmp105160 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104300%_))))) + (_%again104459%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104285%_)) + _%klass-id104444%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104291%_)) - (let ((_%prototype104311%_ - (let ((_%$e104304%_ + _%obj-klass-id104450%_)) + (let ((_%prototype104470%_ + (let ((_%$e104463%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104304%_ - ((lambda (_%prototype104307%_) + (if _%$e104463%_ + ((lambda (_%prototype104466%_) (let () (declare (not safe)) (##vector-cas! @@ -1173,8 +1173,8 @@ '0 '0 '1)) - _%prototype104307%_) - _%$e104304%_) + _%prototype104466%_) + _%$e104463%_) (let () (let () (declare (not safe)) @@ -1184,55 +1184,55 @@ '0 '1)) (try-create-prototype - _%descriptor104276%_ - _%klass104282%_ - _%obj-klass104288%_)))))) - ((lambda (_%prototype104313%_ _%obj104314%_) - (if _%prototype104313%_ - (let ((_%instance104316%_ + _%descriptor104435%_ + _%klass104441%_ + _%obj-klass104447%_)))))) + ((lambda (_%prototype104472%_ _%obj104473%_) + (if _%prototype104472%_ + (let ((_%instance104475%_ (let () (declare (not safe)) - (##structure-copy _%prototype104313%_)))) + (##structure-copy _%prototype104472%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104316%_ - _%obj104314%_ + _%instance104475%_ + _%obj104473%_ '1 '#f 'cast)) - _%instance104316%_) + _%instance104475%_) '#f)) - _%prototype104311%_ - _%obj104278%_)))))))) + _%prototype104470%_ + _%obj104437%_)))))))) (define satisfies? - (lambda (_%descriptor104236%_ _%obj104238%_) + (lambda (_%descriptor104395%_ _%obj104397%_) (declare (not interrupts-enabled)) - (let* ((_%klass104242%_ + (let* ((_%klass104401%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104236%_ '1 '#f '#f))) - (_%klass-id104245%_ - (let () (declare (not safe)) (##type-id _%klass104242%_))) - (_%obj-klass104248%_ - (let () (declare (not safe)) (class-of _%obj104238%_))) - (_%obj-klass-id104251%_ - (let () (declare (not safe)) (##type-id _%obj-klass104248%_)))) + (##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%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104245%_ _%obj-klass-id104251%_)) - _%obj104238%_ - (if (interface-subclass? _%obj-klass104248%_) + (##eq? _%klass-id104404%_ _%obj-klass-id104410%_)) + _%obj104397%_ + (if (interface-subclass? _%obj-klass104407%_) (satisfies? - _%descriptor104236%_ + _%descriptor104395%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104238%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj104397%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104260%_ () - (if (let ((__tmp105002 + (let _%again104419%_ () + (if (let ((__tmp105161 (let () (declare (not safe)) (##vector-cas! @@ -1241,29 +1241,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105002 '0)) + (##fx= __tmp105161 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104260%_))))) + (_%again104419%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104245%_)) + _%klass-id104404%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104251%_)) - (let ((_%prototype104271%_ - (let ((_%$e104264%_ + _%obj-klass-id104410%_)) + (let ((_%prototype104430%_ + (let ((_%$e104423%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104264%_ - ((lambda (_%prototype104267%_) + (if _%$e104423%_ + ((lambda (_%prototype104426%_) (let () (declare (not safe)) (##vector-cas! @@ -1271,8 +1271,8 @@ '0 '0 '1)) - _%prototype104267%_) - _%$e104264%_) + _%prototype104426%_) + _%$e104423%_) (let () (let () (declare (not safe)) @@ -1282,10 +1282,10 @@ '0 '1)) (try-create-prototype - _%descriptor104236%_ - _%klass104242%_ - _%obj-klass104248%_)))))) - ((lambda (_%prototype104273%_ _%obj104274%_) - (if _%prototype104273%_ '#t '#f)) - _%prototype104271%_ - _%obj104238%_)))))))))) + _%descriptor104395%_ + _%klass104401%_ + _%obj-klass104407%_)))))) + ((lambda (_%prototype104432%_ _%obj104433%_) + (if _%prototype104432%_ '#t '#f)) + _%prototype104430%_ + _%obj104397%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index e7346ec7d..b3ab9fa09 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]#_g105004_| + (define |[1]#_g105163_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g105006_| + (define |[1]#_g105165_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g105008_| + (define |[1]#_g105167_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g105010_| + (define |[1]#_g105169_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g105012_| + (define |[1]#_g105171_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105013_| + (define |[1]#_g105172_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105014_| + (define |[1]#_g105173_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105015_| + (define |[1]#_g105174_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105017_| + (define |[1]#_g105176_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105018_| + (define |[1]#_g105177_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105019_| + (define |[1]#_g105178_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105020_| + (define |[1]#_g105179_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105022_| + (define |[1]#_g105181_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105023_| + (define |[1]#_g105182_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105024_| + (define |[1]#_g105183_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105025_| + (define |[1]#_g105184_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105027_| + (define |[1]#_g105186_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105028_| + (define |[1]#_g105187_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105029_| + (define |[1]#_g105188_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105030_| + (define |[1]#_g105189_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105032_| + (define |[1]#_g105191_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g105034_| + (define |[1]#_g105193_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g105036_| + (define |[1]#_g105195_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g105038_| + (define |[1]#_g105197_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105039_| + (define |[1]#_g105198_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105041_| + (define |[1]#_g105200_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105042_| + (define |[1]#_g105201_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105044_| + (define |[1]#_g105203_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105045_| + (define |[1]#_g105204_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105047_| + (define |[1]#_g105206_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105048_| + (define |[1]#_g105207_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj104953 + (let ((__obj105112 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104953 + __obj105112 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj105112 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj105112 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104953 + __obj105112 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp105003 (cons |[1]#_g105004_| '()))) + (let ((__tmp105162 (cons |[1]#_g105163_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105003 '3 '#f '#f)) + (##unchecked-structure-set! __obj105112 __tmp105162 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105112 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105112 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105112 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 ':init! '11 '#f '#f)) - (let ((__tmp105005 |[1]#_g105006_|)) + (##unchecked-structure-set! __obj105112 ':init! '11 '#f '#f)) + (let ((__tmp105164 |[1]#_g105165_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105005 '12 '#f '#f)) - (let ((__tmp105007 |[1]#_g105008_|)) + (##unchecked-structure-set! __obj105112 __tmp105164 '12 '#f '#f)) + (let ((__tmp105166 |[1]#_g105167_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105007 '13 '#f '#f)) - (let ((__tmp105009 |[1]#_g105010_|)) + (##unchecked-structure-set! __obj105112 __tmp105166 '13 '#f '#f)) + (let ((__tmp105168 |[1]#_g105169_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105009 '14 '#f '#f)) - (let ((__tmp105011 - (cons (cons 'message |[1]#_g105012_|) - (cons (cons 'irritants |[1]#_g105013_|) - (cons (cons 'where |[1]#_g105014_|) - (cons (cons 'continuation |[1]#_g105015_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105011 '15 '#f '#f)) - (let ((__tmp105016 - (cons (cons 'message |[1]#_g105017_|) - (cons (cons 'irritants |[1]#_g105018_|) - (cons (cons 'where |[1]#_g105019_|) - (cons (cons 'continuation |[1]#_g105020_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105016 '16 '#f '#f)) - (let ((__tmp105021 - (cons (cons 'message |[1]#_g105022_|) - (cons (cons 'irritants |[1]#_g105023_|) - (cons (cons 'where |[1]#_g105024_|) - (cons (cons 'continuation |[1]#_g105025_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105021 '17 '#f '#f)) - (let ((__tmp105026 - (cons (cons 'message |[1]#_g105027_|) - (cons (cons 'irritants |[1]#_g105028_|) - (cons (cons 'where |[1]#_g105029_|) - (cons (cons 'continuation |[1]#_g105030_|) + (##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_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105026 '18 '#f '#f)) + (##unchecked-structure-set! __obj105112 __tmp105185 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105112 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105112 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '20 '#f '#f)) - __obj104953)) + (##unchecked-structure-set! __obj105112 '() '20 '#f '#f)) + __obj105112)) (define |[:0:]#interface-descriptor| - (let ((__obj104955 + (let ((__obj105114 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104955 + __obj105114 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104955 + __obj105114 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj105114 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj105114 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj105114 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj105114 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj105114 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105114 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#f '11 '#f '#f)) - (let ((__tmp105031 |[1]#_g105032_|)) + (##unchecked-structure-set! __obj105114 '#f '11 '#f '#f)) + (let ((__tmp105190 |[1]#_g105191_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105031 '12 '#f '#f)) - (let ((__tmp105033 |[1]#_g105034_|)) + (##unchecked-structure-set! __obj105114 __tmp105190 '12 '#f '#f)) + (let ((__tmp105192 |[1]#_g105193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105033 '13 '#f '#f)) - (let ((__tmp105035 |[1]#_g105036_|)) + (##unchecked-structure-set! __obj105114 __tmp105192 '13 '#f '#f)) + (let ((__tmp105194 |[1]#_g105195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105035 '14 '#f '#f)) - (let ((__tmp105037 - (cons (cons 'type |[1]#_g105038_|) - (cons (cons 'methods |[1]#_g105039_|) '())))) + (##unchecked-structure-set! __obj105114 __tmp105194 '14 '#f '#f)) + (let ((__tmp105196 + (cons (cons 'type |[1]#_g105197_|) + (cons (cons 'methods |[1]#_g105198_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105037 '15 '#f '#f)) - (let ((__tmp105040 - (cons (cons 'type |[1]#_g105041_|) - (cons (cons 'methods |[1]#_g105042_|) '())))) + (##unchecked-structure-set! __obj105114 __tmp105196 '15 '#f '#f)) + (let ((__tmp105199 + (cons (cons 'type |[1]#_g105200_|) + (cons (cons 'methods |[1]#_g105201_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105040 '16 '#f '#f)) - (let ((__tmp105043 - (cons (cons 'type |[1]#_g105044_|) - (cons (cons 'methods |[1]#_g105045_|) '())))) + (##unchecked-structure-set! __obj105114 __tmp105199 '16 '#f '#f)) + (let ((__tmp105202 + (cons (cons 'type |[1]#_g105203_|) + (cons (cons 'methods |[1]#_g105204_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105043 '17 '#f '#f)) - (let ((__tmp105046 - (cons (cons 'type |[1]#_g105047_|) - (cons (cons 'methods |[1]#_g105048_|) '())))) + (##unchecked-structure-set! __obj105114 __tmp105202 '17 '#f '#f)) + (let ((__tmp105205 + (cons (cons 'type |[1]#_g105206_|) + (cons (cons 'methods |[1]#_g105207_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105046 '18 '#f '#f)) + (##unchecked-structure-set! __obj105114 __tmp105205 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105114 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105114 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '20 '#f '#f)) - __obj104955)) + (##unchecked-structure-set! __obj105114 '() '20 '#f '#f)) + __obj105114)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx104001%_) - (let* ((_%g104005104035%_ - (lambda (_%g104006104031%_) + (lambda (_%$stx104160%_) + (let* ((_%g104164104194%_ + (lambda (_%g104165104190%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104006104031%_))) - (_%g104004104133%_ - (lambda (_%g104006104039%_) - (if (gx#stx-pair? _%g104006104039%_) - (let ((_%e104012104042%_ - (gx#syntax-e _%g104006104039%_))) - (let ((_%hd104013104046%_ + _%g104165104190%_))) + (_%g104163104292%_ + (lambda (_%g104165104198%_) + (if (gx#stx-pair? _%g104165104198%_) + (let ((_%e104171104201%_ + (gx#syntax-e _%g104165104198%_))) + (let ((_%hd104172104205%_ (let () (declare (not safe)) - (##car _%e104012104042%_))) - (_%tl104014104049%_ + (##car _%e104171104201%_))) + (_%tl104173104208%_ (let () (declare (not safe)) - (##cdr _%e104012104042%_)))) - (if (gx#stx-pair? _%tl104014104049%_) - (let ((_%e104015104052%_ - (gx#syntax-e _%tl104014104049%_))) - (let ((_%hd104016104056%_ + (##cdr _%e104171104201%_)))) + (if (gx#stx-pair? _%tl104173104208%_) + (let ((_%e104174104211%_ + (gx#syntax-e _%tl104173104208%_))) + (let ((_%hd104175104215%_ (let () (declare (not safe)) - (##car _%e104015104052%_))) - (_%tl104017104059%_ + (##car _%e104174104211%_))) + (_%tl104176104218%_ (let () (declare (not safe)) - (##cdr _%e104015104052%_)))) - (if (gx#stx-pair? _%tl104017104059%_) - (let ((_%e104018104062%_ - (gx#syntax-e _%tl104017104059%_))) - (let ((_%hd104019104066%_ + (##cdr _%e104174104211%_)))) + (if (gx#stx-pair? _%tl104176104218%_) + (let ((_%e104177104221%_ + (gx#syntax-e _%tl104176104218%_))) + (let ((_%hd104178104225%_ (let () (declare (not safe)) - (##car _%e104018104062%_))) - (_%tl104020104069%_ + (##car _%e104177104221%_))) + (_%tl104179104228%_ (let () (declare (not safe)) - (##cdr _%e104018104062%_)))) - (if (gx#stx-pair? _%tl104020104069%_) - (let ((_%e104021104072%_ + (##cdr _%e104177104221%_)))) + (if (gx#stx-pair? _%tl104179104228%_) + (let ((_%e104180104231%_ (gx#syntax-e - _%tl104020104069%_))) - (let ((_%hd104022104076%_ + _%tl104179104228%_))) + (let ((_%hd104181104235%_ (let () (declare (not safe)) - (##car _%e104021104072%_))) - (_%tl104023104079%_ + (##car _%e104180104231%_))) + (_%tl104182104238%_ (let () (declare (not safe)) - (##cdr _%e104021104072%_)))) + (##cdr _%e104180104231%_)))) (if (gx#stx-pair? - _%tl104023104079%_) - (let ((_%e104024104082%_ + _%tl104182104238%_) + (let ((_%e104183104241%_ (gx#syntax-e - _%tl104023104079%_))) - (let ((_%hd104025104086%_ + _%tl104182104238%_))) + (let ((_%hd104184104245%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e104024104082%_))) - (_%tl104026104089%_ + (##car _%e104183104241%_))) + (_%tl104185104248%_ (let () (declare (not safe)) - (##cdr _%e104024104082%_)))) - (if (gx#stx-pair? _%tl104026104089%_) - (let ((_%e104027104092%_ - (gx#syntax-e _%tl104026104089%_))) - (let ((_%hd104028104096%_ + (##cdr _%e104183104241%_)))) + (if (gx#stx-pair? _%tl104185104248%_) + (let ((_%e104186104251%_ + (gx#syntax-e _%tl104185104248%_))) + (let ((_%hd104187104255%_ (let () (declare (not safe)) - (##car _%e104027104092%_))) - (_%tl104029104099%_ + (##car _%e104186104251%_))) + (_%tl104188104258%_ (let () (declare (not safe)) - (##cdr _%e104027104092%_)))) - (if (gx#stx-null? _%tl104029104099%_) - ((lambda (_%L104102%_ - _%L104104%_ - _%L104105%_ - _%L104106%_ - _%L104107%_) + (##cdr _%e104186104251%_)))) + (if (gx#stx-null? _%tl104188104258%_) + ((lambda (_%L104261%_ + _%L104263%_ + _%L104264%_ + _%L104265%_ + _%L104266%_) (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 _%L104105%_ + (cons _%L104264%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L104107%_ '())) + (cons _%L104266%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -613,10 +613,10 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L104102%_ - (cons _%L104106%_ + (cons (cons _%L104261%_ + (cons _%L104265%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L104105%_ + (cons _%L104264%_ (cons (gx#datum->syntax '#f 'method-name) '())))) '())) @@ -635,7 +635,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L104106%_ + (cons _%L104265%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L104106%_ + (cons _%L104265%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -710,9 +710,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id) - (cons _%L104106%_ '())) + (cons _%L104265%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L104105%_ '())) + (cons _%L104264%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +741,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104104%_ + (cons (cons _%L104263%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +757,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd104028104096%_ - _%hd104025104086%_ - _%hd104022104076%_ - _%hd104019104066%_ - _%hd104016104056%_) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) + _%hd104187104255%_ + _%hd104184104245%_ + _%hd104181104235%_ + _%hd104178104225%_ + _%hd104175104215%_) + (_%g104164104194%_ _%g104165104198%_)))) + (_%g104164104194%_ _%g104165104198%_)))) + (_%g104164104194%_ _%g104165104198%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104005104035%_ - _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_))))) - (_%g104004104133%_ _%$stx104001%_)))) + (_%g104164104194%_ + _%g104165104198%_)))) + (_%g104164104194%_ _%g104165104198%_)))) + (_%g104164104194%_ _%g104165104198%_)))) + (_%g104164104194%_ _%g104165104198%_))))) + (_%g104163104292%_ _%$stx104160%_)))) (define |[:0:]#defcast| - (lambda (_%$stx104137%_) - (let* ((_%g104141104163%_ - (lambda (_%g104142104159%_) + (lambda (_%$stx104296%_) + (let* ((_%g104300104322%_ + (lambda (_%g104301104318%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104142104159%_))) - (_%g104140104232%_ - (lambda (_%g104142104167%_) - (if (gx#stx-pair? _%g104142104167%_) - (let ((_%e104146104170%_ - (gx#syntax-e _%g104142104167%_))) - (let ((_%hd104147104174%_ + _%g104301104318%_))) + (_%g104299104391%_ + (lambda (_%g104301104326%_) + (if (gx#stx-pair? _%g104301104326%_) + (let ((_%e104305104329%_ + (gx#syntax-e _%g104301104326%_))) + (let ((_%hd104306104333%_ (let () (declare (not safe)) - (##car _%e104146104170%_))) - (_%tl104148104177%_ + (##car _%e104305104329%_))) + (_%tl104307104336%_ (let () (declare (not safe)) - (##cdr _%e104146104170%_)))) - (if (gx#stx-pair? _%tl104148104177%_) - (let ((_%e104149104180%_ - (gx#syntax-e _%tl104148104177%_))) - (let ((_%hd104150104184%_ + (##cdr _%e104305104329%_)))) + (if (gx#stx-pair? _%tl104307104336%_) + (let ((_%e104308104339%_ + (gx#syntax-e _%tl104307104336%_))) + (let ((_%hd104309104343%_ (let () (declare (not safe)) - (##car _%e104149104180%_))) - (_%tl104151104187%_ + (##car _%e104308104339%_))) + (_%tl104310104346%_ (let () (declare (not safe)) - (##cdr _%e104149104180%_)))) - (if (gx#stx-pair? _%tl104151104187%_) - (let ((_%e104152104190%_ - (gx#syntax-e _%tl104151104187%_))) - (let ((_%hd104153104194%_ + (##cdr _%e104308104339%_)))) + (if (gx#stx-pair? _%tl104310104346%_) + (let ((_%e104311104349%_ + (gx#syntax-e _%tl104310104346%_))) + (let ((_%hd104312104353%_ (let () (declare (not safe)) - (##car _%e104152104190%_))) - (_%tl104154104197%_ + (##car _%e104311104349%_))) + (_%tl104313104356%_ (let () (declare (not safe)) - (##cdr _%e104152104190%_)))) - (if (gx#stx-pair? _%tl104154104197%_) - (let ((_%e104155104200%_ + (##cdr _%e104311104349%_)))) + (if (gx#stx-pair? _%tl104313104356%_) + (let ((_%e104314104359%_ (gx#syntax-e - _%tl104154104197%_))) - (let ((_%hd104156104204%_ + _%tl104313104356%_))) + (let ((_%hd104315104363%_ (let () (declare (not safe)) - (##car _%e104155104200%_))) - (_%tl104157104207%_ + (##car _%e104314104359%_))) + (_%tl104316104366%_ (let () (declare (not safe)) - (##cdr _%e104155104200%_)))) + (##cdr _%e104314104359%_)))) (if (gx#stx-null? - _%tl104157104207%_) - ((lambda (_%L104210%_ - _%L104212%_ - _%L104213%_) + _%tl104316104366%_) + ((lambda (_%L104369%_ + _%L104371%_ + _%L104372%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L104213%_ + (cons (cons _%L104372%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +905,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L104213%_ + (cons (cons _%L104372%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +982,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104212%_ + (cons (cons _%L104371%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L104210%_ + (cons (cons _%L104369%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1011,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd104156104204%_ - _%hd104153104194%_ - _%hd104150104184%_) - (_%g104141104163%_ _%g104142104167%_)))) + _%hd104315104363%_ + _%hd104312104353%_ + _%hd104309104343%_) + (_%g104300104322%_ _%g104301104326%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104141104163%_ - _%g104142104167%_)))) - (_%g104141104163%_ _%g104142104167%_)))) - (_%g104141104163%_ _%g104142104167%_)))) - (_%g104141104163%_ _%g104142104167%_))))) - (_%g104140104232%_ _%$stx104137%_)))))) + (_%g104300104322%_ + _%g104301104326%_)))) + (_%g104300104322%_ _%g104301104326%_)))) + (_%g104300104322%_ _%g104301104326%_)))) + (_%g104300104322%_ _%g104301104326%_))))) + (_%g104299104391%_ _%$stx104296%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 38be34c77..5ec220a02 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 1713631266) + (define gerbil/runtime/loader::timestamp 1733687559) (begin (define __modules (let () @@ -20,24 +20,24 @@ (define __load-path '()) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths115169%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths115169%_)) + (lambda _%paths115328%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths115328%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115169%_))) - (let ((__tmp115175 - (lambda (_%p115171%_) - (set! __load-path (cons _%p115171%_ __load-path)))) - (__tmp115174 (reverse! _%paths115169%_))) + _%paths115328%_))) + (let ((__tmp115334 + (lambda (_%p115330%_) + (set! __load-path (cons _%p115330%_ __load-path)))) + (__tmp115333 (reverse! _%paths115328%_))) (declare (not safe)) - (##for-each __tmp115175 __tmp115174)))) + (##for-each __tmp115334 __tmp115333)))) (define set-load-path! - (lambda (_%paths115155%_) - (if (list? _%paths115155%_) - (let ((_%paths115159%_ _%paths115155%_)) - (__set-load-path! _%paths115159%_)) + (lambda (_%paths115314%_) + (if (list? _%paths115314%_) + (let ((_%paths115318%_ _%paths115314%_)) + (__set-load-path! _%paths115318%_)) (begin (raise-contract-violation-error '"contract violation" @@ -46,23 +46,23 @@ 'contract: 'list? 'value: - _%paths115155%_) + _%paths115314%_) '#!void)))) (define __set-load-path! - (lambda (_%paths115143%_) - (let ((_%paths115146%_ _%paths115143%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths115146%_)) + (lambda (_%paths115302%_) + (let ((_%paths115305%_ _%paths115302%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths115305%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115146%_))) - (set! __load-path _%paths115146%_)))) + _%paths115305%_))) + (set! __load-path _%paths115305%_)))) (define load-module - (lambda (_%modpath115129%_) - (if (string? _%modpath115129%_) - (let ((_%modpath115133%_ _%modpath115129%_)) - (__load-module _%modpath115133%_)) + (lambda (_%modpath115288%_) + (if (string? _%modpath115288%_) + (let ((_%modpath115292%_ _%modpath115288%_)) + (__load-module _%modpath115292%_)) (begin (raise-contract-violation-error '"contract violation" @@ -71,93 +71,93 @@ 'contract: 'string? 'value: - _%modpath115129%_) + _%modpath115288%_) '#!void)))) (define __load-module - (lambda (_%modpath115094%_) - (let ((_%modpath115097%_ _%modpath115094%_)) + (lambda (_%modpath115253%_) + (let ((_%modpath115256%_ _%modpath115253%_)) (mutex-lock! __load-mx) - (let ((_%$e115106%_ + (let ((_%$e115265%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115097%_)))) - (if _%$e115106%_ - ((lambda (_%state115109%_) - (if (or (eq? 'builtin _%state115109%_) - (string? _%state115109%_)) - (let () (mutex-unlock! __load-mx) _%state115109%_) - (if (eq? 'loading _%state115109%_) + (__hash-get __modules _%modpath115256%_)))) + (if _%$e115265%_ + ((lambda (_%state115268%_) + (if (or (eq? 'builtin _%state115268%_) + (string? _%state115268%_)) + (let () (mutex-unlock! __load-mx) _%state115268%_) + (if (eq? 'loading _%state115268%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath115097%_)) - (if (and (pair? _%state115109%_) + (__load-module _%modpath115256%_)) + (if (and (pair? _%state115268%_) (eq? (let () (declare (not safe)) - (##car _%state115109%_)) + (##car _%state115268%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp115176 (cadr _%state115109%_))) + (let ((__tmp115335 (cadr _%state115268%_))) (declare (not safe)) - (raise __tmp115176))) + (raise __tmp115335))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115109%_))))))) - _%$e115106%_) - (let ((_%$e115118%_ (__find-library-module _%modpath115097%_))) - (if _%$e115118%_ - ((lambda (_%path115121%_) + _%state115268%_))))))) + _%$e115265%_) + (let ((_%$e115277%_ (__find-library-module _%modpath115256%_))) + (if _%$e115277%_ + ((lambda (_%path115280%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath115097%_ 'loading)) + (__hash-put! __modules _%modpath115256%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp115178 - (lambda (_%exn115123%_) + (let ((__tmp115337 + (lambda (_%exn115282%_) (mutex-lock! __load-mx) - (let ((__tmp115179 + (let ((__tmp115338 (cons 'error - (cons _%exn115123%_ '())))) + (cons _%exn115282%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath115097%_ - __tmp115179)) + _%modpath115256%_ + __tmp115338)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn115123%_)))) - (__tmp115177 + (raise _%exn115282%_)))) + (__tmp115336 (lambda () - (let ((_%loaded-path115126%_ - (load _%path115121%_))) + (let ((_%loaded-path115285%_ + (load _%path115280%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath115097%_ - _%loaded-path115126%_)) + _%modpath115256%_ + _%loaded-path115285%_)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path115126%_)))) + _%loaded-path115285%_)))) (declare (not safe)) - (__with-catch __tmp115178 __tmp115177))) - _%$e115118%_) + (__with-catch __tmp115337 __tmp115336))) + _%$e115277%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath115097%_)))))))))) + _%modpath115256%_)))))))))) (define reload-module! - (lambda (_%modpath115080%_) - (if (string? _%modpath115080%_) - (let ((_%modpath115084%_ _%modpath115080%_)) - (__reload-module! _%modpath115084%_)) + (lambda (_%modpath115239%_) + (if (string? _%modpath115239%_) + (let ((_%modpath115243%_ _%modpath115239%_)) + (__reload-module! _%modpath115243%_)) (begin (raise-contract-violation-error '"contract violation" @@ -166,138 +166,138 @@ 'contract: 'string? 'value: - _%modpath115080%_) + _%modpath115239%_) '#!void)))) (define __reload-module! - (lambda (_%modpath115051%_) - (let ((_%modpath115054%_ _%modpath115051%_)) + (lambda (_%modpath115210%_) + (let ((_%modpath115213%_ _%modpath115210%_)) (mutex-lock! __load-mx) - (let ((_%$e115064%_ + (let ((_%$e115223%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115054%_)))) - (if _%$e115064%_ - ((lambda (_%state115067%_) - (if (eq? _%state115067%_ 'builtin) + (__hash-get __modules _%modpath115213%_)))) + (if _%$e115223%_ + ((lambda (_%state115226%_) + (if (eq? _%state115226%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath115054%_))) - (if (eq? 'loading _%state115067%_) + _%modpath115213%_))) + (if (eq? 'loading _%state115226%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state115067%_) - (let ((_%latest-path115072%_ + (if (string? _%state115226%_) + (let ((_%latest-path115231%_ (__find-library-module - _%modpath115054%_))) + _%modpath115213%_))) (if (or (equal? (path-extension - _%state115067%_) + _%state115226%_) '".scm") - (not (equal? _%state115067%_ - _%latest-path115072%_))) + (not (equal? _%state115226%_ + _%latest-path115231%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115054%_)) + _%modpath115213%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115054%_)) + (__load-module _%modpath115213%_)) '#!void)) - (if (and (pair? _%state115067%_) + (if (and (pair? _%state115226%_) (eq? (let () (declare (not safe)) - (##car _%state115067%_)) + (##car _%state115226%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115054%_)) + _%modpath115213%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115054%_)) + (__load-module _%modpath115213%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115067%_)))))))) - _%$e115064%_) + _%state115226%_)))))))) + _%$e115223%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath115054%_))))))) + (__load-module _%modpath115213%_))))))) (define __find-library-module - (lambda (_%modpath114985%_) - (letrec ((_%find-compiled-file114987%_ - (lambda (_%npath115040%_) - (let ((_%basepath115042%_ + (lambda (_%modpath115144%_) + (letrec ((_%find-compiled-file115146%_ + (lambda (_%npath115199%_) + (let ((_%basepath115201%_ (let () (declare (not safe)) - (##string-append _%npath115040%_ '".o")))) - (let _%lp115044%_ ((_%current115046%_ '#f) - (_%n115047%_ '1)) - (let ((_%next115049%_ - (let ((__tmp115180 - (number->string _%n115047%_))) + (##string-append _%npath115199%_ '".o")))) + (let _%lp115203%_ ((_%current115205%_ '#f) + (_%n115206%_ '1)) + (let ((_%next115208%_ + (let ((__tmp115339 + (number->string _%n115206%_))) (declare (not safe)) (##string-append - _%basepath115042%_ - __tmp115180)))) + _%basepath115201%_ + __tmp115339)))) (if (let () (declare (not safe)) - (##file-exists? _%next115049%_)) - (_%lp115044%_ - _%next115049%_ + (##file-exists? _%next115208%_)) + (_%lp115203%_ + _%next115208%_ (let () (declare (not safe)) - (##fx+ _%n115047%_ '1))) - _%current115046%_)))))) - (_%find-source-file114988%_ - (lambda (_%npath115036%_) - (let ((_%spath115038%_ + (##fx+ _%n115206%_ '1))) + _%current115205%_)))))) + (_%find-source-file115147%_ + (lambda (_%npath115195%_) + (let ((_%spath115197%_ (let () (declare (not safe)) - (##string-append _%npath115036%_ '".scm")))) + (##string-append _%npath115195%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath115038%_)) - _%spath115038%_ + (##file-exists? _%spath115197%_)) + _%spath115197%_ '#f))))) - (let _%lp114990%_ ((_%rest114992%_ (load-path))) - (let* ((_%rest114993115001%_ _%rest114992%_) - (_%else114995115009%_ (lambda () '#f)) - (_%K114997115024%_ - (lambda (_%rest115012%_ _%dir115013%_) - (let* ((_%npath115015%_ + (let _%lp115149%_ ((_%rest115151%_ (load-path))) + (let* ((_%rest115152115160%_ _%rest115151%_) + (_%else115154115168%_ (lambda () '#f)) + (_%K115156115183%_ + (lambda (_%rest115171%_ _%dir115172%_) + (let* ((_%npath115174%_ (path-expand - _%modpath114985%_ - (path-expand _%dir115013%_))) - (_%$e115017%_ - (_%find-compiled-file114987%_ _%npath115015%_))) - (if _%$e115017%_ - (path-normalize _%$e115017%_) - (let ((_%$e115020%_ - (_%find-source-file114988%_ - _%npath115015%_))) - (if _%$e115020%_ - (path-normalize _%$e115020%_) - (_%lp114990%_ _%rest115012%_)))))))) - (if (pair? _%rest114993115001%_) - (let ((_%hd114998115027%_ + _%modpath115144%_ + (path-expand _%dir115172%_))) + (_%$e115176%_ + (_%find-compiled-file115146%_ _%npath115174%_))) + (if _%$e115176%_ + (path-normalize _%$e115176%_) + (let ((_%$e115179%_ + (_%find-source-file115147%_ + _%npath115174%_))) + (if _%$e115179%_ + (path-normalize _%$e115179%_) + (_%lp115149%_ _%rest115171%_)))))))) + (if (pair? _%rest115152115160%_) + (let ((_%hd115157115186%_ (let () (declare (not safe)) - (##car _%rest114993115001%_))) - (_%tl114999115029%_ + (##car _%rest115152115160%_))) + (_%tl115158115188%_ (let () (declare (not safe)) - (##cdr _%rest114993115001%_)))) - (let* ((_%dir115032%_ _%hd114998115027%_) - (_%rest115034%_ _%tl114999115029%_)) - (_%K114997115024%_ _%rest115034%_ _%dir115032%_))) - (_%else114995115009%_))))))))) + (##cdr _%rest115152115160%_)))) + (let* ((_%dir115191%_ _%hd115157115186%_) + (_%rest115193%_ _%tl115158115188%_)) + (_%K115156115183%_ _%rest115193%_ _%dir115191%_))) + (_%else115154115168%_))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index 679045902..3b2c7de7f 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 1713631265) + (define gerbil/runtime/mop-system-classes::timestamp 1733687558) (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 ((__tmp101902 (cons immediate::t '()))) + (let ((__tmp102061 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp101902))) + (__make-system-class 'char __tmp102061))) (define boolean::t - (let ((__tmp101903 (cons immediate::t '()))) + (let ((__tmp102062 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp101903))) + (__make-system-class 'boolean __tmp102062))) (define atom::t - (let ((__tmp101904 (cons immediate::t '()))) + (let ((__tmp102063 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp101904))) + (__make-system-class 'atom __tmp102063))) (define void::t - (let ((__tmp101905 (cons atom::t '()))) + (let ((__tmp102064 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp101905))) + (__make-system-class 'void __tmp102064))) (define eof::t - (let ((__tmp101906 (cons atom::t '()))) + (let ((__tmp102065 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp101906))) + (__make-system-class 'eof __tmp102065))) (define true::t - (let ((__tmp101907 (cons boolean::t (cons atom::t '())))) + (let ((__tmp102066 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp101907))) + (__make-system-class 'true __tmp102066))) (define false::t - (let ((__tmp101908 (cons boolean::t (cons atom::t '())))) + (let ((__tmp102067 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp101908))) + (__make-system-class 'false __tmp102067))) (define special::t - (let ((__tmp101909 (cons atom::t '()))) + (let ((__tmp102068 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp101909))) + (__make-system-class 'special __tmp102068))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp101910 (cons number::t '()))) + (let ((__tmp102069 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp101910))) + (__make-system-class 'real __tmp102069))) (define integer::t - (let ((__tmp101911 (cons real::t '()))) + (let ((__tmp102070 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp101911))) + (__make-system-class 'integer __tmp102070))) (define fixnum::t - (let ((__tmp101912 (cons integer::t (cons immediate::t '())))) + (let ((__tmp102071 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp101912))) + (__make-system-class 'fixnum __tmp102071))) (define bignum::t - (let ((__tmp101913 (cons integer::t '()))) + (let ((__tmp102072 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp101913))) + (__make-system-class 'bignum __tmp102072))) (define ratnum::t - (let ((__tmp101914 (cons real::t '()))) + (let ((__tmp102073 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp101914))) + (__make-system-class 'ratnum __tmp102073))) (define flonum::t - (let ((__tmp101915 (cons real::t '()))) + (let ((__tmp102074 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp101915))) + (__make-system-class 'flonum __tmp102074))) (define cpxnum::t - (let ((__tmp101916 (cons number::t '()))) + (let ((__tmp102075 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp101916))) + (__make-system-class 'cpxnum __tmp102075))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp101917 (cons symbolic::t '()))) + (let ((__tmp102076 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp101917))) + (__make-system-class 'symbol __tmp102076))) (define keyword::t - (let ((__tmp101918 (cons symbolic::t '()))) + (let ((__tmp102077 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp101918))) + (__make-system-class 'keyword __tmp102077))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp101919 (cons list::t '()))) + (let ((__tmp102078 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp101919))) + (__make-system-class 'pair __tmp102078))) (define null::t - (let ((__tmp101920 (cons list::t (cons atom::t '())))) + (let ((__tmp102079 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp101920))) + (__make-system-class 'null __tmp102079))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp101921 (cons sequence::t '()))) + (let ((__tmp102080 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp101921))) + (__make-system-class 'vector __tmp102080))) (define string::t - (let ((__tmp101922 (cons sequence::t '()))) + (let ((__tmp102081 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp101922))) + (__make-system-class 'string __tmp102081))) (define hvector::t - (let ((__tmp101923 (cons sequence::t '()))) + (let ((__tmp102082 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp101923))) + (__make-system-class 'hvector __tmp102082))) (define u8vector::t - (let ((__tmp101924 (cons hvector::t '()))) + (let ((__tmp102083 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp101924))) + (__make-system-class 'u8vector __tmp102083))) (define s8vector::t - (let ((__tmp101925 (cons hvector::t '()))) + (let ((__tmp102084 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp101925))) + (__make-system-class 's8vector __tmp102084))) (define u16vector::t - (let ((__tmp101926 (cons hvector::t '()))) + (let ((__tmp102085 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp101926))) + (__make-system-class 'u16vector __tmp102085))) (define s16vector::t - (let ((__tmp101927 (cons hvector::t '()))) + (let ((__tmp102086 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp101927))) + (__make-system-class 's16vector __tmp102086))) (define u32vector::t - (let ((__tmp101928 (cons hvector::t '()))) + (let ((__tmp102087 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp101928))) + (__make-system-class 'u32vector __tmp102087))) (define s32vector::t - (let ((__tmp101929 (cons hvector::t '()))) + (let ((__tmp102088 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp101929))) + (__make-system-class 's32vector __tmp102088))) (define u64vector::t - (let ((__tmp101930 (cons hvector::t '()))) + (let ((__tmp102089 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp101930))) + (__make-system-class 'u64vector __tmp102089))) (define s64vector::t - (let ((__tmp101931 (cons hvector::t '()))) + (let ((__tmp102090 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp101931))) + (__make-system-class 's64vector __tmp102090))) (define f32vector::t - (let ((__tmp101932 (cons hvector::t '()))) + (let ((__tmp102091 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp101932))) + (__make-system-class 'f32vector __tmp102091))) (define f64vector::t - (let ((__tmp101933 (cons hvector::t '()))) + (let ((__tmp102092 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp101933))) + (__make-system-class 'f64vector __tmp102092))) (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 ((__tmp101934 (macro-type-time))) + (let ((__tmp102093 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp101934))) + (__shadow-class __tmp102093))) (define thread::t - (let ((__tmp101935 (macro-type-thread))) + (let ((__tmp102094 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp101935))) + (__shadow-class __tmp102094))) (define thread-group::t - (let ((__tmp101936 (macro-type-tgroup))) + (let ((__tmp102095 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp101936))) + (__shadow-class __tmp102095))) (define mutex::t - (let ((__tmp101937 (macro-type-mutex))) + (let ((__tmp102096 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp101937))) + (__shadow-class __tmp102096))) (define condvar::t - (let ((__tmp101938 (macro-type-condvar))) + (let ((__tmp102097 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp101938))) + (__shadow-class __tmp102097))) (define port::t - (let ((__tmp101939 (macro-type-port))) + (let ((__tmp102098 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp101939))) + (__shadow-class __tmp102098))) (define object-port::t - (let ((__tmp101940 (macro-type-object-port))) + (let ((__tmp102099 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp101940))) + (__shadow-class __tmp102099))) (define character-port::t - (let ((__tmp101941 (macro-type-character-port))) + (let ((__tmp102100 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp101941))) + (__shadow-class __tmp102100))) (define byte-port::t - (let ((__tmp101942 (macro-type-byte-port))) + (let ((__tmp102101 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp101942))) + (__shadow-class __tmp102101))) (define device-port::t - (let ((__tmp101943 (macro-type-device-port))) + (let ((__tmp102102 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp101943))) + (__shadow-class __tmp102102))) (define vector-port::t - (let ((__tmp101944 (macro-type-vector-port))) + (let ((__tmp102103 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp101944))) + (__shadow-class __tmp102103))) (define string-port::t - (let ((__tmp101945 (macro-type-string-port))) + (let ((__tmp102104 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp101945))) + (__shadow-class __tmp102104))) (define u8vector-port::t - (let ((__tmp101946 (macro-type-u8vector-port))) + (let ((__tmp102105 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp101946))) + (__shadow-class __tmp102105))) (define raw-device-port::t - (let ((__tmp101947 (macro-type-raw-device-port))) + (let ((__tmp102106 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp101947))) + (__shadow-class __tmp102106))) (define tcp-server-port::t - (let ((__tmp101948 (macro-type-tcp-server-port))) + (let ((__tmp102107 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp101948))) + (__shadow-class __tmp102107))) (define udp-port::t - (let ((__tmp101949 (macro-type-udp-port))) + (let ((__tmp102108 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp101949))) + (__shadow-class __tmp102108))) (define directory-port::t - (let ((__tmp101950 (macro-type-directory-port))) + (let ((__tmp102109 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp101950))) + (__shadow-class __tmp102109))) (define event-queue-port::t - (let ((__tmp101951 (macro-type-event-queue-port))) + (let ((__tmp102110 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp101951))) + (__shadow-class __tmp102110))) (define table::t - (let ((__tmp101952 (macro-type-table))) + (let ((__tmp102111 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp101952))) + (__shadow-class __tmp102111))) (define readenv::t - (let ((__tmp101953 (macro-type-readenv))) + (let ((__tmp102112 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp101953))) + (__shadow-class __tmp102112))) (define writeenv::t - (let ((__tmp101954 (macro-type-writeenv))) + (let ((__tmp102113 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp101954))) + (__shadow-class __tmp102113))) (define readtable::t - (let ((__tmp101955 (macro-type-readtable))) + (let ((__tmp102114 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp101955))) + (__shadow-class __tmp102114))) (define processor::t - (let ((__tmp101956 (macro-type-processor))) + (let ((__tmp102115 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp101956))) + (__shadow-class __tmp102115))) (define vm::t - (let ((__tmp101957 (macro-type-vm))) + (let ((__tmp102116 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp101957))) + (__shadow-class __tmp102116))) (define file-info::t - (let ((__tmp101958 (macro-type-file-info))) + (let ((__tmp102117 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp101958))) + (__shadow-class __tmp102117))) (define socket-info::t - (let ((__tmp101959 (macro-type-socket-info))) + (let ((__tmp102118 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp101959))) + (__shadow-class __tmp102118))) (define address-info::t - (let ((__tmp101960 (macro-type-address-info))) + (let ((__tmp102119 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp101960))) + (__shadow-class __tmp102119))) (define atom? - (lambda (_%obj101901%_) - (if (let () (declare (not safe)) (immediate? _%obj101901%_)) - (if (char? _%obj101901%_) '#f (not (fixnum? _%obj101901%_))) + (lambda (_%obj102060%_) + (if (let () (declare (not safe)) (immediate? _%obj102060%_)) + (if (char? _%obj102060%_) '#f (not (fixnum? _%obj102060%_))) '#f))) (define special? - (lambda (_%obj101899%_) - (if (let ((__tmp101961 - (let () (declare (not safe)) (##type _%obj101899%_)))) + (lambda (_%obj102058%_) + (if (let ((__tmp102120 + (let () (declare (not safe)) (##type _%obj102058%_)))) (declare (not safe)) - (##fx= __tmp101961 '2)) - (if (char? _%obj101899%_) + (##fx= __tmp102120 '2)) + (if (char? _%obj102058%_) '#f - (if (null? _%obj101899%_) + (if (null? _%obj102058%_) '#f - (if (boolean? _%obj101899%_) + (if (boolean? _%obj102058%_) '#f - (if (eq? _%obj101899%_ '#!void) + (if (eq? _%obj102058%_ '#!void) '#f - (not (eof-object? _%obj101899%_)))))) + (not (eof-object? _%obj102058%_)))))) '#f))) (define sequence? - (lambda (_%obj101891%_) - (let ((_%$e101893%_ (vector? _%obj101891%_))) - (if _%$e101893%_ - _%$e101893%_ - (let ((_%$e101896%_ (string? _%obj101891%_))) - (if _%$e101896%_ _%$e101896%_ (hvector? _%obj101891%_))))))) + (lambda (_%obj102050%_) + (let ((_%$e102052%_ (vector? _%obj102050%_))) + (if _%$e102052%_ + _%$e102052%_ + (let ((_%$e102055%_ (string? _%obj102050%_))) + (if _%$e102055%_ _%$e102055%_ (hvector? _%obj102050%_))))))) (define hvector? - (lambda (_%obj101862%_) - (let ((_%$e101864%_ (u8vector? _%obj101862%_))) - (if _%$e101864%_ - _%$e101864%_ - (let ((_%$e101867%_ (s8vector? _%obj101862%_))) - (if _%$e101867%_ - _%$e101867%_ - (let ((_%$e101870%_ (u16vector? _%obj101862%_))) - (if _%$e101870%_ - _%$e101870%_ - (let ((_%$e101873%_ (s16vector? _%obj101862%_))) - (if _%$e101873%_ - _%$e101873%_ - (let ((_%$e101876%_ - (u32vector? _%obj101862%_))) - (if _%$e101876%_ - _%$e101876%_ - (let ((_%$e101879%_ - (s32vector? _%obj101862%_))) - (if _%$e101879%_ - _%$e101879%_ - (let ((_%$e101882%_ - (u64vector? _%obj101862%_))) - (if _%$e101882%_ - _%$e101882%_ - (let ((_%$e101885%_ + (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%_ (s64vector? - _%obj101862%_))) - (if _%$e101885%_ - _%$e101885%_ - (let ((_%$e101888%_ + _%obj102021%_))) + (if _%$e102044%_ + _%$e102044%_ + (let ((_%$e102047%_ (f32vector? - _%obj101862%_))) - (if _%$e101888%_ - _%$e101888%_ + _%obj102021%_))) + (if _%$e102047%_ + _%$e102047%_ (f64vector? - _%obj101862%_))))))))))))))))))))) + _%obj102021%_))))))))))))))))))))) (define weak? - (lambda (_%obj101860%_) - (if (let () (declare (not safe)) (##subtyped? _%obj101860%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj101860%_)) + (lambda (_%obj102019%_) + (if (let () (declare (not safe)) (##subtyped? _%obj102019%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj102019%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj101858%_) - (let ((__tmp101962 - (let ((__tmp101963 (macro-type-object-port))) + (lambda (_%obj102017%_) + (let ((__tmp102121 + (let ((__tmp102122 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp101963)))) + (##type-id __tmp102122)))) (declare (not safe)) - (##structure-instance-of? _%obj101858%_ __tmp101962)))) + (##structure-instance-of? _%obj102017%_ __tmp102121)))) (define character-port? - (lambda (_%obj101856%_) - (let ((__tmp101964 - (let ((__tmp101965 (macro-type-character-port))) + (lambda (_%obj102015%_) + (let ((__tmp102123 + (let ((__tmp102124 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp101965)))) + (##type-id __tmp102124)))) (declare (not safe)) - (##structure-instance-of? _%obj101856%_ __tmp101964)))) + (##structure-instance-of? _%obj102015%_ __tmp102123)))) (define device-port? - (lambda (_%obj101854%_) - (let ((__tmp101966 - (let ((__tmp101967 (macro-type-device-port))) + (lambda (_%obj102013%_) + (let ((__tmp102125 + (let ((__tmp102126 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp101967)))) + (##type-id __tmp102126)))) (declare (not safe)) - (##structure-instance-of? _%obj101854%_ __tmp101966)))) + (##structure-instance-of? _%obj102013%_ __tmp102125)))) (define vector-port? - (lambda (_%obj101852%_) - (let ((__tmp101968 - (let ((__tmp101969 (macro-type-vector-port))) + (lambda (_%obj102011%_) + (let ((__tmp102127 + (let ((__tmp102128 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp101969)))) + (##type-id __tmp102128)))) (declare (not safe)) - (##structure-instance-of? _%obj101852%_ __tmp101968)))) + (##structure-instance-of? _%obj102011%_ __tmp102127)))) (define string-port? - (lambda (_%obj101850%_) - (let ((__tmp101970 - (let ((__tmp101971 (macro-type-string-port))) + (lambda (_%obj102009%_) + (let ((__tmp102129 + (let ((__tmp102130 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp101971)))) + (##type-id __tmp102130)))) (declare (not safe)) - (##structure-instance-of? _%obj101850%_ __tmp101970)))) + (##structure-instance-of? _%obj102009%_ __tmp102129)))) (define u8vector-port? - (lambda (_%obj101848%_) - (let ((__tmp101972 - (let ((__tmp101973 (macro-type-u8vector-port))) + (lambda (_%obj102007%_) + (let ((__tmp102131 + (let ((__tmp102132 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp101973)))) + (##type-id __tmp102132)))) (declare (not safe)) - (##structure-instance-of? _%obj101848%_ __tmp101972)))) + (##structure-instance-of? _%obj102007%_ __tmp102131)))) (define raw-device-port? - (lambda (_%obj101846%_) - (let ((__tmp101974 - (let ((__tmp101975 (macro-type-raw-device-port))) + (lambda (_%obj102005%_) + (let ((__tmp102133 + (let ((__tmp102134 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp101975)))) + (##type-id __tmp102134)))) (declare (not safe)) - (##structure-instance-of? _%obj101846%_ __tmp101974)))) + (##structure-instance-of? _%obj102005%_ __tmp102133)))) (define tcp-server-port? - (lambda (_%obj101844%_) - (let ((__tmp101976 - (let ((__tmp101977 (macro-type-tcp-server-port))) + (lambda (_%obj102003%_) + (let ((__tmp102135 + (let ((__tmp102136 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp101977)))) + (##type-id __tmp102136)))) (declare (not safe)) - (##structure-instance-of? _%obj101844%_ __tmp101976)))) + (##structure-instance-of? _%obj102003%_ __tmp102135)))) (define udp-port? - (lambda (_%obj101842%_) - (let ((__tmp101978 - (let ((__tmp101979 (macro-type-udp-port))) + (lambda (_%obj102001%_) + (let ((__tmp102137 + (let ((__tmp102138 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp101979)))) + (##type-id __tmp102138)))) (declare (not safe)) - (##structure-instance-of? _%obj101842%_ __tmp101978)))) + (##structure-instance-of? _%obj102001%_ __tmp102137)))) (define directory-port? - (lambda (_%obj101840%_) - (let ((__tmp101980 - (let ((__tmp101981 (macro-type-directory-port))) + (lambda (_%obj101999%_) + (let ((__tmp102139 + (let ((__tmp102140 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp101981)))) + (##type-id __tmp102140)))) (declare (not safe)) - (##structure-instance-of? _%obj101840%_ __tmp101980)))) + (##structure-instance-of? _%obj101999%_ __tmp102139)))) (define event-queue-port? - (lambda (_%obj101838%_) - (let ((__tmp101982 - (let ((__tmp101983 (macro-type-event-queue-port))) + (lambda (_%obj101997%_) + (let ((__tmp102141 + (let ((__tmp102142 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp101983)))) + (##type-id __tmp102142)))) (declare (not safe)) - (##structure-instance-of? _%obj101838%_ __tmp101982)))) + (##structure-instance-of? _%obj101997%_ __tmp102141)))) (define readenv? - (lambda (_%obj101836%_) - (let ((__tmp101984 - (let ((__tmp101985 (macro-type-readenv))) + (lambda (_%obj101995%_) + (let ((__tmp102143 + (let ((__tmp102144 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp101985)))) + (##type-id __tmp102144)))) (declare (not safe)) - (##structure-instance-of? _%obj101836%_ __tmp101984)))) + (##structure-instance-of? _%obj101995%_ __tmp102143)))) (define writeenv? - (lambda (_%obj101834%_) - (let ((__tmp101986 - (let ((__tmp101987 (macro-type-writeenv))) + (lambda (_%obj101993%_) + (let ((__tmp102145 + (let ((__tmp102146 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp101987)))) + (##type-id __tmp102146)))) (declare (not safe)) - (##structure-instance-of? _%obj101834%_ __tmp101986)))) + (##structure-instance-of? _%obj101993%_ __tmp102145)))) (define vm? - (lambda (_%obj101832%_) - (let ((__tmp101988 - (let ((__tmp101989 (macro-type-vm))) + (lambda (_%obj101991%_) + (let ((__tmp102147 + (let ((__tmp102148 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp101989)))) + (##type-id __tmp102148)))) (declare (not safe)) - (##structure-instance-of? _%obj101832%_ __tmp101988)))))) + (##structure-instance-of? _%obj101991%_ __tmp102147)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index f28a38ade..fda3a328f 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]#_g101990_| + (define |[1]#_g102149_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx101617%_) - (let* ((_%g101620101658%_ - (lambda (_%g101621101654%_) + (lambda (_%stx101776%_) + (let* ((_%g101779101817%_ + (lambda (_%g101780101813%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101621101654%_))) - (_%g101619101827%_ - (lambda (_%g101621101662%_) - (if (gx#stx-pair? _%g101621101662%_) - (let ((_%e101626101665%_ (gx#syntax-e _%g101621101662%_))) - (let ((_%hd101627101669%_ + _%g101780101813%_))) + (_%g101778101986%_ + (lambda (_%g101780101821%_) + (if (gx#stx-pair? _%g101780101821%_) + (let ((_%e101785101824%_ (gx#syntax-e _%g101780101821%_))) + (let ((_%hd101786101828%_ (let () (declare (not safe)) - (##car _%e101626101665%_))) - (_%tl101628101672%_ + (##car _%e101785101824%_))) + (_%tl101787101831%_ (let () (declare (not safe)) - (##cdr _%e101626101665%_)))) - (if (gx#stx-pair? _%tl101628101672%_) - (let ((_%e101629101675%_ - (gx#syntax-e _%tl101628101672%_))) - (let ((_%hd101630101679%_ + (##cdr _%e101785101824%_)))) + (if (gx#stx-pair? _%tl101787101831%_) + (let ((_%e101788101834%_ + (gx#syntax-e _%tl101787101831%_))) + (let ((_%hd101789101838%_ (let () (declare (not safe)) - (##car _%e101629101675%_))) - (_%tl101631101682%_ + (##car _%e101788101834%_))) + (_%tl101790101841%_ (let () (declare (not safe)) - (##cdr _%e101629101675%_)))) - (if (gx#stx-pair? _%hd101630101679%_) - (let ((_%e101632101685%_ - (gx#syntax-e _%hd101630101679%_))) - (let ((_%hd101633101689%_ + (##cdr _%e101788101834%_)))) + (if (gx#stx-pair? _%hd101789101838%_) + (let ((_%e101791101844%_ + (gx#syntax-e _%hd101789101838%_))) + (let ((_%hd101792101848%_ (let () (declare (not safe)) - (##car _%e101632101685%_))) - (_%tl101634101692%_ + (##car _%e101791101844%_))) + (_%tl101793101851%_ (let () (declare (not safe)) - (##cdr _%e101632101685%_)))) - (if (gx#stx-pair? _%tl101634101692%_) - (let ((_%e101635101695%_ + (##cdr _%e101791101844%_)))) + (if (gx#stx-pair? _%tl101793101851%_) + (let ((_%e101794101854%_ (gx#syntax-e - _%tl101634101692%_))) - (let ((_%hd101636101699%_ + _%tl101793101851%_))) + (let ((_%hd101795101858%_ (let () (declare (not safe)) - (##car _%e101635101695%_))) - (_%tl101637101702%_ + (##car _%e101794101854%_))) + (_%tl101796101861%_ (let () (declare (not safe)) - (##cdr _%e101635101695%_)))) + (##cdr _%e101794101854%_)))) (if (gx#stx-null? - _%tl101637101702%_) + _%tl101796101861%_) (if (gx#stx-pair? - _%tl101631101682%_) - (let ((_%e101638101705%_ + _%tl101790101841%_) + (let ((_%e101797101864%_ (gx#syntax-e - _%tl101631101682%_))) - (let ((_%hd101639101709%_ + _%tl101790101841%_))) + (let ((_%hd101798101868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e101638101705%_))) - (_%tl101640101712%_ + (##car _%e101797101864%_))) + (_%tl101799101871%_ (let () (declare (not safe)) - (##cdr _%e101638101705%_)))) - (if (gx#identifier? _%hd101639101709%_) + (##cdr _%e101797101864%_)))) + (if (gx#identifier? _%hd101798101868%_) (if (gx#free-identifier=? - |[1]#_g101990_| - _%hd101639101709%_) - (if (gx#stx-pair? _%tl101640101712%_) - (let ((_%e101641101715%_ - (gx#syntax-e _%tl101640101712%_))) - (let ((_%hd101642101719%_ + |[1]#_g102149_| + _%hd101798101868%_) + (if (gx#stx-pair? _%tl101799101871%_) + (let ((_%e101800101874%_ + (gx#syntax-e _%tl101799101871%_))) + (let ((_%hd101801101878%_ (let () (declare (not safe)) - (##car _%e101641101715%_))) - (_%tl101643101722%_ + (##car _%e101800101874%_))) + (_%tl101802101881%_ (let () (declare (not safe)) - (##cdr _%e101641101715%_)))) - (if (gx#stx-pair/null? _%tl101643101722%_) - (let ((_g101991_ + (##cdr _%e101800101874%_)))) + (if (gx#stx-pair/null? _%tl101802101881%_) + (let ((_g102150_ (gx#syntax-split-splice - _%tl101643101722%_ + _%tl101802101881%_ '0))) (begin - (let ((_g101992_ + (let ((_g102151_ (let () (declare (not safe)) - (if (##values? _g101991_) + (if (##values? _g102150_) (##vector-length - _g101991_) + _g102150_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101992_ 2))) + (##fx= _g102151_ 2))) (error "Context expects 2 values" - _g101992_))) - (let ((_%target101644101725%_ + _g102151_))) + (let ((_%target101803101884%_ (let () (declare (not safe)) (##vector-ref - _g101991_ + _g102150_ 0))) - (_%tl101646101728%_ + (_%tl101805101887%_ (let () (declare (not safe)) (##vector-ref - _g101991_ + _g102150_ 1)))) (if (gx#stx-null? - _%tl101646101728%_) - (letrec ((_%loop101647101731%_ - (lambda (_%hd101645101735%_ + _%tl101805101887%_) + (letrec ((_%loop101806101890%_ + (lambda (_%hd101804101894%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body101651101738%_) - (if (gx#stx-pair? _%hd101645101735%_) - (let ((_%e101648101741%_ - (gx#syntax-e _%hd101645101735%_))) - (let ((_%lp-hd101649101745%_ + _%body101810101897%_) + (if (gx#stx-pair? _%hd101804101894%_) + (let ((_%e101807101900%_ + (gx#syntax-e _%hd101804101894%_))) + (let ((_%lp-hd101808101904%_ (let () (declare (not safe)) - (##car _%e101648101741%_))) - (_%lp-tl101650101748%_ + (##car _%e101807101900%_))) + (_%lp-tl101809101907%_ (let () (declare (not safe)) - (##cdr _%e101648101741%_)))) - (_%loop101647101731%_ - _%lp-tl101650101748%_ - (cons _%lp-hd101649101745%_ - _%body101651101738%_)))) - (let ((_%body101652101751%_ - (reverse _%body101651101738%_))) - ((lambda (_%L101755%_ - _%L101757%_ - _%L101758%_ - _%L101759%_) - (let* ((_%g101788101796%_ - (lambda (_%g101789101792%_) + (##cdr _%e101807101900%_)))) + (_%loop101806101890%_ + _%lp-tl101809101907%_ + (cons _%lp-hd101808101904%_ + _%body101810101897%_)))) + (let ((_%body101811101910%_ + (reverse _%body101810101897%_))) + ((lambda (_%L101914%_ + _%L101916%_ + _%L101917%_ + _%L101918%_) + (let* ((_%g101947101955%_ + (lambda (_%g101948101951%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101789101792%_))) - (_%g101787101823%_ - (lambda (_%g101789101800%_) - ((lambda (_%L101803%_) + _%g101948101951%_))) + (_%g101946101982%_ + (lambda (_%g101948101959%_) + ((lambda (_%L101962%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L101759%_ + (cons _%L101918%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L101803%_ '())) + (cons _%L101962%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L101758%_ '()) - (let ((__tmp101993 - (lambda (_%g101814101817%_ + (cons (cons _%L101917%_ '()) + (let ((__tmp102152 + (lambda (_%g101973101976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g101815101820%_) - (cons _%g101814101817%_ _%g101815101820%_)))) + _%g101974101979%_) + (cons _%g101973101976%_ _%g101974101979%_)))) (declare (not safe)) - (__foldr1 __tmp101993 '() _%L101755%_)))) + (__foldr1 __tmp102152 '() _%L101914%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g101789101800%_)))) - (_%g101787101823%_ + _%g101948101959%_)))) + (_%g101946101982%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx101617%_ - _%L101757%_))))) - _%body101652101751%_ - _%hd101642101719%_ - _%hd101636101699%_ - _%hd101633101689%_)))))) + _%stx101776%_ + _%L101916%_))))) + _%body101811101910%_ + _%hd101801101878%_ + _%hd101795101858%_ + _%hd101792101848%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop101647101731%_ - _%target101644101725%_ + (_%loop101806101890%_ + _%target101803101884%_ '())) - (_%g101620101658%_ - _%g101621101662%_))))) - (_%g101620101658%_ - _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)) - (_%g101620101658%_ _%g101621101662%_)) - (_%g101620101658%_ _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)) + (_%g101779101817%_ + _%g101780101821%_))))) + (_%g101779101817%_ + _%g101780101821%_)))) + (_%g101779101817%_ _%g101780101821%_)) + (_%g101779101817%_ _%g101780101821%_)) + (_%g101779101817%_ _%g101780101821%_)))) + (_%g101779101817%_ _%g101780101821%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101620101658%_ - _%g101621101662%_)))) - (_%g101620101658%_ - _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_))))) - (_%g101619101827%_ _%stx101617%_))))) + (_%g101779101817%_ + _%g101780101821%_)))) + (_%g101779101817%_ + _%g101780101821%_)))) + (_%g101779101817%_ _%g101780101821%_)))) + (_%g101779101817%_ _%g101780101821%_)))) + (_%g101779101817%_ _%g101780101821%_))))) + (_%g101778101986%_ _%stx101776%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 22209b462..59be472fd 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -3066,7 +3066,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) - (declare-type write-style (@lambda 1 macro-writeenv-style)) + (declare-type + write-style + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type write-object (@lambda 2 diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 76667a0ad..09410aa87 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 1713631264) + (define gerbil/runtime/mop::timestamp 1733687558) (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 ((_%flags99999%_ + (let ((_%flags100158%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties100000%_ '((direct-slots:) (system: . #t))) - (_%slot-table100001%_ + (_%properties100159%_ '((direct-slots:) (system: . #t))) + (_%slot-table100160%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +27,17 @@ '#f 't 't - _%flags99999%_ + _%flags100158%_ '#f '#() '() '#(#f) - _%slot-table100001%_ - _%properties100000%_ + _%slot-table100160%_ + _%properties100159%_ '#f '#f)))) (define class::t - (let* ((_%slots99975%_ + (let* ((_%slots100134%_ '(id name super flags @@ -48,122 +48,122 @@ properties constructor methods)) - (_%slot-vector99977%_ (list->vector (cons '#f _%slots99975%_))) - (_%slot-table99984%_ - (let ((_%slot-table99979%_ + (_%slot-vector100136%_ (list->vector (cons '#f _%slots100134%_))) + (_%slot-table100143%_ + (let ((_%slot-table100138%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101442 - (lambda (_%slot99981%_ _%field99982%_) + (let ((__tmp101601 + (lambda (_%slot100140%_ _%field100141%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table99979%_ - _%slot99981%_ - _%field99982%_)) - (let ((__tmp101443 + _%slot-table100138%_ + _%slot100140%_ + _%field100141%_)) + (let ((__tmp101602 (let () (declare (not safe)) - (symbol->keyword _%slot99981%_)))) + (symbol->keyword _%slot100140%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table99979%_ - __tmp101443 - _%field99982%_)))) - (__tmp101440 - (let ((__tmp101441 + _%slot-table100138%_ + __tmp101602 + _%field100141%_)))) + (__tmp101599 + (let ((__tmp101600 (let () (declare (not safe)) - (##length _%slots99975%_)))) + (##length _%slots100134%_)))) (declare (not safe)) - (##iota __tmp101441 '1)))) + (##iota __tmp101600 '1)))) (declare (not safe)) - (##for-each __tmp101442 _%slots99975%_ __tmp101440)) - _%slot-table99979%_)) - (_%flags99986%_ + (##for-each __tmp101601 _%slots100134%_ __tmp101599)) + _%slot-table100138%_)) + (_%flags100145%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields99992%_ + (_%fields100151%_ (list->vector - (let ((__tmp101444 - (map (lambda (_%g9998799989%_) - (list _%g9998799989%_ '5 '#f)) - (drop _%slots99975%_ '5)))) + (let ((__tmp101603 + (map (lambda (_%g100146100148%_) + (list _%g100146100148%_ '5 '#f)) + (drop _%slots100134%_ '5)))) (declare (not safe)) - (##apply append __tmp101444)))) - (_%properties99994%_ + (##apply append __tmp101603)))) + (_%properties100153%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots99975%_))) + (__foldr1 cons '() _%slots100134%_))) (cons (cons 'struct: '#t) '()))) - (_%t99996%_ - (let ((__tmp101445 (cons t::t '()))) + (_%t100155%_ + (let ((__tmp101604 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags99986%_ + _%flags100145%_ ##type-type - _%fields99992%_ - __tmp101445 - _%slot-vector99977%_ - _%slot-table99984%_ - _%properties99994%_ + _%fields100151%_ + __tmp101604 + _%slot-vector100136%_ + _%slot-table100143%_ + _%properties100153%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t99996%_ _%t99996%_)) - _%t99996%_)) + (##structure-type-set! _%t100155%_ _%t100155%_)) + _%t100155%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags99971%_ + (let ((_%flags100130%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties99972%_ '((direct-slots:) (system: . #t))) - (_%slot-table99973%_ + (_%properties100131%_ '((direct-slots:) (system: . #t))) + (_%slot-table100132%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101446 (cons t::t '()))) + (let ((__tmp101605 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags99971%_ + _%flags100130%_ '#f '#() - __tmp101446 + __tmp101605 '#(#f) - _%slot-table99973%_ - _%properties99972%_ + _%slot-table100132%_ + _%properties100131%_ '#f '#f)))) (define class-type? - (lambda (_%obj99969%_) + (lambda (_%obj100128%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj99969%_ 'class)))) + (##structure-instance-of? _%obj100128%_ 'class)))) (define class-type=? - (lambda (_%x99944%_ _%y99945%_) + (lambda (_%x100103%_ _%y100104%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x99944%_ 'class)) - (let ((_%x99949%_ _%x99944%_)) + (##structure-instance-of? _%x100103%_ 'class)) + (let ((_%x100108%_ _%x100103%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y99945%_ 'class)) - (let ((_%y99959%_ _%y99945%_)) - (__class-type=? _%x99949%_ _%y99959%_)) + (##structure-instance-of? _%y100104%_ 'class)) + (let ((_%y100118%_ _%y100104%_)) + (__class-type=? _%x100108%_ _%y100118%_)) (begin (raise-contract-violation-error '"contract violation" @@ -172,7 +172,7 @@ 'contract: 'class-type? 'value: - _%y99945%_) + _%y100104%_) '#!void))) (begin (raise-contract-violation-error @@ -182,22 +182,22 @@ 'contract: 'class-type? 'value: - _%x99944%_) + _%x100103%_) '#!void)))) (define __class-type=? - (lambda (_%x99923%_ _%y99924%_) - (let* ((_%x99927%_ _%x99923%_) (_%y99935%_ _%y99924%_)) + (lambda (_%x100082%_ _%y100083%_) + (let* ((_%x100086%_ _%x100082%_) (_%y100094%_ _%y100083%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x99927%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x100086%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y99935%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y100094%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type99909%_) - (if (let () (declare (not safe)) (##type? _%type99909%_)) - (let ((_%type99913%_ _%type99909%_)) - (__type-opaque? _%type99913%_)) + (lambda (_%type100068%_) + (if (let () (declare (not safe)) (##type? _%type100068%_)) + (let ((_%type100072%_ _%type100068%_)) + (__type-opaque? _%type100072%_)) (begin (raise-contract-violation-error '"contract violation" @@ -206,25 +206,25 @@ 'contract: '##type? 'value: - _%type99909%_) + _%type100068%_) '#!void)))) (define __type-opaque? - (lambda (_%type99897%_) - (let* ((_%type99900%_ _%type99897%_) - (__tmp101447 - (let ((__tmp101448 + (lambda (_%type100056%_) + (let* ((_%type100059%_ _%type100056%_) + (__tmp101606 + (let ((__tmp101607 (let () (declare (not safe)) - (##type-flags _%type99900%_)))) + (##type-flags _%type100059%_)))) (declare (not safe)) - (##fxand __tmp101448 type-flag-opaque)))) + (##fxand __tmp101607 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp101447 type-flag-opaque)))) + (##fx= __tmp101606 type-flag-opaque)))) (define type-extensible? - (lambda (_%type99883%_) - (if (let () (declare (not safe)) (##type? _%type99883%_)) - (let ((_%type99887%_ _%type99883%_)) - (__type-extensible? _%type99887%_)) + (lambda (_%type100042%_) + (if (let () (declare (not safe)) (##type? _%type100042%_)) + (let ((_%type100046%_ _%type100042%_)) + (__type-extensible? _%type100046%_)) (begin (raise-contract-violation-error '"contract violation" @@ -233,27 +233,27 @@ 'contract: '##type? 'value: - _%type99883%_) + _%type100042%_) '#!void)))) (define __type-extensible? - (lambda (_%type99871%_) - (let* ((_%type99874%_ _%type99871%_) - (__tmp101449 - (let ((__tmp101450 + (lambda (_%type100030%_) + (let* ((_%type100033%_ _%type100030%_) + (__tmp101608 + (let ((__tmp101609 (let () (declare (not safe)) - (##type-flags _%type99874%_)))) + (##type-flags _%type100033%_)))) (declare (not safe)) - (##fxand __tmp101450 type-flag-extensible)))) + (##fxand __tmp101609 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101449 type-flag-extensible)))) + (##fx= __tmp101608 type-flag-extensible)))) (define class-type-final? - (lambda (_%type99857%_) + (lambda (_%type100016%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type99857%_ 'class)) - (let ((_%type99861%_ _%type99857%_)) - (__class-type-final? _%type99861%_)) + (##structure-instance-of? _%type100016%_ 'class)) + (let ((_%type100020%_ _%type100016%_)) + (__class-type-final? _%type100020%_)) (begin (raise-contract-violation-error '"contract violation" @@ -262,27 +262,27 @@ 'contract: 'class-type? 'value: - _%type99857%_) + _%type100016%_) '#!void)))) (define __class-type-final? - (lambda (_%type99845%_) - (let* ((_%type99848%_ _%type99845%_) - (__tmp101451 - (let ((__tmp101452 + (lambda (_%type100004%_) + (let* ((_%type100007%_ _%type100004%_) + (__tmp101610 + (let ((__tmp101611 (let () (declare (not safe)) - (##type-flags _%type99848%_)))) + (##type-flags _%type100007%_)))) (declare (not safe)) - (##fxand __tmp101452 type-flag-extensible)))) + (##fxand __tmp101611 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101451 '0)))) + (##fx= __tmp101610 '0)))) (define class-type-struct? - (lambda (_%klass99831%_) + (lambda (_%klass99990%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99831%_ 'class)) - (let ((_%klass99835%_ _%klass99831%_)) - (__class-type-struct? _%klass99835%_)) + (##structure-instance-of? _%klass99990%_ 'class)) + (let ((_%klass99994%_ _%klass99990%_)) + (__class-type-struct? _%klass99994%_)) (begin (raise-contract-violation-error '"contract violation" @@ -291,27 +291,27 @@ 'contract: 'class-type? 'value: - _%klass99831%_) + _%klass99990%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass99819%_) - (let* ((_%klass99822%_ _%klass99819%_) - (__tmp101453 - (let ((__tmp101454 + (lambda (_%klass99978%_) + (let* ((_%klass99981%_ _%klass99978%_) + (__tmp101612 + (let ((__tmp101613 (let () (declare (not safe)) - (##type-flags _%klass99822%_)))) + (##type-flags _%klass99981%_)))) (declare (not safe)) - (##fxand __tmp101454 class-type-flag-struct)))) + (##fxand __tmp101613 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp101453 class-type-flag-struct)))) + (##fx= __tmp101612 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass99805%_) + (lambda (_%klass99964%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99805%_ 'class)) - (let ((_%klass99809%_ _%klass99805%_)) - (__class-type-sealed? _%klass99809%_)) + (##structure-instance-of? _%klass99964%_ 'class)) + (let ((_%klass99968%_ _%klass99964%_)) + (__class-type-sealed? _%klass99968%_)) (begin (raise-contract-violation-error '"contract violation" @@ -320,27 +320,27 @@ 'contract: 'class-type? 'value: - _%klass99805%_) + _%klass99964%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass99793%_) - (let* ((_%klass99796%_ _%klass99793%_) - (__tmp101455 - (let ((__tmp101456 + (lambda (_%klass99952%_) + (let* ((_%klass99955%_ _%klass99952%_) + (__tmp101614 + (let ((__tmp101615 (let () (declare (not safe)) - (##type-flags _%klass99796%_)))) + (##type-flags _%klass99955%_)))) (declare (not safe)) - (##fxand __tmp101456 class-type-flag-sealed)))) + (##fxand __tmp101615 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp101455 class-type-flag-sealed)))) + (##fx= __tmp101614 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass99779%_) + (lambda (_%klass99938%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99779%_ 'class)) - (let ((_%klass99783%_ _%klass99779%_)) - (__class-type-metaclass? _%klass99783%_)) + (##structure-instance-of? _%klass99938%_ 'class)) + (let ((_%klass99942%_ _%klass99938%_)) + (__class-type-metaclass? _%klass99942%_)) (begin (raise-contract-violation-error '"contract violation" @@ -349,27 +349,27 @@ 'contract: 'class-type? 'value: - _%klass99779%_) + _%klass99938%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass99767%_) - (let* ((_%klass99770%_ _%klass99767%_) - (__tmp101457 - (let ((__tmp101458 + (lambda (_%klass99926%_) + (let* ((_%klass99929%_ _%klass99926%_) + (__tmp101616 + (let ((__tmp101617 (let () (declare (not safe)) - (##type-flags _%klass99770%_)))) + (##type-flags _%klass99929%_)))) (declare (not safe)) - (##fxand __tmp101458 class-type-flag-metaclass)))) + (##fxand __tmp101617 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp101457 class-type-flag-metaclass)))) + (##fx= __tmp101616 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass99753%_) + (lambda (_%klass99912%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99753%_ 'class)) - (let ((_%klass99757%_ _%klass99753%_)) - (__class-type-system? _%klass99757%_)) + (##structure-instance-of? _%klass99912%_ 'class)) + (let ((_%klass99916%_ _%klass99912%_)) + (__class-type-system? _%klass99916%_)) (begin (raise-contract-violation-error '"contract violation" @@ -378,574 +378,577 @@ 'contract: 'class-type? 'value: - _%klass99753%_) + _%klass99912%_) '#!void)))) (define __class-type-system? - (lambda (_%klass99741%_) - (let* ((_%klass99744%_ _%klass99741%_) - (__tmp101459 - (let ((__tmp101460 + (lambda (_%klass99900%_) + (let* ((_%klass99903%_ _%klass99900%_) + (__tmp101618 + (let ((__tmp101619 (let () (declare (not safe)) - (##type-flags _%klass99744%_)))) + (##type-flags _%klass99903%_)))) (declare (not safe)) - (##fxand __tmp101460 class-type-flag-system)))) + (##fxand __tmp101619 class-type-flag-system)))) (declare (not safe)) - (##fx= __tmp101459 class-type-flag-system)))) + (##fx= __tmp101618 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id99626%_ - _%type-name99627%_ - _%type-super99628%_ - _%precedence-list99629%_ - _%slot-vector99630%_ - _%properties99631%_ - _%constructor99632%_ - _%slot-table99633%_ - _%methods99634%_) - (letrec ((_%make-props!99637%_ - (lambda (_%key99710%_) - (letrec* ((_%ht99712%_ + (lambda (_%type-id99782%_ + _%type-name99783%_ + _%type-super99784%_ + _%precedence-list99785%_ + _%slot-vector99786%_ + _%properties99787%_ + _%constructor99788%_ + _%slot-table99789%_ + _%methods99790%_) + (letrec ((_%make-props!99793%_ + (lambda (_%key99869%_) + (letrec* ((_%ht99871%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%put-slots!99713%_ - (lambda (_%ht99734%_ _%slots99735%_) + (_%put-slots!99872%_ + (lambda (_%ht99893%_ _%slots99894%_) (for-each - (lambda (_%g9973699738%_) + (lambda (_%g9989599897%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht99734%_ - _%g9973699738%_ + _%ht99893%_ + _%g9989599897%_ '#t))) - _%slots99735%_))) - (_%put-alist!99714%_ - (lambda (_%ht99723%_ - _%key99724%_ - _%alist99725%_) - (let ((_%$e99727%_ + _%slots99894%_))) + (_%put-alist!99873%_ + (lambda (_%ht99882%_ + _%key99883%_ + _%alist99884%_) + (let ((_%$e99886%_ (let () (declare (not safe)) (agetq__0 - _%key99724%_ - _%alist99725%_)))) - (if _%$e99727%_ - ((lambda (_%g9972999731%_) - (_%put-slots!99713%_ - _%ht99723%_ - _%g9972999731%_)) - _%$e99727%_) + _%key99883%_ + _%alist99884%_)))) + (if _%$e99886%_ + ((lambda (_%g9988899890%_) + (_%put-slots!99872%_ + _%ht99882%_ + _%g9988899890%_)) + _%$e99886%_) '#!void))))) - (_%put-alist!99714%_ - _%ht99712%_ - _%key99710%_ - _%properties99631%_) + (_%put-alist!99873%_ + _%ht99871%_ + _%key99869%_ + _%properties99787%_) (for-each - (lambda (_%mixin99716%_) - (let ((_%alist99718%_ + (lambda (_%mixin99875%_) + (let ((_%alist99877%_ (##structure-ref - _%mixin99716%_ + _%mixin99875%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist99718%_)) + (agetq__0 'transparent: _%alist99877%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key99710%_ - _%alist99718%_)))) - (_%put-slots!99713%_ - _%ht99712%_ - (class-type-slot-list _%mixin99716%_)) - (_%put-alist!99714%_ - _%ht99712%_ - _%key99710%_ - _%alist99718%_)))) - _%precedence-list99629%_) - _%ht99712%_)))) - (let* ((_%transparent?99639%_ + _%key99869%_ + _%alist99877%_)))) + (_%put-slots!99872%_ + _%ht99871%_ + (class-type-slot-list _%mixin99875%_)) + (_%put-alist!99873%_ + _%ht99871%_ + _%key99869%_ + _%alist99877%_)))) + _%precedence-list99785%_) + _%ht99871%_)))) + (let* ((_%transparent?99795%_ (let () (declare (not safe)) - (agetq__0 'transparent: _%properties99631%_))) - (_%all-slots-printable?99644%_ - (let ((_%$e99641%_ _%transparent?99639%_)) - (if _%$e99641%_ - _%$e99641%_ + (agetq__0 'transparent: _%properties99787%_))) + (_%all-slots-printable?99800%_ + (let ((_%$e99797%_ _%transparent?99795%_)) + (if _%$e99797%_ + _%$e99797%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties99631%_)))))) - (_%printable99646%_ - (if (not _%all-slots-printable?99644%_) - (_%make-props!99637%_ 'print:) + (agetq__0 'print: _%properties99787%_)))))) + (_%printable99802%_ + (if (not _%all-slots-printable?99800%_) + (_%make-props!99793%_ 'print:) '#f)) - (_%all-slots-equalable?99651%_ - (let ((_%$e99648%_ _%transparent?99639%_)) - (if _%$e99648%_ - _%$e99648%_ + (_%all-slots-equalable?99807%_ + (let ((_%$e99804%_ _%transparent?99795%_)) + (if _%$e99804%_ + _%$e99804%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties99631%_)))))) - (_%equalable99653%_ - (if (not _%all-slots-equalable?99651%_) - (_%make-props!99637%_ 'equal:) + (agetq__0 'equal: _%properties99787%_)))))) + (_%equalable99809%_ + (if (not _%all-slots-equalable?99807%_) + (_%make-props!99793%_ 'equal:) '#f)) - (_%first-new-field99655%_ + (_%first-new-field99811%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super99628%_ 'class)) - (let ((__tmp101461 + (##structure-instance-of? _%type-super99784%_ 'class)) + (let ((__tmp101620 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super99628%_ + _%type-super99784%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101461)) + (##vector-length __tmp101620)) '1)) - (_%field-info-length99657%_ - (let ((__tmp101462 - (let ((__tmp101463 + (_%field-info-length99813%_ + (let ((__tmp101621 + (let ((__tmp101622 (let () (declare (not safe)) - (##vector-length _%slot-vector99630%_)))) + (##vector-length _%slot-vector99786%_)))) (declare (not safe)) - (##fx- __tmp101463 _%first-new-field99655%_)))) + (##fx- __tmp101622 _%first-new-field99811%_)))) (declare (not safe)) - (##fx* '3 __tmp101462))) - (_%field-info99659%_ + (##fx* '3 __tmp101621))) + (_%field-info99815%_ (let () (declare (not safe)) - (##make-vector _%field-info-length99657%_ '#f))) - (_%struct?99661%_ + (##make-vector _%field-info-length99813%_ '#f))) + (_%struct?99817%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties99631%_))) - (_%final?99663%_ + (agetq__0 'struct: _%properties99787%_))) + (_%final?99819%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties99631%_))) - (_%metaclass99671%_ - (let ((_%metaclass9966499666%_ + (agetq__0 'final: _%properties99787%_))) + (_%metaclass99827%_ + (let ((_%metaclass9982099822%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties99631%_)))) - (if _%metaclass9966499666%_ - (let ((_%metaclass99669%_ _%metaclass9966499666%_)) + (agetq__0 'metaclass: _%properties99787%_)))) + (if _%metaclass9982099822%_ + (let ((_%metaclass99825%_ _%metaclass9982099822%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass99669%_ + _%metaclass99825%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id99626%_ + _%type-id99782%_ 'metaclass: - _%metaclass99669%_)) - _%metaclass99669%_) + _%metaclass99825%_)) + _%metaclass99825%_) '#f))) - (_%system?99673%_ + (_%system?99829%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties99631%_))) - (_%opaque?99678%_ - (let ((_%$e99675%_ (not _%all-slots-equalable?99651%_))) - (if _%$e99675%_ - _%$e99675%_ - (if _%type-super99628%_ - (__type-opaque? _%type-super99628%_) - '#f)))) - (_%type-flags99680%_ - (let ((__tmp101468 - (if _%final?99663%_ '0 type-flag-extensible)) - (__tmp101467 (if _%opaque?99678%_ type-flag-opaque '0)) - (__tmp101466 - (if _%struct?99661%_ class-type-flag-struct '0)) - (__tmp101465 - (if _%metaclass99671%_ class-type-flag-metaclass '0)) - (__tmp101464 - (if _%system?99673%_ class-type-flag-system '0))) + (agetq__0 'system: _%properties99787%_))) + (_%opaque?99837%_ + (if (or _%transparent?99795%_ + (let () + (declare (not safe)) + (agetq__0 'equal: _%properties99787%_))) + '#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))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp101468 - __tmp101467 - __tmp101466 - __tmp101465 - __tmp101464))) - (_%precedence-list99688%_ - (let ((_%$e99682%_ (memq t::t _%precedence-list99629%_))) - (if _%$e99682%_ - ((lambda (_%tail99685%_) - (if (null? (cdr _%tail99685%_)) - _%precedence-list99629%_ + __tmp101627 + __tmp101626 + __tmp101625 + __tmp101624 + __tmp101623))) + (_%precedence-list99847%_ + (let ((_%$e99841%_ (memq t::t _%precedence-list99785%_))) + (if _%$e99841%_ + ((lambda (_%tail99844%_) + (if (null? (cdr _%tail99844%_)) + _%precedence-list99785%_ (error '"BUG: t::t is not last in the precedence list" 'precedence-list: - _%precedence-list99629%_))) - _%$e99682%_) - (let ((__tmp101469 (cons t::t '()))) + _%precedence-list99785%_))) + _%$e99841%_) + (let ((__tmp101628 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list99629%_ __tmp101469)))))) - (let _%loop99691%_ ((_%i99693%_ _%first-new-field99655%_) - (_%j99694%_ '0)) + (##append _%precedence-list99785%_ __tmp101628)))))) + (let _%loop99850%_ ((_%i99852%_ _%first-new-field99811%_) + (_%j99853%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j99694%_ _%field-info-length99657%_)) - (let* ((_%slot99696%_ + (##fx< _%j99853%_ _%field-info-length99813%_)) + (let* ((_%slot99855%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector99630%_ _%i99693%_))) - (_%flags99704%_ - (if _%transparent?99639%_ + (##vector-ref _%slot-vector99786%_ _%i99852%_))) + (_%flags99863%_ + (if _%transparent?99795%_ '0 - (let ((__tmp101471 - (if (or _%all-slots-printable?99644%_ + (let ((__tmp101630 + (if (or _%all-slots-printable?99800%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable99646%_ - _%slot99696%_ + _%printable99802%_ + _%slot99855%_ '#f))) '0 '1)) - (__tmp101470 - (if (or _%all-slots-equalable?99651%_ + (__tmp101629 + (if (or _%all-slots-equalable?99807%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable99653%_ - _%slot99696%_ + _%equalable99809%_ + _%slot99855%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp101471 __tmp101470))))) - (vector-set! _%field-info99659%_ _%j99694%_ _%slot99696%_) + (##fxior __tmp101630 __tmp101629))))) + (vector-set! _%field-info99815%_ _%j99853%_ _%slot99855%_) (vector-set! - _%field-info99659%_ - (let () (declare (not safe)) (##fx+ _%j99694%_ '1)) - _%flags99704%_) - (_%loop99691%_ - (let () (declare (not safe)) (##fx+ _%i99693%_ '1)) - (let () (declare (not safe)) (##fx+ _%j99694%_ '3)))) + _%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)))) '#!void)) - (if _%metaclass99671%_ - (let ((_%val99707%_ + (if _%metaclass99827%_ + (let ((_%val99866%_ (make-instance - _%metaclass99671%_ - _%type-id99626%_ - _%type-name99627%_ - _%type-flags99680%_ - _%type-super99628%_ - _%field-info99659%_ - _%precedence-list99688%_ - _%slot-vector99630%_ - _%slot-table99633%_ - _%properties99631%_ - _%constructor99632%_ - _%methods99634%_))) + _%metaclass99827%_ + _%type-id99782%_ + _%type-name99783%_ + _%type-flags99839%_ + _%type-super99784%_ + _%field-info99815%_ + _%precedence-list99847%_ + _%slot-vector99786%_ + _%slot-table99789%_ + _%properties99787%_ + _%constructor99788%_ + _%methods99790%_))) (if (let () (declare (not safe)) - (##structure-instance-of? _%val99707%_ 'class)) - _%val99707%_ - (error '"bad cast" class::t _%val99707%_))) + (##structure-instance-of? _%val99866%_ 'class)) + _%val99866%_ + (error '"bad cast" class::t _%val99866%_))) (let () (declare (not safe)) (##structure class::t - _%type-id99626%_ - _%type-name99627%_ - _%type-flags99680%_ - _%type-super99628%_ - _%field-info99659%_ - _%precedence-list99688%_ - _%slot-vector99630%_ - _%slot-table99633%_ - _%properties99631%_ - _%constructor99632%_ - _%methods99634%_))))))) + _%type-id99782%_ + _%type-name99783%_ + _%type-flags99839%_ + _%type-super99784%_ + _%field-info99815%_ + _%precedence-list99847%_ + _%slot-vector99786%_ + _%slot-table99789%_ + _%properties99787%_ + _%constructor99788%_ + _%methods99790%_))))))) (define class-type-id - (lambda (_%klass99624%_) - (##structure-ref _%klass99624%_ '1 class::t 'id))) + (lambda (_%klass99780%_) + (##structure-ref _%klass99780%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass99622%_) + (lambda (_%klass99778%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99622%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass99778%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass99619%_ _%val99620%_) - (##structure-set! _%klass99619%_ _%val99620%_ '1 class::t 'id))) + (lambda (_%klass99775%_ _%val99776%_) + (##structure-set! _%klass99775%_ _%val99776%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass99614%_ _%val99616%_) + (lambda (_%klass99770%_ _%val99772%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99614%_ - _%val99616%_ + _%klass99770%_ + _%val99772%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass99612%_) - (##structure-ref _%klass99612%_ '2 class::t 'name))) + (lambda (_%klass99768%_) + (##structure-ref _%klass99768%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass99610%_) + (lambda (_%klass99766%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99610%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass99766%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass99607%_ _%val99608%_) - (##structure-set! _%klass99607%_ _%val99608%_ '2 class::t 'name))) + (lambda (_%klass99763%_ _%val99764%_) + (##structure-set! _%klass99763%_ _%val99764%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass99602%_ _%val99604%_) + (lambda (_%klass99758%_ _%val99760%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99602%_ - _%val99604%_ + _%klass99758%_ + _%val99760%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass99600%_) - (##structure-ref _%klass99600%_ '3 class::t 'flags))) + (lambda (_%klass99756%_) + (##structure-ref _%klass99756%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass99598%_) + (lambda (_%klass99754%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99598%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass99754%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass99595%_ _%val99596%_) - (##structure-set! _%klass99595%_ _%val99596%_ '3 class::t 'flags))) + (lambda (_%klass99751%_ _%val99752%_) + (##structure-set! _%klass99751%_ _%val99752%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass99590%_ _%val99592%_) + (lambda (_%klass99746%_ _%val99748%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99590%_ - _%val99592%_ + _%klass99746%_ + _%val99748%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass99588%_) - (##structure-ref _%klass99588%_ '4 class::t 'super))) + (lambda (_%klass99744%_) + (##structure-ref _%klass99744%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass99586%_) + (lambda (_%klass99742%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99586%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass99742%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass99583%_ _%val99584%_) - (##structure-set! _%klass99583%_ _%val99584%_ '4 class::t 'super))) + (lambda (_%klass99739%_ _%val99740%_) + (##structure-set! _%klass99739%_ _%val99740%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass99578%_ _%val99580%_) + (lambda (_%klass99734%_ _%val99736%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99578%_ - _%val99580%_ + _%klass99734%_ + _%val99736%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass99576%_) - (##structure-ref _%klass99576%_ '5 class::t 'fields))) + (lambda (_%klass99732%_) + (##structure-ref _%klass99732%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass99574%_) + (lambda (_%klass99730%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99574%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass99730%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass99571%_ _%val99572%_) - (##structure-set! _%klass99571%_ _%val99572%_ '5 class::t 'fields))) + (lambda (_%klass99727%_ _%val99728%_) + (##structure-set! _%klass99727%_ _%val99728%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass99566%_ _%val99568%_) + (lambda (_%klass99722%_ _%val99724%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99566%_ - _%val99568%_ + _%klass99722%_ + _%val99724%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass99564%_) - (##structure-ref _%klass99564%_ '6 class::t 'precedence-list))) + (lambda (_%klass99720%_) + (##structure-ref _%klass99720%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass99562%_) + (lambda (_%klass99718%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99562%_ + _%klass99718%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass99559%_ _%val99560%_) + (lambda (_%klass99715%_ _%val99716%_) (##structure-set! - _%klass99559%_ - _%val99560%_ + _%klass99715%_ + _%val99716%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass99554%_ _%val99556%_) + (lambda (_%klass99710%_ _%val99712%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99554%_ - _%val99556%_ + _%klass99710%_ + _%val99712%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass99552%_) - (##structure-ref _%klass99552%_ '7 class::t 'slot-vector))) + (lambda (_%klass99708%_) + (##structure-ref _%klass99708%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass99550%_) + (lambda (_%klass99706%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99550%_ + _%klass99706%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass99547%_ _%val99548%_) + (lambda (_%klass99703%_ _%val99704%_) (##structure-set! - _%klass99547%_ - _%val99548%_ + _%klass99703%_ + _%val99704%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass99542%_ _%val99544%_) + (lambda (_%klass99698%_ _%val99700%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99542%_ - _%val99544%_ + _%klass99698%_ + _%val99700%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass99540%_) - (##structure-ref _%klass99540%_ '8 class::t 'slot-table))) + (lambda (_%klass99696%_) + (##structure-ref _%klass99696%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass99538%_) + (lambda (_%klass99694%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99538%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _%klass99694%_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass99535%_ _%val99536%_) + (lambda (_%klass99691%_ _%val99692%_) (##structure-set! - _%klass99535%_ - _%val99536%_ + _%klass99691%_ + _%val99692%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass99530%_ _%val99532%_) + (lambda (_%klass99686%_ _%val99688%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99530%_ - _%val99532%_ + _%klass99686%_ + _%val99688%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass99528%_) - (##structure-ref _%klass99528%_ '9 class::t 'properties))) + (lambda (_%klass99684%_) + (##structure-ref _%klass99684%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass99526%_) + (lambda (_%klass99682%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99526%_ '9 class::t 'properties)))) + (##unchecked-structure-ref _%klass99682%_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_%klass99523%_ _%val99524%_) + (lambda (_%klass99679%_ _%val99680%_) (##structure-set! - _%klass99523%_ - _%val99524%_ + _%klass99679%_ + _%val99680%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass99518%_ _%val99520%_) + (lambda (_%klass99674%_ _%val99676%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99518%_ - _%val99520%_ + _%klass99674%_ + _%val99676%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass99516%_) - (##structure-ref _%klass99516%_ '10 class::t 'constructor))) + (lambda (_%klass99672%_) + (##structure-ref _%klass99672%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass99514%_) + (lambda (_%klass99670%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99514%_ + _%klass99670%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass99511%_ _%val99512%_) + (lambda (_%klass99667%_ _%val99668%_) (##structure-set! - _%klass99511%_ - _%val99512%_ + _%klass99667%_ + _%val99668%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass99506%_ _%val99508%_) + (lambda (_%klass99662%_ _%val99664%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99506%_ - _%val99508%_ + _%klass99662%_ + _%val99664%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass99504%_) - (##structure-ref _%klass99504%_ '11 class::t 'methods))) + (lambda (_%klass99660%_) + (##structure-ref _%klass99660%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass99502%_) + (lambda (_%klass99658%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99502%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass99658%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass99499%_ _%val99500%_) - (##structure-set! _%klass99499%_ _%val99500%_ '11 class::t 'methods))) + (lambda (_%klass99655%_ _%val99656%_) + (##structure-set! _%klass99655%_ _%val99656%_ '11 class::t 'methods))) (define &class-type-methods-set! - (lambda (_%klass99494%_ _%val99496%_) + (lambda (_%klass99650%_ _%val99652%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99494%_ - _%val99496%_ + _%klass99650%_ + _%val99652%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass99480%_) + (lambda (_%klass99636%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99480%_ 'class)) - (let ((_%klass99484%_ _%klass99480%_)) - (__class-type-slot-list _%klass99484%_)) + (##structure-instance-of? _%klass99636%_ 'class)) + (let ((_%klass99640%_ _%klass99636%_)) + (__class-type-slot-list _%klass99640%_)) (begin (raise-contract-violation-error '"contract violation" @@ -954,22 +957,22 @@ 'contract: 'class-type? 'value: - _%klass99480%_) + _%klass99636%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass99468%_) - (let ((_%klass99471%_ _%klass99468%_)) + (lambda (_%klass99624%_) + (let ((_%klass99627%_ _%klass99624%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99471%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass99627%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass99454%_) + (lambda (_%klass99610%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99454%_ 'class)) - (let ((_%klass99458%_ _%klass99454%_)) - (__class-type-field-count _%klass99458%_)) + (##structure-instance-of? _%klass99610%_ 'class)) + (let ((_%klass99614%_ _%klass99610%_)) + (__class-type-field-count _%klass99614%_)) (begin (raise-contract-violation-error '"contract violation" @@ -978,31 +981,31 @@ 'contract: 'class-type? 'value: - _%klass99454%_) + _%klass99610%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass99442%_) - (let* ((_%klass99445%_ _%klass99442%_) - (__tmp101472 - (let ((__tmp101473 + (lambda (_%klass99598%_) + (let* ((_%klass99601%_ _%klass99598%_) + (__tmp101631 + (let ((__tmp101632 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99445%_ + _%klass99601%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101473)))) + (##vector-length __tmp101632)))) (declare (not safe)) - (##fx- __tmp101472 '1)))) + (##fx- __tmp101631 '1)))) (define class-type-seal! - (lambda (_%klass99428%_) + (lambda (_%klass99584%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99428%_ 'class)) - (let ((_%klass99432%_ _%klass99428%_)) - (__class-type-seal! _%klass99432%_)) + (##structure-instance-of? _%klass99584%_ 'class)) + (let ((_%klass99588%_ _%klass99584%_)) + (__class-type-seal! _%klass99588%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1011,42 +1014,42 @@ 'contract: 'class-type? 'value: - _%klass99428%_) + _%klass99584%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass99416%_) - (let ((_%klass99419%_ _%klass99416%_)) - (let ((__tmp101474 - (let ((__tmp101475 + (lambda (_%klass99572%_) + (let ((_%klass99575%_ _%klass99572%_)) + (let ((__tmp101633 + (let ((__tmp101634 (let () (declare (not safe)) - (##type-flags _%klass99419%_)))) + (##type-flags _%klass99575%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp101475)))) + (##fxior class-type-flag-sealed __tmp101634)))) (declare (not safe)) (##unchecked-structure-set! - _%klass99419%_ - __tmp101474 + _%klass99575%_ + __tmp101633 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct99391%_ _%maybe-super-struct99392%_) + (lambda (_%maybe-sub-struct99547%_ _%maybe-super-struct99548%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct99391%_ 'class)) - (let ((_%maybe-sub-struct99396%_ _%maybe-sub-struct99391%_)) + (##structure-instance-of? _%maybe-sub-struct99547%_ 'class)) + (let ((_%maybe-sub-struct99552%_ _%maybe-sub-struct99547%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct99392%_ + _%maybe-super-struct99548%_ 'class)) - (let ((_%maybe-super-struct99406%_ - _%maybe-super-struct99392%_)) + (let ((_%maybe-super-struct99562%_ + _%maybe-super-struct99548%_)) (__substruct? - _%maybe-sub-struct99396%_ - _%maybe-super-struct99406%_)) + _%maybe-sub-struct99552%_ + _%maybe-super-struct99562%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1055,7 +1058,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-struct99392%_) + _%maybe-super-struct99548%_) '#!void))) (begin (raise-contract-violation-error @@ -1065,288 +1068,288 @@ 'contract: 'class-type? 'value: - _%maybe-sub-struct99391%_) + _%maybe-sub-struct99547%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct99360%_ _%maybe-super-struct99361%_) - (let* ((_%maybe-sub-struct99364%_ _%maybe-sub-struct99360%_) - (_%maybe-super-struct99372%_ _%maybe-super-struct99361%_) - (_%maybe-super-struct-id99381%_ + (lambda (_%maybe-sub-struct99516%_ _%maybe-super-struct99517%_) + (let* ((_%maybe-sub-struct99520%_ _%maybe-sub-struct99516%_) + (_%maybe-super-struct99528%_ _%maybe-super-struct99517%_) + (_%maybe-super-struct-id99537%_ (let () (declare (not safe)) - (##type-id _%maybe-super-struct99372%_)))) - (let _%lp99383%_ ((_%super-struct99385%_ _%maybe-sub-struct99364%_)) - (if (not _%super-struct99385%_) + (##type-id _%maybe-super-struct99528%_)))) + (let _%lp99539%_ ((_%super-struct99541%_ _%maybe-sub-struct99520%_)) + (if (not _%super-struct99541%_) '#f - (if (eq? _%maybe-super-struct-id99381%_ + (if (eq? _%maybe-super-struct-id99537%_ (let () (declare (not safe)) - (##type-id _%super-struct99385%_))) + (##type-id _%super-struct99541%_))) '#t - (_%lp99383%_ + (_%lp99539%_ (let () (declare (not safe)) - (##type-super _%super-struct99385%_))))))))) + (##type-super _%super-struct99541%_))))))))) (define base-struct/1 - (lambda (_%klass99355%_) + (lambda (_%klass99511%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99355%_ 'class)) - (if (__class-type-struct? _%klass99355%_) - _%klass99355%_ - (let () (declare (not safe)) (##type-super _%klass99355%_))) - (if (not _%klass99355%_) + (##structure-instance-of? _%klass99511%_ 'class)) + (if (__class-type-struct? _%klass99511%_) + _%klass99511%_ + (let () (declare (not safe)) (##type-super _%klass99511%_))) + (if (not _%klass99511%_) '#f - (error '"not a class or false" _%klass99355%_))))) + (error '"not a class or false" _%klass99511%_))))) (define base-struct/2 - (lambda (_%klass199340%_ _%klass299341%_) - (let ((_%s199343%_ (base-struct/1 _%klass199340%_)) - (_%s299344%_ (base-struct/1 _%klass299341%_))) - (if (or (not _%s199343%_) - (and _%s299344%_ (substruct? _%s199343%_ _%s299344%_))) - _%s299344%_ - (if (or (not _%s299344%_) - (and _%s199343%_ (substruct? _%s299344%_ _%s199343%_))) - _%s199343%_ + (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%_ (error '"bad mixin: incompatible struct bases" - _%klass199340%_ - _%klass299341%_ - _%s199343%_ - _%s299344%_)))))) + _%klass199496%_ + _%klass299497%_ + _%s199499%_ + _%s299500%_)))))) (define base-struct/list - (lambda (_%all-supers99224%_) - (let* ((_%all-supers9922599250%_ _%all-supers99224%_) - (_%E9923099254%_ + (lambda (_%all-supers99380%_) + (let* ((_%all-supers9938199406%_ _%all-supers99380%_) + (_%E9938699410%_ (lambda () (error '"No clause matching" - _%all-supers9922599250%_ + _%all-supers9938199406%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9924899337%_ (lambda () '#f)) - (_%K9924599323%_ - (lambda (_%x99321%_) (base-struct/1 _%x99321%_))) - (_%K9924099300%_ - (lambda (_%y99297%_ _%x99298%_) - (base-struct/2 _%x99298%_ _%y99297%_))) - (_%K9923199261%_ - (lambda (_%y99258%_ _%x99259%_) + (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 () (declare (not safe)) - (__foldr1 base-struct/2 _%x99259%_ _%y99258%_))))) - (let* ((_%__match101434101435%_ - (lambda (_%hd9923299264%_ _%tl9923399266%_) - (let ((_%x99269%_ _%hd9923299264%_)) - (letrec ((_%splice-rest9923599271%_ - (lambda (_%rest9923999278%_ _%y99280%_) - (if (null? _%rest9923999278%_) - (_%K9923199261%_ _%y99280%_ _%x99269%_) - (_%E9923099254%_)))) - (_%splice-try9923799273%_ - (lambda (_%hd9923899282%_ - _%rest9923999284%_ - _%y9923499285%_) - (let ((_%y99288%_ _%hd9923899282%_)) - (_%splice-loop9923699275%_ + (__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%_ (let () (declare (not safe)) - (##cdr _%rest9923999284%_)) - (cons _%y99288%_ _%y9923499285%_))))) - (_%splice-loop9923699275%_ - (lambda (_%rest9923999290%_ _%y9923499291%_) - (if (pair? _%rest9923999290%_) - (_%splice-try9923799273%_ + (##cdr _%rest9939599440%_)) + (cons _%y99444%_ _%y9939099441%_))))) + (_%splice-loop9939299431%_ + (lambda (_%rest9939599446%_ _%y9939099447%_) + (if (pair? _%rest9939599446%_) + (_%splice-try9939399429%_ (let () (declare (not safe)) - (##car _%rest9923999290%_)) - _%rest9923999290%_ - _%y9923499291%_) - (_%splice-rest9923599271%_ - _%rest9923999290%_ - (reverse _%y9923499291%_)))))) - (_%splice-loop9923699275%_ _%tl9923399266%_ '()))))) - (_%try-match9922799333%_ + (##car _%rest9939599446%_)) + _%rest9939599446%_ + _%y9939099447%_) + (_%splice-rest9939199427%_ + _%rest9939599446%_ + (reverse _%y9939099447%_)))))) + (_%splice-loop9939299431%_ _%tl9938999422%_ '()))))) + (_%try-match9938399489%_ (lambda () - (if (pair? _%all-supers9922599250%_) - (let ((_%tl9924799328%_ + (if (pair? _%all-supers9938199406%_) + (let ((_%tl9940399484%_ (let () (declare (not safe)) - (##cdr _%all-supers9922599250%_))) - (_%hd9924699326%_ + (##cdr _%all-supers9938199406%_))) + (_%hd9940299482%_ (let () (declare (not safe)) - (##car _%all-supers9922599250%_)))) - (if (null? _%tl9924799328%_) - (let ((_%x99331%_ _%hd9924699326%_)) - (base-struct/1 _%x99331%_)) - (if (pair? _%tl9924799328%_) - (let ((_%tl9924499312%_ + (##car _%all-supers9938199406%_)))) + (if (null? _%tl9940399484%_) + (let ((_%x99487%_ _%hd9940299482%_)) + (base-struct/1 _%x99487%_)) + (if (pair? _%tl9940399484%_) + (let ((_%tl9940099468%_ (let () (declare (not safe)) - (##cdr _%tl9924799328%_))) - (_%hd9924399310%_ + (##cdr _%tl9940399484%_))) + (_%hd9939999466%_ (let () (declare (not safe)) - (##car _%tl9924799328%_)))) - (if (null? _%tl9924499312%_) - (let ((_%x99308%_ _%hd9924699326%_) - (_%y99315%_ _%hd9924399310%_)) - (_%K9924099300%_ - _%y99315%_ - _%x99308%_)) - (_%__match101434101435%_ - _%hd9924699326%_ - _%tl9924799328%_))) - (_%__match101434101435%_ - _%hd9924699326%_ - _%tl9924799328%_)))) - (_%E9923099254%_))))) - (if (null? _%all-supers9922599250%_) - (_%K9924899337%_) - (_%try-match9922799333%_))))))) + (##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%_))))))) (define base-struct - (lambda _%all-supers99222%_ (base-struct/list _%all-supers99222%_))) + (lambda _%all-supers99378%_ (base-struct/list _%all-supers99378%_))) (define find-super-constructor - (lambda (_%super99173%_) - (let _%lp99175%_ ((_%rest99177%_ _%super99173%_) - (_%constructor99178%_ '#f)) - (let* ((_%rest9917999187%_ _%rest99177%_) - (_%else9918199195%_ (lambda () _%constructor99178%_)) - (_%K9918399210%_ - (lambda (_%rest99198%_ _%hd99199%_) - (let ((_%$e99201%_ + (lambda (_%super99329%_) + (let _%lp99331%_ ((_%rest99333%_ _%super99329%_) + (_%constructor99334%_ '#f)) + (let* ((_%rest9933599343%_ _%rest99333%_) + (_%else9933799351%_ (lambda () _%constructor99334%_)) + (_%K9933999366%_ + (lambda (_%rest99354%_ _%hd99355%_) + (let ((_%$e99357%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd99199%_ + _%hd99355%_ '10 '#f '#f)))) - (if _%$e99201%_ - ((lambda (_%xconstructor99204%_) - (if (or (not _%constructor99178%_) - (eq? _%constructor99178%_ - _%xconstructor99204%_)) - (_%lp99175%_ - _%rest99198%_ - _%xconstructor99204%_) + (if _%$e99357%_ + ((lambda (_%xconstructor99360%_) + (if (or (not _%constructor99334%_) + (eq? _%constructor99334%_ + _%xconstructor99360%_)) + (_%lp99331%_ + _%rest99354%_ + _%xconstructor99360%_) (error '"conflicting implicit constructors" - _%constructor99178%_ - _%xconstructor99204%_))) - _%$e99201%_) - (_%lp99175%_ _%rest99198%_ _%constructor99178%_)))))) - (if (pair? _%rest9917999187%_) - (let ((_%hd9918499213%_ + _%constructor99334%_ + _%xconstructor99360%_))) + _%$e99357%_) + (_%lp99331%_ _%rest99354%_ _%constructor99334%_)))))) + (if (pair? _%rest9933599343%_) + (let ((_%hd9934099369%_ (let () (declare (not safe)) - (##car _%rest9917999187%_))) - (_%tl9918599215%_ + (##car _%rest9933599343%_))) + (_%tl9934199371%_ (let () (declare (not safe)) - (##cdr _%rest9917999187%_)))) - (let* ((_%hd99218%_ _%hd9918499213%_) - (_%rest99220%_ _%tl9918599215%_)) - (_%K9918399210%_ _%rest99220%_ _%hd99218%_))) - (_%else9918199195%_)))))) + (##cdr _%rest9933599343%_)))) + (let* ((_%hd99374%_ _%hd9934099369%_) + (_%rest99376%_ _%tl9934199371%_)) + (_%K9933999366%_ _%rest99376%_ _%hd99374%_))) + (_%else9933799351%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list99149%_ _%direct-slots99150%_) - (let* ((_%next-slot99152%_ '1) - (_%slot-table99154%_ + (lambda (_%class-precedence-list99305%_ _%direct-slots99306%_) + (let* ((_%next-slot99308%_ '1) + (_%slot-table99310%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots99156%_ '(__class)) - (_%process-slot99160%_ - (lambda (_%slot99158%_) - (if (symbol? _%slot99158%_) + (_%r-slots99312%_ '(__class)) + (_%process-slot99316%_ + (lambda (_%slot99314%_) + (if (symbol? _%slot99314%_) '#!void - (error '"invalid slot name" _%slot99158%_)) + (error '"invalid slot name" _%slot99314%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table99154%_ - _%slot99158%_ + _%slot-table99310%_ + _%slot99314%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table99154%_ - _%slot99158%_ - _%next-slot99152%_)) - (let ((__tmp101476 + _%slot-table99310%_ + _%slot99314%_ + _%next-slot99308%_)) + (let ((__tmp101635 (let () (declare (not safe)) - (symbol->keyword _%slot99158%_)))) + (symbol->keyword _%slot99314%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table99154%_ - __tmp101476 - _%next-slot99152%_)) - (set! _%r-slots99156%_ - (cons _%slot99158%_ _%r-slots99156%_)) - (set! _%next-slot99152%_ + _%slot-table99310%_ + __tmp101635 + _%next-slot99308%_)) + (set! _%r-slots99312%_ + (cons _%slot99314%_ _%r-slots99312%_)) + (set! _%next-slot99308%_ (let () (declare (not safe)) - (##fx+ _%next-slot99152%_ '1)))) + (##fx+ _%next-slot99308%_ '1)))) '#!void))) - (_%process-slots99166%_ - (lambda (_%g9916199163%_) - (for-each _%process-slot99160%_ _%g9916199163%_)))) - (let ((__tmp101478 - (lambda (_%mixin99169%_) - (_%process-slots99166%_ - (let ((__tmp101479 + (_%process-slots99322%_ + (lambda (_%g9931799319%_) + (for-each _%process-slot99316%_ _%g9931799319%_)))) + (let ((__tmp101637 + (lambda (_%mixin99325%_) + (_%process-slots99322%_ + (let ((__tmp101638 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin99169%_ + _%mixin99325%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp101479 '()))))) - (__tmp101477 (reverse _%class-precedence-list99149%_))) + (agetq__% 'direct-slots: __tmp101638 '()))))) + (__tmp101636 (reverse _%class-precedence-list99305%_))) (declare (not safe)) - (##for-each __tmp101478 __tmp101477)) - (_%process-slots99166%_ _%direct-slots99150%_) - (let ((_%slot-vector99171%_ + (##for-each __tmp101637 __tmp101636)) + (_%process-slots99322%_ _%direct-slots99306%_) + (let ((_%slot-vector99327%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots99156%_))))) - (values _%slot-vector99171%_ _%slot-table99154%_))))) + (let () (declare (not safe)) (##reverse _%r-slots99312%_))))) + (values _%slot-vector99327%_ _%slot-table99310%_))))) (define make-class-type - (lambda (_%id99074%_ - _%name99075%_ - _%direct-supers99076%_ - _%direct-slots99077%_ - _%properties99078%_ - _%constructor99079%_) - (if (symbol? _%id99074%_) - (let ((_%id99083%_ _%id99074%_)) - (if (symbol? _%name99075%_) - (let ((_%name99093%_ _%name99075%_)) - (if (list? _%direct-supers99076%_) - (let ((_%direct-supers99103%_ _%direct-supers99076%_)) - (if (list? _%direct-slots99077%_) - (let ((_%direct-slots99113%_ - _%direct-slots99077%_)) - (if (list? _%properties99078%_) - (let ((_%properties99123%_ - _%properties99078%_)) - (if ((lambda (_%$obj99132%_) - (or (not _%$obj99132%_) - (symbol? _%$obj99132%_))) - _%constructor99079%_) - (let ((_%constructor99139%_ - _%constructor99079%_)) + (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%_)) (__make-class-type - _%id99083%_ - _%name99093%_ - _%direct-supers99103%_ - _%direct-slots99113%_ - _%properties99123%_ - _%constructor99139%_)) + _%id99239%_ + _%name99249%_ + _%direct-supers99259%_ + _%direct-slots99269%_ + _%properties99279%_ + _%constructor99295%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1355,7 +1358,7 @@ 'contract: '(? (or not symbol?)) 'value: - _%constructor99079%_) + _%constructor99235%_) '#!void))) (begin (raise-contract-violation-error @@ -1365,7 +1368,7 @@ 'contract: 'list? 'value: - _%properties99078%_) + _%properties99234%_) '#!void))) (begin (raise-contract-violation-error @@ -1375,7 +1378,7 @@ 'contract: 'list? 'value: - _%direct-slots99077%_) + _%direct-slots99233%_) '#!void))) (begin (raise-contract-violation-error @@ -1385,7 +1388,7 @@ 'contract: 'list? 'value: - _%direct-supers99076%_) + _%direct-supers99232%_) '#!void))) (begin (raise-contract-violation-error @@ -1395,7 +1398,7 @@ 'contract: 'symbol? 'value: - _%name99075%_) + _%name99231%_) '#!void))) (begin (raise-contract-violation-error @@ -1405,165 +1408,165 @@ 'contract: 'symbol? 'value: - _%id99074%_) + _%id99230%_) '#!void)))) (define __make-class-type - (lambda (_%id98943%_ - _%name98944%_ - _%direct-supers98945%_ - _%direct-slots98946%_ - _%properties98947%_ - _%constructor98948%_) - (let* ((_%id98951%_ _%id98943%_) - (_%name98959%_ _%name98944%_) - (_%direct-supers98967%_ _%direct-supers98945%_) - (_%direct-slots98975%_ _%direct-slots98946%_) - (_%properties98983%_ _%properties98947%_) - (_%constructor98991%_ _%constructor98948%_)) - (let ((_%$e99003%_ - (let ((__tmp101480 - (lambda (_%$obj99000%_) + (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%_) (not (let () (declare (not safe)) (##structure-instance-of? - _%$obj99000%_ + _%$obj99156%_ 'class)))))) (declare (not safe)) - (__find __tmp101480 _%direct-supers98967%_)))) - (if _%$e99003%_ - ((lambda (_%g9900599007%_) + (__find __tmp101639 _%direct-supers99123%_)))) + (if _%$e99159%_ + ((lambda (_%g9916199163%_) (error '"Illegal super class; not a class descriptor" - _%g9900599007%_)) - _%$e99003%_) - (let ((_%$e99010%_ + _%g9916199163%_)) + _%$e99159%_) + (let ((_%$e99166%_ (let () (declare (not safe)) - (__find __class-type-final? _%direct-supers98967%_)))) - (if _%$e99010%_ - ((lambda (_%g9901299014%_) - (error '"Cannot extend final class" _%g9901299014%_)) - _%$e99010%_) + (__find __class-type-final? _%direct-supers99123%_)))) + (if _%$e99166%_ + ((lambda (_%g9916899170%_) + (error '"Cannot extend final class" _%g9916899170%_)) + _%$e99166%_) '#!void)))) - (let ((_g101481_ (compute-precedence-list _%direct-supers98967%_))) + (let ((_g101640_ (compute-precedence-list _%direct-supers99123%_))) (begin - (let ((_g101482_ + (let ((_g101641_ (let () (declare (not safe)) - (if (##values? _g101481_) - (##vector-length _g101481_) + (if (##values? _g101640_) + (##vector-length _g101640_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101482_ 2))) - (error "Context expects 2 values" _g101482_))) - (let ((_%precedence-list99017%_ - (let () (declare (not safe)) (##vector-ref _g101481_ 0))) - (_%struct-super99018%_ - (let () (declare (not safe)) (##vector-ref _g101481_ 1)))) - (let ((_g101483_ + (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_ (compute-class-slots - _%precedence-list99017%_ - _%direct-slots98975%_))) + _%precedence-list99173%_ + _%direct-slots99131%_))) (begin - (let ((_g101484_ + (let ((_g101643_ (let () (declare (not safe)) - (if (##values? _g101483_) - (##vector-length _g101483_) + (if (##values? _g101642_) + (##vector-length _g101642_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101484_ 2))) - (error "Context expects 2 values" _g101484_))) - (let ((_%slot-vector99020%_ + (##fx= _g101643_ 2))) + (error "Context expects 2 values" _g101643_))) + (let ((_%slot-vector99176%_ (let () (declare (not safe)) - (##vector-ref _g101483_ 0))) - (_%slot-table99021%_ + (##vector-ref _g101642_ 0))) + (_%slot-table99177%_ (let () (declare (not safe)) - (##vector-ref _g101483_ 1)))) - (let* ((_%properties99023%_ - (cons (cons 'direct-slots: _%direct-slots98975%_) + (##vector-ref _g101642_ 1)))) + (let* ((_%properties99179%_ + (cons (cons 'direct-slots: _%direct-slots99131%_) (cons (cons 'direct-supers: - _%direct-supers98967%_) - _%properties98983%_))) - (_%constructor*99028%_ - (let ((_%$e99025%_ _%constructor98991%_)) - (if _%$e99025%_ - _%$e99025%_ + _%direct-supers99123%_) + _%properties99139%_))) + (_%constructor*99184%_ + (let ((_%$e99181%_ _%constructor99147%_)) + (if _%$e99181%_ + _%$e99181%_ (find-super-constructor - _%direct-supers98967%_)))) - (_%precedence-list99071%_ + _%direct-supers99123%_)))) + (_%precedence-list99227%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties99023%_)) + _%properties99179%_)) (memq object::t - _%precedence-list99017%_)) - _%precedence-list99017%_ - (let _%loop99033%_ ((_%tail99035%_ - _%precedence-list99017%_) - (_%head99036%_ '())) - (let* ((_%tail9903799045%_ _%tail99035%_) - (_%else9903999053%_ + _%precedence-list99173%_)) + _%precedence-list99173%_ + (let _%loop99189%_ ((_%tail99191%_ + _%precedence-list99173%_) + (_%head99192%_ '())) + (let* ((_%tail9919399201%_ _%tail99191%_) + (_%else9919599209%_ (lambda () - (let ((__tmp101485 + (let ((__tmp101644 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp101485 - _%head99036%_)))) - (_%K9904199059%_ - (lambda (_%rest99056%_ _%hd99057%_) - (if (eq? _%hd99057%_ t::t) - (let ((__tmp101486 + __tmp101644 + _%head99192%_)))) + (_%K9919799215%_ + (lambda (_%rest99212%_ _%hd99213%_) + (if (eq? _%hd99213%_ t::t) + (let ((__tmp101645 (cons object::t - _%tail99035%_))) + _%tail99191%_))) (declare (not safe)) (__foldl1 cons - __tmp101486 - _%head99036%_)) - (_%loop99033%_ - _%rest99056%_ - (cons _%hd99057%_ - _%head99036%_)))))) - (if (pair? _%tail9903799045%_) - (let ((_%hd9904299062%_ + __tmp101645 + _%head99192%_)) + (_%loop99189%_ + _%rest99212%_ + (cons _%hd99213%_ + _%head99192%_)))))) + (if (pair? _%tail9919399201%_) + (let ((_%hd9919899218%_ (let () (declare (not safe)) - (##car _%tail9903799045%_))) - (_%tl9904399064%_ + (##car _%tail9919399201%_))) + (_%tl9919999220%_ (let () (declare (not safe)) - (##cdr _%tail9903799045%_)))) - (let* ((_%hd99067%_ - _%hd9904299062%_) - (_%rest99069%_ - _%tl9904399064%_)) - (_%K9904199059%_ - _%rest99069%_ - _%hd99067%_))) - (_%else9903999053%_))))))) + (##cdr _%tail9919399201%_)))) + (let* ((_%hd99223%_ + _%hd9919899218%_) + (_%rest99225%_ + _%tl9919999220%_)) + (_%K9919799215%_ + _%rest99225%_ + _%hd99223%_))) + (_%else9919599209%_))))))) (make-class-type-descriptor - _%id98951%_ - _%name98959%_ - _%struct-super99018%_ - _%precedence-list99071%_ - _%slot-vector99020%_ - _%properties99023%_ - _%constructor*99028%_ - _%slot-table99021%_ + _%id99107%_ + _%name99115%_ + _%struct-super99174%_ + _%precedence-list99227%_ + _%slot-vector99176%_ + _%properties99179%_ + _%constructor*99184%_ + _%slot-table99177%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass98929%_) + (lambda (_%klass99085%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98929%_ 'class)) - (let ((_%klass98933%_ _%klass98929%_)) - (__class-precedence-list _%klass98933%_)) + (##structure-instance-of? _%klass99085%_ 'class)) + (let ((_%klass99089%_ _%klass99085%_)) + (__class-precedence-list _%klass99089%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1572,17 +1575,17 @@ 'contract: 'class-type? 'value: - _%klass98929%_) + _%klass99085%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass98917%_) - (let ((_%klass98920%_ _%klass98917%_)) - (cons _%klass98920%_ + (lambda (_%klass99073%_) + (let ((_%klass99076%_ _%klass99073%_)) + (cons _%klass99076%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98920%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass99076%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers98914%_) + (lambda (_%direct-supers99070%_) (let () (declare (not safe)) (c4-linearize__% @@ -1592,14 +1595,14 @@ eq? ##type-name '() - _%direct-supers98914%_)))) + _%direct-supers99070%_)))) (define make-class-predicate - (lambda (_%klass98900%_) + (lambda (_%klass99056%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98900%_ 'class)) - (let ((_%klass98904%_ _%klass98900%_)) - (__make-class-predicate _%klass98904%_)) + (##structure-instance-of? _%klass99056%_ 'class)) + (let ((_%klass99060%_ _%klass99056%_)) + (__make-class-predicate _%klass99060%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1608,36 +1611,36 @@ 'contract: 'class-type? 'value: - _%klass98900%_) + _%klass99056%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass98871%_) - (let* ((_%klass98874%_ _%klass98871%_) - (_%tid98883%_ - (let () (declare (not safe)) (##type-id _%klass98874%_)))) - (if (__class-type-final? _%klass98874%_) - (lambda (_%g9888598887%_) + (lambda (_%klass99027%_) + (let* ((_%klass99030%_ _%klass99027%_) + (_%tid99039%_ + (let () (declare (not safe)) (##type-id _%klass99030%_)))) + (if (__class-type-final? _%klass99030%_) + (lambda (_%g9904199043%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%g9888598887%_ - _%tid98883%_))) - (if (__class-type-struct? _%klass98874%_) - (lambda (_%g9889098892%_) + _%g9904199043%_ + _%tid99039%_))) + (if (__class-type-struct? _%klass99030%_) + (lambda (_%g9904699048%_) (let () (declare (not safe)) - (##structure-instance-of? _%g9889098892%_ _%tid98883%_))) - (lambda (_%g9889598897%_) - (__class-instance? _%klass98874%_ _%g9889598897%_))))))) + (##structure-instance-of? _%g9904699048%_ _%tid99039%_))) + (lambda (_%g9905199053%_) + (__class-instance? _%klass99030%_ _%g9905199053%_))))))) (define make-class-slot-accessor - (lambda (_%klass98846%_ _%slot98847%_) + (lambda (_%klass99002%_ _%slot99003%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98846%_ 'class)) - (let ((_%klass98851%_ _%klass98846%_)) - (if (symbol? _%slot98847%_) - (let ((_%slot98861%_ _%slot98847%_)) - (__make-class-slot-accessor _%klass98851%_ _%slot98861%_)) + (##structure-instance-of? _%klass99002%_ 'class)) + (let ((_%klass99007%_ _%klass99002%_)) + (if (symbol? _%slot99003%_) + (let ((_%slot99017%_ _%slot99003%_)) + (__make-class-slot-accessor _%klass99007%_ _%slot99017%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1646,7 +1649,7 @@ 'contract: 'symbol? 'value: - _%slot98847%_) + _%slot99003%_) '#!void))) (begin (raise-contract-violation-error @@ -1656,78 +1659,78 @@ 'contract: 'class-type? 'value: - _%klass98846%_) + _%klass99002%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass98814%_ _%slot98815%_) - (let* ((_%klass98818%_ _%klass98814%_) - (_%slot98826%_ _%slot98815%_) - (_%field98835%_ - (let ((__tmp101487 + (lambda (_%klass98970%_ _%slot98971%_) + (let* ((_%klass98974%_ _%klass98970%_) + (_%slot98982%_ _%slot98971%_) + (_%field98991%_ + (let ((__tmp101646 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98818%_ + _%klass98974%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101487 _%slot98826%_ '#f)))) - (if (not _%field98835%_) + (symbolic-table-ref __tmp101646 _%slot98982%_ '#f)))) + (if (not _%field98991%_) (let () (error '"unknown slot" 'class: - _%klass98818%_ + _%klass98974%_ 'slot: - _%slot98826%_) + _%slot98982%_) '#!void) - (if (__class-type-final? _%klass98818%_) + (if (__class-type-final? _%klass98974%_) (make-final-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_) - (if (__class-type-struct? _%klass98818%_) + _%klass98974%_ + _%slot98982%_ + _%field98991%_) + (if (__class-type-struct? _%klass98974%_) (make-struct-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_) - (if (let ((_%strukt98841%_ - (base-struct/1 _%klass98818%_))) + _%klass98974%_ + _%slot98982%_ + _%field98991%_) + (if (let ((_%strukt98997%_ + (base-struct/1 _%klass98974%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98841%_ + _%strukt98997%_ 'class)) - (let ((__tmp101488 - (let ((__tmp101489 + (let ((__tmp101647 + (let ((__tmp101648 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98841%_ + _%strukt98997%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101489)))) + (##vector-length __tmp101648)))) (declare (not safe)) - (##fx< _%field98835%_ __tmp101488)))) + (##fx< _%field98991%_ __tmp101647)))) (make-struct-subclass-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_) + _%klass98974%_ + _%slot98982%_ + _%field98991%_) (make-class-cached-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_)))))))) + _%klass98974%_ + _%slot98982%_ + _%field98991%_)))))))) (define make-class-slot-mutator - (lambda (_%klass98789%_ _%slot98790%_) + (lambda (_%klass98945%_ _%slot98946%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98789%_ 'class)) - (let ((_%klass98794%_ _%klass98789%_)) - (if (symbol? _%slot98790%_) - (let ((_%slot98804%_ _%slot98790%_)) - (__make-class-slot-mutator _%klass98794%_ _%slot98804%_)) + (##structure-instance-of? _%klass98945%_ 'class)) + (let ((_%klass98950%_ _%klass98945%_)) + (if (symbol? _%slot98946%_) + (let ((_%slot98960%_ _%slot98946%_)) + (__make-class-slot-mutator _%klass98950%_ _%slot98960%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1736,7 +1739,7 @@ 'contract: 'symbol? 'value: - _%slot98790%_) + _%slot98946%_) '#!void))) (begin (raise-contract-violation-error @@ -1746,80 +1749,80 @@ 'contract: 'class-type? 'value: - _%klass98789%_) + _%klass98945%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass98757%_ _%slot98758%_) - (let* ((_%klass98761%_ _%klass98757%_) - (_%slot98769%_ _%slot98758%_) - (_%field98778%_ - (let ((__tmp101490 + (lambda (_%klass98913%_ _%slot98914%_) + (let* ((_%klass98917%_ _%klass98913%_) + (_%slot98925%_ _%slot98914%_) + (_%field98934%_ + (let ((__tmp101649 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98761%_ + _%klass98917%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101490 _%slot98769%_ '#f)))) - (if (not _%field98778%_) + (symbolic-table-ref __tmp101649 _%slot98925%_ '#f)))) + (if (not _%field98934%_) (let () (error '"unknown slot" 'class: - _%klass98761%_ + _%klass98917%_ 'slot: - _%slot98769%_) + _%slot98925%_) '#!void) - (if (__class-type-final? _%klass98761%_) + (if (__class-type-final? _%klass98917%_) (make-final-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_) - (if (__class-type-struct? _%klass98761%_) + _%klass98917%_ + _%slot98925%_ + _%field98934%_) + (if (__class-type-struct? _%klass98917%_) (make-struct-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_) - (if (let ((_%strukt98784%_ - (base-struct/1 _%klass98761%_))) + _%klass98917%_ + _%slot98925%_ + _%field98934%_) + (if (let ((_%strukt98940%_ + (base-struct/1 _%klass98917%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98784%_ + _%strukt98940%_ 'class)) - (let ((__tmp101491 - (let ((__tmp101492 + (let ((__tmp101650 + (let ((__tmp101651 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98784%_ + _%strukt98940%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101492)))) + (##vector-length __tmp101651)))) (declare (not safe)) - (##fx< _%field98778%_ __tmp101491)))) + (##fx< _%field98934%_ __tmp101650)))) (make-struct-subclass-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_) + _%klass98917%_ + _%slot98925%_ + _%field98934%_) (make-class-cached-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_)))))))) + _%klass98917%_ + _%slot98925%_ + _%field98934%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass98732%_ _%slot98733%_) + (lambda (_%klass98888%_ _%slot98889%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98732%_ 'class)) - (let ((_%klass98737%_ _%klass98732%_)) - (if (symbol? _%slot98733%_) - (let ((_%slot98747%_ _%slot98733%_)) + (##structure-instance-of? _%klass98888%_ 'class)) + (let ((_%klass98893%_ _%klass98888%_)) + (if (symbol? _%slot98889%_) + (let ((_%slot98903%_ _%slot98889%_)) (__make-class-slot-unchecked-accessor - _%klass98737%_ - _%slot98747%_)) + _%klass98893%_ + _%slot98903%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1828,7 +1831,7 @@ 'contract: 'symbol? 'value: - _%slot98733%_) + _%slot98889%_) '#!void))) (begin (raise-contract-violation-error @@ -1838,80 +1841,80 @@ 'contract: 'class-type? 'value: - _%klass98732%_) + _%klass98888%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass98700%_ _%slot98701%_) - (let* ((_%klass98704%_ _%klass98700%_) - (_%slot98712%_ _%slot98701%_) - (_%field98721%_ - (let ((__tmp101493 + (lambda (_%klass98856%_ _%slot98857%_) + (let* ((_%klass98860%_ _%klass98856%_) + (_%slot98868%_ _%slot98857%_) + (_%field98877%_ + (let ((__tmp101652 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98704%_ + _%klass98860%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101493 _%slot98712%_ '#f)))) - (if (not _%field98721%_) + (symbolic-table-ref __tmp101652 _%slot98868%_ '#f)))) + (if (not _%field98877%_) (let () (error '"unknown slot" 'class: - _%klass98704%_ + _%klass98860%_ 'slot: - _%slot98712%_) + _%slot98868%_) '#!void) - (if (__class-type-final? _%klass98704%_) + (if (__class-type-final? _%klass98860%_) (make-struct-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_) - (if (__class-type-struct? _%klass98704%_) + _%klass98860%_ + _%slot98868%_ + _%field98877%_) + (if (__class-type-struct? _%klass98860%_) (make-struct-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_) - (if (let ((_%strukt98727%_ - (base-struct/1 _%klass98704%_))) + _%klass98860%_ + _%slot98868%_ + _%field98877%_) + (if (let ((_%strukt98883%_ + (base-struct/1 _%klass98860%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98727%_ + _%strukt98883%_ 'class)) - (let ((__tmp101494 - (let ((__tmp101495 + (let ((__tmp101653 + (let ((__tmp101654 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98727%_ + _%strukt98883%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101495)))) + (##vector-length __tmp101654)))) (declare (not safe)) - (##fx< _%field98721%_ __tmp101494)))) + (##fx< _%field98877%_ __tmp101653)))) (make-struct-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_) + _%klass98860%_ + _%slot98868%_ + _%field98877%_) (make-class-cached-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_)))))))) + _%klass98860%_ + _%slot98868%_ + _%field98877%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass98675%_ _%slot98676%_) + (lambda (_%klass98831%_ _%slot98832%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98675%_ 'class)) - (let ((_%klass98680%_ _%klass98675%_)) - (if (symbol? _%slot98676%_) - (let ((_%slot98690%_ _%slot98676%_)) + (##structure-instance-of? _%klass98831%_ 'class)) + (let ((_%klass98836%_ _%klass98831%_)) + (if (symbol? _%slot98832%_) + (let ((_%slot98846%_ _%slot98832%_)) (__make-class-slot-unchecked-mutator - _%klass98680%_ - _%slot98690%_)) + _%klass98836%_ + _%slot98846%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1920,7 +1923,7 @@ 'contract: 'symbol? 'value: - _%slot98676%_) + _%slot98832%_) '#!void))) (begin (raise-contract-violation-error @@ -1930,221 +1933,221 @@ 'contract: 'class-type? 'value: - _%klass98675%_) + _%klass98831%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass98643%_ _%slot98644%_) - (let* ((_%klass98647%_ _%klass98643%_) - (_%slot98655%_ _%slot98644%_) - (_%field98664%_ - (let ((__tmp101496 + (lambda (_%klass98799%_ _%slot98800%_) + (let* ((_%klass98803%_ _%klass98799%_) + (_%slot98811%_ _%slot98800%_) + (_%field98820%_ + (let ((__tmp101655 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98647%_ + _%klass98803%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101496 _%slot98655%_ '#f)))) - (if (not _%field98664%_) + (symbolic-table-ref __tmp101655 _%slot98811%_ '#f)))) + (if (not _%field98820%_) (let () (error '"unknown slot" 'class: - _%klass98647%_ + _%klass98803%_ 'slot: - _%slot98655%_) + _%slot98811%_) '#!void) - (if (__class-type-final? _%klass98647%_) + (if (__class-type-final? _%klass98803%_) (make-struct-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_) - (if (__class-type-struct? _%klass98647%_) + _%klass98803%_ + _%slot98811%_ + _%field98820%_) + (if (__class-type-struct? _%klass98803%_) (make-struct-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_) - (if (let ((_%strukt98670%_ - (base-struct/1 _%klass98647%_))) + _%klass98803%_ + _%slot98811%_ + _%field98820%_) + (if (let ((_%strukt98826%_ + (base-struct/1 _%klass98803%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98670%_ + _%strukt98826%_ 'class)) - (let ((__tmp101497 - (let ((__tmp101498 + (let ((__tmp101656 + (let ((__tmp101657 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98670%_ + _%strukt98826%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101498)))) + (##vector-length __tmp101657)))) (declare (not safe)) - (##fx< _%field98664%_ __tmp101497)))) + (##fx< _%field98820%_ __tmp101656)))) (make-struct-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_) + _%klass98803%_ + _%slot98811%_ + _%field98820%_) (make-class-cached-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_)))))))) + _%klass98803%_ + _%slot98811%_ + _%field98820%_)))))))) (define not-an-instance__% - (lambda (_%object98627%_ _%class98628%_ _%slot98629%_) + (lambda (_%object98783%_ _%class98784%_ _%slot98785%_) (apply error '"not an instance" 'object: - _%object98627%_ + _%object98783%_ 'class: - _%class98628%_ - (if _%slot98629%_ (cons 'slot: (cons _%slot98629%_ '())) '())))) + _%class98784%_ + (if _%slot98785%_ (cons 'slot: (cons _%slot98785%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object98634%_ _%class98635%_) - (let ((_%slot98637%_ '#f)) - (not-an-instance__% _%object98634%_ _%class98635%_ _%slot98637%_)))) + (lambda (_%object98790%_ _%class98791%_) + (let ((_%slot98793%_ '#f)) + (not-an-instance__% _%object98790%_ _%class98791%_ _%slot98793%_)))) (define not-an-instance - (lambda _g101500_ - (let ((_g101499_ (let () (declare (not safe)) (##length _g101500_)))) - (cond ((let () (declare (not safe)) (##fx= _g101499_ 2)) - (apply not-an-instance__0 _g101500_)) - ((let () (declare (not safe)) (##fx= _g101499_ 3)) - (apply not-an-instance__% _g101500_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g101500_)))))) + _g101659_)))))) (define make-final-slot-accessor - (lambda (_%klass98620%_ _%slot98621%_ _%field98622%_) - (lambda (_%obj98624%_) + (lambda (_%klass98776%_ _%slot98777%_ _%field98778%_) + (lambda (_%obj98780%_) (##direct-structure-ref - _%obj98624%_ - _%field98622%_ - _%klass98620%_ - _%slot98621%_)))) + _%obj98780%_ + _%field98778%_ + _%klass98776%_ + _%slot98777%_)))) (define make-final-slot-mutator - (lambda (_%klass98613%_ _%slot98614%_ _%field98615%_) - (lambda (_%obj98617%_ _%val98618%_) + (lambda (_%klass98769%_ _%slot98770%_ _%field98771%_) + (lambda (_%obj98773%_ _%val98774%_) (##direct-structure-set! - _%obj98617%_ - _%val98618%_ - _%field98615%_ - _%klass98613%_ - _%slot98614%_)))) + _%obj98773%_ + _%val98774%_ + _%field98771%_ + _%klass98769%_ + _%slot98770%_)))) (define make-struct-slot-accessor - (lambda (_%klass98607%_ _%slot98608%_ _%field98609%_) - (lambda (_%obj98611%_) + (lambda (_%klass98763%_ _%slot98764%_ _%field98765%_) + (lambda (_%obj98767%_) (##structure-ref - _%obj98611%_ - _%field98609%_ - _%klass98607%_ - _%slot98608%_)))) + _%obj98767%_ + _%field98765%_ + _%klass98763%_ + _%slot98764%_)))) (define make-struct-slot-mutator - (lambda (_%klass98600%_ _%slot98601%_ _%field98602%_) - (lambda (_%obj98604%_ _%val98605%_) + (lambda (_%klass98756%_ _%slot98757%_ _%field98758%_) + (lambda (_%obj98760%_ _%val98761%_) (##structure-set! - _%obj98604%_ - _%val98605%_ - _%field98602%_ - _%klass98600%_ - _%slot98601%_)))) + _%obj98760%_ + _%val98761%_ + _%field98758%_ + _%klass98756%_ + _%slot98757%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass98594%_ _%slot98595%_ _%field98596%_) - (lambda (_%obj98598%_) + (lambda (_%klass98750%_ _%slot98751%_ _%field98752%_) + (lambda (_%obj98754%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj98598%_ - _%field98596%_ - _%klass98594%_ - _%slot98595%_))))) + _%obj98754%_ + _%field98752%_ + _%klass98750%_ + _%slot98751%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass98587%_ _%slot98588%_ _%field98589%_) - (lambda (_%obj98591%_ _%val98592%_) + (lambda (_%klass98743%_ _%slot98744%_ _%field98745%_) + (lambda (_%obj98747%_ _%val98748%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj98591%_ - _%val98592%_ - _%field98589%_ - _%klass98587%_ - _%slot98588%_))))) + _%obj98747%_ + _%val98748%_ + _%field98745%_ + _%klass98743%_ + _%slot98744%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass98581%_ _%slot98582%_ _%field98583%_) - (lambda (_%obj98585%_) - (if (class-instance? _%klass98581%_ _%obj98585%_) - (unchecked-slot-ref _%obj98585%_ _%field98583%_) + (lambda (_%klass98737%_ _%slot98738%_ _%field98739%_) + (lambda (_%obj98741%_) + (if (class-instance? _%klass98737%_ _%obj98741%_) + (unchecked-slot-ref _%obj98741%_ _%field98739%_) (not-an-instance__% - _%obj98585%_ - _%klass98581%_ - _%slot98582%_))))) + _%obj98741%_ + _%klass98737%_ + _%slot98738%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass98574%_ _%slot98575%_ _%field98576%_) - (lambda (_%obj98578%_ _%val98579%_) - (if (class-instance? _%klass98574%_ _%obj98578%_) - (unchecked-field-set! _%obj98578%_ _%field98576%_ _%val98579%_) + (lambda (_%klass98730%_ _%slot98731%_ _%field98732%_) + (lambda (_%obj98734%_ _%val98735%_) + (if (class-instance? _%klass98730%_ _%obj98734%_) + (unchecked-field-set! _%obj98734%_ _%field98732%_ _%val98735%_) (not-an-instance__% - _%obj98578%_ - _%klass98574%_ - _%slot98575%_))))) + _%obj98734%_ + _%klass98730%_ + _%slot98731%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass98565%_ _%slot98566%_ _%field98567%_) - (lambda (_%obj98569%_) - (if (let ((__tmp101501 - (let () (declare (not safe)) (##type-id _%klass98565%_)))) + (lambda (_%klass98721%_ _%slot98722%_ _%field98723%_) + (lambda (_%obj98725%_) + (if (let ((__tmp101660 + (let () (declare (not safe)) (##type-id _%klass98721%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98569%_ __tmp101501)) - (unchecked-field-ref _%obj98569%_ _%field98567%_) - (if (class-instance? _%klass98565%_ _%obj98569%_) - (unchecked-slot-ref _%obj98569%_ _%slot98566%_) + (##structure-direct-instance-of? _%obj98725%_ __tmp101660)) + (unchecked-field-ref _%obj98725%_ _%field98723%_) + (if (class-instance? _%klass98721%_ _%obj98725%_) + (unchecked-slot-ref _%obj98725%_ _%slot98722%_) (not-an-instance__% - _%obj98569%_ - _%klass98565%_ - _%slot98566%_)))))) + _%obj98725%_ + _%klass98721%_ + _%slot98722%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass98555%_ _%slot98556%_ _%field98557%_) - (lambda (_%obj98559%_ _%val98560%_) - (if (let ((__tmp101502 - (let () (declare (not safe)) (##type-id _%klass98555%_)))) + (lambda (_%klass98711%_ _%slot98712%_ _%field98713%_) + (lambda (_%obj98715%_ _%val98716%_) + (if (let ((__tmp101661 + (let () (declare (not safe)) (##type-id _%klass98711%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98559%_ __tmp101502)) - (unchecked-field-set! _%obj98559%_ _%field98557%_ _%val98560%_) - (if (class-instance? _%klass98555%_ _%obj98559%_) - (unchecked-slot-set! _%obj98559%_ _%slot98556%_ _%val98560%_) + (##structure-direct-instance-of? _%obj98715%_ __tmp101661)) + (unchecked-field-set! _%obj98715%_ _%field98713%_ _%val98716%_) + (if (class-instance? _%klass98711%_ _%obj98715%_) + (unchecked-slot-set! _%obj98715%_ _%slot98712%_ _%val98716%_) (not-an-instance__% - _%obj98559%_ - _%klass98555%_ - _%slot98556%_)))))) + _%obj98715%_ + _%klass98711%_ + _%slot98712%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass98549%_ _%slot98550%_ _%field98551%_) - (lambda (_%obj98553%_) - (if (let ((__tmp101503 - (let () (declare (not safe)) (##type-id _%klass98549%_)))) + (lambda (_%klass98705%_ _%slot98706%_ _%field98707%_) + (lambda (_%obj98709%_) + (if (let ((__tmp101662 + (let () (declare (not safe)) (##type-id _%klass98705%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98553%_ __tmp101503)) - (unchecked-field-ref _%obj98553%_ _%field98551%_) - (unchecked-slot-ref _%obj98553%_ _%slot98550%_))))) + (##structure-direct-instance-of? _%obj98709%_ __tmp101662)) + (unchecked-field-ref _%obj98709%_ _%field98707%_) + (unchecked-slot-ref _%obj98709%_ _%slot98706%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass98542%_ _%slot98543%_ _%field98544%_) - (lambda (_%obj98546%_ _%val98547%_) - (if (let ((__tmp101504 - (let () (declare (not safe)) (##type-id _%klass98542%_)))) + (lambda (_%klass98698%_ _%slot98699%_ _%field98700%_) + (lambda (_%obj98702%_ _%val98703%_) + (if (let ((__tmp101663 + (let () (declare (not safe)) (##type-id _%klass98698%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98546%_ __tmp101504)) - (unchecked-field-set! _%obj98546%_ _%field98544%_ _%val98547%_) - (unchecked-slot-set! _%obj98546%_ _%slot98543%_ _%val98547%_))))) + (##structure-direct-instance-of? _%obj98702%_ __tmp101663)) + (unchecked-field-set! _%obj98702%_ _%field98700%_ _%val98703%_) + (unchecked-slot-set! _%obj98702%_ _%slot98699%_ _%val98703%_))))) (define class-slot-offset - (lambda (_%klass98517%_ _%slot98518%_) + (lambda (_%klass98673%_ _%slot98674%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98517%_ 'class)) - (let ((_%klass98522%_ _%klass98517%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98518%_)) - (let ((_%slot98532%_ _%slot98518%_)) - (__class-slot-offset _%klass98522%_ _%slot98532%_)) + (##structure-instance-of? _%klass98673%_ 'class)) + (let ((_%klass98678%_ _%klass98673%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98674%_)) + (let ((_%slot98688%_ _%slot98674%_)) + (__class-slot-offset _%klass98678%_ _%slot98688%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2153,7 +2156,7 @@ 'contract: 'symbolic? 'value: - _%slot98518%_) + _%slot98674%_) '#!void))) (begin (raise-contract-violation-error @@ -2163,30 +2166,30 @@ 'contract: 'class-type? 'value: - _%klass98517%_) + _%klass98673%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass98496%_ _%slot98497%_) - (let* ((_%klass98500%_ _%klass98496%_) - (_%slot98508%_ _%slot98497%_) - (__tmp101505 + (lambda (_%klass98652%_ _%slot98653%_) + (let* ((_%klass98656%_ _%klass98652%_) + (_%slot98664%_ _%slot98653%_) + (__tmp101664 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98500%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass98656%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101505 _%slot98508%_ '#f)))) + (symbolic-table-ref __tmp101664 _%slot98664%_ '#f)))) (define class-slot-ref - (lambda (_%klass98470%_ _%obj98471%_ _%slot98472%_) + (lambda (_%klass98626%_ _%obj98627%_ _%slot98628%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98470%_ 'class)) - (let ((_%klass98476%_ _%klass98470%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98472%_)) - (let ((_%slot98486%_ _%slot98472%_)) + (##structure-instance-of? _%klass98626%_ 'class)) + (let ((_%klass98632%_ _%klass98626%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98628%_)) + (let ((_%slot98642%_ _%slot98628%_)) (__class-slot-ref - _%klass98476%_ - _%obj98471%_ - _%slot98486%_)) + _%klass98632%_ + _%obj98627%_ + _%slot98642%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2195,7 +2198,7 @@ 'contract: 'symbolic? 'value: - _%slot98472%_) + _%slot98628%_) '#!void))) (begin (raise-contract-violation-error @@ -2205,38 +2208,38 @@ 'contract: 'class-type? 'value: - _%klass98470%_) + _%klass98626%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass98446%_ _%obj98447%_ _%slot98448%_) - (let* ((_%klass98451%_ _%klass98446%_) (_%slot98459%_ _%slot98448%_)) - (if (__class-instance? _%klass98451%_ _%obj98447%_) - (let ((_%off98468%_ + (lambda (_%klass98602%_ _%obj98603%_ _%slot98604%_) + (let* ((_%klass98607%_ _%klass98602%_) (_%slot98615%_ _%slot98604%_)) + (if (__class-instance? _%klass98607%_ _%obj98603%_) + (let ((_%off98624%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj98447%_)) - _%slot98459%_))) + (##structure-type _%obj98603%_)) + _%slot98615%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj98447%_ - _%off98468%_ - _%klass98451%_ - _%slot98459%_)) - (not-an-instance__0 _%obj98447%_ _%klass98451%_))))) + _%obj98603%_ + _%off98624%_ + _%klass98607%_ + _%slot98615%_)) + (not-an-instance__0 _%obj98603%_ _%klass98607%_))))) (define class-slot-set! - (lambda (_%klass98419%_ _%obj98420%_ _%slot98421%_ _%val98422%_) + (lambda (_%klass98575%_ _%obj98576%_ _%slot98577%_ _%val98578%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98419%_ 'class)) - (let ((_%klass98426%_ _%klass98419%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98421%_)) - (let ((_%slot98436%_ _%slot98421%_)) + (##structure-instance-of? _%klass98575%_ 'class)) + (let ((_%klass98582%_ _%klass98575%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98577%_)) + (let ((_%slot98592%_ _%slot98577%_)) (__class-slot-set! - _%klass98426%_ - _%obj98420%_ - _%slot98436%_ - _%val98422%_)) + _%klass98582%_ + _%obj98576%_ + _%slot98592%_ + _%val98578%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2245,7 +2248,7 @@ 'contract: 'symbolic? 'value: - _%slot98421%_) + _%slot98577%_) '#!void))) (begin (raise-contract-violation-error @@ -2255,69 +2258,69 @@ 'contract: 'class-type? 'value: - _%klass98419%_) + _%klass98575%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass98394%_ _%obj98395%_ _%slot98396%_ _%val98397%_) - (let* ((_%klass98400%_ _%klass98394%_) (_%slot98408%_ _%slot98396%_)) - (if (__class-instance? _%klass98400%_ _%obj98395%_) - (let ((_%off98417%_ + (lambda (_%klass98550%_ _%obj98551%_ _%slot98552%_ _%val98553%_) + (let* ((_%klass98556%_ _%klass98550%_) (_%slot98564%_ _%slot98552%_)) + (if (__class-instance? _%klass98556%_ _%obj98551%_) + (let ((_%off98573%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj98395%_)) - _%slot98408%_))) + (##structure-type _%obj98551%_)) + _%slot98564%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj98395%_ - _%val98397%_ - _%off98417%_ - _%klass98400%_ - _%slot98408%_)) - (not-an-instance__0 _%obj98395%_ _%klass98400%_))))) + _%obj98551%_ + _%val98553%_ + _%off98573%_ + _%klass98556%_ + _%slot98564%_)) + (not-an-instance__0 _%obj98551%_ _%klass98556%_))))) (define unchecked-field-ref - (lambda (_%obj98391%_ _%off98392%_) - (let ((__tmp101506 - (let () (declare (not safe)) (##structure-type _%obj98391%_)))) + (lambda (_%obj98547%_ _%off98548%_) + (let ((__tmp101665 + (let () (declare (not safe)) (##structure-type _%obj98547%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj98391%_ - _%off98392%_ - __tmp101506 + _%obj98547%_ + _%off98548%_ + __tmp101665 '#f)))) (define unchecked-field-set! - (lambda (_%obj98387%_ _%off98388%_ _%val98389%_) - (let ((__tmp101507 - (let () (declare (not safe)) (##structure-type _%obj98387%_)))) + (lambda (_%obj98543%_ _%off98544%_ _%val98545%_) + (let ((__tmp101666 + (let () (declare (not safe)) (##structure-type _%obj98543%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj98387%_ - _%val98389%_ - _%off98388%_ - __tmp101507 + _%obj98543%_ + _%val98545%_ + _%off98544%_ + __tmp101666 '#f)))) (define unchecked-slot-ref - (lambda (_%obj98384%_ _%slot98385%_) + (lambda (_%obj98540%_ _%slot98541%_) (unchecked-field-ref - _%obj98384%_ + _%obj98540%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98384%_)) - _%slot98385%_)))) + (let () (declare (not safe)) (##structure-type _%obj98540%_)) + _%slot98541%_)))) (define unchecked-slot-set! - (lambda (_%obj98380%_ _%slot98381%_ _%val98382%_) + (lambda (_%obj98536%_ _%slot98537%_ _%val98538%_) (unchecked-field-set! - _%obj98380%_ + _%obj98536%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98380%_)) - _%slot98381%_) - _%val98382%_))) + (let () (declare (not safe)) (##structure-type _%obj98536%_)) + _%slot98537%_) + _%val98538%_))) (define slot-ref__% - (lambda (_%obj98342%_ _%slot98343%_ _%E98344%_) - (if (symbol? _%slot98343%_) - (let ((_%slot98348%_ _%slot98343%_)) - (if (procedure? _%E98344%_) - (let ((_%E98358%_ _%E98344%_)) - (__slot-ref__% _%obj98342%_ _%slot98348%_ _%E98358%_)) + (lambda (_%obj98498%_ _%slot98499%_ _%E98500%_) + (if (symbol? _%slot98499%_) + (let ((_%slot98504%_ _%slot98499%_)) + (if (procedure? _%E98500%_) + (let ((_%E98514%_ _%E98500%_)) + (__slot-ref__% _%obj98498%_ _%slot98504%_ _%E98514%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2326,7 +2329,7 @@ 'contract: 'procedure? 'value: - _%E98344%_) + _%E98500%_) '#!void))) (begin (raise-contract-violation-error @@ -2336,63 +2339,63 @@ 'contract: 'symbol? 'value: - _%slot98343%_) + _%slot98499%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj98371%_ _%slot98372%_) - (let ((_%E98374%_ __slot-error)) - (slot-ref__% _%obj98371%_ _%slot98372%_ _%E98374%_)))) + (lambda (_%obj98527%_ _%slot98528%_) + (let ((_%E98530%_ __slot-error)) + (slot-ref__% _%obj98527%_ _%slot98528%_ _%E98530%_)))) (define slot-ref - (lambda _g101509_ - (let ((_g101508_ (let () (declare (not safe)) (##length _g101509_)))) - (cond ((let () (declare (not safe)) (##fx= _g101508_ 2)) - (apply slot-ref__0 _g101509_)) - ((let () (declare (not safe)) (##fx= _g101508_ 3)) - (apply slot-ref__% _g101509_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g101509_)))))) + _g101668_)))))) (define __slot-ref__% - (lambda (_%obj98298%_ _%slot98299%_ _%E98300%_) - (let* ((_%slot98303%_ _%slot98299%_) - (_%E98311%_ _%E98300%_) - (_%klass98320%_ (class-of _%obj98298%_)) - (_%$e98323%_ - (__class-slot-offset _%klass98320%_ _%slot98303%_))) - (if _%$e98323%_ - ((lambda (_%off98326%_) - (unchecked-field-ref _%obj98298%_ _%off98326%_)) - _%$e98323%_) + (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%_) (let () (declare (not safe)) - (_%E98311%_ _%obj98298%_ _%slot98303%_)))))) + (_%E98467%_ _%obj98454%_ _%slot98459%_)))))) (define __slot-ref__0 - (lambda (_%obj98332%_ _%slot98333%_) - (let ((_%E98335%_ __slot-error)) - (__slot-ref__% _%obj98332%_ _%slot98333%_ _%E98335%_)))) + (lambda (_%obj98488%_ _%slot98489%_) + (let ((_%E98491%_ __slot-error)) + (__slot-ref__% _%obj98488%_ _%slot98489%_ _%E98491%_)))) (define __slot-ref - (lambda _g101511_ - (let ((_g101510_ (let () (declare (not safe)) (##length _g101511_)))) - (cond ((let () (declare (not safe)) (##fx= _g101510_ 2)) - (apply __slot-ref__0 _g101511_)) - ((let () (declare (not safe)) (##fx= _g101510_ 3)) - (apply __slot-ref__% _g101511_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g101511_)))))) + _g101670_)))))) (define slot-set!__% - (lambda (_%obj98256%_ _%slot98257%_ _%val98258%_ _%E98259%_) - (if (symbol? _%slot98257%_) - (let ((_%slot98263%_ _%slot98257%_)) - (if (procedure? _%E98259%_) - (let ((_%E98273%_ _%E98259%_)) + (lambda (_%obj98412%_ _%slot98413%_ _%val98414%_ _%E98415%_) + (if (symbol? _%slot98413%_) + (let ((_%slot98419%_ _%slot98413%_)) + (if (procedure? _%E98415%_) + (let ((_%E98429%_ _%E98415%_)) (__slot-set!__% - _%obj98256%_ - _%slot98263%_ - _%val98258%_ - _%E98273%_)) + _%obj98412%_ + _%slot98419%_ + _%val98414%_ + _%E98429%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2401,7 +2404,7 @@ 'contract: 'procedure? 'value: - _%E98259%_) + _%E98415%_) '#!void))) (begin (raise-contract-violation-error @@ -2411,79 +2414,79 @@ 'contract: 'symbol? 'value: - _%slot98257%_) + _%slot98413%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj98286%_ _%slot98287%_ _%val98288%_) - (let ((_%E98290%_ __slot-error)) - (slot-set!__% _%obj98286%_ _%slot98287%_ _%val98288%_ _%E98290%_)))) + (lambda (_%obj98442%_ _%slot98443%_ _%val98444%_) + (let ((_%E98446%_ __slot-error)) + (slot-set!__% _%obj98442%_ _%slot98443%_ _%val98444%_ _%E98446%_)))) (define slot-set! - (lambda _g101513_ - (let ((_g101512_ (let () (declare (not safe)) (##length _g101513_)))) - (cond ((let () (declare (not safe)) (##fx= _g101512_ 3)) - (apply slot-set!__0 _g101513_)) - ((let () (declare (not safe)) (##fx= _g101512_ 4)) - (apply slot-set!__% _g101513_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g101513_)))))) + _g101672_)))))) (define __slot-set!__% - (lambda (_%obj98209%_ _%slot98210%_ _%val98211%_ _%E98212%_) - (let* ((_%slot98215%_ _%slot98210%_) - (_%E98223%_ _%E98212%_) - (_%klass98232%_ (class-of _%obj98209%_)) - (_%$e98235%_ - (__class-slot-offset _%klass98232%_ _%slot98215%_))) - (if _%$e98235%_ - ((lambda (_%off98238%_) - (unchecked-field-set! _%obj98209%_ _%off98238%_ _%val98211%_)) - _%$e98235%_) + (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%_) (let () (declare (not safe)) - (_%E98223%_ _%obj98209%_ _%slot98215%_)))))) + (_%E98379%_ _%obj98365%_ _%slot98371%_)))))) (define __slot-set!__0 - (lambda (_%obj98244%_ _%slot98245%_ _%val98246%_) - (let ((_%E98248%_ __slot-error)) + (lambda (_%obj98400%_ _%slot98401%_ _%val98402%_) + (let ((_%E98404%_ __slot-error)) (__slot-set!__% - _%obj98244%_ - _%slot98245%_ - _%val98246%_ - _%E98248%_)))) + _%obj98400%_ + _%slot98401%_ + _%val98402%_ + _%E98404%_)))) (define __slot-set! - (lambda _g101515_ - (let ((_g101514_ (let () (declare (not safe)) (##length _g101515_)))) - (cond ((let () (declare (not safe)) (##fx= _g101514_ 3)) - (apply __slot-set!__0 _g101515_)) - ((let () (declare (not safe)) (##fx= _g101514_ 4)) - (apply __slot-set!__% _g101515_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g101515_)))))) + _g101674_)))))) (define __slot-error - (lambda (_%obj98205%_ _%slot98206%_) + (lambda (_%obj98361%_ _%slot98362%_) (error '"Cannot find slot" 'object: - _%obj98205%_ + _%obj98361%_ 'slot: - _%slot98206%_))) + _%slot98362%_))) (define subclass? - (lambda (_%maybe-sub-class98180%_ _%maybe-super-class98181%_) + (lambda (_%maybe-sub-class98336%_ _%maybe-super-class98337%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class98180%_ 'class)) - (let ((_%maybe-sub-class98185%_ _%maybe-sub-class98180%_)) + (##structure-instance-of? _%maybe-sub-class98336%_ 'class)) + (let ((_%maybe-sub-class98341%_ _%maybe-sub-class98336%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class98181%_ + _%maybe-super-class98337%_ 'class)) - (let ((_%maybe-super-class98195%_ - _%maybe-super-class98181%_)) + (let ((_%maybe-super-class98351%_ + _%maybe-super-class98337%_)) (__subclass? - _%maybe-sub-class98185%_ - _%maybe-super-class98195%_)) + _%maybe-sub-class98341%_ + _%maybe-super-class98351%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2492,7 +2495,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-class98181%_) + _%maybe-super-class98337%_) '#!void))) (begin (raise-contract-violation-error @@ -2502,71 +2505,71 @@ 'contract: 'class-type? 'value: - _%maybe-sub-class98180%_) + _%maybe-sub-class98336%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class98152%_ _%maybe-super-class98153%_) - (let* ((_%maybe-sub-class98156%_ _%maybe-sub-class98152%_) - (_%maybe-super-class98164%_ _%maybe-super-class98153%_) - (_%maybe-super-class-id98173%_ + (lambda (_%maybe-sub-class98308%_ _%maybe-super-class98309%_) + (let* ((_%maybe-sub-class98312%_ _%maybe-sub-class98308%_) + (_%maybe-super-class98320%_ _%maybe-super-class98309%_) + (_%maybe-super-class-id98329%_ (let () (declare (not safe)) - (##type-id _%maybe-super-class98164%_))) - (_%$e98175%_ - (eq? _%maybe-super-class-id98173%_ + (##type-id _%maybe-super-class98320%_))) + (_%$e98331%_ + (eq? _%maybe-super-class-id98329%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class98156%_))))) - (if _%$e98175%_ - _%$e98175%_ - (let ((__tmp101517 - (lambda (_%super-class98178%_) + (##type-id _%maybe-sub-class98312%_))))) + (if _%$e98331%_ + _%$e98331%_ + (let ((__tmp101676 + (lambda (_%super-class98334%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class98178%_)) - _%maybe-super-class-id98173%_))) - (__tmp101516 + (##type-id _%super-class98334%_)) + _%maybe-super-class-id98329%_))) + (__tmp101675 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class98156%_ + _%maybe-sub-class98312%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp101517 __tmp101516)))))) + (__ormap1 __tmp101676 __tmp101675)))))) (define object? - (lambda (_%o98149%_) - (if (let () (declare (not safe)) (##structure? _%o98149%_)) - (let ((__tmp101518 + (lambda (_%o98305%_) + (if (let () (declare (not safe)) (##structure? _%o98305%_)) + (let ((__tmp101677 (let () (declare (not safe)) - (##structure-type _%o98149%_)))) + (##structure-type _%o98305%_)))) (declare (not safe)) - (##structure-instance-of? __tmp101518 'class)) + (##structure-instance-of? __tmp101677 'class)) '#f))) (define object-type - (lambda (_%o98144%_) - (if (let () (declare (not safe)) (##structure? _%o98144%_)) - (let ((_%klass98147%_ + (lambda (_%o98300%_) + (if (let () (declare (not safe)) (##structure? _%o98300%_)) + (let ((_%klass98303%_ (let () (declare (not safe)) - (##structure-type _%o98144%_)))) + (##structure-type _%o98300%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98147%_ 'class)) - _%klass98147%_ + (##structure-instance-of? _%klass98303%_ 'class)) + _%klass98303%_ (begin - (error '"not an object" _%o98144%_ _%klass98147%_) + (error '"not an object" _%o98300%_ _%klass98303%_) '#!void))) - (begin (error '"not an object" _%o98144%_) '#!void)))) + (begin (error '"not an object" _%o98300%_) '#!void)))) (define direct-instance? - (lambda (_%klass98129%_ _%obj98130%_) + (lambda (_%klass98285%_ _%obj98286%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98129%_ 'class)) - (let ((_%klass98134%_ _%klass98129%_)) - (__direct-instance? _%klass98134%_ _%obj98130%_)) + (##structure-instance-of? _%klass98285%_ 'class)) + (let ((_%klass98290%_ _%klass98285%_)) + (__direct-instance? _%klass98290%_ _%obj98286%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2575,28 +2578,28 @@ 'contract: 'class-type? 'value: - _%klass98129%_) + _%klass98285%_) '#!void)))) (define __direct-instance? - (lambda (_%klass98116%_ _%obj98117%_) - (let* ((_%klass98120%_ _%klass98116%_) - (__tmp101519 - (let () (declare (not safe)) (##type-id _%klass98120%_)))) + (lambda (_%klass98272%_ _%obj98273%_) + (let* ((_%klass98276%_ _%klass98272%_) + (__tmp101678 + (let () (declare (not safe)) (##type-id _%klass98276%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98117%_ __tmp101519)))) + (##structure-direct-instance-of? _%obj98273%_ __tmp101678)))) (define immediate-instance-of? - (lambda (_%klass98112%_ _%obj98113%_) - (if (let () (declare (not safe)) (##structure? _%obj98113%_)) - (eq? _%klass98112%_ - (let () (declare (not safe)) (##structure-type _%obj98113%_))) + (lambda (_%klass98268%_ _%obj98269%_) + (if (let () (declare (not safe)) (##structure? _%obj98269%_)) + (eq? _%klass98268%_ + (let () (declare (not safe)) (##structure-type _%obj98269%_))) '#f))) (define struct-instance? - (lambda (_%klass98097%_ _%obj98098%_) + (lambda (_%klass98253%_ _%obj98254%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98097%_ 'class)) - (let ((_%klass98102%_ _%klass98097%_)) - (__struct-instance? _%klass98102%_ _%obj98098%_)) + (##structure-instance-of? _%klass98253%_ 'class)) + (let ((_%klass98258%_ _%klass98253%_)) + (__struct-instance? _%klass98258%_ _%obj98254%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2605,22 +2608,22 @@ 'contract: 'class-type? 'value: - _%klass98097%_) + _%klass98253%_) '#!void)))) (define __struct-instance? - (lambda (_%klass98084%_ _%obj98085%_) - (let* ((_%klass98088%_ _%klass98084%_) - (__tmp101520 - (let () (declare (not safe)) (##type-id _%klass98088%_)))) + (lambda (_%klass98240%_ _%obj98241%_) + (let* ((_%klass98244%_ _%klass98240%_) + (__tmp101679 + (let () (declare (not safe)) (##type-id _%klass98244%_)))) (declare (not safe)) - (##structure-instance-of? _%obj98085%_ __tmp101520)))) + (##structure-instance-of? _%obj98241%_ __tmp101679)))) (define class-instance? - (lambda (_%klass98069%_ _%obj98070%_) + (lambda (_%klass98225%_ _%obj98226%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98069%_ 'class)) - (let ((_%klass98074%_ _%klass98069%_)) - (__class-instance? _%klass98074%_ _%obj98070%_)) + (##structure-instance-of? _%klass98225%_ 'class)) + (let ((_%klass98230%_ _%klass98225%_)) + (__class-instance? _%klass98230%_ _%obj98226%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2629,22 +2632,22 @@ 'contract: 'class-type? 'value: - _%klass98069%_) + _%klass98225%_) '#!void)))) (define __class-instance? - (lambda (_%klass98054%_ _%obj98055%_) - (let* ((_%klass98058%_ _%klass98054%_) - (_%type98067%_ (class-of _%obj98055%_))) - (__subclass? _%type98067%_ _%klass98058%_)))) + (lambda (_%klass98210%_ _%obj98211%_) + (let* ((_%klass98214%_ _%klass98210%_) + (_%type98223%_ (class-of _%obj98211%_))) + (__subclass? _%type98223%_ _%klass98214%_)))) (define make-object - (lambda (_%klass98029%_ _%k98030%_) + (lambda (_%klass98185%_ _%k98186%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98029%_ 'class)) - (let ((_%klass98034%_ _%klass98029%_)) - (if (fixnum? _%k98030%_) - (let ((_%k98044%_ _%k98030%_)) - (__make-object _%klass98034%_ _%k98044%_)) + (##structure-instance-of? _%klass98185%_ 'class)) + (let ((_%klass98190%_ _%klass98185%_)) + (if (fixnum? _%k98186%_) + (let ((_%k98200%_ _%k98186%_)) + (__make-object _%klass98190%_ _%k98200%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2653,7 +2656,7 @@ 'contract: 'fixnum? 'value: - _%k98030%_) + _%k98186%_) '#!void))) (begin (raise-contract-violation-error @@ -2663,27 +2666,27 @@ 'contract: 'class-type? 'value: - _%klass98029%_) + _%klass98185%_) '#!void)))) (define __make-object - (lambda (_%klass98006%_ _%k98007%_) - (let* ((_%klass98010%_ _%klass98006%_) (_%k98018%_ _%k98007%_)) - (if (__class-type-system? _%klass98010%_) + (lambda (_%klass98162%_ _%k98163%_) + (let* ((_%klass98166%_ _%klass98162%_) (_%k98174%_ _%k98163%_)) + (if (__class-type-system? _%klass98166%_) (begin (error '"cannot instantiate system class" 'class: - _%klass98010%_) + _%klass98166%_) '#!void) - (let ((_%obj98027%_ + (let ((_%obj98183%_ (let () (declare (not safe)) - (##make-structure _%klass98010%_ _%k98018%_)))) - (object-fill! _%obj98027%_ '#f)))))) + (##make-structure _%klass98166%_ _%k98174%_)))) + (object-fill! _%obj98183%_ '#f)))))) (define object-fill! - (lambda (_%obj97991%_ _%fill97992%_) + (lambda (_%obj98147%_ _%fill98148%_) (if '#t - (let ((_%obj97996%_ _%obj97991%_)) - (__object-fill! _%obj97996%_ _%fill97992%_)) + (let ((_%obj98152%_ _%obj98147%_)) + (__object-fill! _%obj98152%_ _%fill98148%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2692,38 +2695,38 @@ 'contract: 'true 'value: - _%obj97991%_) + _%obj98147%_) '#!void)))) (define __object-fill! - (lambda (_%obj97973%_ _%fill97974%_) - (let ((_%obj97977%_ _%obj97973%_)) - (let _%loop97986%_ ((_%i97988%_ - (let ((__tmp101521 + (lambda (_%obj98129%_ _%fill98130%_) + (let ((_%obj98133%_ _%obj98129%_)) + (let _%loop98142%_ ((_%i98144%_ + (let ((__tmp101680 (let () (declare (not safe)) - (##structure-length _%obj97977%_)))) + (##structure-length _%obj98133%_)))) (declare (not safe)) - (##fx- __tmp101521 '1)))) - (if (let () (declare (not safe)) (##fx> _%i97988%_ '0)) + (##fx- __tmp101680 '1)))) + (if (let () (declare (not safe)) (##fx> _%i98144%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj97977%_ - _%fill97974%_ - _%i97988%_ + _%obj98133%_ + _%fill98130%_ + _%i98144%_ '#f '#f)) - (_%loop97986%_ - (let () (declare (not safe)) (##fx- _%i97988%_ '1)))) - _%obj97977%_))))) + (_%loop98142%_ + (let () (declare (not safe)) (##fx- _%i98144%_ '1)))) + _%obj98133%_))))) (define new-instance - (lambda (_%klass97959%_) + (lambda (_%klass98115%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97959%_ 'class)) - (let ((_%klass97963%_ _%klass97959%_)) - (__new-instance _%klass97963%_)) + (##structure-instance-of? _%klass98115%_ 'class)) + (let ((_%klass98119%_ _%klass98115%_)) + (__new-instance _%klass98119%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2732,35 +2735,35 @@ 'contract: 'class-type? 'value: - _%klass97959%_) + _%klass98115%_) '#!void)))) (define __new-instance - (lambda (_%klass97947%_) - (let* ((_%klass97950%_ _%klass97947%_) - (__obj101436 - (let ((__tmp101522 - (let ((__tmp101523 + (lambda (_%klass98103%_) + (let* ((_%klass98106%_ _%klass98103%_) + (__obj101595 + (let ((__tmp101681 + (let ((__tmp101682 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97950%_ + _%klass98106%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101523)))) + (##vector-length __tmp101682)))) (declare (not safe)) - (##make-structure _%klass97950%_ __tmp101522)))) - (object-fill! __obj101436 '#f) - __obj101436))) + (##make-structure _%klass98106%_ __tmp101681)))) + (object-fill! __obj101595 '#f) + __obj101595))) (define make-instance - (lambda (_%klass97932%_ . _%args97933%_) + (lambda (_%klass98088%_ . _%args98089%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97932%_ 'class)) - (let ((_%klass97937%_ _%klass97932%_)) + (##structure-instance-of? _%klass98088%_ 'class)) + (let ((_%klass98093%_ _%klass98088%_)) (declare (not safe)) - (##apply __make-instance _%klass97937%_ _%args97933%_)) + (##apply __make-instance _%klass98093%_ _%args98089%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2769,64 +2772,64 @@ 'contract: 'class-type? 'value: - _%klass97932%_) + _%klass98088%_) '#!void)))) (define __make-instance - (lambda (_%klass97904%_ . _%args97905%_) - (let* ((_%klass97908%_ _%klass97904%_) - (_%$e97917%_ + (lambda (_%klass98060%_ . _%args98061%_) + (let* ((_%klass98064%_ _%klass98060%_) + (_%$e98073%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97908%_ '10 '#f '#f)))) - (if _%$e97917%_ - ((lambda (_%kons-id97920%_) - (let ((_%obj97922%_ (__new-instance _%klass97908%_))) + (##unchecked-structure-ref _%klass98064%_ '10 '#f '#f)))) + (if _%$e98073%_ + ((lambda (_%kons-id98076%_) + (let ((_%obj98078%_ (__new-instance _%klass98064%_))) (___constructor-init! - _%klass97908%_ - _%kons-id97920%_ - _%obj97922%_ - _%args97905%_) - _%obj97922%_)) - _%$e97917%_) - (if (__class-type-metaclass? _%klass97908%_) - (let ((_%obj97925%_ (__new-instance _%klass97908%_))) + _%klass98064%_ + _%kons-id98076%_ + _%obj98078%_ + _%args98061%_) + _%obj98078%_)) + _%$e98073%_) + (if (__class-type-metaclass? _%klass98064%_) + (let ((_%obj98081%_ (__new-instance _%klass98064%_))) (__metaclass-instance-init! - _%klass97908%_ - _%obj97925%_ - _%args97905%_) - _%obj97925%_) - (if (__class-type-struct? _%klass97908%_) - (if (let ((__tmp101525 - (__class-type-field-count _%klass97908%_)) - (__tmp101524 + _%klass98064%_ + _%obj98081%_ + _%args98061%_) + _%obj98081%_) + (if (__class-type-struct? _%klass98064%_) + (if (let ((__tmp101684 + (__class-type-field-count _%klass98064%_)) + (__tmp101683 (let () (declare (not safe)) - (##length _%args97905%_)))) + (##length _%args98061%_)))) (declare (not safe)) - (##fx= __tmp101525 __tmp101524)) - (apply ##structure _%klass97908%_ _%args97905%_) + (##fx= __tmp101684 __tmp101683)) + (apply ##structure _%klass98064%_ _%args98061%_) (let () (error '"arguments don't match object size" 'class: - _%klass97908%_ + _%klass98064%_ 'slots: - (__class-type-slot-list _%klass97908%_) + (__class-type-slot-list _%klass98064%_) 'args: - _%args97905%_) + _%args98061%_) '#!void)) - (let ((_%obj97928%_ (__new-instance _%klass97908%_))) + (let ((_%obj98084%_ (__new-instance _%klass98064%_))) (___class-instance-init! - _%klass97908%_ - _%obj97928%_ - _%args97905%_) - _%obj97928%_))))))) + _%klass98064%_ + _%obj98084%_ + _%args98061%_) + _%obj98084%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj97889%_ . _%args97890%_) + (lambda (_%obj98045%_ . _%args98046%_) (if '#t - (let ((_%obj97894%_ _%obj97889%_)) + (let ((_%obj98050%_ _%obj98045%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj97894%_ _%args97890%_)) + (##apply __struct-instance-init! _%obj98050%_ _%args98046%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2835,56 +2838,56 @@ 'contract: 'true 'value: - _%obj97889%_) + _%obj98045%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj97876%_ . _%args97877%_) - (let ((_%obj97880%_ _%obj97876%_)) - (if (let ((__tmp101527 - (let () (declare (not safe)) (##length _%args97877%_))) - (__tmp101526 + (lambda (_%obj98032%_ . _%args98033%_) + (let ((_%obj98036%_ _%obj98032%_)) + (if (let ((__tmp101686 + (let () (declare (not safe)) (##length _%args98033%_))) + (__tmp101685 (let () (declare (not safe)) - (##structure-length _%obj97880%_)))) + (##structure-length _%obj98036%_)))) (declare (not safe)) - (##fx< __tmp101527 __tmp101526)) - (___struct-instance-init! _%obj97880%_ _%args97877%_) + (##fx< __tmp101686 __tmp101685)) + (___struct-instance-init! _%obj98036%_ _%args98033%_) (error '"too many arguments for struct" 'object: - _%obj97880%_ + _%obj98036%_ 'args: - _%args97877%_)) + _%args98033%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj97835%_ _%args97836%_) - (let _%lp97838%_ ((_%k97840%_ '1) (_%rest97841%_ _%args97836%_)) - (let* ((_%rest9784297850%_ _%rest97841%_) - (_%else9784497858%_ (lambda () _%obj97835%_)) - (_%K9784697864%_ - (lambda (_%rest97861%_ _%hd97862%_) - (unchecked-field-set! _%obj97835%_ _%k97840%_ _%hd97862%_) - (_%lp97838%_ - (let () (declare (not safe)) (##fx+ _%k97840%_ '1)) - _%rest97861%_)))) - (if (pair? _%rest9784297850%_) - (let ((_%hd9784797867%_ + (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%_ (let () (declare (not safe)) - (##car _%rest9784297850%_))) - (_%tl9784897869%_ + (##car _%rest9799898006%_))) + (_%tl9800498025%_ (let () (declare (not safe)) - (##cdr _%rest9784297850%_)))) - (let* ((_%hd97872%_ _%hd9784797867%_) - (_%rest97874%_ _%tl9784897869%_)) - (_%K9784697864%_ _%rest97874%_ _%hd97872%_))) - (_%else9784497858%_)))))) + (##cdr _%rest9799898006%_)))) + (let* ((_%hd98028%_ _%hd9800398023%_) + (_%rest98030%_ _%tl9800498025%_)) + (_%K9800298020%_ _%rest98030%_ _%hd98028%_))) + (_%else9800098014%_)))))) (define class-instance-init! - (lambda (_%obj97820%_ . _%args97821%_) + (lambda (_%obj97976%_ . _%args97977%_) (if '#t - (let ((_%obj97825%_ _%obj97820%_)) + (let ((_%obj97981%_ _%obj97976%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj97825%_ _%args97821%_)) + (##apply __class-instance-init! _%obj97981%_ _%args97977%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2893,102 +2896,102 @@ 'contract: 'true 'value: - _%obj97820%_) + _%obj97976%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj97807%_ . _%args97808%_) - (let ((_%obj97811%_ _%obj97807%_)) + (lambda (_%obj97963%_ . _%args97964%_) + (let ((_%obj97967%_ _%obj97963%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj97811%_)) - _%obj97811%_ - _%args97808%_) + (let () (declare (not safe)) (##structure-type _%obj97967%_)) + _%obj97967%_ + _%args97964%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass97749%_ _%obj97750%_ _%args97751%_) - (let _%lp97753%_ ((_%rest97755%_ _%args97751%_)) - (let* ((_%rest9775697766%_ _%rest97755%_) - (_%else9775897774%_ + (lambda (_%klass97905%_ _%obj97906%_ _%args97907%_) + (let _%lp97909%_ ((_%rest97911%_ _%args97907%_)) + (let* ((_%rest9791297922%_ _%rest97911%_) + (_%else9791497930%_ (lambda () - (if (null? _%rest97755%_) - _%obj97750%_ + (if (null? _%rest97911%_) + _%obj97906%_ (error '"unexpected class initializer arguments" 'class: - _%klass97749%_ + _%klass97905%_ 'rest: - _%rest97755%_)))) - (_%K9776097788%_ - (lambda (_%rest97777%_ _%val97778%_ _%key97779%_) - (if (keyword? _%key97779%_) - (let ((_%$e97782%_ + _%rest97911%_)))) + (_%K9791697944%_ + (lambda (_%rest97933%_ _%val97934%_ _%key97935%_) + (if (keyword? _%key97935%_) + (let ((_%$e97938%_ (__class-slot-offset - _%klass97749%_ - _%key97779%_))) - (if _%$e97782%_ - ((lambda (_%off97785%_) + _%klass97905%_ + _%key97935%_))) + (if _%$e97938%_ + ((lambda (_%off97941%_) (unchecked-field-set! - _%obj97750%_ - _%off97785%_ - _%val97778%_) - (_%lp97753%_ _%rest97777%_)) - _%$e97782%_) + _%obj97906%_ + _%off97941%_ + _%val97934%_) + (_%lp97909%_ _%rest97933%_)) + _%$e97938%_) (error '"unknown slot" 'class: - _%klass97749%_ + _%klass97905%_ 'slot: - _%key97779%_))) + _%key97935%_))) (error '"non keyword slot initializer" 'slot: - _%key97779%_))))) - (if (pair? _%rest9775697766%_) - (let ((_%hd9776197791%_ + _%key97935%_))))) + (if (pair? _%rest9791297922%_) + (let ((_%hd9791797947%_ (let () (declare (not safe)) - (##car _%rest9775697766%_))) - (_%tl9776297793%_ + (##car _%rest9791297922%_))) + (_%tl9791897949%_ (let () (declare (not safe)) - (##cdr _%rest9775697766%_)))) - (let ((_%key97796%_ _%hd9776197791%_)) - (if (pair? _%tl9776297793%_) - (let ((_%hd9776397798%_ + (##cdr _%rest9791297922%_)))) + (let ((_%key97952%_ _%hd9791797947%_)) + (if (pair? _%tl9791897949%_) + (let ((_%hd9791997954%_ (let () (declare (not safe)) - (##car _%tl9776297793%_))) - (_%tl9776497800%_ + (##car _%tl9791897949%_))) + (_%tl9792097956%_ (let () (declare (not safe)) - (##cdr _%tl9776297793%_)))) - (let* ((_%val97803%_ _%hd9776397798%_) - (_%rest97805%_ _%tl9776497800%_)) - (_%K9776097788%_ - _%rest97805%_ - _%val97803%_ - _%key97796%_))) - (_%else9775897774%_)))) - (_%else9775897774%_)))))) + (##cdr _%tl9791897949%_)))) + (let* ((_%val97959%_ _%hd9791997954%_) + (_%rest97961%_ _%tl9792097956%_)) + (_%K9791697944%_ + _%rest97961%_ + _%val97959%_ + _%key97952%_))) + (_%else9791497930%_)))) + (_%else9791497930%_)))))) (define __metaclass-instance-init! - (lambda (_%klass97745%_ _%obj97746%_ _%args97747%_) + (lambda (_%klass97901%_ _%obj97902%_ _%args97903%_) (apply call-method - _%klass97745%_ + _%klass97901%_ 'instance-init! - _%obj97746%_ - _%args97747%_))) + _%obj97902%_ + _%args97903%_))) (define constructor-init! - (lambda (_%klass97708%_ _%kons-id97709%_ _%obj97710%_ . _%args97711%_) + (lambda (_%klass97864%_ _%kons-id97865%_ _%obj97866%_ . _%args97867%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97708%_ 'class)) - (let ((_%klass97715%_ _%klass97708%_)) - (if (symbol? _%kons-id97709%_) - (let ((_%kons-id97725%_ _%kons-id97709%_)) + (##structure-instance-of? _%klass97864%_ 'class)) + (let ((_%klass97871%_ _%klass97864%_)) + (if (symbol? _%kons-id97865%_) + (let ((_%kons-id97881%_ _%kons-id97865%_)) (if '#t - (let ((_%obj97735%_ _%obj97710%_)) + (let ((_%obj97891%_ _%obj97866%_)) (declare (not safe)) (##apply __constructor-init! - _%klass97715%_ - _%kons-id97725%_ - _%obj97735%_ - _%args97711%_)) + _%klass97871%_ + _%kons-id97881%_ + _%obj97891%_ + _%args97867%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2997,7 +3000,7 @@ 'contract: 'true 'value: - _%obj97710%_) + _%obj97866%_) '#!void))) (begin (raise-contract-violation-error @@ -3007,7 +3010,7 @@ 'contract: 'symbol? 'value: - _%kons-id97709%_) + _%kons-id97865%_) '#!void))) (begin (raise-contract-violation-error @@ -3017,38 +3020,38 @@ 'contract: 'class-type? 'value: - _%klass97708%_) + _%klass97864%_) '#!void)))) (define __constructor-init! - (lambda (_%klass97677%_ _%kons-id97678%_ _%obj97679%_ . _%args97680%_) - (let* ((_%klass97683%_ _%klass97677%_) - (_%kons-id97691%_ _%kons-id97678%_) - (_%obj97699%_ _%obj97679%_)) + (lambda (_%klass97833%_ _%kons-id97834%_ _%obj97835%_ . _%args97836%_) + (let* ((_%klass97839%_ _%klass97833%_) + (_%kons-id97847%_ _%kons-id97834%_) + (_%obj97855%_ _%obj97835%_)) (___constructor-init! - _%klass97683%_ - _%kons-id97691%_ - _%obj97699%_ - _%args97680%_) + _%klass97839%_ + _%kons-id97847%_ + _%obj97855%_ + _%args97836%_) '#!void))) (define ___constructor-init! - (lambda (_%klass97666%_ _%kons-id97667%_ _%obj97668%_ _%args97669%_) - (let ((_%$e97671%_ - (__find-method _%klass97666%_ _%obj97668%_ _%kons-id97667%_))) - (if _%$e97671%_ - ((lambda (_%kons97674%_) - (apply _%kons97674%_ _%obj97668%_ _%args97669%_) - _%obj97668%_) - _%$e97671%_) + (lambda (_%klass97822%_ _%kons-id97823%_ _%obj97824%_ _%args97825%_) + (let ((_%$e97827%_ + (__find-method _%klass97822%_ _%obj97824%_ _%kons-id97823%_))) + (if _%$e97827%_ + ((lambda (_%kons97830%_) + (apply _%kons97830%_ _%obj97824%_ _%args97825%_) + _%obj97824%_) + _%$e97827%_) (error '"missing constructor" 'class: - _%klass97666%_ + _%klass97822%_ 'method: - _%kons-id97667%_))))) + _%kons-id97823%_))))) (define struct-copy - (lambda (_%struct97652%_) + (lambda (_%struct97808%_) (if '#t - (let ((_%struct97656%_ _%struct97652%_)) - (__struct-copy _%struct97656%_)) + (let ((_%struct97812%_ _%struct97808%_)) + (__struct-copy _%struct97812%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3057,17 +3060,17 @@ 'contract: 'true 'value: - _%struct97652%_) + _%struct97808%_) '#!void)))) (define __struct-copy - (lambda (_%struct97640%_) - (let ((_%struct97643%_ _%struct97640%_)) + (lambda (_%struct97796%_) + (let ((_%struct97799%_ _%struct97796%_)) (declare (not safe)) - (##structure-copy _%struct97643%_)))) + (##structure-copy _%struct97799%_)))) (define struct->list - (lambda (_%obj97626%_) + (lambda (_%obj97782%_) (if '#t - (let ((_%obj97630%_ _%obj97626%_)) (__struct->list _%obj97630%_)) + (let ((_%obj97786%_ _%obj97782%_)) (__struct->list _%obj97786%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3076,17 +3079,17 @@ 'contract: 'true 'value: - _%obj97626%_) + _%obj97782%_) '#!void)))) (define __struct->list - (lambda (_%obj97614%_) - (let ((_%obj97617%_ _%obj97614%_)) + (lambda (_%obj97770%_) + (let ((_%obj97773%_ _%obj97770%_)) (declare (not safe)) - (##vector->list _%obj97617%_)))) + (##vector->list _%obj97773%_)))) (define class->list - (lambda (_%obj97600%_) + (lambda (_%obj97756%_) (if '#t - (let ((_%obj97604%_ _%obj97600%_)) (__class->list _%obj97604%_)) + (let ((_%obj97760%_ _%obj97756%_)) (__class->list _%obj97760%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3095,47 +3098,47 @@ 'contract: 'true 'value: - _%obj97600%_) + _%obj97756%_) '#!void)))) (define __class->list - (lambda (_%obj97576%_) - (let* ((_%obj97579%_ _%obj97576%_) - (_%klass97588%_ - (let () (declare (not safe)) (##structure-type _%obj97579%_))) - (_%slot-vector97590%_ + (lambda (_%obj97732%_) + (let* ((_%obj97735%_ _%obj97732%_) + (_%klass97744%_ + (let () (declare (not safe)) (##structure-type _%obj97735%_))) + (_%slot-vector97746%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97588%_ '7 '#f '#f)))) - (let _%loop97592%_ ((_%index97594%_ - (let ((__tmp101528 + (##unchecked-structure-ref _%klass97744%_ '7 '#f '#f)))) + (let _%loop97748%_ ((_%index97750%_ + (let ((__tmp101687 (let () (declare (not safe)) (##vector-length - _%slot-vector97590%_)))) + _%slot-vector97746%_)))) (declare (not safe)) - (##fx- __tmp101528 '1))) - (_%plist97595%_ '())) - (if (let () (declare (not safe)) (##fx< _%index97594%_ '1)) - (cons _%klass97588%_ _%plist97595%_) - (let ((_%slot97598%_ + (##fx- __tmp101687 '1))) + (_%plist97751%_ '())) + (if (let () (declare (not safe)) (##fx< _%index97750%_ '1)) + (cons _%klass97744%_ _%plist97751%_) + (let ((_%slot97754%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector97590%_ _%index97594%_)))) - (_%loop97592%_ - (let () (declare (not safe)) (##fx- _%index97594%_ '1)) + (##vector-ref _%slot-vector97746%_ _%index97750%_)))) + (_%loop97748%_ + (let () (declare (not safe)) (##fx- _%index97750%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot97598%_)) + (symbol->keyword _%slot97754%_)) (cons (unchecked-field-ref - _%obj97579%_ - _%index97594%_) - _%plist97595%_))))))))) + _%obj97735%_ + _%index97750%_) + _%plist97751%_))))))))) (define call-method - (lambda (_%obj97560%_ _%id97561%_ . _%args97562%_) - (if (symbol? _%id97561%_) - (let ((_%id97566%_ _%id97561%_)) + (lambda (_%obj97716%_ _%id97717%_ . _%args97718%_) + (if (symbol? _%id97717%_) + (let ((_%id97722%_ _%id97717%_)) (declare (not safe)) - (##apply __call-method _%obj97560%_ _%id97566%_ _%args97562%_)) + (##apply __call-method _%obj97716%_ _%id97722%_ _%args97718%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3144,27 +3147,27 @@ 'contract: 'symbol? 'value: - _%id97561%_) + _%id97717%_) '#!void)))) (define __call-method - (lambda (_%obj97529%_ _%id97530%_ . _%args97531%_) - (let* ((_%id97534%_ _%id97530%_) - (_%$e97543%_ (__method-ref _%obj97529%_ _%id97534%_))) - (if _%$e97543%_ - ((lambda (_%method97546%_) - (let ((_%method97548%_ _%method97546%_)) - (apply _%method97548%_ _%obj97529%_ _%args97531%_))) - _%$e97543%_) + (lambda (_%obj97685%_ _%id97686%_ . _%args97687%_) + (let* ((_%id97690%_ _%id97686%_) + (_%$e97699%_ (__method-ref _%obj97685%_ _%id97690%_))) + (if _%$e97699%_ + ((lambda (_%method97702%_) + (let ((_%method97704%_ _%method97702%_)) + (apply _%method97704%_ _%obj97685%_ _%args97687%_))) + _%$e97699%_) (error '"cannot find method" 'object: - _%obj97529%_ + _%obj97685%_ 'method: - _%id97534%_))))) + _%id97690%_))))) (define method-ref - (lambda (_%obj97514%_ _%id97515%_) - (if (symbol? _%id97515%_) - (let ((_%id97519%_ _%id97515%_)) - (__method-ref _%obj97514%_ _%id97519%_)) + (lambda (_%obj97670%_ _%id97671%_) + (if (symbol? _%id97671%_) + (let ((_%id97675%_ _%id97671%_)) + (__method-ref _%obj97670%_ _%id97675%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3173,29 +3176,29 @@ 'contract: 'symbol? 'value: - _%id97515%_) + _%id97671%_) '#!void)))) (define __method-ref - (lambda (_%obj97501%_ _%id97502%_) - (let ((_%id97505%_ _%id97502%_)) - (__find-method (class-of _%obj97501%_) _%obj97501%_ _%id97505%_)))) + (lambda (_%obj97657%_ _%id97658%_) + (let ((_%id97661%_ _%id97658%_)) + (__find-method (class-of _%obj97657%_) _%obj97657%_ _%id97661%_)))) (define checked-method-ref - (lambda (_%obj97494%_ _%id97495%_) - (let ((_%$e97498%_ (method-ref _%obj97494%_ _%id97495%_))) - (if _%$e97498%_ - _%$e97498%_ + (lambda (_%obj97650%_ _%id97651%_) + (let ((_%$e97654%_ (method-ref _%obj97650%_ _%id97651%_))) + (if _%$e97654%_ + _%$e97654%_ (begin (error '"missing method" 'object: - _%obj97494%_ + _%obj97650%_ 'method: - _%id97495%_) + _%id97651%_) '#!void))))) (define bound-method-ref - (lambda (_%obj97479%_ _%id97480%_) - (if (symbol? _%id97480%_) - (let ((_%id97484%_ _%id97480%_)) - (__bound-method-ref _%obj97479%_ _%id97484%_)) + (lambda (_%obj97635%_ _%id97636%_) + (if (symbol? _%id97636%_) + (let ((_%id97640%_ _%id97636%_)) + (__bound-method-ref _%obj97635%_ _%id97640%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3204,24 +3207,24 @@ 'contract: 'symbol? 'value: - _%id97480%_) + _%id97636%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj97447%_ _%id97448%_) - (let* ((_%id97451%_ _%id97448%_) - (_%$e97460%_ (__method-ref _%obj97447%_ _%id97451%_))) - (if _%$e97460%_ - ((lambda (_%method97463%_) - (let ((_%method97465%_ _%method97463%_)) - (lambda _%args97476%_ - (apply _%method97465%_ _%obj97447%_ _%args97476%_)))) - _%$e97460%_) + (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%_) '#f)))) (define checked-bound-method-ref - (lambda (_%obj97432%_ _%id97433%_) - (if (symbol? _%id97433%_) - (let ((_%id97437%_ _%id97433%_)) - (__checked-bound-method-ref _%obj97432%_ _%id97437%_)) + (lambda (_%obj97588%_ _%id97589%_) + (if (symbol? _%id97589%_) + (let ((_%id97593%_ _%id97589%_)) + (__checked-bound-method-ref _%obj97588%_ _%id97593%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3230,23 +3233,23 @@ 'contract: 'symbol? 'value: - _%id97433%_) + _%id97589%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj97415%_ _%id97416%_) - (let* ((_%id97419%_ _%id97416%_) - (_%method97428%_ (checked-method-ref _%obj97415%_ _%id97419%_))) - (lambda _%args97430%_ - (apply _%method97428%_ _%obj97415%_ _%args97430%_))))) + (lambda (_%obj97571%_ _%id97572%_) + (let* ((_%id97575%_ _%id97572%_) + (_%method97584%_ (checked-method-ref _%obj97571%_ _%id97575%_))) + (lambda _%args97586%_ + (apply _%method97584%_ _%obj97571%_ _%args97586%_))))) (define find-method - (lambda (_%klass97389%_ _%obj97390%_ _%id97391%_) + (lambda (_%klass97545%_ _%obj97546%_ _%id97547%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97389%_ 'class)) - (let ((_%klass97395%_ _%klass97389%_)) - (if (symbol? _%id97391%_) - (let ((_%id97405%_ _%id97391%_)) - (__find-method _%klass97395%_ _%obj97390%_ _%id97405%_)) + (##structure-instance-of? _%klass97545%_ 'class)) + (let ((_%klass97551%_ _%klass97545%_)) + (if (symbol? _%id97547%_) + (let ((_%id97561%_ _%id97547%_)) + (__find-method _%klass97551%_ _%obj97546%_ _%id97561%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3255,7 +3258,7 @@ 'contract: 'symbol? 'value: - _%id97391%_) + _%id97547%_) '#!void))) (begin (raise-contract-violation-error @@ -3265,27 +3268,27 @@ 'contract: 'class-type? 'value: - _%klass97389%_) + _%klass97545%_) '#!void)))) (define __find-method - (lambda (_%klass97362%_ _%obj97363%_ _%id97364%_) - (let* ((_%klass97367%_ _%klass97362%_) - (_%id97375%_ _%id97364%_) - (_%$e97384%_ - (__direct-method-ref _%klass97367%_ _%obj97363%_ _%id97375%_))) - (if _%$e97384%_ - _%$e97384%_ - (if (__class-type-sealed? _%klass97367%_) + (lambda (_%klass97518%_ _%obj97519%_ _%id97520%_) + (let* ((_%klass97523%_ _%klass97518%_) + (_%id97531%_ _%id97520%_) + (_%$e97540%_ + (__direct-method-ref _%klass97523%_ _%obj97519%_ _%id97531%_))) + (if _%$e97540%_ + _%$e97540%_ + (if (__class-type-sealed? _%klass97523%_) '#f (__mixin-method-ref - _%klass97367%_ - _%obj97363%_ - _%id97375%_)))))) + _%klass97523%_ + _%obj97519%_ + _%id97531%_)))))) (define mixin-find-method - (lambda (_%mixins97346%_ _%obj97347%_ _%id97348%_) - (if (symbol? _%id97348%_) - (let ((_%id97352%_ _%id97348%_)) - (__mixin-find-method _%mixins97346%_ _%obj97347%_ _%id97352%_)) + (lambda (_%mixins97502%_ _%obj97503%_ _%id97504%_) + (if (symbol? _%id97504%_) + (let ((_%id97508%_ _%id97504%_)) + (__mixin-find-method _%mixins97502%_ _%obj97503%_ _%id97508%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3294,31 +3297,31 @@ 'contract: 'symbol? 'value: - _%id97348%_) + _%id97504%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins97328%_ _%obj97329%_ _%id97330%_) - (let* ((_%id97333%_ _%id97330%_) - (__tmp101529 - (lambda (_%g9734197343%_) + (lambda (_%mixins97484%_ _%obj97485%_ _%id97486%_) + (let* ((_%id97489%_ _%id97486%_) + (__tmp101688 + (lambda (_%g9749797499%_) (direct-method-ref - _%g9734197343%_ - _%obj97329%_ - _%id97333%_)))) + _%g9749797499%_ + _%obj97485%_ + _%id97489%_)))) (declare (not safe)) - (__ormap1 __tmp101529 _%mixins97328%_)))) + (__ormap1 __tmp101688 _%mixins97484%_)))) (define direct-method-ref - (lambda (_%klass97302%_ _%obj97303%_ _%id97304%_) + (lambda (_%klass97458%_ _%obj97459%_ _%id97460%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97302%_ 'class)) - (let ((_%klass97308%_ _%klass97302%_)) - (if (symbol? _%id97304%_) - (let ((_%id97318%_ _%id97304%_)) + (##structure-instance-of? _%klass97458%_ 'class)) + (let ((_%klass97464%_ _%klass97458%_)) + (if (symbol? _%id97460%_) + (let ((_%id97474%_ _%id97460%_)) (__direct-method-ref - _%klass97308%_ - _%obj97303%_ - _%id97318%_)) + _%klass97464%_ + _%obj97459%_ + _%id97474%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3327,7 +3330,7 @@ 'contract: 'symbol? 'value: - _%id97304%_) + _%id97460%_) '#!void))) (begin (raise-contract-violation-error @@ -3337,98 +3340,98 @@ 'contract: 'class-type? 'value: - _%klass97302%_) + _%klass97458%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass97256%_ _%obj97257%_ _%id97258%_) - (let* ((_%klass97261%_ _%klass97256%_) (_%id97269%_ _%id97258%_)) - (letrec ((_%metaclass-resolve-method97278%_ + (lambda (_%klass97412%_ _%obj97413%_ _%id97414%_) + (let* ((_%klass97417%_ _%klass97412%_) (_%id97425%_ _%id97414%_)) + (letrec ((_%metaclass-resolve-method97434%_ (lambda () - (let ((__method101437 - (__method-ref _%klass97261%_ 'direct-method-ref))) - (if __method101437 + (let ((__method101596 + (__method-ref _%klass97417%_ 'direct-method-ref))) + (if __method101596 (let () (declare (not safe)) - (__method101437 - _%klass97261%_ - _%obj97257%_ - _%id97269%_)) + (__method101596 + _%klass97417%_ + _%obj97413%_ + _%id97425%_)) (begin (error '"Missing method" - _%klass97261%_ + _%klass97417%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!97279%_ + (_%metaclass-resolve-method!97435%_ (lambda () - (let ((_%method97299%_ - (_%metaclass-resolve-method97278%_))) - (let ((__tmp101531 + (let ((_%method97455%_ + (_%metaclass-resolve-method97434%_))) + (let ((__tmp101690 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97261%_ + _%klass97417%_ '11 '#f '#f))) - (__tmp101530 - (if _%method97299%_ 'resolved 'unknown))) + (__tmp101689 + (if _%method97455%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp101531 - _%id97269%_ - __tmp101530)) - _%method97299%_)))) - (let ((_%$e97281%_ + __tmp101690 + _%id97425%_ + __tmp101689)) + _%method97455%_)))) + (let ((_%$e97437%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97261%_ '11 '#f '#f)))) - (if _%$e97281%_ - ((lambda (_%ht97284%_) - (let ((_%method97286%_ + (##unchecked-structure-ref _%klass97417%_ '11 '#f '#f)))) + (if _%$e97437%_ + ((lambda (_%ht97440%_) + (let ((_%method97442%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht97284%_ - _%id97269%_ + _%ht97440%_ + _%id97425%_ '#f)))) - (if (procedure? _%method97286%_) - _%method97286%_ - (if (__class-type-metaclass? _%klass97261%_) - (let ((_%$e97290%_ _%method97286%_)) - (if (eq? 'resolved _%$e97290%_) - (_%metaclass-resolve-method97278%_) - (if (eq? 'unknown _%$e97290%_) + (if (procedure? _%method97442%_) + _%method97442%_ + (if (__class-type-metaclass? _%klass97417%_) + (let ((_%$e97446%_ _%method97442%_)) + (if (eq? 'resolved _%$e97446%_) + (_%metaclass-resolve-method97434%_) + (if (eq? 'unknown _%$e97446%_) '#f - (_%metaclass-resolve-method!97279%_)))) + (_%metaclass-resolve-method!97435%_)))) '#f)))) - _%$e97281%_) - (if (__class-type-metaclass? _%klass97261%_) - (let ((_%tab97295%_ + _%$e97437%_) + (if (__class-type-metaclass? _%klass97417%_) + (let ((_%tab97451%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97261%_ - _%tab97295%_ + _%klass97417%_ + _%tab97451%_ '11 '#f '#f)) - (_%metaclass-resolve-method!97279%_)) + (_%metaclass-resolve-method!97435%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass97230%_ _%obj97231%_ _%id97232%_) + (lambda (_%klass97386%_ _%obj97387%_ _%id97388%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97230%_ 'class)) - (let ((_%klass97236%_ _%klass97230%_)) - (if (symbol? _%id97232%_) - (let ((_%id97246%_ _%id97232%_)) + (##structure-instance-of? _%klass97386%_ 'class)) + (let ((_%klass97392%_ _%klass97386%_)) + (if (symbol? _%id97388%_) + (let ((_%id97402%_ _%id97388%_)) (__mixin-method-ref - _%klass97236%_ - _%obj97231%_ - _%id97246%_)) + _%klass97392%_ + _%obj97387%_ + _%id97402%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3437,7 +3440,7 @@ 'contract: 'symbol? 'value: - _%id97232%_) + _%id97388%_) '#!void))) (begin (raise-contract-violation-error @@ -3447,28 +3450,28 @@ 'contract: 'class-type? 'value: - _%klass97230%_) + _%klass97386%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass97208%_ _%obj97209%_ _%id97210%_) - (let* ((_%klass97213%_ _%klass97208%_) (_%id97221%_ _%id97210%_)) + (lambda (_%klass97364%_ _%obj97365%_ _%id97366%_) + (let* ((_%klass97369%_ _%klass97364%_) (_%id97377%_ _%id97366%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97213%_ '6 '#f '#f)) - _%obj97209%_ - _%id97221%_)))) + (##unchecked-structure-ref _%klass97369%_ '6 '#f '#f)) + _%obj97365%_ + _%id97377%_)))) (define bind-method!__% - (lambda (_%klass97167%_ _%id97168%_ _%proc97169%_ _%rebind?97170%_) - (if (symbol? _%id97168%_) - (let ((_%id97174%_ _%id97168%_)) - (if (procedure? _%proc97169%_) - (let ((_%proc97184%_ _%proc97169%_)) + (lambda (_%klass97323%_ _%id97324%_ _%proc97325%_ _%rebind?97326%_) + (if (symbol? _%id97324%_) + (let ((_%id97330%_ _%id97324%_)) + (if (procedure? _%proc97325%_) + (let ((_%proc97340%_ _%proc97325%_)) (__bind-method!__% - _%klass97167%_ - _%id97174%_ - _%proc97184%_ - _%rebind?97170%_)) + _%klass97323%_ + _%id97330%_ + _%proc97340%_ + _%rebind?97326%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3477,7 +3480,7 @@ 'contract: 'procedure? 'value: - _%proc97169%_) + _%proc97325%_) '#!void))) (begin (raise-contract-violation-error @@ -3487,1071 +3490,1071 @@ 'contract: 'symbol? 'value: - _%id97168%_) + _%id97324%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass97197%_ _%id97198%_ _%proc97199%_) - (let ((_%rebind?97201%_ '#f)) + (lambda (_%klass97353%_ _%id97354%_ _%proc97355%_) + (let ((_%rebind?97357%_ '#f)) (bind-method!__% - _%klass97197%_ - _%id97198%_ - _%proc97199%_ - _%rebind?97201%_)))) + _%klass97353%_ + _%id97354%_ + _%proc97355%_ + _%rebind?97357%_)))) (define bind-method! - (lambda _g101533_ - (let ((_g101532_ (let () (declare (not safe)) (##length _g101533_)))) - (cond ((let () (declare (not safe)) (##fx= _g101532_ 3)) - (apply bind-method!__0 _g101533_)) - ((let () (declare (not safe)) (##fx= _g101532_ 4)) - (apply bind-method!__% _g101533_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g101533_)))))) + _g101692_)))))) (define __bind-method!__% - (lambda (_%klass97118%_ _%id97119%_ _%proc97120%_ _%rebind?97121%_) - (let* ((_%id97124%_ _%id97119%_) (_%proc97132%_ _%proc97120%_)) - (letrec ((_%bind!97141%_ - (lambda (_%ht97150%_) - (if (and (not _%rebind?97121%_) + (lambda (_%klass97274%_ _%id97275%_ _%proc97276%_ _%rebind?97277%_) + (let* ((_%id97280%_ _%id97275%_) (_%proc97288%_ _%proc97276%_)) + (letrec ((_%bind!97297%_ + (lambda (_%ht97306%_) + (if (and (not _%rebind?97277%_) (let () (declare (not safe)) (symbolic-table-ref - _%ht97150%_ - _%id97124%_ + _%ht97306%_ + _%id97280%_ '#f))) (error '"method already bound" 'class: - _%klass97118%_ + _%klass97274%_ 'method: - _%id97124%_) + _%id97280%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht97150%_ - _%id97124%_ - _%proc97132%_)) + _%ht97306%_ + _%id97280%_ + _%proc97288%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97118%_ 'class)) - (let ((_%ht97144%_ + (##structure-instance-of? _%klass97274%_ 'class)) + (let ((_%ht97300%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97118%_ + _%klass97274%_ '11 '#f '#f)))) - (if _%ht97144%_ - (_%bind!97141%_ _%ht97144%_) - (let ((_%ht97146%_ + (if _%ht97300%_ + (_%bind!97297%_ _%ht97300%_) + (let ((_%ht97302%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97118%_ - _%ht97146%_ + _%klass97274%_ + _%ht97302%_ '11 '#f '#f)) - (_%bind!97141%_ _%ht97146%_)))) - (if (let () (declare (not safe)) (##type? _%klass97118%_)) + (_%bind!97297%_ _%ht97302%_)))) + (if (let () (declare (not safe)) (##type? _%klass97274%_)) (__bind-method!__% - (__shadow-class _%klass97118%_) - _%id97124%_ - _%proc97132%_ - _%rebind?97121%_) + (__shadow-class _%klass97274%_) + _%id97280%_ + _%proc97288%_ + _%rebind?97277%_) (error '"bad class; expected class or builtin type" - _%klass97118%_))))))) + _%klass97274%_))))))) (define __bind-method!__0 - (lambda (_%klass97155%_ _%id97156%_ _%proc97157%_) - (let ((_%rebind?97159%_ '#f)) + (lambda (_%klass97311%_ _%id97312%_ _%proc97313%_) + (let ((_%rebind?97315%_ '#f)) (__bind-method!__% - _%klass97155%_ - _%id97156%_ - _%proc97157%_ - _%rebind?97159%_)))) + _%klass97311%_ + _%id97312%_ + _%proc97313%_ + _%rebind?97315%_)))) (define __bind-method! - (lambda _g101535_ - (let ((_g101534_ (let () (declare (not safe)) (##length _g101535_)))) - (cond ((let () (declare (not safe)) (##fx= _g101534_ 3)) - (apply __bind-method!__0 _g101535_)) - ((let () (declare (not safe)) (##fx= _g101534_ 4)) - (apply __bind-method!__% _g101535_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g101535_)))))) + _g101694_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint97098%_ _%seed97100%_) + (lambda (_%size-hint97254%_ _%seed97256%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint97098%_ + _%size-hint97254%_ procedure-hash eq? - _%seed97100%_)))) + _%seed97256%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint97106%_ '#f) (_%seed97108%_ '0)) + (let* ((_%size-hint97262%_ '#f) (_%seed97264%_ '0)) (make-method-specializer-table__% - _%size-hint97106%_ - _%seed97108%_)))) + _%size-hint97262%_ + _%seed97264%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint97110%_) - (let ((_%seed97112%_ '0)) + (lambda (_%size-hint97266%_) + (let ((_%seed97268%_ '0)) (make-method-specializer-table__% - _%size-hint97110%_ - _%seed97112%_)))) + _%size-hint97266%_ + _%seed97268%_)))) (define make-method-specializer-table - (lambda _g101537_ - (let ((_g101536_ (let () (declare (not safe)) (##length _g101537_)))) - (cond ((let () (declare (not safe)) (##fx= _g101536_ 0)) - (apply make-method-specializer-table__0 _g101537_)) - ((let () (declare (not safe)) (##fx= _g101536_ 1)) - (apply make-method-specializer-table__1 _g101537_)) - ((let () (declare (not safe)) (##fx= _g101536_ 2)) - (apply make-method-specializer-table__% _g101537_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g101537_)))))) + _g101696_)))))) (define method-specializer-table-ref - (lambda (_%tab97051%_ _%key97052%_ _%default97053%_) - (let ((_%table97055%_ - (let () (declare (not safe)) (&raw-table-table _%tab97051%_))) - (_%seed97056%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97051%_)))) - (let* ((_%h97058%_ + (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%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key97052%_)) - _%seed97056%_)) - (_%size97061%_ (vector-length _%table97055%_)) - (_%entries97064%_ + (procedure-hash _%key97208%_)) + _%seed97212%_)) + (_%size97217%_ (vector-length _%table97211%_)) + (_%entries97220%_ (let () (declare (not safe)) - (##fxquotient _%size97061%_ '2))) - (_%start97067%_ - (let ((__tmp101538 + (##fxquotient _%size97217%_ '2))) + (_%start97223%_ + (let ((__tmp101697 (let () (declare (not safe)) - (##fxmodulo _%h97058%_ _%entries97064%_)))) + (##fxmodulo _%h97214%_ _%entries97220%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101538 '1)))) - (let _%loop97071%_ ((_%probe97074%_ _%start97067%_) - (_%i97076%_ '1) - (_%deleted97078%_ '#f)) - (let ((_%k97081%_ (vector-ref _%table97055%_ _%probe97074%_))) - (if (eq? _%k97081%_ (macro-unused-obj)) - _%default97053%_ - (if (eq? _%k97081%_ (macro-deleted-obj)) - (_%loop97071%_ - (let ((_%next-probe97086%_ - (fx+ _%start97067%_ - _%i97076%_ - (fx* _%i97076%_ _%i97076%_)))) + (##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%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97086%_ _%size97061%_)) - (let () (declare (not safe)) (##fx+ _%i97076%_ '1)) - (let ((_%$e97089%_ _%deleted97078%_)) - (if _%$e97089%_ _%$e97089%_ _%probe97074%_))) - (if (eq? _%key97052%_ _%k97081%_) + (##fxmodulo _%next-probe97242%_ _%size97217%_)) + (let () (declare (not safe)) (##fx+ _%i97232%_ '1)) + (let ((_%$e97245%_ _%deleted97234%_)) + (if _%$e97245%_ _%$e97245%_ _%probe97230%_))) + (if (eq? _%key97208%_ _%k97237%_) (vector-ref - _%table97055%_ + _%table97211%_ (let () (declare (not safe)) - (##fx+ _%probe97074%_ '1))) - (_%loop97071%_ - (let ((_%next-probe97094%_ - (fx+ _%start97067%_ - _%i97076%_ - (fx* _%i97076%_ _%i97076%_)))) + (##fx+ _%probe97230%_ '1))) + (_%loop97227%_ + (let ((_%next-probe97250%_ + (fx+ _%start97223%_ + _%i97232%_ + (fx* _%i97232%_ _%i97232%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97094%_ _%size97061%_)) + (##fxmodulo _%next-probe97250%_ _%size97217%_)) (let () (declare (not safe)) - (##fx+ _%i97076%_ '1)) - _%deleted97078%_)))))))))) + (##fx+ _%i97232%_ '1)) + _%deleted97234%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab97047%_ _%key97048%_ _%value97049%_) - (if (let ((__tmp101541 + (lambda (_%tab97203%_ _%key97204%_ _%value97205%_) + (if (let ((__tmp101700 (let () (declare (not safe)) - (&raw-table-free _%tab97047%_))) - (__tmp101539 - (let ((__tmp101540 + (&raw-table-free _%tab97203%_))) + (__tmp101698 + (let ((__tmp101699 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97047%_))))) + (&raw-table-table _%tab97203%_))))) (declare (not safe)) - (##fxquotient __tmp101540 '4)))) + (##fxquotient __tmp101699 '4)))) (declare (not safe)) - (##fx< __tmp101541 __tmp101539)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97047%_)) + (##fx< __tmp101700 __tmp101698)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97203%_)) '#!void) (__method-specializer-table-set! - _%tab97047%_ - _%key97048%_ - _%value97049%_))) + _%tab97203%_ + _%key97204%_ + _%value97205%_))) (define __method-specializer-table-set! - (lambda (_%tab96998%_ _%key96999%_ _%value97000%_) - (let ((_%table97003%_ - (let () (declare (not safe)) (&raw-table-table _%tab96998%_))) - (_%seed97004%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96998%_)))) - (let* ((_%h97006%_ + (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%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key96999%_)) - _%seed97004%_)) - (_%size97009%_ (vector-length _%table97003%_)) - (_%entries97012%_ + (procedure-hash _%key97155%_)) + _%seed97160%_)) + (_%size97165%_ (vector-length _%table97159%_)) + (_%entries97168%_ (let () (declare (not safe)) - (##fxquotient _%size97009%_ '2))) - (_%start97015%_ - (let ((__tmp101542 + (##fxquotient _%size97165%_ '2))) + (_%start97171%_ + (let ((__tmp101701 (let () (declare (not safe)) - (##fxmodulo _%h97006%_ _%entries97012%_)))) + (##fxmodulo _%h97162%_ _%entries97168%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101542 '1)))) - (let _%loop97019%_ ((_%probe97022%_ _%start97015%_) - (_%i97024%_ '1) - (_%deleted97026%_ '#f)) - (let ((_%k97029%_ (vector-ref _%table97003%_ _%probe97022%_))) - (if (eq? _%k97029%_ (macro-unused-obj)) - (if _%deleted97026%_ + (##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%_ (begin (vector-set! - _%table97003%_ - _%deleted97026%_ - _%key96999%_) + _%table97159%_ + _%deleted97182%_ + _%key97155%_) (vector-set! - _%table97003%_ + _%table97159%_ (let () (declare (not safe)) - (##fx+ _%deleted97026%_ '1)) - _%value97000%_) + (##fx+ _%deleted97182%_ '1)) + _%value97156%_) ((lambda () - (let ((__tmp101543 - (let ((__tmp101544 + (let ((__tmp101702 + (let ((__tmp101703 (let () (declare (not safe)) - (&raw-table-count _%tab96998%_)))) + (&raw-table-count _%tab97154%_)))) (declare (not safe)) - (##fx+ __tmp101544 '1)))) + (##fx+ __tmp101703 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96998%_ - __tmp101543))))) + _%tab97154%_ + __tmp101702))))) (begin (vector-set! - _%table97003%_ - _%probe97022%_ - _%key96999%_) + _%table97159%_ + _%probe97178%_ + _%key97155%_) (vector-set! - _%table97003%_ + _%table97159%_ (let () (declare (not safe)) - (##fx+ _%probe97022%_ '1)) - _%value97000%_) + (##fx+ _%probe97178%_ '1)) + _%value97156%_) ((lambda () - (let ((__tmp101545 - (let ((__tmp101546 + (let ((__tmp101704 + (let ((__tmp101705 (let () (declare (not safe)) - (&raw-table-free _%tab96998%_)))) + (&raw-table-free _%tab97154%_)))) (declare (not safe)) - (##fx- __tmp101546 '1)))) + (##fx- __tmp101705 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96998%_ __tmp101545)) - (let ((__tmp101547 - (let ((__tmp101548 + (&raw-table-free-set! _%tab97154%_ __tmp101704)) + (let ((__tmp101706 + (let ((__tmp101707 (let () (declare (not safe)) - (&raw-table-count _%tab96998%_)))) + (&raw-table-count _%tab97154%_)))) (declare (not safe)) - (##fx+ __tmp101548 '1)))) + (##fx+ __tmp101707 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96998%_ - __tmp101547)))))) - (if (eq? _%k97029%_ (macro-deleted-obj)) - (_%loop97019%_ - (let ((_%next-probe97036%_ - (fx+ _%start97015%_ - _%i97024%_ - (fx* _%i97024%_ _%i97024%_)))) + _%tab97154%_ + __tmp101706)))))) + (if (eq? _%k97185%_ (macro-deleted-obj)) + (_%loop97175%_ + (let ((_%next-probe97192%_ + (fx+ _%start97171%_ + _%i97180%_ + (fx* _%i97180%_ _%i97180%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97036%_ _%size97009%_)) - (let () (declare (not safe)) (##fx+ _%i97024%_ '1)) - (let ((_%$e97039%_ _%deleted97026%_)) - (if _%$e97039%_ _%$e97039%_ _%probe97022%_))) - (if (eq? _%key96999%_ _%k97029%_) + (##fxmodulo _%next-probe97192%_ _%size97165%_)) + (let () (declare (not safe)) (##fx+ _%i97180%_ '1)) + (let ((_%$e97195%_ _%deleted97182%_)) + (if _%$e97195%_ _%$e97195%_ _%probe97178%_))) + (if (eq? _%key97155%_ _%k97185%_) (let () (vector-set! - _%table97003%_ - _%probe97022%_ - _%key96999%_) + _%table97159%_ + _%probe97178%_ + _%key97155%_) (vector-set! - _%table97003%_ + _%table97159%_ (let () (declare (not safe)) - (##fx+ _%probe97022%_ '1)) - _%value97000%_)) - (_%loop97019%_ - (let ((_%next-probe97044%_ - (fx+ _%start97015%_ - _%i97024%_ - (fx* _%i97024%_ _%i97024%_)))) + (##fx+ _%probe97178%_ '1)) + _%value97156%_)) + (_%loop97175%_ + (let ((_%next-probe97200%_ + (fx+ _%start97171%_ + _%i97180%_ + (fx* _%i97180%_ _%i97180%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97044%_ _%size97009%_)) + (##fxmodulo _%next-probe97200%_ _%size97165%_)) (let () (declare (not safe)) - (##fx+ _%i97024%_ '1)) - _%deleted97026%_)))))))))) + (##fx+ _%i97180%_ '1)) + _%deleted97182%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab96993%_ - _%key96994%_ - _%method-specializer-table-update!96995%_ - _%default96996%_) - (if (let ((__tmp101551 + (lambda (_%tab97149%_ + _%key97150%_ + _%method-specializer-table-update!97151%_ + _%default97152%_) + (if (let ((__tmp101710 (let () (declare (not safe)) - (&raw-table-free _%tab96993%_))) - (__tmp101549 - (let ((__tmp101550 + (&raw-table-free _%tab97149%_))) + (__tmp101708 + (let ((__tmp101709 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96993%_))))) + (&raw-table-table _%tab97149%_))))) (declare (not safe)) - (##fxquotient __tmp101550 '4)))) + (##fxquotient __tmp101709 '4)))) (declare (not safe)) - (##fx< __tmp101551 __tmp101549)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96993%_)) + (##fx< __tmp101710 __tmp101708)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97149%_)) '#!void) (__method-specializer-table-update! - _%tab96993%_ - _%key96994%_ - _%method-specializer-table-update!96995%_ - _%default96996%_))) + _%tab97149%_ + _%key97150%_ + _%method-specializer-table-update!97151%_ + _%default97152%_))) (define __method-specializer-table-update! - (lambda (_%tab96943%_ - _%key96944%_ - _%method-specializer-table-update!96945%_ - _%default96946%_) - (let ((_%table96949%_ - (let () (declare (not safe)) (&raw-table-table _%tab96943%_))) - (_%seed96950%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96943%_)))) - (let* ((_%h96952%_ + (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%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key96944%_)) - _%seed96950%_)) - (_%size96955%_ (vector-length _%table96949%_)) - (_%entries96958%_ + (procedure-hash _%key97100%_)) + _%seed97106%_)) + (_%size97111%_ (vector-length _%table97105%_)) + (_%entries97114%_ (let () (declare (not safe)) - (##fxquotient _%size96955%_ '2))) - (_%start96961%_ - (let ((__tmp101552 + (##fxquotient _%size97111%_ '2))) + (_%start97117%_ + (let ((__tmp101711 (let () (declare (not safe)) - (##fxmodulo _%h96952%_ _%entries96958%_)))) + (##fxmodulo _%h97108%_ _%entries97114%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101552 '1)))) - (let _%loop96965%_ ((_%probe96968%_ _%start96961%_) - (_%i96970%_ '1) - (_%deleted96972%_ '#f)) - (let ((_%k96975%_ (vector-ref _%table96949%_ _%probe96968%_))) - (if (eq? _%k96975%_ (macro-unused-obj)) - (if _%deleted96972%_ + (##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%_ (begin (vector-set! - _%table96949%_ - _%deleted96972%_ - _%key96944%_) + _%table97105%_ + _%deleted97128%_ + _%key97100%_) (vector-set! - _%table96949%_ + _%table97105%_ (let () (declare (not safe)) - (##fx+ _%deleted96972%_ '1)) - (_%method-specializer-table-update!96945%_ - _%default96946%_)) + (##fx+ _%deleted97128%_ '1)) + (_%method-specializer-table-update!97101%_ + _%default97102%_)) ((lambda () - (let ((__tmp101553 - (let ((__tmp101554 + (let ((__tmp101712 + (let ((__tmp101713 (let () (declare (not safe)) - (&raw-table-count _%tab96943%_)))) + (&raw-table-count _%tab97099%_)))) (declare (not safe)) - (##fx+ __tmp101554 '1)))) + (##fx+ __tmp101713 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96943%_ - __tmp101553))))) + _%tab97099%_ + __tmp101712))))) (begin (vector-set! - _%table96949%_ - _%probe96968%_ - _%key96944%_) + _%table97105%_ + _%probe97124%_ + _%key97100%_) (vector-set! - _%table96949%_ + _%table97105%_ (let () (declare (not safe)) - (##fx+ _%probe96968%_ '1)) - (_%method-specializer-table-update!96945%_ - _%default96946%_)) + (##fx+ _%probe97124%_ '1)) + (_%method-specializer-table-update!97101%_ + _%default97102%_)) ((lambda () - (let ((__tmp101555 - (let ((__tmp101556 + (let ((__tmp101714 + (let ((__tmp101715 (let () (declare (not safe)) - (&raw-table-free _%tab96943%_)))) + (&raw-table-free _%tab97099%_)))) (declare (not safe)) - (##fx- __tmp101556 '1)))) + (##fx- __tmp101715 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96943%_ __tmp101555)) - (let ((__tmp101557 - (let ((__tmp101558 + (&raw-table-free-set! _%tab97099%_ __tmp101714)) + (let ((__tmp101716 + (let ((__tmp101717 (let () (declare (not safe)) - (&raw-table-count _%tab96943%_)))) + (&raw-table-count _%tab97099%_)))) (declare (not safe)) - (##fx+ __tmp101558 '1)))) + (##fx+ __tmp101717 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96943%_ - __tmp101557)))))) - (if (eq? _%k96975%_ (macro-deleted-obj)) - (_%loop96965%_ - (let ((_%next-probe96982%_ - (fx+ _%start96961%_ - _%i96970%_ - (fx* _%i96970%_ _%i96970%_)))) + _%tab97099%_ + __tmp101716)))))) + (if (eq? _%k97131%_ (macro-deleted-obj)) + (_%loop97121%_ + (let ((_%next-probe97138%_ + (fx+ _%start97117%_ + _%i97126%_ + (fx* _%i97126%_ _%i97126%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96982%_ _%size96955%_)) - (let () (declare (not safe)) (##fx+ _%i96970%_ '1)) - (let ((_%$e96985%_ _%deleted96972%_)) - (if _%$e96985%_ _%$e96985%_ _%probe96968%_))) - (if (eq? _%key96944%_ _%k96975%_) + (##fxmodulo _%next-probe97138%_ _%size97111%_)) + (let () (declare (not safe)) (##fx+ _%i97126%_ '1)) + (let ((_%$e97141%_ _%deleted97128%_)) + (if _%$e97141%_ _%$e97141%_ _%probe97124%_))) + (if (eq? _%key97100%_ _%k97131%_) (let () (vector-set! - _%table96949%_ - _%probe96968%_ - _%key96944%_) + _%table97105%_ + _%probe97124%_ + _%key97100%_) (vector-set! - _%table96949%_ + _%table97105%_ (let () (declare (not safe)) - (##fx+ _%probe96968%_ '1)) - (_%method-specializer-table-update!96945%_ + (##fx+ _%probe97124%_ '1)) + (_%method-specializer-table-update!97101%_ (vector-ref - _%table96949%_ + _%table97105%_ (let () (declare (not safe)) - (##fx+ _%probe96968%_ '1)))))) - (_%loop96965%_ - (let ((_%next-probe96990%_ - (fx+ _%start96961%_ - _%i96970%_ - (fx* _%i96970%_ _%i96970%_)))) + (##fx+ _%probe97124%_ '1)))))) + (_%loop97121%_ + (let ((_%next-probe97146%_ + (fx+ _%start97117%_ + _%i97126%_ + (fx* _%i97126%_ _%i97126%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96990%_ _%size96955%_)) + (##fxmodulo _%next-probe97146%_ _%size97111%_)) (let () (declare (not safe)) - (##fx+ _%i96970%_ '1)) - _%deleted96972%_)))))))))) + (##fx+ _%i97126%_ '1)) + _%deleted97128%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab96898%_ _%key96900%_) - (let ((_%table96903%_ - (let () (declare (not safe)) (&raw-table-table _%tab96898%_))) - (_%seed96905%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96898%_)))) - (let* ((_%h96908%_ + (lambda (_%tab97054%_ _%key97056%_) + (let ((_%table97059%_ + (let () (declare (not safe)) (&raw-table-table _%tab97054%_))) + (_%seed97061%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97054%_)))) + (let* ((_%h97064%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key96900%_)) - _%seed96905%_)) - (_%size96911%_ (vector-length _%table96903%_)) - (_%entries96914%_ + (procedure-hash _%key97056%_)) + _%seed97061%_)) + (_%size97067%_ (vector-length _%table97059%_)) + (_%entries97070%_ (let () (declare (not safe)) - (##fxquotient _%size96911%_ '2))) - (_%start96917%_ - (let ((__tmp101559 + (##fxquotient _%size97067%_ '2))) + (_%start97073%_ + (let ((__tmp101718 (let () (declare (not safe)) - (##fxmodulo _%h96908%_ _%entries96914%_)))) + (##fxmodulo _%h97064%_ _%entries97070%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101559 '1)))) - (let _%loop96921%_ ((_%probe96924%_ _%start96917%_) - (_%i96926%_ '1)) - (let ((_%k96929%_ (vector-ref _%table96903%_ _%probe96924%_))) - (if (eq? _%k96929%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp101718 '1)))) + (let _%loop97077%_ ((_%probe97080%_ _%start97073%_) + (_%i97082%_ '1)) + (let ((_%k97085%_ (vector-ref _%table97059%_ _%probe97080%_))) + (if (eq? _%k97085%_ (macro-unused-obj)) '#!void - (if (eq? _%k96929%_ (macro-deleted-obj)) - (_%loop96921%_ - (let ((_%next-probe96934%_ - (fx+ _%start96917%_ - _%i96926%_ - (fx* _%i96926%_ _%i96926%_)))) + (if (eq? _%k97085%_ (macro-deleted-obj)) + (_%loop97077%_ + (let ((_%next-probe97090%_ + (fx+ _%start97073%_ + _%i97082%_ + (fx* _%i97082%_ _%i97082%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96934%_ _%size96911%_)) - (let () (declare (not safe)) (##fx+ _%i96926%_ '1))) - (if (eq? _%key96900%_ _%k96929%_) + (##fxmodulo _%next-probe97090%_ _%size97067%_)) + (let () (declare (not safe)) (##fx+ _%i97082%_ '1))) + (if (eq? _%key97056%_ _%k97085%_) (let () (vector-set! - _%table96903%_ - _%probe96924%_ + _%table97059%_ + _%probe97080%_ (macro-deleted-obj)) (vector-set! - _%table96903%_ + _%table97059%_ (let () (declare (not safe)) - (##fx+ _%probe96924%_ '1)) + (##fx+ _%probe97080%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101560 - (let ((__tmp101561 + (let ((__tmp101719 + (let ((__tmp101720 (let () (declare (not safe)) (&raw-table-count - _%tab96898%_)))) + _%tab97054%_)))) (declare (not safe)) - (##fx- __tmp101561 '1)))) + (##fx- __tmp101720 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96898%_ - __tmp101560))))) - (_%loop96921%_ - (let ((_%next-probe96940%_ - (fx+ _%start96917%_ - _%i96926%_ - (fx* _%i96926%_ _%i96926%_)))) + _%tab97054%_ + __tmp101719))))) + (_%loop97077%_ + (let ((_%next-probe97096%_ + (fx+ _%start97073%_ + _%i97082%_ + (fx* _%i97082%_ _%i97082%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96940%_ _%size96911%_)) + (##fxmodulo _%next-probe97096%_ _%size97067%_)) (let () (declare (not safe)) - (##fx+ _%i96926%_ '1)))))))))))) + (##fx+ _%i97082%_ '1)))))))))))) (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc96889%_ _%specializer96890%_) + (lambda (_%method-proc97045%_ _%specializer97046%_) (let () (declare (not interrupts-enabled)) - (let _%again96894%_ () - (if (let ((__tmp101562 + (let _%again97050%_ () + (if (let ((__tmp101721 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101562 '0)) + (##fx= __tmp101721 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96894%_))))) + (_%again97050%_))))) (method-specializer-table-set! __method-specializers - _%method-proc96889%_ - _%specializer96890%_) + _%method-proc97045%_ + _%specializer97046%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc96879%_) + (lambda (_%proc97035%_) (let () (declare (not interrupts-enabled)) - (let _%again96883%_ () - (if (let ((__tmp101563 + (let _%again97039%_ () + (if (let ((__tmp101722 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101563 '0)) + (##fx= __tmp101722 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96883%_))))) - (let ((_%specializer96887%_ + (_%again97039%_))))) + (let ((_%specializer97043%_ (method-specializer-table-ref __method-specializers - _%proc96879%_ + _%proc97035%_ '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer96887%_))) + _%specializer97043%_))) (define __class-specializer-hash-key - (lambda (_%klass96877%_) - (let ((__tmp101564 - (let () (declare (not safe)) (##type-id _%klass96877%_)))) + (lambda (_%klass97033%_) + (let ((__tmp101723 + (let () (declare (not safe)) (##type-id _%klass97033%_)))) (declare (not safe)) - (symbolic-hash __tmp101564)))) + (symbolic-hash __tmp101723)))) (define make-class-specializer-table__% - (lambda (_%size-hint96858%_ _%seed96860%_) + (lambda (_%size-hint97014%_ _%seed97016%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint96858%_ + _%size-hint97014%_ __class-specializer-hash-key eq? - _%seed96860%_)))) + _%seed97016%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint96866%_ '#f) (_%seed96868%_ '0)) - (make-class-specializer-table__% _%size-hint96866%_ _%seed96868%_)))) + (let* ((_%size-hint97022%_ '#f) (_%seed97024%_ '0)) + (make-class-specializer-table__% _%size-hint97022%_ _%seed97024%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint96870%_) - (let ((_%seed96872%_ '0)) - (make-class-specializer-table__% _%size-hint96870%_ _%seed96872%_)))) + (lambda (_%size-hint97026%_) + (let ((_%seed97028%_ '0)) + (make-class-specializer-table__% _%size-hint97026%_ _%seed97028%_)))) (define make-class-specializer-table - (lambda _g101566_ - (let ((_g101565_ (let () (declare (not safe)) (##length _g101566_)))) - (cond ((let () (declare (not safe)) (##fx= _g101565_ 0)) - (apply make-class-specializer-table__0 _g101566_)) - ((let () (declare (not safe)) (##fx= _g101565_ 1)) - (apply make-class-specializer-table__1 _g101566_)) - ((let () (declare (not safe)) (##fx= _g101565_ 2)) - (apply make-class-specializer-table__% _g101566_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g101566_)))))) + _g101725_)))))) (define class-specializer-table-ref - (lambda (_%tab96811%_ _%key96812%_ _%default96813%_) - (let ((_%table96815%_ - (let () (declare (not safe)) (&raw-table-table _%tab96811%_))) - (_%seed96816%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96811%_)))) - (let* ((_%h96818%_ - (fxxor (__class-specializer-hash-key _%key96812%_) - _%seed96816%_)) - (_%size96821%_ (vector-length _%table96815%_)) - (_%entries96824%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size96821%_ '2))) - (_%start96827%_ - (let ((__tmp101567 + (##fxquotient _%size96977%_ '2))) + (_%start96983%_ + (let ((__tmp101726 (let () (declare (not safe)) - (##fxmodulo _%h96818%_ _%entries96824%_)))) + (##fxmodulo _%h96974%_ _%entries96980%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101567 '1)))) - (let _%loop96831%_ ((_%probe96834%_ _%start96827%_) - (_%i96836%_ '1) - (_%deleted96838%_ '#f)) - (let ((_%k96841%_ (vector-ref _%table96815%_ _%probe96834%_))) - (if (eq? _%k96841%_ (macro-unused-obj)) - _%default96813%_ - (if (eq? _%k96841%_ (macro-deleted-obj)) - (_%loop96831%_ - (let ((_%next-probe96846%_ - (fx+ _%start96827%_ - _%i96836%_ - (fx* _%i96836%_ _%i96836%_)))) + (##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%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96846%_ _%size96821%_)) - (let () (declare (not safe)) (##fx+ _%i96836%_ '1)) - (let ((_%$e96849%_ _%deleted96838%_)) - (if _%$e96849%_ _%$e96849%_ _%probe96834%_))) - (if (eq? _%key96812%_ _%k96841%_) + (##fxmodulo _%next-probe97002%_ _%size96977%_)) + (let () (declare (not safe)) (##fx+ _%i96992%_ '1)) + (let ((_%$e97005%_ _%deleted96994%_)) + (if _%$e97005%_ _%$e97005%_ _%probe96990%_))) + (if (eq? _%key96968%_ _%k96997%_) (vector-ref - _%table96815%_ + _%table96971%_ (let () (declare (not safe)) - (##fx+ _%probe96834%_ '1))) - (_%loop96831%_ - (let ((_%next-probe96854%_ - (fx+ _%start96827%_ - _%i96836%_ - (fx* _%i96836%_ _%i96836%_)))) + (##fx+ _%probe96990%_ '1))) + (_%loop96987%_ + (let ((_%next-probe97010%_ + (fx+ _%start96983%_ + _%i96992%_ + (fx* _%i96992%_ _%i96992%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96854%_ _%size96821%_)) + (##fxmodulo _%next-probe97010%_ _%size96977%_)) (let () (declare (not safe)) - (##fx+ _%i96836%_ '1)) - _%deleted96838%_)))))))))) + (##fx+ _%i96992%_ '1)) + _%deleted96994%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab96807%_ _%key96808%_ _%value96809%_) - (if (let ((__tmp101570 + (lambda (_%tab96963%_ _%key96964%_ _%value96965%_) + (if (let ((__tmp101729 (let () (declare (not safe)) - (&raw-table-free _%tab96807%_))) - (__tmp101568 - (let ((__tmp101569 + (&raw-table-free _%tab96963%_))) + (__tmp101727 + (let ((__tmp101728 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96807%_))))) + (&raw-table-table _%tab96963%_))))) (declare (not safe)) - (##fxquotient __tmp101569 '4)))) + (##fxquotient __tmp101728 '4)))) (declare (not safe)) - (##fx< __tmp101570 __tmp101568)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96807%_)) + (##fx< __tmp101729 __tmp101727)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab96963%_)) '#!void) (__class-specializer-table-set! - _%tab96807%_ - _%key96808%_ - _%value96809%_))) + _%tab96963%_ + _%key96964%_ + _%value96965%_))) (define __class-specializer-table-set! - (lambda (_%tab96758%_ _%key96759%_ _%value96760%_) - (let ((_%table96763%_ - (let () (declare (not safe)) (&raw-table-table _%tab96758%_))) - (_%seed96764%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96758%_)))) - (let* ((_%h96766%_ - (fxxor (__class-specializer-hash-key _%key96759%_) - _%seed96764%_)) - (_%size96769%_ (vector-length _%table96763%_)) - (_%entries96772%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size96769%_ '2))) - (_%start96775%_ - (let ((__tmp101571 + (##fxquotient _%size96925%_ '2))) + (_%start96931%_ + (let ((__tmp101730 (let () (declare (not safe)) - (##fxmodulo _%h96766%_ _%entries96772%_)))) + (##fxmodulo _%h96922%_ _%entries96928%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101571 '1)))) - (let _%loop96779%_ ((_%probe96782%_ _%start96775%_) - (_%i96784%_ '1) - (_%deleted96786%_ '#f)) - (let ((_%k96789%_ (vector-ref _%table96763%_ _%probe96782%_))) - (if (eq? _%k96789%_ (macro-unused-obj)) - (if _%deleted96786%_ + (##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%_ (begin (vector-set! - _%table96763%_ - _%deleted96786%_ - _%key96759%_) + _%table96919%_ + _%deleted96942%_ + _%key96915%_) (vector-set! - _%table96763%_ + _%table96919%_ (let () (declare (not safe)) - (##fx+ _%deleted96786%_ '1)) - _%value96760%_) + (##fx+ _%deleted96942%_ '1)) + _%value96916%_) ((lambda () - (let ((__tmp101572 - (let ((__tmp101573 + (let ((__tmp101731 + (let ((__tmp101732 (let () (declare (not safe)) - (&raw-table-count _%tab96758%_)))) + (&raw-table-count _%tab96914%_)))) (declare (not safe)) - (##fx+ __tmp101573 '1)))) + (##fx+ __tmp101732 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96758%_ - __tmp101572))))) + _%tab96914%_ + __tmp101731))))) (begin (vector-set! - _%table96763%_ - _%probe96782%_ - _%key96759%_) + _%table96919%_ + _%probe96938%_ + _%key96915%_) (vector-set! - _%table96763%_ + _%table96919%_ (let () (declare (not safe)) - (##fx+ _%probe96782%_ '1)) - _%value96760%_) + (##fx+ _%probe96938%_ '1)) + _%value96916%_) ((lambda () - (let ((__tmp101574 - (let ((__tmp101575 + (let ((__tmp101733 + (let ((__tmp101734 (let () (declare (not safe)) - (&raw-table-free _%tab96758%_)))) + (&raw-table-free _%tab96914%_)))) (declare (not safe)) - (##fx- __tmp101575 '1)))) + (##fx- __tmp101734 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96758%_ __tmp101574)) - (let ((__tmp101576 - (let ((__tmp101577 + (&raw-table-free-set! _%tab96914%_ __tmp101733)) + (let ((__tmp101735 + (let ((__tmp101736 (let () (declare (not safe)) - (&raw-table-count _%tab96758%_)))) + (&raw-table-count _%tab96914%_)))) (declare (not safe)) - (##fx+ __tmp101577 '1)))) + (##fx+ __tmp101736 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96758%_ - __tmp101576)))))) - (if (eq? _%k96789%_ (macro-deleted-obj)) - (_%loop96779%_ - (let ((_%next-probe96796%_ - (fx+ _%start96775%_ - _%i96784%_ - (fx* _%i96784%_ _%i96784%_)))) + _%tab96914%_ + __tmp101735)))))) + (if (eq? _%k96945%_ (macro-deleted-obj)) + (_%loop96935%_ + (let ((_%next-probe96952%_ + (fx+ _%start96931%_ + _%i96940%_ + (fx* _%i96940%_ _%i96940%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96796%_ _%size96769%_)) - (let () (declare (not safe)) (##fx+ _%i96784%_ '1)) - (let ((_%$e96799%_ _%deleted96786%_)) - (if _%$e96799%_ _%$e96799%_ _%probe96782%_))) - (if (eq? _%key96759%_ _%k96789%_) + (##fxmodulo _%next-probe96952%_ _%size96925%_)) + (let () (declare (not safe)) (##fx+ _%i96940%_ '1)) + (let ((_%$e96955%_ _%deleted96942%_)) + (if _%$e96955%_ _%$e96955%_ _%probe96938%_))) + (if (eq? _%key96915%_ _%k96945%_) (let () (vector-set! - _%table96763%_ - _%probe96782%_ - _%key96759%_) + _%table96919%_ + _%probe96938%_ + _%key96915%_) (vector-set! - _%table96763%_ + _%table96919%_ (let () (declare (not safe)) - (##fx+ _%probe96782%_ '1)) - _%value96760%_)) - (_%loop96779%_ - (let ((_%next-probe96804%_ - (fx+ _%start96775%_ - _%i96784%_ - (fx* _%i96784%_ _%i96784%_)))) + (##fx+ _%probe96938%_ '1)) + _%value96916%_)) + (_%loop96935%_ + (let ((_%next-probe96960%_ + (fx+ _%start96931%_ + _%i96940%_ + (fx* _%i96940%_ _%i96940%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96804%_ _%size96769%_)) + (##fxmodulo _%next-probe96960%_ _%size96925%_)) (let () (declare (not safe)) - (##fx+ _%i96784%_ '1)) - _%deleted96786%_)))))))))) + (##fx+ _%i96940%_ '1)) + _%deleted96942%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab96753%_ - _%key96754%_ - _%class-specializer-table-update!96755%_ - _%default96756%_) - (if (let ((__tmp101580 + (lambda (_%tab96909%_ + _%key96910%_ + _%class-specializer-table-update!96911%_ + _%default96912%_) + (if (let ((__tmp101739 (let () (declare (not safe)) - (&raw-table-free _%tab96753%_))) - (__tmp101578 - (let ((__tmp101579 + (&raw-table-free _%tab96909%_))) + (__tmp101737 + (let ((__tmp101738 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96753%_))))) + (&raw-table-table _%tab96909%_))))) (declare (not safe)) - (##fxquotient __tmp101579 '4)))) + (##fxquotient __tmp101738 '4)))) (declare (not safe)) - (##fx< __tmp101580 __tmp101578)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96753%_)) + (##fx< __tmp101739 __tmp101737)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab96909%_)) '#!void) (__class-specializer-table-update! - _%tab96753%_ - _%key96754%_ - _%class-specializer-table-update!96755%_ - _%default96756%_))) + _%tab96909%_ + _%key96910%_ + _%class-specializer-table-update!96911%_ + _%default96912%_))) (define __class-specializer-table-update! - (lambda (_%tab96703%_ - _%key96704%_ - _%class-specializer-table-update!96705%_ - _%default96706%_) - (let ((_%table96709%_ - (let () (declare (not safe)) (&raw-table-table _%tab96703%_))) - (_%seed96710%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96703%_)))) - (let* ((_%h96712%_ - (fxxor (__class-specializer-hash-key _%key96704%_) - _%seed96710%_)) - (_%size96715%_ (vector-length _%table96709%_)) - (_%entries96718%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size96715%_ '2))) - (_%start96721%_ - (let ((__tmp101581 + (##fxquotient _%size96871%_ '2))) + (_%start96877%_ + (let ((__tmp101740 (let () (declare (not safe)) - (##fxmodulo _%h96712%_ _%entries96718%_)))) + (##fxmodulo _%h96868%_ _%entries96874%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101581 '1)))) - (let _%loop96725%_ ((_%probe96728%_ _%start96721%_) - (_%i96730%_ '1) - (_%deleted96732%_ '#f)) - (let ((_%k96735%_ (vector-ref _%table96709%_ _%probe96728%_))) - (if (eq? _%k96735%_ (macro-unused-obj)) - (if _%deleted96732%_ + (##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%_ (begin (vector-set! - _%table96709%_ - _%deleted96732%_ - _%key96704%_) + _%table96865%_ + _%deleted96888%_ + _%key96860%_) (vector-set! - _%table96709%_ + _%table96865%_ (let () (declare (not safe)) - (##fx+ _%deleted96732%_ '1)) - (_%class-specializer-table-update!96705%_ - _%default96706%_)) + (##fx+ _%deleted96888%_ '1)) + (_%class-specializer-table-update!96861%_ + _%default96862%_)) ((lambda () - (let ((__tmp101582 - (let ((__tmp101583 + (let ((__tmp101741 + (let ((__tmp101742 (let () (declare (not safe)) - (&raw-table-count _%tab96703%_)))) + (&raw-table-count _%tab96859%_)))) (declare (not safe)) - (##fx+ __tmp101583 '1)))) + (##fx+ __tmp101742 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96703%_ - __tmp101582))))) + _%tab96859%_ + __tmp101741))))) (begin (vector-set! - _%table96709%_ - _%probe96728%_ - _%key96704%_) + _%table96865%_ + _%probe96884%_ + _%key96860%_) (vector-set! - _%table96709%_ + _%table96865%_ (let () (declare (not safe)) - (##fx+ _%probe96728%_ '1)) - (_%class-specializer-table-update!96705%_ - _%default96706%_)) + (##fx+ _%probe96884%_ '1)) + (_%class-specializer-table-update!96861%_ + _%default96862%_)) ((lambda () - (let ((__tmp101584 - (let ((__tmp101585 + (let ((__tmp101743 + (let ((__tmp101744 (let () (declare (not safe)) - (&raw-table-free _%tab96703%_)))) + (&raw-table-free _%tab96859%_)))) (declare (not safe)) - (##fx- __tmp101585 '1)))) + (##fx- __tmp101744 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96703%_ __tmp101584)) - (let ((__tmp101586 - (let ((__tmp101587 + (&raw-table-free-set! _%tab96859%_ __tmp101743)) + (let ((__tmp101745 + (let ((__tmp101746 (let () (declare (not safe)) - (&raw-table-count _%tab96703%_)))) + (&raw-table-count _%tab96859%_)))) (declare (not safe)) - (##fx+ __tmp101587 '1)))) + (##fx+ __tmp101746 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96703%_ - __tmp101586)))))) - (if (eq? _%k96735%_ (macro-deleted-obj)) - (_%loop96725%_ - (let ((_%next-probe96742%_ - (fx+ _%start96721%_ - _%i96730%_ - (fx* _%i96730%_ _%i96730%_)))) + _%tab96859%_ + __tmp101745)))))) + (if (eq? _%k96891%_ (macro-deleted-obj)) + (_%loop96881%_ + (let ((_%next-probe96898%_ + (fx+ _%start96877%_ + _%i96886%_ + (fx* _%i96886%_ _%i96886%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96742%_ _%size96715%_)) - (let () (declare (not safe)) (##fx+ _%i96730%_ '1)) - (let ((_%$e96745%_ _%deleted96732%_)) - (if _%$e96745%_ _%$e96745%_ _%probe96728%_))) - (if (eq? _%key96704%_ _%k96735%_) + (##fxmodulo _%next-probe96898%_ _%size96871%_)) + (let () (declare (not safe)) (##fx+ _%i96886%_ '1)) + (let ((_%$e96901%_ _%deleted96888%_)) + (if _%$e96901%_ _%$e96901%_ _%probe96884%_))) + (if (eq? _%key96860%_ _%k96891%_) (let () (vector-set! - _%table96709%_ - _%probe96728%_ - _%key96704%_) + _%table96865%_ + _%probe96884%_ + _%key96860%_) (vector-set! - _%table96709%_ + _%table96865%_ (let () (declare (not safe)) - (##fx+ _%probe96728%_ '1)) - (_%class-specializer-table-update!96705%_ + (##fx+ _%probe96884%_ '1)) + (_%class-specializer-table-update!96861%_ (vector-ref - _%table96709%_ + _%table96865%_ (let () (declare (not safe)) - (##fx+ _%probe96728%_ '1)))))) - (_%loop96725%_ - (let ((_%next-probe96750%_ - (fx+ _%start96721%_ - _%i96730%_ - (fx* _%i96730%_ _%i96730%_)))) + (##fx+ _%probe96884%_ '1)))))) + (_%loop96881%_ + (let ((_%next-probe96906%_ + (fx+ _%start96877%_ + _%i96886%_ + (fx* _%i96886%_ _%i96886%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96750%_ _%size96715%_)) + (##fxmodulo _%next-probe96906%_ _%size96871%_)) (let () (declare (not safe)) - (##fx+ _%i96730%_ '1)) - _%deleted96732%_)))))))))) + (##fx+ _%i96886%_ '1)) + _%deleted96888%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab96658%_ _%key96660%_) - (let ((_%table96663%_ - (let () (declare (not safe)) (&raw-table-table _%tab96658%_))) - (_%seed96665%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96658%_)))) - (let* ((_%h96668%_ - (fxxor (__class-specializer-hash-key _%key96660%_) - _%seed96665%_)) - (_%size96671%_ (vector-length _%table96663%_)) - (_%entries96674%_ + (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%_ (let () (declare (not safe)) - (##fxquotient _%size96671%_ '2))) - (_%start96677%_ - (let ((__tmp101588 + (##fxquotient _%size96827%_ '2))) + (_%start96833%_ + (let ((__tmp101747 (let () (declare (not safe)) - (##fxmodulo _%h96668%_ _%entries96674%_)))) + (##fxmodulo _%h96824%_ _%entries96830%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101588 '1)))) - (let _%loop96681%_ ((_%probe96684%_ _%start96677%_) - (_%i96686%_ '1)) - (let ((_%k96689%_ (vector-ref _%table96663%_ _%probe96684%_))) - (if (eq? _%k96689%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp101747 '1)))) + (let _%loop96837%_ ((_%probe96840%_ _%start96833%_) + (_%i96842%_ '1)) + (let ((_%k96845%_ (vector-ref _%table96819%_ _%probe96840%_))) + (if (eq? _%k96845%_ (macro-unused-obj)) '#!void - (if (eq? _%k96689%_ (macro-deleted-obj)) - (_%loop96681%_ - (let ((_%next-probe96694%_ - (fx+ _%start96677%_ - _%i96686%_ - (fx* _%i96686%_ _%i96686%_)))) + (if (eq? _%k96845%_ (macro-deleted-obj)) + (_%loop96837%_ + (let ((_%next-probe96850%_ + (fx+ _%start96833%_ + _%i96842%_ + (fx* _%i96842%_ _%i96842%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96694%_ _%size96671%_)) - (let () (declare (not safe)) (##fx+ _%i96686%_ '1))) - (if (eq? _%key96660%_ _%k96689%_) + (##fxmodulo _%next-probe96850%_ _%size96827%_)) + (let () (declare (not safe)) (##fx+ _%i96842%_ '1))) + (if (eq? _%key96816%_ _%k96845%_) (let () (vector-set! - _%table96663%_ - _%probe96684%_ + _%table96819%_ + _%probe96840%_ (macro-deleted-obj)) (vector-set! - _%table96663%_ + _%table96819%_ (let () (declare (not safe)) - (##fx+ _%probe96684%_ '1)) + (##fx+ _%probe96840%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101589 - (let ((__tmp101590 + (let ((__tmp101748 + (let ((__tmp101749 (let () (declare (not safe)) (&raw-table-count - _%tab96658%_)))) + _%tab96814%_)))) (declare (not safe)) - (##fx- __tmp101590 '1)))) + (##fx- __tmp101749 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96658%_ - __tmp101589))))) - (_%loop96681%_ - (let ((_%next-probe96700%_ - (fx+ _%start96677%_ - _%i96686%_ - (fx* _%i96686%_ _%i96686%_)))) + _%tab96814%_ + __tmp101748))))) + (_%loop96837%_ + (let ((_%next-probe96856%_ + (fx+ _%start96833%_ + _%i96842%_ + (fx* _%i96842%_ _%i96842%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96700%_ _%size96671%_)) + (##fxmodulo _%next-probe96856%_ _%size96827%_)) (let () (declare (not safe)) - (##fx+ _%i96686%_ '1)))))))))))) + (##fx+ _%i96842%_ '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 (_%klass96644%_) + (lambda (_%klass96800%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96644%_ 'class)) - (let ((_%klass96648%_ _%klass96644%_)) - (__specialize-class _%klass96648%_)) + (##structure-instance-of? _%klass96800%_ 'class)) + (let ((_%klass96804%_ _%klass96800%_)) + (__specialize-class _%klass96804%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4560,190 +4563,190 @@ 'contract: 'class-type? 'value: - _%klass96644%_) + _%klass96800%_) '#!void)))) (define __specialize-class - (lambda (_%klass96626%_) - (let* ((_%klass96629%_ _%klass96626%_) - (_%$e96638%_ (__lookup-class-specializer _%klass96629%_))) - (if _%$e96638%_ - _%$e96638%_ - (let ((_%method-table96642%_ - (___specialize-class _%klass96629%_))) + (lambda (_%klass96782%_) + (let* ((_%klass96785%_ _%klass96782%_) + (_%$e96794%_ (__lookup-class-specializer _%klass96785%_))) + (if _%$e96794%_ + _%$e96794%_ + (let ((_%method-table96798%_ + (___specialize-class _%klass96785%_))) (__bind-class-specializer! - _%klass96629%_ - _%method-table96642%_) - _%method-table96642%_))))) + _%klass96785%_ + _%method-table96798%_) + _%method-table96798%_))))) (define __lookup-class-specializer - (lambda (_%klass96616%_) + (lambda (_%klass96772%_) (let () (declare (not interrupts-enabled)) - (let _%again96620%_ () - (if (let ((__tmp101591 + (let _%again96776%_ () + (if (let ((__tmp101750 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101591 '0)) + (##fx= __tmp101750 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96620%_))))) - (let ((_%method-table96624%_ + (_%again96776%_))))) + (let ((_%method-table96780%_ (class-specializer-table-ref __class-specializers - _%klass96616%_ + _%klass96772%_ '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table96624%_))) + _%method-table96780%_))) (define __bind-class-specializer! - (lambda (_%klass96607%_ _%method-table96608%_) + (lambda (_%klass96763%_ _%method-table96764%_) (let () (declare (not interrupts-enabled)) - (let _%again96612%_ () - (if (let ((__tmp101592 + (let _%again96768%_ () + (if (let ((__tmp101751 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101592 '0)) + (##fx= __tmp101751 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96612%_))))) + (_%again96768%_))))) (class-specializer-table-set! __class-specializers - _%klass96607%_ - _%method-table96608%_) + _%klass96763%_ + _%method-table96764%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass96591%_ - _%method-table96592%_ - _%method96593%_ - _%proc96594%_) - (let ((_%$e96596%_ + (lambda (_%klass96747%_ + _%method-table96748%_ + _%method96749%_ + _%proc96750%_) + (let ((_%$e96752%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table96592%_ - _%method96593%_ + _%method-table96748%_ + _%method96749%_ '#f)))) - (if _%$e96596%_ - _%$e96596%_ - (let ((_%$e96599%_ (__lookup-method-specializer _%proc96594%_))) - (if _%$e96599%_ - ((lambda (_%specialize96602%_) - (let ((_%specialized-proc96604%_ - (_%specialize96602%_ - _%klass96591%_ - _%method-table96592%_))) + (if _%$e96752%_ + _%$e96752%_ + (let ((_%$e96755%_ (__lookup-method-specializer _%proc96750%_))) + (if _%$e96755%_ + ((lambda (_%specialize96758%_) + (let ((_%specialized-proc96760%_ + (_%specialize96758%_ + _%klass96747%_ + _%method-table96748%_))) (declare (not safe)) (symbolic-table-set! - _%method-table96592%_ - _%method96593%_ - _%specialized-proc96604%_))) - _%$e96599%_) + _%method-table96748%_ + _%method96749%_ + _%specialized-proc96760%_))) + _%$e96755%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table96592%_ - _%method96593%_ - _%proc96594%_)))))))) + _%method-table96748%_ + _%method96749%_ + _%proc96750%_)))))))) (define ___specialize-class - (lambda (_%klass96533%_) + (lambda (_%klass96689%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96533%_ 'class)) - (if (__class-type-metaclass? _%klass96533%_) - (let ((__method101438 - (__method-ref _%klass96533%_ 'specialize-class))) - (if __method101438 + (##structure-instance-of? _%klass96689%_ 'class)) + (if (__class-type-metaclass? _%klass96689%_) + (let ((__method101597 + (__method-ref _%klass96689%_ 'specialize-class))) + (if __method101597 (let () (declare (not safe)) - (__method101438 _%klass96533%_)) + (__method101597 _%klass96689%_)) (begin (error '"Missing method" - _%klass96533%_ + _%klass96689%_ 'specialize-class) '#!void))) - (if (let ((__tmp101593 + (if (let ((__tmp101752 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96533%_ + _%klass96689%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101593)) + (__find class-type-metaclass? __tmp101752)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass96533%_) - (let ((_%method-table96539%_ + _%klass96689%_) + (let ((_%method-table96695%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop96541%_ ((_%rest96543%_ + (let _%loop96697%_ ((_%rest96699%_ (__class-precedence-list - _%klass96533%_))) - (let* ((_%rest9654496552%_ _%rest96543%_) - (_%else9654696560%_ - (lambda () _%method-table96539%_)) - (_%K9654896579%_ - (lambda (_%rest96563%_ _%xklass96564%_) - (let ((_%xmethod-table9656596567%_ + _%klass96689%_))) + (let* ((_%rest9670096708%_ _%rest96699%_) + (_%else9670296716%_ + (lambda () _%method-table96695%_)) + (_%K9670496735%_ + (lambda (_%rest96719%_ _%xklass96720%_) + (let ((_%xmethod-table9672196723%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass96564%_ + _%xklass96720%_ '11 '#f '#f)))) - (if _%xmethod-table9656596567%_ - (let* ((_%xmethod-table96570%_ - _%xmethod-table9656596567%_) - (__tmp101594 - (lambda (_%g9657196574%_ - _%g9657296576%_) + (if _%xmethod-table9672196723%_ + (let* ((_%xmethod-table96726%_ + _%xmethod-table9672196723%_) + (__tmp101753 + (lambda (_%g9672796730%_ + _%g9672896732%_) (__specialize-method - _%klass96533%_ - _%method-table96539%_ - _%g9657196574%_ - _%g9657296576%_)))) + _%klass96689%_ + _%method-table96695%_ + _%g9672796730%_ + _%g9672896732%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table96570%_ - __tmp101594)) + _%xmethod-table96726%_ + __tmp101753)) '#f)) - (_%loop96541%_ _%rest96563%_)))) - (if (pair? _%rest9654496552%_) - (let ((_%hd9654996582%_ + (_%loop96697%_ _%rest96719%_)))) + (if (pair? _%rest9670096708%_) + (let ((_%hd9670596738%_ (let () (declare (not safe)) - (##car _%rest9654496552%_))) - (_%tl9655096584%_ + (##car _%rest9670096708%_))) + (_%tl9670696740%_ (let () (declare (not safe)) - (##cdr _%rest9654496552%_)))) - (let* ((_%xklass96587%_ _%hd9654996582%_) - (_%rest96589%_ _%tl9655096584%_)) - (_%K9654896579%_ - _%rest96589%_ - _%xklass96587%_))) - (_%else9654696560%_))))))) - (if (let () (declare (not safe)) (##type? _%klass96533%_)) - (__specialize-class (__shadow-class _%klass96533%_)) - (error '"bad class; cannot specialize" _%klass96533%_))))) + (##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%_))))) (define seal-class! - (lambda (_%klass96519%_) + (lambda (_%klass96675%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96519%_ 'class)) - (let ((_%klass96523%_ _%klass96519%_)) - (__seal-class! _%klass96523%_)) + (##structure-instance-of? _%klass96675%_ 'class)) + (let ((_%klass96679%_ _%klass96675%_)) + (__seal-class! _%klass96679%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4752,60 +4755,60 @@ 'contract: 'class-type? 'value: - _%klass96519%_) + _%klass96675%_) '#!void)))) (define __seal-class! - (lambda (_%klass96502%_) - (let ((_%klass96505%_ _%klass96502%_)) - (if (__class-type-sealed? _%klass96505%_) + (lambda (_%klass96658%_) + (let ((_%klass96661%_ _%klass96658%_)) + (if (__class-type-sealed? _%klass96661%_) '#!void (begin - (if (__class-type-final? _%klass96505%_) + (if (__class-type-final? _%klass96661%_) '#!void - (error '"cannot seal non-final class" _%klass96505%_)) - (if (__class-type-metaclass? _%klass96505%_) - (let ((__method101439 - (__method-ref _%klass96505%_ 'seal-class!))) - (if __method101439 + (error '"cannot seal non-final class" _%klass96661%_)) + (if (__class-type-metaclass? _%klass96661%_) + (let ((__method101598 + (__method-ref _%klass96661%_ 'seal-class!))) + (if __method101598 (let () (declare (not safe)) - (__method101439 _%klass96505%_)) + (__method101598 _%klass96661%_)) (begin (error '"Missing method" - _%klass96505%_ + _%klass96661%_ 'seal-class!) '#!void))) - (if (let ((__tmp101595 + (if (let ((__tmp101754 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96505%_ + _%klass96661%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101595)) + (__find class-type-metaclass? __tmp101754)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass96505%_) - (let ((_%method-table96517%_ - (__specialize-class _%klass96505%_))) + _%klass96661%_) + (let ((_%method-table96673%_ + (__specialize-class _%klass96661%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass96505%_ - _%method-table96517%_ + _%klass96661%_ + _%method-table96673%_ '11 '#f '#f)))) - (__class-type-seal! _%klass96505%_)))))) + (__class-type-seal! _%klass96661%_)))))) (define next-method - (lambda (_%subklass96476%_ _%obj96477%_ _%id96478%_) + (lambda (_%subklass96632%_ _%obj96633%_ _%id96634%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96476%_ 'class)) - (let ((_%subklass96482%_ _%subklass96476%_)) - (if (symbol? _%id96478%_) - (let ((_%id96492%_ _%id96478%_)) - (__next-method _%subklass96482%_ _%obj96477%_ _%id96492%_)) + (##structure-instance-of? _%subklass96632%_ 'class)) + (let ((_%subklass96638%_ _%subklass96632%_)) + (if (symbol? _%id96634%_) + (let ((_%id96648%_ _%id96634%_)) + (__next-method _%subklass96638%_ _%obj96633%_ _%id96648%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4814,7 +4817,7 @@ 'contract: 'symbol? 'value: - _%id96478%_) + _%id96634%_) '#!void))) (begin (raise-contract-violation-error @@ -4824,61 +4827,61 @@ 'contract: 'class-type? 'value: - _%subklass96476%_) + _%subklass96632%_) '#!void)))) (define __next-method - (lambda (_%subklass96413%_ _%obj96414%_ _%id96415%_) - (let* ((_%subklass96418%_ _%subklass96413%_) (_%id96426%_ _%id96415%_)) - (letrec ((_%find-next-method96435%_ - (lambda (_%klass96437%_) - (let _%lp96439%_ ((_%rest96441%_ + (lambda (_%subklass96569%_ _%obj96570%_ _%id96571%_) + (let* ((_%subklass96574%_ _%subklass96569%_) (_%id96582%_ _%id96571%_)) + (letrec ((_%find-next-method96591%_ + (lambda (_%klass96593%_) + (let _%lp96595%_ ((_%rest96597%_ (class-precedence-list - _%klass96437%_))) - (let* ((_%rest9644296450%_ _%rest96441%_) - (_%else9644496458%_ (lambda () '#f)) - (_%K9644696464%_ - (lambda (_%rest96461%_ _%klass96462%_) + _%klass96593%_))) + (let* ((_%rest9659896606%_ _%rest96597%_) + (_%else9660096614%_ (lambda () '#f)) + (_%K9660296620%_ + (lambda (_%rest96617%_ _%klass96618%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass96418%_)) + (##type-id _%subklass96574%_)) (let () (declare (not safe)) - (##type-id _%klass96462%_))) + (##type-id _%klass96618%_))) (__mixin-find-method - _%rest96461%_ - _%obj96414%_ - _%id96426%_) - (_%lp96439%_ _%rest96461%_))))) - (if (pair? _%rest9644296450%_) - (let ((_%hd9644796467%_ + _%rest96617%_ + _%obj96570%_ + _%id96582%_) + (_%lp96595%_ _%rest96617%_))))) + (if (pair? _%rest9659896606%_) + (let ((_%hd9660396623%_ (let () (declare (not safe)) - (##car _%rest9644296450%_))) - (_%tl9644896469%_ + (##car _%rest9659896606%_))) + (_%tl9660496625%_ (let () (declare (not safe)) - (##cdr _%rest9644296450%_)))) - (let* ((_%klass96472%_ _%hd9644796467%_) - (_%rest96474%_ _%tl9644896469%_)) - (_%K9644696464%_ - _%rest96474%_ - _%klass96472%_))) - (_%else9644496458%_))))))) - (_%find-next-method96435%_ (class-of _%obj96414%_)))))) + (##cdr _%rest9659896606%_)))) + (let* ((_%klass96628%_ _%hd9660396623%_) + (_%rest96630%_ _%tl9660496625%_)) + (_%K9660296620%_ + _%rest96630%_ + _%klass96628%_))) + (_%else9660096614%_))))))) + (_%find-next-method96591%_ (class-of _%obj96570%_)))))) (define call-next-method - (lambda (_%subklass96386%_ _%obj96387%_ _%id96388%_ . _%args96389%_) + (lambda (_%subklass96542%_ _%obj96543%_ _%id96544%_ . _%args96545%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96386%_ 'class)) - (let ((_%subklass96393%_ _%subklass96386%_)) - (if (symbol? _%id96388%_) - (let ((_%id96403%_ _%id96388%_)) + (##structure-instance-of? _%subklass96542%_ 'class)) + (let ((_%subklass96549%_ _%subklass96542%_)) + (if (symbol? _%id96544%_) + (let ((_%id96559%_ _%id96544%_)) (declare (not safe)) (##apply __call-next-method - _%subklass96393%_ - _%obj96387%_ - _%id96403%_ - _%args96389%_)) + _%subklass96549%_ + _%obj96543%_ + _%id96559%_ + _%args96545%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4887,7 +4890,7 @@ 'contract: 'symbol? 'value: - _%id96388%_) + _%id96544%_) '#!void))) (begin (raise-contract-violation-error @@ -4897,126 +4900,126 @@ 'contract: 'class-type? 'value: - _%subklass96386%_) + _%subklass96542%_) '#!void)))) (define __call-next-method - (lambda (_%subklass96357%_ _%obj96358%_ _%id96359%_ . _%args96360%_) - (let* ((_%subklass96363%_ _%subklass96357%_) - (_%id96371%_ _%id96359%_) - (_%$e96380%_ - (__next-method _%subklass96363%_ _%obj96358%_ _%id96371%_))) - (if _%$e96380%_ - ((lambda (_%methodf96383%_) - (apply _%methodf96383%_ _%obj96358%_ _%args96360%_)) - _%$e96380%_) + (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%_) (error '"cannot find next method" 'object: - _%obj96358%_ + _%obj96514%_ 'method: - _%id96371%_))))) + _%id96527%_))))) (define write-style - (lambda (_%we96355%_) (macro-writeenv-style _%we96355%_))) + (lambda (_%we96511%_) (values (macro-writeenv-style _%we96511%_)))) (define write-object - (lambda (_%we96346%_ _%obj96347%_) - (let ((_%$e96349%_ (__method-ref _%obj96347%_ ':wr))) - (if _%$e96349%_ - ((lambda (_%method96352%_) - (_%method96352%_ _%obj96347%_ _%we96346%_)) - _%$e96349%_) + (lambda (_%we96502%_ _%obj96503%_) + (let ((_%$e96505%_ (__method-ref _%obj96503%_ ':wr))) + (if _%$e96505%_ + ((lambda (_%method96508%_) + (_%method96508%_ _%obj96503%_ _%we96502%_)) + _%$e96505%_) (let () (declare (not safe)) - (##default-wr _%we96346%_ _%obj96347%_)))))) + (##default-wr _%we96502%_ _%obj96503%_)))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __shadow-classes-mx (vector '0)) (define __shadow-class - (lambda (_%type96261%_) - (letrec ((_%shadow-type-id96263%_ - (lambda (_%type96344%_) - (let ((__tmp101596 + (lambda (_%type96417%_) + (letrec ((_%shadow-type-id96419%_ + (lambda (_%type96500%_) + (let ((__tmp101755 (let () (declare (not safe)) - (##type-name _%type96344%_)))) + (##type-name _%type96500%_)))) (declare (not safe)) - (make-symbol__1 __tmp101596 '"::t")))) - (_%shadow-type-name96264%_ - (lambda (_%type96342%_) - (let () (declare (not safe)) (##type-name _%type96342%_)))) - (_%make-shadow-class96265%_ - (lambda (_%type96334%_ _%precedence-list96335%_) - (let* ((_%super96337%_ - (if (pair? _%precedence-list96335%_) + (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%_) (cons (let () (declare (not safe)) - (##car _%precedence-list96335%_)) + (##car _%precedence-list96491%_)) '()) '())) - (_%klass96339%_ + (_%klass96495%_ (make-class-type - (_%shadow-type-id96263%_ _%type96334%_) + (_%shadow-type-id96419%_ _%type96490%_) (let () (declare (not safe)) - (##type-name _%type96334%_)) - _%super96337%_ + (##type-name _%type96490%_)) + _%super96493%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? _%type96334%_) + (if (__type-extensible? _%type96490%_) '() (cons (cons 'final: '#t) '())))) '#f))) - (let ((__tmp101597 + (let ((__tmp101756 (let () (declare (not safe)) - (##type-id _%type96334%_)))) + (##type-id _%type96490%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp101597 - _%klass96339%_)) - _%klass96339%_)))) + __tmp101756 + _%klass96495%_)) + _%klass96495%_)))) (let () (declare (not interrupts-enabled)) - (let _%again96269%_ () - (if (let ((__tmp101598 + (let _%again96425%_ () + (if (let ((__tmp101757 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101598 '0)) + (##fx= __tmp101757 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96269%_))))) - (let ((_%$e96273%_ - (let ((__tmp101599 + (_%again96425%_))))) + (let ((_%$e96429%_ + (let ((__tmp101758 (let () (declare (not safe)) - (##type-id _%type96261%_)))) + (##type-id _%type96417%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp101599 '#f)))) - (if _%$e96273%_ - ((lambda (_%klass96276%_) + (symbolic-table-ref __shadow-classes __tmp101758 '#f)))) + (if _%$e96429%_ + ((lambda (_%klass96432%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass96276%_) - _%$e96273%_) - (let _%loop96279%_ ((_%super96281%_ + _%klass96432%_) + _%$e96429%_) + (let _%loop96435%_ ((_%super96437%_ (let () (declare (not safe)) - (##type-super _%type96261%_))) - (_%hierarchy96282%_ '())) - (if (not _%super96281%_) - (let _%loop96285%_ ((_%rest96287%_ _%hierarchy96282%_) - (_%precedence-list96288%_ '())) - (let* ((_%rest9628996297%_ _%rest96287%_) - (_%else9629196307%_ + (##type-super _%type96417%_))) + (_%hierarchy96438%_ '())) + (if (not _%super96437%_) + (let _%loop96441%_ ((_%rest96443%_ _%hierarchy96438%_) + (_%precedence-list96444%_ '())) + (let* ((_%rest9644596453%_ _%rest96443%_) + (_%else9644796463%_ (lambda () - (let ((_%klass96305%_ - (_%make-shadow-class96265%_ - _%type96261%_ - _%precedence-list96288%_))) + (let ((_%klass96461%_ + (_%make-shadow-class96421%_ + _%type96417%_ + _%precedence-list96444%_))) (let () (declare (not safe)) (##vector-cas! @@ -5024,108 +5027,108 @@ '0 '0 '1)) - _%klass96305%_))) - (_%K9629396321%_ - (lambda (_%rest96310%_ _%type96311%_) - (let ((_%$e96313%_ - (let ((__tmp101600 + _%klass96461%_))) + (_%K9644996477%_ + (lambda (_%rest96466%_ _%type96467%_) + (let ((_%$e96469%_ + (let ((__tmp101759 (let () (declare (not safe)) - (##type-id _%type96311%_)))) + (##type-id _%type96467%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp101600 + __tmp101759 '#f)))) - (if _%$e96313%_ - ((lambda (_%klass96316%_) - (_%loop96285%_ - _%rest96310%_ - (cons _%klass96316%_ - _%precedence-list96288%_))) - _%$e96313%_) - (let ((_%klass96319%_ - (_%make-shadow-class96265%_ - _%type96311%_ - _%precedence-list96288%_))) - (_%loop96285%_ - _%rest96310%_ - (cons _%klass96319%_ - _%precedence-list96288%_)))))))) - (if (pair? _%rest9628996297%_) - (let ((_%hd9629496324%_ + (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%_ (let () (declare (not safe)) - (##car _%rest9628996297%_))) - (_%tl9629596326%_ + (##car _%rest9644596453%_))) + (_%tl9645196482%_ (let () (declare (not safe)) - (##cdr _%rest9628996297%_)))) - (let* ((_%type96329%_ _%hd9629496324%_) - (_%rest96331%_ _%tl9629596326%_)) - (_%K9629396321%_ - _%rest96331%_ - _%type96329%_))) - (_%else9629196307%_)))) - (_%loop96279%_ + (##cdr _%rest9644596453%_)))) + (let* ((_%type96485%_ _%hd9645096480%_) + (_%rest96487%_ _%tl9645196482%_)) + (_%K9644996477%_ + _%rest96487%_ + _%type96485%_))) + (_%else9644796463%_)))) + (_%loop96435%_ (let () (declare (not safe)) - (##type-super _%super96281%_)) - (cons _%super96281%_ _%hierarchy96282%_))))))))) + (##type-super _%super96437%_)) + (cons _%super96437%_ _%hierarchy96438%_))))))))) (define class-of - (lambda (_%obj96234%_) + (lambda (_%obj96390%_) (let () (declare (not interrupts-enabled)) - (let ((_%t96238%_ - (let () (declare (not safe)) (##type _%obj96234%_)))) - (if (fx= _%t96238%_ (macro-type-subtyped)) - (let ((_%st96241%_ - (let () (declare (not safe)) (##subtype _%obj96234%_)))) - (if (fx= _%st96241%_ (macro-subtype-structure)) - (let ((_%klass96244%_ + (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 _%obj96234%_)))) + (##structure-type _%obj96390%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96244%_ 'class)) - _%klass96244%_ - (__shadow-class _%klass96244%_))) - (if (fx= _%st96241%_ (macro-subtype-boxvalues)) - (if (let ((__tmp101601 + (##structure-instance-of? _%klass96400%_ 'class)) + _%klass96400%_ + (__shadow-class _%klass96400%_))) + (if (fx= _%st96397%_ (macro-subtype-boxvalues)) + (if (let ((__tmp101760 (let () (declare (not safe)) - (##vector-length _%obj96234%_)))) + (##vector-length _%obj96390%_)))) (declare (not safe)) - (##fx= __tmp101601 '1)) + (##fx= __tmp101760 '1)) (__system-class 'box) (__system-class 'values)) - (let ((_%$e96247%_ + (let ((_%$e96403%_ (let () (declare (not safe)) - (##vector-ref __subtype-id _%st96241%_)))) - (if _%$e96247%_ - (__system-class _%$e96247%_) + (##vector-ref __subtype-id _%st96397%_)))) + (if _%$e96403%_ + (__system-class _%$e96403%_) (error '"unknown class" 'subtype: - _%st96241%_ + _%st96397%_ 'object: - _%obj96234%_)))))) - (if (fx= _%t96238%_ (macro-type-mem2)) + _%obj96390%_)))))) + (if (fx= _%t96394%_ (macro-type-mem2)) (__system-class 'pair) - (if (fx= _%t96238%_ (macro-type-fixnum)) + (if (fx= _%t96394%_ (macro-type-fixnum)) (__system-class 'fixnum) - (if (char? _%obj96234%_) + (if (char? _%obj96390%_) (__system-class 'char) - (if (eq? _%obj96234%_ '()) + (if (eq? _%obj96390%_ '()) (__system-class 'null) - (if (eq? _%obj96234%_ '#f) + (if (eq? _%obj96390%_ '#f) (__system-class 'boolean) - (if (eq? _%obj96234%_ '#t) + (if (eq? _%obj96390%_ '#t) (__system-class 'boolean) - (if (eq? _%obj96234%_ '#!void) + (if (eq? _%obj96390%_ '#!void) (__system-class 'void) - (if (eq? _%obj96234%_ '#!eof) + (if (eq? _%obj96390%_ '#!eof) (__system-class 'eof) (__system-class 'special)))))))))))))) @@ -5159,25 +5162,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id96228%_) - (let ((_%$e96230%_ + (lambda (_%id96384%_) + (let ((_%$e96386%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id96228%_ '#f)))) - (if _%$e96230%_ - _%$e96230%_ - (error '"unknown system class" _%id96228%_))))) + (symbolic-table-ref __system-classes _%id96384%_ '#f)))) + (if _%$e96386%_ + _%$e96386%_ + (error '"unknown system class" _%id96384%_))))) (define __make-system-class - (lambda (_%id96223%_ _%super96224%_) - (let ((_%klass96226%_ + (lambda (_%id96379%_ _%super96380%_) + (let ((_%klass96382%_ (make-class-type - _%id96223%_ - _%id96223%_ - _%super96224%_ + _%id96379%_ + _%id96379%_ + _%super96380%_ '() '((system: . #t)) '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id96223%_ _%klass96226%_)) - _%klass96226%_))))) + (symbolic-table-set! __system-classes _%id96379%_ _%klass96382%_)) + _%klass96382%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index 005a87511..7c1462385 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 (_%$stx94808%_) - (let* ((_%__stx101312101313%_ _%$stx94808%_) - (_%g9481394842%_ + (lambda (_%$stx94964%_) + (let* ((_%__stx101471101472%_ _%$stx94964%_) + (_%g9496994998%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101312101313%_)))) - (let ((_%__kont101315101316%_ - (lambda (_%L94935%_ _%L94937%_) + _%__stx101471101472%_)))) + (let ((_%__kont101474101475%_ + (lambda (_%L95091%_ _%L95093%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L94937%_ (cons _%L94935%_ '()))) - (cons _%L94935%_ '()))))) - (_%__kont101317101318%_ - (lambda (_%L94879%_ _%L94881%_) + (cons _%L95093%_ (cons _%L95091%_ '()))) + (cons _%L95091%_ '()))))) + (_%__kont101476101477%_ + (lambda (_%L95035%_ _%L95037%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L94879%_ (cons _%L94879%_ '())) + (cons (cons _%L95035%_ (cons _%L95035%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L94881%_ - (cons _%L94879%_ + (cons _%L95037%_ + (cons _%L95035%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L94879%_ '()))) + (cons _%L95035%_ '()))) '())))))) - (let ((_%__match101339101340%_ - (lambda (_%e9481794905%_ - _%hd9481894909%_ - _%tl9481994912%_ - _%e9482094915%_ - _%hd9482194919%_ - _%tl9482294922%_ - _%e9482394925%_ - _%hd9482494929%_ - _%tl9482594932%_) - (let ((_%L94935%_ _%hd9482494929%_) - (_%L94937%_ _%hd9482194919%_)) - (if (or (gx#identifier? _%L94935%_) - (gx#stx-fixnum? _%L94935%_)) - (_%__kont101315101316%_ _%L94935%_ _%L94937%_) - (_%__kont101317101318%_ - _%hd9482494929%_ - _%hd9482194919%_)))))) - (if (gx#stx-pair? _%__stx101312101313%_) - (let ((_%e9481794905%_ (gx#syntax-e _%__stx101312101313%_))) - (let ((_%tl9481994912%_ - (let () (declare (not safe)) (##cdr _%e9481794905%_))) - (_%hd9481894909%_ + (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 () (declare (not safe)) - (##car _%e9481794905%_)))) - (if (gx#stx-pair? _%tl9481994912%_) - (let ((_%e9482094915%_ (gx#syntax-e _%tl9481994912%_))) - (let ((_%tl9482294922%_ + (##car _%e9497395061%_)))) + (if (gx#stx-pair? _%tl9497595068%_) + (let ((_%e9497695071%_ (gx#syntax-e _%tl9497595068%_))) + (let ((_%tl9497895078%_ (let () (declare (not safe)) - (##cdr _%e9482094915%_))) - (_%hd9482194919%_ + (##cdr _%e9497695071%_))) + (_%hd9497795075%_ (let () (declare (not safe)) - (##car _%e9482094915%_)))) - (if (gx#stx-pair? _%tl9482294922%_) - (let ((_%e9482394925%_ - (gx#syntax-e _%tl9482294922%_))) - (let ((_%tl9482594932%_ + (##car _%e9497695071%_)))) + (if (gx#stx-pair? _%tl9497895078%_) + (let ((_%e9497995081%_ + (gx#syntax-e _%tl9497895078%_))) + (let ((_%tl9498195088%_ (let () (declare (not safe)) - (##cdr _%e9482394925%_))) - (_%hd9482494929%_ + (##cdr _%e9497995081%_))) + (_%hd9498095085%_ (let () (declare (not safe)) - (##car _%e9482394925%_)))) - (if (gx#stx-null? _%tl9482594932%_) - (_%__match101339101340%_ - _%e9481794905%_ - _%hd9481894909%_ - _%tl9481994912%_ - _%e9482094915%_ - _%hd9482194919%_ - _%tl9482294922%_ - _%e9482394925%_ - _%hd9482494929%_ - _%tl9482594932%_) + (##car _%e9497995081%_)))) + (if (gx#stx-null? _%tl9498195088%_) + (_%__match101498101499%_ + _%e9497395061%_ + _%hd9497495065%_ + _%tl9497595068%_ + _%e9497695071%_ + _%hd9497795075%_ + _%tl9497895078%_ + _%e9497995081%_ + _%hd9498095085%_ + _%tl9498195088%_) (let () (declare (not safe)) - (_%g9481394842%_))))) + (_%g9496994998%_))))) (let () (declare (not safe)) - (_%g9481394842%_))))) - (let () (declare (not safe)) (_%g9481394842%_))))) - (let () (declare (not safe)) (_%g9481394842%_)))))))) + (_%g9496994998%_))))) + (let () (declare (not safe)) (_%g9496994998%_))))) + (let () (declare (not safe)) (_%g9496994998%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx94960%_) - (let* ((_%__stx101362101363%_ _%$stx94960%_) - (_%g9496594994%_ + (lambda (_%$stx95116%_) + (let* ((_%__stx101521101522%_ _%$stx95116%_) + (_%g9512195150%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101362101363%_)))) - (let ((_%__kont101365101366%_ - (lambda (_%L95086%_ _%L95088%_) + _%__stx101521101522%_)))) + (let ((_%__kont101524101525%_ + (lambda (_%L95242%_ _%L95244%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95088%_ (cons _%L95086%_ '()))) + (cons _%L95244%_ (cons _%L95242%_ '()))) (cons '0 '()))))) - (_%__kont101367101368%_ - (lambda (_%L95031%_ _%L95033%_) + (_%__kont101526101527%_ + (lambda (_%L95187%_ _%L95189%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L95031%_ (cons _%L95031%_ '())) + (cons (cons _%L95187%_ (cons _%L95187%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95033%_ - (cons _%L95031%_ + (cons _%L95189%_ + (cons _%L95187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match101389101390%_ - (lambda (_%e9496995056%_ - _%hd9497095060%_ - _%tl9497195063%_ - _%e9497295066%_ - _%hd9497395070%_ - _%tl9497495073%_ - _%e9497595076%_ - _%hd9497695080%_ - _%tl9497795083%_) - (let ((_%L95086%_ _%hd9497695080%_) - (_%L95088%_ _%hd9497395070%_)) - (if (or (gx#identifier? _%L95086%_) - (gx#stx-fixnum? _%L95086%_)) - (_%__kont101365101366%_ _%L95086%_ _%L95088%_) - (_%__kont101367101368%_ - _%hd9497695080%_ - _%hd9497395070%_)))))) - (if (gx#stx-pair? _%__stx101362101363%_) - (let ((_%e9496995056%_ (gx#syntax-e _%__stx101362101363%_))) - (let ((_%tl9497195063%_ - (let () (declare (not safe)) (##cdr _%e9496995056%_))) - (_%hd9497095060%_ + (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 () (declare (not safe)) - (##car _%e9496995056%_)))) - (if (gx#stx-pair? _%tl9497195063%_) - (let ((_%e9497295066%_ (gx#syntax-e _%tl9497195063%_))) - (let ((_%tl9497495073%_ + (##car _%e9512595212%_)))) + (if (gx#stx-pair? _%tl9512795219%_) + (let ((_%e9512895222%_ (gx#syntax-e _%tl9512795219%_))) + (let ((_%tl9513095229%_ (let () (declare (not safe)) - (##cdr _%e9497295066%_))) - (_%hd9497395070%_ + (##cdr _%e9512895222%_))) + (_%hd9512995226%_ (let () (declare (not safe)) - (##car _%e9497295066%_)))) - (if (gx#stx-pair? _%tl9497495073%_) - (let ((_%e9497595076%_ - (gx#syntax-e _%tl9497495073%_))) - (let ((_%tl9497795083%_ + (##car _%e9512895222%_)))) + (if (gx#stx-pair? _%tl9513095229%_) + (let ((_%e9513195232%_ + (gx#syntax-e _%tl9513095229%_))) + (let ((_%tl9513395239%_ (let () (declare (not safe)) - (##cdr _%e9497595076%_))) - (_%hd9497695080%_ + (##cdr _%e9513195232%_))) + (_%hd9513295236%_ (let () (declare (not safe)) - (##car _%e9497595076%_)))) - (if (gx#stx-null? _%tl9497795083%_) - (_%__match101389101390%_ - _%e9496995056%_ - _%hd9497095060%_ - _%tl9497195063%_ - _%e9497295066%_ - _%hd9497395070%_ - _%tl9497495073%_ - _%e9497595076%_ - _%hd9497695080%_ - _%tl9497795083%_) + (##car _%e9513195232%_)))) + (if (gx#stx-null? _%tl9513395239%_) + (_%__match101548101549%_ + _%e9512595212%_ + _%hd9512695216%_ + _%tl9512795219%_ + _%e9512895222%_ + _%hd9512995226%_ + _%tl9513095229%_ + _%e9513195232%_ + _%hd9513295236%_ + _%tl9513395239%_) (let () (declare (not safe)) - (_%g9496594994%_))))) + (_%g9512195150%_))))) (let () (declare (not safe)) - (_%g9496594994%_))))) - (let () (declare (not safe)) (_%g9496594994%_))))) - (let () (declare (not safe)) (_%g9496594994%_)))))))) + (_%g9512195150%_))))) + (let () (declare (not safe)) (_%g9512195150%_))))) + (let () (declare (not safe)) (_%g9512195150%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx95111%_) - (let* ((_%g9511495135%_ - (lambda (_%g9511595131%_) + (lambda (_%stx95267%_) + (let* ((_%g9527095291%_ + (lambda (_%g9527195287%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9511595131%_))) - (_%g9511395363%_ - (lambda (_%g9511595139%_) - (if (gx#stx-pair? _%g9511595139%_) - (let ((_%e9511895142%_ (gx#syntax-e _%g9511595139%_))) - (let ((_%hd9511995146%_ + _%g9527195287%_))) + (_%g9526995519%_ + (lambda (_%g9527195295%_) + (if (gx#stx-pair? _%g9527195295%_) + (let ((_%e9527495298%_ (gx#syntax-e _%g9527195295%_))) + (let ((_%hd9527595302%_ (let () (declare (not safe)) - (##car _%e9511895142%_))) - (_%tl9512095149%_ + (##car _%e9527495298%_))) + (_%tl9527695305%_ (let () (declare (not safe)) - (##cdr _%e9511895142%_)))) - (if (gx#stx-pair? _%tl9512095149%_) - (let ((_%e9512195152%_ - (gx#syntax-e _%tl9512095149%_))) - (let ((_%hd9512295156%_ + (##cdr _%e9527495298%_)))) + (if (gx#stx-pair? _%tl9527695305%_) + (let ((_%e9527795308%_ + (gx#syntax-e _%tl9527695305%_))) + (let ((_%hd9527895312%_ (let () (declare (not safe)) - (##car _%e9512195152%_))) - (_%tl9512395159%_ + (##car _%e9527795308%_))) + (_%tl9527995315%_ (let () (declare (not safe)) - (##cdr _%e9512195152%_)))) - (if (gx#stx-pair? _%hd9512295156%_) - (let ((_%e9512495162%_ - (gx#syntax-e _%hd9512295156%_))) - (let ((_%hd9512595166%_ + (##cdr _%e9527795308%_)))) + (if (gx#stx-pair? _%hd9527895312%_) + (let ((_%e9528095318%_ + (gx#syntax-e _%hd9527895312%_))) + (let ((_%hd9528195322%_ (let () (declare (not safe)) - (##car _%e9512495162%_))) - (_%tl9512695169%_ + (##car _%e9528095318%_))) + (_%tl9528295325%_ (let () (declare (not safe)) - (##cdr _%e9512495162%_)))) - (if (gx#stx-pair? _%tl9512695169%_) - (let ((_%e9512795172%_ + (##cdr _%e9528095318%_)))) + (if (gx#stx-pair? _%tl9528295325%_) + (let ((_%e9528395328%_ (gx#syntax-e - _%tl9512695169%_))) - (let ((_%hd9512895176%_ + _%tl9528295325%_))) + (let ((_%hd9528495332%_ (let () (declare (not safe)) - (##car _%e9512795172%_))) - (_%tl9512995179%_ + (##car _%e9528395328%_))) + (_%tl9528595335%_ (let () (declare (not safe)) - (##cdr _%e9512795172%_)))) + (##cdr _%e9528395328%_)))) (if (gx#stx-null? - _%tl9512995179%_) + _%tl9528595335%_) (if (gx#stx-null? - _%tl9512395159%_) - ((lambda (_%L95182%_ + _%tl9527995315%_) + ((lambda (_%L95338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L95184%_) - (let* ((_%g9520295210%_ - (lambda (_%g9520395206%_) + _%L95340%_) + (let* ((_%g9535895366%_ + (lambda (_%g9535995362%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9520395206%_))) - (_%g9520195359%_ - (lambda (_%g9520395214%_) - ((lambda (_%L95217%_) - (let* ((_%g9522995237%_ - (lambda (_%g9523095233%_) + _%g9535995362%_))) + (_%g9535795515%_ + (lambda (_%g9535995370%_) + ((lambda (_%L95373%_) + (let* ((_%g9538595393%_ + (lambda (_%g9538695389%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9523095233%_))) - (_%g9522895355%_ - (lambda (_%g9523095241%_) - ((lambda (_%L95244%_) - (let* ((_%g9525795265%_ - (lambda (_%g9525895261%_) + _%g9538695389%_))) + (_%g9538495511%_ + (lambda (_%g9538695397%_) + ((lambda (_%L95400%_) + (let* ((_%g9541395421%_ + (lambda (_%g9541495417%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9525895261%_))) - (_%g9525695351%_ - (lambda (_%g9525895269%_) - ((lambda (_%L95272%_) - (let* ((_%g9528595293%_ + _%g9541495417%_))) + (_%g9541295507%_ + (lambda (_%g9541495425%_) + ((lambda (_%L95428%_) + (let* ((_%g9544195449%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9528695289%_) + (lambda (_%g9544295445%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9528695289%_))) - (_%g9528495347%_ - (lambda (_%g9528695297%_) - ((lambda (_%L95300%_) - (let* ((_%g9531395321%_ - (lambda (_%g9531495317%_) + _%g9544295445%_))) + (_%g9544095503%_ + (lambda (_%g9544295453%_) + ((lambda (_%L95456%_) + (let* ((_%g9546995477%_ + (lambda (_%g9547095473%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9531495317%_))) - (_%g9531295343%_ - (lambda (_%g9531495325%_) - ((lambda (_%L95328%_) + _%g9547095473%_))) + (_%g9546895499%_ + (lambda (_%g9547095481%_) + ((lambda (_%L95484%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95244%_ + (cons _%L95400%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -311,8 +311,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95217%_ - (cons _%L95184%_ + (cons _%L95373%_ + (cons _%L95340%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) @@ -327,7 +327,7 @@ '()) (cons (cons (gx#datum->syntax '#f '##structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95182%_ + (cons _%L95338%_ (cons (gx#datum->syntax '#f 'class::t) @@ -335,7 +335,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L95340%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -343,15 +343,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95272%_ + (cons _%L95428%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95217%_ - (cons _%L95184%_ + (cons _%L95373%_ + (cons _%L95340%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -364,7 +364,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95182%_ + (cons _%L95338%_ (cons (gx#datum->syntax '#f 'class::t) @@ -372,7 +372,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L95340%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -380,7 +380,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95300%_ + (cons _%L95456%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -388,7 +388,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95217%_ (cons _%L95184%_ (cons '#t '())))) + (cons _%L95373%_ (cons _%L95340%_ (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 _%L95182%_ + (cons _%L95338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L95340%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -414,7 +414,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95328%_ + (cons _%L95484%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -422,8 +422,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95217%_ - (cons _%L95184%_ (cons '#f '())))) + (cons _%L95373%_ + (cons _%L95340%_ (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 _%L95182%_ + (cons _%L95338%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L95340%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -452,270 +452,270 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9531495325%_)))) - (_%g9531295343%_ + _%g9547095481%_)))) + (_%g9546895499%_ (gx#stx-identifier - _%L95184%_ + _%L95340%_ '"&" - _%L95300%_)))) - _%g9528695297%_)))) - (_%g9528495347%_ - (gx#stx-identifier _%L95184%_ _%L95244%_ '"-set!")))) - _%g9525895269%_)))) + _%L95456%_)))) + _%g9544295453%_)))) + (_%g9544095503%_ + (gx#stx-identifier _%L95340%_ _%L95400%_ '"-set!")))) + _%g9541495425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9525695351%_ + (_%g9541295507%_ (gx#stx-identifier - _%L95184%_ + _%L95340%_ '"&" - _%L95244%_)))) - _%g9523095241%_)))) - (_%g9522895355%_ + _%L95400%_)))) + _%g9538695397%_)))) + (_%g9538495511%_ (gx#stx-identifier - _%L95184%_ + _%L95340%_ '"class-type-" - _%L95184%_)))) - _%g9520395214%_)))) - (_%g9520195359%_ (gx#core-quote-syntax 'class::t)))) - _%hd9512895176%_ - _%hd9512595166%_) - (_%g9511495135%_ _%g9511595139%_)) + _%L95340%_)))) + _%g9535995370%_)))) + (_%g9535795515%_ (gx#core-quote-syntax 'class::t)))) + _%hd9528495332%_ + _%hd9528195322%_) + (_%g9527095291%_ _%g9527195295%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9511495135%_ - _%g9511595139%_)))) - (_%g9511495135%_ - _%g9511595139%_)))) - (_%g9511495135%_ _%g9511595139%_)))) - (_%g9511495135%_ _%g9511595139%_)))) - (_%g9511495135%_ _%g9511595139%_))))) - (_%g9511395363%_ _%stx95111%_)))) + (_%g9527095291%_ + _%g9527195295%_)))) + (_%g9527095291%_ + _%g9527195295%_)))) + (_%g9527095291%_ _%g9527195295%_)))) + (_%g9527095291%_ _%g9527195295%_)))) + (_%g9527095291%_ _%g9527195295%_))))) + (_%g9526995519%_ _%stx95267%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx95367%_) - (let* ((_%g9537195400%_ - (lambda (_%g9537295396%_) + (lambda (_%$stx95523%_) + (let* ((_%g9552795556%_ + (lambda (_%g9552895552%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9537295396%_))) - (_%g9537095500%_ - (lambda (_%g9537295404%_) - (if (gx#stx-pair? _%g9537295404%_) - (let ((_%e9537595407%_ (gx#syntax-e _%g9537295404%_))) - (let ((_%hd9537695411%_ + _%g9552895552%_))) + (_%g9552695656%_ + (lambda (_%g9552895560%_) + (if (gx#stx-pair? _%g9552895560%_) + (let ((_%e9553195563%_ (gx#syntax-e _%g9552895560%_))) + (let ((_%hd9553295567%_ (let () (declare (not safe)) - (##car _%e9537595407%_))) - (_%tl9537795414%_ + (##car _%e9553195563%_))) + (_%tl9553395570%_ (let () (declare (not safe)) - (##cdr _%e9537595407%_)))) - (if (gx#stx-pair/null? _%tl9537795414%_) - (let ((_g101602_ + (##cdr _%e9553195563%_)))) + (if (gx#stx-pair/null? _%tl9553395570%_) + (let ((_g101761_ (gx#syntax-split-splice - _%tl9537795414%_ + _%tl9553395570%_ '0))) (begin - (let ((_g101603_ + (let ((_g101762_ (let () (declare (not safe)) - (if (##values? _g101602_) - (##vector-length _g101602_) + (if (##values? _g101761_) + (##vector-length _g101761_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101603_ 2))) + (##fx= _g101762_ 2))) (error "Context expects 2 values" - _g101603_))) - (let ((_%target9537895417%_ + _g101762_))) + (let ((_%target9553495573%_ (let () (declare (not safe)) - (##vector-ref _g101602_ 0))) - (_%tl9538095420%_ + (##vector-ref _g101761_ 0))) + (_%tl9553695576%_ (let () (declare (not safe)) - (##vector-ref _g101602_ 1)))) - (if (gx#stx-null? _%tl9538095420%_) - (letrec ((_%loop9538195423%_ - (lambda (_%hd9537995427%_ - _%field9538595430%_ - _%slot9538695432%_) + (##vector-ref _g101761_ 1)))) + (if (gx#stx-null? _%tl9553695576%_) + (letrec ((_%loop9553795579%_ + (lambda (_%hd9553595583%_ + _%field9554195586%_ + _%slot9554295588%_) (if (gx#stx-pair? - _%hd9537995427%_) - (let ((_%e9538295435%_ + _%hd9553595583%_) + (let ((_%e9553895591%_ (gx#syntax-e - _%hd9537995427%_))) - (let ((_%lp-hd9538395439%_ + _%hd9553595583%_))) + (let ((_%lp-hd9553995595%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9538295435%_))) - (_%lp-tl9538495442%_ - (let () (declare (not safe)) (##cdr _%e9538295435%_)))) - (if (gx#stx-pair? _%lp-hd9538395439%_) - (let ((_%e9538995445%_ - (gx#syntax-e _%lp-hd9538395439%_))) - (let ((_%hd9539095449%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9538995445%_))) - (_%tl9539195452%_ + (##car _%e9554595601%_))) + (_%tl9554795608%_ (let () (declare (not safe)) - (##cdr _%e9538995445%_)))) - (if (gx#stx-pair? _%tl9539195452%_) - (let ((_%e9539295455%_ - (gx#syntax-e _%tl9539195452%_))) - (let ((_%hd9539395459%_ + (##cdr _%e9554595601%_)))) + (if (gx#stx-pair? _%tl9554795608%_) + (let ((_%e9554895611%_ + (gx#syntax-e _%tl9554795608%_))) + (let ((_%hd9554995615%_ (let () (declare (not safe)) - (##car _%e9539295455%_))) - (_%tl9539495462%_ + (##car _%e9554895611%_))) + (_%tl9555095618%_ (let () (declare (not safe)) - (##cdr _%e9539295455%_)))) - (if (gx#stx-null? _%tl9539495462%_) - (_%loop9538195423%_ - _%lp-tl9538495442%_ - (cons _%hd9539395459%_ - _%field9538595430%_) - (cons _%hd9539095449%_ - _%slot9538695432%_)) - (_%g9537195400%_ _%g9537295404%_)))) - (_%g9537195400%_ _%g9537295404%_)))) - (_%g9537195400%_ _%g9537295404%_)))) - (let ((_%field9538795465%_ (reverse _%field9538595430%_)) - (_%slot9538895468%_ (reverse _%slot9538695432%_))) - ((lambda (_%L95471%_ _%L95473%_) + (##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%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L95471%_ - _%L95473%_) - (let ((__tmp101604 - (lambda (_%g9548895492%_ - _%g9548995495%_ - _%g9549095497%_) + _%L95627%_ + _%L95629%_) + (let ((__tmp101763 + (lambda (_%g9564495648%_ + _%g9564595651%_ + _%g9564695653%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9548995495%_ - (cons _%g9548895492%_ + (cons (cons _%g9564595651%_ + (cons _%g9564495648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9549095497%_)))) + _%g9564695653%_)))) (declare (not safe)) (__foldr2 - __tmp101604 + __tmp101763 '() - _%L95471%_ - _%L95473%_))))) - _%field9538795465%_ - _%slot9538895468%_)))))) + _%L95627%_ + _%L95629%_))))) + _%field9554395621%_ + _%slot9554495624%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9538195423%_ - _%target9537895417%_ + (_%loop9553795579%_ + _%target9553495573%_ '() '())) - (_%g9537195400%_ _%g9537295404%_))))) - (_%g9537195400%_ _%g9537295404%_)))) - (_%g9537195400%_ _%g9537295404%_))))) - (_%g9537095500%_ _%$stx95367%_)))) + (_%g9552795556%_ _%g9552895560%_))))) + (_%g9552795556%_ _%g9552895560%_)))) + (_%g9552795556%_ _%g9552895560%_))))) + (_%g9552695656%_ _%$stx95523%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx95505%_) - (let* ((_%g9550995543%_ - (lambda (_%g9551095539%_) + (lambda (_%$stx95661%_) + (let* ((_%g9566595699%_ + (lambda (_%g9566695695%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9551095539%_))) - (_%g9550895654%_ - (lambda (_%g9551095547%_) - (if (gx#stx-pair? _%g9551095547%_) - (let ((_%e9551795550%_ (gx#syntax-e _%g9551095547%_))) - (let ((_%hd9551895554%_ + _%g9566695695%_))) + (_%g9566495810%_ + (lambda (_%g9566695703%_) + (if (gx#stx-pair? _%g9566695703%_) + (let ((_%e9567395706%_ (gx#syntax-e _%g9566695703%_))) + (let ((_%hd9567495710%_ (let () (declare (not safe)) - (##car _%e9551795550%_))) - (_%tl9551995557%_ + (##car _%e9567395706%_))) + (_%tl9567595713%_ (let () (declare (not safe)) - (##cdr _%e9551795550%_)))) - (if (gx#stx-pair? _%tl9551995557%_) - (let ((_%e9552095560%_ - (gx#syntax-e _%tl9551995557%_))) - (let ((_%hd9552195564%_ + (##cdr _%e9567395706%_)))) + (if (gx#stx-pair? _%tl9567595713%_) + (let ((_%e9567695716%_ + (gx#syntax-e _%tl9567595713%_))) + (let ((_%hd9567795720%_ (let () (declare (not safe)) - (##car _%e9552095560%_))) - (_%tl9552295567%_ + (##car _%e9567695716%_))) + (_%tl9567895723%_ (let () (declare (not safe)) - (##cdr _%e9552095560%_)))) - (if (gx#stx-pair? _%tl9552295567%_) - (let ((_%e9552395570%_ - (gx#syntax-e _%tl9552295567%_))) - (let ((_%hd9552495574%_ + (##cdr _%e9567695716%_)))) + (if (gx#stx-pair? _%tl9567895723%_) + (let ((_%e9567995726%_ + (gx#syntax-e _%tl9567895723%_))) + (let ((_%hd9568095730%_ (let () (declare (not safe)) - (##car _%e9552395570%_))) - (_%tl9552595577%_ + (##car _%e9567995726%_))) + (_%tl9568195733%_ (let () (declare (not safe)) - (##cdr _%e9552395570%_)))) - (if (gx#stx-pair? _%tl9552595577%_) - (let ((_%e9552695580%_ + (##cdr _%e9567995726%_)))) + (if (gx#stx-pair? _%tl9568195733%_) + (let ((_%e9568295736%_ (gx#syntax-e - _%tl9552595577%_))) - (let ((_%hd9552795584%_ + _%tl9568195733%_))) + (let ((_%hd9568395740%_ (let () (declare (not safe)) - (##car _%e9552695580%_))) - (_%tl9552895587%_ + (##car _%e9568295736%_))) + (_%tl9568495743%_ (let () (declare (not safe)) - (##cdr _%e9552695580%_)))) + (##cdr _%e9568295736%_)))) (if (gx#stx-pair? - _%tl9552895587%_) - (let ((_%e9552995590%_ + _%tl9568495743%_) + (let ((_%e9568595746%_ (gx#syntax-e - _%tl9552895587%_))) - (let ((_%hd9553095594%_ + _%tl9568495743%_))) + (let ((_%hd9568695750%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9552995590%_))) - (_%tl9553195597%_ - (let () (declare (not safe)) (##cdr _%e9552995590%_)))) - (if (gx#stx-pair? _%tl9553195597%_) - (let ((_%e9553295600%_ (gx#syntax-e _%tl9553195597%_))) - (let ((_%hd9553395604%_ + (##car _%e9568595746%_))) + (_%tl9568795753%_ + (let () (declare (not safe)) (##cdr _%e9568595746%_)))) + (if (gx#stx-pair? _%tl9568795753%_) + (let ((_%e9568895756%_ (gx#syntax-e _%tl9568795753%_))) + (let ((_%hd9568995760%_ (let () (declare (not safe)) - (##car _%e9553295600%_))) - (_%tl9553495607%_ + (##car _%e9568895756%_))) + (_%tl9569095763%_ (let () (declare (not safe)) - (##cdr _%e9553295600%_)))) - (if (gx#stx-pair? _%tl9553495607%_) - (let ((_%e9553595610%_ - (gx#syntax-e _%tl9553495607%_))) - (let ((_%hd9553695614%_ + (##cdr _%e9568895756%_)))) + (if (gx#stx-pair? _%tl9569095763%_) + (let ((_%e9569195766%_ + (gx#syntax-e _%tl9569095763%_))) + (let ((_%hd9569295770%_ (let () (declare (not safe)) - (##car _%e9553595610%_))) - (_%tl9553795617%_ + (##car _%e9569195766%_))) + (_%tl9569395773%_ (let () (declare (not safe)) - (##cdr _%e9553595610%_)))) - (if (gx#stx-null? _%tl9553795617%_) - ((lambda (_%L95620%_ - _%L95622%_ - _%L95623%_ - _%L95624%_ - _%L95625%_ - _%L95626%_) + (##cdr _%e9569195766%_)))) + (if (gx#stx-null? _%tl9569395773%_) + ((lambda (_%L95776%_ + _%L95778%_ + _%L95779%_ + _%L95780%_ + _%L95781%_ + _%L95782%_) (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 _%L95626%_ '())) - (cons _%L95625%_ (cons '#f '())))) + (cons _%L95782%_ '())) + (cons _%L95781%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -747,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L95626%_ - (cons 'slot: (cons _%L95625%_ '())))))) + (cons _%L95782%_ + (cons 'slot: (cons _%L95781%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L95626%_ '())) - (cons (cons _%L95624%_ - (cons _%L95626%_ - (cons _%L95625%_ + (cons _%L95782%_ '())) + (cons (cons _%L95780%_ + (cons _%L95782%_ + (cons _%L95781%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -766,11 +766,11 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L95626%_ '())) - (cons (cons _%L95623%_ - (cons _%L95626%_ + (cons _%L95782%_ '())) + (cons (cons _%L95779%_ + (cons _%L95782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95625%_ + (cons _%L95781%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -784,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L95626%_ '())) + (cons _%L95782%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -817,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L95622%_ + (cons (cons _%L95778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95626%_ - (cons _%L95625%_ + (cons _%L95782%_ + (cons _%L95781%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -828,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L95620%_ + (cons (cons _%L95776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95626%_ - (cons _%L95625%_ + (cons _%L95782%_ + (cons _%L95781%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -839,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9553695614%_ - _%hd9553395604%_ - _%hd9553095594%_ - _%hd9552795584%_ - _%hd9552495574%_ - _%hd9552195564%_) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) + _%hd9569295770%_ + _%hd9568995760%_ + _%hd9568695750%_ + _%hd9568395740%_ + _%hd9568095730%_ + _%hd9567795720%_) + (_%g9566595699%_ _%g9566695703%_)))) + (_%g9566595699%_ _%g9566695703%_)))) + (_%g9566595699%_ _%g9566695703%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9550995543%_ - _%g9551095547%_)))) - (_%g9550995543%_ - _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_))))) - (_%g9550895654%_ _%$stx95505%_)))) + (_%g9566595699%_ + _%g9566695703%_)))) + (_%g9566595699%_ + _%g9566695703%_)))) + (_%g9566595699%_ _%g9566695703%_)))) + (_%g9566595699%_ _%g9566695703%_)))) + (_%g9566595699%_ _%g9566695703%_))))) + (_%g9566495810%_ _%$stx95661%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx95658%_) - (let* ((_%g9566295688%_ - (lambda (_%g9566395684%_) + (lambda (_%$stx95814%_) + (let* ((_%g9581895844%_ + (lambda (_%g9581995840%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9566395684%_))) - (_%g9566195771%_ - (lambda (_%g9566395692%_) - (if (gx#stx-pair? _%g9566395692%_) - (let ((_%e9566895695%_ (gx#syntax-e _%g9566395692%_))) - (let ((_%hd9566995699%_ + _%g9581995840%_))) + (_%g9581795927%_ + (lambda (_%g9581995848%_) + (if (gx#stx-pair? _%g9581995848%_) + (let ((_%e9582495851%_ (gx#syntax-e _%g9581995848%_))) + (let ((_%hd9582595855%_ (let () (declare (not safe)) - (##car _%e9566895695%_))) - (_%tl9567095702%_ + (##car _%e9582495851%_))) + (_%tl9582695858%_ (let () (declare (not safe)) - (##cdr _%e9566895695%_)))) - (if (gx#stx-pair? _%tl9567095702%_) - (let ((_%e9567195705%_ - (gx#syntax-e _%tl9567095702%_))) - (let ((_%hd9567295709%_ + (##cdr _%e9582495851%_)))) + (if (gx#stx-pair? _%tl9582695858%_) + (let ((_%e9582795861%_ + (gx#syntax-e _%tl9582695858%_))) + (let ((_%hd9582895865%_ (let () (declare (not safe)) - (##car _%e9567195705%_))) - (_%tl9567395712%_ + (##car _%e9582795861%_))) + (_%tl9582995868%_ (let () (declare (not safe)) - (##cdr _%e9567195705%_)))) - (if (gx#stx-pair? _%tl9567395712%_) - (let ((_%e9567495715%_ - (gx#syntax-e _%tl9567395712%_))) - (let ((_%hd9567595719%_ + (##cdr _%e9582795861%_)))) + (if (gx#stx-pair? _%tl9582995868%_) + (let ((_%e9583095871%_ + (gx#syntax-e _%tl9582995868%_))) + (let ((_%hd9583195875%_ (let () (declare (not safe)) - (##car _%e9567495715%_))) - (_%tl9567695722%_ + (##car _%e9583095871%_))) + (_%tl9583295878%_ (let () (declare (not safe)) - (##cdr _%e9567495715%_)))) - (if (gx#stx-pair? _%tl9567695722%_) - (let ((_%e9567795725%_ + (##cdr _%e9583095871%_)))) + (if (gx#stx-pair? _%tl9583295878%_) + (let ((_%e9583395881%_ (gx#syntax-e - _%tl9567695722%_))) - (let ((_%hd9567895729%_ + _%tl9583295878%_))) + (let ((_%hd9583495885%_ (let () (declare (not safe)) - (##car _%e9567795725%_))) - (_%tl9567995732%_ + (##car _%e9583395881%_))) + (_%tl9583595888%_ (let () (declare (not safe)) - (##cdr _%e9567795725%_)))) + (##cdr _%e9583395881%_)))) (if (gx#stx-pair? - _%tl9567995732%_) - (let ((_%e9568095735%_ + _%tl9583595888%_) + (let ((_%e9583695891%_ (gx#syntax-e - _%tl9567995732%_))) - (let ((_%hd9568195739%_ + _%tl9583595888%_))) + (let ((_%hd9583795895%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9568095735%_))) - (_%tl9568295742%_ - (let () (declare (not safe)) (##cdr _%e9568095735%_)))) - (if (gx#stx-null? _%tl9568295742%_) - ((lambda (_%L95745%_ _%L95747%_ _%L95748%_ _%L95749%_) + (##car _%e9583695891%_))) + (_%tl9583895898%_ + (let () (declare (not safe)) (##cdr _%e9583695891%_)))) + (if (gx#stx-null? _%tl9583895898%_) + ((lambda (_%L95901%_ _%L95903%_ _%L95904%_ _%L95905%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L95749%_ '())) + (cons _%L95905%_ '())) '())) (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 _%L95748%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L95747%_ '()))) + (cons _%L95904%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L95903%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L95745%_ - (cons _%L95749%_ (cons _%L95748%_ '()))) + (cons (cons _%L95901%_ + (cons _%L95905%_ (cons _%L95904%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9568195739%_ - _%hd9567895729%_ - _%hd9567595719%_ - _%hd9567295709%_) - (_%g9566295688%_ _%g9566395692%_)))) + _%hd9583795895%_ + _%hd9583495885%_ + _%hd9583195875%_ + _%hd9582895865%_) + (_%g9581895844%_ _%g9581995848%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9566295688%_ - _%g9566395692%_)))) - (_%g9566295688%_ - _%g9566395692%_)))) - (_%g9566295688%_ _%g9566395692%_)))) - (_%g9566295688%_ _%g9566395692%_)))) - (_%g9566295688%_ _%g9566395692%_))))) - (_%g9566195771%_ _%$stx95658%_)))) + (_%g9581895844%_ + _%g9581995848%_)))) + (_%g9581895844%_ + _%g9581995848%_)))) + (_%g9581895844%_ _%g9581995848%_)))) + (_%g9581895844%_ _%g9581995848%_)))) + (_%g9581895844%_ _%g9581995848%_))))) + (_%g9581795927%_ _%$stx95814%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx95775%_) - (let* ((_%g9577995808%_ - (lambda (_%g9578095804%_) + (lambda (_%$stx95931%_) + (let* ((_%g9593595964%_ + (lambda (_%g9593695960%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9578095804%_))) - (_%g9577895908%_ - (lambda (_%g9578095812%_) - (if (gx#stx-pair? _%g9578095812%_) - (let ((_%e9578395815%_ (gx#syntax-e _%g9578095812%_))) - (let ((_%hd9578495819%_ + _%g9593695960%_))) + (_%g9593496064%_ + (lambda (_%g9593695968%_) + (if (gx#stx-pair? _%g9593695968%_) + (let ((_%e9593995971%_ (gx#syntax-e _%g9593695968%_))) + (let ((_%hd9594095975%_ (let () (declare (not safe)) - (##car _%e9578395815%_))) - (_%tl9578595822%_ + (##car _%e9593995971%_))) + (_%tl9594195978%_ (let () (declare (not safe)) - (##cdr _%e9578395815%_)))) - (if (gx#stx-pair/null? _%tl9578595822%_) - (let ((_g101605_ + (##cdr _%e9593995971%_)))) + (if (gx#stx-pair/null? _%tl9594195978%_) + (let ((_g101764_ (gx#syntax-split-splice - _%tl9578595822%_ + _%tl9594195978%_ '0))) (begin - (let ((_g101606_ + (let ((_g101765_ (let () (declare (not safe)) - (if (##values? _g101605_) - (##vector-length _g101605_) + (if (##values? _g101764_) + (##vector-length _g101764_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101606_ 2))) + (##fx= _g101765_ 2))) (error "Context expects 2 values" - _g101606_))) - (let ((_%target9578695825%_ + _g101765_))) + (let ((_%target9594295981%_ (let () (declare (not safe)) - (##vector-ref _g101605_ 0))) - (_%tl9578895828%_ + (##vector-ref _g101764_ 0))) + (_%tl9594495984%_ (let () (declare (not safe)) - (##vector-ref _g101605_ 1)))) - (if (gx#stx-null? _%tl9578895828%_) - (letrec ((_%loop9578995831%_ - (lambda (_%hd9578795835%_ - _%name9579395838%_ - _%t9579495840%_) + (##vector-ref _g101764_ 1)))) + (if (gx#stx-null? _%tl9594495984%_) + (letrec ((_%loop9594595987%_ + (lambda (_%hd9594395991%_ + _%name9594995994%_ + _%t9595095996%_) (if (gx#stx-pair? - _%hd9578795835%_) - (let ((_%e9579095843%_ + _%hd9594395991%_) + (let ((_%e9594695999%_ (gx#syntax-e - _%hd9578795835%_))) - (let ((_%lp-hd9579195847%_ + _%hd9594395991%_))) + (let ((_%lp-hd9594796003%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9579095843%_))) - (_%lp-tl9579295850%_ - (let () (declare (not safe)) (##cdr _%e9579095843%_)))) - (if (gx#stx-pair? _%lp-hd9579195847%_) - (let ((_%e9579795853%_ - (gx#syntax-e _%lp-hd9579195847%_))) - (let ((_%hd9579895857%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9579795853%_))) - (_%tl9579995860%_ + (##car _%e9595396009%_))) + (_%tl9595596016%_ (let () (declare (not safe)) - (##cdr _%e9579795853%_)))) - (if (gx#stx-pair? _%tl9579995860%_) - (let ((_%e9580095863%_ - (gx#syntax-e _%tl9579995860%_))) - (let ((_%hd9580195867%_ + (##cdr _%e9595396009%_)))) + (if (gx#stx-pair? _%tl9595596016%_) + (let ((_%e9595696019%_ + (gx#syntax-e _%tl9595596016%_))) + (let ((_%hd9595796023%_ (let () (declare (not safe)) - (##car _%e9580095863%_))) - (_%tl9580295870%_ + (##car _%e9595696019%_))) + (_%tl9595896026%_ (let () (declare (not safe)) - (##cdr _%e9580095863%_)))) - (if (gx#stx-null? _%tl9580295870%_) - (_%loop9578995831%_ - _%lp-tl9579295850%_ - (cons _%hd9580195867%_ - _%name9579395838%_) - (cons _%hd9579895857%_ _%t9579495840%_)) - (_%g9577995808%_ _%g9578095812%_)))) - (_%g9577995808%_ _%g9578095812%_)))) - (_%g9577995808%_ _%g9578095812%_)))) - (let ((_%name9579595873%_ (reverse _%name9579395838%_)) - (_%t9579695876%_ (reverse _%t9579495840%_))) - ((lambda (_%L95879%_ _%L95881%_) + (##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%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L95879%_ - _%L95881%_) - (let ((__tmp101607 - (lambda (_%g9589695900%_ - _%g9589795903%_ - _%g9589895905%_) + _%L96035%_ + _%L96037%_) + (let ((__tmp101766 + (lambda (_%g9605296056%_ + _%g9605396059%_ + _%g9605496061%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9589795903%_ + (cons _%g9605396059%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9589695900%_ '())) + (cons _%g9605296056%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9589895905%_)))) + _%g9605496061%_)))) (declare (not safe)) (__foldr2 - __tmp101607 + __tmp101766 '() - _%L95879%_ - _%L95881%_))))) - _%name9579595873%_ - _%t9579695876%_)))))) + _%L96035%_ + _%L96037%_))))) + _%name9595196029%_ + _%t9595296032%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9578995831%_ - _%target9578695825%_ + (_%loop9594595987%_ + _%target9594295981%_ '() '())) - (_%g9577995808%_ _%g9578095812%_))))) - (_%g9577995808%_ _%g9578095812%_)))) - (_%g9577995808%_ _%g9578095812%_))))) - (_%g9577895908%_ _%$stx95775%_)))) + (_%g9593595964%_ _%g9593695968%_))))) + (_%g9593595964%_ _%g9593695968%_)))) + (_%g9593595964%_ _%g9593695968%_))))) + (_%g9593496064%_ _%$stx95931%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx95913%_) - (let* ((_%g9591795948%_ - (lambda (_%g9591895944%_) + (lambda (_%$stx96069%_) + (let* ((_%g9607396104%_ + (lambda (_%g9607496100%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9591895944%_))) - (_%g9591696067%_ - (lambda (_%g9591895952%_) - (if (gx#stx-pair? _%g9591895952%_) - (let ((_%e9592295955%_ (gx#syntax-e _%g9591895952%_))) - (let ((_%hd9592395959%_ + _%g9607496100%_))) + (_%g9607296223%_ + (lambda (_%g9607496108%_) + (if (gx#stx-pair? _%g9607496108%_) + (let ((_%e9607896111%_ (gx#syntax-e _%g9607496108%_))) + (let ((_%hd9607996115%_ (let () (declare (not safe)) - (##car _%e9592295955%_))) - (_%tl9592495962%_ + (##car _%e9607896111%_))) + (_%tl9608096118%_ (let () (declare (not safe)) - (##cdr _%e9592295955%_)))) - (if (gx#stx-pair? _%tl9592495962%_) - (let ((_%e9592595965%_ - (gx#syntax-e _%tl9592495962%_))) - (let ((_%hd9592695969%_ + (##cdr _%e9607896111%_)))) + (if (gx#stx-pair? _%tl9608096118%_) + (let ((_%e9608196121%_ + (gx#syntax-e _%tl9608096118%_))) + (let ((_%hd9608296125%_ (let () (declare (not safe)) - (##car _%e9592595965%_))) - (_%tl9592795972%_ + (##car _%e9608196121%_))) + (_%tl9608396128%_ (let () (declare (not safe)) - (##cdr _%e9592595965%_)))) - (if (gx#stx-pair? _%tl9592795972%_) - (let ((_%e9592895975%_ - (gx#syntax-e _%tl9592795972%_))) - (let ((_%hd9592995979%_ + (##cdr _%e9608196121%_)))) + (if (gx#stx-pair? _%tl9608396128%_) + (let ((_%e9608496131%_ + (gx#syntax-e _%tl9608396128%_))) + (let ((_%hd9608596135%_ (let () (declare (not safe)) - (##car _%e9592895975%_))) - (_%tl9593095982%_ + (##car _%e9608496131%_))) + (_%tl9608696138%_ (let () (declare (not safe)) - (##cdr _%e9592895975%_)))) - (if (gx#stx-pair? _%tl9593095982%_) - (let ((_%e9593195985%_ + (##cdr _%e9608496131%_)))) + (if (gx#stx-pair? _%tl9608696138%_) + (let ((_%e9608796141%_ (gx#syntax-e - _%tl9593095982%_))) - (let ((_%hd9593295989%_ + _%tl9608696138%_))) + (let ((_%hd9608896145%_ (let () (declare (not safe)) - (##car _%e9593195985%_))) - (_%tl9593395992%_ + (##car _%e9608796141%_))) + (_%tl9608996148%_ (let () (declare (not safe)) - (##cdr _%e9593195985%_)))) + (##cdr _%e9608796141%_)))) (if (gx#stx-pair/null? - _%hd9593295989%_) - (let ((_g101608_ + _%hd9608896145%_) + (let ((_g101767_ (gx#syntax-split-splice - _%hd9593295989%_ + _%hd9608896145%_ '0))) (begin - (let ((_g101609_ + (let ((_g101768_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g101608_) - (##vector-length _g101608_) + (if (##values? _g101767_) + (##vector-length _g101767_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101609_ 2))) - (error "Context expects 2 values" _g101609_))) - (let ((_%target9593495995%_ + (if (not (let () (declare (not safe)) (##fx= _g101768_ 2))) + (error "Context expects 2 values" _g101768_))) + (let ((_%target9609096151%_ (let () (declare (not safe)) - (##vector-ref _g101608_ 0))) - (_%tl9593695998%_ + (##vector-ref _g101767_ 0))) + (_%tl9609296154%_ (let () (declare (not safe)) - (##vector-ref _g101608_ 1)))) - (if (gx#stx-null? _%tl9593695998%_) - (letrec ((_%loop9593796001%_ - (lambda (_%hd9593596005%_ _%super9594196008%_) - (if (gx#stx-pair? _%hd9593596005%_) - (let ((_%e9593896011%_ - (gx#syntax-e _%hd9593596005%_))) - (let ((_%lp-hd9593996015%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9593896011%_))) - (_%lp-tl9594096018%_ + (##car _%e9609496167%_))) + (_%lp-tl9609696174%_ (let () (declare (not safe)) - (##cdr _%e9593896011%_)))) - (_%loop9593796001%_ - _%lp-tl9594096018%_ - (cons _%lp-hd9593996015%_ - _%super9594196008%_)))) - (let ((_%super9594296021%_ - (reverse _%super9594196008%_))) - (if (gx#stx-null? _%tl9593395992%_) - ((lambda (_%L96025%_ - _%L96027%_ - _%L96028%_) + (##cdr _%e9609496167%_)))) + (_%loop9609396157%_ + _%lp-tl9609696174%_ + (cons _%lp-hd9609596171%_ + _%super9609796164%_)))) + (let ((_%super9609896177%_ + (reverse _%super9609796164%_))) + (if (gx#stx-null? _%tl9608996148%_) + ((lambda (_%L96181%_ + _%L96183%_ + _%L96184%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96028%_ + (cons _%L96184%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96027%_ - (cons (let ((__tmp101610 - (lambda (_%g9605296055%_ + (cons _%L96183%_ + (cons (let ((__tmp101769 + (lambda (_%g9620896211%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9605396058%_) - (cons _%g9605296055%_ _%g9605396058%_)))) + _%g9620996214%_) + (cons _%g9620896211%_ _%g9620996214%_)))) (declare (not safe)) - (__foldr1 __tmp101610 '() _%L96025%_)) + (__foldr1 __tmp101769 '() _%L96181%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1230,189 +1230,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L96027%_ + (cons _%L96183%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp101611 - (lambda (_%g9605096061%_ _%g9605196064%_) - (cons _%g9605096061%_ _%g9605196064%_)))) + (let ((__tmp101770 + (lambda (_%g9620696217%_ _%g9620796220%_) + (cons _%g9620696217%_ _%g9620796220%_)))) (declare (not safe)) - (__foldr1 __tmp101611 '() _%L96025%_))) + (__foldr1 __tmp101770 '() _%L96181%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9594296021%_ - _%hd9592995979%_ - _%hd9592695969%_) - (_%g9591795948%_ - _%g9591895952%_))))))) - (_%loop9593796001%_ _%target9593495995%_ '())) - (_%g9591795948%_ _%g9591895952%_))))) + _%super9609896177%_ + _%hd9608596135%_ + _%hd9608296125%_) + (_%g9607396104%_ + _%g9607496108%_))))))) + (_%loop9609396157%_ _%target9609096151%_ '())) + (_%g9607396104%_ _%g9607496108%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9591795948%_ - _%g9591895952%_)))) - (_%g9591795948%_ - _%g9591895952%_)))) - (_%g9591795948%_ _%g9591895952%_)))) - (_%g9591795948%_ _%g9591895952%_)))) - (_%g9591795948%_ _%g9591895952%_))))) - (_%g9591696067%_ _%$stx95913%_)))) + (_%g9607396104%_ + _%g9607496108%_)))) + (_%g9607396104%_ + _%g9607496108%_)))) + (_%g9607396104%_ _%g9607496108%_)))) + (_%g9607396104%_ _%g9607496108%_)))) + (_%g9607396104%_ _%g9607496108%_))))) + (_%g9607296223%_ _%$stx96069%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx96072%_) - (let* ((_%g9607696107%_ - (lambda (_%g9607796103%_) + (lambda (_%$stx96228%_) + (let* ((_%g9623296263%_ + (lambda (_%g9623396259%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9607796103%_))) - (_%g9607596218%_ - (lambda (_%g9607796111%_) - (if (gx#stx-pair? _%g9607796111%_) - (let ((_%e9608196114%_ (gx#syntax-e _%g9607796111%_))) - (let ((_%hd9608296118%_ + _%g9623396259%_))) + (_%g9623196374%_ + (lambda (_%g9623396267%_) + (if (gx#stx-pair? _%g9623396267%_) + (let ((_%e9623796270%_ (gx#syntax-e _%g9623396267%_))) + (let ((_%hd9623896274%_ (let () (declare (not safe)) - (##car _%e9608196114%_))) - (_%tl9608396121%_ + (##car _%e9623796270%_))) + (_%tl9623996277%_ (let () (declare (not safe)) - (##cdr _%e9608196114%_)))) - (if (gx#stx-pair? _%tl9608396121%_) - (let ((_%e9608496124%_ - (gx#syntax-e _%tl9608396121%_))) - (let ((_%hd9608596128%_ + (##cdr _%e9623796270%_)))) + (if (gx#stx-pair? _%tl9623996277%_) + (let ((_%e9624096280%_ + (gx#syntax-e _%tl9623996277%_))) + (let ((_%hd9624196284%_ (let () (declare (not safe)) - (##car _%e9608496124%_))) - (_%tl9608696131%_ + (##car _%e9624096280%_))) + (_%tl9624296287%_ (let () (declare (not safe)) - (##cdr _%e9608496124%_)))) - (if (gx#stx-pair? _%tl9608696131%_) - (let ((_%e9608796134%_ - (gx#syntax-e _%tl9608696131%_))) - (let ((_%hd9608896138%_ + (##cdr _%e9624096280%_)))) + (if (gx#stx-pair? _%tl9624296287%_) + (let ((_%e9624396290%_ + (gx#syntax-e _%tl9624296287%_))) + (let ((_%hd9624496294%_ (let () (declare (not safe)) - (##car _%e9608796134%_))) - (_%tl9608996141%_ + (##car _%e9624396290%_))) + (_%tl9624596297%_ (let () (declare (not safe)) - (##cdr _%e9608796134%_)))) + (##cdr _%e9624396290%_)))) (if (gx#stx-pair/null? - _%hd9608896138%_) - (let ((_g101612_ + _%hd9624496294%_) + (let ((_g101771_ (gx#syntax-split-splice - _%hd9608896138%_ + _%hd9624496294%_ '0))) (begin - (let ((_g101613_ + (let ((_g101772_ (let () (declare (not safe)) (if (##values? - _g101612_) + _g101771_) (##vector-length - _g101612_) + _g101771_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101613_ + (##fx= _g101772_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g101613_))) + (error "Context expects 2 values" _g101772_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9609096144%_ + (let ((_%target9624696300%_ (let () (declare (not safe)) (##vector-ref - _g101612_ + _g101771_ 0))) - (_%tl9609296147%_ + (_%tl9624896303%_ (let () (declare (not safe)) (##vector-ref - _g101612_ + _g101771_ 1)))) (if (gx#stx-null? - _%tl9609296147%_) - (letrec ((_%loop9609396150%_ - (lambda (_%hd9609196154%_ + _%tl9624896303%_) + (letrec ((_%loop9624996306%_ + (lambda (_%hd9624796310%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9609796157%_) - (if (gx#stx-pair? _%hd9609196154%_) - (let ((_%e9609496160%_ - (gx#syntax-e _%hd9609196154%_))) - (let ((_%lp-hd9609596164%_ + _%super9625396313%_) + (if (gx#stx-pair? _%hd9624796310%_) + (let ((_%e9625096316%_ + (gx#syntax-e _%hd9624796310%_))) + (let ((_%lp-hd9625196320%_ (let () (declare (not safe)) - (##car _%e9609496160%_))) - (_%lp-tl9609696167%_ + (##car _%e9625096316%_))) + (_%lp-tl9625296323%_ (let () (declare (not safe)) - (##cdr _%e9609496160%_)))) - (_%loop9609396150%_ - _%lp-tl9609696167%_ - (cons _%lp-hd9609596164%_ - _%super9609796157%_)))) - (let ((_%super9609896170%_ - (reverse _%super9609796157%_))) - (if (gx#stx-pair? _%tl9608996141%_) - (let ((_%e9609996174%_ - (gx#syntax-e _%tl9608996141%_))) - (let ((_%hd9610096178%_ + (##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%_ (let () (declare (not safe)) - (##car _%e9609996174%_))) - (_%tl9610196181%_ + (##car _%e9625596330%_))) + (_%tl9625796337%_ (let () (declare (not safe)) - (##cdr _%e9609996174%_)))) - (if (gx#stx-null? _%tl9610196181%_) - ((lambda (_%L96184%_ - _%L96186%_ - _%L96187%_) + (##cdr _%e9625596330%_)))) + (if (gx#stx-null? _%tl9625796337%_) + ((lambda (_%L96340%_ + _%L96342%_ + _%L96343%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96187%_ + (cons _%L96343%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96187%_ - (cons (let ((__tmp101614 - (lambda (_%g9620996212%_ + (cons _%L96343%_ + (cons (let ((__tmp101773 + (lambda (_%g9636596368%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9621096215%_) - (cons _%g9620996212%_ _%g9621096215%_)))) + _%g9636696371%_) + (cons _%g9636596368%_ _%g9636696371%_)))) (declare (not safe)) - (__foldr1 __tmp101614 '() _%L96186%_)) + (__foldr1 __tmp101773 '() _%L96342%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L96184%_ '())) + (cons _%L96340%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9610096178%_ - _%super9609896170%_ - _%hd9608596128%_) - (_%g9607696107%_ - _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_))))))) - (_%loop9609396150%_ _%target9609096144%_ '())) - (_%g9607696107%_ _%g9607796111%_))))) + _%hd9625696334%_ + _%super9625496326%_ + _%hd9624196284%_) + (_%g9623296263%_ + _%g9623396267%_)))) + (_%g9623296263%_ _%g9623396267%_))))))) + (_%loop9624996306%_ _%target9624696300%_ '())) + (_%g9623296263%_ _%g9623396267%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9607696107%_ - _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_))))) - (_%g9607596218%_ _%$stx96072%_))))) + (_%g9623296263%_ + _%g9623396267%_)))) + (_%g9623296263%_ _%g9623396267%_)))) + (_%g9623296263%_ _%g9623396267%_)))) + (_%g9623296263%_ _%g9623396267%_))))) + (_%g9623196374%_ _%$stx96228%_))))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index 8cfe6ce29..799f5c597 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 1713631266) + (define gerbil/runtime/repl::timestamp 1733687559) (define replx (lambda () - (letrec ((_%write-reason114971%_ - (lambda (_%exn114977%_) - (lambda (_%cont114979%_ _%port114980%_) + (letrec ((_%write-reason115130%_ + (lambda (_%exn115136%_) + (lambda (_%cont115138%_ _%port115139%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn114977%_ - _%cont114979%_ - _%port114980%_)) + _%exn115136%_ + _%cont115138%_ + _%port115139%_)) '#f)))) - (let ((__tmp114981 - (lambda (_%exn114973%_) - (let ((__tmp114982 - (lambda (_%cont114975%_) - (let ((__tmp114983 - (_%write-reason114971%_ _%exn114973%_))) + (let ((__tmp115140 + (lambda (_%exn115132%_) + (let ((__tmp115141 + (lambda (_%cont115134%_) + (let ((__tmp115142 + (_%write-reason115130%_ _%exn115132%_))) (declare (not safe)) (##repl-within - _%cont114975%_ - __tmp114983 - _%exn114973%_))))) + _%cont115134%_ + __tmp115142 + _%exn115132%_))))) (declare (not safe)) - (##continuation-capture __tmp114982))))) + (##continuation-capture __tmp115141))))) (declare (not safe)) - (with-exception-handler __tmp114981 ##repl)))))) + (with-exception-handler __tmp115140 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index b19943acf..e441ea194 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 1713631265) + (define gerbil/runtime/syntax::timestamp 1733687559) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args112208%_ - (apply make-instance SyntaxError::t _%$args112208%_))) + (lambda _%$args112367%_ + (apply make-instance SyntaxError::t _%$args112367%_))) (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 (_%self111709112090%_ _%port112092%_) - (let* ((_%self112094%_ _%self111709112090%_) - (_%self112096%_ _%self112094%_)) - (letrec ((_%location112106%_ + (lambda (_%self111868112249%_ _%port112251%_) + (let* ((_%self112253%_ _%self111868112249%_) + (_%self112255%_ _%self112253%_)) + (letrec ((_%location112265%_ (lambda () - (let _%lp112168%_ ((_%rest112170%_ + (let _%lp112327%_ ((_%rest112329%_ (##unchecked-structure-ref - _%self112096%_ + _%self112255%_ '3 '#f '#f))) - (let* ((_%rest112171112179%_ _%rest112170%_) - (_%else112173112187%_ (lambda () '#f)) - (_%K112175112196%_ - (lambda (_%rest112190%_ _%hd112191%_) - (let ((_%$e112193%_ - (__AST-source _%hd112191%_))) - (if _%$e112193%_ - _%$e112193%_ - (_%lp112168%_ _%rest112190%_)))))) - (if (pair? _%rest112171112179%_) - (let ((_%hd112176112199%_ - (##car _%rest112171112179%_)) - (_%tl112177112201%_ - (##cdr _%rest112171112179%_))) - (let* ((_%hd112204%_ _%hd112176112199%_) - (_%rest112206%_ _%tl112177112201%_)) - (_%K112175112196%_ - _%rest112206%_ - _%hd112204%_))) - (_%else112173112187%_))))))) + (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%_))))))) (__call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e112109%_ (_%location112106%_))) - (if _%$e112109%_ - ((lambda (_%where112112%_) - (##display-locat _%where112112%_ '#t _%port112092%_)) - _%$e112109%_) + (let ((_%$e112268%_ (_%location112265%_))) + (if _%$e112268%_ + ((lambda (_%where112271%_) + (##display-locat _%where112271%_ '#t _%port112251%_)) + _%$e112268%_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e112115%_ - (##unchecked-structure-ref _%self112096%_ '4 '#f '#f))) - (if _%$e112115%_ - ((lambda (_%where112118%_) + (let ((_%$e112274%_ + (##unchecked-structure-ref _%self112255%_ '4 '#f '#f))) + (if _%$e112274%_ + ((lambda (_%where112277%_) (displayln '" at " - _%where112118%_ + _%where112277%_ '": " (##unchecked-structure-ref - _%self112096%_ + _%self112255%_ '2 '#f '#f))) - _%$e112115%_) + _%$e112274%_) (displayln '": " - (##unchecked-structure-ref _%self112096%_ '2 '#f '#f)))) - (let* ((_%self.irritants112120112128%_ - (##unchecked-structure-ref _%self112096%_ '3 '#f '#f)) - (_%else112122112136%_ (lambda () '#!void)) - (_%K112124112149%_ - (lambda (_%rest112139%_ _%stx112140%_) + (##unchecked-structure-ref _%self112255%_ '2 '#f '#f)))) + (let* ((_%self.irritants112279112287%_ + (##unchecked-structure-ref _%self112255%_ '3 '#f '#f)) + (_%else112281112295%_ (lambda () '#!void)) + (_%K112283112308%_ + (lambda (_%rest112298%_ _%stx112299%_) (display '"... form: ") - (__pp-syntax _%stx112140%_) + (__pp-syntax _%stx112299%_) (for-each - (lambda (_%detail112142%_) + (lambda (_%detail112301%_) (display '"... detail: ") - (##write (__AST->datum _%detail112142%_)) - (let ((_%$e112144%_ - (__AST-source _%detail112142%_))) - (if _%$e112144%_ - ((lambda (_%loc112147%_) + (##write (__AST->datum _%detail112301%_)) + (let ((_%$e112303%_ + (__AST-source _%detail112301%_))) + (if _%$e112303%_ + ((lambda (_%loc112306%_) (display '" at ") (##display-locat - _%loc112147%_ + _%loc112306%_ '#t - _%port112092%_)) - _%$e112144%_) + _%port112251%_)) + _%$e112303%_) '#!void)) (newline)) - _%rest112139%_)))) - (if (pair? _%self.irritants112120112128%_) - (let ((_%hd112125112152%_ - (##car _%self.irritants112120112128%_)) - (_%tl112126112154%_ - (##cdr _%self.irritants112120112128%_))) - (let* ((_%stx112157%_ _%hd112125112152%_) - (_%rest112159%_ _%tl112126112154%_)) - (_%K112124112149%_ _%rest112159%_ _%stx112157%_))) + _%rest112298%_)))) + (if (pair? _%self.irritants112279112287%_) + (let ((_%hd112284112311%_ + (##car _%self.irritants112279112287%_)) + (_%tl112285112313%_ + (##cdr _%self.irritants112279112287%_))) + (let* ((_%stx112316%_ _%hd112284112311%_) + (_%rest112318%_ _%tl112285112313%_)) + (_%K112283112308%_ _%rest112318%_ _%stx112316%_))) '#!void)) (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont112160112162%_ + (let ((_%cont112319112321%_ (##unchecked-structure-ref - _%self112096%_ + _%self112255%_ '1 '#f '#f))) - (if _%cont112160112162%_ - (let ((_%cont112165%_ _%cont112160112162%_)) + (if _%cont112319112321%_ + (let ((_%cont112324%_ _%cont112319112321%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont112165%_)) + (display-continuation-backtrace _%cont112324%_)) '#f)) '#!void)) current-output-port - _%port112092%_))))) + _%port112251%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -187,37 +187,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message111961%_ - _%irritants111962%_ - _%where111963%_ - _%context111964%_ - _%marks111965%_ - _%phi111966%_) - (let ((__obj112305 + (lambda (_%message112120%_ + _%irritants112121%_ + _%where112122%_ + _%context112123%_ + _%marks112124%_ + _%phi112125%_) + (let ((__obj112464 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj112305 _%message111961%_ '2 '#f '#f) + (##unchecked-structure-set! __obj112464 _%message112120%_ '2 '#f '#f) (##unchecked-structure-set! - __obj112305 - _%irritants111962%_ + __obj112464 + _%irritants112121%_ '3 '#f '#f) - (##unchecked-structure-set! __obj112305 _%where111963%_ '4 '#f '#f) - (##unchecked-structure-set! __obj112305 _%context111964%_ '5 '#f '#f) - (##unchecked-structure-set! __obj112305 _%marks111965%_ '7 '#f '#f) - (##unchecked-structure-set! __obj112305 _%phi111966%_ '6 '#f '#f) - __obj112305))) + (##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))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where111956%_ - _%message111957%_ - _%stx111958%_ + (lambda (_%where112115%_ + _%message112116%_ + _%stx112117%_ . - _%details111959%_) + _%details112118%_) (raise (make-syntax-error - _%message111957%_ - (cons _%stx111958%_ _%details111959%_) - _%where111956%_ + _%message112116%_ + (cons _%stx112117%_ _%details112118%_) + _%where112115%_ '#f '#f '#f)))) @@ -231,7 +231,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args111953%_ (apply make-instance AST::t _%$args111953%_))) + (lambda _%$args112112%_ (apply make-instance AST::t _%$args112112%_))) (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 (_%stx111951%_) - (if (##structure-instance-of? _%stx111951%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx111951%_ '1 '#f '#f) - _%stx111951%_))) + (lambda (_%stx112110%_) + (if (##structure-instance-of? _%stx112110%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx112110%_ '1 '#f '#f) + _%stx112110%_))) (define __AST-source - (lambda (_%stx111942%_) - (let _%lp111944%_ ((_%src111946%_ _%stx111942%_)) - (if (##structure-instance-of? _%src111946%_ 'gerbil#AST::t) - (_%lp111944%_ - (##unchecked-structure-ref _%src111946%_ '2 '#f '#f)) - (if (##locat? _%src111946%_) _%src111946%_ '#f))))) + (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))))) (define __AST - (lambda (_%e111934%_ _%src-stx111935%_) - (let ((_%src111937%_ (__AST-source _%src-stx111935%_))) - (if (or (##structure-instance-of? _%e111934%_ 'gerbil#AST::t) - (not _%src111937%_)) - _%e111934%_ - (##structure AST::t _%e111934%_ _%src111937%_))))) + (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%_))))) (define __AST-eq? - (lambda (_%stx111931%_ _%obj111932%_) - (eq? (__AST-e _%stx111931%_) _%obj111932%_))) + (lambda (_%stx112090%_ _%obj112091%_) + (eq? (__AST-e _%stx112090%_) _%obj112091%_))) (define __AST-pair? - (lambda (_%stx111929%_) (pair? (__AST-e _%stx111929%_)))) + (lambda (_%stx112088%_) (pair? (__AST-e _%stx112088%_)))) (define __AST-null? - (lambda (_%stx111927%_) (null? (__AST-e _%stx111927%_)))) + (lambda (_%stx112086%_) (null? (__AST-e _%stx112086%_)))) (define __AST-datum? - (lambda (_%stx111908%_) - (let* ((_%e111910%_ (__AST-e _%stx111908%_)) - (_%$e111912%_ (number? _%e111910%_))) - (if _%$e111912%_ - _%$e111912%_ - (let ((_%$e111915%_ (string? _%e111910%_))) - (if _%$e111915%_ - _%$e111915%_ - (let ((_%$e111918%_ (char? _%e111910%_))) - (if _%$e111918%_ - _%$e111918%_ - (let ((_%$e111921%_ (keyword? _%e111910%_))) - (if _%$e111921%_ - _%$e111921%_ - (let ((_%$e111924%_ (boolean? _%e111910%_))) - (if _%$e111924%_ - _%$e111924%_ - (eq? _%e111910%_ '#!void))))))))))))) + (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))))))))))))) (define __AST-id? - (lambda (_%stx111906%_) (symbol? (__AST-e _%stx111906%_)))) + (lambda (_%stx112065%_) (symbol? (__AST-e _%stx112065%_)))) (define __AST-id-list?__% - (lambda (_%stx111857%_ _%tail?111858%_) - (let _%lp111860%_ ((_%rest111862%_ _%stx111857%_)) - (let* ((_%$e111864%_ _%rest111862%_) - (_%$E111866111879%_ + (lambda (_%stx112016%_ _%tail?112017%_) + (let _%lp112019%_ ((_%rest112021%_ _%stx112016%_)) + (let* ((_%$e112023%_ _%rest112021%_) + (_%$E112025112038%_ (lambda () - (let* ((_%$E111867111874%_ + (let* ((_%$E112026112033%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111864%_))) - (_%rest111877%_ _%$e111864%_)) - (_%tail?111858%_ _%rest111877%_))))) - (if (__AST-pair? _%$e111864%_) - (let* ((_%$tgt111868111882%_ (__AST-e _%$e111864%_)) - (_%$hd111869111885%_ (##car _%$tgt111868111882%_)) - (_%$tl111870111888%_ (##cdr _%$tgt111868111882%_)) - (_%hd111892%_ _%$hd111869111885%_) - (_%rest111894%_ _%$tl111870111888%_)) - (if (__AST-id? _%hd111892%_) - (_%lp111860%_ _%rest111894%_) + _%$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%_) '#f)) - (_%$E111866111879%_)))))) + (_%$E112025112038%_)))))) (define __AST-id-list?__0 - (lambda (_%stx111899%_) - (let ((_%tail?111901%_ __AST-null?)) - (__AST-id-list?__% _%stx111899%_ _%tail?111901%_)))) + (lambda (_%stx112058%_) + (let ((_%tail?112060%_ __AST-null?)) + (__AST-id-list?__% _%stx112058%_ _%tail?112060%_)))) (define __AST-id-list? - (lambda _g112308_ - (let ((_g112307_ (##length _g112308_))) - (cond ((##fx= _g112307_ 1) (apply __AST-id-list?__0 _g112308_)) - ((##fx= _g112307_ 2) (apply __AST-id-list?__% _g112308_)) + (lambda _g112467_ + (let ((_g112466_ (##length _g112467_))) + (cond ((##fx= _g112466_ 1) (apply __AST-id-list?__0 _g112467_)) + ((##fx= _g112466_ 2) (apply __AST-id-list?__% _g112467_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g112308_)))))) + _g112467_)))))) (define __AST-bind-list? - (lambda (_%stx111849%_) + (lambda (_%stx112008%_) (__AST-id-list?__% - _%stx111849%_ - (lambda (_%e111851%_) - (let ((_%$e111853%_ (__AST-null? _%e111851%_))) - (if _%$e111853%_ _%$e111853%_ (__AST-id? _%e111851%_))))))) + _%stx112008%_ + (lambda (_%e112010%_) + (let ((_%$e112012%_ (__AST-null? _%e112010%_))) + (if _%$e112012%_ _%$e112012%_ (__AST-id? _%e112010%_))))))) (define __AST-list?__% - (lambda (_%stx111802%_ _%tail?111803%_) - (let _%lp111805%_ ((_%rest111807%_ _%stx111802%_)) - (let* ((_%$e111809%_ _%rest111807%_) - (_%$E111811111824%_ + (lambda (_%stx111961%_ _%tail?111962%_) + (let _%lp111964%_ ((_%rest111966%_ _%stx111961%_)) + (let* ((_%$e111968%_ _%rest111966%_) + (_%$E111970111983%_ (lambda () - (let* ((_%$E111812111819%_ + (let* ((_%$E111971111978%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111809%_))) - (_%rest111822%_ _%$e111809%_)) - (_%tail?111803%_ _%rest111822%_))))) - (if (__AST-pair? _%$e111809%_) - (let* ((_%$tgt111813111827%_ (__AST-e _%$e111809%_)) - (_%$hd111814111830%_ (##car _%$tgt111813111827%_)) - (_%$tl111815111833%_ (##cdr _%$tgt111813111827%_)) - (_%rest111837%_ _%$tl111815111833%_)) - (_%lp111805%_ _%rest111837%_)) - (_%$E111811111824%_)))))) + _%$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%_)))))) (define __AST-list?__0 - (lambda (_%stx111842%_) - (let ((_%tail?111844%_ __AST-null?)) - (__AST-list?__% _%stx111842%_ _%tail?111844%_)))) + (lambda (_%stx112001%_) + (let ((_%tail?112003%_ __AST-null?)) + (__AST-list?__% _%stx112001%_ _%tail?112003%_)))) (define __AST-list? - (lambda _g112310_ - (let ((_g112309_ (##length _g112310_))) - (cond ((##fx= _g112309_ 1) (apply __AST-list?__0 _g112310_)) - ((##fx= _g112309_ 2) (apply __AST-list?__% _g112310_)) + (lambda _g112469_ + (let ((_g112468_ (##length _g112469_))) + (cond ((##fx= _g112468_ 1) (apply __AST-list?__0 _g112469_)) + ((##fx= _g112468_ 2) (apply __AST-list?__% _g112469_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g112310_)))))) + _g112469_)))))) (define __AST->list - (lambda (_%stx111767%_) - (let* ((_%$e111769%_ _%stx111767%_) - (_%$E111771111784%_ + (lambda (_%stx111926%_) + (let* ((_%$e111928%_ _%stx111926%_) + (_%$E111930111943%_ (lambda () - (let* ((_%$E111772111779%_ + (let* ((_%$E111931111938%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111769%_))) - (_%rest111782%_ _%$e111769%_)) - (__AST-e _%rest111782%_))))) - (if (__AST-pair? _%$e111769%_) - (let* ((_%$tgt111773111787%_ (__AST-e _%$e111769%_)) - (_%$hd111774111790%_ (##car _%$tgt111773111787%_)) - (_%$tl111775111793%_ (##cdr _%$tgt111773111787%_)) - (_%hd111797%_ _%$hd111774111790%_) - (_%rest111799%_ _%$tl111775111793%_)) - (cons _%hd111797%_ (__AST->list _%rest111799%_))) - (_%$E111771111784%_))))) + _%$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%_))))) (define __AST->datum - (lambda (_%stx111760%_) - (if (##structure-instance-of? _%stx111760%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx111760%_)) - (if (pair? _%stx111760%_) - (cons (__AST->datum (##car _%stx111760%_)) - (__AST->datum (##cdr _%stx111760%_))) - (if (vector? _%stx111760%_) - (vector-map __AST->datum _%stx111760%_) - (if (box? _%stx111760%_) - (box (__AST->datum (unbox _%stx111760%_))) - _%stx111760%_)))))) + (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%_)))))) (define get-readenv - (lambda (_%port111758%_) + (lambda (_%port111917%_) (##make-readenv - _%port111758%_ + _%port111917%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,93 +410,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in111746%_) - (let ((_%e111748%_ (##read-datum-or-eof (get-readenv _%in111746%_)))) - (if (eof-object? (__AST-e _%e111748%_)) - (__AST-e _%e111748%_) - _%e111748%_)))) + (lambda (_%in111905%_) + (let ((_%e111907%_ (##read-datum-or-eof (get-readenv _%in111905%_)))) + (if (eof-object? (__AST-e _%e111907%_)) + (__AST-e _%e111907%_) + _%e111907%_)))) (define read-syntax__0 (lambda () - (let ((_%in111754%_ (current-input-port))) - (read-syntax__% _%in111754%_)))) + (let ((_%in111913%_ (current-input-port))) + (read-syntax__% _%in111913%_)))) (define read-syntax - (lambda _g112312_ - (let ((_g112311_ (##length _g112312_))) - (cond ((##fx= _g112311_ 0) (apply read-syntax__0 _g112312_)) - ((##fx= _g112311_ 1) (apply read-syntax__% _g112312_)) + (lambda _g112471_ + (let ((_g112470_ (##length _g112471_))) + (cond ((##fx= _g112470_ 0) (apply read-syntax__0 _g112471_)) + ((##fx= _g112470_ 1) (apply read-syntax__% _g112471_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g112312_)))))) + _g112471_)))))) (define read-syntax-from-file - (lambda (_%path111741%_) - (let ((_%r111743%_ + (lambda (_%path111900%_) + (let ((_%r111902%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path111741%_) + (path-normalize _%path111900%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r111743%_) - (cdr (__AST-e (vector-ref _%r111743%_ '1))) - (error (err-code->string _%r111743%_) _%path111741%_))))) + (if (vector? _%r111902%_) + (cdr (__AST-e (vector-ref _%r111902%_ '1))) + (error (err-code->string _%r111902%_) _%path111900%_))))) (define __wrap-syntax - (lambda (_%re111738%_ _%e111739%_) - (if (eof-object? _%e111739%_) - _%e111739%_ - (##structure AST::t _%e111739%_ (##readenv->locat _%re111738%_))))) + (lambda (_%re111897%_ _%e111898%_) + (if (eof-object? _%e111898%_) + _%e111898%_ + (##structure AST::t _%e111898%_ (##readenv->locat _%re111897%_))))) (define __unwrap-syntax - (lambda (_%re111735%_ _%e111736%_) (__AST-e _%e111736%_))) + (lambda (_%re111894%_ _%e111895%_) (__AST-e _%e111895%_))) (define __pp-syntax - (lambda (_%stx111733%_) (pp (__AST->datum _%stx111733%_)))) + (lambda (_%stx111892%_) (pp (__AST->datum _%stx111892%_)))) (define __make-readtable (lambda () - (let ((_%rt111731%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt111731%_ '#t) - (macro-readtable-bracket-handler-set! _%rt111731%_ '@list) - (macro-readtable-brace-handler-set! _%rt111731%_ '@method) + (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) (##readtable-char-sharp-handler-set! - _%rt111731%_ + _%rt111890%_ '#\! __read-sharp-bang) - _%rt111731%_))) + _%rt111890%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt111727%_ _%kw111728%_) - (macro-readtable-bracket-handler-set! _%rt111727%_ _%kw111728%_))) + (lambda (_%rt111886%_ _%kw111887%_) + (macro-readtable-bracket-handler-set! _%rt111886%_ _%kw111887%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt111724%_ _%kw111725%_) - (macro-readtable-brace-handler-set! _%rt111724%_ _%kw111725%_))) + (lambda (_%rt111883%_ _%kw111884%_) + (macro-readtable-brace-handler-set! _%rt111883%_ _%kw111884%_))) (define __read-sharp-bang - (lambda (_%re111715%_ _%next111716%_ _%start-pos111717%_) - (if (eq? _%start-pos111717%_ '0) - (let* ((_%line111719%_ + (lambda (_%re111874%_ _%next111875%_ _%start-pos111876%_) + (if (eq? _%start-pos111876%_ '0) + (let* ((_%line111878%_ (##read-line - (macro-readenv-port _%re111715%_) + (macro-readenv-port _%re111874%_) '#\newline '#f ##max-fixnum)) - (_%script-line111721%_ + (_%script-line111880%_ (substring - _%line111719%_ + _%line111878%_ '1 - (string-length _%line111719%_)))) + (string-length _%line111878%_)))) (macro-readenv-script-line-set! - _%re111715%_ - _%script-line111721%_) + _%re111874%_ + _%script-line111880%_) (##script-marker)) (##read-sharp-bang - _%re111715%_ - _%next111716%_ - _%start-pos111717%_)))) + _%re111874%_ + _%next111875%_ + _%start-pos111876%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj111713%_) - (if (source-location? _%obj111713%_) - (string? (##locat-container _%obj111713%_)) + (lambda (_%obj111872%_) + (if (source-location? _%obj111872%_) + (string? (##locat-container _%obj111872%_)) '#f))) (define source-location-path - (lambda (_%obj111711%_) - (if (##locat? _%obj111711%_) - (##container->path (##locat-container _%obj111711%_)) + (lambda (_%obj111870%_) + (if (##locat? _%obj111870%_) + (##container->path (##locat-container _%obj111870%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index 5214f0a0d..c11f50520 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]#_g112321_| + (define |[1]#_g112480_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g112324_| + (define |[1]#_g112483_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g112325_| + (define |[1]#_g112484_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g112327_| + (define |[1]#_g112486_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g112329_| + (define |[1]#_g112488_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g112331_| + (define |[1]#_g112490_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g112333_| + (define |[1]#_g112492_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112334_| + (define |[1]#_g112493_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112335_| + (define |[1]#_g112494_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112336_| + (define |[1]#_g112495_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112337_| + (define |[1]#_g112496_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112338_| + (define |[1]#_g112497_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112339_| + (define |[1]#_g112498_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112341_| + (define |[1]#_g112500_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112342_| + (define |[1]#_g112501_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112343_| + (define |[1]#_g112502_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112344_| + (define |[1]#_g112503_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112345_| + (define |[1]#_g112504_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112346_| + (define |[1]#_g112505_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112347_| + (define |[1]#_g112506_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112349_| + (define |[1]#_g112508_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112350_| + (define |[1]#_g112509_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112351_| + (define |[1]#_g112510_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112352_| + (define |[1]#_g112511_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112353_| + (define |[1]#_g112512_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112354_| + (define |[1]#_g112513_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112355_| + (define |[1]#_g112514_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112357_| + (define |[1]#_g112516_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112358_| + (define |[1]#_g112517_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112359_| + (define |[1]#_g112518_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112360_| + (define |[1]#_g112519_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112361_| + (define |[1]#_g112520_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112362_| + (define |[1]#_g112521_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112363_| + (define |[1]#_g112522_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112365_| + (define |[1]#_g112524_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g112367_| + (define |[1]#_g112526_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g112369_| + (define |[1]#_g112528_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g112371_| + (define |[1]#_g112530_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112372_| + (define |[1]#_g112531_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112374_| + (define |[1]#_g112533_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112375_| + (define |[1]#_g112534_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112377_| + (define |[1]#_g112536_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112378_| + (define |[1]#_g112537_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112380_| + (define |[1]#_g112539_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112381_| + (define |[1]#_g112540_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,291 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx110591%_) - (let* ((_%g110595110619%_ - (lambda (_%g110596110615%_) + (lambda (_%$stx110750%_) + (let* ((_%g110754110778%_ + (lambda (_%g110755110774%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110596110615%_))) - (_%g110594110705%_ - (lambda (_%g110596110623%_) - (if (gx#stx-pair? _%g110596110623%_) - (let ((_%e110599110626%_ - (gx#syntax-e _%g110596110623%_))) - (let ((_%hd110600110630%_ + _%g110755110774%_))) + (_%g110753110864%_ + (lambda (_%g110755110782%_) + (if (gx#stx-pair? _%g110755110782%_) + (let ((_%e110758110785%_ + (gx#syntax-e _%g110755110782%_))) + (let ((_%hd110759110789%_ (let () (declare (not safe)) - (##car _%e110599110626%_))) - (_%tl110601110633%_ + (##car _%e110758110785%_))) + (_%tl110760110792%_ (let () (declare (not safe)) - (##cdr _%e110599110626%_)))) - (if (gx#stx-pair? _%tl110601110633%_) - (let ((_%e110602110636%_ - (gx#syntax-e _%tl110601110633%_))) - (let ((_%hd110603110640%_ + (##cdr _%e110758110785%_)))) + (if (gx#stx-pair? _%tl110760110792%_) + (let ((_%e110761110795%_ + (gx#syntax-e _%tl110760110792%_))) + (let ((_%hd110762110799%_ (let () (declare (not safe)) - (##car _%e110602110636%_))) - (_%tl110604110643%_ + (##car _%e110761110795%_))) + (_%tl110763110802%_ (let () (declare (not safe)) - (##cdr _%e110602110636%_)))) - (if (gx#stx-pair/null? _%tl110604110643%_) - (let ((_g112313_ + (##cdr _%e110761110795%_)))) + (if (gx#stx-pair/null? _%tl110763110802%_) + (let ((_g112472_ (gx#syntax-split-splice - _%tl110604110643%_ + _%tl110763110802%_ '0))) (begin - (let ((_g112314_ + (let ((_g112473_ (let () (declare (not safe)) - (if (##values? _g112313_) + (if (##values? _g112472_) (##vector-length - _g112313_) + _g112472_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112314_ 2))) + (##fx= _g112473_ 2))) (error "Context expects 2 values" - _g112314_))) - (let ((_%target110605110646%_ + _g112473_))) + (let ((_%target110764110805%_ (let () (declare (not safe)) - (##vector-ref _g112313_ 0))) - (_%tl110607110649%_ + (##vector-ref _g112472_ 0))) + (_%tl110766110808%_ (let () (declare (not safe)) (##vector-ref - _g112313_ + _g112472_ 1)))) (if (gx#stx-null? - _%tl110607110649%_) - (letrec ((_%loop110608110652%_ - (lambda (_%hd110606110656%_ + _%tl110766110808%_) + (letrec ((_%loop110767110811%_ + (lambda (_%hd110765110815%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body110612110659%_) - (if (gx#stx-pair? _%hd110606110656%_) - (let ((_%e110609110662%_ - (gx#syntax-e _%hd110606110656%_))) - (let ((_%lp-hd110610110666%_ + _%body110771110818%_) + (if (gx#stx-pair? _%hd110765110815%_) + (let ((_%e110768110821%_ + (gx#syntax-e _%hd110765110815%_))) + (let ((_%lp-hd110769110825%_ (let () (declare (not safe)) - (##car _%e110609110662%_))) - (_%lp-tl110611110669%_ + (##car _%e110768110821%_))) + (_%lp-tl110770110828%_ (let () (declare (not safe)) - (##cdr _%e110609110662%_)))) - (_%loop110608110652%_ - _%lp-tl110611110669%_ - (cons _%lp-hd110610110666%_ - _%body110612110659%_)))) - (let ((_%body110613110672%_ - (reverse _%body110612110659%_))) - ((lambda (_%L110676%_ _%L110678%_) + (##cdr _%e110768110821%_)))) + (_%loop110767110811%_ + _%lp-tl110770110828%_ + (cons _%lp-hd110769110825%_ + _%body110771110818%_)))) + (let ((_%body110772110831%_ + (reverse _%body110771110818%_))) + ((lambda (_%L110835%_ _%L110837%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L110678%_ '())) + (cons _%L110837%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp112315 + (let ((__tmp112474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110696110699%_ _%g110697110702%_) - (cons _%g110696110699%_ _%g110697110702%_)))) + (lambda (_%g110855110858%_ _%g110856110861%_) + (cons _%g110855110858%_ _%g110856110861%_)))) (declare (not safe)) - (__foldr1 __tmp112315 '() _%L110676%_)))) + (__foldr1 __tmp112474 '() _%L110835%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body110613110672%_ - _%hd110603110640%_)))))) + _%body110772110831%_ + _%hd110762110799%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110608110652%_ - _%target110605110646%_ + (_%loop110767110811%_ + _%target110764110805%_ '())) - (_%g110595110619%_ - _%g110596110623%_))))) - (_%g110595110619%_ _%g110596110623%_)))) - (_%g110595110619%_ _%g110596110623%_)))) - (_%g110595110619%_ _%g110596110623%_))))) - (_%g110594110705%_ _%$stx110591%_)))) + (_%g110754110778%_ + _%g110755110782%_))))) + (_%g110754110778%_ _%g110755110782%_)))) + (_%g110754110778%_ _%g110755110782%_)))) + (_%g110754110778%_ _%g110755110782%_))))) + (_%g110753110864%_ _%$stx110750%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx110710%_) - (letrec ((_%generate1110713%_ - (lambda (_%hd111254%_ - _%tgt111256%_ - _%K111257%_ - _%E111258%_ - _%kws111259%_) - (let* ((_%g111261111269%_ - (lambda (_%g111262111265%_) + (lambda (_%stx110869%_) + (letrec ((_%generate1110872%_ + (lambda (_%hd111413%_ + _%tgt111415%_ + _%K111416%_ + _%E111417%_ + _%kws111418%_) + (let* ((_%g111420111428%_ + (lambda (_%g111421111424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111262111265%_))) - (_%g111260111704%_ - (lambda (_%g111262111273%_) - ((lambda (_%L111276%_) - (let* ((_%__stx112211112212%_ _%hd111254%_) - (_%g111290111304%_ + _%g111421111424%_))) + (_%g111419111863%_ + (lambda (_%g111421111432%_) + ((lambda (_%L111435%_) + (let* ((_%__stx112370112371%_ _%hd111413%_) + (_%g111449111463%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx112211112212%_)))) - (let ((_%__kont112214112215%_ - (lambda (_%L111526%_ _%L111528%_) - (let* ((_%g111539111547%_ - (lambda (_%g111540111543%_) + _%__stx112370112371%_)))) + (let ((_%__kont112373112374%_ + (lambda (_%L111685%_ _%L111687%_) + (let* ((_%g111698111706%_ + (lambda (_%g111699111702%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111540111543%_))) - (_%g111538111696%_ - (lambda (_%g111540111551%_) - ((lambda (_%L111554%_) - (let* ((_%g111566111574%_ + _%g111699111702%_))) + (_%g111697111855%_ + (lambda (_%g111699111710%_) + ((lambda (_%L111713%_) + (let* ((_%g111725111733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111567111570%_) + (lambda (_%g111726111729%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111567111570%_))) - (_%g111565111692%_ - (lambda (_%g111567111578%_) - ((lambda (_%L111581%_) - (let* ((_%g111594111602%_ - (lambda (_%g111595111598%_) + _%g111726111729%_))) + (_%g111724111851%_ + (lambda (_%g111726111737%_) + ((lambda (_%L111740%_) + (let* ((_%g111753111761%_ + (lambda (_%g111754111757%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111595111598%_))) - (_%g111593111688%_ - (lambda (_%g111595111606%_) - ((lambda (_%L111609%_) - (let* ((_%g111622111630%_ - (lambda (_%g111623111626%_) + _%g111754111757%_))) + (_%g111752111847%_ + (lambda (_%g111754111765%_) + ((lambda (_%L111768%_) + (let* ((_%g111781111789%_ + (lambda (_%g111782111785%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111623111626%_))) - (_%g111621111684%_ - (lambda (_%g111623111634%_) - ((lambda (_%L111637%_) - (let* ((_%g111650111658%_ - (lambda (_%g111651111654%_) + _%g111782111785%_))) + (_%g111780111843%_ + (lambda (_%g111782111793%_) + ((lambda (_%L111796%_) + (let* ((_%g111809111817%_ + (lambda (_%g111810111813%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111651111654%_))) - (_%g111649111680%_ - (lambda (_%g111651111662%_) - ((lambda (_%L111665%_) + _%g111810111813%_))) + (_%g111808111839%_ + (lambda (_%g111810111821%_) + ((lambda (_%L111824%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L111276%_ '())) + (cons _%L111435%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L111554%_ + (cons (cons (cons _%L111713%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111276%_ '())) + (cons _%L111435%_ '())) '())) - (cons (cons _%L111581%_ + (cons (cons _%L111740%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L111554%_ '())) + (cons _%L111713%_ '())) '())) - (cons (cons _%L111609%_ + (cons (cons _%L111768%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L111554%_ '())) + (cons _%L111713%_ '())) '())) '()))) - (cons _%L111637%_ '()))) + (cons _%L111796%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111665%_ '()))))) - _%g111651111662%_)))) - (_%g111649111680%_ _%E111258%_))) - _%g111623111634%_)))) + (cons _%L111824%_ '()))))) + _%g111810111821%_)))) + (_%g111808111839%_ _%E111417%_))) + _%g111782111793%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111621111684%_ - (_%generate1110713%_ - _%L111528%_ - _%L111581%_ - (_%generate1110713%_ - _%L111526%_ - _%L111609%_ - _%K111257%_ - _%E111258%_ - _%kws111259%_) - _%E111258%_ - _%kws111259%_)))) - _%g111595111606%_)))) - (_%g111593111688%_ (gx#genident '$tl)))) - _%g111567111578%_)))) - (_%g111565111692%_ (gx#genident '$hd)))) - _%g111540111551%_)))) + (_%g111780111843%_ + (_%generate1110872%_ + _%L111687%_ + _%L111740%_ + (_%generate1110872%_ + _%L111685%_ + _%L111768%_ + _%K111416%_ + _%E111417%_ + _%kws111418%_) + _%E111417%_ + _%kws111418%_)))) + _%g111754111765%_)))) + (_%g111752111847%_ (gx#genident '$tl)))) + _%g111726111737%_)))) + (_%g111724111851%_ (gx#genident '$hd)))) + _%g111699111710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111538111696%_ + (_%g111697111855%_ (gx#genident '$tgt))))) - (_%__kont112216112217%_ - (lambda (_%L111393%_) - (if (gx#underscore? _%L111393%_) - _%K111257%_ - (if (let ((__tmp112317 - (lambda (_%g111403111405%_) + (_%__kont112375112376%_ + (lambda (_%L111552%_) + (if (gx#underscore? _%L111552%_) + _%K111416%_ + (if (let ((__tmp112476 + (lambda (_%g111562111564%_) (gx#bound-identifier=? - _%g111403111405%_ - _%L111393%_))) - (__tmp112316 + _%g111562111564%_ + _%L111552%_))) + (__tmp112475 (gx#syntax->list - _%kws111259%_))) + _%kws111418%_))) (declare (not safe)) - (__find __tmp112317 - __tmp112316)) - (let* ((_%g111411111426%_ - (lambda (_%g111412111422%_) + (__find __tmp112476 + __tmp112475)) + (let* ((_%g111570111585%_ + (lambda (_%g111571111581%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111412111422%_))) - (_%g111410111472%_ - (lambda (_%g111412111430%_) + _%g111571111581%_))) + (_%g111569111631%_ + (lambda (_%g111571111589%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g111412111430%_) - (let ((_%e111415111433%_ - (gx#syntax-e _%g111412111430%_))) - (let ((_%hd111416111437%_ + _%g111571111589%_) + (let ((_%e111574111592%_ + (gx#syntax-e _%g111571111589%_))) + (let ((_%hd111575111596%_ (let () (declare (not safe)) - (##car _%e111415111433%_))) - (_%tl111417111440%_ + (##car _%e111574111592%_))) + (_%tl111576111599%_ (let () (declare (not safe)) - (##cdr _%e111415111433%_)))) - (if (gx#stx-pair? _%tl111417111440%_) - (let ((_%e111418111443%_ - (gx#syntax-e _%tl111417111440%_))) - (let ((_%hd111419111447%_ + (##cdr _%e111574111592%_)))) + (if (gx#stx-pair? _%tl111576111599%_) + (let ((_%e111577111602%_ + (gx#syntax-e _%tl111576111599%_))) + (let ((_%hd111578111606%_ (let () (declare (not safe)) - (##car _%e111418111443%_))) - (_%tl111420111450%_ + (##car _%e111577111602%_))) + (_%tl111579111609%_ (let () (declare (not safe)) - (##cdr _%e111418111443%_)))) - (if (gx#stx-null? _%tl111420111450%_) - ((lambda (_%L111453%_ _%L111455%_) + (##cdr _%e111577111602%_)))) + (if (gx#stx-null? _%tl111579111609%_) + ((lambda (_%L111612%_ _%L111614%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -610,85 +610,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-id?) - (cons _%L111276%_ '())) + (cons _%L111435%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111276%_ '())) + (cons _%L111435%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111393%_ + (cons _%L111552%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L111455%_ (cons _%L111453%_ '()))))) + (cons _%L111614%_ (cons _%L111612%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd111419111447%_ - _%hd111416111437%_) - (_%g111411111426%_ - _%g111412111430%_)))) - (_%g111411111426%_ _%g111412111430%_)))) - (_%g111411111426%_ _%g111412111430%_))))) - (_%g111410111472%_ (list _%K111257%_ _%E111258%_))) + _%hd111578111606%_ + _%hd111575111596%_) + (_%g111570111585%_ + _%g111571111589%_)))) + (_%g111570111585%_ _%g111571111589%_)))) + (_%g111570111585%_ _%g111571111589%_))))) + (_%g111569111631%_ (list _%K111416%_ _%E111417%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g111478111486%_ - (lambda (_%g111479111482%_) + (let* ((_%g111637111645%_ + (lambda (_%g111638111641%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111479111482%_))) - (_%g111477111505%_ - (lambda (_%g111479111490%_) - ((lambda (_%L111493%_) + _%g111638111641%_))) + (_%g111636111664%_ + (lambda (_%g111638111649%_) + ((lambda (_%L111652%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L111393%_ - (cons _%L111276%_ '())) + (cons (cons (cons _%L111552%_ + (cons _%L111435%_ '())) '()) - (cons _%L111493%_ '())))) - _%g111479111490%_)))) - (_%g111477111505%_ _%K111257%_)))))) + (cons _%L111652%_ '())))) + _%g111638111649%_)))) + (_%g111636111664%_ _%K111416%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont112218112219%_ - (lambda (_%L111311%_) - (let* ((_%g111322111337%_ - (lambda (_%g111323111333%_) + (_%__kont112377112378%_ + (lambda (_%L111470%_) + (let* ((_%g111481111496%_ + (lambda (_%g111482111492%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111323111333%_))) - (_%g111321111382%_ - (lambda (_%g111323111341%_) + _%g111482111492%_))) + (_%g111480111541%_ + (lambda (_%g111482111500%_) (if (gx#stx-pair? - _%g111323111341%_) - (let ((_%e111326111344%_ + _%g111482111500%_) + (let ((_%e111485111503%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g111323111341%_))) - (let ((_%hd111327111348%_ + (gx#syntax-e _%g111482111500%_))) + (let ((_%hd111486111507%_ (let () (declare (not safe)) - (##car _%e111326111344%_))) - (_%tl111328111351%_ + (##car _%e111485111503%_))) + (_%tl111487111510%_ (let () (declare (not safe)) - (##cdr _%e111326111344%_)))) - (if (gx#stx-pair? _%tl111328111351%_) - (let ((_%e111329111354%_ - (gx#syntax-e _%tl111328111351%_))) - (let ((_%hd111330111358%_ + (##cdr _%e111485111503%_)))) + (if (gx#stx-pair? _%tl111487111510%_) + (let ((_%e111488111513%_ + (gx#syntax-e _%tl111487111510%_))) + (let ((_%hd111489111517%_ (let () (declare (not safe)) - (##car _%e111329111354%_))) - (_%tl111331111361%_ + (##car _%e111488111513%_))) + (_%tl111490111520%_ (let () (declare (not safe)) - (##cdr _%e111329111354%_)))) - (if (gx#stx-null? _%tl111331111361%_) - ((lambda (_%L111364%_ _%L111366%_) + (##cdr _%e111488111513%_)))) + (if (gx#stx-null? _%tl111490111520%_) + ((lambda (_%L111523%_ _%L111525%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -697,524 +697,524 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-e) - (cons _%L111276%_ '())) + (cons _%L111435%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111311%_ '())) + (cons _%L111470%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111366%_ - (cons _%L111364%_ + (cons _%L111525%_ + (cons _%L111523%_ '()))))) - _%hd111330111358%_ - _%hd111327111348%_) - (_%g111322111337%_ _%g111323111341%_)))) - (_%g111322111337%_ _%g111323111341%_)))) - (_%g111322111337%_ _%g111323111341%_))))) + _%hd111489111517%_ + _%hd111486111507%_) + (_%g111481111496%_ _%g111482111500%_)))) + (_%g111481111496%_ _%g111482111500%_)))) + (_%g111481111496%_ _%g111482111500%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111321111382%_ - (list _%K111257%_ - _%E111258%_)))))) - (let ((_%g111288111509%_ + (_%g111480111541%_ + (list _%K111416%_ + _%E111417%_)))))) + (let ((_%g111447111668%_ (lambda () - (let ((_%L111393%_ - _%__stx112211112212%_)) + (let ((_%L111552%_ + _%__stx112370112371%_)) (if (gx#identifier? - _%L111393%_) - (_%__kont112216112217%_ - _%L111393%_) - (_%__kont112218112219%_ - _%__stx112211112212%_)))))) - (if (gx#stx-pair? _%__stx112211112212%_) - (let ((_%e111294111516%_ + _%L111552%_) + (_%__kont112375112376%_ + _%L111552%_) + (_%__kont112377112378%_ + _%__stx112370112371%_)))))) + (if (gx#stx-pair? _%__stx112370112371%_) + (let ((_%e111453111675%_ (gx#syntax-e - _%__stx112211112212%_))) - (let ((_%tl111296111523%_ + _%__stx112370112371%_))) + (let ((_%tl111455111682%_ (let () (declare (not safe)) - (##cdr _%e111294111516%_))) - (_%hd111295111520%_ + (##cdr _%e111453111675%_))) + (_%hd111454111679%_ (let () (declare (not safe)) - (##car _%e111294111516%_)))) - (_%__kont112214112215%_ - _%tl111296111523%_ - _%hd111295111520%_))) + (##car _%e111453111675%_)))) + (_%__kont112373112374%_ + _%tl111455111682%_ + _%hd111454111679%_))) (let () (declare (not safe)) - (_%g111288111509%_))))))) - _%g111262111273%_)))) - (_%g111260111704%_ _%tgt111256%_))))) - (let* ((_%g110716110744%_ - (lambda (_%g110717110740%_) + (_%g111447111668%_))))))) + _%g111421111432%_)))) + (_%g111419111863%_ _%tgt111415%_))))) + (let* ((_%g110875110903%_ + (lambda (_%g110876110899%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110717110740%_))) - (_%g110715111250%_ - (lambda (_%g110717110748%_) - (if (gx#stx-pair? _%g110717110748%_) - (let ((_%e110721110751%_ - (gx#syntax-e _%g110717110748%_))) - (let ((_%hd110722110755%_ + _%g110876110899%_))) + (_%g110874111409%_ + (lambda (_%g110876110907%_) + (if (gx#stx-pair? _%g110876110907%_) + (let ((_%e110880110910%_ + (gx#syntax-e _%g110876110907%_))) + (let ((_%hd110881110914%_ (let () (declare (not safe)) - (##car _%e110721110751%_))) - (_%tl110723110758%_ + (##car _%e110880110910%_))) + (_%tl110882110917%_ (let () (declare (not safe)) - (##cdr _%e110721110751%_)))) - (if (gx#stx-pair? _%tl110723110758%_) - (let ((_%e110724110761%_ - (gx#syntax-e _%tl110723110758%_))) - (let ((_%hd110725110765%_ + (##cdr _%e110880110910%_)))) + (if (gx#stx-pair? _%tl110882110917%_) + (let ((_%e110883110920%_ + (gx#syntax-e _%tl110882110917%_))) + (let ((_%hd110884110924%_ (let () (declare (not safe)) - (##car _%e110724110761%_))) - (_%tl110726110768%_ + (##car _%e110883110920%_))) + (_%tl110885110927%_ (let () (declare (not safe)) - (##cdr _%e110724110761%_)))) - (if (gx#stx-pair? _%tl110726110768%_) - (let ((_%e110727110771%_ + (##cdr _%e110883110920%_)))) + (if (gx#stx-pair? _%tl110885110927%_) + (let ((_%e110886110930%_ (gx#syntax-e - _%tl110726110768%_))) - (let ((_%hd110728110775%_ + _%tl110885110927%_))) + (let ((_%hd110887110934%_ (let () (declare (not safe)) - (##car _%e110727110771%_))) - (_%tl110729110778%_ + (##car _%e110886110930%_))) + (_%tl110888110937%_ (let () (declare (not safe)) - (##cdr _%e110727110771%_)))) + (##cdr _%e110886110930%_)))) (if (gx#stx-pair/null? - _%tl110729110778%_) - (let ((_g112318_ + _%tl110888110937%_) + (let ((_g112477_ (gx#syntax-split-splice - _%tl110729110778%_ + _%tl110888110937%_ '0))) (begin - (let ((_g112319_ + (let ((_g112478_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g112318_) - (##vector-length _g112318_) + _g112477_) + (##vector-length _g112477_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g112319_ 2))) - (error "Context expects 2 values" _g112319_))) + (if (not (let () (declare (not safe)) (##fx= _g112478_ 2))) + (error "Context expects 2 values" _g112478_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target110730110781%_ + (let ((_%target110889110940%_ (let () (declare (not safe)) (##vector-ref - _g112318_ + _g112477_ 0))) - (_%tl110732110784%_ + (_%tl110891110943%_ (let () (declare (not safe)) (##vector-ref - _g112318_ + _g112477_ 1)))) (if (gx#stx-null? - _%tl110732110784%_) - (letrec ((_%loop110733110787%_ + _%tl110891110943%_) + (letrec ((_%loop110892110946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd110731110791%_ _%clause110737110794%_) - (if (gx#stx-pair? _%hd110731110791%_) - (let ((_%e110734110797%_ - (gx#syntax-e _%hd110731110791%_))) - (let ((_%lp-hd110735110801%_ + (lambda (_%hd110890110950%_ _%clause110896110953%_) + (if (gx#stx-pair? _%hd110890110950%_) + (let ((_%e110893110956%_ + (gx#syntax-e _%hd110890110950%_))) + (let ((_%lp-hd110894110960%_ (let () (declare (not safe)) - (##car _%e110734110797%_))) - (_%lp-tl110736110804%_ + (##car _%e110893110956%_))) + (_%lp-tl110895110963%_ (let () (declare (not safe)) - (##cdr _%e110734110797%_)))) - (_%loop110733110787%_ - _%lp-tl110736110804%_ - (cons _%lp-hd110735110801%_ - _%clause110737110794%_)))) - (let ((_%clause110738110807%_ - (reverse _%clause110737110794%_))) - ((lambda (_%L110811%_ - _%L110813%_ - _%L110814%_) - (let _%recur110836%_ ((_%rest110839%_ - (let ((__tmp112322 + (##cdr _%e110893110956%_)))) + (_%loop110892110946%_ + _%lp-tl110895110963%_ + (cons _%lp-hd110894110960%_ + _%clause110896110953%_)))) + (let ((_%clause110897110966%_ + (reverse _%clause110896110953%_))) + ((lambda (_%L110970%_ + _%L110972%_ + _%L110973%_) + (let _%recur110995%_ ((_%rest110998%_ + (let ((__tmp112481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111241111244%_ _%g111242111247%_) - (cons _%g111241111244%_ _%g111242111247%_)))) + (lambda (_%g111400111403%_ _%g111401111406%_) + (cons _%g111400111403%_ _%g111401111406%_)))) (declare (not safe)) - (__foldr1 __tmp112322 '() _%L110811%_)))) + (__foldr1 __tmp112481 '() _%L110970%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest110841110850%_ - _%rest110839%_) - (_%E110844110856%_ + (let* ((_%rest111000111009%_ + _%rest110998%_) + (_%E111003111015%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest110841110850%_ + _%rest111000111009%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K110846111226%_ - (lambda (_%rest110872%_ - _%hd110874%_) - (let* ((_%g110876110884%_ - (lambda (_%g110877110880%_) + (let ((_%K111005111385%_ + (lambda (_%rest111031%_ + _%hd111033%_) + (let* ((_%g111035111043%_ + (lambda (_%g111036111039%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110877110880%_))) - (_%g110875111222%_ - (lambda (_%g110877110888%_) - ((lambda (_%L110891%_) + _%g111036111039%_))) + (_%g111034111381%_ + (lambda (_%g111036111047%_) + ((lambda (_%L111050%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g110909110917%_ - (lambda (_%g110910110913%_) + (let* ((_%g111068111076%_ + (lambda (_%g111069111072%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110910110913%_))) - (_%g110908111218%_ - (lambda (_%g110910110921%_) - ((lambda (_%L110924%_) - (let* ((_%g110937110945%_ - (lambda (_%g110938110941%_) + _%g111069111072%_))) + (_%g111067111377%_ + (lambda (_%g111069111080%_) + ((lambda (_%L111083%_) + (let* ((_%g111096111104%_ + (lambda (_%g111097111100%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110938110941%_))) - (_%g110936111214%_ - (lambda (_%g110938110949%_) - ((lambda (_%L110952%_) - (let* ((_%g110965110973%_ - (lambda (_%g110966110969%_) + _%g111097111100%_))) + (_%g111095111373%_ + (lambda (_%g111097111108%_) + ((lambda (_%L111111%_) + (let* ((_%g111124111132%_ + (lambda (_%g111125111128%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110966110969%_))) - (_%g110964110995%_ - (lambda (_%g110966110977%_) - ((lambda (_%L110980%_) + _%g111125111128%_))) + (_%g111123111154%_ + (lambda (_%g111125111136%_) + ((lambda (_%L111139%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L110891%_ + (cons (cons _%L111050%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L110952%_ + (cons _%L111111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L110980%_ '())))) - _%g110966110977%_)))) + (cons _%L111139%_ '())))) + _%g111125111136%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110964110995%_ - (let* ((_%__stx112229112230%_ - _%hd110874%_) - (_%g111001111041%_ + (_%g111123111154%_ + (let* ((_%__stx112388112389%_ + _%hd111033%_) + (_%g111160111200%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx112229112230%_)))) - (let ((_%__kont112232112233%_ - (lambda (_%L111187%_) + _%__stx112388112389%_)))) + (let ((_%__kont112391112392%_ + (lambda (_%L111346%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp112320 - (lambda (_%g111201111204%_ - _%g111202111207%_) - (cons _%g111201111204%_ - _%g111202111207%_)))) + (let ((__tmp112479 + (lambda (_%g111360111363%_ + _%g111361111366%_) + (cons _%g111360111363%_ + _%g111361111366%_)))) (declare (not safe)) - (__foldr1 __tmp112320 '() _%L111187%_))))) - (_%__kont112236112237%_ - (lambda (_%L111125%_ _%L111127%_) - (_%generate1110713%_ - _%L111127%_ - _%L110814%_ - _%L111125%_ - _%L110924%_ - _%L110813%_))) - (_%__kont112238112239%_ - (lambda (_%L111078%_ _%L111080%_ _%L111081%_) - (_%generate1110713%_ - _%L111081%_ - _%L110814%_ + (__foldr1 __tmp112479 '() _%L111346%_))))) + (_%__kont112395112396%_ + (lambda (_%L111284%_ _%L111286%_) + (_%generate1110872%_ + _%L111286%_ + _%L110973%_ + _%L111284%_ + _%L111083%_ + _%L110972%_))) + (_%__kont112397112398%_ + (lambda (_%L111237%_ _%L111239%_ _%L111240%_) + (_%generate1110872%_ + _%L111240%_ + _%L110973%_ (cons (gx#datum->syntax '#f 'if) - (cons _%L111080%_ - (cons _%L111078%_ - (cons _%L110924%_ '())))) - _%L110924%_ - _%L110813%_)))) - (let ((_%__match112258112259%_ - (lambda (_%e111004111147%_ - _%hd111005111151%_ - _%tl111006111154%_ - _%__splice112234112235%_ - _%target111007111157%_ - _%tl111009111160%_) - (letrec ((_%loop111010111163%_ - (lambda (_%hd111008111167%_ - _%expr111014111170%_) - (if (gx#stx-pair? _%hd111008111167%_) - (let ((_%e111011111173%_ + (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%_ (gx#syntax-e - _%hd111008111167%_))) - (let ((_%lp-tl111013111180%_ + _%hd111167111326%_))) + (let ((_%lp-tl111172111339%_ (let () (declare (not safe)) - (##cdr _%e111011111173%_))) - (_%lp-hd111012111177%_ + (##cdr _%e111170111332%_))) + (_%lp-hd111171111336%_ (let () (declare (not safe)) - (##car _%e111011111173%_)))) - (_%loop111010111163%_ - _%lp-tl111013111180%_ - (cons _%lp-hd111012111177%_ - _%expr111014111170%_)))) - (let ((_%expr111015111183%_ - (reverse _%expr111014111170%_))) - (_%__kont112232112233%_ - _%expr111015111183%_)))))) - (_%loop111010111163%_ - _%target111007111157%_ + (##car _%e111170111332%_)))) + (_%loop111169111322%_ + _%lp-tl111172111339%_ + (cons _%lp-hd111171111336%_ + _%expr111173111329%_)))) + (let ((_%expr111174111342%_ + (reverse _%expr111173111329%_))) + (_%__kont112391112392%_ + _%expr111174111342%_)))))) + (_%loop111169111322%_ + _%target111166111316%_ '()))))) - (if (gx#stx-pair? _%__stx112229112230%_) - (let ((_%e111004111147%_ - (gx#syntax-e _%__stx112229112230%_))) - (let ((_%tl111006111154%_ + (if (gx#stx-pair? _%__stx112388112389%_) + (let ((_%e111163111306%_ + (gx#syntax-e _%__stx112388112389%_))) + (let ((_%tl111165111313%_ (let () (declare (not safe)) - (##cdr _%e111004111147%_))) - (_%hd111005111151%_ + (##cdr _%e111163111306%_))) + (_%hd111164111310%_ (let () (declare (not safe)) - (##car _%e111004111147%_)))) - (if (gx#identifier? _%hd111005111151%_) + (##car _%e111163111306%_)))) + (if (gx#identifier? _%hd111164111310%_) (if (gx#free-identifier=? - |[1]#_g112321_| - _%hd111005111151%_) - (if (gx#stx-pair/null? _%tl111006111154%_) - (let ((_%__splice112234112235%_ + |[1]#_g112480_| + _%hd111164111310%_) + (if (gx#stx-pair/null? _%tl111165111313%_) + (let ((_%__splice112393112394%_ (gx#syntax-split-splice - _%tl111006111154%_ + _%tl111165111313%_ '0))) - (let ((_%tl111009111160%_ + (let ((_%tl111168111319%_ (let () (declare (not safe)) (##vector-ref - _%__splice112234112235%_ + _%__splice112393112394%_ '1))) - (_%target111007111157%_ + (_%target111166111316%_ (let () (declare (not safe)) (##vector-ref - _%__splice112234112235%_ + _%__splice112393112394%_ '0)))) (if (gx#stx-null? - _%tl111009111160%_) - (_%__match112258112259%_ - _%e111004111147%_ - _%hd111005111151%_ - _%tl111006111154%_ - _%__splice112234112235%_ - _%target111007111157%_ - _%tl111009111160%_) + _%tl111168111319%_) + (_%__match112417112418%_ + _%e111163111306%_ + _%hd111164111310%_ + _%tl111165111313%_ + _%__splice112393112394%_ + _%target111166111316%_ + _%tl111168111319%_) (if (gx#stx-pair? - _%tl111006111154%_) - (let ((_%e111021111115%_ + _%tl111165111313%_) + (let ((_%e111180111274%_ (gx#syntax-e - _%tl111006111154%_))) - (let ((_%tl111023111122%_ + _%tl111165111313%_))) + (let ((_%tl111182111281%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ - (let () (declare (not safe)) (##car _%e111021111115%_)))) - (if (gx#stx-null? _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) - (if (gx#stx-pair? _%tl111023111122%_) - (let ((_%e111033111068%_ - (gx#syntax-e _%tl111023111122%_))) - (let ((_%tl111035111075%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ + (##cdr _%e111192111227%_))) + (_%hd111193111231%_ (let () (declare (not safe)) - (##car _%e111033111068%_)))) - (if (gx#stx-null? _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) + (##car _%e111192111227%_)))) + (if (gx#stx-null? _%tl111194111234%_) + (_%__kont112397112398%_ + _%hd111193111231%_ + _%hd111181111278%_ + _%hd111164111310%_) (let () (declare (not safe)) - (_%g111001111041%_))))) - (let () (declare (not safe)) (_%g111001111041%_)))))) + (_%g111160111200%_))))) + (let () (declare (not safe)) (_%g111160111200%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111001111041%_)))))) - (if (gx#stx-pair? _%tl111006111154%_) - (let ((_%e111021111115%_ + (_%g111160111200%_)))))) + (if (gx#stx-pair? _%tl111165111313%_) + (let ((_%e111180111274%_ (gx#syntax-e - _%tl111006111154%_))) - (let ((_%tl111023111122%_ + _%tl111165111313%_))) + (let ((_%tl111182111281%_ (let () (declare (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ + (##cdr _%e111180111274%_))) + (_%hd111181111278%_ (let () (declare (not safe)) - (##car _%e111021111115%_)))) + (##car _%e111180111274%_)))) (if (gx#stx-null? - _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) + _%tl111182111281%_) + (_%__kont112395112396%_ + _%hd111181111278%_ + _%hd111164111310%_) (if (gx#stx-pair? - _%tl111023111122%_) - (let ((_%e111033111068%_ + _%tl111182111281%_) + (let ((_%e111192111227%_ (gx#syntax-e - _%tl111023111122%_))) - (let ((_%tl111035111075%_ + _%tl111182111281%_))) + (let ((_%tl111194111234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ + (##cdr _%e111192111227%_))) + (_%hd111193111231%_ (let () (declare (not safe)) - (##car _%e111033111068%_)))) - (if (gx#stx-null? _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) - (let () (declare (not safe)) (_%g111001111041%_))))) - (let () (declare (not safe)) (_%g111001111041%_)))))) + (##car _%e111192111227%_)))) + (if (gx#stx-null? _%tl111194111234%_) + (_%__kont112397112398%_ + _%hd111193111231%_ + _%hd111181111278%_ + _%hd111164111310%_) + (let () (declare (not safe)) (_%g111160111200%_))))) + (let () (declare (not safe)) (_%g111160111200%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111001111041%_)))) - (if (gx#stx-pair? _%tl111006111154%_) - (let ((_%e111021111115%_ + (_%g111160111200%_)))) + (if (gx#stx-pair? _%tl111165111313%_) + (let ((_%e111180111274%_ (gx#syntax-e - _%tl111006111154%_))) - (let ((_%tl111023111122%_ + _%tl111165111313%_))) + (let ((_%tl111182111281%_ (let () (declare (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ + (##cdr _%e111180111274%_))) + (_%hd111181111278%_ (let () (declare (not safe)) - (##car _%e111021111115%_)))) + (##car _%e111180111274%_)))) (if (gx#stx-null? - _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) + _%tl111182111281%_) + (_%__kont112395112396%_ + _%hd111181111278%_ + _%hd111164111310%_) (if (gx#stx-pair? - _%tl111023111122%_) - (let ((_%e111033111068%_ + _%tl111182111281%_) + (let ((_%e111192111227%_ (gx#syntax-e - _%tl111023111122%_))) - (let ((_%tl111035111075%_ + _%tl111182111281%_))) + (let ((_%tl111194111234%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ - (let () (declare (not safe)) (##car _%e111033111068%_)))) - (if (gx#stx-null? _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) - (let () (declare (not safe)) (_%g111001111041%_))))) + (##cdr _%e111192111227%_))) + (_%hd111193111231%_ + (let () (declare (not safe)) (##car _%e111192111227%_)))) + (if (gx#stx-null? _%tl111194111234%_) + (_%__kont112397112398%_ + _%hd111193111231%_ + _%hd111181111278%_ + _%hd111164111310%_) + (let () (declare (not safe)) (_%g111160111200%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111001111041%_)))))) + (_%g111160111200%_)))))) (let () (declare (not safe)) - (_%g111001111041%_)))) - (if (gx#stx-pair? _%tl111006111154%_) - (let ((_%e111021111115%_ - (gx#syntax-e _%tl111006111154%_))) - (let ((_%tl111023111122%_ + (_%g111160111200%_)))) + (if (gx#stx-pair? _%tl111165111313%_) + (let ((_%e111180111274%_ + (gx#syntax-e _%tl111165111313%_))) + (let ((_%tl111182111281%_ (let () (declare (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ + (##cdr _%e111180111274%_))) + (_%hd111181111278%_ (let () (declare (not safe)) - (##car _%e111021111115%_)))) - (if (gx#stx-null? _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) + (##car _%e111180111274%_)))) + (if (gx#stx-null? _%tl111182111281%_) + (_%__kont112395112396%_ + _%hd111181111278%_ + _%hd111164111310%_) (if (gx#stx-pair? - _%tl111023111122%_) - (let ((_%e111033111068%_ + _%tl111182111281%_) + (let ((_%e111192111227%_ (gx#syntax-e - _%tl111023111122%_))) - (let ((_%tl111035111075%_ + _%tl111182111281%_))) + (let ((_%tl111194111234%_ (let () (declare (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ + (##cdr _%e111192111227%_))) + (_%hd111193111231%_ (let () (declare (not safe)) - (##car _%e111033111068%_)))) + (##car _%e111192111227%_)))) (if (gx#stx-null? - _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) + _%tl111194111234%_) + (_%__kont112397112398%_ + _%hd111193111231%_ + _%hd111181111278%_ + _%hd111164111310%_) (let () (declare (not safe)) - (_%g111001111041%_))))) + (_%g111160111200%_))))) (let () (declare (not safe)) - (_%g111001111041%_)))))) + (_%g111160111200%_)))))) (let () (declare (not safe)) - (_%g111001111041%_)))))) + (_%g111160111200%_)))))) (let () (declare (not safe)) - (_%g111001111041%_))))))))) + (_%g111160111200%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g110938110949%_)))) - (_%g110936111214%_ - (_%recur110836%_ _%rest110872%_)))) - _%g110910110921%_)))) - (_%g110908111218%_ (cons _%L110891%_ '())))) - _%g110877110888%_)))) - (_%g110875111222%_ (gx#genident '$E))))) + _%g111097111108%_)))) + (_%g111095111373%_ + (_%recur110995%_ _%rest111031%_)))) + _%g111069111080%_)))) + (_%g111067111377%_ (cons _%L111050%_ '())))) + _%g111036111047%_)))) + (_%g111034111381%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K110845110864%_ + (_%K111004111023%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,47 +1222,47 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L110814%_ '()))))))) + (cons _%L110973%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match110843110868%_ + (let ((_%try-match111002111027%_ (lambda () - (if (null? _%rest110841110850%_) - (_%K110845110864%_) - (_%E110844110856%_))))) - (if (pair? _%rest110841110850%_) - (let ((_%tl110848111233%_ + (if (null? _%rest111000111009%_) + (_%K111004111023%_) + (_%E111003111015%_))))) + (if (pair? _%rest111000111009%_) + (let ((_%tl111007111392%_ (let () (declare (not safe)) - (##cdr _%rest110841110850%_))) - (_%hd110847111230%_ + (##cdr _%rest111000111009%_))) + (_%hd111006111389%_ (let () (declare (not safe)) - (##car _%rest110841110850%_)))) - (let ((_%hd111236%_ - _%hd110847111230%_) - (_%rest111239%_ - _%tl110848111233%_)) - (_%K110846111226%_ - _%rest111239%_ - _%hd111236%_))) - (_%try-match110843110868%_))))))) - _%clause110738110807%_ - _%hd110728110775%_ - _%hd110725110765%_)))))) - (_%loop110733110787%_ _%target110730110781%_ '())) - (_%g110716110744%_ _%g110717110748%_))))) + (##car _%rest111000111009%_)))) + (let ((_%hd111395%_ + _%hd111006111389%_) + (_%rest111398%_ + _%tl111007111392%_)) + (_%K111005111385%_ + _%rest111398%_ + _%hd111395%_))) + (_%try-match111002111027%_))))))) + _%clause110897110966%_ + _%hd110887110934%_ + _%hd110884110924%_)))))) + (_%loop110892110946%_ _%target110889110940%_ '())) + (_%g110875110903%_ _%g110876110907%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110716110744%_ - _%g110717110748%_)))) - (_%g110716110744%_ - _%g110717110748%_)))) - (_%g110716110744%_ _%g110717110748%_)))) - (_%g110716110744%_ _%g110717110748%_))))) - (_%g110715111250%_ _%stx110710%_))))) + (_%g110875110903%_ + _%g110876110907%_)))) + (_%g110875110903%_ + _%g110876110907%_)))) + (_%g110875110903%_ _%g110876110907%_)))) + (_%g110875110903%_ _%g110876110907%_))))) + (_%g110874111409%_ _%stx110869%_))))) (define |[:0:]#SyntaxError| - (let ((__obj112304 + (let ((__obj112463 (let () (declare (not safe)) (##structure @@ -1291,18 +1291,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112304 + __obj112463 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj112463 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj112304 + __obj112463 '(message irritants where context phi marks) '4 '#f @@ -1310,99 +1310,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112304 + __obj112463 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp112323 (cons |[1]#_g112324_| (cons |[1]#_g112325_| '())))) + (let ((__tmp112482 (cons |[1]#_g112483_| (cons |[1]#_g112484_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112323 '3 '#f '#f)) + (##unchecked-structure-set! __obj112463 __tmp112482 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj112463 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj112463 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112463 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#f '11 '#f '#f)) - (let ((__tmp112326 |[1]#_g112327_|)) + (##unchecked-structure-set! __obj112463 '#f '11 '#f '#f)) + (let ((__tmp112485 |[1]#_g112486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112326 '12 '#f '#f)) - (let ((__tmp112328 |[1]#_g112329_|)) + (##unchecked-structure-set! __obj112463 __tmp112485 '12 '#f '#f)) + (let ((__tmp112487 |[1]#_g112488_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112328 '13 '#f '#f)) - (let ((__tmp112330 |[1]#_g112331_|)) + (##unchecked-structure-set! __obj112463 __tmp112487 '13 '#f '#f)) + (let ((__tmp112489 |[1]#_g112490_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112330 '14 '#f '#f)) - (let ((__tmp112332 - (cons (cons 'message |[1]#_g112333_|) - (cons (cons 'irritants |[1]#_g112334_|) - (cons (cons 'where |[1]#_g112335_|) - (cons (cons 'context |[1]#_g112336_|) - (cons (cons 'phi |[1]#_g112337_|) + (##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_|) (cons (cons 'marks - |[1]#_g112338_|) + |[1]#_g112497_|) (cons (cons 'continuation - |[1]#_g112339_|) + |[1]#_g112498_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112332 '15 '#f '#f)) - (let ((__tmp112340 - (cons (cons 'message |[1]#_g112341_|) - (cons (cons 'irritants |[1]#_g112342_|) - (cons (cons 'where |[1]#_g112343_|) - (cons (cons 'context |[1]#_g112344_|) - (cons (cons 'phi |[1]#_g112345_|) + (##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_|) (cons (cons 'marks - |[1]#_g112346_|) + |[1]#_g112505_|) (cons (cons 'continuation - |[1]#_g112347_|) + |[1]#_g112506_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112340 '16 '#f '#f)) - (let ((__tmp112348 - (cons (cons 'message |[1]#_g112349_|) - (cons (cons 'irritants |[1]#_g112350_|) - (cons (cons 'where |[1]#_g112351_|) - (cons (cons 'context |[1]#_g112352_|) - (cons (cons 'phi |[1]#_g112353_|) + (##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_|) (cons (cons 'marks - |[1]#_g112354_|) + |[1]#_g112513_|) (cons (cons 'continuation - |[1]#_g112355_|) + |[1]#_g112514_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112348 '17 '#f '#f)) - (let ((__tmp112356 - (cons (cons 'message |[1]#_g112357_|) - (cons (cons 'irritants |[1]#_g112358_|) - (cons (cons 'where |[1]#_g112359_|) - (cons (cons 'context |[1]#_g112360_|) - (cons (cons 'phi |[1]#_g112361_|) + (##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_|) (cons (cons 'marks - |[1]#_g112362_|) + |[1]#_g112521_|) (cons (cons 'continuation - |[1]#_g112363_|) + |[1]#_g112522_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112356 '18 '#f '#f)) + (##unchecked-structure-set! __obj112463 __tmp112515 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112463 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112463 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '() '20 '#f '#f)) - __obj112304)) + (##unchecked-structure-set! __obj112463 '() '20 '#f '#f)) + __obj112463)) (define |[:0:]#AST| - (let ((__obj112306 + (let ((__obj112465 (let () (declare (not safe)) (##structure @@ -1430,67 +1430,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj112465 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj112465 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj112465 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj112465 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj112465 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj112465 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj112465 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112465 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#f '11 '#f '#f)) - (let ((__tmp112364 |[1]#_g112365_|)) + (##unchecked-structure-set! __obj112465 '#f '11 '#f '#f)) + (let ((__tmp112523 |[1]#_g112524_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112364 '12 '#f '#f)) - (let ((__tmp112366 |[1]#_g112367_|)) + (##unchecked-structure-set! __obj112465 __tmp112523 '12 '#f '#f)) + (let ((__tmp112525 |[1]#_g112526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112366 '13 '#f '#f)) - (let ((__tmp112368 |[1]#_g112369_|)) + (##unchecked-structure-set! __obj112465 __tmp112525 '13 '#f '#f)) + (let ((__tmp112527 |[1]#_g112528_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112368 '14 '#f '#f)) - (let ((__tmp112370 - (cons (cons 'e |[1]#_g112371_|) - (cons (cons 'source |[1]#_g112372_|) '())))) + (##unchecked-structure-set! __obj112465 __tmp112527 '14 '#f '#f)) + (let ((__tmp112529 + (cons (cons 'e |[1]#_g112530_|) + (cons (cons 'source |[1]#_g112531_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112370 '15 '#f '#f)) - (let ((__tmp112373 - (cons (cons 'e |[1]#_g112374_|) - (cons (cons 'source |[1]#_g112375_|) '())))) + (##unchecked-structure-set! __obj112465 __tmp112529 '15 '#f '#f)) + (let ((__tmp112532 + (cons (cons 'e |[1]#_g112533_|) + (cons (cons 'source |[1]#_g112534_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112373 '16 '#f '#f)) - (let ((__tmp112376 - (cons (cons 'e |[1]#_g112377_|) - (cons (cons 'source |[1]#_g112378_|) '())))) + (##unchecked-structure-set! __obj112465 __tmp112532 '16 '#f '#f)) + (let ((__tmp112535 + (cons (cons 'e |[1]#_g112536_|) + (cons (cons 'source |[1]#_g112537_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112376 '17 '#f '#f)) - (let ((__tmp112379 - (cons (cons 'e |[1]#_g112380_|) - (cons (cons 'source |[1]#_g112381_|) '())))) + (##unchecked-structure-set! __obj112465 __tmp112535 '17 '#f '#f)) + (let ((__tmp112538 + (cons (cons 'e |[1]#_g112539_|) + (cons (cons 'source |[1]#_g112540_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112379 '18 '#f '#f)) + (##unchecked-structure-set! __obj112465 __tmp112538 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112465 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112465 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '20 '#f '#f)) - __obj112306)))) + (##unchecked-structure-set! __obj112465 '() '20 '#f '#f)) + __obj112465)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index 1999cc94a..b7ff1de9f 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 1713631264) + (define gerbil/runtime/system::timestamp 1733687558) (begin - (define gerbil-version-string (lambda () '"v0.18.1-112-g13d6b30a3")) + (define gerbil-version-string (lambda () '"v0.18.1-135-g82a4d9285")) (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-value94411%_) - (if (list? _%new-value94411%_) - (let ((_%new-value94415%_ _%new-value94411%_)) - (__build-manifest-set! _%new-value94415%_)) + (lambda (_%new-value94563%_) + (if (list? _%new-value94563%_) + (let ((_%new-value94567%_ _%new-value94563%_)) + (__build-manifest-set! _%new-value94567%_)) (begin (raise-contract-violation-error '"contract violation" @@ -21,21 +21,21 @@ 'contract: 'list? 'value: - _%new-value94411%_) + _%new-value94563%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value94398%_) - (let ((_%new-value94402%_ _%new-value94398%_)) - (set! __build-manifest _%new-value94402%_)))) + (lambda (_%new-value94550%_) + (let ((_%new-value94554%_ _%new-value94550%_)) + (set! __build-manifest _%new-value94554%_)))) (define display-build-manifest__% - (lambda (_%manifest94358%_ _%port94359%_) - (if (list? _%manifest94358%_) - (let ((_%manifest94363%_ _%manifest94358%_)) - (if (port? _%port94359%_) - (let ((_%port94373%_ _%port94359%_)) + (lambda (_%manifest94510%_ _%port94511%_) + (if (list? _%manifest94510%_) + (let ((_%manifest94515%_ _%manifest94510%_)) + (if (port? _%port94511%_) + (let ((_%port94525%_ _%port94511%_)) (__display-build-manifest__% - _%manifest94363%_ - _%port94373%_)) + _%manifest94515%_ + _%port94525%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port94359%_) + _%port94511%_) '#!void))) (begin (raise-contract-violation-error @@ -54,109 +54,109 @@ 'contract: 'list? 'value: - _%manifest94358%_) + _%manifest94510%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest94387%_ __build-manifest) - (_%port94389%_ (current-output-port))) - (__display-build-manifest__% _%manifest94387%_ _%port94389%_)))) + (let* ((_%manifest94539%_ __build-manifest) + (_%port94541%_ (current-output-port))) + (__display-build-manifest__% _%manifest94539%_ _%port94541%_)))) (define display-build-manifest__1 - (lambda (_%manifest94391%_) - (let ((_%port94393%_ (current-output-port))) - (display-build-manifest__% _%manifest94391%_ _%port94393%_)))) + (lambda (_%manifest94543%_) + (let ((_%port94545%_ (current-output-port))) + (display-build-manifest__% _%manifest94543%_ _%port94545%_)))) (define display-build-manifest - (lambda _g94427_ - (let ((_g94426_ (let () (declare (not safe)) (##length _g94427_)))) - (cond ((let () (declare (not safe)) (##fx= _g94426_ 0)) - (apply display-build-manifest__0 _g94427_)) - ((let () (declare (not safe)) (##fx= _g94426_ 1)) - (apply display-build-manifest__1 _g94427_)) - ((let () (declare (not safe)) (##fx= _g94426_ 2)) - (apply display-build-manifest__% _g94427_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g94427_)))))) + _g94579_)))))) (define __display-build-manifest__% - (lambda (_%manifest94280%_ _%port94281%_) - (let* ((_%manifest94284%_ _%manifest94280%_) - (_%port94292%_ _%port94281%_)) - (let ((_%p94305%_ - (lambda (_%g9430094302%_) - (display _%g9430094302%_ _%port94292%_))) - (_%l94306%_ - (let () (declare (not safe)) (##length _%manifest94284%_))) - (_%i94307%_ '0)) - (let ((__tmp94428 - (lambda (_%layer94309%_) - (if (zero? _%i94307%_) + (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%_) '#!void - (if (= _%i94307%_ '1) - (_%p94305%_ '" on ") - (_%p94305%_ '", "))) - (let* ((_%layer9431394320%_ _%layer94309%_) - (_%E9431594324%_ + (if (= _%i94459%_ '1) + (_%p94457%_ '" on ") + (_%p94457%_ '", "))) + (let* ((_%layer9446594472%_ _%layer94461%_) + (_%E9446794476%_ (lambda () (error '"No clause matching" - _%layer9431394320%_ + _%layer9446594472%_ '([name . version])) '#!void)) - (_%K9431694330%_ - (lambda (_%version94327%_ _%name94328%_) - (_%p94305%_ _%name94328%_) - (_%p94305%_ '" ") - (_%p94305%_ _%version94327%_)))) - (if (pair? _%layer9431394320%_) - (let ((_%hd9431794333%_ + (_%K9446894482%_ + (lambda (_%version94479%_ _%name94480%_) + (_%p94457%_ _%name94480%_) + (_%p94457%_ '" ") + (_%p94457%_ _%version94479%_)))) + (if (pair? _%layer9446594472%_) + (let ((_%hd9446994485%_ (let () (declare (not safe)) - (##car _%layer9431394320%_))) - (_%tl9431894335%_ + (##car _%layer9446594472%_))) + (_%tl9447094487%_ (let () (declare (not safe)) - (##cdr _%layer9431394320%_)))) - (let* ((_%name94338%_ _%hd9431794333%_) - (_%version94340%_ _%tl9431894335%_)) - (_%K9431694330%_ - _%version94340%_ - _%name94338%_))) - (_%E9431594324%_))) - (set! _%i94307%_ (+ _%i94307%_ '1))))) + (##cdr _%layer9446594472%_)))) + (let* ((_%name94490%_ _%hd9446994485%_) + (_%version94492%_ _%tl9447094487%_)) + (_%K9446894482%_ + _%version94492%_ + _%name94490%_))) + (_%E9446794476%_))) + (set! _%i94459%_ (+ _%i94459%_ '1))))) (declare (not safe)) - (##for-each __tmp94428 _%manifest94284%_)))))) + (##for-each __tmp94580 _%manifest94436%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest94346%_ __build-manifest) - (_%port94348%_ (current-output-port))) - (__display-build-manifest__% _%manifest94346%_ _%port94348%_)))) + (let* ((_%manifest94498%_ __build-manifest) + (_%port94500%_ (current-output-port))) + (__display-build-manifest__% _%manifest94498%_ _%port94500%_)))) (define __display-build-manifest__1 - (lambda (_%manifest94350%_) - (let ((_%port94352%_ (current-output-port))) - (__display-build-manifest__% _%manifest94350%_ _%port94352%_)))) + (lambda (_%manifest94502%_) + (let ((_%port94504%_ (current-output-port))) + (__display-build-manifest__% _%manifest94502%_ _%port94504%_)))) (define __display-build-manifest - (lambda _g94430_ - (let ((_g94429_ (let () (declare (not safe)) (##length _g94430_)))) - (cond ((let () (declare (not safe)) (##fx= _g94429_ 0)) - (apply __display-build-manifest__0 _g94430_)) - ((let () (declare (not safe)) (##fx= _g94429_ 1)) - (apply __display-build-manifest__1 _g94430_)) - ((let () (declare (not safe)) (##fx= _g94429_ 2)) - (apply __display-build-manifest__% _g94430_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __display-build-manifest - _g94430_)))))) + _g94582_)))))) (define build-manifest/layer - (lambda (_%layer94275%_) - (let ((_%l94277%_ (assoc _%layer94275%_ __build-manifest))) - (if _%l94277%_ (cons _%l94277%_ '()) '())))) + (lambda (_%layer94427%_) + (let ((_%l94429%_ (assoc _%layer94427%_ __build-manifest))) + (if _%l94429%_ (cons _%l94429%_ '()) '())))) (define build-manifest/head (lambda () (cons (car __build-manifest) '()))) (define build-manifest-string__% - (lambda (_%manifest94252%_) - (if (list? _%manifest94252%_) - (let ((_%manifest94256%_ _%manifest94252%_)) - (__build-manifest-string__% _%manifest94256%_)) + (lambda (_%manifest94404%_) + (if (list? _%manifest94404%_) + (let ((_%manifest94408%_ _%manifest94404%_)) + (__build-manifest-string__% _%manifest94408%_)) (begin (raise-contract-violation-error '"contract violation" @@ -165,54 +165,54 @@ 'contract: 'list? 'value: - _%manifest94252%_) + _%manifest94404%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest94270%_ __build-manifest)) - (__build-manifest-string__% _%manifest94270%_)))) + (let ((_%manifest94422%_ __build-manifest)) + (__build-manifest-string__% _%manifest94422%_)))) (define build-manifest-string - (lambda _g94432_ - (let ((_g94431_ (let () (declare (not safe)) (##length _g94432_)))) - (cond ((let () (declare (not safe)) (##fx= _g94431_ 0)) - (apply build-manifest-string__0 _g94432_)) - ((let () (declare (not safe)) (##fx= _g94431_ 1)) - (apply build-manifest-string__% _g94432_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g94432_)))))) + _g94584_)))))) (define __build-manifest-string__% - (lambda (_%manifest94229%_) - (let ((_%manifest94232%_ _%manifest94229%_)) + (lambda (_%manifest94381%_) + (let ((_%manifest94384%_ _%manifest94381%_)) (call-with-output-string '() - (lambda (_%p94241%_) - (display-build-manifest__% _%manifest94232%_ _%p94241%_)))))) + (lambda (_%p94393%_) + (display-build-manifest__% _%manifest94384%_ _%p94393%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest94247%_ __build-manifest)) - (__build-manifest-string__% _%manifest94247%_)))) + (let ((_%manifest94399%_ __build-manifest)) + (__build-manifest-string__% _%manifest94399%_)))) (define __build-manifest-string - (lambda _g94434_ - (let ((_g94433_ (let () (declare (not safe)) (##length _g94434_)))) - (cond ((let () (declare (not safe)) (##fx= _g94433_ 0)) - (apply __build-manifest-string__0 _g94434_)) - ((let () (declare (not safe)) (##fx= _g94433_ 1)) - (apply __build-manifest-string__% _g94434_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __build-manifest-string - _g94434_)))))) + _g94586_)))))) (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-value94211%_) - (if (string? _%new-value94211%_) - (let ((_%new-value94215%_ _%new-value94211%_)) - (__gerbil-greeting-set! _%new-value94215%_)) + (lambda (_%new-value94363%_) + (if (string? _%new-value94363%_) + (let ((_%new-value94367%_ _%new-value94363%_)) + (__gerbil-greeting-set! _%new-value94367%_)) (begin (raise-contract-violation-error '"contract violation" @@ -221,34 +221,34 @@ 'contract: 'string? 'value: - _%new-value94211%_) + _%new-value94363%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value94197%_) - (let ((_%new-value94201%_ _%new-value94197%_)) - (set! __gerbil-greeting _%new-value94201%_)))) + (lambda (_%new-value94349%_) + (let ((_%new-value94353%_ _%new-value94349%_)) + (set! __gerbil-greeting _%new-value94353%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e94193%_ + (let ((_%$e94345%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e94193%_ _%$e94193%_ (path-expand '"~~"))))) + (if _%$e94345%_ _%$e94345%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e94189%_ + (let ((_%$e94341%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e94189%_ _%$e94189%_ (path-expand '"~/.gerbil"))))) + (if _%$e94341%_ _%$e94341%_ (path-expand '"~/.gerbil"))))) (define __smp? '#!void) (define gerbil-runtime-smp? (lambda () (if (eq? __smp? '#!void) (set! __smp? - (if (let ((__tmp94435 - (let ((__tmp94436 (configure-command-string))) + (if (let ((__tmp94587 + (let ((__tmp94588 (configure-command-string))) (declare (not safe)) - (__string-split __tmp94436 '#\')))) + (__string-split __tmp94588 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp94435)) + (##member '"--enable-smp" __tmp94587)) '#t '#f)) '#!void) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 47f01e49c..40cc8fa6a 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 1713631264) + (define gerbil/runtime/table::timestamp 1733687558) (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 (_%tab93881%_) + (lambda (_%tab94033%_) (##unchecked-structure-ref - _%tab93881%_ + _%tab94033%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab93879%_) + (lambda (_%tab94031%_) (##unchecked-structure-ref - _%tab93879%_ + _%tab94031%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab93877%_) + (lambda (_%tab94029%_) (##unchecked-structure-ref - _%tab93877%_ + _%tab94029%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab93875%_) + (lambda (_%tab94027%_) (##unchecked-structure-ref - _%tab93875%_ + _%tab94027%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab93873%_) + (lambda (_%tab94025%_) (##unchecked-structure-ref - _%tab93873%_ + _%tab94025%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab93871%_) + (lambda (_%tab94023%_) (##unchecked-structure-ref - _%tab93871%_ + _%tab94023%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab93868%_ _%val93869%_) + (lambda (_%tab94020%_ _%val94021%_) (##unchecked-structure-set! - _%tab93868%_ - _%val93869%_ + _%tab94020%_ + _%val94021%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab93865%_ _%val93866%_) + (lambda (_%tab94017%_ _%val94018%_) (##unchecked-structure-set! - _%tab93865%_ - _%val93866%_ + _%tab94017%_ + _%val94018%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab93862%_ _%val93863%_) + (lambda (_%tab94014%_ _%val94015%_) (##unchecked-structure-set! - _%tab93862%_ - _%val93863%_ + _%tab94014%_ + _%val94015%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab93859%_ _%val93860%_) + (lambda (_%tab94011%_ _%val94012%_) (##unchecked-structure-set! - _%tab93859%_ - _%val93860%_ + _%tab94011%_ + _%val94012%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab93856%_ _%val93857%_) + (lambda (_%tab94008%_ _%val94009%_) (##unchecked-structure-set! - _%tab93856%_ - _%val93857%_ + _%tab94008%_ + _%val94009%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab93853%_ _%val93854%_) + (lambda (_%tab94005%_ _%val94006%_) (##unchecked-structure-set! - _%tab93853%_ - _%val93854%_ + _%tab94005%_ + _%val94006%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint93851%_) - (if (and (fixnum? _%size-hint93851%_) (##fx> _%size-hint93851%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint93851%_))) '4) + (lambda (_%size-hint94003%_) + (if (and (fixnum? _%size-hint94003%_) (##fx> _%size-hint94003%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint94003%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint93827%_ _%hash93828%_ _%test93829%_ _%seed93830%_) - (let* ((_%size93832%_ (raw-table-size-hint->size _%size-hint93827%_)) - (_%table93834%_ - (##make-vector _%size93832%_ (macro-unused-obj)))) + (lambda (_%size-hint93979%_ _%hash93980%_ _%test93981%_ _%seed93982%_) + (let* ((_%size93984%_ (raw-table-size-hint->size _%size-hint93979%_)) + (_%table93986%_ + (##make-vector _%size93984%_ (macro-unused-obj)))) (##structure __table::t - _%table93834%_ + _%table93986%_ '0 - (##fxquotient _%size93832%_ '2) - _%hash93828%_ - _%test93829%_ - _%seed93830%_)))) + (##fxquotient _%size93984%_ '2) + _%hash93980%_ + _%test93981%_ + _%seed93982%_)))) (define make-raw-table__0 - (lambda (_%size-hint93840%_ _%hash93841%_ _%test93842%_) - (let ((_%seed93844%_ '0)) + (lambda (_%size-hint93992%_ _%hash93993%_ _%test93994%_) + (let ((_%seed93996%_ '0)) (make-raw-table__% - _%size-hint93840%_ - _%hash93841%_ - _%test93842%_ - _%seed93844%_)))) + _%size-hint93992%_ + _%hash93993%_ + _%test93994%_ + _%seed93996%_)))) (define make-raw-table - (lambda _g93883_ - (let ((_g93882_ (##length _g93883_))) - (cond ((##fx= _g93882_ 3) (apply make-raw-table__0 _g93883_)) - ((##fx= _g93882_ 4) (apply make-raw-table__% _g93883_)) + (lambda _g94035_ + (let ((_g94034_ (##length _g94035_))) + (cond ((##fx= _g94034_ 3) (apply make-raw-table__0 _g94035_)) + ((##fx= _g94034_ 4) (apply make-raw-table__% _g94035_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g93883_)))))) + _g94035_)))))) (define raw-table-ref - (lambda (_%tab93778%_ _%key93779%_ _%default93780%_) - (let ((_%table93782%_ (&raw-table-table _%tab93778%_)) - (_%seed93783%_ (&raw-table-seed _%tab93778%_)) - (_%hash93784%_ (&raw-table-hash _%tab93778%_)) - (_%test93785%_ (&raw-table-test _%tab93778%_))) - (let* ((_%h93787%_ - (fxxor (_%hash93784%_ _%key93779%_) _%seed93783%_)) - (_%size93790%_ (vector-length _%table93782%_)) - (_%entries93793%_ (##fxquotient _%size93790%_ '2)) - (_%start93796%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93787%_ _%entries93793%_) + (##fxmodulo _%h93939%_ _%entries93945%_) '1))) - (let _%loop93800%_ ((_%probe93803%_ _%start93796%_) - (_%i93805%_ '1) - (_%deleted93807%_ '#f)) - (let ((_%k93810%_ (vector-ref _%table93782%_ _%probe93803%_))) - (if (eq? _%k93810%_ (macro-unused-obj)) - _%default93780%_ - (if (eq? _%k93810%_ (macro-deleted-obj)) - (_%loop93800%_ - (let ((_%next-probe93815%_ - (fx+ _%start93796%_ - _%i93805%_ - (fx* _%i93805%_ _%i93805%_)))) - (##fxmodulo _%next-probe93815%_ _%size93790%_)) - (##fx+ _%i93805%_ '1) - (let ((_%$e93818%_ _%deleted93807%_)) - (if _%$e93818%_ _%$e93818%_ _%probe93803%_))) - (if (_%test93785%_ _%key93779%_ _%k93810%_) + (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%_) (vector-ref - _%table93782%_ - (##fx+ _%probe93803%_ '1)) - (_%loop93800%_ - (let ((_%next-probe93823%_ - (fx+ _%start93796%_ - _%i93805%_ - (fx* _%i93805%_ _%i93805%_)))) - (##fxmodulo _%next-probe93823%_ _%size93790%_)) - (##fx+ _%i93805%_ '1) - _%deleted93807%_)))))))))) + _%table93934%_ + (##fx+ _%probe93955%_ '1)) + (_%loop93952%_ + (let ((_%next-probe93975%_ + (fx+ _%start93948%_ + _%i93957%_ + (fx* _%i93957%_ _%i93957%_)))) + (##fxmodulo _%next-probe93975%_ _%size93942%_)) + (##fx+ _%i93957%_ '1) + _%deleted93959%_)))))))))) (define raw-table-set! - (lambda (_%tab93774%_ _%key93775%_ _%value93776%_) - (if (##fx< (&raw-table-free _%tab93774%_) + (lambda (_%tab93926%_ _%key93927%_ _%value93928%_) + (if (##fx< (&raw-table-free _%tab93926%_) (##fxquotient - (vector-length (&raw-table-table _%tab93774%_)) + (vector-length (&raw-table-table _%tab93926%_)) '4)) - (__raw-table-rehash! _%tab93774%_) + (__raw-table-rehash! _%tab93926%_) '#!void) - (__raw-table-set! _%tab93774%_ _%key93775%_ _%value93776%_))) + (__raw-table-set! _%tab93926%_ _%key93927%_ _%value93928%_))) (define raw-table-update! - (lambda (_%tab93769%_ _%key93770%_ _%update93771%_ _%default93772%_) - (if (##fx< (&raw-table-free _%tab93769%_) + (lambda (_%tab93921%_ _%key93922%_ _%update93923%_ _%default93924%_) + (if (##fx< (&raw-table-free _%tab93921%_) (##fxquotient - (vector-length (&raw-table-table _%tab93769%_)) + (vector-length (&raw-table-table _%tab93921%_)) '4)) - (__raw-table-rehash! _%tab93769%_) + (__raw-table-rehash! _%tab93921%_) '#!void) (__raw-table-update! - _%tab93769%_ - _%key93770%_ - _%update93771%_ - _%default93772%_))) + _%tab93921%_ + _%key93922%_ + _%update93923%_ + _%default93924%_))) (define raw-table-delete! - (lambda (_%tab93726%_ _%key93727%_) - (let ((_%table93729%_ (&raw-table-table _%tab93726%_)) - (_%seed93730%_ (&raw-table-seed _%tab93726%_)) - (_%hash93731%_ (&raw-table-hash _%tab93726%_)) - (_%test93732%_ (&raw-table-test _%tab93726%_))) - (let* ((_%h93734%_ - (fxxor (_%hash93731%_ _%key93727%_) _%seed93730%_)) - (_%size93737%_ (vector-length _%table93729%_)) - (_%entries93740%_ (##fxquotient _%size93737%_ '2)) - (_%start93743%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93734%_ _%entries93740%_) + (##fxmodulo _%h93886%_ _%entries93892%_) '1))) - (let _%loop93747%_ ((_%probe93750%_ _%start93743%_) - (_%i93752%_ '1)) - (let ((_%k93755%_ (vector-ref _%table93729%_ _%probe93750%_))) - (if (eq? _%k93755%_ (macro-unused-obj)) + (let _%loop93899%_ ((_%probe93902%_ _%start93895%_) + (_%i93904%_ '1)) + (let ((_%k93907%_ (vector-ref _%table93881%_ _%probe93902%_))) + (if (eq? _%k93907%_ (macro-unused-obj)) '#!void - (if (eq? _%k93755%_ (macro-deleted-obj)) - (_%loop93747%_ - (let ((_%next-probe93760%_ - (fx+ _%start93743%_ - _%i93752%_ - (fx* _%i93752%_ _%i93752%_)))) - (##fxmodulo _%next-probe93760%_ _%size93737%_)) - (##fx+ _%i93752%_ '1)) - (if (_%test93732%_ _%key93727%_ _%k93755%_) + (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%_) (let () (vector-set! - _%table93729%_ - _%probe93750%_ + _%table93881%_ + _%probe93902%_ (macro-deleted-obj)) (vector-set! - _%table93729%_ - (##fx+ _%probe93750%_ '1) + _%table93881%_ + (##fx+ _%probe93902%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93726%_ - (##fx- (&raw-table-count _%tab93726%_) + _%tab93878%_ + (##fx- (&raw-table-count _%tab93878%_) '1))))) - (_%loop93747%_ - (let ((_%next-probe93766%_ - (fx+ _%start93743%_ - _%i93752%_ - (fx* _%i93752%_ _%i93752%_)))) - (##fxmodulo _%next-probe93766%_ _%size93737%_)) - (##fx+ _%i93752%_ '1))))))))))) + (_%loop93899%_ + (let ((_%next-probe93918%_ + (fx+ _%start93895%_ + _%i93904%_ + (fx* _%i93904%_ _%i93904%_)))) + (##fxmodulo _%next-probe93918%_ _%size93889%_)) + (##fx+ _%i93904%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab93710%_ _%proc93711%_) - (let* ((_%table93713%_ (&raw-table-table _%tab93710%_)) - (_%size93715%_ (vector-length _%table93713%_))) - (let _%loop93718%_ ((_%i93720%_ '0)) - (if (##fx< _%i93720%_ _%size93715%_) + (lambda (_%tab93862%_ _%proc93863%_) + (let* ((_%table93865%_ (&raw-table-table _%tab93862%_)) + (_%size93867%_ (vector-length _%table93865%_))) + (let _%loop93870%_ ((_%i93872%_ '0)) + (if (##fx< _%i93872%_ _%size93867%_) (begin - (let ((_%key93722%_ (vector-ref _%table93713%_ _%i93720%_))) - (if (if (eq? _%key93722%_ (macro-unused-obj)) + (let ((_%key93874%_ (vector-ref _%table93865%_ _%i93872%_))) + (if (if (eq? _%key93874%_ (macro-unused-obj)) '#f - (not (eq? _%key93722%_ (macro-deleted-obj)))) - (let ((_%value93724%_ + (not (eq? _%key93874%_ (macro-deleted-obj)))) + (let ((_%value93876%_ (vector-ref - _%table93713%_ - (##fx+ _%i93720%_ '1)))) - (_%proc93711%_ _%key93722%_ _%value93724%_)) + _%table93865%_ + (##fx+ _%i93872%_ '1)))) + (_%proc93863%_ _%key93874%_ _%value93876%_)) '#!void)) - (_%loop93718%_ (##fx+ _%i93720%_ '2))) + (_%loop93870%_ (##fx+ _%i93872%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab93706%_) - (let ((_%new-tab93708%_ (##structure-copy _%tab93706%_))) + (lambda (_%tab93858%_) + (let ((_%new-tab93860%_ (##structure-copy _%tab93858%_))) (&raw-table-table-set! - _%new-tab93708%_ - (vector-copy (&raw-table-table _%tab93706%_))) - _%new-tab93708%_))) + _%new-tab93860%_ + (vector-copy (&raw-table-table _%tab93858%_))) + _%new-tab93860%_))) (define raw-table-clear! - (lambda (_%tab93704%_) - (vector-fill! (&raw-table-table _%tab93704%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab93704%_ '0) + (lambda (_%tab93856%_) + (vector-fill! (&raw-table-table _%tab93856%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab93856%_ '0) (&raw-table-free-set! - _%tab93704%_ - (##fxquotient (vector-length (&raw-table-table _%tab93704%_)) '2)))) + _%tab93856%_ + (##fxquotient (vector-length (&raw-table-table _%tab93856%_)) '2)))) (define __raw-table-set! - (lambda (_%tab93654%_ _%key93655%_ _%value93656%_) - (let ((_%table93658%_ (&raw-table-table _%tab93654%_)) - (_%seed93659%_ (&raw-table-seed _%tab93654%_)) - (_%hash93660%_ (&raw-table-hash _%tab93654%_)) - (_%test93661%_ (&raw-table-test _%tab93654%_))) - (let* ((_%h93663%_ - (fxxor (_%hash93660%_ _%key93655%_) _%seed93659%_)) - (_%size93666%_ (vector-length _%table93658%_)) - (_%entries93669%_ (##fxquotient _%size93666%_ '2)) - (_%start93672%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93663%_ _%entries93669%_) + (##fxmodulo _%h93815%_ _%entries93821%_) '1))) - (let _%loop93676%_ ((_%probe93679%_ _%start93672%_) - (_%i93681%_ '1) - (_%deleted93683%_ '#f)) - (let ((_%k93686%_ (vector-ref _%table93658%_ _%probe93679%_))) - (if (eq? _%k93686%_ (macro-unused-obj)) - (if _%deleted93683%_ + (let _%loop93828%_ ((_%probe93831%_ _%start93824%_) + (_%i93833%_ '1) + (_%deleted93835%_ '#f)) + (let ((_%k93838%_ (vector-ref _%table93810%_ _%probe93831%_))) + (if (eq? _%k93838%_ (macro-unused-obj)) + (if _%deleted93835%_ (begin (vector-set! - _%table93658%_ - _%deleted93683%_ - _%key93655%_) + _%table93810%_ + _%deleted93835%_ + _%key93807%_) (vector-set! - _%table93658%_ - (##fx+ _%deleted93683%_ '1) - _%value93656%_) + _%table93810%_ + (##fx+ _%deleted93835%_ '1) + _%value93808%_) ((lambda () (&raw-table-count-set! - _%tab93654%_ - (##fx+ (&raw-table-count _%tab93654%_) '1))))) + _%tab93806%_ + (##fx+ (&raw-table-count _%tab93806%_) '1))))) (begin (vector-set! - _%table93658%_ - _%probe93679%_ - _%key93655%_) + _%table93810%_ + _%probe93831%_ + _%key93807%_) (vector-set! - _%table93658%_ - (##fx+ _%probe93679%_ '1) - _%value93656%_) + _%table93810%_ + (##fx+ _%probe93831%_ '1) + _%value93808%_) ((lambda () (&raw-table-free-set! - _%tab93654%_ - (##fx- (&raw-table-free _%tab93654%_) '1)) + _%tab93806%_ + (##fx- (&raw-table-free _%tab93806%_) '1)) (&raw-table-count-set! - _%tab93654%_ - (##fx+ (&raw-table-count _%tab93654%_) '1)))))) - (if (eq? _%k93686%_ (macro-deleted-obj)) - (_%loop93676%_ - (let ((_%next-probe93693%_ - (fx+ _%start93672%_ - _%i93681%_ - (fx* _%i93681%_ _%i93681%_)))) - (##fxmodulo _%next-probe93693%_ _%size93666%_)) - (##fx+ _%i93681%_ '1) - (let ((_%$e93696%_ _%deleted93683%_)) - (if _%$e93696%_ _%$e93696%_ _%probe93679%_))) - (if (_%test93661%_ _%key93655%_ _%k93686%_) + _%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%_) (let () (vector-set! - _%table93658%_ - _%probe93679%_ - _%key93655%_) + _%table93810%_ + _%probe93831%_ + _%key93807%_) (vector-set! - _%table93658%_ - (##fx+ _%probe93679%_ '1) - _%value93656%_)) - (_%loop93676%_ - (let ((_%next-probe93701%_ - (fx+ _%start93672%_ - _%i93681%_ - (fx* _%i93681%_ _%i93681%_)))) - (##fxmodulo _%next-probe93701%_ _%size93666%_)) - (##fx+ _%i93681%_ '1) - _%deleted93683%_)))))))))) + _%table93810%_ + (##fx+ _%probe93831%_ '1) + _%value93808%_)) + (_%loop93828%_ + (let ((_%next-probe93853%_ + (fx+ _%start93824%_ + _%i93833%_ + (fx* _%i93833%_ _%i93833%_)))) + (##fxmodulo _%next-probe93853%_ _%size93818%_)) + (##fx+ _%i93833%_ '1) + _%deleted93835%_)))))))))) (define __raw-table-update! - (lambda (_%tab93603%_ _%key93604%_ _%update93605%_ _%default93606%_) - (let ((_%table93608%_ (&raw-table-table _%tab93603%_)) - (_%seed93609%_ (&raw-table-seed _%tab93603%_)) - (_%hash93610%_ (&raw-table-hash _%tab93603%_)) - (_%test93611%_ (&raw-table-test _%tab93603%_))) - (let* ((_%h93613%_ - (fxxor (_%hash93610%_ _%key93604%_) _%seed93609%_)) - (_%size93616%_ (vector-length _%table93608%_)) - (_%entries93619%_ (##fxquotient _%size93616%_ '2)) - (_%start93622%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93613%_ _%entries93619%_) + (##fxmodulo _%h93765%_ _%entries93771%_) '1))) - (let _%loop93626%_ ((_%probe93629%_ _%start93622%_) - (_%i93631%_ '1) - (_%deleted93633%_ '#f)) - (let ((_%k93636%_ (vector-ref _%table93608%_ _%probe93629%_))) - (if (eq? _%k93636%_ (macro-unused-obj)) - (if _%deleted93633%_ + (let _%loop93778%_ ((_%probe93781%_ _%start93774%_) + (_%i93783%_ '1) + (_%deleted93785%_ '#f)) + (let ((_%k93788%_ (vector-ref _%table93760%_ _%probe93781%_))) + (if (eq? _%k93788%_ (macro-unused-obj)) + (if _%deleted93785%_ (begin (vector-set! - _%table93608%_ - _%deleted93633%_ - _%key93604%_) + _%table93760%_ + _%deleted93785%_ + _%key93756%_) (vector-set! - _%table93608%_ - (##fx+ _%deleted93633%_ '1) - (_%update93605%_ _%default93606%_)) + _%table93760%_ + (##fx+ _%deleted93785%_ '1) + (_%update93757%_ _%default93758%_)) ((lambda () (&raw-table-count-set! - _%tab93603%_ - (##fx+ (&raw-table-count _%tab93603%_) '1))))) + _%tab93755%_ + (##fx+ (&raw-table-count _%tab93755%_) '1))))) (begin (vector-set! - _%table93608%_ - _%probe93629%_ - _%key93604%_) + _%table93760%_ + _%probe93781%_ + _%key93756%_) (vector-set! - _%table93608%_ - (##fx+ _%probe93629%_ '1) - (_%update93605%_ _%default93606%_)) + _%table93760%_ + (##fx+ _%probe93781%_ '1) + (_%update93757%_ _%default93758%_)) ((lambda () (&raw-table-free-set! - _%tab93603%_ - (##fx- (&raw-table-free _%tab93603%_) '1)) + _%tab93755%_ + (##fx- (&raw-table-free _%tab93755%_) '1)) (&raw-table-count-set! - _%tab93603%_ - (##fx+ (&raw-table-count _%tab93603%_) '1)))))) - (if (eq? _%k93636%_ (macro-deleted-obj)) - (_%loop93626%_ - (let ((_%next-probe93643%_ - (fx+ _%start93622%_ - _%i93631%_ - (fx* _%i93631%_ _%i93631%_)))) - (##fxmodulo _%next-probe93643%_ _%size93616%_)) - (##fx+ _%i93631%_ '1) - (let ((_%$e93646%_ _%deleted93633%_)) - (if _%$e93646%_ _%$e93646%_ _%probe93629%_))) - (if (_%test93611%_ _%key93604%_ _%k93636%_) + _%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%_) (let () (vector-set! - _%table93608%_ - _%probe93629%_ - _%key93604%_) + _%table93760%_ + _%probe93781%_ + _%key93756%_) (vector-set! - _%table93608%_ - (##fx+ _%probe93629%_ '1) - (_%update93605%_ + _%table93760%_ + (##fx+ _%probe93781%_ '1) + (_%update93757%_ (vector-ref - _%table93608%_ - (##fx+ _%probe93629%_ '1))))) - (_%loop93626%_ - (let ((_%next-probe93651%_ - (fx+ _%start93622%_ - _%i93631%_ - (fx* _%i93631%_ _%i93631%_)))) - (##fxmodulo _%next-probe93651%_ _%size93616%_)) - (##fx+ _%i93631%_ '1) - _%deleted93633%_)))))))))) + _%table93760%_ + (##fx+ _%probe93781%_ '1))))) + (_%loop93778%_ + (let ((_%next-probe93803%_ + (fx+ _%start93774%_ + _%i93783%_ + (fx* _%i93783%_ _%i93783%_)))) + (##fxmodulo _%next-probe93803%_ _%size93768%_)) + (##fx+ _%i93783%_ '1) + _%deleted93785%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab93584%_) - (let* ((_%old-table93586%_ (&raw-table-table _%tab93584%_)) - (_%old-size93588%_ (vector-length _%old-table93586%_)) - (_%new-size93590%_ - (if (##fx< (&raw-table-count _%tab93584%_) - (##fxquotient _%old-size93588%_ '4)) - (vector-length _%old-table93586%_) - (##fx* '2 (vector-length _%old-table93586%_)))) - (_%new-table93592%_ - (##make-vector _%new-size93590%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab93584%_ _%new-table93592%_) - (&raw-table-count-set! _%tab93584%_ '0) + (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) (&raw-table-free-set! - _%tab93584%_ - (##fxquotient _%new-size93590%_ '2)) - (let _%lp93595%_ ((_%i93597%_ '0)) - (if (##fx< _%i93597%_ _%old-size93588%_) + _%tab93736%_ + (##fxquotient _%new-size93742%_ '2)) + (let _%lp93747%_ ((_%i93749%_ '0)) + (if (##fx< _%i93749%_ _%old-size93740%_) (begin - (let ((_%key93599%_ - (vector-ref _%old-table93586%_ _%i93597%_))) - (if (if (eq? _%key93599%_ (macro-unused-obj)) + (let ((_%key93751%_ + (vector-ref _%old-table93738%_ _%i93749%_))) + (if (if (eq? _%key93751%_ (macro-unused-obj)) '#f - (not (eq? _%key93599%_ (macro-deleted-obj)))) - (let ((_%value93601%_ + (not (eq? _%key93751%_ (macro-deleted-obj)))) + (let ((_%value93753%_ (vector-ref - _%old-table93586%_ - (##fx+ _%i93597%_ '1)))) + _%old-table93738%_ + (##fx+ _%i93749%_ '1)))) (__raw-table-set! - _%tab93584%_ - _%key93599%_ - _%value93601%_)) + _%tab93736%_ + _%key93751%_ + _%value93753%_)) '#!void)) - (_%lp93595%_ (##fx+ _%i93597%_ '2))) + (_%lp93747%_ (##fx+ _%i93749%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj93576%_) - (let ((_%t93578%_ (##type _%obj93576%_))) - (if (##fx= (##fxand _%t93578%_ '1) '0) - (fxand (##type-cast _%obj93576%_ (macro-type-fixnum)) + (lambda (_%obj93728%_) + (let ((_%t93730%_ (##type _%obj93728%_))) + (if (##fx= (##fxand _%t93730%_ '1) '0) + (fxand (##type-cast _%obj93728%_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _%obj93576%_) - (symbolic-hash _%obj93576%_) - (if (procedure? _%obj93576%_) - (procedure-hash _%obj93576%_) - (fxand (__eq-hash _%obj93576%_) + (if (symbolic? _%obj93728%_) + (symbolic-hash _%obj93728%_) + (if (procedure? _%obj93728%_) + (procedure-hash _%obj93728%_) + (fxand (__eq-hash _%obj93728%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj93572%_) - (let ((_%h93574%_ - (if (##closure? _%obj93572%_) - (__eq-hash _%obj93572%_) - (##type-cast _%obj93572%_ '0)))) - (fxand _%h93574%_ (macro-max-fixnum32))))) + (lambda (_%obj93724%_) + (let ((_%h93726%_ + (if (##closure? _%obj93724%_) + (__eq-hash _%obj93724%_) + (##type-cast _%obj93724%_ '0)))) + (fxand _%h93726%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj93569%_) + (lambda (_%obj93721%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj93569%_))) + (__object->eq-hash _%obj93721%_))) (define eqv-hash - (lambda (_%obj93559%_) - (letrec ((_%combine93561%_ - (lambda (_%a93566%_ _%b93567%_) - (fxand (##fx* (##fx+ _%a93566%_ + (lambda (_%obj93711%_) + (letrec ((_%combine93713%_ + (lambda (_%a93718%_ _%b93719%_) + (fxand (##fx* (##fx+ _%a93718%_ (fxarithmetic-shift-left - _%b93567%_ + _%b93719%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash93562%_ - (lambda (_%obj93564%_) + (_%hash93714%_ + (lambda (_%obj93716%_) (macro-number-dispatch - _%obj93564%_ - (eq-hash _%obj93564%_) - (fxand _%obj93564%_ (macro-max-fixnum32)) - (modulo _%obj93564%_ '331804481) - (_%combine93561%_ - (_%hash93562%_ (macro-ratnum-numerator _%obj93564%_)) - (_%hash93562%_ (macro-ratnum-denominator _%obj93564%_))) - (_%combine93561%_ - (##u16vector-ref _%obj93564%_ '0) - (_%combine93561%_ - (##u16vector-ref _%obj93564%_ '1) - (_%combine93561%_ - (##u16vector-ref _%obj93564%_ '2) - (##u16vector-ref _%obj93564%_ '3)))) - (_%combine93561%_ - (_%hash93562%_ (macro-cpxnum-real _%obj93564%_)) - (_%hash93562%_ (macro-cpxnum-imag _%obj93564%_))))))) - (_%hash93562%_ _%obj93559%_)))) + _%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%_)))) (define symbolic? - (lambda (_%obj93554%_) - (let ((_%$e93556%_ (symbol? _%obj93554%_))) - (if _%$e93556%_ _%$e93556%_ (keyword? _%obj93554%_))))) - (define symbolic-hash (lambda (_%obj93552%_) (macro-slot '1 _%obj93552%_))) - (define string-hash (lambda (_%obj93550%_) (##string=?-hash _%obj93550%_))) + (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%_))) (define immediate-hash - (lambda (_%obj93548%_) (##type-cast _%obj93548%_ (macro-type-fixnum)))) + (lambda (_%obj93700%_) (##type-cast _%obj93700%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint93529%_ _%seed93531%_) - (make-raw-table__% _%size-hint93529%_ eq-hash eq? _%seed93531%_))) + (lambda (_%size-hint93681%_ _%seed93683%_) + (make-raw-table__% _%size-hint93681%_ eq-hash eq? _%seed93683%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint93537%_ '#f) (_%seed93539%_ '0)) - (make-eq-table__% _%size-hint93537%_ _%seed93539%_)))) + (let* ((_%size-hint93689%_ '#f) (_%seed93691%_ '0)) + (make-eq-table__% _%size-hint93689%_ _%seed93691%_)))) (define make-eq-table__1 - (lambda (_%size-hint93541%_) - (let ((_%seed93543%_ '0)) - (make-eq-table__% _%size-hint93541%_ _%seed93543%_)))) + (lambda (_%size-hint93693%_) + (let ((_%seed93695%_ '0)) + (make-eq-table__% _%size-hint93693%_ _%seed93695%_)))) (define make-eq-table - (lambda _g93885_ - (let ((_g93884_ (##length _g93885_))) - (cond ((##fx= _g93884_ 0) (apply make-eq-table__0 _g93885_)) - ((##fx= _g93884_ 1) (apply make-eq-table__1 _g93885_)) - ((##fx= _g93884_ 2) (apply make-eq-table__% _g93885_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g93885_)))))) + _g94037_)))))) (define eq-table-ref - (lambda (_%tab93482%_ _%key93483%_ _%default93484%_) - (let ((_%table93486%_ (&raw-table-table _%tab93482%_)) - (_%seed93487%_ (&raw-table-seed _%tab93482%_))) - (let* ((_%h93489%_ (fxxor (eq-hash _%key93483%_) _%seed93487%_)) - (_%size93492%_ (vector-length _%table93486%_)) - (_%entries93495%_ (##fxquotient _%size93492%_ '2)) - (_%start93498%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93489%_ _%entries93495%_) + (##fxmodulo _%h93641%_ _%entries93647%_) '1))) - (let _%loop93502%_ ((_%probe93505%_ _%start93498%_) - (_%i93507%_ '1) - (_%deleted93509%_ '#f)) - (let ((_%k93512%_ (vector-ref _%table93486%_ _%probe93505%_))) - (if (eq? _%k93512%_ (macro-unused-obj)) - _%default93484%_ - (if (eq? _%k93512%_ (macro-deleted-obj)) - (_%loop93502%_ - (let ((_%next-probe93517%_ - (fx+ _%start93498%_ - _%i93507%_ - (fx* _%i93507%_ _%i93507%_)))) - (##fxmodulo _%next-probe93517%_ _%size93492%_)) - (##fx+ _%i93507%_ '1) - (let ((_%$e93520%_ _%deleted93509%_)) - (if _%$e93520%_ _%$e93520%_ _%probe93505%_))) - (if (eq? _%key93483%_ _%k93512%_) + (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%_) (vector-ref - _%table93486%_ - (##fx+ _%probe93505%_ '1)) - (_%loop93502%_ - (let ((_%next-probe93525%_ - (fx+ _%start93498%_ - _%i93507%_ - (fx* _%i93507%_ _%i93507%_)))) - (##fxmodulo _%next-probe93525%_ _%size93492%_)) - (##fx+ _%i93507%_ '1) - _%deleted93509%_)))))))))) + _%table93638%_ + (##fx+ _%probe93657%_ '1)) + (_%loop93654%_ + (let ((_%next-probe93677%_ + (fx+ _%start93650%_ + _%i93659%_ + (fx* _%i93659%_ _%i93659%_)))) + (##fxmodulo _%next-probe93677%_ _%size93644%_)) + (##fx+ _%i93659%_ '1) + _%deleted93661%_)))))))))) (define eq-table-set! - (lambda (_%tab93478%_ _%key93479%_ _%value93480%_) - (if (##fx< (&raw-table-free _%tab93478%_) + (lambda (_%tab93630%_ _%key93631%_ _%value93632%_) + (if (##fx< (&raw-table-free _%tab93630%_) (##fxquotient - (vector-length (&raw-table-table _%tab93478%_)) + (vector-length (&raw-table-table _%tab93630%_)) '4)) - (__raw-table-rehash! _%tab93478%_) + (__raw-table-rehash! _%tab93630%_) '#!void) - (__eq-table-set! _%tab93478%_ _%key93479%_ _%value93480%_))) + (__eq-table-set! _%tab93630%_ _%key93631%_ _%value93632%_))) (define __eq-table-set! - (lambda (_%tab93429%_ _%key93430%_ _%value93431%_) - (let ((_%table93434%_ (&raw-table-table _%tab93429%_)) - (_%seed93435%_ (&raw-table-seed _%tab93429%_))) - (let* ((_%h93437%_ (fxxor (eq-hash _%key93430%_) _%seed93435%_)) - (_%size93440%_ (vector-length _%table93434%_)) - (_%entries93443%_ (##fxquotient _%size93440%_ '2)) - (_%start93446%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93437%_ _%entries93443%_) + (##fxmodulo _%h93589%_ _%entries93595%_) '1))) - (let _%loop93450%_ ((_%probe93453%_ _%start93446%_) - (_%i93455%_ '1) - (_%deleted93457%_ '#f)) - (let ((_%k93460%_ (vector-ref _%table93434%_ _%probe93453%_))) - (if (eq? _%k93460%_ (macro-unused-obj)) - (if _%deleted93457%_ + (let _%loop93602%_ ((_%probe93605%_ _%start93598%_) + (_%i93607%_ '1) + (_%deleted93609%_ '#f)) + (let ((_%k93612%_ (vector-ref _%table93586%_ _%probe93605%_))) + (if (eq? _%k93612%_ (macro-unused-obj)) + (if _%deleted93609%_ (begin (vector-set! - _%table93434%_ - _%deleted93457%_ - _%key93430%_) + _%table93586%_ + _%deleted93609%_ + _%key93582%_) (vector-set! - _%table93434%_ - (##fx+ _%deleted93457%_ '1) - _%value93431%_) + _%table93586%_ + (##fx+ _%deleted93609%_ '1) + _%value93583%_) ((lambda () (&raw-table-count-set! - _%tab93429%_ - (##fx+ (&raw-table-count _%tab93429%_) '1))))) + _%tab93581%_ + (##fx+ (&raw-table-count _%tab93581%_) '1))))) (begin (vector-set! - _%table93434%_ - _%probe93453%_ - _%key93430%_) + _%table93586%_ + _%probe93605%_ + _%key93582%_) (vector-set! - _%table93434%_ - (##fx+ _%probe93453%_ '1) - _%value93431%_) + _%table93586%_ + (##fx+ _%probe93605%_ '1) + _%value93583%_) ((lambda () (&raw-table-free-set! - _%tab93429%_ - (##fx- (&raw-table-free _%tab93429%_) '1)) + _%tab93581%_ + (##fx- (&raw-table-free _%tab93581%_) '1)) (&raw-table-count-set! - _%tab93429%_ - (##fx+ (&raw-table-count _%tab93429%_) '1)))))) - (if (eq? _%k93460%_ (macro-deleted-obj)) - (_%loop93450%_ - (let ((_%next-probe93467%_ - (fx+ _%start93446%_ - _%i93455%_ - (fx* _%i93455%_ _%i93455%_)))) - (##fxmodulo _%next-probe93467%_ _%size93440%_)) - (##fx+ _%i93455%_ '1) - (let ((_%$e93470%_ _%deleted93457%_)) - (if _%$e93470%_ _%$e93470%_ _%probe93453%_))) - (if (eq? _%key93430%_ _%k93460%_) + _%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%_) (let () (vector-set! - _%table93434%_ - _%probe93453%_ - _%key93430%_) + _%table93586%_ + _%probe93605%_ + _%key93582%_) (vector-set! - _%table93434%_ - (##fx+ _%probe93453%_ '1) - _%value93431%_)) - (_%loop93450%_ - (let ((_%next-probe93475%_ - (fx+ _%start93446%_ - _%i93455%_ - (fx* _%i93455%_ _%i93455%_)))) - (##fxmodulo _%next-probe93475%_ _%size93440%_)) - (##fx+ _%i93455%_ '1) - _%deleted93457%_)))))))))) + _%table93586%_ + (##fx+ _%probe93605%_ '1) + _%value93583%_)) + (_%loop93602%_ + (let ((_%next-probe93627%_ + (fx+ _%start93598%_ + _%i93607%_ + (fx* _%i93607%_ _%i93607%_)))) + (##fxmodulo _%next-probe93627%_ _%size93592%_)) + (##fx+ _%i93607%_ '1) + _%deleted93609%_)))))))))) (define eq-table-update! - (lambda (_%tab93424%_ - _%key93425%_ - _%eq-table-update!93426%_ - _%default93427%_) - (if (##fx< (&raw-table-free _%tab93424%_) + (lambda (_%tab93576%_ + _%key93577%_ + _%eq-table-update!93578%_ + _%default93579%_) + (if (##fx< (&raw-table-free _%tab93576%_) (##fxquotient - (vector-length (&raw-table-table _%tab93424%_)) + (vector-length (&raw-table-table _%tab93576%_)) '4)) - (__raw-table-rehash! _%tab93424%_) + (__raw-table-rehash! _%tab93576%_) '#!void) (__eq-table-update! - _%tab93424%_ - _%key93425%_ - _%eq-table-update!93426%_ - _%default93427%_))) + _%tab93576%_ + _%key93577%_ + _%eq-table-update!93578%_ + _%default93579%_))) (define __eq-table-update! - (lambda (_%tab93374%_ - _%key93375%_ - _%eq-table-update!93376%_ - _%default93377%_) - (let ((_%table93380%_ (&raw-table-table _%tab93374%_)) - (_%seed93381%_ (&raw-table-seed _%tab93374%_))) - (let* ((_%h93383%_ (fxxor (eq-hash _%key93375%_) _%seed93381%_)) - (_%size93386%_ (vector-length _%table93380%_)) - (_%entries93389%_ (##fxquotient _%size93386%_ '2)) - (_%start93392%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93383%_ _%entries93389%_) + (##fxmodulo _%h93535%_ _%entries93541%_) '1))) - (let _%loop93396%_ ((_%probe93399%_ _%start93392%_) - (_%i93401%_ '1) - (_%deleted93403%_ '#f)) - (let ((_%k93406%_ (vector-ref _%table93380%_ _%probe93399%_))) - (if (eq? _%k93406%_ (macro-unused-obj)) - (if _%deleted93403%_ + (let _%loop93548%_ ((_%probe93551%_ _%start93544%_) + (_%i93553%_ '1) + (_%deleted93555%_ '#f)) + (let ((_%k93558%_ (vector-ref _%table93532%_ _%probe93551%_))) + (if (eq? _%k93558%_ (macro-unused-obj)) + (if _%deleted93555%_ (begin (vector-set! - _%table93380%_ - _%deleted93403%_ - _%key93375%_) + _%table93532%_ + _%deleted93555%_ + _%key93527%_) (vector-set! - _%table93380%_ - (##fx+ _%deleted93403%_ '1) - (_%eq-table-update!93376%_ _%default93377%_)) + _%table93532%_ + (##fx+ _%deleted93555%_ '1) + (_%eq-table-update!93528%_ _%default93529%_)) ((lambda () (&raw-table-count-set! - _%tab93374%_ - (##fx+ (&raw-table-count _%tab93374%_) '1))))) + _%tab93526%_ + (##fx+ (&raw-table-count _%tab93526%_) '1))))) (begin (vector-set! - _%table93380%_ - _%probe93399%_ - _%key93375%_) + _%table93532%_ + _%probe93551%_ + _%key93527%_) (vector-set! - _%table93380%_ - (##fx+ _%probe93399%_ '1) - (_%eq-table-update!93376%_ _%default93377%_)) + _%table93532%_ + (##fx+ _%probe93551%_ '1) + (_%eq-table-update!93528%_ _%default93529%_)) ((lambda () (&raw-table-free-set! - _%tab93374%_ - (##fx- (&raw-table-free _%tab93374%_) '1)) + _%tab93526%_ + (##fx- (&raw-table-free _%tab93526%_) '1)) (&raw-table-count-set! - _%tab93374%_ - (##fx+ (&raw-table-count _%tab93374%_) '1)))))) - (if (eq? _%k93406%_ (macro-deleted-obj)) - (_%loop93396%_ - (let ((_%next-probe93413%_ - (fx+ _%start93392%_ - _%i93401%_ - (fx* _%i93401%_ _%i93401%_)))) - (##fxmodulo _%next-probe93413%_ _%size93386%_)) - (##fx+ _%i93401%_ '1) - (let ((_%$e93416%_ _%deleted93403%_)) - (if _%$e93416%_ _%$e93416%_ _%probe93399%_))) - (if (eq? _%key93375%_ _%k93406%_) + _%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%_) (let () (vector-set! - _%table93380%_ - _%probe93399%_ - _%key93375%_) + _%table93532%_ + _%probe93551%_ + _%key93527%_) (vector-set! - _%table93380%_ - (##fx+ _%probe93399%_ '1) - (_%eq-table-update!93376%_ + _%table93532%_ + (##fx+ _%probe93551%_ '1) + (_%eq-table-update!93528%_ (vector-ref - _%table93380%_ - (##fx+ _%probe93399%_ '1))))) - (_%loop93396%_ - (let ((_%next-probe93421%_ - (fx+ _%start93392%_ - _%i93401%_ - (fx* _%i93401%_ _%i93401%_)))) - (##fxmodulo _%next-probe93421%_ _%size93386%_)) - (##fx+ _%i93401%_ '1) - _%deleted93403%_)))))))))) + _%table93532%_ + (##fx+ _%probe93551%_ '1))))) + (_%loop93548%_ + (let ((_%next-probe93573%_ + (fx+ _%start93544%_ + _%i93553%_ + (fx* _%i93553%_ _%i93553%_)))) + (##fxmodulo _%next-probe93573%_ _%size93538%_)) + (##fx+ _%i93553%_ '1) + _%deleted93555%_)))))))))) (define eq-table-delete! - (lambda (_%tab93329%_ _%key93331%_) - (let ((_%table93334%_ (&raw-table-table _%tab93329%_)) - (_%seed93336%_ (&raw-table-seed _%tab93329%_))) - (let* ((_%h93339%_ (fxxor (eq-hash _%key93331%_) _%seed93336%_)) - (_%size93342%_ (vector-length _%table93334%_)) - (_%entries93345%_ (##fxquotient _%size93342%_ '2)) - (_%start93348%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93339%_ _%entries93345%_) + (##fxmodulo _%h93491%_ _%entries93497%_) '1))) - (let _%loop93352%_ ((_%probe93355%_ _%start93348%_) - (_%i93357%_ '1)) - (let ((_%k93360%_ (vector-ref _%table93334%_ _%probe93355%_))) - (if (eq? _%k93360%_ (macro-unused-obj)) + (let _%loop93504%_ ((_%probe93507%_ _%start93500%_) + (_%i93509%_ '1)) + (let ((_%k93512%_ (vector-ref _%table93486%_ _%probe93507%_))) + (if (eq? _%k93512%_ (macro-unused-obj)) '#!void - (if (eq? _%k93360%_ (macro-deleted-obj)) - (_%loop93352%_ - (let ((_%next-probe93365%_ - (fx+ _%start93348%_ - _%i93357%_ - (fx* _%i93357%_ _%i93357%_)))) - (##fxmodulo _%next-probe93365%_ _%size93342%_)) - (##fx+ _%i93357%_ '1)) - (if (eq? _%key93331%_ _%k93360%_) + (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%_) (let () (vector-set! - _%table93334%_ - _%probe93355%_ + _%table93486%_ + _%probe93507%_ (macro-deleted-obj)) (vector-set! - _%table93334%_ - (##fx+ _%probe93355%_ '1) + _%table93486%_ + (##fx+ _%probe93507%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93329%_ - (##fx- (&raw-table-count _%tab93329%_) + _%tab93481%_ + (##fx- (&raw-table-count _%tab93481%_) '1))))) - (_%loop93352%_ - (let ((_%next-probe93371%_ - (fx+ _%start93348%_ - _%i93357%_ - (fx* _%i93357%_ _%i93357%_)))) - (##fxmodulo _%next-probe93371%_ _%size93342%_)) - (##fx+ _%i93357%_ '1))))))))))) + (_%loop93504%_ + (let ((_%next-probe93523%_ + (fx+ _%start93500%_ + _%i93509%_ + (fx* _%i93509%_ _%i93509%_)))) + (##fxmodulo _%next-probe93523%_ _%size93494%_)) + (##fx+ _%i93509%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint93310%_ _%seed93312%_) - (make-raw-table__% _%size-hint93310%_ eqv-hash eqv? _%seed93312%_))) + (lambda (_%size-hint93462%_ _%seed93464%_) + (make-raw-table__% _%size-hint93462%_ eqv-hash eqv? _%seed93464%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint93318%_ '#f) (_%seed93320%_ '0)) - (make-eqv-table__% _%size-hint93318%_ _%seed93320%_)))) + (let* ((_%size-hint93470%_ '#f) (_%seed93472%_ '0)) + (make-eqv-table__% _%size-hint93470%_ _%seed93472%_)))) (define make-eqv-table__1 - (lambda (_%size-hint93322%_) - (let ((_%seed93324%_ '0)) - (make-eqv-table__% _%size-hint93322%_ _%seed93324%_)))) + (lambda (_%size-hint93474%_) + (let ((_%seed93476%_ '0)) + (make-eqv-table__% _%size-hint93474%_ _%seed93476%_)))) (define make-eqv-table - (lambda _g93887_ - (let ((_g93886_ (##length _g93887_))) - (cond ((##fx= _g93886_ 0) (apply make-eqv-table__0 _g93887_)) - ((##fx= _g93886_ 1) (apply make-eqv-table__1 _g93887_)) - ((##fx= _g93886_ 2) (apply make-eqv-table__% _g93887_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g93887_)))))) + _g94039_)))))) (define eqv-table-ref - (lambda (_%tab93263%_ _%key93264%_ _%default93265%_) - (let ((_%table93267%_ (&raw-table-table _%tab93263%_)) - (_%seed93268%_ (&raw-table-seed _%tab93263%_))) - (let* ((_%h93270%_ (fxxor (eqv-hash _%key93264%_) _%seed93268%_)) - (_%size93273%_ (vector-length _%table93267%_)) - (_%entries93276%_ (##fxquotient _%size93273%_ '2)) - (_%start93279%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93270%_ _%entries93276%_) + (##fxmodulo _%h93422%_ _%entries93428%_) '1))) - (let _%loop93283%_ ((_%probe93286%_ _%start93279%_) - (_%i93288%_ '1) - (_%deleted93290%_ '#f)) - (let ((_%k93293%_ (vector-ref _%table93267%_ _%probe93286%_))) - (if (eq? _%k93293%_ (macro-unused-obj)) - _%default93265%_ - (if (eq? _%k93293%_ (macro-deleted-obj)) - (_%loop93283%_ - (let ((_%next-probe93298%_ - (fx+ _%start93279%_ - _%i93288%_ - (fx* _%i93288%_ _%i93288%_)))) - (##fxmodulo _%next-probe93298%_ _%size93273%_)) - (##fx+ _%i93288%_ '1) - (let ((_%$e93301%_ _%deleted93290%_)) - (if _%$e93301%_ _%$e93301%_ _%probe93286%_))) - (if (eqv? _%key93264%_ _%k93293%_) + (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%_) (vector-ref - _%table93267%_ - (##fx+ _%probe93286%_ '1)) - (_%loop93283%_ - (let ((_%next-probe93306%_ - (fx+ _%start93279%_ - _%i93288%_ - (fx* _%i93288%_ _%i93288%_)))) - (##fxmodulo _%next-probe93306%_ _%size93273%_)) - (##fx+ _%i93288%_ '1) - _%deleted93290%_)))))))))) + _%table93419%_ + (##fx+ _%probe93438%_ '1)) + (_%loop93435%_ + (let ((_%next-probe93458%_ + (fx+ _%start93431%_ + _%i93440%_ + (fx* _%i93440%_ _%i93440%_)))) + (##fxmodulo _%next-probe93458%_ _%size93425%_)) + (##fx+ _%i93440%_ '1) + _%deleted93442%_)))))))))) (define eqv-table-set! - (lambda (_%tab93259%_ _%key93260%_ _%value93261%_) - (if (##fx< (&raw-table-free _%tab93259%_) + (lambda (_%tab93411%_ _%key93412%_ _%value93413%_) + (if (##fx< (&raw-table-free _%tab93411%_) (##fxquotient - (vector-length (&raw-table-table _%tab93259%_)) + (vector-length (&raw-table-table _%tab93411%_)) '4)) - (__raw-table-rehash! _%tab93259%_) + (__raw-table-rehash! _%tab93411%_) '#!void) - (__eqv-table-set! _%tab93259%_ _%key93260%_ _%value93261%_))) + (__eqv-table-set! _%tab93411%_ _%key93412%_ _%value93413%_))) (define __eqv-table-set! - (lambda (_%tab93210%_ _%key93211%_ _%value93212%_) - (let ((_%table93215%_ (&raw-table-table _%tab93210%_)) - (_%seed93216%_ (&raw-table-seed _%tab93210%_))) - (let* ((_%h93218%_ (fxxor (eqv-hash _%key93211%_) _%seed93216%_)) - (_%size93221%_ (vector-length _%table93215%_)) - (_%entries93224%_ (##fxquotient _%size93221%_ '2)) - (_%start93227%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93218%_ _%entries93224%_) + (##fxmodulo _%h93370%_ _%entries93376%_) '1))) - (let _%loop93231%_ ((_%probe93234%_ _%start93227%_) - (_%i93236%_ '1) - (_%deleted93238%_ '#f)) - (let ((_%k93241%_ (vector-ref _%table93215%_ _%probe93234%_))) - (if (eq? _%k93241%_ (macro-unused-obj)) - (if _%deleted93238%_ + (let _%loop93383%_ ((_%probe93386%_ _%start93379%_) + (_%i93388%_ '1) + (_%deleted93390%_ '#f)) + (let ((_%k93393%_ (vector-ref _%table93367%_ _%probe93386%_))) + (if (eq? _%k93393%_ (macro-unused-obj)) + (if _%deleted93390%_ (begin (vector-set! - _%table93215%_ - _%deleted93238%_ - _%key93211%_) + _%table93367%_ + _%deleted93390%_ + _%key93363%_) (vector-set! - _%table93215%_ - (##fx+ _%deleted93238%_ '1) - _%value93212%_) + _%table93367%_ + (##fx+ _%deleted93390%_ '1) + _%value93364%_) ((lambda () (&raw-table-count-set! - _%tab93210%_ - (##fx+ (&raw-table-count _%tab93210%_) '1))))) + _%tab93362%_ + (##fx+ (&raw-table-count _%tab93362%_) '1))))) (begin (vector-set! - _%table93215%_ - _%probe93234%_ - _%key93211%_) + _%table93367%_ + _%probe93386%_ + _%key93363%_) (vector-set! - _%table93215%_ - (##fx+ _%probe93234%_ '1) - _%value93212%_) + _%table93367%_ + (##fx+ _%probe93386%_ '1) + _%value93364%_) ((lambda () (&raw-table-free-set! - _%tab93210%_ - (##fx- (&raw-table-free _%tab93210%_) '1)) + _%tab93362%_ + (##fx- (&raw-table-free _%tab93362%_) '1)) (&raw-table-count-set! - _%tab93210%_ - (##fx+ (&raw-table-count _%tab93210%_) '1)))))) - (if (eq? _%k93241%_ (macro-deleted-obj)) - (_%loop93231%_ - (let ((_%next-probe93248%_ - (fx+ _%start93227%_ - _%i93236%_ - (fx* _%i93236%_ _%i93236%_)))) - (##fxmodulo _%next-probe93248%_ _%size93221%_)) - (##fx+ _%i93236%_ '1) - (let ((_%$e93251%_ _%deleted93238%_)) - (if _%$e93251%_ _%$e93251%_ _%probe93234%_))) - (if (eqv? _%key93211%_ _%k93241%_) + _%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%_) (let () (vector-set! - _%table93215%_ - _%probe93234%_ - _%key93211%_) + _%table93367%_ + _%probe93386%_ + _%key93363%_) (vector-set! - _%table93215%_ - (##fx+ _%probe93234%_ '1) - _%value93212%_)) - (_%loop93231%_ - (let ((_%next-probe93256%_ - (fx+ _%start93227%_ - _%i93236%_ - (fx* _%i93236%_ _%i93236%_)))) - (##fxmodulo _%next-probe93256%_ _%size93221%_)) - (##fx+ _%i93236%_ '1) - _%deleted93238%_)))))))))) + _%table93367%_ + (##fx+ _%probe93386%_ '1) + _%value93364%_)) + (_%loop93383%_ + (let ((_%next-probe93408%_ + (fx+ _%start93379%_ + _%i93388%_ + (fx* _%i93388%_ _%i93388%_)))) + (##fxmodulo _%next-probe93408%_ _%size93373%_)) + (##fx+ _%i93388%_ '1) + _%deleted93390%_)))))))))) (define eqv-table-update! - (lambda (_%tab93205%_ - _%key93206%_ - _%eqv-table-update!93207%_ - _%default93208%_) - (if (##fx< (&raw-table-free _%tab93205%_) + (lambda (_%tab93357%_ + _%key93358%_ + _%eqv-table-update!93359%_ + _%default93360%_) + (if (##fx< (&raw-table-free _%tab93357%_) (##fxquotient - (vector-length (&raw-table-table _%tab93205%_)) + (vector-length (&raw-table-table _%tab93357%_)) '4)) - (__raw-table-rehash! _%tab93205%_) + (__raw-table-rehash! _%tab93357%_) '#!void) (__eqv-table-update! - _%tab93205%_ - _%key93206%_ - _%eqv-table-update!93207%_ - _%default93208%_))) + _%tab93357%_ + _%key93358%_ + _%eqv-table-update!93359%_ + _%default93360%_))) (define __eqv-table-update! - (lambda (_%tab93155%_ - _%key93156%_ - _%eqv-table-update!93157%_ - _%default93158%_) - (let ((_%table93161%_ (&raw-table-table _%tab93155%_)) - (_%seed93162%_ (&raw-table-seed _%tab93155%_))) - (let* ((_%h93164%_ (fxxor (eqv-hash _%key93156%_) _%seed93162%_)) - (_%size93167%_ (vector-length _%table93161%_)) - (_%entries93170%_ (##fxquotient _%size93167%_ '2)) - (_%start93173%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93164%_ _%entries93170%_) + (##fxmodulo _%h93316%_ _%entries93322%_) '1))) - (let _%loop93177%_ ((_%probe93180%_ _%start93173%_) - (_%i93182%_ '1) - (_%deleted93184%_ '#f)) - (let ((_%k93187%_ (vector-ref _%table93161%_ _%probe93180%_))) - (if (eq? _%k93187%_ (macro-unused-obj)) - (if _%deleted93184%_ + (let _%loop93329%_ ((_%probe93332%_ _%start93325%_) + (_%i93334%_ '1) + (_%deleted93336%_ '#f)) + (let ((_%k93339%_ (vector-ref _%table93313%_ _%probe93332%_))) + (if (eq? _%k93339%_ (macro-unused-obj)) + (if _%deleted93336%_ (begin (vector-set! - _%table93161%_ - _%deleted93184%_ - _%key93156%_) + _%table93313%_ + _%deleted93336%_ + _%key93308%_) (vector-set! - _%table93161%_ - (##fx+ _%deleted93184%_ '1) - (_%eqv-table-update!93157%_ _%default93158%_)) + _%table93313%_ + (##fx+ _%deleted93336%_ '1) + (_%eqv-table-update!93309%_ _%default93310%_)) ((lambda () (&raw-table-count-set! - _%tab93155%_ - (##fx+ (&raw-table-count _%tab93155%_) '1))))) + _%tab93307%_ + (##fx+ (&raw-table-count _%tab93307%_) '1))))) (begin (vector-set! - _%table93161%_ - _%probe93180%_ - _%key93156%_) + _%table93313%_ + _%probe93332%_ + _%key93308%_) (vector-set! - _%table93161%_ - (##fx+ _%probe93180%_ '1) - (_%eqv-table-update!93157%_ _%default93158%_)) + _%table93313%_ + (##fx+ _%probe93332%_ '1) + (_%eqv-table-update!93309%_ _%default93310%_)) ((lambda () (&raw-table-free-set! - _%tab93155%_ - (##fx- (&raw-table-free _%tab93155%_) '1)) + _%tab93307%_ + (##fx- (&raw-table-free _%tab93307%_) '1)) (&raw-table-count-set! - _%tab93155%_ - (##fx+ (&raw-table-count _%tab93155%_) '1)))))) - (if (eq? _%k93187%_ (macro-deleted-obj)) - (_%loop93177%_ - (let ((_%next-probe93194%_ - (fx+ _%start93173%_ - _%i93182%_ - (fx* _%i93182%_ _%i93182%_)))) - (##fxmodulo _%next-probe93194%_ _%size93167%_)) - (##fx+ _%i93182%_ '1) - (let ((_%$e93197%_ _%deleted93184%_)) - (if _%$e93197%_ _%$e93197%_ _%probe93180%_))) - (if (eqv? _%key93156%_ _%k93187%_) + _%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%_) (let () (vector-set! - _%table93161%_ - _%probe93180%_ - _%key93156%_) + _%table93313%_ + _%probe93332%_ + _%key93308%_) (vector-set! - _%table93161%_ - (##fx+ _%probe93180%_ '1) - (_%eqv-table-update!93157%_ + _%table93313%_ + (##fx+ _%probe93332%_ '1) + (_%eqv-table-update!93309%_ (vector-ref - _%table93161%_ - (##fx+ _%probe93180%_ '1))))) - (_%loop93177%_ - (let ((_%next-probe93202%_ - (fx+ _%start93173%_ - _%i93182%_ - (fx* _%i93182%_ _%i93182%_)))) - (##fxmodulo _%next-probe93202%_ _%size93167%_)) - (##fx+ _%i93182%_ '1) - _%deleted93184%_)))))))))) + _%table93313%_ + (##fx+ _%probe93332%_ '1))))) + (_%loop93329%_ + (let ((_%next-probe93354%_ + (fx+ _%start93325%_ + _%i93334%_ + (fx* _%i93334%_ _%i93334%_)))) + (##fxmodulo _%next-probe93354%_ _%size93319%_)) + (##fx+ _%i93334%_ '1) + _%deleted93336%_)))))))))) (define eqv-table-delete! - (lambda (_%tab93110%_ _%key93112%_) - (let ((_%table93115%_ (&raw-table-table _%tab93110%_)) - (_%seed93117%_ (&raw-table-seed _%tab93110%_))) - (let* ((_%h93120%_ (fxxor (eqv-hash _%key93112%_) _%seed93117%_)) - (_%size93123%_ (vector-length _%table93115%_)) - (_%entries93126%_ (##fxquotient _%size93123%_ '2)) - (_%start93129%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93120%_ _%entries93126%_) + (##fxmodulo _%h93272%_ _%entries93278%_) '1))) - (let _%loop93133%_ ((_%probe93136%_ _%start93129%_) - (_%i93138%_ '1)) - (let ((_%k93141%_ (vector-ref _%table93115%_ _%probe93136%_))) - (if (eq? _%k93141%_ (macro-unused-obj)) + (let _%loop93285%_ ((_%probe93288%_ _%start93281%_) + (_%i93290%_ '1)) + (let ((_%k93293%_ (vector-ref _%table93267%_ _%probe93288%_))) + (if (eq? _%k93293%_ (macro-unused-obj)) '#!void - (if (eq? _%k93141%_ (macro-deleted-obj)) - (_%loop93133%_ - (let ((_%next-probe93146%_ - (fx+ _%start93129%_ - _%i93138%_ - (fx* _%i93138%_ _%i93138%_)))) - (##fxmodulo _%next-probe93146%_ _%size93123%_)) - (##fx+ _%i93138%_ '1)) - (if (eqv? _%key93112%_ _%k93141%_) + (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%_) (let () (vector-set! - _%table93115%_ - _%probe93136%_ + _%table93267%_ + _%probe93288%_ (macro-deleted-obj)) (vector-set! - _%table93115%_ - (##fx+ _%probe93136%_ '1) + _%table93267%_ + (##fx+ _%probe93288%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93110%_ - (##fx- (&raw-table-count _%tab93110%_) + _%tab93262%_ + (##fx- (&raw-table-count _%tab93262%_) '1))))) - (_%loop93133%_ - (let ((_%next-probe93152%_ - (fx+ _%start93129%_ - _%i93138%_ - (fx* _%i93138%_ _%i93138%_)))) - (##fxmodulo _%next-probe93152%_ _%size93123%_)) - (##fx+ _%i93138%_ '1))))))))))) + (_%loop93285%_ + (let ((_%next-probe93304%_ + (fx+ _%start93281%_ + _%i93290%_ + (fx* _%i93290%_ _%i93290%_)))) + (##fxmodulo _%next-probe93304%_ _%size93275%_)) + (##fx+ _%i93290%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint93091%_ _%seed93093%_) + (lambda (_%size-hint93243%_ _%seed93245%_) (make-raw-table__% - _%size-hint93091%_ + _%size-hint93243%_ symbolic-hash eq? - _%seed93093%_))) + _%seed93245%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint93099%_ '#f) (_%seed93101%_ '0)) - (make-symbolic-table__% _%size-hint93099%_ _%seed93101%_)))) + (let* ((_%size-hint93251%_ '#f) (_%seed93253%_ '0)) + (make-symbolic-table__% _%size-hint93251%_ _%seed93253%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint93103%_) - (let ((_%seed93105%_ '0)) - (make-symbolic-table__% _%size-hint93103%_ _%seed93105%_)))) + (lambda (_%size-hint93255%_) + (let ((_%seed93257%_ '0)) + (make-symbolic-table__% _%size-hint93255%_ _%seed93257%_)))) (define make-symbolic-table - (lambda _g93889_ - (let ((_g93888_ (##length _g93889_))) - (cond ((##fx= _g93888_ 0) (apply make-symbolic-table__0 _g93889_)) - ((##fx= _g93888_ 1) (apply make-symbolic-table__1 _g93889_)) - ((##fx= _g93888_ 2) (apply make-symbolic-table__% _g93889_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g93889_)))))) + _g94041_)))))) (define symbolic-table-ref - (lambda (_%tab93044%_ _%key93045%_ _%default93046%_) - (let ((_%table93048%_ (&raw-table-table _%tab93044%_)) - (_%seed93049%_ (&raw-table-seed _%tab93044%_))) - (let* ((_%h93051%_ - (fxxor (symbolic-hash _%key93045%_) _%seed93049%_)) - (_%size93054%_ (vector-length _%table93048%_)) - (_%entries93057%_ (##fxquotient _%size93054%_ '2)) - (_%start93060%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93051%_ _%entries93057%_) + (##fxmodulo _%h93203%_ _%entries93209%_) '1))) - (let _%loop93064%_ ((_%probe93067%_ _%start93060%_) - (_%i93069%_ '1) - (_%deleted93071%_ '#f)) - (let ((_%k93074%_ (vector-ref _%table93048%_ _%probe93067%_))) - (if (eq? _%k93074%_ (macro-unused-obj)) - _%default93046%_ - (if (eq? _%k93074%_ (macro-deleted-obj)) - (_%loop93064%_ - (let ((_%next-probe93079%_ - (fx+ _%start93060%_ - _%i93069%_ - (fx* _%i93069%_ _%i93069%_)))) - (##fxmodulo _%next-probe93079%_ _%size93054%_)) - (##fx+ _%i93069%_ '1) - (let ((_%$e93082%_ _%deleted93071%_)) - (if _%$e93082%_ _%$e93082%_ _%probe93067%_))) - (if (eq? _%key93045%_ _%k93074%_) + (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%_) (vector-ref - _%table93048%_ - (##fx+ _%probe93067%_ '1)) - (_%loop93064%_ - (let ((_%next-probe93087%_ - (fx+ _%start93060%_ - _%i93069%_ - (fx* _%i93069%_ _%i93069%_)))) - (##fxmodulo _%next-probe93087%_ _%size93054%_)) - (##fx+ _%i93069%_ '1) - _%deleted93071%_)))))))))) + _%table93200%_ + (##fx+ _%probe93219%_ '1)) + (_%loop93216%_ + (let ((_%next-probe93239%_ + (fx+ _%start93212%_ + _%i93221%_ + (fx* _%i93221%_ _%i93221%_)))) + (##fxmodulo _%next-probe93239%_ _%size93206%_)) + (##fx+ _%i93221%_ '1) + _%deleted93223%_)))))))))) (define symbolic-table-set! - (lambda (_%tab93040%_ _%key93041%_ _%value93042%_) - (if (##fx< (&raw-table-free _%tab93040%_) + (lambda (_%tab93192%_ _%key93193%_ _%value93194%_) + (if (##fx< (&raw-table-free _%tab93192%_) (##fxquotient - (vector-length (&raw-table-table _%tab93040%_)) + (vector-length (&raw-table-table _%tab93192%_)) '4)) - (__raw-table-rehash! _%tab93040%_) + (__raw-table-rehash! _%tab93192%_) '#!void) - (__symbolic-table-set! _%tab93040%_ _%key93041%_ _%value93042%_))) + (__symbolic-table-set! _%tab93192%_ _%key93193%_ _%value93194%_))) (define __symbolic-table-set! - (lambda (_%tab92991%_ _%key92992%_ _%value92993%_) - (let ((_%table92996%_ (&raw-table-table _%tab92991%_)) - (_%seed92997%_ (&raw-table-seed _%tab92991%_))) - (let* ((_%h92999%_ - (fxxor (symbolic-hash _%key92992%_) _%seed92997%_)) - (_%size93002%_ (vector-length _%table92996%_)) - (_%entries93005%_ (##fxquotient _%size93002%_ '2)) - (_%start93008%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92999%_ _%entries93005%_) + (##fxmodulo _%h93151%_ _%entries93157%_) '1))) - (let _%loop93012%_ ((_%probe93015%_ _%start93008%_) - (_%i93017%_ '1) - (_%deleted93019%_ '#f)) - (let ((_%k93022%_ (vector-ref _%table92996%_ _%probe93015%_))) - (if (eq? _%k93022%_ (macro-unused-obj)) - (if _%deleted93019%_ + (let _%loop93164%_ ((_%probe93167%_ _%start93160%_) + (_%i93169%_ '1) + (_%deleted93171%_ '#f)) + (let ((_%k93174%_ (vector-ref _%table93148%_ _%probe93167%_))) + (if (eq? _%k93174%_ (macro-unused-obj)) + (if _%deleted93171%_ (begin (vector-set! - _%table92996%_ - _%deleted93019%_ - _%key92992%_) + _%table93148%_ + _%deleted93171%_ + _%key93144%_) (vector-set! - _%table92996%_ - (##fx+ _%deleted93019%_ '1) - _%value92993%_) + _%table93148%_ + (##fx+ _%deleted93171%_ '1) + _%value93145%_) ((lambda () (&raw-table-count-set! - _%tab92991%_ - (##fx+ (&raw-table-count _%tab92991%_) '1))))) + _%tab93143%_ + (##fx+ (&raw-table-count _%tab93143%_) '1))))) (begin (vector-set! - _%table92996%_ - _%probe93015%_ - _%key92992%_) + _%table93148%_ + _%probe93167%_ + _%key93144%_) (vector-set! - _%table92996%_ - (##fx+ _%probe93015%_ '1) - _%value92993%_) + _%table93148%_ + (##fx+ _%probe93167%_ '1) + _%value93145%_) ((lambda () (&raw-table-free-set! - _%tab92991%_ - (##fx- (&raw-table-free _%tab92991%_) '1)) + _%tab93143%_ + (##fx- (&raw-table-free _%tab93143%_) '1)) (&raw-table-count-set! - _%tab92991%_ - (##fx+ (&raw-table-count _%tab92991%_) '1)))))) - (if (eq? _%k93022%_ (macro-deleted-obj)) - (_%loop93012%_ - (let ((_%next-probe93029%_ - (fx+ _%start93008%_ - _%i93017%_ - (fx* _%i93017%_ _%i93017%_)))) - (##fxmodulo _%next-probe93029%_ _%size93002%_)) - (##fx+ _%i93017%_ '1) - (let ((_%$e93032%_ _%deleted93019%_)) - (if _%$e93032%_ _%$e93032%_ _%probe93015%_))) - (if (eq? _%key92992%_ _%k93022%_) + _%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%_) (let () (vector-set! - _%table92996%_ - _%probe93015%_ - _%key92992%_) + _%table93148%_ + _%probe93167%_ + _%key93144%_) (vector-set! - _%table92996%_ - (##fx+ _%probe93015%_ '1) - _%value92993%_)) - (_%loop93012%_ - (let ((_%next-probe93037%_ - (fx+ _%start93008%_ - _%i93017%_ - (fx* _%i93017%_ _%i93017%_)))) - (##fxmodulo _%next-probe93037%_ _%size93002%_)) - (##fx+ _%i93017%_ '1) - _%deleted93019%_)))))))))) + _%table93148%_ + (##fx+ _%probe93167%_ '1) + _%value93145%_)) + (_%loop93164%_ + (let ((_%next-probe93189%_ + (fx+ _%start93160%_ + _%i93169%_ + (fx* _%i93169%_ _%i93169%_)))) + (##fxmodulo _%next-probe93189%_ _%size93154%_)) + (##fx+ _%i93169%_ '1) + _%deleted93171%_)))))))))) (define symbolic-table-update! - (lambda (_%tab92986%_ - _%key92987%_ - _%symbolic-table-update!92988%_ - _%default92989%_) - (if (##fx< (&raw-table-free _%tab92986%_) + (lambda (_%tab93138%_ + _%key93139%_ + _%symbolic-table-update!93140%_ + _%default93141%_) + (if (##fx< (&raw-table-free _%tab93138%_) (##fxquotient - (vector-length (&raw-table-table _%tab92986%_)) + (vector-length (&raw-table-table _%tab93138%_)) '4)) - (__raw-table-rehash! _%tab92986%_) + (__raw-table-rehash! _%tab93138%_) '#!void) (__symbolic-table-update! - _%tab92986%_ - _%key92987%_ - _%symbolic-table-update!92988%_ - _%default92989%_))) + _%tab93138%_ + _%key93139%_ + _%symbolic-table-update!93140%_ + _%default93141%_))) (define __symbolic-table-update! - (lambda (_%tab92936%_ - _%key92937%_ - _%symbolic-table-update!92938%_ - _%default92939%_) - (let ((_%table92942%_ (&raw-table-table _%tab92936%_)) - (_%seed92943%_ (&raw-table-seed _%tab92936%_))) - (let* ((_%h92945%_ - (fxxor (symbolic-hash _%key92937%_) _%seed92943%_)) - (_%size92948%_ (vector-length _%table92942%_)) - (_%entries92951%_ (##fxquotient _%size92948%_ '2)) - (_%start92954%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92945%_ _%entries92951%_) + (##fxmodulo _%h93097%_ _%entries93103%_) '1))) - (let _%loop92958%_ ((_%probe92961%_ _%start92954%_) - (_%i92963%_ '1) - (_%deleted92965%_ '#f)) - (let ((_%k92968%_ (vector-ref _%table92942%_ _%probe92961%_))) - (if (eq? _%k92968%_ (macro-unused-obj)) - (if _%deleted92965%_ + (let _%loop93110%_ ((_%probe93113%_ _%start93106%_) + (_%i93115%_ '1) + (_%deleted93117%_ '#f)) + (let ((_%k93120%_ (vector-ref _%table93094%_ _%probe93113%_))) + (if (eq? _%k93120%_ (macro-unused-obj)) + (if _%deleted93117%_ (begin (vector-set! - _%table92942%_ - _%deleted92965%_ - _%key92937%_) + _%table93094%_ + _%deleted93117%_ + _%key93089%_) (vector-set! - _%table92942%_ - (##fx+ _%deleted92965%_ '1) - (_%symbolic-table-update!92938%_ _%default92939%_)) + _%table93094%_ + (##fx+ _%deleted93117%_ '1) + (_%symbolic-table-update!93090%_ _%default93091%_)) ((lambda () (&raw-table-count-set! - _%tab92936%_ - (##fx+ (&raw-table-count _%tab92936%_) '1))))) + _%tab93088%_ + (##fx+ (&raw-table-count _%tab93088%_) '1))))) (begin (vector-set! - _%table92942%_ - _%probe92961%_ - _%key92937%_) + _%table93094%_ + _%probe93113%_ + _%key93089%_) (vector-set! - _%table92942%_ - (##fx+ _%probe92961%_ '1) - (_%symbolic-table-update!92938%_ _%default92939%_)) + _%table93094%_ + (##fx+ _%probe93113%_ '1) + (_%symbolic-table-update!93090%_ _%default93091%_)) ((lambda () (&raw-table-free-set! - _%tab92936%_ - (##fx- (&raw-table-free _%tab92936%_) '1)) + _%tab93088%_ + (##fx- (&raw-table-free _%tab93088%_) '1)) (&raw-table-count-set! - _%tab92936%_ - (##fx+ (&raw-table-count _%tab92936%_) '1)))))) - (if (eq? _%k92968%_ (macro-deleted-obj)) - (_%loop92958%_ - (let ((_%next-probe92975%_ - (fx+ _%start92954%_ - _%i92963%_ - (fx* _%i92963%_ _%i92963%_)))) - (##fxmodulo _%next-probe92975%_ _%size92948%_)) - (##fx+ _%i92963%_ '1) - (let ((_%$e92978%_ _%deleted92965%_)) - (if _%$e92978%_ _%$e92978%_ _%probe92961%_))) - (if (eq? _%key92937%_ _%k92968%_) + _%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%_) (let () (vector-set! - _%table92942%_ - _%probe92961%_ - _%key92937%_) + _%table93094%_ + _%probe93113%_ + _%key93089%_) (vector-set! - _%table92942%_ - (##fx+ _%probe92961%_ '1) - (_%symbolic-table-update!92938%_ + _%table93094%_ + (##fx+ _%probe93113%_ '1) + (_%symbolic-table-update!93090%_ (vector-ref - _%table92942%_ - (##fx+ _%probe92961%_ '1))))) - (_%loop92958%_ - (let ((_%next-probe92983%_ - (fx+ _%start92954%_ - _%i92963%_ - (fx* _%i92963%_ _%i92963%_)))) - (##fxmodulo _%next-probe92983%_ _%size92948%_)) - (##fx+ _%i92963%_ '1) - _%deleted92965%_)))))))))) + _%table93094%_ + (##fx+ _%probe93113%_ '1))))) + (_%loop93110%_ + (let ((_%next-probe93135%_ + (fx+ _%start93106%_ + _%i93115%_ + (fx* _%i93115%_ _%i93115%_)))) + (##fxmodulo _%next-probe93135%_ _%size93100%_)) + (##fx+ _%i93115%_ '1) + _%deleted93117%_)))))))))) (define symbolic-table-delete! - (lambda (_%tab92891%_ _%key92893%_) - (let ((_%table92896%_ (&raw-table-table _%tab92891%_)) - (_%seed92898%_ (&raw-table-seed _%tab92891%_))) - (let* ((_%h92901%_ - (fxxor (symbolic-hash _%key92893%_) _%seed92898%_)) - (_%size92904%_ (vector-length _%table92896%_)) - (_%entries92907%_ (##fxquotient _%size92904%_ '2)) - (_%start92910%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92901%_ _%entries92907%_) + (##fxmodulo _%h93053%_ _%entries93059%_) '1))) - (let _%loop92914%_ ((_%probe92917%_ _%start92910%_) - (_%i92919%_ '1)) - (let ((_%k92922%_ (vector-ref _%table92896%_ _%probe92917%_))) - (if (eq? _%k92922%_ (macro-unused-obj)) + (let _%loop93066%_ ((_%probe93069%_ _%start93062%_) + (_%i93071%_ '1)) + (let ((_%k93074%_ (vector-ref _%table93048%_ _%probe93069%_))) + (if (eq? _%k93074%_ (macro-unused-obj)) '#!void - (if (eq? _%k92922%_ (macro-deleted-obj)) - (_%loop92914%_ - (let ((_%next-probe92927%_ - (fx+ _%start92910%_ - _%i92919%_ - (fx* _%i92919%_ _%i92919%_)))) - (##fxmodulo _%next-probe92927%_ _%size92904%_)) - (##fx+ _%i92919%_ '1)) - (if (eq? _%key92893%_ _%k92922%_) + (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%_) (let () (vector-set! - _%table92896%_ - _%probe92917%_ + _%table93048%_ + _%probe93069%_ (macro-deleted-obj)) (vector-set! - _%table92896%_ - (##fx+ _%probe92917%_ '1) + _%table93048%_ + (##fx+ _%probe93069%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92891%_ - (##fx- (&raw-table-count _%tab92891%_) + _%tab93043%_ + (##fx- (&raw-table-count _%tab93043%_) '1))))) - (_%loop92914%_ - (let ((_%next-probe92933%_ - (fx+ _%start92910%_ - _%i92919%_ - (fx* _%i92919%_ _%i92919%_)))) - (##fxmodulo _%next-probe92933%_ _%size92904%_)) - (##fx+ _%i92919%_ '1))))))))))) + (_%loop93066%_ + (let ((_%next-probe93085%_ + (fx+ _%start93062%_ + _%i93071%_ + (fx* _%i93071%_ _%i93071%_)))) + (##fxmodulo _%next-probe93085%_ _%size93056%_)) + (##fx+ _%i93071%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint92872%_ _%seed92874%_) + (lambda (_%size-hint93024%_ _%seed93026%_) (make-raw-table__% - _%size-hint92872%_ + _%size-hint93024%_ string-hash ##string=? - _%seed92874%_))) + _%seed93026%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint92880%_ '#f) (_%seed92882%_ '0)) - (make-string-table__% _%size-hint92880%_ _%seed92882%_)))) + (let* ((_%size-hint93032%_ '#f) (_%seed93034%_ '0)) + (make-string-table__% _%size-hint93032%_ _%seed93034%_)))) (define make-string-table__1 - (lambda (_%size-hint92884%_) - (let ((_%seed92886%_ '0)) - (make-string-table__% _%size-hint92884%_ _%seed92886%_)))) + (lambda (_%size-hint93036%_) + (let ((_%seed93038%_ '0)) + (make-string-table__% _%size-hint93036%_ _%seed93038%_)))) (define make-string-table - (lambda _g93891_ - (let ((_g93890_ (##length _g93891_))) - (cond ((##fx= _g93890_ 0) (apply make-string-table__0 _g93891_)) - ((##fx= _g93890_ 1) (apply make-string-table__1 _g93891_)) - ((##fx= _g93890_ 2) (apply make-string-table__% _g93891_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g93891_)))))) + _g94043_)))))) (define string-table-ref - (lambda (_%tab92825%_ _%key92826%_ _%default92827%_) - (let ((_%table92829%_ (&raw-table-table _%tab92825%_)) - (_%seed92830%_ (&raw-table-seed _%tab92825%_))) - (let* ((_%h92832%_ - (fxxor (##string=?-hash _%key92826%_) _%seed92830%_)) - (_%size92835%_ (vector-length _%table92829%_)) - (_%entries92838%_ (##fxquotient _%size92835%_ '2)) - (_%start92841%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92832%_ _%entries92838%_) + (##fxmodulo _%h92984%_ _%entries92990%_) '1))) - (let _%loop92845%_ ((_%probe92848%_ _%start92841%_) - (_%i92850%_ '1) - (_%deleted92852%_ '#f)) - (let ((_%k92855%_ (vector-ref _%table92829%_ _%probe92848%_))) - (if (eq? _%k92855%_ (macro-unused-obj)) - _%default92827%_ - (if (eq? _%k92855%_ (macro-deleted-obj)) - (_%loop92845%_ - (let ((_%next-probe92860%_ - (fx+ _%start92841%_ - _%i92850%_ - (fx* _%i92850%_ _%i92850%_)))) - (##fxmodulo _%next-probe92860%_ _%size92835%_)) - (##fx+ _%i92850%_ '1) - (let ((_%$e92863%_ _%deleted92852%_)) - (if _%$e92863%_ _%$e92863%_ _%probe92848%_))) - (if (##string=? _%key92826%_ _%k92855%_) + (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%_) (vector-ref - _%table92829%_ - (##fx+ _%probe92848%_ '1)) - (_%loop92845%_ - (let ((_%next-probe92868%_ - (fx+ _%start92841%_ - _%i92850%_ - (fx* _%i92850%_ _%i92850%_)))) - (##fxmodulo _%next-probe92868%_ _%size92835%_)) - (##fx+ _%i92850%_ '1) - _%deleted92852%_)))))))))) + _%table92981%_ + (##fx+ _%probe93000%_ '1)) + (_%loop92997%_ + (let ((_%next-probe93020%_ + (fx+ _%start92993%_ + _%i93002%_ + (fx* _%i93002%_ _%i93002%_)))) + (##fxmodulo _%next-probe93020%_ _%size92987%_)) + (##fx+ _%i93002%_ '1) + _%deleted93004%_)))))))))) (define string-table-set! - (lambda (_%tab92821%_ _%key92822%_ _%value92823%_) - (if (##fx< (&raw-table-free _%tab92821%_) + (lambda (_%tab92973%_ _%key92974%_ _%value92975%_) + (if (##fx< (&raw-table-free _%tab92973%_) (##fxquotient - (vector-length (&raw-table-table _%tab92821%_)) + (vector-length (&raw-table-table _%tab92973%_)) '4)) - (__raw-table-rehash! _%tab92821%_) + (__raw-table-rehash! _%tab92973%_) '#!void) - (__string-table-set! _%tab92821%_ _%key92822%_ _%value92823%_))) + (__string-table-set! _%tab92973%_ _%key92974%_ _%value92975%_))) (define __string-table-set! - (lambda (_%tab92772%_ _%key92773%_ _%value92774%_) - (let ((_%table92777%_ (&raw-table-table _%tab92772%_)) - (_%seed92778%_ (&raw-table-seed _%tab92772%_))) - (let* ((_%h92780%_ - (fxxor (##string=?-hash _%key92773%_) _%seed92778%_)) - (_%size92783%_ (vector-length _%table92777%_)) - (_%entries92786%_ (##fxquotient _%size92783%_ '2)) - (_%start92789%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92780%_ _%entries92786%_) + (##fxmodulo _%h92932%_ _%entries92938%_) '1))) - (let _%loop92793%_ ((_%probe92796%_ _%start92789%_) - (_%i92798%_ '1) - (_%deleted92800%_ '#f)) - (let ((_%k92803%_ (vector-ref _%table92777%_ _%probe92796%_))) - (if (eq? _%k92803%_ (macro-unused-obj)) - (if _%deleted92800%_ + (let _%loop92945%_ ((_%probe92948%_ _%start92941%_) + (_%i92950%_ '1) + (_%deleted92952%_ '#f)) + (let ((_%k92955%_ (vector-ref _%table92929%_ _%probe92948%_))) + (if (eq? _%k92955%_ (macro-unused-obj)) + (if _%deleted92952%_ (begin (vector-set! - _%table92777%_ - _%deleted92800%_ - _%key92773%_) + _%table92929%_ + _%deleted92952%_ + _%key92925%_) (vector-set! - _%table92777%_ - (##fx+ _%deleted92800%_ '1) - _%value92774%_) + _%table92929%_ + (##fx+ _%deleted92952%_ '1) + _%value92926%_) ((lambda () (&raw-table-count-set! - _%tab92772%_ - (##fx+ (&raw-table-count _%tab92772%_) '1))))) + _%tab92924%_ + (##fx+ (&raw-table-count _%tab92924%_) '1))))) (begin (vector-set! - _%table92777%_ - _%probe92796%_ - _%key92773%_) + _%table92929%_ + _%probe92948%_ + _%key92925%_) (vector-set! - _%table92777%_ - (##fx+ _%probe92796%_ '1) - _%value92774%_) + _%table92929%_ + (##fx+ _%probe92948%_ '1) + _%value92926%_) ((lambda () (&raw-table-free-set! - _%tab92772%_ - (##fx- (&raw-table-free _%tab92772%_) '1)) + _%tab92924%_ + (##fx- (&raw-table-free _%tab92924%_) '1)) (&raw-table-count-set! - _%tab92772%_ - (##fx+ (&raw-table-count _%tab92772%_) '1)))))) - (if (eq? _%k92803%_ (macro-deleted-obj)) - (_%loop92793%_ - (let ((_%next-probe92810%_ - (fx+ _%start92789%_ - _%i92798%_ - (fx* _%i92798%_ _%i92798%_)))) - (##fxmodulo _%next-probe92810%_ _%size92783%_)) - (##fx+ _%i92798%_ '1) - (let ((_%$e92813%_ _%deleted92800%_)) - (if _%$e92813%_ _%$e92813%_ _%probe92796%_))) - (if (##string=? _%key92773%_ _%k92803%_) + _%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%_) (let () (vector-set! - _%table92777%_ - _%probe92796%_ - _%key92773%_) + _%table92929%_ + _%probe92948%_ + _%key92925%_) (vector-set! - _%table92777%_ - (##fx+ _%probe92796%_ '1) - _%value92774%_)) - (_%loop92793%_ - (let ((_%next-probe92818%_ - (fx+ _%start92789%_ - _%i92798%_ - (fx* _%i92798%_ _%i92798%_)))) - (##fxmodulo _%next-probe92818%_ _%size92783%_)) - (##fx+ _%i92798%_ '1) - _%deleted92800%_)))))))))) + _%table92929%_ + (##fx+ _%probe92948%_ '1) + _%value92926%_)) + (_%loop92945%_ + (let ((_%next-probe92970%_ + (fx+ _%start92941%_ + _%i92950%_ + (fx* _%i92950%_ _%i92950%_)))) + (##fxmodulo _%next-probe92970%_ _%size92935%_)) + (##fx+ _%i92950%_ '1) + _%deleted92952%_)))))))))) (define string-table-update! - (lambda (_%tab92767%_ - _%key92768%_ - _%string-table-update!92769%_ - _%default92770%_) - (if (##fx< (&raw-table-free _%tab92767%_) + (lambda (_%tab92919%_ + _%key92920%_ + _%string-table-update!92921%_ + _%default92922%_) + (if (##fx< (&raw-table-free _%tab92919%_) (##fxquotient - (vector-length (&raw-table-table _%tab92767%_)) + (vector-length (&raw-table-table _%tab92919%_)) '4)) - (__raw-table-rehash! _%tab92767%_) + (__raw-table-rehash! _%tab92919%_) '#!void) (__string-table-update! - _%tab92767%_ - _%key92768%_ - _%string-table-update!92769%_ - _%default92770%_))) + _%tab92919%_ + _%key92920%_ + _%string-table-update!92921%_ + _%default92922%_))) (define __string-table-update! - (lambda (_%tab92717%_ - _%key92718%_ - _%string-table-update!92719%_ - _%default92720%_) - (let ((_%table92723%_ (&raw-table-table _%tab92717%_)) - (_%seed92724%_ (&raw-table-seed _%tab92717%_))) - (let* ((_%h92726%_ - (fxxor (##string=?-hash _%key92718%_) _%seed92724%_)) - (_%size92729%_ (vector-length _%table92723%_)) - (_%entries92732%_ (##fxquotient _%size92729%_ '2)) - (_%start92735%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92726%_ _%entries92732%_) + (##fxmodulo _%h92878%_ _%entries92884%_) '1))) - (let _%loop92739%_ ((_%probe92742%_ _%start92735%_) - (_%i92744%_ '1) - (_%deleted92746%_ '#f)) - (let ((_%k92749%_ (vector-ref _%table92723%_ _%probe92742%_))) - (if (eq? _%k92749%_ (macro-unused-obj)) - (if _%deleted92746%_ + (let _%loop92891%_ ((_%probe92894%_ _%start92887%_) + (_%i92896%_ '1) + (_%deleted92898%_ '#f)) + (let ((_%k92901%_ (vector-ref _%table92875%_ _%probe92894%_))) + (if (eq? _%k92901%_ (macro-unused-obj)) + (if _%deleted92898%_ (begin (vector-set! - _%table92723%_ - _%deleted92746%_ - _%key92718%_) + _%table92875%_ + _%deleted92898%_ + _%key92870%_) (vector-set! - _%table92723%_ - (##fx+ _%deleted92746%_ '1) - (_%string-table-update!92719%_ _%default92720%_)) + _%table92875%_ + (##fx+ _%deleted92898%_ '1) + (_%string-table-update!92871%_ _%default92872%_)) ((lambda () (&raw-table-count-set! - _%tab92717%_ - (##fx+ (&raw-table-count _%tab92717%_) '1))))) + _%tab92869%_ + (##fx+ (&raw-table-count _%tab92869%_) '1))))) (begin (vector-set! - _%table92723%_ - _%probe92742%_ - _%key92718%_) + _%table92875%_ + _%probe92894%_ + _%key92870%_) (vector-set! - _%table92723%_ - (##fx+ _%probe92742%_ '1) - (_%string-table-update!92719%_ _%default92720%_)) + _%table92875%_ + (##fx+ _%probe92894%_ '1) + (_%string-table-update!92871%_ _%default92872%_)) ((lambda () (&raw-table-free-set! - _%tab92717%_ - (##fx- (&raw-table-free _%tab92717%_) '1)) + _%tab92869%_ + (##fx- (&raw-table-free _%tab92869%_) '1)) (&raw-table-count-set! - _%tab92717%_ - (##fx+ (&raw-table-count _%tab92717%_) '1)))))) - (if (eq? _%k92749%_ (macro-deleted-obj)) - (_%loop92739%_ - (let ((_%next-probe92756%_ - (fx+ _%start92735%_ - _%i92744%_ - (fx* _%i92744%_ _%i92744%_)))) - (##fxmodulo _%next-probe92756%_ _%size92729%_)) - (##fx+ _%i92744%_ '1) - (let ((_%$e92759%_ _%deleted92746%_)) - (if _%$e92759%_ _%$e92759%_ _%probe92742%_))) - (if (##string=? _%key92718%_ _%k92749%_) + _%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%_) (let () (vector-set! - _%table92723%_ - _%probe92742%_ - _%key92718%_) + _%table92875%_ + _%probe92894%_ + _%key92870%_) (vector-set! - _%table92723%_ - (##fx+ _%probe92742%_ '1) - (_%string-table-update!92719%_ + _%table92875%_ + (##fx+ _%probe92894%_ '1) + (_%string-table-update!92871%_ (vector-ref - _%table92723%_ - (##fx+ _%probe92742%_ '1))))) - (_%loop92739%_ - (let ((_%next-probe92764%_ - (fx+ _%start92735%_ - _%i92744%_ - (fx* _%i92744%_ _%i92744%_)))) - (##fxmodulo _%next-probe92764%_ _%size92729%_)) - (##fx+ _%i92744%_ '1) - _%deleted92746%_)))))))))) + _%table92875%_ + (##fx+ _%probe92894%_ '1))))) + (_%loop92891%_ + (let ((_%next-probe92916%_ + (fx+ _%start92887%_ + _%i92896%_ + (fx* _%i92896%_ _%i92896%_)))) + (##fxmodulo _%next-probe92916%_ _%size92881%_)) + (##fx+ _%i92896%_ '1) + _%deleted92898%_)))))))))) (define string-table-delete! - (lambda (_%tab92672%_ _%key92674%_) - (let ((_%table92677%_ (&raw-table-table _%tab92672%_)) - (_%seed92679%_ (&raw-table-seed _%tab92672%_))) - (let* ((_%h92682%_ - (fxxor (##string=?-hash _%key92674%_) _%seed92679%_)) - (_%size92685%_ (vector-length _%table92677%_)) - (_%entries92688%_ (##fxquotient _%size92685%_ '2)) - (_%start92691%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92682%_ _%entries92688%_) + (##fxmodulo _%h92834%_ _%entries92840%_) '1))) - (let _%loop92695%_ ((_%probe92698%_ _%start92691%_) - (_%i92700%_ '1)) - (let ((_%k92703%_ (vector-ref _%table92677%_ _%probe92698%_))) - (if (eq? _%k92703%_ (macro-unused-obj)) + (let _%loop92847%_ ((_%probe92850%_ _%start92843%_) + (_%i92852%_ '1)) + (let ((_%k92855%_ (vector-ref _%table92829%_ _%probe92850%_))) + (if (eq? _%k92855%_ (macro-unused-obj)) '#!void - (if (eq? _%k92703%_ (macro-deleted-obj)) - (_%loop92695%_ - (let ((_%next-probe92708%_ - (fx+ _%start92691%_ - _%i92700%_ - (fx* _%i92700%_ _%i92700%_)))) - (##fxmodulo _%next-probe92708%_ _%size92685%_)) - (##fx+ _%i92700%_ '1)) - (if (##string=? _%key92674%_ _%k92703%_) + (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%_) (let () (vector-set! - _%table92677%_ - _%probe92698%_ + _%table92829%_ + _%probe92850%_ (macro-deleted-obj)) (vector-set! - _%table92677%_ - (##fx+ _%probe92698%_ '1) + _%table92829%_ + (##fx+ _%probe92850%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92672%_ - (##fx- (&raw-table-count _%tab92672%_) + _%tab92824%_ + (##fx- (&raw-table-count _%tab92824%_) '1))))) - (_%loop92695%_ - (let ((_%next-probe92714%_ - (fx+ _%start92691%_ - _%i92700%_ - (fx* _%i92700%_ _%i92700%_)))) - (##fxmodulo _%next-probe92714%_ _%size92685%_)) - (##fx+ _%i92700%_ '1))))))))))) + (_%loop92847%_ + (let ((_%next-probe92866%_ + (fx+ _%start92843%_ + _%i92852%_ + (fx* _%i92852%_ _%i92852%_)))) + (##fxmodulo _%next-probe92866%_ _%size92837%_)) + (##fx+ _%i92852%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint92653%_ _%seed92655%_) + (lambda (_%size-hint92805%_ _%seed92807%_) (make-raw-table__% - _%size-hint92653%_ + _%size-hint92805%_ immediate-hash eq? - _%seed92655%_))) + _%seed92807%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint92661%_ '#f) (_%seed92663%_ '0)) - (make-immediate-table__% _%size-hint92661%_ _%seed92663%_)))) + (let* ((_%size-hint92813%_ '#f) (_%seed92815%_ '0)) + (make-immediate-table__% _%size-hint92813%_ _%seed92815%_)))) (define make-immediate-table__1 - (lambda (_%size-hint92665%_) - (let ((_%seed92667%_ '0)) - (make-immediate-table__% _%size-hint92665%_ _%seed92667%_)))) + (lambda (_%size-hint92817%_) + (let ((_%seed92819%_ '0)) + (make-immediate-table__% _%size-hint92817%_ _%seed92819%_)))) (define make-immediate-table - (lambda _g93893_ - (let ((_g93892_ (##length _g93893_))) - (cond ((##fx= _g93892_ 0) (apply make-immediate-table__0 _g93893_)) - ((##fx= _g93892_ 1) (apply make-immediate-table__1 _g93893_)) - ((##fx= _g93892_ 2) (apply make-immediate-table__% _g93893_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g93893_)))))) + _g94045_)))))) (define immediate-table-ref - (lambda (_%tab92606%_ _%key92607%_ _%default92608%_) - (let ((_%table92610%_ (&raw-table-table _%tab92606%_)) - (_%seed92611%_ (&raw-table-seed _%tab92606%_))) - (let* ((_%h92613%_ - (fxxor (immediate-hash _%key92607%_) _%seed92611%_)) - (_%size92616%_ (vector-length _%table92610%_)) - (_%entries92619%_ (##fxquotient _%size92616%_ '2)) - (_%start92622%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92613%_ _%entries92619%_) + (##fxmodulo _%h92765%_ _%entries92771%_) '1))) - (let _%loop92626%_ ((_%probe92629%_ _%start92622%_) - (_%i92631%_ '1) - (_%deleted92633%_ '#f)) - (let ((_%k92636%_ (vector-ref _%table92610%_ _%probe92629%_))) - (if (eq? _%k92636%_ (macro-unused-obj)) - _%default92608%_ - (if (eq? _%k92636%_ (macro-deleted-obj)) - (_%loop92626%_ - (let ((_%next-probe92641%_ - (fx+ _%start92622%_ - _%i92631%_ - (fx* _%i92631%_ _%i92631%_)))) - (##fxmodulo _%next-probe92641%_ _%size92616%_)) - (##fx+ _%i92631%_ '1) - (let ((_%$e92644%_ _%deleted92633%_)) - (if _%$e92644%_ _%$e92644%_ _%probe92629%_))) - (if (eq? _%key92607%_ _%k92636%_) + (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%_) (vector-ref - _%table92610%_ - (##fx+ _%probe92629%_ '1)) - (_%loop92626%_ - (let ((_%next-probe92649%_ - (fx+ _%start92622%_ - _%i92631%_ - (fx* _%i92631%_ _%i92631%_)))) - (##fxmodulo _%next-probe92649%_ _%size92616%_)) - (##fx+ _%i92631%_ '1) - _%deleted92633%_)))))))))) + _%table92762%_ + (##fx+ _%probe92781%_ '1)) + (_%loop92778%_ + (let ((_%next-probe92801%_ + (fx+ _%start92774%_ + _%i92783%_ + (fx* _%i92783%_ _%i92783%_)))) + (##fxmodulo _%next-probe92801%_ _%size92768%_)) + (##fx+ _%i92783%_ '1) + _%deleted92785%_)))))))))) (define immediate-table-set! - (lambda (_%tab92602%_ _%key92603%_ _%value92604%_) - (if (##fx< (&raw-table-free _%tab92602%_) + (lambda (_%tab92754%_ _%key92755%_ _%value92756%_) + (if (##fx< (&raw-table-free _%tab92754%_) (##fxquotient - (vector-length (&raw-table-table _%tab92602%_)) + (vector-length (&raw-table-table _%tab92754%_)) '4)) - (__raw-table-rehash! _%tab92602%_) + (__raw-table-rehash! _%tab92754%_) '#!void) - (__immediate-table-set! _%tab92602%_ _%key92603%_ _%value92604%_))) + (__immediate-table-set! _%tab92754%_ _%key92755%_ _%value92756%_))) (define __immediate-table-set! - (lambda (_%tab92553%_ _%key92554%_ _%value92555%_) - (let ((_%table92558%_ (&raw-table-table _%tab92553%_)) - (_%seed92559%_ (&raw-table-seed _%tab92553%_))) - (let* ((_%h92561%_ - (fxxor (immediate-hash _%key92554%_) _%seed92559%_)) - (_%size92564%_ (vector-length _%table92558%_)) - (_%entries92567%_ (##fxquotient _%size92564%_ '2)) - (_%start92570%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92561%_ _%entries92567%_) + (##fxmodulo _%h92713%_ _%entries92719%_) '1))) - (let _%loop92574%_ ((_%probe92577%_ _%start92570%_) - (_%i92579%_ '1) - (_%deleted92581%_ '#f)) - (let ((_%k92584%_ (vector-ref _%table92558%_ _%probe92577%_))) - (if (eq? _%k92584%_ (macro-unused-obj)) - (if _%deleted92581%_ + (let _%loop92726%_ ((_%probe92729%_ _%start92722%_) + (_%i92731%_ '1) + (_%deleted92733%_ '#f)) + (let ((_%k92736%_ (vector-ref _%table92710%_ _%probe92729%_))) + (if (eq? _%k92736%_ (macro-unused-obj)) + (if _%deleted92733%_ (begin (vector-set! - _%table92558%_ - _%deleted92581%_ - _%key92554%_) + _%table92710%_ + _%deleted92733%_ + _%key92706%_) (vector-set! - _%table92558%_ - (##fx+ _%deleted92581%_ '1) - _%value92555%_) + _%table92710%_ + (##fx+ _%deleted92733%_ '1) + _%value92707%_) ((lambda () (&raw-table-count-set! - _%tab92553%_ - (##fx+ (&raw-table-count _%tab92553%_) '1))))) + _%tab92705%_ + (##fx+ (&raw-table-count _%tab92705%_) '1))))) (begin (vector-set! - _%table92558%_ - _%probe92577%_ - _%key92554%_) + _%table92710%_ + _%probe92729%_ + _%key92706%_) (vector-set! - _%table92558%_ - (##fx+ _%probe92577%_ '1) - _%value92555%_) + _%table92710%_ + (##fx+ _%probe92729%_ '1) + _%value92707%_) ((lambda () (&raw-table-free-set! - _%tab92553%_ - (##fx- (&raw-table-free _%tab92553%_) '1)) + _%tab92705%_ + (##fx- (&raw-table-free _%tab92705%_) '1)) (&raw-table-count-set! - _%tab92553%_ - (##fx+ (&raw-table-count _%tab92553%_) '1)))))) - (if (eq? _%k92584%_ (macro-deleted-obj)) - (_%loop92574%_ - (let ((_%next-probe92591%_ - (fx+ _%start92570%_ - _%i92579%_ - (fx* _%i92579%_ _%i92579%_)))) - (##fxmodulo _%next-probe92591%_ _%size92564%_)) - (##fx+ _%i92579%_ '1) - (let ((_%$e92594%_ _%deleted92581%_)) - (if _%$e92594%_ _%$e92594%_ _%probe92577%_))) - (if (eq? _%key92554%_ _%k92584%_) + _%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%_) (let () (vector-set! - _%table92558%_ - _%probe92577%_ - _%key92554%_) + _%table92710%_ + _%probe92729%_ + _%key92706%_) (vector-set! - _%table92558%_ - (##fx+ _%probe92577%_ '1) - _%value92555%_)) - (_%loop92574%_ - (let ((_%next-probe92599%_ - (fx+ _%start92570%_ - _%i92579%_ - (fx* _%i92579%_ _%i92579%_)))) - (##fxmodulo _%next-probe92599%_ _%size92564%_)) - (##fx+ _%i92579%_ '1) - _%deleted92581%_)))))))))) + _%table92710%_ + (##fx+ _%probe92729%_ '1) + _%value92707%_)) + (_%loop92726%_ + (let ((_%next-probe92751%_ + (fx+ _%start92722%_ + _%i92731%_ + (fx* _%i92731%_ _%i92731%_)))) + (##fxmodulo _%next-probe92751%_ _%size92716%_)) + (##fx+ _%i92731%_ '1) + _%deleted92733%_)))))))))) (define immediate-table-update! - (lambda (_%tab92548%_ - _%key92549%_ - _%immediate-table-update!92550%_ - _%default92551%_) - (if (##fx< (&raw-table-free _%tab92548%_) + (lambda (_%tab92700%_ + _%key92701%_ + _%immediate-table-update!92702%_ + _%default92703%_) + (if (##fx< (&raw-table-free _%tab92700%_) (##fxquotient - (vector-length (&raw-table-table _%tab92548%_)) + (vector-length (&raw-table-table _%tab92700%_)) '4)) - (__raw-table-rehash! _%tab92548%_) + (__raw-table-rehash! _%tab92700%_) '#!void) (__immediate-table-update! - _%tab92548%_ - _%key92549%_ - _%immediate-table-update!92550%_ - _%default92551%_))) + _%tab92700%_ + _%key92701%_ + _%immediate-table-update!92702%_ + _%default92703%_))) (define __immediate-table-update! - (lambda (_%tab92498%_ - _%key92499%_ - _%immediate-table-update!92500%_ - _%default92501%_) - (let ((_%table92504%_ (&raw-table-table _%tab92498%_)) - (_%seed92505%_ (&raw-table-seed _%tab92498%_))) - (let* ((_%h92507%_ - (fxxor (immediate-hash _%key92499%_) _%seed92505%_)) - (_%size92510%_ (vector-length _%table92504%_)) - (_%entries92513%_ (##fxquotient _%size92510%_ '2)) - (_%start92516%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92507%_ _%entries92513%_) + (##fxmodulo _%h92659%_ _%entries92665%_) '1))) - (let _%loop92520%_ ((_%probe92523%_ _%start92516%_) - (_%i92525%_ '1) - (_%deleted92527%_ '#f)) - (let ((_%k92530%_ (vector-ref _%table92504%_ _%probe92523%_))) - (if (eq? _%k92530%_ (macro-unused-obj)) - (if _%deleted92527%_ + (let _%loop92672%_ ((_%probe92675%_ _%start92668%_) + (_%i92677%_ '1) + (_%deleted92679%_ '#f)) + (let ((_%k92682%_ (vector-ref _%table92656%_ _%probe92675%_))) + (if (eq? _%k92682%_ (macro-unused-obj)) + (if _%deleted92679%_ (begin (vector-set! - _%table92504%_ - _%deleted92527%_ - _%key92499%_) + _%table92656%_ + _%deleted92679%_ + _%key92651%_) (vector-set! - _%table92504%_ - (##fx+ _%deleted92527%_ '1) - (_%immediate-table-update!92500%_ _%default92501%_)) + _%table92656%_ + (##fx+ _%deleted92679%_ '1) + (_%immediate-table-update!92652%_ _%default92653%_)) ((lambda () (&raw-table-count-set! - _%tab92498%_ - (##fx+ (&raw-table-count _%tab92498%_) '1))))) + _%tab92650%_ + (##fx+ (&raw-table-count _%tab92650%_) '1))))) (begin (vector-set! - _%table92504%_ - _%probe92523%_ - _%key92499%_) + _%table92656%_ + _%probe92675%_ + _%key92651%_) (vector-set! - _%table92504%_ - (##fx+ _%probe92523%_ '1) - (_%immediate-table-update!92500%_ _%default92501%_)) + _%table92656%_ + (##fx+ _%probe92675%_ '1) + (_%immediate-table-update!92652%_ _%default92653%_)) ((lambda () (&raw-table-free-set! - _%tab92498%_ - (##fx- (&raw-table-free _%tab92498%_) '1)) + _%tab92650%_ + (##fx- (&raw-table-free _%tab92650%_) '1)) (&raw-table-count-set! - _%tab92498%_ - (##fx+ (&raw-table-count _%tab92498%_) '1)))))) - (if (eq? _%k92530%_ (macro-deleted-obj)) - (_%loop92520%_ - (let ((_%next-probe92537%_ - (fx+ _%start92516%_ - _%i92525%_ - (fx* _%i92525%_ _%i92525%_)))) - (##fxmodulo _%next-probe92537%_ _%size92510%_)) - (##fx+ _%i92525%_ '1) - (let ((_%$e92540%_ _%deleted92527%_)) - (if _%$e92540%_ _%$e92540%_ _%probe92523%_))) - (if (eq? _%key92499%_ _%k92530%_) + _%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%_) (let () (vector-set! - _%table92504%_ - _%probe92523%_ - _%key92499%_) + _%table92656%_ + _%probe92675%_ + _%key92651%_) (vector-set! - _%table92504%_ - (##fx+ _%probe92523%_ '1) - (_%immediate-table-update!92500%_ + _%table92656%_ + (##fx+ _%probe92675%_ '1) + (_%immediate-table-update!92652%_ (vector-ref - _%table92504%_ - (##fx+ _%probe92523%_ '1))))) - (_%loop92520%_ - (let ((_%next-probe92545%_ - (fx+ _%start92516%_ - _%i92525%_ - (fx* _%i92525%_ _%i92525%_)))) - (##fxmodulo _%next-probe92545%_ _%size92510%_)) - (##fx+ _%i92525%_ '1) - _%deleted92527%_)))))))))) + _%table92656%_ + (##fx+ _%probe92675%_ '1))))) + (_%loop92672%_ + (let ((_%next-probe92697%_ + (fx+ _%start92668%_ + _%i92677%_ + (fx* _%i92677%_ _%i92677%_)))) + (##fxmodulo _%next-probe92697%_ _%size92662%_)) + (##fx+ _%i92677%_ '1) + _%deleted92679%_)))))))))) (define immediate-table-delete! - (lambda (_%tab92453%_ _%key92455%_) - (let ((_%table92458%_ (&raw-table-table _%tab92453%_)) - (_%seed92460%_ (&raw-table-seed _%tab92453%_))) - (let* ((_%h92463%_ - (fxxor (immediate-hash _%key92455%_) _%seed92460%_)) - (_%size92466%_ (vector-length _%table92458%_)) - (_%entries92469%_ (##fxquotient _%size92466%_ '2)) - (_%start92472%_ + (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%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92463%_ _%entries92469%_) + (##fxmodulo _%h92615%_ _%entries92621%_) '1))) - (let _%loop92476%_ ((_%probe92479%_ _%start92472%_) - (_%i92481%_ '1)) - (let ((_%k92484%_ (vector-ref _%table92458%_ _%probe92479%_))) - (if (eq? _%k92484%_ (macro-unused-obj)) + (let _%loop92628%_ ((_%probe92631%_ _%start92624%_) + (_%i92633%_ '1)) + (let ((_%k92636%_ (vector-ref _%table92610%_ _%probe92631%_))) + (if (eq? _%k92636%_ (macro-unused-obj)) '#!void - (if (eq? _%k92484%_ (macro-deleted-obj)) - (_%loop92476%_ - (let ((_%next-probe92489%_ - (fx+ _%start92472%_ - _%i92481%_ - (fx* _%i92481%_ _%i92481%_)))) - (##fxmodulo _%next-probe92489%_ _%size92466%_)) - (##fx+ _%i92481%_ '1)) - (if (eq? _%key92455%_ _%k92484%_) + (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%_) (let () (vector-set! - _%table92458%_ - _%probe92479%_ + _%table92610%_ + _%probe92631%_ (macro-deleted-obj)) (vector-set! - _%table92458%_ - (##fx+ _%probe92479%_ '1) + _%table92610%_ + (##fx+ _%probe92631%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92453%_ - (##fx- (&raw-table-count _%tab92453%_) + _%tab92605%_ + (##fx- (&raw-table-count _%tab92605%_) '1))))) - (_%loop92476%_ - (let ((_%next-probe92495%_ - (fx+ _%start92472%_ - _%i92481%_ - (fx* _%i92481%_ _%i92481%_)))) - (##fxmodulo _%next-probe92495%_ _%size92466%_)) - (##fx+ _%i92481%_ '1))))))))))) + (_%loop92628%_ + (let ((_%next-probe92647%_ + (fx+ _%start92624%_ + _%i92633%_ + (fx* _%i92633%_ _%i92633%_)))) + (##fxmodulo _%next-probe92647%_ _%size92618%_)) + (##fx+ _%i92633%_ '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 (_%tab92451%_) + (lambda (_%tab92603%_) (##unchecked-structure-ref - _%tab92451%_ + _%tab92603%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab92449%_) + (lambda (_%tab92601%_) (##unchecked-structure-ref - _%tab92449%_ + _%tab92601%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab92446%_ _%val92447%_) + (lambda (_%tab92598%_ _%val92599%_) (##unchecked-structure-set! - _%tab92446%_ - _%val92447%_ + _%tab92598%_ + _%val92599%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab92443%_ _%val92444%_) + (lambda (_%tab92595%_ _%val92596%_) (##unchecked-structure-set! - _%tab92443%_ - _%val92444%_ + _%tab92595%_ + _%val92596%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint92419%_ _%klass92420%_ _%flags92421%_) - (let ((_%gcht92423%_ + (lambda (_%size-hint92571%_ _%klass92572%_ _%flags92573%_) + (let ((_%gcht92575%_ (__gc-table-new - (if (fixnum? _%size-hint92419%_) _%size-hint92419%_ '16) - _%flags92421%_))) - (##structure _%klass92420%_ _%gcht92423%_ '#f)))) + (if (fixnum? _%size-hint92571%_) _%size-hint92571%_ '16) + _%flags92573%_))) + (##structure _%klass92572%_ _%gcht92575%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint92428%_) - (let* ((_%klass92430%_ __gc-table::t) (_%flags92432%_ '0)) + (lambda (_%size-hint92580%_) + (let* ((_%klass92582%_ __gc-table::t) (_%flags92584%_ '0)) (make-gc-table__% - _%size-hint92428%_ - _%klass92430%_ - _%flags92432%_)))) + _%size-hint92580%_ + _%klass92582%_ + _%flags92584%_)))) (define make-gc-table__1 - (lambda (_%size-hint92434%_ _%klass92435%_) - (let ((_%flags92437%_ '0)) + (lambda (_%size-hint92586%_ _%klass92587%_) + (let ((_%flags92589%_ '0)) (make-gc-table__% - _%size-hint92434%_ - _%klass92435%_ - _%flags92437%_)))) + _%size-hint92586%_ + _%klass92587%_ + _%flags92589%_)))) (define make-gc-table - (lambda _g93895_ - (let ((_g93894_ (##length _g93895_))) - (cond ((##fx= _g93894_ 1) (apply make-gc-table__0 _g93895_)) - ((##fx= _g93894_ 2) (apply make-gc-table__1 _g93895_)) - ((##fx= _g93894_ 3) (apply make-gc-table__% _g93895_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g93895_)))))) + _g94047_)))))) (define __gc-table-immediate - (lambda (_%tab92410%_) - (let ((_%$e92412%_ (&gc-table-immediate _%tab92410%_))) - (if _%$e92412%_ - _%$e92412%_ - (let ((_%immediate92416%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab92410%_ _%immediate92416%_) - _%immediate92416%_))))) + (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%_))))) (define __gc-table-new - (lambda (_%size92400%_ _%flags92401%_) - (let* ((_%flags92403%_ - (##fxand _%flags92401%_ + (lambda (_%size92552%_ _%flags92553%_) + (let* ((_%flags92555%_ + (##fxand _%flags92553%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags92405%_ - (fxior _%flags92403%_ + (_%flags92557%_ + (fxior _%flags92555%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht92407%_ + (_%gcht92559%_ (##gc-hash-table-allocate - _%size92400%_ - _%flags92405%_ + _%size92552%_ + _%flags92557%_ __gc-table-loads))) - _%gcht92407%_))) + _%gcht92559%_))) (define __gc-table-e - (lambda (_%tab92395%_) + (lambda (_%tab92547%_) (declare (not interrupts-enabled)) - (let ((_%gcht92398%_ (&gc-table-gcht _%tab92395%_))) + (let ((_%gcht92550%_ (&gc-table-gcht _%tab92547%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht92398%_) + (fxand (macro-gc-hash-table-flags _%gcht92550%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht92398%_ + _%gcht92550%_ (begin - (__gc-table-rehash! _%tab92395%_) - (&gc-table-gcht _%tab92395%_)))))) + (__gc-table-rehash! _%tab92547%_) + (&gc-table-gcht _%tab92547%_)))))) (define __gc-table-rehash! - (lambda (_%tab92386%_) - (let* ((_%old-table92388%_ (&gc-table-gcht _%tab92386%_)) - (_%new-table92390%_ - (##gc-hash-table-resize! _%old-table92388%_ __gc-table-loads)) - (_%gcht92392%_ + (lambda (_%tab92538%_) + (let* ((_%old-table92540%_ (&gc-table-gcht _%tab92538%_)) + (_%new-table92542%_ + (##gc-hash-table-resize! _%old-table92540%_ __gc-table-loads)) + (_%gcht92544%_ (##gc-hash-table-rehash! - _%old-table92388%_ - _%new-table92390%_))) - (&gc-table-gcht-set! _%tab92386%_ _%gcht92392%_)))) + _%old-table92540%_ + _%new-table92542%_))) + (&gc-table-gcht-set! _%tab92538%_ _%gcht92544%_)))) (define gc-table-ref - (lambda (_%tab92370%_ _%key92371%_ _%default92372%_) + (lambda (_%tab92522%_ _%key92523%_ _%default92524%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92371%_) - (let* ((_%gcht92376%_ (__gc-table-e _%tab92370%_)) - (_%value92378%_ - (##gc-hash-table-ref _%gcht92376%_ _%key92371%_))) - (if (eq? _%value92378%_ (macro-unused-obj)) - _%default92372%_ - _%value92378%_)) - (let ((_%$e92380%_ (&gc-table-immediate _%tab92370%_))) - (if _%$e92380%_ - ((lambda (_%immediate92383%_) + (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%_) (immediate-table-ref - _%immediate92383%_ - _%key92371%_ - _%default92372%_)) - _%$e92380%_) - _%default92372%_))))) + _%immediate92535%_ + _%key92523%_ + _%default92524%_)) + _%$e92532%_) + _%default92524%_))))) (define gc-table-set! - (lambda (_%tab92363%_ _%key92364%_ _%value92365%_) + (lambda (_%tab92515%_ _%key92516%_ _%value92517%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92364%_) - (let ((_%gcht92368%_ (__gc-table-e _%tab92363%_))) + (if (##mem-allocated? _%key92516%_) + (let ((_%gcht92520%_ (__gc-table-e _%tab92515%_))) (if (##gc-hash-table-set! - _%gcht92368%_ - _%key92364%_ - _%value92365%_) + _%gcht92520%_ + _%key92516%_ + _%value92517%_) (begin - (__gc-table-rehash! _%tab92363%_) - (gc-table-set! _%tab92363%_ _%key92364%_ _%value92365%_)) + (__gc-table-rehash! _%tab92515%_) + (gc-table-set! _%tab92515%_ _%key92516%_ _%value92517%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab92363%_) - _%key92364%_ - _%value92365%_)))) + (__gc-table-immediate _%tab92515%_) + _%key92516%_ + _%value92517%_)))) (define gc-table-update! - (lambda (_%tab92356%_ _%key92357%_ _%update92358%_ _%default92359%_) - (if (##mem-allocated? _%key92357%_) - (let ((_%value92361%_ - (gc-table-ref _%tab92356%_ _%key92357%_ _%default92359%_))) + (lambda (_%tab92508%_ _%key92509%_ _%update92510%_ _%default92511%_) + (if (##mem-allocated? _%key92509%_) + (let ((_%value92513%_ + (gc-table-ref _%tab92508%_ _%key92509%_ _%default92511%_))) (gc-table-set! - _%tab92356%_ - _%key92357%_ - (_%update92358%_ _%value92361%_))) + _%tab92508%_ + _%key92509%_ + (_%update92510%_ _%value92513%_))) (immediate-table-update! - (__gc-table-immediate _%tab92356%_) - _%key92357%_ - _%update92358%_ - _%default92359%_)))) + (__gc-table-immediate _%tab92508%_) + _%key92509%_ + _%update92510%_ + _%default92511%_)))) (define gc-table-delete! - (lambda (_%tab92344%_ _%key92345%_) + (lambda (_%tab92496%_ _%key92497%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92345%_) - (let ((_%gcht92349%_ (__gc-table-e _%tab92344%_))) + (if (##mem-allocated? _%key92497%_) + (let ((_%gcht92501%_ (__gc-table-e _%tab92496%_))) (if (##gc-hash-table-set! - _%gcht92349%_ - _%key92345%_ + _%gcht92501%_ + _%key92497%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab92344%_) - (gc-table-delete! _%tab92344%_ _%key92345%_)) + (__gc-table-rehash! _%tab92496%_) + (gc-table-delete! _%tab92496%_ _%key92497%_)) '#!void)) - (let ((_%$e92351%_ (&gc-table-immediate _%tab92344%_))) - (if _%$e92351%_ - ((lambda (_%immediate92354%_) - (immediate-table-delete! _%immediate92354%_ _%key92345%_)) - _%$e92351%_) + (let ((_%$e92503%_ (&gc-table-immediate _%tab92496%_))) + (if _%$e92503%_ + ((lambda (_%immediate92506%_) + (immediate-table-delete! _%immediate92506%_ _%key92497%_)) + _%$e92503%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab92325%_ _%proc92326%_) + (lambda (_%tab92477%_ _%proc92478%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht92329%_ (__gc-table-e _%tab92325%_))) - (let _%loop92331%_ ((_%i92333%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i92333%_ (##vector-length _%gcht92329%_)) - (let ((_%key92335%_ (##vector-ref _%gcht92329%_ _%i92333%_))) - (if (if (eq? _%key92335%_ (macro-unused-obj)) + (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)) '#f - (not (eq? _%key92335%_ (macro-deleted-obj)))) - (_%proc92326%_ - _%key92335%_ - (##vector-ref _%gcht92329%_ (##fx+ _%i92333%_ '1))) + (not (eq? _%key92487%_ (macro-deleted-obj)))) + (_%proc92478%_ + _%key92487%_ + (##vector-ref _%gcht92481%_ (##fx+ _%i92485%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop92331%_ (##fx+ _%i92333%_ '2)))) + (_%loop92483%_ (##fx+ _%i92485%_ '2)))) '#!void))) - (let ((_%$e92339%_ (&gc-table-immediate _%tab92325%_))) - (if _%$e92339%_ - ((lambda (_%immediate92342%_) - (raw-table-for-each _%immediate92342%_ _%proc92326%_)) - _%$e92339%_) + (let ((_%$e92491%_ (&gc-table-immediate _%tab92477%_))) + (if _%$e92491%_ + ((lambda (_%immediate92494%_) + (raw-table-for-each _%immediate92494%_ _%proc92478%_)) + _%$e92491%_) '#!void))))) (define gc-table-copy - (lambda (_%tab92313%_) - (let* ((_%gcht92315%_ (__gc-table-e _%tab92313%_)) - (_%new-table92317%_ + (lambda (_%tab92465%_) + (let* ((_%gcht92467%_ (__gc-table-e _%tab92465%_)) + (_%new-table92469%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht92315%_) - (macro-gc-hash-table-flags _%gcht92315%_))) - (_%result92319%_ + (macro-gc-hash-table-count _%gcht92467%_) + (macro-gc-hash-table-flags _%gcht92467%_))) + (_%result92471%_ (##structure - (##structure-type _%tab92313%_) - _%new-table92317%_ + (##structure-type _%tab92465%_) + _%new-table92469%_ '#f))) (gc-table-for-each - _%tab92313%_ - (lambda (_%k92322%_ _%v92323%_) - (gc-table-set! _%result92319%_ _%k92322%_ _%v92323%_))) - _%result92319%_))) + _%tab92465%_ + (lambda (_%k92474%_ _%v92475%_) + (gc-table-set! _%result92471%_ _%k92474%_ _%v92475%_))) + _%result92471%_))) (define gc-table-clear! - (lambda (_%tab92306%_) - (let* ((_%gcht92308%_ (__gc-table-e _%tab92306%_)) - (_%new-table92310%_ + (lambda (_%tab92458%_) + (let* ((_%gcht92460%_ (__gc-table-e _%tab92458%_)) + (_%new-table92462%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht92308%_)))) - (&gc-table-gcht-set! _%tab92306%_ _%new-table92310%_) - (&gc-table-immediate-set! _%tab92306%_ '#f)))) + (macro-gc-hash-table-flags _%gcht92460%_)))) + (&gc-table-gcht-set! _%tab92458%_ _%new-table92462%_) + (&gc-table-immediate-set! _%tab92458%_ '#f)))) (define gc-table-length - (lambda (_%tab92298%_) - (let ((_%gcht92300%_ (__gc-table-e _%tab92298%_))) - (fx+ (macro-gc-hash-table-count _%gcht92300%_) - (let ((_%$e92302%_ (&gc-table-immediate _%tab92298%_))) - (if _%$e92302%_ (&raw-table-count _%$e92302%_) '0)))))) + (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)))))) (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 (_%obj92283%_) + (lambda (_%obj92435%_) (declare (not interrupts-enabled)) - (let ((_%val92286%_ (gc-table-ref __object-eq-hash _%obj92283%_ '#f))) - (if _%val92286%_ - _%val92286%_ - (let* ((_%mix92288%_ __object-eq-hash-next) - (_%ptr92290%_ (##type-cast _%obj92283%_ '0)) - (_%h92292%_ - (fxand (fxxor _%mix92288%_ _%ptr92290%_) + (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%_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_%$e92295%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e92295%_ _%$e92295%_ '0))) - (gc-table-set! __object-eq-hash _%obj92283%_ _%h92292%_) - _%h92292%_))))))) + (let ((_%$e92447%_ (##fx+? __object-eq-hash-next '1))) + (if _%$e92447%_ _%$e92447%_ '0))) + (gc-table-set! __object-eq-hash _%obj92435%_ _%h92444%_) + _%h92444%_))))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index 73d366fde..90b01411e 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 (_%$stx91211%_) - (let* ((_%g9121591229%_ - (lambda (_%g9121691225%_) + (lambda (_%$stx91363%_) + (let* ((_%g9136791381%_ + (lambda (_%g9136891377%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9121691225%_))) - (_%g9121491271%_ - (lambda (_%g9121691233%_) - (if (gx#stx-pair? _%g9121691233%_) - (let ((_%e9121891236%_ (gx#syntax-e _%g9121691233%_))) - (let ((_%hd9121991240%_ + _%g9136891377%_))) + (_%g9136691423%_ + (lambda (_%g9136891385%_) + (if (gx#stx-pair? _%g9136891385%_) + (let ((_%e9137091388%_ (gx#syntax-e _%g9136891385%_))) + (let ((_%hd9137191392%_ (let () (declare (not safe)) - (##car _%e9121891236%_))) - (_%tl9122091243%_ + (##car _%e9137091388%_))) + (_%tl9137291395%_ (let () (declare (not safe)) - (##cdr _%e9121891236%_)))) - (if (gx#stx-pair? _%tl9122091243%_) - (let ((_%e9122191246%_ - (gx#syntax-e _%tl9122091243%_))) - (let ((_%hd9122291250%_ + (##cdr _%e9137091388%_)))) + (if (gx#stx-pair? _%tl9137291395%_) + (let ((_%e9137391398%_ + (gx#syntax-e _%tl9137291395%_))) + (let ((_%hd9137491402%_ (let () (declare (not safe)) - (##car _%e9122191246%_))) - (_%tl9122391253%_ + (##car _%e9137391398%_))) + (_%tl9137591405%_ (let () (declare (not safe)) - (##cdr _%e9122191246%_)))) - (if (gx#stx-null? _%tl9122391253%_) - ((lambda (_%L91256%_) + (##cdr _%e9137391398%_)))) + (if (gx#stx-null? _%tl9137591405%_) + ((lambda (_%L91408%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L91256%_ '())))) - _%hd9122291250%_) - (_%g9121591229%_ _%g9121691233%_)))) - (_%g9121591229%_ _%g9121691233%_)))) - (_%g9121591229%_ _%g9121691233%_))))) - (_%g9121491271%_ _%$stx91211%_)))) + (cons '1 (cons _%L91408%_ '())))) + _%hd9137491402%_) + (_%g9136791381%_ _%g9136891385%_)))) + (_%g9136791381%_ _%g9136891385%_)))) + (_%g9136791381%_ _%g9136891385%_))))) + (_%g9136691423%_ _%$stx91363%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx91275%_) - (let* ((_%g9127991325%_ - (lambda (_%g9128091321%_) + (lambda (_%$stx91427%_) + (let* ((_%g9143191477%_ + (lambda (_%g9143291473%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9128091321%_))) - (_%g9127891478%_ - (lambda (_%g9128091329%_) - (if (gx#stx-pair? _%g9128091329%_) - (let ((_%e9129091332%_ (gx#syntax-e _%g9128091329%_))) - (let ((_%hd9129191336%_ + _%g9143291473%_))) + (_%g9143091630%_ + (lambda (_%g9143291481%_) + (if (gx#stx-pair? _%g9143291481%_) + (let ((_%e9144291484%_ (gx#syntax-e _%g9143291481%_))) + (let ((_%hd9144391488%_ (let () (declare (not safe)) - (##car _%e9129091332%_))) - (_%tl9129291339%_ + (##car _%e9144291484%_))) + (_%tl9144491491%_ (let () (declare (not safe)) - (##cdr _%e9129091332%_)))) - (if (gx#stx-pair? _%tl9129291339%_) - (let ((_%e9129391342%_ - (gx#syntax-e _%tl9129291339%_))) - (let ((_%hd9129491346%_ + (##cdr _%e9144291484%_)))) + (if (gx#stx-pair? _%tl9144491491%_) + (let ((_%e9144591494%_ + (gx#syntax-e _%tl9144491491%_))) + (let ((_%hd9144691498%_ (let () (declare (not safe)) - (##car _%e9129391342%_))) - (_%tl9129591349%_ + (##car _%e9144591494%_))) + (_%tl9144791501%_ (let () (declare (not safe)) - (##cdr _%e9129391342%_)))) - (if (gx#stx-pair? _%tl9129591349%_) - (let ((_%e9129691352%_ - (gx#syntax-e _%tl9129591349%_))) - (let ((_%hd9129791356%_ + (##cdr _%e9144591494%_)))) + (if (gx#stx-pair? _%tl9144791501%_) + (let ((_%e9144891504%_ + (gx#syntax-e _%tl9144791501%_))) + (let ((_%hd9144991508%_ (let () (declare (not safe)) - (##car _%e9129691352%_))) - (_%tl9129891359%_ + (##car _%e9144891504%_))) + (_%tl9145091511%_ (let () (declare (not safe)) - (##cdr _%e9129691352%_)))) - (if (gx#stx-pair? _%tl9129891359%_) - (let ((_%e9129991362%_ + (##cdr _%e9144891504%_)))) + (if (gx#stx-pair? _%tl9145091511%_) + (let ((_%e9145191514%_ (gx#syntax-e - _%tl9129891359%_))) - (let ((_%hd9130091366%_ + _%tl9145091511%_))) + (let ((_%hd9145291518%_ (let () (declare (not safe)) - (##car _%e9129991362%_))) - (_%tl9130191369%_ + (##car _%e9145191514%_))) + (_%tl9145391521%_ (let () (declare (not safe)) - (##cdr _%e9129991362%_)))) + (##cdr _%e9145191514%_)))) (if (gx#stx-pair? - _%tl9130191369%_) - (let ((_%e9130291372%_ + _%tl9145391521%_) + (let ((_%e9145491524%_ (gx#syntax-e - _%tl9130191369%_))) - (let ((_%hd9130391376%_ + _%tl9145391521%_))) + (let ((_%hd9145591528%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9130291372%_))) - (_%tl9130491379%_ - (let () (declare (not safe)) (##cdr _%e9130291372%_)))) - (if (gx#stx-pair? _%tl9130491379%_) - (let ((_%e9130591382%_ (gx#syntax-e _%tl9130491379%_))) - (let ((_%hd9130691386%_ + (##car _%e9145491524%_))) + (_%tl9145691531%_ + (let () (declare (not safe)) (##cdr _%e9145491524%_)))) + (if (gx#stx-pair? _%tl9145691531%_) + (let ((_%e9145791534%_ (gx#syntax-e _%tl9145691531%_))) + (let ((_%hd9145891538%_ (let () (declare (not safe)) - (##car _%e9130591382%_))) - (_%tl9130791389%_ + (##car _%e9145791534%_))) + (_%tl9145991541%_ (let () (declare (not safe)) - (##cdr _%e9130591382%_)))) - (if (gx#stx-pair? _%tl9130791389%_) - (let ((_%e9130891392%_ - (gx#syntax-e _%tl9130791389%_))) - (let ((_%hd9130991396%_ + (##cdr _%e9145791534%_)))) + (if (gx#stx-pair? _%tl9145991541%_) + (let ((_%e9146091544%_ + (gx#syntax-e _%tl9145991541%_))) + (let ((_%hd9146191548%_ (let () (declare (not safe)) - (##car _%e9130891392%_))) - (_%tl9131091399%_ + (##car _%e9146091544%_))) + (_%tl9146291551%_ (let () (declare (not safe)) - (##cdr _%e9130891392%_)))) - (if (gx#stx-pair? _%tl9131091399%_) - (let ((_%e9131191402%_ - (gx#syntax-e _%tl9131091399%_))) - (let ((_%hd9131291406%_ + (##cdr _%e9146091544%_)))) + (if (gx#stx-pair? _%tl9146291551%_) + (let ((_%e9146391554%_ + (gx#syntax-e _%tl9146291551%_))) + (let ((_%hd9146491558%_ (let () (declare (not safe)) - (##car _%e9131191402%_))) - (_%tl9131391409%_ + (##car _%e9146391554%_))) + (_%tl9146591561%_ (let () (declare (not safe)) - (##cdr _%e9131191402%_)))) - (if (gx#stx-pair? _%tl9131391409%_) - (let ((_%e9131491412%_ + (##cdr _%e9146391554%_)))) + (if (gx#stx-pair? _%tl9146591561%_) + (let ((_%e9146691564%_ (gx#syntax-e - _%tl9131391409%_))) - (let ((_%hd9131591416%_ + _%tl9146591561%_))) + (let ((_%hd9146791568%_ (let () (declare (not safe)) - (##car _%e9131491412%_))) - (_%tl9131691419%_ + (##car _%e9146691564%_))) + (_%tl9146891571%_ (let () (declare (not safe)) - (##cdr _%e9131491412%_)))) + (##cdr _%e9146691564%_)))) (if (gx#stx-pair? - _%tl9131691419%_) - (let ((_%e9131791422%_ + _%tl9146891571%_) + (let ((_%e9146991574%_ (gx#syntax-e - _%tl9131691419%_))) - (let ((_%hd9131891426%_ + _%tl9146891571%_))) + (let ((_%hd9147091578%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9131791422%_))) - (_%tl9131991429%_ - (let () (declare (not safe)) (##cdr _%e9131791422%_)))) - (if (gx#stx-null? _%tl9131991429%_) - ((lambda (_%L91432%_ - _%L91434%_ - _%L91435%_ - _%L91436%_ - _%L91437%_ - _%L91438%_ - _%L91439%_ - _%L91440%_ - _%L91441%_) + (##car _%e9146991574%_))) + (_%tl9147191581%_ + (let () (declare (not safe)) (##cdr _%e9146991574%_)))) + (if (gx#stx-null? _%tl9147191581%_) + ((lambda (_%L91584%_ + _%L91586%_ + _%L91587%_ + _%L91588%_ + _%L91589%_ + _%L91590%_ + _%L91591%_ + _%L91592%_ + _%L91593%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91441%_ + (cons (cons _%L91593%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L91434%_ - (cons _%L91432%_ + (cons _%L91586%_ + (cons _%L91584%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91440%_ + (cons (cons _%L91592%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L91434%_ - (cons _%L91432%_ + (cons _%L91586%_ + (cons _%L91584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L91439%_ + (cons (cons _%L91591%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L91438%_ + (cons (cons _%L91590%_ (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 _%L91438%_ + (cons (cons _%L91590%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L91434%_ - (cons _%L91432%_ + (cons _%L91586%_ + (cons _%L91584%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L91437%_ + (cons (cons _%L91589%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L91589%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L91436%_ + (cons (cons _%L91588%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L91589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91436%_ + (cons (cons _%L91588%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L91589%_ (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 _%L91434%_ - (cons _%L91432%_ + (cons _%L91586%_ + (cons _%L91584%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L91589%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91435%_ + (cons (cons _%L91587%_ (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 _%L91434%_ - (cons _%L91432%_ + (cons _%L91586%_ + (cons _%L91584%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9131891426%_ - _%hd9131591416%_ - _%hd9131291406%_ - _%hd9130991396%_ - _%hd9130691386%_ - _%hd9130391376%_ - _%hd9130091366%_ - _%hd9129791356%_ - _%hd9129491346%_) - (_%g9127991325%_ _%g9128091329%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_))))) - (_%g9127891478%_ _%$stx91275%_)))) + _%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%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx91482%_) - (let* ((_%g9148691508%_ - (lambda (_%g9148791504%_) + (lambda (_%$stx91634%_) + (let* ((_%g9163891660%_ + (lambda (_%g9163991656%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9148791504%_))) - (_%g9148591577%_ - (lambda (_%g9148791512%_) - (if (gx#stx-pair? _%g9148791512%_) - (let ((_%e9149191515%_ (gx#syntax-e _%g9148791512%_))) - (let ((_%hd9149291519%_ + _%g9163991656%_))) + (_%g9163791729%_ + (lambda (_%g9163991664%_) + (if (gx#stx-pair? _%g9163991664%_) + (let ((_%e9164391667%_ (gx#syntax-e _%g9163991664%_))) + (let ((_%hd9164491671%_ (let () (declare (not safe)) - (##car _%e9149191515%_))) - (_%tl9149391522%_ + (##car _%e9164391667%_))) + (_%tl9164591674%_ (let () (declare (not safe)) - (##cdr _%e9149191515%_)))) - (if (gx#stx-pair? _%tl9149391522%_) - (let ((_%e9149491525%_ - (gx#syntax-e _%tl9149391522%_))) - (let ((_%hd9149591529%_ + (##cdr _%e9164391667%_)))) + (if (gx#stx-pair? _%tl9164591674%_) + (let ((_%e9164691677%_ + (gx#syntax-e _%tl9164591674%_))) + (let ((_%hd9164791681%_ (let () (declare (not safe)) - (##car _%e9149491525%_))) - (_%tl9149691532%_ + (##car _%e9164691677%_))) + (_%tl9164891684%_ (let () (declare (not safe)) - (##cdr _%e9149491525%_)))) - (if (gx#stx-pair? _%tl9149691532%_) - (let ((_%e9149791535%_ - (gx#syntax-e _%tl9149691532%_))) - (let ((_%hd9149891539%_ + (##cdr _%e9164691677%_)))) + (if (gx#stx-pair? _%tl9164891684%_) + (let ((_%e9164991687%_ + (gx#syntax-e _%tl9164891684%_))) + (let ((_%hd9165091691%_ (let () (declare (not safe)) - (##car _%e9149791535%_))) - (_%tl9149991542%_ + (##car _%e9164991687%_))) + (_%tl9165191694%_ (let () (declare (not safe)) - (##cdr _%e9149791535%_)))) - (if (gx#stx-pair? _%tl9149991542%_) - (let ((_%e9150091545%_ + (##cdr _%e9164991687%_)))) + (if (gx#stx-pair? _%tl9165191694%_) + (let ((_%e9165291697%_ (gx#syntax-e - _%tl9149991542%_))) - (let ((_%hd9150191549%_ + _%tl9165191694%_))) + (let ((_%hd9165391701%_ (let () (declare (not safe)) - (##car _%e9150091545%_))) - (_%tl9150291552%_ + (##car _%e9165291697%_))) + (_%tl9165491704%_ (let () (declare (not safe)) - (##cdr _%e9150091545%_)))) + (##cdr _%e9165291697%_)))) (if (gx#stx-null? - _%tl9150291552%_) - ((lambda (_%L91555%_ - _%L91557%_ - _%L91558%_) + _%tl9165491704%_) + ((lambda (_%L91707%_ + _%L91709%_ + _%L91710%_) (cons (gx#datum->syntax '#f 'let) @@ -745,127 +745,127 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L91558%_ - (cons _%L91557%_ + (cons _%L91710%_ + (cons _%L91709%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L91557%_ (cons _%L91557%_ '()))) + (cons _%L91709%_ (cons _%L91709%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L91555%_ '()))) + (cons _%L91707%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9150191549%_ - _%hd9149891539%_ - _%hd9149591529%_) - (_%g9148691508%_ - _%g9148791512%_)))) - (_%g9148691508%_ - _%g9148791512%_)))) - (_%g9148691508%_ _%g9148791512%_)))) - (_%g9148691508%_ _%g9148791512%_)))) - (_%g9148691508%_ _%g9148791512%_))))) - (_%g9148591577%_ _%$stx91482%_)))) + _%hd9165391701%_ + _%hd9165091691%_ + _%hd9164791681%_) + (_%g9163891660%_ + _%g9163991664%_)))) + (_%g9163891660%_ + _%g9163991664%_)))) + (_%g9163891660%_ _%g9163991664%_)))) + (_%g9163891660%_ _%g9163991664%_)))) + (_%g9163891660%_ _%g9163991664%_))))) + (_%g9163791729%_ _%$stx91634%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx91581%_) - (let* ((_%g9158591619%_ - (lambda (_%g9158691615%_) + (lambda (_%$stx91733%_) + (let* ((_%g9173791771%_ + (lambda (_%g9173891767%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9158691615%_))) - (_%g9158491730%_ - (lambda (_%g9158691623%_) - (if (gx#stx-pair? _%g9158691623%_) - (let ((_%e9159391626%_ (gx#syntax-e _%g9158691623%_))) - (let ((_%hd9159491630%_ + _%g9173891767%_))) + (_%g9173691882%_ + (lambda (_%g9173891775%_) + (if (gx#stx-pair? _%g9173891775%_) + (let ((_%e9174591778%_ (gx#syntax-e _%g9173891775%_))) + (let ((_%hd9174691782%_ (let () (declare (not safe)) - (##car _%e9159391626%_))) - (_%tl9159591633%_ + (##car _%e9174591778%_))) + (_%tl9174791785%_ (let () (declare (not safe)) - (##cdr _%e9159391626%_)))) - (if (gx#stx-pair? _%tl9159591633%_) - (let ((_%e9159691636%_ - (gx#syntax-e _%tl9159591633%_))) - (let ((_%hd9159791640%_ + (##cdr _%e9174591778%_)))) + (if (gx#stx-pair? _%tl9174791785%_) + (let ((_%e9174891788%_ + (gx#syntax-e _%tl9174791785%_))) + (let ((_%hd9174991792%_ (let () (declare (not safe)) - (##car _%e9159691636%_))) - (_%tl9159891643%_ + (##car _%e9174891788%_))) + (_%tl9175091795%_ (let () (declare (not safe)) - (##cdr _%e9159691636%_)))) - (if (gx#stx-pair? _%tl9159891643%_) - (let ((_%e9159991646%_ - (gx#syntax-e _%tl9159891643%_))) - (let ((_%hd9160091650%_ + (##cdr _%e9174891788%_)))) + (if (gx#stx-pair? _%tl9175091795%_) + (let ((_%e9175191798%_ + (gx#syntax-e _%tl9175091795%_))) + (let ((_%hd9175291802%_ (let () (declare (not safe)) - (##car _%e9159991646%_))) - (_%tl9160191653%_ + (##car _%e9175191798%_))) + (_%tl9175391805%_ (let () (declare (not safe)) - (##cdr _%e9159991646%_)))) - (if (gx#stx-pair? _%tl9160191653%_) - (let ((_%e9160291656%_ + (##cdr _%e9175191798%_)))) + (if (gx#stx-pair? _%tl9175391805%_) + (let ((_%e9175491808%_ (gx#syntax-e - _%tl9160191653%_))) - (let ((_%hd9160391660%_ + _%tl9175391805%_))) + (let ((_%hd9175591812%_ (let () (declare (not safe)) - (##car _%e9160291656%_))) - (_%tl9160491663%_ + (##car _%e9175491808%_))) + (_%tl9175691815%_ (let () (declare (not safe)) - (##cdr _%e9160291656%_)))) + (##cdr _%e9175491808%_)))) (if (gx#stx-pair? - _%tl9160491663%_) - (let ((_%e9160591666%_ + _%tl9175691815%_) + (let ((_%e9175791818%_ (gx#syntax-e - _%tl9160491663%_))) - (let ((_%hd9160691670%_ + _%tl9175691815%_))) + (let ((_%hd9175891822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9160591666%_))) - (_%tl9160791673%_ - (let () (declare (not safe)) (##cdr _%e9160591666%_)))) - (if (gx#stx-pair? _%tl9160791673%_) - (let ((_%e9160891676%_ (gx#syntax-e _%tl9160791673%_))) - (let ((_%hd9160991680%_ + (##car _%e9175791818%_))) + (_%tl9175991825%_ + (let () (declare (not safe)) (##cdr _%e9175791818%_)))) + (if (gx#stx-pair? _%tl9175991825%_) + (let ((_%e9176091828%_ (gx#syntax-e _%tl9175991825%_))) + (let ((_%hd9176191832%_ (let () (declare (not safe)) - (##car _%e9160891676%_))) - (_%tl9161091683%_ + (##car _%e9176091828%_))) + (_%tl9176291835%_ (let () (declare (not safe)) - (##cdr _%e9160891676%_)))) - (if (gx#stx-pair? _%tl9161091683%_) - (let ((_%e9161191686%_ - (gx#syntax-e _%tl9161091683%_))) - (let ((_%hd9161291690%_ + (##cdr _%e9176091828%_)))) + (if (gx#stx-pair? _%tl9176291835%_) + (let ((_%e9176391838%_ + (gx#syntax-e _%tl9176291835%_))) + (let ((_%hd9176491842%_ (let () (declare (not safe)) - (##car _%e9161191686%_))) - (_%tl9161391693%_ + (##car _%e9176391838%_))) + (_%tl9176591845%_ (let () (declare (not safe)) - (##cdr _%e9161191686%_)))) - (if (gx#stx-null? _%tl9161391693%_) - ((lambda (_%L91696%_ - _%L91698%_ - _%L91699%_ - _%L91700%_ - _%L91701%_ - _%L91702%_) + (##cdr _%e9176391838%_)))) + (if (gx#stx-null? _%tl9176591845%_) + ((lambda (_%L91848%_ + _%L91850%_ + _%L91851%_ + _%L91852%_ + _%L91853%_ + _%L91854%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -874,13 +874,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L91700%_ - (cons _%L91698%_ '())) - (cons _%L91701%_ '()))) + (cons (cons _%L91852%_ + (cons _%L91850%_ '())) + (cons _%L91853%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91702%_ '())) + (cons _%L91854%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L91702%_ + (cons _%L91854%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L91696%_ '())) + (cons _%L91848%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L91699%_ - (cons _%L91698%_ + (cons (cons (cons _%L91851%_ + (cons _%L91850%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L91702%_ + (cons _%L91854%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9161291690%_ - _%hd9160991680%_ - _%hd9160691670%_ - _%hd9160391660%_ - _%hd9160091650%_ - _%hd9159791640%_) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9158591619%_ - _%g9158691623%_)))) - (_%g9158591619%_ - _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_))))) - (_%g9158491730%_ _%$stx91581%_)))) + _%hd9176491842%_ + _%hd9176191832%_ + _%hd9175891822%_ + _%hd9175591812%_ + _%hd9175291802%_ + _%hd9174991792%_) + (_%g9173791771%_ _%g9173891775%_)))) + (_%g9173791771%_ _%g9173891775%_)))) + (_%g9173791771%_ _%g9173891775%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9173791771%_ + _%g9173891775%_)))) + (_%g9173791771%_ + _%g9173891775%_)))) + (_%g9173791771%_ _%g9173891775%_)))) + (_%g9173791771%_ _%g9173891775%_)))) + (_%g9173791771%_ _%g9173891775%_))))) + (_%g9173691882%_ _%$stx91733%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx91734%_) - (let* ((_%g9173891780%_ - (lambda (_%g9173991776%_) + (lambda (_%$stx91886%_) + (let* ((_%g9189091932%_ + (lambda (_%g9189191928%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9173991776%_))) - (_%g9173791919%_ - (lambda (_%g9173991784%_) - (if (gx#stx-pair? _%g9173991784%_) - (let ((_%e9174891787%_ (gx#syntax-e _%g9173991784%_))) - (let ((_%hd9174991791%_ + _%g9189191928%_))) + (_%g9188992071%_ + (lambda (_%g9189191936%_) + (if (gx#stx-pair? _%g9189191936%_) + (let ((_%e9190091939%_ (gx#syntax-e _%g9189191936%_))) + (let ((_%hd9190191943%_ (let () (declare (not safe)) - (##car _%e9174891787%_))) - (_%tl9175091794%_ + (##car _%e9190091939%_))) + (_%tl9190291946%_ (let () (declare (not safe)) - (##cdr _%e9174891787%_)))) - (if (gx#stx-pair? _%tl9175091794%_) - (let ((_%e9175191797%_ - (gx#syntax-e _%tl9175091794%_))) - (let ((_%hd9175291801%_ + (##cdr _%e9190091939%_)))) + (if (gx#stx-pair? _%tl9190291946%_) + (let ((_%e9190391949%_ + (gx#syntax-e _%tl9190291946%_))) + (let ((_%hd9190491953%_ (let () (declare (not safe)) - (##car _%e9175191797%_))) - (_%tl9175391804%_ + (##car _%e9190391949%_))) + (_%tl9190591956%_ (let () (declare (not safe)) - (##cdr _%e9175191797%_)))) - (if (gx#stx-pair? _%tl9175391804%_) - (let ((_%e9175491807%_ - (gx#syntax-e _%tl9175391804%_))) - (let ((_%hd9175591811%_ + (##cdr _%e9190391949%_)))) + (if (gx#stx-pair? _%tl9190591956%_) + (let ((_%e9190691959%_ + (gx#syntax-e _%tl9190591956%_))) + (let ((_%hd9190791963%_ (let () (declare (not safe)) - (##car _%e9175491807%_))) - (_%tl9175691814%_ + (##car _%e9190691959%_))) + (_%tl9190891966%_ (let () (declare (not safe)) - (##cdr _%e9175491807%_)))) - (if (gx#stx-pair? _%tl9175691814%_) - (let ((_%e9175791817%_ + (##cdr _%e9190691959%_)))) + (if (gx#stx-pair? _%tl9190891966%_) + (let ((_%e9190991969%_ (gx#syntax-e - _%tl9175691814%_))) - (let ((_%hd9175891821%_ + _%tl9190891966%_))) + (let ((_%hd9191091973%_ (let () (declare (not safe)) - (##car _%e9175791817%_))) - (_%tl9175991824%_ + (##car _%e9190991969%_))) + (_%tl9191191976%_ (let () (declare (not safe)) - (##cdr _%e9175791817%_)))) + (##cdr _%e9190991969%_)))) (if (gx#stx-pair? - _%tl9175991824%_) - (let ((_%e9176091827%_ + _%tl9191191976%_) + (let ((_%e9191291979%_ (gx#syntax-e - _%tl9175991824%_))) - (let ((_%hd9176191831%_ + _%tl9191191976%_))) + (let ((_%hd9191391983%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9176091827%_))) - (_%tl9176291834%_ - (let () (declare (not safe)) (##cdr _%e9176091827%_)))) - (if (gx#stx-pair? _%tl9176291834%_) - (let ((_%e9176391837%_ (gx#syntax-e _%tl9176291834%_))) - (let ((_%hd9176491841%_ + (##car _%e9191291979%_))) + (_%tl9191491986%_ + (let () (declare (not safe)) (##cdr _%e9191291979%_)))) + (if (gx#stx-pair? _%tl9191491986%_) + (let ((_%e9191591989%_ (gx#syntax-e _%tl9191491986%_))) + (let ((_%hd9191691993%_ (let () (declare (not safe)) - (##car _%e9176391837%_))) - (_%tl9176591844%_ + (##car _%e9191591989%_))) + (_%tl9191791996%_ (let () (declare (not safe)) - (##cdr _%e9176391837%_)))) - (if (gx#stx-pair? _%tl9176591844%_) - (let ((_%e9176691847%_ - (gx#syntax-e _%tl9176591844%_))) - (let ((_%hd9176791851%_ + (##cdr _%e9191591989%_)))) + (if (gx#stx-pair? _%tl9191791996%_) + (let ((_%e9191891999%_ + (gx#syntax-e _%tl9191791996%_))) + (let ((_%hd9191992003%_ (let () (declare (not safe)) - (##car _%e9176691847%_))) - (_%tl9176891854%_ + (##car _%e9191891999%_))) + (_%tl9192092006%_ (let () (declare (not safe)) - (##cdr _%e9176691847%_)))) - (if (gx#stx-pair? _%tl9176891854%_) - (let ((_%e9176991857%_ - (gx#syntax-e _%tl9176891854%_))) - (let ((_%hd9177091861%_ + (##cdr _%e9191891999%_)))) + (if (gx#stx-pair? _%tl9192092006%_) + (let ((_%e9192192009%_ + (gx#syntax-e _%tl9192092006%_))) + (let ((_%hd9192292013%_ (let () (declare (not safe)) - (##car _%e9176991857%_))) - (_%tl9177191864%_ + (##car _%e9192192009%_))) + (_%tl9192392016%_ (let () (declare (not safe)) - (##cdr _%e9176991857%_)))) - (if (gx#stx-pair? _%tl9177191864%_) - (let ((_%e9177291867%_ + (##cdr _%e9192192009%_)))) + (if (gx#stx-pair? _%tl9192392016%_) + (let ((_%e9192492019%_ (gx#syntax-e - _%tl9177191864%_))) - (let ((_%hd9177391871%_ + _%tl9192392016%_))) + (let ((_%hd9192592023%_ (let () (declare (not safe)) - (##car _%e9177291867%_))) - (_%tl9177491874%_ + (##car _%e9192492019%_))) + (_%tl9192692026%_ (let () (declare (not safe)) - (##cdr _%e9177291867%_)))) + (##cdr _%e9192492019%_)))) (if (gx#stx-null? - _%tl9177491874%_) - ((lambda (_%L91877%_ - _%L91879%_ - _%L91880%_ - _%L91881%_ - _%L91882%_ - _%L91883%_ - _%L91884%_ - _%L91885%_) + _%tl9192692026%_) + ((lambda (_%L92029%_ + _%L92031%_ + _%L92032%_ + _%L92033%_ + _%L92034%_ + _%L92035%_ + _%L92036%_ + _%L92037%_) (cons (gx#datum->syntax '#f 'let*) @@ -1178,18 +1178,18 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L91883%_ - (cons _%L91881%_ + (cons (cons _%L92035%_ + (cons _%L92033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L91884%_ '()))) + (cons _%L92036%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91885%_ '())) + (cons _%L92037%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L91885%_ + (cons _%L92037%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92037%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L91881%_ '())))) + (cons _%L92033%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L91880%_ '())))) - (cons (cons _%L91877%_ '()) '())))) + (cons _%L92032%_ '())))) + (cons (cons _%L92029%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L91881%_ '())))) + (cons _%L92033%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92037%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L91880%_ '())))) - (cons (cons _%L91879%_ '()) '())))) + (cons _%L92032%_ '())))) + (cons (cons _%L92031%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L91882%_ + (cons (cons (cons _%L92034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L91881%_ + (cons _%L92033%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92037%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L91881%_ '())))) + (cons _%L92033%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92037%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L91880%_ '())))) + (cons _%L92032%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9177391871%_ - _%hd9177091861%_ - _%hd9176791851%_ - _%hd9176491841%_ - _%hd9176191831%_ - _%hd9175891821%_ - _%hd9175591811%_ - _%hd9175291801%_) - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_))))) - (_%g9173791919%_ _%$stx91734%_)))) + _%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%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx91923%_) - (let* ((_%g9192791973%_ - (lambda (_%g9192891969%_) + (lambda (_%$stx92075%_) + (let* ((_%g9207992125%_ + (lambda (_%g9208092121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9192891969%_))) - (_%g9192692126%_ - (lambda (_%g9192891977%_) - (if (gx#stx-pair? _%g9192891977%_) - (let ((_%e9193891980%_ (gx#syntax-e _%g9192891977%_))) - (let ((_%hd9193991984%_ + _%g9208092121%_))) + (_%g9207892278%_ + (lambda (_%g9208092129%_) + (if (gx#stx-pair? _%g9208092129%_) + (let ((_%e9209092132%_ (gx#syntax-e _%g9208092129%_))) + (let ((_%hd9209192136%_ (let () (declare (not safe)) - (##car _%e9193891980%_))) - (_%tl9194091987%_ + (##car _%e9209092132%_))) + (_%tl9209292139%_ (let () (declare (not safe)) - (##cdr _%e9193891980%_)))) - (if (gx#stx-pair? _%tl9194091987%_) - (let ((_%e9194191990%_ - (gx#syntax-e _%tl9194091987%_))) - (let ((_%hd9194291994%_ + (##cdr _%e9209092132%_)))) + (if (gx#stx-pair? _%tl9209292139%_) + (let ((_%e9209392142%_ + (gx#syntax-e _%tl9209292139%_))) + (let ((_%hd9209492146%_ (let () (declare (not safe)) - (##car _%e9194191990%_))) - (_%tl9194391997%_ + (##car _%e9209392142%_))) + (_%tl9209592149%_ (let () (declare (not safe)) - (##cdr _%e9194191990%_)))) - (if (gx#stx-pair? _%tl9194391997%_) - (let ((_%e9194492000%_ - (gx#syntax-e _%tl9194391997%_))) - (let ((_%hd9194592004%_ + (##cdr _%e9209392142%_)))) + (if (gx#stx-pair? _%tl9209592149%_) + (let ((_%e9209692152%_ + (gx#syntax-e _%tl9209592149%_))) + (let ((_%hd9209792156%_ (let () (declare (not safe)) - (##car _%e9194492000%_))) - (_%tl9194692007%_ + (##car _%e9209692152%_))) + (_%tl9209892159%_ (let () (declare (not safe)) - (##cdr _%e9194492000%_)))) - (if (gx#stx-pair? _%tl9194692007%_) - (let ((_%e9194792010%_ + (##cdr _%e9209692152%_)))) + (if (gx#stx-pair? _%tl9209892159%_) + (let ((_%e9209992162%_ (gx#syntax-e - _%tl9194692007%_))) - (let ((_%hd9194892014%_ + _%tl9209892159%_))) + (let ((_%hd9210092166%_ (let () (declare (not safe)) - (##car _%e9194792010%_))) - (_%tl9194992017%_ + (##car _%e9209992162%_))) + (_%tl9210192169%_ (let () (declare (not safe)) - (##cdr _%e9194792010%_)))) + (##cdr _%e9209992162%_)))) (if (gx#stx-pair? - _%tl9194992017%_) - (let ((_%e9195092020%_ + _%tl9210192169%_) + (let ((_%e9210292172%_ (gx#syntax-e - _%tl9194992017%_))) - (let ((_%hd9195192024%_ + _%tl9210192169%_))) + (let ((_%hd9210392176%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9195092020%_))) - (_%tl9195292027%_ - (let () (declare (not safe)) (##cdr _%e9195092020%_)))) - (if (gx#stx-pair? _%tl9195292027%_) - (let ((_%e9195392030%_ (gx#syntax-e _%tl9195292027%_))) - (let ((_%hd9195492034%_ + (##car _%e9210292172%_))) + (_%tl9210492179%_ + (let () (declare (not safe)) (##cdr _%e9210292172%_)))) + (if (gx#stx-pair? _%tl9210492179%_) + (let ((_%e9210592182%_ (gx#syntax-e _%tl9210492179%_))) + (let ((_%hd9210692186%_ (let () (declare (not safe)) - (##car _%e9195392030%_))) - (_%tl9195592037%_ + (##car _%e9210592182%_))) + (_%tl9210792189%_ (let () (declare (not safe)) - (##cdr _%e9195392030%_)))) - (if (gx#stx-pair? _%tl9195592037%_) - (let ((_%e9195692040%_ - (gx#syntax-e _%tl9195592037%_))) - (let ((_%hd9195792044%_ + (##cdr _%e9210592182%_)))) + (if (gx#stx-pair? _%tl9210792189%_) + (let ((_%e9210892192%_ + (gx#syntax-e _%tl9210792189%_))) + (let ((_%hd9210992196%_ (let () (declare (not safe)) - (##car _%e9195692040%_))) - (_%tl9195892047%_ + (##car _%e9210892192%_))) + (_%tl9211092199%_ (let () (declare (not safe)) - (##cdr _%e9195692040%_)))) - (if (gx#stx-pair? _%tl9195892047%_) - (let ((_%e9195992050%_ - (gx#syntax-e _%tl9195892047%_))) - (let ((_%hd9196092054%_ + (##cdr _%e9210892192%_)))) + (if (gx#stx-pair? _%tl9211092199%_) + (let ((_%e9211192202%_ + (gx#syntax-e _%tl9211092199%_))) + (let ((_%hd9211292206%_ (let () (declare (not safe)) - (##car _%e9195992050%_))) - (_%tl9196192057%_ + (##car _%e9211192202%_))) + (_%tl9211392209%_ (let () (declare (not safe)) - (##cdr _%e9195992050%_)))) - (if (gx#stx-pair? _%tl9196192057%_) - (let ((_%e9196292060%_ + (##cdr _%e9211192202%_)))) + (if (gx#stx-pair? _%tl9211392209%_) + (let ((_%e9211492212%_ (gx#syntax-e - _%tl9196192057%_))) - (let ((_%hd9196392064%_ + _%tl9211392209%_))) + (let ((_%hd9211592216%_ (let () (declare (not safe)) - (##car _%e9196292060%_))) - (_%tl9196492067%_ + (##car _%e9211492212%_))) + (_%tl9211692219%_ (let () (declare (not safe)) - (##cdr _%e9196292060%_)))) + (##cdr _%e9211492212%_)))) (if (gx#stx-pair? - _%tl9196492067%_) - (let ((_%e9196592070%_ + _%tl9211692219%_) + (let ((_%e9211792222%_ (gx#syntax-e - _%tl9196492067%_))) - (let ((_%hd9196692074%_ + _%tl9211692219%_))) + (let ((_%hd9211892226%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9196592070%_))) - (_%tl9196792077%_ - (let () (declare (not safe)) (##cdr _%e9196592070%_)))) - (if (gx#stx-null? _%tl9196792077%_) - ((lambda (_%L92080%_ - _%L92082%_ - _%L92083%_ - _%L92084%_ - _%L92085%_ - _%L92086%_ - _%L92087%_ - _%L92088%_ - _%L92089%_) + (##car _%e9211792222%_))) + (_%tl9211992229%_ + (let () (declare (not safe)) (##cdr _%e9211792222%_)))) + (if (gx#stx-null? _%tl9211992229%_) + ((lambda (_%L92232%_ + _%L92234%_ + _%L92235%_ + _%L92236%_ + _%L92237%_ + _%L92238%_ + _%L92239%_ + _%L92240%_ + _%L92241%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L92087%_ + (cons (cons _%L92239%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92085%_ '())) - (cons _%L92088%_ '()))) + (cons _%L92237%_ '())) + (cons _%L92240%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L92089%_ '())) + (cons _%L92241%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92089%_ + (cons _%L92241%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L92241%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L92085%_ '())))) + (cons _%L92237%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L92241%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L92084%_ - (cons _%L92083%_ '())) + (cons (cons _%L92236%_ + (cons _%L92235%_ '())) '())))) - (cons (cons _%L92080%_ '()) '())))) + (cons (cons _%L92232%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L92241%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92085%_ '())))) + (cons _%L92237%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L92241%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L92084%_ - (cons _%L92083%_ + (cons (cons _%L92236%_ + (cons _%L92235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L92082%_ '()) '())))) + (cons (cons _%L92234%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92086%_ - (cons _%L92085%_ + (cons (cons (cons _%L92238%_ + (cons _%L92237%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L92241%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92085%_ + (cons _%L92237%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L92241%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L92084%_ + (cons (cons _%L92236%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92089%_ + (cons _%L92241%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9196692074%_ - _%hd9196392064%_ - _%hd9196092054%_ - _%hd9195792044%_ - _%hd9195492034%_ - _%hd9195192024%_ - _%hd9194892014%_ - _%hd9194592004%_ - _%hd9194291994%_) - (_%g9192791973%_ _%g9192891977%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_))))) - (_%g9192692126%_ _%$stx91923%_)))) + _%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%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx92130%_) - (let* ((_%g9213492168%_ - (lambda (_%g9213592164%_) + (lambda (_%$stx92282%_) + (let* ((_%g9228692320%_ + (lambda (_%g9228792316%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9213592164%_))) - (_%g9213392279%_ - (lambda (_%g9213592172%_) - (if (gx#stx-pair? _%g9213592172%_) - (let ((_%e9214292175%_ (gx#syntax-e _%g9213592172%_))) - (let ((_%hd9214392179%_ + _%g9228792316%_))) + (_%g9228592431%_ + (lambda (_%g9228792324%_) + (if (gx#stx-pair? _%g9228792324%_) + (let ((_%e9229492327%_ (gx#syntax-e _%g9228792324%_))) + (let ((_%hd9229592331%_ (let () (declare (not safe)) - (##car _%e9214292175%_))) - (_%tl9214492182%_ + (##car _%e9229492327%_))) + (_%tl9229692334%_ (let () (declare (not safe)) - (##cdr _%e9214292175%_)))) - (if (gx#stx-pair? _%tl9214492182%_) - (let ((_%e9214592185%_ - (gx#syntax-e _%tl9214492182%_))) - (let ((_%hd9214692189%_ + (##cdr _%e9229492327%_)))) + (if (gx#stx-pair? _%tl9229692334%_) + (let ((_%e9229792337%_ + (gx#syntax-e _%tl9229692334%_))) + (let ((_%hd9229892341%_ (let () (declare (not safe)) - (##car _%e9214592185%_))) - (_%tl9214792192%_ + (##car _%e9229792337%_))) + (_%tl9229992344%_ (let () (declare (not safe)) - (##cdr _%e9214592185%_)))) - (if (gx#stx-pair? _%tl9214792192%_) - (let ((_%e9214892195%_ - (gx#syntax-e _%tl9214792192%_))) - (let ((_%hd9214992199%_ + (##cdr _%e9229792337%_)))) + (if (gx#stx-pair? _%tl9229992344%_) + (let ((_%e9230092347%_ + (gx#syntax-e _%tl9229992344%_))) + (let ((_%hd9230192351%_ (let () (declare (not safe)) - (##car _%e9214892195%_))) - (_%tl9215092202%_ + (##car _%e9230092347%_))) + (_%tl9230292354%_ (let () (declare (not safe)) - (##cdr _%e9214892195%_)))) - (if (gx#stx-pair? _%tl9215092202%_) - (let ((_%e9215192205%_ + (##cdr _%e9230092347%_)))) + (if (gx#stx-pair? _%tl9230292354%_) + (let ((_%e9230392357%_ (gx#syntax-e - _%tl9215092202%_))) - (let ((_%hd9215292209%_ + _%tl9230292354%_))) + (let ((_%hd9230492361%_ (let () (declare (not safe)) - (##car _%e9215192205%_))) - (_%tl9215392212%_ + (##car _%e9230392357%_))) + (_%tl9230592364%_ (let () (declare (not safe)) - (##cdr _%e9215192205%_)))) + (##cdr _%e9230392357%_)))) (if (gx#stx-pair? - _%tl9215392212%_) - (let ((_%e9215492215%_ + _%tl9230592364%_) + (let ((_%e9230692367%_ (gx#syntax-e - _%tl9215392212%_))) - (let ((_%hd9215592219%_ + _%tl9230592364%_))) + (let ((_%hd9230792371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9215492215%_))) - (_%tl9215692222%_ - (let () (declare (not safe)) (##cdr _%e9215492215%_)))) - (if (gx#stx-pair? _%tl9215692222%_) - (let ((_%e9215792225%_ (gx#syntax-e _%tl9215692222%_))) - (let ((_%hd9215892229%_ + (##car _%e9230692367%_))) + (_%tl9230892374%_ + (let () (declare (not safe)) (##cdr _%e9230692367%_)))) + (if (gx#stx-pair? _%tl9230892374%_) + (let ((_%e9230992377%_ (gx#syntax-e _%tl9230892374%_))) + (let ((_%hd9231092381%_ (let () (declare (not safe)) - (##car _%e9215792225%_))) - (_%tl9215992232%_ + (##car _%e9230992377%_))) + (_%tl9231192384%_ (let () (declare (not safe)) - (##cdr _%e9215792225%_)))) - (if (gx#stx-pair? _%tl9215992232%_) - (let ((_%e9216092235%_ - (gx#syntax-e _%tl9215992232%_))) - (let ((_%hd9216192239%_ + (##cdr _%e9230992377%_)))) + (if (gx#stx-pair? _%tl9231192384%_) + (let ((_%e9231292387%_ + (gx#syntax-e _%tl9231192384%_))) + (let ((_%hd9231392391%_ (let () (declare (not safe)) - (##car _%e9216092235%_))) - (_%tl9216292242%_ + (##car _%e9231292387%_))) + (_%tl9231492394%_ (let () (declare (not safe)) - (##cdr _%e9216092235%_)))) - (if (gx#stx-null? _%tl9216292242%_) - ((lambda (_%L92245%_ - _%L92247%_ - _%L92248%_ - _%L92249%_ - _%L92250%_ - _%L92251%_) + (##cdr _%e9231292387%_)))) + (if (gx#stx-null? _%tl9231492394%_) + ((lambda (_%L92397%_ + _%L92399%_ + _%L92400%_ + _%L92401%_ + _%L92402%_ + _%L92403%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1938,13 +1938,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L92249%_ - (cons _%L92247%_ '())) - (cons _%L92250%_ '()))) + (cons (cons _%L92401%_ + (cons _%L92399%_ '())) + (cons _%L92402%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L92251%_ '())) + (cons _%L92403%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L92251%_ + (cons _%L92403%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92248%_ - (cons _%L92247%_ + (cons (cons (cons _%L92400%_ + (cons _%L92399%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92251%_ + (cons _%L92403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2059,7 +2059,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92251%_ + (cons _%L92403%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L92245%_ '()) '())))) + (cons (cons _%L92397%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9216192239%_ - _%hd9215892229%_ - _%hd9215592219%_ - _%hd9215292209%_ - _%hd9214992199%_ - _%hd9214692189%_) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9213492168%_ - _%g9213592172%_)))) - (_%g9213492168%_ - _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_))))) - (_%g9213392279%_ _%$stx92130%_))))) + _%hd9231392391%_ + _%hd9231092381%_ + _%hd9230792371%_ + _%hd9230492361%_ + _%hd9230192351%_ + _%hd9229892341%_) + (_%g9228692320%_ _%g9228792324%_)))) + (_%g9228692320%_ _%g9228792324%_)))) + (_%g9228692320%_ _%g9228792324%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9228692320%_ + _%g9228792324%_)))) + (_%g9228692320%_ + _%g9228792324%_)))) + (_%g9228692320%_ _%g9228792324%_)))) + (_%g9228692320%_ _%g9228792324%_)))) + (_%g9228692320%_ _%g9228792324%_))))) + (_%g9228592431%_ _%$stx92282%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index c18d310b3..3e5f1930a 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 1713631265) + (define gerbil/runtime/thread::timestamp 1733687559) (begin (define spawn - (lambda (_%f110553%_ . _%args110554%_) - (if (procedure? _%f110553%_) - (let ((_%f110558%_ _%f110553%_)) + (lambda (_%f110712%_ . _%args110713%_) + (if (procedure? _%f110712%_) + (let ((_%f110717%_ _%f110712%_)) (declare (not safe)) - (##apply __spawn _%f110558%_ _%args110554%_)) + (##apply __spawn _%f110717%_ _%args110713%_)) (begin (raise-contract-violation-error '"contract violation" @@ -16,18 +16,18 @@ 'contract: 'procedure? 'value: - _%f110553%_) + _%f110712%_) '#!void)))) (define __spawn - (lambda (_%f110540%_ . _%args110541%_) - (let ((_%f110544%_ _%f110540%_)) - (spawn-actor _%f110544%_ _%args110541%_ '#!void '#f)))) + (lambda (_%f110699%_ . _%args110700%_) + (let ((_%f110703%_ _%f110699%_)) + (spawn-actor _%f110703%_ _%args110700%_ '#!void '#f)))) (define spawn/name - (lambda (_%name110524%_ _%f110525%_ . _%args110526%_) - (if (procedure? _%f110525%_) - (let ((_%f110530%_ _%f110525%_)) + (lambda (_%name110683%_ _%f110684%_ . _%args110685%_) + (if (procedure? _%f110684%_) + (let ((_%f110689%_ _%f110684%_)) (declare (not safe)) - (##apply __spawn/name _%name110524%_ _%f110530%_ _%args110526%_)) + (##apply __spawn/name _%name110683%_ _%f110689%_ _%args110685%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,21 +36,21 @@ 'contract: 'procedure? 'value: - _%f110525%_) + _%f110684%_) '#!void)))) (define __spawn/name - (lambda (_%name110510%_ _%f110511%_ . _%args110512%_) - (let ((_%f110515%_ _%f110511%_)) - (spawn-actor _%f110515%_ _%args110512%_ _%name110510%_ '#f)))) + (lambda (_%name110669%_ _%f110670%_ . _%args110671%_) + (let ((_%f110674%_ _%f110670%_)) + (spawn-actor _%f110674%_ _%args110671%_ _%name110669%_ '#f)))) (define spawn/group - (lambda (_%name110494%_ _%f110495%_ . _%args110496%_) - (if (procedure? _%f110495%_) - (let ((_%f110500%_ _%f110495%_)) + (lambda (_%name110653%_ _%f110654%_ . _%args110655%_) + (if (procedure? _%f110654%_) + (let ((_%f110659%_ _%f110654%_)) (declare (not safe)) (##apply __spawn/group - _%name110494%_ - _%f110500%_ - _%args110496%_)) + _%name110653%_ + _%f110659%_ + _%args110655%_)) (begin (raise-contract-violation-error '"contract violation" @@ -59,148 +59,148 @@ 'contract: 'procedure? 'value: - _%f110495%_) + _%f110654%_) '#!void)))) (define __spawn/group - (lambda (_%name110478%_ _%f110479%_ . _%args110480%_) - (let* ((_%f110483%_ _%f110479%_) - (_%tgroup110492%_ (make-thread-group _%name110478%_))) + (lambda (_%name110637%_ _%f110638%_ . _%args110639%_) + (let* ((_%f110642%_ _%f110638%_) + (_%tgroup110651%_ (make-thread-group _%name110637%_))) (spawn-actor - _%f110483%_ - _%args110480%_ - _%name110478%_ - _%tgroup110492%_)))) + _%f110642%_ + _%args110639%_ + _%name110637%_ + _%tgroup110651%_)))) (define spawn-actor - (lambda (_%f110450%_ _%args110451%_ _%name110452%_ _%tgroup110453%_) - (letrec ((_%thread-main110456%_ - (lambda (_%thunk110470%_) + (lambda (_%f110609%_ _%args110610%_ _%name110611%_ _%tgroup110612%_) + (letrec ((_%thread-main110615%_ + (lambda (_%thunk110629%_) (lambda () - (let ((__tmp110567 - (lambda (_%exn110473%_) - (let ((__tmp110568 - (lambda (_%cont110475%_) + (let ((__tmp110726 + (lambda (_%exn110632%_) + (let ((__tmp110727 + (lambda (_%cont110634%_) (if unhandled-actor-exception-hook - (let ((__tmp110569 + (let ((__tmp110728 (lambda () (__unhandled-actor-exception-hook - _%cont110475%_ - _%exn110473%_)))) + _%cont110634%_ + _%exn110632%_)))) (declare (not safe)) - (__with-catch void __tmp110569)) + (__with-catch void __tmp110728)) '#!void) - (let ((__tmp110570 + (let ((__tmp110729 (let () (declare (not safe)) (##continuation-last - _%cont110475%_)))) + _%cont110634%_)))) (declare (not safe)) (##continuation-graft - __tmp110570 + __tmp110729 ##primordial-exception-handler - _%exn110473%_))))) + _%exn110632%_))))) (declare (not safe)) - (##continuation-capture __tmp110568))))) + (##continuation-capture __tmp110727))))) (declare (not safe)) (with-exception-handler - __tmp110567 - _%thunk110470%_)))))) - (let* ((_%thunk110459%_ - (if (null? _%args110451%_) - _%f110450%_ - (lambda () (apply _%f110450%_ _%args110451%_)))) - (_%thunk110462%_ - (lambda () (with-exception-stack-trace__0 _%thunk110459%_))) - (_%tgroup110467%_ - (let ((_%$e110464%_ _%tgroup110453%_)) - (if _%$e110464%_ _%$e110464%_ (current-thread-group))))) + __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))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (_%thread-main110456%_ _%thunk110462%_) - _%name110452%_ - _%tgroup110467%_)))))) + (_%thread-main110615%_ _%thunk110621%_) + _%name110611%_ + _%tgroup110626%_)))))) (define spawn-thread__% - (lambda (_%thunk110428%_ _%name110429%_ _%tgroup110430%_) + (lambda (_%thunk110587%_ _%name110588%_ _%tgroup110589%_) (thread-start! - (make-thread _%thunk110428%_ _%name110429%_ _%tgroup110430%_)))) + (make-thread _%thunk110587%_ _%name110588%_ _%tgroup110589%_)))) (define spawn-thread__0 - (lambda (_%thunk110435%_) - (let* ((_%name110437%_ absent-obj) (_%tgroup110439%_ absent-obj)) - (spawn-thread__% _%thunk110435%_ _%name110437%_ _%tgroup110439%_)))) + (lambda (_%thunk110594%_) + (let* ((_%name110596%_ absent-obj) (_%tgroup110598%_ absent-obj)) + (spawn-thread__% _%thunk110594%_ _%name110596%_ _%tgroup110598%_)))) (define spawn-thread__1 - (lambda (_%thunk110441%_ _%name110442%_) - (let ((_%tgroup110444%_ absent-obj)) - (spawn-thread__% _%thunk110441%_ _%name110442%_ _%tgroup110444%_)))) + (lambda (_%thunk110600%_ _%name110601%_) + (let ((_%tgroup110603%_ absent-obj)) + (spawn-thread__% _%thunk110600%_ _%name110601%_ _%tgroup110603%_)))) (define spawn-thread - (lambda _g110572_ - (let ((_g110571_ (let () (declare (not safe)) (##length _g110572_)))) - (cond ((let () (declare (not safe)) (##fx= _g110571_ 1)) - (apply spawn-thread__0 _g110572_)) - ((let () (declare (not safe)) (##fx= _g110571_ 2)) - (apply spawn-thread__1 _g110572_)) - ((let () (declare (not safe)) (##fx= _g110571_ 3)) - (apply spawn-thread__% _g110572_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g110572_)))))) + _g110731_)))))) (define thread-local-ref__% - (lambda (_%key110412%_ _%default110413%_) - (let ((_%tab110415%_ (thread-local-table))) + (lambda (_%key110571%_ _%default110572%_) + (let ((_%tab110574%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab110415%_ _%key110412%_ _%default110413%_)))) + (hash-ref__% _%tab110574%_ _%key110571%_ _%default110572%_)))) (define thread-local-ref__0 - (lambda (_%key110420%_) - (let ((_%default110422%_ absent-obj)) - (thread-local-ref__% _%key110420%_ _%default110422%_)))) + (lambda (_%key110579%_) + (let ((_%default110581%_ absent-obj)) + (thread-local-ref__% _%key110579%_ _%default110581%_)))) (define thread-local-ref - (lambda _g110574_ - (let ((_g110573_ (let () (declare (not safe)) (##length _g110574_)))) - (cond ((let () (declare (not safe)) (##fx= _g110573_ 1)) - (apply thread-local-ref__0 _g110574_)) - ((let () (declare (not safe)) (##fx= _g110573_ 2)) - (apply thread-local-ref__% _g110574_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g110574_)))))) + _g110733_)))))) (define thread-local-get - (lambda (_%key110409%_) (thread-local-ref__% _%key110409%_ '#f))) + (lambda (_%key110568%_) (thread-local-ref__% _%key110568%_ '#f))) (define thread-local-set! - (lambda (_%key110404%_ _%value110405%_) - (let ((_%tab110407%_ (thread-local-table))) + (lambda (_%key110563%_ _%value110564%_) + (let ((_%tab110566%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab110407%_ _%key110404%_ _%value110405%_)))) + (hash-put! _%tab110566%_ _%key110563%_ _%value110564%_)))) (define thread-local-delete! - (lambda (_%key110400%_) - (let ((_%tab110402%_ (thread-local-table))) + (lambda (_%key110559%_) + (let ((_%tab110561%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab110402%_ _%key110400%_)))) + (hash-remove! _%tab110561%_ _%key110559%_)))) (define thread-local-table (lambda () - (let ((_%thr110381%_ (current-thread))) - (if (actor-thread? _%thr110381%_) - (let ((_%$e110384%_ (actor-thread-locals _%thr110381%_))) - (if _%$e110384%_ - _%$e110384%_ - (let ((_%tab110388%_ + (let ((_%thr110540%_ (current-thread))) + (if (actor-thread? _%thr110540%_) + (let ((_%$e110543%_ (actor-thread-locals _%thr110540%_))) + (if _%$e110543%_ + _%$e110543%_ + (let ((_%tab110547%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr110381%_ _%tab110388%_) - _%tab110388%_))) - (if (eq? _%thr110381%_ ##primordial-thread) + (actor-thread-locals-set! _%thr110540%_ _%tab110547%_) + _%tab110547%_))) + (if (eq? _%thr110540%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e110392%_ + (let ((_%$e110551%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr110381%_)))) - (if _%$e110392%_ - ((lambda (_%tab110395%_) + (__hash-get __thread-locals _%thr110540%_)))) + (if _%$e110551%_ + ((lambda (_%tab110554%_) (mutex-unlock! __thread-locals-mutex) - _%tab110395%_) - _%$e110392%_) - (let ((_%tab110398%_ + _%tab110554%_) + _%$e110551%_) + (let ((_%tab110557%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +208,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr110381%_ - _%tab110398%_)) + _%thr110540%_ + _%tab110557%_)) (mutex-unlock! __thread-locals-mutex) - _%tab110398%_))))))))) + _%tab110557%_))))))))) (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-value110359%_) - (if ((lambda (_%$obj110362%_) - (or (not _%$obj110362%_) (procedure? _%$obj110362%_))) - _%new-value110359%_) - (let ((_%new-value110369%_ _%new-value110359%_)) - (__unhandled-actor-exception-hook-set! _%new-value110369%_)) + (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%_)) (begin (raise-contract-violation-error '"contract violation" @@ -235,21 +235,21 @@ 'contract: '(? (or not procedure?)) 'value: - _%new-value110359%_) + _%new-value110518%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value110346%_) - (let ((_%new-value110350%_ _%new-value110346%_)) - (set! __unhandled-actor-exception-hook _%new-value110350%_)))) + (lambda (_%new-value110505%_) + (let ((_%new-value110509%_ _%new-value110505%_)) + (set! __unhandled-actor-exception-hook _%new-value110509%_)))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx110320%_ _%proc110321%_) - (if (mutex? _%mx110320%_) - (let ((_%mx110325%_ _%mx110320%_)) - (if (procedure? _%proc110321%_) - (let ((_%proc110335%_ _%proc110321%_)) - (__with-lock _%mx110325%_ _%proc110335%_)) + (lambda (_%mx110479%_ _%proc110480%_) + (if (mutex? _%mx110479%_) + (let ((_%mx110484%_ _%mx110479%_)) + (if (procedure? _%proc110480%_) + (let ((_%proc110494%_ _%proc110480%_)) + (__with-lock _%mx110484%_ _%proc110494%_)) (begin (raise-contract-violation-error '"contract violation" @@ -258,7 +258,7 @@ 'contract: 'procedure? 'value: - _%proc110321%_) + _%proc110480%_) '#!void))) (begin (raise-contract-violation-error @@ -268,42 +268,42 @@ 'contract: 'mutex? 'value: - _%mx110320%_) + _%mx110479%_) '#!void)))) (define __with-lock - (lambda (_%mx110291%_ _%proc110292%_) - (let* ((_%mx110295%_ _%mx110291%_) - (_%proc110303%_ _%proc110292%_) - (_%handler110312%_ (current-exception-handler))) - (let ((__tmp110576 - (lambda (_%e110314%_) - (let ((__tmp110577 + (lambda (_%mx110450%_ _%proc110451%_) + (let* ((_%mx110454%_ _%mx110450%_) + (_%proc110462%_ _%proc110451%_) + (_%handler110471%_ (current-exception-handler))) + (let ((__tmp110735 + (lambda (_%e110473%_) + (let ((__tmp110736 (lambda () - (mutex-unlock! _%mx110295%_) + (mutex-unlock! _%mx110454%_) (let () (declare (not safe)) - (_%handler110312%_ _%e110314%_))))) + (_%handler110471%_ _%e110473%_))))) (declare (not safe)) - (__with-catch void __tmp110577)) + (__with-catch void __tmp110736)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e110314%_)))) - (__tmp110575 + (##thread-end-with-uncaught-exception! _%e110473%_)))) + (__tmp110734 (lambda () - (mutex-lock! _%mx110295%_) - (let ((_%result110318%_ - (let () (declare (not safe)) (_%proc110303%_)))) - (mutex-unlock! _%mx110295%_) - _%result110318%_)))) + (mutex-lock! _%mx110454%_) + (let ((_%result110477%_ + (let () (declare (not safe)) (_%proc110462%_)))) + (mutex-unlock! _%mx110454%_) + _%result110477%_)))) (declare (not safe)) - (__with-exception-handler __tmp110576 __tmp110575))))) + (__with-exception-handler __tmp110735 __tmp110734))))) (define with-dynamic-lock - (lambda (_%mx110266%_ _%proc110267%_) - (if (mutex? _%mx110266%_) - (let ((_%mx110271%_ _%mx110266%_)) - (if (procedure? _%proc110267%_) - (let ((_%proc110281%_ _%proc110267%_)) - (__with-dynamic-lock _%mx110271%_ _%proc110281%_)) + (lambda (_%mx110425%_ _%proc110426%_) + (if (mutex? _%mx110425%_) + (let ((_%mx110430%_ _%mx110425%_)) + (if (procedure? _%proc110426%_) + (let ((_%proc110440%_ _%proc110426%_)) + (__with-dynamic-lock _%mx110430%_ _%proc110440%_)) (begin (raise-contract-violation-error '"contract violation" @@ -312,7 +312,7 @@ 'contract: 'procedure? 'value: - _%proc110267%_) + _%proc110426%_) '#!void))) (begin (raise-contract-violation-error @@ -322,24 +322,24 @@ 'contract: 'mutex? 'value: - _%mx110266%_) + _%mx110425%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx110243%_ _%proc110244%_) - (let* ((_%mx110247%_ _%mx110243%_) (_%proc110255%_ _%proc110244%_)) - (let ((__tmp110579 (lambda () (mutex-lock! _%mx110247%_))) - (__tmp110578 (lambda () (mutex-unlock! _%mx110247%_)))) + (lambda (_%mx110402%_ _%proc110403%_) + (let* ((_%mx110406%_ _%mx110402%_) (_%proc110414%_ _%proc110403%_)) + (let ((__tmp110738 (lambda () (mutex-lock! _%mx110406%_))) + (__tmp110737 (lambda () (mutex-unlock! _%mx110406%_)))) (declare (not safe)) - (##dynamic-wind __tmp110579 _%proc110255%_ __tmp110578))))) + (##dynamic-wind __tmp110738 _%proc110414%_ __tmp110737))))) (define with-exception-stack-trace__% - (lambda (_%thunk110208%_ _%error-port110209%_) - (if (procedure? _%thunk110208%_) - (let ((_%thunk110213%_ _%thunk110208%_)) - (if (port? _%error-port110209%_) - (let ((_%error-port110223%_ _%error-port110209%_)) + (lambda (_%thunk110367%_ _%error-port110368%_) + (if (procedure? _%thunk110367%_) + (let ((_%thunk110372%_ _%thunk110367%_)) + (if (port? _%error-port110368%_) + (let ((_%error-port110382%_ _%error-port110368%_)) (__with-exception-stack-trace__% - _%thunk110213%_ - _%error-port110223%_)) + _%thunk110372%_ + _%error-port110382%_)) (begin (raise-contract-violation-error '"contract violation" @@ -348,7 +348,7 @@ 'contract: 'port? 'value: - _%error-port110209%_) + _%error-port110368%_) '#!void))) (begin (raise-contract-violation-error @@ -358,105 +358,105 @@ 'contract: 'procedure? 'value: - _%thunk110208%_) + _%thunk110367%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk110236%_) - (let ((_%error-port110238%_ (current-error-port))) + (lambda (_%thunk110395%_) + (let ((_%error-port110397%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk110236%_ - _%error-port110238%_)))) + _%thunk110395%_ + _%error-port110397%_)))) (define with-exception-stack-trace - (lambda _g110581_ - (let ((_g110580_ (let () (declare (not safe)) (##length _g110581_)))) - (cond ((let () (declare (not safe)) (##fx= _g110580_ 1)) - (apply with-exception-stack-trace__0 _g110581_)) - ((let () (declare (not safe)) (##fx= _g110580_ 2)) - (apply with-exception-stack-trace__% _g110581_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g110581_)))))) + _g110740_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk110169%_ _%error-port110170%_) - (let* ((_%thunk110173%_ _%thunk110169%_) - (_%error-port110182%_ _%error-port110170%_) - (__tmp110582 - (let ((_%E110191%_ (current-exception-handler))) - (lambda (_%exn110193%_) - (let ((__tmp110583 - (lambda (_%cont110195%_) + (lambda (_%thunk110328%_ _%error-port110329%_) + (let* ((_%thunk110332%_ _%thunk110328%_) + (_%error-port110341%_ _%error-port110329%_) + (__tmp110741 + (let ((_%E110350%_ (current-exception-handler))) + (lambda (_%exn110352%_) + (let ((__tmp110742 + (lambda (_%cont110354%_) (if (let () (declare (not safe)) (dump-stack-trace?)) (dump-stack-trace!__% - _%cont110195%_ - _%exn110193%_ - _%error-port110182%_) + _%cont110354%_ + _%exn110352%_ + _%error-port110341%_) '#!void) (let () (declare (not safe)) - (_%E110191%_ _%exn110193%_))))) + (_%E110350%_ _%exn110352%_))))) (declare (not safe)) - (##continuation-capture __tmp110583)))))) + (##continuation-capture __tmp110742)))))) (declare (not safe)) - (__with-exception-handler __tmp110582 _%thunk110173%_)))) + (__with-exception-handler __tmp110741 _%thunk110332%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk110200%_) - (let ((_%error-port110202%_ (current-error-port))) + (lambda (_%thunk110359%_) + (let ((_%error-port110361%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk110200%_ - _%error-port110202%_)))) + _%thunk110359%_ + _%error-port110361%_)))) (define __with-exception-stack-trace - (lambda _g110585_ - (let ((_g110584_ (let () (declare (not safe)) (##length _g110585_)))) - (cond ((let () (declare (not safe)) (##fx= _g110584_ 1)) - (apply __with-exception-stack-trace__0 _g110585_)) - ((let () (declare (not safe)) (##fx= _g110584_ 2)) - (apply __with-exception-stack-trace__% _g110585_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g110585_)))))) + _g110744_)))))) (define dump-stack-trace!__% - (lambda (_%cont110150%_ _%exn110151%_ _%error-port110152%_) - (let ((_%out110154%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out110154%_)) - (display '"*** Unhandled exception in " _%out110154%_) - (display (current-thread) _%out110154%_) - (newline _%out110154%_) + (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%_) (let () (declare (not safe)) - (display-exception__% _%exn110151%_ _%out110154%_)) + (display-exception__% _%exn110310%_ _%out110313%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn110151%_)) + (class-instance? StackTrace::t _%exn110310%_)) '#!void (begin - (display '"Continuation backtrace: " _%out110154%_) - (newline _%out110154%_) - (display-continuation-backtrace _%cont110150%_ _%out110154%_))) - (let ((__tmp110586 (get-output-string _%out110154%_))) + (display '"Continuation backtrace: " _%out110313%_) + (newline _%out110313%_) + (display-continuation-backtrace _%cont110309%_ _%out110313%_))) + (let ((__tmp110745 (get-output-string _%out110313%_))) (declare (not safe)) - (##write-string __tmp110586 _%error-port110152%_))))) + (##write-string __tmp110745 _%error-port110311%_))))) (define dump-stack-trace!__0 - (lambda (_%cont110159%_ _%exn110160%_) - (let ((_%error-port110162%_ (current-error-port))) + (lambda (_%cont110318%_ _%exn110319%_) + (let ((_%error-port110321%_ (current-error-port))) (dump-stack-trace!__% - _%cont110159%_ - _%exn110160%_ - _%error-port110162%_)))) + _%cont110318%_ + _%exn110319%_ + _%error-port110321%_)))) (define dump-stack-trace! - (lambda _g110588_ - (let ((_g110587_ (let () (declare (not safe)) (##length _g110588_)))) - (cond ((let () (declare (not safe)) (##fx= _g110587_ 2)) - (apply dump-stack-trace!__0 _g110588_)) - ((let () (declare (not safe)) (##fx= _g110587_ 3)) - (apply dump-stack-trace!__% _g110588_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g110588_)))))) + _g110747_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index d469b90c3..5cc3f7077 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -34,6 +34,12 @@ namespace: #f (%#define-runtime __create-directory* __create-directory*))) + (%#begin (%#define-runtime move-file__% move-file__%) + (%#begin (%#define-runtime move-file__0 move-file__0) + (%#define-runtime move-file move-file))) + (%#begin (%#define-runtime __move-file__% __move-file__%) + (%#begin (%#define-runtime __move-file__0 __move-file__0) + (%#define-runtime __move-file __move-file))) (%#define-runtime absent-obj absent-obj) (%#define-runtime absent-value absent-value) (%#define-runtime true true) diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index 856116992..a2bff9c97 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -183,6 +183,124 @@ package: gerbil/runtime #f origin: gerbil/runtime/util)))) + (declare-type + move-file__% + (@lambda 3 + #f + signature: + (return: + void::t + effect: + #f + arguments: + (string::t string::t boolean::t) + unchecked: + __move-file + origin: + gerbil/runtime/util))) + (declare-type + move-file__0 + (@lambda 2 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + move-file + (@case-lambda + (2 + move-file__0 + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + move-file__% + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + __move-file__% + (@lambda 3 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + __move-file__0 + (@lambda 2 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + __move-file + (@case-lambda + (2 + __move-file__0 + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + __move-file__% + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) (declare-type absent-value (optimizer-resolve-class '(typedecl absent-value) 'vector::t)) diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 63087541f..7c89789fa 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 1713631264) + (define gerbil/runtime/util::timestamp 1733687557) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args89377%_ + (lambda _%args89524%_ (let () - (let () (declare (not safe)) (##for-each display _%args89377%_)) + (let () (declare (not safe)) (##for-each display _%args89524%_)) (newline)))) (define display* - (lambda _%args89374%_ - (let () (declare (not safe)) (##for-each display _%args89374%_)))) + (lambda _%args89521%_ + (let () (declare (not safe)) (##for-each display _%args89521%_)))) (define file-newer? - (lambda (_%file189349%_ _%file289350%_) - (if (string? _%file189349%_) - (let ((_%file189354%_ _%file189349%_)) - (if (string? _%file289350%_) - (let ((_%file289364%_ _%file289350%_)) - (__file-newer? _%file189354%_ _%file289364%_)) + (lambda (_%file189496%_ _%file289497%_) + (if (string? _%file189496%_) + (let ((_%file189501%_ _%file189496%_)) + (if (string? _%file289497%_) + (let ((_%file289511%_ _%file289497%_)) + (__file-newer? _%file189501%_ _%file289511%_)) (begin (raise-contract-violation-error '"contract violation" @@ -27,7 +27,7 @@ 'contract: 'string? 'value: - _%file289350%_) + _%file289497%_) '#!void))) (begin (raise-contract-violation-error @@ -37,39 +37,39 @@ 'contract: 'string? 'value: - _%file189349%_) + _%file189496%_) '#!void)))) (define __file-newer? - (lambda (_%file189297%_ _%file289298%_) - (let* ((_%file189301%_ _%file189297%_) (_%file289309%_ _%file289298%_)) - (letrec ((_%modification-time89318%_ - (lambda (_%file89337%_) - (let ((_%file89340%_ _%file89337%_)) - (_%__modification-time89319%_ _%file89340%_)))) - (_%__modification-time89319%_ - (lambda (_%file89321%_) - (let* ((_%file89324%_ _%file89321%_) - (__tmp91107 - (let ((__tmp91108 + (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 (let () (declare (not safe)) - (##file-info _%file89324%_ '#t)))) + (##file-info _%file89471%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp91108)))) + __tmp91255)))) (declare (not safe)) - (##time->seconds __tmp91107))))) - (let ((__tmp91110 (_%__modification-time89319%_ _%file189301%_)) - (__tmp91109 (_%__modification-time89319%_ _%file289309%_))) + (##time->seconds __tmp91254))))) + (let ((__tmp91257 (_%__modification-time89466%_ _%file189448%_)) + (__tmp91256 (_%__modification-time89466%_ _%file289456%_))) (declare (not safe)) - (##fl> __tmp91110 __tmp91109)))))) + (##fl> __tmp91257 __tmp91256)))))) (define create-directory*__% - (lambda (_%dir89262%_ _%perms89263%_) - (if (string? _%dir89262%_) - (let ((_%dir89267%_ _%dir89262%_)) - (if (fixnum? _%perms89263%_) - (let ((_%perms89277%_ _%perms89263%_)) - (__create-directory*__% _%dir89267%_ _%perms89277%_)) + (lambda (_%dir89409%_ _%perms89410%_) + (if (string? _%dir89409%_) + (let ((_%dir89414%_ _%dir89409%_)) + (if (fixnum? _%perms89410%_) + (let ((_%perms89424%_ _%perms89410%_)) + (__create-directory*__% _%dir89414%_ _%perms89424%_)) (begin (raise-contract-violation-error '"contract violation" @@ -78,7 +78,7 @@ 'contract: 'fixnum? 'value: - _%perms89263%_) + _%perms89410%_) '#!void))) (begin (raise-contract-violation-error @@ -88,2741 +88,2860 @@ 'contract: 'string? 'value: - _%dir89262%_) + _%dir89409%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir89290%_) - (let ((_%perms89292%_ '493)) - (create-directory*__% _%dir89290%_ _%perms89292%_)))) + (lambda (_%dir89437%_) + (let ((_%perms89439%_ '493)) + (create-directory*__% _%dir89437%_ _%perms89439%_)))) (define create-directory* - (lambda _g91112_ - (let ((_g91111_ (let () (declare (not safe)) (##length _g91112_)))) - (cond ((let () (declare (not safe)) (##fx= _g91111_ 1)) - (apply create-directory*__0 _g91112_)) - ((let () (declare (not safe)) (##fx= _g91111_ 2)) - (apply create-directory*__% _g91112_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g91112_)))))) + _g91259_)))))) (define __create-directory*__% - (lambda (_%dir89186%_ _%perms89187%_) - (let* ((_%dir89190%_ _%dir89186%_) (_%perms89198%_ _%perms89187%_)) - (letrec ((_%create189207%_ - (lambda (_%path89239%_) - (let ((_%path89242%_ _%path89239%_)) - (_%__create189208%_ _%path89242%_)))) - (_%__create189208%_ - (lambda (_%path89220%_) - (let ((_%path89223%_ _%path89220%_)) + (lambda (_%dir89333%_ _%perms89334%_) + (let* ((_%dir89337%_ _%dir89333%_) (_%perms89345%_ _%perms89334%_)) + (letrec ((_%create189354%_ + (lambda (_%path89386%_) + (let ((_%path89389%_ _%path89386%_)) + (_%__create189355%_ _%path89389%_)))) + (_%__create189355%_ + (lambda (_%path89367%_) + (let ((_%path89370%_ _%path89367%_)) (if (let () (declare (not safe)) - (##file-exists? _%path89223%_)) - (if (eq? (file-type _%path89223%_) 'directory) + (##file-exists? _%path89370%_)) + (if (eq? (file-type _%path89370%_) 'directory) '#!void (error '"Path component is not a directory" - _%path89223%_)) - (if _%perms89198%_ + _%path89370%_)) + (if _%perms89345%_ (create-directory (cons 'path: - (cons _%path89223%_ + (cons _%path89370%_ (cons 'permissions: - (cons _%perms89198%_ + (cons _%perms89345%_ '()))))) - (create-directory _%path89223%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir89190%_)) + (create-directory _%path89370%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir89337%_)) '#!void - (let _%lp89210%_ ((_%start89212%_ '0)) - (let ((_%$e89214%_ - (__string-index__% _%dir89190%_ '#\/ _%start89212%_))) - (if _%$e89214%_ - ((lambda (_%x89217%_) + (let _%lp89357%_ ((_%start89359%_ '0)) + (let ((_%$e89361%_ + (__string-index__% _%dir89337%_ '#\/ _%start89359%_))) + (if _%$e89361%_ + ((lambda (_%x89364%_) (if (let () (declare (not safe)) - (##fx> _%x89217%_ '0)) - (_%__create189208%_ - (substring _%dir89190%_ '0 _%x89217%_)) + (##fx> _%x89364%_ '0)) + (_%__create189355%_ + (substring _%dir89337%_ '0 _%x89364%_)) '#!void) - (_%lp89210%_ + (_%lp89357%_ (let () (declare (not safe)) - (##fx+ _%x89217%_ '1)))) - _%$e89214%_) - (_%__create189208%_ _%dir89190%_))))) + (##fx+ _%x89364%_ '1)))) + _%$e89361%_) + (_%__create189355%_ _%dir89337%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir89254%_) - (let ((_%perms89256%_ '493)) - (__create-directory*__% _%dir89254%_ _%perms89256%_)))) + (lambda (_%dir89401%_) + (let ((_%perms89403%_ '493)) + (__create-directory*__% _%dir89401%_ _%perms89403%_)))) (define __create-directory* - (lambda _g91114_ - (let ((_g91113_ (let () (declare (not safe)) (##length _g91114_)))) - (cond ((let () (declare (not safe)) (##fx= _g91113_ 1)) - (apply __create-directory*__0 _g91114_)) - ((let () (declare (not safe)) (##fx= _g91113_ 2)) - (apply __create-directory*__% _g91114_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g91114_)))))) + _g91261_)))))) + (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%_)) + (__move-file__% + _%src89290%_ + _%dest89300%_ + _%replace?89310%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@99.51-99.59" + 'contract: + 'boolean? + 'value: + _%replace?89286%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@99.34-99.38" + 'contract: + 'string? + 'value: + _%dest89285%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@99.18-99.21" + 'contract: + 'string? + 'value: + _%src89284%_) + '#!void)))) + (define move-file__0 + (lambda (_%src89323%_ _%dest89324%_) + (let ((_%replace?89326%_ '#t)) + (move-file__% _%src89323%_ _%dest89324%_ _%replace?89326%_)))) + (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_)) + (else + (##raise-wrong-number-of-arguments-exception + move-file + _g91263_)))))) + (define __move-file__% + (lambda (_%src89227%_ _%dest89228%_ _%replace?89229%_) + (let* ((_%src89232%_ _%src89227%_) + (_%dest89240%_ _%dest89228%_) + (_%replace?89248%_ _%replace?89229%_)) + (letrec ((_%force-move-it89257%_ + (lambda () + (let ((_%tmp89263%_ + (if _%replace?89248%_ + (if (let () + (declare (not safe)) + (##file-exists? _%dest89240%_)) + (let ((__tmp91264 + (number->string + (let () + (declare (not safe)) + (##current-time-point))))) + (declare (not safe)) + (##string-append + _%dest89240%_ + '"." + __tmp91264)) + '#f) + '#f))) + (if _%tmp89263%_ + (rename-file _%dest89240%_ _%tmp89263%_) + '#!void) + (with-exception-catcher + (lambda (_%e89265%_) + (if _%tmp89263%_ + (rename-file _%tmp89263%_ _%dest89240%_ '#t) + '#!void) + (raise _%e89265%_)) + (lambda () + (let ((_%fi89268%_ + (let () + (declare (not safe)) + (##file-info _%src89232%_ '#f)))) + (if (eq? (let () + (declare (not safe)) + (##file-info-type _%fi89268%_)) + 'symbolic-link) + (let ((__tmp91265 + (path-normalize _%src89232%_))) + (declare (not safe)) + (##create-symbolic-link + __tmp91265 + _%dest89240%_)) + (let () + (declare (not safe)) + (##copy-file _%src89232%_ _%dest89240%_)))) + (let () + (declare (not safe)) + (##delete-file _%src89232%_)) + (if _%tmp89263%_ + (with-exception-catcher + void + (lambda () (delete-file _%tmp89263%_))) + '#!void))))))) + (with-exception-catcher + (lambda (_%e89259%_) + (if (let () (declare (not safe)) (##file-exists? _%src89232%_)) + (_%force-move-it89257%_) + (raise _%e89259%_))) + (lambda () + (let () + (declare (not safe)) + (##rename-file + _%src89232%_ + _%dest89240%_ + _%replace?89248%_)))) + '#!void)))) + (define __move-file__0 + (lambda (_%src89274%_ _%dest89275%_) + (let ((_%replace?89277%_ '#t)) + (__move-file__% _%src89274%_ _%dest89275%_ _%replace?89277%_)))) + (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_)) + (else + (##raise-wrong-number-of-arguments-exception + __move-file + _g91267_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore89182%_ '#t)) - (define true? (lambda (_%obj89179%_) (eq? _%obj89179%_ '#t))) - (define false (lambda _%ignore89176%_ '#f)) - (define void (lambda _%ignore89173%_ '#!void)) - (define void? (lambda (_%obj89170%_) (eq? _%obj89170%_ '#!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 dssl-object? - (lambda (_%obj89167%_) + (lambda (_%obj89208%_) (if (let () (declare (not safe)) - (##memq _%obj89167%_ '(#!key #!rest #!optional))) + (##memq _%obj89208%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj89164%_) (eq? _%obj89164%_ '#!key))) + (define dssl-key-object? (lambda (_%obj89205%_) (eq? _%obj89205%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj89161%_) (eq? _%obj89161%_ '#!rest))) + (lambda (_%obj89202%_) (eq? _%obj89202%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj89158%_) (eq? _%obj89158%_ '#!optional))) + (lambda (_%obj89199%_) (eq? _%obj89199%_ '#!optional))) (define immediate? - (lambda (_%obj89153%_) - (let* ((_%t89156%_ (let () (declare (not safe)) (##type _%obj89153%_))) - (__tmp91115 - (let () (declare (not safe)) (##fxand _%t89156%_ '1)))) + (lambda (_%obj89194%_) + (let* ((_%t89197%_ (let () (declare (not safe)) (##type _%obj89194%_))) + (__tmp91268 + (let () (declare (not safe)) (##fxand _%t89197%_ '1)))) (declare (not safe)) - (##fxzero? __tmp91115)))) + (##fxzero? __tmp91268)))) (define nonnegative-fixnum? - (lambda (_%obj89150%_) - (if (fixnum? _%obj89150%_) - (let () (declare (not safe)) (##fx>= _%obj89150%_ '0)) + (lambda (_%obj89191%_) + (if (fixnum? _%obj89191%_) + (let () (declare (not safe)) (##fx>= _%obj89191%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj89144%_) - (let ((_%$e89147%_ (pair? _%obj89144%_))) - (if _%$e89147%_ _%$e89147%_ (null? _%obj89144%_))))) + (lambda (_%obj89185%_) + (let ((_%$e89188%_ (pair? _%obj89185%_))) + (if _%$e89188%_ _%$e89188%_ (null? _%obj89185%_))))) (define values-count - (lambda (_%obj89141%_) - (if (let () (declare (not safe)) (##values? _%obj89141%_)) - (let () (declare (not safe)) (##vector-length _%obj89141%_)) + (lambda (_%obj89182%_) + (if (let () (declare (not safe)) (##values? _%obj89182%_)) + (let () (declare (not safe)) (##vector-length _%obj89182%_)) '1))) (define values-ref - (lambda (_%obj89126%_ _%k89127%_) - (if (fixnum? _%k89127%_) - (let ((_%k89131%_ _%k89127%_)) - (__values-ref _%obj89126%_ _%k89131%_)) + (lambda (_%obj89167%_ _%k89168%_) + (if (fixnum? _%k89168%_) + (let ((_%k89172%_ _%k89168%_)) + (__values-ref _%obj89167%_ _%k89172%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@200.23-200.24" + '"\"gerbil/runtime/util.ss\"@234.23-234.24" 'contract: 'fixnum? 'value: - _%k89127%_) + _%k89168%_) '#!void)))) (define __values-ref - (lambda (_%obj89113%_ _%k89114%_) - (let ((_%k89117%_ _%k89114%_)) - (if (let () (declare (not safe)) (##values? _%obj89113%_)) + (lambda (_%obj89154%_ _%k89155%_) + (let ((_%k89158%_ _%k89155%_)) + (if (let () (declare (not safe)) (##values? _%obj89154%_)) (let () (declare (not safe)) - (##vector-ref _%obj89113%_ _%k89117%_)) - _%obj89113%_)))) + (##vector-ref _%obj89154%_ _%k89158%_)) + _%obj89154%_)))) (define values->list - (lambda (_%obj89110%_) - (if (let () (declare (not safe)) (##values? _%obj89110%_)) - (let () (declare (not safe)) (##vector->list _%obj89110%_)) - (list _%obj89110%_)))) + (lambda (_%obj89151%_) + (if (let () (declare (not safe)) (##values? _%obj89151%_)) + (let () (declare (not safe)) (##vector->list _%obj89151%_)) + (list _%obj89151%_)))) (define foldl1 - (lambda (_%f89094%_ _%iv89095%_ _%lst89096%_) - (if (procedure? _%f89094%_) - (let ((_%f89100%_ _%f89094%_)) - (__foldl1 _%f89100%_ _%iv89095%_ _%lst89096%_)) + (lambda (_%f89135%_ _%iv89136%_ _%lst89137%_) + (if (procedure? _%f89135%_) + (let ((_%f89141%_ _%f89135%_)) + (__foldl1 _%f89141%_ _%iv89136%_ _%lst89137%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@223.15-223.16" + '"\"gerbil/runtime/util.ss\"@257.15-257.16" 'contract: 'procedure? 'value: - _%f89094%_) + _%f89135%_) '#!void)))) (define __foldl1 - (lambda (_%f89042%_ _%iv89043%_ _%lst89044%_) - (let ((_%f89047%_ _%f89042%_)) - (let _%lp89056%_ ((_%rest89058%_ _%lst89044%_) - (_%r89059%_ _%iv89043%_)) - (let* ((_%rest8906089068%_ _%rest89058%_) - (_%else8906289076%_ (lambda () _%r89059%_)) - (_%K8906489082%_ - (lambda (_%rest89079%_ _%x89080%_) - (_%lp89056%_ - _%rest89079%_ + (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%_ (let () (declare (not safe)) - (_%f89047%_ _%x89080%_ _%r89059%_)))))) - (if (pair? _%rest8906089068%_) - (let ((_%hd8906589085%_ + (_%f89088%_ _%x89121%_ _%r89100%_)))))) + (if (pair? _%rest8910189109%_) + (let ((_%hd8910689126%_ (let () (declare (not safe)) - (##car _%rest8906089068%_))) - (_%tl8906689087%_ + (##car _%rest8910189109%_))) + (_%tl8910789128%_ (let () (declare (not safe)) - (##cdr _%rest8906089068%_)))) - (let* ((_%x89090%_ _%hd8906589085%_) - (_%rest89092%_ _%tl8906689087%_)) - (_%K8906489082%_ _%rest89092%_ _%x89090%_))) - (_%else8906289076%_))))))) + (##cdr _%rest8910189109%_)))) + (let* ((_%x89131%_ _%hd8910689126%_) + (_%rest89133%_ _%tl8910789128%_)) + (_%K8910589123%_ _%rest89133%_ _%x89131%_))) + (_%else8910389117%_))))))) (define foldl2 - (lambda (_%f89025%_ _%iv89026%_ _%lst189027%_ _%lst289028%_) - (if (procedure? _%f89025%_) - (let ((_%f89032%_ _%f89025%_)) - (__foldl2 _%f89032%_ _%iv89026%_ _%lst189027%_ _%lst289028%_)) + (lambda (_%f89066%_ _%iv89067%_ _%lst189068%_ _%lst289069%_) + (if (procedure? _%f89066%_) + (let ((_%f89073%_ _%f89066%_)) + (__foldl2 _%f89073%_ _%iv89067%_ _%lst189068%_ _%lst289069%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@230.15-230.16" + '"\"gerbil/runtime/util.ss\"@264.15-264.16" 'contract: 'procedure? 'value: - _%f89025%_) + _%f89066%_) '#!void)))) (define __foldl2 - (lambda (_%f88938%_ _%iv88939%_ _%lst188940%_ _%lst288941%_) - (let ((_%f88944%_ _%f88938%_)) - (let _%lp88953%_ ((_%rest188955%_ _%lst188940%_) - (_%rest288956%_ _%lst288941%_) - (_%r88957%_ _%iv88939%_)) - (let* ((_%rest18895888966%_ _%rest188955%_) - (_%else8896088974%_ (lambda () _%r88957%_)) - (_%K8896289013%_ - (lambda (_%rest188977%_ _%x188978%_) - (let* ((_%rest28897988987%_ _%rest288956%_) - (_%else8898188995%_ (lambda () _%r88957%_)) - (_%K8898389001%_ - (lambda (_%rest288998%_ _%x288999%_) - (_%lp88953%_ - _%rest188977%_ - _%rest288998%_ + (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%_ (let () (declare (not safe)) - (_%f88944%_ - _%x188978%_ - _%x288999%_ - _%r88957%_)))))) - (if (pair? _%rest28897988987%_) - (let ((_%hd8898489004%_ + (_%f88985%_ + _%x189019%_ + _%x289040%_ + _%r88998%_)))))) + (if (pair? _%rest28902089028%_) + (let ((_%hd8902589045%_ (let () (declare (not safe)) - (##car _%rest28897988987%_))) - (_%tl8898589006%_ + (##car _%rest28902089028%_))) + (_%tl8902689047%_ (let () (declare (not safe)) - (##cdr _%rest28897988987%_)))) - (let* ((_%x289009%_ _%hd8898489004%_) - (_%rest289011%_ _%tl8898589006%_)) - (_%K8898389001%_ _%rest289011%_ _%x289009%_))) - (_%else8898188995%_)))))) - (if (pair? _%rest18895888966%_) - (let ((_%hd8896389016%_ + (##cdr _%rest28902089028%_)))) + (let* ((_%x289050%_ _%hd8902589045%_) + (_%rest289052%_ _%tl8902689047%_)) + (_%K8902489042%_ _%rest289052%_ _%x289050%_))) + (_%else8902289036%_)))))) + (if (pair? _%rest18899989007%_) + (let ((_%hd8900489057%_ (let () (declare (not safe)) - (##car _%rest18895888966%_))) - (_%tl8896489018%_ + (##car _%rest18899989007%_))) + (_%tl8900589059%_ (let () (declare (not safe)) - (##cdr _%rest18895888966%_)))) - (let* ((_%x189021%_ _%hd8896389016%_) - (_%rest189023%_ _%tl8896489018%_)) - (_%K8896289013%_ _%rest189023%_ _%x189021%_))) - (_%else8896088974%_))))))) + (##cdr _%rest18899989007%_)))) + (let* ((_%x189062%_ _%hd8900489057%_) + (_%rest189064%_ _%tl8900589059%_)) + (_%K8900389054%_ _%rest189064%_ _%x189062%_))) + (_%else8900189015%_))))))) (define foldl - (lambda _g91117_ - (let ((_g91116_ (let () (declare (not safe)) (##length _g91117_)))) - (cond ((let () (declare (not safe)) (##fx= _g91116_ 3)) - (apply foldl1 _g91117_)) - ((let () (declare (not safe)) (##fx= _g91116_ 4)) - (apply foldl2 _g91117_)) - ((let () (declare (not safe)) (##fx>= _g91116_ 4)) - (apply foldl* _g91117_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g91117_)))))) + _g91270_)))))) (define foldl* - (lambda (_%f88907%_ _%iv88908%_ . _%rest88909%_) - (if (procedure? _%f88907%_) - (let ((_%f88913%_ _%f88907%_)) + (lambda (_%f88948%_ _%iv88949%_ . _%rest88950%_) + (if (procedure? _%f88948%_) + (let ((_%f88954%_ _%f88948%_)) (declare (not safe)) - (##apply __foldl* _%f88913%_ _%iv88908%_ _%rest88909%_)) + (##apply __foldl* _%f88954%_ _%iv88949%_ _%rest88950%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@248.15-248.16" + '"\"gerbil/runtime/util.ss\"@282.15-282.16" 'contract: 'procedure? 'value: - _%f88907%_) + _%f88948%_) '#!void)))) (define __foldl* - (lambda (_%f88885%_ _%iv88886%_ . _%rest88887%_) - (let ((_%f88890%_ _%f88885%_)) - (let _%recur88899%_ ((_%iv88901%_ _%iv88886%_) - (_%rest88902%_ _%rest88887%_)) - (if (__andmap1 pair? _%rest88902%_) - (_%recur88899%_ - (let ((__tmp91118 + (lambda (_%f88926%_ _%iv88927%_ . _%rest88928%_) + (let ((_%f88931%_ _%f88926%_)) + (let _%recur88940%_ ((_%iv88942%_ _%iv88927%_) + (_%rest88943%_ _%rest88928%_)) + (if (__andmap1 pair? _%rest88943%_) + (_%recur88940%_ + (let ((__tmp91271 (__foldr1 - (lambda (_%xs88904%_ _%r88905%_) - (cons (car _%xs88904%_) _%r88905%_)) - (list _%iv88901%_) - _%rest88902%_))) + (lambda (_%xs88945%_ _%r88946%_) + (cons (car _%xs88945%_) _%r88946%_)) + (list _%iv88942%_) + _%rest88943%_))) (declare (not safe)) - (##apply _%f88890%_ __tmp91118)) - (map cdr _%rest88902%_)) - _%iv88901%_))))) + (##apply _%f88931%_ __tmp91271)) + (map cdr _%rest88943%_)) + _%iv88942%_))))) (define foldr1 - (lambda (_%f88869%_ _%iv88870%_ _%lst88871%_) - (if (procedure? _%f88869%_) - (let ((_%f88875%_ _%f88869%_)) - (__foldr1 _%f88875%_ _%iv88870%_ _%lst88871%_)) + (lambda (_%f88910%_ _%iv88911%_ _%lst88912%_) + (if (procedure? _%f88910%_) + (let ((_%f88916%_ _%f88910%_)) + (__foldr1 _%f88916%_ _%iv88911%_ _%lst88912%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@258.15-258.16" + '"\"gerbil/runtime/util.ss\"@292.15-292.16" 'contract: 'procedure? 'value: - _%f88869%_) + _%f88910%_) '#!void)))) (define __foldr1 - (lambda (_%f88818%_ _%iv88819%_ _%lst88820%_) - (let ((_%f88823%_ _%f88818%_)) - (let _%recur88832%_ ((_%rest88834%_ _%lst88820%_)) - (let* ((_%rest8883588843%_ _%rest88834%_) - (_%else8883788851%_ (lambda () _%iv88819%_)) - (_%K8883988857%_ - (lambda (_%rest88854%_ _%x88855%_) - (let ((__tmp91119 (_%recur88832%_ _%rest88854%_))) + (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%_))) (declare (not safe)) - (_%f88823%_ _%x88855%_ __tmp91119))))) - (if (pair? _%rest8883588843%_) - (let ((_%hd8884088860%_ + (_%f88864%_ _%x88896%_ __tmp91272))))) + (if (pair? _%rest8887688884%_) + (let ((_%hd8888188901%_ (let () (declare (not safe)) - (##car _%rest8883588843%_))) - (_%tl8884188862%_ + (##car _%rest8887688884%_))) + (_%tl8888288903%_ (let () (declare (not safe)) - (##cdr _%rest8883588843%_)))) - (let* ((_%x88865%_ _%hd8884088860%_) - (_%rest88867%_ _%tl8884188862%_)) - (_%K8883988857%_ _%rest88867%_ _%x88865%_))) - (_%else8883788851%_))))))) + (##cdr _%rest8887688884%_)))) + (let* ((_%x88906%_ _%hd8888188901%_) + (_%rest88908%_ _%tl8888288903%_)) + (_%K8888088898%_ _%rest88908%_ _%x88906%_))) + (_%else8887888892%_))))))) (define foldr2 - (lambda (_%f88801%_ _%iv88802%_ _%lst188803%_ _%lst288804%_) - (if (procedure? _%f88801%_) - (let ((_%f88808%_ _%f88801%_)) - (__foldr2 _%f88808%_ _%iv88802%_ _%lst188803%_ _%lst288804%_)) + (lambda (_%f88842%_ _%iv88843%_ _%lst188844%_ _%lst288845%_) + (if (procedure? _%f88842%_) + (let ((_%f88849%_ _%f88842%_)) + (__foldr2 _%f88849%_ _%iv88843%_ _%lst188844%_ _%lst288845%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@265.15-265.16" + '"\"gerbil/runtime/util.ss\"@299.15-299.16" 'contract: 'procedure? 'value: - _%f88801%_) + _%f88842%_) '#!void)))) (define __foldr2 - (lambda (_%f88715%_ _%iv88716%_ _%lst188717%_ _%lst288718%_) - (let ((_%f88721%_ _%f88715%_)) - (let _%recur88730%_ ((_%rest188732%_ _%lst188717%_) - (_%rest288733%_ _%lst288718%_)) - (let* ((_%rest18873488742%_ _%rest188732%_) - (_%else8873688750%_ (lambda () _%iv88716%_)) - (_%K8873888789%_ - (lambda (_%rest188753%_ _%x188754%_) - (let* ((_%rest28875588763%_ _%rest288733%_) - (_%else8875788771%_ (lambda () _%iv88716%_)) - (_%K8875988777%_ - (lambda (_%rest288774%_ _%x288775%_) - (let ((__tmp91120 - (_%recur88730%_ - _%rest188753%_ - _%rest288774%_))) + (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%_))) (declare (not safe)) - (_%f88721%_ - _%x188754%_ - _%x288775%_ - __tmp91120))))) - (if (pair? _%rest28875588763%_) - (let ((_%hd8876088780%_ + (_%f88762%_ + _%x188795%_ + _%x288816%_ + __tmp91273))))) + (if (pair? _%rest28879688804%_) + (let ((_%hd8880188821%_ (let () (declare (not safe)) - (##car _%rest28875588763%_))) - (_%tl8876188782%_ + (##car _%rest28879688804%_))) + (_%tl8880288823%_ (let () (declare (not safe)) - (##cdr _%rest28875588763%_)))) - (let* ((_%x288785%_ _%hd8876088780%_) - (_%rest288787%_ _%tl8876188782%_)) - (_%K8875988777%_ _%rest288787%_ _%x288785%_))) - (_%else8875788771%_)))))) - (if (pair? _%rest18873488742%_) - (let ((_%hd8873988792%_ + (##cdr _%rest28879688804%_)))) + (let* ((_%x288826%_ _%hd8880188821%_) + (_%rest288828%_ _%tl8880288823%_)) + (_%K8880088818%_ _%rest288828%_ _%x288826%_))) + (_%else8879888812%_)))))) + (if (pair? _%rest18877588783%_) + (let ((_%hd8878088833%_ (let () (declare (not safe)) - (##car _%rest18873488742%_))) - (_%tl8874088794%_ + (##car _%rest18877588783%_))) + (_%tl8878188835%_ (let () (declare (not safe)) - (##cdr _%rest18873488742%_)))) - (let* ((_%x188797%_ _%hd8873988792%_) - (_%rest188799%_ _%tl8874088794%_)) - (_%K8873888789%_ _%rest188799%_ _%x188797%_))) - (_%else8873688750%_))))))) + (##cdr _%rest18877588783%_)))) + (let* ((_%x188838%_ _%hd8878088833%_) + (_%rest188840%_ _%tl8878188835%_)) + (_%K8877988830%_ _%rest188840%_ _%x188838%_))) + (_%else8877788791%_))))))) (define foldr - (lambda _g91122_ - (let ((_g91121_ (let () (declare (not safe)) (##length _g91122_)))) - (cond ((let () (declare (not safe)) (##fx= _g91121_ 3)) - (apply foldr1 _g91122_)) - ((let () (declare (not safe)) (##fx= _g91121_ 4)) - (apply foldr2 _g91122_)) - ((let () (declare (not safe)) (##fx>= _g91121_ 4)) - (apply foldr* _g91122_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g91122_)))))) + _g91275_)))))) (define foldr* - (lambda (_%f88684%_ _%iv88685%_ . _%rest88686%_) - (if (procedure? _%f88684%_) - (let ((_%f88690%_ _%f88684%_)) + (lambda (_%f88725%_ _%iv88726%_ . _%rest88727%_) + (if (procedure? _%f88725%_) + (let ((_%f88731%_ _%f88725%_)) (declare (not safe)) - (##apply __foldr* _%f88690%_ _%iv88685%_ _%rest88686%_)) + (##apply __foldr* _%f88731%_ _%iv88726%_ _%rest88727%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@283.15-283.16" + '"\"gerbil/runtime/util.ss\"@317.15-317.16" 'contract: 'procedure? 'value: - _%f88684%_) + _%f88725%_) '#!void)))) (define __foldr* - (lambda (_%f88663%_ _%iv88664%_ . _%rest88665%_) - (let ((_%f88668%_ _%f88663%_)) - (let _%recur88677%_ ((_%rest88679%_ _%rest88665%_)) - (if (__andmap1 pair? _%rest88679%_) - (let ((__tmp91123 + (lambda (_%f88704%_ _%iv88705%_ . _%rest88706%_) + (let ((_%f88709%_ _%f88704%_)) + (let _%recur88718%_ ((_%rest88720%_ _%rest88706%_)) + (if (__andmap1 pair? _%rest88720%_) + (let ((__tmp91276 (__foldr1 - (lambda (_%xs88681%_ _%r88682%_) - (cons (car _%xs88681%_) _%r88682%_)) - (list (_%recur88677%_ (map cdr _%rest88679%_))) - _%rest88679%_))) + (lambda (_%xs88722%_ _%r88723%_) + (cons (car _%xs88722%_) _%r88723%_)) + (list (_%recur88718%_ (map cdr _%rest88720%_))) + _%rest88720%_))) (declare (not safe)) - (##apply _%f88668%_ __tmp91123)) - _%iv88664%_))))) + (##apply _%f88709%_ __tmp91276)) + _%iv88705%_))))) (define remove-nulls! - (lambda (_%l88550%_) - (let* ((_%l8855188564%_ _%l88550%_) - (_%E8855588568%_ + (lambda (_%l88591%_) + (let* ((_%l8859288605%_ _%l88591%_) + (_%E8859688609%_ (lambda () (error '"No clause matching" - _%l8855188564%_ + _%l8859288605%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8856088653%_ - (lambda (_%r88651%_) (remove-nulls! _%r88651%_))) - (_%K8855788640%_ - (lambda (_%r88580%_) - (let _%loop88582%_ ((_%l88584%_ _%l88550%_) - (_%r88585%_ _%r88580%_)) - (let* ((_%r8858688599%_ _%r88585%_) - (_%E8859088603%_ + (let ((_%K8860188694%_ + (lambda (_%r88692%_) (remove-nulls! _%r88692%_))) + (_%K8859888681%_ + (lambda (_%r88621%_) + (let _%loop88623%_ ((_%l88625%_ _%l88591%_) + (_%r88626%_ _%r88621%_)) + (let* ((_%r8862788640%_ _%r88626%_) + (_%E8863188644%_ (lambda () (error '"No clause matching" - _%r8858688599%_ + _%r8862788640%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8859588630%_ - (lambda (_%rr88628%_) - (let ((__tmp91125 _%l88584%_) - (__tmp91124 (remove-nulls! _%rr88628%_))) + (let ((_%K8863688671%_ + (lambda (_%rr88669%_) + (let ((__tmp91278 _%l88625%_) + (__tmp91277 (remove-nulls! _%rr88669%_))) (declare (not safe)) - (##set-cdr! __tmp91125 __tmp91124)))) - (_%K8859288617%_ - (lambda (_%rr88615%_) - (_%loop88582%_ _%r88585%_ _%rr88615%_))) - (_%K8859188608%_ (lambda () '#!void))) - (if (pair? _%r8858688599%_) - (let ((_%tl8859788635%_ + (##set-cdr! __tmp91278 __tmp91277)))) + (_%K8863388658%_ + (lambda (_%rr88656%_) + (_%loop88623%_ _%r88626%_ _%rr88656%_))) + (_%K8863288649%_ (lambda () '#!void))) + (if (pair? _%r8862788640%_) + (let ((_%tl8863888676%_ (let () (declare (not safe)) - (##cdr _%r8858688599%_))) - (_%hd8859688633%_ + (##cdr _%r8862788640%_))) + (_%hd8863788674%_ (let () (declare (not safe)) - (##car _%r8858688599%_)))) - (if (null? _%hd8859688633%_) - (let ((_%rr88638%_ _%tl8859788635%_)) - (_%K8859588630%_ _%rr88638%_)) - (let ((_%rr88623%_ _%tl8859788635%_)) - (_%K8859288617%_ _%rr88623%_)))) + (##car _%r8862788640%_)))) + (if (null? _%hd8863788674%_) + (let ((_%rr88679%_ _%tl8863888676%_)) + (_%K8863688671%_ _%rr88679%_)) + (let ((_%rr88664%_ _%tl8863888676%_)) + (_%K8863388658%_ _%rr88664%_)))) '#!void)))) - _%l88550%_)) - (_%K8855688573%_ (lambda () _%l88550%_))) - (if (pair? _%l8855188564%_) - (let ((_%tl8856288658%_ - (let () (declare (not safe)) (##cdr _%l8855188564%_))) - (_%hd8856188656%_ - (let () (declare (not safe)) (##car _%l8855188564%_)))) - (if (null? _%hd8856188656%_) - (let ((_%r88661%_ _%tl8856288658%_)) - (remove-nulls! _%r88661%_)) - (let ((_%r88646%_ _%tl8856288658%_)) - (_%K8855788640%_ _%r88646%_)))) - (_%K8855688573%_)))))) + _%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%_)))))) (define append1! - (lambda (_%l88535%_ _%x88536%_) - (let ((_%l288539%_ (cons _%x88536%_ '()))) - (if (pair? _%l88535%_) - (let ((_%l88541%_ _%l88535%_)) - (let ((__tmp91126 - (let () (declare (not safe)) (##last-pair _%l88541%_)))) + (lambda (_%l88576%_ _%x88577%_) + (let ((_%l288580%_ (cons _%x88577%_ '()))) + (if (pair? _%l88576%_) + (let ((_%l88582%_ _%l88576%_)) + (let ((__tmp91279 + (let () (declare (not safe)) (##last-pair _%l88582%_)))) (declare (not safe)) - (##set-cdr! __tmp91126 _%l288539%_)) - _%l88541%_) - _%l288539%_)))) + (##set-cdr! __tmp91279 _%l288580%_)) + _%l88582%_) + _%l288580%_)))) (define append-reverse-until - (lambda (_%pred88519%_ _%rhead88520%_ _%tail88521%_) - (if (procedure? _%pred88519%_) - (let ((_%pred88525%_ _%pred88519%_)) + (lambda (_%pred88560%_ _%rhead88561%_ _%tail88562%_) + (if (procedure? _%pred88560%_) + (let ((_%pred88566%_ _%pred88560%_)) (__append-reverse-until - _%pred88525%_ - _%rhead88520%_ - _%tail88521%_)) + _%pred88566%_ + _%rhead88561%_ + _%tail88562%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@323.29-323.33" + '"\"gerbil/runtime/util.ss\"@357.29-357.33" 'contract: 'procedure? 'value: - _%pred88519%_) + _%pred88560%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred88461%_ _%rhead88462%_ _%tail88463%_) - (let ((_%pred88466%_ _%pred88461%_)) - (let _%loop88475%_ ((_%rhead88477%_ _%rhead88462%_) - (_%tail88478%_ _%tail88463%_)) - (let* ((_%rhead8848088489%_ _%rhead88477%_) - (_%E8848388493%_ + (lambda (_%pred88502%_ _%rhead88503%_ _%tail88504%_) + (let ((_%pred88507%_ _%pred88502%_)) + (let _%loop88516%_ ((_%rhead88518%_ _%rhead88503%_) + (_%tail88519%_ _%tail88504%_)) + (let* ((_%rhead8852188530%_ _%rhead88518%_) + (_%E8852488534%_ (lambda () (error '"No clause matching" - _%rhead8848088489%_ + _%rhead8852188530%_ '([]) '([a :: r])) '#!void))) - (let ((_%K8848788516%_ (lambda () (values '() _%tail88478%_))) - (_%K8848488500%_ - (lambda (_%r88497%_ _%a88498%_) + (let ((_%K8852888557%_ (lambda () (values '() _%tail88519%_))) + (_%K8852588541%_ + (lambda (_%r88538%_ _%a88539%_) (if (let () (declare (not safe)) - (_%pred88466%_ _%a88498%_)) - (values _%rhead88477%_ _%tail88478%_) - (_%loop88475%_ - _%r88497%_ - (cons _%a88498%_ _%tail88478%_)))))) - (let ((_%try-match8848288512%_ + (_%pred88507%_ _%a88539%_)) + (values _%rhead88518%_ _%tail88519%_) + (_%loop88516%_ + _%r88538%_ + (cons _%a88539%_ _%tail88519%_)))))) + (let ((_%try-match8852388553%_ (lambda () - (if (pair? _%rhead8848088489%_) - (let ((_%tl8848688505%_ + (if (pair? _%rhead8852188530%_) + (let ((_%tl8852788546%_ (let () (declare (not safe)) - (##cdr _%rhead8848088489%_))) - (_%hd8848588503%_ + (##cdr _%rhead8852188530%_))) + (_%hd8852688544%_ (let () (declare (not safe)) - (##car _%rhead8848088489%_)))) - (let ((_%a88508%_ _%hd8848588503%_) - (_%r88510%_ _%tl8848688505%_)) - (_%K8848488500%_ _%r88510%_ _%a88508%_))) - (_%E8848388493%_))))) - (if (null? _%rhead8848088489%_) - (_%K8848788516%_) - (_%try-match8848288512%_))))))))) + (##car _%rhead8852188530%_)))) + (let ((_%a88549%_ _%hd8852688544%_) + (_%r88551%_ _%tl8852788546%_)) + (_%K8852588541%_ _%r88551%_ _%a88549%_))) + (_%E8852488534%_))))) + (if (null? _%rhead8852188530%_) + (_%K8852888557%_) + (_%try-match8852388553%_))))))))) (define andmap1 - (lambda (_%f88446%_ _%lst88447%_) - (if (procedure? _%f88446%_) - (let ((_%f88451%_ _%f88446%_)) (__andmap1 _%f88451%_ _%lst88447%_)) + (lambda (_%f88487%_ _%lst88488%_) + (if (procedure? _%f88487%_) + (let ((_%f88492%_ _%f88487%_)) (__andmap1 _%f88492%_ _%lst88488%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@334.16-334.17" + '"\"gerbil/runtime/util.ss\"@368.16-368.17" 'contract: 'procedure? 'value: - _%f88446%_) + _%f88487%_) '#!void)))) (define __andmap1 - (lambda (_%f88395%_ _%lst88396%_) - (let ((_%f88399%_ _%f88395%_)) - (let _%lp88408%_ ((_%rest88410%_ _%lst88396%_)) - (let* ((_%rest8841288420%_ _%rest88410%_) - (_%else8841488428%_ (lambda () '#t)) - (_%K8841688434%_ - (lambda (_%rest88431%_ _%x88432%_) - (if (let () (declare (not safe)) (_%f88399%_ _%x88432%_)) - (_%lp88408%_ _%rest88431%_) + (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%_) '#f)))) - (if (pair? _%rest8841288420%_) - (let ((_%hd8841788437%_ + (if (pair? _%rest8845388461%_) + (let ((_%hd8845888478%_ (let () (declare (not safe)) - (##car _%rest8841288420%_))) - (_%tl8841888439%_ + (##car _%rest8845388461%_))) + (_%tl8845988480%_ (let () (declare (not safe)) - (##cdr _%rest8841288420%_)))) - (let* ((_%x88442%_ _%hd8841788437%_) - (_%rest88444%_ _%tl8841888439%_)) - (_%K8841688434%_ _%rest88444%_ _%x88442%_))) - (_%else8841488428%_))))))) + (##cdr _%rest8845388461%_)))) + (let* ((_%x88483%_ _%hd8845888478%_) + (_%rest88485%_ _%tl8845988480%_)) + (_%K8845788475%_ _%rest88485%_ _%x88483%_))) + (_%else8845588469%_))))))) (define andmap2 - (lambda (_%f88379%_ _%lst188380%_ _%lst288381%_) - (if (procedure? _%f88379%_) - (let ((_%f88385%_ _%f88379%_)) - (__andmap2 _%f88385%_ _%lst188380%_ _%lst288381%_)) + (lambda (_%f88420%_ _%lst188421%_ _%lst288422%_) + (if (procedure? _%f88420%_) + (let ((_%f88426%_ _%f88420%_)) + (__andmap2 _%f88426%_ _%lst188421%_ _%lst288422%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@343.16-343.17" + '"\"gerbil/runtime/util.ss\"@377.16-377.17" 'contract: 'procedure? 'value: - _%f88379%_) + _%f88420%_) '#!void)))) (define __andmap2 - (lambda (_%f88293%_ _%lst188294%_ _%lst288295%_) - (let ((_%f88298%_ _%f88293%_)) - (let _%lp88307%_ ((_%rest188309%_ _%lst188294%_) - (_%rest288310%_ _%lst288295%_)) - (let* ((_%rest18831288320%_ _%rest188309%_) - (_%else8831488328%_ (lambda () '#t)) - (_%K8831688367%_ - (lambda (_%rest188331%_ _%x188332%_) - (let* ((_%rest28833388341%_ _%rest288310%_) - (_%else8833588349%_ (lambda () '#t)) - (_%K8833788355%_ - (lambda (_%rest288352%_ _%x288353%_) + (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%_) (if (let () (declare (not safe)) - (_%f88298%_ _%x188332%_ _%x288353%_)) - (_%lp88307%_ _%rest188331%_ _%rest288352%_) + (_%f88339%_ _%x188373%_ _%x288394%_)) + (_%lp88348%_ _%rest188372%_ _%rest288393%_) '#f)))) - (if (pair? _%rest28833388341%_) - (let ((_%hd8833888358%_ + (if (pair? _%rest28837488382%_) + (let ((_%hd8837988399%_ (let () (declare (not safe)) - (##car _%rest28833388341%_))) - (_%tl8833988360%_ + (##car _%rest28837488382%_))) + (_%tl8838088401%_ (let () (declare (not safe)) - (##cdr _%rest28833388341%_)))) - (let* ((_%x288363%_ _%hd8833888358%_) - (_%rest288365%_ _%tl8833988360%_)) - (_%K8833788355%_ _%rest288365%_ _%x288363%_))) - (_%else8833588349%_)))))) - (if (pair? _%rest18831288320%_) - (let ((_%hd8831788370%_ + (##cdr _%rest28837488382%_)))) + (let* ((_%x288404%_ _%hd8837988399%_) + (_%rest288406%_ _%tl8838088401%_)) + (_%K8837888396%_ _%rest288406%_ _%x288404%_))) + (_%else8837688390%_)))))) + (if (pair? _%rest18835388361%_) + (let ((_%hd8835888411%_ (let () (declare (not safe)) - (##car _%rest18831288320%_))) - (_%tl8831888372%_ + (##car _%rest18835388361%_))) + (_%tl8835988413%_ (let () (declare (not safe)) - (##cdr _%rest18831288320%_)))) - (let* ((_%x188375%_ _%hd8831788370%_) - (_%rest188377%_ _%tl8831888372%_)) - (_%K8831688367%_ _%rest188377%_ _%x188375%_))) - (_%else8831488328%_))))))) + (##cdr _%rest18835388361%_)))) + (let* ((_%x188416%_ _%hd8835888411%_) + (_%rest188418%_ _%tl8835988413%_)) + (_%K8835788408%_ _%rest188418%_ _%x188416%_))) + (_%else8835588369%_))))))) (define andmap - (lambda _g91128_ - (let ((_g91127_ (let () (declare (not safe)) (##length _g91128_)))) - (cond ((let () (declare (not safe)) (##fx= _g91127_ 2)) - (apply andmap1 _g91128_)) - ((let () (declare (not safe)) (##fx= _g91127_ 3)) - (apply andmap2 _g91128_)) - ((let () (declare (not safe)) (##fx>= _g91127_ 3)) - (apply andmap* _g91128_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g91128_)))))) + _g91281_)))))) (define andmap* - (lambda (_%f88266%_ . _%rest88267%_) - (if (procedure? _%f88266%_) - (let ((_%f88271%_ _%f88266%_)) + (lambda (_%f88307%_ . _%rest88308%_) + (if (procedure? _%f88307%_) + (let ((_%f88312%_ _%f88307%_)) (declare (not safe)) - (##apply __andmap* _%f88271%_ _%rest88267%_)) + (##apply __andmap* _%f88312%_ _%rest88308%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@363.16-363.17" + '"\"gerbil/runtime/util.ss\"@397.16-397.17" 'contract: 'procedure? 'value: - _%f88266%_) + _%f88307%_) '#!void)))) (define __andmap* - (lambda (_%f88248%_ . _%rest88249%_) - (let ((_%f88252%_ _%f88248%_)) - (let _%recur88261%_ ((_%rest88263%_ _%rest88249%_)) - (if (__andmap1 pair? _%rest88263%_) - (if (let ((__tmp91129 (map car _%rest88263%_))) + (lambda (_%f88289%_ . _%rest88290%_) + (let ((_%f88293%_ _%f88289%_)) + (let _%recur88302%_ ((_%rest88304%_ _%rest88290%_)) + (if (__andmap1 pair? _%rest88304%_) + (if (let ((__tmp91282 (map car _%rest88304%_))) (declare (not safe)) - (##apply _%f88252%_ __tmp91129)) - (_%recur88261%_ (map cdr _%rest88263%_)) + (##apply _%f88293%_ __tmp91282)) + (_%recur88302%_ (map cdr _%rest88304%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f88233%_ _%lst88234%_) - (if (procedure? _%f88233%_) - (let ((_%f88238%_ _%f88233%_)) (__ormap1 _%f88238%_ _%lst88234%_)) + (lambda (_%f88274%_ _%lst88275%_) + (if (procedure? _%f88274%_) + (let ((_%f88279%_ _%f88274%_)) (__ormap1 _%f88279%_ _%lst88275%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@372.15-372.16" + '"\"gerbil/runtime/util.ss\"@406.15-406.16" 'contract: 'procedure? 'value: - _%f88233%_) + _%f88274%_) '#!void)))) (define __ormap1 - (lambda (_%f88180%_ _%lst88181%_) - (let ((_%f88184%_ _%f88180%_)) - (let _%lp88193%_ ((_%rest88195%_ _%lst88181%_)) - (let* ((_%rest8819688204%_ _%rest88195%_) - (_%else8819888212%_ (lambda () '#f)) - (_%K8820088221%_ - (lambda (_%rest88215%_ _%x88216%_) - (let ((_%$e88218%_ + (lambda (_%f88221%_ _%lst88222%_) + (let ((_%f88225%_ _%f88221%_)) + (let _%lp88234%_ ((_%rest88236%_ _%lst88222%_)) + (let* ((_%rest8823788245%_ _%rest88236%_) + (_%else8823988253%_ (lambda () '#f)) + (_%K8824188262%_ + (lambda (_%rest88256%_ _%x88257%_) + (let ((_%$e88259%_ (let () (declare (not safe)) - (_%f88184%_ _%x88216%_)))) - (if _%$e88218%_ - _%$e88218%_ - (_%lp88193%_ _%rest88215%_)))))) - (if (pair? _%rest8819688204%_) - (let ((_%hd8820188224%_ + (_%f88225%_ _%x88257%_)))) + (if _%$e88259%_ + _%$e88259%_ + (_%lp88234%_ _%rest88256%_)))))) + (if (pair? _%rest8823788245%_) + (let ((_%hd8824288265%_ (let () (declare (not safe)) - (##car _%rest8819688204%_))) - (_%tl8820288226%_ + (##car _%rest8823788245%_))) + (_%tl8824388267%_ (let () (declare (not safe)) - (##cdr _%rest8819688204%_)))) - (let* ((_%x88229%_ _%hd8820188224%_) - (_%rest88231%_ _%tl8820288226%_)) - (_%K8820088221%_ _%rest88231%_ _%x88229%_))) - (_%else8819888212%_))))))) + (##cdr _%rest8823788245%_)))) + (let* ((_%x88270%_ _%hd8824288265%_) + (_%rest88272%_ _%tl8824388267%_)) + (_%K8824188262%_ _%rest88272%_ _%x88270%_))) + (_%else8823988253%_))))))) (define ormap2 - (lambda (_%f88164%_ _%lst188165%_ _%lst288166%_) - (if (procedure? _%f88164%_) - (let ((_%f88170%_ _%f88164%_)) - (__ormap2 _%f88170%_ _%lst188165%_ _%lst288166%_)) + (lambda (_%f88205%_ _%lst188206%_ _%lst288207%_) + (if (procedure? _%f88205%_) + (let ((_%f88211%_ _%f88205%_)) + (__ormap2 _%f88211%_ _%lst188206%_ _%lst288207%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@379.15-379.16" + '"\"gerbil/runtime/util.ss\"@413.15-413.16" 'contract: 'procedure? 'value: - _%f88164%_) + _%f88205%_) '#!void)))) (define __ormap2 - (lambda (_%f88076%_ _%lst188077%_ _%lst288078%_) - (let ((_%f88081%_ _%f88076%_)) - (let _%lp88090%_ ((_%rest188092%_ _%lst188077%_) - (_%rest288093%_ _%lst288078%_)) - (let* ((_%rest18809488102%_ _%rest188092%_) - (_%else8809688110%_ (lambda () '#f)) - (_%K8809888152%_ - (lambda (_%rest188113%_ _%x188114%_) - (let* ((_%rest28811588123%_ _%rest288093%_) - (_%else8811788131%_ (lambda () '#f)) - (_%K8811988140%_ - (lambda (_%rest288134%_ _%x288135%_) - (let ((_%$e88137%_ + (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%_ (let () (declare (not safe)) - (_%f88081%_ - _%x188114%_ - _%x288135%_)))) - (if _%$e88137%_ - _%$e88137%_ - (_%lp88090%_ - _%rest188113%_ - _%rest288134%_)))))) - (if (pair? _%rest28811588123%_) - (let ((_%hd8812088143%_ + (_%f88122%_ + _%x188155%_ + _%x288176%_)))) + (if _%$e88178%_ + _%$e88178%_ + (_%lp88131%_ + _%rest188154%_ + _%rest288175%_)))))) + (if (pair? _%rest28815688164%_) + (let ((_%hd8816188184%_ (let () (declare (not safe)) - (##car _%rest28811588123%_))) - (_%tl8812188145%_ + (##car _%rest28815688164%_))) + (_%tl8816288186%_ (let () (declare (not safe)) - (##cdr _%rest28811588123%_)))) - (let* ((_%x288148%_ _%hd8812088143%_) - (_%rest288150%_ _%tl8812188145%_)) - (_%K8811988140%_ _%rest288150%_ _%x288148%_))) - (_%else8811788131%_)))))) - (if (pair? _%rest18809488102%_) - (let ((_%hd8809988155%_ + (##cdr _%rest28815688164%_)))) + (let* ((_%x288189%_ _%hd8816188184%_) + (_%rest288191%_ _%tl8816288186%_)) + (_%K8816088181%_ _%rest288191%_ _%x288189%_))) + (_%else8815888172%_)))))) + (if (pair? _%rest18813588143%_) + (let ((_%hd8814088196%_ (let () (declare (not safe)) - (##car _%rest18809488102%_))) - (_%tl8810088157%_ + (##car _%rest18813588143%_))) + (_%tl8814188198%_ (let () (declare (not safe)) - (##cdr _%rest18809488102%_)))) - (let* ((_%x188160%_ _%hd8809988155%_) - (_%rest188162%_ _%tl8810088157%_)) - (_%K8809888152%_ _%rest188162%_ _%x188160%_))) - (_%else8809688110%_))))))) + (##cdr _%rest18813588143%_)))) + (let* ((_%x188201%_ _%hd8814088196%_) + (_%rest188203%_ _%tl8814188198%_)) + (_%K8813988193%_ _%rest188203%_ _%x188201%_))) + (_%else8813788151%_))))))) (define ormap - (lambda _g91131_ - (let ((_g91130_ (let () (declare (not safe)) (##length _g91131_)))) - (cond ((let () (declare (not safe)) (##fx= _g91130_ 2)) - (apply ormap1 _g91131_)) - ((let () (declare (not safe)) (##fx= _g91130_ 3)) - (apply ormap2 _g91131_)) - ((let () (declare (not safe)) (##fx>= _g91130_ 3)) - (apply ormap* _g91131_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g91131_)))))) + _g91284_)))))) (define ormap* - (lambda (_%f88049%_ . _%rest88050%_) - (if (procedure? _%f88049%_) - (let ((_%f88054%_ _%f88049%_)) + (lambda (_%f88090%_ . _%rest88091%_) + (if (procedure? _%f88090%_) + (let ((_%f88095%_ _%f88090%_)) (declare (not safe)) - (##apply __ormap* _%f88054%_ _%rest88050%_)) + (##apply __ormap* _%f88095%_ _%rest88091%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@397.15-397.16" + '"\"gerbil/runtime/util.ss\"@431.15-431.16" 'contract: 'procedure? 'value: - _%f88049%_) + _%f88090%_) '#!void)))) (define __ormap* - (lambda (_%f88029%_ . _%rest88030%_) - (let ((_%f88033%_ _%f88029%_)) - (let _%recur88042%_ ((_%rest88044%_ _%rest88030%_)) - (if (__andmap1 pair? _%rest88044%_) - (let ((_%$e88046%_ - (let ((__tmp91132 (map car _%rest88044%_))) + (lambda (_%f88070%_ . _%rest88071%_) + (let ((_%f88074%_ _%f88070%_)) + (let _%recur88083%_ ((_%rest88085%_ _%rest88071%_)) + (if (__andmap1 pair? _%rest88085%_) + (let ((_%$e88087%_ + (let ((__tmp91285 (map car _%rest88085%_))) (declare (not safe)) - (##apply _%f88033%_ __tmp91132)))) - (if _%$e88046%_ - _%$e88046%_ - (_%recur88042%_ (map cdr _%rest88044%_)))) + (##apply _%f88074%_ __tmp91285)))) + (if _%$e88087%_ + _%$e88087%_ + (_%recur88083%_ (map cdr _%rest88085%_)))) '#f))))) (define filter-map1 - (lambda (_%f88014%_ _%lst88015%_) - (if (procedure? _%f88014%_) - (let ((_%f88019%_ _%f88014%_)) - (__filter-map1 _%f88019%_ _%lst88015%_)) + (lambda (_%f88055%_ _%lst88056%_) + (if (procedure? _%f88055%_) + (let ((_%f88060%_ _%f88055%_)) + (__filter-map1 _%f88060%_ _%lst88056%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@404.20-404.21" + '"\"gerbil/runtime/util.ss\"@438.20-438.21" 'contract: 'procedure? 'value: - _%f88014%_) + _%f88055%_) '#!void)))) (define __filter-map1 - (lambda (_%f87957%_ _%lst87958%_) - (let ((_%f87961%_ _%f87957%_)) - (let _%recur87970%_ ((_%rest87972%_ _%lst87958%_)) - (let* ((_%rest8797487982%_ _%rest87972%_) - (_%else8797687990%_ (lambda () '())) - (_%K8797888002%_ - (lambda (_%rest87993%_ _%x87994%_) - (let ((_%$e87996%_ + (lambda (_%f87998%_ _%lst87999%_) + (let ((_%f88002%_ _%f87998%_)) + (let _%recur88011%_ ((_%rest88013%_ _%lst87999%_)) + (let* ((_%rest8801588023%_ _%rest88013%_) + (_%else8801788031%_ (lambda () '())) + (_%K8801988043%_ + (lambda (_%rest88034%_ _%x88035%_) + (let ((_%$e88037%_ (let () (declare (not safe)) - (_%f87961%_ _%x87994%_)))) - (if _%$e87996%_ - ((lambda (_%r87999%_) - (cons _%r87999%_ - (_%recur87970%_ _%rest87993%_))) - _%$e87996%_) - (_%recur87970%_ _%rest87993%_)))))) - (if (pair? _%rest8797487982%_) - (let ((_%hd8797988005%_ + (_%f88002%_ _%x88035%_)))) + (if _%$e88037%_ + ((lambda (_%r88040%_) + (cons _%r88040%_ + (_%recur88011%_ _%rest88034%_))) + _%$e88037%_) + (_%recur88011%_ _%rest88034%_)))))) + (if (pair? _%rest8801588023%_) + (let ((_%hd8802088046%_ (let () (declare (not safe)) - (##car _%rest8797487982%_))) - (_%tl8798088007%_ + (##car _%rest8801588023%_))) + (_%tl8802188048%_ (let () (declare (not safe)) - (##cdr _%rest8797487982%_)))) - (let* ((_%x88010%_ _%hd8797988005%_) - (_%rest88012%_ _%tl8798088007%_)) - (_%K8797888002%_ _%rest88012%_ _%x88010%_))) - (_%else8797687990%_))))))) + (##cdr _%rest8801588023%_)))) + (let* ((_%x88051%_ _%hd8802088046%_) + (_%rest88053%_ _%tl8802188048%_)) + (_%K8801988043%_ _%rest88053%_ _%x88051%_))) + (_%else8801788031%_))))))) (define filter-map2 - (lambda (_%f87941%_ _%lst187942%_ _%lst287943%_) - (if (procedure? _%f87941%_) - (let ((_%f87947%_ _%f87941%_)) - (__filter-map2 _%f87947%_ _%lst187942%_ _%lst287943%_)) + (lambda (_%f87982%_ _%lst187983%_ _%lst287984%_) + (if (procedure? _%f87982%_) + (let ((_%f87988%_ _%f87982%_)) + (__filter-map2 _%f87988%_ _%lst187983%_ _%lst287984%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@415.20-415.21" + '"\"gerbil/runtime/util.ss\"@449.20-449.21" 'contract: 'procedure? 'value: - _%f87941%_) + _%f87982%_) '#!void)))) (define __filter-map2 - (lambda (_%f87849%_ _%lst187850%_ _%lst287851%_) - (let ((_%f87854%_ _%f87849%_)) - (let _%recur87863%_ ((_%rest187865%_ _%lst187850%_) - (_%rest287866%_ _%lst287851%_)) - (let* ((_%rest18786887876%_ _%rest187865%_) - (_%else8787087884%_ (lambda () '())) - (_%K8787287929%_ - (lambda (_%rest187887%_ _%x187888%_) - (let* ((_%rest28788987897%_ _%rest287866%_) - (_%else8789187905%_ (lambda () '())) - (_%K8789387917%_ - (lambda (_%rest287908%_ _%x287909%_) - (let ((_%$e87911%_ + (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%_ (let () (declare (not safe)) - (_%f87854%_ - _%x187888%_ - _%x287909%_)))) - (if _%$e87911%_ - ((lambda (_%r87914%_) - (cons _%r87914%_ - (_%recur87863%_ - _%rest187887%_ - _%rest287908%_))) - _%$e87911%_) - (_%recur87863%_ - _%rest187887%_ - _%rest287908%_)))))) - (if (pair? _%rest28788987897%_) - (let ((_%hd8789487920%_ + (_%f87895%_ + _%x187929%_ + _%x287950%_)))) + (if _%$e87952%_ + ((lambda (_%r87955%_) + (cons _%r87955%_ + (_%recur87904%_ + _%rest187928%_ + _%rest287949%_))) + _%$e87952%_) + (_%recur87904%_ + _%rest187928%_ + _%rest287949%_)))))) + (if (pair? _%rest28793087938%_) + (let ((_%hd8793587961%_ (let () (declare (not safe)) - (##car _%rest28788987897%_))) - (_%tl8789587922%_ + (##car _%rest28793087938%_))) + (_%tl8793687963%_ (let () (declare (not safe)) - (##cdr _%rest28788987897%_)))) - (let* ((_%x287925%_ _%hd8789487920%_) - (_%rest287927%_ _%tl8789587922%_)) - (_%K8789387917%_ _%rest287927%_ _%x287925%_))) - (_%else8789187905%_)))))) - (if (pair? _%rest18786887876%_) - (let ((_%hd8787387932%_ + (##cdr _%rest28793087938%_)))) + (let* ((_%x287966%_ _%hd8793587961%_) + (_%rest287968%_ _%tl8793687963%_)) + (_%K8793487958%_ _%rest287968%_ _%x287966%_))) + (_%else8793287946%_)))))) + (if (pair? _%rest18790987917%_) + (let ((_%hd8791487973%_ (let () (declare (not safe)) - (##car _%rest18786887876%_))) - (_%tl8787487934%_ + (##car _%rest18790987917%_))) + (_%tl8791587975%_ (let () (declare (not safe)) - (##cdr _%rest18786887876%_)))) - (let* ((_%x187937%_ _%hd8787387932%_) - (_%rest187939%_ _%tl8787487934%_)) - (_%K8787287929%_ _%rest187939%_ _%x187937%_))) - (_%else8787087884%_))))))) + (##cdr _%rest18790987917%_)))) + (let* ((_%x187978%_ _%hd8791487973%_) + (_%rest187980%_ _%tl8791587975%_)) + (_%K8791387970%_ _%rest187980%_ _%x187978%_))) + (_%else8791187925%_))))))) (define filter-map - (lambda _g91134_ - (let ((_g91133_ (let () (declare (not safe)) (##length _g91134_)))) - (cond ((let () (declare (not safe)) (##fx= _g91133_ 2)) - (apply filter-map1 _g91134_)) - ((let () (declare (not safe)) (##fx= _g91133_ 3)) - (apply filter-map2 _g91134_)) - ((let () (declare (not safe)) (##fx>= _g91133_ 3)) - (apply filter-map* _g91134_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g91134_)))))) + _g91287_)))))) (define filter-map* - (lambda (_%f87822%_ . _%rest87823%_) - (if (procedure? _%f87822%_) - (let ((_%f87827%_ _%f87822%_)) + (lambda (_%f87863%_ . _%rest87864%_) + (if (procedure? _%f87863%_) + (let ((_%f87868%_ _%f87863%_)) (declare (not safe)) - (##apply __filter-map* _%f87827%_ _%rest87823%_)) + (##apply __filter-map* _%f87868%_ _%rest87864%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@437.20-437.21" + '"\"gerbil/runtime/util.ss\"@471.20-471.21" 'contract: 'procedure? 'value: - _%f87822%_) + _%f87863%_) '#!void)))) (define __filter-map* - (lambda (_%f87798%_ . _%rest87799%_) - (let ((_%f87802%_ _%f87798%_)) - (let _%recur87811%_ ((_%rest87813%_ _%rest87799%_)) - (if (__andmap1 pair? _%rest87813%_) - (let ((_%$e87816%_ - (let ((__tmp91135 (map car _%rest87813%_))) + (lambda (_%f87839%_ . _%rest87840%_) + (let ((_%f87843%_ _%f87839%_)) + (let _%recur87852%_ ((_%rest87854%_ _%rest87840%_)) + (if (__andmap1 pair? _%rest87854%_) + (let ((_%$e87857%_ + (let ((__tmp91288 (map car _%rest87854%_))) (declare (not safe)) - (##apply _%f87802%_ __tmp91135)))) - (if _%$e87816%_ - ((lambda (_%r87819%_) - (cons _%r87819%_ - (_%recur87811%_ (map cdr _%rest87813%_)))) - _%$e87816%_) - (_%recur87811%_ (map cdr _%rest87813%_)))) + (##apply _%f87843%_ __tmp91288)))) + (if _%$e87857%_ + ((lambda (_%r87860%_) + (cons _%r87860%_ + (_%recur87852%_ (map cdr _%rest87854%_)))) + _%$e87857%_) + (_%recur87852%_ (map cdr _%rest87854%_)))) '()))))) (define agetq__% - (lambda (_%key87774%_ _%lst87776%_ _%default87778%_) - (let ((_%$e87781%_ - (if (pair? _%lst87776%_) (assq _%key87774%_ _%lst87776%_) '#f))) - (if _%$e87781%_ - (cdr _%$e87781%_) - (if (procedure? _%default87778%_) - (_%default87778%_ _%key87774%_) - _%default87778%_))))) + (lambda (_%key87815%_ _%lst87817%_ _%default87819%_) + (let ((_%$e87822%_ + (if (pair? _%lst87817%_) (assq _%key87815%_ _%lst87817%_) '#f))) + (if _%$e87822%_ + (cdr _%$e87822%_) + (if (procedure? _%default87819%_) + (_%default87819%_ _%key87815%_) + _%default87819%_))))) (define agetq__0 - (lambda (_%key87789%_ _%lst87790%_) - (let ((_%default87792%_ '#f)) - (agetq__% _%key87789%_ _%lst87790%_ _%default87792%_)))) + (lambda (_%key87830%_ _%lst87831%_) + (let ((_%default87833%_ '#f)) + (agetq__% _%key87830%_ _%lst87831%_ _%default87833%_)))) (define agetq - (lambda _g91137_ - (let ((_g91136_ (let () (declare (not safe)) (##length _g91137_)))) - (cond ((let () (declare (not safe)) (##fx= _g91136_ 2)) - (apply agetq__0 _g91137_)) - ((let () (declare (not safe)) (##fx= _g91136_ 3)) - (apply agetq__% _g91137_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g91137_)))))) + _g91290_)))))) (define agetv__% - (lambda (_%key87749%_ _%lst87751%_ _%default87753%_) - (let ((_%$e87756%_ - (if (pair? _%lst87751%_) (assv _%key87749%_ _%lst87751%_) '#f))) - (if _%$e87756%_ - (cdr _%$e87756%_) - (if (procedure? _%default87753%_) - (_%default87753%_ _%key87749%_) - _%default87753%_))))) + (lambda (_%key87790%_ _%lst87792%_ _%default87794%_) + (let ((_%$e87797%_ + (if (pair? _%lst87792%_) (assv _%key87790%_ _%lst87792%_) '#f))) + (if _%$e87797%_ + (cdr _%$e87797%_) + (if (procedure? _%default87794%_) + (_%default87794%_ _%key87790%_) + _%default87794%_))))) (define agetv__0 - (lambda (_%key87764%_ _%lst87765%_) - (let ((_%default87767%_ '#f)) - (agetv__% _%key87764%_ _%lst87765%_ _%default87767%_)))) + (lambda (_%key87805%_ _%lst87806%_) + (let ((_%default87808%_ '#f)) + (agetv__% _%key87805%_ _%lst87806%_ _%default87808%_)))) (define agetv - (lambda _g91139_ - (let ((_g91138_ (let () (declare (not safe)) (##length _g91139_)))) - (cond ((let () (declare (not safe)) (##fx= _g91138_ 2)) - (apply agetv__0 _g91139_)) - ((let () (declare (not safe)) (##fx= _g91138_ 3)) - (apply agetv__% _g91139_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g91139_)))))) + _g91292_)))))) (define aget__% - (lambda (_%key87724%_ _%lst87726%_ _%default87728%_) - (let ((_%$e87731%_ - (if (pair? _%lst87726%_) - (assoc _%key87724%_ _%lst87726%_) + (lambda (_%key87765%_ _%lst87767%_ _%default87769%_) + (let ((_%$e87772%_ + (if (pair? _%lst87767%_) + (assoc _%key87765%_ _%lst87767%_) '#f))) - (if _%$e87731%_ - (cdr _%$e87731%_) - (if (procedure? _%default87728%_) - (_%default87728%_ _%key87724%_) - _%default87728%_))))) + (if _%$e87772%_ + (cdr _%$e87772%_) + (if (procedure? _%default87769%_) + (_%default87769%_ _%key87765%_) + _%default87769%_))))) (define aget__0 - (lambda (_%key87739%_ _%lst87740%_) - (let ((_%default87742%_ '#f)) - (aget__% _%key87739%_ _%lst87740%_ _%default87742%_)))) + (lambda (_%key87780%_ _%lst87781%_) + (let ((_%default87783%_ '#f)) + (aget__% _%key87780%_ _%lst87781%_ _%default87783%_)))) (define aget - (lambda _g91141_ - (let ((_g91140_ (let () (declare (not safe)) (##length _g91141_)))) - (cond ((let () (declare (not safe)) (##fx= _g91140_ 2)) - (apply aget__0 _g91141_)) - ((let () (declare (not safe)) (##fx= _g91140_ 3)) - (apply aget__% _g91141_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception aget - _g91141_)))))) + _g91294_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key87653%_ _%lst87655%_ _%default87657%_) - (let _%lp87660%_ ((_%rest87663%_ _%lst87655%_)) - (let* ((_%rest8766587675%_ _%rest87663%_) - (_%else8766787683%_ + (lambda (_%key87694%_ _%lst87696%_ _%default87698%_) + (let _%lp87701%_ ((_%rest87704%_ _%lst87696%_)) + (let* ((_%rest8770687716%_ _%rest87704%_) + (_%else8770887724%_ (lambda () - (if (procedure? _%default87657%_) - (_%default87657%_ _%key87653%_) - _%default87657%_))) - (_%K8766987692%_ - (lambda (_%rest87686%_ _%v87687%_ _%k87689%_) - (if (eq? _%k87689%_ _%key87653%_) - _%v87687%_ - (_%lp87660%_ _%rest87686%_))))) - (if (pair? _%rest8766587675%_) - (let ((_%hd8767087695%_ + (if (procedure? _%default87698%_) + (_%default87698%_ _%key87694%_) + _%default87698%_))) + (_%K8771087733%_ + (lambda (_%rest87727%_ _%v87728%_ _%k87730%_) + (if (eq? _%k87730%_ _%key87694%_) + _%v87728%_ + (_%lp87701%_ _%rest87727%_))))) + (if (pair? _%rest8770687716%_) + (let ((_%hd8771187736%_ (let () (declare (not safe)) - (##car _%rest8766587675%_))) - (_%tl8767187697%_ + (##car _%rest8770687716%_))) + (_%tl8771287738%_ (let () (declare (not safe)) - (##cdr _%rest8766587675%_)))) - (let ((_%k87700%_ _%hd8767087695%_)) - (if (pair? _%tl8767187697%_) - (let ((_%hd8767287702%_ + (##cdr _%rest8770687716%_)))) + (let ((_%k87741%_ _%hd8771187736%_)) + (if (pair? _%tl8771287738%_) + (let ((_%hd8771387743%_ (let () (declare (not safe)) - (##car _%tl8767187697%_))) - (_%tl8767387704%_ + (##car _%tl8771287738%_))) + (_%tl8771487745%_ (let () (declare (not safe)) - (##cdr _%tl8767187697%_)))) - (let* ((_%v87707%_ _%hd8767287702%_) - (_%rest87709%_ _%tl8767387704%_)) - (_%K8766987692%_ - _%rest87709%_ - _%v87707%_ - _%k87700%_))) - (_%else8766787683%_)))) - (_%else8766787683%_)))))) + (##cdr _%tl8771287738%_)))) + (let* ((_%v87748%_ _%hd8771387743%_) + (_%rest87750%_ _%tl8771487745%_)) + (_%K8771087733%_ + _%rest87750%_ + _%v87748%_ + _%k87741%_))) + (_%else8770887724%_)))) + (_%else8770887724%_)))))) (define pgetq__0 - (lambda (_%key87714%_ _%lst87715%_) - (let ((_%default87717%_ '#f)) - (pgetq__% _%key87714%_ _%lst87715%_ _%default87717%_)))) + (lambda (_%key87755%_ _%lst87756%_) + (let ((_%default87758%_ '#f)) + (pgetq__% _%key87755%_ _%lst87756%_ _%default87758%_)))) (define pgetq - (lambda _g91143_ - (let ((_g91142_ (let () (declare (not safe)) (##length _g91143_)))) - (cond ((let () (declare (not safe)) (##fx= _g91142_ 2)) - (apply pgetq__0 _g91143_)) - ((let () (declare (not safe)) (##fx= _g91142_ 3)) - (apply pgetq__% _g91143_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g91143_)))))) + _g91296_)))))) (define pgetv__% - (lambda (_%key87582%_ _%lst87584%_ _%default87586%_) - (let _%lp87589%_ ((_%rest87592%_ _%lst87584%_)) - (let* ((_%rest8759487604%_ _%rest87592%_) - (_%else8759687612%_ + (lambda (_%key87623%_ _%lst87625%_ _%default87627%_) + (let _%lp87630%_ ((_%rest87633%_ _%lst87625%_)) + (let* ((_%rest8763587645%_ _%rest87633%_) + (_%else8763787653%_ (lambda () - (if (procedure? _%default87586%_) - (_%default87586%_ _%key87582%_) - _%default87586%_))) - (_%K8759887621%_ - (lambda (_%rest87615%_ _%v87616%_ _%k87618%_) - (if (eqv? _%k87618%_ _%key87582%_) - _%v87616%_ - (_%lp87589%_ _%rest87615%_))))) - (if (pair? _%rest8759487604%_) - (let ((_%hd8759987624%_ + (if (procedure? _%default87627%_) + (_%default87627%_ _%key87623%_) + _%default87627%_))) + (_%K8763987662%_ + (lambda (_%rest87656%_ _%v87657%_ _%k87659%_) + (if (eqv? _%k87659%_ _%key87623%_) + _%v87657%_ + (_%lp87630%_ _%rest87656%_))))) + (if (pair? _%rest8763587645%_) + (let ((_%hd8764087665%_ (let () (declare (not safe)) - (##car _%rest8759487604%_))) - (_%tl8760087626%_ + (##car _%rest8763587645%_))) + (_%tl8764187667%_ (let () (declare (not safe)) - (##cdr _%rest8759487604%_)))) - (let ((_%k87629%_ _%hd8759987624%_)) - (if (pair? _%tl8760087626%_) - (let ((_%hd8760187631%_ + (##cdr _%rest8763587645%_)))) + (let ((_%k87670%_ _%hd8764087665%_)) + (if (pair? _%tl8764187667%_) + (let ((_%hd8764287672%_ (let () (declare (not safe)) - (##car _%tl8760087626%_))) - (_%tl8760287633%_ + (##car _%tl8764187667%_))) + (_%tl8764387674%_ (let () (declare (not safe)) - (##cdr _%tl8760087626%_)))) - (let* ((_%v87636%_ _%hd8760187631%_) - (_%rest87638%_ _%tl8760287633%_)) - (_%K8759887621%_ - _%rest87638%_ - _%v87636%_ - _%k87629%_))) - (_%else8759687612%_)))) - (_%else8759687612%_)))))) + (##cdr _%tl8764187667%_)))) + (let* ((_%v87677%_ _%hd8764287672%_) + (_%rest87679%_ _%tl8764387674%_)) + (_%K8763987662%_ + _%rest87679%_ + _%v87677%_ + _%k87670%_))) + (_%else8763787653%_)))) + (_%else8763787653%_)))))) (define pgetv__0 - (lambda (_%key87643%_ _%lst87644%_) - (let ((_%default87646%_ '#f)) - (pgetv__% _%key87643%_ _%lst87644%_ _%default87646%_)))) + (lambda (_%key87684%_ _%lst87685%_) + (let ((_%default87687%_ '#f)) + (pgetv__% _%key87684%_ _%lst87685%_ _%default87687%_)))) (define pgetv - (lambda _g91145_ - (let ((_g91144_ (let () (declare (not safe)) (##length _g91145_)))) - (cond ((let () (declare (not safe)) (##fx= _g91144_ 2)) - (apply pgetv__0 _g91145_)) - ((let () (declare (not safe)) (##fx= _g91144_ 3)) - (apply pgetv__% _g91145_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g91145_)))))) + _g91298_)))))) (define pget__% - (lambda (_%key87511%_ _%lst87513%_ _%default87515%_) - (let _%lp87518%_ ((_%rest87521%_ _%lst87513%_)) - (let* ((_%rest8752387533%_ _%rest87521%_) - (_%else8752587541%_ + (lambda (_%key87552%_ _%lst87554%_ _%default87556%_) + (let _%lp87559%_ ((_%rest87562%_ _%lst87554%_)) + (let* ((_%rest8756487574%_ _%rest87562%_) + (_%else8756687582%_ (lambda () - (if (procedure? _%default87515%_) - (_%default87515%_ _%key87511%_) - _%default87515%_))) - (_%K8752787550%_ - (lambda (_%rest87544%_ _%v87545%_ _%k87547%_) - (if (equal? _%k87547%_ _%key87511%_) - _%v87545%_ - (_%lp87518%_ _%rest87544%_))))) - (if (pair? _%rest8752387533%_) - (let ((_%hd8752887553%_ + (if (procedure? _%default87556%_) + (_%default87556%_ _%key87552%_) + _%default87556%_))) + (_%K8756887591%_ + (lambda (_%rest87585%_ _%v87586%_ _%k87588%_) + (if (equal? _%k87588%_ _%key87552%_) + _%v87586%_ + (_%lp87559%_ _%rest87585%_))))) + (if (pair? _%rest8756487574%_) + (let ((_%hd8756987594%_ (let () (declare (not safe)) - (##car _%rest8752387533%_))) - (_%tl8752987555%_ + (##car _%rest8756487574%_))) + (_%tl8757087596%_ (let () (declare (not safe)) - (##cdr _%rest8752387533%_)))) - (let ((_%k87558%_ _%hd8752887553%_)) - (if (pair? _%tl8752987555%_) - (let ((_%hd8753087560%_ + (##cdr _%rest8756487574%_)))) + (let ((_%k87599%_ _%hd8756987594%_)) + (if (pair? _%tl8757087596%_) + (let ((_%hd8757187601%_ (let () (declare (not safe)) - (##car _%tl8752987555%_))) - (_%tl8753187562%_ + (##car _%tl8757087596%_))) + (_%tl8757287603%_ (let () (declare (not safe)) - (##cdr _%tl8752987555%_)))) - (let* ((_%v87565%_ _%hd8753087560%_) - (_%rest87567%_ _%tl8753187562%_)) - (_%K8752787550%_ - _%rest87567%_ - _%v87565%_ - _%k87558%_))) - (_%else8752587541%_)))) - (_%else8752587541%_)))))) + (##cdr _%tl8757087596%_)))) + (let* ((_%v87606%_ _%hd8757187601%_) + (_%rest87608%_ _%tl8757287603%_)) + (_%K8756887591%_ + _%rest87608%_ + _%v87606%_ + _%k87599%_))) + (_%else8756687582%_)))) + (_%else8756687582%_)))))) (define pget__0 - (lambda (_%key87572%_ _%lst87573%_) - (let ((_%default87575%_ '#f)) - (pget__% _%key87572%_ _%lst87573%_ _%default87575%_)))) + (lambda (_%key87613%_ _%lst87614%_) + (let ((_%default87616%_ '#f)) + (pget__% _%key87613%_ _%lst87614%_ _%default87616%_)))) (define pget - (lambda _g91147_ - (let ((_g91146_ (let () (declare (not safe)) (##length _g91147_)))) - (cond ((let () (declare (not safe)) (##fx= _g91146_ 2)) - (apply pget__0 _g91147_)) - ((let () (declare (not safe)) (##fx= _g91146_ 3)) - (apply pget__% _g91147_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception pget - _g91147_)))))) + _g91300_)))))) (define find - (lambda (_%pred87495%_ _%lst87496%_) - (if (procedure? _%pred87495%_) - (let ((_%pred87500%_ _%pred87495%_)) - (__find _%pred87500%_ _%lst87496%_)) + (lambda (_%pred87536%_ _%lst87537%_) + (if (procedure? _%pred87536%_) + (let ((_%pred87541%_ _%pred87536%_)) + (__find _%pred87541%_ _%lst87537%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@483.13-483.17" + '"\"gerbil/runtime/util.ss\"@517.13-517.17" 'contract: 'procedure? 'value: - _%pred87495%_) + _%pred87536%_) '#!void)))) (define __find - (lambda (_%pred87478%_ _%lst87479%_) - (let* ((_%pred87482%_ _%pred87478%_) - (_%$e87491%_ (__memf _%pred87482%_ _%lst87479%_))) - (if _%$e87491%_ - (let () (declare (not safe)) (##car _%$e87491%_)) + (lambda (_%pred87519%_ _%lst87520%_) + (let* ((_%pred87523%_ _%pred87519%_) + (_%$e87532%_ (__memf _%pred87523%_ _%lst87520%_))) + (if _%$e87532%_ + (let () (declare (not safe)) (##car _%$e87532%_)) '#f)))) (define memf - (lambda (_%proc87463%_ _%lst87464%_) - (if (procedure? _%proc87463%_) - (let ((_%proc87468%_ _%proc87463%_)) - (__memf _%proc87468%_ _%lst87464%_)) + (lambda (_%proc87504%_ _%lst87505%_) + (if (procedure? _%proc87504%_) + (let ((_%proc87509%_ _%proc87504%_)) + (__memf _%proc87509%_ _%lst87505%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@488.13-488.17" + '"\"gerbil/runtime/util.ss\"@522.13-522.17" 'contract: 'procedure? 'value: - _%proc87463%_) + _%proc87504%_) '#!void)))) (define __memf - (lambda (_%proc87413%_ _%lst87414%_) - (let ((_%proc87417%_ _%proc87413%_)) - (let _%lp87426%_ ((_%rest87428%_ _%lst87414%_)) - (let* ((_%rest8742987437%_ _%rest87428%_) - (_%else8743187445%_ (lambda () '#f)) - (_%K8743387451%_ - (lambda (_%tl87448%_ _%hd87449%_) + (lambda (_%proc87454%_ _%lst87455%_) + (let ((_%proc87458%_ _%proc87454%_)) + (let _%lp87467%_ ((_%rest87469%_ _%lst87455%_)) + (let* ((_%rest8747087478%_ _%rest87469%_) + (_%else8747287486%_ (lambda () '#f)) + (_%K8747487492%_ + (lambda (_%tl87489%_ _%hd87490%_) (if (let () (declare (not safe)) - (_%proc87417%_ _%hd87449%_)) - _%rest87428%_ - (_%lp87426%_ _%tl87448%_))))) - (if (pair? _%rest8742987437%_) - (let ((_%hd8743487454%_ + (_%proc87458%_ _%hd87490%_)) + _%rest87469%_ + (_%lp87467%_ _%tl87489%_))))) + (if (pair? _%rest8747087478%_) + (let ((_%hd8747587495%_ (let () (declare (not safe)) - (##car _%rest8742987437%_))) - (_%tl8743587456%_ + (##car _%rest8747087478%_))) + (_%tl8747687497%_ (let () (declare (not safe)) - (##cdr _%rest8742987437%_)))) - (let* ((_%hd87459%_ _%hd8743487454%_) - (_%tl87461%_ _%tl8743587456%_)) - (_%K8743387451%_ _%tl87461%_ _%hd87459%_))) - (_%else8743187445%_))))))) + (##cdr _%rest8747087478%_)))) + (let* ((_%hd87500%_ _%hd8747587495%_) + (_%tl87502%_ _%tl8747687497%_)) + (_%K8747487492%_ _%tl87502%_ _%hd87500%_))) + (_%else8747287486%_))))))) (define remove1 - (lambda (_%el87366%_ _%lst87368%_) - (let _%lp87371%_ ((_%rest87374%_ _%lst87368%_) (_%r87376%_ '())) - (let* ((_%rest8737887386%_ _%rest87374%_) - (_%else8738087394%_ (lambda () _%lst87368%_)) - (_%K8738287401%_ - (lambda (_%rest87397%_ _%hd87398%_) - (if (equal? _%el87366%_ _%hd87398%_) - (__foldl1 cons _%rest87397%_ _%r87376%_) - (_%lp87371%_ - _%rest87397%_ - (cons _%hd87398%_ _%r87376%_)))))) - (if (pair? _%rest8737887386%_) - (let ((_%hd8738387404%_ + (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%_ (let () (declare (not safe)) - (##car _%rest8737887386%_))) - (_%tl8738487406%_ + (##car _%rest8741987427%_))) + (_%tl8742587447%_ (let () (declare (not safe)) - (##cdr _%rest8737887386%_)))) - (let* ((_%hd87409%_ _%hd8738387404%_) - (_%rest87411%_ _%tl8738487406%_)) - (_%K8738287401%_ _%rest87411%_ _%hd87409%_))) - (_%else8738087394%_)))))) + (##cdr _%rest8741987427%_)))) + (let* ((_%hd87450%_ _%hd8742487445%_) + (_%rest87452%_ _%tl8742587447%_)) + (_%K8742387442%_ _%rest87452%_ _%hd87450%_))) + (_%else8742187435%_)))))) (define remv1 - (lambda (_%el87319%_ _%lst87321%_) - (let _%lp87324%_ ((_%rest87327%_ _%lst87321%_) (_%r87329%_ '())) - (let* ((_%rest8733187339%_ _%rest87327%_) - (_%else8733387347%_ (lambda () _%lst87321%_)) - (_%K8733587354%_ - (lambda (_%rest87350%_ _%hd87351%_) - (if (eqv? _%el87319%_ _%hd87351%_) - (__foldl1 cons _%rest87350%_ _%r87329%_) - (_%lp87324%_ - _%rest87350%_ - (cons _%hd87351%_ _%r87329%_)))))) - (if (pair? _%rest8733187339%_) - (let ((_%hd8733687357%_ + (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%_ (let () (declare (not safe)) - (##car _%rest8733187339%_))) - (_%tl8733787359%_ + (##car _%rest8737287380%_))) + (_%tl8737887400%_ (let () (declare (not safe)) - (##cdr _%rest8733187339%_)))) - (let* ((_%hd87362%_ _%hd8733687357%_) - (_%rest87364%_ _%tl8733787359%_)) - (_%K8733587354%_ _%rest87364%_ _%hd87362%_))) - (_%else8733387347%_)))))) + (##cdr _%rest8737287380%_)))) + (let* ((_%hd87403%_ _%hd8737787398%_) + (_%rest87405%_ _%tl8737887400%_)) + (_%K8737687395%_ _%rest87405%_ _%hd87403%_))) + (_%else8737487388%_)))))) (define remq1 - (lambda (_%el87272%_ _%lst87274%_) - (let _%lp87277%_ ((_%rest87280%_ _%lst87274%_) (_%r87282%_ '())) - (let* ((_%rest8728487292%_ _%rest87280%_) - (_%else8728687300%_ (lambda () _%lst87274%_)) - (_%K8728887307%_ - (lambda (_%rest87303%_ _%hd87304%_) - (if (eq? _%el87272%_ _%hd87304%_) - (__foldl1 cons _%rest87303%_ _%r87282%_) - (_%lp87277%_ - _%rest87303%_ - (cons _%hd87304%_ _%r87282%_)))))) - (if (pair? _%rest8728487292%_) - (let ((_%hd8728987310%_ + (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%_ (let () (declare (not safe)) - (##car _%rest8728487292%_))) - (_%tl8729087312%_ + (##car _%rest8732587333%_))) + (_%tl8733187353%_ (let () (declare (not safe)) - (##cdr _%rest8728487292%_)))) - (let* ((_%hd87315%_ _%hd8728987310%_) - (_%rest87317%_ _%tl8729087312%_)) - (_%K8728887307%_ _%rest87317%_ _%hd87315%_))) - (_%else8728687300%_)))))) + (##cdr _%rest8732587333%_)))) + (let* ((_%hd87356%_ _%hd8733087351%_) + (_%rest87358%_ _%tl8733187353%_)) + (_%K8732987348%_ _%rest87358%_ _%hd87356%_))) + (_%else8732787341%_)))))) (define remf - (lambda (_%proc87257%_ _%lst87258%_) - (if (procedure? _%proc87257%_) - (let ((_%proc87262%_ _%proc87257%_)) - (__remf _%proc87262%_ _%lst87258%_)) + (lambda (_%proc87298%_ _%lst87299%_) + (if (procedure? _%proc87298%_) + (let ((_%proc87303%_ _%proc87298%_)) + (__remf _%proc87303%_ _%lst87299%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@510.13-510.17" + '"\"gerbil/runtime/util.ss\"@544.13-544.17" 'contract: 'procedure? 'value: - _%proc87257%_) + _%proc87298%_) '#!void)))) (define __remf - (lambda (_%proc87206%_ _%lst87207%_) - (let ((_%proc87210%_ _%proc87206%_)) - (let _%lp87219%_ ((_%rest87221%_ _%lst87207%_) (_%r87222%_ '())) - (let* ((_%rest8722387231%_ _%rest87221%_) - (_%else8722587239%_ (lambda () _%lst87207%_)) - (_%K8722787245%_ - (lambda (_%rest87242%_ _%hd87243%_) + (lambda (_%proc87247%_ _%lst87248%_) + (let ((_%proc87251%_ _%proc87247%_)) + (let _%lp87260%_ ((_%rest87262%_ _%lst87248%_) (_%r87263%_ '())) + (let* ((_%rest8726487272%_ _%rest87262%_) + (_%else8726687280%_ (lambda () _%lst87248%_)) + (_%K8726887286%_ + (lambda (_%rest87283%_ _%hd87284%_) (if (let () (declare (not safe)) - (_%proc87210%_ _%hd87243%_)) - (__foldl1 cons _%rest87242%_ _%r87222%_) - (_%lp87219%_ - _%rest87242%_ - (cons _%hd87243%_ _%r87222%_)))))) - (if (pair? _%rest8722387231%_) - (let ((_%hd8722887248%_ + (_%proc87251%_ _%hd87284%_)) + (__foldl1 cons _%rest87283%_ _%r87263%_) + (_%lp87260%_ + _%rest87283%_ + (cons _%hd87284%_ _%r87263%_)))))) + (if (pair? _%rest8726487272%_) + (let ((_%hd8726987289%_ (let () (declare (not safe)) - (##car _%rest8722387231%_))) - (_%tl8722987250%_ + (##car _%rest8726487272%_))) + (_%tl8727087291%_ (let () (declare (not safe)) - (##cdr _%rest8722387231%_)))) - (let* ((_%hd87253%_ _%hd8722887248%_) - (_%rest87255%_ _%tl8722987250%_)) - (_%K8722787245%_ _%rest87255%_ _%hd87253%_))) - (_%else8722587239%_))))))) + (##cdr _%rest8726487272%_)))) + (let* ((_%hd87294%_ _%hd8726987289%_) + (_%rest87296%_ _%tl8727087291%_)) + (_%K8726887286%_ _%rest87296%_ _%hd87294%_))) + (_%else8726687280%_))))))) (define 1+ - (lambda (_%x87192%_) - (if (number? _%x87192%_) - (let ((_%x87196%_ _%x87192%_)) (__1+ _%x87196%_)) + (lambda (_%x87233%_) + (if (number? _%x87233%_) + (let ((_%x87237%_ _%x87233%_)) (__1+ _%x87237%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@519.11-519.12" + '"\"gerbil/runtime/util.ss\"@553.11-553.12" 'contract: 'number? 'value: - _%x87192%_) + _%x87233%_) '#!void)))) (define __1+ - (lambda (_%x87180%_) (let ((_%x87183%_ _%x87180%_)) (+ _%x87183%_ '1)))) + (lambda (_%x87221%_) (let ((_%x87224%_ _%x87221%_)) (+ _%x87224%_ '1)))) (define 1- - (lambda (_%x87166%_) - (if (number? _%x87166%_) - (let ((_%x87170%_ _%x87166%_)) (__1- _%x87170%_)) + (lambda (_%x87207%_) + (if (number? _%x87207%_) + (let ((_%x87211%_ _%x87207%_)) (__1- _%x87211%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@527.11-527.12" + '"\"gerbil/runtime/util.ss\"@561.11-561.12" 'contract: 'number? 'value: - _%x87166%_) + _%x87207%_) '#!void)))) (define __1- - (lambda (_%x87154%_) (let ((_%x87157%_ _%x87154%_)) (- _%x87157%_ '1)))) + (lambda (_%x87195%_) (let ((_%x87198%_ _%x87195%_)) (- _%x87198%_ '1)))) (define fx1+ - (lambda (_%x87140%_) - (if (fixnum? _%x87140%_) - (let ((_%x87144%_ _%x87140%_)) (__fx1+ _%x87144%_)) + (lambda (_%x87181%_) + (if (fixnum? _%x87181%_) + (let ((_%x87185%_ _%x87181%_)) (__fx1+ _%x87185%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@535.13-535.14" + '"\"gerbil/runtime/util.ss\"@569.13-569.14" 'contract: 'fixnum? 'value: - _%x87140%_) + _%x87181%_) '#!void)))) (define __fx1+ - (lambda (_%x87128%_) - (let ((_%x87131%_ _%x87128%_)) + (lambda (_%x87169%_) + (let ((_%x87172%_ _%x87169%_)) (declare (not safe)) - (##fx+ _%x87131%_ '1)))) + (##fx+ _%x87172%_ '1)))) (define fx1- - (lambda (_%x87114%_) - (if (fixnum? _%x87114%_) - (let ((_%x87118%_ _%x87114%_)) (__fx1- _%x87118%_)) + (lambda (_%x87155%_) + (if (fixnum? _%x87155%_) + (let ((_%x87159%_ _%x87155%_)) (__fx1- _%x87159%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@543.13-543.14" + '"\"gerbil/runtime/util.ss\"@577.13-577.14" 'contract: 'fixnum? 'value: - _%x87114%_) + _%x87155%_) '#!void)))) (define __fx1- - (lambda (_%x87102%_) - (let ((_%x87105%_ _%x87102%_)) + (lambda (_%x87143%_) + (let ((_%x87146%_ _%x87143%_)) (declare (not safe)) - (##fx- _%x87105%_ '1)))) + (##fx- _%x87146%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x87099%_) - (if (fixnum? _%x87099%_) - (let () (declare (not safe)) (##fx>= _%x87099%_ '0)) + (lambda (_%x87140%_) + (if (fixnum? _%x87140%_) + (let () (declare (not safe)) (##fx>= _%x87140%_ '0)) '#f))) (define fx>0? - (lambda (_%x87096%_) - (if (fixnum? _%x87096%_) - (let () (declare (not safe)) (##fx> _%x87096%_ '0)) + (lambda (_%x87137%_) + (if (fixnum? _%x87137%_) + (let () (declare (not safe)) (##fx> _%x87137%_ '0)) '#f))) (define fx=0? - (lambda (_%x87093%_) - (let () (declare (not safe)) (##fx= _%x87093%_ '0)))) + (lambda (_%x87134%_) + (let () (declare (not safe)) (##fx= _%x87134%_ '0)))) (define fx<0? - (lambda (_%x87090%_) - (if (fixnum? _%x87090%_) - (let () (declare (not safe)) (##fx< _%x87090%_ '0)) + (lambda (_%x87131%_) + (if (fixnum? _%x87131%_) + (let () (declare (not safe)) (##fx< _%x87131%_ '0)) '#f))) (define fx<=0? - (lambda (_%x87087%_) - (if (fixnum? _%x87087%_) - (let () (declare (not safe)) (##fx<= _%x87087%_ '0)) + (lambda (_%x87128%_) + (if (fixnum? _%x87128%_) + (let () (declare (not safe)) (##fx<= _%x87128%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x87084%_) - (if (symbol? _%x87084%_) (not (uninterned-symbol? _%x87084%_)) '#f))) + (lambda (_%x87125%_) + (if (symbol? _%x87125%_) (not (uninterned-symbol? _%x87125%_)) '#f))) (define display-as-string - (lambda (_%x87069%_ _%port87070%_) - (if (output-port? _%port87070%_) - (let ((_%port87074%_ _%port87070%_)) - (__display-as-string _%x87069%_ _%port87074%_)) + (lambda (_%x87110%_ _%port87111%_) + (if (output-port? _%port87111%_) + (let ((_%port87115%_ _%port87111%_)) + (__display-as-string _%x87110%_ _%port87115%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@571.28-571.32" + '"\"gerbil/runtime/util.ss\"@605.28-605.32" 'contract: 'output-port? 'value: - _%port87070%_) + _%port87111%_) '#!void)))) (define __display-as-string - (lambda (_%x87026%_ _%port87027%_) - (let ((_%port87030%_ _%port87027%_)) - (if (or (string? _%x87026%_) - (symbol? _%x87026%_) - (keyword? _%x87026%_) - (number? _%x87026%_) - (char? _%x87026%_)) - (display _%x87026%_ _%port87030%_) - (if (pair? _%x87026%_) + (lambda (_%x87067%_ _%port87068%_) + (let ((_%port87071%_ _%port87068%_)) + (if (or (string? _%x87067%_) + (symbol? _%x87067%_) + (keyword? _%x87067%_) + (number? _%x87067%_) + (char? _%x87067%_)) + (display _%x87067%_ _%port87071%_) + (if (pair? _%x87067%_) (let () (__display-as-string - (let () (declare (not safe)) (##car _%x87026%_)) - _%port87030%_) + (let () (declare (not safe)) (##car _%x87067%_)) + _%port87071%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x87026%_)) - _%port87030%_)) - (if (vector? _%x87026%_) + (let () (declare (not safe)) (##cdr _%x87067%_)) + _%port87071%_)) + (if (vector? _%x87067%_) (vector-for-each - (lambda (_%g8705387055%_) - (__display-as-string _%g8705387055%_ _%port87030%_)) - _%x87026%_) - (if (or (null? _%x87026%_) - (eq? _%x87026%_ '#!void) - (eof-object? _%x87026%_) - (boolean? _%x87026%_)) + (lambda (_%g8709487096%_) + (__display-as-string _%g8709487096%_ _%port87071%_)) + _%x87067%_) + (if (or (null? _%x87067%_) + (eq? _%x87067%_ '#!void) + (eof-object? _%x87067%_) + (boolean? _%x87067%_)) '#!void (let () - (error '"cannot convert as string" _%x87026%_) + (error '"cannot convert as string" _%x87067%_) '#!void)))))))) (define as-string__0 - (lambda (_%x87009%_) - (if (string? _%x87009%_) - _%x87009%_ - (if (symbol? _%x87009%_) - (let () (declare (not safe)) (##symbol->string _%x87009%_)) - (if (keyword? _%x87009%_) + (lambda (_%x87050%_) + (if (string? _%x87050%_) + _%x87050%_ + (if (symbol? _%x87050%_) + (let () (declare (not safe)) (##symbol->string _%x87050%_)) + (if (keyword? _%x87050%_) (let () (declare (not safe)) - (##keyword->string _%x87009%_)) - (if (number? _%x87009%_) + (##keyword->string _%x87050%_)) + (if (number? _%x87050%_) (let () (declare (not safe)) - (##number->string _%x87009%_)) + (##number->string _%x87050%_)) (call-with-output-string '() - (lambda (_%g8701587017%_) + (lambda (_%g8705687058%_) (__display-as-string - _%x87009%_ - _%g8701587017%_))))))))) + _%x87050%_ + _%g8705687058%_))))))))) (define as-string__1 - (lambda _%args87020%_ + (lambda _%args87061%_ (call-with-output-string '() - (lambda (_%g8702187023%_) - (__display-as-string _%args87020%_ _%g8702187023%_))))) + (lambda (_%g8706287064%_) + (__display-as-string _%args87061%_ _%g8706287064%_))))) (define as-string - (lambda _g91149_ - (let ((_g91148_ (let () (declare (not safe)) (##length _g91149_)))) - (cond ((let () (declare (not safe)) (##fx= _g91148_ 1)) - (apply as-string__0 _g91149_)) + (lambda _g91302_ + (let ((_g91301_ (let () (declare (not safe)) (##length _g91302_)))) + (cond ((let () (declare (not safe)) (##fx= _g91301_ 1)) + (apply as-string__0 _g91302_)) (#t - (apply (lambda _%args87020%_ + (apply (lambda _%args87061%_ (let () (declare (not safe)) - (##apply as-string__1 _%args87020%_))) - _g91149_)) + (##apply as-string__1 _%args87061%_))) + _g91302_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g91149_)))))) + _g91302_)))))) (define make-symbol__0 - (lambda (_%x87005%_) - (if (interned-symbol? _%x87005%_) - _%x87005%_ - (let ((__tmp91150 (as-string__0 _%x87005%_))) + (lambda (_%x87046%_) + (if (interned-symbol? _%x87046%_) + _%x87046%_ + (let ((__tmp91303 (as-string__0 _%x87046%_))) (declare (not safe)) - (##string->symbol __tmp91150))))) + (##string->symbol __tmp91303))))) (define make-symbol__1 - (lambda _%args87007%_ - (let ((__tmp91151 + (lambda _%args87048%_ + (let ((__tmp91304 (let () (declare (not safe)) - (##apply as-string _%args87007%_)))) + (##apply as-string _%args87048%_)))) (declare (not safe)) - (##string->symbol __tmp91151)))) + (##string->symbol __tmp91304)))) (define make-symbol - (lambda _g91153_ - (let ((_g91152_ (let () (declare (not safe)) (##length _g91153_)))) - (cond ((let () (declare (not safe)) (##fx= _g91152_ 1)) - (apply make-symbol__0 _g91153_)) + (lambda _g91306_ + (let ((_g91305_ (let () (declare (not safe)) (##length _g91306_)))) + (cond ((let () (declare (not safe)) (##fx= _g91305_ 1)) + (apply make-symbol__0 _g91306_)) (#t - (apply (lambda _%args87007%_ + (apply (lambda _%args87048%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args87007%_))) - _g91153_)) + (##apply make-symbol__1 _%args87048%_))) + _g91306_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g91153_)))))) + _g91306_)))))) (define make-keyword__0 - (lambda (_%x87001%_) - (if (interned-keyword? _%x87001%_) - _%x87001%_ - (let ((__tmp91154 (as-string__0 _%x87001%_))) + (lambda (_%x87042%_) + (if (interned-keyword? _%x87042%_) + _%x87042%_ + (let ((__tmp91307 (as-string__0 _%x87042%_))) (declare (not safe)) - (##string->keyword __tmp91154))))) + (##string->keyword __tmp91307))))) (define make-keyword__1 - (lambda _%args87003%_ - (let ((__tmp91155 + (lambda _%args87044%_ + (let ((__tmp91308 (let () (declare (not safe)) - (##apply as-string _%args87003%_)))) + (##apply as-string _%args87044%_)))) (declare (not safe)) - (##string->keyword __tmp91155)))) + (##string->keyword __tmp91308)))) (define make-keyword - (lambda _g91157_ - (let ((_g91156_ (let () (declare (not safe)) (##length _g91157_)))) - (cond ((let () (declare (not safe)) (##fx= _g91156_ 1)) - (apply make-keyword__0 _g91157_)) + (lambda _g91310_ + (let ((_g91309_ (let () (declare (not safe)) (##length _g91310_)))) + (cond ((let () (declare (not safe)) (##fx= _g91309_ 1)) + (apply make-keyword__0 _g91310_)) (#t - (apply (lambda _%args87003%_ + (apply (lambda _%args87044%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args87003%_))) - _g91157_)) + (##apply make-keyword__1 _%args87044%_))) + _g91310_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g91157_)))))) + _g91310_)))))) (define interned-keyword? - (lambda (_%x86998%_) - (if (keyword? _%x86998%_) (not (uninterned-keyword? _%x86998%_)) '#f))) + (lambda (_%x87039%_) + (if (keyword? _%x87039%_) (not (uninterned-keyword? _%x87039%_)) '#f))) (define symbol->keyword - (lambda (_%sym86984%_) - (if (symbol? _%sym86984%_) - (let ((_%sym86988%_ _%sym86984%_)) - (__symbol->keyword _%sym86988%_)) + (lambda (_%sym87025%_) + (if (symbol? _%sym87025%_) + (let ((_%sym87029%_ _%sym87025%_)) + (__symbol->keyword _%sym87029%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@614.24-614.27" + '"\"gerbil/runtime/util.ss\"@648.24-648.27" 'contract: 'symbol? 'value: - _%sym86984%_) + _%sym87025%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym86972%_) - (let ((_%sym86975%_ _%sym86972%_)) - (if (uninterned-symbol? _%sym86975%_) - (let ((__tmp91158 + (lambda (_%sym87013%_) + (let ((_%sym87016%_ _%sym87013%_)) + (if (uninterned-symbol? _%sym87016%_) + (let ((__tmp91311 (let () (declare (not safe)) - (##symbol->string _%sym86975%_)))) + (##symbol->string _%sym87016%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp91158)) - (let ((__tmp91159 + (##string->uninterned-keyword __tmp91311)) + (let ((__tmp91312 (let () (declare (not safe)) - (##symbol->string _%sym86975%_)))) + (##symbol->string _%sym87016%_)))) (declare (not safe)) - (##string->keyword __tmp91159)))))) + (##string->keyword __tmp91312)))))) (define keyword->symbol - (lambda (_%sym86958%_) - (if (keyword? _%sym86958%_) - (let ((_%sym86962%_ _%sym86958%_)) - (__keyword->symbol _%sym86962%_)) + (lambda (_%sym86999%_) + (if (keyword? _%sym86999%_) + (let ((_%sym87003%_ _%sym86999%_)) + (__keyword->symbol _%sym87003%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@620.24-620.27" + '"\"gerbil/runtime/util.ss\"@654.24-654.27" 'contract: 'keyword? 'value: - _%sym86958%_) + _%sym86999%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym86946%_) - (let ((_%sym86949%_ _%sym86946%_)) - (if (uninterned-keyword? _%sym86949%_) - (let ((__tmp91160 + (lambda (_%sym86987%_) + (let ((_%sym86990%_ _%sym86987%_)) + (if (uninterned-keyword? _%sym86990%_) + (let ((__tmp91313 (let () (declare (not safe)) - (##keyword->string _%sym86949%_)))) + (##keyword->string _%sym86990%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp91160)) - (let ((__tmp91161 + (##string->uninterned-symbol __tmp91313)) + (let ((__tmp91314 (let () (declare (not safe)) - (##keyword->string _%sym86949%_)))) + (##keyword->string _%sym86990%_)))) (declare (not safe)) - (##string->symbol __tmp91161)))))) + (##string->symbol __tmp91314)))))) (define bytes->string__% - (lambda (_%bstr86911%_ _%enc86912%_) - (if (u8vector? _%bstr86911%_) - (let ((_%bstr86916%_ _%bstr86911%_)) - (if (symbol? _%enc86912%_) - (let ((_%enc86926%_ _%enc86912%_)) - (__bytes->string__% _%bstr86916%_ _%enc86926%_)) + (lambda (_%bstr86952%_ _%enc86953%_) + (if (u8vector? _%bstr86952%_) + (let ((_%bstr86957%_ _%bstr86952%_)) + (if (symbol? _%enc86953%_) + (let ((_%enc86967%_ _%enc86953%_)) + (__bytes->string__% _%bstr86957%_ _%enc86967%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@627.25-627.28" + '"\"gerbil/runtime/util.ss\"@661.25-661.28" 'contract: 'symbol? 'value: - _%enc86912%_) + _%enc86953%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@626.22-626.26" + '"\"gerbil/runtime/util.ss\"@660.22-660.26" 'contract: 'u8vector? 'value: - _%bstr86911%_) + _%bstr86952%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr86939%_) - (let ((_%enc86941%_ 'UTF-8)) - (bytes->string__% _%bstr86939%_ _%enc86941%_)))) + (lambda (_%bstr86980%_) + (let ((_%enc86982%_ 'UTF-8)) + (bytes->string__% _%bstr86980%_ _%enc86982%_)))) (define bytes->string - (lambda _g91163_ - (let ((_g91162_ (let () (declare (not safe)) (##length _g91163_)))) - (cond ((let () (declare (not safe)) (##fx= _g91162_ 1)) - (apply bytes->string__0 _g91163_)) - ((let () (declare (not safe)) (##fx= _g91162_ 2)) - (apply bytes->string__% _g91163_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g91163_)))))) + _g91316_)))))) (define __bytes->string__% - (lambda (_%bstr86870%_ _%enc86871%_) - (let* ((_%bstr86874%_ _%bstr86870%_) (_%enc86882%_ _%enc86871%_)) - (if (eq? _%enc86882%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr86874%_)) - (let* ((_%in86891%_ + (lambda (_%bstr86911%_ _%enc86912%_) + (let* ((_%bstr86915%_ _%bstr86911%_) (_%enc86923%_ _%enc86912%_)) + (if (eq? _%enc86923%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr86915%_)) + (let* ((_%in86932%_ (open-input-u8vector (cons 'char-encoding: - (cons _%enc86882%_ - (cons 'init: (cons _%bstr86874%_ '())))))) - (_%len86893%_ + (cons _%enc86923%_ + (cons 'init: (cons _%bstr86915%_ '())))))) + (_%len86934%_ (let () (declare (not safe)) - (##u8vector-length _%bstr86874%_))) - (_%out86895%_ + (##u8vector-length _%bstr86915%_))) + (_%out86936%_ (let () (declare (not safe)) - (##make-string _%len86893%_))) - (_%n86897%_ + (##make-string _%len86934%_))) + (_%n86938%_ (read-substring - _%out86895%_ + _%out86936%_ '0 - _%len86893%_ - _%in86891%_))) - (string-shrink! _%out86895%_ _%n86897%_) - _%out86895%_))))) + _%len86934%_ + _%in86932%_))) + (string-shrink! _%out86936%_ _%n86938%_) + _%out86936%_))))) (define __bytes->string__0 - (lambda (_%bstr86903%_) - (let ((_%enc86905%_ 'UTF-8)) - (__bytes->string__% _%bstr86903%_ _%enc86905%_)))) + (lambda (_%bstr86944%_) + (let ((_%enc86946%_ 'UTF-8)) + (__bytes->string__% _%bstr86944%_ _%enc86946%_)))) (define __bytes->string - (lambda _g91165_ - (let ((_g91164_ (let () (declare (not safe)) (##length _g91165_)))) - (cond ((let () (declare (not safe)) (##fx= _g91164_ 1)) - (apply __bytes->string__0 _g91165_)) - ((let () (declare (not safe)) (##fx= _g91164_ 2)) - (apply __bytes->string__% _g91165_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g91165_)))))) + _g91318_)))))) (define string->bytes__% - (lambda (_%str86834%_ _%enc86835%_) - (if (string? _%str86834%_) - (let ((_%str86839%_ _%str86834%_)) - (if (symbol? _%enc86835%_) - (let ((_%enc86849%_ _%enc86835%_)) - (__string->bytes__% _%str86839%_ _%enc86849%_)) + (lambda (_%str86875%_ _%enc86876%_) + (if (string? _%str86875%_) + (let ((_%str86880%_ _%str86875%_)) + (if (symbol? _%enc86876%_) + (let ((_%enc86890%_ _%enc86876%_)) + (__string->bytes__% _%str86880%_ _%enc86890%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@639.25-639.28" + '"\"gerbil/runtime/util.ss\"@673.25-673.28" 'contract: 'symbol? 'value: - _%enc86835%_) + _%enc86876%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@638.22-638.25" + '"\"gerbil/runtime/util.ss\"@672.22-672.25" 'contract: 'string? 'value: - _%str86834%_) + _%str86875%_) '#!void)))) (define string->bytes__0 - (lambda (_%str86862%_) - (let ((_%enc86864%_ 'UTF-8)) - (string->bytes__% _%str86862%_ _%enc86864%_)))) + (lambda (_%str86903%_) + (let ((_%enc86905%_ 'UTF-8)) + (string->bytes__% _%str86903%_ _%enc86905%_)))) (define string->bytes - (lambda _g91167_ - (let ((_g91166_ (let () (declare (not safe)) (##length _g91167_)))) - (cond ((let () (declare (not safe)) (##fx= _g91166_ 1)) - (apply string->bytes__0 _g91167_)) - ((let () (declare (not safe)) (##fx= _g91166_ 2)) - (apply string->bytes__% _g91167_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g91167_)))))) + _g91320_)))))) (define __string->bytes__% - (lambda (_%str86802%_ _%enc86803%_) - (let* ((_%str86806%_ _%str86802%_) (_%enc86814%_ _%enc86803%_)) - (if (eq? _%enc86814%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str86806%_)) + (lambda (_%str86843%_ _%enc86844%_) + (let* ((_%str86847%_ _%str86843%_) (_%enc86855%_ _%enc86844%_)) + (if (eq? _%enc86855%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str86847%_)) (__substring->bytes__% - _%str86806%_ + _%str86847%_ '0 - (let () (declare (not safe)) (##string-length _%str86806%_)) - _%enc86814%_))))) + (let () (declare (not safe)) (##string-length _%str86847%_)) + _%enc86855%_))))) (define __string->bytes__0 - (lambda (_%str86826%_) - (let ((_%enc86828%_ 'UTF-8)) - (__string->bytes__% _%str86826%_ _%enc86828%_)))) + (lambda (_%str86867%_) + (let ((_%enc86869%_ 'UTF-8)) + (__string->bytes__% _%str86867%_ _%enc86869%_)))) (define __string->bytes - (lambda _g91169_ - (let ((_g91168_ (let () (declare (not safe)) (##length _g91169_)))) - (cond ((let () (declare (not safe)) (##fx= _g91168_ 1)) - (apply __string->bytes__0 _g91169_)) - ((let () (declare (not safe)) (##fx= _g91168_ 2)) - (apply __string->bytes__% _g91169_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g91169_)))))) + _g91322_)))))) (define substring->bytes__% - (lambda (_%str86750%_ _%start86751%_ _%end86752%_ _%enc86753%_) - (if (string? _%str86750%_) - (let ((_%str86757%_ _%str86750%_)) - (if (nonnegative-fixnum? _%start86751%_) - (let ((_%start86767%_ _%start86751%_)) - (if (nonnegative-fixnum? _%end86752%_) - (let ((_%end86777%_ _%end86752%_)) + (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%_)) (__substring->bytes__% - _%str86757%_ - _%start86767%_ - _%end86777%_ - _%enc86753%_)) + _%str86798%_ + _%start86808%_ + _%end86818%_ + _%enc86794%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@647.25-647.28" + '"\"gerbil/runtime/util.ss\"@681.25-681.28" 'contract: 'nonnegative-fixnum? 'value: - _%end86752%_) + _%end86793%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@646.25-646.30" + '"\"gerbil/runtime/util.ss\"@680.25-680.30" 'contract: 'nonnegative-fixnum? 'value: - _%start86751%_) + _%start86792%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@645.25-645.28" + '"\"gerbil/runtime/util.ss\"@679.25-679.28" 'contract: 'string? 'value: - _%str86750%_) + _%str86791%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str86790%_ _%start86791%_ _%end86792%_) - (let ((_%enc86794%_ 'UTF-8)) + (lambda (_%str86831%_ _%start86832%_ _%end86833%_) + (let ((_%enc86835%_ 'UTF-8)) (substring->bytes__% - _%str86790%_ - _%start86791%_ - _%end86792%_ - _%enc86794%_)))) + _%str86831%_ + _%start86832%_ + _%end86833%_ + _%enc86835%_)))) (define substring->bytes - (lambda _g91171_ - (let ((_g91170_ (let () (declare (not safe)) (##length _g91171_)))) - (cond ((let () (declare (not safe)) (##fx= _g91170_ 3)) - (apply substring->bytes__0 _g91171_)) - ((let () (declare (not safe)) (##fx= _g91170_ 4)) - (apply substring->bytes__% _g91171_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g91171_)))))) + _g91324_)))))) (define __substring->bytes__% - (lambda (_%str86702%_ _%start86703%_ _%end86704%_ _%enc86705%_) - (let* ((_%str86708%_ _%str86702%_) - (_%start86716%_ _%start86703%_) - (_%end86724%_ _%end86704%_)) - (if (eq? _%enc86705%_ 'UTF-8) - (string->utf8 _%str86708%_ _%start86716%_ _%end86724%_) - (let ((_%out86733%_ + (lambda (_%str86743%_ _%start86744%_ _%end86745%_ _%enc86746%_) + (let* ((_%str86749%_ _%str86743%_) + (_%start86757%_ _%start86744%_) + (_%end86765%_ _%end86745%_)) + (if (eq? _%enc86746%_ 'UTF-8) + (string->utf8 _%str86749%_ _%start86757%_ _%end86765%_) + (let ((_%out86774%_ (open-output-u8vector - (cons 'char-encoding: (cons _%enc86705%_ '()))))) + (cons 'char-encoding: (cons _%enc86746%_ '()))))) (write-substring - _%str86708%_ - _%start86716%_ - _%end86724%_ - _%out86733%_) - (get-output-u8vector _%out86733%_)))))) + _%str86749%_ + _%start86757%_ + _%end86765%_ + _%out86774%_) + (get-output-u8vector _%out86774%_)))))) (define __substring->bytes__0 - (lambda (_%str86738%_ _%start86739%_ _%end86740%_) - (let ((_%enc86742%_ 'UTF-8)) + (lambda (_%str86779%_ _%start86780%_ _%end86781%_) + (let ((_%enc86783%_ 'UTF-8)) (__substring->bytes__% - _%str86738%_ - _%start86739%_ - _%end86740%_ - _%enc86742%_)))) + _%str86779%_ + _%start86780%_ + _%end86781%_ + _%enc86783%_)))) (define __substring->bytes - (lambda _g91173_ - (let ((_g91172_ (let () (declare (not safe)) (##length _g91173_)))) - (cond ((let () (declare (not safe)) (##fx= _g91172_ 3)) - (apply __substring->bytes__0 _g91173_)) - ((let () (declare (not safe)) (##fx= _g91172_ 4)) - (apply __substring->bytes__% _g91173_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g91173_)))))) + _g91326_)))))) (define string-empty? - (lambda (_%str86687%_) - (if (string? _%str86687%_) - (let ((_%str86691%_ _%str86687%_)) (__string-empty? _%str86691%_)) + (lambda (_%str86728%_) + (if (string? _%str86728%_) + (let ((_%str86732%_ _%str86728%_)) (__string-empty? _%str86732%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@656.22-656.25" + '"\"gerbil/runtime/util.ss\"@690.22-690.25" 'contract: 'string? 'value: - _%str86687%_) + _%str86728%_) '#!void)))) (define __string-empty? - (lambda (_%str86675%_) - (let* ((_%str86678%_ _%str86675%_) - (__tmp91174 - (let () (declare (not safe)) (##string-length _%str86678%_)))) + (lambda (_%str86716%_) + (let* ((_%str86719%_ _%str86716%_) + (__tmp91327 + (let () (declare (not safe)) (##string-length _%str86719%_)))) (declare (not safe)) - (##fxzero? __tmp91174)))) + (##fxzero? __tmp91327)))) (define string-index__% - (lambda (_%str86627%_ _%char86628%_ _%start86629%_) - (if (string? _%str86627%_) - (let ((_%str86633%_ _%str86627%_)) - (if (char? _%char86628%_) - (let ((_%char86643%_ _%char86628%_)) - (if (nonnegative-fixnum? _%start86629%_) - (let ((_%start86653%_ _%start86629%_)) + (lambda (_%str86668%_ _%char86669%_ _%start86670%_) + (if (string? _%str86668%_) + (let ((_%str86674%_ _%str86668%_)) + (if (char? _%char86669%_) + (let ((_%char86684%_ _%char86669%_)) + (if (nonnegative-fixnum? _%start86670%_) + (let ((_%start86694%_ _%start86670%_)) (__string-index__% - _%str86633%_ - _%char86643%_ - _%start86653%_)) + _%str86674%_ + _%char86684%_ + _%start86694%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@662.21-662.26" + '"\"gerbil/runtime/util.ss\"@696.21-696.26" 'contract: 'nonnegative-fixnum? 'value: - _%start86629%_) + _%start86670%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@661.21-661.25" + '"\"gerbil/runtime/util.ss\"@695.21-695.25" 'contract: 'char? 'value: - _%char86628%_) + _%char86669%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@660.21-660.24" + '"\"gerbil/runtime/util.ss\"@694.21-694.24" 'contract: 'string? 'value: - _%str86627%_) + _%str86668%_) '#!void)))) (define string-index__0 - (lambda (_%str86666%_ _%char86667%_) - (let ((_%start86669%_ '0)) - (string-index__% _%str86666%_ _%char86667%_ _%start86669%_)))) + (lambda (_%str86707%_ _%char86708%_) + (let ((_%start86710%_ '0)) + (string-index__% _%str86707%_ _%char86708%_ _%start86710%_)))) (define string-index - (lambda _g91176_ - (let ((_g91175_ (let () (declare (not safe)) (##length _g91176_)))) - (cond ((let () (declare (not safe)) (##fx= _g91175_ 2)) - (apply string-index__0 _g91176_)) - ((let () (declare (not safe)) (##fx= _g91175_ 3)) - (apply string-index__% _g91176_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g91176_)))))) + _g91329_)))))) (define __string-index__% - (lambda (_%str86566%_ _%char86567%_ _%start86568%_) - (let* ((_%str86571%_ _%str86566%_) - (_%char86579%_ _%char86567%_) - (_%start86587%_ _%start86568%_) - (_%len86596%_ - (let () (declare (not safe)) (##string-length _%str86571%_)))) - (let _%lp86598%_ ((_%k86600%_ _%start86587%_)) - (let ((_%k86602%_ _%k86600%_)) - (if (let () (declare (not safe)) (##fx< _%k86602%_ _%len86596%_)) - (if (eq? _%char86579%_ + (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%_ (let () (declare (not safe)) - (##string-ref _%str86571%_ _%k86602%_))) - _%k86602%_ - (_%lp86598%_ - (let () (declare (not safe)) (##fx+ _%k86602%_ '1)))) + (##string-ref _%str86612%_ _%k86643%_))) + _%k86643%_ + (_%lp86639%_ + (let () (declare (not safe)) (##fx+ _%k86643%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str86617%_ _%char86618%_) - (let ((_%start86620%_ '0)) - (__string-index__% _%str86617%_ _%char86618%_ _%start86620%_)))) + (lambda (_%str86658%_ _%char86659%_) + (let ((_%start86661%_ '0)) + (__string-index__% _%str86658%_ _%char86659%_ _%start86661%_)))) (define __string-index - (lambda _g91178_ - (let ((_g91177_ (let () (declare (not safe)) (##length _g91178_)))) - (cond ((let () (declare (not safe)) (##fx= _g91177_ 2)) - (apply __string-index__0 _g91178_)) - ((let () (declare (not safe)) (##fx= _g91177_ 3)) - (apply __string-index__% _g91178_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g91178_)))))) + _g91331_)))))) (define string-rindex__% - (lambda (_%str86527%_ _%char86528%_ _%start86529%_) - (if (string? _%str86527%_) - (let ((_%str86533%_ _%str86527%_)) - (if (char? _%char86528%_) - (let ((_%char86543%_ _%char86528%_)) + (lambda (_%str86568%_ _%char86569%_ _%start86570%_) + (if (string? _%str86568%_) + (let ((_%str86574%_ _%str86568%_)) + (if (char? _%char86569%_) + (let ((_%char86584%_ _%char86569%_)) (__string-rindex__% - _%str86533%_ - _%char86543%_ - _%start86529%_)) + _%str86574%_ + _%char86584%_ + _%start86570%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@672.25-672.29" + '"\"gerbil/runtime/util.ss\"@706.25-706.29" 'contract: 'char? 'value: - _%char86528%_) + _%char86569%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@671.22-671.25" + '"\"gerbil/runtime/util.ss\"@705.22-705.25" 'contract: 'string? 'value: - _%str86527%_) + _%str86568%_) '#!void)))) (define string-rindex__0 - (lambda (_%str86556%_ _%char86557%_) - (let ((_%start86559%_ '#f)) - (string-rindex__% _%str86556%_ _%char86557%_ _%start86559%_)))) + (lambda (_%str86597%_ _%char86598%_) + (let ((_%start86600%_ '#f)) + (string-rindex__% _%str86597%_ _%char86598%_ _%start86600%_)))) (define string-rindex - (lambda _g91180_ - (let ((_g91179_ (let () (declare (not safe)) (##length _g91180_)))) - (cond ((let () (declare (not safe)) (##fx= _g91179_ 2)) - (apply string-rindex__0 _g91180_)) - ((let () (declare (not safe)) (##fx= _g91179_ 3)) - (apply string-rindex__% _g91180_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g91180_)))))) + _g91333_)))))) (define __string-rindex__% - (lambda (_%str86469%_ _%char86470%_ _%start86471%_) - (let* ((_%str86474%_ _%str86469%_) - (_%char86482%_ _%char86470%_) - (_%len86491%_ - (let () (declare (not safe)) (##string-length _%str86474%_))) - (_%start86493%_ - (if (fixnum? _%start86471%_) - _%start86471%_ - (let () (declare (not safe)) (##fx- _%len86491%_ '1))))) - (let _%lp86496%_ ((_%k86498%_ _%start86493%_)) - (let ((_%k86500%_ _%k86498%_)) - (if (let () (declare (not safe)) (##fx>= _%k86500%_ '0)) - (if (eq? _%char86482%_ + (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%_ (let () (declare (not safe)) - (##string-ref _%str86474%_ _%k86500%_))) - _%k86500%_ - (_%lp86496%_ - (let () (declare (not safe)) (##fx- _%k86500%_ '1)))) + (##string-ref _%str86515%_ _%k86541%_))) + _%k86541%_ + (_%lp86537%_ + (let () (declare (not safe)) (##fx- _%k86541%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str86517%_ _%char86518%_) - (let ((_%start86520%_ '#f)) - (__string-rindex__% _%str86517%_ _%char86518%_ _%start86520%_)))) + (lambda (_%str86558%_ _%char86559%_) + (let ((_%start86561%_ '#f)) + (__string-rindex__% _%str86558%_ _%char86559%_ _%start86561%_)))) (define __string-rindex - (lambda _g91182_ - (let ((_g91181_ (let () (declare (not safe)) (##length _g91182_)))) - (cond ((let () (declare (not safe)) (##fx= _g91181_ 2)) - (apply __string-rindex__0 _g91182_)) - ((let () (declare (not safe)) (##fx= _g91181_ 3)) - (apply __string-rindex__% _g91182_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g91182_)))))) + _g91335_)))))) (define string-split - (lambda (_%str86443%_ _%char86444%_) - (if (string? _%str86443%_) - (let ((_%str86448%_ _%str86443%_)) - (if (char? _%char86444%_) - (let ((_%char86458%_ _%char86444%_)) - (__string-split _%str86448%_ _%char86458%_)) + (lambda (_%str86484%_ _%char86485%_) + (if (string? _%str86484%_) + (let ((_%str86489%_ _%str86484%_)) + (if (char? _%char86485%_) + (let ((_%char86499%_ _%char86485%_)) + (__string-split _%str86489%_ _%char86499%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@683.37-683.41" + '"\"gerbil/runtime/util.ss\"@717.37-717.41" 'contract: 'char? 'value: - _%char86444%_) + _%char86485%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@683.21-683.24" + '"\"gerbil/runtime/util.ss\"@717.21-717.24" 'contract: 'string? 'value: - _%str86443%_) + _%str86484%_) '#!void)))) (define __string-split - (lambda (_%str86384%_ _%char86385%_) - (let* ((_%str86388%_ _%str86384%_) - (_%char86396%_ _%char86385%_) - (_%len86405%_ - (let () (declare (not safe)) (##string-length _%str86388%_)))) - (let _%lp86407%_ ((_%start86409%_ '0) (_%r86410%_ '())) - (let* ((_%start86413%_ _%start86409%_) - (_%$e86426%_ + (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%_ (__string-index__% - _%str86388%_ - _%char86396%_ - _%start86413%_))) - (if _%$e86426%_ - ((lambda (_%end86429%_) - (let ((_%end86431%_ _%end86429%_)) - (_%lp86407%_ - (let () (declare (not safe)) (##fx+ _%end86431%_ '1)) + _%str86429%_ + _%char86437%_ + _%start86454%_))) + (if _%$e86467%_ + ((lambda (_%end86470%_) + (let ((_%end86472%_ _%end86470%_)) + (_%lp86448%_ + (let () (declare (not safe)) (##fx+ _%end86472%_ '1)) (cons (let () (declare (not safe)) (##substring - _%str86388%_ - _%start86413%_ - _%end86431%_)) - _%r86410%_)))) - _%$e86426%_) + _%str86429%_ + _%start86454%_ + _%end86472%_)) + _%r86451%_)))) + _%$e86467%_) (if (let () (declare (not safe)) - (##fx< _%start86413%_ _%len86405%_)) + (##fx< _%start86454%_ _%len86446%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str86388%_ - _%start86413%_ - _%len86405%_))) - _%r86410%_) - (reverse! _%r86410%_)))))))) + _%str86429%_ + _%start86454%_ + _%len86446%_))) + _%r86451%_) + (reverse! _%r86451%_)))))))) (define string-join - (lambda (_%strs86234%_ _%join86235%_) - (letrec ((_%join-length86238%_ - (lambda (_%strs86322%_ _%jlen86323%_) - (let _%lp86325%_ ((_%rest86327%_ _%strs86322%_) - (_%len86328%_ '0)) - (let* ((_%len86330%_ _%len86328%_) - (_%rest8633886346%_ _%rest86327%_) - (_%else8634086354%_ (lambda () '0)) - (_%K8634286372%_ - (lambda (_%rest86357%_ _%hd86358%_) - (if (string? _%hd86358%_) - (let ((_%hd86360%_ _%hd86358%_)) - (if (pair? _%rest86357%_) - (_%lp86325%_ - _%rest86357%_ + (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%_ (fx+ (let () (declare (not safe)) (##string-length - _%hd86360%_)) - _%jlen86323%_ - _%len86330%_)) - (let ((__tmp91183 + _%hd86401%_)) + _%jlen86364%_ + _%len86371%_)) + (let ((__tmp91336 (let () (declare (not safe)) (##string-length - _%hd86360%_)))) + _%hd86401%_)))) (declare (not safe)) - (##fx+ __tmp91183 _%len86330%_)))) - (error '"expected string" _%hd86358%_))))) - (if (pair? _%rest8633886346%_) - (let ((_%hd8634386375%_ + (##fx+ __tmp91336 _%len86371%_)))) + (error '"expected string" _%hd86399%_))))) + (if (pair? _%rest8637986387%_) + (let ((_%hd8638486416%_ (let () (declare (not safe)) - (##car _%rest8633886346%_))) - (_%tl8634486377%_ + (##car _%rest8637986387%_))) + (_%tl8638586418%_ (let () (declare (not safe)) - (##cdr _%rest8633886346%_)))) - (let* ((_%hd86380%_ _%hd8634386375%_) - (_%rest86382%_ _%tl8634486377%_)) - (_%K8634286372%_ _%rest86382%_ _%hd86380%_))) - (_%else8634086354%_))))))) - (let* ((_%join86243%_ - (if (char? _%join86235%_) - (let () (declare (not safe)) (##string _%join86235%_)) - (if (string? _%join86235%_) - _%join86235%_ - (error '"expected string or char" _%join86235%_)))) - (_%jlen86245%_ + (##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%_ (let () (declare (not safe)) - (##string-length _%join86243%_))) - (_%olen86247%_ - (_%join-length86238%_ _%strs86234%_ _%jlen86245%_)) - (_%ostr86249%_ - (let () (declare (not safe)) (##make-string _%olen86247%_)))) - (let _%lp86252%_ ((_%rest86254%_ _%strs86234%_) (_%k86255%_ '0)) - (let* ((_%k86258%_ _%k86255%_) - (_%rest8627486282%_ _%rest86254%_) - (_%else8627686290%_ (lambda () '"")) - (_%K8627886310%_ - (lambda (_%rest86293%_ _%hd86294%_) - (let* ((_%hd86296%_ _%hd86294%_) - (_%hdlen86308%_ + (##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%_ (let () (declare (not safe)) - (##string-length _%hd86296%_)))) - (if (pair? _%rest86293%_) + (##string-length _%hd86337%_)))) + (if (pair? _%rest86334%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd86296%_ + _%hd86337%_ '0 - _%hdlen86308%_ - _%ostr86249%_ - _%k86258%_)) - (let ((__tmp91184 + _%hdlen86349%_ + _%ostr86290%_ + _%k86299%_)) + (let ((__tmp91337 (let () (declare (not safe)) - (##fx+ _%k86258%_ _%hdlen86308%_)))) + (##fx+ _%k86299%_ _%hdlen86349%_)))) (declare (not safe)) (##substring-move! - _%join86243%_ + _%join86284%_ '0 - _%jlen86245%_ - _%ostr86249%_ - __tmp91184)) - (_%lp86252%_ - _%rest86293%_ + _%jlen86286%_ + _%ostr86290%_ + __tmp91337)) + (_%lp86293%_ + _%rest86334%_ (let () (declare (not safe)) - (##fx+ _%k86258%_ - _%hdlen86308%_ - _%jlen86245%_)))) + (##fx+ _%k86299%_ + _%hdlen86349%_ + _%jlen86286%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd86296%_ + _%hd86337%_ '0 - _%hdlen86308%_ - _%ostr86249%_ - _%k86258%_)) - _%ostr86249%_)))))) - (if (pair? _%rest8627486282%_) - (let ((_%hd8627986313%_ + _%hdlen86349%_ + _%ostr86290%_ + _%k86299%_)) + _%ostr86290%_)))))) + (if (pair? _%rest8631586323%_) + (let ((_%hd8632086354%_ (let () (declare (not safe)) - (##car _%rest8627486282%_))) - (_%tl8628086315%_ + (##car _%rest8631586323%_))) + (_%tl8632186356%_ (let () (declare (not safe)) - (##cdr _%rest8627486282%_)))) - (let* ((_%hd86318%_ _%hd8627986313%_) - (_%rest86320%_ _%tl8628086315%_)) - (_%K8627886310%_ _%rest86320%_ _%hd86318%_))) - (_%else8627686290%_)))))))) + (##cdr _%rest8631586323%_)))) + (let* ((_%hd86359%_ _%hd8632086354%_) + (_%rest86361%_ _%tl8632186356%_)) + (_%K8631986351%_ _%rest86361%_ _%hd86359%_))) + (_%else8631786331%_)))))))) (define read-u8vector__% - (lambda (_%bytes86160%_ _%port86161%_ _%start86162%_ _%end86163%_) - (if (u8vector? _%bytes86160%_) - (let ((_%bytes86167%_ _%bytes86160%_)) - (if (input-port? _%port86161%_) - (let ((_%port86177%_ _%port86161%_)) - (if ((lambda (_%o86186%_) - (and (fixnum? _%o86186%_) + (lambda (_%bytes86201%_ _%port86202%_ _%start86203%_ _%end86204%_) + (if (u8vector? _%bytes86201%_) + (let ((_%bytes86208%_ _%bytes86201%_)) + (if (input-port? _%port86202%_) + (let ((_%port86218%_ _%port86202%_)) + (if ((lambda (_%o86227%_) + (and (fixnum? _%o86227%_) (let () (declare (not safe)) - (##fx>= _%o86186%_ '0)) - (let ((__tmp91185 + (##fx>= _%o86227%_ '0)) + (let ((__tmp91338 (let () (declare (not safe)) - (##u8vector-length _%bytes86167%_)))) + (##u8vector-length _%bytes86208%_)))) (declare (not safe)) - (##fx< _%o86186%_ __tmp91185)))) - _%start86162%_) - (let ((_%start86190%_ _%start86162%_)) - (if ((lambda (_%o86199%_) - (and (fixnum? _%o86199%_) - (let ((__tmp91186 + (##fx< _%o86227%_ __tmp91338)))) + _%start86203%_) + (let ((_%start86231%_ _%start86203%_)) + (if ((lambda (_%o86240%_) + (and (fixnum? _%o86240%_) + (let ((__tmp91339 (let () (declare (not safe)) (##u8vector-length - _%bytes86167%_)))) + _%bytes86208%_)))) (declare (not safe)) - (##fx<= _%start86190%_ - _%o86199%_ - __tmp91186)))) - _%end86163%_) - (let ((_%end86203%_ _%end86163%_)) + (##fx<= _%start86231%_ + _%o86240%_ + __tmp91339)))) + _%end86204%_) + (let ((_%end86244%_ _%end86204%_)) (__read-u8vector__% - _%bytes86167%_ - _%port86177%_ - _%start86190%_ - _%end86203%_)) + _%bytes86208%_ + _%port86218%_ + _%start86231%_ + _%end86244%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@750.22-750.25" + '"\"gerbil/runtime/util.ss\"@784.22-784.25" 'contract: '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%end86163%_) + _%end86204%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@748.22-748.27" + '"\"gerbil/runtime/util.ss\"@782.22-782.27" 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start86162%_) + _%start86203%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@747.22-747.26" + '"\"gerbil/runtime/util.ss\"@781.22-781.26" 'contract: 'input-port? 'value: - _%port86161%_) + _%port86202%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@746.22-746.27" + '"\"gerbil/runtime/util.ss\"@780.22-780.27" 'contract: 'u8vector? 'value: - _%bytes86160%_) + _%bytes86201%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes86216%_ _%port86217%_) - (let* ((_%start86219%_ '0) - (_%end86221%_ (u8vector-length _%bytes86216%_))) + (lambda (_%bytes86257%_ _%port86258%_) + (let* ((_%start86260%_ '0) + (_%end86262%_ (u8vector-length _%bytes86257%_))) (read-u8vector__% - _%bytes86216%_ - _%port86217%_ - _%start86219%_ - _%end86221%_)))) + _%bytes86257%_ + _%port86258%_ + _%start86260%_ + _%end86262%_)))) (define read-u8vector__1 - (lambda (_%bytes86223%_ _%port86224%_ _%start86225%_) - (let ((_%end86227%_ (u8vector-length _%bytes86223%_))) + (lambda (_%bytes86264%_ _%port86265%_ _%start86266%_) + (let ((_%end86268%_ (u8vector-length _%bytes86264%_))) (read-u8vector__% - _%bytes86223%_ - _%port86224%_ - _%start86225%_ - _%end86227%_)))) + _%bytes86264%_ + _%port86265%_ + _%start86266%_ + _%end86268%_)))) (define read-u8vector - (lambda _g91188_ - (let ((_g91187_ (let () (declare (not safe)) (##length _g91188_)))) - (cond ((let () (declare (not safe)) (##fx= _g91187_ 2)) - (apply read-u8vector__0 _g91188_)) - ((let () (declare (not safe)) (##fx= _g91187_ 3)) - (apply read-u8vector__1 _g91188_)) - ((let () (declare (not safe)) (##fx= _g91187_ 4)) - (apply read-u8vector__% _g91188_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g91188_)))))) + _g91341_)))))) (define __read-u8vector__% - (lambda (_%bytes86099%_ _%port86100%_ _%start86101%_ _%end86102%_) - (let* ((_%bytes86105%_ _%bytes86099%_) - (_%port86113%_ _%port86100%_) - (_%start86121%_ _%start86101%_) - (_%end86129%_ _%end86102%_)) + (lambda (_%bytes86140%_ _%port86141%_ _%start86142%_ _%end86143%_) + (let* ((_%bytes86146%_ _%bytes86140%_) + (_%port86154%_ _%port86141%_) + (_%start86162%_ _%start86142%_) + (_%end86170%_ _%end86143%_)) (declare (not safe)) (##read-subu8vector - _%bytes86105%_ - _%start86121%_ - _%end86129%_ - _%port86113%_)))) + _%bytes86146%_ + _%start86162%_ + _%end86170%_ + _%port86154%_)))) (define __read-u8vector__0 - (lambda (_%bytes86141%_ _%port86142%_) - (let* ((_%start86144%_ '0) - (_%end86146%_ (u8vector-length _%bytes86141%_))) + (lambda (_%bytes86182%_ _%port86183%_) + (let* ((_%start86185%_ '0) + (_%end86187%_ (u8vector-length _%bytes86182%_))) (__read-u8vector__% - _%bytes86141%_ - _%port86142%_ - _%start86144%_ - _%end86146%_)))) + _%bytes86182%_ + _%port86183%_ + _%start86185%_ + _%end86187%_)))) (define __read-u8vector__1 - (lambda (_%bytes86148%_ _%port86149%_ _%start86150%_) - (let ((_%end86152%_ (u8vector-length _%bytes86148%_))) + (lambda (_%bytes86189%_ _%port86190%_ _%start86191%_) + (let ((_%end86193%_ (u8vector-length _%bytes86189%_))) (__read-u8vector__% - _%bytes86148%_ - _%port86149%_ - _%start86150%_ - _%end86152%_)))) + _%bytes86189%_ + _%port86190%_ + _%start86191%_ + _%end86193%_)))) (define __read-u8vector - (lambda _g91190_ - (let ((_g91189_ (let () (declare (not safe)) (##length _g91190_)))) - (cond ((let () (declare (not safe)) (##fx= _g91189_ 2)) - (apply __read-u8vector__0 _g91190_)) - ((let () (declare (not safe)) (##fx= _g91189_ 3)) - (apply __read-u8vector__1 _g91190_)) - ((let () (declare (not safe)) (##fx= _g91189_ 4)) - (apply __read-u8vector__% _g91190_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g91190_)))))) + _g91343_)))))) (define write-u8vector__% - (lambda (_%bytes86024%_ _%port86025%_ _%start86026%_ _%end86027%_) - (if (u8vector? _%bytes86024%_) - (let ((_%bytes86031%_ _%bytes86024%_)) - (if (output-port? _%port86025%_) - (let ((_%port86041%_ _%port86025%_)) - (if ((lambda (_%o86050%_) - (and (fixnum? _%o86050%_) - (let () - (declare (not safe)) - (##fx>= _%o86050%_ '0)) - (let ((__tmp91191 + (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 (let () (declare (not safe)) - (##u8vector-length _%bytes86031%_)))) + (##u8vector-length _%bytes86077%_)))) (declare (not safe)) - (##fx< _%o86050%_ __tmp91191)))) - _%start86026%_) - (let ((_%start86054%_ _%start86026%_)) - (if ((lambda (_%o86063%_) - (and (fixnum? _%o86063%_) - (let ((__tmp91192 - (let () - (declare (not safe)) - (##u8vector-length - _%bytes86031%_)))) - (declare (not safe)) - (##fx<= _%start86054%_ - _%o86063%_ - __tmp91192)))) - _%end86027%_) - (let ((_%end86067%_ _%end86027%_)) - (__write-u8vector__% - _%bytes86031%_ - _%port86041%_ - _%start86054%_ - _%end86067%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@760.23-760.26" - 'contract: - '(in-range-inclusive? - start - (u8vector-length bytes)) - 'value: - _%end86027%_) - '#!void))) + (##fx<= _%start86096%_ + _%o86104%_ + __tmp91344)))) + _%end86073%_) + (let ((_%end86108%_ _%end86073%_)) + (__write-u8vector__% + _%bytes86077%_ + _%port86087%_ + _%start86096%_ + _%end86108%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@758.23-758.28" + '"\"gerbil/runtime/util.ss\"@793.23-793.26" 'contract: - '(in-range? 0 (u8vector-length bytes)) + '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%start86026%_) + _%end86073%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@757.23-757.27" + '"\"gerbil/runtime/util.ss\"@791.23-791.27" 'contract: 'output-port? 'value: - _%port86025%_) + _%port86071%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@756.23-756.28" + '"\"gerbil/runtime/util.ss\"@790.23-790.28" 'contract: 'u8vector? 'value: - _%bytes86024%_) + _%bytes86070%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes86080%_ _%port86081%_) - (let* ((_%start86083%_ '0) - (_%end86085%_ (u8vector-length _%bytes86080%_))) + (lambda (_%bytes86121%_ _%port86122%_) + (let* ((_%start86124%_ '0) + (_%end86126%_ (u8vector-length _%bytes86121%_))) (write-u8vector__% - _%bytes86080%_ - _%port86081%_ - _%start86083%_ - _%end86085%_)))) + _%bytes86121%_ + _%port86122%_ + _%start86124%_ + _%end86126%_)))) (define write-u8vector__1 - (lambda (_%bytes86087%_ _%port86088%_ _%start86089%_) - (let ((_%end86091%_ (u8vector-length _%bytes86087%_))) + (lambda (_%bytes86128%_ _%port86129%_ _%start86130%_) + (let ((_%end86132%_ (u8vector-length _%bytes86128%_))) (write-u8vector__% - _%bytes86087%_ - _%port86088%_ - _%start86089%_ - _%end86091%_)))) + _%bytes86128%_ + _%port86129%_ + _%start86130%_ + _%end86132%_)))) (define write-u8vector - (lambda _g91194_ - (let ((_g91193_ (let () (declare (not safe)) (##length _g91194_)))) - (cond ((let () (declare (not safe)) (##fx= _g91193_ 2)) - (apply write-u8vector__0 _g91194_)) - ((let () (declare (not safe)) (##fx= _g91193_ 3)) - (apply write-u8vector__1 _g91194_)) - ((let () (declare (not safe)) (##fx= _g91193_ 4)) - (apply write-u8vector__% _g91194_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g91194_)))))) + _g91346_)))))) (define __write-u8vector__% - (lambda (_%bytes85963%_ _%port85964%_ _%start85965%_ _%end85966%_) - (let* ((_%bytes85969%_ _%bytes85963%_) - (_%port85977%_ _%port85964%_) - (_%start85985%_ _%start85965%_) - (_%end85993%_ _%end85966%_)) + (lambda (_%bytes86009%_ _%port86010%_ _%start86011%_ _%end86012%_) + (let* ((_%bytes86015%_ _%bytes86009%_) + (_%port86023%_ _%port86010%_) + (_%start86031%_ _%start86011%_) + (_%end86039%_ _%end86012%_)) (declare (not safe)) (##write-subu8vector - _%bytes85969%_ - _%start85985%_ - _%end85993%_ - _%port85977%_)))) + _%bytes86015%_ + _%start86031%_ + _%end86039%_ + _%port86023%_)))) (define __write-u8vector__0 - (lambda (_%bytes86005%_ _%port86006%_) - (let* ((_%start86008%_ '0) - (_%end86010%_ (u8vector-length _%bytes86005%_))) + (lambda (_%bytes86051%_ _%port86052%_) + (let* ((_%start86054%_ '0) + (_%end86056%_ (u8vector-length _%bytes86051%_))) (__write-u8vector__% - _%bytes86005%_ - _%port86006%_ - _%start86008%_ - _%end86010%_)))) + _%bytes86051%_ + _%port86052%_ + _%start86054%_ + _%end86056%_)))) (define __write-u8vector__1 - (lambda (_%bytes86012%_ _%port86013%_ _%start86014%_) - (let ((_%end86016%_ (u8vector-length _%bytes86012%_))) + (lambda (_%bytes86058%_ _%port86059%_ _%start86060%_) + (let ((_%end86062%_ (u8vector-length _%bytes86058%_))) (__write-u8vector__% - _%bytes86012%_ - _%port86013%_ - _%start86014%_ - _%end86016%_)))) + _%bytes86058%_ + _%port86059%_ + _%start86060%_ + _%end86062%_)))) (define __write-u8vector - (lambda _g91196_ - (let ((_g91195_ (let () (declare (not safe)) (##length _g91196_)))) - (cond ((let () (declare (not safe)) (##fx= _g91195_ 2)) - (apply __write-u8vector__0 _g91196_)) - ((let () (declare (not safe)) (##fx= _g91195_ 3)) - (apply __write-u8vector__1 _g91196_)) - ((let () (declare (not safe)) (##fx= _g91195_ 4)) - (apply __write-u8vector__% _g91196_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g91196_)))))) + _g91348_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag85931%_ - _%dbg-exprs85932%_ - _%dbg-thunks85933%_ - _%expr85934%_ - _%thunk85935%_) - (letrec ((_%o85937%_ (current-output-port)) - (_%e85938%_ (current-error-port)) - (_%p85939%_ (let () (declare (not safe)) (DBG-printer))) - (_%f85940%_ + (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 () - (force-output _%o85937%_) - (force-output _%e85938%_))) - (_%d85941%_ - (lambda (_%x85948%_) (display _%x85948%_ _%e85938%_))) - (_%w85942%_ - (lambda (_%x85950%_) (_%p85939%_ _%x85950%_ _%e85938%_))) - (_%n85943%_ (lambda () (newline _%e85938%_))) - (_%v85944%_ - (lambda (_%l85953%_) + (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%_) (for-each - (lambda (_%x85955%_) - (_%d85941%_ '" ") - (_%w85942%_ _%x85955%_)) - _%l85953%_) - (_%n85943%_))) - (_%x85945%_ - (lambda (_%expr85957%_ _%thunk85958%_) - (_%f85940%_) - (_%d85941%_ '" ") - (_%w85942%_ _%expr85957%_) - (_%d85941%_ '" =>") + (lambda (_%x86001%_) + (_%d85987%_ '" ") + (_%w85988%_ _%x86001%_)) + _%l85999%_) + (_%n85989%_))) + (_%x85991%_ + (lambda (_%expr86003%_ _%thunk86004%_) + (_%f85986%_) + (_%d85987%_ '" ") + (_%w85988%_ _%expr86003%_) + (_%d85987%_ '" =>") (call-with-values - _%thunk85958%_ - (lambda _%x85960%_ - (_%v85944%_ _%x85960%_) - (_%f85940%_) + _%thunk86004%_ + (lambda _%x86006%_ + (_%v85990%_ _%x86006%_) + (_%f85986%_) (let () (declare (not safe)) - (##apply values _%x85960%_))))))) - (if _%tag85931%_ + (##apply values _%x86006%_))))))) + (if _%tag85977%_ (begin - (if (eq? _%tag85931%_ '#!void) + (if (eq? _%tag85977%_ '#!void) '#!void (begin - (_%f85940%_) - (_%d85941%_ _%tag85931%_) - (_%n85943%_))) - (for-each _%x85945%_ _%dbg-exprs85932%_ _%dbg-thunks85933%_) - (if _%thunk85935%_ - (_%x85945%_ _%expr85934%_ _%thunk85935%_) + (_%f85986%_) + (_%d85987%_ _%tag85977%_) + (_%n85989%_))) + (for-each _%x85991%_ _%dbg-exprs85978%_ _%dbg-thunks85979%_) + (if _%thunk85981%_ + (_%x85991%_ _%expr85980%_ _%thunk85981%_) '#!void)) - (if _%thunk85935%_ (_%thunk85935%_) '#!void))))))) + (if _%thunk85981%_ (_%thunk85981%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index 2593410bb..39960ec3a 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]#_g91198_| + (define |[1]#_g91350_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g91208_| + (define |[1]#_g91360_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx84264%_) - (let* ((_%g8426884286%_ - (lambda (_%g8426984282%_) + (lambda (_%$stx84310%_) + (let* ((_%g8431484332%_ + (lambda (_%g8431584328%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8426984282%_))) - (_%g8426784342%_ - (lambda (_%g8426984290%_) - (if (gx#stx-pair? _%g8426984290%_) - (let ((_%e8427284293%_ (gx#syntax-e _%g8426984290%_))) - (let ((_%hd8427384297%_ + _%g8431584328%_))) + (_%g8431384388%_ + (lambda (_%g8431584336%_) + (if (gx#stx-pair? _%g8431584336%_) + (let ((_%e8431884339%_ (gx#syntax-e _%g8431584336%_))) + (let ((_%hd8431984343%_ (let () (declare (not safe)) - (##car _%e8427284293%_))) - (_%tl8427484300%_ + (##car _%e8431884339%_))) + (_%tl8432084346%_ (let () (declare (not safe)) - (##cdr _%e8427284293%_)))) - (if (gx#stx-pair? _%tl8427484300%_) - (let ((_%e8427584303%_ - (gx#syntax-e _%tl8427484300%_))) - (let ((_%hd8427684307%_ + (##cdr _%e8431884339%_)))) + (if (gx#stx-pair? _%tl8432084346%_) + (let ((_%e8432184349%_ + (gx#syntax-e _%tl8432084346%_))) + (let ((_%hd8432284353%_ (let () (declare (not safe)) - (##car _%e8427584303%_))) - (_%tl8427784310%_ + (##car _%e8432184349%_))) + (_%tl8432384356%_ (let () (declare (not safe)) - (##cdr _%e8427584303%_)))) - (if (gx#stx-pair? _%tl8427784310%_) - (let ((_%e8427884313%_ - (gx#syntax-e _%tl8427784310%_))) - (let ((_%hd8427984317%_ + (##cdr _%e8432184349%_)))) + (if (gx#stx-pair? _%tl8432384356%_) + (let ((_%e8432484359%_ + (gx#syntax-e _%tl8432384356%_))) + (let ((_%hd8432584363%_ (let () (declare (not safe)) - (##car _%e8427884313%_))) - (_%tl8428084320%_ + (##car _%e8432484359%_))) + (_%tl8432684366%_ (let () (declare (not safe)) - (##cdr _%e8427884313%_)))) - (if (gx#stx-null? _%tl8428084320%_) - ((lambda (_%L84323%_ _%L84325%_) + (##cdr _%e8432484359%_)))) + (if (gx#stx-null? _%tl8432684366%_) + ((lambda (_%L84369%_ _%L84371%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L84325%_ '())) + (cons _%L84371%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L84323%_ '())) + (cons _%L84369%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8427984317%_ - _%hd8427684307%_) - (_%g8426884286%_ - _%g8426984290%_)))) - (_%g8426884286%_ _%g8426984290%_)))) - (_%g8426884286%_ _%g8426984290%_)))) - (_%g8426884286%_ _%g8426984290%_))))) - (_%g8426784342%_ _%$stx84264%_)))) + _%hd8432584363%_ + _%hd8432284353%_) + (_%g8431484332%_ + _%g8431584336%_)))) + (_%g8431484332%_ _%g8431584336%_)))) + (_%g8431484332%_ _%g8431584336%_)))) + (_%g8431484332%_ _%g8431584336%_))))) + (_%g8431384388%_ _%$stx84310%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx84346%_) - (let* ((_%g8435084364%_ - (lambda (_%g8435184360%_) + (lambda (_%$stx84392%_) + (let* ((_%g8439684410%_ + (lambda (_%g8439784406%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8435184360%_))) - (_%g8434984405%_ - (lambda (_%g8435184368%_) - (if (gx#stx-pair? _%g8435184368%_) - (let ((_%e8435384371%_ (gx#syntax-e _%g8435184368%_))) - (let ((_%hd8435484375%_ + _%g8439784406%_))) + (_%g8439584451%_ + (lambda (_%g8439784414%_) + (if (gx#stx-pair? _%g8439784414%_) + (let ((_%e8439984417%_ (gx#syntax-e _%g8439784414%_))) + (let ((_%hd8440084421%_ (let () (declare (not safe)) - (##car _%e8435384371%_))) - (_%tl8435584378%_ + (##car _%e8439984417%_))) + (_%tl8440184424%_ (let () (declare (not safe)) - (##cdr _%e8435384371%_)))) - (if (gx#stx-pair? _%tl8435584378%_) - (let ((_%e8435684381%_ - (gx#syntax-e _%tl8435584378%_))) - (let ((_%hd8435784385%_ + (##cdr _%e8439984417%_)))) + (if (gx#stx-pair? _%tl8440184424%_) + (let ((_%e8440284427%_ + (gx#syntax-e _%tl8440184424%_))) + (let ((_%hd8440384431%_ (let () (declare (not safe)) - (##car _%e8435684381%_))) - (_%tl8435884388%_ + (##car _%e8440284427%_))) + (_%tl8440484434%_ (let () (declare (not safe)) - (##cdr _%e8435684381%_)))) - (if (gx#stx-null? _%tl8435884388%_) - ((lambda (_%L84391%_) + (##cdr _%e8440284427%_)))) + (if (gx#stx-null? _%tl8440484434%_) + ((lambda (_%L84437%_) (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 _%L84391%_ + (cons _%L84437%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8435784385%_) - (_%g8435084364%_ _%g8435184368%_)))) - (_%g8435084364%_ _%g8435184368%_)))) - (_%g8435084364%_ _%g8435184368%_))))) - (_%g8434984405%_ _%$stx84346%_)))) + _%hd8440384431%_) + (_%g8439684410%_ _%g8439784414%_)))) + (_%g8439684410%_ _%g8439784414%_)))) + (_%g8439684410%_ _%g8439784414%_))))) + (_%g8439584451%_ _%$stx84392%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx84409%_) - (let* ((_%g8441384427%_ - (lambda (_%g8441484423%_) + (lambda (_%$stx84455%_) + (let* ((_%g8445984473%_ + (lambda (_%g8446084469%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8441484423%_))) - (_%g8441284468%_ - (lambda (_%g8441484431%_) - (if (gx#stx-pair? _%g8441484431%_) - (let ((_%e8441684434%_ (gx#syntax-e _%g8441484431%_))) - (let ((_%hd8441784438%_ + _%g8446084469%_))) + (_%g8445884514%_ + (lambda (_%g8446084477%_) + (if (gx#stx-pair? _%g8446084477%_) + (let ((_%e8446284480%_ (gx#syntax-e _%g8446084477%_))) + (let ((_%hd8446384484%_ (let () (declare (not safe)) - (##car _%e8441684434%_))) - (_%tl8441884441%_ + (##car _%e8446284480%_))) + (_%tl8446484487%_ (let () (declare (not safe)) - (##cdr _%e8441684434%_)))) - (if (gx#stx-pair? _%tl8441884441%_) - (let ((_%e8441984444%_ - (gx#syntax-e _%tl8441884441%_))) - (let ((_%hd8442084448%_ + (##cdr _%e8446284480%_)))) + (if (gx#stx-pair? _%tl8446484487%_) + (let ((_%e8446584490%_ + (gx#syntax-e _%tl8446484487%_))) + (let ((_%hd8446684494%_ (let () (declare (not safe)) - (##car _%e8441984444%_))) - (_%tl8442184451%_ + (##car _%e8446584490%_))) + (_%tl8446784497%_ (let () (declare (not safe)) - (##cdr _%e8441984444%_)))) - (if (gx#stx-null? _%tl8442184451%_) - ((lambda (_%L84454%_) + (##cdr _%e8446584490%_)))) + (if (gx#stx-null? _%tl8446784497%_) + ((lambda (_%L84500%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L84454%_ + (cons _%L84500%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8442084448%_) - (_%g8441384427%_ _%g8441484431%_)))) - (_%g8441384427%_ _%g8441484431%_)))) - (_%g8441384427%_ _%g8441484431%_))))) - (_%g8441284468%_ _%$stx84409%_)))) + _%hd8446684494%_) + (_%g8445984473%_ _%g8446084477%_)))) + (_%g8445984473%_ _%g8446084477%_)))) + (_%g8445984473%_ _%g8446084477%_))))) + (_%g8445884514%_ _%$stx84455%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx84472%_) - (let* ((_%g8447684486%_ - (lambda (_%g8447784482%_) + (lambda (_%$stx84518%_) + (let* ((_%g8452284532%_ + (lambda (_%g8452384528%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8447784482%_))) - (_%g8447584507%_ - (lambda (_%g8447784490%_) - (if (gx#stx-pair? _%g8447784490%_) - (let ((_%e8447884493%_ (gx#syntax-e _%g8447784490%_))) - (let ((_%hd8447984497%_ + _%g8452384528%_))) + (_%g8452184553%_ + (lambda (_%g8452384536%_) + (if (gx#stx-pair? _%g8452384536%_) + (let ((_%e8452484539%_ (gx#syntax-e _%g8452384536%_))) + (let ((_%hd8452584543%_ (let () (declare (not safe)) - (##car _%e8447884493%_))) - (_%tl8448084500%_ + (##car _%e8452484539%_))) + (_%tl8452684546%_ (let () (declare (not safe)) - (##cdr _%e8447884493%_)))) - (if (gx#stx-null? _%tl8448084500%_) + (##cdr _%e8452484539%_)))) + (if (gx#stx-null? _%tl8452684546%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8447684486%_ _%g8447784490%_)))) - (_%g8447684486%_ _%g8447784490%_))))) - (_%g8447584507%_ _%$stx84472%_)))) + (_%g8452284532%_ _%g8452384536%_)))) + (_%g8452284532%_ _%g8452384536%_))))) + (_%g8452184553%_ _%$stx84518%_)))) (define |[:0:]#defaget| - (lambda (_%$stx84511%_) - (let* ((_%g8451584533%_ - (lambda (_%g8451684529%_) + (lambda (_%$stx84557%_) + (let* ((_%g8456184579%_ + (lambda (_%g8456284575%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8451684529%_))) - (_%g8451484588%_ - (lambda (_%g8451684537%_) - (if (gx#stx-pair? _%g8451684537%_) - (let ((_%e8451984540%_ (gx#syntax-e _%g8451684537%_))) - (let ((_%hd8452084544%_ + _%g8456284575%_))) + (_%g8456084634%_ + (lambda (_%g8456284583%_) + (if (gx#stx-pair? _%g8456284583%_) + (let ((_%e8456584586%_ (gx#syntax-e _%g8456284583%_))) + (let ((_%hd8456684590%_ (let () (declare (not safe)) - (##car _%e8451984540%_))) - (_%tl8452184547%_ + (##car _%e8456584586%_))) + (_%tl8456784593%_ (let () (declare (not safe)) - (##cdr _%e8451984540%_)))) - (if (gx#stx-pair? _%tl8452184547%_) - (let ((_%e8452284550%_ - (gx#syntax-e _%tl8452184547%_))) - (let ((_%hd8452384554%_ + (##cdr _%e8456584586%_)))) + (if (gx#stx-pair? _%tl8456784593%_) + (let ((_%e8456884596%_ + (gx#syntax-e _%tl8456784593%_))) + (let ((_%hd8456984600%_ (let () (declare (not safe)) - (##car _%e8452284550%_))) - (_%tl8452484557%_ + (##car _%e8456884596%_))) + (_%tl8457084603%_ (let () (declare (not safe)) - (##cdr _%e8452284550%_)))) - (if (gx#stx-pair? _%tl8452484557%_) - (let ((_%e8452584560%_ - (gx#syntax-e _%tl8452484557%_))) - (let ((_%hd8452684564%_ + (##cdr _%e8456884596%_)))) + (if (gx#stx-pair? _%tl8457084603%_) + (let ((_%e8457184606%_ + (gx#syntax-e _%tl8457084603%_))) + (let ((_%hd8457284610%_ (let () (declare (not safe)) - (##car _%e8452584560%_))) - (_%tl8452784567%_ + (##car _%e8457184606%_))) + (_%tl8457384613%_ (let () (declare (not safe)) - (##cdr _%e8452584560%_)))) - (if (gx#stx-null? _%tl8452784567%_) - ((lambda (_%L84570%_ _%L84572%_) + (##cdr _%e8457184606%_)))) + (if (gx#stx-null? _%tl8457384613%_) + ((lambda (_%L84616%_ _%L84618%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84572%_ + (cons (cons _%L84618%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L84570%_ + (cons (cons _%L84616%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8452684564%_ - _%hd8452384554%_) - (_%g8451584533%_ - _%g8451684537%_)))) - (_%g8451584533%_ _%g8451684537%_)))) - (_%g8451584533%_ _%g8451684537%_)))) - (_%g8451584533%_ _%g8451684537%_))))) - (_%g8451484588%_ _%$stx84511%_)))) + _%hd8457284610%_ + _%hd8456984600%_) + (_%g8456184579%_ + _%g8456284583%_)))) + (_%g8456184579%_ _%g8456284583%_)))) + (_%g8456184579%_ _%g8456284583%_)))) + (_%g8456184579%_ _%g8456284583%_))))) + (_%g8456084634%_ _%$stx84557%_)))) (define |[:0:]#defpget| - (lambda (_%$stx84592%_) - (let* ((_%g8459684614%_ - (lambda (_%g8459784610%_) + (lambda (_%$stx84638%_) + (let* ((_%g8464284660%_ + (lambda (_%g8464384656%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8459784610%_))) - (_%g8459584669%_ - (lambda (_%g8459784618%_) - (if (gx#stx-pair? _%g8459784618%_) - (let ((_%e8460084621%_ (gx#syntax-e _%g8459784618%_))) - (let ((_%hd8460184625%_ + _%g8464384656%_))) + (_%g8464184715%_ + (lambda (_%g8464384664%_) + (if (gx#stx-pair? _%g8464384664%_) + (let ((_%e8464684667%_ (gx#syntax-e _%g8464384664%_))) + (let ((_%hd8464784671%_ (let () (declare (not safe)) - (##car _%e8460084621%_))) - (_%tl8460284628%_ + (##car _%e8464684667%_))) + (_%tl8464884674%_ (let () (declare (not safe)) - (##cdr _%e8460084621%_)))) - (if (gx#stx-pair? _%tl8460284628%_) - (let ((_%e8460384631%_ - (gx#syntax-e _%tl8460284628%_))) - (let ((_%hd8460484635%_ + (##cdr _%e8464684667%_)))) + (if (gx#stx-pair? _%tl8464884674%_) + (let ((_%e8464984677%_ + (gx#syntax-e _%tl8464884674%_))) + (let ((_%hd8465084681%_ (let () (declare (not safe)) - (##car _%e8460384631%_))) - (_%tl8460584638%_ + (##car _%e8464984677%_))) + (_%tl8465184684%_ (let () (declare (not safe)) - (##cdr _%e8460384631%_)))) - (if (gx#stx-pair? _%tl8460584638%_) - (let ((_%e8460684641%_ - (gx#syntax-e _%tl8460584638%_))) - (let ((_%hd8460784645%_ + (##cdr _%e8464984677%_)))) + (if (gx#stx-pair? _%tl8465184684%_) + (let ((_%e8465284687%_ + (gx#syntax-e _%tl8465184684%_))) + (let ((_%hd8465384691%_ (let () (declare (not safe)) - (##car _%e8460684641%_))) - (_%tl8460884648%_ + (##car _%e8465284687%_))) + (_%tl8465484694%_ (let () (declare (not safe)) - (##cdr _%e8460684641%_)))) - (if (gx#stx-null? _%tl8460884648%_) - ((lambda (_%L84651%_ _%L84653%_) + (##cdr _%e8465284687%_)))) + (if (gx#stx-null? _%tl8465484694%_) + ((lambda (_%L84697%_ _%L84699%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84653%_ + (cons (cons _%L84699%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L84651%_ + (cons (cons _%L84697%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8460784645%_ - _%hd8460484635%_) - (_%g8459684614%_ - _%g8459784618%_)))) - (_%g8459684614%_ _%g8459784618%_)))) - (_%g8459684614%_ _%g8459784618%_)))) - (_%g8459684614%_ _%g8459784618%_))))) - (_%g8459584669%_ _%$stx84592%_)))) + _%hd8465384691%_ + _%hd8465084681%_) + (_%g8464284660%_ + _%g8464384664%_)))) + (_%g8464284660%_ _%g8464384664%_)))) + (_%g8464284660%_ _%g8464384664%_)))) + (_%g8464284660%_ _%g8464384664%_))))) + (_%g8464184715%_ _%$stx84638%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx84673%_) - (let* ((_%g8467784695%_ - (lambda (_%g8467884691%_) + (lambda (_%$stx84719%_) + (let* ((_%g8472384741%_ + (lambda (_%g8472484737%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8467884691%_))) - (_%g8467684750%_ - (lambda (_%g8467884699%_) - (if (gx#stx-pair? _%g8467884699%_) - (let ((_%e8468184702%_ (gx#syntax-e _%g8467884699%_))) - (let ((_%hd8468284706%_ + _%g8472484737%_))) + (_%g8472284796%_ + (lambda (_%g8472484745%_) + (if (gx#stx-pair? _%g8472484745%_) + (let ((_%e8472784748%_ (gx#syntax-e _%g8472484745%_))) + (let ((_%hd8472884752%_ (let () (declare (not safe)) - (##car _%e8468184702%_))) - (_%tl8468384709%_ + (##car _%e8472784748%_))) + (_%tl8472984755%_ (let () (declare (not safe)) - (##cdr _%e8468184702%_)))) - (if (gx#stx-pair? _%tl8468384709%_) - (let ((_%e8468484712%_ - (gx#syntax-e _%tl8468384709%_))) - (let ((_%hd8468584716%_ + (##cdr _%e8472784748%_)))) + (if (gx#stx-pair? _%tl8472984755%_) + (let ((_%e8473084758%_ + (gx#syntax-e _%tl8472984755%_))) + (let ((_%hd8473184762%_ (let () (declare (not safe)) - (##car _%e8468484712%_))) - (_%tl8468684719%_ + (##car _%e8473084758%_))) + (_%tl8473284765%_ (let () (declare (not safe)) - (##cdr _%e8468484712%_)))) - (if (gx#stx-pair? _%tl8468684719%_) - (let ((_%e8468784722%_ - (gx#syntax-e _%tl8468684719%_))) - (let ((_%hd8468884726%_ + (##cdr _%e8473084758%_)))) + (if (gx#stx-pair? _%tl8473284765%_) + (let ((_%e8473384768%_ + (gx#syntax-e _%tl8473284765%_))) + (let ((_%hd8473484772%_ (let () (declare (not safe)) - (##car _%e8468784722%_))) - (_%tl8468984729%_ + (##car _%e8473384768%_))) + (_%tl8473584775%_ (let () (declare (not safe)) - (##cdr _%e8468784722%_)))) - (if (gx#stx-null? _%tl8468984729%_) - ((lambda (_%L84732%_ _%L84734%_) + (##cdr _%e8473384768%_)))) + (if (gx#stx-null? _%tl8473584775%_) + ((lambda (_%L84778%_ _%L84780%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84734%_ + (cons (cons _%L84780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L84732%_ + (cons (cons _%L84778%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8468884726%_ - _%hd8468584716%_) - (_%g8467784695%_ - _%g8467884699%_)))) - (_%g8467784695%_ _%g8467884699%_)))) - (_%g8467784695%_ _%g8467884699%_)))) - (_%g8467784695%_ _%g8467884699%_))))) - (_%g8467684750%_ _%$stx84673%_)))) + _%hd8473484772%_ + _%hd8473184762%_) + (_%g8472384741%_ + _%g8472484745%_)))) + (_%g8472384741%_ _%g8472484745%_)))) + (_%g8472384741%_ _%g8472484745%_)))) + (_%g8472384741%_ _%g8472484745%_))))) + (_%g8472284796%_ _%$stx84719%_)))) (define |[:0:]#DBG| - (lambda (_%$stx84754%_) - (let* ((_%g8475884769%_ - (lambda (_%g8475984765%_) + (lambda (_%$stx84800%_) + (let* ((_%g8480484815%_ + (lambda (_%g8480584811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8475984765%_))) - (_%g8475784798%_ - (lambda (_%g8475984773%_) - (if (gx#stx-pair? _%g8475984773%_) - (let ((_%e8476184776%_ (gx#syntax-e _%g8475984773%_))) - (let ((_%hd8476284780%_ + _%g8480584811%_))) + (_%g8480384844%_ + (lambda (_%g8480584819%_) + (if (gx#stx-pair? _%g8480584819%_) + (let ((_%e8480784822%_ (gx#syntax-e _%g8480584819%_))) + (let ((_%hd8480884826%_ (let () (declare (not safe)) - (##car _%e8476184776%_))) - (_%tl8476384783%_ + (##car _%e8480784822%_))) + (_%tl8480984829%_ (let () (declare (not safe)) - (##cdr _%e8476184776%_)))) - ((lambda (_%L84786%_) + (##cdr _%e8480784822%_)))) + ((lambda (_%L84832%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L84786%_))) - _%tl8476384783%_))) - (_%g8475884769%_ _%g8475984773%_))))) - (_%g8475784798%_ _%$stx84754%_)))) + (cons '1 _%L84832%_))) + _%tl8480984829%_))) + (_%g8480484815%_ _%g8480584819%_))))) + (_%g8480384844%_ _%$stx84800%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx84802%_) - (let* ((_%__stx9075490755%_ _%$stx84802%_) - (_%g8481385027%_ + (lambda (_%$stx84848%_) + (let* ((_%__stx9090190902%_ _%$stx84848%_) + (_%g8485985073%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9075490755%_)))) - (let ((_%__kont9075790758%_ - (lambda (_%L85880%_ - _%L85882%_ - _%L85883%_ - _%L85884%_ - _%L85885%_) - (cons _%L85885%_ + _%__stx9090190902%_)))) + (let ((_%__kont9090490905%_ + (lambda (_%L85926%_ + _%L85928%_ + _%L85929%_ + _%L85930%_ + _%L85931%_) + (cons _%L85931%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8591585918%_ - _%g8591685921%_) - (cons _%g8591585918%_ - _%g8591685921%_)) + (lambda (_%g8596185964%_ + _%g8596285967%_) + (cons _%g8596185964%_ + _%g8596285967%_)) '() - _%L85883%_) - (cons _%L85884%_ - (cons _%L85882%_ - (cons _%L85880%_ + _%L85929%_) + (cons _%L85930%_ + (cons _%L85928%_ + (cons _%L85926%_ '()))))))))) - (_%__kont9076190762%_ - (lambda (_%L85733%_ _%L85735%_ _%L85736%_ _%L85737%_) - (cons _%L85737%_ + (_%__kont9090890909%_ + (lambda (_%L85779%_ _%L85781%_ _%L85782%_ _%L85783%_) + (cons _%L85783%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8576085763%_ - _%g8576185766%_) - (cons _%g8576085763%_ - _%g8576185766%_)) + (lambda (_%g8580685809%_ + _%g8580785812%_) + (cons _%g8580685809%_ + _%g8580785812%_)) '() - _%L85735%_) - (cons _%L85736%_ - (cons _%L85733%_ - (cons _%L85733%_ + _%L85781%_) + (cons _%L85782%_ + (cons _%L85779%_ + (cons _%L85779%_ '()))))))))) - (_%__kont9076590766%_ - (lambda (_%L85636%_) + (_%__kont9091290913%_ + (lambda (_%L85682%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L85636%_ + (cons _%L85682%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont9076790768%_ - (lambda (_%L85559%_ - _%L85561%_ - _%L85562%_ - _%L85563%_ - _%L85564%_ - _%L85565%_) - (cons _%L85565%_ + (_%__kont9091490915%_ + (lambda (_%L85605%_ + _%L85607%_ + _%L85608%_ + _%L85609%_ + _%L85610%_ + _%L85611%_) + (cons _%L85611%_ (cons '2 - (cons (cons (cons _%L85563%_ - (cons _%L85562%_ '())) - _%L85564%_) - (cons _%L85561%_ _%L85559%_)))))) - (_%__kont9076990770%_ - (lambda (_%L85440%_ - _%L85442%_ - _%L85443%_ - _%L85444%_ - _%L85445%_) - (cons _%L85445%_ + (cons (cons (cons _%L85609%_ + (cons _%L85608%_ '())) + _%L85610%_) + (cons _%L85607%_ _%L85605%_)))))) + (_%__kont9091690917%_ + (lambda (_%L85486%_ + _%L85488%_ + _%L85489%_ + _%L85490%_ + _%L85491%_) + (cons _%L85491%_ (cons '2 - (cons (cons (cons _%L85443%_ - (cons _%L85443%_ '())) - _%L85444%_) - (cons _%L85442%_ _%L85440%_)))))) - (_%__kont9077190772%_ - (lambda (_%L85357%_ _%L85359%_ _%L85360%_) - (cons _%L85360%_ - (cons '3 (cons '() (cons _%L85359%_ _%L85357%_)))))) - (_%__kont9077390774%_ - (lambda (_%L85278%_ - _%L85280%_ - _%L85281%_ - _%L85282%_ - _%L85283%_) - (cons _%L85283%_ + (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 '3 - (cons (cons _%L85281%_ _%L85282%_) - (cons _%L85280%_ _%L85278%_)))))) - (_%__kont9077590776%_ - (lambda (_%L85162%_ - _%L85164%_ - _%L85165%_ - _%L85166%_ - _%L85167%_ - _%L85168%_) + (cons (cons _%L85327%_ _%L85328%_) + (cons _%L85326%_ _%L85324%_)))))) + (_%__kont9092290923%_ + (lambda (_%L85208%_ + _%L85210%_ + _%L85211%_ + _%L85212%_ + _%L85213%_ + _%L85214%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L85165%_ '())) + (cons _%L85211%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L85162%_ '()))) + (cons _%L85208%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +744,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g8520285205%_ - _%g8520385208%_) - (cons _%g8520285205%_ - _%g8520385208%_)) + (lambda (_%g8524885251%_ + _%g8524985254%_) + (cons _%g8524885251%_ + _%g8524985254%_)) '() - _%L85167%_) + _%L85213%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g8520085211%_ - _%g8520185214%_) + (lambda (_%g8524685257%_ + _%g8524785260%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g8520085211%_ '()))) - _%g8520185214%_)) + (cons _%g8524685257%_ '()))) + _%g8524785260%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L85166%_)) + _%L85212%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L85164%_ '())) + (cons _%L85210%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match9110591106%_ - (lambda (_%e8498385034%_ - _%hd8498485038%_ - _%tl8498585041%_ - _%e8498685044%_ - _%hd8498785048%_ - _%tl8498885051%_ - _%e8498985054%_ - _%e8499085058%_ - _%hd8499185062%_ - _%tl8499285065%_ - _%__splice9077790778%_ - _%target8499385068%_ - _%tl8499585071%_) - (letrec ((_%loop8499685074%_ - (lambda (_%hd8499485078%_ - _%exprs8500085081%_ - _%names8500185083%_) - (if (gx#stx-pair? _%hd8499485078%_) - (let ((_%e8499785086%_ - (gx#syntax-e _%hd8499485078%_))) - (let ((_%lp-tl8499985093%_ + (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 () (declare (not safe)) - (##cdr _%e8499785086%_))) - (_%lp-hd8499885090%_ + (##cdr _%e8504385132%_))) + (_%lp-hd8504485136%_ (let () (declare (not safe)) - (##car _%e8499785086%_)))) + (##car _%e8504385132%_)))) (if (gx#stx-pair? - _%lp-hd8499885090%_) - (let ((_%e8501685096%_ + _%lp-hd8504485136%_) + (let ((_%e8506285142%_ (gx#syntax-e - _%lp-hd8499885090%_))) - (let ((_%tl8501885103%_ + _%lp-hd8504485136%_))) + (let ((_%tl8506485149%_ (let () (declare (not safe)) - (##cdr _%e8501685096%_))) - (_%hd8501785100%_ + (##cdr _%e8506285142%_))) + (_%hd8506385146%_ (let () (declare (not safe)) - (##car _%e8501685096%_)))) + (##car _%e8506285142%_)))) (if (gx#stx-pair? - _%tl8501885103%_) - (let ((_%e8501985106%_ + _%tl8506485149%_) + (let ((_%e8506585152%_ (gx#syntax-e - _%tl8501885103%_))) - (let ((_%tl8502185113%_ + _%tl8506485149%_))) + (let ((_%tl8506785159%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8501985106%_))) - (_%hd8502085110%_ - (let () (declare (not safe)) (##car _%e8501985106%_)))) - (if (gx#stx-null? _%tl8502185113%_) - (_%loop8499685074%_ - _%lp-tl8499985093%_ - (cons _%hd8502085110%_ _%exprs8500085081%_) - (cons _%hd8501785100%_ _%names8500185083%_)) - (let () (declare (not safe)) (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))))) + (##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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))))) - (let ((_%names8500385119%_ - (reverse _%names8500185083%_)) - (_%exprs8500285116%_ - (reverse _%exprs8500085081%_))) - (if (gx#stx-pair? _%tl8499285065%_) - (let ((_%e8500485122%_ + (_%g8485985073%_))))) + (let ((_%names8504985165%_ + (reverse _%names8504785129%_)) + (_%exprs8504885162%_ + (reverse _%exprs8504685127%_))) + (if (gx#stx-pair? _%tl8503885111%_) + (let ((_%e8505085168%_ (gx#syntax-e - _%tl8499285065%_))) - (let ((_%tl8500685129%_ + _%tl8503885111%_))) + (let ((_%tl8505285175%_ (let () (declare (not safe)) - (##cdr _%e8500485122%_))) - (_%hd8500585126%_ + (##cdr _%e8505085168%_))) + (_%hd8505185172%_ (let () (declare (not safe)) - (##car _%e8500485122%_)))) + (##car _%e8505085168%_)))) (if (gx#stx-null? - _%hd8500585126%_) + _%hd8505185172%_) (if (gx#stx-pair? - _%tl8500685129%_) - (let ((_%e8500785132%_ + _%tl8505285175%_) + (let ((_%e8505385178%_ (gx#syntax-e - _%tl8500685129%_))) - (let ((_%tl8500985139%_ + _%tl8505285175%_))) + (let ((_%tl8505585185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8500785132%_))) - (_%hd8500885136%_ + (let () (declare (not safe)) (##cdr _%e8505385178%_))) + (_%hd8505485182%_ (let () (declare (not safe)) - (##car _%e8500785132%_)))) - (if (gx#stx-pair? _%tl8500985139%_) - (let ((_%e8501085142%_ (gx#syntax-e _%tl8500985139%_))) - (let ((_%tl8501285149%_ + (##car _%e8505385178%_)))) + (if (gx#stx-pair? _%tl8505585185%_) + (let ((_%e8505685188%_ (gx#syntax-e _%tl8505585185%_))) + (let ((_%tl8505885195%_ (let () (declare (not safe)) - (##cdr _%e8501085142%_))) - (_%hd8501185146%_ + (##cdr _%e8505685188%_))) + (_%hd8505785192%_ (let () (declare (not safe)) - (##car _%e8501085142%_)))) - (if (gx#stx-pair? _%tl8501285149%_) - (let ((_%e8501385152%_ - (gx#syntax-e _%tl8501285149%_))) - (let ((_%tl8501585159%_ + (##car _%e8505685188%_)))) + (if (gx#stx-pair? _%tl8505885195%_) + (let ((_%e8505985198%_ + (gx#syntax-e _%tl8505885195%_))) + (let ((_%tl8506185205%_ (let () (declare (not safe)) - (##cdr _%e8501385152%_))) - (_%hd8501485156%_ + (##cdr _%e8505985198%_))) + (_%hd8506085202%_ (let () (declare (not safe)) - (##car _%e8501385152%_)))) - (if (gx#stx-null? _%tl8501585159%_) - (_%__kont9077590776%_ - _%hd8501485156%_ - _%hd8501185146%_ - _%hd8500885136%_ - _%exprs8500285116%_ - _%names8500385119%_ - _%hd8498485038%_) + (##car _%e8505985198%_)))) + (if (gx#stx-null? _%tl8506185205%_) + (_%__kont9092290923%_ + _%hd8506085202%_ + _%hd8505785192%_ + _%hd8505485182%_ + _%exprs8504885162%_ + _%names8504985165%_ + _%hd8503085084%_) (let () (declare (not safe)) - (_%g8481385027%_))))) + (_%g8485985073%_))))) (let () (declare (not safe)) - (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))) + (_%g8485985073%_))))) + (let () (declare (not safe)) (_%g8485985073%_))))) + (let () (declare (not safe)) (_%g8485985073%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))))) + (_%g8485985073%_))))) (let () (declare (not safe)) - (_%g8481385027%_)))))))) - (_%loop8499685074%_ _%target8499385068%_ '() '())))) - (_%__match9088390884%_ - (lambda (_%e8485585659%_ - _%hd8485685663%_ - _%tl8485785666%_ - _%e8485885669%_ - _%hd8485985673%_ - _%tl8486085676%_ - _%e8486185679%_ - _%e8486285683%_ - _%hd8486385687%_ - _%tl8486485690%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (letrec ((_%loop8486885709%_ - (lambda (_%hd8486685713%_ _%exprs8487285716%_) - (if (gx#stx-pair? _%hd8486685713%_) - (let ((_%e8486985719%_ - (gx#syntax-e _%hd8486685713%_))) - (let ((_%lp-tl8487185726%_ + (_%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%_ (let () (declare (not safe)) - (##cdr _%e8486985719%_))) - (_%lp-hd8487085723%_ + (##cdr _%e8491585765%_))) + (_%lp-hd8491685769%_ (let () (declare (not safe)) - (##car _%e8486985719%_)))) - (_%loop8486885709%_ - _%lp-tl8487185726%_ - (cons _%lp-hd8487085723%_ - _%exprs8487285716%_)))) - (let ((_%exprs8487385729%_ - (reverse _%exprs8487285716%_))) - (_%__kont9076190762%_ - _%hd8487585703%_ - _%exprs8487385729%_ - _%hd8486385687%_ - _%hd8485685663%_)))))) - (_%loop8486885709%_ _%target8486585693%_ '())))) - (_%__match9084390844%_ - (lambda (_%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9075990760%_ - _%target8483085810%_ - _%tl8483285813%_ - _%e8483985816%_ - _%hd8484085820%_ - _%tl8484185823%_ - _%e8484285826%_ - _%hd8484385830%_ - _%tl8484485833%_ - _%e8484585836%_ - _%hd8484685840%_ - _%tl8484785843%_ - _%e8484885846%_ - _%hd8484985850%_ - _%tl8485085853%_) - (letrec ((_%loop8483385856%_ - (lambda (_%hd8483185860%_ _%exprs8483785863%_) - (if (gx#stx-pair? _%hd8483185860%_) - (let ((_%e8483485866%_ - (gx#syntax-e _%hd8483185860%_))) - (let ((_%lp-tl8483685873%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e8483485866%_))) - (_%lp-hd8483585870%_ + (##cdr _%e8488085912%_))) + (_%lp-hd8488185916%_ (let () (declare (not safe)) - (##car _%e8483485866%_)))) - (_%loop8483385856%_ - _%lp-tl8483685873%_ - (cons _%lp-hd8483585870%_ - _%exprs8483785863%_)))) - (let ((_%exprs8483885876%_ - (reverse _%exprs8483785863%_))) - (_%__kont9075790758%_ - _%hd8484985850%_ - _%hd8484685840%_ - _%exprs8483885876%_ - _%hd8482885804%_ - _%hd8482185780%_)))))) - (_%loop8483385856%_ _%target8483085810%_ '()))))) - (if (gx#stx-pair? _%__stx9075490755%_) - (let ((_%e8482085776%_ (gx#syntax-e _%__stx9075490755%_))) - (let ((_%tl8482285783%_ + (##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%_ (let () (declare (not safe)) - (##cdr _%e8482085776%_))) - (_%hd8482185780%_ + (##cdr _%e8486685822%_))) + (_%hd8486785826%_ (let () (declare (not safe)) - (##car _%e8482085776%_)))) - (if (gx#stx-pair? _%tl8482285783%_) - (let ((_%e8482385786%_ - (gx#syntax-e _%tl8482285783%_))) - (let ((_%tl8482585793%_ + (##car _%e8486685822%_)))) + (if (gx#stx-pair? _%tl8486885829%_) + (let ((_%e8486985832%_ + (gx#syntax-e _%tl8486885829%_))) + (let ((_%tl8487185839%_ (let () (declare (not safe)) - (##cdr _%e8482385786%_))) - (_%hd8482485790%_ + (##cdr _%e8486985832%_))) + (_%hd8487085836%_ (let () (declare (not safe)) - (##car _%e8482385786%_)))) - (if (gx#stx-datum? _%hd8482485790%_) - (let ((_%e8482685796%_ - (gx#stx-e _%hd8482485790%_))) - (if (equal? _%e8482685796%_ '1) - (if (gx#stx-pair? _%tl8482585793%_) - (let ((_%e8482785800%_ + (##car _%e8486985832%_)))) + (if (gx#stx-datum? _%hd8487085836%_) + (let ((_%e8487285842%_ + (gx#stx-e _%hd8487085836%_))) + (if (equal? _%e8487285842%_ '1) + (if (gx#stx-pair? _%tl8487185839%_) + (let ((_%e8487385846%_ (gx#syntax-e - _%tl8482585793%_))) - (let ((_%tl8482985807%_ + _%tl8487185839%_))) + (let ((_%tl8487585853%_ (let () (declare (not safe)) - (##cdr _%e8482785800%_))) - (_%hd8482885804%_ + (##cdr _%e8487385846%_))) + (_%hd8487485850%_ (let () (declare (not safe)) - (##car _%e8482785800%_)))) + (##car _%e8487385846%_)))) (if (gx#stx-pair/null? - _%tl8482985807%_) - (if (let ((__tmp91197 + _%tl8487585853%_) + (if (let ((__tmp91349 (gx#stx-length - _%tl8482985807%_))) + _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91197 + (##fx>= __tmp91349 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice9075990760%_ - (gx#syntax-split-splice _%tl8482985807%_ '2))) - (let ((_%tl8483285813%_ + (let ((_%__splice9090690907%_ + (gx#syntax-split-splice _%tl8487585853%_ '2))) + (let ((_%tl8487885859%_ (let () (declare (not safe)) - (##vector-ref _%__splice9075990760%_ '1))) - (_%target8483085810%_ + (##vector-ref _%__splice9090690907%_ '1))) + (_%target8487685856%_ (let () (declare (not safe)) - (##vector-ref _%__splice9075990760%_ '0)))) - (if (gx#stx-pair? _%tl8483285813%_) - (let ((_%e8483985816%_ (gx#syntax-e _%tl8483285813%_))) - (let ((_%tl8484185823%_ + (##vector-ref _%__splice9090690907%_ '0)))) + (if (gx#stx-pair? _%tl8487885859%_) + (let ((_%e8488585862%_ (gx#syntax-e _%tl8487885859%_))) + (let ((_%tl8488785869%_ (let () (declare (not safe)) - (##cdr _%e8483985816%_))) - (_%hd8484085820%_ + (##cdr _%e8488585862%_))) + (_%hd8488685866%_ (let () (declare (not safe)) - (##car _%e8483985816%_)))) - (if (gx#stx-pair? _%hd8484085820%_) - (let ((_%e8484285826%_ - (gx#syntax-e _%hd8484085820%_))) - (let ((_%tl8484485833%_ + (##car _%e8488585862%_)))) + (if (gx#stx-pair? _%hd8488685866%_) + (let ((_%e8488885872%_ + (gx#syntax-e _%hd8488685866%_))) + (let ((_%tl8489085879%_ (let () (declare (not safe)) - (##cdr _%e8484285826%_))) - (_%hd8484385830%_ + (##cdr _%e8488885872%_))) + (_%hd8488985876%_ (let () (declare (not safe)) - (##car _%e8484285826%_)))) - (if (gx#identifier? _%hd8484385830%_) + (##car _%e8488885872%_)))) + (if (gx#identifier? _%hd8488985876%_) (if (gx#free-identifier=? - |[1]#_g91198_| - _%hd8484385830%_) - (if (gx#stx-pair? _%tl8484485833%_) - (let ((_%e8484585836%_ + |[1]#_g91350_| + _%hd8488985876%_) + (if (gx#stx-pair? _%tl8489085879%_) + (let ((_%e8489185882%_ (gx#syntax-e - _%tl8484485833%_))) - (let ((_%tl8484785843%_ + _%tl8489085879%_))) + (let ((_%tl8489385889%_ (let () (declare (not safe)) - (##cdr _%e8484585836%_))) - (_%hd8484685840%_ + (##cdr _%e8489185882%_))) + (_%hd8489285886%_ (let () (declare (not safe)) - (##car _%e8484585836%_)))) + (##car _%e8489185882%_)))) (if (gx#stx-null? - _%tl8484785843%_) + _%tl8489385889%_) (if (gx#stx-pair? - _%tl8484185823%_) - (let ((_%e8484885846%_ + _%tl8488785869%_) + (let ((_%e8489485892%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8484185823%_))) - (let ((_%tl8485085853%_ + (gx#syntax-e _%tl8488785869%_))) + (let ((_%tl8489685899%_ (let () (declare (not safe)) - (##cdr _%e8484885846%_))) - (_%hd8484985850%_ + (##cdr _%e8489485892%_))) + (_%hd8489585896%_ (let () (declare (not safe)) - (##car _%e8484885846%_)))) - (if (gx#stx-null? _%tl8485085853%_) - (_%__match9084390844%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9075990760%_ - _%target8483085810%_ - _%tl8483285813%_ - _%e8483985816%_ - _%hd8484085820%_ - _%tl8484185823%_ - _%e8484285826%_ - _%hd8484385830%_ - _%tl8484485833%_ - _%e8484585836%_ - _%hd8484685840%_ - _%tl8484785843%_ - _%e8484885846%_ - _%hd8484985850%_ - _%tl8485085853%_) - (if (let ((__tmp91199 - (gx#stx-length _%tl8482985807%_))) + (##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%_))) (declare (not safe)) - (##fx>= __tmp91199 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp91351 '1)) + (let ((_%__splice9091090911%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8487585853%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8491385742%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '1))) - (_%target8486585693%_ + (_%target8491185739%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ + (gx#syntax-e _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) + (##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? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91200 (gx#stx-length _%tl8482985807%_))) + (_%g8485985073%_))))))) + (if (let ((__tmp91352 (gx#stx-length _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91200 '1)) - (let ((_%__splice9076390764%_ - (gx#syntax-split-splice _%tl8482985807%_ '1))) - (let ((_%tl8486785696%_ + (##fx>= __tmp91352 '1)) + (let ((_%__splice9091090911%_ + (gx#syntax-split-splice _%tl8487585853%_ '1))) + (let ((_%tl8491385742%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9091090911%_ '1))) + (_%target8491185739%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9091090911%_ '0)))) + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ + (gx#syntax-e _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (##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)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_))))) - (if (let ((__tmp91201 (gx#stx-length _%tl8482985807%_))) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) + (let () (declare (not safe)) (_%g8485985073%_))))) + (if (let ((__tmp91353 (gx#stx-length _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91201 '1)) - (let ((_%__splice9076390764%_ - (gx#syntax-split-splice _%tl8482985807%_ '1))) - (let ((_%tl8486785696%_ + (##fx>= __tmp91353 '1)) + (let ((_%__splice9091090911%_ + (gx#syntax-split-splice _%tl8487585853%_ '1))) + (let ((_%tl8491385742%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9091090911%_ '1))) + (_%target8491185739%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9091090911%_ '0)))) + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ + (gx#syntax-e _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (##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)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_))))))) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) + (let () (declare (not safe)) (_%g8485985073%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp91202 + (if (let ((__tmp91354 (gx#stx-length - _%tl8482985807%_))) + _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91202 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp91354 '1)) + (let ((_%__splice9091090911%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8487585853%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8491385742%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9091090911%_ '1))) + (_%target8491185739%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9091090911%_ '0)))) + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ (gx#syntax-e _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (##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)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) + (let () (declare (not safe)) (_%g8485985073%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_))))) - (if (let ((__tmp91203 + (_%g8485985073%_))))) + (if (let ((__tmp91355 (gx#stx-length - _%tl8482985807%_))) + _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91203 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp91355 '1)) + (let ((_%__splice9091090911%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8487585853%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8491385742%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '1))) - (_%target8486585693%_ + (_%target8491185739%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '0)))) (if (gx#stx-pair? - _%tl8486785696%_) - (let ((_%e8487485699%_ + _%tl8491385742%_) + (let ((_%e8492085745%_ (gx#syntax-e - _%tl8486785696%_))) - (let ((_%tl8487685706%_ + _%tl8491385742%_))) + (let ((_%tl8492285752%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (let () (declare (not safe)) (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_))))) - (if (let ((__tmp91204 + (_%g8485985073%_))))) + (if (let ((__tmp91356 (gx#stx-length - _%tl8482985807%_))) + _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91204 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp91356 '1)) + (let ((_%__splice9091090911%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8487585853%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8491385742%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '1))) - (_%target8486585693%_ + (_%target8491185739%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '0)))) (if (gx#stx-pair? - _%tl8486785696%_) - (let ((_%e8487485699%_ + _%tl8491385742%_) + (let ((_%e8492085745%_ (gx#syntax-e - _%tl8486785696%_))) - (let ((_%tl8487685706%_ + _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ - (let () (declare (not safe)) (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (##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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91205 - (gx#stx-length _%tl8482985807%_))) + (_%g8485985073%_))))))) + (if (let ((__tmp91357 + (gx#stx-length _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91205 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp91357 '1)) + (let ((_%__splice9091090911%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8487585853%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8491385742%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '1))) - (_%target8486585693%_ + (_%target8491185739%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ (gx#syntax-e - _%tl8486785696%_))) - (let ((_%tl8487685706%_ + _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) + (##car _%e8492085745%_)))) (if (gx#stx-null? - _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) + _%tl8492285752%_) + (_%__match9103091031%_ + _%e8486685822%_ + _%hd8486785826%_ + _%tl8486885829%_ + _%e8486985832%_ + _%hd8487085836%_ + _%tl8487185839%_ + _%e8487285842%_ + _%e8487385846%_ + _%hd8487485850%_ + _%tl8487585853%_ + _%__splice9091090911%_ + _%target8491185739%_ + _%tl8491385742%_ + _%e8492085745%_ + _%hd8492185749%_ + _%tl8492285752%_) (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91206 - (gx#stx-length _%tl8482985807%_))) + (_%g8485985073%_))))))) + (if (let ((__tmp91358 + (gx#stx-length _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91206 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp91358 '1)) + (let ((_%__splice9091090911%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8487585853%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8491385742%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '1))) - (_%target8486585693%_ + (_%target8491185739%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ + (gx#syntax-e _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (##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)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91207 (gx#stx-length _%tl8482985807%_))) + (_%g8485985073%_))))))) + (if (let ((__tmp91359 (gx#stx-length _%tl8487585853%_))) (declare (not safe)) - (##fx>= __tmp91207 '1)) - (let ((_%__splice9076390764%_ - (gx#syntax-split-splice _%tl8482985807%_ '1))) - (let ((_%tl8486785696%_ + (##fx>= __tmp91359 '1)) + (let ((_%__splice9091090911%_ + (gx#syntax-split-splice _%tl8487585853%_ '1))) + (let ((_%tl8491385742%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9091090911%_ '1))) + (_%target8491185739%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9091090911%_ '0)))) + (if (gx#stx-pair? _%tl8491385742%_) + (let ((_%e8492085745%_ + (gx#syntax-e _%tl8491385742%_))) + (let ((_%tl8492285752%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8492085745%_))) + (_%hd8492185749%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (##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)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_))))) + (_%g8485985073%_)))))) + (if (gx#stx-null? _%tl8487585853%_) + (_%__kont9091290913%_ _%hd8487485850%_) + (let () (declare (not safe)) (_%g8485985073%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8487585853%_) + (_%__kont9091290913%_ + _%hd8487485850%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) + (_%g8485985073%_)))))) (let () (declare (not safe)) - (_%g8481385027%_))) - (if (equal? _%e8482685796%_ '2) - (if (gx#stx-pair? _%tl8482585793%_) - (let ((_%e8490185499%_ + (_%g8485985073%_))) + (if (equal? _%e8487285842%_ '2) + (if (gx#stx-pair? _%tl8487185839%_) + (let ((_%e8494785545%_ (gx#syntax-e - _%tl8482585793%_))) - (let ((_%tl8490385506%_ + _%tl8487185839%_))) + (let ((_%tl8494985552%_ (let () (declare (not safe)) - (##cdr _%e8490185499%_))) - (_%hd8490285503%_ + (##cdr _%e8494785545%_))) + (_%hd8494885549%_ (let () (declare (not safe)) - (##car _%e8490185499%_)))) + (##car _%e8494785545%_)))) (if (gx#stx-pair? - _%tl8490385506%_) - (let ((_%e8490485509%_ + _%tl8494985552%_) + (let ((_%e8495085555%_ (gx#syntax-e - _%tl8490385506%_))) - (let ((_%tl8490685516%_ + _%tl8494985552%_))) + (let ((_%tl8495285562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8490485509%_))) - (_%hd8490585513%_ + (let () (declare (not safe)) (##cdr _%e8495085555%_))) + (_%hd8495185559%_ (let () (declare (not safe)) - (##car _%e8490485509%_)))) - (if (gx#stx-pair? _%hd8490585513%_) - (let ((_%e8490785519%_ (gx#syntax-e _%hd8490585513%_))) - (let ((_%tl8490985526%_ + (##car _%e8495085555%_)))) + (if (gx#stx-pair? _%hd8495185559%_) + (let ((_%e8495385565%_ (gx#syntax-e _%hd8495185559%_))) + (let ((_%tl8495585572%_ (let () (declare (not safe)) - (##cdr _%e8490785519%_))) - (_%hd8490885523%_ + (##cdr _%e8495385565%_))) + (_%hd8495485569%_ (let () (declare (not safe)) - (##car _%e8490785519%_)))) - (if (gx#stx-pair? _%hd8490885523%_) - (let ((_%e8491085529%_ - (gx#syntax-e _%hd8490885523%_))) - (let ((_%tl8491285536%_ + (##car _%e8495385565%_)))) + (if (gx#stx-pair? _%hd8495485569%_) + (let ((_%e8495685575%_ + (gx#syntax-e _%hd8495485569%_))) + (let ((_%tl8495885582%_ (let () (declare (not safe)) - (##cdr _%e8491085529%_))) - (_%hd8491185533%_ + (##cdr _%e8495685575%_))) + (_%hd8495785579%_ (let () (declare (not safe)) - (##car _%e8491085529%_)))) - (if (gx#identifier? _%hd8491185533%_) + (##car _%e8495685575%_)))) + (if (gx#identifier? _%hd8495785579%_) (if (gx#free-identifier=? - |[1]#_g91208_| - _%hd8491185533%_) - (if (gx#stx-pair? _%tl8491285536%_) - (let ((_%e8491385539%_ + |[1]#_g91360_| + _%hd8495785579%_) + (if (gx#stx-pair? _%tl8495885582%_) + (let ((_%e8495985585%_ (gx#syntax-e - _%tl8491285536%_))) - (let ((_%tl8491585546%_ + _%tl8495885582%_))) + (let ((_%tl8496185592%_ (let () (declare (not safe)) - (##cdr _%e8491385539%_))) - (_%hd8491485543%_ + (##cdr _%e8495985585%_))) + (_%hd8496085589%_ (let () (declare (not safe)) - (##car _%e8491385539%_)))) + (##car _%e8495985585%_)))) (if (gx#stx-null? - _%tl8491585546%_) + _%tl8496185592%_) (if (gx#stx-pair? - _%tl8490985526%_) - (let ((_%e8491685549%_ + _%tl8495585572%_) + (let ((_%e8496285595%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8490985526%_))) - (let ((_%tl8491885556%_ + (gx#syntax-e _%tl8495585572%_))) + (let ((_%tl8496485602%_ (let () (declare (not safe)) - (##cdr _%e8491685549%_))) - (_%hd8491785553%_ + (##cdr _%e8496285595%_))) + (_%hd8496385599%_ (let () (declare (not safe)) - (##car _%e8491685549%_)))) - (_%__kont9076790768%_ - _%tl8490685516%_ - _%tl8491885556%_ - _%hd8491785553%_ - _%hd8491485543%_ - _%hd8490285503%_ - _%hd8482185780%_))) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)))) + (##car _%e8496285595%_)))) + (_%__kont9091490915%_ + _%tl8495285562%_ + _%tl8496485602%_ + _%hd8496385599%_ + _%hd8496085589%_ + _%hd8494885549%_ + _%hd8486785826%_))) + (_%__kont9091690917%_ + _%tl8495285562%_ + _%tl8495585572%_ + _%hd8495485569%_ + _%hd8494885549%_ + _%hd8486785826%_)) + (_%__kont9091690917%_ + _%tl8495285562%_ + _%tl8495585572%_ + _%hd8495485569%_ + _%hd8494885549%_ + _%hd8486785826%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)))) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)))) - (if (gx#stx-null? _%hd8490585513%_) - (_%__kont9077190772%_ - _%tl8490685516%_ - _%hd8490285503%_ - _%hd8482185780%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) - (let () (declare (not safe)) (_%g8481385027%_))))) + (_%__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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))) - (if (equal? _%e8482685796%_ '3) + (_%g8485985073%_))) + (if (equal? _%e8487285842%_ '3) (if (gx#stx-pair? - _%tl8482585793%_) - (let ((_%e8496885248%_ + _%tl8487185839%_) + (let ((_%e8501485294%_ (gx#syntax-e - _%tl8482585793%_))) - (let ((_%tl8497085255%_ + _%tl8487185839%_))) + (let ((_%tl8501685301%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8496885248%_))) - (_%hd8496985252%_ - (let () (declare (not safe)) (##car _%e8496885248%_)))) - (if (gx#stx-pair? _%tl8497085255%_) - (let ((_%e8497185258%_ (gx#syntax-e _%tl8497085255%_))) - (let ((_%tl8497385265%_ + (##cdr _%e8501485294%_))) + (_%hd8501585298%_ + (let () (declare (not safe)) (##car _%e8501485294%_)))) + (if (gx#stx-pair? _%tl8501685301%_) + (let ((_%e8501785304%_ (gx#syntax-e _%tl8501685301%_))) + (let ((_%tl8501985311%_ (let () (declare (not safe)) - (##cdr _%e8497185258%_))) - (_%hd8497285262%_ + (##cdr _%e8501785304%_))) + (_%hd8501885308%_ (let () (declare (not safe)) - (##car _%e8497185258%_)))) - (if (gx#stx-pair? _%hd8497285262%_) - (let ((_%e8497485268%_ - (gx#syntax-e _%hd8497285262%_))) - (let ((_%tl8497685275%_ + (##car _%e8501785304%_)))) + (if (gx#stx-pair? _%hd8501885308%_) + (let ((_%e8502085314%_ + (gx#syntax-e _%hd8501885308%_))) + (let ((_%tl8502285321%_ (let () (declare (not safe)) - (##cdr _%e8497485268%_))) - (_%hd8497585272%_ + (##cdr _%e8502085314%_))) + (_%hd8502185318%_ (let () (declare (not safe)) - (##car _%e8497485268%_)))) - (_%__kont9077390774%_ - _%tl8497385265%_ - _%tl8497685275%_ - _%hd8497585272%_ - _%hd8496985252%_ - _%hd8482185780%_))) - (if (gx#stx-pair/null? _%hd8496985252%_) - (let ((_%__splice9077790778%_ + (##car _%e8502085314%_)))) + (_%__kont9092090921%_ + _%tl8501985311%_ + _%tl8502285321%_ + _%hd8502185318%_ + _%hd8501585298%_ + _%hd8486785826%_))) + (if (gx#stx-pair/null? _%hd8501585298%_) + (let ((_%__splice9092490925%_ (gx#syntax-split-splice - _%hd8496985252%_ + _%hd8501585298%_ '0))) - (let ((_%tl8499585071%_ + (let ((_%tl8504185117%_ (let () (declare (not safe)) (##vector-ref - _%__splice9077790778%_ + _%__splice9092490925%_ '1))) - (_%target8499385068%_ + (_%target8503985114%_ (let () (declare (not safe)) (##vector-ref - _%__splice9077790778%_ + _%__splice9092490925%_ '0)))) - (if (gx#stx-null? _%tl8499585071%_) - (_%__match9110591106%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8496885248%_ - _%hd8496985252%_ - _%tl8497085255%_ - _%__splice9077790778%_ - _%target8499385068%_ - _%tl8499585071%_) + (if (gx#stx-null? _%tl8504185117%_) + (_%__match9125291253%_ + _%e8486685822%_ + _%hd8486785826%_ + _%tl8486885829%_ + _%e8486985832%_ + _%hd8487085836%_ + _%tl8487185839%_ + _%e8487285842%_ + _%e8501485294%_ + _%hd8501585298%_ + _%tl8501685301%_ + _%__splice9092490925%_ + _%target8503985114%_ + _%tl8504185117%_) (let () (declare (not safe)) - (_%g8481385027%_))))) + (_%g8485985073%_))))) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-pair/null? _%hd8496985252%_) - (let ((_%__splice9077790778%_ - (gx#syntax-split-splice _%hd8496985252%_ '0))) - (let ((_%tl8499585071%_ + (_%g8485985073%_)))))) + (if (gx#stx-pair/null? _%hd8501585298%_) + (let ((_%__splice9092490925%_ + (gx#syntax-split-splice _%hd8501585298%_ '0))) + (let ((_%tl8504185117%_ (let () (declare (not safe)) - (##vector-ref _%__splice9077790778%_ '1))) - (_%target8499385068%_ + (##vector-ref _%__splice9092490925%_ '1))) + (_%target8503985114%_ (let () (declare (not safe)) - (##vector-ref _%__splice9077790778%_ '0)))) - (if (gx#stx-null? _%tl8499585071%_) - (_%__match9110591106%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8496885248%_ - _%hd8496985252%_ - _%tl8497085255%_ - _%__splice9077790778%_ - _%target8499385068%_ - _%tl8499585071%_) + (##vector-ref _%__splice9092490925%_ '0)))) + (if (gx#stx-null? _%tl8504185117%_) + (_%__match9125291253%_ + _%e8486685822%_ + _%hd8486785826%_ + _%tl8486885829%_ + _%e8486985832%_ + _%hd8487085836%_ + _%tl8487185839%_ + _%e8487285842%_ + _%e8501485294%_ + _%hd8501585298%_ + _%tl8501685301%_ + _%__splice9092490925%_ + _%target8503985114%_ + _%tl8504185117%_) (let () (declare (not safe)) - (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (_%g8485985073%_))))) + (let () (declare (not safe)) (_%g8485985073%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))) + (_%g8485985073%_))) (let () (declare (not safe)) - (_%g8481385027%_)))))) + (_%g8485985073%_)))))) (let () (declare (not safe)) - (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_)))))))))) + (_%g8485985073%_))))) + (let () (declare (not safe)) (_%g8485985073%_))))) + (let () (declare (not safe)) (_%g8485985073%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index e6a98ebd7..ba42da1f1 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 1713631266) '#!void) +(begin (define gerbil/runtime::timestamp 1733687559) '#!void) diff --git a/src/gerbil/core/runtime.ss b/src/gerbil/core/runtime.ss index d925785cf..8879c27f3 100644 --- a/src/gerbil/core/runtime.ss +++ b/src/gerbil/core/runtime.ss @@ -1430,6 +1430,7 @@ package: gerbil/core display* file-newer? create-directory* + move-file absent-obj absent-value true diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index c8d166cdf..1a3c1256b 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -96,6 +96,40 @@ namespace: #f (create1 dir))))) (void)) +(def (move-file (src : :string) (dest : :string) (replace? : :boolean := #t)) + => :void + (def (force-move-it) + (let (tmp (and replace? + (file-exists? dest) + (string-append dest "." (number->string (##current-time-point))))) + (when tmp + (rename-file dest tmp)) + (with-exception-catcher + (lambda (e) + (when tmp + (rename-file tmp dest #t)) + (raise e)) + (lambda () + (let (fi (file-info src #f)) + (if (eq? (file-info-type fi) 'symbolic-link) + ;; there is no portable way to get the immediate link, so the + ;; best we can do is to normalize the path + (create-symbolic-link (path-normalize src) dest) + (copy-file src dest))) + (delete-file src) + (when tmp + (with-exception-catcher void (cut delete-file tmp))))))) + + (with-exception-catcher + (lambda (e) + ;; ideally we would check the exception for errno=EXDEV, but this is + ;; not portable, so we just try to force move it if it exists + (if (file-exists? src) + (force-move-it) + (raise e))) + (cut rename-file src dest replace?)) + (void)) + (def absent-obj (##absent-object)) diff --git a/src/std/actor-v18/admin.ss b/src/std/actor-v18/admin.ss index fbe4c6358..f5cc16c39 100644 --- a/src/std/actor-v18/admin.ss +++ b/src/std/actor-v18/admin.ss @@ -81,8 +81,8 @@ (lambda (out) (write-subu8vector pubk-bytes 0 (u8vector-length pubk-bytes) out))) (call-with-output-file privk-path-tmp (lambda (out) (write-subu8vector privk-blob 0 (u8vector-length privk-blob) out))) - (rename-file pubk-path-tmp pubk-path) - (rename-file privk-path-tmp privk-path)))) + (move-file pubk-path-tmp pubk-path) + (move-file privk-path-tmp privk-path)))) (def (admin-auth-challenge-sign privk server-id client-id challenge-bytes) (let (challenge diff --git a/src/std/actor-v18/registry.ss b/src/std/actor-v18/registry.ss index 63b75feb8..fd7c977f1 100644 --- a/src/std/actor-v18/registry.ss +++ b/src/std/actor-v18/registry.ss @@ -170,7 +170,7 @@ (for (entry (hash->list self.servers)) (write entry file) (newline file)))) - (rename-file tmp self.path) + (move-file tmp self.path) (set! self.dirty? #f))))) (defmethod {close registry} diff --git a/src/tools/gxtags.ss b/src/tools/gxtags.ss index 32241a0e5..b574f780a 100644 --- a/src/tools/gxtags.ss +++ b/src/tools/gxtags.ss @@ -278,4 +278,4 @@ (lines (read-file-lines tagfile)) (sorted (sort lines string